From 449dc21f1b48648c5e4abf1a6cace21176fa2226 Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Sun, 26 Mar 2023 08:49:35 +0100 Subject: Support entities facing left Perhaps it would be better to support "custom properties" in tiled, but this is OK for now. --- src/Game/Entities/Robot.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Game/Entities/Robot.hs') diff --git a/src/Game/Entities/Robot.hs b/src/Game/Entities/Robot.hs index 44fc310..664079a 100644 --- a/src/Game/Entities/Robot.hs +++ b/src/Game/Entities/Robot.hs @@ -6,8 +6,8 @@ import Game.Entities.Const import Game.Entities.Types import qualified Game.Sprites as S -mkRobot :: S.SpriteSheet -> Int -> Int -> Collision -> IsBlocked -> IO Entity -mkRobot sprites x y playerCollision isBlocked = do +mkRobot :: S.SpriteSheet -> Int -> Int -> Dir -> Collision -> IsBlocked -> IO Entity +mkRobot sprites x y d playerCollision isBlocked = do s <- S.get sprites "robot" pure Entity @@ -16,10 +16,10 @@ mkRobot sprites x y playerCollision isBlocked = do y = y, delay = frameDelay, frame = 0, - set = toSpriteSet DirRight, + set = toSpriteSet d, jumping = False, gravity = gravityOff, - dir = DirRight, + dir = d, sprite = s, update = updateRobot playerCollision isBlocked, destroy = False, -- cgit v1.2.3