From 11d2ed7f15a86dd465bc3456e3478e9ff03bf5d2 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Tue, 21 Mar 2023 21:28:25 +0000
Subject: Introduce a set property

Stopped abusing the direction property!
---
 src/Game/Entities/Entry.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/Game/Entities/Entry.hs')

diff --git a/src/Game/Entities/Entry.hs b/src/Game/Entities/Entry.hs
index 5c17146..28b1c4e 100644
--- a/src/Game/Entities/Entry.hs
+++ b/src/Game/Entities/Entry.hs
@@ -5,6 +5,9 @@ import Game.Entities.Const
 import Game.Entities.Types
 import qualified Game.Sprites as S
 
+openingDoorSet :: Int
+openingDoorSet = 2
+
 mkEntry :: S.SpriteSheet -> Int -> Int -> IO Entity
 mkEntry sprites x y = do
   s <- S.get sprites "exit"
@@ -15,9 +18,10 @@ mkEntry sprites x y = do
         y = y,
         delay = frameDelay,
         frame = 0,
+        set = openingDoorSet,
         jumping = False,
         gravity = gravityOff,
-        dir = Dying,
+        dir = DirRight,
         sprite = s,
         update = pure . updateEntry,
         destroy = False,
-- 
cgit v1.2.3