回城卷轴在流放地的BUG及解决方法

原理:进入流放地后自动删除物品栏内所有回城卷
/ g$ f( I3 ~( ]方法:
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
7 ^& p- u6 g' c2 h( P删除回城.txt
/ g; W5 T& y0 hunit 删除回城;
! T1 B# G# F# k9 {5 N3 [2 C9 g" binte**ce
/ ], T  i2 @/ Z2 \1 O) Bfunction  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;
function  IntToStr (aInt: integer): string;
procedure exit;
5 W8 m7 M7 O# A; b, J; Mprocedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
var
$ l3 L6 V6 U* O- h   Str : String;
   iCount : String;
2 A- z- N; m( r+ t   GoBigMapItem : String = '回城卷';
$ H; l8 d1 ^2 @: L& P4 cbegin
1 F0 N0 Y7 E2 S1 L( y- N2 _# G      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
1 h3 t9 P4 v9 C0 o) b% n8 ]      iCount := callfunc (Str);
      if iCount <> '0' then begin
+ |5 I! C) i5 U4 n9 X! z7 I1 W: j, f) m         Str := 'getsenderitem ' + GoBigMapItem;
0 a: Y/ l8 G$ A; F- o5 e$ M         Str := Str + ':';
         Str := Str + iCount;
         print (Str);
7 \9 t: o% d" p8 ]& [& D7 z      end;
% N# m/ Y$ G) a3 N   exit;
5 G( V% Z* [7 _0 E9 Fend;
end.