2-D Adventure programmieren

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var R: TRect;    //das Hindernis
    Test: TRect; //die Spielfigur

    procedure ShowStatus;
    begin
      //ich vergleiche nur mal die linke obere Ecke
      if PtInRect(R,Test.TopLeft) then
        ShowMessage('Kollision')
      else
        ShowMessage('Freie Bahn');
    end;

begin
  //das Hindernis mal an Position 10,10 mit Höhe und Breite 90 definieren
  R := Rect(10,10,100,100);

  //2 Beispiele
  Test := Rect(10,101,100,200);
  ShowStatus;

  Test := Rect(10,90,100,190);
  ShowStatus;
end;