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

% e/ n4 V0 `' G, O: t2 P
2 Z+ M$ h/ D6 i3 A# [) C/ t/ [2 ~! I
9 }* t" t; d9 e8 X
* X2 A3 w, [3 g' h6 |) \. L9 f+ e判断角色对面是一个什么对象

; x( u& H. _2 F# E5 i9 z$ r
//检查对面站的是否是一个可结婚的对象
function CheckPoseCreateCanMarry(Player: TPlayObject): Boolean;
/ p9 p/ f/ s1 ~! Vvar
# y2 {/ f  }3 R7 K2 f. G    APoseCreate: TActor;
  k3 j5 n0 @4 S1 C( `' W7 ybegin
/ v- g1 o4 t# y) f4 d    APoseCreate := Player.PoseCreate; //取得站立在对面的对象
    Result := (APoseCreate <> nil) and //如果对象存在
                  APoseCreate.ISPlayer and //并且是一个玩家
9 L6 ~4 {5 f5 z( Y; ~9 H                  (Player.Gender<>APoseCreate.Gender) and //并且是异性
7 s+ K+ U6 P% v9 b+ I                  not Player.Married and //并且是没有结婚的
1 H1 p5 F0 ]& v  W, l                  not TPlayObject(APoseCreate).Married; //并且自己也没结婚
! Z# T2 }5 U5 y1 [: {5 Bend;

% L) C/ b6 d9 x. @6 t" A' X$ Z( p
procedure RevMarry(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
const
S=
[[
{S=<$UserName$>;C=251}：\
　　{S=<$PoseName$>;C=251}已经向你求婚！你是否愿意嫁给他？\\
: F$ T7 m) Y; r* ]<我愿意/@agreeMarry> \\
<我不愿意/@disagreeMarry>
5 M$ e; W. `' M* I! }& ^]];
) G! D8 T. T% B% ~7 fvar
  AMessage: String;
begin
  if CheckPoseCreateCanMarry(Player) then //检查结婚对象
% c  e" i7 W/ T  begin
      AMessage := ReplaceStr(S, '<$UserName$>', Player.Name);  //将消息中的标识位替换成当前玩家的名字
5 i6 r9 v$ r7 X1 a3 x+ i1 h  t      AMessage := ReplaceStr(AMessage, '<$PoseName$>', Player.PoseCreate.Name); //将消息中的标识位替换成当前玩家对面站立的角色的名字
- X1 ]* x5 h" u4 @      Npc.Say(Player, AMessage); //将消息发给玩家
  end;
end;



# c6 A$ M* n& R, V
摘选自“脚本控制中心\功能脚本组\特殊NPC\月老”
3 C" ]# _4 o2 r' U( t; S
+ h' @; q% |. {9 a% h% r6 {