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

原理:进入流放地后自动删除物品栏内所有回城卷
方法:
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
, H4 u/ U. M/ c; t二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
* Q* ?  `9 C1 L, h9 S3 a三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
3 x. F8 G& r$ ^0 L, B3 A; T6 u四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
删除回城.txt
, V% y$ G' T' H: }  Munit 删除回城;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
1 ^1 H( [+ D- ~1 ]7 E7 e/ Y7 afunction  CompareStr (aStr1, aStr2 : String) : Boolean;
* E- J* S' s& J  K+ Xfunction  callfunc (aText: string): string;
procedure print (aText: string);
( {3 {5 X) P7 Qfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
4 ^% P  g8 Z2 ]. S7 C4 Vprocedure exit;
% J" N, N9 M% i* O  E: q% Bprocedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
var
4 N0 i9 Y- E- J. i9 i   Str : String;
   iCount : String;
. C, [. X7 T( _   GoBigMapItem : String = '回城卷';
begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
      if iCount <> '0' then begin
' p# B9 R+ V7 T5 H         Str := 'getsenderitem ' + GoBigMapItem;
+ k2 \( z  ]6 p% o) z% r. X" A         Str := Str + ':';
         Str := Str + iCount;
         print (Str);
, Z1 O$ `, B# a: X' k' R2 |      end;
+ d. f! e* F+ L  `, C* l. k   exit;
end;
# g0 ]- R$ }- D6 ?end.