Wolfram script produces no output

I use Mathematica to create a series of PNG images in a for loop. I want to execute the notebook from the command line in macOS. I exported it as a wolframscript — see below — but nothing happens when I execute the script using wolframscript.

#!/usr/bin/env wolframscript
(* ::Package:: *)

(* ::Input:: *)
(*fps=60;*)
(*dur=4;*)
(*tmin=0;*)
(*tmax = 8*Pi;*)
(*A=-0.125;*)
(*B=0.003;*)
(*name = surface_deformation;*)
(*For(i=0,i<=fps*dur,i++,*)
(*t=tmin+(tmax-tmin)/(fps*dur)*i;*)
(*surface=ParametricPlot3D({-2*x*(Sin(t)*A*Exp(-(x^2+y^2)/B)-1)/(x^2+y^2+1),-2*y*(Sin(t)*A*Exp(-(x^2+y^2)/B)-1)/(x^2+y^2+1),(x^2+y^2-1)*(Sin(t)*A*Exp(-(x^2+y^2)/B)-1)/(x^2+y^2+1)},{x,-0.2,0.2},{y,-0.2,0.2},PlotRange->{{-0.5,0.5},{-0.5,0.5},{0.8,1.2}},Boxed->False,Axes->False,ImageSize->{640,480},PlotStyle->"BlueGreenYellow");*)
(*Export("~/Movies/mathematica/"<>ToString(name)<>"/"<>ToString(name)<>"-"<>ToString(i)<>".png",Show(surface),Background->None)*)
(*)*)


(* ::Input:: *)
(**)


(* ::Input:: *)
(**)

```