<< Graphics`Animation`
<< Graphics`Shapes`
<< Graphics`Polyhedra`
prez[x_, y_, s_] := 
        Cuboid[{x, y, 0}, {x + s, y + s, s}];
prezenty = {prez[1, 1, 1], prez[2, -1, 1.5], 
          prez[-1, -1, 0.9], 
          prez[-2.3, 0.5, 1.9]};
bombka  =  {Line[{{0, 0, 0.6}, {0, 0,  
                0.3}}],  
                                            Sphere[0.3, 10, 
            10]
};
bom[x_, y_, z_] :=  
      TranslateShape[
        Graphics3D[bombka], {x, y, z - 0.6}]
\(Animate[\ 
      Show[Graphics3D[prezenty, 
          ViewPoint -> {10  Cos[s], 10  Sin[s], 
              1 - \ 4  Sin[s]}], 
			Graphics3D[
          Cylinder[0.3, 12, 10]], 
			TranslateShape[
          AffineShape[
            Polyhedron[GreatStellatedDodecahedron], {0.3, 0.3, 0.3}], {0, 0, 
            14}], 
			TranslateShape[
          Graphics3D[Cone[4, 4, 10]], {0, 0, 
            6}], 
			TranslateShape[
          Graphics3D[Cone[3, 3, 10]], {0, 0, 
            9}], 
			TranslateShape[
          Graphics3D[Cone[2, 2, 10]], {0, 0, 
            12}], 
			bom[3, 0, 
          6], 
			bom[\(-3\), 0, 
          6], 
			bom[0, 3, 
          6], 
			bom[0, \(-3\), 
          6], 
			bom[0, 2, 
          10], 
			bom[0, \(-2\), 
          10], 
			bom[2, 0, 
          10], 
			bom[\(-2\), 0, 
          10], 
			PlotRange -> \ {{\(-4\), 
              4}, {\(-4\), 4}, {0, 
              15}}
], 
{s, 0, 2  Pi, 
        Pi/30}]\)