This is my first code that i thought you guys can give me some feedback. You might have to find these pics on Google though and plug them in. Here are their names. spiritds1_color_

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    REM Project: ok
REM Created: 4/9/2006 10:01:17 PM
REM
REM ***** Main Source File *****
REM
rem window
set window on
maximize window
set window title "Spinning Snowman. By Showl-Jin Studios: Coder name Robert Lynds."
disable escapekey
sync on:sync rate 60
rem images
load image "\spiritds1_color_pancam_site2_original3_mbump[1].jpg",1,1
load image "\3_detail_bump[1].jpg",2,1\
rem objects
make object sphere 1,10
   show object 1
   position object 1,0,0,1
   move object down 1,1
   set object smoothing 1,100
   set reflection shading on 1
   set shadow shading on 1
   set cartoon shading on 1,50,50
   texture object 1,2
   set bump mapping on 1,2

make object sphere 2,8
   show object 2
   position object 2,object position x(1),object position y(1)+8,object position z(1)
   move object down 2,.1
   set object smoothing 2,100
   set reflection shading on 2
   set shadow shading on 2
   set cartoon shading on 2,50,50
   texture object 2,2
   set bump mapping on 2,2

make object sphere 3,6
   show object 3
   position object 3,object position x(2),object position y(2)+6,object position z(2)
   move object down 3,.3
   set object smoothing 3,100
   set reflection shading on 3
   set shadow shading on 3
   set cartoon shading on 3,50,50
   texture object 3,2
   set bump mapping on 3,2
move camera -10
alpha1=100
rem loop
repeat
yrotate object 1,wrapvalue(object angle y(1)+.5)
yrotate object 2,wrapvalue(object angle y(2)+.5)
yrotate object 3,wrapvalue(object angle y(3)+.5)
if escapekey()=1 then center text screen width()/2,screen height()-70,"Press 'end' key to escape."
fastsync
if lower$(inkey$())="s" and alpha1>0 then alpha1=alpha1-1
if lower$(inkey$())="w" and alpha1<100 then alpha1=alpha1+1
control camera using arrowkeys 0,.5,.5
set alpha mapping on 1,alpha1
set alpha mapping on 2,alpha1
set alpha mapping on 3,alpha1
text 0,0,"Press and hold 's' and 'w' to see something cool."
until keystate(207)