原理:进入流放地后自动删除物品栏内所有回城卷
* p/ n$ P/ u" n. R方法:
! j2 r% H! y! b( k7 C一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135 / w- m$ b+ z6 o4 h
二、在流放地随便放个NPC Notice列加上script的编号135 坐标 58 78 要保证进去后就能看到
& g* u5 Y8 g" G5 d4 a# f三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
0 C! L: p8 C& \/ d6 @& U: [" a3 c& Z四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE * r1 j- j# i& x
删除回城.txt
& k: o Z- h8 K" Xunit 删除回城;
* z3 P2 B8 V! d+ @+ _4 Ginte**ce 7 \7 @9 i; z& a
function GetToken (aStr, aToken, aSep : String) : String;
' J0 g/ k, Y& `: pfunction CompareStr (aStr1, aStr2 : String) : Boolean;
" X% X, a/ M* N7 R: t4 hfunction callfunc (aText: string): string;/ r4 f+ o: I2 E. u5 \ m; o2 X, E
procedure print (aText: string);
( V! r7 h3 z8 M2 xfunction Random (aScope: integer): integer;
# j& d5 t! V8 L0 Ifunction Length (aText: string): integer;; G" _( A% ~. V" ?. q
procedure Inc (aInt: integer);# }+ R% T# |' a: X( V; I. v
procedure Dec (aInt: integer);
/ I+ [# b$ S; q) }: T# X' qfunction StrToInt (astr: string): integer;
- A8 O8 S7 t& W2 A4 z! u, D3 lfunction IntToStr (aInt: integer): string;
5 ~. p! q2 x* ?; c: B5 J$ P7 W% kprocedure exit;
' v4 V; }+ z d3 G" h; cprocedure OnCreate (aStr : String);
9 q. [; k/ `! `3 @implementation
2 K$ c! V7 s4 D1 e# n4 R$ m. [- _procedure OnCreate (aStr : String);; p" D' M; a2 Z" e
var7 D6 y- h0 m1 H/ w! ^# h( ?0 C7 X# s
Str : String;# o0 g& L8 J% P3 f" {1 Q
iCount : String;, t6 W& n8 j9 Z) K0 k! ]. P, {6 P
GoBigMapItem : String = '回城卷'; B7 T9 J: I& E, L3 i7 y* J6 z5 ?! A
begin6 Q; m* [$ Y/ s/ \; i4 M
Str := 'getsenderitemcountbyname ' + GoBigMapItem;1 U1 w+ j9 \2 l& b1 w$ L5 R5 w7 A
iCount := callfunc (Str);
8 S, ?- A( w4 z; i# O2 K if iCount <> '0' then begin
9 o- {0 @, ]- X Str := 'getsenderitem ' + GoBigMapItem;( F2 W5 h+ ?; i8 Z
Str := Str + ':';
. R" W$ c9 r. m Str := Str + iCount;4 j! n7 ~, @ f9 ]8 \6 V
print (Str); c2 c: h" ?3 ]4 i7 i# L4 r: Q, I' A
end;; B p7 n5 ~$ x Z- h/ u5 O- W" [
exit;
$ b# g7 U% s& z& k8 E5 ^* xend;
# H/ _+ |5 v( G Y5 {end.
. z0 q# y/ }. y8 L" H |