...

1 files changed, 156 insertions, 0 deletions

diff --git a/src/shared/battle-map/BattleMap/View/TileInfo.elm b/src/shared/battle-map/BattleMap/View/TileInfo.elm
new file mode 100644
index 0000000..0dc57ff
--- /dev/null
+++ b/src/shared/battle-map/BattleMap/View/TileInfo.elm
@@ -0,0 +1,156 @@
+module BattleMap.View.TileInfo exposing (get_html)
+
+-- Elm -------------------------------------------------------------------------
+import Dict
+
+import Html
+import Html.Attributes
+
+-- Shared ----------------------------------------------------------------------
+import Util.Html
+
+-- Battle ----------------------------------------------------------------------
+import Battle.Struct.Omnimods
+
+import Battle.View.Omnimods
+
+-- Battle Map ------------------------------------------------------------------
+import BattleMap.Struct.Location
+import BattleMap.Struct.Map
+import BattleMap.Struct.Tile
+import BattleMap.Struct.TileInstance
+
+import BattleMap.View.Tile
+
+-- Local Module ----------------------------------------------------------------
+import Constants.Movement
+
+import Struct.Event
+import Struct.Model
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_icon : (BattleMap.Struct.TileInstance.Type -> (Html.Html Struct.Event.Type))
+get_icon tile_instance =
+   (Html.div
+      [
+         (Html.Attributes.class "tile-card-icon"),
+         (Html.Attributes.class "info-card-picture"),
+         (Html.Attributes.class
+            (
+               "tile-variant-"
+               ++
+               (String.fromInt
+                  (BattleMap.Struct.TileInstance.get_local_variant_ix
+                     tile_instance
+                  )
+               )
+            )
+         )
+      ]
+      (BattleMap.View.Tile.get_content_html tile_instance)
+   )
+
+get_name : BattleMap.Struct.Tile.Type -> (Html.Html Struct.Event.Type)
+get_name tile =
+   (Html.div
+      [
+         (Html.Attributes.class "info-card-name"),
+         (Html.Attributes.class "info-card-text-field"),
+         (Html.Attributes.class "tile-card-name")
+      ]
+      [
+         (Html.text
+            (BattleMap.Struct.Tile.get_name tile)
+         )
+      ]
+   )
+
+get_cost : BattleMap.Struct.TileInstance.Type -> (Html.Html Struct.Event.Type)
+get_cost tile_inst =
+   let
+      cost = (BattleMap.Struct.TileInstance.get_cost tile_inst)
+      text =
+         if (cost > Constants.Movement.max_points)
+         then "Obstructed"
+         else ("Cost: " ++ (String.fromInt cost))
+   in
+      (Html.div
+         [
+            (Html.Attributes.class "info-card-text-field"),
+            (Html.Attributes.class "tile-card-cost")
+         ]
+         [
+            (Html.text text)
+         ]
+      )
+
+get_location : (
+      BattleMap.Struct.TileInstance.Type ->
+      (Html.Html Struct.Event.Type)
+   )
+get_location tile_inst =
+   let tile_location = (BattleMap.Struct.TileInstance.get_location tile_inst) in
+      (Html.div
+         [
+            (Html.Attributes.class "info-card-text-field"),
+            (Html.Attributes.class "tile-card-location")
+         ]
+         [
+            (Html.text
+               (
+                  "{x: "
+                  ++ (String.fromInt tile_location.x)
+                  ++ "; y: "
+                  ++ (String.fromInt tile_location.y)
+                  ++ "}"
+               )
+            )
+         ]
+      )
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_html : (
+      BattleMap.Struct.DataSet.Type ->
+      BattleMap.Struct.Location.Ref ->
+      BattleMap.Struct.Map.Type ->
+      (Html.Html Struct.Event.Type)
+   )
+get_html dataset loc_ref map =
+   let loc = (BattleMap.Struct.Location.from_ref loc_ref) in
+      case (BattleMap.Struct.Map.try_getting_tile_at loc map) of
+         (Just tile_instance) ->
+            let
+               tile_data =
+                  (BattleMap.Struct.DataSet.get_tile
+                     (BattleMap.Struct.TileInstance.get_class_id tile_instance)
+                  )
+            in
+               (Html.div
+                  [
+                     (Html.Attributes.class "info-card"),
+                     (Html.Attributes.class "tile-card")
+                  ]
+                  [
+                     (get_name dataset tile_data),
+                     (Html.div
+                        [
+                           (Html.Attributes.class "info-card-top"),
+                           (Html.Attributes.class "tile-card-top")
+                        ]
+                        [
+                           (get_icon tile_instance),
+                           (get_location tile_instance),
+                           (get_cost tile_instance)
+                        ]
+                     ),
+                     (Battle.View.Omnimods.get_signed_html
+                        (BattleMap.Struct.Tile.get_omnimods tile_data)
+                     )
+                  ]
+               )
+
+         Nothing -> (Html.text "Error: Unknown tile location selected.")