From 198498b3c604d55d3b54fef34c62f215ba8a2525 Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Tue, 21 Feb 2023 12:40:31 +0000 Subject: New Robot enemy. --- src/Game/Entities.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Game/Entities.hs') 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" -- cgit v1.2.3