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

原理:进入流放地后自动删除物品栏内所有回城卷
  X. D  c1 B" c  O( ?* G  @方法:
/ G$ W& }+ n# I8 |一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
- I, Q$ J0 H" y' D! g/ l" k二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
5 d. G) h( [3 P( [% g9 b四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
. P5 a1 }  K: Z/ }6 b  I删除回城.txt
unit 删除回城;
inte**ce
: L) q6 e% }9 s* W5 s5 Xfunction  GetToken (aStr, aToken, aSep : String) : String;
! v; w$ \4 w; }- J4 W- K& b; vfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
# O( P6 G! Y0 {( z5 ?4 @; l0 f3 Y6 _function  callfunc (aText: string): string;
$ c+ k" g5 \: M( E* W6 [1 dprocedure print (aText: string);
, u8 d4 k3 A; I6 X, ^- y) Q( v9 Kfunction  Random (aScope: integer): integer;
2 D% f; {( `( r8 z( p9 I9 t+ M! lfunction  Length (aText: string): integer;
6 A" |$ b4 ^/ N7 o& Oprocedure Inc (aInt: integer);
( h0 G  [2 B  i4 A0 f/ I2 z3 Iprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
9 x3 a8 Y) h3 R/ Y7 I" \  Oprocedure exit;
procedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
1 |0 I% |! P9 j5 f/ G; |# cvar
   Str : String;
   iCount : String;
7 a) y5 ?) }! {' g( h, |   GoBigMapItem : String = '回城卷';
% B+ z0 R7 X: l8 Y' s" K8 q, ebegin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
* i1 g& g- ]# u7 U9 W( t- o$ m      iCount := callfunc (Str);
- u( Z" f2 }2 x% F% D      if iCount <> '0' then begin
. M# P1 I- `8 N! ?; y         Str := 'getsenderitem ' + GoBigMapItem;
         Str := Str + ':';
         Str := Str + iCount;
" b* y: T% {  A- t1 t9 F) i         print (Str);
      end;
8 ?' `3 A$ X, O' g7 z; m   exit;
, E1 _8 E' ]& q+ u; J0 [end;
end.

$ s! ?$ M+ L5 E5 q7 h7 H+ ~