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

原理:进入流放地后自动删除物品栏内所有回城卷
. i: J  P4 M# {0 b8 e方法:
, F3 y7 u- w% @2 q  G一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
7 Z6 f) K. L! s& P( N  k二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
; T/ F- a# e; w& b- x0 w! ]三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
1 `7 M+ A# E& ^, U* z, ?四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
删除回城.txt
unit 删除回城;
% y# w' `3 `  Zinte**ce
5 n# N( l9 K1 P$ j# Ffunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
/ k/ s% J7 @& k9 bfunction  Random (aScope: integer): integer;
( d7 J) C2 O( ~$ C& j+ S7 rfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
$ ?! R. [# u% d$ b. wfunction  StrToInt (astr: string): integer;
" ]% G8 m' t" M( j5 u% T3 efunction  IntToStr (aInt: integer): string;
- C3 T# `: t( r- F# y( Bprocedure exit;
procedure OnCreate (aStr : String);
% n9 q$ a5 B) Y! Simplementation
5 S' u$ s; b: k7 r/ g  ~7 b1 o6 rprocedure OnCreate (aStr : String);
var
6 C2 ^% V, s" H0 ?4 C6 W! ~+ f   Str : String;
   iCount : String;
5 ]! R6 p4 ?: K/ @   GoBigMapItem : String = '回城卷';
" S! y6 f( R. o& T! fbegin
1 d8 \/ f0 c  A1 x# `+ g& C      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
: o* v" L( `% p( M. N& C, i1 b0 J      iCount := callfunc (Str);
4 R1 \' K6 H$ ^' k0 q2 g      if iCount <> '0' then begin
         Str := 'getsenderitem ' + GoBigMapItem;
& I8 |5 s6 i3 m         Str := Str + ':';
# F0 y' s& X$ w3 q         Str := Str + iCount;
! ~, c0 H4 I9 `) q: ^         print (Str);
      end;
   exit;
# D" m- N8 B& B7 H: Tend;
0 u2 s; y/ h- M7 H: fend.

* B6 Y5 \3 _1 B1 o, C. e