64GM论坛 › 传奇技术脚本 › 91M2引擎版本判断角色对面是一个什么对象教程说明

frearaiyqi 发表于 2023-12-20 15:53:42

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

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


//检查对面站的是否是一个可结婚的对象
function CheckPoseCreateCanMarry(Player: TPlayObject): Boolean;
var
    APoseCreate: TActor;
begin
    APoseCreate := Player.PoseCreate; //取得站立在对面的对象
    Result := (APoseCreate <> nil) and //如果对象存在
                  APoseCreate.ISPlayer and //并且是一个玩家
                  (Player.Gender<>APoseCreate.Gender) and //并且是异性
                  not Player.Married and //并且是没有结婚的
                  not TPlayObject(APoseCreate).Married; //并且自己也没结婚
end;


procedure RevMarry(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
const
S=
[[
{S=<$UserName$>;C=251}：\
　　{S=<$PoseName$>;C=251}已经向你求婚！你是否愿意嫁给他？\\
<我愿意/@agreeMarry> \\
<我不愿意/@disagreeMarry>
]];
var
AMessage: String;
begin
if CheckPoseCreateCanMarry(Player) then //检查结婚对象
begin
      AMessage := ReplaceStr(S, '<$UserName$>', Player.Name);//将消息中的标识位替换成当前玩家的名字
      AMessage := ReplaceStr(AMessage, '<$PoseName$>', Player.PoseCreate.Name); //将消息中的标识位替换成当前玩家对面站立的角色的名字
      Npc.Say(Player, AMessage); //将消息发给玩家
end;
end;




摘选自“脚本控制中心\功能脚本组\特殊NPC\月老”

牛家村专属 发表于 2023-12-20 15:59:52

这个帖子不回对不起自己！

７６合击 发表于 2023-12-21 00:45:17

传奇论坛里面相对来说比较好的一个！

专属合击 发表于 2023-12-21 14:41:40

感谢站长分享传奇脚本，让我学习到很多知识。

玩命道盾英雄 发表于 2023-12-21 17:21:20

这个帖子不回对不起自己！

天封专属 发表于 2023-12-21 18:54:46

下次在来看脚本

万劫连击 发表于 2023-12-21 22:14:19

这东西我收了！

专属神器 发表于 2023-12-22 12:03:06

下次在来看脚本

漠北双刀 发表于 2023-12-24 21:47:06

这东西我收了！

帝尊大陆 发表于 2023-12-25 01:58:09

比较全的传奇脚本分享网站，站长辛苦了。

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