diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2023-02-05 21:47:37 +0000 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2023-02-05 21:47:37 +0000 |
| commit | a3ff74727bded92872a1f0a88f9ba23a790900f4 (patch) | |
| tree | 36a8642a3090824ba2571b9b09aa454220d9009a | |
| parent | d7a519f1aa04e489630c63318b200e89e164d280 (diff) | |
| download | space-plat-hs-a3ff74727bded92872a1f0a88f9ba23a790900f4.tar.gz space-plat-hs-a3ff74727bded92872a1f0a88f9ba23a790900f4.zip | |
Keep the jumping frame when hitting the floor
| -rw-r--r-- | src/Game/Entities.hs | 2 |
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 |