Index

Package: Events.Game

Description

package Events.Game is

Classes

End_Game_Event

type End_Game_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)

References:

events-game.ads:9:10 (declaration)
events-game.adb:192:39 (reference)
events-game.ads:10:41 (reference)
events-game.ads:117:10 (full declaration)

Game_Paused_Event

type Game_Paused_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)

References:

events-game.ads:16:10 (declaration)
events-game.adb:7:40 (reference)
events-game.adb:15:48 (reference)
events-game.adb:23:39 (reference)
events-game.adb:201:42 (reference)
events-game.ads:17:44 (reference)
events-game.ads:21:48 (reference)
events-game.ads:121:10 (full declaration)
events-game.ads:126:40 (reference)
events-game.ads:128:39 (reference)

Game_State_Event

type Game_State_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)

References:

events-game.ads:25:10 (declaration)
events-game.adb:31:40 (reference)
events-game.adb:39:49 (reference)
events-game.adb:47:39 (reference)
events-game.adb:210:41 (reference)
events-game.ads:26:43 (reference)
events-game.ads:30:49 (reference)
events-game.ads:132:10 (full declaration)
events-game.ads:137:40 (reference)
events-game.ads:139:39 (reference)

Game_Var_Changed_Event

type Game_Var_Changed_Event is new Event with private;

Ancestors:

Primitive operations:

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

References:

events-game.ads:34:10 (declaration)
events-game.adb:55:37 (reference)
events-game.adb:65:40 (reference)
events-game.adb:78:41 (reference)
events-game.adb:87:37 (reference)
events-game.adb:95:46 (reference)
events-game.adb:103:39 (reference)
events-game.adb:220:47 (reference)
events-game.ads:35:49 (reference)
events-game.ads:39:46 (reference)
events-game.ads:41:41 (reference)
events-game.ads:143:10 (full declaration)
events-game.ads:149:37 (reference)
events-game.ads:151:40 (reference)
events-game.ads:157:37 (reference)
events-game.ads:159:39 (reference)

Loading_Event

type Loading_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)

References:

events-game.ads:47:10 (declaration)
events-game.adb:112:40 (reference)
events-game.adb:120:49 (reference)
events-game.adb:128:39 (reference)
events-game.adb:229:38 (reference)
events-game.ads:48:40 (reference)
events-game.ads:52:49 (reference)
events-game.ads:163:10 (full declaration)
events-game.ads:168:40 (reference)
events-game.ads:170:39 (reference)

New_Game_Event

type New_Game_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)

References:

events-game.ads:56:10 (declaration)
events-game.adb:238:39 (reference)
events-game.ads:57:41 (reference)
events-game.ads:174:10 (full declaration)

Pause_Game_Event

type Pause_Game_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)

References:

events-game.ads:63:10 (declaration)
events-game.adb:136:40 (reference)
events-game.adb:144:48 (reference)
events-game.adb:247:41 (reference)
events-game.ads:64:43 (reference)
events-game.ads:68:48 (reference)
events-game.ads:178:10 (full declaration)
events-game.ads:183:40 (reference)

Scroll_View_Event

type Scroll_View_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)

References:

events-game.ads:72:10 (declaration)
events-game.adb:152:40 (reference)
events-game.adb:161:44 (reference)
events-game.adb:168:44 (reference)
events-game.adb:256:42 (reference)
events-game.ads:73:44 (reference)
events-game.ads:78:44 (reference)
events-game.ads:81:44 (reference)
events-game.ads:187:10 (full declaration)
events-game.ads:192:40 (reference)

View_Ready_Event

type View_Ready_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)

References:

events-game.ads:85:10 (declaration)
events-game.adb:176:40 (reference)
events-game.adb:184:47 (reference)
events-game.adb:265:41 (reference)
events-game.ads:86:43 (reference)
events-game.ads:90:47 (reference)
events-game.ads:196:10 (full declaration)
events-game.ads:201:40 (reference)

Types

A_End_Game_Event

type A_End_Game_Event is access all End_Game_Event'Class;

References:

events-game.ads:10:10 (declaration)
events-game.adb:192:15 (reference)

A_Game_Paused_Event

type A_Game_Paused_Event is access all Game_Paused_Event'Class;

References:

events-game.ads:17:10 (declaration)
events-game.adb:201:15 (reference)
game_views.adb:165:31 (reference)
game_views.adb:166:32 (reference)

A_Game_State_Event

type A_Game_State_Event is access all Game_State_Event'Class;

References:

events-game.ads:26:10 (declaration)
events-game.adb:210:15 (reference)
game_views-keen.adb:149:39 (reference)
game_views-keen.adb:277:30 (reference)
game_views-keen.ads:52:39 (reference)

A_Game_Var_Changed_Event

type A_Game_Var_Changed_Event is access all Game_Var_Changed_Event'Class;

References:

events-game.ads:35:10 (declaration)
events-game.adb:220:15 (reference)
game_views-keen.adb:177:39 (reference)
game_views-keen.adb:262:30 (reference)
game_views-keen.ads:55:39 (reference)

A_Loading_Event

type A_Loading_Event is access all Loading_Event'Class;

References:

events-game.ads:48:10 (declaration)
events-game.adb:229:15 (reference)
game_views.adb:171:47 (reference)

A_New_Game_Event

type A_New_Game_Event is access all New_Game_Event'Class;

References:

events-game.ads:57:10 (declaration)
events-game.adb:238:15 (reference)

A_Pause_Game_Event

type A_Pause_Game_Event is access all Pause_Game_Event'Class;

References:

events-game.ads:64:10 (declaration)
events-game.adb:247:15 (reference)
games.adb:150:44 (reference)
games.adb:177:23 (reference)

A_Scroll_View_Event

type A_Scroll_View_Event is access all Scroll_View_Event'Class;

References:

events-game.ads:73:10 (declaration)
events-game.adb:256:15 (reference)
game_views-keen.adb:219:39 (reference)
game_views-keen.adb:268:30 (reference)
game_views-keen.ads:58:39 (reference)

A_View_Ready_Event

type A_View_Ready_Event is access all View_Ready_Event'Class;

References:

events-game.ads:86:10 (declaration)
events-game.adb:265:15 (reference)
games.adb:159:49 (reference)
games.adb:179:28 (reference)

Constants & Global variables

END_GAME_ID (Events.Event_Id)

END_GAME_ID : constant Event_Id := To_Event_Id( "End_Game" );

References:

events-game.ads:12:5 (declaration)
games.adb:170:25 (reference)

GAME_PAUSED_ID (Events.Event_Id)

GAME_PAUSED_ID : constant Event_Id := To_Event_Id( "Game_Paused" );

References:

events-game.ads:19:5 (declaration)
game_views.adb:164:20 (reference)

GAME_STATE_ID (Events.Event_Id)

GAME_STATE_ID : constant Event_Id := To_Event_Id( "Game_State" );

References:

events-game.ads:28:5 (declaration)
game_views-keen.adb:276:32 (reference)

GAME_VAR_CHANGED_ID (Events.Event_Id)

GAME_VAR_CHANGED_ID : constant Event_Id := To_Event_Id( "Game_Var_Changed" );

References:

events-game.ads:37:5 (declaration)
game_views-keen.adb:261:29 (reference)

LOADING_ID (Events.Event_Id)

LOADING_ID : constant Event_Id := To_Event_Id( "Loading" );

References:

events-game.ads:50:5 (declaration)
game_views.adb:170:20 (reference)

NEW_GAME_ID (Events.Event_Id)

NEW_GAME_ID : constant Event_Id := To_Event_Id( "New_Game" );

References:

events-game.ads:59:5 (declaration)
games.adb:174:28 (reference)

PAUSE_GAME_ID (Events.Event_Id)

PAUSE_GAME_ID : constant Event_Id := To_Event_Id( "Pause_Game" );

References:

events-game.ads:66:5 (declaration)
games.adb:176:28 (reference)

SCROLL_VIEW_ID (Events.Event_Id)

SCROLL_VIEW_ID : constant Event_Id := To_Event_Id( "Scroll_View" );

References:

events-game.ads:75:5 (declaration)
game_views-keen.adb:267:32 (reference)

VIEW_READY_ID (Events.Event_Id)

VIEW_READY_ID : constant Event_Id := To_Event_Id( "View_Ready" );

References:

events-game.ads:88:5 (declaration)
games.adb:178:28 (reference)

Subprograms & Entries

Is_Paused

function Is_Paused
( this: not null access Game_Paused_Event'Class )
return Boolean;

References:

events-game.ads:21:14 (declaration)
events-game.adb:15:14 (body)
events-game.adb:18:9 (label)
game_views.adb:165:56 (reference)
game_views.adb:166:57 (reference)

Called by:

Game_Views.Handle_Event defined at game_views.ads:120:15
Game_Views.Handle_Event defined at game_views.ads:120:15

Is_Playing

function Is_Playing
( this: not null access Game_State_Event'Class )
return Boolean;

References:

events-game.ads:30:14 (declaration)
events-game.adb:39:14 (body)
events-game.adb:42:9 (label)
game_views-keen.adb:151:16 (reference)

Called by:

Game_Views.Keen.Handle defined at game_views-keen.ads:51:15

Get_Var

function Get_Var
( this: not null access Game_Var_Changed_Event'Class )
return String;

References:

events-game.ads:39:14 (declaration)
events-game.adb:95:14 (body)
events-game.adb:98:9 (label)
game_views-keen.adb:178:48 (reference)

Called by:

Game_Views.Keen.Handle defined at game_views-keen.ads:54:15

Calls:

To_String defined at a-strunb.ads:65:13

Copy_Value

procedure Copy_Value
( this: access Game_Var_Changed_Event;
val: in out A_Value );

References:

events-game.ads:41:15 (declaration)
events-game.adb:78:15 (body)
events-game.adb:82:9 (label)
game_views-keen.adb:181:13 (dispatching call)

Called by:

Game_Views.Keen.Handle defined at game_views-keen.ads:54:15

Calls:

Values.Copy defined at values.ads:32:14

Is_Loading

function Is_Loading
( this: not null access Loading_Event'Class )
return Boolean;

References:

events-game.ads:52:14 (declaration)
events-game.adb:120:14 (body)
events-game.adb:123:9 (label)
game_views.adb:171:68 (reference)

Called by:

Game_Views.Handle_Event defined at game_views.ads:120:15

Is_Paused

function Is_Paused
( this: not null access Pause_Game_Event'Class )
return Boolean;

References:

events-game.ads:68:14 (declaration)
events-game.adb:144:14 (body)
events-game.adb:147:9 (label)
games.adb:152:20 (reference)

Called by:

Games.Handle_Event.Do_Pause defined at games.adb:150:19

Get_X

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

References:

events-game.ads:78:14 (declaration)
events-game.adb:161:14 (body)
events-game.adb:164:9 (label)
game_views-keen.adb:221:57 (reference)

Called by:

Game_Views.Keen.Handle defined at game_views-keen.ads:57:15
Amount to scroll view in the X axis in world coordinates.

Get_Y

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

References:

events-game.ads:81:14 (declaration)
events-game.adb:168:14 (body)
events-game.adb:171:9 (label)
game_views-keen.adb:221:68 (reference)

Called by:

Game_Views.Keen.Handle defined at game_views-keen.ads:57:15
Amount to scroll view in the Y axis in world coordinates.

Is_Ready

function Is_Ready
( this: not null access View_Ready_Event'Class )
return Boolean;

References:

events-game.ads:90:14 (declaration)
events-game.adb:184:14 (body)
events-game.adb:187:9 (label)
games.adb:161:20 (reference)

Called by:

Games.Handle_Event.Do_View_Ready defined at games.adb:159:19

Queue_End_Game

procedure Queue_End_Game;

References:

events-game.ads:94:15 (declaration)
events-game.adb:191:15 (body)
events-game.adb:196:9 (label)
game_views-keen.adb:360:13 (reference)
entities-players-keen.adb:1124:21 (reference)

Called by:

Entities.Players.Keen.Tick defined at entities-players-keen.ads:110:15
Game_Views.Keen.Action_New_Game defined at game_views-keen.ads:103:15

Calls:

Events.Construct defined at events.ads:81:15
Events.Manager.Queue_Event defined at events-manager.ads:7:15

Queue_Game_Paused

procedure Queue_Game_Paused
( paused: Boolean );

References:

events-game.ads:96:15 (declaration)
events-game.adb:200:15 (body)
events-game.adb:205:9 (label)
games.adb:226:13 (reference)

Called by:

Games.Pause defined at games.ads:105:15

Queue_Game_State

procedure Queue_Game_State
( playing: Boolean );

References:

events-game.ads:98:15 (declaration)
events-game.adb:209:15 (body)
events-game.adb:214:9 (label)
games.adb:91:13 (reference)
games.adb:206:13 (reference)

Called by:

Games.End_Game defined at games.ads:82:15
Games.New_Game defined at games.ads:100:15

Queue_Game_Var_Changed

procedure Queue_Game_Var_Changed
( var: String;
val: in out A_Value );

References:

events-game.ads:100:15 (declaration)
events-game.adb:218:15 (body)
events-game.adb:224:9 (label)
games.adb:107:9 (reference)
games.adb:238:9 (reference)
games.adb:249:9 (reference)

Called by:

Games.Game_Var_Add defined at games.ads:86:15
Games.Set_Game_Var defined at games.ads:114:15
Games.Set_Game_Var defined at games.ads:109:15

Queue_Loading

procedure Queue_Loading
( loading: Boolean );

References:

events-game.ads:105:15 (declaration)
events-game.adb:228:15 (body)
events-game.adb:233:9 (label)
resources.adb:72:17 (reference)
resources.adb:83:21 (reference)

Called by:

Resources.Decrement defined at resources.adb:59:19
Resources.Increment defined at resources.adb:58:19

Queue_New_Game

procedure Queue_New_Game;

References:

events-game.ads:107:15 (declaration)
events-game.adb:237:15 (body)
events-game.adb:242:9 (label)
game_views-keen.adb:362:9 (reference)

Called by:

Game_Views.Keen.Action_New_Game defined at game_views-keen.ads:103:15

Calls:

Events.Construct defined at events.ads:81:15
Events.Manager.Queue_Event defined at events-manager.ads:7:15

Queue_Pause_Game

procedure Queue_Pause_Game
( paused: Boolean );

References:

events-game.ads:109:15 (declaration)
events-game.adb:246:15 (body)
events-game.adb:251:9 (label)
widgets-containers-panels-dialogs.adb:119:13 (reference)
widgets-containers-panels-dialogs.adb:129:9 (reference)
game_views-keen.adb:416:21 (reference)

Queue_Scroll_View

procedure Queue_Scroll_View
( x, y: Float );

References:

events-game.ads:111:15 (declaration)
events-game.adb:255:15 (body)
events-game.adb:260:9 (label)
entities-players-keen.adb:1046:21 (reference)

Called by:

Entities.Players.Keen.Tick defined at entities-players-keen.ads:110:15

Queue_View_Ready

procedure Queue_View_Ready
( ready: Boolean );

References:

events-game.ads:113:15 (declaration)
events-game.adb:264:15 (body)
events-game.adb:269:9 (label)
game_views-keen.adb:598:9 (reference)

Called by:

Game_Views.Keen.Ready_To_Play defined at game_views-keen.ads:141:15