aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJuan J. Martinez <jjm@usebox.net>2023-02-07 22:25:26 +0000
committerJuan J. Martinez <jjm@usebox.net>2023-02-07 22:25:26 +0000
commit0fa864f7ffaa1cdb461ea6ef50d63aebb5d20e79 (patch)
treec95106de84bfa78fbabcc60e92b89ca878ddf154
parent9534c490c5c318e6c29ebf881ac5350545f479e5 (diff)
downloadspace-plat-hs-0fa864f7ffaa1cdb461ea6ef50d63aebb5d20e79.tar.gz
space-plat-hs-0fa864f7ffaa1cdb461ea6ef50d63aebb5d20e79.zip
No need to apply gravity, only pretend we fall through the platform
-rw-r--r--src/Game/Entities.hs2
1 files changed, 1 insertions, 1 deletions
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