Interagieren mit Objekten (Spiel)

[rawsoul]

Hallo liebe Delphianer,

Ich möchte mich an einem kleinen Jump and Run Spiel versuchen.
Da die Spielfigur mit Objekten interagieren soll (Shapes in meinem Fall -> Ich nutze keine DX oder OGL, alles läuft über Delphikomponenten), muss ich herausfinden, ob die Spielfigur dieses Objekt (Es gibt verschiedene Arten) berührt, welche dann dementsprechend agiert.

Die Kollision verläuft zur Zeit bei durch Pythagoras (sqrt(deltax^2+deltay^2). Jetzt möchte ich aber einen Schritt weitergehen und undefinierte, unsymmetrische Polygone als Kollisionsobjekt nutzen. Dazu sind schon einige Versuche schiefgelaufen (Polygon in Dreiecke einteilen). Welchen Tipp/Ansatz könntet ihr mir geben?

Desweiteren möchte ich herausfinden, auf welcher Seite der Spielfigur sich das Kollisionsobjekt befindet. Bei der Pythagorasmethode ging es ja noch relativ einfach. Aber bei den Polygonen habe ich nicht einmal einen Ansatz :(

Grüße,
Frank.

[Apollonius]

Du könntest Windows für dich arbeiten lassen und Regions verwenden. Dafür musst du du dann CreatePolygonRgn benutzen, um die Regions zu erstellen, und CombineRgn zum Test, ob sie sich schneiden. Die Regions kannst du dann auch gleich zum Zeichnen verwenden.

[rawsoul]

Wow, das klingt ja gut!
Ich werde es testen (und Ergebnisse einstellen, falls erwünscht), vielen Dank!

//Edit:
Irgendwas mache ich wohl falsch ;)
Habs mal in nem Timer probiert:

Delphi-Quellcode:

var
  Form1: TForm1;
  points1:array [0..4] of tpoint;
  poly:hrgn;
  dc:hdc;
  hbr:hbrush;

[...]

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:integer;
begin
  dc:=GetDC(Handle);
  for i:=0 to 4 do
    begin
      points1[i]:=point(random(form1.clientWidth),random(form1.clientHeight));
    end;
  poly:=CreatePolygonRgn(points1,5,2);
  fillrgn(dc,poly,hbrush(rgb(255,0,0)));
end;

Ich seh leider nichts auf dem Form. Wo mache ich da den Fehler?

//Edit2:
Zu früh aufgegeben... Jetzt hab ichs, danke euch :)