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

原理:进入流放地后自动删除物品栏内所有回城卷
4 @9 G  X5 z8 e" J) k6 ?; O方法:
  |# ]% W# G/ Y8 o; f. f一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
# z) o' u& J0 {) t5 X+ {5 K删除回城.txt
unit 删除回城;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
: m5 ?1 b. p5 |2 F6 Qfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
. ~: v' ^0 G$ @- c5 `+ {function  callfunc (aText: string): string;
procedure print (aText: string);
0 e: ?5 [' g! ^, ~& ?function  Random (aScope: integer): integer;
1 b" l4 {9 m) ^3 r6 w; Nfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
. v; v9 G, i- m7 r# e: t( tfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
( l7 _, l3 n: D9 rprocedure exit;
procedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
var
9 R# e9 }! K: E  f   Str : String;
, O0 Q  N; x( V$ L   iCount : String;
; W6 D! C2 S& m' |5 T" m9 l0 k   GoBigMapItem : String = '回城卷';
5 }* `/ n: J9 ~begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
) d. V/ I: Z5 o3 ~      if iCount <> '0' then begin
( s& |+ l) K% g+ m2 B1 ~         Str := 'getsenderitem ' + GoBigMapItem;
         Str := Str + ':';
         Str := Str + iCount;
% }: ~+ x2 E, |         print (Str);
      end;
- o8 Y6 y. H: j& ]& m2 E- M; X7 a   exit;
end;
end.