Autorennen Spiel (mein 2 Projekt)

[bitsetter]

Hallo,

zum Anfang war dein Auto gar nicht zu beherrschen. Entweder lenkte es gar nicht oder es fuhr immer von einer Seite zur anderen. Der Timer für Links und für Rechts sind ja fast immer zusammen an. Ich habe noch folgenden Code hinzugefügt:

Delphi-Quellcode:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_Left then
    Links.Enabled:= false;
  if Key = VK_Right then
    Rechts.Enabled:= false;
end;

Danach konnte man das Auto ganz gut lenken. Aber dann war es wohl schon zu einfach, denn dann konnte man immer ganz locker auf dem Mittelstreifen unfallfrei fahren.

Wenn ich dein Programm unter Win98 beendete, kam immer eine Fehlermeldung.(siehe Anhang)



EDIT: mit den ganzen Timern funktioniert das irgendwie nicht richtig. Wenn man lenkt wird das Auto gleich langsamer.
Ich habe die beiden Timer für Links und rechts runter geschmissen und bei FahrtTimer folgendes hinzugefügt:

Delphi-Quellcode:

procedure TForm1.FahrtTimerTimer(Sender: TObject);
begin
  if (ASpieler.Left < 128) and (GetAsyncKeyState(VK_RIGHT)< 0) then
     ASpieler.Left:= ASpieler.Left + ges;

  if (ASpieler.Left > 40) and (GetAsyncKeyState(VK_LEFT)< 0) then
     ASpieler.Left:= ASpieler.Left - ges;

  // Bewegt die Strasse

Jetzt lief bei mir alles problemlos.