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