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

原理:进入流放地后自动删除物品栏内所有回城卷
8 A6 P, F3 t' i# g; ^方法:
$ L; L/ T  q. o$ @2 E$ t& @一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
9 b  s, a/ v) m0 i8 T( E二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
删除回城.txt
. J9 t, Y- k$ _  ^# G( M  ]unit 删除回城;
5 P; W- h8 l1 ]% J9 Ginte**ce
8 |9 M  m) L& \  p* |0 V1 u  @- @" nfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
0 ~+ z2 p! J4 V( zfunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
6 {* x1 M( J$ ^' Tfunction  Length (aText: string): integer;
& n& l* t1 g! ^. m$ u" \% F5 G0 |% xprocedure Inc (aInt: integer);
4 x2 s; G  s# bprocedure Dec (aInt: integer);
* i8 g+ v2 `+ Cfunction  StrToInt (astr: string): integer;
+ l+ G* M% ^% l8 d. n, ^) cfunction  IntToStr (aInt: integer): string;
procedure exit;
- O9 B1 K: g" r5 c1 Q- h3 iprocedure OnCreate (aStr : String);
+ y; F* t6 m  Y2 |implementation
procedure OnCreate (aStr : String);
var
   Str : String;
1 S0 \3 O. z' @3 J   iCount : String;
   GoBigMapItem : String = '回城卷';
! {6 r5 b) S1 T8 d& \# G# Fbegin
! P0 i5 r) {% H* \9 G      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
      if iCount <> '0' then begin
1 x, R# q+ x9 z# e1 |2 T/ O         Str := 'getsenderitem ' + GoBigMapItem;
2 k  N7 Y$ _* G5 \5 Z         Str := Str + ':';
# D' P" K/ s; h& k! {: x7 s$ f         Str := Str + iCount;
0 Q5 c" q$ @+ X  s5 N         print (Str);
; Y6 F9 A+ L& {8 U6 B      end;
# K% ]0 w. |  i   exit;
end;
end.

- v) w& Y. D- j" S# H* S