Here are some functions that might be useful to some....
rem *****Fade_in***** syntax: fade_in(1,10)
rem "This will fade sprite #1 in from 1 to 255 in steps of 10. Speed must be a number between 1 and 255."
function fade_in(imageid,speed)
alpha = 0
do
alpha = alpha + speed
setspritecoloralpha(imageid, alpha)
sync()
if alpha > 255 then alpha=255
if alpha = 255 then exit
loop
endfunction
rem *****Fade_Out***** syntax: fade_out(1,10)
rem "This will fade sprite #1 out from 255 to 1 in steps of 10. Speed must be a number between 1 and 255."
function fade_out(imageid,speed)
alpha = 255
do
alpha = alpha - speed
SetSpriteColorAlpha(imageid,alpha)
sync()
if alpha < 1 then exit
loop
endfunction
rem *****Pause***** syntax: pause(time#)
rem "This function pauses a program for a given length of time. For example, pause(3.5) will pause for 3.5 seconds"
function pause(time#)
StartTime# = timer()
do
if timer() - StartTime# => time# then exit
sync()
loop
endfunction
Truth, Justice, and the Programmer's Way!
