| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/Update')
| -rw-r--r-- | src/Update/Story.elm | 62 |
1 files changed, 57 insertions, 5 deletions
diff --git a/src/Update/Story.elm b/src/Update/Story.elm index 3c9d041..708f5a9 100644 --- a/src/Update/Story.elm +++ b/src/Update/Story.elm @@ -67,6 +67,17 @@ step model = ) } + (Tonkadur.Types.MustPromptFloat min max label) -> + {model | + tonkadur = (Tonkadur.Types.allow_continuing model.tonkadur), + ui = + (Struct.UI.prompt_float + (Tonkadur.Types.value_to_float min) + (Tonkadur.Types.value_to_float max) + model.ui + ) + } + (Tonkadur.Types.MustPromptInteger min max label) -> {model | tonkadur = (Tonkadur.Types.allow_continuing model.tonkadur), @@ -95,7 +106,7 @@ step model = (List.foldl (\option (ix, ui) -> case option of - (Tonkadur.Types.Choice rich_text) -> + (Tonkadur.Types.TextOption rich_text) -> ( (ix + 1), (Struct.UI.display_choice @@ -142,7 +153,7 @@ step model = } ) - _ -> model +-- _ -> model -------------------------------------------------------------------------------- -- EXPORTED -------------------------------------------------------------------- @@ -155,9 +166,11 @@ select_choice ix model = (step {model | tonkadur = - (Tonkadur.Types.set_last_choice_index - ix - model.tonkadur + (Tonkadur.Types.clear_all_options + (Tonkadur.Types.set_last_choice_index + ix + model.tonkadur + ) ) } ) @@ -191,6 +204,45 @@ input_string string model = } ) +input_float : String -> Struct.Model.Type -> Struct.Model.Type +input_float string model = + case (String.toFloat string) of + Nothing -> + {model | + ui = + (Struct.UI.display_string_error + "Input expects a float." + model.ui + ) + } + + (Just float) -> + if ((float < model.ui.min_float) || (float > model.ui.max_float)) + then + {model | + ui = + (Struct.UI.display_string_error + ( + "Input float should be between " + ++ (String.fromFloat model.ui.min_float) + ++ " and " + ++ (String.fromFloat model.ui.max_float) + ++ "." + ) + model.ui + ) + } + else + (step + {model | + tonkadur = + (Tonkadur.Types.set_target_from_float + float + model.tonkadur + ) + } + ) + input_integer : String -> Struct.Model.Type -> Struct.Model.Type input_integer string model = case (String.toInt string) of |