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

原理:进入流放地后自动删除物品栏内所有回城卷
* p4 R3 j# `) W) Q5 s  C! t5 x. W) G方法:
9 U; ^7 @+ ~( J; F* @2 r! i1 K一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
- t! h$ ]+ @5 H9 v二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
- a8 u  |3 f# j四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
0 y, D7 p) |: P/ v- W# g删除回城.txt
0 n, T" s5 A' I( {unit 删除回城;
inte**ce
; e( G2 Y# J( w* W3 Y" e7 cfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
. F* B" P# e4 J$ F" jprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
% U3 E! ]* t/ B8 K) w: j' Dprocedure Inc (aInt: integer);
* {8 R+ i: {) z6 O- L: ~procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
3 k+ [1 `' t" hfunction  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
var
   Str : String;
$ f0 y$ k, m( U& C. J8 u& r   iCount : String;
5 `* O" ]. j$ s  _) E9 j   GoBigMapItem : String = '回城卷';
5 J: Q9 E8 U4 K7 mbegin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
3 L( y" z5 \. J* f      if iCount <> '0' then begin
         Str := 'getsenderitem ' + GoBigMapItem;
- d6 ]$ [3 X. e! [2 f' D         Str := Str + ':';
8 w# s$ H. C2 T9 L/ q! _         Str := Str + iCount;
, ~$ ~1 e: @+ K* [         print (Str);
9 o" j8 E' u5 L: f4 \% Q5 H/ ~; T      end;
   exit;
7 w* C" u( Y( \end;
end.