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

& i: |, ~( M: o4 x3 M
& T# t; L, H" o1 C( ]- E5 w; s( m

判断角色对面是一个什么对象
# L! @- ^  F4 |! \; O  W

//检查对面站的是否是一个可结婚的对象
function CheckPoseCreateCanMarry(Player: TPlayObject): Boolean;
var
6 F: K6 V( m" ^0 r: j  K# u! G    APoseCreate: TActor;
2 H3 h# I! v" ^begin
) O$ v( s3 S6 l( z    APoseCreate := Player.PoseCreate; //取得站立在对面的对象
( O3 [6 x: w( v/ Z  a* J% |    Result := (APoseCreate <> nil) and //如果对象存在
                  APoseCreate.ISPlayer and //并且是一个玩家
* t7 t) ]& D5 M* ~  N+ |                  (Player.Gender<>APoseCreate.Gender) and //并且是异性
4 D' z' |$ C3 N/ N  O+ G2 U                  not Player.Married and //并且是没有结婚的
                  not TPlayObject(APoseCreate).Married; //并且自己也没结婚
/ T+ W1 V1 A8 l2 y( }- pend;
: B+ f, q  t8 L) t$ W& D- _
, n3 \- o1 |7 _# p; s+ v; Y
procedure RevMarry(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
2 J7 j; D0 |, @0 Jconst
S=
[[
. r+ B" Z, @8 b, Y2 Z" U7 n& B4 a{S=<$UserName$>;C=251}：\
& a) ^& E2 V$ L  V9 \: A8 o( G1 x1 i8 }　　{S=<$PoseName$>;C=251}已经向你求婚！你是否愿意嫁给他？\\
6 {+ d7 J2 j: K+ l<我愿意/@agreeMarry> \\
<我不愿意/@disagreeMarry>
]];
1 E7 Q, {& z' @  D2 j+ yvar
9 L3 }/ J# C! S# r  o$ a  AMessage: String;
) u' v7 c& _. a8 ~! B2 cbegin
  if CheckPoseCreateCanMarry(Player) then //检查结婚对象
6 I! J' O' _  q9 n  I, h, _  begin
      AMessage := ReplaceStr(S, '<$UserName$>', Player.Name);  //将消息中的标识位替换成当前玩家的名字
      AMessage := ReplaceStr(AMessage, '<$PoseName$>', Player.PoseCreate.Name); //将消息中的标识位替换成当前玩家对面站立的角色的名字
& ~- G4 f2 e6 u$ _) w* p      Npc.Say(Player, AMessage); //将消息发给玩家
  end;
! T& {& O0 Y: G% r3 Zend;
2 L- z2 c. @9 `0 [' J- ?


. F0 h5 n$ d5 r9 h
摘选自“脚本控制中心\功能脚本组\特殊NPC\月老”

& ^4 b* e' f" O& I- C8 Z% J