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

原理:进入流放地后自动删除物品栏内所有回城卷
# E7 D2 ~  ]6 w方法:
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
9 I7 |$ n; h' b( `% A9 |! m四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
) |$ J1 v1 }/ B4 E2 \# f1 V* w5 u5 J删除回城.txt
& f' ]/ \% u. |+ d1 }9 O, nunit 删除回城;
inte**ce
5 `0 A, j' W' [5 d% tfunction  GetToken (aStr, aToken, aSep : String) : String;
1 j# s- a! a  [& j: L7 \; rfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
3 G/ Y* S. S4 \function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
- s  O. F5 n; Uprocedure Inc (aInt: integer);
- d( c# m  w. u' |; J. E5 X) Rprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
. j% I, T8 H1 G3 K4 X# Fimplementation
/ _: C# j) g: k% }* [procedure OnCreate (aStr : String);
) f! {. L: R9 P) n4 `+ w/ bvar
   Str : String;
   iCount : String;
- O; b) S. Q* R# {0 B   GoBigMapItem : String = '回城卷';
3 c  [2 Z- k0 r8 \begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
7 A: p  f  Z7 H5 F! X% J( k* K! a      iCount := callfunc (Str);
: D3 a( \/ M8 C4 v2 |+ P      if iCount <> '0' then begin
& n* }- m- Y/ k( a         Str := 'getsenderitem ' + GoBigMapItem;
; z4 ]5 B1 i- B% m& k         Str := Str + ':';
# T0 t4 G& I/ {         Str := Str + iCount;
; l1 z# z' E* Q3 `3 q. k         print (Str);
- a' _0 C" d9 U+ H, y' y9 F      end;
   exit;
end;
+ R- l' k7 b& N4 s6 y) r4 Yend.

! U9 L* B' M1 A