检查玩家物品:
6 S9 `4 K2 K1 V+ c# {! MStr := callfunc ('getsenderitemexistence ***:1'); \\检查**物品
- H* |5 s- j2 h# lif Str = 'true' then begin \\有此物品
% U% d! _( ~0 B. j2 x; A/ Y3 k; dif Str = 'false' then begin \\无此物品- Q2 k7 a- W1 U5 K
Str := callfunc ('checkenoughspace'); \\检查物品是否已满
2 z' B- _; k; k$ f( @( A9 \使用格式一般为
( n" g+ Y+ D& b5 jStr := callfunc ('checkenoughspace');4 c4 a) i K9 S4 c: X7 W+ |
if Str = 'false' then begin6 ]) p, l$ b' Q+ \, j5 m
print ('say 物品栏已满!');
E1 Q) C: K7 [: f0 z0 |$ [& T( dexit;% Y% p X, s% P% @- S( J2 ^
end;
; e/ f, w2 G, d: }+ r+ U; tprint ('getsenderitem ***:1');\\收回玩家**物品+ ~4 a( {2 ^; K! L
print ('putsendermagicitem **:10 @NPC 4');\\给玩家**物品8 l, _1 B% K1 R9 T7 C
say \\说话& V, h* |* J* g5 w0 P: d5 d0 K2 G
格式有
# L) D' y7 P( `print ('say 物品栏已满!');
: D+ h' ^- o4 D& m% Z- l9 |* IStr := 'say 物品已满!';
- c" H" n, f5 t+ OStr := callfunc ('getsenderrace');\\获得玩家种族
& l# v) c: p B# b3 dName := callfunc ('getsendername');\\获得玩家姓名
9 m% F0 d. X' Z6 Y7 L/ T" CStr := callfunc ('getsendersex'); \\获得玩家性别- u- |# @3 t; ^3 m
基本格式7 T% ]2 H, k: q
Str := callfunc ('getsendersex');
0 o) K+ ~ h& ^: On := StrToInt (Str);: J& K0 g0 `' g4 u+ \/ l+ U
if n = 1 then begin \\1为男2为女,这里的意思是当玩家为男的所要做以下动作 n# u, Z( W @' Z) ]% j+ R
1 T% q6 V% z3 Z1 j
Str := callfunc ('checkenoughspace');\\比如当是男性是查检物品栏后面就加这个
+ O, p/ u ^* t9 ~, u$ gif Str = 'false' then begin0 ?) W6 d* d2 m: f
print ('say 物品栏已满!');5 Y5 Q- @5 I: E+ C( I
exit;. z5 ^; W' l3 K: Y9 O* E
end;) R0 ^9 w& v- {, P$ i) R8 i
* ?' e* y5 K0 |2 N3 Z" k* F" ?+ G, B6 y+ _- ?3 {4 N$ M
|