91M2引擎如何显示一个进度条 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.

版权声明

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

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

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

传奇论坛里面相对来说比较好的一个！感谢站长分享的技术教程。

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

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

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

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

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

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

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

谢谢楼主！喜欢这里的东西，方便又好用！