添加随身福袋

init\item.sdb
% r  Y; {2 ~7 g2 I+ u! o在item.sdb添加以下代码
) V: J# S: T4 [' X应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,
$ i* P" T- S9 r5 B
在script文件夹内添加以下文本文件
; N9 h5 p" o+ u/ [1 T: H6 v6 C6 tscript\应急箱.txt
/ q4 `' r$ m# |& H: c
, D. c; Z( Y/ C* P( A* H& O8 }% Aunit 应急箱;
* E7 O& ]& F+ T+ {  F/ Hinterface
function  GetToken (aStr, aToken, aSep : String) : String;
5 W7 I6 I2 |- L* _function  CompareStr (aStr1, aStr2 : String) : Boolean;
+ V5 _4 X+ z5 w' E1 J" }function  callfunc (aText: string): string;
) i/ l& E  P, Z( D' n" n$ Eprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
. D3 l" S3 z  t$ k2 a2 nfunction  StrToInt (astr: string): integer;
! D0 u& d! @7 W% s3 nfunction  IntToStr (aInt: integer): string;procedure exit;
* G( y2 M& n" h9 d9 Zprocedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);

/ t- E# V& D) `/ V( w" nimplementation
procedure OnDblClick (aStr : String);
var   Str : String;   Race : Integer;
6 q* N5 r" a4 w0 Z! \begin
      Str := 'logitemwindow';
' f6 Q* a) `! N+ A7 x      print (Str);
& j8 X) ?2 M; k) x$ |5 T1 u2 R" l   end;end;
+ x  h; ]* ~, Z1 a! o1 l9 h8 jend.

3 f4 T6 ]7 p2 t7 I# t# n; Q