1 files changed, 38 insertions, 0 deletions
diff --git a/src/battlemap/src/View/SubMenu/Timeline/PlayerVictory.elm b/src/battlemap/src/View/SubMenu/Timeline/PlayerVictory.elm
new file mode 100644
index 0000000..77494b6
--- /dev/null
+++ b/src/battlemap/src/View/SubMenu/Timeline/PlayerVictory.elm
@@ -0,0 +1,38 @@
+module View.SubMenu.Timeline.PlayerVictory exposing (get_html)
+
+-- Elm -------------------------------------------------------------------------
+import Html
+import Html.Attributes
+--import Html.Events
+
+-- Battlemap -------------------------------------------------------------------
+import Struct.Event
+import Struct.TurnResult
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_html : (
+      Struct.TurnResult.PlayerVictory ->
+      (Html.Html Struct.Event.Type)
+   )
+get_html pvict =
+   (Html.div
+      [
+         (Html.Attributes.class "battlemap-timeline-element"),
+         (Html.Attributes.class "battlemap-timeline-player-victory")
+      ]
+      [
+         (Html.text
+            (
+               "Player "
+               ++ (toString pvict.player_index)
+               ++ " has won the battle."
+            )
+         )
+      ]
+   )