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/Entities.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Game/Entities.hs') 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 -- cgit v1.2.3