aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJuan J. Martinez <jjm@usebox.net>2023-02-05 21:47:37 +0000
committerJuan J. Martinez <jjm@usebox.net>2023-02-05 21:47:37 +0000
commita3ff74727bded92872a1f0a88f9ba23a790900f4 (patch)
tree36a8642a3090824ba2571b9b09aa454220d9009a /src
parentd7a519f1aa04e489630c63318b200e89e164d280 (diff)
downloadspace-plat-hs-a3ff74727bded92872a1f0a88f9ba23a790900f4.tar.gz
space-plat-hs-a3ff74727bded92872a1f0a88f9ba23a790900f4.zip
Keep the jumping frame when hitting the floor
Diffstat (limited to 'src')
-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 b232854..fc22a38 100644
--- a/src/Game/Entities.hs
+++ b/src/Game/Entities.hs
@@ -106,7 +106,7 @@ applyGravity v e
&& (isBlocked (x + 2) (y + 24) || isBlocked (x + 12) (y + 24))
&& not (isBlocked (x + 2) (y + 23))
&& not (isBlocked (x + 12) (y + 23)) =
- e {eGravity = gravityOff, eDelay = 0, eFrame = 0}
+ e {eGravity = gravityOff, eDelay = 0}
| otherwise = applyGravity (v - 1) e {eY = y + change}
where
gravity = eGravity e