\(\(\(options = {AspectRatio -> 1, 
          PlotRange -> {{\(-10\), 10}, {\(-7\), 13}}};\)\(
\)
    \)\)
sky = {{RGBColor[0.8, 0.9, 1], 
            Rectangle[{-10, -5}, {12, 
                12}]}};

    
earth = {{RGBColor[0.7, 0.6,  .0], 
            Rectangle[{-12, -5}, {12, 0.7}]}, {RGBColor[0.2, 
              0.2,  .2], 
            Rectangle[{-12, -1.8}, {12, 0.5}]}, {RGBColor[0.9, 
              0.9,  .9], 
            Rectangle[{-12, -0.35}, {12, -0.2}]}, {RGBColor[0.9, 
              0.9,  .9], 
            Rectangle[{-12, 0.6}, {12, 0.65}]}, {RGBColor[0.9, 0.9,  .9], 
            Rectangle[{-12, -1.7}, {12, -1.4}]}};

    
grove = {Tree[-7, 0], Tree[-2, 0], Tree[3, 0], Tree[4, 0], 
          Tree[9, 0], Tree[13, 0], Tree[17, 0], Tree[19, 0], Tree[23, 0], 
          Tree[25, 0], Tree[29, 0], Tree[33, 0], Tree[39, 0], Tree[42, 0], 
          Tree[-7 + 18  Pi, 0], Tree[-2 + 18  Pi, 0], 
          Tree[3 + 18  Pi, 0], Tree[4 + 18  Pi, 0], Tree[9 + 18  Pi, 0], 
          Tree[13 + 18  Pi, 0]};

    
Tree[x_, 
          y_] := {{RGBColor[0, 0.6, 0], 
            Disk[{-3 t + x, 2 + y}, {0.5, 1 + y}]}, {RGBColor[0.5, 0.5, 
              0], Rectangle[{-3 t - 0.1 + x, 
                0.7 + y}, {-3 t + 0.1 + x, 
                1.5 + y}]}};

    
\(\(mt = {{RGBColor[0.2, 0.7, 0], 
            Disk[{\(-8\) - t, \(-2\)}, {7, 4}, {0, Pi}]}, {RGBColor[0, 0.8, 
              0], Disk[{\(-5.5\) - t, \(-2\)}, {6, 5}, {0, Pi}]}, {RGBColor[
              0.2, 0.7, 0], 
            Disk[{\(-8\) - t + 6  Pi, \(-2\)}, {7, 4}, {0, Pi}]}, {RGBColor[
              0, 0.8, 0], 
            Disk[{\(-5.5\) - t + 6  Pi, \(-2\)}, {6, 5}, {0, Pi}]}, {RGBColor[
              0.2, 0.7, 0], 
            Disk[{\(-8\) - t + 12  Pi, \(-2\)}, {7, 4}, {0, Pi}]}, {RGBColor[
              0, 0.8, 0], 
            Disk[{\(-5.5\) - t + 12  Pi, \(-2\)}, {6, 5}, {0, 
                Pi}]}};\)

\)
car1 = Car[t, 0.95, 0.9, 0, 0, 0];
car2 = Car[t, 0.5, 0.9, 0.1, -12 + 7  Cos[t/3], 0];
car3 = Car[3  t, 1, 0.1, 0, 3  t - 13, -1];
car4 = 
        Car[2  t, 0.1, 0.1, 1, 
          2  t - 20, -0.5 + Sin[t/2.4 + 1]/2];
\(\(\(car5 = 
        Car[8  t, Sin[5  t]^2/2 + 0.5, 0.3 + 0.7  Cos[9  t]^2, Sin[7  t]^2, 
          8  t - 120, \(-1\)];\)\(
\)
    \)\)
\(\(\(Car[t_, c1_, c2_, c3_, x_, 
          y_] := {{RGBColor[c1, c2, c3], 
            Disk[{0 + x, 1 + Sin[10  t]/20 + y}, {1.4, 2}, {Pi/2, Pi}], 
            Disk[{1 + x, 2 + Sin[10  t]/20 + y}, {0.8, 1}, {0, Pi/2}], 
            Polygon[{{0 + x, 0.9 + Sin[10  t]/20 + y}, {0 + x, 
                  3 + Sin[10  t]/20 + y}, {1 + x, 
                  3 + Sin[10  t]/20 + y}, {1.8 + x, 
                  2 + Sin[10  t]/20 + y}, {2 + x, 
                  1.9 + Sin[10  t]/20 + y}, {2 + x, 
                  0.9 + Sin[10  t]/20 + y}}], 
            Disk[{2 + x, 0.9 + Sin[10  t]/20 + y}, {0.7, 1}, {0, 
                Pi/2}]}, {RGBColor[0.6, 0.6, 1], 
            Polygon[{{1.2 + x, 2.8 + Sin[10  t]/20 + y}, {0.5 + x, 
                  2.8 + Sin[10  t]/20 + y}, {0.5 + x, 
                  2 + Sin[10  t]/20 + y}, {1.6 + x, 2 + Sin[10  t]/20 + y}}], 
            Polygon[{{\(-1.0\) + x, 2 + Sin[10  t]/20 + y}, {0.2 + x, 
                  2 + Sin[10  t]/20 + y}, {0.2 + x, 
                  2.8 + Sin[10  t]/20 + y}, {0 + x, 
                  2.8 + Sin[10  t]/20 + y}}], 
            Disk[{1 + x, 2 + Sin[10  t]/20 + y}, {0.6, 0.8}, {0, Pi/2}], 
            Disk[{0 + x, 1 + Sin[10  t]/20 + y}, {1.2, 1.8}, {Pi/2, 
                4.9  Pi/6}]}, {RGBColor[c1, c2, c3], 
            Polygon[{{0 + x, 0.9 + Sin[10  t]/20 + y}, {\(-1\) + x, 
                  0.9 + Sin[10  t]/20 + y}, {\(-1\) + x, 
                  2 + Sin[10  t]/20 + y}, {0 + x, 2 + Sin[10  t]/20 + y}}], 
            Disk[{2.35 + x, 0.7 + Sin[10  t]/20 + y}, 0.15, {Pi, 2  Pi}], 
            Disk[{0.65 + x, 0.7 + Sin[10  t]/20 + y}, 0.15, {Pi, 2  Pi}], 
            Disk[{0.15 + x, 0.7 + Sin[10  t]/20 + y}, 0.15, {Pi, 2  Pi}], 
            Disk[{\(-1.55\) + x, 0.7 + Sin[10  t]/20 + y}, 
              0.15, {Pi, 2  Pi}], 
            Disk[{1.5 + x, 0.7 + Sin[10  t]/20 + y}, 1, {0, Pi}], 
            Disk[{1.5 + x, 0.7 + Sin[10  t]/20 + y}, 0.7, {0, Pi}], 
            Disk[{\(-0.7\) + x, 0.7 + Sin[10  t]/20 + y}, 1, {0, Pi}], 
            Disk[{\(-0.7\) + x, 0.7 + Sin[10  t]/20 + y}, 
              0.7, {0, Pi}]}, {RGBColor[0.3, 0.3, 0.3], 
            Disk[{1.5 + x, 0.7 + Sin[10  t]/20 + y}, 0.65], 
            Disk[{\(-0.7\) + x, 0.7 + Sin[10  t]/20 + y}, 0.65]}, {RGBColor[
              0.8, 0.8, 0.8], Disk[{1.5 + x, 0.7 + Sin[10  t]/20 + y}, 0.4], 
            Disk[{\(-0.7\) + x, 0.7 + Sin[10  t]/20 + y}, 0.4]}, 
          Circle[{0 + x, 1 + Sin[10  t]/20 + y}, {1.4, 2}, {Pi/2, Pi/1.08}], 
          Line[{{0 + x, 3 + Sin[10  t]/20 + y}, {1 + x, 
                3 + Sin[10  t]/20 + y}}], 
          Circle[{1 + x, 2 + Sin[10  t]/20 + y}, {0.8, 1}, {0, Pi/2}], 
          Line[{{2 + x, 1.9 + Sin[10  t]/20 + y}, {1.8 + x, 
                2 + Sin[10  t]/20 + y}}], 
          Circle[{2 + x, 0.9 + Sin[10  t]/20 + y}, {0.7, 1}, {0, Pi/2}], 
          Line[{{2.7 + x, 0.9 + Sin[10  t]/20 + y}, {2.5 + x, 
                0.9 + Sin[10  t]/20 + y}}], 
          Line[{{0.5 + x, 0.9 + Sin[10  t]/20 + y}, {0.3 + x, 
                0.9 + Sin[10  t]/20 + y}}], 
          Circle[{1 + x, 2 + Sin[10  t]/20 + y}, {0.6, 0.8}, {0, Pi/2}], 
          Line[{{1.2 + x, 2.8 + Sin[10  t]/20 + y}, {0.5 + x, 
                2.8 + Sin[10  t]/20 + y}, {0.5 + x, 
                2 + Sin[10  t]/20 + y}, {1.6 + x, 2 + Sin[10  t]/20 + y}}], 
          Line[{{\(-1.0\) + x, 2 + Sin[10  t]/20 + y}, {0.2 + x, 
                2 + Sin[10  t]/20 + y}, {0.2 + x, 
                2.8 + Sin[10  t]/20 + y}, {0 + x, 2.8 + Sin[10  t]/20 + y}}], 
          Circle[{0 + x, 1 + Sin[10  t]/20 + y}, {1.2, 1.8}, {Pi/2, 
              4.9  Pi/6}], 
          Circle[{2.35 + x, 0.7 + Sin[10  t]/20 + y}, 0.15, {Pi, 2  Pi}], 
          Circle[{0.65 + x, 0.7 + Sin[10  t]/20 + y}, 0.15, {Pi, 2  Pi}], 
          Circle[{0.15 + x, 0.7 + Sin[10  t]/20 + y}, 0.15, {Pi, 2  Pi}], 
          Circle[{\(-1.55\) + x, 0.7 + Sin[10  t]/20 + y}, 
            0.15, {Pi, 2  Pi}], 
          Circle[{1.5 + x, 0.7 + Sin[10  t]/20 + y}, 1, {0, Pi}], 
          Circle[{1.5 + x, 0.7 + Sin[10  t]/20 + y}, 0.7, {0, Pi}], 
          Circle[{1.5 + x, 0.7 + Sin[10  t]/20 + y}, 0.65], 
          Circle[{\(-0.7\) + x, 0.7 + Sin[10  t]/20 + y}, 1, {0, Pi}], 
          Circle[{\(-0.7\) + x, 0.7 + Sin[10  t]/20 + y}, 0.7, {0, Pi}], 
          Circle[{\(-0.7\) + x, 0.7 + Sin[10  t]/20 + y}, 0.65], 
          Circle[{1.5 + x, 0.7 + Sin[10  t]/20 + y}, 0.1], 
          Circle[{\(-0.7\) + x, 0.7 + Sin[10  t]/20 + y}, 
            0.1], {RGBColor[0.6, 0.6, 0.6], 
            Circle[{1.5 + x, 0.7 + Sin[10  t]/20 + y}, 
              0.5, {\(-5\) t - 1, \(-5\) t - 0.3}], 
            Circle[{\(-0.7\) + x, 0.7 + Sin[10  t]/20 + y}, 
              0.5, {\(-5\) t - 1, \(-5\) t - 0.3}], 
            Circle[{1.5 + x, 0.7 + Sin[10  t]/20 + y}, 
              0.5, {\(-5\) t + 0.3, \(-5\) t + 0.7}], 
            Circle[{\(-0.7\) + x, 0.7 + Sin[10  t]/20 + y}, 
              0.5, {\(-5\) t + 0.3, \(-5\) t + 0.7}], 
            Circle[{1.5 + x, 0.7 + Sin[10  t]/20 + y}, 
              0.6, {\(-5\) t, \(-5\) t + 0.5}], 
            Circle[{\(-0.7\) + x, 0.7 + Sin[10  t]/20 + y}, 
              0.6, {\(-5\) t, \(-5\) t + 0.5}]}};\)\(
\)
    \)\)
Do[Show[
        Graphics[{sky, mt, earth, grove, car1, car2, car3, car4, car5}, 
          options]], {t, 0, 6  Pi, Pi/20}]