Jump and Run! need help !

[Bartuc]

Zitat:

Delphi-Quellcode:

Delphi-Quellcode:   
else 
  Timer2.Enabled := True;

Das funktioniert nicht da Timer2 für das "runterkommen" beim sprung verantwortlich ist.
Und Timer1 für das "hochspringen"

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if imgcartman.Top =  234 then begin
timer2.enabled := true;
timer1.Enabled := false;
end
else begin
Application.ProcessMessages;
  Imgcartman.Top := Imgcartman.top -5;
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
(*if imgcartman.Top = 424 then begin
timer2.enabled := false;
end
else begin*)
  imgcartman.Top := imgcartman.Top +5;
end;


procedure TForm1.Timer3Timer(Sender: TObject);
begin
if IsCollision (Imgcartman.BoundsRect, S_2.BoundsRect) then
  timer2.enabled := false;
  else timer2.Enabled := true;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
if IsCollision (Imgcartman.BoundsRect, S_1.BoundsRect) then
  timer2.enabled := false
  else timer1.enabled := true
end;

Zitat:

Da müsste man den Code sehen.

ich weiß ja nicht wie ich den schreiben soll =)