summaryrefslogtreecommitdiff
path: root/game.adb
diff options
context:
space:
mode:
Diffstat (limited to 'game.adb')
-rw-r--r--game.adb304
1 files changed, 152 insertions, 152 deletions
diff --git a/game.adb b/game.adb
index 4413ff9..d8b87a2 100644
--- a/game.adb
+++ b/game.adb
@@ -251,10 +251,10 @@ procedure Game is
]
];
- type Boss_Kind is (Guard, Urmom, Gnome, Final);
+ type Eeper_Kind is (Eeper_Guard, Eeper_Urmom, Eeper_Gnome, Eeper_Final);
- type Boss_State is record
- Kind: Boss_Kind;
+ type Eeper_State is record
+ Kind: Eeper_Kind;
Dead: Boolean := True;
Position, Prev_Position: IVector2;
Prev_Eyes: Eyes_Kind;
@@ -274,8 +274,8 @@ procedure Game is
type Bomb_State_Array is array (1..10) of Bomb_State;
- type Boss_Index is range 1..10;
- type Boss_Array is array (Boss_Index) of Boss_State;
+ type Eeper_Index is range 1..10;
+ type Eeper_Array is array (Eeper_Index) of Eeper_State;
type Checkpoint_State is record
Map: Map_Access := Null;
@@ -283,14 +283,14 @@ procedure Game is
Player_Keys: Integer;
Player_Bombs: Integer;
Player_Bomb_Slots: Integer;
- Bosses: Boss_Array;
+ Eepers: Eeper_Array;
Items: Hashed_Map_Items.Map;
end record;
type Game_State is record
Map: Map_Access := Null;
Player: Player_State;
- Bosses: Boss_Array;
+ Eepers: Eeper_Array;
Turn_Animation: Float := 0.0;
@@ -330,8 +330,8 @@ procedure Game is
return Start <= Point and then Point < Start + Size;
end;
- function Boss_Can_Stand_Here(Game: Game_State; Start: IVector2; Me: Boss_Index) return Boolean is
- Size: constant IVector2 := Game.Bosses(Me).Size;
+ function Eeper_Can_Stand_Here(Game: Game_State; Start: IVector2; Me: Eeper_Index) return Boolean is
+ Size: constant IVector2 := Game.Eepers(Me).Size;
begin
for X in Start.X..Start.X+Size.X-1 loop
for Y in Start.Y..Start.Y+Size.Y-1 loop
@@ -341,12 +341,12 @@ procedure Game is
if Game.Map(Y, X) /= Floor then
return False;
end if;
- for Index in Boss_Index loop
- if not Game.Bosses(Index).Dead and then Index /= Me then
+ for Index in Eeper_Index loop
+ if not Game.Eepers(Index).Dead and then Index /= Me then
declare
- Boss : constant Boss_State := Game.Bosses(Index);
+ Eeper : constant Eeper_State := Game.Eepers(Index);
begin
- if Inside_Of_Rect(Boss.Position, Boss.Size, (X, Y)) then
+ if Inside_Of_Rect(Eeper.Position, Eeper.Size, (X, Y)) then
return False;
end if;
end;
@@ -360,28 +360,28 @@ procedure Game is
package Queue is new
Ada.Containers.Vectors(Index_Type => Natural, Element_Type => IVector2);
- procedure Recompute_Path_For_Boss
+ procedure Recompute_Path_For_Eeper
(Game: in out Game_State;
- Me: Boss_Index;
+ Me: Eeper_Index;
Steps_Limit: Integer;
Step_Length_Limit: Integer;
Stop_At_Me: Boolean := True)
is
Q: Queue.Vector;
begin
- for Y in Game.Bosses(Me).Path'Range(1) loop
- for X in Game.Bosses(Me).Path'Range(2) loop
- Game.Bosses(Me).Path(Y, X) := -1;
+ for Y in Game.Eepers(Me).Path'Range(1) loop
+ for X in Game.Eepers(Me).Path'Range(2) loop
+ Game.Eepers(Me).Path(Y, X) := -1;
end loop;
end loop;
- for Dy in 0..Game.Bosses(Me).Size.Y-1 loop
- for Dx in 0..Game.Bosses(Me).Size.X-1 loop
+ for Dy in 0..Game.Eepers(Me).Size.Y-1 loop
+ for Dx in 0..Game.Eepers(Me).Size.X-1 loop
declare
Position: constant IVector2 := Game.Player.Position - (Dx, Dy);
begin
- if Boss_Can_Stand_Here(Game, Position, Me) then
- Game.Bosses(Me).Path(Position.Y, Position.X) := 0;
+ if Eeper_Can_Stand_Here(Game, Position, Me) then
+ Game.Eepers(Me).Path(Position.Y, Position.X) := 0;
Q.Append(Position);
end if;
end;
@@ -394,11 +394,11 @@ procedure Game is
begin
Q.Delete_First;
- if Stop_At_Me and then Position = Game.Bosses(Me).Position then
+ if Stop_At_Me and then Position = Game.Eepers(Me).Position then
exit;
end if;
- if Game.Bosses(Me).Path(Position.Y, Position.X) >= Steps_Limit then
+ if Game.Eepers(Me).Path(Position.Y, Position.X) >= Steps_Limit then
exit;
end if;
@@ -407,13 +407,13 @@ procedure Game is
New_Position: IVector2 := Position + Direction_Vector(Dir);
begin
for Limit in 1..Step_Length_Limit loop
- if not Boss_Can_Stand_Here(Game, New_Position, Me) then
+ if not Eeper_Can_Stand_Here(Game, New_Position, Me) then
exit;
end if;
- if Game.Bosses(Me).Path(New_Position.Y, New_Position.X) >= 0 then
+ if Game.Eepers(Me).Path(New_Position.Y, New_Position.X) >= 0 then
exit;
end if;
- Game.Bosses(Me).Path(New_Position.Y, New_Position.X) := Game.Bosses(Me).Path(Position.Y, Position.X) + 1;
+ Game.Eepers(Me).Path(New_Position.Y, New_Position.X) := Game.Eepers(Me).Path(Position.Y, Position.X) + 1;
Q.Append(New_Position);
New_Position := New_Position + Direction_Vector(Dir);
end loop;
@@ -433,7 +433,7 @@ procedure Game is
Game.Checkpoint.Player_Keys := Game.Player.Keys;
Game.Checkpoint.Player_Bombs := Game.Player.Bombs;
Game.Checkpoint.Player_Bomb_Slots := Game.Player.Bomb_Slots;
- Game.Checkpoint.Bosses := Game.Bosses;
+ Game.Checkpoint.Eepers := Game.Eepers;
Game.Checkpoint.Items := Game.Items;
end;
@@ -447,20 +447,20 @@ procedure Game is
Game.Player.Keys := Game.Checkpoint.Player_Keys;
Game.Player.Bombs := Game.Checkpoint.Player_Bombs;
Game.Player.Bomb_Slots := Game.Checkpoint.Player_Bomb_Slots;
- Game.Bosses := Game.Checkpoint.Bosses;
+ Game.Eepers := Game.Checkpoint.Eepers;
Game.Items := Game.Checkpoint.Items;
end;
procedure Spawn_Gnome(Game: in out Game_State; Position: IVector2) is
begin
- for Boss of Game.Bosses loop
- if Boss.Dead then
- Boss.Kind := Gnome;
- Boss.Dead := False;
- Boss.Background := COLOR_GNOME;
- Boss.Position := Position;
- Boss.Prev_Position := Position;
- Boss.Size := (1, 1);
+ for Eeper of Game.Eepers loop
+ if Eeper.Dead then
+ Eeper.Kind := Eeper_Gnome;
+ Eeper.Dead := False;
+ Eeper.Background := COLOR_GNOME;
+ Eeper.Position := Position;
+ Eeper.Prev_Position := Position;
+ Eeper.Size := (1, 1);
exit;
end if;
end loop;
@@ -468,15 +468,15 @@ procedure Game is
procedure Spawn_Final(Game: in out Game_State; Position: IVector2) is
begin
- for Boss of Game.Bosses loop
- if Boss.Dead then
- Boss.Kind := Final;
- Boss.Dead := False;
- Boss.Background := COLOR_FINAL;
- Boss.Position := Position;
- Boss.Prev_Position := Position;
- Boss.Health := 1.0;
- Boss.Size := (7, 7);
+ for Eeper of Game.Eepers loop
+ if Eeper.Dead then
+ Eeper.Kind := Eeper_Final;
+ Eeper.Dead := False;
+ Eeper.Background := COLOR_FINAL;
+ Eeper.Position := Position;
+ Eeper.Prev_Position := Position;
+ Eeper.Health := 1.0;
+ Eeper.Size := (7, 7);
exit;
end if;
end loop;
@@ -485,15 +485,15 @@ procedure Game is
procedure Spawn_Urmom(Game: in out Game_State; Position: IVector2) is
begin
- for Boss of Game.Bosses loop
- if Boss.Dead then
- Boss.Kind := Urmom;
- Boss.Dead := False;
- Boss.Background := COLOR_URMOM;
- Boss.Position := Position;
- Boss.Prev_Position := Position;
- Boss.Health := 1.0;
- Boss.Size := (7, 7);
+ for Eeper of Game.Eepers loop
+ if Eeper.Dead then
+ Eeper.Kind := Eeper_Urmom;
+ Eeper.Dead := False;
+ Eeper.Background := COLOR_URMOM;
+ Eeper.Position := Position;
+ Eeper.Prev_Position := Position;
+ Eeper.Health := 1.0;
+ Eeper.Size := (7, 7);
exit;
end if;
end loop;
@@ -501,16 +501,16 @@ procedure Game is
procedure Spawn_Guard(Game: in out Game_State; Position: IVector2) is
begin
- for Boss of Game.Bosses loop
- if Boss.Dead then
- Boss.Kind := Guard;
- Boss.Background := COLOR_GUARD;
- Boss.Dead := False;
- Boss.Position := Position;
- Boss.Prev_Position := Position;
- Boss.Health := 1.0;
- Boss.Size := (3, 3);
- Boss.Attack_Cooldown := GUARD_ATTACK_COOLDOWN;
+ for Eeper of Game.Eepers loop
+ if Eeper.Dead then
+ Eeper.Kind := Eeper_Guard;
+ Eeper.Background := COLOR_GUARD;
+ Eeper.Dead := False;
+ Eeper.Position := Position;
+ Eeper.Prev_Position := Position;
+ Eeper.Health := 1.0;
+ Eeper.Size := (3, 3);
+ Eeper.Attack_Cooldown := GUARD_ATTACK_COOLDOWN;
exit;
end if;
end loop;
@@ -576,15 +576,15 @@ procedure Game is
end if;
Game.Map := new Map(1..Integer(Img.Height), 1..Integer(Img.Width));
- for Boss of Game.Bosses loop
- Boss.Dead := True;
- if Boss.Path /= null then
- Delete_Path_Map(Boss.Path);
+ for Eeper of Game.Eepers loop
+ Eeper.Dead := True;
+ if Eeper.Path /= null then
+ Delete_Path_Map(Eeper.Path);
end if;
- Boss.Path := new Path_Map(1..Integer(Img.Height), 1..Integer(Img.Width));
- for Y in Boss.Path'Range(1) loop
- for X in Boss.Path'Range(2) loop
- Boss.Path(Y, X) := -1;
+ Eeper.Path := new Path_Map(1..Integer(Img.Height), 1..Integer(Img.Width));
+ for Y in Eeper.Path'Range(1) loop
+ for X in Eeper.Path'Range(2) loop
+ Eeper.Path(Y, X) := -1;
end loop;
end loop;
end loop;
@@ -811,23 +811,23 @@ procedure Game is
return;
end if;
- for Boss of Game.Bosses loop
- if not Boss.Dead and then Inside_Of_Rect(Boss.Position, Boss.Size, New_Position) then
- case Boss.Kind is
- when Final => null;
- when Gnome =>
- Game.Items.Insert(Boss.Position, (Kind => Key));
- Boss.Dead := True;
- when Guard =>
- Boss.Health := Boss.Health - BOSS_EXPLOSION_DAMAGE;
- if Boss.Health <= 0.0 then
- Boss.Dead := True;
+ for Eeper of Game.Eepers loop
+ if not Eeper.Dead and then Inside_Of_Rect(Eeper.Position, Eeper.Size, New_Position) then
+ case Eeper.Kind is
+ when Eeper_Final => null;
+ when Eeper_Gnome =>
+ Game.Items.Insert(Eeper.Position, (Kind => Key));
+ Eeper.Dead := True;
+ when Eeper_Guard =>
+ Eeper.Health := Eeper.Health - BOSS_EXPLOSION_DAMAGE;
+ if Eeper.Health <= 0.0 then
+ Eeper.Dead := True;
end if;
- when Urmom =>
+ when Eeper_Urmom =>
declare
- Position: constant IVector2 := Boss.Position;
+ Position: constant IVector2 := Eeper.Position;
begin
- Boss.Dead := True;
+ Eeper.Dead := True;
Spawn_Guard(Game, Position + (0, 0));
Spawn_Guard(Game, Position + (4, 0));
Spawn_Guard(Game, Position + (0, 4));
@@ -921,62 +921,62 @@ procedure Game is
end loop;
end;
- procedure Game_Bosses_Turn(Game: in out Game_State) is
+ procedure Game_Eepers_Turn(Game: in out Game_State) is
begin
- for Me in Boss_Index loop
- if not Game.Bosses(Me).Dead then
- Game.Bosses(Me).Prev_Position := Game.Bosses(Me).Position;
- Game.Bosses(Me).Prev_Eyes := Game.Bosses(Me).Eyes;
- case Game.Bosses(Me).Kind is
- when Final => null;
- when Guard | Urmom =>
- Recompute_Path_For_Boss(Game, Me, GUARD_STEPS_LIMIT, GUARD_STEP_LENGTH_LIMIT);
- if Game.Bosses(Me).Path(Game.Bosses(Me).Position.Y, Game.Bosses(Me).Position.X) >= 0 then
- if Game.Bosses(Me).Attack_Cooldown <= 0 then
+ for Me in Eeper_Index loop
+ if not Game.Eepers(Me).Dead then
+ Game.Eepers(Me).Prev_Position := Game.Eepers(Me).Position;
+ Game.Eepers(Me).Prev_Eyes := Game.Eepers(Me).Eyes;
+ case Game.Eepers(Me).Kind is
+ when Eeper_Final => null;
+ when Eeper_Guard | Eeper_Urmom =>
+ Recompute_Path_For_Eeper(Game, Me, GUARD_STEPS_LIMIT, GUARD_STEP_LENGTH_LIMIT);
+ if Game.Eepers(Me).Path(Game.Eepers(Me).Position.Y, Game.Eepers(Me).Position.X) >= 0 then
+ if Game.Eepers(Me).Attack_Cooldown <= 0 then
declare
- Current : constant Integer := Game.Bosses(Me).Path(Game.Bosses(Me).Position.Y, Game.Bosses(Me).Position.X);
+ Current : constant Integer := Game.Eepers(Me).Path(Game.Eepers(Me).Position.Y, Game.Eepers(Me).Position.X);
begin
Search: for Dir in Direction loop
declare
- Position: IVector2 := Game.Bosses(Me).Position;
+ Position: IVector2 := Game.Eepers(Me).Position;
begin
- while Boss_Can_Stand_Here(Game, Position, Me) loop
+ while Eeper_Can_Stand_Here(Game, Position, Me) loop
Position := Position + Direction_Vector(Dir);
- if Within_Map(Game, Position) and then Game.Bosses(Me).Path(Position.Y, Position.X) = Current - 1 then
- Game.Bosses(Me).Position := Position;
+ if Within_Map(Game, Position) and then Game.Eepers(Me).Path(Position.Y, Position.X) = Current - 1 then
+ Game.Eepers(Me).Position := Position;
exit Search;
end if;
end loop;
end;
end loop Search;
end;
- Game.Bosses(Me).Attack_Cooldown := GUARD_ATTACK_COOLDOWN;
+ Game.Eepers(Me).Attack_Cooldown := GUARD_ATTACK_COOLDOWN;
else
- Game.Bosses(Me).Attack_Cooldown := Game.Bosses(Me).Attack_Cooldown - 1;
+ Game.Eepers(Me).Attack_Cooldown := Game.Eepers(Me).Attack_Cooldown - 1;
end if;
- if Game.Bosses(Me).Path(Game.Bosses(Me).Position.Y, Game.Bosses(Me).Position.X) = 1 then
- Game.Bosses(Me).Eyes := Eyes_Angry;
+ if Game.Eepers(Me).Path(Game.Eepers(Me).Position.Y, Game.Eepers(Me).Position.X) = 1 then
+ Game.Eepers(Me).Eyes := Eyes_Angry;
else
- Game.Bosses(Me).Eyes := Eyes_Open;
+ Game.Eepers(Me).Eyes := Eyes_Open;
end if;
else
- Game.Bosses(Me).Eyes := Eyes_Closed;
- Game.Bosses(Me).Attack_Cooldown := GUARD_ATTACK_COOLDOWN + 1;
+ Game.Eepers(Me).Eyes := Eyes_Closed;
+ Game.Eepers(Me).Attack_Cooldown := GUARD_ATTACK_COOLDOWN + 1;
end if;
- if Inside_Of_Rect(Game.Bosses(Me).Position, Game.Bosses(Me).Size, Game.Player.Position) then
+ if Inside_Of_Rect(Game.Eepers(Me).Position, Game.Eepers(Me).Size, Game.Player.Position) then
Game.Player.Dead := True;
end if;
- if Game.Bosses(Me).Health < 1.0 then
- Game.Bosses(Me).Health := Game.Bosses(Me).Health + GUARD_TURN_REGENERATION;
+ if Game.Eepers(Me).Health < 1.0 then
+ Game.Eepers(Me).Health := Game.Eepers(Me).Health + GUARD_TURN_REGENERATION;
end if;
- when Gnome =>
- Recompute_Path_For_Boss(Game, Me, 10, 1, Stop_At_Me => False);
+ when Eeper_Gnome =>
+ Recompute_Path_For_Eeper(Game, Me, 10, 1, Stop_At_Me => False);
declare
- Position: constant IVector2 := Game.Bosses(Me).Position;
+ Position: constant IVector2 := Game.Eepers(Me).Position;
begin
- if Game.Bosses(Me).Path(Position.Y, Position.X) >= 0 then
+ if Game.Eepers(Me).Path(Position.Y, Position.X) >= 0 then
declare
Available_Positions: array (0..Direction_Vector'Length-1) of IVector2;
Count: Integer := 0;
@@ -987,7 +987,7 @@ procedure Game is
begin
if Within_Map(Game, New_Position)
and then Game.Map(New_Position.Y, New_Position.X) = Floor
- and then Game.Bosses(Me).Path(New_Position.Y, New_Position.X) > Game.Bosses(Me).Path(Position.Y, Position.X)
+ and then Game.Eepers(Me).Path(New_Position.Y, New_Position.X) > Game.Eepers(Me).Path(Position.Y, Position.X)
then
Available_Positions(Count) := New_Position;
Count := Count + 1;
@@ -996,12 +996,12 @@ procedure Game is
end loop;
if Count > 0 then
- Game.Bosses(Me).Position := Available_Positions(Random_Integer.Random(Gen) mod Count);
+ Game.Eepers(Me).Position := Available_Positions(Random_Integer.Random(Gen) mod Count);
end if;
end;
- Game.Bosses(Me).Eyes := Eyes_Open;
+ Game.Eepers(Me).Eyes := Eyes_Open;
else
- Game.Bosses(Me).Eyes := Eyes_Closed;
+ Game.Eepers(Me).Eyes := Eyes_Closed;
end if;
end;
end case;
@@ -1077,7 +1077,7 @@ procedure Game is
Game_Player_Turn(Game, Dir);
Game_Bombs_Turn(Game);
Game_Items_Turn(Game);
- Game_Bosses_Turn(Game);
+ Game_Eepers_Turn(Game);
Game.Duration_Of_Last_Turn := Get_Time - Start_Of_Turn;
end;
end if;
@@ -1166,38 +1166,38 @@ procedure Game is
Draw_Number(Bubble_Center - (Bubble_Radius, Bubble_Radius), (Bubble_Radius, Bubble_Radius)*2.0, Cooldown, Text_Color);
end;
- procedure Game_Bosses(Game: in out Game_State) is
+ procedure Game_Eepers(Game: in out Game_State) is
begin
- for Boss of Game.Bosses loop
+ for Eeper of Game.Eepers loop
declare
Position: constant Vector2 :=
(if Game.Turn_Animation > 0.0
- then Interpolate_Positions(Boss.Prev_Position, Boss.Position, Game.Turn_Animation)
- else To_Vector2(Boss.Position)*Cell_Size);
- Size: constant Vector2 := To_Vector2(Boss.Size)*Cell_Size;
+ then Interpolate_Positions(Eeper.Prev_Position, Eeper.Position, Game.Turn_Animation)
+ else To_Vector2(Eeper.Position)*Cell_Size);
+ Size: constant Vector2 := To_Vector2(Eeper.Size)*Cell_Size;
begin
- if not Boss.Dead then
- case Boss.Kind is
- when Final =>
- Draw_Rectangle_V(Position, Size, Palette_RGB(Boss.Background));
+ if not Eeper.Dead then
+ case Eeper.Kind is
+ when Eeper_Final =>
+ Draw_Rectangle_V(Position, Size, Palette_RGB(Eeper.Background));
Draw_Eyes(Position, Size, -Float(Vector2_Line_Angle(Position + Size*0.5, Screen_Player_Position(Game) + Cell_Size*0.5)), Eyes_Closed, Eyes_Closed, 1.0);
- when Guard | Urmom =>
- Draw_Rectangle_V(Position, Size, Palette_RGB(Boss.Background));
- Health_Bar(Position, Size, C_Float(Boss.Health));
- if Boss.Path(Boss.Position.Y, Boss.Position.X) = 1 then
- Draw_Cooldown_Timer_Bubble(Position, Size, Boss.Attack_Cooldown, Boss.Background);
- elsif Boss.Path(Boss.Position.Y, Boss.Position.X) >= 0 then
- Draw_Cooldown_Timer_Bubble(Position, Size, Boss.Attack_Cooldown, Boss.Background);
+ when Eeper_Guard | Eeper_Urmom =>
+ Draw_Rectangle_V(Position, Size, Palette_RGB(Eeper.Background));
+ Health_Bar(Position, Size, C_Float(Eeper.Health));
+ if Eeper.Path(Eeper.Position.Y, Eeper.Position.X) = 1 then
+ Draw_Cooldown_Timer_Bubble(Position, Size, Eeper.Attack_Cooldown, Eeper.Background);
+ elsif Eeper.Path(Eeper.Position.Y, Eeper.Position.X) >= 0 then
+ Draw_Cooldown_Timer_Bubble(Position, Size, Eeper.Attack_Cooldown, Eeper.Background);
end if;
- Draw_Eyes(Position, Size, -Float(Vector2_Line_Angle(Position + Size*0.5, Screen_Player_Position(Game) + Cell_Size*0.5)), Boss.Prev_Eyes, Boss.Eyes, Game.Turn_Animation);
- when Gnome =>
+ Draw_Eyes(Position, Size, -Float(Vector2_Line_Angle(Position + Size*0.5, Screen_Player_Position(Game) + Cell_Size*0.5)), Eeper.Prev_Eyes, Eeper.Eyes, Game.Turn_Animation);
+ when Eeper_Gnome =>
declare
GNOME_RATIO: constant C_Float := 0.7;
GNOME_SIZE: constant Vector2 := Cell_Size*GNOME_RATIO;
GNOME_START: constant Vector2 := Position + Cell_Size*0.5 - GNOME_SIZE*0.5;
begin
- Draw_Rectangle_V(GNOME_START, GNOME_SIZE, Palette_RGB(Boss.Background));
- Draw_Eyes(GNOME_START, GNOME_SIZE, -Float(Vector2_Line_Angle(GNOME_START + GNOME_SIZE*0.5, Screen_Player_Position(Game) + Cell_Size*0.5)), Boss.Prev_Eyes, Boss.Eyes, Game.Turn_Animation);
+ Draw_Rectangle_V(GNOME_START, GNOME_SIZE, Palette_RGB(Eeper.Background));
+ Draw_Eyes(GNOME_START, GNOME_SIZE, -Float(Vector2_Line_Angle(GNOME_START + GNOME_SIZE*0.5, Screen_Player_Position(Game) + Cell_Size*0.5)), Eeper.Prev_Eyes, Eeper.Eyes, Game.Turn_Animation);
end;
end case;
end if;
@@ -1306,13 +1306,13 @@ begin
Game_Cells(Game);
Game_Items(Game);
Game_Player(Game);
- Game_Bosses(Game);
+ Game_Eepers(Game);
Game_Bombs(Game);
if DEVELOPMENT then
if Is_Key_Down(KEY_P) then
for Row in Game.Map'Range(1) loop
for Column in Game.Map'Range(2) loop
- Draw_Number((Column, Row), Game.Bosses(1).Path(Row, Column), (A => 255, others => 0));
+ Draw_Number((Column, Row), Game.Eepers(1).Path(Row, Column), (A => 255, others => 0));
end loop;
end loop;
end if;
@@ -1366,12 +1366,12 @@ begin
end;
-- TODO: Rename some definitions within the code
--- - Boss -> Eeper
+-- - Eeper -> Eeper
-- - Urmom -> Mother
-- - New_Game -> Father
-- TODO: Smarter Path Finding
--- - Recompute Path Map on each boss move. Not the Player turn. Because each Boss position change may affect the Path Map
--- - Move Bosses starting from the closest to the Player. You can find the distance in the current Path Map.
+-- - Recompute Path Map on each boss move. Not the Player turn. Because each Eeper position change may affect the Path Map
+-- - Move Eepers starting from the closest to the Player. You can find the distance in the current Path Map.
-- TODO: During Path Finding maybe pick the equal paths randomly.
-- to introduce a bit of RNG into this pretty deterministic game
-- TODO: Path finding considers explosion impenetrable @bug
@@ -1397,7 +1397,7 @@ end;
-- TODO: Eyes for the Player.
-- The denote last direction of the step.
-- TODO: Touch father starts NG+
--- TODO: Boss should attack on zero just like a bomb.
+-- TODO: Eeper should attack on zero just like a bomb.
-- TODO: Desaturate the colors
-- TODO: Properly disablable DEV features
-- TODO: Default 16:9 resolution
@@ -1411,8 +1411,8 @@ end;
-- TODO: Checkpoints must refill the bombs
-- TODO: Closed eyes should always point down
-- TODO: Special Eeper Eyes on Damage
--- TODO: Show Boss Cooldown timer outside of the screen somehow
--- TODO: Visual Clue that the Boss is about to kill the Player when Completely outside of the Screen
+-- TODO: Show Eeper Cooldown timer outside of the screen somehow
+-- TODO: Visual Clue that the Eeper is about to kill the Player when Completely outside of the Screen
-- - Cooldown ball is shaking
-- TODO: Cool animation for New Game
-- TODO: The role of Barriers is not explored enough
@@ -1427,12 +1427,12 @@ end;
-- Smoothly move it into the HUD.
-- TODO: Different palettes depending on the area
-- Or maybe different palette for each NG+
--- TODO: Boss slide attack animation is pretty boring @polish
+-- TODO: Eeper slide attack animation is pretty boring @polish
-- TODO: Restart on any key press after ded
-- TODO: Sounds
-- TODO: Player Death animation
-- Particles
--- TODO: Boss Death animation
+-- TODO: Eeper Death animation
-- Particles
-- TODO: Cool effects when you pick up items and checkpoints
-- Particles
generated by cgit v1.2.3 (git 2.25.1) at 2025-09-19 14:10:03 +0000