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

原理:进入流放地后自动删除物品栏内所有回城卷
方法:
9 ~+ _( c2 c/ V1 y' q一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
. m* w- l( W7 t' Z2 K二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
删除回城.txt
: p  [9 g. ]! h8 H4 I( T% yunit 删除回城;
inte**ce
% ^9 D" _0 l/ o, p) X4 kfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
8 J, N2 g1 Z3 Gfunction  callfunc (aText: string): string;
: j" E# z$ ]5 F/ P! @" Mprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
5 G& E# ~+ H0 Y8 k, Iprocedure Dec (aInt: integer);
: v$ N* x; p( U9 Efunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
( K7 H" |7 M' z3 Nprocedure OnCreate (aStr : String);
  A9 t: ^4 W. Jimplementation
* u! D+ O" ?7 y. _' x, m7 eprocedure OnCreate (aStr : String);
. M8 M  X  i! e1 W$ n: l$ ?; s3 i! \var
$ q$ V7 x% |* r. t, ]( I7 s; z   Str : String;
) ?, t. L' V" D" W5 g1 u   iCount : String;
   GoBigMapItem : String = '回城卷';
begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
' j: Q* g. N3 h      iCount := callfunc (Str);
' B* j$ q; A3 t( R+ r      if iCount <> '0' then begin
         Str := 'getsenderitem ' + GoBigMapItem;
0 p9 }( X5 }) `7 j  s         Str := Str + ':';
' g/ T- R6 e* I3 H; j/ D         Str := Str + iCount;
         print (Str);
' L! p$ `( j* d! j1 j; ~  r      end;
   exit;
& s6 ], U& h8 S/ w; Vend;
end.