Jump and Run! need help !

[Bartuc]

So hab es immerhin jetzt geschafft das ich auf ein höher gelegenes Shape springen kann

Allerdings kann ich seitlich in das Shape reingehen.... Wie kann ich das verhindern?

Delphi-Quellcode:

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

Timer2 ist für das "runterspringen" verantwortlich

Danke schonmal =)