module View.Status exposing (view)

import Dict

import Html

import Battlemap
import Character

import Error
import Event
import Model

moving_character_text : Model.Type -> String
moving_character_text model =
   case model.selection of
      (Model.SelectedCharacter char_id) ->
         case (Dict.get char_id model.characters) of
            Nothing -> "Error: Unknown character selected."
            (Just char) ->
               (
                  "Controlling "
                  ++ char.name
                  ++ ": "
                  ++ (toString
                        (Battlemap.get_navigator_remaining_points
                           model.battlemap
                        )
                     )
                  ++ "/"
                  ++ (toString (Character.get_movement_points char))
                  ++ " movement points remaining."
               )
      _ -> "Error: model.selection does not match its state."

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."
         )
         ++ " " ++
         (case model.error of
            Nothing -> ""
            (Just error) -> (Error.to_string error)
         )
      )
   )