ListPlot3D[
      Table[
Random[], {120}, {20}]]

Play[Random[], {x, 0, 20}]