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

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

% r. d# q- V2 A3 ]0 I2 z9 N方法:
+ r& e7 H; w# B" J. \- Z
1 p0 S) s: i8 T1 s一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135

, h+ ~+ j- a, q. M: O# l2 s二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
; o/ @. e. I2 v$ S+ x" Q
. i9 _5 i4 F1 c  ]" ?0 h. k  J5 H三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
; v1 m0 H. I  p( G) p
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
5 c) N/ I- ?- E, e  A
; K. ~) @3 n( v删除回城.txt

- J/ s) y% e: Lunit 删除回城;

interface
' [+ g6 ?* B; D) @
function  GetToken (aStr, aToken, aSep : String) : String;
& C% T* S6 i. F; {  l+ T/ r5 i1 s3 ]function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
, F8 ?3 E6 I! j- Dprocedure print (aText: string);
; i* Y) }+ ?7 C3 {5 v1 m9 Ffunction  Random (aScope: integer): integer;
$ w2 p- a7 q+ g. L8 J! dfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
+ z5 N$ K9 H, l. b9 cprocedure Dec (aInt: integer);
8 {# q, y: J; w5 [! a& {6 cfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

, k+ x; q+ g5 {procedure OnCreate (aStr : String);

implementation
2 _$ [% ], f# a- V+ k+ u$ }
procedure OnCreate (aStr : String);
) b: I3 E9 n7 k1 K) [var
   Str : String;
5 l9 M, ], x2 N/ }8 A2 f- H   iCount : String;
+ |% k! @# i! W/ C4 K- L0 Q3 `   GoBigMapItem : String = '回城卷';
begin
- j1 Q3 C/ [! q9 E* Y8 }* M  T" x! y      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
; N, a6 b4 Z; u" W      iCount := callfunc (Str);
      if iCount <> '0' then begin
9 w! b+ J& T7 G  v6 Q7 ^. w0 ^         Str := 'getsenderitem ' + GoBigMapItem;
         Str := Str + ':';
         Str := Str + iCount;
         print (Str);
/ i7 A0 T% x4 E0 H8 P& Q& j      end;
+ E& V; x5 T% ~/ W4 k" m   exit;
end;

+ s: H' n1 [9 l6 {( uend.

1 u9 f0 z/ H4 N, H4 d