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

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

* U& q1 J0 ?, F# Z( u* m6 u方法:

6 @/ g- ]  ~& B5 l9 k4 g一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
( m! c. f# ^* K; p8 R2 r
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到

, e* A9 d+ J1 g  V三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
# N6 a0 n. \9 ?. ~/ d' q
! }3 a$ q. r- k0 p, m: Z4 T0 J四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE

删除回城.txt

unit 删除回城;

- p3 V% n4 D% }6 g6 U: Ainterface

1 H& q4 U0 j' E2 p4 G; T0 T! l; ~function  GetToken (aStr, aToken, aSep : String) : String;
$ ?5 r4 I& _2 S6 Gfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
3 v% L0 ]8 [7 B- ?! K& x5 Q; q$ Ffunction  Random (aScope: integer): integer;
: \4 ?$ p& U9 _( ]6 Rfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
' @  ]' E' s: C4 O+ g9 u# W9 \function  IntToStr (aInt: integer): string;
procedure exit;

8 l. Z& z5 C# A  T* d( u+ n/ q0 Qprocedure OnCreate (aStr : String);

implementation

  `$ y" V6 z- G" T9 w0 tprocedure OnCreate (aStr : String);
1 O+ U4 j: A+ H2 w% Cvar
   Str : String;
& W6 k; A5 i0 F2 A7 Q5 o, r# B   iCount : String;
   GoBigMapItem : String = '回城卷';
  e/ |4 O0 F: n; j" w9 Kbegin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
      if iCount <> '0' then begin
! K3 F+ z# _' ?$ N/ |7 h8 M         Str := 'getsenderitem ' + GoBigMapItem;
- n. D1 ]5 `. c1 i: E3 B         Str := Str + ':';
         Str := Str + iCount;
; W' Y4 t# x2 t5 Y         print (Str);
      end;
# {5 j$ _: F. P* u. ?2 S   exit;
end;
7 f. T8 o* W# f" [& F" ^; N
end.

! T! Z/ r2 ]; N9 v2 L0 f; q