添加随身福袋

init\item.sdb
1 [8 B' B# n6 w' ^0 C  y& y7 V在item.sdb添加以下代码
应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,
+ \% H5 E6 T+ Q, w
7 e1 F" D) z5 \' W在script文件夹内添加以下文本文件
script\应急箱.txt

unit 应急箱;
5 e+ `" S4 ^( t* J" t; `7 b- I& _8 Minterface
4 ~3 N6 n: I1 k6 V. Pfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
/ v" b# ^- m/ s; Q1 F, kprocedure print (aText: string);
function  Random (aScope: integer): integer;
; K  r: k0 Y& ?* Z4 b$ P1 M0 M6 d* gfunction  Length (aText: string): integer;procedure Inc (aInt: integer);
  M. O  C  q, H8 T8 _. Dprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;procedure exit;
' d: j2 f# ~$ }  Q6 c6 l- rprocedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);
* Z$ m2 B+ {: X, r) I
, ~4 {% z0 O% X5 wimplementation
9 b: n9 X. k/ x# @/ _, U3 R& Jprocedure OnDblClick (aStr : String);
; M! ~) c) F1 c; nvar   Str : String;   Race : Integer;
; F$ E" Y6 H- C2 V% Fbegin
! M  c& }6 |1 i( m      Str := 'logitemwindow';
. _7 q' v! V  s$ j* {      print (Str);
   end;end;
8 w6 M: N9 ~' _0 h6 C3 Q3 iend.

- S, \2 L$ S* z- p