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