64GM论坛 › 传奇技术教程 › 77M2引擎传奇如何增加和移除一个个人时钟事件的方法和说明

司徒1281 发表于 2023-8-14 22:05:01

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使用

漠北双刀 发表于 2023-11-20 18:20:42

比较全的传奇教程分享网站，站长辛苦了。

进化录混沌 发表于 2023-11-20 21:15:44

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

迷失沉默 发表于 2023-11-20 21:59:14

这东西我收了！

龙牌沉默 发表于 2023-11-21 02:45:12

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

硬汉归来 发表于 2023-11-21 08:29:29

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

血战火龙 发表于 2023-11-21 12:46:45

在这里可以学到很多传奇一条龙开区时遇到的问题。

风云合击 发表于 2023-11-21 16:39:25

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

金币传奇 发表于 2023-11-21 17:25:01

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

专属沉默 发表于 2023-11-21 20:24:02

这东西我收了！谢谢楼主！

查看完整版本: 77M2引擎传奇如何增加和移除一个个人时钟事件的方法和说明