Simple(?) Kollisionsabfrage in DelphiX

[logaan]

Das hört sich logisch an... jetzt müsste ich bloß noch wissen, wie ich den Rand des Images Abfragen kann ... Dann hätt ich's

[Gandalfus]

Delphi-Quellcode:

function RectinRect(rect1,rect2: Trect): boolean;
begin
  result := true;
  if (rect1.Left > rect2.BottomRight.x) then result:=false;
  if (rect1.top > rect2.BottomRight.y) then result:=false;
  if (rect2.Left > rect1.BottomRight.x) then result:=false;
  if (rect2.top > rect1.BottomRight.y) then result:=false;
end;

oder

IntersectRect();

wie ich oben schon geschrieben hab.

Eien kollision Abfrage mit BB:

Alle kisten bzw alle durch das man nicht durchlaufen kann in einen array

Pseudocode für eien bewegung nach rechts:
inc(figur.left)
for i:=1 to Anzahlderunpassierbarensachen
IF RectinRect(rect(figur.left...),rect(nichtpassierba resache[i].left....) then inc(figur.left) //da es eine kollision gab wieder zurück


mfg

[logaan]

Vielen Dank noch mal für alle Beiträge und eure Bemühungen

Auch wenn ich jetzt was komplett neues geschrieben hab

cya
logaan