diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2023-05-16 22:52:34 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2023-05-16 22:52:34 +0100 |
| commit | 528154a4645fdb82f623655ded4319d72877444b (patch) | |
| tree | d2319ca1877f38ab9ff5a44ecfe404c7ad6992fb /src/Game/Entities.hs | |
| parent | 5b13a8c276199f3ccdfdcb0d96dd7631b7e1b1fb (diff) | |
| download | space-plat-hs-528154a4645fdb82f623655ded4319d72877444b.tar.gz space-plat-hs-528154a4645fdb82f623655ded4319d72877444b.zip | |
Change stage using a simple transition
Diffstat (limited to 'src/Game/Entities.hs')
| -rw-r--r-- | src/Game/Entities.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Game/Entities.hs b/src/Game/Entities.hs index 6ddf589..578bf51 100644 --- a/src/Game/Entities.hs +++ b/src/Game/Entities.hs @@ -116,7 +116,7 @@ updateAll es state = do ((head ents) {typ = TypeEffect} : tail ents) t ActionEntryDone -> processActions s {GS.playState = GS.InPlay} ents t - ActionExitDone -> processActions s {GS.playState = GS.ExitDone} ents t + ActionExitDone -> processActions s {GS.playState = GS.ExitDone 0} ents t ActionAddBlast x y d playerCollision isBlocked -> do blast <- mkBlast es.sprites x y d playerCollision isBlocked processActions s (ents ++ [blast]) t |