| summaryrefslogtreecommitdiff |
diff options
4 files changed, 186 insertions, 119 deletions
diff --git a/src/battlemap/src/View/SideBar/TabMenu/Timeline.elm b/src/battlemap/src/View/SideBar/TabMenu/Timeline.elm index 8ca1f3d..1073735 100644 --- a/src/battlemap/src/View/SideBar/TabMenu/Timeline.elm +++ b/src/battlemap/src/View/SideBar/TabMenu/Timeline.elm @@ -3,8 +3,6 @@ module View.SideBar.TabMenu.Timeline exposing (get_html) -- Elm ------------------------------------------------------------------------- import Array -import Dict - import Html import Html.Attributes --import Html.Events @@ -13,125 +11,15 @@ import Html.Lazy -- Battlemap ------------------------------------------------------------------- import Struct.Event import Struct.TurnResult -import Struct.Character import Struct.Model +import View.SideBar.TabMenu.Timeline.Attack +import View.SideBar.TabMenu.Timeline.Movement +import View.SideBar.TabMenu.Timeline.WeaponSwitch + -------------------------------------------------------------------------------- -- LOCAL ----------------------------------------------------------------------- -------------------------------------------------------------------------------- -get_attack_html : ( - Struct.Model.Type -> - Struct.TurnResult.Attack -> - (Html.Html Struct.Event.Type) - ) -get_attack_html model attack = - case - ( - (Dict.get (toString attack.attacker_index) model.characters), - (Dict.get (toString attack.defender_index) model.characters) - ) - of - ((Just atkchar), (Just defchar)) -> - (Html.div - [ - (Html.Attributes.class "battlemap-timeline-element"), - (Html.Attributes.class "battlemap-timeline-attack") - ] - [ - (Html.text - ( - (Struct.Character.get_name atkchar) - ++ " attacked " - ++ (Struct.Character.get_name defchar) - ++ "!" - ) - ) - ] - ) - - _ -> - (Html.div - [ - (Html.Attributes.class "battlemap-timeline-element"), - (Html.Attributes.class "battlemap-timeline-attack") - ] - [ - (Html.text "Error: Attack with unknown characters") - ] - ) - -get_movement_html : ( - Struct.Model.Type -> - Struct.TurnResult.Movement -> - (Html.Html Struct.Event.Type) - ) -get_movement_html model movement = - case (Dict.get (toString movement.character_index) model.characters) of - (Just char) -> - (Html.div - [ - (Html.Attributes.class "battlemap-timeline-element"), - (Html.Attributes.class "battlemap-timeline-movement") - ] - [ - (Html.text - ( - (Struct.Character.get_name char) - ++ " moved to (" - ++ (toString movement.destination.x) - ++ ", " - ++ (toString movement.destination.y) - ++ ")." - ) - ) - ] - ) - - _ -> - (Html.div - [ - (Html.Attributes.class "battlemap-timeline-element"), - (Html.Attributes.class "battlemap-timeline-movement") - ] - [ - (Html.text "Error: Moving with unknown character") - ] - ) - -get_weapon_switch_html : ( - Struct.Model.Type -> - Struct.TurnResult.WeaponSwitch -> - (Html.Html Struct.Event.Type) - ) -get_weapon_switch_html model weapon_switch = - case (Dict.get (toString weapon_switch.character_index) model.characters) of - (Just char) -> - (Html.div - [ - (Html.Attributes.class "battlemap-timeline-element"), - (Html.Attributes.class "battlemap-timeline-weapon-switch") - ] - [ - (Html.text - ( - (Struct.Character.get_name char) - ++ " switched weapons." - ) - ) - ] - ) - - _ -> - (Html.div - [ - (Html.Attributes.class "battlemap-timeline-element"), - (Html.Attributes.class "battlemap-timeline-weapon-switch") - ] - [ - (Html.text "Error: Unknown character switched weapons") - ] - ) - get_turn_result_html : ( Struct.Model.Type -> Struct.TurnResult.Type -> @@ -140,13 +28,16 @@ get_turn_result_html : ( get_turn_result_html model turn_result = case turn_result of (Struct.TurnResult.Moved movement) -> - (get_movement_html model movement) + (View.SideBar.TabMenu.Timeline.Movement.get_html model movement) (Struct.TurnResult.Attacked attack) -> - (get_attack_html model attack) + (View.SideBar.TabMenu.Timeline.Attack.get_html model attack) (Struct.TurnResult.SwitchedWeapon weapon_switch) -> - (get_weapon_switch_html model weapon_switch) + (View.SideBar.TabMenu.Timeline.WeaponSwitch.get_html + model + weapon_switch + ) true_get_html : ( Struct.Model.Type -> diff --git a/src/battlemap/src/View/SideBar/TabMenu/Timeline/Attack.elm b/src/battlemap/src/View/SideBar/TabMenu/Timeline/Attack.elm new file mode 100644 index 0000000..2fa7e0a --- /dev/null +++ b/src/battlemap/src/View/SideBar/TabMenu/Timeline/Attack.elm @@ -0,0 +1,62 @@ +module View.SideBar.TabMenu.Timeline.Attack exposing (get_html) + +-- Elm ------------------------------------------------------------------------- +import Dict + +import Html +import Html.Attributes +--import Html.Events + +-- Battlemap ------------------------------------------------------------------- +import Struct.Event +import Struct.TurnResult +import Struct.Character +import Struct.Model + +-------------------------------------------------------------------------------- +-- LOCAL ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- EXPORTED -------------------------------------------------------------------- +-------------------------------------------------------------------------------- +get_html : ( + Struct.Model.Type -> + Struct.TurnResult.Attack -> + (Html.Html Struct.Event.Type) + ) +get_html model attack = + case + ( + (Dict.get (toString attack.attacker_index) model.characters), + (Dict.get (toString attack.defender_index) model.characters) + ) + of + ((Just atkchar), (Just defchar)) -> + (Html.div + [ + (Html.Attributes.class "battlemap-timeline-element"), + (Html.Attributes.class "battlemap-timeline-attack") + ] + [ + (Html.text + ( + (Struct.Character.get_name atkchar) + ++ " attacked " + ++ (Struct.Character.get_name defchar) + ++ "!" + ) + ) + ] + ) + + _ -> + (Html.div + [ + (Html.Attributes.class "battlemap-timeline-element"), + (Html.Attributes.class "battlemap-timeline-attack") + ] + [ + (Html.text "Error: Attack with unknown characters") + ] + ) diff --git a/src/battlemap/src/View/SideBar/TabMenu/Timeline/Movement.elm b/src/battlemap/src/View/SideBar/TabMenu/Timeline/Movement.elm new file mode 100644 index 0000000..56560b6 --- /dev/null +++ b/src/battlemap/src/View/SideBar/TabMenu/Timeline/Movement.elm @@ -0,0 +1,59 @@ +module View.SideBar.TabMenu.Timeline.Movement exposing (get_html) + +-- Elm ------------------------------------------------------------------------- +import Dict + +import Html +import Html.Attributes +--import Html.Events + +-- Battlemap ------------------------------------------------------------------- +import Struct.Event +import Struct.TurnResult +import Struct.Character +import Struct.Model + +-------------------------------------------------------------------------------- +-- LOCAL ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- EXPORTED -------------------------------------------------------------------- +-------------------------------------------------------------------------------- +get_html : ( + Struct.Model.Type -> + Struct.TurnResult.Movement -> + (Html.Html Struct.Event.Type) + ) +get_html model movement = + case (Dict.get (toString movement.character_index) model.characters) of + (Just char) -> + (Html.div + [ + (Html.Attributes.class "battlemap-timeline-element"), + (Html.Attributes.class "battlemap-timeline-movement") + ] + [ + (Html.text + ( + (Struct.Character.get_name char) + ++ " moved to (" + ++ (toString movement.destination.x) + ++ ", " + ++ (toString movement.destination.y) + ++ ")." + ) + ) + ] + ) + + _ -> + (Html.div + [ + (Html.Attributes.class "battlemap-timeline-element"), + (Html.Attributes.class "battlemap-timeline-movement") + ] + [ + (Html.text "Error: Moving with unknown character") + ] + ) diff --git a/src/battlemap/src/View/SideBar/TabMenu/Timeline/WeaponSwitch.elm b/src/battlemap/src/View/SideBar/TabMenu/Timeline/WeaponSwitch.elm new file mode 100644 index 0000000..ef7e757 --- /dev/null +++ b/src/battlemap/src/View/SideBar/TabMenu/Timeline/WeaponSwitch.elm @@ -0,0 +1,55 @@ +module View.SideBar.TabMenu.Timeline.WeaponSwitch exposing (get_html) + +-- Elm ------------------------------------------------------------------------- +import Dict + +import Html +import Html.Attributes +--import Html.Events + +-- Battlemap ------------------------------------------------------------------- +import Struct.Event +import Struct.TurnResult +import Struct.Character +import Struct.Model + +-------------------------------------------------------------------------------- +-- LOCAL ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- EXPORTED -------------------------------------------------------------------- +-------------------------------------------------------------------------------- +get_html : ( + Struct.Model.Type -> + Struct.TurnResult.WeaponSwitch -> + (Html.Html Struct.Event.Type) + ) +get_html model weapon_switch = + case (Dict.get (toString weapon_switch.character_index) model.characters) of + (Just char) -> + (Html.div + [ + (Html.Attributes.class "battlemap-timeline-element"), + (Html.Attributes.class "battlemap-timeline-weapon-switch") + ] + [ + (Html.text + ( + (Struct.Character.get_name char) + ++ " switched weapons." + ) + ) + ] + ) + + _ -> + (Html.div + [ + (Html.Attributes.class "battlemap-timeline-element"), + (Html.Attributes.class "battlemap-timeline-weapon-switch") + ] + [ + (Html.text "Error: Unknown character switched weapons") + ] + ) |