添加随身福袋

init\item.sdb
6 r  @2 B1 ~$ P/ `4 T! w* A在item.sdb添加以下代码
0 M) {5 K  o8 l) A3 s% X2 S应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,

( v' P/ W0 w+ G在script文件夹内添加以下文本文件
* ]+ `3 M2 f' R! xscript\应急箱.txt
' a+ a$ l* I7 ^/ \0 o' u' Z+ ]
8 F! i. V6 Q7 b3 }unit 应急箱;
interface
function  GetToken (aStr, aToken, aSep : String) : String;
5 o  y% j: R4 |3 Y( Q& d+ U# E! w* F& @function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
4 T1 w8 Q9 D' m+ d8 ~( b" jprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
; z6 H. F% {) [+ `- Qfunction  StrToInt (astr: string): integer;
' Z1 R3 F' u- Q. ffunction  IntToStr (aInt: integer): string;procedure exit;
) _, O  R! |7 {! f" C- eprocedure OnGetResult (aStr : String);
- a. B6 J6 l2 dprocedure OnLeftClick (aStr : String);

implementation
procedure OnDblClick (aStr : String);
8 x. L" N: F" Q% P" J% dvar   Str : String;   Race : Integer;
begin
      Str := 'logitemwindow';
      print (Str);
   end;end;
end.