Very cool! I made a two way version (very hard it was too
), although I don't think it has quite as good an effect.
Rem Project: Haloader by Van-B
Rem Created: 05/05/04 22:05:21
Rem ***** Main Source File *****
`Any image will do
load image "loading.bmp",1,1
`global sprite start number
global haloaderspr=20
sync on : sync rate 0
`Make sure you start with 0, otherwise it wont resize and alpha the sprites
haloader(0,0)
`Loop and call haloader depending on a value between 0 and 100 : in this case the mouse X value
while mouseclick()=0
per=mousex()/(screen width()/100)
per2=mousey()/(screen height()/100)
haloader(per,per2)
endwhile
`Make sure you call this to delete the sprites
haloader(101,0)
end
function haloader(per,per2)
per#=per/50.0
per2#=per2/50.0
sc=3
for spr=1 to 50
`if sprite exist(spr)=1 then delete sprite spr
sprite spr+haloaderspr,0-(per#*spr*3),0-(per2#*spr*3),1
if per=0 then size sprite spr+haloaderspr,screen width()+(spr*6),screen height()+(spr*6)
if per=0 and spr>1 then set sprite alpha spr+haloaderspr,50-spr
if per=101 then delete sprite spr+haloaderspr
next spr
sync
endfunction
Also I don't know why, but the sprites keep becoming un-transparent when I move the mouse near the edge. It happens randomly, not every time.
Trying is the first step towards faliure.
Athelon XP 1600+/Radeon 9600 Pro/256 RAM
