diff options
Diffstat (limited to 'game.adb')
-rw-r--r-- | game.adb | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -12,6 +12,7 @@ use Ada.Containers; with Ada.Strings.Fixed; use Ada.Strings.Fixed; with Ada.Strings; with Ada.Exceptions; use Ada.Exceptions; +with Queue; procedure Game is DEVELOPMENT : constant Boolean := True; @@ -266,6 +267,9 @@ procedure Game is Items: Hashed_Map_Items.Map; end record; + package IVector2_Queue is new Queue(Item => IVector2); + use IVector2_Queue; + type Game_State is record Map: Map_Access := Null; Player: Player_State; @@ -282,6 +286,8 @@ procedure Game is Camera_Velocity: Vector2 := (x => 0.0, y => 0.0); Checkpoint: Checkpoint_State; + + Q: IVector2_Queue.Queue; Duration_Of_Last_Turn: Double; end record; |