添加随身福袋

init\item.sdb
3 f: A% h* ]( ]: ?5 N. N在item.sdb添加以下代码
应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,

7 p% Y3 |( {5 W9 k2 v在script文件夹内添加以下文本文件
4 _5 H0 V/ C( ]- E( hscript\应急箱.txt
8 R) e& ~2 P/ e. ]6 d- T
unit 应急箱;
interface
# C! x1 \2 w. Sfunction  GetToken (aStr, aToken, aSep : String) : String;
2 A4 w% k. W; k- d* A; X/ @function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
8 `% O7 ^, q1 F; q$ u8 Eprocedure print (aText: string);
# F/ u/ z9 y5 M! Sfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;procedure Inc (aInt: integer);
" n/ Y) u  l; kprocedure Dec (aInt: integer);
" m7 ^! N8 W+ V# e8 a  U( h* ]: ufunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;procedure exit;
' O1 R& R, k# U0 u( t. Dprocedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);

! @- X0 b% Z# {4 g" A+ Y1 timplementation
/ c, \2 e/ S/ `2 o5 b2 Gprocedure OnDblClick (aStr : String);
8 ~4 q1 @+ V/ H  V! Jvar   Str : String;   Race : Integer;
6 I6 O0 s% M) p0 F- Z1 bbegin
      Str := 'logitemwindow';
      print (Str);
   end;end;
: S% m7 C5 I4 I1 X% e0 t' kend.

' p; c; o' A+ |! o% b4 F