Basic Game logic

1 files changed, 32 insertions, 1 deletions

diff --git a/game.ads b/game.ads
index a58a59f..67247c8 100644
--- a/game.ads
+++ b/game.ads
@@ -1,8 +1,39 @@
+with Queue;
+
 package Game is
 
+	type T_Position is record
+		x: Natural;
+		y: Natural;
+	end record;
+
+	package P_Position_Queue is new Queue(T_Position);
+	use P_Position_Queue;
+
+	type T_Direction is (
+		DIRECTION_UP,
+		DIRECTION_DOWN,
+		DIRECTION_LEFT,
+		DIRECTION_RIGHT
+	);
+
 	type T_Game is record
-		null;
+		height:    Positive;
+		width:     Positive;
+		snake:     T_Queue;
+		direction: T_Direction;
+		food:      T_Position;
 	end record;
 
+	procedure Init(game: out T_Game;
+		           width: Positive;
+				   height: Positive);
+	function Next(game: in out T_Game) return Boolean;
+
+private
+
+	procedure Spawn_Food(game: in out T_Game);
+	function Next_Head(game: T_Game) return T_Position;
+	function In_Border(game: T_Game; pos: T_Position) return Boolean;
 
 end Game;