添加随身福袋

init\item.sdb
在item.sdb添加以下代码
应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,
5 b3 _& k6 g3 C1 m
" {5 `* A" J' H9 s. P9 r4 m在script文件夹内添加以下文本文件
. G9 X  l- Z- u: C8 j2 n& @% yscript\应急箱.txt

3 ?) F9 T8 r! Vunit 应急箱;
interface
* L- [# Z# H: c+ D' b6 I9 Z2 D4 ufunction  GetToken (aStr, aToken, aSep : String) : String;
function  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);
function  StrToInt (astr: string): integer;
# Q6 [- n: @+ }% {function  IntToStr (aInt: integer): string;procedure exit;
7 f! t7 T! @" H# Oprocedure OnGetResult (aStr : String);
2 f6 I% ~2 ^$ w9 y/ `9 ^4 Oprocedure OnLeftClick (aStr : String);

implementation
procedure OnDblClick (aStr : String);
var   Str : String;   Race : Integer;
! n8 y7 f, _$ w9 _& ~begin
      Str := 'logitemwindow';
      print (Str);
   end;end;
5 x$ R8 m$ ~/ k  E- send.

1 n* I# Q% }# S