Sorry your browser is not supported!

rem ship controls 
set display mode 1026,768,32
 
make object box 1,100,50,50
make mesh from object 1,1

add limb 1,1,1
offset limb 1,1,0,0,-250
delete mesh 1

for obs = 2 to 200
   make object sphere (obs),200,6,6
   position object obs,rnd(200000)-100000,rnd(200000)-100000,rnd(200000)-100000
NEXT obs

ghost object on 1
set camera range (0),1,1000000

do
      
swid=screen width()
shig=screen height()
mwid=swid/2
mhig=shig/2

mx=mousex()
my=mousey()

dx#=mx-mwid
dy#=my-mhig

rem distance/angle equals....

D#=sqrt((dx#*dx#)+(dy#*dy#))
A#=atanfull(dx#,dy#)

rem restrict cursor to 228 from center....

Rate#=D#/228.0
if D#>1.0
mx=mwid+sin(A#)*228.0
my=mhig+cos(A#)*228.0
endif
rem turn left and right , up and down 
if D# < 228
text mousex(),mousey(),"X"
turnspeed# = D#*.0001
endif
if D# > 228
text mx,my,"X"
turnspeed# = turnspeed#
endif
for right = 1 to 179
if int(A#) = right then turn object right 1,(turnspeed#)
next right
for left = -179 to -1 
if int(A#) = left then turn object left 1,(turnspeed#)
next left 
for up1 = -179 to -91
if int(A#) = up1 then pitch object up 1,(turnspeed#)
next up1
for up2 = 91 to 179
if int(A#) = up2 then pitch object up 1,(turnspeed#)
next up2
for down1 = -89 to -1
if int(A#) = down1 then pitch object down 1,(turnspeed#)
next down1
for down2 = 1 to 89
if int(A#) = down2 then pitch object down 1,(turnspeed#)
next down2
rem thrust and roll
if leftkey() = 1 then roll object left 1,.05
if rightkey() = 1 then roll object right 1,.05
if upkey() = 1 then inc speed#,.001
if downkey()=1 then dec speed#,.001
if speed# > 3 then speed# = 3
if speed# < -3 then speed# = -3
move object 1,speed#
rem update camera pos
position camera (0),limb position x(1,1),limb position y(1,1),limb position z(1,1)
point camera (0),object position x(1),object position y(1),object position z(1)

text mwid-10,mhig,"[+]"
text 20,20,"    left and right arrow keys to roll left and right try to keep the ship horizontal when you turn !"
text 20,40,"     up and down arrowkeys = thrust" 
text 20,700,"speed : "+str$(speed#)
loop

rem ship controls
set display mode 1026,768,32

make object box 1,100,50,50
make mesh from object 1,1

add limb 1,1,1
offset limb 1,1,0,0,-250
delete mesh 1

for obs = 2 to 200
   make object sphere (obs),200,6,6
   position object obs,rnd(200000)-100000,rnd(200000)-100000,rnd(200000)-100000
NEXT obs

ghost object on 1
set camera range (0),1,1000000

`Only need to call these once
swid=screen width()
shig=screen height()
mwid=swid/2
mhig=shig/2

do



mx=mousex()
my=mousey()

dx#=mx-mwid
dy#=my-mhig

rem distance/angle equals....

D#=sqrt((dx#*dx#)+(dy#*dy#))
A#=atanfull(dx#,dy#)

rem restrict cursor to 228 from center....

Rate#=D#/228.0
if D#>1.0
mx=mwid+sin(A#)*228.0
my=mhig+cos(A#)*228.0
endif
rem turn left and right , up and down
if D# < 228
text mousex(),mousey(),"X"
turnspeed# = D#*.0001
endif
if D# > 228
text mx,my,"X"
turnspeed# = turnspeed#
endif

`Much smoother way to do it
turn object right 1,turnspeed#*sin(a#)
pitch object down 1,turnspeed#*cos(a#)

rem thrust and roll
if leftkey() = 1 then roll object left 1,.05
if rightkey() = 1 then roll object right 1,.05
if upkey() = 1 then inc speed#,.001
if downkey()=1 then dec speed#,.001
if speed# > 3 then speed# = 3
if speed# < -3 then speed# = -3
move object 1,speed#
rem update camera pos
position camera (0),limb position x(1,1),limb position y(1,1),limb position z(1,1)

`Rotate camera with object 1 - good way to avoid camera rolling
rotate camera object angle x(1),object angle y(1),object angle z(1)

text mwid-10,mhig,"[+]"
text 20,20,"    left and right arrow keys to roll left and right try to keep the ship horizontal when you turn !"
text 20,40,"     up and down arrowkeys = thrust"
text 20,700,"speed : "+str$(speed#)
loop

rem ship controls
set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255

make object box 1,100,50,50
make mesh from object 1,1
hide object 1

add limb 1,1,1
offset limb 1,1,0,0,-250
delete mesh 1

for obs = 100 to 200
   make object sphere (obs),2000,32,32
   position object obs,rnd(200000)-100000,rnd(200000)-100000,rnd(200000)-100000
NEXT obs

ghost object on 1
set camera range (0),1,1000000

color backdrop 0
backdrop on
fog on
fog distance 10000,19000
fog color 0

`Only need to call these once
swid=screen width()
shig=screen height()
mwid=swid/2
mhig=shig/2

gosub starrysphere

do



mx=mousex()
my=mousey()

dx#=mx-mwid
dy#=my-mhig

rem distance/angle equals....

D#=sqrt((dx#*dx#)+(dy#*dy#))
A#=atanfull(dx#,dy#)

rem restrict cursor to 228 from center....

Rate#=D#/228.0
if D#>1.0
mx=mwid+sin(A#)*228.0
my=mhig+cos(A#)*228.0
endif
rem turn left and right , up and down
if D# < 228
text mousex(),mousey(),"X"
turnspeed# = D#*.0001
endif
if D# > 228
text mx,my,"X"
turnspeed# = turnspeed#
endif

`Much smoother way to do it
turn object right 1,turnspeed#*sin(a#)
pitch object down 1,turnspeed#*cos(a#)

rem thrust and roll
if leftkey() = 1 then roll object left 1,.05
if rightkey() = 1 then roll object right 1,.05
if upkey() = 1 then inc speed#,.001
if downkey()=1 then dec speed#,.001
if speed# > 3 then speed# = 3
if speed# < -3 then speed# = -3
move object 1,speed#
rem update camera pos
position camera (0),limb position x(1,1),limb position y(1,1),limb position z(1,1)

`Rotate camera with object 1 - good way to avoid camera rolling
rotate camera object angle x(1),object angle y(1),object angle z(1)

`Update skysphere position
position object 20,camera position x(),camera position y(),camera position z()

text mwid-10,mhig,"[+]"
text 20,20,"    left and right arrow keys to roll left and right try to keep the ship horizontal when you turn !"
text 20,40,"     up and down arrowkeys = thrust"
text 20,700,"speed : "+str$(speed#)
loop


starrysphere:

create bitmap 1,512,512
set current bitmap 1
cls
for a=0 to 256
   c=rnd(250)+5
   ink rgb(c,c,c),0
   if rnd(10)=1 then ink rgb(c,c*0.75,c*0.5),0
   if rnd(10)=1 then ink rgb(c*0.5,c*0.75,c),0
   dot rnd(512),rnd(512)
next a
get image 20,0,0,512,512,1
set current bitmap 0
delete bitmap 1

make object plain 19,15000,15000 : rotate object 19,0,0,90 : fix object pivot 19
make object cube 20,0.1
make mesh from object 19,19

for l=1 to 90

position object 19,0,0,0
rotate object 19,l*45,l*70,rnd(360)
move object 19,19000

add limb 20,l,19
offset limb 20,l,object position x(19),object position y(19),object position z(19)
rotate limb 20,l,object angle x(19),object angle y(19),object angle z(19)
next l

delete object 19

texture object 20,20
set object fog 20,0
set object light 20,0
set object cull 20,0
set object texture 20,0,0
ghost object on 20

return

Rem Project: space epic
Rem Created: Thursday, October 13, 2011

Rem ***** Main Source File *****


set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255

make object box 1,100,50,50
make mesh from object 1,1
hide object 1

add limb 1,1,1
offset limb 1,1,0,0,-250
delete mesh 1

for obs = 100 to 200
   make object sphere (obs),2000,32,32
   position object obs,rnd(200000)-100000,rnd(200000)-100000,rnd(200000)-100000
NEXT obs
position object 1,object position x(111)+1200,object position y(111),object position z(111)

set light range 0,120000
set camera range (0),1,1000000

color backdrop 0
backdrop on
fog on
fog distance 10000,19000
fog color 0

`Only need to call these once
swid=screen width()
shig=screen height()
mwid=swid/2
mhig=shig/2

gosub starrysphere

do

rem planet nav 
if returnkey() = 1 then inc tog,1 : wait 200 
if tog =2 then tog = 0 
if tog = 1
 for scanplanets = 100 to 200
   if object in screen (scanplanets) = 1 
   x1# = object position x(1): x2# = object position x(scanplanets)
   y1# = object position y(1): y2# = object position y(scanplanets)
   z1# = object position z(1): z2# = object position z(scanplanets)

   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = (x# * x#) + (y# * y#) + (z# * z#)
   text (object screen x(scanplanets)),(object screen y(scanplanets)),"O>"+str$(dist#)
   endif
NEXT scanplanets
ENDIF

mx=mousex()
my=mousey()

dx#=mx-mwid
dy#=my-mhig

rem distance/angle equals....

D#=sqrt((dx#*dx#)+(dy#*dy#))
A#=atanfull(dx#,dy#)

rem restrict cursor to 228 from center....

Rate#=D#/228.0
if D#>1.0
mx=mwid+sin(A#)*228.0
my=mhig+cos(A#)*228.0
endif
rem turn left and right , up and down
if D# < 228
text mousex(),mousey(),"X"
turnspeed# = D#*.0001
endif
if D# > 228
text mx,my,"X"
turnspeed# = turnspeed#
endif

`Much smoother way to do it
turn object right 1,turnspeed#*sin(a#)
pitch object down 1,turnspeed#*cos(a#)

rem thrust and roll
if leftkey() = 1 then roll object left 1,.05
if rightkey() = 1 then roll object right 1,.05
if upkey() = 1 then inc speed#,.001
if downkey()=1 then dec speed#,.001
if speed# > 3 then speed# = 3
if speed# < -3 then speed# = -3
move object 1,speed#
rem update camera pos
position camera (0),limb position x(1,1),limb position y(1,1),limb position z(1,1)

`Rotate camera with object 1 - good way to avoid camera rolling
rotate camera object angle x(1),object angle y(1),object angle z(1)

`Update skysphere position
position object 20,camera position x(),camera position y(),camera position z()

text mwid-10,mhig,"[+]"
text 20,20,"    left and right arrow keys to roll left and right "
text 20,40,"    up and down arrowkeys = thrust . Return toggle planet nav ."
text 20,700,"speed : "+str$(speed#)
loop


starrysphere:

create bitmap 1,512,512
set current bitmap 1
cls
for a=0 to 256
   c=rnd(250)+5
   ink rgb(c,c,c),0
   if rnd(10)=1 then ink rgb(c,c*0.75,c*0.5),0
   if rnd(10)=1 then ink rgb(c*0.5,c*0.75,c),0
   dot rnd(512),rnd(512)
next a
get image 20,0,0,512,512,1
set current bitmap 0
delete bitmap 1

make object plain 19,15000,15000 : rotate object 19,0,0,90 : fix object pivot 19
make object cube 20,0.1
make mesh from object 19,19

for l=1 to 90

position object 19,0,0,0
rotate object 19,l*45,l*70,rnd(360)
move object 19,19000

add limb 20,l,19
offset limb 20,l,object position x(19),object position y(19),object position z(19)
rotate limb 20,l,object angle x(19),object angle y(19),object angle z(19)
next l

delete object 19

texture object 20,20
set object fog 20,0
set object light 20,0
set object cull 20,0
set object texture 20,0,0
ghost object on 20

return

Rem Project: space epic
Rem Created: Thursday, October 13, 2011

Rem ***** Main Source File *****

sync on
sync rate 0

set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255

make object box 1,100,50,50
make mesh from object 1,1
hide object 1

add limb 1,1,1
offset limb 1,1,0,0,-250
delete mesh 1

`make planets
for obs = 100 to 200
   make object sphere (obs),2000,32,32
   position object obs,rnd(200000)-100000,rnd(200000)-100000,rnd(200000)-100000
NEXT obs
position object 1,object position x(111)+1200,object position y(111),object position z(111)

`make bullets
for obs=500 to 700
   make object cube obs,100
   scale object obs,5,5,100
   set object light obs,0
   ghost object on obs
   hide object obs
next obs


set light range 0,120000
set camera range (0),1,1000000

color backdrop 0
backdrop on
fog on
fog distance 10000,19000
fog color 0

`Only need to call these once
swid=screen width()
shig=screen height()
mwid=swid/2
mhig=shig/2

gosub starrysphere

global lasttime curtime
global elapsed#

global bullet_cur=500
global fire_delay#

curtime=timer()
lasttime=curtime

hide mouse

do

rem planet nav
if returnkey() = 1 then tog=1-tog : wait 200
if tog = 1
 for scanplanets = 100 to 200
   if object in screen (scanplanets) = 1
   x1# = object position x(1): x2# = object position x(scanplanets)
   y1# = object position y(1): y2# = object position y(scanplanets)
   z1# = object position z(1): z2# = object position z(scanplanets)

   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = sqrt((x# * x#) + (y# * y#) + (z# * z#))
   text (object screen x(scanplanets)),(object screen y(scanplanets)),"O>"+str$(int(dist#))
   endif
NEXT scanplanets
ENDIF

mx=mousex()
my=mousey()
`Inertia mouse - curvevalue is a lovely command
mx#=curvevalue(mx*1.0,mx#,10.0 / elapsed#)
my#=curvevalue(my*1.0,my#,10.0 / elapsed#)

dx#=mx#-mwid
dy#=my#-mhig

rem distance/angle equals....

D#=sqrt((dx#*dx#)+(dy#*dy#))
A#=atanfull(dx#,dy#)

rem restrict cursor to 228 from center....

Rate#=D#/228.0
if Rate#>1.0
mx#=mwid+sin(A#)*228.0
my#=mhig+cos(A#)*228.0
endif
ink rgb(255,255,0),0
rem turn left and right , up and down
if Rate# < 1.0
turnspeed# = D#*.005
endif
if Rate# > 1.0
turnspeed# = turnspeed#
ink rgb(255,0,0),0
endif

if spacekey()=1 then speed#=0.0

circle mwid,mhig,228.0
line mwid-64,mhig,mwid+64,mhig
line mwid,mhig-15,mwid,mhig+16

`Much smoother way to do it
turn object right 1,sin(a#) * ( elapsed# * turnspeed# )
pitch object down 1,cos(a#) * ( elapsed# * turnspeed# )
roll object left 1,rollspeed# * elapsed#

rollspeed#=curvevalue(nrollspeed#,rollspeed#,50.0 / elapsed#)

nrollspeed#=0.0

rem thrust and roll
if leftkey() = 1 then nrollspeed#=1.0
if rightkey() = 1 then nrollspeed#=-1.0
if upkey() = 1 then inc speed#,.1 * elapsed#
if downkey()=1 then dec speed#,.1 * elapsed#
if speed# > 5.0 then speed# = 5.0
if speed# < -5.0 then speed# = -5.0

`Inertia movement
ship_lx#=object position x(1) : ship_ly#=object position y(1) : ship_lz#=object position z(1)
move object 1,speed# * elapsed#
ship_nx#=object position x(1) : ship_ny#=object position y(1) : ship_nz#=object position z(1)

ship_sx#=curvevalue(ship_nx#-ship_lx#,ship_sx#,200.0 / elapsed#)
ship_sy#=curvevalue(ship_ny#-ship_ly#,ship_sy#,200.0 / elapsed#)
ship_sz#=curvevalue(ship_nz#-ship_lz#,ship_sz#,200.0 / elapsed#)

`Fire delay
dec fire_delay#,1.0*elapsed#

`Firing
if mouseclick()=1 and fire_delay#<0
   fire_delay#=10
   for side=0 to 1
      position object bullet_cur,ship_lx#,ship_ly#,ship_lz#
      rotate object bullet_cur,object angle x(1),object angle y(1),object angle z(1)
      show object bullet_cur
      if side=0
         turn object left bullet_cur,90 : move object bullet_cur,60.0 : turn object right bullet_cur,90
      else
         turn object left bullet_cur,-90 : move object bullet_cur,60.0 : turn object right bullet_cur,-90
      endif
      inc bullet_cur,1
      if bullet_cur>700 then bullet_cur=500
   next side
endif

position object 1,ship_lx#+ship_sx#,ship_ly#+ship_sy#,ship_lz#+ship_sz#

rem update camera pos
position camera (0),limb position x(1,1),limb position y(1,1),limb position z(1,1)

`Rotate camera with object 1 - good way to avoid camera rolling
rotate camera object angle x(1),object angle y(1),object angle z(1)

`Update skysphere position
position object 20,camera position x(),camera position y(),camera position z()

text 20,20,"    left and right arrow keys to roll left and right "
text 20,40,"    up and down arrowkeys = thrust . Return toggle planet nav ."
text 20,700,"speed : "+str$(speed#)


`timer based movement
lasttime=curtime
curtime=timer()
elapsed#=(curtime-lasttime)/15.0
if elapsed#<=0.0 then elapsed#=0.00001

`Velocity display
ink rgb(255,128,128),0 : box mwid-10,mhig,mwid-6,mhig+(ship_sx#*64.0) : box mwid-10,mhig+(ship_sx#*64.0),mwid-6,mhig
ink rgb(128,255,128),0 : box mwid-2,mhig,mwid+2,mhig+(ship_sy#*64.0) : box mwid-2,mhig+(ship_sy#*64.0),mwid+2,mhig
ink rgb(128,128,255),0 : box mwid+6,mhig,mwid+10,mhig+(ship_sz#*64.0) : box mwid+6,mhig+(ship_sz#*64.0),mwid+10,mhig



ink rgb(0,255,255),0 : circle mx#,my#+1,10
line mx-15,my,mx+16,my
line mx,my-15,mx,my+16

gosub update_bullets

text 100,100,str$(bullet_cur)

sync

loop



update_bullets:
   for o=500 to 700
      if object visible(o)=1
         move object o,75.0*elapsed#
      endif
   next o
return




starrysphere:

create bitmap 1,512,512
set current bitmap 1
cls
for a=0 to 256
   c=rnd(250)+5
   ink rgb(c,c,c),0
   if rnd(10)=1 then ink rgb(c,c*0.75,c*0.5),0
   if rnd(10)=1 then ink rgb(c*0.5,c*0.75,c),0
   dot rnd(512),rnd(512)
next a
get image 20,0,0,512,512,1
set current bitmap 0
delete bitmap 1

make object plain 19,15000,15000 : rotate object 19,0,0,90 : fix object pivot 19
make object cube 20,0.1
make mesh from object 19,19

for l=1 to 90

position object 19,0,0,0
rotate object 19,l*45,l*70,rnd(360)
move object 19,19000

add limb 20,l,19
offset limb 20,l,object position x(19),object position y(19),object position z(19)
rotate limb 20,l,object angle x(19),object angle y(19),object angle z(19)
next l

delete object 19

texture object 20,20
set object fog 20,0
set object light 20,0
set object cull 20,0
set object texture 20,0,0
ghost object on 20

return

Rem Project: space epic
Rem Created: Thursday, October 13, 2011

Rem ***** Main Source File *****

sync on
sync rate 0
set ambient light 100
set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255

make object box 1,150,50,50
make mesh from object 1,1
hide object 1

add limb 1,1,1
offset limb 1,1,0,0,-75.0
delete mesh 1

`make planets
for obs = 100 to 200
   make object sphere (obs),2000,32,32
   position object obs,rnd(200000)-100000,rnd(200000)-100000,rnd(200000)-100000
NEXT obs
position object 1,object position x(111)+1200,object position y(111),object position z(111)

rem make enemy ships
for ene = 300 to 399
    make object cone (ene),200
    scale object (ene),100,15,100
    make object sphere (ene+100),1500,8,8
    hide object (ene+100) 
    color object (ene),rgb(250,0,0)
    hide object (ene+100)
    set object light (ene+100),0
    position object ene,object position x(ene-200),object position y(ene-200),object position z(ene-200)
    make object box (ene+600),2,2,3500
    color object (ene+600),rgb(250,0,0)
    set object diffuse (ene+600),rgb(150,0,0)
    set object emissive (ene+600),rgb(110,0,0)
    ghost object on (ene+600) 
NEXT ene

`make bullets
for obs=500 to 700
   make object cube obs,100
   scale object obs,5,5,100
   set object light obs,0
   ghost object on obs
   hide object obs
next obs
make light 1;make light 2;make light 3
position light 0,1500000,1500000,0
position light 1,-1500000,-1500000,0
position light 2,0,0,0
color light 3,rgb(200,0,0)
set light range 0,120000
set light range 1,120000
set light range 2,120000
set light range 3,5050
set camera range (0),.1,1000000

color backdrop 0
backdrop on
fog on
fog distance 11000,20000
fog color 0

`Only need to call these once
swid=screen width()
shig=screen height()
mwid=swid/2
mhig=shig/2

gosub starrysphere

global lasttime curtime
global elapsed#

global bullet_cur=500
global fire_delay#

curtime=timer()
lasttime=curtime
rem array "shiphp"contains enemy ship hp ,enemy random position key,randome time to change destination
dim shiphp(100,2) 

hide mouse

do
gosub enemy_ships
rem planet nav
if returnkey() = 1 then tog=1-tog : wait 200
if tog = 1
 for scanplanets = 100 to 200
   x1# = object position x(1): x2# = object position x(scanplanets)
   y1# = object position y(1): y2# = object position y(scanplanets)
   z1# = object position z(1): z2# = object position z(scanplanets)
   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = sqrt((x# * x#) + (y# * y#) + (z# * z#))
   if object in screen (scanplanets) = 1
   text (object screen x(scanplanets)),(object screen y(scanplanets)),"O>"+str$(int(dist#))
   endif
NEXT scanplanets
ENDIF

mx=mousex()
my=mousey()
`Inertia mouse - curvevalue is a lovely command
mx#=curvevalue(mx*1.0,mx#,10.0 / elapsed#)
my#=curvevalue(my*1.0,my#,10.0 / elapsed#)

dx#=mx#-mwid
dy#=my#-mhig

rem distance/angle equals....

D#=sqrt((dx#*dx#)+(dy#*dy#))
A#=atanfull(dx#,dy#)

rem restrict cursor to 228 from center....

Rate#=D#/228.0
if Rate#>1.0
mx#=mwid+sin(A#)*228.0
my#=mhig+cos(A#)*228.0
endif
ink rgb(255,255,0),0
rem turn left and right , up and down
if Rate# < 1.0
turnspeed# = D#*.005
endif
if Rate# > 1.0
turnspeed# = turnspeed#
ink rgb(255,0,0),0
endif

if spacekey()=1 then speed#=0.0

circle mwid,mhig,228.0
line mwid-64,mhig,mwid+64,mhig
line mwid,mhig-15,mwid,mhig+16

`Much smoother way to do it
turn object right 1,sin(a#) * ( elapsed# * turnspeed# )
pitch object down 1,cos(a#) * ( elapsed# * turnspeed# )
roll object left 1,rollspeed# * elapsed#

rollspeed#=curvevalue(nrollspeed#,rollspeed#,50.0 / elapsed#)

nrollspeed#=0.0

rem thrust and roll
if leftkey() = 1 then nrollspeed#=1.0
if rightkey() = 1 then nrollspeed#=-1.0
if upkey() = 1 then inc speed#,.1 * elapsed#
if downkey()=1 then dec speed#,.1 * elapsed#
if speed# > 5.0 then speed# = 5.0
if speed# < -5.0 then speed# = -5.0

`Inertia movement
ship_lx#=object position x(1) : ship_ly#=object position y(1) : ship_lz#=object position z(1)
move object 1,speed# * elapsed#
ship_nx#=object position x(1) : ship_ny#=object position y(1) : ship_nz#=object position z(1)

ship_sx#=curvevalue(ship_nx#-ship_lx#,ship_sx#,200.0 / elapsed#)
ship_sy#=curvevalue(ship_ny#-ship_ly#,ship_sy#,200.0 / elapsed#)
ship_sz#=curvevalue(ship_nz#-ship_lz#,ship_sz#,200.0 / elapsed#)

`Fire delay
dec fire_delay#,1.0*elapsed#

`Firing
if mouseclick()=1 and fire_delay#<0
   fire_delay#=10
   for side=0 to 1
      position object bullet_cur,ship_lx#,ship_ly#,ship_lz#
      rotate object bullet_cur,object angle x(1),object angle y(1),object angle z(1)
      show object bullet_cur
      if side=0
         turn object left bullet_cur,90 : move object bullet_cur,60.0 : turn object right bullet_cur,90
      else
         turn object left bullet_cur,-90 : move object bullet_cur,60.0 : turn object right bullet_cur,-90
      endif
      inc bullet_cur,1
      if bullet_cur>700 then bullet_cur=500
   next side
endif

position object 1,ship_lx#+ship_sx#,ship_ly#+ship_sy#,ship_lz#+ship_sz#

rem update camera pos
position camera (0),limb position x(1,1),limb position y(1,1),limb position z(1,1)

`Rotate camera with object 1 - good way to avoid camera rolling
rotate camera object angle x(1),object angle y(1),object angle z(1)

`Update skysphere position
position object 20,camera position x(),camera position y(),camera position z()

text 20,20,"    left and right arrow keys to roll left and right "
text 20,40,"    up and down arrowkeys = thrust . Return toggle planet nav ."
text 20,700,"speed : "+str$(speed#)


`timer based movement
lasttime=curtime
curtime=timer()
elapsed#=(curtime-lasttime)/15.0
if elapsed#<=0.0 then elapsed#=0.00001

`Velocity display
ink rgb(255,128,128),0 : box mwid-10,mhig,mwid-6,mhig+(ship_sx#*64.0) : box mwid-10,mhig+(ship_sx#*64.0),mwid-6,mhig
ink rgb(128,255,128),0 : box mwid-2,mhig,mwid+2,mhig+(ship_sy#*64.0) : box mwid-2,mhig+(ship_sy#*64.0),mwid+2,mhig
ink rgb(128,128,255),0 : box mwid+6,mhig,mwid+10,mhig+(ship_sz#*64.0) : box mwid+6,mhig+(ship_sz#*64.0),mwid+10,mhig


if playerhp < 1 
    wait 500
    position object 1,object position x(111)-1500,object position y(111),object position z(111)
    playerhp = 1000 
ENDIF
text 20,520,"Hull Structure :"+str$(playerhp)
ink rgb(0,255,255),0 : circle mx#,my#+1,10
line mx-15,my,mx+16,my
line mx,my-15,mx,my+16

gosub update_bullets

text 100,100,str$(bullet_cur)
position light 2,0,0,0
sync

loop



update_bullets:
   for o=500 to 700
      if object visible(o)=1
         move object o,75.0*elapsed#
      endif
   next o
return




starrysphere:

create bitmap 1,512,512
set current bitmap 1
cls
for a=0 to 256
   c=rnd(250)+5
   ink rgb(c,c,c),0
   if rnd(10)=1 then ink rgb(c,c*0.75,c*0.5),0
   if rnd(10)=1 then ink rgb(c*0.5,c*0.75,c),0
   dot rnd(512),rnd(512)
next a
get image 20,0,0,512,512,1
set current bitmap 0
delete bitmap 1

make object plain 19,15000,15000 : rotate object 19,0,0,90 : fix object pivot 19
make object cube 20,0.1
make mesh from object 19,19

for l=1 to 90

position object 19,0,0,0
rotate object 19,l*45,l*70,rnd(360)
move object 19,19000

add limb 20,l,19
offset limb 20,l,object position x(19),object position y(19),object position z(19)
rotate limb 20,l,object angle x(19),object angle y(19),object angle z(19)
next l

delete object 19

texture object 20,20
set object fog 20,0
set object light 20,0
set object cull 20,0
set object texture 20,0,0
ghost object on 20

return

rem Hehehee ! 
enemy_ships:

for ene = 300 to 399
  if object visible (ene+600) = 0 then hide light 3 
  position object (ene+100),object position x(ene),object position y(ene),object position z(ene)
  position object (ene+600),object position x(ene),object position y(ene),object position z(ene)
  point object (ene+600),object position x(1),object position y(1),object position z(1)
  if wrapvalue(object angle y(ene)-object angle y(ene+100)) > 180
   yrotate object ene,object angle y(ene)+.3
else
   yrotate object ene,object angle y(ene)-.3
endif
if wrapvalue(object angle x(ene)-object angle x(ene+100)) > 180
   xrotate object ene,object angle x(ene)+.3 
else
  xrotate object ene,object angle x(ene)-.3
endif
 zrotate object ene,object angle z(ene+100)
 if object collision (ene+100,1)= 0 
  point object (ene+100),object position x(1),object position y(1),object position z(1)
  scale object (ene+100),60,60,60
   move object ene,8
   hide object (ene+600)
   scale object (ene+600),100,100,0
  endif
  if object collision (ene+100,1)= 1 
  point object (ene+100),epx,epy,epz
  scale object (ene+100),220,220,220
  endif
 for showlight = 1 to 5
    if (shiphp(ene-300,1)) - showlight = Time
    show light 3
    scale object (ene+600),100,100,100
    show object (ene+600)
    if object collision (ene+600,1)=1
    dec playerhp,(1+rnd(3))
    endif 
    endif
 NEXT showlight
  if Time = (shiphp(ene-300,1)) then hide object (ene+600)
   if Time < (shiphp(ene-300,1)-5) then hide object (ene+600)
   move object ene,6

 for bullet = 500 to 700
  if object collision (bullet,ene) = 1  
  dec shiphp(ene-300),(1+rnd(2))
  text 420,470,"TARGET HP= "+str$(shiphp(ene-300))
  position light 2,object position x(ene),object position y(ene),object position z(ene)
  endif
NEXT bullet
if shiphp(ene-300) < 1 
scale object (ene+100),35,35,35
show object (ene+100)
 position light 2,object position x(ene),object position y(ene),object position z(ene)
  wait 550
  hide object (ene+100)
  position object (ene),object position x(ene-200),object position y(ene-200),object position z(ene-200)
  shiphp(ene-300) = 100
ENDIF
 if Time = shiphp(ene-300,1) then  shiphp(ene-300,2) = rnd(13);shiphp(ene-300,1) = rnd(49999)+1;randomize rnd(500)
 if shiphp(ene-300,2) = 0 then epx = 20302000;epy = 1000800;epz = 1006000
if shiphp(ene-300,2) = 1 then epx = -1080000;epy = -20600300;epz = -2005000
if shiphp(ene-300,2) = 2 then epx = -100300;epy = 23003000;epz = 0
if shiphp(ene-300,2) = 3 then epx = 0;epy = -1000000;epz = -10000700
if shiphp(ene-300,2) = 4 then epx = -40000000;epy = 0;epz = -40000000
if shiphp(ene-300,2) = 5 then epx = 24070340;epy = -14000300;epz = -60005560
if shiphp(ene-300,2) = 6 then epx = 8848880;epy = -50000;epz = 8888880
if shiphp(ene-300,2) = 7 then epx = 2006000;epy = 10500000;epz = 4300000
if shiphp(ene-300,2) = 8 then epx = -1065500;epy = -2008070;epz = -20003000
if shiphp(ene-300,2) = 9 then epx = -17700000;epy = 200626400;epz = 0
if shiphp(ene-300,2) = 10 then epx = 7757570;epy = -10000700;epz = 170000
if shiphp(ene-300,2) = 11 then epx = -40990;epy = -6000880;epz = -4062300
if shiphp(ene-300,2) = 12 then epx = 240004000;epy = -17430640;epz = 77770
if shiphp(ene-300,2) = 13 then epx = -908580;epy = -505030;epz = -60006600
NEXT ene 
position light 3,object position x(1),object position y(1),object position z(1)
inc Time,1
if Time > 50000 then Time = 1

return

    
Rem Project: space epic
Rem Created: Thursday, October 13, 2011

Rem ***** Main Source File *****

sync on
sync rate 0
set ambient light 100
set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255

make object box 1,150,50,50
make mesh from object 1,1
hide object 1

add limb 1,1,1
offset limb 1,1,0,0,-75.0
delete mesh 1

`make planets
for obs = 100 to 200
   make object sphere (obs),2000,32,32
   position object obs,rnd(200000)-100000,rnd(200000)-100000,rnd(200000)-100000
NEXT obs
position object 1,object position x(111)+1200,object position y(111),object position z(111)

rem make enemy ships
for ene = 300 to 399
    make object cone (ene),200
    scale object (ene),100,15,100
    make object sphere (ene+100),1500,8,8
    hide object (ene+100) 
    color object (ene),rgb(250,0,0)
    hide object (ene+100)
    set object light (ene+100),0
    position object ene,object position x(ene-200),object position y(ene-200),object position z(ene-200)
    make object box (ene+600),1,1,3500
    color object (ene+600),rgb(250,0,0)
    set object diffuse (ene+600),rgb(150,0,0)
    set object emissive (ene+600),rgb(110,0,0)
    ghost object on (ene+600) 
NEXT ene

for ast = 1000 to 1100
    make object sphere ast,50,rnd(2)+2,rnd(1)+4
    xrotate object ast,rnd(360)
    yrotate object ast,rnd(360)
    zrotate object ast,rnd(360)
    color object ast,(rgb(180,220,150))
NEXT ast

`make bullets
for obs=500 to 700
   make object cube obs,100
   scale object obs,5,5,100
   set object light obs,0
   ghost object on obs
   hide object obs
next obs

make light 1;make light 2;make light 3
position light 0,1500000,1500000,0
position light 1,-1500000,-1500000,0
position light 2,0,0,0
color light 3,rgb(200,0,0)
set light range 0,120000
set light range 1,120000
set light range 2,120000
set light range 3,5050
set camera range (0),.1,1000000

color backdrop 0
backdrop on
fog on
fog distance 11000,20000
fog color 0

`Only need to call these once
swid=screen width()
shig=screen height()
mwid=swid/2
mhig=shig/2

gosub starrysphere

global lasttime curtime
global elapsed#

global bullet_cur=500
global fire_delay#

curtime=timer()
lasttime=curtime
rem array "shiphp"contains enemy ship hp ,enemy random position key,randome time to change destination
dim shiphp(100,2) 

hide mouse

do

 for ast = 1000 to 1100
if object position x (ast) <((object position x(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position x (ast) >((object position x(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) <((object position y(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) >((object position y(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(100)+100,rnd(170)+50
if object position z (ast) <((object position z(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position z (ast) >((object position z(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object in screen (ast) =1 then show object (ast)
if object in screen (ast) =0 then hide object (ast)
 NEXT ast
 
gosub enemy_ships
rem planet nav
if returnkey() = 1 then tog=1-tog : wait 200
if tog = 1
 for scanplanets = 100 to 200
   x1# = object position x(1): x2# = object position x(scanplanets)
   y1# = object position y(1): y2# = object position y(scanplanets)
   z1# = object position z(1): z2# = object position z(scanplanets)
   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = sqrt((x# * x#) + (y# * y#) + (z# * z#))
   if object in screen (scanplanets) = 1
   text (object screen x(scanplanets)),(object screen y(scanplanets)),"O>"+str$(int(dist#))
   endif
NEXT scanplanets
ENDIF

mx=mousex()
my=mousey()
`Inertia mouse - curvevalue is a lovely command
mx#=curvevalue(mx*1.0,mx#,10.0 / elapsed#)
my#=curvevalue(my*1.0,my#,10.0 / elapsed#)

dx#=mx#-mwid
dy#=my#-mhig

rem distance/angle equals....

D#=sqrt((dx#*dx#)+(dy#*dy#))
A#=atanfull(dx#,dy#)

rem restrict cursor to 228 from center....

Rate#=D#/228.0
if Rate#>1.0
mx#=mwid+sin(A#)*228.0
my#=mhig+cos(A#)*228.0
endif
ink rgb(255,255,0),0
rem turn left and right , up and down
if Rate# < 1.0
turnspeed# = D#*.005
endif
if Rate# > 1.0
turnspeed# = turnspeed#
ink rgb(255,0,0),0
endif

if spacekey()=1 then speed#=0.0

circle mwid,mhig,228.0
line mwid-64,mhig,mwid+64,mhig
line mwid,mhig-15,mwid,mhig+16

`Much smoother way to do it
turn object right 1,sin(a#) * ( elapsed# * turnspeed# )
pitch object down 1,cos(a#) * ( elapsed# * turnspeed# )
roll object left 1,rollspeed# * elapsed#

rollspeed#=curvevalue(nrollspeed#,rollspeed#,50.0 / elapsed#)

nrollspeed#=0.0

rem thrust and roll
if leftkey() = 1 then nrollspeed#=1.0
if rightkey() = 1 then nrollspeed#=-1.0
if upkey() = 1 then inc speed#,.1 * elapsed#
if downkey()=1 then dec speed#,.1 * elapsed#
if speed# > 5.0 then speed# = 5.0
if speed# < -5.0 then speed# = -5.0

`Inertia movement
ship_lx#=object position x(1) : ship_ly#=object position y(1) : ship_lz#=object position z(1)
move object 1,speed# * elapsed#
ship_nx#=object position x(1) : ship_ny#=object position y(1) : ship_nz#=object position z(1)

ship_sx#=curvevalue(ship_nx#-ship_lx#,ship_sx#,200.0 / elapsed#)
ship_sy#=curvevalue(ship_ny#-ship_ly#,ship_sy#,200.0 / elapsed#)
ship_sz#=curvevalue(ship_nz#-ship_lz#,ship_sz#,200.0 / elapsed#)

`Fire delay
dec fire_delay#,1.0*elapsed#

`Firing
if mouseclick()=1 and fire_delay#<0
   fire_delay#=10
   for side=0 to 1
      position object bullet_cur,ship_lx#,ship_ly#,ship_lz#
      rotate object bullet_cur,object angle x(1),object angle y(1),object angle z(1)
      show object bullet_cur
      if side=0
         turn object left bullet_cur,90 : move object bullet_cur,60.0 : turn object right bullet_cur,90
      else
         turn object left bullet_cur,-90 : move object bullet_cur,60.0 : turn object right bullet_cur,-90
      endif
      inc bullet_cur,1
      if bullet_cur>700 then bullet_cur=500
   next side
endif

position object 1,ship_lx#+ship_sx#,ship_ly#+ship_sy#,ship_lz#+ship_sz#

rem update camera pos
position camera (0),limb position x(1,1),limb position y(1,1),limb position z(1,1)

`Rotate camera with object 1 - good way to avoid camera rolling
rotate camera object angle x(1),object angle y(1),object angle z(1)

`Update skysphere position
position object 20,camera position x(),camera position y(),camera position z()

text 20,20,"    left and right arrow keys to roll left and right "
text 20,40,"    up and down arrowkeys = thrust . Return toggle planet nav ."
text 20,700,"speed : "+str$(speed#)


`timer based movement
lasttime=curtime
curtime=timer()
elapsed#=(curtime-lasttime)/15.0
if elapsed#<=0.0 then elapsed#=0.00001

`Velocity display
ink rgb(255,128,128),0 : box mwid-10,mhig,mwid-6,mhig+(ship_sx#*64.0) : box mwid-10,mhig+(ship_sx#*64.0),mwid-6,mhig
ink rgb(128,255,128),0 : box mwid-2,mhig,mwid+2,mhig+(ship_sy#*64.0) : box mwid-2,mhig+(ship_sy#*64.0),mwid+2,mhig
ink rgb(128,128,255),0 : box mwid+6,mhig,mwid+10,mhig+(ship_sz#*64.0) : box mwid+6,mhig+(ship_sz#*64.0),mwid+10,mhig


if playerhp < 1 
    wait 500
    position object 1,object position x(111)-1500,object position y(111),object position z(111)
    playerhp = 1000 
ENDIF
text 20,520,"Hull Structure :"+str$(playerhp)
ink rgb(0,255,255),0 : circle mx#,my#+1,10
line mx-15,my,mx+16,my
line mx,my-15,mx,my+16
gosub update_bullets

text 100,100,str$(bullet_cur)
position light 2,0,0,0
sync

loop



update_bullets:
   for o=500 to 700
      if object visible(o)=1
         move object o,75.0*elapsed#
      endif
   next o
return




starrysphere:

create bitmap 1,512,512
set current bitmap 1
cls
for a=0 to 256
   c=rnd(250)+5
   ink rgb(c,c,c),0
   if rnd(10)=1 then ink rgb(c,c*0.75,c*0.5),0
   if rnd(10)=1 then ink rgb(c*0.5,c*0.75,c),0
   dot rnd(512),rnd(512)
next a
get image 20,0,0,512,512,1
set current bitmap 0
delete bitmap 1

make object plain 19,15000,15000 : rotate object 19,0,0,90 : fix object pivot 19
make object cube 20,0.1
make mesh from object 19,19

for l=1 to 90

position object 19,0,0,0
rotate object 19,l*45,l*70,rnd(360)
move object 19,19000

add limb 20,l,19
offset limb 20,l,object position x(19),object position y(19),object position z(19)
rotate limb 20,l,object angle x(19),object angle y(19),object angle z(19)
next l

delete object 19

texture object 20,20
set object fog 20,0
set object light 20,0
set object cull 20,0
set object texture 20,0,0
ghost object on 20

return

rem Hehehee ! 
enemy_ships:

for ene = 300 to 399
    
 if object in screen (ene) =1 then show object (ene)
 if object in screen (ene) =0 then hide object (ene)
  if object visible (ene+600) = 0 then hide light 3 
  position object (ene+100),object position x(ene),object position y(ene),object position z(ene)
  position object (ene+600),object position x(ene),object position y(ene),object position z(ene)
  point object (ene+600),object position x(1),object position y(1),object position z(1)
  if wrapvalue(object angle y(ene)-object angle y(ene+100)) > 180
   yrotate object ene,object angle y(ene)+.3
else
   yrotate object ene,object angle y(ene)-.3
endif
if wrapvalue(object angle x(ene)-object angle x(ene+100)) > 180
   xrotate object ene,object angle x(ene)+.3 
else
  xrotate object ene,object angle x(ene)-.3
endif
 zrotate object ene,object angle z(ene+100)
 if object collision (ene+100,1)= 0 
  point object (ene+100),object position x(1),object position y(1),object position z(1)
  scale object (ene+100),80,80,80
   move object ene,8
   hide object (ene+600)
   scale object (ene+600),100,100,0
  endif
  if object collision (ene+100,1)= 1 
  point object (ene+100),epx,epy,epz
  scale object (ene+100),320,320,320
  endif
 for showlight = 1 to 5
    if (shiphp(ene-300,1)) - showlight = Time
    show light 3
    scale object (ene+600),100,100,300
    show object (ene+600)
    if object collision (ene+600,1)=1
    dec playerhp,(1+rnd(3))
    endif 
    endif
 NEXT showlight
  if Time = (shiphp(ene-300,1)) then hide object (ene+600)
   if Time < (shiphp(ene-300,1)-5) then hide object (ene+600)
   move object ene,6

 for bullet = 500 to 700
  if object collision (bullet,ene) = 1  
  dec shiphp(ene-300),(1+rnd(2))
  text 420,470,"TARGET HP= "+str$(shiphp(ene-300))
  position light 2,object position x(ene),object position y(ene),object position z(ene)
  endif
NEXT bullet
if shiphp(ene-300) < 1 
scale object (ene+100),35,35,35
show object (ene+100)
 position light 2,object position x(ene),object position y(ene),object position z(ene)
  wait 550
  hide object (ene+100)
  position object (ene),object position x(ene-200),object position y(ene-200),object position z(ene-200)
  shiphp(ene-300) = 100
ENDIF
if Time = shiphp(ene-300,1) then  shiphp(ene-300,2) = rnd(13);shiphp(ene-300,1) = rnd(999)+1;randomize rnd(50000)
if shiphp(ene-300,2) = 0 then epx = 20302000;epy = 1000800;epz = 1006000
if shiphp(ene-300,2) = 1 then epx = -1080000;epy = -20600300;epz = -2005000
if shiphp(ene-300,2) = 2 then epx = -100300;epy = 23003000;epz = 0
if shiphp(ene-300,2) = 3 then epx = 0;epy = -1000000;epz = -10000700
if shiphp(ene-300,2) = 4 then epx = -40000000;epy = 0;epz = -40000000
if shiphp(ene-300,2) = 5 then epx = 24070340;epy = -14000300;epz = -60005560
if shiphp(ene-300,2) = 6 then epx = 8848880;epy = -50000;epz = 8888880
if shiphp(ene-300,2) = 7 then epx = 2006000;epy = 10500000;epz = 4300000
if shiphp(ene-300,2) = 8 then epx = -1065500;epy = -2008070;epz = -20003000
if shiphp(ene-300,2) = 9 then epx = -17700000;epy = 200626400;epz = 0
if shiphp(ene-300,2) = 10 then epx = 7757570;epy = -10000700;epz = 170000
if shiphp(ene-300,2) = 11 then epx = -40990;epy = -6000880;epz = -4062300
if shiphp(ene-300,2) = 12 then epx = 240004000;epy = -17430640;epz = 77770
if shiphp(ene-300,2) = 13 then epx = -908580;epy = -505030;epz = -60006600
NEXT ene 
position light 3,object position x(1),object position y(1),object position z(1)
inc Time,1
if Time > 1000 then Time = 1
text 20,800,"fps : "+str$(screen FPS())
return

Rem Project: space epic
Rem Created: Thursday, October 13, 2011

Rem ***** Main Source File *****

sync on
sync rate 0
set ambient light 100
set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255

make object box 1,150,50,50
make mesh from object 1,1
hide object 1

add limb 1,1,1
offset limb 1,1,0,0,-75.0
delete mesh 1

`make planets
for obs = 100 to 200
   make object sphere (obs),2000,32,32
   position object obs,rnd(200000)-100000,rnd(200000)-100000,rnd(200000)-100000
NEXT obs
position object 1,object position x(111)+1200,object position y(111),object position z(111)

rem make enemy ships
for ene = 300 to 399
    if object exist(300)=0 then make object cone 300,200 else instance object ene,300
    scale object (ene),100,15,100
    set object cull ene,0
    if object exist(400)=0 then make object sphere (400),1500,8,8 else instance object ene+100,400
    hide object (ene+100)
    color object (ene),rgb(250,0,0)
    hide object (ene+100)
    set object light (ene+100),0
    position object ene,object position x(ene-200),object position y(ene-200),object position z(ene-200)
    if object exist(900)=0 then make object box (900),1,1,3500 else instance object ene+600,900
    color object (ene+600),rgb(250,0,0)
    set object diffuse (ene+600),rgb(150,0,0)
    set object emissive (ene+600),rgb(110,0,0)
    ghost object on (ene+600)
NEXT ene

for ast = 1000 to 1100
    make object sphere ast,50,rnd(2)+2,rnd(1)+4
    xrotate object ast,rnd(360)
    yrotate object ast,rnd(360)
    zrotate object ast,rnd(360)
    color object ast,(rgb(180,220,150))
NEXT ast

`make bullets
for obs=500 to 700
   if object exist(500)=0 then make object cube obs,100 else instance object obs,500
   scale object obs,5,5,100
   set object light obs,0
   ghost object on obs
   hide object obs
next obs

make light 1;make light 2;make light 3
position light 0,1500000,1500000,0
position light 1,-1500000,-1500000,0
position light 2,0,0,0
color light 3,rgb(200,0,0)
set light range 0,120000
set light range 1,120000
set light range 2,120000
set light range 3,5050
set camera range (0),.1,100000

color backdrop 0
backdrop on
fog on
fog distance 11000,20000
fog color 0

`Only need to call these once
swid=screen width()
shig=screen height()
mwid=swid/2
mhig=shig/2

gosub starrysphere

global lasttime curtime
global elapsed#

global bullet_cur=500
global fire_delay#

curtime=timer()
lasttime=curtime
rem array "shiphp"contains enemy ship hp ,enemy random position key,randome time to change destination
dim shiphp(100,2)

hide mouse

do

 for ast = 1000 to 1100
if object position x (ast) <((object position x(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position x (ast) >((object position x(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) <((object position y(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) >((object position y(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(100)+100,rnd(170)+50
if object position z (ast) <((object position z(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position z (ast) >((object position z(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object in screen (ast) =1 then show object (ast)
if object in screen (ast) =0 then hide object (ast)
 NEXT ast

gosub enemy_ships
rem planet nav
if returnkey() = 1 then tog=1-tog : wait 200
if tog = 1
 for scanplanets = 100 to 200
   x1# = object position x(1): x2# = object position x(scanplanets)
   y1# = object position y(1): y2# = object position y(scanplanets)
   z1# = object position z(1): z2# = object position z(scanplanets)
   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = sqrt((x# * x#) + (y# * y#) + (z# * z#))
   if object in screen (scanplanets) = 1
   text (object screen x(scanplanets)),(object screen y(scanplanets)),"O>"+str$(int(dist#))
   endif
NEXT scanplanets
ENDIF

mx=mousex()
my=mousey()
`Inertia mouse - curvevalue is a lovely command
mx#=curvevalue(mx*1.0,mx#,10.0 / elapsed#)
my#=curvevalue(my*1.0,my#,10.0 / elapsed#)

dx#=mx#-mwid
dy#=my#-mhig

rem distance/angle equals....

D#=sqrt((dx#*dx#)+(dy#*dy#))
A#=atanfull(dx#,dy#)

rem restrict cursor to 228 from center....

Rate#=D#/228.0
if Rate#>1.0
mx#=mwid+sin(A#)*228.0
my#=mhig+cos(A#)*228.0
endif
ink rgb(255,255,0),0
rem turn left and right , up and down
if Rate# < 1.0
turnspeed# = D#*.005
endif
if Rate# > 1.0
turnspeed# = turnspeed#
ink rgb(255,0,0),0
endif

if spacekey()=1 then speed#=0.0

circle mwid,mhig,228.0
line mwid-64,mhig,mwid+64,mhig
line mwid,mhig-15,mwid,mhig+16

`Much smoother way to do it
turn object right 1,sin(a#) * ( elapsed# * turnspeed# )
pitch object down 1,cos(a#) * ( elapsed# * turnspeed# )
roll object left 1,rollspeed# * elapsed#

rollspeed#=curvevalue(nrollspeed#,rollspeed#,50.0 / elapsed#)

nrollspeed#=0.0

rem thrust and roll
if leftkey() = 1 then nrollspeed#=1.0
if rightkey() = 1 then nrollspeed#=-1.0
if upkey() = 1 then inc speed#,.1 * elapsed#
if downkey()=1 then dec speed#,.1 * elapsed#
if speed# > 5.0 then speed# = 5.0
if speed# < -5.0 then speed# = -5.0

`Inertia movement
ship_lx#=object position x(1) : ship_ly#=object position y(1) : ship_lz#=object position z(1)
move object 1,speed# * elapsed#
ship_nx#=object position x(1) : ship_ny#=object position y(1) : ship_nz#=object position z(1)

ship_sx#=curvevalue(ship_nx#-ship_lx#,ship_sx#,200.0 / elapsed#)
ship_sy#=curvevalue(ship_ny#-ship_ly#,ship_sy#,200.0 / elapsed#)
ship_sz#=curvevalue(ship_nz#-ship_lz#,ship_sz#,200.0 / elapsed#)

`Fire delay
dec fire_delay#,1.0*elapsed#

`Firing
if mouseclick()=1 and fire_delay#<0
   fire_delay#=10
   for side=0 to 1
      position object bullet_cur,ship_lx#,ship_ly#,ship_lz#
      rotate object bullet_cur,object angle x(1),object angle y(1),object angle z(1)
      show object bullet_cur
      if side=0
         turn object left bullet_cur,90 : move object bullet_cur,60.0 : turn object right bullet_cur,90
      else
         turn object left bullet_cur,-90 : move object bullet_cur,60.0 : turn object right bullet_cur,-90
      endif
      inc bullet_cur,1
      if bullet_cur>700 then bullet_cur=500
   next side
endif

position object 1,ship_lx#+ship_sx#,ship_ly#+ship_sy#,ship_lz#+ship_sz#

rem update camera pos
position camera (0),limb position x(1,1),limb position y(1,1),limb position z(1,1)

`Rotate camera with object 1 - good way to avoid camera rolling
rotate camera object angle x(1),object angle y(1),object angle z(1)

`Update skysphere position
position object 20,camera position x(),camera position y(),camera position z()

text 20,20,"    left and right arrow keys to roll left and right "
text 20,40,"    up and down arrowkeys = thrust . Return toggle planet nav ."
text 20,700,"speed : "+str$(speed#)


`timer based movement
lasttime=curtime
curtime=timer()
elapsed#=(curtime-lasttime)/15.0
if elapsed#<=0.0 then elapsed#=0.00001

`Velocity display
ink rgb(255,128,128)+(63*16777216),0 : box mwid-10,mhig,mwid-6,mhig+(ship_sx#*64.0) : box mwid-10,mhig+(ship_sx#*64.0),mwid-6,mhig
ink rgb(128,255,128)+(63*16777216),0 : box mwid-2,mhig,mwid+2,mhig+(ship_sy#*64.0) : box mwid-2,mhig+(ship_sy#*64.0),mwid+2,mhig
ink rgb(128,128,255)+(63*16777216),0 : box mwid+6,mhig,mwid+10,mhig+(ship_sz#*64.0) : box mwid+6,mhig+(ship_sz#*64.0),mwid+10,mhig


if playerhp < 1
    wait 500
    position object 1,object position x(111)-1500,object position y(111),object position z(111)
    playerhp = 1000
ENDIF
text 20,520,"Hull Structure :"+str$(playerhp)
ink rgb(0,255,255),0 : circle mx#,my#+1,10
line mx-15,my,mx+16,my
line mx,my-15,mx,my+16
gosub update_bullets

text 100,100,str$(bullet_cur)
position light 2,0,0,0
sync

loop



update_bullets:
   for o=500 to 700
      if object visible(o)=1
         move object o,75.0*elapsed#
      endif
   next o
return




starrysphere:

create bitmap 1,512,512
set current bitmap 1
cls
for a=0 to 256
   c=rnd(250)+5
   ink rgb(c,c,c),0
   if rnd(10)=1 then ink rgb(c,c*0.75,c*0.5),0
   if rnd(10)=1 then ink rgb(c*0.5,c*0.75,c),0
   dot rnd(512),rnd(512)
next a
get image 20,0,0,512,512,1

for ii=21 to 30
cls
xx#=256.0
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   b=((ii-20)*25)*am#
   d=(255-((ii-20)*25))*am#
   ink rgb(c,b,d),0
   line (a+128.0),xx#,(a+128.0)+(sin(rnd(360))*16.0),xx#+(sin(rnd(360))*16.0)
   inc xx#,sin(rnd(360))*3.0
next a
blur bitmap 1,4
text 0,0,str$(ii)
get image ii,0,0,512,512,1
next ii

ii=30

set current bitmap 0
delete bitmap 1

make object plain 19,15000,15000 : rotate object 19,0,0,90 : fix object pivot 19
make object cube 20,0.1
make mesh from object 19,19
texture object 20,20

for l=1 to 90

position object 19,0,0,0
rotate object 19,l*45,l*70,rnd(360)
move object 19,19000

add limb 20,l,19
offset limb 20,l,object position x(19),object position y(19),object position z(19)
rotate limb 20,l,object angle x(19),object angle y(19),object angle z(19)
texture limb 20,l,ii
if ii>20 then dec ii,1 : scale limb 20,l,100+rnd(100),100+rnd(100),100+rnd(100)

next l

delete object 19


set object fog 20,0
set object light 20,0
set object cull 20,0
`set object texture 20,0,0
ghost object on 20,2

return

rem Hehehee !
enemy_ships:

for ene = 300 to 399

 if object in screen (ene) =1 then show object (ene)
 if object in screen (ene) =0 then hide object (ene)
  if object visible (ene+600) = 0 then hide light 3
  position object (ene+100),object position x(ene),object position y(ene),object position z(ene)
  position object (ene+600),object position x(ene),object position y(ene),object position z(ene)
  point object (ene+600),object position x(1),object position y(1),object position z(1)
  if wrapvalue(object angle y(ene)-object angle y(ene+100)) > 180
   yrotate object ene,object angle y(ene)+.3
else
   yrotate object ene,object angle y(ene)-.3
endif
if wrapvalue(object angle x(ene)-object angle x(ene+100)) > 180
   xrotate object ene,object angle x(ene)+.3
else
  xrotate object ene,object angle x(ene)-.3
endif
 zrotate object ene,object angle z(ene+100)
 if object collision (ene+100,1)= 0
  point object (ene+100),object position x(1),object position y(1),object position z(1)
  scale object (ene+100),80,80,80
   move object ene,8
   hide object (ene+600)
   scale object (ene+600),100,100,0
  endif
  if object collision (ene+100,1)= 1
  point object (ene+100),epx,epy,epz
  scale object (ene+100),320,320,320
  endif
 for showlight = 1 to 5
    if (shiphp(ene-300,1)) - showlight = Time
    show light 3
    scale object (ene+600),100,100,300
    show object (ene+600)
    if object collision (ene+600,1)=1
    dec playerhp,(1+rnd(3))
    endif
    endif
 NEXT showlight
  if Time = (shiphp(ene-300,1)) then hide object (ene+600)
   if Time < (shiphp(ene-300,1)-5) then hide object (ene+600)
   move object ene,6

 for bullet = 500 to 700
  if object collision (bullet,ene) = 1
  dec shiphp(ene-300),(1+rnd(2))
  text 420,470,"TARGET HP= "+str$(shiphp(ene-300))
  position light 2,object position x(ene),object position y(ene),object position z(ene)
  endif
NEXT bullet
if shiphp(ene-300) < 1
scale object (ene+100),35,35,35
show object (ene+100)
 position light 2,object position x(ene),object position y(ene),object position z(ene)
  wait 550
  hide object (ene+100)
  position object (ene),object position x(ene-200),object position y(ene-200),object position z(ene-200)
  shiphp(ene-300) = 100
ENDIF
if Time = shiphp(ene-300,1) then  shiphp(ene-300,2) = rnd(13);shiphp(ene-300,1) = rnd(999)+1;randomize rnd(50000)
if shiphp(ene-300,2) = 0 then epx = 20302000;epy = 1000800;epz = 1006000
if shiphp(ene-300,2) = 1 then epx = -1080000;epy = -20600300;epz = -2005000
if shiphp(ene-300,2) = 2 then epx = -100300;epy = 23003000;epz = 0
if shiphp(ene-300,2) = 3 then epx = 0;epy = -1000000;epz = -10000700
if shiphp(ene-300,2) = 4 then epx = -40000000;epy = 0;epz = -40000000
if shiphp(ene-300,2) = 5 then epx = 24070340;epy = -14000300;epz = -60005560
if shiphp(ene-300,2) = 6 then epx = 8848880;epy = -50000;epz = 8888880
if shiphp(ene-300,2) = 7 then epx = 2006000;epy = 10500000;epz = 4300000
if shiphp(ene-300,2) = 8 then epx = -1065500;epy = -2008070;epz = -20003000
if shiphp(ene-300,2) = 9 then epx = -17700000;epy = 200626400;epz = 0
if shiphp(ene-300,2) = 10 then epx = 7757570;epy = -10000700;epz = 170000
if shiphp(ene-300,2) = 11 then epx = -40990;epy = -6000880;epz = -4062300
if shiphp(ene-300,2) = 12 then epx = 240004000;epy = -17430640;epz = 77770
if shiphp(ene-300,2) = 13 then epx = -908580;epy = -505030;epz = -60006600
NEXT ene
position light 3,object position x(1),object position y(1),object position z(1)
inc Time,1
if Time > 1000 then Time = 1
text 20,800,"fps : "+str$(screen FPS())
return

Rem Project: space epic
Rem Created: Thursday, October 13, 2011

Rem ***** Main Source File *****

sync on
sync rate 0
set ambient light 100
set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255

make object box 1,150,50,50
make mesh from object 1,1
hide object 1

add limb 1,1,1
offset limb 1,1,0,0,-75.0
delete mesh 1

gosub maketextures

`make planets
for obs = 100 to 200
   make object sphere (obs),2000,32,32
   position object obs,rnd(200000)-100000,rnd(200000)-100000,rnd(200000)-100000
   texture object obs,32+rnd(5)
NEXT obs
position object 1,object position x(111)+1200,object position y(111),object position z(111)

rem make enemy ships
for ene = 300 to 399
    if object exist(300)=0 then make object cone 300,200 else instance object ene,300
    scale object (ene),100,15,100
    set object cull ene,0
    if object exist(400)=0 then make object sphere (400),1500,8,8 else instance object ene+100,400
    hide object (ene+100)
    color object (ene),rgb(250,0,0)
    hide object (ene+100)
    set object light (ene+100),0
    position object ene,object position x(ene-200),object position y(ene-200),object position z(ene-200)
    if object exist(900)=0 then make object box (900),1,1,3500 else instance object ene+600,900
    color object (ene+600),rgb(250,0,0)
    set object diffuse (ene+600),rgb(150,0,0)
    set object emissive (ene+600),rgb(110,0,0)
    ghost object on (ene+600)
NEXT ene

`make asteroids
for ast = 1000 to 1100
    make object sphere ast,50,rnd(2)+2,rnd(1)+4
    rotate object ast,rnd(360),rnd(360),rnd(360)
    fix object pivot ast
    texture object ast,31
NEXT ast

`make bullets
for obs=500 to 700
   if object exist(500)=0 then make object cube obs,100 else instance object obs,500
   scale object obs,5,5,100
   set object light obs,0
   ghost object on obs
   hide object obs
next obs

make light 1;make light 2;make light 3
position light 0,1500000,1500000,0
position light 1,-1500000,-1500000,0
position light 2,0,0,0
color light 3,rgb(200,0,0)
set light range 0,120000
set light range 1,120000
set light range 2,120000
set light range 3,5050
set camera range (0),.1,100000

color backdrop 0
backdrop on
fog on
fog distance 11000,20000
fog color 0

`Only need to call these once
swid=screen width()
shig=screen height()
mwid=swid/2
mhig=shig/2

gosub starrysphere

global lasttime curtime
global elapsed#

global bullet_cur=500
global fire_delay#

curtime=timer()
lasttime=curtime
rem array "shiphp"contains enemy ship hp ,enemy random position key,randome time to change destination
dim shiphp(100,2)

hide mouse

do

 for ast = 1000 to 1100
if object position x (ast) <((object position x(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position x (ast) >((object position x(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) <((object position y(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) >((object position y(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(100)+100,rnd(170)+50
if object position z (ast) <((object position z(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position z (ast) >((object position z(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object in screen (ast) =1 then show object (ast)
if object in screen (ast) =0 then hide object (ast)
 NEXT ast

gosub enemy_ships
rem planet nav
if returnkey() = 1 then tog=1-tog : wait 200
if tog = 1
 for scanplanets = 100 to 200
   x1# = object position x(1): x2# = object position x(scanplanets)
   y1# = object position y(1): y2# = object position y(scanplanets)
   z1# = object position z(1): z2# = object position z(scanplanets)
   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = sqrt((x# * x#) + (y# * y#) + (z# * z#))
   if object in screen (scanplanets) = 1
   text (object screen x(scanplanets)),(object screen y(scanplanets)),"O>"+str$(int(dist#))
   endif
NEXT scanplanets
ENDIF

mx=mousex()
my=mousey()
`Inertia mouse - curvevalue is a lovely command
mx#=curvevalue(mx*1.0,mx#,10.0 / elapsed#)
my#=curvevalue(my*1.0,my#,10.0 / elapsed#)

dx#=mx#-mwid
dy#=my#-mhig

rem distance/angle equals....

D#=sqrt((dx#*dx#)+(dy#*dy#))
A#=atanfull(dx#,dy#)

rem restrict cursor to 228 from center....

Rate#=D#/228.0
if Rate#>1.0
mx#=mwid+sin(A#)*228.0
my#=mhig+cos(A#)*228.0
endif
ink rgb(255,255,0),0
rem turn left and right , up and down
if Rate# < 1.0
turnspeed# = D#*.005
endif
if Rate# > 1.0
turnspeed# = turnspeed#
ink rgb(255,0,0),0
endif

if spacekey()=1 then speed#=0.0

circle mwid,mhig,228.0
line mwid-64,mhig,mwid+64,mhig
line mwid,mhig-15,mwid,mhig+16

`Much smoother way to do it
turn object right 1,sin(a#) * ( elapsed# * turnspeed# )
pitch object down 1,cos(a#) * ( elapsed# * turnspeed# )
roll object left 1,rollspeed# * elapsed#

rollspeed#=curvevalue(nrollspeed#,rollspeed#,50.0 / elapsed#)

nrollspeed#=0.0

rem thrust and roll
if leftkey() = 1 then nrollspeed#=1.0
if rightkey() = 1 then nrollspeed#=-1.0
if upkey() = 1 then inc speed#,.1 * elapsed#
if downkey()=1 then dec speed#,.1 * elapsed#
if speed# > 5.0 then speed# = 5.0
if speed# < -5.0 then speed# = -5.0

`Inertia movement
ship_lx#=object position x(1) : ship_ly#=object position y(1) : ship_lz#=object position z(1)
move object 1,speed# * elapsed#
ship_nx#=object position x(1) : ship_ny#=object position y(1) : ship_nz#=object position z(1)

ship_sx#=curvevalue(ship_nx#-ship_lx#,ship_sx#,200.0 / elapsed#)
ship_sy#=curvevalue(ship_ny#-ship_ly#,ship_sy#,200.0 / elapsed#)
ship_sz#=curvevalue(ship_nz#-ship_lz#,ship_sz#,200.0 / elapsed#)

`Fire delay
dec fire_delay#,1.0*elapsed#

`Firing
if mouseclick()=1 and fire_delay#<0
   fire_delay#=10
   for side=0 to 1
      position object bullet_cur,ship_lx#,ship_ly#,ship_lz#
      rotate object bullet_cur,object angle x(1),object angle y(1),object angle z(1)
      show object bullet_cur
      if side=0
         turn object left bullet_cur,90 : move object bullet_cur,60.0 : turn object right bullet_cur,90
      else
         turn object left bullet_cur,-90 : move object bullet_cur,60.0 : turn object right bullet_cur,-90
      endif
      inc bullet_cur,1
      if bullet_cur>700 then bullet_cur=500
   next side
endif

position object 1,ship_lx#+ship_sx#,ship_ly#+ship_sy#,ship_lz#+ship_sz#

rem update camera pos
position camera (0),limb position x(1,1),limb position y(1,1),limb position z(1,1)

`Rotate camera with object 1 - good way to avoid camera rolling
rotate camera object angle x(1),object angle y(1),object angle z(1)

`Update skysphere position
position object 20,camera position x(),camera position y(),camera position z()

text 20,20,"    left and right arrow keys to roll left and right "
text 20,40,"    up and down arrowkeys = thrust . Return toggle planet nav ."
text 20,700,"speed : "+str$(speed#)


`timer based movement
lasttime=curtime
curtime=timer()
elapsed#=(curtime-lasttime)/15.0
if elapsed#<=0.0 then elapsed#=0.00001

`Velocity display
ink rgb(255,128,128)+(63*16777216),0 : box mwid-10,mhig,mwid-6,mhig+(ship_sx#*64.0) : box mwid-10,mhig+(ship_sx#*64.0),mwid-6,mhig
ink rgb(128,255,128)+(63*16777216),0 : box mwid-2,mhig,mwid+2,mhig+(ship_sy#*64.0) : box mwid-2,mhig+(ship_sy#*64.0),mwid+2,mhig
ink rgb(128,128,255)+(63*16777216),0 : box mwid+6,mhig,mwid+10,mhig+(ship_sz#*64.0) : box mwid+6,mhig+(ship_sz#*64.0),mwid+10,mhig


if playerhp < 1
    wait 500
    position object 1,object position x(111)-1500,object position y(111),object position z(111)
    playerhp = 1000
ENDIF
text 20,520,"Hull Structure :"+str$(playerhp)
ink rgb(0,255,255),0 : circle mx#,my#+1,10
line mx-15,my,mx+16,my
line mx,my-15,mx,my+16
gosub update_bullets

text 100,100,str$(bullet_cur)
position light 2,0,0,0
sync

loop



update_bullets:
   for o=500 to 700
      if object visible(o)=1
         move object o,75.0*elapsed#
      endif
   next o
return




maketextures:

create bitmap 1,512,512

`starscape
set current bitmap 1
cls
for a=0 to 256
   c=rnd(250)+5
   ink rgb(c,c,c),0
   if rnd(10)=1 then ink rgb(c,c*0.75,c*0.5),0
   if rnd(10)=1 then ink rgb(c*0.5,c*0.75,c),0
   dot rnd(512),rnd(512)
next a
get image 20,0,0,512,512,1
`nebula
for ii=21 to 30
cls
xx#=256.0
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   b=((ii-20)*25)*am#
   d=(255-((ii-20)*25))*am#
   ink rgb(c,b,d),0
   line (a+128.0),xx#,(a+128.0)+(sin(rnd(360))*16.0),xx#+(sin(rnd(360))*16.0)
   inc xx#,sin(rnd(360))*3.0
next a
blur bitmap 1,4
get image ii,0,0,512,512,1
next ii
`asteroid texture
cls
for s=0 to 60
xx#=rnd(256)
yy#=rnd(256)
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   ink rgb(c,c,c),0
   for xo=-256 to 256 step 256
   for yo=-256 to 256 step 256
   line yy#+xo,xx#+yo,yy#+(sin(rnd(360))*16.0)+xo,xx#+(sin(rnd(360))*16.0)+yo
   next yo
   next xo
   inc xx#,sin(rnd(360))*3.0
   inc yy#,sin(rnd(360))*3.0
   if xx#<0.0 then inc xx#,256.0
   if yy#<0.0 then inc yy#,256.0
   if xx#>255.0 then dec xx#,256.0
   if yy#>255.0 then dec yy#,256.0
next a
next s
blur bitmap 1,4
get image 31,128,128,128+256,128+256,1
`planet textures
for i=0 to 5
cls rgb(0,0,255)
for s=0 to 20
xx#=rnd(256)
yy#=rnd(256)
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   ink rgb(c/2,i*40,c/3),0
   for xo=-256 to 256 step 256
   for yo=-256 to 256 step 256
   line yy#+xo,xx#+yo,yy#+(sin(rnd(360))*16.0)+xo,xx#+(sin(rnd(360))*16.0)+yo
   next yo
   next xo
   inc xx#,sin(rnd(360))*3.0
   inc yy#,sin(rnd(360))*3.0
   if xx#<0.0 then inc xx#,256.0
   if yy#<0.0 then inc yy#,256.0
   if xx#>255.0 then dec xx#,256.0
   if yy#>255.0 then dec yy#,256.0
next a
if s=10 then blur bitmap 1,4
next s
blur bitmap 1,3
get image 32+i,128,128,128+256,128+256,1

next i

set current bitmap 0
delete bitmap 1

return


starrysphere:

make object plain 19,15000,15000 : rotate object 19,0,0,90 : fix object pivot 19
make object cube 20,0.1
make mesh from object 19,19
texture object 20,20
ii=30
for l=1 to 90

position object 19,0,0,0
rotate object 19,l*45,l*70,rnd(360)
move object 19,19000

add limb 20,l,19
offset limb 20,l,object position x(19),object position y(19),object position z(19)
rotate limb 20,l,object angle x(19),object angle y(19),object angle z(19)
texture limb 20,l,ii
if ii>20 then dec ii,1 : scale limb 20,l,100+rnd(100),100+rnd(100),100+rnd(100)

next l

delete object 19


set object fog 20,0
set object light 20,0
set object cull 20,0
`set object texture 20,0,0
ghost object on 20,2

return

rem Hehehee !
enemy_ships:

for ene = 300 to 399

 if object in screen (ene) =1 then show object (ene)
 if object in screen (ene) =0 then hide object (ene)
  if object visible (ene+600) = 0 then hide light 3
  position object (ene+100),object position x(ene),object position y(ene),object position z(ene)
  position object (ene+600),object position x(ene),object position y(ene),object position z(ene)
  point object (ene+600),object position x(1),object position y(1),object position z(1)
  if wrapvalue(object angle y(ene)-object angle y(ene+100)) > 180
   yrotate object ene,object angle y(ene)+.3
else
   yrotate object ene,object angle y(ene)-.3
endif
if wrapvalue(object angle x(ene)-object angle x(ene+100)) > 180
   xrotate object ene,object angle x(ene)+.3
else
  xrotate object ene,object angle x(ene)-.3
endif
 zrotate object ene,object angle z(ene+100)
 if object collision (ene+100,1)= 0
  point object (ene+100),object position x(1),object position y(1),object position z(1)
  scale object (ene+100),80,80,80
   move object ene,8
   hide object (ene+600)
   scale object (ene+600),100,100,0
  endif
  if object collision (ene+100,1)= 1
  point object (ene+100),epx,epy,epz
  scale object (ene+100),320,320,320
  endif
 for showlight = 1 to 5
    if (shiphp(ene-300,1)) - showlight = Time
    show light 3
    scale object (ene+600),100,100,300
    show object (ene+600)
    if object collision (ene+600,1)=1
    dec playerhp,(1+rnd(3))
    endif
    endif
 NEXT showlight
  if Time = (shiphp(ene-300,1)) then hide object (ene+600)
   if Time < (shiphp(ene-300,1)-5) then hide object (ene+600)
   move object ene,6

 for bullet = 500 to 700
  if object collision (bullet,ene) = 1
  dec shiphp(ene-300),(1+rnd(2))
  text 420,470,"TARGET HP= "+str$(shiphp(ene-300))
  position light 2,object position x(ene),object position y(ene),object position z(ene)
  endif
NEXT bullet
if shiphp(ene-300) < 1
scale object (ene+100),35,35,35
show object (ene+100)
 position light 2,object position x(ene),object position y(ene),object position z(ene)
  wait 550
  hide object (ene+100)
  position object (ene),object position x(ene-200),object position y(ene-200),object position z(ene-200)
  shiphp(ene-300) = 100
ENDIF
if Time = shiphp(ene-300,1) then  shiphp(ene-300,2) = rnd(13);shiphp(ene-300,1) = rnd(999)+1;randomize rnd(50000)
if shiphp(ene-300,2) = 0 then epx = 20302000;epy = 1000800;epz = 1006000
if shiphp(ene-300,2) = 1 then epx = -1080000;epy = -20600300;epz = -2005000
if shiphp(ene-300,2) = 2 then epx = -100300;epy = 23003000;epz = 0
if shiphp(ene-300,2) = 3 then epx = 0;epy = -1000000;epz = -10000700
if shiphp(ene-300,2) = 4 then epx = -40000000;epy = 0;epz = -40000000
if shiphp(ene-300,2) = 5 then epx = 24070340;epy = -14000300;epz = -60005560
if shiphp(ene-300,2) = 6 then epx = 8848880;epy = -50000;epz = 8888880
if shiphp(ene-300,2) = 7 then epx = 2006000;epy = 10500000;epz = 4300000
if shiphp(ene-300,2) = 8 then epx = -1065500;epy = -2008070;epz = -20003000
if shiphp(ene-300,2) = 9 then epx = -17700000;epy = 200626400;epz = 0
if shiphp(ene-300,2) = 10 then epx = 7757570;epy = -10000700;epz = 170000
if shiphp(ene-300,2) = 11 then epx = -40990;epy = -6000880;epz = -4062300
if shiphp(ene-300,2) = 12 then epx = 240004000;epy = -17430640;epz = 77770
if shiphp(ene-300,2) = 13 then epx = -908580;epy = -505030;epz = -60006600
NEXT ene
position light 3,object position x(1),object position y(1),object position z(1)
inc Time,1
if Time > 1000 then Time = 1
text 20,800,"fps : "+str$(screen FPS())


for ast=1000 to 1100

move object ast,0.3
rotate limb ast,0,wrapvalue(limb angle x(ast,0)+(1.0*elapsed#)),0,0

out=0
if out=0
   if abs(object position x(1)-object position x(ast))>10000 then out=1
endif
if out=0
   if abs(object position y(1)-object position y(ast))>10000 then out=1
endif
if out=0
   if abs(object position z(1)-object position z(ast))>10000 then out=1
endif
if out=1
position object ast,object position x(1),object position y(1),object position z(1)
rotate object ast,object angle x(1),object angle y(1),object angle z(1)
move object ast,2000
rotate object ast,rnd(360),rnd(360),rnd(360)
endif
next ast

return

Rem Project: space epic
Rem Created: Thursday, October 13, 2011

Rem ***** Main Source File *****

sync on
sync rate 0
set ambient light 100
set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255

make object box 1,150,50,50
make mesh from object 1,1
hide object 1

add limb 1,1,1
offset limb 1,1,0,0,-75.0
delete mesh 1

gosub maketextures

`make planets
for obs = 100 to 200
   make object sphere (obs),2000,32,32
   position object obs,rnd(200000)-100000,rnd(200000)-100000,rnd(200000)-100000
   texture object obs,32+rnd(5)
NEXT obs
position object 1,object position x(111)+1200,object position y(111),object position z(111)

rem make enemy ships
for ene = 300 to 324
    if object exist(300)=0 then make object cone 300,200 else instance object ene,300
    scale object (ene),100,15,100
    set object cull ene,0
    if object exist(400)=0 then make object sphere (400),1500,8,8 else instance object ene+100,400
    hide object (ene+100)
    color object (ene),rgb(250,0,0)
    hide object (ene+100)
    set object light (ene+100),0
    position object ene,object position x(ene-200),object position y(ene-200),object position z(ene-200)
    if object exist(900)=0 then make object box (900),1,1,3500 else instance object ene+600,900
    color object (ene+600),rgb(250,0,0)
    set object diffuse (ene+600),rgb(150,0,0)
    set object emissive (ene+600),rgb(110,0,0)
    ghost object on (ene+600)
NEXT ene

`make asteroids
for ast = 1000 to 1100
    make object sphere ast,50,rnd(2)+2,rnd(1)+4
    rotate object ast,rnd(360),rnd(360),rnd(360)
    fix object pivot ast
    texture object ast,31
NEXT ast

`make bullets
for obs=500 to 700
   if object exist(500)=0 then make object cube obs,100 else instance object obs,500
   scale object obs,5,5,100
   set object light obs,0
   ghost object on obs
   hide object obs
next obs

make light 1;make light 2;make light 3
position light 0,1500000,1500000,0
position light 1,-1500000,-1500000,0
position light 2,0,0,0
color light 3,rgb(200,0,0)
set light range 0,120000
set light range 1,120000
set light range 2,120000
set light range 3,5050
set camera range (0),.1,100000

color backdrop 0
backdrop on
fog on
fog distance 11000,20000
fog color 0

`Only need to call these once
swid=screen width()
shig=screen height()
mwid=swid/2
mhig=shig/2

gosub starrysphere

global lasttime curtime
global elapsed#

global bullet_cur=500
global fire_delay#

curtime=timer()
lasttime=curtime
rem array "shiphp"contains enemy ship hp ,enemy random position key,randome time to change destination
dim shiphp(100,2)

hide mouse

do

 for ast = 1000 to 1100
if object position x (ast) <((object position x(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position x (ast) >((object position x(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) <((object position y(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) >((object position y(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(100)+100,rnd(170)+50
if object position z (ast) <((object position z(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position z (ast) >((object position z(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object in screen (ast) =1 then show object (ast)
if object in screen (ast) =0 then hide object (ast)
 NEXT ast

gosub enemy_ships
rem planet nav
if returnkey() = 1 then tog=1-tog : wait 200
if tog = 1
 for scanplanets = 100 to 200
   x1# = object position x(1): x2# = object position x(scanplanets)
   y1# = object position y(1): y2# = object position y(scanplanets)
   z1# = object position z(1): z2# = object position z(scanplanets)
   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = sqrt((x# * x#) + (y# * y#) + (z# * z#))
   if object in screen (scanplanets) = 1
   text (object screen x(scanplanets)),(object screen y(scanplanets)),"O>"+str$(int(dist#))
   endif
NEXT scanplanets
ENDIF

mx=mousex()
my=mousey()
`Inertia mouse - curvevalue is a lovely command
mx#=curvevalue(mx*1.0,mx#,10.0 / elapsed#)
my#=curvevalue(my*1.0,my#,10.0 / elapsed#)

dx#=mx#-mwid
dy#=my#-mhig

rem distance/angle equals....

D#=sqrt((dx#*dx#)+(dy#*dy#))
A#=atanfull(dx#,dy#)

rem restrict cursor to 228 from center....

Rate#=D#/228.0
if Rate#>1.0
mx#=mwid+sin(A#)*228.0
my#=mhig+cos(A#)*228.0
endif
ink rgb(255,255,0),0
rem turn left and right , up and down
if Rate# < 1.0
turnspeed# = D#*.005
endif
if Rate# > 1.0
turnspeed# = turnspeed#
ink rgb(255,0,0),0
endif

if spacekey()=1 then speed#=0.0

circle mwid,mhig,228.0
line mwid-64,mhig,mwid+64,mhig
line mwid,mhig-15,mwid,mhig+16

`Much smoother way to do it
turn object right 1,sin(a#) * ( elapsed# * turnspeed# )
pitch object down 1,cos(a#) * ( elapsed# * turnspeed# )
roll object left 1,rollspeed# * elapsed#

rollspeed#=curvevalue(nrollspeed#,rollspeed#,50.0 / elapsed#)

nrollspeed#=0.0

rem thrust and roll
if leftkey() = 1 then nrollspeed#=1.0
if rightkey() = 1 then nrollspeed#=-1.0
if upkey() = 1 then inc speed#,.1 * elapsed#
if downkey()=1 then dec speed#,.1 * elapsed#
if speed# > 5.0 then speed# = 5.0
if speed# < -5.0 then speed# = -5.0

`Inertia movement
ship_lx#=object position x(1) : ship_ly#=object position y(1) : ship_lz#=object position z(1)
move object 1,speed# * elapsed#
ship_nx#=object position x(1) : ship_ny#=object position y(1) : ship_nz#=object position z(1)

ship_sx#=curvevalue(ship_nx#-ship_lx#,ship_sx#,200.0 / elapsed#)
ship_sy#=curvevalue(ship_ny#-ship_ly#,ship_sy#,200.0 / elapsed#)
ship_sz#=curvevalue(ship_nz#-ship_lz#,ship_sz#,200.0 / elapsed#)

`Fire delay
dec fire_delay#,1.0*elapsed#

`Firing
if mouseclick()=1 and fire_delay#<0
   fire_delay#=10
   for side=0 to 1
      position object bullet_cur,ship_lx#,ship_ly#,ship_lz#
      rotate object bullet_cur,object angle x(1),object angle y(1),object angle z(1)
      show object bullet_cur
      if side=0
         turn object left bullet_cur,90 : move object bullet_cur,60.0 : turn object right bullet_cur,90
      else
         turn object left bullet_cur,-90 : move object bullet_cur,60.0 : turn object right bullet_cur,-90
      endif
      inc bullet_cur,1
      if bullet_cur>700 then bullet_cur=500
   next side
endif

position object 1,ship_lx#+ship_sx#,ship_ly#+ship_sy#,ship_lz#+ship_sz#

rem update camera pos
position camera (0),limb position x(1,1),limb position y(1,1),limb position z(1,1)

`Rotate camera with object 1 - good way to avoid camera rolling
rotate camera object angle x(1),object angle y(1),object angle z(1)

`Update skysphere position
position object 20,camera position x(),camera position y(),camera position z()

text 20,20,"    left and right arrow keys to roll left and right "
text 20,40,"    up and down arrowkeys = thrust . Return toggle planet nav ."
text 20,700,"speed : "+str$(speed#)


`timer based movement
lasttime=curtime
curtime=timer()
elapsed#=(curtime-lasttime)/15.0
if elapsed#<=0.0 then elapsed#=0.00001

`Velocity display
ink rgb(255,128,128)+(63*16777216),0 : box mwid-10,mhig,mwid-6,mhig+(ship_sx#*64.0) : box mwid-10,mhig+(ship_sx#*64.0),mwid-6,mhig
ink rgb(128,255,128)+(63*16777216),0 : box mwid-2,mhig,mwid+2,mhig+(ship_sy#*64.0) : box mwid-2,mhig+(ship_sy#*64.0),mwid+2,mhig
ink rgb(128,128,255)+(63*16777216),0 : box mwid+6,mhig,mwid+10,mhig+(ship_sz#*64.0) : box mwid+6,mhig+(ship_sz#*64.0),mwid+10,mhig


if playerhp < 1
    wait 500
    position object 1,object position x(111)-1500,object position y(111),object position z(111)
    playerhp = 1000
ENDIF
text 20,520,"Hull Structure :"+str$(playerhp)
ink rgb(0,255,255),0 : circle mx#,my#+1,10
line mx-15,my,mx+16,my
line mx,my-15,mx,my+16
gosub update_bullets

text 100,100,str$(bullet_cur)
position light 2,0,0,0
sync

loop



update_bullets:
   for o=500 to 700
      if object visible(o)=1
         move object o,75.0*elapsed#
      endif
   next o
return




maketextures:

create bitmap 1,512,512

`starscape
set current bitmap 1
cls
for a=0 to 256
   c=rnd(250)+5
   ink rgb(c,c,c),0
   if rnd(10)=1 then ink rgb(c,c*0.75,c*0.5),0
   if rnd(10)=1 then ink rgb(c*0.5,c*0.75,c),0
   dot rnd(512),rnd(512)
next a
get image 20,0,0,512,512,1
`nebula
for ii=21 to 30
cls
xx#=256.0
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   b=((ii-20)*25)*am#
   d=(255-((ii-20)*25))*am#
   ink rgb(c,b,d),0
   line (a+128.0),xx#,(a+128.0)+(sin(rnd(360))*16.0),xx#+(sin(rnd(360))*16.0)
   inc xx#,sin(rnd(360))*3.0
next a
blur bitmap 1,4
get image ii,0,0,512,512,1
next ii
`asteroid texture
cls
for s=0 to 60
xx#=rnd(256)
yy#=rnd(256)
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   ink rgb(c,c,c),0
   for xo=-256 to 256 step 256
   for yo=-256 to 256 step 256
   line yy#+xo,xx#+yo,yy#+(sin(rnd(360))*16.0)+xo,xx#+(sin(rnd(360))*16.0)+yo
   next yo
   next xo
   inc xx#,sin(rnd(360))*3.0
   inc yy#,sin(rnd(360))*3.0
   if xx#<0.0 then inc xx#,256.0
   if yy#<0.0 then inc yy#,256.0
   if xx#>255.0 then dec xx#,256.0
   if yy#>255.0 then dec yy#,256.0
next a
next s
blur bitmap 1,4
get image 31,128,128,128+256,128+256,1
`planet textures
for i=0 to 5
cls rgb(0,0,255)
for s=0 to 20
xx#=rnd(256)
yy#=rnd(256)
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   ink rgb(c/2,i*40,c/3),0
   for xo=-256 to 256 step 256
   for yo=-256 to 256 step 256
   line yy#+xo,xx#+yo,yy#+(sin(rnd(360))*16.0)+xo,xx#+(sin(rnd(360))*16.0)+yo
   next yo
   next xo
   inc xx#,sin(rnd(360))*3.0
   inc yy#,sin(rnd(360))*3.0
   if xx#<0.0 then inc xx#,256.0
   if yy#<0.0 then inc yy#,256.0
   if xx#>255.0 then dec xx#,256.0
   if yy#>255.0 then dec yy#,256.0
next a
if s=10 then blur bitmap 1,4
next s
blur bitmap 1,3
get image 32+i,128,128,128+256,128+256,1

next i

set current bitmap 0
delete bitmap 1

return


starrysphere:

make object plain 19,15000,15000 : rotate object 19,0,0,90 : fix object pivot 19
make object cube 20,0.1
make mesh from object 19,19
texture object 20,20
ii=30
for l=1 to 90

position object 19,0,0,0
rotate object 19,l*45,l*70,rnd(360)
move object 19,19000

add limb 20,l,19
offset limb 20,l,object position x(19),object position y(19),object position z(19)
rotate limb 20,l,object angle x(19),object angle y(19),object angle z(19)
texture limb 20,l,ii
if ii>20 then dec ii,1 : scale limb 20,l,100+rnd(100),100+rnd(100),100+rnd(100)

next l

delete object 19


set object fog 20,0
set object light 20,0
set object cull 20,0
`set object texture 20,0,0
ghost object on 20,2

return

rem Hehehee !
enemy_ships:

for ene = 300 to 324

 if object in screen (ene) =1 then show object (ene)
 if object in screen (ene) =0 then hide object (ene)
  if object visible (ene+600) = 0 then hide light 3
  position object (ene+100),object position x(ene),object position y(ene),object position z(ene)
  position object (ene+600),object position x(ene),object position y(ene),object position z(ene)
  point object (ene+600),object position x(1),object position y(1),object position z(1)
  if wrapvalue(object angle y(ene)-object angle y(ene+100)) > 180
   yrotate object ene,object angle y(ene)+.3
else
   yrotate object ene,object angle y(ene)-.3
endif
if wrapvalue(object angle x(ene)-object angle x(ene+100)) > 180
   xrotate object ene,object angle x(ene)+.3
else
  xrotate object ene,object angle x(ene)-.3
endif
 zrotate object ene,object angle z(ene+100)
 if object collision (ene+100,1)= 0
  point object (ene+100),object position x(1),object position y(1),object position z(1)
  scale object (ene+100),80,80,80
   move object ene,8
   hide object (ene+600)
   scale object (ene+600),100,100,0
  endif
  if object collision (ene+100,1)= 1
  point object (ene+100),epx,epy,epz
  scale object (ene+100),320,320,320
  endif
 for showlight = 1 to 5
    if (shiphp(ene-300,1)) - showlight = Time
    show light 3
    scale object (ene+600),100,100,300
    show object (ene+600)
    if object collision (ene+600,1)=1
    dec playerhp,(1+rnd(3))
    endif
    endif
 NEXT showlight
  if Time = (shiphp(ene-300,1)) then hide object (ene+600)
   if Time < (shiphp(ene-300,1)-5) then hide object (ene+600)
   move object ene,6

 for bullet = 500 to 700
  if object collision (bullet,ene) = 1
  dec shiphp(ene-300),(1+rnd(2))
  text 420,470,"TARGET HP= "+str$(shiphp(ene-300))
  position light 2,object position x(ene),object position y(ene),object position z(ene)
  endif
NEXT bullet
if shiphp(ene-300) < 1
scale object (ene+100),35,35,35
show object (ene+100)
 position light 2,object position x(ene),object position y(ene),object position z(ene)
  wait 550
  hide object (ene+100)
  position object (ene),object position x(ene-200),object position y(ene-200),object position z(ene-200)
  shiphp(ene-300) = 100
ENDIF
if Time = shiphp(ene-300,1) then  shiphp(ene-300,2) = rnd(13);shiphp(ene-300,1) = rnd(999)+1;randomize rnd(50000)
if shiphp(ene-300,2) = 0 then epx = 20302000;epy = 1000800;epz = 1006000
if shiphp(ene-300,2) = 1 then epx = -1080000;epy = -20600300;epz = -2005000
if shiphp(ene-300,2) = 2 then epx = -100300;epy = 23003000;epz = 0
if shiphp(ene-300,2) = 3 then epx = 0;epy = -1000000;epz = -10000700
if shiphp(ene-300,2) = 4 then epx = -40000000;epy = 0;epz = -40000000
if shiphp(ene-300,2) = 5 then epx = 24070340;epy = -14000300;epz = -60005560
if shiphp(ene-300,2) = 6 then epx = 8848880;epy = -50000;epz = 8888880
if shiphp(ene-300,2) = 7 then epx = 2006000;epy = 10500000;epz = 4300000
if shiphp(ene-300,2) = 8 then epx = -1065500;epy = -2008070;epz = -20003000
if shiphp(ene-300,2) = 9 then epx = -17700000;epy = 200626400;epz = 0
if shiphp(ene-300,2) = 10 then epx = 7757570;epy = -10000700;epz = 170000
if shiphp(ene-300,2) = 11 then epx = -40990;epy = -6000880;epz = -4062300
if shiphp(ene-300,2) = 12 then epx = 240004000;epy = -17430640;epz = 77770
if shiphp(ene-300,2) = 13 then epx = -908580;epy = -505030;epz = -60006600
NEXT ene
position light 3,object position x(1),object position y(1),object position z(1)
inc Time,1
if Time > 1000 then Time = 1
text 20,800,"fps : "+str$(screen FPS())


for ast=1000 to 1100

move object ast,0.3
rotate limb ast,0,wrapvalue(limb angle x(ast,0)+(1.0*elapsed#)),0,0

out=0
if out=0
   if abs(object position x(1)-object position x(ast))>10000 then out=1
endif
if out=0
   if abs(object position y(1)-object position y(ast))>10000 then out=1
endif
if out=0
   if abs(object position z(1)-object position z(ast))>10000 then out=1
endif
if out=1
position object ast,object position x(1),object position y(1),object position z(1)
rotate object ast,object angle x(1),object angle y(1),object angle z(1)
move object ast,2000
rotate object ast,rnd(360),rnd(360),rnd(360)
endif
next ast

return

Rem Project: space epic
Rem Created: Thursday, October 13, 2011

Rem ***** Main Source File *****

sync on
sync rate 0
set ambient light 100
set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255

make object box 1,150,50,50
make mesh from object 1,1
hide object 1

add limb 1,1,1
offset limb 1,1,0,0,-75.0
delete mesh 1

gosub maketextures

`make suns
for obs = 100 to 200
   make object sphere (obs),20000,32,32
   set object light obs,0
   position object obs,rnd(20000000)-10000000,rnd(20000000)-10000000,rnd(20000000)-1000000  
NEXT obs

rem make planets 
for obp = 2000 to 3000  
  make object sphere obp,2000,32,32
  texture object obp,32+rnd(5)
  numstar = rnd(100)+100
  position object obp,object position x(numstar)+(rnd(500000)-250000),object position y(numstar),object position z(numstar)+(rnd(500000)-250000)
NEXT obp

rem make enemy ships
for ene = 300 to 324
    if object exist(300)=0 then make object cone 300,200 else instance object ene,300
    scale object (ene),100,15,100
    set object cull ene,0
    if object exist(400)=0 then make object sphere (400),1500,8,8 else instance object ene+100,400
    hide object (ene+100)
    color object (ene),rgb(250,0,0)
    hide object (ene+100)
    set object light (ene+100),0
    position object ene,object position x(ene-200),object position y(ene-200),object position z(ene-200)
    if object exist(900)=0 then make object box (900),1,1,3500 else instance object ene+600,900
    color object (ene+600),rgb(250,0,0)
    set object diffuse (ene+600),rgb(150,0,0)
    set object emissive (ene+600),rgb(110,0,0)
    ghost object on (ene+600)
NEXT ene

`make asteroids
for ast = 1000 to 1100
    make object sphere ast,50,rnd(2)+2,rnd(1)+4
    rotate object ast,rnd(360),rnd(360),rnd(360)
    fix object pivot ast
    texture object ast,31
NEXT ast

`make bullets
for obs=500 to 700
   if object exist(500)=0 then make object cube obs,100 else instance object obs,500
   scale object obs,5,5,100
   set object light obs,0
   ghost object on obs
   hide object obs
next obs

make light 1;make light 2;make light 3
position light 0,1500000,1500000,0
position light 1,-1500000,-1500000,0
position light 2,0,0,0
color light 3,rgb(200,0,0)
set light range 0,12000000
set light range 1,12000000
set light range 2,12000000
set light range 3,5050
set camera range (0),.1,10000000

color backdrop 0
backdrop on
rem fog on
rem fog distance 11000,20000
rem fog color 0

`Only need to call these once
swid=screen width()
shig=screen height()
mwid=swid/2
mhig=shig/2

gosub starrysphere

global lasttime curtime
global elapsed#

global bullet_cur=500
global fire_delay#

curtime=timer()
lasttime=curtime
rem array "shiphp"contains enemy ship hp ,enemy random position key,random time to change destination
dim shiphp(100,2)

hide mouse
 tog2 = 0
do

 for ast = 1000 to 1100
if object position x (ast) <((object position x(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position x (ast) >((object position x(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) <((object position y(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) >((object position y(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(100)+100,rnd(170)+50
if object position z (ast) <((object position z(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position z (ast) >((object position z(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object in screen (ast) =1 then show object (ast)
if object in screen (ast) =0 then hide object (ast)
move object ast,0.3
rotate limb ast,0,wrapvalue(limb angle x(ast,0)+(1.0*elapsed#)),0,0

out=0
if out=0
   if abs(object position x(1)-object position x(ast))>10000 then out=1
endif
if out=0
   if abs(object position y(1)-object position y(ast))>10000 then out=1
endif
if out=0
   if abs(object position z(1)-object position z(ast))>10000 then out=1
endif
if out=1
position object ast,object position x(1),object position y(1),object position z(1)
rotate object ast,object angle x(1),object angle y(1),object angle z(1)
move object ast,2000
rotate object ast,rnd(360),rnd(360),rnd(360)
endif
 NEXT ast

rem planet nav
if returnkey() = 1 then tog=1-tog : wait 200
if tog = 0
 for scanplanets = 2000 to 3000
   x1# = object position x(1): x2# = object position x(scanplanets)
   y1# = object position y(1): y2# = object position y(scanplanets)
   z1# = object position z(1): z2# = object position z(scanplanets)
   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = sqrt((x# * x#) + (y# * y#) + (z# * z#))
   if dist# > 800000
   hide object scanplanets
   endif
   if object in screen (scanplanets) = 1
   if dist# < 800000
   show object scanplanets
   text (object screen x(scanplanets)),(object screen y(scanplanets)),"P >"+str$(int(dist#))
   endif
   endif
NEXT scanplanets
ENDIF

mx=mousex()
my=mousey()
`Inertia mouse - curvevalue is a lovely command
mx#=curvevalue(mx*1.0,mx#,10.0 / elapsed#)
my#=curvevalue(my*1.0,my#,10.0 / elapsed#)

dx#=mx#-mwid
dy#=my#-mhig

rem distance/angle equals....

D#=sqrt((dx#*dx#)+(dy#*dy#))
A#=atanfull(dx#,dy#)

rem restrict cursor to 228 from center....

Rate#=D#/228.0
if Rate#>1.0
mx#=mwid+sin(A#)*228.0
my#=mhig+cos(A#)*228.0
endif
ink rgb(255,255,0),0
rem turn left and right , up and down
if Rate# < 1.0
turnspeed# = D#*.005
endif
if Rate# > 1.0
turnspeed# = turnspeed#
ink rgb(255,0,0),0
endif

if spacekey()=1 then speed#=0.0

circle mwid,mhig,228.0
line mwid-64,mhig,mwid+64,mhig
line mwid,mhig-15,mwid,mhig+16

`Much smoother way to do it
turn object right 1,sin(a#) * ( elapsed# * turnspeed# )
pitch object down 1,cos(a#) * ( elapsed# * turnspeed# )
roll object left 1,rollspeed# * elapsed#

rollspeed#=curvevalue(nrollspeed#,rollspeed#,50.0 / elapsed#)

nrollspeed#=0.0

rem thrust and roll
if leftkey() = 1 then nrollspeed#=1.0
if rightkey() = 1 then nrollspeed#=-1.0
if upkey() = 1 then inc speed#,.1 * elapsed#
if downkey()=1 then dec speed#,.1 * elapsed#
if speed# > 5.0 then speed# = 5.0
if speed# < -5.0 then speed# = -5.0

`Inertia movement
ship_lx#=object position x(1) : ship_ly#=object position y(1) : ship_lz#=object position z(1)
move object 1,speed# * elapsed#
ship_nx#=object position x(1) : ship_ny#=object position y(1) : ship_nz#=object position z(1)

ship_sx#=curvevalue(ship_nx#-ship_lx#,ship_sx#,200.0 / elapsed#)
ship_sy#=curvevalue(ship_ny#-ship_ly#,ship_sy#,200.0 / elapsed#)
ship_sz#=curvevalue(ship_nz#-ship_lz#,ship_sz#,200.0 / elapsed#)

`Fire delay
dec fire_delay#,1.0*elapsed#

`Firing
if mouseclick()=1 and fire_delay#<0
   fire_delay#=10
   for side=0 to 1
      position object bullet_cur,ship_lx#,ship_ly#,ship_lz#
      rotate object bullet_cur,object angle x(1),object angle y(1),object angle z(1)
      show object bullet_cur
      if side=0
         turn object left bullet_cur,90 : move object bullet_cur,60.0 : turn object right bullet_cur,90
      else
         turn object left bullet_cur,-90 : move object bullet_cur,60.0 : turn object right bullet_cur,-90
      endif
      inc bullet_cur,1
      if bullet_cur>700 then bullet_cur=500
   next side
endif

position object 1,ship_lx#+ship_sx#,ship_ly#+ship_sy#,ship_lz#+ship_sz#

rem update camera pos
position camera (0),limb position x(1,1),limb position y(1,1),limb position z(1,1)

`Rotate camera with object 1 - good way to avoid camera rolling
rotate camera object angle x(1),object angle y(1),object angle z(1)

`Update skysphere position
position object 20,camera position x(),camera position y(),camera position z()

text 20,20,"    left and right arrow keys to roll left and right "
text 20,40,"    up and down arrowkeys = thrust . Return toggle planet nav ."
text 20,700,"speed : "+str$(speed#)


`timer based movement
lasttime=curtime
curtime=timer()
elapsed#=(curtime-lasttime)/15.0
if elapsed#<=0.0 then elapsed#=0.00001

`Velocity display
ink rgb(255,128,128)+(63*16777216),0 : box mwid-10,mhig,mwid-6,mhig+(ship_sx#*64.0) : box mwid-10,mhig+(ship_sx#*64.0),mwid-6,mhig
ink rgb(128,255,128)+(63*16777216),0 : box mwid-2,mhig,mwid+2,mhig+(ship_sy#*64.0) : box mwid-2,mhig+(ship_sy#*64.0),mwid+2,mhig
ink rgb(128,128,255)+(63*16777216),0 : box mwid+6,mhig,mwid+10,mhig+(ship_sz#*64.0) : box mwid+6,mhig+(ship_sz#*64.0),mwid+10,mhig


if playerhp < 1
    wait 500
    position object 1,object position x(2000)-1500,object position y(2000),object position z(2000)
    playerhp = 1000
ENDIF
text 20,520,"Hull Structure :"+str$(playerhp)
ink rgb(0,255,255),0 : circle mx#,my#+1,10
line mx-15,my,mx+16,my
line mx,my-15,mx,my+16
gosub update_bullets
gosub enemy_ships
text 100,100,str$(bullet_cur)
position light 2,0,0,0
sync

loop



update_bullets:
   for o=500 to 700
      if object visible(o)=1
         move object o,75.0*elapsed#
      endif
   next o
return




maketextures:

create bitmap 1,512,512

`starscape
set current bitmap 1
cls
for a=0 to 256
   c=rnd(250)+5
   ink rgb(c,c,c),0
   if rnd(10)=1 then ink rgb(c,c*0.75,c*0.5),0
   if rnd(10)=1 then ink rgb(c*0.5,c*0.75,c),0
   dot rnd(512),rnd(512)
next a
get image 20,0,0,512,512,1
`nebula
for ii=21 to 30
cls
xx#=256.0
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   b=((ii-20)*25)*am#
   d=(255-((ii-20)*25))*am#
   ink rgb(c,b,d),0
   line (a+128.0),xx#,(a+128.0)+(sin(rnd(360))*16.0),xx#+(sin(rnd(360))*16.0)
   inc xx#,sin(rnd(360))*3.0
next a
blur bitmap 1,4
get image ii,0,0,512,512,1
next ii
`asteroid texture
cls
for s=0 to 60
xx#=rnd(256)
yy#=rnd(256)
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   ink rgb(c,c,c),0
   for xo=-256 to 256 step 256
   for yo=-256 to 256 step 256
   line yy#+xo,xx#+yo,yy#+(sin(rnd(360))*16.0)+xo,xx#+(sin(rnd(360))*16.0)+yo
   next yo
   next xo
   inc xx#,sin(rnd(360))*3.0
   inc yy#,sin(rnd(360))*3.0
   if xx#<0.0 then inc xx#,256.0
   if yy#<0.0 then inc yy#,256.0
   if xx#>255.0 then dec xx#,256.0
   if yy#>255.0 then dec yy#,256.0
next a
next s
blur bitmap 1,4
get image 31,128,128,128+256,128+256,1
`planet textures
for i=0 to 5
cls rgb(0,0,255)
for s=0 to 20
xx#=rnd(256)
yy#=rnd(256)
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   ink rgb(c/2,i*40,c/3),0
   for xo=-256 to 256 step 256
   for yo=-256 to 256 step 256
   line yy#+xo,xx#+yo,yy#+(sin(rnd(360))*16.0)+xo,xx#+(sin(rnd(360))*16.0)+yo
   next yo
   next xo
   inc xx#,sin(rnd(360))*3.0
   inc yy#,sin(rnd(360))*3.0
   if xx#<0.0 then inc xx#,256.0
   if yy#<0.0 then inc yy#,256.0
   if xx#>255.0 then dec xx#,256.0
   if yy#>255.0 then dec yy#,256.0
next a
if s=10 then blur bitmap 1,4
next s
blur bitmap 1,3
get image 32+i,128,128,128+256,128+256,1

next i

set current bitmap 0
delete bitmap 1

return


starrysphere:

make object plain 19,15000,15000 : rotate object 19,0,0,90 : fix object pivot 19
make object cube 20,0.1
make mesh from object 19,19
texture object 20,20
ii=30
for l=1 to 90

position object 19,0,0,0
rotate object 19,l*45,l*70,rnd(360)
move object 19,19000

add limb 20,l,19
offset limb 20,l,object position x(19),object position y(19),object position z(19)
rotate limb 20,l,object angle x(19),object angle y(19),object angle z(19)
texture limb 20,l,ii
if ii>20 then dec ii,1 : scale limb 20,l,100+rnd(100),100+rnd(100),100+rnd(100)

next l

delete object 19


set object fog 20,0
set object light 20,0
set object cull 20,0
`set object texture 20,0,0
ghost object on 20,2

return

rem Hehehee !
enemy_ships:
rem sun nav 
if shiftkey() = 1 then tog2=1-tog2 : wait 200
if tog2 = 0
 for scansuns = 100 to 200
   xx1# = object position x(1): xx2# = object position x(scansuns)
   yy1# = object position y(1): yy2# = object position y(scansuns)
   zz1# = object position z(1): zz2# = object position z(scansuns)
   xx# = (xx1# - xx2#)
   yy# = (yy1# - yy2#)
   zz# = (zz1# - zz2#)
   dist2# = sqrt((xx# * xx#) + (yy# * yy#) + (zz# * zz#))
   if dist2# < 500000 
    position light 1,xx2#,yy2#,zz2# 
    sunspawn = scansuns
    endif
   if object in screen (scansuns) = 1
   text (object screen x(scansuns)),(object screen y(scansuns)),"S >"+str$(int(dist2#))
   endif
NEXT scansuns
ENDIF
sunspawn = sunspawn

for ene = 300 to 324

 if object in screen (ene) =1 then show object (ene)
 if object in screen (ene) =0 then hide object (ene)
  if object visible (ene+600) = 0 then hide light 3
  position object (ene+100),object position x(ene),object position y(ene),object position z(ene)
  position object (ene+600),object position x(ene),object position y(ene),object position z(ene)
  point object (ene+600),object position x(1),object position y(1),object position z(1)
  if wrapvalue(object angle y(ene)-object angle y(ene+100)) > 180
   yrotate object ene,object angle y(ene)+.3
else
   yrotate object ene,object angle y(ene)-.3
endif
if wrapvalue(object angle x(ene)-object angle x(ene+100)) > 180
   xrotate object ene,object angle x(ene)+.3
else
  xrotate object ene,object angle x(ene)-.3
endif
 zrotate object ene,object angle z(ene+100)
 if object collision (ene+100,1)= 0
  point object (ene+100),object position x(1),object position y(1),object position z(1)
  scale object (ene+100),80,80,80
   move object ene,8
   hide object (ene+600)
   scale object (ene+600),100,100,0
  endif
  if object collision (ene+100,1)= 1
  point object (ene+100),epx,epy,epz
  scale object (ene+100),320,320,320
  endif
 for showlight = 1 to 5
    if (shiphp(ene-300,1)) - showlight = Time
    show light 3
    scale object (ene+600),100,100,300
    show object (ene+600)
    if object collision (ene+600,1)=1
    dec playerhp,(1+rnd(3))
    endif
    endif
 NEXT showlight
  if Time = (shiphp(ene-300,1)) then hide object (ene+600)
   if Time < (shiphp(ene-300,1)-5) then hide object (ene+600)
   move object ene,6

 for bullet = 500 to 700
  if object collision (bullet,ene) = 1
  dec shiphp(ene-300),(1+rnd(2))
  text 420,470,"TARGET HP= "+str$(shiphp(ene-300))
  position light 2,object position x(ene),object position y(ene),object position z(ene)
  endif
NEXT bullet
if shiphp(ene-300) < 1
scale object (ene+100),35,35,35
show object (ene+100)
 position light 2,object position x(ene),object position y(ene),object position z(ene)
  hide object (ene+100)
  position object (ene),object position x(sunspawn),object position y(sunspawn),object position z(sunspawn)
  shiphp(ene-300) = 100
ENDIF
if Time = shiphp(ene-300,1) then  shiphp(ene-300,2) = rnd(13);shiphp(ene-300,1) = rnd(999)+1;randomize rnd(50000)
if shiphp(ene-300,2) = 0 then epx = 20302000;epy = 1000800;epz = 1006000
if shiphp(ene-300,2) = 1 then epx = -1080000;epy = -20600300;epz = -2005000
if shiphp(ene-300,2) = 2 then epx = -100300;epy = 23003000;epz = 0
if shiphp(ene-300,2) = 3 then epx = 0;epy = -1000000;epz = -10000700
if shiphp(ene-300,2) = 4 then epx = -40000000;epy = 0;epz = -40000000
if shiphp(ene-300,2) = 5 then epx = 24070340;epy = -14000300;epz = -60005560
if shiphp(ene-300,2) = 6 then epx = 8848880;epy = -50000;epz = 8888880
if shiphp(ene-300,2) = 7 then epx = 2006000;epy = 10500000;epz = 4300000
if shiphp(ene-300,2) = 8 then epx = -1065500;epy = -2008070;epz = -20003000
if shiphp(ene-300,2) = 9 then epx = -17700000;epy = 200626400;epz = 0
if shiphp(ene-300,2) = 10 then epx = 7757570;epy = -10000700;epz = 170000
if shiphp(ene-300,2) = 11 then epx = -40990;epy = -6000880;epz = -4062300
if shiphp(ene-300,2) = 12 then epx = 240004000;epy = -17430640;epz = 77770
if shiphp(ene-300,2) = 13 then epx = -908580;epy = -505030;epz = -60006600
NEXT ene
position light 3,object position x(1),object position y(1),object position z(1)
inc Time,1
if Time > 1000 then Time = 1
text 20,800,"fps : "+str$(screen FPS())


return

Rem Project: space epic
Rem Created: Thursday, October 13, 2011

Rem ***** Main Source File *****

sync on
sync rate 0
set ambient light 100
set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255

make object box 1,150,50,50
make mesh from object 1,1
hide object 1

add limb 1,1,1
offset limb 1,1,0,0,-75.0
delete mesh 1

gosub maketextures

`make suns
for obs = 100 to 200
   make object sphere (obs),20000,32,32
   set object light obs,0
   position object obs,rnd(20000000)-10000000,rnd(20000000)-10000000,rnd(20000000)-1000000  
NEXT obs

rem make planets 
for obp = 2000 to 2250  
  make object sphere obp,2000,32,32
  texture object obp,32+rnd(5)
  numstar = rnd(100)+100
  position object obp,object position x(numstar)+(rnd(500000)-250000),object position y(numstar),object position z(numstar)+(rnd(500000)-250000)
NEXT obp

rem make enemy ships
for ene = 300 to 324
    if object exist(300)=0 then make object cone 300,200 else instance object ene,300
    scale object (ene),100,15,100
    set object cull ene,0
    if object exist(400)=0 then make object sphere (400),1500,8,8 else instance object ene+100,400
    hide object (ene+100)
    color object (ene),rgb(250,0,0)
    hide object (ene+100)
    set object light (ene+100),0
    position object ene,object position x(ene-200),object position y(ene-200),object position z(ene-200)
    if object exist(900)=0 then make object box (900),1,1,3500 else instance object ene+600,900
    color object (ene+600),rgb(250,0,0)
    set object diffuse (ene+600),rgb(150,0,0)
    set object emissive (ene+600),rgb(110,0,0)
    ghost object on (ene+600)
NEXT ene

`make asteroids
for ast = 1000 to 1100
    make object sphere ast,50,rnd(2)+2,rnd(1)+4
    rotate object ast,rnd(360),rnd(360),rnd(360)
    fix object pivot ast
    texture object ast,31
NEXT ast

`make bullets
for obs=500 to 700
   if object exist(500)=0 then make object cube obs,100 else instance object obs,500
   scale object obs,5,5,100
   set object light obs,0
   ghost object on obs
   hide object obs
next obs

make light 1;make light 2;make light 3
position light 0,1500000,1500000,0
position light 1,-1500000,-1500000,0
position light 2,0,0,0
color light 3,rgb(200,0,0)
set light range 0,12000000
set light range 1,12000000
set light range 2,12000000
set light range 3,5050
set camera range (0),.1,10000000

color backdrop 0
backdrop on
rem fog on
rem fog distance 11000,20000
rem fog color 0

`Only need to call these once
swid=screen width()
shig=screen height()
mwid=swid/2
mhig=shig/2

gosub starrysphere

global lasttime curtime
global elapsed#

global bullet_cur=500
global fire_delay#

curtime=timer()
lasttime=curtime
rem array "shiphp"contains enemy ship hp ,enemy random position key,random time to change destination
dim shiphp(24,2)
sunspawn = 100
hide mouse
 
do
     
position object 1,ship_lx#+ship_sx#,ship_ly#+ship_sy#,ship_lz#+ship_sz#
rem update camera pos
position camera (0),limb position x(1,1),limb position y(1,1),limb position z(1,1)
`Rotate camera with object 1 - good way to avoid camera rolling
rotate camera object angle x(1),object angle y(1),object angle z(1)
`Update skysphere position
position object 20,camera position x(),camera position y(),camera position z()
text 20,20,"    left and right arrow keys to roll left and right "
text 20,40,"    up and down arrowkeys = thrust . Return toggle planet nav ."
text 20,700,"speed : "+str$(speed#)
text 100,100,str$(bullet_cur)
gosub user_input_screen
gosub asteroid
gosub update_bullets
gosub enemy_ships
sunspawn = sunspawn

sync

loop

update_bullets:
   for o=500 to 700
      if object visible(o)=1
         move object o,75.0*elapsed#
      endif
   next o
return
maketextures:
create bitmap 1,512,512
`starscape
set current bitmap 1
cls
for a=0 to 256
   c=rnd(250)+5
   ink rgb(c,c,c),0
   if rnd(10)=1 then ink rgb(c,c*0.75,c*0.5),0
   if rnd(10)=1 then ink rgb(c*0.5,c*0.75,c),0
   dot rnd(512),rnd(512)
next a
get image 20,0,0,512,512,1
`nebula
for ii=21 to 30
cls
xx#=256.0
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   b=((ii-20)*25)*am#
   d=(255-((ii-20)*25))*am#
   ink rgb(c,b,d),0
   line (a+128.0),xx#,(a+128.0)+(sin(rnd(360))*16.0),xx#+(sin(rnd(360))*16.0)
   inc xx#,sin(rnd(360))*3.0
next a
blur bitmap 1,4
get image ii,0,0,512,512,1
next ii
`asteroid texture
cls
for s=0 to 60
xx#=rnd(256)
yy#=rnd(256)
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   ink rgb(c,c,c),0
   for xo=-256 to 256 step 256
   for yo=-256 to 256 step 256
   line yy#+xo,xx#+yo,yy#+(sin(rnd(360))*16.0)+xo,xx#+(sin(rnd(360))*16.0)+yo
   next yo
   next xo
   inc xx#,sin(rnd(360))*3.0
   inc yy#,sin(rnd(360))*3.0
   if xx#<0.0 then inc xx#,256.0
   if yy#<0.0 then inc yy#,256.0
   if xx#>255.0 then dec xx#,256.0
   if yy#>255.0 then dec yy#,256.0
next a
next s
blur bitmap 1,4
get image 31,128,128,128+256,128+256,1
`planet textures
for i=0 to 5
cls rgb(0,0,255)
for s=0 to 20
xx#=rnd(256)
yy#=rnd(256)
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   ink rgb(c/2,i*40,c/3),0
   for xo=-256 to 256 step 256
   for yo=-256 to 256 step 256
   line yy#+xo,xx#+yo,yy#+(sin(rnd(360))*16.0)+xo,xx#+(sin(rnd(360))*16.0)+yo
   next yo
   next xo
   inc xx#,sin(rnd(360))*3.0
   inc yy#,sin(rnd(360))*3.0
   if xx#<0.0 then inc xx#,256.0
   if yy#<0.0 then inc yy#,256.0
   if xx#>255.0 then dec xx#,256.0
   if yy#>255.0 then dec yy#,256.0
next a
if s=10 then blur bitmap 1,4
next s
blur bitmap 1,3
get image 32+i,128,128,128+256,128+256,1

next i

set current bitmap 0
delete bitmap 1

return

starrysphere:

make object plain 19,15000,15000 : rotate object 19,0,0,90 : fix object pivot 19
make object cube 20,0.1
make mesh from object 19,19
texture object 20,20
ii=30
for l=1 to 90
position object 19,0,0,0
rotate object 19,l*45,l*70,rnd(360)
move object 19,19000

add limb 20,l,19
offset limb 20,l,object position x(19),object position y(19),object position z(19)
rotate limb 20,l,object angle x(19),object angle y(19),object angle z(19)
texture limb 20,l,ii
if ii>20 then dec ii,1 : scale limb 20,l,100+rnd(100),100+rnd(100),100+rnd(100)

next l

delete object 19

set object fog 20,0
set object light 20,0
set object cull 20,0
`set object texture 20,0,0
ghost object on 20,2

return

enemy_ships:


for ene = 300 to 324
 if object in screen (ene) =1 then show object (ene)
 if object in screen (ene) =0 then hide object (ene)
  if object visible (ene+600) = 0 then hide light 3
  position object (ene+100),object position x(ene),object position y(ene),object position z(ene)
  position object (ene+600),object position x(ene),object position y(ene),object position z(ene)
  point object (ene+600),object position x(1),object position y(1),object position z(1)
  if wrapvalue(object angle y(ene)-object angle y(ene+100)) > 180
   yrotate object ene,object angle y(ene)+.3
else
   yrotate object ene,object angle y(ene)-.3
endif
if wrapvalue(object angle x(ene)-object angle x(ene+100)) > 180
   xrotate object ene,object angle x(ene)+.3
else
  xrotate object ene,object angle x(ene)-.3
endif
 zrotate object ene,object angle z(ene+100)
 if object collision (ene+100,1)= 0
  point object (ene+100),object position x(1),object position y(1),object position z(1)
  scale object (ene+100),80,80,80
   move object ene,8
   hide object (ene+600)
   scale object (ene+600),100,100,0
  endif
  if object collision (ene+100,1)= 1
  point object (ene+100),epx,epy,epz
  scale object (ene+100),320,320,320
  endif
 for showlight = 1 to 5
    if (shiphp(ene-300,1)) - showlight = Time
    show light 3
    scale object (ene+600),100,100,300
    show object (ene+600)
    if object collision (ene+600,1)=1
    dec playerhp,(1+rnd(3))
    endif
    endif
 NEXT showlight
  if Time = (shiphp(ene-300,1)) then hide object (ene+600)
   if Time < (shiphp(ene-300,1)-5) then hide object (ene+600)
   move object ene,6

 for bullet = 500 to 700
  if object collision (bullet,ene) = 1
  dec shiphp(ene-300),(1+rnd(2))
  text 420,470,"TARGET HP= "+str$(shiphp(ene-300))
  position light 2,object position x(ene),object position y(ene),object position z(ene)
  endif
NEXT bullet
if shiphp(ene-300) < 1
scale object (ene+100),35,35,35
show object (ene+100)
 position light 2,object position x(ene),object position y(ene),object position z(ene)
  hide object (ene+100)
  position object (ene),object position x(sunspawn),object position y(sunspawn),object position z(sunspawn)
  shiphp(ene-300) = 100
ENDIF
if Time = shiphp(ene-300,1) then  shiphp(ene-300,2) = rnd(13);shiphp(ene-300,1) = rnd(999)+1;randomize rnd(50000)
if shiphp(ene-300,2) = 0 then epx = 20302000;epy = 100000800;epz = 10060000
if shiphp(ene-300,2) = 1 then epx = -1080000;epy = -20600300;epz = -20005000
if shiphp(ene-300,2) = 2 then epx = -1000300;epy = 23003000;epz = 0
if shiphp(ene-300,2) = 3 then epx = 0;epy = -1000000;epz = -100000700
if shiphp(ene-300,2) = 4 then epx = -400000000;epy = 0;epz = -400000000
if shiphp(ene-300,2) = 5 then epx = 24070340;epy = -140000300;epz = -60005560
if shiphp(ene-300,2) = 6 then epx = 88488080;epy = -50000;epz = 88880880
if shiphp(ene-300,2) = 7 then epx = 2006000;epy = 10500000;epz = 4300000
if shiphp(ene-300,2) = 8 then epx = -1065500;epy = -2008070;epz = -200003000
if shiphp(ene-300,2) = 9 then epx = -177000000;epy = 2000626400;epz = 0
if shiphp(ene-300,2) = 10 then epx = 7757570;epy = -100000700;epz = 1700000
if shiphp(ene-300,2) = 11 then epx = -40990;epy = -6000880;epz = -4062300
if shiphp(ene-300,2) = 12 then epx = 2400004000;epy = -17430640;epz = 77770
if shiphp(ene-300,2) = 13 then epx = -908580;epy = -505030;epz = -60006600
NEXT ene
position light 3,object position x(1),object position y(1),object position z(1)
inc Time,1
if Time > 1000 then Time = 1
text 20,800,"fps : "+str$(screen FPS())
return

asteroid:
for ast = 1000 to 1100
if object position x (ast) <((object position x(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position x (ast) >((object position x(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) <((object position y(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) >((object position y(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(100)+100,rnd(170)+50
if object position z (ast) <((object position z(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position z (ast) >((object position z(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object in screen (ast) =1 then show object (ast)
if object in screen (ast) =0 then hide object (ast)
move object ast,0.3
rotate limb ast,0,wrapvalue(limb angle x(ast,0)+(1.0*elapsed#)),0,0

out=0
if out=0
   if abs(object position x(1)-object position x(ast))>10000 then out=1
endif
if out=0
   if abs(object position y(1)-object position y(ast))>10000 then out=1
endif
if out=0
   if abs(object position z(1)-object position z(ast))>10000 then out=1
endif
if out=1
position object ast,object position x(1),object position y(1),object position z(1)
rotate object ast,object angle x(1),object angle y(1),object angle z(1)
move object ast,2000
rotate object ast,rnd(360),rnd(360),rnd(360)
endif
 NEXT ast
 return
 
 user_input_screen:
 ' player HP
if playerhp < 1
    wait 500
    position object 1,object position x(100)+50000,object position y(100),object position z(100)
    playerhp = 1000
ENDIF
offset limb 1,1,0,0,mousez()/10
mx=mousex()
my=mousey()
`Inertia mouse - curvevalue is a lovely command
mx#=curvevalue(mx*1.0,mx#,10.0 / elapsed#)
my#=curvevalue(my*1.0,my#,10.0 / elapsed#)
dx#=mx#-mwid
dy#=my#-mhig
rem distance/angle equals....
D#=sqrt((dx#*dx#)+(dy#*dy#))
A#=atanfull(dx#,dy#)
rem restrict cursor to 228 from center....
Rate#=D#/228.0
if Rate#>1.0
mx#=mwid+sin(A#)*228.0
my#=mhig+cos(A#)*228.0
endif
ink rgb(255,255,0),0
rem turn left and right , up and down
if Rate# < 1.0
turnspeed# = D#*.005
endif
if Rate# > 1.0
turnspeed# = turnspeed#
ink rgb(255,0,0),0
endif
if spacekey()=1 then speed#=0.0
circle mwid,mhig,228.0
line mwid-64,mhig,mwid+64,mhig
line mwid,mhig-15,mwid,mhig+16
`Much smoother way to do it
turn object right 1,sin(a#) * ( elapsed# * turnspeed# )
pitch object down 1,cos(a#) * ( elapsed# * turnspeed# )
roll object left 1,rollspeed# * elapsed#
rollspeed#=curvevalue(nrollspeed#,rollspeed#,50.0 / elapsed#)
nrollspeed#=0.0
rem thrust and roll
if leftkey() = 1 then nrollspeed#=1.0
if rightkey() = 1 then nrollspeed#=-1.0
if upkey() = 1 then inc speed#,.1 * elapsed#
if downkey()=1 then dec speed#,.1 * elapsed#
if speed# > 5.0 then speed# = 5.0
if speed# < -5.0 then speed# = -5.0
`Inertia movement
ship_lx#=object position x(1) : ship_ly#=object position y(1) : ship_lz#=object position z(1)
move object 1,speed# * elapsed#
ship_nx#=object position x(1) : ship_ny#=object position y(1) : ship_nz#=object position z(1)
ship_sx#=curvevalue(ship_nx#-ship_lx#,ship_sx#,200.0 / elapsed#)
ship_sy#=curvevalue(ship_ny#-ship_ly#,ship_sy#,200.0 / elapsed#)
ship_sz#=curvevalue(ship_nz#-ship_lz#,ship_sz#,200.0 / elapsed#)
`Fire delay
dec fire_delay#,1.0*elapsed#
`Firing
if mouseclick()=1 and fire_delay#<0
   fire_delay#=10
   for side=0 to 1
      position object bullet_cur,ship_lx#,ship_ly#,ship_lz#
      rotate object bullet_cur,object angle x(1),object angle y(1),object angle z(1)
      show object bullet_cur
      if side=0
         turn object left bullet_cur,90 : move object bullet_cur,60.0 : turn object right bullet_cur,90
      else
         turn object left bullet_cur,-90 : move object bullet_cur,60.0 : turn object right bullet_cur,-90
      endif
      inc bullet_cur,1
      if bullet_cur>700 then bullet_cur=500
   next side
endif

`timer based movement
lasttime=curtime
curtime=timer()
elapsed#=(curtime-lasttime)/15.0
if elapsed#<=0.0 then elapsed#=0.00001
`Velocity display
ink rgb(255,128,128)+(63*16777216),0 : box mwid-10,mhig,mwid-6,mhig+(ship_sx#*64.0) : box mwid-10,mhig+(ship_sx#*64.0),mwid-6,mhig
ink rgb(128,255,128)+(63*16777216),0 : box mwid-2,mhig,mwid+2,mhig+(ship_sy#*64.0) : box mwid-2,mhig+(ship_sy#*64.0),mwid+2,mhig
ink rgb(128,128,255)+(63*16777216),0 : box mwid+6,mhig,mwid+10,mhig+(ship_sz#*64.0) : box mwid+6,mhig+(ship_sz#*64.0),mwid+10,mhig
text 20,520,"Hull Structure :"+str$(playerhp)
ink rgb(0,255,255),0 : circle mx#,my#+1,10
line mx-15,my,mx+16,my
line mx,my-15,mx,my+16
rem planet nav
if returnkey() = 1 then tog=1-tog : wait 200
if tog = 0
 for scanplanets = 2000 to 2250
   x1# = object position x(1): x2# = object position x(scanplanets)
   y1# = object position y(1): y2# = object position y(scanplanets)
   z1# = object position z(1): z2# = object position z(scanplanets)
   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = sqrt((x# * x#) + (y# * y#) + (z# * z#))
   if dist# > 800000
   hide object scanplanets
   endif
   if object in screen (scanplanets) = 1
   if dist# < 800000
   show object scanplanets
   text (object screen x(scanplanets)),(object screen y(scanplanets)),"P >"+str$(int(dist#))
   endif
   endif
NEXT scanplanets
ENDIF
rem sun nav 
if shiftkey() = 1 then tog2=1-tog2 : wait 200
if tog2 = 0
 for scansuns = 100 to 200
   xx1# = object position x(1): xx2# = object position x(scansuns)
   yy1# = object position y(1): yy2# = object position y(scansuns)
   zz1# = object position z(1): zz2# = object position z(scansuns)
   xx# = (xx1# - xx2#)
   yy# = (yy1# - yy2#)
   zz# = (zz1# - zz2#)
   dist2# = sqrt((xx# * xx#) + (yy# * yy#) + (zz# * zz#))
   if dist2# < 500000 
    position light 1,xx2#,yy2#,zz2# 
    sunspawn = scansuns
    endif
   if object in screen (scansuns) = 1
   text (object screen x(scansuns)),(object screen y(scansuns)),"S >"+str$(int(dist2#))
   endif
NEXT scansuns
ENDIF

return

Rem Project: space epic
Rem Created: Thursday, October 13, 2011

Rem ***** Main Source File *****

sync on
sync rate 0
set ambient light 100
set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255

make object box 1,150,50,50
make mesh from object 1,1
hide object 1

add limb 1,1,1
offset limb 1,1,0,0,-75.0
delete mesh 1

gosub maketextures

`make suns
for obs = 100 to 200
   make object sphere (obs),20000,32,32
   set object light obs,0
   position object obs,rnd(20000000)-10000000,rnd(20000000)-10000000,rnd(20000000)-1000000
NEXT obs

rem make planets
for obp = 2000 to 2250
  make object sphere obp,2000,32,32
  texture object obp,32+rnd(5)
  numstar = rnd(100)+100
  position object obp,object position x(numstar)+(rnd(500000)-250000),object position y(numstar),object position z(numstar)+(rnd(500000)-250000)
NEXT obp

rem make enemy ships
for ene = 300 to 324
    if object exist(300)=0 then make object cone 300,200 else instance object ene,300
    scale object (ene),100,15,100
    set object cull ene,0
    if object exist(400)=0 then make object sphere (400),1500,8,8 else instance object ene+100,400
    hide object (ene+100)
    color object (ene),rgb(250,0,0)
    hide object (ene+100)
    set object light (ene+100),0
    position object ene,object position x(ene-200),object position y(ene-200),object position z(ene-200)
    if object exist(900)=0 then make object box (900),1,1,3500 else instance object ene+600,900
    color object (ene+600),rgb(250,0,0)
    set object diffuse (ene+600),rgb(150,0,0)
    set object emissive (ene+600),rgb(110,0,0)
    ghost object on (ene+600)
NEXT ene

`make asteroids
for ast = 1000 to 1100
    make object sphere ast,50,rnd(2)+3,rnd(1)+5
    asteroid_obj(ast)
    rotate object ast,rnd(360),rnd(360),rnd(360)
    fix object pivot ast
    texture object ast,31
NEXT ast

`make bullets
for obs=500 to 700
   if object exist(500)=0 then make object cube obs,100 else instance object obs,500
   scale object obs,5,5,100
   set object light obs,0
   ghost object on obs
   hide object obs
next obs

make light 1;make light 2;make light 3
position light 0,1500000,1500000,0
position light 1,-1500000,-1500000,0
position light 2,0,0,0
color light 3,rgb(200,0,0)
set light range 0,12000000
set light range 1,12000000
set light range 2,12000000
set light range 3,5050
set camera range (0),.1,10000000

color backdrop 0
backdrop on
rem fog on
rem fog distance 11000,20000
rem fog color 0

`Only need to call these once
swid=screen width()
shig=screen height()
mwid=swid/2
mhig=shig/2

gosub starrysphere

global lasttime curtime
global elapsed#

global bullet_cur=500
global fire_delay#

curtime=timer()
lasttime=curtime
rem array "shiphp"contains enemy ship hp ,enemy random position key,random time to change destination
dim shiphp(24,2)
sunspawn = 100
hide mouse

do

position object 1,ship_lx#+ship_sx#,ship_ly#+ship_sy#,ship_lz#+ship_sz#
rem update camera pos
position camera (0),limb position x(1,1),limb position y(1,1),limb position z(1,1)
`Rotate camera with object 1 - good way to avoid camera rolling
rotate camera object angle x(1),object angle y(1),object angle z(1)
`Update skysphere position
position object 20,camera position x(),camera position y(),camera position z()
text 20,20,"    left and right arrow keys to roll left and right "
text 20,40,"    up and down arrowkeys = thrust . Return toggle planet nav ."
text 20,700,"speed : "+str$(speed#)
text 100,100,str$(bullet_cur)
gosub user_input_screen
gosub asteroid
gosub update_bullets
gosub enemy_ships
sunspawn = sunspawn

sync

loop

update_bullets:
   for o=500 to 700
      if object visible(o)=1
         move object o,75.0*elapsed#
      endif
   next o
return
maketextures:
create bitmap 1,512,512
`starscape
set current bitmap 1
cls
for a=0 to 256
   c=rnd(250)+5
   ink rgb(c,c,c),0
   if rnd(10)=1 then ink rgb(c,c*0.75,c*0.5),0
   if rnd(10)=1 then ink rgb(c*0.5,c*0.75,c),0
   dot rnd(512),rnd(512)
next a
get image 20,0,0,512,512,1
`nebula
for ii=21 to 30
cls
xx#=256.0
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   b=((ii-20)*25)*am#
   d=(255-((ii-20)*25))*am#
   ink rgb(c,b,d),0
   line (a+128.0),xx#,(a+128.0)+(sin(rnd(360))*16.0),xx#+(sin(rnd(360))*16.0)
   inc xx#,sin(rnd(360))*3.0
next a
blur bitmap 1,4
get image ii,0,0,512,512,1
next ii
`asteroid texture
cls
for s=0 to 60
xx#=rnd(256)
yy#=rnd(256)
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   ink rgb(c,c,c),0
   for xo=-256 to 256 step 256
   for yo=-256 to 256 step 256
   line yy#+xo,xx#+yo,yy#+(sin(rnd(360))*16.0)+xo,xx#+(sin(rnd(360))*16.0)+yo
   next yo
   next xo
   inc xx#,sin(rnd(360))*3.0
   inc yy#,sin(rnd(360))*3.0
   if xx#<0.0 then inc xx#,256.0
   if yy#<0.0 then inc yy#,256.0
   if xx#>255.0 then dec xx#,256.0
   if yy#>255.0 then dec yy#,256.0
next a
next s
blur bitmap 1,4
get image 31,128,128,128+256,128+256,1
`planet textures
for i=0 to 5
cls rgb(0,0,255)
for s=0 to 20
xx#=rnd(256)
yy#=rnd(256)
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   ink rgb(c/2,i*40,c/3),0
   for xo=-256 to 256 step 256
   for yo=-256 to 256 step 256
   line yy#+xo,xx#+yo,yy#+(sin(rnd(360))*16.0)+xo,xx#+(sin(rnd(360))*16.0)+yo
   next yo
   next xo
   inc xx#,sin(rnd(360))*3.0
   inc yy#,sin(rnd(360))*3.0
   if xx#<0.0 then inc xx#,256.0
   if yy#<0.0 then inc yy#,256.0
   if xx#>255.0 then dec xx#,256.0
   if yy#>255.0 then dec yy#,256.0
next a
if s=10 then blur bitmap 1,4
next s
blur bitmap 1,3
get image 32+i,128,128,128+256,128+256,1

next i

set current bitmap 0
delete bitmap 1

return

starrysphere:

make object plain 19,15000,15000 : rotate object 19,0,0,90 : fix object pivot 19
make object cube 20,0.1
make mesh from object 19,19
texture object 20,20
ii=30
for l=1 to 90
position object 19,0,0,0
rotate object 19,l*45,l*70,rnd(360)
move object 19,19000

add limb 20,l,19
offset limb 20,l,object position x(19),object position y(19),object position z(19)
rotate limb 20,l,object angle x(19),object angle y(19),object angle z(19)
texture limb 20,l,ii
if ii>20 then dec ii,1 : scale limb 20,l,100+rnd(100),100+rnd(100),100+rnd(100)

next l

delete object 19

set object fog 20,0
set object light 20,0
set object cull 20,0
`set object texture 20,0,0
ghost object on 20,2

return

enemy_ships:


for ene = 300 to 324
 if object in screen (ene) =1 then show object (ene)
 if object in screen (ene) =0 then hide object (ene)
  if object visible (ene+600) = 0 then hide light 3
  position object (ene+100),object position x(ene),object position y(ene),object position z(ene)
  position object (ene+600),object position x(ene),object position y(ene),object position z(ene)
  point object (ene+600),object position x(1),object position y(1),object position z(1)
  if wrapvalue(object angle y(ene)-object angle y(ene+100)) > 180
   yrotate object ene,object angle y(ene)+.3
else
   yrotate object ene,object angle y(ene)-.3
endif
if wrapvalue(object angle x(ene)-object angle x(ene+100)) > 180
   xrotate object ene,object angle x(ene)+.3
else
  xrotate object ene,object angle x(ene)-.3
endif
 zrotate object ene,object angle z(ene+100)
 if object collision (ene+100,1)= 0
  point object (ene+100),object position x(1),object position y(1),object position z(1)
  scale object (ene+100),80,80,80
   move object ene,8
   hide object (ene+600)
   scale object (ene+600),100,100,0
  endif
  if object collision (ene+100,1)= 1
  point object (ene+100),epx,epy,epz
  scale object (ene+100),320,320,320
  endif
 for showlight = 1 to 5
    if (shiphp(ene-300,1)) - showlight = Time
    show light 3
    scale object (ene+600),100,100,300
    show object (ene+600)
    if object collision (ene+600,1)=1
    dec playerhp,(1+rnd(3))
    endif
    endif
 NEXT showlight
  if Time = (shiphp(ene-300,1)) then hide object (ene+600)
   if Time < (shiphp(ene-300,1)-5) then hide object (ene+600)
   move object ene,6

 for bullet = 500 to 700
  if object collision (bullet,ene) = 1
  dec shiphp(ene-300),(1+rnd(2))
  text 420,470,"TARGET HP= "+str$(shiphp(ene-300))
  position light 2,object position x(ene),object position y(ene),object position z(ene)
  endif
NEXT bullet
if shiphp(ene-300) < 1
scale object (ene+100),35,35,35
show object (ene+100)
 position light 2,object position x(ene),object position y(ene),object position z(ene)
  hide object (ene+100)
  position object (ene),object position x(sunspawn),object position y(sunspawn),object position z(sunspawn)
  shiphp(ene-300) = 100
ENDIF
if Time = shiphp(ene-300,1) then  shiphp(ene-300,2) = rnd(13);shiphp(ene-300,1) = rnd(999)+1;randomize rnd(50000)
if shiphp(ene-300,2) = 0 then epx = 20302000;epy = 100000800;epz = 10060000
if shiphp(ene-300,2) = 1 then epx = -1080000;epy = -20600300;epz = -20005000
if shiphp(ene-300,2) = 2 then epx = -1000300;epy = 23003000;epz = 0
if shiphp(ene-300,2) = 3 then epx = 0;epy = -1000000;epz = -100000700
if shiphp(ene-300,2) = 4 then epx = -400000000;epy = 0;epz = -400000000
if shiphp(ene-300,2) = 5 then epx = 24070340;epy = -140000300;epz = -60005560
if shiphp(ene-300,2) = 6 then epx = 88488080;epy = -50000;epz = 88880880
if shiphp(ene-300,2) = 7 then epx = 2006000;epy = 10500000;epz = 4300000
if shiphp(ene-300,2) = 8 then epx = -1065500;epy = -2008070;epz = -200003000
if shiphp(ene-300,2) = 9 then epx = -177000000;epy = 2000626400;epz = 0
if shiphp(ene-300,2) = 10 then epx = 7757570;epy = -100000700;epz = 1700000
if shiphp(ene-300,2) = 11 then epx = -40990;epy = -6000880;epz = -4062300
if shiphp(ene-300,2) = 12 then epx = 2400004000;epy = -17430640;epz = 77770
if shiphp(ene-300,2) = 13 then epx = -908580;epy = -505030;epz = -60006600
NEXT ene
position light 3,object position x(1),object position y(1),object position z(1)
inc Time,1
if Time > 1000 then Time = 1
text 20,800,"fps : "+str$(screen FPS())
return

asteroid:
for ast = 1000 to 1100
if object position x (ast) <((object position x(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position x (ast) >((object position x(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) <((object position y(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) >((object position y(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(100)+100,rnd(170)+50
if object position z (ast) <((object position z(1))-7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position z (ast) >((object position z(1))+7500) then position object (ast),(object position x(1))+(rnd(15000)-7500),(object position y (1))+(rnd(15000)-7500),(object position z (1))+(rnd(15000)-7500);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object in screen (ast) =1 then show object (ast)
if object in screen (ast) =0 then hide object (ast)
move object ast,0.3*elapsed#
rotate limb ast,0,wrapvalue(limb angle x(ast,0)+(1.0*elapsed#)),0,0

out=0
if out=0
   if abs(object position x(1)-object position x(ast))>10000 then out=1
endif
if out=0
   if abs(object position y(1)-object position y(ast))>10000 then out=1
endif
if out=0
   if abs(object position z(1)-object position z(ast))>10000 then out=1
endif
if out=1
position object ast,object position x(1),object position y(1),object position z(1)
rotate object ast,object angle x(1),object angle y(1),object angle z(1)
move object ast,2000
rotate object ast,rnd(360),rnd(360),rnd(360)
endif
 NEXT ast
 return

 user_input_screen:
 ' player HP
if playerhp < 1
    wait 500
    position object 1,object position x(100)+50000,object position y(100),object position z(100)
    playerhp = 1000
ENDIF
offset limb 1,1,0,0,mousez()/10
mx=mousex()
my=mousey()
`Inertia mouse - curvevalue is a lovely command
mx#=curvevalue(mx*1.0,mx#,10.0 / elapsed#)
my#=curvevalue(my*1.0,my#,10.0 / elapsed#)
dx#=mx#-mwid
dy#=my#-mhig
rem distance/angle equals....
D#=sqrt((dx#*dx#)+(dy#*dy#))
A#=atanfull(dx#,dy#)
rem restrict cursor to 228 from center....
Rate#=D#/228.0
if Rate#>1.0
mx#=mwid+sin(A#)*228.0
my#=mhig+cos(A#)*228.0
endif
ink rgb(255,255,0),0
rem turn left and right , up and down
if Rate# < 1.0
turnspeed# = D#*.005
endif
if Rate# > 1.0
turnspeed# = turnspeed#
ink rgb(255,0,0),0
endif
if spacekey()=1 then speed#=0.0
circle mwid,mhig,228.0
line mwid-64,mhig,mwid+64,mhig
line mwid,mhig-15,mwid,mhig+16
`Much smoother way to do it
turn object right 1,sin(a#) * ( elapsed# * turnspeed# )
pitch object down 1,cos(a#) * ( elapsed# * turnspeed# )
roll object left 1,rollspeed# * elapsed#
rollspeed#=curvevalue(nrollspeed#,rollspeed#,50.0 / elapsed#)
nrollspeed#=0.0
rem thrust and roll
if leftkey() = 1 then nrollspeed#=1.0
if rightkey() = 1 then nrollspeed#=-1.0
if upkey() = 1 then inc speed#,.1 * elapsed#
if downkey()=1 then dec speed#,.1 * elapsed#
if speed# > 5.0 then speed# = 5.0
if speed# < -5.0 then speed# = -5.0
`Inertia movement
ship_lx#=object position x(1) : ship_ly#=object position y(1) : ship_lz#=object position z(1)
move object 1,speed# * elapsed#
ship_nx#=object position x(1) : ship_ny#=object position y(1) : ship_nz#=object position z(1)
ship_sx#=curvevalue(ship_nx#-ship_lx#,ship_sx#,200.0 / elapsed#)
ship_sy#=curvevalue(ship_ny#-ship_ly#,ship_sy#,200.0 / elapsed#)
ship_sz#=curvevalue(ship_nz#-ship_lz#,ship_sz#,200.0 / elapsed#)
`Fire delay
dec fire_delay#,1.0*elapsed#
`Firing
if mouseclick()=1 and fire_delay#<0
   fire_delay#=10
   for side=0 to 1
      position object bullet_cur,ship_lx#,ship_ly#,ship_lz#
      rotate object bullet_cur,object angle x(1),object angle y(1),object angle z(1)
      show object bullet_cur
      if side=0
         turn object left bullet_cur,90 : move object bullet_cur,60.0 : turn object right bullet_cur,90
      else
         turn object left bullet_cur,-90 : move object bullet_cur,60.0 : turn object right bullet_cur,-90
      endif
      inc bullet_cur,1
      if bullet_cur>700 then bullet_cur=500
   next side
endif

`timer based movement
lasttime=curtime
curtime=timer()
elapsed#=(curtime-lasttime)/15.0
if elapsed#<=0.0 then elapsed#=0.00001
`Velocity display
ink rgb(255,128,128)+(63*16777216),0 : box mwid-10,mhig,mwid-6,mhig+(ship_sx#*64.0) : box mwid-10,mhig+(ship_sx#*64.0),mwid-6,mhig
ink rgb(128,255,128)+(63*16777216),0 : box mwid-2,mhig,mwid+2,mhig+(ship_sy#*64.0) : box mwid-2,mhig+(ship_sy#*64.0),mwid+2,mhig
ink rgb(128,128,255)+(63*16777216),0 : box mwid+6,mhig,mwid+10,mhig+(ship_sz#*64.0) : box mwid+6,mhig+(ship_sz#*64.0),mwid+10,mhig
text 20,520,"Hull Structure :"+str$(playerhp)
ink rgb(0,255,255),0 : circle mx#,my#+1,10
line mx-15,my,mx+16,my
line mx,my-15,mx,my+16
rem planet nav
if returnkey() = 1 then tog=1-tog : wait 200
if tog = 0
 for scanplanets = 2000 to 2250
   x1# = object position x(1): x2# = object position x(scanplanets)
   y1# = object position y(1): y2# = object position y(scanplanets)
   z1# = object position z(1): z2# = object position z(scanplanets)
   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = sqrt((x# * x#) + (y# * y#) + (z# * z#))
   if dist# > 800000
   hide object scanplanets
   endif
   if object in screen (scanplanets) = 1
   if dist# < 800000
   show object scanplanets
   text (object screen x(scanplanets)),(object screen y(scanplanets)),"P >"+str$(int(dist#))
   endif
   endif
NEXT scanplanets
ENDIF
rem sun nav
if shiftkey() = 1 then tog2=1-tog2 : wait 200
if tog2 = 0
 for scansuns = 100 to 200
   xx1# = object position x(1): xx2# = object position x(scansuns)
   yy1# = object position y(1): yy2# = object position y(scansuns)
   zz1# = object position z(1): zz2# = object position z(scansuns)
   xx# = (xx1# - xx2#)
   yy# = (yy1# - yy2#)
   zz# = (zz1# - zz2#)
   dist2# = sqrt((xx# * xx#) + (yy# * yy#) + (zz# * zz#))
   if dist2# < 500000
    position light 1,xx2#,yy2#,zz2#
    sunspawn = scansuns
    endif
   if object in screen (scansuns) = 1
   text (object screen x(scansuns)),(object screen y(scansuns)),"S >"+str$(int(dist2#))
   endif
NEXT scansuns
ENDIF

return

function asteroid_obj(obj)

LOCK VERTEXDATA FOR LIMB obj,0,1
verts=GET VERTEXDATA VERTEX COUNT()-1

rr#=10.0

for v=0 to verts

   xx#=get vertexdata position x(v)
   zz#=get vertexdata position z(v)
   yy#=get vertexdata position y(v)
   nx#=get vertexdata normals x(v)
   nz#=get vertexdata normals z(v)
   ny#=get vertexdata normals y(v)

   r=obj+xx#+zz#+yy#
   randomize r

   ang=rnd(360)

   inc xx#,nx#*(sin(ang)*rr#)
   inc yy#,ny#*(sin(ang)*rr#)
   inc zz#,nz#*(sin(ang)*rr#)

   set vertexdata position v,xx#,yy#,zz#

next v

unlock vertexdata

set object smoothing obj,90

endfunction

Rem Project: asteroid fields
Rem Created: Thursday, October 20, 2011

Rem ***** Main Source File *****
sync on
sync rate 0
set ambient light 100
set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255
backdrop on ; color backdrop 0

dim sunsarray(100,1,1,1)
dim planetarray(250,1,1)
dim astFarray(300,1,1,1)

for suns = 100 to 200
    make object sphere suns,20000,32,32
    position object suns,rnd(20000000)-10000000,rnd(20000000)-10000000,rnd(20000000)-10000000
    set object light suns,0
    sunsarray(suns-100,1) = object position x(suns) 
    sunsarray(suns-100,1,1) = object position y(suns)
    sunsarray(suns-100,1,1,1) = object position z(suns) 
    'Asteroid field positions 3 positions per sun 
    field1posx = rnd(500000)-250000
    field1posy = rnd(500000)-250000
    field1posz = rnd(500000)-250000
    field2posx = rnd(500000)-250000
    field2posy = rnd(500000)-250000
    field2posz = rnd(500000)-250000
    field3posx = rnd(500000)-250000
    field3posy = rnd(500000)-250000
    field3posz = rnd(500000)-250000
    astFarray(suns-100)= suns
    astFarray(suns-100,1)= field1posx
    astFarray(suns-100,1,1)= field1posy
    astFarray(suns-100,1,1,1)= field1posz
    astFarray(suns)= suns
    astFarray(suns,1)= field2posx
    astFarray(suns,1,1)= field2posy
    astFarray(suns,1,1,1)= field2posz
    astFarray(suns+100)= suns
    astFarray(suns+100,1)= field3posx
    astFarray(suns+100,1,1)= field3posy
    astFarray(suns+100,1,1,1)= field3posz
NEXT suns

for planets = 2000 to 2250
    make object sphere planets,2000,32,32
    numsun = rnd(100)+100
    position object planets,object position x(numsun)+(rnd(500000)-250000),object position y(numsun),object position z(numsun)+(rnd(500000)-250000)
    planetarray(planets-2000,1) = object position x(planets) 
    planetarray(planets-2000,1,1) = object position z(planets)
NEXT planets


for astF = 1500 to 1800
    make object sphere astF,500,rnd(2)+5,rnd(2)+5
    scale object astF,100 + rnd(50),100 + rnd(70),100 + rnd(50)
NEXT astF

position camera 0,object position x(2000)+1500,object position y(2000),object position z(2000)
set camera range 0,1,11000000

do


 rem planet nav
if returnkey() = 1 then tog=1-tog : wait 200
if tog = 0
 for scanplanets = 2000 to 2250
   x1# = camera position x(0): x2# = object position x(scanplanets)
   y1# = camera position y(0): y2# = object position y(scanplanets)
   z1# = camera position z(0): z2# = object position z(scanplanets)
   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = sqrt((x# * x#) + (y# * y#) + (z# * z#))
   if dist# > 800000
   hide object scanplanets
   endif
   if object in screen (scanplanets) = 1
   if dist# < 1000000
   show object scanplanets
   text (object screen x(scanplanets)),(object screen y(scanplanets)),"P >"+str$(int(dist#))
   endif
   endif
NEXT scanplanets
ENDIF
rem sun nav
if shiftkey() = 1 then tog2=1-tog2 : wait 200
if tog2 = 0
 for scansuns = 100 to 200
   xx1# = camera position x(0): xx2# = object position x(scansuns)
   yy1# = camera position y(0): yy2# = object position y(scansuns)
   zz1# = camera position z(0): zz2# = object position z(scansuns)
   xx# = (xx1# - xx2#)
   yy# = (yy1# - yy2#)
   zz# = (zz1# - zz2#)
   dist2# = sqrt((xx# * xx#) + (yy# * yy#) + (zz# * zz#))
   if dist2# < 800000
    sunspawn = scansuns
    endif
   if object in screen (scansuns) = 1
   text (object screen x(scansuns)),(object screen y(scansuns)),"S >"+str$(int(dist2#))
   endif
NEXT scansuns
ENDIF
  sunspawn = sunspawn       
if placeasts = 0
field1x = astFarray(sunspawn,1)
field1y = astFarray(sunspawn,1,1)
field1z = astFarray(sunspawn,1,1,1)
for firstasts = 1500 to 1599
    position object firstasts,field1x+(rnd(10000)-5000),field1y+(rnd(10000)-5000),field1z+(rnd(10000)-5000)
NEXT firstasts
field2x = astFarray(sunspawn-100,1)
field2y = astFarray(sunspawn-100,1,1)
field2z = astFarray(sunspawn-100,1,1,1)
for secondasts = 1600 to 1699
    position object secondasts,field2x+(rnd(10000)-5000),field2y+(rnd(10000)-5000),field2z+(rnd(10000)-5000)
NEXT secondasts
field3x = astFarray(sunspawn+100,1)
field3y = astFarray(sunspawn+100,1,1)
field3z = astFarray(sunspawn+100,1,1,1)
for thirdasts = 1700 to 1800
    position object thirdasts,field3x+(rnd(10000)-5000),field3y+(rnd(10000)-5000),field3z+(rnd(10000)-5000)
    if thirdasts = 1800 then placeasts = 1
NEXT thirdasts
  endif
  text (object screen x(sunspawn)),(object screen y(sunspawn)),"S.System >"+str$(int(dist2#))
  position light 0,object position x(sunspawn),object position y(sunspawn),object position z(sunspawn)
 control camera using arrowkeys 0,20,.5 
 text 20,20,"field1 x ; "+str$(field1x)
 text 20,40,"field1 y ; "+str$(field1y)
 text 20,60,"field1 z ; "+str$(field1z)
sync
LOOP

Rem Project: asteroid fields
Rem Created: Thursday, October 20, 2011

Rem ***** Main Source File *****
sync on
sync rate 0
set ambient light 100
set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255
backdrop on ; color backdrop 0

dim sunsarray(100,1,1,1)
dim planetarray(250,1,1)
dim astFarray(300,1,1,1)

for suns = 100 to 200
    make object sphere suns,20,32,32
    position object suns,rnd(200000)-100000,rnd(200000)-100000,rnd(200000)-100000
    set object light suns,0
    sunsarray(suns-100,1) = object position x(suns) 
    sunsarray(suns-100,1,1) = object position y(suns)
    sunsarray(suns-100,1,1,1) = object position z(suns) 
    'Asteroid field positions 3 positions per sun 
    field1posx = rnd(500)-250
    field1posy = rnd(500)-250
    field1posz = rnd(500)-250
    field2posx = rnd(500)-250
    field2posy = rnd(500)-250
    field2posz = rnd(500)-250
    field3posx = rnd(500)-250
    field3posy = rnd(500)-250
    field3posz = rnd(500)-250
    astFarray(suns-100)= suns   
    astFarray(suns-100,1)= field1posx
    astFarray(suns-100,1,1)= field1posy
    astFarray(suns-100,1,1,1)= field1posz
    astFarray(suns)= suns
    astFarray(suns,1)= field2posx
    astFarray(suns,1,1)= field2posy
    astFarray(suns,1,1,1)= field2posz
    astFarray(suns+100)= suns
    astFarray(suns+100,1)= field3posx
    astFarray(suns+100,1,1)= field3posy
    astFarray(suns+100,1,1,1)= field3posz
NEXT suns

for planets = 2000 to 2250
    make object sphere planets,2,32,32
    numsun = rnd(100)+100
    position object planets,object position x(numsun)+(rnd(500)-250),object position y(numsun),object position z(numsun)+(rnd(500)-200)
    planetarray(planets-2000,1) = object position x(planets) 
    planetarray(planets-2000,1,1) = object position z(planets)
NEXT planets


for astF = 1500 to 1800
    make object sphere astF,.5,rnd(2)+5,rnd(2)+5
    scale object astF,100 + rnd(50),100 + rnd(70),100 + rnd(50)
NEXT astF

position camera 0,object position x(2000)+1.5,object position y(2000),object position z(2000)
set camera range 0,1,110000

do
check = sunspawn
ink rgb(0,0,200),0 
 rem planet nav
if returnkey() = 1 then tog=1-tog : wait 200
if tog = 0
 for scanplanets = 2000 to 2250
   x1# = camera position x(0): x2# = object position x(scanplanets)
   y1# = camera position y(0): y2# = object position y(scanplanets)
   z1# = camera position z(0): z2# = object position z(scanplanets)
   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = sqrt((x# * x#) + (y# * y#) + (z# * z#))
   if dist# > 1000
   hide object scanplanets
   endif
   if object in screen (scanplanets) = 1
   if dist# < 1000
   show object scanplanets
   text (object screen x(scanplanets)),(object screen y(scanplanets)),"P >"+str$(int(dist#))
   endif
   endif
NEXT scanplanets
ENDIF
 
rem sun nav
if shiftkey() = 1 then tog2=1-tog2 : wait 200
if tog2 = 0
 for scansuns = 100 to 200
   xx1# = camera position x(0): xx2# = object position x(scansuns)
   yy1# = camera position y(0): yy2# = object position y(scansuns)
   zz1# = camera position z(0): zz2# = object position z(scansuns)
   xx# = (xx1# - xx2#)
   yy# = (yy1# - yy2#)
   zz# = (zz1# - zz2#)
   dist2# = sqrt((xx# * xx#) + (yy# * yy#) + (zz# * zz#))
   if dist2# < 5000 then (sunspawn) = (scansuns)  
    if object in screen (scansuns) = 1
   text (object screen x(scansuns)),(object screen y(scansuns)),"S >"+str$(int(dist2#))
   endif
   next scansuns
 endif
 if check <> sunspawn then placeast = 0
if placeast = 0
field1x = astFarray(sunspawn,1)
field1y = astFarray(sunspawn,1,1)
field1z = astFarray(sunspawn,1,1,1)
for firstasts = 1500 to 1599
    position object firstasts,object position x(sunspawn)+((field1x) + (rnd(100)-70)),object position y(sunspawn)+((field1y)) + (rnd(100)-50),object position z(sunspawn)+((field1z) + (rnd(100)-70))     
NEXT firstasts
field2x = astFarray(sunspawn-100,1)
field2y = astFarray(sunspawn-100,1,1)
field2z = astFarray(sunspawn-100,1,1,1)
for secondasts = 1600 to 1699
    position object secondasts,object position x(sunspawn)+((field2x) + (rnd(100)-70)),object position y(sunspawn)+((field2y)) + (rnd(100)-50),object position z(sunspawn)+((field2z) + (rnd(100)-70))     
NEXT secondasts
field3x = astFarray(sunspawn+100,1)
field3y = astFarray(sunspawn+100,1,1)
field3z = astFarray(sunspawn+100,1,1,1)
for thirdasts = 1700 to 1800
    position object thirdasts,object position x(sunspawn)+((field3x) + (rnd(100)-70)),object position y(sunspawn)+((field3y)) + (rnd(100)-50),object position z(sunspawn)+((field3z) + (rnd(100)-70))     
    if thirdasts = 1800 then placeast = 1
NEXT thirdasts
 endif
  text (object screen x(sunspawn)),(object screen y(sunspawn)),"S.System >"+str$(int(dist2#))
  position light 0,object position x(sunspawn),object position y(sunspawn),object position z(sunspawn)
 control camera using arrowkeys 0,15,.5 
 ink rgb(200,0,0),0
 text object screen x(1500),object screen y(1500),"< field1"
 text object screen x(1600),object screen y(1600),"< field2"
 text object screen x(1700),object screen y(1700),"< field3"
 text 20,20,"sunspawn = "+str$(sunspawn)
 text 20,40,"astFarray(sunspawn,1)"+str$(astFarray(sunspawn,1))
text 20,60,"astFarray(sunspawn,1,1)"+str$(astFarray(sunspawn,1,1))
text 20,80,"astFarray(sunspawn,1,1,1)"+str$(astFarray(sunspawn,1,1,1))
sync
LOOP

Rem Project: asteroid fields
Rem Created: Thursday, October 20, 2011

Rem ***** Main Source File *****
sync on
sync rate 0
set ambient light 100
set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255
backdrop on ; color backdrop 0

dim sunsarray(100,1,1,1)
dim planetarray(250,1,1)
dim astFarray(300,1,1,1)

for suns = 100 to 200
    make object sphere suns,20,32,32
    position object suns,rnd(2000000)-1000000,rnd(2000000)-1000000,rnd(2000000)-1000000
    set object light suns,0
    sunsarray(suns-100,1) = object position x(suns) 
    sunsarray(suns-100,1,1) = object position y(suns)
    sunsarray(suns-100,1,1,1) = object position z(suns) 
    'Asteroid field positions 3 positions per sun 
    field1posx = rnd(5000)-2500; randomize rnd(500000)
    field1posy = rnd(5000)-2500; randomize rnd(500000)
    field1posz = rnd(5000)-2500; randomize rnd(500000)
    field2posx = rnd(5000)-2500; randomize rnd(500000)
    field2posy = rnd(5000)-2500; randomize rnd(500000)
    field2posz = rnd(5000)-2500; randomize rnd(500000)
    field3posx = rnd(5000)-2500; randomize rnd(500000)
    field3posy = rnd(5000)-2500; randomize rnd(500000)
    field3posz = rnd(5000)-2500; randomize rnd(500000)
    astFarray(suns-100)= suns   
    astFarray(suns-100,1)= field1posx
    astFarray(suns-100,1,1)= field1posy
    astFarray(suns-100,1,1,1)= field1posz
    astFarray(suns)= suns
    astFarray(suns,1)= field2posx
    astFarray(suns,1,1)= field2posy
    astFarray(suns,1,1,1)= field2posz
    astFarray(suns+100)= suns
    astFarray(suns+100,1)= field3posx
    astFarray(suns+100,1,1)= field3posy
    astFarray(suns+100,1,1,1)= field3posz
NEXT suns

for planets = 2000 to 2250
    make object sphere planets,2,32,32
    numsun = rnd(100)+100
    position object planets,object position x(numsun)+(rnd(5000)-2500),object position y(numsun),object position z(numsun)+(rnd(5000)-2500)
    planetarray(planets-2000,1) = object position x(planets) 
    planetarray(planets-2000,1,1) = object position z(planets)
NEXT planets


for astF = 1500 to 1800
    make object sphere astF,.5,rnd(2)+5,rnd(2)+5
    scale object astF,100 + rnd(50),100 + rnd(70),100 + rnd(50)
NEXT astF

position camera 0,object position x(2000)+2,object position y(2000),object position z(2000)
set camera range 0,1,1100000

do
check = sunspawn
ink rgb(0,0,200),0 
 rem planet nav
if returnkey() = 1 then tog=1-tog : wait 200
if tog = 0
 for scanplanets = 2000 to 2250
   x1# = camera position x(0): x2# = object position x(scanplanets)
   y1# = camera position y(0): y2# = object position y(scanplanets)
   z1# = camera position z(0): z2# = object position z(scanplanets)
   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = sqrt((x# * x#) + (y# * y#) + (z# * z#))
   if dist# > 50000
   hide object scanplanets
   endif
   if object in screen (scanplanets) = 1
   if dist# < 50000
   show object scanplanets
   text (object screen x(scanplanets)),(object screen y(scanplanets)),"P >"+str$(int(dist#))
   endif
   endif
NEXT scanplanets
ENDIF
 
rem sun nav
if shiftkey() = 1 then tog2=1-tog2 : wait 200
if tog2 = 0
 for scansuns = 100 to 200
   xx1# = camera position x(0): xx2# = object position x(scansuns)
   yy1# = camera position y(0): yy2# = object position y(scansuns)
   zz1# = camera position z(0): zz2# = object position z(scansuns)
   xx# = (xx1# - xx2#)
   yy# = (yy1# - yy2#)
   zz# = (zz1# - zz2#)
   dist2# = sqrt((xx# * xx#) + (yy# * yy#) + (zz# * zz#))
   if dist2# < 50000 then (sunspawn) = (scansuns)  
    if object in screen (scansuns) = 1
   text (object screen x(scansuns)),(object screen y(scansuns)),"S >"+str$(int(dist2#))
   endif
   next scansuns
 endif
 if check <> sunspawn then placeast = 0
if placeast = 0
field1x = astFarray(sunspawn,1)
field1y = astFarray(sunspawn,1,1)
field1z = astFarray(sunspawn,1,1,1)
for firstasts = 1500 to 1599
    position object firstasts,object position x(sunspawn)+((field1x) + (rnd(150)-75)),object position y(sunspawn)+((field1y)) + (rnd(50)-25),object position z(sunspawn)+((field1z) +  (rnd(150)-75)) 
NEXT firstasts
field2x = astFarray(sunspawn-100,1)
field2y = astFarray(sunspawn-100,1,1)
field2z = astFarray(sunspawn-100,1,1,1)
for secondasts = 1600 to 1699
    position object secondasts,object position x(sunspawn)+((field2x) + (rnd(150)-75)),object position y(sunspawn)+((field2y)) + (rnd(50)-25),object position z(sunspawn)+((field2z) + (rnd(150)-75))  
NEXT secondasts
field3x = astFarray(sunspawn+100,1)
field3y = astFarray(sunspawn+100,1,1)
field3z = astFarray(sunspawn+100,1,1,1)
for thirdasts = 1700 to 1800
    position object thirdasts,object position x(sunspawn)+((field3x) + (rnd(150)-75)),object position y(sunspawn)+((field3y)) + (rnd(50)-25),object position z(sunspawn)+((field3z) + (rnd(150)-75))     
    if thirdasts = 1800 then placeast = 1
NEXT thirdasts
 endif
  text (object screen x(sunspawn)),(object screen y(sunspawn)),"S.System >"+str$(int(dist2#))
  position light 0,object position x(sunspawn),object position y(sunspawn),object position z(sunspawn)
 control camera using arrowkeys 0,15,.5 
 ink rgb(200,0,0),0
 text object screen x(1500),object screen y(1500),"< field1"
 text object screen x(1600),object screen y(1600),"< field2"
 text object screen x(1700),object screen y(1700),"< field3"
 text 20,20,"sunspawn = "+str$(sunspawn)
 text 20,40,"astFarray(sunspawn,1)"+str$(astFarray(sunspawn,1))
text 20,60,"astFarray(sunspawn,1,1)"+str$(astFarray(sunspawn,1,1))
text 20,80,"astFarray(sunspawn,1,1,1)"+str$(astFarray(sunspawn,1,1,1))
sync
LOOP

Rem Project: asteroid fields
Rem Created: Thursday, October 20, 2011

Rem ***** Main Source File *****
sync on
sync rate 0
set ambient light 100
set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255
backdrop on ; color backdrop 0

dim sunsarray(100,1,1,1)
dim planetarray(250,1,1)
dim astFarray(300,1,1,1)

for suns = 100 to 200
    make object sphere suns,25,32,32
    position object suns,rnd(2000000)-1000000,rnd(2000000)-1000000,rnd(2000000)-1000000
    set object light suns,0
    sunsarray(suns-100,1) = object position x(suns) 
    sunsarray(suns-100,1,1) = object position y(suns)
    sunsarray(suns-100,1,1,1) = object position z(suns) 
    'Asteroid field positions 3 positions per sun 
    field1posx = rnd(5000)-2500; randomize rnd(500000)
    field1posy = rnd(5000)-2500; randomize rnd(500000)
    field1posz = rnd(5000)-2500; randomize rnd(500000)
    field2posx = rnd(5000)-2500; randomize rnd(500000)
    field2posy = rnd(5000)-2500; randomize rnd(500000)
    field2posz = rnd(5000)-2500; randomize rnd(500000)
    field3posx = rnd(5000)-2500; randomize rnd(500000)
    field3posy = rnd(5000)-2500; randomize rnd(500000)
    field3posz = rnd(5000)-2500; randomize rnd(500000)
    astFarray(suns-100)= suns   
    astFarray(suns-100,1)= field1posx
    astFarray(suns-100,1,1)= field1posy
    astFarray(suns-100,1,1,1)= field1posz
    astFarray(suns)= suns
    astFarray(suns,1)= field2posx
    astFarray(suns,1,1)= field2posy
    astFarray(suns,1,1,1)= field2posz
    astFarray(suns+100)= suns
    astFarray(suns+100,1)= field3posx
    astFarray(suns+100,1,1)= field3posy
    astFarray(suns+100,1,1,1)= field3posz
NEXT suns

for planets = 2000 to 2250
    make object sphere planets,5,32,32
    numsun = rnd(100)+100
    position object planets,object position x(numsun)+(rnd(5000)-2500),object position y(numsun),object position z(numsun)+(rnd(5000)-2500)
    planetarray(planets-2000,1) = object position x(planets) 
    planetarray(planets-2000,1,1) = object position z(planets)
NEXT planets


for astF = 1500 to 1800
    make object sphere astF,1,rnd(2)+5,rnd(2)+5
    scale object astF,100 + rnd(50),100 + rnd(70),100 + rnd(50)
NEXT astF

position camera 0,object position x(2000)+2,object position y(2000),object position z(2000)
set camera range 0,1,1100000

do
check = sunspawn
ink rgb(0,0,200),0 
 rem planet nav
if returnkey() = 1 then tog=1-tog : wait 200
if tog = 0
 for scanplanets = 2000 to 2250
   x1# = camera position x(0): x2# = object position x(scanplanets)
   y1# = camera position y(0): y2# = object position y(scanplanets)
   z1# = camera position z(0): z2# = object position z(scanplanets)
   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = sqrt((x# * x#) + (y# * y#) + (z# * z#))
   if dist# > 50000
   hide object scanplanets
   endif
   if object in screen (scanplanets) = 1
   if dist# < 50000
   show object scanplanets
   text (object screen x(scanplanets)),(object screen y(scanplanets)),"P >"+str$(int(dist#))
   endif
   endif
NEXT scanplanets
ENDIF
 
rem sun nav
if shiftkey() = 1 then tog2=1-tog2 : wait 200
if tog2 = 0
 for scansuns = 100 to 200
   xx1# = camera position x(0): xx2# = object position x(scansuns)
   yy1# = camera position y(0): yy2# = object position y(scansuns)
   zz1# = camera position z(0): zz2# = object position z(scansuns)
   xx# = (xx1# - xx2#)
   yy# = (yy1# - yy2#)
   zz# = (zz1# - zz2#)
   dist2# = sqrt((xx# * xx#) + (yy# * yy#) + (zz# * zz#))
   if dist2# < 50000 then (sunspawn) = (scansuns)  
    if object in screen (scansuns) = 1
   text (object screen x(scansuns)),(object screen y(scansuns)),"S >"+str$(int(dist2#))
   endif
   next scansuns
 endif
 if check <> sunspawn then placeast = 0
if placeast = 0
field1x = astFarray(sunspawn,1)
field1y = astFarray(sunspawn,1,1)
field1z = astFarray(sunspawn,1,1,1)
for firstasts = 1500 to 1599
    position object firstasts,object position x(sunspawn)+((field1x) +  (astFarray(firstasts-1500,1)/10)),object position y(sunspawn)+((field1y) + (astFarray(firstasts-1500,1,1)/10)),object position z(sunspawn)+((field1z) + (astFarray(firstasts-1500,1,1,1)/10))
NEXT firstasts
field2x = astFarray(sunspawn-100,1)
field2y = astFarray(sunspawn-100,1,1)
field2z = astFarray(sunspawn-100,1,1,1)
for secondasts = 1600 to 1699
    position object secondasts,object position x(sunspawn)+((field2x) + (astFarray(secondasts-1500,1)/10)),object position y(sunspawn)+((field2y) + (astFarray(secondasts-1500,1,1)/10)),object position z(sunspawn)+((field2z) + (astFarray(secondasts-1500,1,1,1)/10)) 
NEXT secondasts
field3x = astFarray(sunspawn+100,1)
field3y = astFarray(sunspawn+100,1,1)
field3z = astFarray(sunspawn+100,1,1,1)
for thirdasts = 1700 to 1800
    position object thirdasts,object position x(sunspawn)+((field3x) + (astFarray(thirdasts-1500,1)/10)),object position y(sunspawn)+((field3y) + (astFarray(thirdasts-1500,1,1)/10)),object position z(sunspawn)+((field3z) + (astFarray(thirdasts-1500,1,1,1)/10))    
    if thirdasts = 1800 then placeast = 1
NEXT thirdasts
 endif
  text (object screen x(sunspawn)),(object screen y(sunspawn)),"S.System >"+str$(int(dist2#))
  position light 0,object position x(sunspawn),object position y(sunspawn),object position z(sunspawn)
 control camera using arrowkeys 0,15,.5 
 ink rgb(200,0,0),0
 text object screen x(1500),object screen y(1500),"< field1"
 text object screen x(1600),object screen y(1600),"< field2"
 text object screen x(1700),object screen y(1700),"< field3"
 text 20,20,"sunspawn = "+str$(sunspawn)
 text 20,40,"astFarray(sunspawn,1)"+str$(astFarray(sunspawn,1))
text 20,60,"astFarray(sunspawn,1,1)"+str$(astFarray(sunspawn,1,1))
text 20,80,"astFarray(sunspawn,1,1,1)"+str$(astFarray(sunspawn,1,1,1))
if spacekey() = 1 then chp =(rnd(100)+100); position camera 0,object position x(chp),object position y(chp),object position z(chp);wait 200
sync
LOOP

Rem Project: asteroid fields
Rem Created: Thursday, October 20, 2011

Rem ***** Main Source File *****
sync on
sync rate 0
set ambient light 100
set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255
backdrop on ; color backdrop 0

dim sunsarray(100,1,1,1)
dim planetarray(250,1,1)
dim astFarray(300,1,1,1)

for suns = 100 to 200
    make object sphere suns,45,32,32
    position object suns,rnd(2000000)-1000000,rnd(2000000)-1000000,rnd(2000000)-1000000
    set object light suns,1
    fade object suns,150
    sunsarray(suns-100,1) = object position x(suns) 
    sunsarray(suns-100,1,1) = object position y(suns)
    sunsarray(suns-100,1,1,1) = object position z(suns)
    sunsarray(suns-100) = rnd(1000); randomize rnd(500000000)
    'Asteroid field positions 1 positions per asteroid (300total) 
    field1posx = rnd(5000)-2500; randomize rnd(500000)
    field1posy = rnd(5000)-2500; randomize rnd(50000000)
    field1posz = rnd(5000)-2500; randomize rnd(500000)
    field2posx = rnd(5000)-2500; randomize rnd(500000)
    field2posy = rnd(5000)-2500; randomize rnd(50000000)
    field2posz = rnd(5000)-2500; randomize rnd(500000)
    field3posx = rnd(5000)-2500; randomize rnd(50000000)
    field3posy = rnd(5000)-2500; randomize rnd(500000)
    field3posz = rnd(5000)-2500; randomize rnd(50000000)
    astFarray(suns-100)= suns   
    astFarray(suns-100,1)= field1posx
    astFarray(suns-100,1,1)= field1posy
    astFarray(suns-100,1,1,1)= field1posz
    astFarray(suns)= suns
    astFarray(suns,1)= field2posx
    astFarray(suns,1,1)= field2posy
    astFarray(suns,1,1,1)= field2posz
    astFarray(suns+100)= suns
    astFarray(suns+100,1)= field3posx
    astFarray(suns+100,1,1)= field3posy
    astFarray(suns+100,1,1,1)= field3posz
NEXT suns

for planets = 2000 to 2250
    make object sphere planets,15,32,32
    numsun = rnd(100)+100
    position object planets,object position x(numsun)+(rnd(5000)-2500),object position y(numsun),object position z(numsun)+(rnd(5000)-2500)
    planetarray(planets-2000,1) = object position x(planets) 
    planetarray(planets-2000,1,1) = object position z(planets)
NEXT planets


for astF = 1500 to 1800
    make object sphere astF,5,rnd(2)+5,rnd(2)+5
    scale object astF,100 + rnd(50),100 + rnd(70),100 + rnd(50)
NEXT astF
for Fplain = 1801 to 1803
    make object plain Fplain,1,1
    hide object Fplain
NEXT
position camera 0,object position x(2000)+2,object position y(2000),object position z(2000)
set camera range 0,1,1100000

do
check = sunspawn
ink rgb(0,0,200),0 
 rem planet nav
if returnkey() = 1 then tog=1-tog : wait 200
if tog = 0
 for scanplanets = 2000 to 2250
   x1# = camera position x(0): x2# = object position x(scanplanets)
   y1# = camera position y(0): y2# = object position y(scanplanets)
   z1# = camera position z(0): z2# = object position z(scanplanets)
   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = sqrt((x# * x#) + (y# * y#) + (z# * z#))
   if dist# > 50000
   hide object scanplanets
   endif
   if object in screen (scanplanets) = 1
   if dist# < 50000
   show object scanplanets
   text (object screen x(scanplanets)),(object screen y(scanplanets)),"P >"+str$(int(dist#))
   endif
   endif
NEXT scanplanets
ENDIF
 
rem sun nav
if shiftkey() = 1 then tog2=1-tog2 : wait 200
if tog2 = 0
 for scansuns = 100 to 200
   xx1# = camera position x(0): xx2# = object position x(scansuns)
   yy1# = camera position y(0): yy2# = object position y(scansuns)
   zz1# = camera position z(0): zz2# = object position z(scansuns)
   xx# = (xx1# - xx2#)
   yy# = (yy1# - yy2#)
   zz# = (zz1# - zz2#)
   dist2# = sqrt((xx# * xx#) + (yy# * yy#) + (zz# * zz#))
   if dist2# < 50000 then (sunspawn) = (scansuns)  
    if object in screen (scansuns) = 1
   text (object screen x(scansuns)),(object screen y(scansuns)),"S >"+str$(int(dist2#))
   endif
   next scansuns
 endif

if placeast = 0
field1x = astFarray(sunspawn,1)
field1y = astFarray(sunspawn,1,1)
field1z = astFarray(sunspawn,1,1,1)
for firstasts = 1500 to 1599
    position object firstasts,object position x(sunspawn)+((field1x) +  (astFarray(firstasts-1500,1)/10)),object position y(sunspawn)+((field1y) + (astFarray(firstasts-1500,1,1)/10)),object position z(sunspawn)+((field1z) + (astFarray(firstasts-1500,1,1,1)/10))
NEXT firstasts
field2x = astFarray(sunspawn-100,1)
field2y = astFarray(sunspawn-100,1,1)
field2z = astFarray(sunspawn-100,1,1,1)
for secondasts = 1600 to 1699
    position object secondasts,object position x(sunspawn)+((field2x) + (astFarray(secondasts-1500,1)/10)),object position y(sunspawn)+((field2y) + (astFarray(secondasts-1500,1,1)/10)),object position z(sunspawn)+((field2z) + (astFarray(secondasts-1500,1,1,1)/10)) 
NEXT secondasts
field3x = astFarray(sunspawn+100,1)
field3y = astFarray(sunspawn+100,1,1)
field3z = astFarray(sunspawn+100,1,1,1)
for thirdasts = 1700 to 1800
    position object thirdasts,object position x(sunspawn)+((field3x) + (astFarray(thirdasts-1500,1)/10)),object position y(sunspawn)+((field3y) + (astFarray(thirdasts-1500,1,1)/10)),object position z(sunspawn)+((field3z) + (astFarray(thirdasts-1500,1,1,1)/10))    
    if thirdasts = 1800 
     placeast = 1
  position object 1801,object position x(sunspawn)+(field1x),object position y(sunspawn)+(field1y),object position z(sunspawn)+(field1z)
  position object 1802,object position x(sunspawn)+(field2x),object position y(sunspawn)+(field2y),object position z(sunspawn)+(field2z)
  position object 1803,object position x(sunspawn)+(field3x),object position y(sunspawn)+(field3y),object position z(sunspawn)+(field3z)
  endif
NEXT thirdasts
 endif

 
if check <> sunspawn 
  placeast = 0
  position light 0,object position x(sunspawn),object position y(sunspawn),object position z(sunspawn)
    if (sunsarray(sunspawn-100)) > 500 
  color light 0, rgb((sunsarray(sunspawn-100))/3,0,0)
  set object emissive (sunspawn),rgb((sunsarray(sunspawn-100))/3,0,0)
  endif
    if (sunsarray(sunspawn-100)) < 500 
                  color light 0, rgb(0,0,(sunsarray(sunspawn-100))/2)
  set object emissive (sunspawn),rgb(0,0,(sunsarray(sunspawn-100))/2)
  endif
  if (sunsarray(sunspawn-100)) < 255 
                  color light 0, rgb(0,sunsarray(sunspawn-100)/4,sunsarray(sunspawn-100))
  set object emissive (sunspawn),rgb(0,sunsarray(sunspawn-100)/4,sunsarray(sunspawn-100))
  endif
  if (sunsarray(sunspawn-100)) >745 
                  color light 0, rgb(sunsarray(sunspawn-100)/4,(sunsarray(sunspawn-100)/4)/4,0)
  set object emissive (sunspawn),rgb(sunsarray(sunspawn-100)/4,(sunsarray(sunspawn-100)/4)/4,0)
  endif
 endif
 
 if object in screen (sunspawn) = 1 then text (object screen x(sunspawn)),(object screen y(sunspawn)),"S.System >"+str$(int(dist2#))
 control camera using arrowkeys 0,15,.5 
 ink rgb(200,0,0),0
 if object in screen (1801) = 1 then  text object screen x(1801),object screen y(1801),"< field1"
 if object in screen (1802) = 1 then  text object screen x(1802),object screen y(1802),"< field2"
 if object in screen (1803) = 1 then  text object screen x(1803),object screen y(1803),"< field3"
 text 20,20,"sunspawn = "+str$(sunspawn)
if spacekey() = 1 then chp =(rnd(100)+100); position camera 0,object position x(chp),object position y(chp),object position z(chp);wait 200
randomize rnd(500000)
sync
LOOP

Rem Project: space epic
Rem Created: Thursday, October 13, 2011

Rem ***** Main Source File *****
sync on
sync rate 0
set ambient light 100
set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255
backdrop on ; color backdrop 0
gosub maketextures
dim sunsarray(100,1,1,1)
dim planetarray(250,1,1)
dim astFarray(300,1,1,1)
make object cube 1,5;hide object 1
make mesh from object 1,1
add limb 1,1,1
offset limb 1,1,0,0,-75.0
delete mesh 1

for suns = 100 to 200
    make object sphere suns,100000,32,32
    position object suns,rnd(2000000)-1000000,rnd(2000000)-1000000,rnd(2000000)-1000000 'position huge sun
    if object collision (suns,suns) = 1
    position object suns,rnd(2000000)-1000000,rnd(2000000)-1000000,rnd(2000000)-1000000 ' when huge sun touches another sun reposition it
    endif
    set object light suns,1
    fade object suns,120
    sunsarray(suns-100,1) = object position x(suns) 
    sunsarray(suns-100,1,1) = object position y(suns)
    sunsarray(suns-100,1,1,1) = object position z(suns)
    sunsarray(suns-100) = rnd(1000); randomize rnd(500000000)
    ' color suns reddish,blueish,yellowish,cyanish (no greens)
     if (sunsarray(suns-100)) > 500 
  set object emissive (suns),rgb((sunsarray(suns-100))/3,0,0)
  endif
    if (sunsarray(suns-100)) < 500 
  set object emissive (suns),rgb(0,0,(sunsarray(suns-100))/2)
  endif
  if (sunsarray(suns-100)) < 255 
  set object emissive (suns),rgb(0,sunsarray(suns-100)/4,sunsarray(suns-100))
  endif
  if (sunsarray(suns-100)) >745 
  set object emissive (suns),rgb(sunsarray(suns-100)/4,(sunsarray(suns-100)/4)/4,0)
  endif
    'Asteroid field positions 1 positions per asteroid (300total) 
    field1posx = rnd(50000)-25000; randomize rnd(500000)
    field1posy = rnd(50000)-25000; randomize rnd(50000000)
    field1posz = rnd(50000)-25000; randomize rnd(500000)
    field2posx = rnd(50000)-25000; randomize rnd(500000)
    field2posy = rnd(50000)-25000; randomize rnd(50000000)
    field2posz = rnd(50000)-25000; randomize rnd(500000)
    field3posx = rnd(50000)-25000; randomize rnd(50000000)
    field3posy = rnd(50000)-25000; randomize rnd(500000)
    field3posz = rnd(50000)-25000; randomize rnd(50000000)
    astFarray(suns-100)= suns   
    astFarray(suns-100,1)= field1posx
    astFarray(suns-100,1,1)= field1posy
    astFarray(suns-100,1,1,1)= field1posz
    astFarray(suns)= suns
    astFarray(suns,1)= field2posx
    astFarray(suns,1,1)= field2posy
    astFarray(suns,1,1,1)= field2posz
    astFarray(suns+100)= suns
    astFarray(suns+100,1)= field3posx
    astFarray(suns+100,1,1)= field3posy
    astFarray(suns+100,1,1,1)= field3posz
NEXT suns
'scale the suns to correct size 
for suns = 100 to 200
    scale object suns,1,1,1
NEXT suns
for planets = 2000 to 2250
    if object exist(2000) = 0 then make object sphere 2000,500,32,32 else instance object planets,2000
    numsun = rnd(100)+100
    position object planets,object position x(numsun)+(rnd(50000)-25000),object position y(numsun),object position z(numsun)+(rnd(50000)-25000)
    if object collision (planets,numsun) = 1 or object collision (planets,planets) = 1
    position object planets,object position x(numsun)+(rnd(50000)-25000),object position y(numsun),object position z(numsun)+(rnd(50000)-25000)
    endif
    planetarray(planets-2000,1) = object position x(planets) 
    planetarray(planets-2000,1,1) = object position z(planets)
NEXT planets

for planets = 2000 to 2250
    scale object planets,10,10,10
    texture object planets,32+rnd(5)
NEXT planets

`make floating asteroids
for ast = 1000 to 1100
    make object sphere ast,15,rnd(3)+2,rnd(2)+5
    asteroid_obj(ast)
    rotate object ast,rnd(360),rnd(360),rnd(360)
    fix object pivot ast
    texture object ast,31
    fade object ast,130
NEXT ast
`make static asteroids
for astF = 1500 to 1800
    if object exist(1500)=0 then make object sphere 1500,30 ,rnd(2)+5,rnd(2)+5 else instance object astF,1500
    scale object astF,100 + rnd(50),100 + rnd(70),100 + rnd(50)
        texture object astF,31
        fade object astF,155
NEXT astF
for Fplain = 1801 to 1803
    make object plain Fplain,1,1
    hide object Fplain
NEXT

`make bullets
for obs=500 to 700
   if object exist(500)=0 then make object cube obs,100 else instance object obs,500
   scale object obs,5,5,100
   set object light obs,0
   ghost object on obs
   hide object obs
next obs


position camera 0,object position x(100)+3000,object position y(100),object position z(100)
set camera range 0,1,11000000
set ambient light 45
swid=screen width()
shig=screen height()
mwid=swid/2
mhig=shig/2
gosub starrysphere
sunspawn = 100 
global lasttime curtime
global elapsed#
global bullet_cur=500
global fire_delay#
curtime=timer()
lasttime=curtime

do
    
position object 20,camera position x(0),camera position y(0),camera position z(0)         
ink rgb(200,80,0),0      
' FPS based game clock 
cmin = min
  inc GameTime,1 
   if GameTime => screen fps()  
     GameTime = 0 
     inc sec , 1
   endif
 if sec > 59  then sec = 0 ; inc min,1
 if min > 59  then  min = 0 ;inc hour,1
   text 540,20,"{"+str$(hours)
   text 600,20,":"+str$(min)
   text 630,20,":"+str$(sec)
    text 660,20,"}                   FPS :"+str$(screen fps())
check = sunspawn
  ink rgb(0,70,200),0
rem sun nav
if shiftkey() = 1 then tog2=1-tog2 : wait 200
if tog2 = 0 or GameTime = 0 
 for scansuns = 100 to 200
   xx1# = camera position x(0): xx2# = object position x(scansuns)
   yy1# = camera position y(0): yy2# = object position y(scansuns)
   zz1# = camera position z(0): zz2# = object position z(scansuns)
   xx# = (xx1# - xx2#)
   yy# = (yy1# - yy2#)
   zz# = (zz1# - zz2#)
   dist2# = sqrt((xx# * xx#) + (yy# * yy#) + (zz# * zz#))
   if dist2# < 100000 then (sunspawn) = (scansuns)  
    if object in screen (scansuns) = 1
   text (object screen x(scansuns)),(object screen y(scansuns)),"S >"+str$(int(dist2#))
   endif
   next scansuns
 endif

ink rgb(0,200,20),0
 rem planet nav
if returnkey() = 1 then tog=1-tog : wait 200
if tog = 0 or GameTime = 60 
 for scanplanets = 2000 to 2250
   x1# = camera position x(0): x2# = object position x(scanplanets)
   y1# = camera position y(0): y2# = object position y(scanplanets)
   z1# = camera position z(0): z2# = object position z(scanplanets)
   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = sqrt((x# * x#) + (y# * y#) + (z# * z#))
   if dist# > 70000
   hide object scanplanets
   endif
   if object in screen (scanplanets) = 1
   if dist# < 70000
   show object scanplanets
   endif
   if dist# < 100000
      text (object screen x(scanplanets)),(object screen y(scanplanets)),"P >"+str$(int(dist#))
   endif
   endif
NEXT scanplanets
ENDIF

if placeast = 0
field1x = astFarray(sunspawn,1)
field1y = astFarray(sunspawn,1,1)
field1z = astFarray(sunspawn,1,1,1)
for firstasts = 1500 to 1599
    position object firstasts,object position x(sunspawn)+((field1x) +  (astFarray(firstasts-1500,1)/10)),object position y(sunspawn)+((field1y) + (astFarray(firstasts-1500,1,1)/20)),object position z(sunspawn)+((field1z) + (astFarray(firstasts-1500,1,1,1)/10))
NEXT firstasts
field2x = astFarray(sunspawn-100,1)
field2y = astFarray(sunspawn-100,1,1)
field2z = astFarray(sunspawn-100,1,1,1)
for secondasts = 1600 to 1699
    position object secondasts,object position x(sunspawn)+((field2x) + (astFarray(secondasts-1500,1)/10)),object position y(sunspawn)+((field2y) + (astFarray(secondasts-1500,1,1)/20)),object position z(sunspawn)+((field2z) + (astFarray(secondasts-1500,1,1,1)/10)) 
NEXT secondasts
field3x = astFarray(sunspawn+100,1)
field3y = astFarray(sunspawn+100,1,1)
field3z = astFarray(sunspawn+100,1,1,1)
for thirdasts = 1700 to 1800
    position object thirdasts,object position x(sunspawn)+((field3x) + (astFarray(thirdasts-1500,1)/10)),object position y(sunspawn)+((field3y) + (astFarray(thirdastsasts-1500,1,1)/20)),object position z(sunspawn)+((field3z) + (astFarray(thirdasts-1500,1,1,1)/10))    
    if thirdasts = 1800 
     placeast = 1
  position object 1801,object position x(sunspawn)+(field1x),object position y(sunspawn)+((field1y),object position z(sunspawn)+(field1z)
  position object 1802,object position x(sunspawn)+(field2x),object position y(sunspawn)+((field2y),object position z(sunspawn)+(field2z)
  position object 1803,object position x(sunspawn)+(field3x),object position y(sunspawn)+((field3y),object position z(sunspawn)+(field3z)
  endif
NEXT thirdasts
 endif

' set the light color the same the sun color 
if check <> sunspawn 
  placeast = 0
  position light 0,object position x(sunspawn),object position y(sunspawn),object position z(sunspawn)
    if (sunsarray(sunspawn-100)) > 500 
  color light 0, rgb((sunsarray(sunspawn-100))/3,0,0)
  endif
    if (sunsarray(sunspawn-100)) < 500 
                  color light 0, rgb(0,0,(sunsarray(sunspawn-100))/2)
  endif
  if (sunsarray(sunspawn-100)) < 255 
                  color light 0, rgb(0,sunsarray(sunspawn-100)/4,sunsarray(sunspawn-100))
  endif
  if (sunsarray(sunspawn-100)) > 745 
                  color light 0, rgb(sunsarray(sunspawn-100)/4,(sunsarray(sunspawn-100)/4)/4,0)
  endif
 endif
 
 if object in screen (sunspawn) = 1 then text (object screen x(sunspawn)-80),(object screen y(sunspawn)),"> S.System" 
 ink rgb(200,0,0),0
 if object in screen (1801) = 1 then  text object screen x(1801),object screen y(1801),"< field1"
 if object in screen (1802) = 1 then  text object screen x(1802),object screen y(1802),"< field2"
 if object in screen (1803) = 1 then  text object screen x(1803),object screen y(1803),"< field3"
 ink rgb(200,60,0),0
 text 20,20,"sunspawn = "+str$(sunspawn)
 

rem update camera pos
position camera (0),limb position x(1,1),limb position y(1,1),limb position z(1,1)
`Rotate camera with object 1 - good way to avoid camera rolling
rotate camera object angle x(1),object angle y(1),object angle z(1)
`Update skysphere position
position object 20,camera position x(),camera position y(),camera position z()
text 20,700,"speed : "+str$(speed#)
text 100,100,str$(bullet_cur)
gosub user_input_screen
gosub asteroid
gosub update_bullets
if spacekey() = 1 
 chp =(rnd(100)+100)
 position object 1,object position x(chp),object position y(chp),object position z(chp)
endif
sync
LOOP

update_bullets:
   for o=500 to 700
      if object visible(o)=1
         move object o,75.0*elapsed#
      endif
   next o
return

maketextures:
create bitmap 1,512,512
`starscape
set current bitmap 1
cls
for a=0 to 256
   c=rnd(250)+5
   ink rgb(c,c,c),0
   if rnd(10)=1 then ink rgb(c,c*0.75,c*0.5),0
   if rnd(10)=1 then ink rgb(c*0.5,c*0.75,c),0
   dot rnd(512),rnd(512)
next a
get image 20,0,0,512,512,1
`nebula
for ii=21 to 30
cls
xx#=256.0
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   b=((ii-20)*25)*am#
   d=(255-((ii-20)*25))*am#
   ink rgb(c,b,d),0
   line (a+128.0),xx#,(a+128.0)+(sin(rnd(360))*16.0),xx#+(sin(rnd(360))*16.0)
   inc xx#,sin(rnd(360))*3.0
next a
blur bitmap 1,4
get image ii,0,0,512,512,1
next ii
`asteroid texture
cls
for s=0 to 60
xx#=rnd(256)
yy#=rnd(256)
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   ink rgb(c,c,c),0
   for xo=-256 to 256 step 256
   for yo=-256 to 256 step 256
   line yy#+xo,xx#+yo,yy#+(sin(rnd(360))*16.0)+xo,xx#+(sin(rnd(360))*16.0)+yo
   next yo
   next xo
   inc xx#,sin(rnd(360))*3.0
   inc yy#,sin(rnd(360))*3.0
   if xx#<0.0 then inc xx#,256.0
   if yy#<0.0 then inc yy#,256.0
   if xx#>255.0 then dec xx#,256.0
   if yy#>255.0 then dec yy#,256.0
next a
next s
blur bitmap 1,4
get image 31,128,128,128+256,128+256,1
`planet textures
for i=0 to 5
cls rgb(0,0,255)
for s=0 to 20
xx#=rnd(256)
yy#=rnd(256)
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   ink rgb(c/2,i*40,c/3),0
   for xo=-256 to 256 step 256
   for yo=-256 to 256 step 256
   line yy#+xo,xx#+yo,yy#+(sin(rnd(360))*16.0)+xo,xx#+(sin(rnd(360))*16.0)+yo
   next yo
   next xo
   inc xx#,sin(rnd(360))*3.0
   inc yy#,sin(rnd(360))*3.0
   if xx#<0.0 then inc xx#,256.0
   if yy#<0.0 then inc yy#,256.0
   if xx#>255.0 then dec xx#,256.0
   if yy#>255.0 then dec yy#,256.0
next a
if s=10 then blur bitmap 1,4
next s
blur bitmap 1,3
get image 32+i,128,128,128+256,128+256,1

next i

set current bitmap 0
delete bitmap 1

return

starrysphere:

make object plain 19,15000,15000 : rotate object 19,0,0,90 : fix object pivot 19
make object cube 20,0.1
make mesh from object 19,19
texture object 20,20
ii=30
for l=1 to 90
position object 19,0,0,0
rotate object 19,l*45,l*70,rnd(360)
move object 19,19000

add limb 20,l,19
offset limb 20,l,object position x(19),object position y(19),object position z(19)
rotate limb 20,l,object angle x(19),object angle y(19),object angle z(19)
texture limb 20,l,ii
if ii>20 then dec ii,1 : scale limb 20,l,100+rnd(100),100+rnd(100),100+rnd(100)

next l

delete object 19

set object fog 20,0
set object light 20,0
set object cull 20,0
`set object texture 20,0,0
ghost object on 20,2

return



asteroid:

for ast = 1000 to 1100
if object position x (ast) <((object position x(1))-5000) then position object (ast),(object position x(1))+(rnd(10000)-5000),(object position y (1))+(rnd(10000)-5000),(object position z (1))+(rnd(10000)-5000);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position x (ast) >((object position x(1))+5000) then position object (ast),(object position x(1))+(rnd(10000)-5000),(object position y (1))+(rnd(10000)-5000),(object position z (1))+(rnd(10000)-5000);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) <((object position y(1))-5000) then position object (ast),(object position x(1))+(rnd(10000)-5000),(object position y (1))+(rnd(10000)-5000),(object position z (1))+(rnd(10000)-5000);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) >((object position y(1))+5000) then position object (ast),(object position x(1))+(rnd(10000)-5000),(object position y (1))+(rnd(10000)-5000),(object position z (1))+(rnd(10000)-5000);scale object ast,rnd(170)+50,rnd(100)+100,rnd(170)+50
if object position z (ast) <((object position z(1))-5000) then position object (ast),(object position x(1))+(rnd(10000)-5000),(object position y (1))+(rnd(10000)-5000),(object position z (1))+(rnd(10000)-5000);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position z (ast) >((object position z(1))+5000) then position object (ast),(object position x(1))+(rnd(10000)-5000),(object position y (1))+(rnd(10000)-5000),(object position z (1))+(rnd(10000)-5000);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object in screen (ast) =1 then show object (ast)
if object in screen (ast) =0 then hide object (ast)
move object ast,0.3*elapsed#
rotate limb ast,0,wrapvalue(limb angle x(ast,0)+(1.0*elapsed#)),0,0
out=0
if out=0
   if abs(object position x(1)-object position x(ast))>10000 then out=1
endif
if out=0
   if abs(object position y(1)-object position y(ast))>10000 then out=1
endif
if out=0
   if abs(object position z(1)-object position z(ast))>10000 then out=1
endif
if out=1
position object ast,object position x(1),object position y(1),object position z(1)
rotate object ast,object angle x(1),object angle y(1),object angle z(1)
move object ast,2000
rotate object ast,rnd(360),rnd(360),rnd(360)
endif

 NEXT ast
 return
 user_input_screen:
' player HP
 if playerhp < 1
    wait 500
   rem position object 1,object position x(100)+50000,object position y(100),object position z(100)
    playerhp = 1000
 ENDIF
 `timer based movement
lasttime=curtime
curtime=timer()
elapsed#=(curtime-lasttime)/15.0
if elapsed#<=0.0 then elapsed#=0.00001

offset limb 1,1,0,0,mousez()/10
mx=mousex()
my=mousey()
`Inertia mouse - curvevalue is a lovely command
mx#=curvevalue(mx*1.0,mx#,10.0 / elapsed#)
my#=curvevalue(my*1.0,my#,10.0 / elapsed#)
dx#=mx#-mwid
dy#=my#-mhig
rem distance/angle equals....
D#=sqrt((dx#*dx#)+(dy#*dy#))
A#=atanfull(dx#,dy#)
rem restrict cursor to 228 from center....
Rate#=D#/228.0
if Rate#>1.0
mx#=mwid+sin(A#)*228.0
my#=mhig+cos(A#)*228.0
endif
ink rgb(255,255,0),0
rem turn left and right , up and down
if Rate# < 1.0
turnspeed# = D#*.005
endif
if Rate# > 1.0
turnspeed# = turnspeed#
ink rgb(255,0,0),0
endif
if speed# > -.01 and speed# < .01 then speed# = 0.0
circle mwid,mhig,228.0
line mwid-64,mhig,mwid+64,mhig
line mwid,mhig-15,mwid,mhig+16
`Much smoother way to do it
if D# > 20
turn object right 1,sin(a#) * ( elapsed# * turnspeed# )
pitch object down 1,cos(a#) * ( elapsed# * turnspeed# )
endif
roll object left 1,rollspeed# * elapsed#
rollspeed#=curvevalue(nrollspeed#,rollspeed#,50.0 / elapsed#)
nrollspeed#=0.0
rem thrust and roll
if leftkey() = 1 then nrollspeed#=1.0
if rightkey() = 1 then nrollspeed#=-1.0
if upkey() = 1 then inc speed#,.1 * elapsed#
if downkey()=1 then dec speed#,.1 * elapsed#
if speed# > 25.0 then speed# = 25.0
if speed# < -25.0 then speed# = -25.0
`Inertia movement
ship_lx#=object position x(1) : ship_ly#=object position y(1) : ship_lz#=object position z(1)
move object 1,speed# * elapsed#
ship_nx#=object position x(1) : ship_ny#=object position y(1) : ship_nz#=object position z(1)
ship_sx#=curvevalue(ship_nx#-ship_lx#,ship_sx#,200.0 / elapsed#)
ship_sy#=curvevalue(ship_ny#-ship_ly#,ship_sy#,200.0 / elapsed#)
ship_sz#=curvevalue(ship_nz#-ship_lz#,ship_sz#,200.0 / elapsed#)
position object 1,ship_lx#+ship_sx#,ship_ly#+ship_sy#,ship_lz#+ship_sz#
`Fire delay
dec fire_delay#,1.0*elapsed#
`Firing
if mouseclick()=1 and fire_delay#<0
   fire_delay#=10
   for side=0 to 1
      position object bullet_cur,ship_lx#,ship_ly#,ship_lz#
      rotate object bullet_cur,object angle x(1),object angle y(1),object angle z(1)
      show object bullet_cur
      if side=0
         turn object left bullet_cur,90 : move object bullet_cur,60.0 : turn object right bullet_cur,90
      else
         turn object left bullet_cur,-90 : move object bullet_cur,60.0 : turn object right bullet_cur,-90
      endif
      inc bullet_cur,1
      if bullet_cur>700 then bullet_cur=500
   next side
endif

`Velocity display
ink rgb(255,128,128)+(63*16777216),0 : box mwid-10,mhig,mwid-6,mhig+(ship_sx#*64.0) : box mwid-10,mhig+(ship_sx#*64.0),mwid-6,mhig
ink rgb(128,255,128)+(63*16777216),0 : box mwid-2,mhig,mwid+2,mhig+(ship_sy#*64.0) : box mwid-2,mhig+(ship_sy#*64.0),mwid+2,mhig
ink rgb(128,128,255)+(63*16777216),0 : box mwid+6,mhig,mwid+10,mhig+(ship_sz#*64.0) : box mwid+6,mhig+(ship_sz#*64.0),mwid+10,mhig
text 20,520,"Hull Structure :"+str$(playerhp)
ink rgb(0,255,255),0 : circle mx#,my#+1,10
line mx-15,my,mx+16,my
line mx,my-15,mx,my+16
return

function asteroid_obj(obj)

LOCK VERTEXDATA FOR LIMB obj,0,1
verts=GET VERTEXDATA VERTEX COUNT()-1

rr#=10.0

for v=0 to verts

   xx#=get vertexdata position x(v)
   zz#=get vertexdata position z(v)
   yy#=get vertexdata position y(v)
   nx#=get vertexdata normals x(v)
   nz#=get vertexdata normals z(v)
   ny#=get vertexdata normals y(v)

   r=obj+xx#+zz#+yy#
   randomize r

   ang=rnd(360)

   inc xx#,nx#*(sin(ang)*rr#)
   inc yy#,ny#*(sin(ang)*rr#)
   inc zz#,nz#*(sin(ang)*rr#)

   set vertexdata position v,xx#,yy#,zz#

next v

unlock vertexdata

set object smoothing obj,90

endfunction

Rem Project: space epic
Rem Created: Thursday, October 13, 2011

Rem ***** Main Source File *****
sync on
sync rate 0
set display mode desktop width(),desktop height(),32
set image colorkey 255,0,255
backdrop on ; color backdrop 0
hide light 0
gosub maketextures

dim sunsarray(100,1,1,1)
dim planetarray(250,1,1,1)
dim astFarray(300,1,1,1)

make object cube 1,5;hide object 1
make mesh from object 1,1
add limb 1,1,1
offset limb 1,1,0,0,-75.0
delete mesh 1
make object plain 1804,100,100
dontload = 0
perform checklist for files
  print "      Do you want to load your saved game? Press return to load, press space to start again.(if you start over your last save will be overwritten!)"
   while dontload = 0 
   if spacekey() = 1 then dontload = 1
   if returnkey() = 1 then dontload = 2
ENDWHILE
if file exist ("epicsuns.sef") = 0 or dontload = 1
print "No File!"
for suns = 100 to 200
    make object sphere suns,1500000,32,32
    position object suns,rnd(20000000)-10000000,rnd(20000000)-10000000,rnd(20000000)-10000000 'position huge sun
    if object collision (suns,suns) = 1
    position object suns,rnd(20000000)-10000000,rnd(20000000)-10000000,rnd(20000000)-10000000 ' when huge sun touches another sun reposition it
    endif
    set object light suns,1
    fade object suns,139
    sunsarray(suns-100,1) = object position x(suns) 
    sunsarray(suns-100,1,1) = object position y(suns)
    sunsarray(suns-100,1,1,1) = object position z(suns)
    sunsarray(suns-100) = rnd(1000); randomize rnd(500000000)
    ' color suns reddish,blueish,yellowish,cyanish (no greens)
     if (sunsarray(suns-100)) > 500 
  set object emissive (suns),rgb((sunsarray(suns-100))/3,0,0)
  endif
    if (sunsarray(suns-100)) < 500 
  set object emissive (suns),rgb(0,0,(sunsarray(suns-100))/2)
  endif
  if (sunsarray(suns-100)) < 255 
  set object emissive (suns),rgb(0,sunsarray(suns-100)/4,sunsarray(suns-100))
  endif
  if (sunsarray(suns-100)) >745 
  set object emissive (suns),rgb(sunsarray(suns-100)/4,(sunsarray(suns-100)/4)/4,0)
  endif
    'Asteroid field positions 
    astFarray(suns-100)= rnd(100) + 100   
    astFarray(suns-100,1)= rnd(500000)-250000
    astFarray(suns-100,1,1)= rnd(500000)-250000
    astFarray(suns-100,1,1,1)= rnd(500000)-250000
    astFarray(suns)= rnd(100) + 100   
    astFarray(suns,1)= rnd(500000)-250000
    astFarray(suns,1,1)= rnd(500000)-250000
    astFarray(suns,1,1,1)= rnd(500000)-250000
    astFarray(suns+100)= rnd(100) + 100   
    astFarray(suns+100,1)= rnd(500000)-250000
    astFarray(suns+100,1,1)= rnd(500000)-250000
    astFarray(suns+100,1,1,1)= rnd(500000)-250000
     randomize rnd(50000000)
NEXT suns
'scale the suns to correct size 
for suns = 100 to 200
    scale object suns,.7,.7,.7
NEXT suns
save array "epicsuns.sef",sunsarray()
cls
endif

if file exist ("epicplanets.sef") = 0 or dontload = 1
for planets = 2000 to 2250
    if object exist(2000) = 0 then make object sphere 2000,50000,32,32 else instance object planets,2000
    numsun = rnd(100)+100
    position object planets,object position x(numsun)+(rnd(500000)-250000),object position y(numsun),object position z(numsun)+(rnd(500000)-250000)
    if object collision (planets,numsun) = 1 or object collision (planets,planets) = 1
    position object planets,object position x(numsun)+(rnd(500000)-250000),object position y(numsun),object position z(numsun)+(rnd(500000)-250000)
    endif
    planetarray(planets-2000) = 32+rnd(5)
    planetarray(planets-2000,1) = object position x(planets) 
    planetarray(planets-2000,1,1) = object position y(planets)
    planetarray(planets-2000,1,1,1) = object position z(planets)
NEXT planets

for planets = 2000 to 2250
    scale object planets,1,1,1
    texture object planets,planetarray(planets-2000)
NEXT planets
save array "epicplanets.sef",planetarray()
endif
if file exist ("epicastfields.sef") = 0 or dontload = 1
`make static asteroids
for astF = 1500 to 1800
    if object exist(1500)=0 then make object sphere 1500,250 ,rnd(2)+5,rnd(2)+5 else instance object astF,1500
    scale object astF,100 + rnd(50),130 + rnd(70),100 + rnd(50)
        texture object astF,31
        fade object astF,165
NEXT astF
save array "epicastfields.sef",astFarray()
endif

`make floating asteroids
for ast = 1000 to 1100
    make object sphere ast,6,rnd(4)+3,rnd(4)+3
    asteroid_obj(ast)
    rotate object ast,rnd(360),rnd(360),rnd(360)
    fix object pivot ast
    texture object ast,31
    fade object ast,130
NEXT ast

for Fplain = 1801 to 1803
    make object plain Fplain,1,1
    hide object Fplain
NEXT

`make bullets
for obs=500 to 700
   if object exist(500)=0 then make object cube obs,100 else instance object obs,500
   scale object obs,5,5,100
   set object light obs,0
   ghost object on obs
   hide object obs
next obs

if file exist ("epicsuns.sef") = 1 and dontload <> 1
   load array "epicsuns.sef",sunsarray()
 for suns = 100 to 200
     if object exist(suns) = 0 then make object sphere suns,1500000,32,32
     set object light suns,1
     fade object suns,139
     position object suns,sunsarray(suns-100,1),sunsarray(suns-100,1,1),sunsarray(suns-100,1,1,1)
     scale object suns,.7,.7,.7
        if (sunsarray(suns-100)) > 500 
  set object emissive (suns),rgb((sunsarray(suns-100))/3,0,0)
  endif
    if (sunsarray(suns-100)) < 500 
  set object emissive (suns),rgb(0,0,(sunsarray(suns-100))/2)
  endif
  if (sunsarray(suns-100)) < 255 
  set object emissive (suns),rgb(0,sunsarray(suns-100)/4,sunsarray(suns-100))
  endif
  if (sunsarray(suns-100)) >745 
  set object emissive (suns),rgb(sunsarray(suns-100)/4,(sunsarray(suns-100)/4)/4,0)
  endif
NEXT loadsuns
endif 
if file exist ("epicplanets.sef") = 1 and dontload <> 1
   load array "epicplanets.sef",planetarray()
 for planets = 2000 to 2250
     if object exist(2000) = 0 then make object sphere 2000,50000,32,32 else instance object planets,2000
     position object planets,planetarray(planets-2000,1),planetarray(planets-2000,1,1),planetarray(planets-2000,1,1,1)
     scale object planets,1,1,1
     texture object planets,planetarray(planets-2000)
NEXT planets
endif 

if file exist ("epicastfields.sef") = 1 and dontload <> 1
   load array "epicastfields.sef",astFarray()
 for astF = 1500 to 1800
     if object exist(1500)=0 then make object sphere 1500,250 ,rnd(2)+5,rnd(2)+5 else instance object astF,1500
        scale object astF,100 + rnd(50),130 + rnd(70),100 + rnd(50)
        texture object astF,31
        fade object astF,165
     position object astF,astFarray(astF-1500,1),astFarray(astF-1500,1,1),astFarray(astF-1500,1,1,1)
NEXT astF
endif 

position camera 0,object position x(100)+3000,object position y(100),object position z(100)
set camera range 0,1,110000000
swid=screen width()
shig=screen height()
mwid=swid/2
mhig=shig/2
gosub starrysphere
sunspawn = 100 
global lasttime curtime
global elapsed#
global bullet_cur=500
global fire_delay#
curtime=timer()
lasttime=curtime
set ambient light 40
make light 1
set light range 1,10000000
do
    
position object 20,camera position x(0),camera position y(0),camera position z(0)         
ink rgb(200,80,0),0      
' FPS based game clock 
cmin = min
  inc GameTime,1 
   if GameTime => screen fps()  
     GameTime = 0 
     inc sec , 1
   endif
 if sec > 59  then sec = 0 ; inc min,1
 if min > 59  then  min = 0 ;inc hour,1
   text 540,20,"{"+str$(hours)
   text 600,20,":"+str$(min)
   text 630,20,":"+str$(sec)
    text 660,20,"}                   FPS :"+str$(screen fps())
check = sunspawn
  ink rgb(0,70,200),0
rem sun nav
if shiftkey() = 1 then tog2=1-tog2 : wait 200
if tog2 = 0 or GameTime = 0 
 for scansuns = 100 to 200
   xx1# = camera position x(0): xx2# = object position x(scansuns)
   yy1# = camera position y(0): yy2# = object position y(scansuns)
   zz1# = camera position z(0): zz2# = object position z(scansuns)
   xx# = (xx1# - xx2#)
   yy# = (yy1# - yy2#)
   zz# = (zz1# - zz2#)
   dist2# = sqrt((xx# * xx#) + (yy# * yy#) + (zz# * zz#))
   if dist2# < 1300000 then (sunspawn) = (scansuns)  
    if object in screen (scansuns) = 1
   text (object screen x(scansuns)),(object screen y(scansuns)),"S >"+str$(int(dist2#))
   endif
   next scansuns
 endif

ink rgb(0,200,20),0
 rem planet nav
if returnkey() = 1 then tog=1-tog : wait 200
if tog = 0 or GameTime = 60 
 for scanplanets = 2000 to 2250
   x1# = camera position x(0): x2# = object position x(scanplanets)
   y1# = camera position y(0): y2# = object position y(scanplanets)
   z1# = camera position z(0): z2# = object position z(scanplanets)
   x# = (x1# - x2#)
   y# = (y1# - y2#)
   z# = (z1# - z2#)
   dist# = sqrt((x# * x#) + (y# * y#) + (z# * z#))
   if dist# > 700000
   hide object scanplanets
   endif
   if object in screen (scanplanets) = 1
   if dist# < 700000
   show object scanplanets
   endif
   if dist# < 900000
      text (object screen x(scanplanets)),(object screen y(scanplanets)),"P >"+str$(int(dist#))
   endif
   endif
NEXT scanplanets
ENDIF

if placeast = 0
field1x = astFarray(sunspawn,1)
field1y = astFarray(sunspawn,1,1)
field1z = astFarray(sunspawn,1,1,1)
for firstasts = 1500 to 1599
    position object firstasts,(object position x(sunspawn)+(field1x)) +  (astFarray(firstasts-1500,1)/10),(object position y(sunspawn)+(field1y)) + (astFarray(firstasts-1500,1,1)/20),(object position z(sunspawn)+(field1z)) + (astFarray(firstasts-1500,1,1,1)/10)
NEXT firstasts
field2x = astFarray(sunspawn-100,1)
field2y = astFarray(sunspawn-100,1,1)
field2z = astFarray(sunspawn-100,1,1,1)
for secondasts = 1600 to 1699
    position object secondasts,(object position x(sunspawn)+(field2x)) + (astFarray(secondasts-1500,1)/10),(object position y(sunspawn)+(field2y)) + (astFarray(secondasts-1500,1,1)/20),(object position z(sunspawn)+(field2z)) + (astFarray(secondasts-1500,1,1,1)/10) 
NEXT secondasts
field3x = astFarray(sunspawn+100,1)
field3y = astFarray(sunspawn+100,1,1)
field3z = astFarray(sunspawn+100,1,1,1)
for thirdasts = 1700 to 1800
    position object thirdasts,(object position x(sunspawn)+ (field3x)) + (astFarray(thirdasts-1500,1)/10),(object position y(sunspawn)+(field3y)) + (astFarray(thirdasts-1500,1,1)/20),(object position z(sunspawn)+(field3z)) + (astFarray(thirdasts-1500,1,1,1)/10)    
    if thirdasts = 1800 
     placeast = 1
  position object 1801,object position x(sunspawn)+(field1x),object position y(sunspawn)+(field1y),object position z(sunspawn)+(field1z)
  position object 1802,object position x(sunspawn)+(field2x),object position y(sunspawn)+(field2y),object position z(sunspawn)+(field2z)
  position object 1803,object position x(sunspawn)+(field3x),object position y(sunspawn)+(field3y),object position z(sunspawn)+(field3z)
  position object 1804,object position x(sunspawn)+(field1x),object position y(sunspawn)+(field2y),object position z(sunspawn)+(field3z)
  texture object 1804,rnd(9)+21
  scale object 1804,rnd(10000)+5000,rnd(10000)+5000,rnd(10000)+5000
  endif
NEXT thirdasts
 endif

' set the light color the same the sun color 
if check <> sunspawn 
  placeast = 0
  position light 1,object position x(sunspawn),object position y(sunspawn),object position z(sunspawn)
    if (sunsarray(sunspawn-100)) > 500 
                  color light 1, rgb((sunsarray(sunspawn-100))/3,0,0)
  endif
    if (sunsarray(sunspawn-100)) < 500 
                  color light 1, rgb(0,0,(sunsarray(sunspawn-100))/2)
  endif
  if (sunsarray(sunspawn-100)) < 255 
                  color light 1, rgb(0,sunsarray(sunspawn-100)/4,sunsarray(sunspawn-100))
  endif
  if (sunsarray(sunspawn-100)) > 745 
                  color light 1, rgb(sunsarray(sunspawn-100)/4,(sunsarray(sunspawn-100)/4)/4,0)
  endif
 endif
 
 if object in screen (sunspawn) = 1 then text (object screen x(sunspawn)-80),(object screen y(sunspawn)),"> S.System" 
 ink rgb(200,0,0),0
 if object in screen (1801) = 1 then  text object screen x(1801),object screen y(1801),"< field1"
 if object in screen (1802) = 1 then  text object screen x(1802),object screen y(1802),"< field2"
 if object in screen (1803) = 1 then  text object screen x(1803),object screen y(1803),"< field3"
 ink rgb(200,60,0),0
 text 20,20,"sunspawn = "+str$(sunspawn)
 point object 1804,camera position x(),camera position y(),camera position z()

rem update camera pos
position camera (0),limb position x(1,1),limb position y(1,1),limb position z(1,1)
`Rotate camera with object 1 - good way to avoid camera rolling
rotate camera object angle x(1),object angle y(1),object angle z(1)
`Update skysphere position
position object 20,camera position x(),camera position y(),camera position z()
text 20,700,"speed : "+str$(speed#)
text 100,100,str$(bullet_cur)
gosub user_input_screen
gosub asteroid
gosub update_bullets
if spacekey() = 1 
 chp =(rnd(100)+100)
 position object 1,object position x(chp),object position y(chp),object position z(chp)
endif
sync
LOOP

update_bullets:
   for o=500 to 700
      if object visible(o)=1
         move object o,75.0*elapsed#
      endif
   next o
return

maketextures:
create bitmap 1,512,512
`starscape
set current bitmap 1
cls
for a=0 to 256
   c=rnd(250)+5
   ink rgb(c,c,c),0
   if rnd(10)=1 then ink rgb(c,c*0.75,c*0.5),0
   if rnd(10)=1 then ink rgb(c*0.5,c*0.75,c),0
   dot rnd(512),rnd(512)
next a
get image 20,0,0,512,512,1
`nebula
for ii=21 to 30
cls
xx#=256.0
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   b=((ii-20)*25)*am#
   d=(255-((ii-20)*25))*am#
   ink rgb(c,b,d),0
   line (a+128.0),xx#,(a+128.0)+(sin(rnd(360))*16.0),xx#+(sin(rnd(360))*16.0)
   inc xx#,sin(rnd(360))*3.0
next a
blur bitmap 1,4
get image ii,0,0,512,512,1
next ii
`asteroid texture
cls
for s=0 to 60
xx#=rnd(256)
yy#=rnd(256)
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   ink rgb(c,c,c),0
   for xo=-256 to 256 step 256
   for yo=-256 to 256 step 256
   line yy#+xo,xx#+yo,yy#+(sin(rnd(360))*16.0)+xo,xx#+(sin(rnd(360))*16.0)+yo
   next yo
   next xo
   inc xx#,sin(rnd(360))*3.0
   inc yy#,sin(rnd(360))*3.0
   if xx#<0.0 then inc xx#,256.0
   if yy#<0.0 then inc yy#,256.0
   if xx#>255.0 then dec xx#,256.0
   if yy#>255.0 then dec yy#,256.0
next a
next s
blur bitmap 1,4
get image 31,128,128,128+256,128+256,1
`planet textures
for i=0 to 5
cls rgb(0,0,255)
for s=0 to 20
xx#=rnd(256)
yy#=rnd(256)
for a=0 to 256
   am#=a/128.0
   if am#>1.0 then am#=2.0-am#
   c=(rnd(250)+5)*am#
   ink rgb(c/2,i*40,c/3),0
   for xo=-256 to 256 step 256
   for yo=-256 to 256 step 256
   line yy#+xo,xx#+yo,yy#+(sin(rnd(360))*16.0)+xo,xx#+(sin(rnd(360))*16.0)+yo
   next yo
   next xo
   inc xx#,sin(rnd(360))*3.0
   inc yy#,sin(rnd(360))*3.0
   if xx#<0.0 then inc xx#,256.0
   if yy#<0.0 then inc yy#,256.0
   if xx#>255.0 then dec xx#,256.0
   if yy#>255.0 then dec yy#,256.0
next a
if s=10 then blur bitmap 1,4
next s
blur bitmap 1,3
get image 32+i,128,128,128+256,128+256,1

next i

set current bitmap 0
delete bitmap 1

return

starrysphere:

make object plain 19,15000,15000 : rotate object 19,0,0,90 : fix object pivot 19
make object cube 20,0.1
make mesh from object 19,19
texture object 20,20
ii=30
for l=1 to 90
position object 19,0,0,0
rotate object 19,l*45,l*70,rnd(360)
move object 19,19000

add limb 20,l,19
offset limb 20,l,object position x(19),object position y(19),object position z(19)
rotate limb 20,l,object angle x(19),object angle y(19),object angle z(19)
texture limb 20,l,ii
if ii>20 then dec ii,1 : scale limb 20,l,100+rnd(100),100+rnd(100),100+rnd(100)

next l

delete object 19

set object fog 20,0
set object light 20,0
set object cull 20,0
`set object texture 20,0,0
ghost object on 20,2

return



asteroid:

for ast = 1000 to 1100
if object position x (ast) <((object position x(1))-5000) then position object (ast),(object position x(1))+(rnd(10000)-5000),(object position y (1))+(rnd(10000)-5000),(object position z (1))+(rnd(10000)-5000);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position x (ast) >((object position x(1))+5000) then position object (ast),(object position x(1))+(rnd(10000)-5000),(object position y (1))+(rnd(10000)-5000),(object position z (1))+(rnd(10000)-5000);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) <((object position y(1))-5000) then position object (ast),(object position x(1))+(rnd(10000)-5000),(object position y (1))+(rnd(10000)-5000),(object position z (1))+(rnd(10000)-5000);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position y (ast) >((object position y(1))+5000) then position object (ast),(object position x(1))+(rnd(10000)-5000),(object position y (1))+(rnd(10000)-5000),(object position z (1))+(rnd(10000)-5000);scale object ast,rnd(170)+50,rnd(100)+100,rnd(170)+50
if object position z (ast) <((object position z(1))-5000) then position object (ast),(object position x(1))+(rnd(10000)-5000),(object position y (1))+(rnd(10000)-5000),(object position z (1))+(rnd(10000)-5000);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object position z (ast) >((object position z(1))+5000) then position object (ast),(object position x(1))+(rnd(10000)-5000),(object position y (1))+(rnd(10000)-5000),(object position z (1))+(rnd(10000)-5000);scale object ast,rnd(170)+50,rnd(170)+100,rnd(170)+50
if object in screen (ast) =1 then show object (ast)
if object in screen (ast) =0 then hide object (ast)
move object ast,0.3*elapsed#
rotate limb ast,0,wrapvalue(limb angle x(ast,0)+(1.0*elapsed#)),0,0
out=0
if out=0
   if abs(object position x(1)-object position x(ast))>10000 then out=1
endif
if out=0
   if abs(object position y(1)-object position y(ast))>10000 then out=1
endif
if out=0
   if abs(object position z(1)-object position z(ast))>10000 then out=1
endif
if out=1
position object ast,object position x(1),object position y(1),object position z(1)
rotate object ast,object angle x(1),object angle y(1),object angle z(1)
move object ast,2000
rotate object ast,rnd(360),rnd(360),rnd(360)
endif

 NEXT ast
 return
 user_input_screen:
' player HP
 if playerhp < 1
    wait 500
   rem position object 1,object position x(100)+50000,object position y(100),object position z(100)
    playerhp = 1000
 ENDIF
 `timer based movement
lasttime=curtime
curtime=timer()
elapsed#=(curtime-lasttime)/15.0
if elapsed#<=0.0 then elapsed#=0.00001

offset limb 1,1,0,0,mousez()/10
mx=mousex()
my=mousey()
`Inertia mouse - curvevalue is a lovely command
mx#=curvevalue(mx*1.0,mx#,10.0 / elapsed#)
my#=curvevalue(my*1.0,my#,10.0 / elapsed#)
dx#=mx#-mwid
dy#=my#-mhig
rem distance/angle equals....
D#=sqrt((dx#*dx#)+(dy#*dy#))
A#=atanfull(dx#,dy#)
rem restrict cursor to 228 from center....
Rate#=D#/228.0
if Rate#>1.0
mx#=mwid+sin(A#)*228.0
my#=mhig+cos(A#)*228.0
endif
ink rgb(255,255,0),0
rem turn left and right , up and down
if Rate# < 1.0
turnspeed# = D#*.005
endif
if Rate# > 1.0
turnspeed# = turnspeed#
ink rgb(255,0,0),0
endif
if speed# > -.01 and speed# < .01 then speed# = 0.0
circle mwid,mhig,228.0
line mwid-64,mhig,mwid+64,mhig
line mwid,mhig-15,mwid,mhig+16
`Much smoother way to do it
if D# > 20
turn object right 1,sin(a#) * ( elapsed# * turnspeed# )
pitch object down 1,cos(a#) * ( elapsed# * turnspeed# )
endif
roll object left 1,rollspeed# * elapsed#
rollspeed#=curvevalue(nrollspeed#,rollspeed#,50.0 / elapsed#)
nrollspeed#=0.0
rem thrust and roll
if leftkey() = 1 then nrollspeed#=1.0
if rightkey() = 1 then nrollspeed#=-1.0
if upkey() = 1 then inc speed#,.1 * elapsed#
if downkey()=1 then dec speed#,.1 * elapsed#
if speed# > 25.0 then speed# = 25.0
if speed# < -25.0 then speed# = -25.0
`Inertia movement
ship_lx#=object position x(1) : ship_ly#=object position y(1) : ship_lz#=object position z(1)
move object 1,speed# * elapsed#
ship_nx#=object position x(1) : ship_ny#=object position y(1) : ship_nz#=object position z(1)
ship_sx#=curvevalue(ship_nx#-ship_lx#,ship_sx#,200.0 / elapsed#)
ship_sy#=curvevalue(ship_ny#-ship_ly#,ship_sy#,200.0 / elapsed#)
ship_sz#=curvevalue(ship_nz#-ship_lz#,ship_sz#,200.0 / elapsed#)
position object 1,ship_lx#+ship_sx#,ship_ly#+ship_sy#,ship_lz#+ship_sz#
`Fire delay
dec fire_delay#,1.0*elapsed#
`Firing
if mouseclick()=1 and fire_delay#<0
   fire_delay#=10
   for side=0 to 1
      position object bullet_cur,ship_lx#,ship_ly#,ship_lz#
      rotate object bullet_cur,object angle x(1),object angle y(1),object angle z(1)
      show object bullet_cur
      if side=0
         turn object left bullet_cur,90 : move object bullet_cur,60.0 : turn object right bullet_cur,90
      else
         turn object left bullet_cur,-90 : move object bullet_cur,60.0 : turn object right bullet_cur,-90
      endif
      inc bullet_cur,1
      if bullet_cur>700 then bullet_cur=500
   next side
endif

`Velocity display
ink rgb(255,128,128)+(63*16777216),0 : box mwid-10,mhig,mwid-6,mhig+(ship_sx#*64.0) : box mwid-10,mhig+(ship_sx#*64.0),mwid-6,mhig
ink rgb(128,255,128)+(63*16777216),0 : box mwid-2,mhig,mwid+2,mhig+(ship_sy#*64.0) : box mwid-2,mhig+(ship_sy#*64.0),mwid+2,mhig
ink rgb(128,128,255)+(63*16777216),0 : box mwid+6,mhig,mwid+10,mhig+(ship_sz#*64.0) : box mwid+6,mhig+(ship_sz#*64.0),mwid+10,mhig
text 20,520,"Hull Structure :"+str$(playerhp)
ink rgb(0,255,255),0 : circle mx#,my#+1,10
line mx-15,my,mx+16,my
line mx,my-15,mx,my+16
return

function asteroid_obj(obj)

LOCK VERTEXDATA FOR LIMB obj,0,1
verts=GET VERTEXDATA VERTEX COUNT()-1

rr#=10.0

for v=0 to verts

   xx#=get vertexdata position x(v)
   zz#=get vertexdata position z(v)
   yy#=get vertexdata position y(v)
   nx#=get vertexdata normals x(v)
   nz#=get vertexdata normals z(v)
   ny#=get vertexdata normals y(v)

   r=obj+xx#+zz#+yy#
   randomize r

   ang=rnd(360)

   inc xx#,nx#*(sin(ang)*rr#)
   inc yy#,ny#*(sin(ang)*rr#)
   inc zz#,nz#*(sin(ang)*rr#)

   set vertexdata position v,xx#,yy#,zz#

next v

unlock vertexdata

set object smoothing obj,90

endfunction