Sorry your browser is not supported!

Rem Project: animated test
Rem Created: 9/14/2005 9:08:51 PM

Rem ***** Main Source File *****
sync on
hide mouse
rem stick figure
set image colorkey 0,0,0
create animated sprite 1,"C:\Documents and Settings\Jake Stothard\My Documents\My Pictures\Stick Animation.bmp",10,7,1
sprite 1,0,screen height()-100,1
size sprite 1,100,100
left=0
jump=0
do
if leftkey()=1 and rightkey()=0 and jump=0
   if left=0
      mirror sprite 1
      left=1
   endif
   play sprite 1,1,5,100
   rotate sprite 1,90
   move sprite 1,-0.1
   rotate sprite 1,0
endif
if rightkey()=1 and leftkey()=0 and jump=0
   if left=1
      mirror sprite 1
      left=0
   endif
   play sprite 1,1,5,100
   rotate sprite 1,90
   move sprite 1,0.1
   rotate sprite 1,0
endif
if leftkey()=0 and rightkey()=0 and jump=0 or leftkey()=1 and rightkey()=1 and jump=0
   if sprite frame(1)>0
      set sprite frame 1,sprite frame(1)-1
   endif
endif
if upkey()=1 and sprite y(1)=>screen height()-100
   jump=1
   set sprite frame 1,5
endif
if jump=1
   move sprite 1,0.3
   play sprite 1,5,8,100
   if sprite frame(1)=8 or sprite frame(1)<5
      jump=0
   endif
endif
if jump=0 and sprite y(1)<screen height()-100
   move sprite 1,-0.1
endif
if sprite x(1)<-80
   rotate sprite 1,90
   move sprite 1,screen width()+75
   rotate sprite 1,0
endif
if sprite x(1)>screen width()
   rotate sprite 1,-90
   move sprite 1,screen width()+75
   rotate sprite 1,0
endif
sync
loop