aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/battlemap/src/View/Controlled.elm')
-rw-r--r--src/battlemap/src/View/Controlled.elm56
1 files changed, 3 insertions, 53 deletions
diff --git a/src/battlemap/src/View/Controlled.elm b/src/battlemap/src/View/Controlled.elm
index 890b59a..6f1e10d 100644
--- a/src/battlemap/src/View/Controlled.elm
+++ b/src/battlemap/src/View/Controlled.elm
@@ -1,4 +1,4 @@
-module View.Footer exposing (get_html)
+module View.Controlled exposing (get_html)
-- Elm -------------------------------------------------------------------------
import Html
@@ -39,31 +39,6 @@ inventory_button =
[ (Html.text "Switch Weapon") ]
)
-get_navigator_info : (
- Struct.Model.Type ->
- Struct.Character.Type ->
- String
- )
-get_navigator_info model char =
- case
- (Struct.CharacterTurn.try_getting_navigator model.char_turn)
- of
- (Just nav) ->
- (
- (toString (Struct.Navigator.get_remaining_points nav))
- ++ "/"
- ++
- (toString
- (Struct.Statistics.get_movement_points
- (Struct.Character.get_statistics char)
- )
- )
- ++ " movement points remaining"
- )
-
- _ ->
- "[Error: Character selected yet navigator undefined.]"
-
get_curr_char_info_htmls : (
Struct.Model.Type ->
Struct.Character.Type ->
@@ -75,43 +50,18 @@ get_curr_char_info_htmls model char =
of
Struct.CharacterTurn.SelectedCharacter ->
[
- (Html.text
- (
- "Controlling "
- ++ char.name
- ++ ". Move ("
- ++ (get_navigator_info model char)
- ++ "), "
- )
- ),
(attack_button),
- (Html.text ", or "),
(inventory_button)
]
Struct.CharacterTurn.MovedCharacter ->
[
- (Html.text
- (
- "Controlling "
- ++ char.name
- ++ ". Moved. Select a target, or "
- )
- ),
(end_turn_button)
]
Struct.CharacterTurn.ChoseTarget ->
[
- (Html.text
- (
- "Controlling "
- ++ char.name
- ++ ". Moved. Chose a target. Click on "
- )
- ),
- (end_turn_button),
- (Html.text "to end turn.")
+ (end_turn_button)
]
_ ->
@@ -135,7 +85,7 @@ get_html model =
of
(Just char) ->
(Html.div
- [(Html.Attributes.class "battlemap-footer")]
+ [(Html.Attributes.class "battlemap-controlled")]
(get_curr_char_info_htmls model char)
)