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

原理:进入流放地后自动删除物品栏内所有回城卷
! `6 M" f9 r8 q8 p* e方法:
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
1 |' l( i2 v2 }! _) `5 e; @, L二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
* k5 t" L4 e( q) M; h0 x( e删除回城.txt
unit 删除回城;
inte**ce
$ a. X% `/ ?' ofunction  GetToken (aStr, aToken, aSep : String) : String;
* X* E3 F4 D3 e, wfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
1 U# u" d- ~% l) wfunction  callfunc (aText: string): string;
procedure print (aText: string);
; X4 r3 S$ _4 X2 r( b- efunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
* P5 v5 y$ z3 [5 H- ^, `7 e! aprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
+ }1 [$ o) E4 G! _* F0 w, |function  StrToInt (astr: string): integer;
2 z6 F  p0 @1 f1 Qfunction  IntToStr (aInt: integer): string;
1 h' u2 |4 R( ^8 v) r: A, \4 `procedure exit;
procedure OnCreate (aStr : String);
implementation
* h# `! Q5 A4 |. U8 |9 p% d  q; G$ Pprocedure OnCreate (aStr : String);
1 Q7 ^. N9 r0 m" w9 ~! p# q7 Xvar
   Str : String;
/ U# v$ y' Y: Y, t% Z! h! b   iCount : String;
   GoBigMapItem : String = '回城卷';
begin
/ K- f4 ?8 {% N% [      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
: D. a+ e* A) |0 h1 p      iCount := callfunc (Str);
( y5 A1 \" E2 ?0 `8 H) K3 K* v      if iCount <> '0' then begin
! K+ D) `7 c" d         Str := 'getsenderitem ' + GoBigMapItem;
         Str := Str + ':';
         Str := Str + iCount;
0 o$ M' l9 q. G& C         print (Str);
- D0 k% N* b1 d/ W6 Z3 ]      end;
3 g) Y- d8 A$ `. ]- g6 n   exit;
end;
end.

8 t. {& n! G- o3 p