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

原理:进入流放地后自动删除物品栏内所有回城卷
方法:
; ?; e& p; u2 W) x& z% p一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
! V2 `  c. h2 I4 w二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
# N3 _* [/ L' s1 C# ~9 T删除回城.txt
4 [2 P7 Y1 c0 nunit 删除回城;
! N4 I. j3 Q7 n$ s( Binte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
" j' ^; H! \; E7 R* v6 \function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
- ~+ X9 D( e- N2 kprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
* l$ h- B4 Y% Xprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
var
/ f9 ~3 J& F. {8 M   Str : String;
, o3 m- }0 f! t7 F/ T9 g   iCount : String;
1 ?- [# K, Y& M: U4 h   GoBigMapItem : String = '回城卷';
9 R- E: M0 W! _  l5 y5 Wbegin
; d# U$ `# M3 @  ?      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
2 _5 E; P$ v" ]( o% L8 x* K      if iCount <> '0' then begin
         Str := 'getsenderitem ' + GoBigMapItem;
+ b. W- k1 U# p- c         Str := Str + ':';
3 F3 L8 B# n6 v7 _         Str := Str + iCount;
         print (Str);
      end;
   exit;
end;
end.