添加随身福袋

init\item.sdb
: f/ u$ j( o, X5 y+ {: c$ c在item.sdb添加以下代码
1 `: @* L5 s2 h0 |& a8 W' B应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,

在script文件夹内添加以下文本文件
4 i4 u; r+ c: l' m) Z' Gscript\应急箱.txt
9 l5 V! c9 n. F5 h
, q6 ?5 U) H( {$ A- \# k  ~; Iunit 应急箱;
- \  f  Y( c, \. o  \  ?interface
* {" `( m; m& \+ sfunction  GetToken (aStr, aToken, aSep : String) : String;
3 |# N5 `1 K, N) d5 u7 ofunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
+ |; j. l* Y8 `9 [7 u7 Sprocedure print (aText: string);
2 m. O" c; n/ z) \$ @function  Random (aScope: integer): integer;
function  Length (aText: string): integer;procedure Inc (aInt: integer);
( h  i% ^- _+ Jprocedure Dec (aInt: integer);
" R2 L, p" W* N/ u) Rfunction  StrToInt (astr: string): integer;
, J5 S5 K6 {. f3 Gfunction  IntToStr (aInt: integer): string;procedure exit;
; A# T( f+ _$ W3 {* F. Nprocedure OnGetResult (aStr : String);
/ I0 Z8 F$ Z  Mprocedure OnLeftClick (aStr : String);
  z/ k/ f$ U/ V. A: G% W8 i
1 H3 O7 b  b% ^0 Fimplementation
procedure OnDblClick (aStr : String);
var   Str : String;   Race : Integer;
begin
      Str := 'logitemwindow';
) j0 _% ~# q" g      print (Str);
   end;end;
! s0 }" D: t5 ?$ r" i+ |( yend.