检查玩家物品: - s; _+ r) [( `6 g" P
Str := callfunc ('getsenderitemexistence ***:1'); \\检查**物品7 ~& _% P4 h1 g+ F! ]7 H& @
if Str = 'true' then begin \\有此物品( V y! y0 ?; c/ c, g) N6 X
if Str = 'false' then begin \\无此物品( _8 P- J8 K/ O" P# `" p7 c% O" _
Str := callfunc ('checkenoughspace'); \\检查物品是否已满
# C# J o, m7 e5 |* c) ~3 T# S使用格式一般为
1 A1 k2 h3 V. C9 [( EStr := callfunc ('checkenoughspace');
1 I5 k9 \) X& F6 aif Str = 'false' then begin5 Y; r! `/ ?+ ^* z- o
print ('say 物品栏已满!');# k: ?# w9 N0 a# l, I
exit;- e3 o* H f0 h, z! m- W X
end;# j& V( w- V, x; N4 i- W1 @+ @
print ('getsenderitem ***:1');\\收回玩家**物品: J3 U( R* \, R* ^3 o. e
print ('putsendermagicitem **:10 @NPC 4');\\给玩家**物品+ O; M+ M: C/ K8 e2 y
say \\说话
% j1 D5 D: j5 _6 j格式有
5 I8 z+ V1 h7 E2 [$ s- o* Fprint ('say 物品栏已满!');3 T) k/ W" R# ], K) W0 {
Str := 'say 物品已满!';( k# q3 V* L8 W# c
Str := callfunc ('getsenderrace');\\获得玩家种族, L8 y0 w6 A; _/ `$ k5 O8 k5 s
Name := callfunc ('getsendername');\\获得玩家姓名; @1 P% ]* ^) i7 o- E4 k/ _1 R9 }
Str := callfunc ('getsendersex'); \\获得玩家性别" v+ t. v: Y) t: w
基本格式
' ]9 z# M4 f6 W7 J3 {3 W; [1 EStr := callfunc ('getsendersex');7 v+ U) o7 \* T- }) z; [& y
n := StrToInt (Str);/ n. Z+ W+ U$ F8 s5 @. X' N9 q
if n = 1 then begin \\1为男2为女,这里的意思是当玩家为男的所要做以下动作2 M; L" _' z1 p* {1 O1 M g
0 f! k0 Z! C, _" ?0 r
Str := callfunc ('checkenoughspace');\\比如当是男性是查检物品栏后面就加这个& [0 Y& l. d( g% u4 u n+ W
if Str = 'false' then begin
z9 p/ }0 M( @. q% d# |print ('say 物品栏已满!');
& p% C. ^# T8 t( i1 i, `exit;
6 v/ }, p; A" H, j, D) p6 D$ oend;
7 t. K' n5 Y3 V6 m3 s5 p6 F; K" r' W% _' |. H
+ O- k4 q! l# Z, J3 C5 K. Y |