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

原理:进入流放地后自动删除物品栏内所有回城卷
- {& f$ R# Y  R! s( W方法:
+ o1 {% d9 m" R9 _- G/ l一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
# M% ~4 l9 w9 L+ P四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
& Z6 E$ i! [4 `' G删除回城.txt
  M4 X& Q8 X% @1 T/ s, }& sunit 删除回城;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
7 f7 W* a/ y& F/ M/ Ofunction  CompareStr (aStr1, aStr2 : String) : Boolean;
8 l# f, L; V: k  \: r3 R9 {3 afunction  callfunc (aText: string): string;
procedure print (aText: string);
$ x, [1 s; o- {/ Gfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
+ J1 u3 W) Q$ E# ]. xprocedure Inc (aInt: integer);
: H; k. @( w  ~procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
% I8 X4 ^1 c+ s5 i1 H3 `4 Cprocedure OnCreate (aStr : String);
' U( W" p3 P. W5 H! Z7 simplementation
procedure OnCreate (aStr : String);
3 e% s3 `! V+ qvar
   Str : String;
' Z! y% f# T% A, k* B   iCount : String;
* S2 \5 H; p; X9 H   GoBigMapItem : String = '回城卷';
begin
1 Y5 h9 e, V% S& V' i8 F% J+ ~      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
, t4 o' f3 @& U" s, ^( o      iCount := callfunc (Str);
  j: P% ^2 Z. O1 R      if iCount <> '0' then begin
0 S4 V( u: U* @/ e         Str := 'getsenderitem ' + GoBigMapItem;
" U, H- z/ G! ^& N# A         Str := Str + ':';
         Str := Str + iCount;
' I: y0 ^4 H3 g2 J: L8 r' m2 R         print (Str);
5 Z* h* v6 m4 e! D, p; ^1 L      end;
# q( C  h* k; f% z6 B   exit;
/ ]( }( z- o( Tend;
5 _  j5 H) w& [, b. gend.

, h# V8 v& [6 T8 D9 u