From 0fa864f7ffaa1cdb461ea6ef50d63aebb5d20e79 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Tue, 7 Feb 2023 22:25:26 +0000
Subject: No need to apply gravity, only pretend we fall through the platform

---
 src/Game/Entities.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Game/Entities.hs b/src/Game/Entities.hs
index 05149d0..e8267db 100644
--- a/src/Game/Entities.hs
+++ b/src/Game/Entities.hs
@@ -166,7 +166,7 @@ updateVertical jump down e
   | down
       && not (e.isBlocked (e.x + 2) (e.y + 24 + 8))
       && not (e.isBlocked (e.x + 12) (e.y + 24 + 8)) =
-      applyGravity 8 e {gravity = gravityDown, frame = jumpFrame, y = e.y + 1}
+      e {gravity = gravityDown, frame = jumpFrame, y = e.y + 1}
   | otherwise = e
 
 applyGravity :: Int -> Entity -> Entity
-- 
cgit v1.2.3