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

原理:进入流放地后自动删除物品栏内所有回城卷
方法:
7 Y- M- ~0 c) l. ^* {9 K1 V7 ?一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
7 u8 M" Z2 y* |1 L& B4 [; z9 |* n三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
/ N" l7 }" D9 T  U4 {5 i2 z四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
删除回城.txt
unit 删除回城;
5 S( ~! p1 u  Iinte**ce
; M( w5 }& R9 X! k7 F* F) U: lfunction  GetToken (aStr, aToken, aSep : String) : String;
  s; b+ a0 t. D3 m8 w8 Hfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
; I5 B0 O& s9 M' l5 c, D( B" hfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
! H4 N3 C) F, T8 U4 J0 s3 G+ Zprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
0 n) [/ c* b: g5 p8 _0 D# |function  IntToStr (aInt: integer): string;
$ k) C4 U, K( X- M/ ^  j4 M6 h2 S9 ]procedure exit;
7 f+ s& l0 @* Q; n+ O% `: oprocedure OnCreate (aStr : String);
5 a/ Q; M' q5 P1 [0 e9 `) Himplementation
' Y5 s7 r. N5 o0 _$ M7 j# aprocedure OnCreate (aStr : String);
/ Y- w2 [1 e- a$ }var
. ^+ J% t" F- ^) C   Str : String;
   iCount : String;
   GoBigMapItem : String = '回城卷';
begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
* ]+ |0 q9 Y6 I- ]8 \4 a      iCount := callfunc (Str);
      if iCount <> '0' then begin
# N$ G& e5 o, l! b' L         Str := 'getsenderitem ' + GoBigMapItem;
         Str := Str + ':';
         Str := Str + iCount;
         print (Str);
      end;
5 D1 h1 V1 b; }6 T6 ?3 v$ ~   exit;
end;
end.