From 127f9c3fe7190a4e5daebf63b6fad7dd75af3257 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Fri, 7 Jan 2022 19:35:38 +0100
Subject: ...

---
 src/Tonkadur/PlayerInput.elm | 85 --------------------------------------------
 1 file changed, 85 deletions(-)
 delete mode 100644 src/Tonkadur/PlayerInput.elm

(limited to 'src/Tonkadur/PlayerInput.elm')

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
-         )
-   }
-- 
cgit v1.2.3-70-g09d2