``` Unit MapEventNpc; Interface Uses Classes, SysUtils; //玩家进入地图前触发:Accept表示是否允许进入,默认为True Procedure Checkentermap(Npc: TNormNpc; Player: TPlayObject; SourceEnvir, DestEnvir: TEnvirnoment; Const SourceX, SourceY, DestX, DestY: Integer; Var Accept: Boolean); //玩家进入地图后触发 Procedure Entermap(Npc: TNormNpc; Player: TPlayObject; SourceEnvir, DestEnvir: TEnvirnoment; Const SourceX, SourceY, DestX, DestY: Integer); //删除通过Gamelib.AddMapRoute创建的地图入口时触发(非脚本调用删除才会触发): Procedure Deletemaproute(Npc: TNormNpc; Const RouteName: String); //副本被关闭 Envir为即将关闭的副本地图 Procedure Ondeleteduplicatesmap(Npc: TNormNpc; Envir: TEnvirnoment); Implementation Procedure Checkentermap(Npc: TNormNpc; Player: TPlayObject; SourceEnvir, DestEnvir: TEnvirnoment; Const SourceX, SourceY, DestX, DestY: Integer; Var Accept: Boolean); Begin End; Procedure Entermap(Npc: TNormNpc; Player: TPlayObject; SourceEnvir, DestEnvir: TEnvirnoment; Const SourceX, SourceY, DestX, DestY: Integer); Begin End; Procedure Deletemaproute(Npc: TNormNpc; Const RouteName: String); Begin End; Procedure Ondeleteduplicatesmap(Npc: TNormNpc; Envir: TEnvirnoment); Begin End; End. ```