From d63c8db9509988b8ba1abb770844ed68a09fba44 Mon Sep 17 00:00:00 2001
From: rexim <reximkut@gmail.com>
Date: Sat, 23 Mar 2024 06:59:33 +0700
Subject: Initialize Eye Angles of Eepers

---
 game.adb | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

(limited to 'game.adb')

diff --git a/game.adb b/game.adb
index 838a695..e8ab00a 100644
--- a/game.adb
+++ b/game.adb
@@ -487,53 +487,61 @@ procedure Game is
 
     procedure Spawn_Gnome(Game: in out Game_State; Position: IVector2) is
         Gnome: Eeper_State renames Game.Eepers(Allocate_Eeper(Game));
+        Size: constant IVector2 := (1, 1);
     begin
         Gnome.Kind := Eeper_Gnome;
         Gnome.Prev_Eyes := Eyes_Closed;
         Gnome.Eyes := Eyes_Closed;
+        Gnome.Eyes_Target := Position + (Size.X/2, Size.Y);
         Gnome.Background := COLOR_GNOME;
         Gnome.Position := Position;
         Gnome.Prev_Position := Position;
-        Gnome.Size := (1, 1);
+        Gnome.Size := Size;
     end;
 
     procedure Spawn_Father(Game: in out Game_State; Position: IVector2) is
         Father: Eeper_State renames Game.Eepers(Allocate_Eeper(Game));
+        Size: constant IVector2 := (7, 7);
     begin
         Father.Kind := Eeper_Father;
         Father.Prev_Eyes := Eyes_Closed;
         Father.Eyes := Eyes_Closed;
         Father.Eyes_Angle := Pi*0.5;
+        Father.Eyes_Target := Position + (Size.X/2, Size.Y);
         Father.Background := COLOR_FATHER;
         Father.Position := Position;
         Father.Prev_Position := Position;
-        Father.Size := (7, 7);
+        Father.Size := Size;
     end;
 
     procedure Spawn_Mother(Game: in out Game_State; Position: IVector2) is
         Mother: Eeper_State renames Game.Eepers(Allocate_Eeper(Game));
+        Size: constant IVector2 := (7, 7);
     begin
         Mother.Kind := Eeper_Mother;
         Mother.Prev_Eyes := Eyes_Closed;
         Mother.Eyes := Eyes_Closed;
+        Mother.Eyes_Target := Position + (Size.X/2, Size.Y);
         Mother.Background := COLOR_MOTHER;
         Mother.Position := Position;
         Mother.Prev_Position := Position;
         Mother.Health := 1.0;
-        Mother.Size := (7, 7);
+        Mother.Size := Size;
     end;
 
     procedure Spawn_Guard(Game: in out Game_State; Position: IVector2) is
         Guard: Eeper_State renames Game.Eepers(Allocate_Eeper(Game));
+        Size: constant IVector2 := (3, 3);
     begin
         Guard.Kind := Eeper_Guard;
         Guard.Prev_Eyes := Eyes_Closed;
         Guard.Eyes := Eyes_Closed;
+        Guard.Eyes_Target := Position + (Size.X/2, Size.Y);
         Guard.Background := COLOR_GUARD;
         Guard.Position := Position;
         Guard.Prev_Position := Position;
         Guard.Health := 1.0;
-        Guard.Size := (3, 3);
+        Guard.Size := Size;
         Guard.Attack_Cooldown := GUARD_ATTACK_COOLDOWN;
     end;
 
@@ -1454,7 +1462,6 @@ begin
     Close_Window;
 end;
 
---  TODO: Initialize Eye Angles of Eepers
 --  TODO: Eyes for the Player.
 --  TODO: Eyes of Father changing as the Player gets closer:
 --    - Happy (very important to indicate that he's not hostile)
-- 
cgit v1.2.3