添加随身福袋

init\item.sdb
在item.sdb添加以下代码
2 P7 m+ V4 c6 \) P5 A7 h9 E6 k1 \应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,
6 Z, b6 ]* n; m, S8 ?9 ]+ K
在script文件夹内添加以下文本文件
script\应急箱.txt

: w$ d9 R  {6 Q! t  Q$ M' @% A. ], cunit 应急箱;
interface
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
; \3 s! {3 W% o. j! Sprocedure print (aText: string);
1 x; B& T4 f! A% y/ C2 Tfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;procedure Inc (aInt: integer);
; d. W8 A. @: k; }+ gprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
$ D& D- r: m" D) O" w1 n" X+ Vfunction  IntToStr (aInt: integer): string;procedure exit;
procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);
$ P$ r7 }' W! B. O2 J- J
# _. t0 f( D5 R# {3 ^2 Wimplementation
procedure OnDblClick (aStr : String);
; `9 S6 I" ~, d0 wvar   Str : String;   Race : Integer;
6 x* X3 k+ G5 {: Wbegin
      Str := 'logitemwindow';
      print (Str);
   end;end;
end.