添加随身福袋

init\item.sdb
$ z, t* D2 I9 l& o; F在item.sdb添加以下代码
应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,

在script文件夹内添加以下文本文件
script\应急箱.txt

unit 应急箱;
0 q6 \* ?7 Q; A/ n6 |7 u2 Minterface
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
3 B9 T5 D9 B3 y8 Mfunction  Random (aScope: integer): integer;
9 V( ]$ n; S) X9 L% A* t( G! K! @3 l6 Efunction  Length (aText: string): integer;procedure Inc (aInt: integer);
. R3 |) u' A3 L) E" L% oprocedure Dec (aInt: integer);
7 Y! e7 ]$ i* |: v; w4 R+ h& ?( Jfunction  StrToInt (astr: string): integer;
/ a, ?3 M6 t/ Y& ~function  IntToStr (aInt: integer): string;procedure exit;
procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);

implementation
- ?; O# B) [; y8 x, H! Rprocedure OnDblClick (aStr : String);
var   Str : String;   Race : Integer;
3 T+ x. I9 A+ d8 L# x3 L1 m4 Ebegin
/ a5 q$ D/ f0 A' n! D  p: E      Str := 'logitemwindow';
      print (Str);
6 e5 u& A. J/ @   end;end;
9 W$ U$ K9 {# \- Z0 Z2 mend.

  B) `' j1 {3 Y. E7 a% K