原理:进入流放地后自动删除物品栏内所有回城卷
. `% C5 k2 C$ `, e% R* g
: r) G& R9 G+ h1 K方法:
- Q3 l4 X6 ~, O' U- d: w. G t5 W8 H' K
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
7 X1 F1 K) u3 g8 G% }# c* C4 y* G5 Q
二、在流放地随便放个NPC Notice列加上script的编号135 坐标 58 78 要保证进去后就能看到& ~: Y' @/ L, O% Y, w( h
, v/ g( E J+ ]0 o+ ~; O; L三、"删除回城.txt"中回城卷的名字根据各服务器情况修改! L9 X3 O8 \) ~! p) @( R+ C
9 @) `, ^3 I( B% K' s( r四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
9 R$ h' ?8 ] v0 N. ]( Z& l+ }0 P1 E' R2 {$ I8 d& d0 Q0 D
删除回城.txt
; U1 `6 e2 B* u6 u( r9 U
( ]& q$ T3 \. m. P* Z6 S) [& \unit 删除回城;. _, e$ n7 h' v/ K7 \
$ z' O, [% u4 [
interface' J5 d8 v0 ?6 J4 B# x ^, Y" E
, i M9 A2 I7 M; R
function GetToken (aStr, aToken, aSep : String) : String;
! S; ?3 S' X& ]function CompareStr (aStr1, aStr2 : String) : Boolean;. }% V8 m7 N* k) {
function callfunc (aText: string): string;# w9 t0 c# O, _, R6 ]7 o
procedure print (aText: string);
) T% Z0 T, K; S% i& M7 t4 I! n8 Zfunction Random (aScope: integer): integer;
9 w, T" t( E1 Kfunction Length (aText: string): integer;4 }* g/ `0 T% x- H2 p/ W- s$ A
procedure Inc (aInt: integer);2 {0 D- F: a" V9 A* D) g5 }
procedure Dec (aInt: integer);
! u( j3 D: U/ t2 j7 w- efunction StrToInt (astr: string): integer;2 I! u, ^4 ~0 A3 u
function IntToStr (aInt: integer): string;6 {4 H+ w9 v) O
procedure exit;- _/ R- G5 [: W' c3 ^+ i
* s& G# w Z3 C6 v' q2 k" Aprocedure OnCreate (aStr : String);
7 K2 ]5 O# [7 I T G' {7 L+ S6 D( ]5 K3 a) {$ w7 }* g
implementation5 k$ ^5 c1 E" q. A% p. |' d& B
& ^% }( {& v: p; ^procedure OnCreate (aStr : String);
' F/ t9 g5 @# G8 R! Z5 Xvar( E6 u: v. b* e2 A
Str : String;
/ \5 H* c+ w. V3 X8 Q% r! j: { iCount : String;1 \1 G& X7 ~" |% V2 K* @* \0 W3 @4 W
GoBigMapItem : String = '回城卷';
1 b# H, R$ R5 B) h. ebegin- m2 c% d/ K# O
Str := 'getsenderitemcountbyname ' + GoBigMapItem;. N, Z" Z! H/ b9 x
iCount := callfunc (Str);
& w+ n9 r+ |. q if iCount <> '0' then begin5 {# L% O% Y) n$ ~4 f% K8 B, a
Str := 'getsenderitem ' + GoBigMapItem;
( l* i: h3 A; ?5 y# ~$ ` Str := Str + ':';: c: I2 w P, ^" ^; ?
Str := Str + iCount;
8 @; d, a1 D @( y8 u. e print (Str);
( O% T! b, l) r' _0 G* }9 L end;. S' O& e+ s$ A3 z/ a
exit;
1 E1 C9 z0 Z' D! d5 gend;( _0 g0 w0 p9 p; O2 p6 z1 f' ~ B
' _; [' {% c6 N5 \3 N" dend.
+ w, y- q4 V6 U. i/ Y |