原理:进入流放地后自动删除物品栏内所有回城卷
& M8 x, c) \& x
4 m- s- l% H9 _+ T4 l4 B方法:4 x, e3 u3 p( @4 E" i
8 Z- @( {; O8 C0 G1 h
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135$ V. p% C% o8 P; Q: x! g
: D" o& g$ c. G/ X/ _) P9 i二、在流放地随便放个NPC Notice列加上script的编号135 坐标 58 78 要保证进去后就能看到; e% [9 u7 g2 a0 B
- D1 \; Q: u% O& P. k9 ^
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
J* N& w+ p! d) E! h0 X: @1 o" D& `( z( P3 W& ]& O p( {
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE1 |9 o7 d9 u% P3 [
$ F! V5 p4 [% g) H
删除回城.txt- c! E. i& q. a
! j7 H4 `1 J8 T8 `9 R( U0 eunit 删除回城;
, G- L3 U+ x* S- S- i- Y8 H% I$ p
interface
4 k+ x) Z( C2 u8 o9 b' { m- {+ {, g, q9 E
function GetToken (aStr, aToken, aSep : String) : String;3 t- D$ W8 D" C' t. \
function CompareStr (aStr1, aStr2 : String) : Boolean;
5 W0 U8 P, J: T, }+ efunction callfunc (aText: string): string; E0 V$ K. v5 M* F
procedure print (aText: string);
! R9 e, G- ~1 `; `function Random (aScope: integer): integer;
) t A/ O8 c; Q1 |# z* T+ ~- l* Nfunction Length (aText: string): integer;+ G8 R$ n! D( i
procedure Inc (aInt: integer);
0 l5 p' i) Z( J+ _4 g, sprocedure Dec (aInt: integer);
1 n3 C' d3 U! p9 ?5 f1 Lfunction StrToInt (astr: string): integer;
* D% i) c) h8 ^( o afunction IntToStr (aInt: integer): string;+ r# @& g& ?$ g/ B7 t0 X3 h
procedure exit;
, Y. t5 O b/ U; @* @+ b* h& W
1 X* U9 n) T" @/ z$ Yprocedure OnCreate (aStr : String);
9 A" V0 r( B. u, h4 v
9 A' k7 p2 G( I9 @0 aimplementation0 \6 r1 h' i& f, \% V1 H
. A; @# ]7 {/ K( N- H# ~+ l
procedure OnCreate (aStr : String);
/ g3 Q/ J1 ]3 p: R5 M+ Vvar. P3 |5 D! E, u' T; Q% ~$ p
Str : String;: e% k e6 _$ g3 R Y
iCount : String;
* {0 g4 B$ h& q7 Z" L; W& z/ L GoBigMapItem : String = '回城卷';
) `) B' d T, c* r6 ~: lbegin* e' d+ D2 y2 j- z @7 _
Str := 'getsenderitemcountbyname ' + GoBigMapItem;* x6 M, V. c8 [1 ~! f1 d; ^' o
iCount := callfunc (Str);3 e& u4 w% G+ k5 f
if iCount <> '0' then begin3 q% Y; H6 Y$ l% @" p8 k, J
Str := 'getsenderitem ' + GoBigMapItem; T$ o, Q C& J2 b
Str := Str + ':';
& s M- [" y5 }6 M0 b# N& N4 S Str := Str + iCount; p9 _. h( T; K0 w; A# W
print (Str);
) I; d0 f2 Z+ e" d end;% e/ r9 d9 w( l
exit;9 P' I) G* s$ U4 d
end;
" ]3 ^5 |, A. s! r5 _5 D8 @! O0 g% b# ]& A- U' ?
end. : ~9 `' H( Z8 W t* `2 S I y) e
|