type Actor is abstract new Limited_Object with private;
type A_Actor is access all Actor'Class;
function Create_Actor
( | entityClass | : String ) return A_Actor; |
procedure Impulse
( | this | : access Actor; |
name | : Hashed_String ) is abstract; |
procedure Pause
( | this | : access Actor ) is null; |
function Is_Temporal
( | this | : access Actor ) return Boolean; |
procedure Set_Game
( | this | : not null access Actor'Class; |
game | : not null access Games.Game'Class ); |
procedure Initialize;