检查玩家物品: \! Z8 a5 [$ U8 e( j8 P
Str := callfunc ('getsenderitemexistence ***:1'); \\检查**物品5 ^ Q7 R1 Q" F' w- S. J% [
if Str = 'true' then begin \\有此物品! s* Y2 e+ ?) m& d: O B, r
if Str = 'false' then begin \\无此物品- M- \) ^- {* g$ K& m6 G
Str := callfunc ('checkenoughspace'); \\检查物品是否已满0 l- l5 o: ?. c( Y2 H- |( _
使用格式一般为
8 t5 Q2 z: y$ h# U% ^) D9 HStr := callfunc ('checkenoughspace');
' T3 c+ z- m7 F; {' zif Str = 'false' then begin/ o0 d+ W6 d% u& B# s
print ('say 物品栏已满!');
" O% H9 P1 O$ L7 Gexit;3 w7 x9 |2 M- L+ k0 f
end;
1 V0 Q6 v0 t; M# m! Pprint ('getsenderitem ***:1');\\收回玩家**物品# ?4 y) X' g% n& e8 X
print ('putsendermagicitem **:10 @NPC 4');\\给玩家**物品8 z: m! B" c. C" o& I0 P) H# H
say \\说话# U4 g% s3 T! C W0 a( J& [
格式有9 }) y7 g9 G) W: a% j* y9 k7 e
print ('say 物品栏已满!');
1 m$ {. |0 o- zStr := 'say 物品已满!';
! S) f G) G6 U2 Q: n. NStr := callfunc ('getsenderrace');\\获得玩家种族
0 w7 Y2 l2 O* E$ m! vName := callfunc ('getsendername');\\获得玩家姓名
4 e+ R4 z( j2 u2 q. s/ wStr := callfunc ('getsendersex'); \\获得玩家性别2 u3 I, _. G# @2 T# i: }$ m
基本格式' a! E2 l! A. b( X9 q: P
Str := callfunc ('getsendersex');% a0 W8 G$ J: J/ H3 k; R4 g @
n := StrToInt (Str);7 l2 ?# Q; L8 l3 b/ u
if n = 1 then begin \\1为男2为女,这里的意思是当玩家为男的所要做以下动作# z6 b( N! y Y
. L! e. Y) o7 \+ [9 IStr := callfunc ('checkenoughspace');\\比如当是男性是查检物品栏后面就加这个2 N+ Z7 S" j# m8 z
if Str = 'false' then begin
. V. x! h0 E& M7 L, [print ('say 物品栏已满!');
9 Z5 U) l7 C* G7 Uexit;# `6 _- x0 I2 B$ i$ S" W7 M
end;
) Q' l+ w3 O6 R2 r+ ]0 e4 M: M. C. X3 f
4 T6 ?1 r2 T- I5 A: Y3 C% K) L
|