diff options
author | Juan J. Martinez <jjm@usebox.net> | 2023-04-19 23:16:22 +0100 |
---|---|---|
committer | Juan J. Martinez <jjm@usebox.net> | 2023-04-19 23:19:37 +0100 |
commit | 9ffa3f57067598acfbe5196a4452b225ab295b83 (patch) | |
tree | d893d9eba5a51f5a831e287bf1724e1f93a48026 /src/Game/Entities.hs | |
parent | 7a1d4eb4481fa54753673e67532039da2b9c0b2f (diff) | |
download | space-plat-hs-9ffa3f57067598acfbe5196a4452b225ab295b83.tar.gz space-plat-hs-9ffa3f57067598acfbe5196a4452b225ab295b83.zip |
Added "runner" enemy
Diffstat (limited to 'src/Game/Entities.hs')
-rw-r--r-- | src/Game/Entities.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Game/Entities.hs b/src/Game/Entities.hs index 25a7184..a0c596d 100644 --- a/src/Game/Entities.hs +++ b/src/Game/Entities.hs @@ -25,6 +25,7 @@ import Game.Entities.Exit import Game.Entities.Pickup import Game.Entities.Player import Game.Entities.Robot +import Game.Entities.Runner import Game.Entities.Shooter import Game.Entities.Slime import Game.Entities.Types @@ -49,6 +50,7 @@ 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.BatteryEntity x y) = mkBattery sprites x y (collision playerRef 16) toEntity _ (M.PlayerEntity _ _) = error "Player already processed" |