type Create_World_Event is new Event with private;
type Load_World_Event is new Event with private;
type World_Loaded_Event is new Event with private;
type Resize_World_Event is new Event with private;
type Set_Tile_Event is new Event with private;
type Set_World_Property_Event is new Event with private;
type Tile_Changed_Event is new Event with private;
type World_Modified_Event is new Event with private;
type World_Property_Changed_Event is new Event with private;
type A_Create_World_Event is access all Create_World_Event'Class;
type A_Load_World_Event is access all Load_World_Event'Class;
type A_World_Loaded_Event is access all World_Loaded_Event'Class;
type A_Resize_World_Event is access all Resize_World_Event'Class;
type A_Set_Tile_Event is access all Set_Tile_Event'Class;
type A_Set_World_Property_Event is access all Set_World_Property_Event'Class;
type A_Tile_Changed_Event is access all Tile_Changed_Event'Class;
type A_World_Modified_Event is access all World_Modified_Event'Class;
type A_World_Property_Changed_Event is access all World_Property_Changed_Event'Class;
CREATE_WORLD_ID : constant Event_Id := To_Event_Id( "Create_World" );
LOAD_WORLD_ID : constant Event_Id := To_Event_Id( "Load_World" );
WORLD_LOADED_ID : constant Event_Id := To_Event_Id( "World_Loaded" );
RESIZE_WORLD_ID : constant Event_Id := To_Event_Id( "Resize_World" );
SET_TILE_ID : constant Event_Id := To_Event_Id( "Set_Tile" );
SET_WORLD_PROPERTY_ID : constant Event_Id := To_Event_Id( "Set_World_Property" );
TILE_CHANGED_ID : constant Event_Id := To_Event_Id( "Tile_Changed" );
WORLD_MODIFIED_ID : constant Event_Id := To_Event_Id( "World_Modified" );
WORLD_PROPERTY_CHANGED_ID : constant Event_Id := To_Event_Id( "World_Property_Changed" );
function Get_Domain
( | this | : not null access Create_World_Event'Class ) return String; |
function Get_Height
( | this | : not null access Create_World_Event'Class ) return Positive; |
function Get_Library_Name
( | this | : not null access Create_World_Event'Class ) return String; |
function Get_Width
( | this | : not null access Create_World_Event'Class ) return Positive; |
function Get_Filename
( | this | : not null access Load_World_Event'Class ) return String; |
function Get_Height
( | this | : not null access World_Loaded_Event'Class ) return Positive; |
function Get_Layers
( | this | : not null access World_Loaded_Event'Class ) return A_Layer_Array; |
function Get_Library_Name
( | this | : not null access World_Loaded_Event'Class ) return String; |
function Get_Tile_Width
( | this | : not null access World_Loaded_Event'Class ) return Positive; |
function Get_Width
( | this | : not null access World_Loaded_Event'Class ) return Positive; |
function Get_Height
( | this | : not null access Resize_World_Event'Class ) return Positive; |
function Get_Width
( | this | : not null access Resize_World_Event'Class ) return Positive; |
function Get_Layer
( | this | : not null access Set_Tile_Event'Class ) return Integer; |
function Get_Tile_ID
( | this | : not null access Set_Tile_Event'Class ) return Natural; |
function Get_X
( | this | : not null access Set_Tile_Event'Class ) return Float; |
function Get_Y
( | this | : not null access Set_Tile_Event'Class ) return Float; |
function Get_Property_Name
( | this | : not null access Set_World_Property_Event'Class ) return String; |
function Get_Value
( | this | : not null access Set_World_Property_Event'Class ) return String; |
function Get_Layer
( | this | : not null access Tile_Changed_Event'Class ) return Integer; |
function Get_Tile_ID
( | this | : not null access Tile_Changed_Event'Class ) return Natural; |
function Get_X
( | this | : not null access Tile_Changed_Event'Class ) return Natural; |
function Get_Y
( | this | : not null access Tile_Changed_Event'Class ) return Natural; |
function Get_Property_Name
( | this | : not null access World_Property_Changed_Event'Class ) return String; |
function Get_Value
( | this | : not null access World_Property_Changed_Event'Class ) return String; |
procedure Queue_World_Loaded
( | width, height, tileWidth | : Positive; |
layers | : not null A_Layer_Array; | |
libName | : String ); |
procedure Queue_World_Modified;