Add text messages on loading screens

src/Dodge/Update.hs

@@ -136,7 +136,7 @@ openConsole = \case
 updateUniverseLast :: Universe -> Universe
 updateUniverseLast u =
     u
-        & over (uvWorld . input . textInput) (const mempty)
+        & uvWorld . input . textInput .~ mempty
         & maybeOpenConsole
         & advanceScrollAmount
         & updateWorldEventFlags
@@ -155,7 +155,6 @@ updateUniverseLast u =
 {- For most menus the only way to change the world is using event handling.  -}
 updateUniverseMid :: Universe -> Universe
 updateUniverseMid u = case _uvScreenLayers u of
-    (OptionScreen{_scOptionFlag = LoadingScreen} : _) -> u
     (sl : _) -> u & uvWorld . unpauseClock .~ 0 & updateUseInputOnScreen sl
     [] ->
         (uvWorld . unpauseClock +~ 1)
@@ -178,6 +177,7 @@ timeFlowUpdate u = case u ^. uvWorld . timeFlow of
     RewindLeftClick _ _ -> over uvWorld scrollTimeBack u
     RespawnDelay{} -> functionalUpdate u
     PausedTimeFlow _ itmloc -> over uvWorld (pauseTime itmloc) u
+    PauseTimeMessage {} -> u
 
 pauseTime :: NewInt ItmInt -> World -> World
 pauseTime _ w