添加随身福袋

init\item.sdb
在item.sdb添加以下代码
' _1 \& {* N! K6 b0 V+ e应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,

在script文件夹内添加以下文本文件
+ y* A2 {% v! ~% l- k- V7 h$ N" Rscript\应急箱.txt

unit 应急箱;
6 v3 Q8 d; ?7 H2 dinterface
7 Q+ a$ F6 [% P4 g( Pfunction  GetToken (aStr, aToken, aSep : String) : String;
1 `5 M+ m9 O: g9 N8 T5 {4 Qfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
& T8 V# s& r! J8 Y# ?: B3 efunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;procedure Inc (aInt: integer);
- Z. ^2 z, _& k: i% sprocedure Dec (aInt: integer);
/ m+ i: b- N" |- e7 m% k( z# tfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;procedure exit;
; W" }6 N/ h  [procedure OnGetResult (aStr : String);
! b5 @' a& C0 n* `# k7 Jprocedure OnLeftClick (aStr : String);
- [$ i' O( C" ^5 O  G1 J
# O# L5 e/ {! i5 }0 ?3 m0 @) B0 e: mimplementation
6 F0 Q  D1 _: U, a, f$ ^5 x) f( Gprocedure OnDblClick (aStr : String);
var   Str : String;   Race : Integer;
begin
      Str := 'logitemwindow';
$ o4 p) q: U# ~+ o" e% y      print (Str);
; _1 @; j6 h4 M# e. p   end;end;
5 p, |& d) I, L& I' tend.