From 528154a4645fdb82f623655ded4319d72877444b Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Tue, 16 May 2023 22:52:34 +0100 Subject: Change stage using a simple transition --- src/Game/State.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Game/State.hs') diff --git a/src/Game/State.hs b/src/Game/State.hs index df2d4fa..5c9de0b 100644 --- a/src/Game/State.hs +++ b/src/Game/State.hs @@ -6,7 +6,7 @@ import qualified Game.Map as M maxLives :: Int maxLives = 4 -data PlayState = InPlay | IntoStage | ExitStarted | ExitDone | GameOver deriving (Eq) +data PlayState = InPlay | IntoStage | ExitStarted | ExitDone Int | GameOver deriving (Eq) data State = State { batteries :: Int, -- cgit v1.2.3