Speak["Once upon a time, Spongebob and his friend Patrick were bored and didn't know what to do."]
P = Import ["http://content.ytmnd.com/content/8/d/f/8df5c27826629a8bf45157e0445eb17a.jpg", "JPG"]

Speak["The only thing they had with them was some bubblegum."] 
P = Import["http://bipolarblast.files.wordpress.com/2009/02/bubble-gum.jpg","JPG"]

Speak["So they decided to blow some bubbles, but Spongebob and Patrick only know how to use 
spherical coordinates. They cannot figure out how to make a sphere in Mathematica using rectangular 
coordinates, so they need your help."] 
P = Import["http://www.insidesocal.com/tomhoffarth/spongebob-squarepants.jpg", "JPG"]

Speak["Luckily for them, you can help them out! Use the graphic below to make a spherical bubble for 
Spongebob and Patrick.  Be careful, though, if you expand the bubble too much, it might pop!"]
Manipulate[ ContourPlot3D[ x^2 + y^2 + z^2 == d, {x, -3, 3}, {y, -3, 3}, {z, -3, 3},Boxed -> False, Axes -> False, Mesh -> None, PlotPoints -> 10], {d, 0, 12}]

Speak["Thanks to your help, Spongebob and Patrick now have bubbles to play with."]
P = Import[ "http://cartoonsnap.com/blogspot/images/Video14ColoringCartoonLineArtinPhotoshop_7E72/SpongeBobandPatrickBlowingBubbleGumNickMagazineCoverartbyShermCohen.jpg", "JPG"]

Speak["Uh oh. It looks like Spongebob and Patrick blew too many bubbles and have run out of air."]
ColorNegate[P]

Speak["After taking a rest and catching their breath, Spongebob and Patrick recovered and realized that they had a great time."]
P = Import ["http://www.pharmacy.arizona.edu/organizations/SSHP/spongebob.gif","GIF"]

Speak["After a day of fun, Spongebob and Patrick went home for a nap."] 
P = Import["http://www.tinypineapple.com/gallery/architecture/images/spongebobs_house.jpg", "JPG"]

Speak["Thank you so much for playing! That's all for today. The end."]
P = Import["http://blogs.princeton.edu/mcgraw/assets/The%20End%20by%\20nomeacuerdo%20-%20En%20modo%20chnacho%20zombie%20(cc).jpg", "JPG"]