设为首页收藏本站★元宝充值★★购买会员★★传奇QQ群★

一休论坛

网络广告风险自担
 找回密码
 立即注册
查看: 47|回复: 0

[其他引擎] 91M2引擎传奇GM基地如何显示一个进度条 77M2传奇私服开启进度条教程

[复制链接]
  • TA的每日心情
    慵懒
    2015-7-29 13:47
  • 签到天数: 2 天

    [LV.1]初来乍到

    发表于 2019-6-8 16:52:46 | 显示全部楼层 |阅读模式
    网络广告风险自担
    网络广告风险自担
    91M2引擎传奇GM基地如何显示一个进度条 77M2传奇私服开启进度条教程

    如何显示一个进度条
    开启进度条:

    unit Q2;

    inte**ce
      uses Classes, SysUtils;

    procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);

    implementation

    procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
    begin   
      Player.ShowProgress('开启中...'{进度条上显示的信息}, 30{进度条时长30秒}, 1000{进度条标记}, True{移动、攻击或被被攻击的时候取消进度条事件}); //开启进度条   
      //如果当前存在进度条则返回False
      //进度条计时结束后调用QFunctionNpc单元中的ProgressEvent函数,其中可根据EventID进行事件处理
    end;

    end.

    处理进度条事件:

    unit QFunctionNpc;

    inte**ce
      uses Classes, SysUtils;

    //用户执行进度条事件触发,只有脚本调用ShowProgress函数且最终执行其事件才会触发本函数
    procedure ProgressEvent(Npc: TNormNpc; Player: TPlayObject; EventID: Integer);
    //用户角度条执行失败触发
    procedure ProgressFaild(Npc: TNormNpc; Player: TPlayObject; EventID: Integer);

    implementation

    procedure ProgressEvent(Npc: TNormNpc; Player: TPlayObject; EventID: Integer);
    begin  
      case EventID of
        1000: Player.Messagebox('执行进度条事件,事件ID:' + IntToStr(EventID));
      end;
    end;

    procedure ProgressFaild(Npc: TNormNpc; Player: TPlayObject; EventID: Integer);
    begin
      case EventID of
        1000: Player.Messagebox('执行进度条事件失败,事件ID:' + IntToStr(EventID));
      end;
    end;

    end.



    上一篇:91M2引擎传奇版本库如何取得自定义界面里面玩家放入的物品信息脚本
    下一篇:套装5组传奇衣服武器素材-传奇GM基地
    回复

    举报

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

    本版积分规则

    网络广告风险自担
    一休论坛在线客服
    收 起 客 服

    小黑屋|传奇一条龙|GM基地|GM版本库|一休论坛

    GMT+8, 2019-6-25 09:25 , Processed in 0.499201 second(s), 91 queries , Gzip On.

    传奇一条龙 GM基地 版本库 传奇论坛 传奇漏洞论坛 传奇服务端下载 传奇版本

    一休论坛资料来自网络仅供学习交流之用,用于商业后果自负

    快速回复 返回顶部 返回列表