justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Work on wrist shields, cleanup

Browse Source
This commit is contained in:
justin
2022-05-25 22:34:22 +01:00
parent 525f45efeb
commit ba80bfd0ad
5 changed files with 26 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Menu.hs
+14 -11
View File
@@ -77,19 +77,22 @@ debugMenu = slTitleOptions
"OPTIONS:GAMEPLAY"
debugMenuOptions
debugMenuOptions :: [MenuOption]
debugMenuOptions =
[ doption ScancodeF debug_seconds_frame "SHOW SECONDS/FRAME" _debug_seconds_frame
, doption ScancodeC debug_noclip "NOCLIP" _debug_noclip
, doption ScancodeT debug_cr_status "SHOW CREATURE STATUS" _debug_cr_status
, doption ScancodeA debug_cr_awareness "SHOW CREATURE AWARENESS" _debug_cr_awareness
, doption ScancodeV debug_view_boundaries "SHOW VIEW BOUNDARIES" _debug_view_boundaries
, makeEnumOption ScancodeB debug_view_clip_bounds "SHOW ROOM CLIP" return
, doption ScancodeP debug_pathing "SHOW PATHING" _debug_pathing
, doption ScancodeS debug_show_sound "SHOW VISUAL SOUNDS" _debug_show_sound
, doption ScancodeM debug_mouse_position "SHOW MOUSE POSITION" _debug_mouse_position
debugMenuOptions = zipWith ($)
[ doption debug_seconds_frame "SHOW SECONDS/FRAME" _debug_seconds_frame
, doption debug_noclip "NOCLIP" _debug_noclip
, doption debug_cr_status "SHOW CREATURE STATUS" _debug_cr_status
, doption debug_cr_awareness "SHOW CREATURE AWARENESS" _debug_cr_awareness
, doption debug_view_boundaries "SHOW VIEW BOUNDARIES" _debug_view_boundaries
, \sc -> makeEnumOption sc debug_view_clip_bounds "SHOW ROOM CLIP" return
, doption debug_pathing "SHOW PATHING" _debug_pathing
, doption debug_show_sound "SHOW VISUAL SOUNDS" _debug_show_sound
, doption debug_mouse_position "SHOW MOUSE POSITION" _debug_mouse_position
--, doption debug_walls "SHOW WALL INFO" _debug_walls
, \sc -> makeBoolOption sc debug_walls "SHOW WALL INFO"
]
$ map Scancode [4 ..]
where
doption scode l t rec
doption l t rec scode
= Toggle scode (return . Just . (config . l %~ not)) (\w -> Right (t ,show (rec $ _config w)))
gameplayMenu :: ScreenLayer
gameplayMenu = slTitleOptions