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
//增加一个无限循环的时钟,需要使用ClearDelayGoto来停止时钟
Player.DelayGoto(100{时钟ID}, 60{执行时钟的间隔时间}, True{切换地图时时钟失效且被删除}, False{不是一个只执行一次的时钟});
Player.ClearDelayGoto(100);
//增加一个值使用一次的时钟,不需要手工清除
Player.DelayGoto(101{时钟ID}, 60{执行时钟的间隔时间}, False{切换地图时时钟不失效}, True{只执行一次});
//个人时钟执行时候调用TimeManageNpc单元的PrivyEventExecute函数，个人时钟移除时调用TimeManageNpc的PrivyEventRemove函数
end;
end.
时钟NPC执行代码：
unit TimeManageNpc;
inte**ce
uses Classes, SysUtils, DefiniensConst, Q38;
//个人的时钟事件
procedure PrivyEventExecute(Npc: TNormNpc; Player: TPlayObject; TimeID: Integer);
procedure PrivyEventRemove(Npc: TNormNpc; Player: TPlayObject; TimeID: Integer);
//全局的时钟事件
procedure GlobalEventExecute(Npc: TNormNpc; TimeID: Integer);
procedure GlobalEventRemove(Npc: TNormNpc; TimeID: Integer);
implementation
procedure PrivyEventExecute(Npc: TNormNpc; Player: TPlayObject; TimeID: Integer);
begin
case TimeID of
100: Player.Messagebox('100:时钟被执行');
101: Player.Messagebox('101:时钟被执行');
end;
end;
procedure PrivyEventRemove(Npc: TNormNpc; Player: TPlayObject; TimeID: Integer);
begin
case TimeID of
100: Player.Messagebox('100:时钟结束');
101: Player.Messagebox('101:时钟结束');
end;
end;
procedure GlobalEventExecute(Npc: TNormNpc; TimeID: Integer);
begin
//这个是全局时钟执行的地方
end;
procedure GlobalEventRemove(Npc: TNormNpc; TimeID: Integer);
begin
//这个是全局时钟结束
end;
end.
注：时钟需要配合TimeManageNpc使用 楼主太厉害了！楼主，I*老*虎*U！我觉得GM爱好者：www.gmahz.com真是个好地方 这个帖子不回对不起自己！我想我是一天也不能离开GM爱好者：www.gmahz.com 金币我要攒金币！！！ 努力赚币中。。。 感谢楼主的无私分享！要想GM爱好者：www.gmahz.com好 就靠你我他 其实我一直觉得楼主的品味不错！呵呵！GM爱好者：www.gmahz.com太棒了！ 楼主发贴辛苦了，谢谢楼主分享！我觉得GM爱好者：www.gmahz.com是注册对了！ 拿币走人。。。。
页:
[1]
2