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

原理:进入流放地后自动删除物品栏内所有回城卷
1 n' r& N' @  z" E方法:
9 U4 U* p$ v/ I- T/ }& }一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
3 \7 ?0 ~; w" T+ ^' ~- k# \0 F二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
, Q; `; y4 W  U1 j2 l, a3 e三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
  G  v) B' x0 C四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
  b( e& X4 B3 @- y* B删除回城.txt
unit 删除回城;
. x3 O/ f1 G% C1 Zinte**ce
8 I# V& K- J9 _- s  [7 ~function  GetToken (aStr, aToken, aSep : String) : String;
; g9 O( C  A( q9 Ifunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
- u2 Q5 L. a+ L2 Q6 Hprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
+ {: f7 G. F) G3 m# Rfunction  StrToInt (astr: string): integer;
3 A. p9 d2 ~5 j2 O6 i5 zfunction  IntToStr (aInt: integer): string;
' O( u$ b2 l) J4 Lprocedure exit;
procedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
! N3 o0 f  b& M) \5 Ivar
# n! K/ Z+ |- j1 b: k   Str : String;
( l3 [8 d/ W. G% w7 m. b   iCount : String;
   GoBigMapItem : String = '回城卷';
begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
      if iCount <> '0' then begin
( x5 b5 T, O, h: m4 M; X) K         Str := 'getsenderitem ' + GoBigMapItem;
         Str := Str + ':';
         Str := Str + iCount;
         print (Str);
+ ]- \& Q3 m" ~- E: R  E      end;
4 E5 `1 g/ ^1 r4 m   exit;
( R! C& L* M9 x9 b, ]( ?/ ~+ Yend;
3 U( Y; i" f# a/ m$ x0 Tend.