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

原理:进入流放地后自动删除物品栏内所有回城卷
& M' a' |: a- ^: o# A  v方法:
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
4 u# Q3 |0 f" G2 B4 b7 A5 S, j二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
* C: `% @+ f5 `2 `三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
删除回城.txt
unit 删除回城;
7 F; k* S* A9 o* R. y# Xinte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
! S; F, u# G2 `2 J5 A6 Afunction  CompareStr (aStr1, aStr2 : String) : Boolean;
% G; b; p/ H  S5 U! e5 H: C* D: }* |function  callfunc (aText: string): string;
procedure print (aText: string);
: X8 g( C' F4 X  x/ @function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
  ^$ @4 g! U7 K: R( J2 cprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
! t5 i' y% w: v/ avar
   Str : String;
   iCount : String;
   GoBigMapItem : String = '回城卷';
begin
( X' D- e: a: r      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
* K7 w, e: s% D, X; P      if iCount <> '0' then begin
6 m0 ^2 ^' z+ P9 y         Str := 'getsenderitem ' + GoBigMapItem;
         Str := Str + ':';
- ?1 u: U. G5 e- N         Str := Str + iCount;
- w% ^* p; F1 p; g) m         print (Str);
      end;
   exit;
end;
! [/ q/ U7 I* d( f( Z/ f3 Yend.

- u4 l. V) Z2 u