Add deadly tiles in the blocked layer

Currently supported by enemies.

2 files changed, 25 insertions, 11 deletions

diff --git a/src/Game/Entities/Runner.hs b/src/Game/Entities/Runner.hs
index 7d969a5..288f2b4 100644
--- a/src/Game/Entities/Runner.hs
+++ b/src/Game/Entities/Runner.hs
@@ -7,8 +7,8 @@ import Game.Entities.Types
 import qualified Game.Sprites as S
 import System.Random (randomRIO)
 
-mkRunner :: S.SpriteSheet -> Int -> Int -> Dir -> Collision -> IsBlocked -> IO Entity
-mkRunner sprites x y d playerCollision isBlocked = do
+mkRunner :: S.SpriteSheet -> Int -> Int -> Dir -> Collision -> IsBlocked -> IsBlocked -> IO Entity
+mkRunner sprites x y d playerCollision isBlocked isBlockedDeadly = do
   s <- S.get sprites "runner"
   pure
     Entity
@@ -22,14 +22,14 @@ mkRunner sprites x y d playerCollision isBlocked = do
         gravity = gravityOff,
         dir = d,
         sprite = s,
-        update = updateRunner playerCollision isBlocked,
+        update = updateRunner playerCollision isBlocked isBlockedDeadly,
         destroy = False,
         actions = [],
         dat = RunnerData 0
       }
 
-updateRunner :: Collision -> IsBlocked -> Entity -> IO Entity
-updateRunner touchedPlayer isBlocked e = do
+updateRunner :: Collision -> IsBlocked -> IsBlocked -> Entity -> IO Entity
+updateRunner touchedPlayer isBlocked isBlockedDeadly e = do
   touched <- touchedPlayer e
   if touched
     then pure e {actions = [ActionHitPlayer]}
@@ -41,21 +41,35 @@ updateRunner touchedPlayer isBlocked e = do
     updateMovement ent
       | testBit ent.delay 1 = pure ent
       | ent.dir == DirLeft
-          && (isBlocked (ent.x - 1) (ent.y + 17) || isBlocked (ent.x - 1) (ent.y + 17)) =
+          && ( isBlocked (ent.x - 1) (ent.y + 17)
+                 || isBlocked (ent.x - 1) (ent.y + 17)
+                 || checkDeadlyFloor (ent.x - 1) (ent.y + 24)
+             ) =
           tryJumpingOrTurn ent
       | ent.dir == DirLeft = pure ent {x = ent.x - 1}
       | ent.dir == DirRight
-          && (isBlocked (ent.x + 16) (ent.y + 17) || isBlocked (ent.x + 16) (ent.y + 17)) =
+          && ( isBlocked (ent.x + 16) (ent.y + 17)
+                 || isBlocked (ent.x + 16) (ent.y + 17)
+                 || checkDeadlyFloor (ent.x + 16) (ent.y + 24)
+             ) =
           tryJumpingOrTurn ent
       | ent.dir == DirRight = pure ent {x = ent.x + 1}
       | otherwise = pure ent
 
+    checkDeadlyFloor :: Int -> Int -> Bool
+    checkDeadlyFloor x y
+      | isBlockedDeadly x y = True
+      | isBlocked x y = False
+      | otherwise = checkDeadlyFloor x (y + 8)
+
     randomWallCount :: [Int]
     randomWallCount = [0, 0, 0, 2, 2, 3]
 
     tryJumpingOrTurn :: Entity -> IO Entity
     tryJumpingOrTurn ent
-      | ent.dat.wallCount > 2 && not (isBlocked (ent.x + 8) (ent.y + 24 + 8)) = do
+      | ent.dat.wallCount > 2
+          && not (isBlocked (ent.x + 8) (ent.y + 24 + 8))
+          && not (checkDeadlyFloor (ent.x + 8) (ent.y + 24 + 8)) = do
           r <- randomRIO (0, length randomWallCount - 1) :: IO Int
           pure
             ent
diff --git a/src/Game/Entities/Tracker.hs b/src/Game/Entities/Tracker.hs
index ef7325f..80b8574 100644
--- a/src/Game/Entities/Tracker.hs
+++ b/src/Game/Entities/Tracker.hs
@@ -5,10 +5,10 @@ import Game.Entities.Runner
 import Game.Entities.Types
 import qualified Game.Sprites as S
 
-mkTracker :: S.SpriteSheet -> Int -> Int -> Dir -> Collision -> Collision -> IsBlocked -> IO Entity
-mkTracker sprites x y d playerCollision facingPlayerLower isBlocked = do
+mkTracker :: S.SpriteSheet -> Int -> Int -> Dir -> Collision -> Collision -> IsBlocked -> IsBlocked -> IO Entity
+mkTracker sprites x y d playerCollision facingPlayerLower isBlocked isBlockedDeadly = do
   s <- S.get sprites "tracker"
-  runner <- mkRunner sprites x y d playerCollision isBlocked
+  runner <- mkRunner sprites x y d playerCollision isBlocked isBlockedDeadly
   pure runner {sprite = s, update = updateTracker runner.update facingPlayerLower isBlocked}
 
 updateTracker :: (Entity -> IO Entity) -> Collision -> IsBlocked -> Entity -> IO Entity