91M2引擎如何显示一个进度条 77M2传奇私服开启进度条教程

趣游论坛 · 发表于 2019-6-8 10:48:50

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

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.

美丽的旅程 · 发表于 2019-6-8 10:48:52

不错的论坛，大力支持

梦之蓝 · 发表于 2019-6-8 11:24:27

路过帮顶嘿嘿

黑色的记忆 · 发表于 2019-6-8 12:02:56

支持，楼下的跟上哈~

长情多浪漫 · 发表于 2019-6-8 13:17:14

确实不错，顶先

罗梅罗 · 发表于 2019-6-8 13:43:43

鼎力支持！！正好需要此脚本。

时光倒数 · 发表于 2019-6-8 14:46:46

为了积分，脚本还是不错的，帮赞个！

微笑 · 发表于 2019-6-8 15:21:32

为了积分，脚本还是不错的，帮赞个！

遥遥无期ING · 发表于 2019-6-8 17:54:50

不错，支持下

柳溪 · 发表于 2019-6-8 19:36:26

为了积分，脚本还是不错的，帮赞个！

`设为首页收藏本站`

[传奇一键替换包]

[其它端游引擎] 91M2引擎如何显示一个进度条 77M2传奇私服开启进度条教程

明月沉默复古单职业传奇版本带假人系统-蛮

华夏沉默专属单职业传奇版本带假人-奇遇地

鬼书攻速超变单职业传奇版本-魔灵废墟-雪域

斗破苍穹单职业传奇服务端带假人系统-无双

映月传奇沉默神器三职业传奇版本-极寒宝座-

上古问天无限刀速轻变传奇版本带假人功能-

大汉千年暗黑铭文复古沉默三职业传奇服务端

大闹西游剧情复古单职业-真龙秘境-地狱之门

灌水之王

活跃会员

突出贡献

优秀版主

荣誉管理

论坛元老