Sorry your browser is not supported!

rem Initialisation like always
sync on
sync rate 30
hide mouse
autocam off

rem Making the starmap for the skysphere
create bitmap 1,1000,1000
set current bitmap 1
ink rgb(255,255,255),0
for i=0 to 1000
dot int(rnd(1000)),int(rnd(1000))
next i
get image 1,0,0,999,999
set current bitmap 0
delete bitmap 1

rem Make the skysphere
make object sphere 1,2000
scale object 1,-100,-100,-100
texture object 1,1

rem Dim the array the shot information will be held in
dim shot#(5,5)
rem Make the bullets (you only need 5)
for i=10 to 14
make object sphere i,10
next i

do
rem Some nice damped controls using the arrowkeys and
rem shift and ctrl
if upkey()=1 then xa#=curvevalue(4,xa#,20)
if downkey()=1 then xa#=curvevalue(-4,xa#,20)
if upkey()=0 and downkey()=0 then xa#=curvevalue(0,xa#,10)
if leftkey()=1 then ya#=curvevalue(4,ya#,20)
if rightkey()=1 then ya#=curvevalue(-4,ya#,20)
if leftkey()=0 and rightkey()=0 then ya#=curvevalue(0,ya#,10)
if shiftkey()=1 then za#=curvevalue(4,za#,20)
if controlkey()=1 then za#=curvevalue(-4,za#,20)
if shiftkey()=0 and controlkey()=0 then za#=curvevalue(0,za#,10)

rem If you're firing, put in a little delay between each 
rem shot
if spacekey()=1 and shotrecently#=0
shotrecently#=4
for i=0 to 4
if shot#(i,0)=0
rem Put some info about the bullet position and orient it
shot#(i,0)=1
shot#(i,1)=x#
shot#(i,2)=y#
shot#(i,3)=z#
shot#(i,4)=20
show object i+10
position object i+10,x#,y#,z#
set object to camera orientation i+10
exit
endif
next i
endif

if shotrecently#>0 then shotrecently#=shotrecently#-1

rem If a shot is 'alive' then move it
for i=0 to 4
if shot#(i,0)=1
shot#(i,4)=shot#(i,4)-1
move object i+10,20
if shot#(i,4)=0
hide object i+10
shot#(i,0)=0
endif
endif
next i

rem Move the camera
pitch camera down xa#
turn camera left ya#
roll camera right za#
sync
loop