Index

Package: World

Description

package Events.World is

Classes

Create_World_Event

type Create_World_Event is new Event with private;

Ancestors:

Primitive operations:

Construct
Events.Construct (Inherited)
Events.To_String (Inherited)
Objects.Adjust (Inherited)
Objects.Construct (Inherited)
Objects.Delete (Inherited)
Objects.Object_Read (Inherited)
Objects.Object_Write (Inherited)

Load_World_Event

type Load_World_Event is new Event with private;

Ancestors:

Primitive operations:

Construct (overriding Events.Construct)
Objects.Adjust (Inherited)
Objects.Construct (Inherited)
Objects.Delete (Inherited)
Objects.Object_Read (Inherited)
Objects.Object_Write (Inherited)
To_String (overriding Events.To_String)

New_World_Event

type New_World_Event is new Event with private;

Ancestors:

Primitive operations:

Adjust (overriding Objects.Adjust)
Construct
Delete (overriding Objects.Delete)
Events.Construct (Inherited)
Events.To_String (Inherited)
Objects.Construct (Inherited)
Objects.Object_Read (Inherited)
Objects.Object_Write (Inherited)

Resize_World_Event

type Resize_World_Event is new Event with private;

Ancestors:

Primitive operations:

Construct
Events.Construct (Inherited)
Events.To_String (Inherited)
Objects.Adjust (Inherited)
Objects.Construct (Inherited)
Objects.Delete (Inherited)
Objects.Object_Read (Inherited)
Objects.Object_Write (Inherited)

Set_World_Property_Event

type Set_World_Property_Event is new Event with private;

Ancestors:

Primitive operations:

Construct
Events.Construct (Inherited)
Objects.Adjust (Inherited)
Objects.Construct (Inherited)
Objects.Delete (Inherited)
Objects.Object_Read (Inherited)
Objects.Object_Write (Inherited)
To_String (overriding Events.To_String)

Tile_Changed_Event

type Tile_Changed_Event is new Event with private;

Ancestors:

Primitive operations:

Construct
Events.Construct (Inherited)
Events.To_String (Inherited)
Objects.Adjust (Inherited)
Objects.Construct (Inherited)
Objects.Delete (Inherited)
Objects.Object_Read (Inherited)
Objects.Object_Write (Inherited)

World_Modified_Event

type World_Modified_Event is new Event with private;

Ancestors:

Primitive operations:

Events.Construct (Inherited)
Events.To_String (Inherited)
Objects.Adjust (Inherited)
Objects.Construct (Inherited)
Objects.Delete (Inherited)
Objects.Object_Read (Inherited)
Objects.Object_Write (Inherited)

World_Property_Changed_Event

type World_Property_Changed_Event is new Event with private;

Ancestors:

Primitive operations:

Construct
Events.Construct (Inherited)
Objects.Adjust (Inherited)
Objects.Construct (Inherited)
Objects.Delete (Inherited)
Objects.Object_Read (Inherited)
Objects.Object_Write (Inherited)
To_String (overriding Events.To_String)

Types

A_Create_World_Event

type A_Create_World_Event is access all Create_World_Event'Class;

A_Load_World_Event

type A_Load_World_Event is access all Load_World_Event'Class;

A_New_World_Event

type A_New_World_Event is access all New_World_Event'Class;

A_Resize_World_Event

type A_Resize_World_Event is access all Resize_World_Event'Class;

A_Set_World_Property_Event

type A_Set_World_Property_Event is access all Set_World_Property_Event'Class;

A_Tile_Changed_Event

type A_Tile_Changed_Event is access all Tile_Changed_Event'Class;

A_World_Modified_Event

type A_World_Modified_Event is access all World_Modified_Event'Class;

A_World_Property_Changed_Event

type A_World_Property_Changed_Event is access all World_Property_Changed_Event'Class;

Constants & Global variables

CREATE_WORLD_ID (Events.Event_Id)

CREATE_WORLD_ID : constant Event_Id := To_Event_Id( "Create_World" );

LOAD_WORLD_ID (Events.Event_Id)

LOAD_WORLD_ID : constant Event_Id := To_Event_Id( "Load_World" );

NEW_WORLD_ID (Events.Event_Id)

NEW_WORLD_ID : constant Event_Id := To_Event_Id( "New_World" );

RESIZE_WORLD_ID (Events.Event_Id)

RESIZE_WORLD_ID : constant Event_Id := To_Event_Id( "Resize_World" );

SET_WORLD_PROPERTY_ID (Events.Event_Id)

SET_WORLD_PROPERTY_ID : constant Event_Id := To_Event_Id( "Set_World_Property" );

TILE_CHANGED_ID (Events.Event_Id)

TILE_CHANGED_ID : constant Event_Id := To_Event_Id( "Tile_Changed" );

WORLD_MODIFIED_ID (Events.Event_Id)

WORLD_MODIFIED_ID : constant Event_Id := To_Event_Id( "World_Modified" );

WORLD_PROPERTY_CHANGED_ID (Events.Event_Id)

WORLD_PROPERTY_CHANGED_ID : constant Event_Id := To_Event_Id( "World_Property_Changed" );

Subprograms & Entries

Get_Domain

function Get_Domain
( this: not null access Create_World_Event'Class ) return String;

Get_Height

function Get_Height
( this: not null access Create_World_Event'Class ) return Positive;

Get_Library_Name

function Get_Library_Name
( this: not null access Create_World_Event'Class ) return String;

Get_Width

function Get_Width
( this: not null access Create_World_Event'Class ) return Positive;

Get_Filename

function Get_Filename
( this: not null access Load_World_Event'Class ) return String;

Get_Height

function Get_Height
( this: not null access New_World_Event'Class ) return Positive;

Get_Layers

function Get_Layers
( this: not null access New_World_Event'Class ) return A_Layer_Array;

Get_Library_Name

function Get_Library_Name
( this: not null access New_World_Event'Class ) return String;

Get_Tile_Width

function Get_Tile_Width
( this: not null access New_World_Event'Class ) return Positive;

Get_Width

function Get_Width
( this: not null access New_World_Event'Class ) return Positive;

Get_Height

function Get_Height
( this: not null access Resize_World_Event'Class ) return Positive;

Get_Width

function Get_Width
( this: not null access Resize_World_Event'Class ) return Positive;

Get_Property_Name

function Get_Property_Name
( this: not null access Set_World_Property_Event'Class ) return String;

Get_Value

function Get_Value
( this: not null access Set_World_Property_Event'Class ) return String;

Get_Layer

function Get_Layer
( this: not null access Tile_Changed_Event'Class ) return Integer;

Get_Tile_ID

function Get_Tile_ID
( this: not null access Tile_Changed_Event'Class ) return Natural;

Get_X

function Get_X
( this: not null access Tile_Changed_Event'Class ) return Natural;

Get_Y

function Get_Y
( this: not null access Tile_Changed_Event'Class ) return Natural;

Get_Property_Name

function Get_Property_Name
( this: not null access World_Property_Changed_Event'Class ) return String;

Get_Value

function Get_Value
( this: not null access World_Property_Changed_Event'Class ) return String;

Trigger_Create_World

procedure Trigger_Create_World
( width, height: Positive;
libName, domain: String );
create a new empty world; raises exception on failure

Queue_Load_World

procedure Queue_Load_World
( filename: String );
Load a world from disk asynchronously.

Trigger_Load_World

procedure Trigger_Load_World
( filename: String );
Load a world from disk synchronously. An exception is raised on error.

Queue_New_World

procedure Queue_New_World
( width, height, tileWidth: Positive;
layers: not null A_Layer_Array;
libName: String );
The new world data.

Trigger_Resize_World

procedure Trigger_Resize_World
( width, height: Positive );
Resizes the world. An exception is raised on failure. (ie: parameters rejected)

Queue_Set_World_Property

procedure Queue_Set_World_Property
( name, value: String );
Basic world properties: "filename" : the filename "music" : the background music track name "introduction" : the introduction text

Queue_Tile_Changed

procedure Queue_Tile_Changed
( layer: Integer;
x, y: Natural;
tile_id: Natural );

Queue_World_Modified

procedure Queue_World_Modified;

Queue_World_Property_Changed

procedure Queue_World_Property_Changed
( name, value: String );
Basic world properties: "filename" : the filename "music" : the background music track name "introduction" : the introduction text