icecream1 = Import["http://www.acefitness.org/healthyrecipes/images/large/DF6614.JPG"]; 
icecream2 = Import["http://img.timeinc.net/recipes/i/recipes/ck/02/08/ice-cream-ck-1049364-l.jpg"]; 
icecream3 = Import["http://www.fanniemay.com/assets/items/Straw500.jpg"];
icecream4 = Import["http://whatscookingamerica.net/History/ShaveIce1.jpg"];
toppings1 = Import["http://oregonstate.edu/admin/hr/dev/orient/images/maraschino.jpg"];
toppings2 = Import["http://www.roadfood.com/photos/15760.jpg"]; 
toppings3 = Import["https://www.dylanscandybar.com/resources/dylans/images/products/processed/301-SF-Gummy-Bears.a.zoom.jpg"];
toppings4 = Import["http://farm4.static.flickr.com/3417/3398923323_8749470cc3.jpg"];
cone[r_, s_] := ParametricPlot3D[{r*z*Cos[\[Theta]], r*z*Sin[\[Theta]], 
    s*Abs[z]}, {\[Theta], 0, 2 Pi}, {z, -5, 5},
   PlotRange -> {{-2, 2}, {-2, 2}, {-2, 2}},
   ImageSize -> 300, Boxed -> False, Axes -> False, Mesh -> None, 
   ColorFunction -> ColorData["BrightBands"]];

Manipulate[
 If[r == 1, G = icecream1]; If[s == 1, H = toppings1];
 If[r == 2, G = icecream2]; If[s == 2, H = toppings2];
 If[r == 3, G = icecream3]; If[s == 3, H = toppings3];
 If[r == 4, G = icecream4]; If[s == 4, H = toppings4];
 Row[{Dynamic[cone[r, s]], Show[G], Show[H]}, ImageSize -> 520],
 {{r, 1, "Flavor:"}, {1 -> "vanilla", 2 -> "chocolate", 3 -> "strawberry", 4 -> "rainbow"}},
 {{s, 1, "Toppings:"}, {1 -> "cherry", 2 -> "nuts", 3 -> "gummy bears", 4 -> "rainbow"}}]