Zielsuchende Objekte

[Dunkelbunt27]

Liebe Delphi Freunde,
Meine besten Freunde und ich arbeiten an einem langen Projekt. Worum es dabei geht ist denke ich nicht sehr wichtig. Es geht um den Nachbau eines Spieles, soviel sei gesagt. Das eigentliche Problem ist:

Wir haben es bereits geschafft "Kriegsschiffe" am Rande des Bildschirms Random erscheinen zu lassen. Uns fehlt aber wissen/Ideen wie es umzusetzen ist diese TShapes dazu zu bringen sich intelligent zur Mitte zu bewegen.
Nicht so dass man beispielsweise erst alle diagonal an einen Timer gekoppelt Richtung Mitte laufen lasst und nachdem sich ihre Höhe shape1.Top mit der der Mitte gleicht sie anfangen nur noch den Left wert zu ändern.

Ich hoffe die Ausgrenzung it verständlich
Wichtig wäre also:
- die zufällig am Rand erschienenen Schiffe (Kreise tshape) finden intelligent den kürzesten weg zur Mitte und halten etwa 20 davon entfernt an
- sie sammeln sich nicht alle an einem Punkt also nicht alle Schiffe die von unten kommen landen genau aufeinander unterhalb der Base (Mitte) sondern wie es gerade passt.

EDIT
Die Schiffe können an jedem Punkt der genau 5 Pixel!? vom Rand entfernt ist erscheinen, also wäre jeder weg anders.

Ich würde mich sehr über Hilfe freuen.
LG Dunkelbunt

[himitsu]

Diese sollen also in einer "direkten" geraden zur Mitte laufen?

da es ja "quasi" nur in ganzen Pixeln/Feldern/Schritten geht:
- berechne die X&Y-Abstände zu dem gewünschten Zielpunkt
(z.B. x_abstand = x_zielpunkt - x_position)
- such dir den kleinesten Wert davon aus (mit abs das Vorzeichen entfernen)
- in diese Richtung gehst du dann
(if abs(x_abstand) > abs(y_abstand) then x_position=x_position+/-1 else y_position=y_position+/-1 )
- wenn wenn das Zielfeld aber schon besetzt ist, dann nimm die andere Richtung
- wenn keiner der beiden Wege möglich ist, dann entweder per Zufall in einer der verbleibenden Wichtungen gehn oder erstmal stehenbleiben
- sind beide Abstände kleiner-gleich 20, dann auch stehenbleiben


falls auch diagonal gesprungen werden darf, dann
- wenn x_abstand wesentlich größer als y_abstand und x_abstand größer 20, dann in nur x-richtung gehn
- oder wenn y_abstand wesentlich größer als x_abstand und y_abstand größer 20, dann nur in y-richtung gehn
- oder wenn x_abstand und y_abstand größer 20, dann in x und y gehn
- oder wenn x_abstand größer 20, dann in x
- oder wenn y_abstand größer 20, dann in y
- oder stehenbleiben
(auch hier die Abstände ohne Vorzeichen vergleichen)


falls es nicht ganz gerade sein soll, dann auf diesen weg eine Zielrichtung berechnen und dann per zufall eine Richtung auswählen, dabei aber natürlich in Zielrichtung den Zufall höher gewichten.

[igel457]

Du brauchst erstmal die Richtung, in die sich die Schiffe bewegen sollen - sozusagen einen "Pfeil" der in Richtung der Mitte zeigt (man munkelt Fachleute sollen hier auch von einem "Vektor" sprechen). Diesen Vektor bekommst du ganz einfach:

Delphi-Quellcode:

var
  vx, vy: Double;
begin
  vx := MitteX - MitteSchiffX;
  vy := MitteY - MitteSchiffY;
end;

Nun ist dieser Vektor jedoch für unterschiedliche Schiffe unterschiedlich lang (vergleiche Ecke oben links mit mitte links außen). Du musst den Vektor also normalisieren. Dazu brauchen wir erstmal die Länge des Vektors (entspricht dem Abstand zu Mitte), die einfach mit dem Satz des Pythagoras ausgerechnet werden kann:

Delphi-Quellcode:

var
  laenge: double;
begin
  laenge := sqrt(sqr(vx) + sqr(vy));
  vx := vx / laenge;
  vy := vy / laenge;
end;

Nun kannst du in einem Timer die Schiffe n Schritte an den Pfeil entlangwandern lassen, wobei n die Geschwindigkeit ist (in diesem Fall 10px pro Timerintervall):

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  schiffx := round(schiffx + vx * 10);
  schiffy := round(schiffy + vy * 10);
end;

Um die Schiffe nich miteinander Kollidieren zu lassen musst du auch hier den Abstand zwischen den Schiffen ausrechnen und entsprechend reagieren. Um die Schiffe einige Pixel vor der Mitte zu stoppen, musst du den Abstand zur Mitte berechnen und wenn dieser einen gewissen Wert hat stoppen.

[Dunkelbunt27]

Dank,
Hört sich schonmal super an. Hab vergessen wie eng Delphi mit Mathematik zusammenhängt.
Wir haben noch eine weitere Frage:
Ist es richtig wenn sie Schiffe erstmal in der Mitte sind:
- es soll ein Laser entstehen

Erste Gedanken:
Image1.canvas.moveto(schiffx, schiffy); Dann
Image1.canvas.lineto(zielx, ziely);
Klang für uns logisch, es kommt aber statt einer Linie ein schwarzer flimmernder Bildschirm.
Ich hoffe ihr wisst wieder so tolle antworten
LG Dunkelbunt

[mkinzler]

Ein Spiel auf dem Canvas zeichnen ist keine gute Idee. Schau dir hier besser Lösungen an, welche uf DX/OpenGL basieren wie z.B. Andorra und Co.

Btw: Bite verwende Delphi-Tags für Delphi-Code

[Sir Rufo]

Zitat von Dunkelbunt27:

Hab vergessen wie eng Delphi mit Mathematik zusammenhängt.

was kann Delphi denn dafür, dass ihr ein mathematisches Problem lösen wollt?

[blackfin]

Wenn es um eine Schiffsbewegung geht, kommen da sicherlich auch noch irgendwann Hindernisse mit ins Spiel, oder sei es nur, um bereits von anderen Schiffen blockierte Felder "auszukeyen"
Ich würde mich deswegen an deiner Stelle mal generell über Wegfindungs-Algorithmen wie A* oder dergleichen informieren, wenn man das Prinzip mal verstanden hat, spart es einem ne Menge Müllcode

Michael Puff hat auch eine Delphi-Implementation des A*-Algorithmus inklusive PDF-Tutorial in seinem Gepäck:
http://www.michael-puff.de/Programmi...emos/AStar.zip

[Dunkelbunt27]

@ igel

Deine Rechnung hat mir geholfen, jedoch gibt es ein problem:
Ich rechne hier mal ein beispiel vor:

schiffX= 2
schiffY = 2
MitteX = 26
MitteY = 12

zuerst Vektoren berechnen:
vx = MitteX-SchiffX = 26-2 = 24
vy = MitteY - SchiffY = 12-2 = 10

Laenge:
Wurzel(vx²+vy²) = 26

vx= vx/laenge = 24:26 = 0.923
vy= vy/laenge = 10:26 = 0,384

Das ist erstmal die Rechnung. Also muss sich mein schiff 0,923 einheiten um x bewegen und 0,384 um y....
Das Problem ist das 1Pixel doch schon die kleinste schrittweite ist ... daraus folgt das das schiff immer genau diagonal wandert und nicht ankommt...
Höchstens wenn ich es mit 10 multipliziere, was leider zu große schritte sind.


Ich werde mich jetz um den A* algorithmus kümmern auch wenn ich ihn noch nicht ganz verstanden habe.
Gruß Dunkelbunt.

[igel457]

Speichere die Position der Schiffe als Fließkommazahl (Double) und runde diese ausschließlich für die Anzeige.

[Medium]

Es ist fast immer eine gute Idee Positionen als Floats zu verwalten, und nur zum Zwecke der Anzeige beim Zeichnen zu runden.

Edit: Okay, nächstes Mal erst F5 drücken, dann antworten