Sorry your browser is not supported!

CamSpeed#=.1:CamRoll#=.1:Zspacing#=5:Zrandom#=1:MaxObj=15:StarRoll=800:SwitchZ=20:CamShake=20
autocam off:sync on:sync rate 25:set ambient light 100: ink rgb(255,255,255),0
color backdrop 0
for y= 1 to 480
for x=1 to 640
if rnd(StarRoll)=1 then dot x,y
next    
NEXT
get image 1,0,0,640,480:cls
for p= 1 to MaxObj
make object plain p,10,10:texture object p,1:move object p,p*.01
ghost object on p
NEXT
do
inc count:if count>MaxObj then count=1
position object count,0,0,cz#+Zspacing#+rnd(Zrandom#):zrotate object count,Zrotate
move camera CamSpeed#:if rnd(SwitchZ)=1 then Zrotate=rnd(359)
cz#=camera position z():roll camera left CamRoll#:set cursor 0,0:print "FPS: ";screen fps()
position camera (rnd(CamShake)*.001)-(rnd(CamShake)*.001),(rnd(CamShake)*.001)-(rnd(CamShake)*.001),cz#
sync
LOOP

CamSpeed#=.1:CamRoll#=.1:Zspacing#=5:Zrandom#=1:MaxObj=30:StarRoll=800:SwitchZ=20:CamShake=20
autocam off:sync on:sync rate 25:set ambient light 100: ink rgb(255,255,255),0
color backdrop 0
for y= 1 to 480
  for x=1 to 640
    if rnd(StarRoll)=1 then ink rgb(rnd(255),rnd(255),rnd(255)),0:ellipse x,y,1,2:ellipse x,y,2,3
  next
NEXT
get image 1,0,0,640,480:cls
for p= 1 to MaxObj
  make object box p,10,10,10:texture object p,1:move object p,p*.005
  ghost object on p:set object cull p,0
NEXT
do
IF SPACEKEY()
for p= 1 to MaxObj
    zrotate object p,-p*5
next i
endif
inc count:if count>MaxObj then count=1
position object count,0,0,cz#+Zspacing#+rnd(Zrandom#):zrotate object count,Zrotate
move camera CamSpeed#:if rnd(SwitchZ)=1 then Zrotate=rnd(359)
cz#=camera position z():roll camera left CamRoll#:set cursor 0,0:print "FPS: ";screen fps()
position camera (rnd(CamShake)*.005)-(rnd(CamShake)*.005),(rnd(CamShake)*.005)-(rnd(CamShake)*.005),cz#
sync
LOOP