type Game is abstract new Limited_Object and Event_Listener and Game_State and Process with private;
type A_Game is access all Game'Class;
function Create_Game return A_Game;
procedure Game_Var_Add
( | this | : not null access Game'Class; |
var | : String; | |
val | : Integer ); |
function Get_Game_Var
( | this | : access Game; |
var | : String ) return Integer; |
procedure Load_World
( | this | : access Game; |
name | : String ); |
procedure Set_View
( | this | : not null access Game'Class; |
view | : in out A_Game_View ); |
procedure Start
( | this | : access Game ); |
procedure Stop
( | this | : not null access Game'Class ); |