``` Unit TimeManageNpc; Interface 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 End; Procedure Privyeventremove(Npc: TNormNpc; Player: TPlayObject; TimeID: Integer); Begin End; Procedure Globaleventexecute(Npc: TNormNpc; TimeID: Integer); Begin End; Procedure Globaleventremove(Npc: TNormNpc; TimeID: Integer); Begin End; End. ```