hmm something went badly wrong and i don't find any edit buttons
sync on:sync rate 0:color backdrop rgb(0,0,0):load image "star.bmp",1
MAKE PARTICLES 1,1, 10000,20:color particles 1,255,20,0:set particle gravity 1, 0:set particle life 1, 2:set particle speed 1, 0.001
MAKE PARTICLES 2,1, 10000,40:color particles 2,0,rnd(255),0:set particle gravity 2, -5:set particle life 2, 2:set particle speed 2, 0.001
MAKE PARTICLES 3,1, 10000,30:color particles 3,0,rnd(255),0:set particle gravity 3, 5:set particle life 3, 1.5:set particle speed 3, 0.001
set particle floor 3,0
position camera 0,250,0:point camera 0,0,0
for run=1 to 3
run=1
if wx#>360.0 then wx#=1.25
x#=sin(wx#)*4.5:z#=cos(wx#)*4.5
position particle emissions 1,x#,0,z#
if wy#=180.0 then b=1-b
if wy#>360.0 then b=1-b:wy#=1.25
if b=0 then a#=2*wy#/360.0 else a#=2*wy#/360.0:a#=2-a#
x#=sin(wy#)*2*a#:z#=cos(wy#)*2*a#:position particle emissions 2,x#,0,z#
x#=5.0-wz#:y#=4.0-wz#:z#=4.0-wz#:position particle emissions 3,x#,y#,z#:if z# < -4 then wz#=0.0
wx#=wx#+1.25:wy#=wy#+1.25:wz#=wz#+0.03:set cursor 0,0
print screen fps()
sync
if escapekey()=1 then end
next run
end
There is star.bmp needed for it:
http://www.dreamflowers.org/star.bmp
i hope this little challange entry will help some of you to impose your future girl- or boyfriends