1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
module Battlemap.Navigator exposing
(
Type,
new,
reset
)
import Set
import Battlemap
import Battlemap.Direction
import Battlemap.Location
import Battlemap.Tile
type alias Type =
{
current_location : Battlemap.Location.Type,
visited_locations : (Set.Set Battlemap.Location.Ref),
previous_directions : (List Battlemap.Direction.Type),
remaining_points : Int,
starting_location : Battlemap.Location.Type,
starting_points : Int
}
new : Battlemap.Location.Type -> Int -> Type
new start points =
{
current_location = start,
visited_locations = Set.empty,
previous_directions = [],
remaining_points = points,
starting_location = start,
starting_points = points
}
reset : Type -> Type
reset nav =
{nav |
current_location = nav.starting_location,
visited_locations = Set.empty,
previous_directions = [],
remaining_points = nav.starting_points
}
|
