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

判断角色对面是一个什么对象
. y  w0 p/ T# n  s  a
  c) s* @4 x4 G3 F# y- l* Y2 c
1 F" K6 ]8 j: W* f% T6 K# o//检查对面站的是否是一个可结婚的对象
function CheckPoseCreateCanMarry(Player: TPlayObject): Boolean;
var
    APoseCreate: TActor;
5 `: N( |) v2 rbegin
+ [" t9 f0 `6 a, y    APoseCreate := Player.PoseCreate; //取得站立在对面的对象
    Result := (APoseCreate <> nil) and //如果对象存在
6 c  L1 S! G1 g- Q; G0 _+ @                  APoseCreate.ISPlayer and //并且是一个玩家
: t" h# ^6 a, @" E2 p; T                  (Player.Gender<>APoseCreate.Gender) and //并且是异性
0 K( J2 K# T9 B! V, e4 ?8 M8 V! ^                  not Player.Married and //并且是没有结婚的
                  not TPlayObject(APoseCreate).Married; //并且自己也没结婚
7 N, Q& S8 A. Oend;

+ M: @8 _. o0 P  r( W" ~1 n7 Q
; F9 v* H1 N5 C5 e( O6 }4 Pprocedure RevMarry(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
3 ?$ A9 c9 O. ^+ fconst
S=
[[
4 C4 a2 {" e7 z0 o$ D7 E{S=<$UserName$>;C=251}：\
　　{S=<$PoseName$>;C=251}已经向你求婚！你是否愿意嫁给他？\\
<我愿意/@agreeMarry> \\
# N' s" u$ C/ m5 `4 ^9 E- r<我不愿意/@disagreeMarry>
' S$ O3 Y; S6 A0 [) H4 l8 Z% R]];
4 `! F* J: Z( [var
0 Z+ m5 h; G$ q  AMessage: String;
begin
  if CheckPoseCreateCanMarry(Player) then //检查结婚对象
, z2 T/ C* W( n! ^0 {5 I  begin
      AMessage := ReplaceStr(S, '<$UserName$>', Player.Name);  //将消息中的标识位替换成当前玩家的名字
      AMessage := ReplaceStr(AMessage, '<$PoseName$>', Player.PoseCreate.Name); //将消息中的标识位替换成当前玩家对面站立的角色的名字
      Npc.Say(Player, AMessage); //将消息发给玩家
+ Y' f0 ]5 ~, z" Q5 z, e5 X  R+ M  end;
end;
) {- f- P$ M+ ?4 e: \
* R0 o. f" u% q2 H1 ]

% d! g! @2 y0 [7 r0 }
- }6 r$ g0 m8 a% y# u. P摘选自“脚本控制中心\功能脚本组\特殊NPC\月老”
: c4 x# y7 a3 y, \) C; j
! E; L4 k5 M- F( i$ S! v