diff options
author | Juan J. Martinez <jjm@usebox.net> | 2023-05-23 21:54:53 +0100 |
---|---|---|
committer | Juan J. Martinez <jjm@usebox.net> | 2023-05-23 21:54:53 +0100 |
commit | a8091dc3c82a4d646e84b356c46319ba54847ce0 (patch) | |
tree | 4501765f1b2ae2628d7ecd4dab14670b1f464dd8 /src/Game/Entities/Tracker.hs | |
parent | 11b7cbc1eed2ecfaa1f6f678b8d0a1282a5fac83 (diff) | |
download | space-plat-hs-a8091dc3c82a4d646e84b356c46319ba54847ce0.tar.gz space-plat-hs-a8091dc3c82a4d646e84b356c46319ba54847ce0.zip |
Add deadly tiles in the blocked layer
Currently supported by enemies.
Diffstat (limited to 'src/Game/Entities/Tracker.hs')
-rw-r--r-- | src/Game/Entities/Tracker.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |