summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNathanael Sensfelder <SpamShield0@MultiAgentSystems.org>2017-09-27 10:31:16 +0200
committerNathanael Sensfelder <SpamShield0@MultiAgentSystems.org>2017-09-27 10:31:16 +0200
commit2c9b2af9ac011a871c5c02d3e2258fca73a98880 (patch)
tree653db3959f444f1065f05658650c6ec81863d627 /client/elm/battlemap/src/View/Status.elm
parent33e57128d48a012533c42635f52037fcdedd4c56 (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.elm42
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."
- )
- )