Index

Package: Keen

Description

package Tiles.Keen is
Copyright (c) 2012 Kevin Wellwood All rights reserved. This source code is distributed under the Modified BSD License. For terms and conditions, see license.txt.

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: not null access Keen_Tile'Class ) return Action_Type;