18 lines
434 B
Standard ML
18 lines
434 B
Standard ML
structure TitleUpdate =
|
|
struct
|
|
open TitleType
|
|
|
|
fun update (titleState, input: FrameInputType.t, userKeys) =
|
|
case #focus titleState of
|
|
START_BUTTON =>
|
|
let
|
|
val mode =
|
|
if #attackHeld input orelse #jumpHeld input then
|
|
GameType.LEVEL LevelType.initial
|
|
else
|
|
GameType.TITLE titleState
|
|
in
|
|
{mode = mode, userKeys = userKeys}
|
|
end
|
|
end
|