diff options
author | Juan J. Martinez <jjm@usebox.net> | 2023-02-21 12:40:31 +0000 |
---|---|---|
committer | Juan J. Martinez <jjm@usebox.net> | 2023-02-21 12:40:31 +0000 |
commit | 198498b3c604d55d3b54fef34c62f215ba8a2525 (patch) | |
tree | f3d7725657608cafdfc4888313f3631c14857032 /src/Game/Entities.hs | |
parent | fd74ead510f4ca326e36450fa23dee0d681c296b (diff) | |
download | space-plat-hs-198498b3c604d55d3b54fef34c62f215ba8a2525.tar.gz space-plat-hs-198498b3c604d55d3b54fef34c62f215ba8a2525.zip |
New Robot 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 1977678..291f10e 100644 --- a/src/Game/Entities.hs +++ b/src/Game/Entities.hs @@ -11,6 +11,7 @@ import Game.Entities.Const import Game.Entities.Effect import Game.Entities.Pickup import Game.Entities.Player +import Game.Entities.Robot import Game.Entities.Slime import Game.Entities.Types import qualified Game.Map as M @@ -30,6 +31,7 @@ mkEntities sprites m controls stateRef = do where toEntity :: IORef Entity -> M.Object -> IO Entity toEntity playerRef (M.SlimeEntity x y) = mkSlime sprites x y playerRef (M.isBlocked m) (hitPlayer stateRef) + toEntity playerRef (M.RobotEntity x y) = mkRobot sprites x y playerRef (M.isBlocked m) (hitPlayer stateRef) toEntity playerRef (M.BatteryEntity x y) = mkBattery sprites x y playerRef (collectedBattery stateRef) toEntity _ (M.PlayerEntity _ _) = error "Player already processed" |