论坛 › 『传奇技术』 › 91M2引擎如何显示一个进度条 77M2传奇私服开启进度条教程

◇逍遥◆MIR2◇ 发表于 2022-9-19 10:07:00

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.

chen1381861 发表于 2022-9-19 11:25:43

感恩无私的分享与奉献 :)

南飘中 发表于 2022-9-24 11:15:27

楼主加油，我们都看好你哦。

tuoeroo 发表于 2022-9-24 11:18:33

淡定，淡定，淡定……

anlxxu 发表于 2022-9-26 15:11:55

感恩无私的分享与奉献 :)

sxmnwk 发表于 2022-10-4 13:43:25

我只是路过打酱油的。

websky20110101 发表于 2022-10-6 00:53:52

强烈支持楼主ing……

lxb1101 发表于 2022-10-8 12:14:07

楼主加油，我们都看好你哦。

mabel7777 发表于 2022-10-11 01:04:42

楼主加油，我们都看好你哦。

295608944 发表于 2022-10-13 14:43:34

强烈支持楼主ing……

查看完整版本: 91M2引擎如何显示一个进度条 77M2传奇私服开启进度条教程