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

原理:进入流放地后自动删除物品栏内所有回城卷
方法:
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
: J4 j" A( |4 Z" G二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
删除回城.txt
unit 删除回城;
inte**ce
/ K+ x# G  P& r! d- Gfunction  GetToken (aStr, aToken, aSep : String) : String;
2 Z- X4 L7 o& @) }/ O- a% Y" y" n$ _function  CompareStr (aStr1, aStr2 : String) : Boolean;
3 j% m7 N7 r& \* H, s- Ifunction  callfunc (aText: string): string;
- b" _' U3 E, D2 q/ W  A2 Nprocedure print (aText: string);
function  Random (aScope: integer): integer;
- p8 [! b( \  t+ w7 _2 gfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
% l5 a$ O3 S8 d$ N3 x* ?procedure Dec (aInt: integer);
1 w/ Z+ g- d0 V% D, T7 C: ?function  StrToInt (astr: string): integer;
' A# O; ]  ?$ ^0 H; c4 Z1 {function  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
var
   Str : String;
: p; U8 |9 D/ q+ h" p+ o   iCount : String;
. O5 w$ K( r/ S+ W# p% H   GoBigMapItem : String = '回城卷';
0 e; Y5 l6 G$ Qbegin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
      if iCount <> '0' then begin
9 K! n' l2 y; v0 V9 x( o3 B  X         Str := 'getsenderitem ' + GoBigMapItem;
9 q- f/ m8 R- N- P6 f! k# N         Str := Str + ':';
$ Y- }0 F" Y) P& Z$ p. X* k. W: f         Str := Str + iCount;
         print (Str);
$ O. t9 y( ^1 v; x9 a      end;
; z' S; u# P; H$ O3 u) k   exit;
! G2 E0 p, v- \end;
& f! w4 k/ q1 {8 i9 xend.