1 files changed, 84 insertions, 0 deletions
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")
+            ]
+         )