添加随身福袋

init\item.sdb
在item.sdb添加以下代码
, M8 s: Z' H2 `9 o5 a7 G5 w应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,

5 t) C8 t) n7 A! I& U! o! ]; i# i在script文件夹内添加以下文本文件
. Z) U' u  h) y7 h% J( uscript\应急箱.txt
  {0 g2 b7 e- O9 x3 _/ j+ f, g
6 H6 G! M. s& ?% ]% @/ I, Z' H  Yunit 应急箱;
interface
  A. ^( e2 Z2 vfunction  GetToken (aStr, aToken, aSep : String) : String;
. W. m. O# Z% `* P' N! ?: u; H) S! Q: ffunction  CompareStr (aStr1, aStr2 : String) : Boolean;
" t6 J9 H3 F9 [7 i6 ^! l! dfunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
9 V  W! v8 G& f7 ^% A) jfunction  Length (aText: string): integer;procedure Inc (aInt: integer);
; y! z" w$ l/ |2 j4 A/ u, S& G# @procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
' j5 [- y& y. _: e) `function  IntToStr (aInt: integer): string;procedure exit;
& u: i! c5 U3 R# D# q3 ~; z% sprocedure OnGetResult (aStr : String);
, s% D- o0 Z9 J- ]procedure OnLeftClick (aStr : String);

implementation
procedure OnDblClick (aStr : String);
var   Str : String;   Race : Integer;
begin
      Str := 'logitemwindow';
; w+ o5 X1 O8 ]4 ]" p      print (Str);
9 I% w* @: n! ^& U   end;end;
* Z" A& `  w. F8 c) iend.

  e. w$ t0 o' B+ _( r