添加随身福袋

init\item.sdb
5 N- S1 Y5 T1 O% H' ^% J; H在item.sdb添加以下代码
应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,
6 q/ K4 w: H" _+ w% Z  {
在script文件夹内添加以下文本文件
, E. H) E2 `5 q1 C/ g' F( l# ?: rscript\应急箱.txt
' g& x6 O7 [& C4 p) d) Z
* C! m6 p* U4 ?' x# b2 H0 \unit 应急箱;
0 _7 _+ g. _4 }! i& xinterface
( G6 i2 L+ k5 efunction  GetToken (aStr, aToken, aSep : String) : String;
( U8 s" N( G) a: F6 L% }4 }2 |function  CompareStr (aStr1, aStr2 : String) : Boolean;
& T# \  p; |% V3 Jfunction  callfunc (aText: string): string;
procedure print (aText: string);
. b& D: L) Z% ?' Ufunction  Random (aScope: integer): integer;
$ _$ D" `4 j  J' `function  Length (aText: string): integer;procedure Inc (aInt: integer);
! S% N6 y  L1 Z" v5 ~/ zprocedure Dec (aInt: integer);
$ j4 l7 b: @1 n( B, B% j$ R% kfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;procedure exit;
procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);

3 |: U; @& d+ m- H# R. Uimplementation
procedure OnDblClick (aStr : String);
var   Str : String;   Race : Integer;
begin
. d/ t" |' F7 I" n4 O6 r# C      Str := 'logitemwindow';
      print (Str);
   end;end;
end.