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

原理:进入流放地后自动删除物品栏内所有回城卷
方法:
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
$ }. ?/ @- C1 n- X0 M  k二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
删除回城.txt
unit 删除回城;
3 \/ t5 T- l  {8 C' q# M0 rinte**ce
" l2 ^  u, x5 [6 n" F) P5 efunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
8 K- V4 V! l. K0 }: k8 wfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
4 _/ x! O* q# P3 H- |procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
% F+ o7 h0 j5 vfunction  StrToInt (astr: string): integer;
( O/ a. m* f2 L1 K- P" v4 wfunction  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
- l0 ]8 q9 d$ T. Zimplementation
& H4 l  S; \& t/ x3 g% qprocedure OnCreate (aStr : String);
( |+ T  L  R/ ~" y/ \$ K# svar
   Str : String;
2 {7 ^) ]5 k5 |   iCount : String;
   GoBigMapItem : String = '回城卷';
. Q4 o$ n# `3 E9 D0 jbegin
$ l8 ~. Q: }' P7 H' c' Q5 e+ m) ^* M      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
      if iCount <> '0' then begin
, W2 A) Z: k9 a' f# t         Str := 'getsenderitem ' + GoBigMapItem;
7 P8 P  G0 g1 L         Str := Str + ':';
! ~, G' n; }# f& u% c' }6 ]* A- Q# [         Str := Str + iCount;
         print (Str);
2 T, q  R: {1 ]% m" p9 W$ u      end;
$ A5 J4 o9 ?4 }) c5 ^   exit;
6 g: I1 i6 V" f9 jend;
end.