summaryrefslogtreecommitdiff
path: root/elm/battlemap/src/Battlemap/Navigator
diff options
context:
space:
mode:
Diffstat (limited to 'elm/battlemap/src/Battlemap/Navigator')
-rw-r--r--elm/battlemap/src/Battlemap/Navigator/Move.elm157
-rw-r--r--elm/battlemap/src/Battlemap/Navigator/Path.elm168
-rw-r--r--elm/battlemap/src/Battlemap/Navigator/RangeIndicator.elm287
3 files changed, 0 insertions, 612 deletions
diff --git a/elm/battlemap/src/Battlemap/Navigator/Move.elm b/elm/battlemap/src/Battlemap/Navigator/Move.elm
deleted file mode 100644
index 9d7a17b..0000000
--- a/elm/battlemap/src/Battlemap/Navigator/Move.elm
+++ /dev/null
@@ -1,157 +0,0 @@
-module Battlemap.Navigator.Move exposing (to)
-
-import Set
-import List
-
-import Battlemap
-import Battlemap.Direction
-import Battlemap.Location
-import Battlemap.Tile
-import Battlemap.Navigator
-
-import Character
-
-import Util.List
-
-can_move_to_new_tile : (
- Battlemap.Navigator.Type ->
- Battlemap.Type ->
- Battlemap.Location.Type ->
- Bool
- )
-can_move_to_new_tile nav battlemap next_location =
- (
- (nav.remaining_points > 0)
- && (Battlemap.has_location battlemap next_location)
- && (nav.current_location /= next_location)
- &&
- (not
- (Set.member
- (Battlemap.Location.get_ref next_location)
- nav.visited_locations
- )
- )
- )
-
-battlemap_move_to : (
- Battlemap.Type ->
- Battlemap.Location.Type ->
- Battlemap.Direction.Type ->
- Battlemap.Location.Type ->
- Battlemap.Type
- )
-battlemap_move_to battlemap current_loc dir next_loc =
- (Battlemap.apply_to_tile_unsafe
- (Battlemap.apply_to_tile_unsafe
- battlemap
- current_loc
- (Battlemap.Tile.set_direction dir)
- )
- next_loc
- (Battlemap.Tile.set_direction dir)
- )
-
-navigator_move_to : (
- Battlemap.Navigator.Type ->
- Battlemap.Direction.Type ->
- Battlemap.Location.Type ->
- Battlemap.Navigator.Type
- )
-navigator_move_to nav dir next_loc =
- {nav |
- current_location = next_loc,
- visited_locations =
- (Set.insert
- (Battlemap.Location.get_ref nav.current_location)
- nav.visited_locations
- ),
- previous_directions = (dir :: nav.previous_directions),
- remaining_points = (nav.remaining_points - 1)
- }
-
-battlemap_backtrack : (
- Battlemap.Type ->
- Battlemap.Location.Type ->
- Battlemap.Type
- )
-battlemap_backtrack battlemap current_loc =
- (Battlemap.apply_to_tile_unsafe
- battlemap
- current_loc
- (Battlemap.Tile.set_direction
- Battlemap.Direction.None
- )
- )
-
-navigator_backtrack : (
- Battlemap.Navigator.Type ->
- Battlemap.Location.Type ->
- (List Battlemap.Direction.Type) ->
- Battlemap.Navigator.Type
- )
-navigator_backtrack nav next_loc prev_dir_tail =
- {nav |
- current_location = next_loc,
- visited_locations =
- (Set.remove
- (Battlemap.Location.get_ref next_loc)
- nav.visited_locations
- ),
- previous_directions = prev_dir_tail,
- remaining_points = (nav.remaining_points + 1)
- }
-
-to : (
- Battlemap.Type ->
- Battlemap.Navigator.Type ->
- Battlemap.Direction.Type ->
- (List Character.Type) ->
- (Battlemap.Type, Battlemap.Navigator.Type)
- )
-to battlemap nav dir char_list =
- let
- next_location = (Battlemap.Location.neighbor nav.current_location dir)
- is_occupied =
- (List.any
- (\c -> ((Character.get_location c) == next_location))
- char_list
- )
- in
- if (not is_occupied)
- then
- if (can_move_to_new_tile nav battlemap next_location)
- then
- (
- (battlemap_move_to
- battlemap
- nav.current_location
- dir
- next_location
- ),
- (navigator_move_to
- nav
- dir
- next_location
- )
- )
- else
- case (Util.List.pop nav.previous_directions) of
- Nothing -> (battlemap, nav)
- (Just (head, tail)) ->
- if (head == (Battlemap.Direction.opposite_of dir))
- then
- (
- (battlemap_backtrack
- battlemap
- nav.current_location
- ),
- (navigator_backtrack
- nav
- next_location
- tail
- )
- )
- else
- (battlemap, nav)
- else
- (battlemap, nav)
diff --git a/elm/battlemap/src/Battlemap/Navigator/Path.elm b/elm/battlemap/src/Battlemap/Navigator/Path.elm
deleted file mode 100644
index 53e12c0..0000000
--- a/elm/battlemap/src/Battlemap/Navigator/Path.elm
+++ /dev/null
@@ -1,168 +0,0 @@
-module Battlemap.Navigator.Path exposing
- (
- Type,
- new,
- get_current_location,
- get_remaining_points,
- get_summary,
- try_following_direction
- )
-
-import Set
-
-import Util.List
-
-import Battlemap.Direction
-import Battlemap.Location
-
---------------------------------------------------------------------------------
--- TYPES -----------------------------------------------------------------------
---------------------------------------------------------------------------------
-type alias Type =
- {
- current_location : Battlemap.Location.Type,
- visited_locations : (Set.Set Battlemap.Location.Ref),
- previous_directions : (List Battlemap.Direction.Type),
- previous_points : (List Int),
- remaining_points : Int
- }
-
---------------------------------------------------------------------------------
--- LOCAL -----------------------------------------------------------------------
---------------------------------------------------------------------------------
-has_been_to : (
- Type ->
- Battlemap.Location.Type ->
- Bool
- )
-has_been_to path location =
- (
- (path.current_location == location)
- ||
- (Set.member
- (Battlemap.Location.get_ref location)
- path.visited_locations
- )
- )
-
-try_moving_to : (
- Type ->
- Battlemap.Direction.Type ->
- Battlemap.Location.Type ->
- Int ->
- (Maybe Type)
- )
-try_moving_to path dir next_loc cost =
- let
- remaining_points = (path.remaining_points - cost)
- in
- if (remaining_points >= 0)
- then
- (Just
- {path |
- current_location = next_loc,
- visited_locations =
- (Set.insert
- (Battlemap.Location.get_ref path.current_location)
- path.visited_locations
- ),
- previous_directions = (dir :: path.previous_directions),
- previous_points =
- (path.remaining_points :: path.previous_points),
- remaining_points = remaining_points
- }
- )
- else
- Nothing
-
-try_backtracking_to : (
- Type ->
- Battlemap.Direction.Type ->
- Battlemap.Location.Type ->
- (Maybe Type)
- )
-try_backtracking_to path dir location =
- case
- (
- (Util.List.pop path.previous_directions),
- (Util.List.pop path.previous_points)
- )
- of
- (
- (Just (prev_dir_head, prev_dir_tail)),
- (Just (prev_pts_head, prev_pts_tail))
- ) ->
- if (prev_dir_head == (Battlemap.Direction.opposite_of dir))
- then
- (Just
- {path |
- current_location = location,
- visited_locations =
- (Set.remove
- (Battlemap.Location.get_ref location)
- path.visited_locations
- ),
- previous_directions = prev_dir_tail,
- previous_points = prev_pts_tail,
- remaining_points = prev_pts_head
- }
- )
- else
- Nothing
- (_, _) ->
- Nothing
-
---------------------------------------------------------------------------------
--- EXPORTED --------------------------------------------------------------------
---------------------------------------------------------------------------------
-
-new : Battlemap.Location.Type -> Int -> Type
-new start points =
- {
- current_location = start,
- visited_locations = Set.empty,
- previous_directions = [],
- previous_points = [],
- remaining_points = points
- }
-
-get_current_location : Type -> Battlemap.Location.Type
-get_current_location path = path.current_location
-
-get_remaining_points : Type -> Int
-get_remaining_points path = path.remaining_points
-
-get_summary : Type -> (List Battlemap.Direction.Type)
-get_summary path = path.previous_directions
-try_following_direction : (
- (Battlemap.Location.Type -> Bool) ->
- (Battlemap.Location.Type -> Int) ->
- (Maybe Type) ->
- Battlemap.Direction.Type ->
- (Maybe Type)
- )
-try_following_direction can_cross cost_fun maybe_path dir =
- case maybe_path of
- (Just path) ->
- let
- next_location =
- (Battlemap.Location.neighbor
- path.current_location
- dir
- )
- in
- if (can_cross next_location)
- then
- if (has_been_to path next_location)
- then
- (try_backtracking_to path dir next_location)
- else
- (try_moving_to
- path
- dir
- next_location
- (cost_fun next_location)
- )
- else
- Nothing
- Nothing -> Nothing
diff --git a/elm/battlemap/src/Battlemap/Navigator/RangeIndicator.elm b/elm/battlemap/src/Battlemap/Navigator/RangeIndicator.elm
deleted file mode 100644
index a8cac8e..0000000
--- a/elm/battlemap/src/Battlemap/Navigator/RangeIndicator.elm
+++ /dev/null
@@ -1,287 +0,0 @@
-module Battlemap.Navigator.RangeIndicator exposing
- (
- Type,
- generate,
- get_marker,
- get_path
- )
-
-import Dict
-import List
-
-import Battlemap.Direction
-import Battlemap.Location
-import Battlemap.Marker
-
-import Util.List
-
-type alias Type =
- {
- distance: Int,
- path: (List Battlemap.Direction.Type),
- node_cost: Int,
- marker: Battlemap.Marker.Type
- }
-
-generate_row : (
- Battlemap.Location.Type ->
- Int ->
- Int ->
- Int ->
- (List Battlemap.Location.Type) ->
- (List Battlemap.Location.Type)
- )
-generate_row src max_x_mod curr_y curr_x_mod curr_row =
- if (curr_x_mod > max_x_mod)
- then
- curr_row
- else
- (generate_row
- src
- max_x_mod
- curr_y
- (curr_x_mod + 1)
- ({x = (src.x + curr_x_mod), y = curr_y} :: curr_row)
- )
-
-generate_grid : (
- Battlemap.Location.Type ->
- Int ->
- Int ->
- (List Battlemap.Location.Type) ->
- (List Battlemap.Location.Type)
- )
-generate_grid src dist curr_y_mod curr_list =
- if (curr_y_mod > dist)
- then
- curr_list
- else
- let
- new_limit = (dist - (abs curr_y_mod))
- in
- (generate_grid
- src
- dist
- (curr_y_mod + 1)
- (
- (generate_row
- src
- new_limit
- (src.y + curr_y_mod)
- (-new_limit)
- []
- )
- ++ curr_list
- )
- )
-
-get_closest : (
- Battlemap.Location.Ref ->
- Type ->
- (Battlemap.Location.Ref, Type) ->
- (Battlemap.Location.Ref, Type)
- )
-get_closest ref indicator (prev_ref, prev_indicator) =
- if (indicator.distance < prev_indicator.distance)
- then
- (ref, indicator)
- else
- (prev_ref, prev_indicator)
-
-handle_neighbors : (
- Battlemap.Location.Type ->
- Int ->
- Int ->
- Type ->
- (Dict.Dict Battlemap.Location.Ref Type) ->
- (List Battlemap.Direction.Type) ->
- (Dict.Dict Battlemap.Location.Ref Type)
- )
-handle_neighbors loc dist atk_dist indicator remaining directions =
- case (Util.List.pop directions) of
- Nothing -> remaining
- (Just (head, tail)) ->
- let
- neighbor_loc = (Battlemap.Location.neighbor loc head)
- neighbor_indicator =
- (Dict.get
- (Battlemap.Location.get_ref neighbor_loc)
- remaining
- )
- in
- case neighbor_indicator of
- Nothing ->
- (handle_neighbors
- loc
- dist
- atk_dist
- indicator
- remaining
- tail
- )
- (Just neighbor) ->
- let
- is_attack_range = (indicator.distance >= dist)
- new_dist =
- (
- if (is_attack_range)
- then
- (indicator.distance + 1)
- else
- (indicator.distance + neighbor.node_cost)
- )
- in
- (handle_neighbors
- loc
- dist
- atk_dist
- indicator
- (
- if
- (
- (new_dist < neighbor.distance)
- && (new_dist <= atk_dist)
- )
- then
- (Dict.insert
- (Battlemap.Location.get_ref neighbor_loc)
- {neighbor |
- distance = new_dist,
- path = (head :: indicator.path)
- }
- remaining
- )
- else
- remaining
- )
- tail
- )
-
-search : (
- (Dict.Dict Battlemap.Location.Ref Type) ->
- (Dict.Dict Battlemap.Location.Ref Type) ->
- Int ->
- Int ->
- (Dict.Dict Battlemap.Location.Ref Type)
- )
-search result remaining dist atk_dist =
- if (Dict.isEmpty remaining)
- then
- result
- else
- let
- (min_loc_ref, min) =
- (Dict.foldl
- (get_closest)
- (
- (-1,-1),
- {
- distance = (atk_dist + 1),
- path = [],
- node_cost = 99,
- marker = Battlemap.Marker.CanAttack
- }
- )
- remaining
- )
- in
- (search
- (Dict.insert
- min_loc_ref
- {min |
- marker =
- (
- if (min.distance > dist)
- then
- Battlemap.Marker.CanAttack
- else
- Battlemap.Marker.CanGoTo
- )
- }
- result
- )
- (handle_neighbors
- (Battlemap.Location.from_ref min_loc_ref)
- dist
- atk_dist
- min
- (Dict.remove min_loc_ref remaining)
- [
- Battlemap.Direction.Left,
- Battlemap.Direction.Right,
- Battlemap.Direction.Up,
- Battlemap.Direction.Down
- ]
- )
- dist
- atk_dist
- )
-
-grid_to_range_indicators : (
- (Battlemap.Location.Type -> Bool) ->
- Battlemap.Location.Type ->
- Int ->
- (List Battlemap.Location.Type) ->
- (Dict.Dict Battlemap.Location.Ref Type) ->
- (Dict.Dict Battlemap.Location.Ref Type)
- )
-grid_to_range_indicators can_cross_fun location dist grid result =
- case (Util.List.pop grid) of
- Nothing -> result
- (Just (head, tail)) ->
- if (can_cross_fun head)
- then
- -- TODO: test if the current char can cross that tile.
- -- TODO: get tile cost.
- (grid_to_range_indicators
- (can_cross_fun)
- location
- dist
- tail
- (Dict.insert
- (Battlemap.Location.get_ref head)
- {
- distance =
- (
- if ((location.x == head.x) && (location.y == head.y))
- then
- 0
- else
- (dist + 1)
- ),
- path = [],
- node_cost = 1,
- marker = Battlemap.Marker.CanGoTo
- }
- result
- )
- )
- else
- (grid_to_range_indicators (can_cross_fun) location dist tail result)
-
-generate : (
- Battlemap.Location.Type ->
- Int ->
- Int ->
- (Battlemap.Location.Type -> Bool) ->
- (Dict.Dict Battlemap.Location.Ref Type)
- )
-generate location dist atk_dist can_cross_fun =
- (search
- Dict.empty
- (grid_to_range_indicators
- (can_cross_fun)
- location
- atk_dist
- (generate_grid location atk_dist (-atk_dist) [])
- Dict.empty
- )
- dist
- atk_dist
- )
-
-get_marker : Type -> Battlemap.Marker.Type
-get_marker indicator = indicator.marker
-
-get_path : Type -> (List Battlemap.Direction.Type)
-get_path indicator = indicator.path