From b528383157fdc96f078896db6c38051fdc07584d Mon Sep 17 00:00:00 2001 From: rexim Date: Sat, 16 Mar 2024 02:08:23 +0700 Subject: Introduce Boss_Behavior --- game.adb | 5 +++++ map.txt | 10 +++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/game.adb b/game.adb index 70a56fc..3e46527 100644 --- a/game.adb +++ b/game.adb @@ -229,7 +229,10 @@ procedure Game is Dead: Boolean := False; end record; + type Boss_Behavior is (Shrek, Urmom); + type Boss_State is record + Behavior: Boss_Behavior; Dead: Boolean := True; Prev_Position: IVector2; Position: IVector2; @@ -478,6 +481,7 @@ procedure Game is when 'M' => for Boss of Game.Bosses loop if Boss.Dead then + Boss.Behavior := Urmom; Boss.Dead := False; Boss.Background := COLOR_URMOM; Boss.Position := (Column, Row); @@ -491,6 +495,7 @@ procedure Game is when 'B' => for Boss of Game.Bosses loop if Boss.Dead then + Boss.Behavior := Shrek; Boss.Background := COLOR_SHREK; Boss.Dead := False; Boss.Position := (Column, Row); diff --git a/map.txt b/map.txt index 72e47ad..58f1769 100644 --- a/map.txt +++ b/map.txt @@ -34,12 +34,12 @@ #...# ####################################### #...# #.....................................# #...# - #...@.................................# #...# - #...#####.....................#####...# #...# - #...#####.....................#####...# #...# - #...#####.....................#####...# #...# - #...#####.....................#####...# #...# #.....................................# #...# + #...#####........#####........#####...# #...# + #...#.*.#........#####........#...#...# #...# + #...#.@.#........#####........#...#...# #...# + #...#...#........#####........#...#...# #...# + #...##.##........#####........##.##...# #...# #.....................................# #...# #.....................................# #...# #.....................................# #...# -- cgit v1.2.3