summaryrefslogtreecommitdiff
path: root/src/shared/battle-map/BattleMap/Struct
diff options
context:
space:
mode:
Diffstat (limited to 'src/shared/battle-map/BattleMap/Struct')
-rw-r--r--src/shared/battle-map/BattleMap/Struct/Map.elm10
-rw-r--r--src/shared/battle-map/BattleMap/Struct/Marker.elm27
-rw-r--r--src/shared/battle-map/BattleMap/Struct/TileInstance.elm43
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)
}