Spiel programmieren (einfaches)

[ATwardz]

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