package Entities.Players is
type Player is abstract new Entity with private;
type A_Player is access all Player'Class;
procedure Die
( | this | : access Player ) is abstract; |
procedure Move_Start
( | this | : access Player; |
dir | : Cardinal_Direction ) is abstract; |
procedure Move_Stop
( | this | : access Player; |
dir | : Cardinal_Direction ) is abstract; |