脚本学习资料

检查玩家物品:  
Str := callfunc ('getsenderitemexistence ***:1'); \\检查**物品
& c& J) y8 `- e& Z, T* E5 ^if Str = 'true' then begin  \\有此物品
if Str = 'false' then begin  \\无此物品
Str := callfunc ('checkenoughspace'); \\检查物品是否已满
使用格式一般为
Str := callfunc ('checkenoughspace');
if Str = 'false' then begin
9 y& t# a( V9 _1 O) R7 L6 k7 {1 E/ ^print ('say 物品栏已满!');
8 S- s  g2 E1 @( B" C' yexit;
7 y$ |6 k' g3 c9 U% m( vend;
! ?+ `4 z/ e/ h& c$ j" cprint ('getsenderitem ***:1');\\收回玩家**物品
print ('putsendermagicitem **:10 @NPC 4');\\给玩家**物品
% k6 X& o6 _1 L/ w8 c. o4 G" [say \\说话
  i5 D0 s+ p  A' |+ A2 G* v$ G' ~+ p2 @格式有
( p0 J9 @0 M+ s/ z- u# @print ('say 物品栏已满!');
  L5 l7 T  C- q; o7 g  G4 w6 a, lStr := 'say 物品已满！';
0 a9 @9 c  v7 h8 b8 X, z& n- [* PStr := callfunc ('getsenderrace');\\获得玩家种族
Name := callfunc ('getsendername');\\获得玩家姓名
Str := callfunc ('getsendersex'); \\获得玩家性别
& a' T5 n8 x9 z* y! O基本格式
/ b/ H# b% s# D6 H9 U! b3 |Str := callfunc ('getsendersex');
n := StrToInt (Str);
if n = 1 then begin \\1为男2为女,这里的意思是当玩家为男的所要做以下动作

4 i- t* ^' x6 L' \" q. c9 V% mStr := callfunc ('checkenoughspace');\\比如当是男性是查检物品栏后面就加这个
! n& z. g& v" D2 @, lif Str = 'false' then begin
9 s# x# F. g9 hprint ('say 物品栏已满!');
exit;
7 P' H# P% K, t0 tend;

; l/ {$ w4 T- S  o