Hilfe für Pacman-Projekt

[KleinTessy]

Hallo,
Ich würde mich freuen wenn mir jemand bei meinem Projekt weiterhelfen könnte...
Ich möchte ein Spiel programmieren, dass ähnlich wie das Spiel Pacman sein soll...
Dafür habe ich verschiedene Icons verwendet...
Wenn Icon1 auf den auf Icon2 bewegt wird soll Icon2 verschwinden und eine Nachricht erscheinen
(also ähnlich wie wenn pacman von einem monster erwischt wird, oder diese gelben Dinger sammelt)
Bin noch ein Anfänger und kenne mich nicht so gut aus... über eine Antwort würde ich mich sehr freuen...

Lg Tessy

[LTE5]

Was ist genau deine Frage?

[KleinTessy]

... ich möchte dass eine nachricht erscheint wenn sich zwei icons auf dem selben platz befinden

[LTE5]

Ich stelle zwar auch gern ungenaue Fragen und viele hier im Forum verzweifeln daran.

Aber was du da fragst ist in etwa als ob ich sage "Ich möchte gerne in einem großen Haus wohnen".
Ohne Hintergrundinformationen wird man nicht weit kommen.

[Luckie]

Wie sieht denn dein bisheriger Code aus, der die Icons bewegt? Und hast dunschon eine Kollisionsabfrage?

[Neutral General]

So wie ich das lese geht es ihm gerade um die Kollisionsabfrage.

Du musst die Positionen und Größen der beiden Icons miteinander vergleichen und checken ob sie sich überlappen.
Da gibts erst mal (ohne Engine) nichts bequemes. Du musst selbst checken/ausrechnen ob sich die beiden Rechtecke überlappen.

[Redeemer]

Sind Icon1 und Icon2 TImage s?

Irgendwie so?

Delphi-Quellcode:

function Collides(Obj1, Obj2: TControl): Boolean;
begin
  Result := ((Obj1.Top in [Obj2.Top .. Obj2.Top + Obj2.Height-1]) and
             (Obj1.Left in [Obj2.Left .. Obj2.Left + Obj2.Width-1])) or
            ((Obj2.Top in [Obj1.Top .. Obj1.Top + Obj1.Height-1]) and
             (Obj2.Left in [Obj1.Left .. Obj1.Left + Obj1.Width-1]));
end;

[Bernhard Geyer]

Wenn man TRects hat, kann man die Berechnung durch Windows durchführen lassen:

https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

[EWeiss]

Zitat von Redeemer:

Sind Icon1 und Icon2 TImage s?

Irgendwie so?

Delphi-Quellcode:

function Collides(Obj1, Obj2: TControl): Boolean;
begin
  Result := ((Obj1.Top in [Obj2.Top .. Obj2.Top + Obj2.Height-1]) and
             (Obj1.Left in [Obj2.Left .. Obj2.Left + Obj2.Width-1])) or
            ((Obj2.Top in [Obj1.Top .. Obj1.Top + Obj1.Height-1]) and
             (Obj2.Left in [Obj1.Left .. Obj1.Left + Obj1.Width-1]));
end;

Dir ist aber schon klar das ein Pacman rund ist oder
Fehlt da nicht was?

Sin, Cos, Tan, PI wären dann Voraussetzung da man hier nicht vom TRect ausgehen kann sondern vom Mittelpunkt jedes einzelnen Objects die Kollision berechnen muss.

gruss

[LTE5]

Die Pacman-Figuren "fahren" doch eh in Bahnen herum. Von daher ist es doch total egal, wie man es berechnet - also ob rund oder eckig.