Refactoring, add screen when generating level

src/Dodge/Update.hs

@@ -41,11 +41,14 @@ pushSideEffects w = w
 For most menus the only way to change the world is using event handling.  -}
 update' :: World -> World
 update' w = case _menuLayers w of
-    (WaitMessage _ : ls) -> w & menuLayers .~ ls
+    (WaitMessage s i: ls) 
+        | i < 1     -> w & doubleArgumentFor _worldEvents
+        | otherwise -> w & menuLayers %~ ( (WaitMessage s (i-1) :) . tail )
     (GameOverMenu : _) -> updateParticles 
         . updateProjectiles 
         . updateLightSources
-        $ updateClouds
+        . updateClouds
+        $ updateSoundQueue
         w
     (_ : _) -> w
     []  -> checkEndGame