Refactor event handling. Allow mouse movement in menus

2021-04-07 21:59:44 +02:00
parent d42cb89dd2
commit 294f2509d0
12 changed files with 319 additions and 317 deletions
@@ -0,0 +1,45 @@
+module Dodge.Event.Menu
+    ( handlePressedKeyInMenu
+    )
+    where
+import Dodge.Data
+import Dodge.Rooms
+import Dodge.Floor
+import Dodge.Initialisation
+import Dodge.SoundLogic
+
+import Data.Maybe
+import qualified Data.Set as S
+
+import Control.Lens
+
+import SDL
+
+handlePressedKeyInMenu :: MenuState -> Scancode -> World -> Maybe World
+handlePressedKeyInMenu mState scode w = case mState of
+    LevelMenu _ -> case scode of
+            ScancodeEscape -> Nothing
+            _               -> startLevel w
+    PauseMenu   -> case scode of
+            ScancodeEscape -> Nothing
+            ScancodeR      -> return $ fromMaybe w $ _storedLevel w
+            ScancodeN      -> Just $ putSound $ generateLevel 1 
+                                      $ initialWorld {_randGen = _randGen w}
+            _              -> unpause w
+    GameOverMenu -> case scode of
+            ScancodeEscape -> Nothing
+            ScancodeR      -> Just $ fromMaybe w $ _storedLevel w
+            ScancodeN      -> Just $ putSound $ generateLevel 1 
+                                                       $ initialWorld
+                                                           {_randGen = _randGen w}
+    _ -> Just w
+  where 
+    unpause w' = Just . resumeSound $
+                        w' {_menuState = InGame}
+    startLevel = unpause . storeLevel
+    putSound = id -- set loadedSounds (_loadedSounds w)
+
+storeLevel :: World -> World
+storeLevel w = case _storedLevel w of
+                 Nothing -> w & storedLevel ?~ w
+                 _       -> w