summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authornsensfel <SpamShield0@noot-noot.org>2019-11-25 11:34:56 +0100
committernsensfel <SpamShield0@noot-noot.org>2019-11-25 11:34:56 +0100
commit764a36d571bd071ee754678274be54ff5ab40b36 (patch)
tree443f43e26fbf97f488dffd8c757d812a8d9cc1a8 /src/shared/battle-map
parent056513525e544d73ce8917739654c0ea0a437c2c (diff)
...
Diffstat (limited to 'src/shared/battle-map')
-rw-r--r--src/shared/battle-map/BattleMap/Struct/DataSet.elm4
-rw-r--r--src/shared/battle-map/BattleMap/Struct/Map.elm14
-rw-r--r--src/shared/battle-map/BattleMap/Struct/Tile.elm12
3 files changed, 20 insertions, 10 deletions
diff --git a/src/shared/battle-map/BattleMap/Struct/DataSet.elm b/src/shared/battle-map/BattleMap/Struct/DataSet.elm
index f292443..d81daaf 100644
--- a/src/shared/battle-map/BattleMap/Struct/DataSet.elm
+++ b/src/shared/battle-map/BattleMap/Struct/DataSet.elm
@@ -31,13 +31,13 @@ type alias Type =
new : Type
new =
{
- tiles = (Dict.new)
+ tiles = (Dict.empty)
}
is_ready : Type -> Bool
is_ready data_set =
(
- (data_set.tiles /= (Dict.empty))
+ (not (Dict.isEmpty data_set.tiles))
)
---- Accessors -----------------------------------------------------------------
diff --git a/src/shared/battle-map/BattleMap/Struct/Map.elm b/src/shared/battle-map/BattleMap/Struct/Map.elm
index d2c950f..73a1cfe 100644
--- a/src/shared/battle-map/BattleMap/Struct/Map.elm
+++ b/src/shared/battle-map/BattleMap/Struct/Map.elm
@@ -34,6 +34,7 @@ import Util.Array
import Battle.Struct.Omnimods
-- Battle Map ------------------------------------------------------------------
+import BattleMap.Struct.DataSet
import BattleMap.Struct.Location
import BattleMap.Struct.Marker
import BattleMap.Struct.Tile
@@ -183,22 +184,19 @@ solve_tiles tiles map =
get_omnimods_at : (
BattleMap.Struct.Location.Type ->
- (Dict.Dict BattleMap.Struct.Tile.Ref BattleMap.Struct.Tile.Type) ->
+ BattleMap.Struct.DataSet.Type ->
Type ->
Battle.Struct.Omnimods.Type
)
-get_omnimods_at loc tiles_solver map =
+get_omnimods_at loc dataset map =
case (try_getting_tile_at loc map) of
Nothing -> (Battle.Struct.Omnimods.none)
(Just tile_inst) ->
- case
- (Dict.get
+ (BattleMap.Struct.Tile.get_omnimods
+ (BattleMap.Struct.DataSet.get_tile
(BattleMap.Struct.TileInstance.get_class_id tile_inst)
- tiles_solver
)
- of
- Nothing -> (Battle.Struct.Omnimods.none)
- (Just tile) -> (BattleMap.Struct.Tile.get_omnimods tile)
+ )
decoder : (Json.Decode.Decoder Type)
decoder =
diff --git a/src/shared/battle-map/BattleMap/Struct/Tile.elm b/src/shared/battle-map/BattleMap/Struct/Tile.elm
index 9145b44..53ec2e1 100644
--- a/src/shared/battle-map/BattleMap/Struct/Tile.elm
+++ b/src/shared/battle-map/BattleMap/Struct/Tile.elm
@@ -9,6 +9,7 @@ module BattleMap.Struct.Tile exposing
get_cost,
get_omnimods,
get_family,
+ none,
decoder
)
@@ -75,3 +76,14 @@ decoder =
|> (Json.Decode.Pipeline.required "de" Json.Decode.int)
|> (Json.Decode.Pipeline.required "omni" Battle.Struct.Omnimods.decoder)
)
+
+none : Type
+none =
+ {
+ id = "-1",
+ name = "Not Found",
+ crossing_cost = 999,
+ family = "-1",
+ depth = 0,
+ omnimods = (Battle.Struct.Omnimods.none)
+ }