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