type Keen_Tile is new Tile_Object with private;
type Action_Type is (NONE, HAZZARD, POLE, WATER, END_LEVEL, ENTER_LEVEL);
type A_Keen_Tile is access all Keen_Tile'Class;
function ">"
( | l, r | : Action_Type ) return Boolean; |
function Get_Action
( | this | : access Keen_Tile ) return Action_Type; |