diff options
| author | rexim <reximkut@gmail.com> | 2024-03-16 02:08:23 +0700 |
|---|---|---|
| committer | rexim <reximkut@gmail.com> | 2024-03-16 02:08:23 +0700 |
| commit | b528383157fdc96f078896db6c38051fdc07584d (patch) | |
| tree | 928bbe4cde0a6bb8d5a5f573c08cc9e4bcb20172 | |
| parent | e3c746f58c1bb604f174ef76442385918ea5904b (diff) | |
Introduce Boss_Behavior
| -rw-r--r-- | game.adb | 5 | ||||
| -rw-r--r-- | map.txt | 10 |
2 files changed, 10 insertions, 5 deletions
@@ -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); @@ -34,12 +34,12 @@ #...# ####################################### #...# #.....................................# #...# - #...@.................................# #...# - #...#####.....................#####...# #...# - #...#####.....................#####...# #...# - #...#####.....................#####...# #...# - #...#####.....................#####...# #...# #.....................................# #...# + #...#####........#####........#####...# #...# + #...#.*.#........#####........#...#...# #...# + #...#.@.#........#####........#...#...# #...# + #...#...#........#####........#...#...# #...# + #...##.##........#####........##.##...# #...# #.....................................# #...# #.....................................# #...# #.....................................# #...# |