晏乃欣 发表于 2025-7-22 20:37:17

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

82834568 发表于 2025-7-22 21:17:40

前排,哇咔咔

永战千年 发表于 2025-7-22 21:17:40

向楼主学习,不错的论坛

一念通天 发表于 2025-7-22 21:17:40

支持你哈...................................

鬼骨大陆 发表于 2025-7-22 21:17:40

鼎力支持!!正好需要此素材

勇者大陆 发表于 2025-7-22 23:19:05

顶起出售广告位

泡点合击 发表于 2025-7-23 00:44:50

LZ敢整点更有创意的不?兄弟们等着围观捏~

原味暗黑 发表于 2025-7-23 03:31:58

珍爱生命,果断回帖。

龙承之刃 发表于 2025-7-23 03:41:02

楼下的接上

帝之本源 发表于 2025-7-23 04:30:22

支持,楼下的跟上哈~
页: [1] 2 3 4
查看完整版本: 77M2引擎传奇如何增加和移除一个个人时钟事件的方法和说明