添加随身福袋

init\item.sdb
在item.sdb添加以下代码
& I; S  k' ?# d0 ?# m& v& ^  `应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,

$ c' {. u+ `4 a' X) M在script文件夹内添加以下文本文件
  R! y# p; S; z" d( {script\应急箱.txt
1 _# B/ G0 z$ I
; E: ?  d! `. t  r1 H7 i0 i5 t( r& Nunit 应急箱;
( C. Z6 e1 i1 I4 N6 }7 jinterface
: z" v% }2 |- z+ t! ffunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
8 G' p; s+ o2 L9 f* c+ Hprocedure print (aText: string);
$ s4 l5 S8 a* |5 X, h9 ~) a) B8 qfunction  Random (aScope: integer): integer;
3 T2 S. e6 Y0 L; _0 w* Xfunction  Length (aText: string): integer;procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
5 S" \+ {5 ~- H4 ?9 C6 N6 _1 v9 Bfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;procedure exit;
procedure OnGetResult (aStr : String);
3 s3 z: i' ~' g8 c" l" tprocedure OnLeftClick (aStr : String);
( G. q) I& o. s. N& ?3 b- t
implementation
procedure OnDblClick (aStr : String);
var   Str : String;   Race : Integer;
begin
$ Z. q+ n, ~& |1 r# u2 J      Str := 'logitemwindow';
/ t7 q( x. Z) M5 |/ Y      print (Str);
. f# T' W0 |& O7 {$ R   end;end;
end.