Sorry your browser is not supported!

sync on : sync rate 60
sync
set display mode 640, 480, 16
hide mouse
disable escapekey





speed#=15
thrust#=15
autocam off


make matrix 1,10000,10000,50,50
randomize matrix 1, 50


make object cube 2,1

make object sphere 3,10

` camera range
set camera range 1,10000

hide object 2


do

if leftkey()=1 then roll object left 2, 2
if rightkey()=1 then roll object right 2, 2
if downkey()=1 then pitch object up 2, 2
if upkey()=1 then pitch object down 2, 2

if joystick hat angle(0)=9000 then turn object right 2, 2
if joystick hat angle(0)=27000 then turn object left 2, 2


if controlkey ()=1 then thrust#=thrust#+.25
if thrust#>50 then thrust#=50
if shiftkey ()=1 then thrust#=thrust#-.5
if thrust#<0 then thrust#=0

speed#=curvevalue(thrust#,speed#,25)

move object 2, speed#

if speed#<12 then position object 2, object position x(2), object position y(2)-(15-speed#), object position z(2)
if speed#<7 then position object 2, object position x(2), object position y(2)-(9-speed#),object position z(2):set cursor 1,1:print 
set cursor 50,1

print speed#
set cursor 120,1
altitude#=object position y(2)
print altitude#


pitch object down 2,11
move object 2,-150
position object 3, object position x(2),object position y(2),object position z(2)
move object 2,150
pitch object up 2,11
` move camera
position camera object position x(3),object position y(3), object position z(3)
set camera to object orientation 2



sync
loop

sync on : sync rate 60
sync
set display mode 640, 480, 16
hide mouse
`disable escapekey
autocam off
randomize timer()
set camera range 1,10000
global speed# as float : speed# = 5.0
global thrust# as float : thrust# = 5.0
global MissileDelay# as float : global TotalMissiles as integer : TotalMissiles = 5



dim Missile(TotalMissiles,5)
for i= 1 to TotalMissiles
  missile(i,1) = 99 + i : ` object number
  missile(i,2) = rgb(rnd(128) + 127,rnd(128) + 127,rnd(128) + 127) : ` color
  missile(i,3) = 0 : ` status   0 = inactive   1 = moving
  missile(i,4) = 8.0 : ` speed
  missile(i,5) = 0 : ` move counter
next i
SetupMatrix()
MakeModels()



do
  GetInPut()
  move camera speed#
  MoveMissiles()
  Debug()
  sync
loop
end





function GetInput()
if leftkey() = 1 then turn camera left 2
if rightkey() = 1 then turn camera right 2
if downkey() = 1 then pitch camera up 2
if upkey() = 1 then pitch camera down 2
if keystate(44) = 1 then roll camera left 2 : ` Z key
if keystate(45) = 1 then roll camera right 2 : ` X key
if controlkey () = 1 then thrust# = thrust# + .25 : if thrust# > 50.0 then thrust# = 50.0
if shiftkey () = 1 then thrust# = thrust# - .5 : if thrust# < 0.0 then thrust# = 0.0
if returnkey() = 1 : ` fire missile
  if timer() > MissileDelay#
    ` see if a missile is available
    avbl = 0
    for i = 1 to 5
      if missile(i,3) = 0 then avbl = i : exit
    next i
    if avbl > 0
      obj = missile(avbl,1)
      camx# = camera position x()
      camy# = camera position y()
      camz# = camera position z()
      position object obj,camx#,camy#,camz#
      set object to camera orientation obj
      pitch object down obj,1
      missile(avbl,3) = 1
      show object Missile(avbl,1)
      MissileDelay# = timer() + 150.0
    endif
  endif
endif
speed# = curvevalue(thrust#,speed#,25)

endfunction


function Debug()
text 50,1,str$(speed#)
x# = camera position x() : z# = camera position z()
y# = get ground height(1,x#,z#)
text 120,1,str$(y#)
endfunction

function SetupMatrix()
make matrix 1,10000,10000,50,50
randomize matrix 1, 50
update matrix 1
position camera rnd(5000.0) + 2000.0,200.0,rnd(5000.0) + 2000
rotate camera 0.0,0.0,0.0
endfunction

function MakeModels()
` make missiles
for m = 100 to (TotalMissiles + 99)
  make object sphere m,5
  color object m,(missile((m - 99),2))
  hide object m
next m


endfunction


function MoveMissiles()
for i = 1 to TotalMissiles
 ` check status
  if Missile(i,3) = 1
    move object Missile(i,1),Missile(i,4)
    Missile(i,5) = Missile(i,5) + 1
    if Missile(i,5) > 100
      ` missile has gone too far
      hide object Missile(i,1)
      Missile(i,3) = 0
      Missile(i,5) = 0
    else
    ` check collision w/baddies

    ` check collision with planets, etc.

    ` check collision with matrix

    endif
  endif
next i
endfunction