添加随身福袋

init\item.sdb
在item.sdb添加以下代码
- C. `; |& p8 ]4 S& r应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,

在script文件夹内添加以下文本文件
1 {! I; |. D4 _$ y: c8 |( gscript\应急箱.txt
9 t9 b0 R' E$ ~
- S/ Q; }. d* {1 Z2 x# l* uunit 应急箱;
interface
function  GetToken (aStr, aToken, aSep : String) : String;
" [1 T$ L% s. u5 q2 W! M. E; l& jfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
+ ~) e1 B, C5 ^* W' a/ J) u7 L: [function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;procedure exit;
, Z, o7 X$ A8 C7 ]procedure OnGetResult (aStr : String);
. `- l4 n/ L  V2 M3 rprocedure OnLeftClick (aStr : String);
* ~, s- B: z" ?# t6 b3 `& e
implementation
procedure OnDblClick (aStr : String);
9 D& t4 R7 L8 ^# G+ Cvar   Str : String;   Race : Integer;
begin
      Str := 'logitemwindow';
0 i" d8 t( k, t$ z) J- I+ e' E      print (Str);
- @5 l; N" q# Q2 R1 W+ q  B   end;end;
end.

: t: i7 C: x. D$ M