Move debug flags to config, various perf improvements

src/Dodge/Menu.hs

@@ -33,13 +33,30 @@ optionsOptions =
     [ Toggle ScancodeV (pushScreen soundMenu)    (const "VOLUME")
     , Toggle ScancodeG (pushScreen graphicsMenu) (const "GRAPHICS")
     , Toggle ScancodeP (pushScreen gameplayOptionsMenu) (const "GAMEPLAY")
+    , Toggle ScancodeD (pushScreen debugOptionsMenu) (const "DEBUG OPTIONS")
+    ]
+debugOptionsMenu :: ScreenLayer
+debugOptionsMenu  = OptionScreen
+    { _scTitle = const "OPTIONS:GAMEPLAY"
+    , _scOptions = debugMenuOptions
+    , _scDefaultEff = popScreen . writeConfig
+    , _scOptionFlag = NormalOptions
+    }
+debugMenuOptions :: [MenuOption]
+debugMenuOptions =
+    [ Toggle 
+        ScancodeF 
+        (Just . (config . debug_seconds_frame %~ not))
+        (\w -> "SHOW SECONDS/FRAME:" ++ show (_debug_seconds_frame $ _config w))
+    , Toggle 
+        ScancodeC 
+        (Just . (config . debug_noclip %~ not))
+        (\w -> "NOCLIP:" ++ show (_debug_noclip $ _config w))
+    , Toggle 
+        ScancodeS 
+        (Just . (config . debug_cr_status %~ not))
+        (\w -> "SHOW CREATURE STATUS:" ++ show (_debug_cr_status $ _config w))
     ]
---levelMenuOptions :: [MenuOption]
---levelMenuOptions =
---    [  InvisibleToggle ScancodeEscape (const Nothing)
---    ,  InvisibleToggle ScancodeO      (pushScreen optionMenu)
---    ,  InvisibleToggle ScancodeC      (pushScreen displayControls)
---    ]
 gameplayOptionsMenu :: ScreenLayer
 gameplayOptionsMenu  = OptionScreen
     { _scTitle = const "OPTIONS:GAMEPLAY"