91m2引擎判断队伍信息和判断两个角色之间的距离脚本

判断队伍信息

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
var
    I: Integer;
    P: TPlayObject;
    S: String;
begin
    if Player.GroupOwner <> nil then //如果存在队长
    begin
        S := '';< /FONT>
        for I := 0 to Player.GroupCount - 1 do //循环队伍里面的角色,Player.GroupCount为当前角色所在队伍的人数(包含当前角色)
        begin
            P := Player.Group[I]; //取出一个角色
            if P <> nil then //如果角色不为空值
            begin
                if S <> '' then
                    S := S + ';';
                S := S + Format('职业:%d，等级:%d，名称：%s', [P.Job, P.Level, P.Name]); //将当前角色的信息拼接到字符串
            end;
        end;
        if S <> '' then
            Npc.MessageBox(Player, S); //如果字符串不为空则弹出对话框显示
    end;
end;


判断两个角色之间的距离

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
begin
  if (Abs(Npc.MapX - Player.MapX) > 5) or (Abs(Npc.MapY - Player.MapY)>5) then //ABS为取绝对值函数。此处判断NPC和角色的X坐标或Y坐标距离是否大于5，怪物、NPC及玩家都有MapX和MapY属性
    Npc.Say(Player, '你离我太远了，我看不清楚。。。');
end;

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

开传奇一条龙不求人，自己学习架设。

感谢站长分享开区一条龙教程，新手能学习到很多知识。

感谢站长分享开区一条龙教程，新手能学习到很多知识。

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

楼主发贴辛苦了，谢谢楼主分享！

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

这东西我收了！

新手上路不用愁，碰到传奇架设问题可以来这搜索。

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