diff options
author | Juan J. Martinez <jjm@usebox.net> | 2023-04-25 22:18:54 +0100 |
---|---|---|
committer | Juan J. Martinez <jjm@usebox.net> | 2023-04-25 22:18:54 +0100 |
commit | 1cd60a951b2c2f83b927a6b6961cbd3206bf5316 (patch) | |
tree | 59861ba4125ed15ff8711ccd55e4b5a24fd3235c /src/Game/Entities.hs | |
parent | a5ac165b1e9adbdf459ebc9df42edc024389e9b8 (diff) | |
download | space-plat-hs-1cd60a951b2c2f83b927a6b6961cbd3206bf5316.tar.gz space-plat-hs-1cd60a951b2c2f83b927a6b6961cbd3206bf5316.zip |
Added "tracker" 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 a0c596d..3cb2510 100644 --- a/src/Game/Entities.hs +++ b/src/Game/Entities.hs @@ -28,6 +28,7 @@ import Game.Entities.Robot import Game.Entities.Runner import Game.Entities.Shooter import Game.Entities.Slime +import Game.Entities.Tracker import Game.Entities.Types import qualified Game.Map as M import qualified Game.Sprites as S @@ -51,6 +52,7 @@ mkEntities sprites m controls = do 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.BatteryEntity x y) = mkBattery sprites x y (collision playerRef 16) toEntity _ (M.PlayerEntity _ _) = error "Player already processed" |