From 449dc21f1b48648c5e4abf1a6cace21176fa2226 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
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 ++++----
 src/Game/Entities/Slime.hs | 6 +++---
 src/Game/Entities/Types.hs | 2 +-
 3 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'src/Game/Entities')

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,
diff --git a/src/Game/Entities/Slime.hs b/src/Game/Entities/Slime.hs
index c102712..7607fb7 100644
--- a/src/Game/Entities/Slime.hs
+++ b/src/Game/Entities/Slime.hs
@@ -6,8 +6,8 @@ import Game.Entities.Const
 import Game.Entities.Types
 import qualified Game.Sprites as S
 
-mkSlime :: S.SpriteSheet -> Int -> Int -> Collision -> IsBlocked -> IO Entity
-mkSlime sprites x y playerCollision isBlocked = do
+mkSlime :: S.SpriteSheet -> Int -> Int -> Dir -> Collision -> IsBlocked -> IO Entity
+mkSlime sprites x y d playerCollision isBlocked = do
   s <- S.get sprites "slime"
   pure
     Entity
@@ -19,7 +19,7 @@ mkSlime sprites x y playerCollision isBlocked = do
         set = 0,
         jumping = False,
         gravity = gravityOff,
-        dir = DirRight,
+        dir = d,
         sprite = s,
         update = updateSlime playerCollision isBlocked,
         destroy = False,
diff --git a/src/Game/Entities/Types.hs b/src/Game/Entities/Types.hs
index 34bddd3..05b419e 100644
--- a/src/Game/Entities/Types.hs
+++ b/src/Game/Entities/Types.hs
@@ -12,7 +12,7 @@ where
 import Data.IORef
 import qualified Game.Sprites as S
 
-data Dir = DirRight | DirLeft deriving (Eq)
+data Dir = DirRight | DirLeft deriving (Eq, Show, Ord)
 
 data Type = TypePlayer | TypePickup | TypeEffect | TypeEnemy deriving (Eq)
 
-- 
cgit v1.2.3