添加随身福袋

init\item.sdb
% |2 m7 ~/ i4 b3 U. I% {在item.sdb添加以下代码
( s. F5 y  g0 p( c7 G! c应急箱,应急箱,56,,,,,,,,,FALSE,547,,,,,,,,,,1000,1000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,8,,,159,,

, X& J: z2 u1 e# O7 j2 u在script文件夹内添加以下文本文件
script\应急箱.txt
2 L) y- K% z/ j# z; W
! L5 e( f7 E& l6 S4 B) Runit 应急箱;
interface
' E' f7 ~8 Z9 }# Hfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
2 ]$ ~8 r  u# @% ?& _5 Qfunction  Random (aScope: integer): integer;
% c- f' ?2 j/ q' K8 ofunction  Length (aText: string): integer;procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
6 C5 Z/ L+ r8 gfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;procedure exit;
8 V+ ?0 [# [8 [! Iprocedure OnGetResult (aStr : String);
( x% }, S( L2 i) ?. M! D/ Z; Iprocedure OnLeftClick (aStr : String);
& d2 e% t0 p/ P3 n* a
) R. V" @4 S2 o, I6 R6 gimplementation
' \, u1 v3 P6 e& Aprocedure OnDblClick (aStr : String);
1 e5 K4 @; O; p+ ?var   Str : String;   Race : Integer;
begin
      Str := 'logitemwindow';
      print (Str);
   end;end;
end.

0 G5 e$ J& f9 r6 F+ v