type End_Game_Event is new Event with private;
type Game_Paused_Event is new Event with private;
type Game_State_Event is new Event with private;
type Game_Var_Changed_Event is new Event with private;
type Loading_Event is new Event with private;
type New_Game_Event is new Event with private;
type Pause_Game_Event is new Event with private;
type Player_Died_Event is new Event with private;
type Scroll_View_Event is new Event with private;
type View_Ready_Event is new Event with private;
type A_End_Game_Event is access all End_Game_Event'Class;
type A_Game_Paused_Event is access all Game_Paused_Event'Class;
type A_Game_State_Event is access all Game_State_Event'Class;
type A_Game_Var_Changed_Event is access all Game_Var_Changed_Event'Class;
type A_Loading_Event is access all Loading_Event'Class;
type A_New_Game_Event is access all New_Game_Event'Class;
type A_Pause_Game_Event is access all Pause_Game_Event'Class;
type A_Player_Died_Event is access all Player_Died_Event'Class;
type A_Scroll_View_Event is access all Scroll_View_Event'Class;
type A_View_Ready_Event is access all View_Ready_Event'Class;
END_GAME_ID : constant Event_Id := To_Event_Id( "End_Game" );
GAME_PAUSED_ID : constant Event_Id := To_Event_Id( "Game_Paused" );
GAME_STATE_ID : constant Event_Id := To_Event_Id( "Game_State" );
GAME_VAR_CHANGED_ID : constant Event_Id := To_Event_Id( "Game_Var_Changed" );
LOADING_ID : constant Event_Id := To_Event_Id( "Loading" );
NEW_GAME_ID : constant Event_Id := To_Event_Id( "New_Game" );
PAUSE_GAME_ID : constant Event_Id := To_Event_Id( "Pause_Game" );
PLAYER_DIED_ID : constant Event_Id := To_Event_Id( "Player_Died" );
SCROLL_VIEW_ID : constant Event_Id := To_Event_Id( "Scroll_View" );
VIEW_READY_ID : constant Event_Id := To_Event_Id( "View_Ready" );
function Is_Paused
( | this | : not null access Game_Paused_Event'Class ) return Boolean; |
function Is_Playing
( | this | : not null access Game_State_Event'Class ) return Boolean; |
function Get_Var
( | this | : not null access Game_Var_Changed_Event'Class ) return String; |
procedure Copy_Value
( | this | : access Game_Var_Changed_Event; |
val | : in out A_Value ); |
function Is_Loading
( | this | : not null access Loading_Event'Class ) return Boolean; |
function Is_Paused
( | this | : not null access Pause_Game_Event'Class ) return Boolean; |
function Get_X
( | this | : not null access Scroll_View_Event'Class ) return Float; |
function Get_Y
( | this | : not null access Scroll_View_Event'Class ) return Float; |
function Is_Ready
( | this | : not null access View_Ready_Event'Class ) return Boolean; |
procedure Queue_Game_Var_Changed
( | var | : String; |
val | : in out A_Value ); |