diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2023-03-11 23:17:21 +0000 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2023-03-11 23:17:21 +0000 |
| commit | 897bfe0f72ddc80a020a421cbe987b54716e571e (patch) | |
| tree | 4fefcc434abf0e0699f40276efefa71a802457b5 /src/Game.hs | |
| parent | edc6b611de752a224082583cd00d19ee6da04c5e (diff) | |
| download | space-plat-hs-897bfe0f72ddc80a020a421cbe987b54716e571e.tar.gz space-plat-hs-897bfe0f72ddc80a020a421cbe987b54716e571e.zip | |
Exit transition
Diffstat (limited to 'src/Game.hs')
| -rw-r--r-- | src/Game.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Game.hs b/src/Game.hs index 8c416e3..be34a08 100644 --- a/src/Game.hs +++ b/src/Game.hs @@ -166,7 +166,7 @@ gameLoop e = do | state.batteries == state.totalBatteries && not state.exit = do es <- E.addExit env.entities x (y - 8) -- adjusted to player's height pure env {entities = es, state = state {GS.exit = True}} - | state.levelCompleted = do + | state.levelCompleted == GS.ExitDone = do map' <- M.load (maps !! (env.state.currentLevel + 1)) env.tsTexture entities <- E.mkEntities env.sprites map' env.controls pure $ |