REM Project: SpriteFun
REM Created: 12/25/2006 11:15:28 AM
REM
REM ***** Main Source File *****
REM
makesprite(1,255,127,63,32,32)
show sprite 1

hide mouse

do
sprite 1,mousex(),mousey(),1
show sprite 1
  if mouseclick()=1
    for splash=1 to 99
      makesprite(splash,rnd(255),rnd(255),rnd(255),rnd(48)+16,rnd(48)+16)
      show sprite splash
    next splash
  endif
loop

function makesprite(num as integer,R as integer, G as integer, B as integer, xsize as integer, ysize as integer)

   create bitmap 1,xsize+8,ysize+8
   ink rgb(255,255,255),0
   box 0,0,xsize+4,ysize+4
   get image 999,1,1,xsize,2,1
   sprite 999,0,0,999
   hide sprite 999
   box 1,1,xsize,ysize,rgb(R,G,B),rgb(R/3,G/3,B/3),rgb(R,G,B),rgb(R/3,G/3,B/3)
   set sprite alpha 999,222
   paste sprite 999,1,1
   set sprite alpha 999,182
   paste sprite 999,1,2
   set sprite alpha 999,142
   paste sprite 999,1,3
   set sprite alpha 999,102
   paste sprite 999,1,4
   set sprite alpha 999,62
   paste sprite 999,1,5
   ink rgb(22,22,22),0:line 1,1,xsize,1:line 1,1,1,ysize:line xsize,1,xsize,ysize:line 1,ysize,xsize,ysize:dot xsize,ysize
   dot 2,2:dot 2,ysize-1:dot xsize-1,2:dot xsize-1,ysize-1
   ink rgb(0,0,0),0:dot 1,1:dot 1,2:dot 2,1:dot xsize-1,1:dot xsize,1:dot xsize,2:dot 1,ysize-1:dot 1,ysize:dot 2,ysize:dot xsize-1,ysize:dot xsize,ysize:dot xsize,ysize-1
   get image num,1,1,xsize+1,ysize+1,1
   sprite num,rnd(screen width()-xsize),rnd(screen height()-ysize),num
   hide sprite 1
   delete bitmap 1

   set current bitmap 0

endfunction