检查玩家物品:
$ _; t& | d4 v: HStr := callfunc ('getsenderitemexistence ***:1'); \\检查**物品- k8 x- d5 x9 e, P: F
if Str = 'true' then begin \\有此物品
$ p# d9 j' C+ T/ E; _2 `) {4 Q% kif Str = 'false' then begin \\无此物品
' g) p1 G+ a5 V( oStr := callfunc ('checkenoughspace'); \\检查物品是否已满4 M( j+ P9 `0 [
使用格式一般为
' { Z1 U& }* T X9 ], \. LStr := callfunc ('checkenoughspace');
( s, I8 d5 [4 U* E ?: Oif Str = 'false' then begin4 u9 d7 b O1 `6 T
print ('say 物品栏已满!');6 q7 ^2 n& f* x B
exit;" U+ h' h( v" @( N8 f7 k+ k: h! w2 E
end;; }& h8 A" ]( h5 r; e8 D% |) V
print ('getsenderitem ***:1');\\收回玩家**物品6 S; n1 p- L. f5 _3 L0 S
print ('putsendermagicitem **:10 @NPC 4');\\给玩家**物品% } S# ~& ^/ S
say \\说话
9 j; A) k) i% s3 Y格式有
2 O$ c8 E% d Y% S0 nprint ('say 物品栏已满!');! O( |5 O5 t1 t( E5 Y+ ~
Str := 'say 物品已满!';) E) o! {! Z, W% h* k" M
Str := callfunc ('getsenderrace');\\获得玩家种族$ I9 D6 r6 c1 e Y
Name := callfunc ('getsendername');\\获得玩家姓名. f- H" B% v( T7 i# x u; t) C8 d5 A2 Z
Str := callfunc ('getsendersex'); \\获得玩家性别
4 h9 p i2 U2 q基本格式" E) u9 L' ~1 f- t
Str := callfunc ('getsendersex');0 ~$ }/ G9 i. ?# ]/ g" b
n := StrToInt (Str);/ ]/ ~1 x& D2 |) p$ v3 `- V$ Q
if n = 1 then begin \\1为男2为女,这里的意思是当玩家为男的所要做以下动作9 U' P. W/ e* f0 T6 U* n# O
6 ]+ C5 r$ u: `Str := callfunc ('checkenoughspace');\\比如当是男性是查检物品栏后面就加这个
: e* |4 K6 L. U v6 |# [* Aif Str = 'false' then begin
% u. s+ \& s; F9 H+ k7 Hprint ('say 物品栏已满!');
5 H7 h5 s4 p+ F+ _exit;
- Y3 Y1 J# [% \5 E$ hend;$ c5 y1 M6 R2 _* ~6 I! i
- e. [4 {/ |9 w4 _; W: m7 h% {
U) P" g, r. D4 B7 t/ h9 H( K
|