Jump and Run! need help !

[Relicted]

try this... spiel mal bissl mit den sleep werten und den until bedingungen..

Delphi-Quellcode:

var
  nCurrTop : integer;
begin
  with ImgCartman do
  begin
    // Zwischenspeichern der aktuellen Höhe speichern
    nCurrTop := Top;
    // Hochspringen
    repeat
      Top := Top - 10;
      { TODO -oBartuc : hier kannst du noch eventuell nach links oder rechts springen.. einfach mit Left := Left +/- n; }
      // Kurz warten damit's ned zu schnell geht..
      Sleep(15);
      // Rechenzeit frei geben damit das Bild auch flüssig hoch und runter hüpft... 
      Application.ProcessMessages;
    until ( Top = nCurrTop - 150 );

    // Und wieder runter fallen...
    repeat
      Top := Top + 10;
      Sleep(15);
      Application.ProcessMessages;
    until ( Top = nCurrTop );
  end;

Gruß
Reli