From b3e0ace3ca198cacd8d77c6ca0f2c457826dee63 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 26 Feb 2023 00:06:40 +0000
Subject: Revisited the game over sequence

---
 src/Game/Entities/Common.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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

diff --git a/src/Game/Entities/Common.hs b/src/Game/Entities/Common.hs
index 251dbb4..ca5eb78 100644
--- a/src/Game/Entities/Common.hs
+++ b/src/Game/Entities/Common.hs
@@ -20,6 +20,8 @@ import SDL (($~))
 toSpriteSet :: Dir -> Int
 toSpriteSet DirRight = 0
 toSpriteSet DirLeft = 1
+-- not really a direction
+toSpriteSet Dying = 2
 
 -- | Return the number of frames available on the entity's sprite for current direction.
 frameLimit :: Entity -> Int
@@ -32,7 +34,8 @@ collision :: IORef Entity -> Int -> Collision
 collision playerRef otherHeight other = do
   player <- readIORef playerRef
   pure $
-    player.x + 4 < other.x + 12
+    player.dir /= Dying
+      && player.x + 4 < other.x + 12
       && other.x + 4 < player.x + 12
       && player.y + otherHeight - 4 < other.y + otherHeight
       && other.y + 4 < player.y + 24
-- 
cgit v1.2.3