Re-activates the (somewhat broken) sub-menus.

3 files changed, 363 insertions, 0 deletions

diff --git a/src/battlemap/src/View/SubMenu/Timeline/Attack.elm b/src/battlemap/src/View/SubMenu/Timeline/Attack.elm
new file mode 100644
index 0000000..6dab423
--- /dev/null
+++ b/src/battlemap/src/View/SubMenu/Timeline/Attack.elm
@@ -0,0 +1,191 @@
+module View.SubMenu.Timeline.Attack exposing (get_html)
+
+-- Elm -------------------------------------------------------------------------
+import Dict
+
+import Html
+import Html.Attributes
+--import Html.Events
+
+-- Battlemap -------------------------------------------------------------------
+import Struct.Attack
+import Struct.Event
+import Struct.TurnResult
+import Struct.Character
+import Struct.Model
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_title_html : (
+      Struct.Character.Type ->
+      Struct.Character.Type ->
+      (Html.Html Struct.Event.Type)
+   )
+get_title_html attacker defender =
+   (Html.div
+      [
+         (Html.Attributes.class "battlemap-timeline-attack-title")
+      ]
+      [
+         (Html.text
+            (
+               (Struct.Character.get_name attacker)
+               ++ " attacked "
+               ++ (Struct.Character.get_name defender)
+               ++ "!"
+            )
+         )
+      ]
+   )
+
+get_portrait_html : (
+      String ->
+      Struct.Character.Type ->
+      (Html.Html Struct.Event.Type)
+   )
+get_portrait_html viewer_id char =
+   (Html.div
+      [
+         (Html.Attributes.class "battlemap-timeline-portrait"),
+         (Html.Attributes.class
+            (
+               if ((Struct.Character.get_player_id char) == viewer_id)
+               then
+                  "battlemap-character-ally"
+               else
+                  "battlemap-character-enemy"
+            )
+         ),
+        (Html.Attributes.class
+            (
+               "asset-character-portrait-"
+               ++ (Struct.Character.get_portrait_id char)
+            )
+         )
+      ]
+      [
+      ]
+   )
+
+get_effect_text : Struct.Attack.Type -> String
+get_effect_text attack =
+   (
+      (
+         case attack.precision of
+            Struct.Attack.Hit -> " hit for "
+            Struct.Attack.Graze -> " grazed for "
+            Struct.Attack.Miss -> " missed."
+      )
+      ++
+      (
+         if (attack.precision == Struct.Attack.Miss)
+         then
+            ""
+         else
+            (
+               ((toString attack.damage) ++ " damage")
+               ++
+               (
+                  if (attack.critical)
+                  then " (Critical Hit)."
+                  else "."
+               )
+            )
+      )
+   )
+
+get_attack_html : (
+      Struct.Character.Type ->
+      Struct.Character.Type ->
+      Struct.Attack.Type ->
+      (Html.Html Struct.Event.Type)
+   )
+get_attack_html attacker defender attack =
+   let
+      attacker_name = (Struct.Character.get_name attacker)
+      defender_name = (Struct.Character.get_name defender)
+   in
+   (Html.div
+      []
+      [
+         (Html.text
+            (
+               case (attack.order, attack.parried) of
+                  (Struct.Attack.Counter, True) ->
+                     (
+                        defender_name
+                        ++ " attempted to strike back, but "
+                        ++ attacker_name
+                        ++ " parried, and "
+                        ++ (get_effect_text attack)
+                     )
+
+                  (Struct.Attack.Counter, _) ->
+                     (
+                        defender_name
+                        ++ " striked back, and "
+                        ++ (get_effect_text attack)
+                     )
+
+                  (_, True) ->
+                     (
+                        attacker_name
+                        ++ " attempted a hit, but "
+                        ++ defender_name
+                        ++ " parried, and "
+                        ++ (get_effect_text attack)
+                     )
+
+                  (_, _) ->
+                     (attacker_name ++ " " ++ (get_effect_text attack))
+            )
+         )
+      ]
+   )
+
+--------------------------------------------------------------------------------
+-- 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")
+            ]
+            (
+               [
+                  (get_portrait_html model.player_id atkchar),
+                  (get_portrait_html model.player_id defchar),
+                  (get_title_html atkchar defchar)
+               ]
+               ++
+               (List.map
+                  (get_attack_html atkchar defchar)
+                  attack.sequence
+               )
+            )
+         )
+
+      _ ->
+         (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/SubMenu/Timeline/Movement.elm b/src/battlemap/src/View/SubMenu/Timeline/Movement.elm
new file mode 100644
index 0000000..f561d6c
--- /dev/null
+++ b/src/battlemap/src/View/SubMenu/Timeline/Movement.elm
@@ -0,0 +1,88 @@
+module View.SubMenu.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 -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_portrait_html : (
+      String ->
+      Struct.Character.Type ->
+      (Html.Html Struct.Event.Type)
+   )
+get_portrait_html viewer_id char =
+   (Html.div
+      [
+         (Html.Attributes.class "battlemap-timeline-portrait"),
+         (Html.Attributes.class
+            (
+               if ((Struct.Character.get_player_id char) == viewer_id)
+               then
+                  "battlemap-character-ally"
+               else
+                  "battlemap-character-enemy"
+            )
+         ),
+         (Html.Attributes.class
+            (
+               "asset-character-portrait-"
+               ++ (Struct.Character.get_portrait_id char)
+            )
+         )
+      ]
+      [
+      ]
+   )
+
+--------------------------------------------------------------------------------
+-- 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")
+            ]
+            [
+               (get_portrait_html model.player_id char),
+               (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/SubMenu/Timeline/WeaponSwitch.elm b/src/battlemap/src/View/SubMenu/Timeline/WeaponSwitch.elm
new file mode 100644
index 0000000..91191c4
--- /dev/null
+++ b/src/battlemap/src/View/SubMenu/Timeline/WeaponSwitch.elm
@@ -0,0 +1,84 @@
+module View.SubMenu.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 -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_portrait_html : (
+      String ->
+      Struct.Character.Type ->
+      (Html.Html Struct.Event.Type)
+   )
+get_portrait_html viewer_id char =
+   (Html.div
+      [
+         (Html.Attributes.class "battlemap-timeline-portrait"),
+         (Html.Attributes.class
+            (
+               if ((Struct.Character.get_player_id char) == viewer_id)
+               then
+                  "battlemap-character-ally"
+               else
+                  "battlemap-character-enemy"
+            )
+         ),
+         (Html.Attributes.class
+            (
+               "asset-character-portrait-"
+               ++ (Struct.Character.get_portrait_id char)
+            )
+         )
+      ]
+      [
+      ]
+   )
+
+--------------------------------------------------------------------------------
+-- 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")
+            ]
+            [
+               (get_portrait_html model.player_id char),
+               (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")
+            ]
+         )