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

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

方法:
" u5 t, Y2 x1 Q9 C1 {
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135

二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
. V$ o2 _$ X  j5 ~1 \$ C
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
) R. \/ B' S5 F. |
9 @- _' W0 B+ Y) w* Q! U四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
' f$ {0 o! v7 u7 U) {# P4 |  k5 f
删除回城.txt

* p- }& h. J& hunit 删除回城;

- W- O: N9 F$ yinterface
% u) g" Q" S( T  \
' u9 _+ ^/ y, V6 mfunction  GetToken (aStr, aToken, aSep : String) : String;
7 O6 S4 L. ^1 W$ q' C. i& ?function  CompareStr (aStr1, aStr2 : String) : Boolean;
2 b6 C6 _! ~" v) Vfunction  callfunc (aText: string): string;
/ k+ v- P3 l7 eprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
  \/ [7 [5 Q4 u8 t4 J5 [6 Nprocedure Inc (aInt: integer);
) Q. V8 W3 }. y# Kprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnCreate (aStr : String);
& Q, D' j. y2 y7 F. N! v$ k
implementation
) }( [' H; U% _" U, d3 B: ]
! Q7 x8 @% d# ^( @. V$ Yprocedure OnCreate (aStr : String);
var
   Str : String;
   iCount : String;
   GoBigMapItem : String = '回城卷';
begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
      if iCount <> '0' then begin
- A- `7 _, q8 \0 |* }' _, f: {         Str := 'getsenderitem ' + GoBigMapItem;
         Str := Str + ':';
         Str := Str + iCount;
         print (Str);
' }7 i- e% ^, F  Y& D5 s; T      end;
   exit;
, @) \0 }& ^: Z+ ^9 i, oend;
. [3 E. d5 P" n/ d4 ~
end.

6 R) c. f: e" {$ e7 X