| summaryrefslogtreecommitdiff | 
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2017-09-27 10:31:16 +0200 | 
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2017-09-27 10:31:16 +0200 | 
| commit | 2c9b2af9ac011a871c5c02d3e2258fca73a98880 (patch) | |
| tree | 653db3959f444f1065f05658650c6ec81863d627 /client/elm/battlemap/src/View/Status.elm | |
| parent | 33e57128d48a012533c42635f52037fcdedd4c56 (diff) | |
Splits client and server into two repositories.
Diffstat (limited to 'client/elm/battlemap/src/View/Status.elm')
| -rw-r--r-- | client/elm/battlemap/src/View/Status.elm | 42 | 
1 files changed, 0 insertions, 42 deletions
| diff --git a/client/elm/battlemap/src/View/Status.elm b/client/elm/battlemap/src/View/Status.elm deleted file mode 100644 index a7beb28..0000000 --- a/client/elm/battlemap/src/View/Status.elm +++ /dev/null @@ -1,42 +0,0 @@ -module View.Status exposing (view) - -import Dict - -import Html - -import Error -import Event -import Model - -moving_character_text : Model.Type -> String -moving_character_text model = -   case model.selection of -      Nothing -> "Error: no model.selection." -      (Just selection) -> -         case (Dict.get selection.character model.characters) of -            Nothing -> "Error: Unknown character selected." -            (Just char) -> -               ( -                  "Controlling " -                  ++ char.name -                  ++ ": " -                  ++ (toString selection.navigator.remaining_points) -                  ++ "/" -                  ++ (toString char.movement_points) -                  ++ " movement points remaining." -               ) - -view : Model.Type -> (Html.Html Event.Type) -view model = -   (Html.text -      (case model.state of -         Model.Default -> "Click on a character to control it." -         Model.MovingCharacterWithButtons -> (moving_character_text model) -         Model.MovingCharacterWithClick -> (moving_character_text model) -         Model.FocusingTile -> "Error: Unimplemented." -         (Model.Error Error.Programming) -> -            "Error of programming, please report." -         (Model.Error Error.IllegalAction) -> -            "This cannot be done while in this state." -      ) -   ) | 


