aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'elm/battlemap/src/Battlemap/Tile.elm')
-rw-r--r--elm/battlemap/src/Battlemap/Tile.elm27
1 files changed, 7 insertions, 20 deletions
diff --git a/elm/battlemap/src/Battlemap/Tile.elm b/elm/battlemap/src/Battlemap/Tile.elm
index 7e0ae68..d761225 100644
--- a/elm/battlemap/src/Battlemap/Tile.elm
+++ b/elm/battlemap/src/Battlemap/Tile.elm
@@ -1,38 +1,25 @@
module Battlemap.Tile exposing
(
Type,
- TileModifier(..),
- set_direction,
- reset
+ set_character,
+ get_character
)
import Battlemap.Direction
+import Battlemap.Marker
import Battlemap.Location
import Character
-type TileModifier =
- CanBeReached
- | CanBeAttacked
-
type alias Type =
{
location : Battlemap.Location.Ref,
floor_level : Int,
- nav_level : Battlemap.Direction.Type,
char_level : (Maybe Character.Ref),
- mod_level : (Maybe TileModifier)
}
-set_direction : Battlemap.Direction.Type -> Type -> Type
-set_direction d t =
- {t |
- nav_level = d
- }
+set_character : (Maybe Character.Ref) -> Type -> Type
+set_character char_ref tile = {tile | char_level = char_ref}
-reset: Type -> Type
-reset t =
- {t |
- nav_level = Battlemap.Direction.None,
- mod_level = Nothing
- }
+get_character : Type -> (Maybe Character.Ref)
+get_character tile = tile.char_level