Clear[x,g,a,t,x1,f,f1,ht1,ht2,hf,w,bf,t1,y,vy]
g=0.017;
x=-5;
a=0;
t=0;
x1=-10;
f=0;
f1=0;
ht1=25;
ht2=75;
bt1=50;
hf=0;
w=10;
bf=0;
t1=0;
y=5;
vy=0;

Button["Jump",f1=1]
Button["Reset",y=10;f=1;vy=0]
Manipulate[
ten=Disk[{x,y},1];
bx=bt1+x-t;
hx=ht1+x-t;
hx2=ht2+x-t;
y-=vy;
vy+=g;
grund=Rectangle[{x1,-10},{x1+20,-1}];
block=Rectangle[{bx,-10},{bx+w,5}];
hole=Rectangle[{hx,-10},{hx+w,-1}];
hole2=Rectangle[{hx2,-10},{hx2+w,-1}];
Switch[hf,0,ht=ht1,1,ht=ht2,2,hf=0];
Switch[bf,0,bt=bt1,1,bf=0];
If[a==0,t1=t+w,If[t1==t,a=0]];
Switch[t,0,a=0,ht+w,a=0,bt+w,a=0,ht,a=-15;hf+=1,bt,a=6;bf+=1];
If[y<a+0.1&&y>a-0.5,y=a;vy=0;f=0,f=1];
If[f1==1,If[f==0,vy=-0.5];f1=0];
Graphics[{Red,ten,Blue,grund,Green,block,White,hole,hole2},{AspectRatio->1,PlotRange->{{-10,10},{-10,10}}}],{t,0,100,1}]