...

3 files changed, 28 insertions, 52 deletions

diff --git a/src/shared/battle-map/BattleMap/Struct/Map.elm b/src/shared/battle-map/BattleMap/Struct/Map.elm
index 1f254ac..cb0143e 100644
--- a/src/shared/battle-map/BattleMap/Struct/Map.elm
+++ b/src/shared/battle-map/BattleMap/Struct/Map.elm
@@ -103,7 +103,7 @@ remove_marker marker_name map =
                            (BattleMap.Struct.Location.from_ref loc)
                            map
                         )
-                        (BattleMap.Struct.TileInstance.remove_trigger
+                        (BattleMap.Struct.TileInstance.remove_tag
                            marker_name
                         )
                         array
@@ -126,7 +126,7 @@ add_marker marker_name marker map =
                      (BattleMap.Struct.Location.from_ref loc)
                      map
                   )
-                  (BattleMap.Struct.TileInstance.add_trigger marker_name)
+                  (BattleMap.Struct.TileInstance.add_tag marker_name)
                   array
                )
             )
@@ -247,8 +247,8 @@ get_tile_data_function bmap occupied_tiles start_loc loc =
                   else (BattleMap.Struct.TileInstance.get_cost tile)
                ),
                (Set.foldl
-                  (\trigger dangers_count ->
-                     case (Dict.get trigger bmap.markers) of
+                  (\tag dangers_count ->
+                     case (Dict.get tag bmap.markers) of
                         Nothing -> dangers_count
                         (Just marker) ->
                            if (BattleMap.Struct.Marker.is_dangerous marker)
@@ -256,7 +256,7 @@ get_tile_data_function bmap occupied_tiles start_loc loc =
                            else dangers_count
                   )
                   0
-                  (BattleMap.Struct.TileInstance.get_triggers tile)
+                  (BattleMap.Struct.TileInstance.get_tags tile)
                )
             )
 
diff --git a/src/shared/battle-map/BattleMap/Struct/Marker.elm b/src/shared/battle-map/BattleMap/Struct/Marker.elm
index 7012e4b..45a3986 100644
--- a/src/shared/battle-map/BattleMap/Struct/Marker.elm
+++ b/src/shared/battle-map/BattleMap/Struct/Marker.elm
@@ -38,6 +38,7 @@ type alias SpawnZoneStruct =
 type DataType =
    MeleeAttackZone MeleeAttackZoneStruct
    | SpawnZone SpawnZoneStruct
+   | Tag
    | None
 
 type alias Type =
@@ -52,15 +53,6 @@ type alias Type =
 decoder_internals : String -> (Json.Decode.Decoder DataType)
 decoder_internals t =
    case t of
-      "matk" ->
-         (Json.Decode.map
-            (\e -> (MeleeAttackZone e))
-            (Json.Decode.map
-               MeleeAttackZoneStruct
-               (Json.Decode.field "cix" (Json.Decode.int))
-            )
-         )
-
       "spawn" ->
          (Json.Decode.map
             (\e -> (SpawnZone e))
@@ -150,20 +142,9 @@ encode marker =
                         ]
                      )
 
-                  MeleeAttackZone zone ->
-                     (Json.Encode.object
-                        [
-                           ("t", (Json.Encode.string "matk")),
-                           ("cix", (Json.Encode.int zone.character_ix))
-                        ]
-                     )
-
-                  None ->
-                     (Json.Encode.object
-                        [
-                           ("t", (Json.Encode.string "none"))
-                        ]
-                     )
+                  -- TODO/FIXME: Do not encode those, since they should not be
+                  -- sent to the server.
+                  _ -> (Json.Encode.null)
             )
          )
       ]
diff --git a/src/shared/battle-map/BattleMap/Struct/TileInstance.elm b/src/shared/battle-map/BattleMap/Struct/TileInstance.elm
index aca7f49..91e3bf5 100644
--- a/src/shared/battle-map/BattleMap/Struct/TileInstance.elm
+++ b/src/shared/battle-map/BattleMap/Struct/TileInstance.elm
@@ -15,9 +15,12 @@ module BattleMap.Struct.TileInstance exposing
       get_border_variant_id,
       get_border_class_id,
       get_local_variant_ix,
-      remove_trigger,
-      add_trigger,
-      get_triggers,
+--      remove_status_indicator,
+--      add_status_indicator,
+--      get_status_indicators,
+      remove_tag,
+      add_tag,
+      get_tags,
       error,
       solve,
       set_location_from_index,
@@ -44,7 +47,6 @@ import BattleMap.Struct.Location
 import Constants.UI
 import Constants.Movement
 
-
 --------------------------------------------------------------------------------
 -- TYPES -----------------------------------------------------------------------
 --------------------------------------------------------------------------------
@@ -55,7 +57,7 @@ type alias Type =
       family : BattleMap.Struct.Tile.FamilyID,
       class_id : BattleMap.Struct.Tile.Ref,
       variant_id : BattleMap.Struct.Tile.VariantID,
-      triggers : (Set.Set String),
+      tags : (Set.Set String),
       borders : (List Border)
    }
 
@@ -97,7 +99,7 @@ default tile =
       variant_id = "0",
       crossing_cost = (BattleMap.Struct.Tile.get_cost tile),
       family = (BattleMap.Struct.Tile.get_family tile),
-      triggers = (Set.empty),
+      tags = (Set.empty),
       borders = []
    }
 
@@ -109,7 +111,7 @@ error x y =
       variant_id = "0",
       family = "0",
       crossing_cost = Constants.Movement.cost_when_out_of_bounds,
-      triggers = (Set.empty),
+      tags = (Set.empty),
       borders = []
    }
 
@@ -183,14 +185,7 @@ decoder =
                   |> (Json.Decode.Pipeline.hardcoded "") -- Family
                   |> (Json.Decode.Pipeline.hardcoded tile_id)
                   |> (Json.Decode.Pipeline.hardcoded variant_id)
-                  |>
-                     (Json.Decode.Pipeline.required
-                        "t"
-                        (Json.Decode.map
-                           (Set.fromList)
-                           (Json.Decode.list (Json.Decode.string))
-                        )
-                     )
+                  |> (Json.Decode.Pipeline.hardcoded (Set.empty)) -- tags
                   |>
                      (Json.Decode.Pipeline.hardcoded
                         (list_to_borders borders [])
@@ -245,23 +240,23 @@ encode tile_inst =
             "t",
             (Json.Encode.list
                (Json.Encode.string)
-               (Set.toList tile_inst.triggers)
+               (Set.toList tile_inst.tags)
             )
          )
       ]
    )
 
-get_triggers : Type -> (Set.Set String)
-get_triggers tile_inst = tile_inst.triggers
+get_tags : Type -> (Set.Set String)
+get_tags tile_inst = tile_inst.tags
 
-add_trigger : String -> Type -> Type
-add_trigger trigger tile_inst =
+add_tag : String -> Type -> Type
+add_tag tag tile_inst =
    {tile_inst |
-      triggers = (Set.insert trigger tile_inst.triggers)
+      tags = (Set.insert tag tile_inst.tags)
    }
 
-remove_trigger : String -> Type -> Type
-remove_trigger trigger tile_inst =
+remove_tag : String -> Type -> Type
+remove_tag tag tile_inst =
    {tile_inst |
-      triggers = (Set.remove trigger tile_inst.triggers)
+      tags = (Set.remove tag tile_inst.tags)
    }