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

原理:进入流放地后自动删除物品栏内所有回城卷
$ X4 b* h0 x/ n& {( r0 M
% J" Y5 Y7 \( ]# t& Y( }9 M6 [$ X8 w& \方法:

3 J) t3 r+ O# Q一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
7 K( d  }0 S; i/ `4 I
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
" x6 v0 N" E  w) l( F
0 b; d% ^9 a0 k5 _三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
. v- Z( p5 h8 |" m& T; A( N( p
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE

5 _' y5 d3 B7 a! x& Q& J. T6 o& a删除回城.txt
+ t4 |$ ~: A' f$ S/ A
$ L+ h* B. d1 Q% Z) lunit 删除回城;
. m# a9 h" C; R! O2 p( R; X
$ |: z% z0 E/ |interface
' b, E  O1 z( [
function  GetToken (aStr, aToken, aSep : String) : String;
0 ~8 A; E; c5 M/ x+ ~function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
& ?  S" I( h  w5 k1 qfunction  Random (aScope: integer): integer;
  E$ `3 p; b9 f& Sfunction  Length (aText: string): integer;
! E1 L! P2 u- `6 Rprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
8 h  M! p9 ~( Z# X4 d! }& Tprocedure exit;

5 U" ^, M$ e2 K, U2 r& j$ }, Hprocedure OnCreate (aStr : String);

implementation

% E6 Q' Y* ?  |procedure OnCreate (aStr : String);
var
2 U8 n+ z" y5 f  m# M' C1 H; ]3 s   Str : String;
   iCount : String;
   GoBigMapItem : String = '回城卷';
begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
" H, E! Z3 s4 `: c: t5 v      iCount := callfunc (Str);
      if iCount <> '0' then begin
         Str := 'getsenderitem ' + GoBigMapItem;
         Str := Str + ':';
6 l  k& n1 S" C2 X8 Q         Str := Str + iCount;
         print (Str);
      end;
   exit;
end;
2 Y5 o! B& _4 c) @1 ^; u
end.

; y1 h0 F& k( D! U9 @( x% w