| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'client/elm/battlemap/src/Battlemap.elm')
| -rw-r--r-- | client/elm/battlemap/src/Battlemap.elm | 21 |
1 files changed, 17 insertions, 4 deletions
diff --git a/client/elm/battlemap/src/Battlemap.elm b/client/elm/battlemap/src/Battlemap.elm index 09b4099..d6c0017 100644 --- a/client/elm/battlemap/src/Battlemap.elm +++ b/client/elm/battlemap/src/Battlemap.elm @@ -1,10 +1,17 @@ -module Battlemap exposing (Battlemap, random, apply_to_tile, has_location) +module Battlemap exposing + ( + Battlemap, + random, + apply_to_tile, + has_location, + apply_to_all_tiles + ) -import Array exposing (Array, set, get) +import Array exposing (Array, set, get, map) import Battlemap.Tile exposing (Tile, generate) -import Battlemap.Direction exposing (..) -import Battlemap.Location exposing (..) +import Battlemap.Direction exposing (Direction(..)) +import Battlemap.Location exposing (Location) type alias Battlemap = { @@ -34,6 +41,12 @@ has_location bmap loc = && (loc.y < bmap.height) ) +apply_to_all_tiles : Battlemap -> (Tile -> Tile) -> Battlemap +apply_to_all_tiles bmap fun = + {bmap | + content = (map fun bmap.content) + } + apply_to_tile : Battlemap -> Location -> (Tile -> Tile) -> (Maybe Battlemap) apply_to_tile bmap loc fun = let |