添加随身福袋

init\item.sdb
4 n1 U( s9 C% n$ ]在item.sdb添加以下代码
  o7 F, l/ c0 L  N) i7 Y; a应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,
. h; u7 Z. f- f% b2 d0 O
; D2 i! g) z9 l在script文件夹内添加以下文本文件
* H% g! F/ \" U% ~, ~script\应急箱.txt

/ N. i( g$ k! b' o8 dunit 应急箱;
8 _8 M# ?1 }& vinterface
function  GetToken (aStr, aToken, aSep : String) : String;
' l1 t* k, I' ~+ ]function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
$ g- |# a9 _8 i4 y) U& a4 aprocedure print (aText: string);
( c+ @+ h9 @$ e3 Z: S5 ufunction  Random (aScope: integer): integer;
. Q) M0 s2 L; `% f5 r2 c' {function  Length (aText: string): integer;procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
% k. ]/ e3 j6 ~0 Q, u$ tfunction  IntToStr (aInt: integer): string;procedure exit;
procedure OnGetResult (aStr : String);
2 ~5 t- A$ M+ ]9 jprocedure OnLeftClick (aStr : String);
( L, Y8 h7 ?7 h) x& u; p
implementation
procedure OnDblClick (aStr : String);
var   Str : String;   Race : Integer;
# r, s* X2 G5 e1 ?  ~- o* t8 cbegin
      Str := 'logitemwindow';
- Q' B5 n5 Y+ k7 \6 F) L6 _- f      print (Str);
& a# y; d) k5 I7 F# C( D   end;end;
end.