Index

Package: Keen

Description

package Tiles.Keen is

Classes

Keen_Tile

type Keen_Tile is new Tile_Object with private;

Ancestors:

Primitive operations:

Object_Input
Object_Output
Object_Read
Object_Write
Objects.To_String (Inherited)
Set_Attribute (overriding Tiles.Set_Attribute)
Tiles.Adjust (Inherited)
Tiles.Construct (Inherited)
Tiles.Delete (Inherited)
Tiles.Object_Input (Inherited)
Tiles.Object_Output (Inherited)
Tiles.Object_Read (Inherited)
Tiles.Object_Write (Inherited)
Tiles.Set_Id (Inherited)
Tiles.Set_Name (Inherited)

Types

Action_Type

type Action_Type is (NONE, HAZZARD, POLE, WATER, END_LEVEL, ENTER_LEVEL);
for Action_Type use ( 0 => NONE, 1 => HAZZARD, 2 => POLE, 3 => WATER, 4 => END_LEVEL, 5 => ENTER_LEVEL );

A_Keen_Tile

type A_Keen_Tile is access all Keen_Tile'Class;

Subprograms & Entries

>

function ">"
( l, r: Action_Type ) return Boolean;

Get_Action

function Get_Action
( this: access Keen_Tile ) return Action_Type;