进入流放地后自动删除物品栏内所有回城卷

原理:进入流放地后自动删除物品栏内所有回城卷
6 Q( G8 ]/ t  t
方法:
1 l6 E5 y* j  Z: _$ x6 u- p4 O7 p
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135

二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
3 E, D! I" j* m' v5 r" p! R4 o4 o- y2 ?
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改

四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
1 @$ Y3 a; y0 a$ M9 K2 p( n( d+ |
/ D+ A2 o' \4 f# Q% q, W删除回城.txt

  q. j' y( z, G' ]+ P4 Qunit 删除回城;

interface

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
. H/ P0 X9 W& m5 h1 j4 Afunction  callfunc (aText: string): string;
- ]9 j$ _" x1 h; q: e2 z) Z8 xprocedure print (aText: string);
function  Random (aScope: integer): integer;
) x9 X$ ^; F/ d2 o$ Pfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
* D- l+ ~& ]' Q, [- q( lprocedure Dec (aInt: integer);
, \+ S6 l  Z7 Y" t6 Zfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnCreate (aStr : String);

implementation

procedure OnCreate (aStr : String);
' h6 w8 n% @1 b- a5 t+ \; v5 M: ]var
) N) R) K6 e6 N. p   Str : String;
! k2 j+ m) X* ?. F$ n   iCount : String;
   GoBigMapItem : String = '回城卷';
# F! ~1 O! I4 D, |! |; D# Vbegin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
      if iCount <> '0' then begin
& L, @# ~8 z, B% S9 _7 a1 y         Str := 'getsenderitem ' + GoBigMapItem;
+ o+ h4 U. [% ?: L6 {: l  n) N) d! x         Str := Str + ':';
         Str := Str + iCount;
         print (Str);
      end;
   exit;
end;
! D) q/ O$ y2 X! ^. b" F. @" X, M% Z% O
& z( T* R$ Y8 H% X$ C; |end.