Kollisionsabfrage mit if funktoniert nicht

[Coxy]

Hallo,
ich bin kurz davor mein Projekt zu beenden, allerdings fehlt mir noch das wichtigste und zwar die Kollisionsabfrage.
Da mir die meisten Lösenungen im Internet nicht verständlich und lang waren habe ich diese versucht selbst wie folgt zu lösen:

Delphi-Quellcode:

if (img_mario.left < img_stern.left) and (img_mario.Left > img_stern.left + img_stern.Width) then Punkte + 1;
if (img_mario.top < img_stern.top) and (img_mario.top > img_stern.Top + img_stern.Height) then Punkte + 1;

Mario ist ein image, welches man mit den Richtungstasten Steuern kann und der Stern ist ein Image welches sich von alleine bewegt.

Leider kommt bei mir der Fehler:
Anweisung erforderlich, aber Ausdruck von Typ Integer gefunden

Wie löse ich das am einfachsten?

[Edlmann]

Ersetz mal

Delphi-Quellcode:

Punkte + 1;

durch

Delphi-Quellcode:

Punkte := Punkte + 1;

[DeddyH]

1)

Zitat:

Delphi-Quellcode:

if (img_mario.left < img_stern.left) and (img_mario.Left > img_stern.left + img_stern.Width)

Wie kann img_mario.left gleichzeitig kleiner als img_stern.left und größer als img_stern.left + img_stern.Width sein?
2)

Zitat:

Delphi-Quellcode:

then Punkte + 1;

Entweder

Delphi-Quellcode:

Punkte := Punkte + 1;

oder

Delphi-Quellcode:

inc(Punkte);

[rollstuhlfahrer]

Ich würde für die Kollisionsabfrage mit PiInRect() prüfen. Und zwar alle 4 Eckpunkte der kleineren Komponente innerhalb der Fläche der größeren Komponente. Das finde ich auch übersichtlicher.

Bernhard

[DeddyH]

Noch einfacher wäre es IMO mit IntersectRect.

[ConnorMcLeod]

Zitat:

Zitat von Coxy (Beitrag 1098693)

then Punkte + 1;

???

[nuclearping]

Wozu ein neuer Thread?

http://www.delphipraxis.net/160154-f...die-mauer.html

[Luckie]

Und auch noch der gleiche Fehler. :roll:

[Coxy]

Zitat:

Zitat von DeddyH (Beitrag 1098695)

1)

Zitat:

Delphi-Quellcode:

if (img_mario.left < img_stern.left) and (img_mario.Left > img_stern.left + img_stern.Width)

Wie kann img_mario.left gleichzeitig kleiner als img_stern.left und größer als img_stern.left + img_stern.Width sein?

nehmen wir nur mal die obere Seite eines Vierecks,

dann soll es immer einen Punkt geben wenn die andere Figur durch diese Seite läuft
und dieser Bereich ist doch zwischen img_stern.left und im_stern.left + plus seiner eigenen Breite oder etwa nicht?

[Daniel]

Zitat:

Zitat von nuclearping (Beitrag 1098710)

Wozu ein neuer Thread?

http://www.delphipraxis.net/160154-f...die-mauer.html

Da es sich um die gleiche Frage der gleichen Person handelt, mache ich aus Gründen der Übersichtlichkeit hier mal zu und verweise auf den bereits bestehenden Thread.