Pathfinding mit A*

[Luckie]

Zitat von mimi:

Meiner meinung nach berechnes du den H wert falsch.

Ja, da suche ich auch gerade den Fehler. Ich habe es jetzt so:

Delphi-Quellcode:

      if Dest.X > Start.x then
      begin
        dx := Dest.X - i;
      end
      else if Dest.X < Start.X then
      begin
        dx := i - Dest.X;
      end
      else
        dx := Dest.X;

      if Dest.y > Start.y then
      begin
        dy := Dest.y - j;
      end
      else if Dest.Y < Start.Y then
      begin
        dy := j - Dest.y;
      end
      else
        dy := Dest.Y;

Aber er bleibt trotzdem wieder stecken.