summaryrefslogtreecommitdiff
path: root/game.adb
diff options
context:
space:
mode:
Diffstat (limited to 'game.adb')
-rw-r--r--game.adb6
1 files changed, 6 insertions, 0 deletions
diff --git a/game.adb b/game.adb
index 22890c0..7dbe7f0 100644
--- a/game.adb
+++ b/game.adb
@@ -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;