humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

allow user to press up and down to select different options in options

Browse Source
This commit is contained in:
Humza Shahid
2025-02-21 06:37:16 +00:00
parent 6cd7edb5ab
commit c81ca5dcf3
1 changed files with 39 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
fcore/options/options-update.sml
View File

@@ -1,5 +1,43 @@
structure OptionsUpdate =
struct
fun update (options, input, userKeys) =
open OptionsType
fun default (options, userKeys) =
{mode = GameType.OPTIONS options, userKeys = userKeys}
fun withFocus (newFocus, userKeys) =
{mode = GameType.OPTIONS {focus = newFocus}, userKeys = userKeys}
fun update (options, input: FrameInputType.t, userKeys) =
case #focus options of
LEFT_KEY =>
if #downHeld input then withFocus (RIGHT_KEY, userKeys)
else default (options, userKeys)
| RIGHT_KEY =>
if #upHeld input then withFocus (LEFT_KEY, userKeys)
else if #downHeld input then withFocus (UP_KEY, userKeys)
else default (options, userKeys)
| UP_KEY =>
if #upHeld input then withFocus (RIGHT_KEY, userKeys)
else if #downHeld input then withFocus (DOWN_KEY, userKeys)
else default (options, userKeys)
| DOWN_KEY =>
if #upHeld input then withFocus (UP_KEY, userKeys)
else if #downHeld input then withFocus (JUMP_KEY, userKeys)
else default (options, userKeys)
| JUMP_KEY =>
if #upHeld input then withFocus (DOWN_KEY, userKeys)
else if #downHeld input then withFocus (ATTACK_KEY, userKeys)
else default (options, userKeys)
| ATTACK_KEY =>
if #upHeld input then withFocus (JUMP_KEY, userKeys)
else if #downHeld input then withFocus (SAVE_BUTTON, userKeys)
else default (options, userKeys)
| SAVE_BUTTON =>
if #upHeld input then withFocus (ATTACK_KEY, userKeys)
else if #downHeld input then withFocus (CANCEL_BUTTON, userKeys)
else default (options, userKeys)
| CANCEL_BUTTON =>
if #upHeld input then withFocus (SAVE_BUTTON, userKeys)
else default (options, userKeys)
end