game-sml/fcore/title/title-update.sml

structure TitleUpdate =
struct
  open TitleType

  fun update (titleState, input: FrameInputType.t, userKeys, time) =
    case #focus titleState of
      START_BUTTON =>
        let
          val mode =
            if CoreKey.containsAttack (userKeys, #newKeys input) then
              GameType.LEVEL LevelType.initial
            else
              let
                val titleState =
                  if #downHeld input then {focus = OPTIONS_BUTTON}
                  else titleState
              in
                GameType.TITLE titleState
              end
        in
          {mode = mode, userKeys = userKeys, saveKeys = false}
        end
    | OPTIONS_BUTTON =>
        let
          val mode =
            if CoreKey.containsAttack (userKeys, #newKeys input) then
              let val options = OptionsType.init userKeys
              in GameType.OPTIONS options
              end
            else
              let
                val titleState =
                  if #upHeld input then {focus = START_BUTTON} else titleState
              in
                GameType.TITLE titleState
              end
        in
          {mode = mode, userKeys = userKeys, saveKeys = false}
        end
end
begin title screen by adding title screen type 2025-02-19 03:39:36 +00:00			`structure TitleUpdate =`
			`struct`
			`open TitleType`

thread time through update functions so it can be used 2025-02-21 08:58:45 +00:00			`fun update (titleState, input: FrameInputType.t, userKeys, time) =`
when play button is focused on title screen and either attack or jump button is pressed, start level 2025-02-20 05:46:00 +00:00			`case #focus titleState of`
			`START_BUTTON =>`
			`let`
			`val mode =`
trigger confirmation in title-update.sml only when attack is newly pressed (not when attack is held) 2025-02-22 04:53:51 +00:00			`if CoreKey.containsAttack (userKeys, #newKeys input) then`
when play button is focused on title screen and either attack or jump button is pressed, start level 2025-02-20 05:46:00 +00:00			`GameType.LEVEL LevelType.initial`
add function to make text vec to its own module so it can be reused across different modes 2025-02-20 06:13:33 +00:00			`else`
add functionality to move between start button/options button 2025-02-20 06:00:49 +00:00			`let`
			`val titleState =`
add function to make text vec to its own module so it can be reused across different modes 2025-02-20 06:13:33 +00:00			`if #downHeld input then {focus = OPTIONS_BUTTON}`
			`else titleState`
add functionality to move between start button/options button 2025-02-20 06:00:49 +00:00			`in`
			`GameType.TITLE titleState`
			`end`
			`in`
add 'saveKeys' boolean to GameType.game_type, which should tell us to assign the new userKeys record to the InputState (which is implemented), and should also tell us to convert the keys to a string and save it to controls.config 2025-02-21 18:32:48 +00:00			`{mode = mode, userKeys = userKeys, saveKeys = false}`
add functionality to move between start button/options button 2025-02-20 06:00:49 +00:00			`end`
			`\| OPTIONS_BUTTON =>`
			`let`
add function to make text vec to its own module so it can be reused across different modes 2025-02-20 06:13:33 +00:00			`val mode =`
trigger confirmation in title-update.sml only when attack is newly pressed (not when attack is held) 2025-02-22 04:53:51 +00:00			`if CoreKey.containsAttack (userKeys, #newKeys input) then`
add 'tempKeys' field to OptionsType.options_type, so that any key binding changes in the menu do not take immediate effect (requires pressing 'save button' in order for changes to be saved and take effect) 2025-02-21 18:18:39 +00:00			`let val options = OptionsType.init userKeys`
			`in GameType.OPTIONS options`
			`end`
add functionality to move between start button/options button 2025-02-20 06:00:49 +00:00			`else`
			`let`
			`val titleState =`
add function to make text vec to its own module so it can be reused across different modes 2025-02-20 06:13:33 +00:00			`if #upHeld input then {focus = START_BUTTON} else titleState`
add functionality to move between start button/options button 2025-02-20 06:00:49 +00:00			`in`
			`GameType.TITLE titleState`
			`end`
when play button is focused on title screen and either attack or jump button is pressed, start level 2025-02-20 05:46:00 +00:00			`in`
add 'saveKeys' boolean to GameType.game_type, which should tell us to assign the new userKeys record to the InputState (which is implemented), and should also tell us to convert the keys to a string and save it to controls.config 2025-02-21 18:32:48 +00:00			`{mode = mode, userKeys = userKeys, saveKeys = false}`
when play button is focused on title screen and either attack or jump button is pressed, start level 2025-02-20 05:46:00 +00:00			`end`
begin title screen by adding title screen type 2025-02-19 03:39:36 +00:00			`end`