From 7fee343d0039a07ebddf854d1896b799a8bd04d4 Mon Sep 17 00:00:00 2001 From: justin Date: Wed, 15 Apr 2026 23:52:37 +0100 Subject: [PATCH] Allow sounds to play after death --- appDodge/Main.hs | 1 + src/Dodge/Update.hs | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/appDodge/Main.hs b/appDodge/Main.hs index 4b98acea3..dd96d85a0 100644 --- a/appDodge/Main.hs +++ b/appDodge/Main.hs @@ -110,6 +110,7 @@ updateRenderSplit win u = do playSoundUnlessRewinding :: Universe -> IO (M.Map SoundOrigin Sound) playSoundUnlessRewinding u = case w ^. timeFlow of NormalTimeFlow -> playSoundAndUpdate (_soundData $ _preloadData u) (_playingSounds w) (newSoundsToPlay u) + RespawnDelay{} -> playSoundAndUpdate (_soundData $ _preloadData u) (_playingSounds w) (newSoundsToPlay u) _ -> stopAllSounds >> return M.empty where w = _uvWorld u diff --git a/src/Dodge/Update.hs b/src/Dodge/Update.hs index c24ff1bcb..bdd42c0b2 100644 --- a/src/Dodge/Update.hs +++ b/src/Dodge/Update.hs @@ -880,7 +880,7 @@ checkEndGame uv = case w ^? timeFlow . respawnDelay of & uvWorld . timeFlow .~ NormalTimeFlow & uvWorld %~ respawn Just _ -> uv & uvWorld . timeFlow . respawnDelay -~ 1 - _ | null (you w ^? crHP . _HP) -> uv & uvWorld . timeFlow .~ RespawnDelay 50 + _ | null (you w ^? crHP . _HP) -> uv & uvWorld . timeFlow .~ RespawnDelay 100 _ -> uv where w = _uvWorld uv