package Games.Sessions is
type Game_Session is abstract new Object and Event_Listener and Game_State and Process with private;
type A_Game_Session is access all Game_Session'Class;
function Create_Game_Session
( | game | : not null A_Game ) return A_Game_Session; |
procedure Delete
( | this | : in out A_Game_Session ); |
procedure New_Game
( | this | : not null access Game_Session'Class ); |
procedure End_Game
( | this | : not null access Game_Session'Class; |
completed | : Boolean ); |
function Get_Var
( | this | : access Game_Session; |
name | : String ) return Value_Ptr; |
procedure Set_Var
( | this | : access Game_Session; |
name | : String; | |
value | : Value_Ptr'Class ); |
function Get_Process_Name
( | this | : access Game_Session ) return String; |
function Get_World
( | this | : not null access Game_Session'Class ) return A_World; |