Spezielle Frage zu TCanvas und TShape

[Forlan]

Hallo zusammen!

Ich habe gerade folgendes Problem...
Zur Zeit programmiere ich ein Spiel, wobei alles wunderbar soweit funktioniert. Ich bewege eine Figur (zur Zeit erstmal nur ein Shape) auf meinem Spiel, welches ich mit TCanvas gezeichnet habe... Wenn dann aber die Figur auf ein Hinderniss trifft, (ebenfalls mit TCanvas gezeichnet) soll die Figur stehen bleiben..
Und genau da ist mein Problem... Ich finde in diesem Fall einfach keinen Ansatz... ich hab mir schon so Sachen überlegt, wie z.B. wenn das Shape.Pen.Color auf eine bestimmte Farbe halt trifft, das dann meine boolsche Variable auf False gesetzt wird...
Nur wie realisiert man das?

[mkinzler]

Du benötigst eine Kollisionsabfrage. Am Einfachsten anhand der Koordinaten einen geometischen Hülle um die Figur ( z.B. Rechteck)

[Forlan]

ok, sollte machbar sein... Auf sowas in der art bin ich auch schon gekommen, dachte aber vllt. gibt es eine einfachere Möglichkeit mit direkter Abfrage

Naja, dennoch danke!

[mkinzler]

Für Speile solltest du aus Geschwindigkeitsgründen vielleicht eher auf DirectX ( Z.B. Andorra2D) oder OpenGL setzen

[Forlan]

Es wird ja nichts Großes... Mir ist nur so eine Art Spiel in den Sinn gekommen und da hatte ich mal Lust das zu programmieren... Mit Andorra habe ich mich schon etwas befasst, werde es auch für spätere Spielideen nutzen =)

[Noedel]

wenn der Hintergrund einfarbig ist, sollte es reichen, die Farbe des Pixels abzufragen, auf das man das Figürchen setzen will. (canvas.Pixels)

[DeddyH]

Mal eine Überlegung für den einfachsten Fall (2 Rechtecke):
eine Kollision liegt dann vor, wenn
- eine Ecke des Quellrechtecks (bewegliches Objekt) innerhalb des Zielrechtecks (Hindernis) liegt oder
- eine Kante des Quellrechtecks das Zielrechteck schneidet

[Forlan]

Ich hab versucht das mal so jetzt zu lösen, jedoch passiert etwas das nicht passieren soll....^^

Delphi-Quellcode:

  if oben then //oben ist true wenn vk_up gedrückt wird...
    begin
      if ((sPlayer.Top-5 <> iSpielfeld.Top) or (iSpielfeld.Canvas.Pixels[sPlayer.Left,sPlayer.Top-5]<>clBlue))  then
        sPlayer.Top := sPlayer.Top-1;  //sPlayer :TShape
    end;

wenn ich den teil nach "or" weglasse, bleibt meine figur immerhin im feld... sobald ich den Teil nach "or" hinzufüge, kann meine figur aus dem Image hinausgehen O.o... Der Teil nach dem OR soll sein, das wenn ich in meinem hier noch am programmierenden editor hinderhisse hinzufügen will, dass die figur auch da stehen bleibt... jedoch funktioniert das leider so nicht..
jemand eine Idee?

[DeddyH]

Müsste das nicht ein and statt einem or sein?

[Forlan]

mit dem and hab ich es schon versucht, so bleibt die figur zwar in dem image, aber wenn ich etwas in clBlue färbe bleibt die figur trotzdem nicht stehen