Index

Package: Entities

Description

package Events.Entities is

Classes

Entities_Event (abstract)

type Entities_Event is abstract new Event with private;

Ancestors:

Immediate Children:

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)

Accelerate_Event

type Accelerate_Event is new Entity_Event with private;

Ancestors:

Primitive operations:

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

Delete_Entity_Event

type Delete_Entity_Event is new Entity_Event with private;

Ancestors:

Primitive operations:

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

Entities_Collided_Event

type Entities_Collided_Event is new Entities_Event with private;

Ancestors:

Primitive operations:

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

Entities_Separated_Event

type Entities_Separated_Event is new Entities_Event with private;

Ancestors:

Primitive operations:

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

Entity_Attribute_Event

type Entity_Attribute_Event is new Entity_Event with private;

Ancestors:

Immediate Children:

Primitive operations:

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

Entity_Attribute_Changed_Event

type Entity_Attribute_Changed_Event is new Entity_Attribute_Event with private;

Ancestors:

Primitive operations:

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

Entity_Created_Event

type Entity_Created_Event is new Entity_Event with private;

Ancestors:

Primitive operations:

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

Entity_Deleted_Event

type Entity_Deleted_Event is new Entity_Event with private;

Ancestors:

Primitive operations:

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

Entity_Tile_Event (abstract)

type Entity_Tile_Event is abstract new Entity_Event with private;

Ancestors:

Immediate Children:

Primitive operations:

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

Entity_Entered_Tile_Event

type Entity_Entered_Tile_Event is new Entity_Tile_Event with private;

Ancestors:

Primitive operations:

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

Entity_Exited_Tile_Event

type Entity_Exited_Tile_Event is new Entity_Tile_Event with private;

Ancestors:

Primitive operations:

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

Entity_Face_Event

type Entity_Face_Event is new Entity_Event with private;

Ancestors:

Primitive operations:

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

Entity_Grounded_Event

type Entity_Grounded_Event is new Entity_Event with private;

Ancestors:

Primitive operations:

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

Entity_Hit_Wall_Event

type Entity_Hit_Wall_Event is new Entity_Event with private;

Ancestors:

Primitive operations:

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

Entity_Moved_Event

type Entity_Moved_Event is new Entity_Event with private;

Ancestors:

Primitive operations:

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

Entity_Resized_Event

type Entity_Resized_Event is new Entity_Event with private;

Ancestors:

Primitive operations:

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

Follow_Entity_Event

type Follow_Entity_Event is new Entity_Event with private;

Ancestors:

Primitive operations:

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

Frame_Changed_Event

type Frame_Changed_Event is new Entity_Event with private;

Ancestors:

Primitive operations:

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

Impulse_Event

type Impulse_Event is new Entity_Event with private;

Ancestors:

Primitive operations:

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

Move_Entity_Event

type Move_Entity_Event is new Entity_Event with private;

Ancestors:

Primitive operations:

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

Resize_Entity_Event

type Resize_Entity_Event is new Entity_Event with private;

Ancestors:

Primitive operations:

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

Set_Entity_Attribute_Event

type Set_Entity_Attribute_Event is new Entity_Attribute_Event with private;

Ancestors:

Primitive operations:

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

Spawn_Entity_Event

type Spawn_Entity_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_Accelerate_Event

type A_Accelerate_Event is access all Accelerate_Event'Class;

A_Delete_Entity_Event

type A_Delete_Entity_Event is access all Delete_Entity_Event'Class;

A_Entities_Collided_Event

type A_Entities_Collided_Event is access all Entities_Collided_Event'Class;

A_Entities_Separated_Event

type A_Entities_Separated_Event is access all Entities_Separated_Event'Class;

A_Entity_Attribute_Changed_Event

type A_Entity_Attribute_Changed_Event is access all Entity_Attribute_Changed_Event;

A_Entity_Created_Event

type A_Entity_Created_Event is access all Entity_Created_Event'Class;

A_Entity_Deleted_Event

type A_Entity_Deleted_Event is access all Entity_Deleted_Event'Class;

A_Entity_Entered_Tile_Event

type A_Entity_Entered_Tile_Event is access all Entity_Entered_Tile_Event'Class;

A_Entity_Exited_Tile_Event

type A_Entity_Exited_Tile_Event is access all Entity_Exited_Tile_Event'Class;

A_Entity_Face_Event

type A_Entity_Face_Event is access all Entity_Face_Event'Class;

A_Entity_Grounded_Event

type A_Entity_Grounded_Event is access all Entity_Grounded_Event'Class;

A_Entity_Hit_Wall_Event

type A_Entity_Hit_Wall_Event is access all Entity_Hit_Wall_Event'Class;

A_Entity_Moved_Event

type A_Entity_Moved_Event is access all Entity_Moved_Event'Class;

A_Entity_Resized_Event

type A_Entity_Resized_Event is access all Entity_Resized_Event'Class;

A_Follow_Entity_Event

type A_Follow_Entity_Event is access all Follow_Entity_Event'Class;

A_Frame_Changed_Event

type A_Frame_Changed_Event is access all Frame_Changed_Event'Class;

A_Impulse_Event

type A_Impulse_Event is access all Impulse_Event'Class;

A_Move_Entity_Event

type A_Move_Entity_Event is access all Move_Entity_Event'Class;

A_Resize_Entity_Event

type A_Resize_Entity_Event is access all Resize_Entity_Event'Class;

A_Set_Entity_Attribute_Event

type A_Set_Entity_Attribute_Event is access all Set_Entity_Attribute_Event;

A_Spawn_Entity_Event

type A_Spawn_Entity_Event is access all Spawn_Entity_Event;

Constants & Global variables

ACCELERATE_ID (Events.Event_Id)

ACCELERATE_ID : constant Event_Id := To_Event_Id( "Accelerate" );

DELETE_ENTITY_ID (Events.Event_Id)

DELETE_ENTITY_ID : constant Event_Id := To_Event_Id( "Delete_Entity" );

ENTITIES_COLLIDED_ID (Events.Event_Id)

ENTITIES_COLLIDED_ID: constant Event_Id := To_Event_Id( "Entities_Collided" );

ENTITIES_SEPARATED_ID (Events.Event_Id)

ENTITIES_SEPARATED_ID: constant Event_Id := To_Event_Id( "Entities_Separated" );

ENTITY_ATTRIBUTE_CHANGED_ID (Events.Event_Id)

ENTITY_ATTRIBUTE_CHANGED_ID : constant Event_Id := To_Event_Id( "Entity_Attribute_Changed" );

ENTITY_CREATED_ID (Events.Event_Id)

ENTITY_CREATED_ID : constant Event_Id := To_Event_Id( "Entity_Created" );

ENTITY_DELETED_ID (Events.Event_Id)

ENTITY_DELETED_ID : constant Event_Id := To_Event_Id( "Entity_Deleted" );

ENTITY_ENTERED_TILE_ID (Events.Event_Id)

ENTITY_ENTERED_TILE_ID : constant Event_Id := To_Event_Id( "Entity_Entered_Tile" );

ENTITY_EXITED_TILE_ID (Events.Event_Id)

ENTITY_EXITED_TILE_ID : constant Event_Id := To_Event_Id( "Entity_Exited_Tile" );

ENTITY_FACE_ID (Events.Event_Id)

ENTITY_FACE_ID : constant Event_Id := To_Event_Id( "Entity_Face" );

ENTITY_GROUNDED_ID (Events.Event_Id)

ENTITY_GROUNDED_ID : constant Event_Id := To_Event_Id( "Entity_Grounded" );

ENTITY_HIT_WALL_ID (Events.Event_Id)

ENTITY_HIT_WALL_ID : constant Event_Id := To_Event_Id( "Entity_Hit_Wall" );

ENTITY_MOVED_ID (Events.Event_Id)

ENTITY_MOVED_ID : constant Event_Id := To_Event_Id( "Entity_Moved" );

ENTITY_RESIZED_ID (Events.Event_Id)

ENTITY_RESIZED_ID : constant Event_Id := To_Event_Id( "Entity_Resized" );

FOLLOW_ENTITY_ID (Events.Event_Id)

FOLLOW_ENTITY_ID : constant Event_Id := To_Event_Id( "Follow_Entity" );

FRAME_CHANGED_ID (Events.Event_Id)

FRAME_CHANGED_ID : constant Event_Id := To_Event_Id( "Frame_Changed" );

IMPULSE_ID (Events.Event_Id)

IMPULSE_ID : constant Event_Id := To_Event_Id( "Impulse" );

MOVE_ENTITY_ID (Events.Event_Id)

MOVE_ENTITY_ID : constant Event_Id := To_Event_Id( "Move_Entity" );

RESIZE_ENTITY_ID (Events.Event_Id)

RESIZE_ENTITY_ID : constant Event_Id := To_Event_Id( "Resize_Entity" );

SET_ENTITY_ATTRIBUTE_ID (Events.Event_Id)

SET_ENTITY_ATTRIBUTE_ID : constant Event_Id := To_Event_Id( "Set_Entity_Attribute" );

SPAWN_ENTITY_ID (Events.Event_Id)

SPAWN_ENTITY_ID : constant Event_Id := To_Event_Id( "Spawn_Entity" );

Subprograms & Entries

Get_Id

function Get_Id
( this: not null access Entity_Event'Class ) return Entity_Id;

Get_A

function Get_A
( this: not null access Entities_Event'Class ) return Entity_Id;

Get_B

function Get_B
( this: not null access Entities_Event'Class ) return Entity_Id;

Get_Acceleration

function Get_Acceleration
( this: not null access Accelerate_Event'Class ) return Float;

Get_Direction

function Get_Direction
( this: not null access Accelerate_Event'Class ) return Cardinal_Direction;

Get_Velocity

function Get_Velocity
( this: not null access Accelerate_Event'Class ) return Float;

Copy_Value

procedure Copy_Value
( this: access Entity_Attribute_Event;
val: in out A_Value );
Returns a copy of the attribute value. The caller is responsible for deleting the object.

Get_Attribute

function Get_Attribute
( this: access Entity_Attribute_Event ) return String;
Returns the attribute name.

Copy_Attributes

procedure Copy_Attributes
( this: not null access Entity_Created_Event'Class;
attributes: in out A_Association );

Get_Class

function Get_Class
( this: not null access Entity_Created_Event'Class ) return String;

Get_Frame

function Get_Frame
( this: not null access Entity_Created_Event'Class ) return Natural;

Get_Height

function Get_Height
( this: not null access Entity_Created_Event'Class ) return Natural;

Get_Lib_Name

function Get_Lib_Name
( this: not null access Entity_Created_Event'Class ) return String;

Get_Width

function Get_Width
( this: not null access Entity_Created_Event'Class ) return Natural;

Get_X

function Get_X
( this: not null access Entity_Created_Event'Class ) return Float;

Get_XV

function Get_XV
( this: not null access Entity_Created_Event'Class ) return Float;

Get_Y

function Get_Y
( this: not null access Entity_Created_Event'Class ) return Float;

Get_YV

function Get_YV
( this: not null access Entity_Created_Event'Class ) return Float;

Is_Clipped

function Is_Clipped
( this: not null access Entity_Created_Event'Class ) return Boolean;

Is_Metaphysical

function Is_Metaphysical
( this: not null access Entity_Created_Event'Class ) return Boolean;

Is_Physical

function Is_Physical
( this: not null access Entity_Created_Event'Class ) return Boolean;

Get_X

function Get_X
( this: not null access Entity_Tile_Event'Class ) return Natural;
Returns the X location in tile coordinates.

Get_Y

function Get_Y
( this: not null access Entity_Tile_Event'Class ) return Natural;
Returns the Y location in tile coordinates.

Get_Direction

function Get_Direction
( this: not null access Entity_Face_Event'Class ) return Direction_Type;

Is_Grounded

function Is_Grounded
( this: not null access Entity_Grounded_Event'Class ) return Boolean;

Get_Direction

function Get_Direction
( this: not null access Entity_Hit_Wall_Event'Class ) return Cardinal_Direction;

Get_X

function Get_X
( this: not null access Entity_Moved_Event'Class ) return Float;

Get_XV

function Get_XV
( this: not null access Entity_Moved_Event'Class ) return Float;

Get_Y

function Get_Y
( this: not null access Entity_Moved_Event'Class ) return Float;

Get_YV

function Get_YV
( this: not null access Entity_Moved_Event'Class ) return Float;

Get_Height

function Get_Height
( this: not null access Entity_Resized_Event'Class ) return Natural;

Get_Width

function Get_Width
( this: not null access Entity_Resized_Event'Class ) return Natural;

Get_Frame

function Get_Frame
( this: not null access Frame_Changed_Event'Class ) return Natural;

Get_Impulse_Name

function Get_Impulse_Name
( this: not null access Impulse_Event'Class ) return Hashed_String;

Get_X

function Get_X
( this: not null access Move_Entity_Event'Class ) return Float;

Get_Y

function Get_Y
( this: not null access Move_Entity_Event'Class ) return Float;

Get_Height

function Get_Height
( this: not null access Resize_Entity_Event'Class ) return Natural;

Get_Width

function Get_Width
( this: not null access Resize_Entity_Event'Class ) return Natural;

Get_Height

function Get_Height
( this: access Spawn_Entity_Event ) return Integer;

Get_Id

function Get_Id
( this: access Spawn_Entity_Event ) return String;

Get_Width

function Get_Width
( this: access Spawn_Entity_Event ) return Integer;

Get_X

function Get_X
( this: access Spawn_Entity_Event ) return Float;

Get_XV

function Get_XV
( this: access Spawn_Entity_Event ) return Float;

Get_Y

function Get_Y
( this: access Spawn_Entity_Event ) return Float;

Get_YV

function Get_YV
( this: access Spawn_Entity_Event ) return Float;

Queue_Accelerate

procedure Queue_Accelerate
( id: Entity_Id;
dir: Cardinal_Direction;
vel: Float;
acc: Float );

Queue_Delete_Entity

procedure Queue_Delete_Entity
( id: Entity_Id );

Queue_Entities_Collided

procedure Queue_Entities_Collided
( a, b: Entity_Id );

Queue_Entities_Separated

procedure Queue_Entities_Separated
( a, b: Entity_Id );

Queue_Entity_Attribute_Changed

procedure Queue_Entity_Attribute_Changed
( id: Entity_Id;
attribute: String;
val: in out A_Value );

Queue_Entity_Created

procedure Queue_Entity_Created
( id: Entity_Id;
class: String;
physical, metaphysical, clipped: Boolean;
width, height: Natural;
x, y: Float;
xv, yv: Float;
libName: String;
frame: Natural;
attributes: not null A_Association );
Argument 'attributes' is copied and unchanged.

Queue_Entity_Deleted

procedure Queue_Entity_Deleted
( id: Entity_Id );

Queue_Entity_Entered_Tile

procedure Queue_Entity_Entered_Tile
( id: Entity_Id;
x, y: Natural );

Queue_Entity_Exited_Tile

procedure Queue_Entity_Exited_Tile
( id: Entity_Id;
x, y: Natural );

Queue_Entity_Face

procedure Queue_Entity_Face
( id: Entity_Id;
dir: Direction_Type );

Queue_Entity_Grounded

procedure Queue_Entity_Grounded
( id: Entity_Id;
grounded: Boolean );

Queue_Entity_Hit_Wall

procedure Queue_Entity_Hit_Wall
( id: Entity_Id;
dir: Cardinal_Direction );

Queue_Entity_Moved

procedure Queue_Entity_Moved
( id: Entity_Id;
x, y, xv, yv: Float );

Queue_Entity_Resized

procedure Queue_Entity_Resized
( id: Entity_Id;
width, height: Natural );

Queue_Impulse

procedure Queue_Impulse
( id: Entity_Id;
name: Hashed_String );

Queue_Follow_Entity

procedure Queue_Follow_Entity
( id: Entity_Id );

Queue_Frame_Changed

procedure Queue_Frame_Changed
( id: Entity_Id;
frame: Natural );

Queue_Move_Entity

procedure Queue_Move_Entity
( id: Entity_Id;
x, y: Float );

Queue_Resize_Entity

procedure Queue_Resize_Entity
( id: Entity_Id;
width, height: Natural );

Queue_Set_Entity_Attribute

procedure Queue_Set_Entity_Attribute
( id: Entity_Id;
attribute: String;
val: in out A_Value );

Queue_Set_Entity_Attribute

procedure Queue_Set_Entity_Attribute
( id: Entity_Id;
attribute: String;
val: Boolean );

Queue_Spawn_Entity

procedure Queue_Spawn_Entity
( id: String;
x, y: Float;
width, height: Natural := 0;
xv, yv: Float := 0.0 );