#6 Win/End state #8 End screen #9 level selection

2022-12-22 16:25:29 +01:00 · 2022-12-22 16:25:29 +01:00 · 5cc96cbdba
commit 5cc96cbdba
parent becd305e01
10 changed files with 53 additions and 21 deletions
--- a/lib/RPGEngine/Input/Playing.hs
+++ b/lib/RPGEngine/Input/Playing.hs
@ -50,7 +50,7 @@ checkPlaying g@Game{ state = s@Playing{ restart = restart }} = newGame
    where newGame | isPlayerDead g   = loseGame
                  | isPlayerAtExit g = g{ state = goToNextLevel s }
                  | otherwise        = g
-          loseGame      = g{ state = restart }
+          loseGame      = g{ state = Lose{ restart = restart }}
 checkPlaying g = g

 pauseGame :: Game -> Game