添加随身福袋

init\item.sdb
: n; s+ _1 R& C* @5 u在item.sdb添加以下代码
应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,

在script文件夹内添加以下文本文件
" T7 x) M, m, w( m4 W) _$ Escript\应急箱.txt

unit 应急箱;
8 b+ }$ Q6 z# D3 g7 Pinterface
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
' j/ _4 i% n( ^function  callfunc (aText: string): string;
9 ?* s( F: a, |/ K/ a) o3 [procedure print (aText: string);
0 x6 h( C4 N, }1 @: j2 afunction  Random (aScope: integer): integer;
# U& ~- Z, k  @; r8 ?4 n* Dfunction  Length (aText: string): integer;procedure Inc (aInt: integer);
7 X. B  B) _4 {1 D0 Q: i5 o, E: qprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;procedure exit;
procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);

& o& B% }& P, c' Eimplementation
" \. R4 o3 [- K  `procedure OnDblClick (aStr : String);
; M4 `1 B/ W: ?: Dvar   Str : String;   Race : Integer;
begin
      Str := 'logitemwindow';
      print (Str);
   end;end;
end.