Sorry your browser is not supported!

Sync On
Sync Rate 30
cls
for x=1 to 5000
Ink RGB(rnd(255),rnd(255),rnd(255)),0
dot rnd(640),rnd(280)
next x
Get image 1,0,0,640,480
Make Object Sphere 1,1000
Texture Object 1,1
Set Object 1,1,1,0,1,1,1,1
Position Camera 0,0,0
Do
Scroll Object Texture 1,5,5
Mouse_look
sync
Loop


Function Mouse_look
cx#=wrapvalue(cx#+mousemovey())
cy#=wrapvalue(cy#+mousemovex())
cz#=wrapvalue(cz#+mousemovez())
rotate camera cx#,cy#,cz#
endfunction

sync on : autocam off : for t=1000 to 1250 : make object sphere t,1 : if t < 1100
position object t,rnd(500)-250,-50,rnd(500)-250 : endif : if t >=1100 : position object t,rnd(1000)-500,-100,rnd(1000)-500 : endif
next t : load image "fire1.bmp",1 : load object "Ship.X",1 : scale object 1,1000,1000,1000 : position object 1,0,0,0
for t=1 to 2 : make object sphere t+10,1 : hide object t+10 : make particles t,2,1,15 : position particles t,0,-100,0
position particle emissions t,0,0,0 : set particle gravity t,0 : set particle velocity t,0 : set particle speed t,0.0075 : set particle life t,5
next t : color backdrop rgb(0,0,0) : position camera 0,200,0 : point camera 0,0,0 : set camera range 10,10000
shipturn#=0 : speed#=2.5 : do : for t=1000 to 1099 : if object position x(t) > object position x(1)+250
position object t,object position x(1)-250,-50,object position z(1)+rnd(500)-250 : endif : if object position z(t) > object position z(1)+250 : position object t,object position x(1)+rnd(500)-250,-50,object position z(1)-250 : endif
if object position x(t) < object position x(1)-250 : position object t,object position x(1)+250,-50,object position z(1)+rnd(500)-250 : endif : if object position z(t) < object position z(1)-250 : position object t,object position x(1)+rnd(500)-250,-50,object position z(1)+250
endif : next t : for t=1100 to 1250 : if object position x(t) > object position x(1)+500 : position object t,object position x(1)-500,-100,object position z(1)+rnd(1000)-500
endif : if object position z(t) > object position z(1)+500 : position object t,object position x(1)+rnd(1000)-500,-100,object position z(1)-500 : endif : if object position x(t) < object position x(1)-500
position object t,object position x(1)+500,-100,object position z(1)+rnd(1000)-500 : endif : if object position z(t) < object position z(1)-500 : position object t,object position x(1)+rnd(1000)-500,-100,object position z(1)+500 : endif
next t : if leftkey()=1 : shipturn#=shipturn#-5 : endif : if rightkey()=1
shipturn#=shipturn#+5 : endif : if upkey()=1 : speed#=speed#+0.25 : endif
if downkey()=1 : speed#=speed#-0.25 : endif : shipturn=wrapvalue(shipturn#) : yrotate object 1,shipturn#
move object 1,speed# : for t=1 to 2 : position object t+10,object position x(1),object position y(1),object position z(1) : yrotate object t+10,wrapvalue(shipturn#+180) : move object t+10,25
if t=1 : yrotate object 11,wrapvalue(shipturn#+90) : endif : if t=2 : yrotate object 12,wrapvalue(shipturn#-90)
endif : move object t+10,15 : position particle emissions t,object position x(t+10)/15,object position y(t+10)/15,object position z(t+10)/15 : next t : position camera object position x(1),200,object position z(1)
sync : loop