package Games.Keen is
private
type Keen_Game is new Game with
record
dialogId : Integer := Integer'First;
mapWorld : A_World;
playingMap : Boolean := True;
end record;
procedure Add_Event_Listeners( this : access Keen_Game );
procedure Delete( this : in out Keen_Game );
procedure End_Game( this : access Keen_Game; interrupted : Boolean );
procedure Handle_Event( this : access Keen_Game;
evt : in out A_Event;
resp : out Response_Type );
pragma Precondition( evt /= null );
procedure Handle_Load_World( this : access Keen_Game;
evt : not null A_Load_World_Event;
resp : out Response_Type );
procedure New_Game( this : access Keen_Game );
procedure Pause( this : access Keen_Game; enabled : Boolean );
procedure Remove_Event_Listeners( this : access Keen_Game );
end Games.Keen;