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

原理:进入流放地后自动删除物品栏内所有回城卷
. H; \( I' E' p- ^1 _8 j( N0 T
方法:
4 w& B, t4 K+ r1 F# C
) u0 [( c, J( d4 K7 U6 s9 K% t一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
" A5 X  R5 e# h# q( G
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
. `: a2 [: o& X* I& ^
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改

" V( z1 n; i" M9 l3 d四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
# E0 O2 b& ]7 u: N. i9 A
, c, K& \8 e( x' b3 i! H删除回城.txt

unit 删除回城;

interface
- L. b) J) {" s4 s5 F, Y
function  GetToken (aStr, aToken, aSep : String) : String;
. Y/ w" U9 x5 W5 }function  CompareStr (aStr1, aStr2 : String) : Boolean;
) ?4 |# A; z4 a0 [2 G' N+ @function  callfunc (aText: string): string;
, d! f3 o% r! D* G$ b9 c" uprocedure print (aText: string);
+ Y6 v* j# ?3 Y, Ufunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
. u9 L5 P% K& ~procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
3 R" s5 }) W; x- e# b* E: Efunction  StrToInt (astr: string): integer;
: O! h& K, R( K4 e; dfunction  IntToStr (aInt: integer): string;
procedure exit;

8 R2 i0 ^; {5 |. O5 c1 z* e7 Fprocedure OnCreate (aStr : String);
( ]( z( \: m& x# P
# t# B5 j! p6 ?9 G( r5 j4 h: H0 ^implementation
/ F: C' s. ?" X
procedure OnCreate (aStr : String);
. B/ j% t. a) K1 mvar
   Str : String;
1 N; ~4 n& I( O* ]* D! L   iCount : String;
6 G6 n7 t2 I- t5 E1 D   GoBigMapItem : String = '回城卷';
0 c/ b  o: u+ i( |+ r9 dbegin
  H. K0 e4 U# h9 ]      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
4 O7 p3 e% [" t. F$ z/ m1 [2 n      iCount := callfunc (Str);
9 O$ V# R& u3 n      if iCount <> '0' then begin
9 v8 M  ]; W# \, Y. R) n         Str := 'getsenderitem ' + GoBigMapItem;
- w. V% w0 W7 _" ]! d# ]         Str := Str + ':';
$ O5 \. L6 i. L+ R" U         Str := Str + iCount;
         print (Str);
6 a4 U) }4 B' G' T" N1 L      end;
   exit;
9 p9 N4 K( y. F+ ?end;

: B7 N" y6 A: Fend.

; s. s& h8 z/ X- Y