From babe47cb2541113e245f7db4b5e981f23f985fa3 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Fri, 22 Sep 2017 14:47:47 +0200 Subject: Clears up View.elm. --- client/elm/battlemap/src/View/Status.elm | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create 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 new file mode 100644 index 0000000..544aa4b --- /dev/null +++ b/client/elm/battlemap/src/View/Status.elm @@ -0,0 +1,30 @@ +module View.Status exposing (view) + +import Dict + +import Html + +import Update +import Model + +view : Model.Type -> (Html.Html Update.Type) +view model = + (Html.text + (case (model.selection, model.navigator) of + (Nothing, _) -> "" + (_, Nothing) -> "" + ((Just char_id), (Just nav)) -> + case (Dict.get char_id model.characters) of + Nothing -> "" + (Just char) -> + ( + "Controlling " + ++ char.name + ++ ": " + ++ (toString nav.remaining_points) + ++ "/" + ++ (toString char.movement_points) + ++ " movement points remaining." + ) + ) + ) -- cgit v1.2.3-70-g09d2