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

原理:进入流放地后自动删除物品栏内所有回城卷
方法:
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
& ?3 X: }8 [7 C( J( P; [3 O三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
& t# V2 ^4 j8 E5 Z7 Y; w3 J四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
( Q! M! S2 I: a* {* W) p* ]删除回城.txt
% o7 v$ `1 m) n% c  u8 Eunit 删除回城;
0 \4 P% @5 n' ~( F9 y' ointe**ce
function  GetToken (aStr, aToken, aSep : String) : String;
( a+ i- m5 K6 `, G3 Z4 E: ofunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
; x/ U) K9 e( ?% t9 Uprocedure print (aText: string);
* E1 z$ ~7 X6 F/ O" z% ^function  Random (aScope: integer): integer;
5 p( h8 g: m0 G9 W7 Y( n+ k9 @/ Jfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
: m; f2 Z" `, w: n8 K, Wprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
& ~3 T4 ]7 T/ ^( Z+ @2 Xfunction  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
implementation
; k. L3 h( U" r  ?5 {' |procedure OnCreate (aStr : String);
var
) |- X! l: r8 J5 w) o5 W   Str : String;
   iCount : String;
5 o+ R- n' y, R3 d   GoBigMapItem : String = '回城卷';
begin
& S1 W/ P5 d+ a& V- T4 Q      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
9 b' n' c6 k/ x      iCount := callfunc (Str);
. t: P  @0 ^  ^! x0 E, T( D* g      if iCount <> '0' then begin
         Str := 'getsenderitem ' + GoBigMapItem;
2 I1 R- w/ y2 ^; a+ _- e         Str := Str + ':';
9 I' }8 Y# J; f5 S9 w         Str := Str + iCount;
. k' ~( v. Q. T+ A8 k         print (Str);
( G' f) i7 G* R8 E      end;
   exit;
- h7 c+ S& T  e+ z3 R9 T# Xend;
8 o7 T* _& s) Zend.