Hi,
arbeitest du mit DELPHI-X?
Egal es funkst eigentlich überall gleich!
Du brauchst keine collision im eigentlichen Sinne, du sagst im einfach:
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key = (Taste für Vorwärtsbewegung)
then
Begin
IF (Auto.x > (Strassenbegrenzung links)) and Auto.x < (Strassenbegrenzung rechts))
Then
Auto.Y:=Auto.Y+1
else
Auto.x:=(Strassenmitte);
end;
end;
end;
Strassenbegrenzung links ist z.B. 200;
Strassenbegrenzung rechts ist dann z.B. 400;
Strassenmitte ist dann 300;
Auto.x ist immer die obere linke ecke!
Die Mitte ist dann
Auto.x:=Auto.x+Auto.width div 2;
Auto.y:=Auto.y+Auto.height div 2;
ATwardz