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

原理:进入流放地后自动删除物品栏内所有回城卷
* p/ n$ P/ u" n. R方法:
! j2 r% H! y! b( k7 C一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
& g* u5 Y8 g" G5 d4 a# f三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
0 C! L: p8 C& \/ d6 @& U: [" a3 c& Z四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
删除回城.txt
& k: o  Z- h8 K" Xunit 删除回城;
* z3 P2 B8 V! d+ @+ _4 Ginte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
' J0 g/ k, Y& `: pfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
" X% X, a/ M* N7 R: t4 hfunction  callfunc (aText: string): string;
procedure print (aText: string);
( V! r7 h3 z8 M2 xfunction  Random (aScope: integer): integer;
# j& d5 t! V8 L0 Ifunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
/ I+ [# b$ S; q) }: T# X' qfunction  StrToInt (astr: string): integer;
- A8 O8 S7 t& W2 A4 z! u, D3 lfunction  IntToStr (aInt: integer): string;
5 ~. p! q2 x* ?; c: B5 J$ P7 W% kprocedure exit;
' v4 V; }+ z  d3 G" h; cprocedure OnCreate (aStr : String);
9 q. [; k/ `! `3 @implementation
2 K$ c! V7 s4 D1 e# n4 R$ m. [- _procedure OnCreate (aStr : String);
var
   Str : String;
   iCount : String;
   GoBigMapItem : String = '回城卷';
begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
8 S, ?- A( w4 z; i# O2 K      if iCount <> '0' then begin
9 o- {0 @, ]- X         Str := 'getsenderitem ' + GoBigMapItem;
         Str := Str + ':';
. R" W$ c9 r. m         Str := Str + iCount;
         print (Str);
      end;
   exit;
$ b# g7 U% s& z& k8 E5 ^* xend;
# H/ _+ |5 v( G  Y5 {end.

. z0 q# y/ }. y8 L" H