Cleanup, add unpause clock

2025-06-01 09:12:18 +01:00
parent c56e3e96ee
commit b7cd91b56e
9 changed files with 138 additions and 143 deletions
@@ -158,8 +158,9 @@ updateUniverseMid :: Universe -> Universe
 updateUniverseMid u = case _uvScreenLayers u of
    (OptionScreen{_scOptionFlag = LoadingScreen} : _) -> u
 --    (sl@OptionScreen{_scOptionFlag = GameOverOptions} : _) -> u & updateUseInputOnScreen sl
-    (sl : _) -> u & updateUseInputOnScreen sl
+    (sl : _) -> u & uvWorld . unpauseClock .~ 0 & updateUseInputOnScreen sl
    [] ->
+        (uvWorld . unpauseClock +~ 1) .
        timeFlowUpdate . updateUseInputInGame $
            over
                uvWorld