aadit/tetris-cli
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Implement level to gravity delay

Browse source
This commit is contained in:
Sam Tay 2017-06-17 17:00:08 -04:00
parent 34d82d9451
commit f2327fc3c5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/UI/Game.hs
View file

@ -48,7 +48,7 @@ playGame lvl = do
customMain (V.mkVty V.defaultConfig) (Just chan) app initialGame customMain (V.mkVty V.defaultConfig) (Just chan) app initialGame
levelToDelay :: Int -> Int levelToDelay :: Int -> Int
levelToDelay n = 1000000 -- floor $ fromIntegral $ 72500 * 0.85 ^ n + n levelToDelay n = floor $ 400000 * 0.85 ^ (2 * n) -- n + (fromIntegral n)
-- Handling events -- Handling events