DGL • Thema anzeigen - Probleme mit Pathfinding

Probleme mit Pathfinding

Moderator: DGL-Team

Seite 1 von 1

[ 1 Beitrag ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Deathball

Betreff des Beitrags: Probleme mit Pathfinding

Verfasst: Do Aug 17, 2006 13:57

DGL Member

Registriert: Do Aug 25, 2005 16:00
Beiträge: 189
Programmiersprache: Java, C#

Hi!
Ich hab mich an das erste Tutorial zu Pathdfinding gemacht.
Das ganze habe ich versucht im OrthoModus umzusetzen, mit einem Spielfeld das aus 32*32 Pixel großen Quadraten besteht. Um das Ziel heraus zu finden habe ich keine wirkliche Selektion genommen, sondern lese die Mauskoordinaten aus und reche sie um.

Code:

 
[...]
var
 MousePos: TPoint;
[...]
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 MousePos := Point(X * Screen.Width div Form1.ClientWidth,
                   Y * Screen.Height div Form1.ClientHeight);
 
 Selected.X := round(MousePos.X / 32);
 Selected.Y := round(MousePos.Y / 32);
end;
 

Die Prozedur, die die Pathmap erstellt und meine "Spielfigur", auch ein 32*32 Pixel großes, andersfarbiges Quadrat bewegen soll, sieht folgendermaßen aus:

Code:

 
procedure TForm1.BewerteTerrain(var Start, Ziel: TPoint);
var
 Pathmap: Array of Array of Integer;
 i, j: Integer;
 Fertig: Boolean;
 LX, LY, HX, HY: Integer;
 Weg: Integer;
 amZiel: Boolean;
begin
 //Länge der Pathmap bestimmen:
 SetLength(Pathmap, Length(Playground) + 2, Length(Playground[0]) + 2);
 
 //Ränder auf unbegehbar stellen:
 for i := 0 to (Length(Pathmap)-1) do
 begin
  Pathmap[i, 0] := -1;
  Pathmap[i, Length(Pathmap[0])-1] := -1;
 end;
 
 for j := 0 to (Length(Pathmap[0])-1) do
 begin
  Pathmap[0, j] := -1;
  Pathmap[Length(Pathmap)-1, j] := -1;
 end;
 
 //Eintragen welche Felder begehbar sind und welche nicht:
 for i := 1 to (Length(Pathmap)-2) do
  for j := 1 to (Length(Pathmap[0])-2) do
   if Playground[i-1, j-1].Block = True then
    Pathmap[i, j] := -1
   else
    Pathmap[i, j] := -8;
 
 
 //Start und Ziel eintragen (+1 weil die Pathmap ja in jede Richtung größer ist):
 Pathmap[Start.X+1, Start.Y+1] := -10;
 
 Pathmap[Ziel.X+1, Ziel.Y+1] := 0;
 
 //Variablen auf Anfangswerte setzen:
 LX := Ziel.X + 1;
 LY := Ziel.Y + 1;
 HX := Ziel.X + 1;
 HY := Ziel.Y + 1;
 
 Weg := 0;
 Fertig := False;
 
 //Die Schleife den eigentlichen Weg einzeichnet:
 while not Fertig do
 begin
  dec(LX);
  dec(LY);
  inc(HX);
  inc(HY);
 
  if LX < 1 then LX := 1;
  if LY < 1 then LX := 1;
  if HX > (Length(Pathmap)-2) then HX := Length(Pathmap) - 2;
  if HY > (Length(Pathmap[0]) -2) then HY := Length(Pathmap[0]) - 2;
 
  for i := LX to HX do
   for j := LY to HY do
    if Pathmap[i, j] <= -8 then
     if (Pathmap[i+1, j] = Weg)
     or (Pathmap[i-1, j] = Weg)
     or (Pathmap[i, j+1] = Weg)
     or (Pathmap[i, j-1] = Weg) then
      case Pathmap[i, j] of
       -10: Fertig := True;
      else
       Pathmap[i, j] := Weg + 1;
      end;
 
  inc(Weg);
 end;
 
 amZiel := False;
 
 
 //Die Schleife die die Figur bewegen soll
 while not amZiel do
 begin
  i := Player.X + 1;
  j := Player.Y + 1;
 
  dec(Weg);
  Panel1.Caption := IntToStr(Weg);
 
  if Pathmap[i+1, j] = Weg then inc(Player.X)
  else if Pathmap[i-1, j] = Weg then dec(Player.X)
  else if Pathmap[i, j+1] = Weg then dec(Player.Y)
  else if Pathmap[i, j-1] = Weg then inc(Player.Y)
  else amZiel := True;
 
 
 end;
 
 
 
 
 //für mich zur Konrtolle:
 Form1.StringGrid1.ColCount := Length(Pathmap);
 Form1.StringGrid1.RowCount := Length(Pathmap[0]);
 
 for i := 0 to (Length(Pathmap)-1) do
  for j := 0 to (Length(Pathmap[0])-1) do
   Form1.StringGrid1.Cells[i, j] := IntToStr(Pathmap[i, j]);
 
 Form1.StringGrid1.Visible := True;
end;
 

Nach meinem Verständnis müsste das weiße Quadrat jetzt zu dem von mir vorgegeben Ziel springen. Tut es aber nicht wirklich. Wenn ich das erste mal klicke springt es über das Ziel (mit einem Quadrat Zwischenraum), das zweite mal passiert nichts, das dritte mal wieder nicht, usw. Wenn ma oft genug klickt springt es irgendwann mal wieder weiter, vorzugsweise weg von dem derzeit vorgegebenen Ziel.
Panel 1 (siehe 2. Schleife, die das Quadrat bewegen soll) zeigt den Wert an den Weg auch haben sollte, die Variable Weg scheint also korrekt zu sein.
Ich habe auch überprüft ob amZiel vielleicht nicht auf False zurück gestellt wird, aber am Anfang der Schleife ist es False.
Ich kann mir das ganze nicht erklären... Wisst ihr woran das liegen könnte?

Noch eine kleine Anmerkung - da es bei der Selection einfacher ist rendere ich die Vierecke von der oberen linken Ecke des Fensters aus, das dürfte aber eigentlich keinen Untschied machen, zumal Start und Zielpunkt richtig in die Pathmap eingetragen werden...

cya,
Deathball

edit: Ich hab noch ein bisschen in der Gegend rumgeklickt und teilweise springt das Quadrat neben das Ziel, also näher als oben beschrieben.
Jedoch scheint dies immer noch reiner Zufall zu sein wann und wie lange das ganze funktioniert...

edit2: Ich hab den Quellcode nochmal als .rar Archiv dran gehängt....

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Nach oben

Seite 1 von 1

[ 1 Beitrag ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.