登录
×
  • 首页
  • 传奇论坛
  • 传奇版本库
  • 传奇服务端
  • 传奇三端手游
  • 传奇素材网
  • 传奇客户端
  • 引擎登录器
  • 下载排行
  • 获取邀请码
  • 搜索
    传奇素材网
    120481

    [其它端游引擎] 91M2引擎判断PK值和判断队伍信息脚本范例展示

     火... [复制链接]

    [其它端游引擎] 91M2引擎判断PK值和判断队伍信息脚本范例展示

     火... [复制链接]
    趣游论坛

    1万

    主题

    204

    回帖

    11万

    积分

    管理员

    积分
    113598

    灌水之王活跃会员突出贡献优秀版主荣誉管理论坛元老

    趣游论坛 2019-2-16 20:44:32 / 显示全部楼层 /阅读模式
    120481
    20190216203610.png

    判断PK值

    procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
    begin
        Npc.MessageBox(Player, Format('你的PK等级为%d,PK点数为%d', [Player.PkLevel, Player.PkPoint]));  //Format函数为格式化显示
    end;


    判断队伍信息

    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;

    回复

    使用道具 举报

    318716

    0

    主题

    54

    回帖

    223

    积分

    注册用户

    积分
    223
    318716 2024-12-30 11:52:12 / 显示全部楼层
    路过
    回复 支持 反对

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    扫一扫加群沟通交流

    首页 论坛 !mobpost! 最新 我的