summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'client/elm/battlemap/src/Battlemap/Tile.elm')
-rw-r--r-- | client/elm/battlemap/src/Battlemap/Tile.elm | 44 |
1 files changed, 29 insertions, 15 deletions
diff --git a/client/elm/battlemap/src/Battlemap/Tile.elm b/client/elm/battlemap/src/Battlemap/Tile.elm index acedfa4..70268bf 100644 --- a/client/elm/battlemap/src/Battlemap/Tile.elm +++ b/client/elm/battlemap/src/Battlemap/Tile.elm @@ -1,28 +1,42 @@ module Battlemap.Tile exposing (Tile, generate, set_direction) -import Battlemap.Direction exposing (..) +import Battlemap.Direction exposing (Direction(..)) +import Character exposing (CharacterRef) import List exposing (map) import Array exposing (Array, fromList) +import Set exposing (Set) type alias Tile = { floor_level : Int, - nav_level : Direction --- char_level : Int, --- mod_level : Int + nav_level : Direction, + char_level : (Maybe CharacterRef) +-- mod_level : (Set TileModifier) } set_direction : Direction -> Tile -> Tile set_direction d t = - {t | nav_level = d} + {t | + nav_level = d + } from_int : Int -> Tile from_int i = - { - floor_level = i, - nav_level = None - } + if (i >= 10) + then + { + floor_level = (i - 10), + nav_level = None, + char_level = (Just (toString (i - 10))) + } + else + { + floor_level = i, + nav_level = None, + char_level = Nothing + } + generate : Int -> Int -> (Array Tile) generate width height = @@ -30,12 +44,12 @@ generate width height = (map (from_int) [ - 1, 1, 1, 2, 2, 2, - 1, 0, 0, 0, 0, 2, - 1, 0, 1, 2, 0, 2, - 3, 0, 3, 4, 0, 4, - 3, 0, 0, 0, 0, 4, - 3, 3, 3, 4, 4, 4 + 10, 1, 1, 2, 2, 2, + 1, 0, 0, 0, 11, 2, + 1, 0, 1, 2, 0, 2, + 3, 0, 3, 4, 0, 4, + 3, 12, 0, 0, 0, 4, + 3, 3, 3, 4, 4, 4 ] ) ) |