aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJuan J. Martinez <jjm@usebox.net>2023-02-05 22:06:22 +0000
committerJuan J. Martinez <jjm@usebox.net>2023-02-05 22:06:22 +0000
commitfb1c60789db8e71584211cbef19811298c8fd6e6 (patch)
treeb816aaf9ff0dc3d6c9e4afa307ba8dddfc8f260c
parenta3ff74727bded92872a1f0a88f9ba23a790900f4 (diff)
downloadspace-plat-hs-fb1c60789db8e71584211cbef19811298c8fd6e6.tar.gz
space-plat-hs-fb1c60789db8e71584211cbef19811298c8fd6e6.zip
Gravity adjustments
-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 fc22a38..bd11235 100644
--- a/src/Game/Entities.hs
+++ b/src/Game/Entities.hs
@@ -29,7 +29,7 @@ gravityDown :: Int
gravityDown = 16
gravityTable :: [Int]
-gravityTable = [0, 6, 4, 4, 2, 2, 2, 2, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 2, 3]
+gravityTable = [0, 6, 4, 4, 2, 2, 2, 2, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 2, 2, 2, 2, 4]
data Entity = Entity
{ eType :: Type,