From 2c9b2af9ac011a871c5c02d3e2258fca73a98880 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Wed, 27 Sep 2017 10:31:16 +0200 Subject: Splits client and server into two repositories. --- client/elm/battlemap/src/View/Status.elm | 42 -------------------------------- 1 file changed, 42 deletions(-) delete mode 100644 client/elm/battlemap/src/View/Status.elm (limited to 'client/elm/battlemap/src/View/Status.elm') 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." - ) - ) -- cgit v1.2.3-70-g09d2