Animate[
S[t_]:=Sin[t];

Body=Graphics3D[{RGBColor[1,0.7,0.5],Sphere[{1,2/6,S[s]/3},1/2],Sphere[{0,0,0},1],Sphere[{-1,2/6,S[s]/3},1/2],{CMYKColor[0,1,1,.25],Sphere[{-1/2,S[s]/3,-1},1/2]},{CMYKColor[0,1,1,.25],Sphere[{1/2,S[s]/3,-1},1/2]}}];
Eye1=ParametricPlot3D[{Sin[v]/10+0.35,Cos[u] Cos[v]/30-0.9,2Sin[u] Cos[v]/10+0.5},{u,0,2Pi},{v,-Pi/2,Pi/2},PlotStyle->Black];
Eye1b=ParametricPlot3D[{Sin[v]/15+0.35,Cos[u] Cos[v]/100-0.925,2Sin[u] Cos[v]/15+0.5},{u,0,2Pi},{v,-Pi/2,Pi/2},PlotStyle->Blue];
Eye1k=ParametricPlot3D[{Sin[v]/15+0.35,Cos[u] Cos[v]/100-0.93,2Sin[u] Cos[v]/20+0.55},{u,0,2Pi},{v,-Pi/2,Pi/2},PlotStyle->Black];
Eye1w=ParametricPlot3D[{Sin[v]/20+0.35,Cos[u] Cos[v]/100-0.94,2Sin[u] Cos[v]/30+0.6},{u,0,2Pi},{v,-Pi/2,Pi/2},PlotStyle->White];
Eye2=ParametricPlot3D[{Sin[v]/10-0.35,Cos[u] Cos[v]/30-0.9,2Sin[u] Cos[v]/10+0.5},{u,0,2Pi},{v,-Pi/2,Pi/2},PlotStyle->Black];
Eye2b=ParametricPlot3D[{Sin[v]/15-0.35,Cos[u] Cos[v]/100-0.925,2Sin[u] Cos[v]/15+0.5},{u,0,2Pi},{v,-Pi/2,Pi/2},PlotStyle->Blue];
Eye2k=ParametricPlot3D[{Sin[v]/15-0.35,Cos[u] Cos[v]/100-0.93,2Sin[u] Cos[v]/20+0.55},{u,0,2Pi},{v,-Pi/2,Pi/2},PlotStyle->Black];
Eye2w=ParametricPlot3D[{Sin[v]/20-0.35,Cos[u] Cos[v]/100-0.94,2Sin[u] Cos[v]/30+0.6},{u,0,2Pi},{v,-Pi/2,Pi/2},PlotStyle->White];
Mouth=ParametricPlot3D[{Sin[v]/40+0,Cos[u] Cos[v]/100-1,2Sin[u] Cos[v]/50-0.05},{u,0,2Pi},{v,-Pi/2,Pi/2},PlotStyle->Black];
bubblegum=Graphics3D[{White,Sphere[{0,-2.0S[r],-0.1},1S[t]]}];

Show[Body,Eye1,Eye1b,Eye1k,Eye1w,Eye2,Eye2b,Eye2k,Eye2w,Mouth,bubblegum],{r,0,Pi,0.005},{s,0,2Pi,0.05},{t,Pi,2Pi,0.005}
]