Clears up View.elm.

1 files changed, 30 insertions, 0 deletions

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."
+                  )
+      )
+   )