| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2022-01-07 19:35:38 +0100 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2022-01-07 19:35:38 +0100 |
| commit | 127f9c3fe7190a4e5daebf63b6fad7dd75af3257 (patch) | |
| tree | 2e2e37de651acee10ca87f548919c9073f6718f7 /src/Tonkadur/PlayerInput.elm | |
| parent | b2d29a6ec8d55cebaae7cbff86375f05c77c2d11 (diff) | |
...
Diffstat (limited to 'src/Tonkadur/PlayerInput.elm')
| -rw-r--r-- | src/Tonkadur/PlayerInput.elm | 85 |
1 files changed, 0 insertions, 85 deletions
diff --git a/src/Tonkadur/PlayerInput.elm b/src/Tonkadur/PlayerInput.elm deleted file mode 100644 index facf9e5..0000000 --- a/src/Tonkadur/PlayerInput.elm +++ /dev/null @@ -1,85 +0,0 @@ -module Tonkadur.PlayerInput exposing (..) - --- Elm ------------------------------------------------------------------------- -import Dict -import List - --- Tonkadur -------------------------------------------------------------------- -import Tonkadur.Types - --------------------------------------------------------------------------------- --- TYPES ----------------------------------------------------------------------- --------------------------------------------------------------------------------- - --------------------------------------------------------------------------------- --- LOCAL ----------------------------------------------------------------------- --------------------------------------------------------------------------------- - --------------------------------------------------------------------------------- --- EXPORTED -------------------------------------------------------------------- --------------------------------------------------------------------------------- -select_choice : Int -> Tonkadur.Types.State -> Tonkadur.Types.State -select_choice index state = {state | last_choice_index = index} - -input_string : String -> Tonkadur.Types.State -> Tonkadur.Types.State -input_string string state = - {state | - memory = - (Tonkadur.Types.apply_at_address - (Tonkadur.Types.value_to_address state.memorized_target) - (\last_address dict -> - (Dict.insert last_address (StringValue string) dict) - ) - state.memory - ) - } - -input_int : Int -> Tonkadur.Types.State -> Tonkadur.Types.State -input_int int state = - {state | - memory = - (Tonkadur.Types.apply_at_address - (Tonkadur.Types.value_to_address state.memorized_target) - (\last_address dict -> - (Dict.insert last_address (IntValue int) dict) - ) - state.memory - ) - } - -input_command : ( - (List String) -> - Tonkadur.Types.State -> - Tonkadur.Types.State - ) -input_command commands state = - {state | - memory = - (Tonkadur.Types.apply_at_address - (Tonkadur.Types.value_to_address state.memorized_target) - (\last_address dict -> - (Dict.insert - last_address - (ListValue - (Dict.fromList - (List.indexedMap - (\index value -> - ( - ( - case (String.fromInt index) of - (Just i) -> i - Nothing -> "invalid_index" - ), - value - ) - ) - commands - ) - ) - ) - dict - ) - ) - state.memory - ) - } |