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.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.hs')
-rw-r--r-- | src/Game/Entities.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Game/Entities.hs b/src/Game/Entities.hs index 578bf51..bea6e33 100644 --- a/src/Game/Entities.hs +++ b/src/Game/Entities.hs @@ -51,8 +51,8 @@ mkEntities sprites m controls = do toEntity playerRef (M.SlimeEntity x y d) = mkSlime sprites x y d (collision playerRef 16) (M.isBlocked m) toEntity playerRef (M.RobotEntity x y d) = mkRobot sprites x y d (collision playerRef 24) (M.isBlocked m) toEntity playerRef (M.ShooterEntity x y d) = mkShooter sprites x y d (collision playerRef 24) (inLine playerRef 24) (M.isBlocked m) (collision playerRef 8) - toEntity playerRef (M.RunnerEntity x y d) = mkRunner sprites x y d (collision playerRef 24) (M.isBlocked m) - toEntity playerRef (M.TrackerEntity x y d) = mkTracker sprites x y d (collision playerRef 24) (facingLower playerRef) (M.isBlocked m) + toEntity playerRef (M.RunnerEntity x y d) = mkRunner sprites x y d (collision playerRef 24) (M.isBlocked m) (M.isBlockedDeadly m) + toEntity playerRef (M.TrackerEntity x y d) = mkTracker sprites x y d (collision playerRef 24) (facingLower playerRef) (M.isBlocked m) (M.isBlockedDeadly m) toEntity playerRef (M.BatteryEntity x y) = mkBattery sprites x y (collision playerRef 16) toEntity _ (M.PlayerEntity _ _) = error "Player already processed" |