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

+ p# B# P8 ?0 y6 a9 ^

判断角色对面是一个什么对象


//检查对面站的是否是一个可结婚的对象
function CheckPoseCreateCanMarry(Player: TPlayObject): Boolean;
var
, T8 l0 B# {3 E6 j+ w6 P! @  E    APoseCreate: TActor;
begin
. G7 m! A" }3 V! I9 z% ]2 S    APoseCreate := Player.PoseCreate; //取得站立在对面的对象
    Result := (APoseCreate <> nil) and //如果对象存在
                  APoseCreate.ISPlayer and //并且是一个玩家
                  (Player.Gender<>APoseCreate.Gender) and //并且是异性
                  not Player.Married and //并且是没有结婚的
+ P! V+ z' c; F6 D0 d                  not TPlayObject(APoseCreate).Married; //并且自己也没结婚
end;
0 N3 M# ~* \# Z* y# d
; z5 U: n# i, m
procedure RevMarry(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
4 r3 x1 J( N% Aconst
: T+ }; p1 y  z6 i3 hS=
[[
0 L' t# W5 t( M% ?! g{S=<$UserName$>;C=251}：\
　　{S=<$PoseName$>;C=251}已经向你求婚！你是否愿意嫁给他？\\
# ?7 ^  o/ t2 f9 n+ A  ?+ E7 a* i<我愿意/@agreeMarry> \\
<我不愿意/@disagreeMarry>
]];
var
9 T; `# _* I+ t! n  AMessage: String;
begin
  if CheckPoseCreateCanMarry(Player) then //检查结婚对象
  begin
      AMessage := ReplaceStr(S, '<$UserName$>', Player.Name);  //将消息中的标识位替换成当前玩家的名字
      AMessage := ReplaceStr(AMessage, '<$PoseName$>', Player.PoseCreate.Name); //将消息中的标识位替换成当前玩家对面站立的角色的名字
& q2 M  L. J5 q: F      Npc.Say(Player, AMessage); //将消息发给玩家
; D, U4 c- Q# ~' ~8 J' ~3 u  end;
( ]. }/ ?, L1 m2 w$ Vend;
: B9 P3 X2 h4 J8 M  V


4 @5 {5 J+ F" `% ]5 @% U! j
摘选自“脚本控制中心\功能脚本组\特殊NPC\月老”

7 C; {! Q. H/ G: v