diff options
author | Jed Barber <jjbarber@y7mail.com> | 2017-08-06 21:55:23 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2017-08-06 21:55:23 +1000 |
commit | 051ddb2a265dda897bce72edc318beadd111eba2 (patch) | |
tree | 27ee7ab70250eb3fdcd8c358ec4712c44a7907f4 /src/pathfinding.ads | |
parent | 751f0ac7e8f695413d8c1a56deefa428d5314b9b (diff) |
Mouseclick pathing now implemented
Diffstat (limited to 'src/pathfinding.ads')
-rw-r--r-- | src/pathfinding.ads | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/src/pathfinding.ads b/src/pathfinding.ads new file mode 100644 index 0000000..624c5d6 --- /dev/null +++ b/src/pathfinding.ads @@ -0,0 +1,23 @@ + + +with + + Grids, + Moves; + + +package Pathfinding is + + + -- Result path will get as close to the finish coordinates + -- as possible without pushing anything or going out of bounds. + function A_Star + (My_Grid : in Grids.Grid; + SX, SY : in Integer; + FX, FY : in Integer) + return Moves.Path + with Pre => My_Grid.In_Bounds (SX, SY); + + +end Pathfinding; + |