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

原理:进入流放地后自动删除物品栏内所有回城卷
方法:
6 F( i" |) g' p7 @一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
5 g1 D/ R! t% a7 M. t" e' r二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
& X( J* K( I. B+ _四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
删除回城.txt
unit 删除回城;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
1 O- t, e. |0 Z' y& rfunction  callfunc (aText: string): string;
% |  M" m" a6 r" o! S% p6 A2 e* w! nprocedure print (aText: string);
( s( p' O! \! x/ I  \function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
- m( x& \8 O% L/ ~/ J" P# Q6 lprocedure Dec (aInt: integer);
6 g: X: S+ S5 afunction  StrToInt (astr: string): integer;
! g) t" M9 N& o3 [" `function  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
implementation
6 t% `' [. x0 J( L) P: C* yprocedure OnCreate (aStr : String);
2 k9 r. S6 U1 I/ \% ~1 P& xvar
   Str : String;
   iCount : String;
6 N# y# {1 P' X: |: @   GoBigMapItem : String = '回城卷';
; O; {2 g( l# e3 w3 }  L9 N4 l, ^begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
' |& M* \$ W3 }$ s* y5 @+ w      iCount := callfunc (Str);
5 S- j2 A: H5 H8 n4 j      if iCount <> '0' then begin
         Str := 'getsenderitem ' + GoBigMapItem;
         Str := Str + ':';
         Str := Str + iCount;
( R1 V! A' W- o1 `$ K; x. ]         print (Str);
7 \( p' H$ V2 b  j      end;
4 R& p8 r1 d( O% G& l   exit;
5 D4 ?/ Q0 G4 y! x. u% Y& dend;
/ r. p0 D6 G! p% d- z, Send.

! \' J9 y, t" |' k