91M2引擎版本判断角色对面是一个什么对象教程说明

1 n/ l% L6 U8 {


- V% ^2 u! L/ N; Y& |  E判断角色对面是一个什么对象


3 B2 N% d  X  d3 S5 r/ k( v//检查对面站的是否是一个可结婚的对象
% [7 H9 e# [0 n' b7 x. j+ d! H, h3 Ifunction CheckPoseCreateCanMarry(Player: TPlayObject): Boolean;
var
    APoseCreate: TActor;
begin
) l, H9 R7 T1 d# z* m    APoseCreate := Player.PoseCreate; //取得站立在对面的对象
    Result := (APoseCreate <> nil) and //如果对象存在
" j0 \9 {: s1 v! i/ c' ?. v4 w1 A8 F                  APoseCreate.ISPlayer and //并且是一个玩家
                  (Player.Gender<>APoseCreate.Gender) and //并且是异性
8 d& v8 a6 J. o                  not Player.Married and //并且是没有结婚的
                  not TPlayObject(APoseCreate).Married; //并且自己也没结婚
2 Y. p8 X# L, J9 W( N5 [& i1 w3 Rend;


* U9 l4 c8 ^; i4 P. E' i1 uprocedure RevMarry(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
/ |/ c/ x4 |8 xconst
S=
[[
9 x+ V* B. `* ]{S=<$UserName$>;C=251}：\
　　{S=<$PoseName$>;C=251}已经向你求婚！你是否愿意嫁给他？\\
, ]' o: c7 n* {, m4 E: V; w<我愿意/@agreeMarry> \\
<我不愿意/@disagreeMarry>
]];
+ t& T% [  h4 q5 Yvar
  AMessage: String;
; }. I. y- Q% k3 Jbegin
5 o1 a. x+ o! ~. H' k+ Q  if CheckPoseCreateCanMarry(Player) then //检查结婚对象
/ r' ]* L) ^/ l/ Y) J# D8 K9 q6 S1 v  begin
( t! p: n( t% B0 n- u) C0 v" _      AMessage := ReplaceStr(S, '<$UserName$>', Player.Name);  //将消息中的标识位替换成当前玩家的名字
7 K- a0 d: ]9 h7 C# V- [9 _      AMessage := ReplaceStr(AMessage, '<$PoseName$>', Player.PoseCreate.Name); //将消息中的标识位替换成当前玩家对面站立的角色的名字
      Npc.Say(Player, AMessage); //将消息发给玩家
  end;
end;
3 a6 F, x4 j5 d9 {/ }+ F
) V3 B! c, Z" U' |


/ G* c  a3 m" M+ R2 \% z1 k1 @摘选自“脚本控制中心\功能脚本组\特殊NPC\月老”
) p1 O$ `& |$ ~1 M  j1 S
# D. C$ e$ B; C  N7 H' G