diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2023-02-05 08:53:20 +0000 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2023-02-05 08:53:20 +0000 |
| commit | f8e1b62244f011c971763c1ec60d1ff99184fac7 (patch) | |
| tree | 7c317e1fe8a8c3578fdd39b6fa46434d07c93bc2 | |
| parent | fd63beed174dcbcdcc7fead7d734a53d65d060e1 (diff) | |
| download | space-plat-hs-f8e1b62244f011c971763c1ec60d1ff99184fac7.tar.gz space-plat-hs-f8e1b62244f011c971763c1ec60d1ff99184fac7.zip | |
Simplified (jump is needed)
| -rw-r--r-- | src/Game/Entities.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Game/Entities.hs b/src/Game/Entities.hs index 1203f55..b232854 100644 --- a/src/Game/Entities.hs +++ b/src/Game/Entities.hs @@ -83,12 +83,11 @@ updateHorizontal left right e updateVertical :: Bool -> Bool -> Entity -> Entity updateVertical jump down e - | gravity /= gravityOff = e - | jump && not down = e {eGravity = gravityUp, eFrame = jumpFrame} + | not jump || gravity /= gravityOff = e + | not down = e {eGravity = gravityUp, eFrame = jumpFrame} -- go down a 8 pixel tall platform; not ideal to have these values hardcoded here -- but to be fair, the player height/width is hardcoded as well - | jump - && down + | down && not (isBlocked (x + 2) (y + 24 + 8)) && not (isBlocked (x + 12) (y + 24 + 8)) = applyGravity 8 e {eGravity = gravityDown, eFrame = jumpFrame, eY = eY e + 1} |