[Delphi] Path-Finding (A*)

[megano0body]

[ATTACH]631[/ATTACH]
< the path legend is wrong, the path is Aqua color >

When i did this i was with anything to do... (2 hours wasted from my life )


Well, this is the AStar function that i made, to use:

Code:

var
rPath: array of TPoint {unit variable}

Code:

var
  Start, Target: TPoint;
  Start.X := 0;
  Start.Y := 0;
  Target.X := 1000;
  Target.Y := 1000;
  if AStar(Start, Target) then
      { You have the rPath variable with the generated path }

[COLOR="Red"]
This has a interface for testing, the function AStar() is easy to edit and to improve...


[SIZE="4"]This version of A* don't have any smoothing and any anti-collision, you can find some addons for the algorithms in many locations.[/SIZE]
[/COLOR]

http://rapidshare.com/files/202121830/AStar_Testing.rar
You can find this algorithm in many websites and many versions, this i wrote is one-function only simple algorithm.

[DarkstaR]

I'll take a look at making this VB.net

Thanks