添加随身福袋

init\item.sdb
1 |' A* ^7 ]8 F: k" ^在item.sdb添加以下代码
7 H( L; i0 j  |应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,

& q# }# a9 k1 y; }+ T; a3 ?0 l在script文件夹内添加以下文本文件
script\应急箱.txt

unit 应急箱;
interface
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
6 B! v6 `5 V& m, T4 r2 |function  callfunc (aText: string): string;
4 H2 S0 r# n3 |9 j7 J7 oprocedure print (aText: string);
& r9 H6 G( S1 x7 J( ffunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;procedure Inc (aInt: integer);
$ y9 r- F6 r. gprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;procedure exit;
procedure OnGetResult (aStr : String);
3 J+ _! c$ m# u8 N+ i  H' n7 o1 eprocedure OnLeftClick (aStr : String);
/ X9 |8 F/ F, X( m: S! s: g
implementation
8 x4 f2 h) i  J+ iprocedure OnDblClick (aStr : String);
4 l+ _% a, X* f8 Mvar   Str : String;   Race : Integer;
" Y6 e. m0 A/ Hbegin
      Str := 'logitemwindow';
  O, W; m' y5 \& t& h, H6 [      print (Str);
7 e/ X) q% ~  ]) n$ A6 W   end;end;
end.

1 u5 d# l, f- i: W, [1 F