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

原理:进入流放地后自动删除物品栏内所有回城卷
  G$ z, @6 v5 h% C4 G! i方法:
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
6 Y2 P7 e. x) p( P0 ?3 x* h8 W四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
" D9 D" @3 N' D# p删除回城.txt
unit 删除回城;
inte**ce
# Y3 \( n5 f/ L8 [  M# kfunction  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;
. p# T$ H" o0 h( j; ifunction  Length (aText: string): integer;
$ U& h  ]" ?0 |# n0 Gprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
$ q* N$ W6 ^5 a9 zfunction  IntToStr (aInt: integer): string;
+ R* ~) G+ x$ ~% C# I! Zprocedure exit;
& K9 i: S. f  R8 t8 Aprocedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
# E% X: W3 w  J' F5 C% svar
   Str : String;
   iCount : String;
   GoBigMapItem : String = '回城卷';
, j8 s$ l' `4 h3 Cbegin
5 S9 b3 H* s7 A! C6 j  r      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
: x! y- ?6 y( q: D3 m$ }3 w5 _      if iCount <> '0' then begin
         Str := 'getsenderitem ' + GoBigMapItem;
* X. k9 ~- z' z# c. Y8 k3 O- R         Str := Str + ':';
         Str := Str + iCount;
  Y- @$ _. s# w' q! P         print (Str);
7 d2 C# f5 r; b' B% o      end;
$ ^& N  J) O3 H, t% _   exit;
end;
end.