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

原理:进入流放地后自动删除物品栏内所有回城卷
* U, x& r' X* L! J  }$ N方法:
& x$ i- n" F9 Y' \6 L7 y一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
$ n3 C! S% g* D+ X( P; x三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
" t' @7 p! @) G7 v) D" d删除回城.txt
unit 删除回城;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
" M6 q5 h# c1 A  a) Cfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
% O1 `1 H% Y6 d: F! L2 \( }* |# U( _procedure Inc (aInt: integer);
) ]8 W- r# O3 k7 vprocedure Dec (aInt: integer);
' v: E) K1 n6 `6 K: H* Nfunction  StrToInt (astr: string): integer;
( O/ V( I: E! V- W" P' A: Mfunction  IntToStr (aInt: integer): string;
8 o' G2 m) L, v2 k4 Q! T0 d  c5 Gprocedure exit;
procedure OnCreate (aStr : String);
implementation
) y0 l3 j! K  I5 Dprocedure OnCreate (aStr : String);
var
1 O1 T9 t6 e2 n" ]   Str : String;
   iCount : String;
& t; g  U0 t' g( O7 M   GoBigMapItem : String = '回城卷';
begin
8 _7 K4 P. O) g; p      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
3 m3 U  ]8 _( q      iCount := callfunc (Str);
      if iCount <> '0' then begin
5 Z/ W; G* R9 D         Str := 'getsenderitem ' + GoBigMapItem;
         Str := Str + ':';
& a5 H# ~, t1 ?* F, y* b3 U, l         Str := Str + iCount;
         print (Str);
      end;
   exit;
end;
% e+ r# h7 y1 i/ Wend.

( ]3 R! ]* B# }  ^: P0 a