summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'client/elm/battlemap/src/Battlemap')
-rw-r--r-- | client/elm/battlemap/src/Battlemap/Navigator.elm | 12 | ||||
-rw-r--r-- | client/elm/battlemap/src/Battlemap/Tile.elm | 8 |
2 files changed, 9 insertions, 11 deletions
diff --git a/client/elm/battlemap/src/Battlemap/Navigator.elm b/client/elm/battlemap/src/Battlemap/Navigator.elm index 79f1f73..3a0ca05 100644 --- a/client/elm/battlemap/src/Battlemap/Navigator.elm +++ b/client/elm/battlemap/src/Battlemap/Navigator.elm @@ -1,11 +1,10 @@ module Battlemap.Navigator exposing ( Type, - new_navigator, - reset_navigation + new_navigator ) -import Set -- exposing (Set, member, empty, insert, remove) +import Set import Battlemap import Battlemap.Direction @@ -29,10 +28,3 @@ new_navigator start points = previous_directions = [], remaining_points = points } - - -reset_navigation : Battlemap.Tile.Type -> Battlemap.Tile.Type -reset_navigation t = - {t | - nav_level = Battlemap.Direction.None - } diff --git a/client/elm/battlemap/src/Battlemap/Tile.elm b/client/elm/battlemap/src/Battlemap/Tile.elm index dca7a64..068ee30 100644 --- a/client/elm/battlemap/src/Battlemap/Tile.elm +++ b/client/elm/battlemap/src/Battlemap/Tile.elm @@ -1,4 +1,4 @@ -module Battlemap.Tile exposing (Type, set_direction) +module Battlemap.Tile exposing (Type, set_direction, set_navigation) import Battlemap.Direction import Character @@ -16,3 +16,9 @@ set_direction d t = {t | nav_level = d } + +set_navigation : Battlemap.Direction.Type -> Type -> Type +set_navigation dir t = + {t | + nav_level = dir + } |