Kreuzung mit Autos

[Sir Rufo]

Meine Güte, dass kann sich ja keiner mit ansehen

Delphi-Quellcode:

procedure TForm1.TimerAuto1Timer(Sender: TObject);
begin
  if (auto.top=340) and (SRotB.brush.color=clred) then 
    begin
      // Fahrer in der Nase bohren lassen
    end
  else
    begin
      Auto.Top := auto.Top - 1;
      if auto.top < 0 then auto.top := 390;
    end;

end;

Nix mit Timer ein oder ausschalten ... einfach im Timer NIX machen