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.

如宣湛

珍爱生命，果断回帖。

123332236

无论是不是沙发都得回复下

wt4815603

楼主呀，，，您太有才了。。。

恋雾—迷尘

锄禾日当午，发帖真辛苦。谁知坛中餐，帖帖皆辛苦！

何幸_

为保住菊花，这个一定得回复！

盛世德华

这么强,支持楼主，佩服

funlimit是南桥

顶起顶起顶起

ccddmmaa2

这么强,支持楼主，佩服

bohoasxs

锄禾日当午，发帖真辛苦。谁知坛中餐，帖帖皆辛苦！