1、首先在tgs-init-item粘贴下面
随身福袋,随身福袋,56,随身福袋可随时随地打开,,,,,,,,FALSE,607,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,139,,
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
也可以用这个试试：
随身福袋,随身福袋,56,随身福袋可随时随地打开,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,144,,
--------注：144为关联的脚本序号，必须和第二步的编号一致。
2、
script\Script.SDB
144,随身福袋.txt,,
---注意：144为脚本序号，只要顺延就可以了，不可跳号。
3、然后将本记事本上面部分去掉，下面从UNIT开始，本文档放入script目录下
unit 随身福袋;
interface
function GetToken (aStr, aToken, aSep : String) : String;
function CompareStr (aStr1, aStr2 : String) : Boolean;
function callfunc (aText: string): string;
procedure print (aText: string);
function Random (aScope: integer): integer;
function Length (aText: string): integer;procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function StrToInt (astr: string): integer;
function IntToStr (aInt: integer): string;procedure exit;
procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);
implementation
procedure OnDblClick (aStr : String);
var Str : String; Race : Integer;
begin
Str := 'logitemwindow';
print (Str);
end;end;
end.
比如偶怕人妖制作的星钻千年，这样弄了还是没生效，请高手指教下，到底是怎么回事呢？还缺少哪里的设置？