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

Allow level == 0

Browse source
This commit is contained in:
Sam Tay 2017-06-17 02:54:52 -04:00
parent 8e1c949a69
commit 315f486520
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Tetris.hs
View file

@ -188,7 +188,7 @@ clearFullRows g = g & board %~ clearBoard
updateScore :: Game -> Game updateScore :: Game -> Game
updateScore g = g & score %~ (+ newPoints) updateScore g = g & score %~ (+ newPoints)
where where
newPoints = (g ^. level) * (g ^. rowClears ^. to latestOrZero ^. to points) newPoints = (1 + g ^. level) * (g ^. rowClears ^. to latestOrZero ^. to points)
-- | Points awarded from number of rows cleared -- | Points awarded from number of rows cleared
points :: Int -- ^ rows cleared points :: Int -- ^ rows cleared