Kollisions Abfrage

[j0hn]

Servus ich versuche schon seit einer Woche SpaceInvaders zu programmieren.
Was bis jetzt ach erfolgreich klappt bis auf die kollisions abfrage...

Ich versuche die xy koordinaten des "bullets"(kugel die das schiff abschießt) mit den koordinaten der Invader zu überprüfen.
So weit ist alles klar nur müsste ich einen bestimmten bereich eingeben wo der bullet im Invader eintrifft.
Ansonsten müsste man im spiel den einen pixel links oben treffen, was fast unmöglich ist.

thx, greetz j0hn

[Khabarakh]

Mit der Funktion Types.PtInRect sollte es gehen:
Tot := PtInRect(Bounds(Enemy.Position.X, Enemy.Position.Y, Enemy.Width, Enemy.Height), Bullet.Position); Wenn die Invaders nicht nur mit einem Punkt der Bullets kollidieren sollen (können sie überhaupt ?), solltest du statt PtInRect IntersectRect benutzen.

[j0hn]

Jo, vielen dank.
Nur weiß ich nicht in welche variable sich die koordinaten abspeichern lassen.

[delphi]hilf:=PtInRect(Bounds(Invader1.Left,Invader1.Top,I nvader1.Width,Invader1.Height),Bullet.Left);

hilf habe ich als integer deklariert.
Nur geht leider nicht kann man die werte umwandeln oder muss ich einen typisierten datentyp verwenden??

greetz, j0hn

[Airblader]

Ich würde vermuten, dass es ein TRUE oder FALSE zurückgibt, dementsprechend muss der typ von hilf ein Boolean sein

air

Edit: Achja..sicher, dass es Bullet.Left bei dir ist? Wohl eher etwas wie sowas:
Point(Bullet.Left, Bullent.Top);

[j0hn]

Jetzt bin confused, ich bräuchte ein konkretes beispiel das funktioniert....

[Khabarakh]

Habe ich doch :

Zitat von Khabarakh:

Tot := PtInRect(Bounds(Enemy.Position.X, Enemy.Position.Y, Enemy.Width, Enemy.Height), Bullet.Position);

Angepasst an dein Codefragment:

Delphi-Quellcode:

var 
  Tot:  Boolean;
begin
  Tot := PtInRect(Invader1, Bullet.TopLeft);
end;

Für funktionierenden Code bräuchten wir schon etwas mehr von deinem bisherigen.