I posted this little jewel in the code snippets thread, but thought this thread might get more reaction from the medialess sprite code..
REM Project: SpriteFun
REM Created: 12/25/2006 11:15:28 AM
REM
REM ***** Main Source File *****
REM
makesprite(1,255,127,63)
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))
show sprite splash
next splash
endif
loop
function makesprite(num as integer,R as integer, G as integer, B as integer)
create bitmap 1,36,36
ink rgb(255,255,255),0
box 0,0,35,35
get image 999,1,1,32,2,1
sprite 999,0,0,999
hide sprite 999
box 1,1,32,32,rgb(R,G,B),rgb(R/2,G/2,B/2),rgb(R,G,B),rgb(R/2,G/2,B/2)
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,32,1:line 1,1,1,32:line 32,1,32,32:line 1,32,32,32:dot 32,32
dot 2,2:dot 2,31:dot 31,2:dot 31,31
ink rgb(0,0,0),0:dot 1,1:dot 1,2:dot 2,1:dot 31,1:dot 32,1:dot 32,2:dot 1,31:dot 1,32:dot 2,32:dot 31,32:dot 32,32:dot 32,31
get image num,1,1,33,33,1
sprite num,rnd(screen width()-32),rnd(screen height()-32),num
hide sprite 1
delete bitmap 1
set current bitmap 0
endfunction
Comments are welcome, cheers!
EDIT: I added xsize and ysize variables to the function, now it can be used to make breakout type bricks and buttons.. much more versatile.
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
Cheers!
