Sorry your browser is not supported!

set display mode 1024,768,32
sync on
sync rate 60
gosub display

#constant static_variable=global


type SHIP_CLASS

   objectnumber as integer
   Human as integer `0 for computer, >0 for human player
   Name as String
   Image as Integer
   velocity as float
   acceleration as float
   maxvelocity as float
   camdistance as float
   shield as integer
   maxshield as integer
   alive as integer
   aimode as string
   newbearingx as float
   newbearingy as float
   newbearingz as float
   changecourse as integer
   turnspeed as integer

endtype


Dim ship(0) as ship_class

GLOBAL camera_on_ship=1 `initial ship camera will follow
GLOBAL number_of_ships
number_of_ships=10
GLOBAL cam_mode=2 `set camera to chase-cam mode
GLOBAL keypress
GLOBAL trackinginfo=1000
GLOBAL theta
global weapondummy
global target




make_ships(number_of_ships)
weapondummy=free_object()
make object cube weapondummy,1
hide object weapondummy
gosub make_crosshairs


TEMP_FUNCTION1() `called once



do



TEMP_FUNCTION2() `called each loop
control_ships(number_of_ships)
move_ships(number_of_ships)
flashing_lights(number_of_ships)
control_camera(cam_mode,camera_on_ship)
starfield(ship(camera_on_ship).velocity,camera_on_ship)
player_weapons()
gosub show_crosshairs

if scancode()=0 then keypress=0

sync
loop

display:
autocam off
position camera 0,0,-15
color backdrop 0
set ambient light 50
return

make_crosshairs:

crosshairs=free_sprite()
crosshairimage=free_image()
create bitmap 1,100,100
ink rgb(100,100,255),0
line 20,50,45,50
line 55,50,80,50
line 50,20,50,45
line 50,55,50,80
get image crosshairimage,0,0,100,100,1
delete bitmap 1

sprite crosshairs,0,0,crosshairimage

return

show_crosshairs:

if camera_on_ship=1
if cam_mode=1
  sprite crosshairs,screen width()/2.0-sprite width(crosshairs)/2.0,screen height()/2.0-sprite height(crosshairs)/2.0,crosshairimage
endif
if cam_mode=2
  position object weapondummy,object position x(ship(1).objectnumber),object position y(ship(1).objectnumber),object position z(ship(1).objectnumber)
  set object to object orientation weapondummy,ship(1).objectnumber
  move object weapondummy,100
  x=object screen x(weapondummy)
  y=object screen y(weapondummy)
  sprite crosshairs,x-sprite width(crosshairs)/2.0,y-sprite height(crosshairs)/2.0,crosshairimage
endif
endif


return

function player_weapons()

if 0 = 1
static_variable charge
static_variable delay
static_variable fire
static_variable fireduration

endif


fullcharge=100
firepower=1
delaytime=20
rechargerate=1
maxduration=5

if spacekey()=1 and charge>0
  fire=1
  dec charge,firepower
  dec charge,firepower
endif

if fire=1 and delay=0
  inc fireduration
  if fireduration=maxduration then delay=delaytime:fireduration=0
  if cam_mode=1
    line 0,0,screen width()/2.0,screen height()/2.0
    line screen width(),0,screen width()/2.0,screen height()/2.0
    target=pick object(screen width()/2.0,screen height()/2.0,ship(2).objectnumber,ship(number_of_ships).objectnumber)
  endif
  if cam_mode=2
    position object weapondummy,object position x(ship(1).objectnumber),object position y(ship(1).objectnumber),object position z(ship(1).objectnumber)
    set object to object orientation weapondummy,ship(1).objectnumber
    move object left weapondummy,1.5
    x1=object screen x(weapondummy)
    y1=object screen y(weapondummy)
    move object right weapondummy,3
    x2=object screen x(weapondummy)
    y2=object screen y(weapondummy)
    move object left weapondummy,1.5
    move object weapondummy,100
    x3=object screen x(weapondummy)
    y3=object screen y(weapondummy)
    line x1,y1,x3,y3
    line x2,y2,x3,y3
    target=pick object(x3,y3,ship(2).objectnumber,ship(number_of_ships).objectnumber)
  endif
if target>0
    targetnumber=ship_link_list(target)
    dec ship(targetnumber).shield
    ship(targetnumber).aimode="attack"
    if ship(targetnumber).shield<=0
      hide object ship(targetnumber).objectnumber
      ship(targetnumber).alive=0
    endif
  endif

endif

if charge<fullcharge
  inc charge,rechargerate
  if charge>fullcharge then charge=fullcharge
endif
if delay>0 then dec delay
if spacekey()=0 then fire=0

endfunction



function flashing_lights(number_of_ships)

for n=1 to number_of_ships

ship=ship(n).objectnumber
brightness=int(127*sin(theta))+127
inc theta,1
color limb ship,5,rgb(255,brightness,brightness)

next n

endfunction


function make_ships(number)


   `create temporary texture for spaceships
   create bitmap 1,10,10
      blue=free_image()
      ink rgb(0,0,255),0
      box 0,0,10,10
      get image blue,0,0,10,10
      red=free_image()
      ink rgb(255,0,0),0
      box 0,0,10,10
      get image red,0,0,10,10
      green=free_image()
      ink rgb(0,255,0),0
      box 0,0,10,10
      get image green,0,0,10,10
   delete bitmap 1
   set current bitmap 0

   for n=1 to number_of_ships
      array insert at bottom ship(0)
      ship(n).objectnumber=free_object()
      dim ship_link_list(ship(n).objectnumber)
      ship_link_list(ship(n).objectnumber)=n





  `body
  make object box ship(n).objectnumber,2.0,1.1,5

  temp=free_object()
  `nose
  make object box temp,1.4,1,1.4
  yrotate object temp,45
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,1,1
  offset limb ship(n).objectnumber,1,0,0,2.5
  delete mesh 1
  `left wing
  make object box temp,2,0.5,3
  yrotate object temp,45
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,2,1
  offset limb ship(n).objectnumber,2,-1,0,-1.5
  delete mesh 1
  `right wing
  make object box temp,2,0.5,3
  yrotate object temp,-45
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,3,1
  offset limb ship(n).objectnumber,3,1,0,-1.5
  delete mesh 1
  `fin
  make object box temp,0.2,1,4
  xrotate object temp,12
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,4,1
  offset limb ship(n).objectnumber,4,0,0.5,0
  delete mesh 1
  `light
  make object box temp,0.5,0.3,0.5
  yrotate object temp,45
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,5,1
  offset limb ship(n).objectnumber,5,0,0,-2.5
  delete mesh 1

  rotate object ship(n).objectnumber,rnd(360),rnd(360),rnd(360)

  ship(n).acceleration=0.02
  ship(n).maxvelocity=3
  ship(n).camdistance=20
  ship(n).velocity=0.3
  ship(n).maxshield=100
  ship(n).shield=ship(n).maxshield
  ship(n).alive=1
  ship(n).aimode="passive"
  ship(n).turnspeed=60 `smoothness value for curveangle - larger number=slower turnspeed

  if n=1
    ship(n).human=1
    ship(n).name="Your ship"
    texture object ship(n).objectnumber,blue
  else
    ship(n).name="Trade ship "+str$(n)
    texture object ship(n).objectnumber,green
  endif

  position object ship(n).objectnumber,rnd(50)-25,rnd(50)-25,rnd(50)-25

   next n
endfunction





function free_object()

repeat
inc n
until object exist(n)=0

endfunction n


function TEMP_FUNCTION1()


   text_sprite(free_sprite(),255,255,0,0,0,"arrow keys - control ship")
   text_sprite(free_sprite(),255,255,0,0,20,"+ - increase velocity")
   text_sprite(free_sprite(),255,255,0,0,40,"- - decrease velocity")
   text_sprite(free_sprite(),255,0,0,0,80,"1 - cockpit mode")
   text_sprite(free_sprite(),255,0,0,0,100,"2 - chasecam mode")
   text_sprite(free_sprite(),255,0,0,0,120,"c - change camera")
   text_sprite(free_sprite(),255,0,0,0,140,"a - zoom in")
   text_sprite(free_sprite(),255,0,0,0,160,"z - zoom out")


   text_sprite(trackinginfo,255,255,0,700,0,"Camera tracking: "+ship(1).name)



endfunction

function TEMP_FUNCTION2()

if 0=1 then global currenttarget

n=ship_link_list(target)
if n>0
  currenttarget=n
endif
if currenttarget>0
  text 700,20,"Ship hit: "+ship(currenttarget).name
  text 700,40,"Shield: "
  box 800,40,800+ship(currenttarget).shield,60
endif



endfunction


function control_ships(number_of_ships)
   for n=1 to number_of_ships

     if ship(n).human=1
       `keyboard control system
        if leftkey()=1 then roll object left 1,1
        if rightkey()=1 then roll object right 1,1
        if upkey()=1 then  pitch object down 1,1
        if downkey()=1 then  pitch object up 1,1
        if keystate(12)=1 and ship(n).velocity > 0 then dec ship(n).velocity,ship(n).acceleration
        if keystate(13)=1 and ship(n).velocity < ship(n).maxvelocity then inc ship(n).velocity,ship(n).acceleration
     else
       `apply AI to computer controlled ships
       if ship(n).aimode="passive"
         if rnd(500)=0
           ship(n).newbearingx=rnd(360)
           ship(n).newbearingy=rnd(360)
           ship(n).newbearingz=rnd(360)
           ship(n).changecourse=1
         endif
         if ship(n).changecourse=1
           rotate object ship(n).objectnumber,curveangle(ship(n).newbearingx,object angle x(ship(n).objectnumber),ship(n).turnspeed),curveangle(ship(n).newbearingy,object angle y(ship(n).objectnumber),ship(n).turnspeed),curveangle(ship(n).newbearingz,object angle z(ship(n).objectnumber),ship(n).turnspeed)
           if object angle x(ship(n).objectnumber)<ship(n).newbearingx+5 and object angle x(ship(n).objectnumber)>ship(n).newbearingx-5 and object angle y(ship(n).objectnumber)<ship(n).newbearingy+5 and object angle y(ship(n).objectnumber)>ship(n).newbearingy-5 and object angle z(ship(n).objectnumber)<ship(n).newbearingz+5 and object angle z(ship(n).objectnumber)>ship(n).newbearingz-5 then ship(n).changecourse=0
         endif
       endif
       if ship(n).aimode="attack"
         if ship(n).changecourse=0
           oldangx=object angle x(ship(n).objectnumber)
           oldangy=object angle y(ship(n).objectnumber)
           oldangz=object angle z(ship(n).objectnumber)
           point object ship(n).objectnumber,object position x(ship(1).objectnumber),object position y(ship(1).objectnumber),object position z(ship(1).objectnumber)
           ship(n).newbearingx=object angle x(ship(n).objectnumber)
           ship(n).newbearingy=object angle y(ship(n).objectnumber)
           ship(n).newbearingz=object angle z(ship(n).objectnumber)
           rotate object ship(n).objectnumber,oldangx,oldangy,oldangz
           ship(n).changecourse=1
         endif
         if ship(n).changecourse=1
           rotate object ship(n).objectnumber,curveangle(ship(n).newbearingx,object angle x(ship(n).objectnumber),ship(n).turnspeed),curveangle(ship(n).newbearingy,object angle y(ship(n).objectnumber),ship(n).turnspeed),curveangle(ship(n).newbearingz,object angle z(ship(n).objectnumber),ship(n).turnspeed)
           if object angle x(ship(n).objectnumber)<ship(n).newbearingx+5 and object angle x(ship(n).objectnumber)>ship(n).newbearingx-5 and object angle y(ship(n).objectnumber)<ship(n).newbearingy+5 and object angle y(ship(n).objectnumber)>ship(n).newbearingy-5 and object angle z(ship(n).objectnumber)<ship(n).newbearingz+5 and object angle z(ship(n).objectnumber)>ship(n).newbearingz-5 then ship(n).changecourse=0
         endif

       endif
     endif
   next n
endfunction

function move_ships(number_of_ships)
   for n=1 to number_of_ships
      move object ship(n).objectnumber,ship(n).velocity
   next n
endfunction



function control_camera(mode,shipnumber)


if mode=1 `cockpit view
   set camera to object orientation ship(shipnumber).objectnumber
   position camera object position x(ship(shipnumber).objectnumber),object position y(ship(shipnumber).objectnumber),object position z(ship(shipnumber).objectnumber)
   move camera 2
endif

if mode=2 `chase cam view
  chase_cam(ship(shipnumber).objectnumber,ship(shipnumber).camdistance)
  if inkey$()="a" and ship(shipnumber).camdistance>5 then dec ship(shipnumber).camdistance,.2
  if inkey$()="z" and ship(shipnumber).camdistance<20 then inc ship(shipnumber).camdistance,.2
endif

if keystate(2)=1 then cam_mode=1
if keystate(3)=1 then cam_mode=2
if inkey$()="c" and keypress=0
   keypress=1
   inc camera_on_ship
   if camera_on_ship>number_of_ships then camera_on_ship=1
   text_sprite(trackinginfo,255,255,0,800,0,"Tracking: "+ship(camera_on_ship).name)
endif


endfunction

function free_image()
   repeat
     inc n
   until image exist(n)=0
endfunction n


function free_sprite()
   repeat
     inc n
   until sprite exist(n)=0 and image exist(n)=0
endfunction n

function text_sprite(entity,r,g,b,x,y,text$)
   if text$="" then text$=" "
   create bitmap 1,screen width(),screen height()
      set current bitmap 1
      ink rgb(r,g,b),0
      set text size 20
      `set text font "Arial"
      text 0,0,text$
      if image exist(entity) then delete image entity
      if sprite exist(entity) then delete sprite entity
      get image entity,0,0,text width(text$),text height(text$),1
      sprite entity,x,y,entity
      set sprite priority entity,100
      set sprite alpha entity,200
   delete bitmap 1
   set current bitmap 0
endfunction


function chase_cam(object,distance#)


   oldcamx#=camera position x()
   oldcamy#=camera position y()
   oldcamz#=camera position z()
   oldcamangx#=camera angle x()
   oldcamangy#=camera angle y()
   oldcamangz#=camera angle z()

   position camera object position x(object),object position y(object),object position z(object)
   set camera to object orientation object
   move camera -distance#
   pitch camera up 90
   move camera distance#/3.0
   pitch camera down 90

   newcamx#=camera position x()
   newcamy#=camera position y()
   newcamz#=camera position z()
   newcamangx#=camera angle x()
   newcamangy#=camera angle y()
   newcamangz#=camera angle z()

   xrotate camera curveangle(newcamangx#,oldcamangx#,40)
   yrotate camera curveangle(newcamangy#,oldcamangy#,40)
   zrotate camera curveangle(newcamangz#,oldcamangz#,40)
   camx#=curvevalue(newcamx#,oldcamx#,20)
   camy#=curvevalue(newcamy#,oldcamy#,20)
   camz#=curvevalue(newcamz#,oldcamz#,20)
   position camera camx#,camy#,camz#

   camangx#=camera angle x()
   camangy#=camera angle y()
   camangz#=camera angle z()
   point camera object position x(object),object position y(object),object position z(object)
   position camera object position x(object),object position y(object),object position z(object)
   move camera -distance#
   rotate camera camangx#,camangy#,camangz#


endfunction


function starfield(speed#,camera_on_object)

rem 3D Starfield Demo - Written by Jason Clogg
rem Feel free to use any of this code


rem base sprite number
base=600
rem How widely to spread the stars
spread=800
rem How many stars to display
stars=200
rem The initial distance to start the stars displaying
dist=500

`Calculate a point in front of the camera to start drawing the starfield

cx#=camera position x()
cy#=camera position y()
cz#=camera position z()

pick screen screen width()/2,screen height()/2,dist
sx#=get pick vector x()
sy#=get pick vector y()
sz#=get pick vector z()

if object exist(600)=0
   make object box 600,.5,.5,.5
   for i=601 to 600+stars
      clone object i,600
rem stars should not be affected by light or included in collisions
      set object light i,0
      set object collision off i
      position object i,rnd(spread*2)-spread,rnd(spread*2)-spread,camera position z()+rnd(dist)
   next i
endif

for i=600 to 600+stars
`reposition stars if they are out of camera shot
   if object in screen(i)=0
   position object i,cx#+sx#+(rnd(spread)-(spread/2)),cy#+sy#+(rnd(spread)-(spread/2)),cz#+sz#+(rnd(spread*2)-(spread/2))
   endif
`Calculate distance of star from camera and scale star accordingly
   dist#=distance(cx#,cy#,cz#,i)
   scale object i,.1*(dist#*2),.1*(dist#*2),2000*speed#
   set object to object orientation i,camera_on_object
rem The multiple of 1.2 will need to be changed depending on the frame rate.
rem This value works best with a sync rate of 60
   move object i,speed#*-1.2
   next i

endfunction

function distance(x1#,y1#,z1#,obj)

x2#=object position x(obj)
y2#=object position y(obj)
z2#=object position z(obj)

dist#=sqrt((x1#-x2#)*(x1#-x2#)+(y1#-y2#)*(y1#-y2#)+(z1#-z2#)*(z1#-z2#))

endfunction dist#

dist_vector = 1
i = make vector3(dist_vector)

function get_distance(xa as float, ya as float, za as float, xb as float, yb as float, zb as float)
	set vector3 dist_vector, xa - xb, ya - yb, za - zb
	dist# = length vector3(dist_vector)
endfunction dist#

set display mode 1024,768,32
backdrop on
color backdrop 0
sync on
hide mouse
set image colorkey 0,0,0
set camera range 1,20000
global shots
shots=20
firespeed=20

rem Objects
global oPlanet=1
global oShip=2
global oAlienS=3
global oAlienF=13
global oSky=14
global oShotS=15
global oShotF=35
global oAtmosphere=36
global oExplosion=37
rem Images
global iPlanet=1
global iEngine=2
global iAlien=3
global iSky=4
global iShip=5
global iShot=6
global iTitle=7

rem Meshes
global mShip=1

xvship as float
yvShip as float
zvShip as float
mass as float
velocity as float
xvShip=0.0
yvShip=0.0
zvShip=0.64
mass=250.0
global fire=1
global dim afire(shots) as integer
global dim xfire(shots) as float
global dim yfire(shots) as float
global dim zfire(shots) as float
global dim xvfire(shots) as float
global dim yvfire(shots) as float
global dim zvfire(shots) as float

aliens=oAlienF-oAlienS
dim xvAlien(aliens) as float
dim yvAlien(aliens) as float
dim zvAlien(aliens) as float
dim exAlien(aliens) as integer

dist_vector=1
i=make vector3(dist_vector)
title()
make_planet()
make_ship()
make_aliens()
make_stars()
make_shots()
make_explosion()
for i=oAlienS to oAlienF
  angle=(i-oAlienS)*9
  position object i,cos(angle)*650,(i-aliens/2)*20,sin(angle)*650
  angle=wrapvalue(90-angle)
  xvAlien(i-oAlienS)=cos(angle)*0.64
  yvAlien(i-oAlienS)=0.0
  zvAlien(i-oAlienS)=sin(angle)*0.64
next i
position object oShip,750,-50,100
position camera 1200,0,0
point camera 0,0,0
trigger=0
set text opaque
while not escapekey()
  move object oShip,-25
  pitch object up oShip,90
  move object oShip,2
  xobtain#=object position x(oShip)
  yobtain#=object position y(oShip)
  zobtain#=object position z(oShip)
  xcam#=camera position x()
  ycam#=camera position y()
  zcam#=camera position z()
  set vector3 dist_vector,(xcam#-xobtain#),(ycam#-yobtain#),(zcam#-zobtain#)
  dist#=length vector3(dist_vector)/20
  if dist#>2.0 then dist#=2.0
  point camera xobtain#,yobtain#,zobtain#
  move camera dist#
  move object oShip,-2
  pitch object down oShip,90
  move object oShip,25
  point camera object position x(oShip),object position y(oShip),object position z(oShip)
  if leftkey()
    turn object left oShip,0.5
  endif
  if rightkey()
    turn object right oShip,0.5
  endif
  if upkey()
    pitch object down oShip,0.5
  endif
  if downkey()
    pitch object up oShip,0.5
  endif
  if not shiftkey()
    hide limb oShip,7
    hide limb oShip,8
    hide limb oShip,9
  endif
  if shiftkey()
    cx#=object position x(oShip)
    cy#=object position y(oShip)
    cz#=object position z(oShip)
    move object oShip,0.001
    nx#=object position x(oShip)
    ny#=object position y(oShip)
    nz#=object position z(oShip)
    position object oShip,cx#,cy#,cz#
    xvShip=xvShip+nx#-cx#
    yvShip=yvShip+ny#-cy#
    zvShip=zvShip+nz#-cz#
    show limb oShip,7
    show limb oShip,8
    show limb oShip,9
  endif
  if not spacekey() then trigger=0
  if spacekey() and trigger=0
    trigger=1
    inc fire
    if fire>shots then fire=1
    afire(fire)=1
    xfire(fire)=object position x(oShip)
    yfire(fire)=object position y(oShip)
    zfire(fire)=object position z(oShip)
    cx#=object position x(oShip)
    cy#=object position y(oShip)
    cz#=object position z(oShip)
    move object oShip,firespeed
    nx#=object position x(oShip)
    ny#=object position y(oShip)
    nz#=object position z(oShip)
    move object oShip,-firespeed
    xvfire(fire)=nx#-cx#
    yvfire(fire)=ny#-cy#
    zvfire(fire)=nz#-cz#
    show object fire+oShotS-1
  endif
  set vector3 dist_vector,object position x(oShip),object position y(oShip),object position z(oShip)
  height#=length vector3(dist_vector)
  if height#<550
    color object oShip,rgb(255,0,0)
    if height#<520
      crash()
      end
    endif
  endif
  attract#=mass/height#^2
  deltaxv#=attract#*object position x(oShip)/height#
  deltayv#=attract#*object position y(oShip)/height#
  deltazv#=attract#*object position z(oShip)/height#
  xvShip=xvShip-deltaxv#
  yvShip=yvShip-deltayv#
  zvShip=zvShip-deltazv#
  set vector3 dist_vector,xvShip,yvShip,zvShip
  velocity=length vector3(dist_vector)
  position object oShip,object position x(oShip)+xvShip,object position y(oShip)+yvShip,object position z(oShip)+zvShip
  for i=oAlienS to oAlienF
    if exAlien(i-oAlienS)<100
      position object i,object position x(i)+xvAlien(i-oAlienS),object position y(i)+yvAlien(i-oAlienS),object position z(i)+zvAlien(i-oAlienS)
      set vector3 dist_vector,object position x(i)+xvAlien(i-oAlienS),object position y(i)+yvAlien(i-oAlienS),object position z(i)+zvAlien(i-oAlienS)
      distance#=length vector3(dist_vector)
rem      distance#=sqrt(object position x(i)^2+object position z(i)^2+object position y(i)^2)
      attract#=mass/distance#^2
      deltaxv#=attract#*object position x(i)/distance#
      deltayv#=attract#*object position y(i)/distance#
      deltazv#=attract#*object position z(i)/distance#
      xvAlien(i-oAliens)=xvAlien(i-oAliens)-deltaxv#
      yvAlien(i-oAliens)=yvAlien(i-oAliens)-deltayv#
      zvAlien(i-oAliens)=zvAlien(i-oAliens)-deltazv#
      if exAlien(i-oAlienS)>0
        ghost object on i
        show object oExplosion
        position object oExplosion,object position x(i),object position y(i),object position z(i)
        scale object oExplosion,exAlien(i-oAlienS),exAlien(i-oAlienS),exAlien(i-oAlienS)
        fade object oExplosion,150-exAlien(i-oAlienS)
        fade object i,100-exAlien(i-oAlienS)
        inc exAlien(i-oAlienS)
        if exAlien(i-oAlienS)=100
          hide object oExplosion
          hide object i
        endif
      endif
    endif
  next i
  for i=1 to shots
    if afire(i)>0
      position object i+oShotS-1,xfire(i),yfire(i),zfire(i)
      nx#=xfire(i)+xvfire(i)
      ny#=yfire(i)+yvfire(i)
      nz#=zfire(i)+zvfire(i)
      for j=oAlienS to oAlienF
        if exAlien(j-oAlienS)=0
          hit=intersect object(j,xfire(i),yfire(i),zfire(i),nx#,ny#,nz#)
          if hit>0
            afire(i)=0
            hide object i+oShotS-1
            exAlien(j-oAlienS)=1
          endif
        endif
      next j
      if afire(i)>0
        inc afire(i)
        if afire(i)>100
          afire(i)=0
          hide object i+oShotS-1
        else
          xfire(i)=nx#
          yfire(i)=ny#
          zfire(i)=nz#
        endif
      endif
    endif
  next i
  position object oSky,object position x(oShip),object position y(oShip),object position z(oShip)
  ink rgb(255,255,255),64
  set cursor 0,0
  print "Orbital velocity:";int(velocity*1000)
  print "  Orbital height:";int(height#)
  sync
endwhile
end

function make_ship()
  make object box oShip,20,75,20
  color object oShip,rgb(128,128,128)
  make object cylinder oShip+1,20
  make mesh from object mShip+1,oShip+1
  delete object oShip+1
  add limb oShip,1,mShip+1
  add limb oShip,2,mShip+1
  add limb oShip,3,mShip+1
  delete mesh mShip+1
  offset limb oShip,1,-10,30.5,-5
  offset limb oShip,2,10,30.5,-5
  offset limb oShip,3,0,31.5,10
  color limb oShip,1,rgb(128,128,128)
  color limb oShip,2,rgb(128,128,128)
  color limb oShip,3,rgb(128,128,128)
  make object sphere oShip+1,20,20,20
  scale object oShip+1,100,10,100
  make mesh from object mShip+1,oShip+1
  delete object oShip+1
  add limb oShip,4,mShip+1
  add limb oShip,5,mShip+1
  add limb oShip,6,mShip+1
  add limb oShip,7,mShip+1
  add limb oShip,8,mShip+1
  add limb oShip,9,mShip+1
  delete mesh mShip+1
  offset limb oShip,4,-10,39.5,-5
  offset limb oShip,5,10,39.5,-5
  offset limb oShip,6,0,40.5,10
  offset limb oShip,7,-10,40,-5
  offset limb oShip,8,10,40,-5
  offset limb oShip,9,0,41,10
  make object box oShip+1,20,20,5
  make mesh from object mShip+1,oShip+1
  delete object oShip+1
  add limb oShip,10,mShip+1
  add limb oShip,11,mShip+1
  add limb oShip,12,mShip+1
  delete mesh mShip+1
  offset limb oShip,10,-29,30,-10
  offset limb oShip,11,29,30,-10
  offset limb oShip,12,0,30,29.5
  rotate limb oShip,10,0,-15,0
  rotate limb oShip,11,0,15,0
  rotate limb oShip,12,0,90,0
  color limb oShip,10,rgb(128,128,128)
  color limb oShip,11,rgb(128,128,128)
  color limb oShip,12,rgb(128,128,128)
  hide limb oShip,7
  hide limb oShip,8
  hide limb oShip,9
  xrotate object oShip,-90
  fix object pivot oShip
  create bitmap 1,64,64
  ink rgb(64,64,64),0
  box 0,0,63,63
  ink rgb(128,128,128),0
  for i=0 to 63 step 2
    for j=0 to 63 step 2
      dot i,j
    next j
  next i
  get image iShip,0,0,63,63
  delete bitmap 1
  set current bitmap 0
  texture object oShip,iShip
  create bitmap 1,64,64
  ink rgb(255,0,0),0
  box 0,0,63,63
  for i= 1 to 62
    ink rgb(255-(i*3),0,0),0
    circle 32,32,i
  next i
  get image iEngine,0,0,63,63
  delete bitmap 1
  set current bitmap 0
  texture limb oShip,7,iEngine
  texture limb oShip,8,iEngine
  texture limb oShip,9,iEngine
  scale object oShip,10,10,10
  set object transparency oShip,1
  set object diffuse oShip,rgb(128,128,128)
  set object ambience oShip,rgb(64,64,192)
  set object specular oShip,rgb(128,128,128)
  set object emissive oShip,rgb(64,64,64)
  set object specular power oShip,90
  set object ambient oShip,0
  set object light oShip,1
endfunction

function make_planet()
  make object sphere oPlanet,1000,30,30
  make object sphere oAtmosphere,1040,30,30
  create bitmap 1,2048,2048
  ink rgb(0,128,255),0
  box 0,0,2047,2047
  ink rgb(128,128,0),0
  dim x(8)
  dim y(8)
  for i=1 to 800
    x=rnd(2047)
    y=rnd(2047)
    for j=1 to 80
      ink rgb(255-j*2,255-j*2,255),0
      angle=j*9
      x1=cos(angle)*j
      y1=sin(angle)*j
      circle x+x1,y+y1,j/2
      circle x-x1,y-y1,j/2
    next j
  next i
  get image iPlanet,0,0,2047,2047
  delete bitmap 1
  set current bitmap 0
  texture object oPlanet,iPlanet
  set object ambient oPlanet,0
  set object light oPlanet,1
  set object filter oPlanet,2
  texture object oAtmosphere,iPlanet
  ghost object on oAtmosphere
  set object ambient oAtmosphere,1
  fade object oAtmosphere,120
endfunction
function make_aliens()
  make object cube oAlienS,20
  create bitmap 1,256,256
  for i=0 to 255 step 8
    g=rnd(10)
    l=rnd(5)
    ink rgb(g*25,g*25,g*25),0
    box i+j,0,i+j+3,255
    ink 0,0
    box i+j+1,l*15,i+j+2,255-l*15
  next i
  for i=0 to 255 step 8
    g=rnd(10)
    l=rnd(5)
    ink rgb(g*25,g*25,g*25),0
    box 0,i+j,255,i+j+3
    ink 0,0
    box l*15,i+j+1,255-l*15,i+j+2
  next i
  get image iAlien,0,0,255,255
  delete bitmap 1
  set current bitmap 0
  texture object oAlienS,iAlien
  scale object oAlienS,30,30,30
  for i=oAlienS+1 to oAlienF
    clone object i,oAlienS
  next i
endfunction
function make_stars()
  make object sphere oSky,19900
  set object cull oSky,0
  create bitmap 1,2048,2048
  ink rgb(255,255,255),0
  for i=1 to 2048
    x=rnd(2048)
    y=rnd(2048)
    dot x,y
  next i
  get image iSky,0,0,2047,2047
  delete bitmap 1
  set current bitmap 0
  texture object oSky,iSky
  set object ambient oSky,0
endfunction
function make_shots()
  make object sphere oShotS,2
  color object oShotS,rgb(255,128,128)
  set object ambience oShotS,rgb(255,0,0)
  set object emissive oShotS,rgb(255,0,0)
  for i=1 to shots
    clone object oShotS+i,oShotS
  next i
endfunction
function make_explosion()
  make object sphere oExplosion,100
  texture object oExplosion,iAlien
  ghost object on oExplosion
  set object emissive oExplosion,rgb(255,0,0)
  set object ambience oExplosion,rgb(255,0,0)
  set object diffuse oExplosion,rgb(255,0,0)
  hide object oExplosion
endfunction
function crash()
  ink rgb(192,192,192),0
  box 300,200,700,400
  ink 0,0
  box 310,210,690,390
  ink rgb(255,255,255),0
  text 320,260,"Spacecraft burned up in atmosphere"
  sync
  wait key
endfunction
function title()
  set current bitmap 0
  sync
  ink rgb(255,255,255),0
  set text size 20
  set cursor 300,300
  print "Building the universe...please wait"
  sync
endfunction

Rem Project: Jason Contest 1
Rem Created: 6/29/2007 4:27:30 PM

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

#constant B 0
#constant LW 0
#constant LF 0
#constant RW 0
#constant RF 0
REM #constant Multiplier 0.1

global Q
global total
global team

input "Choose difficulty (0 - easy; 1 - medium; 2 - hard): ",diff$
if diff$ = "1"
   total = 50
   team = 25
   enemyscore = 30
   teamscore = 25
else
   if diff$ = "2"
      total = 40
      team = 20
   enemyscore = 30
   teamscore = 20
   else
      total = 60
      team = 30
   enemyscore = 30
   teamscore = 30
   endif
endif

sync off
set camera range 0.1,120000
autocam off
cls
randomize timer()
dim firetime(total)

c as dword
for x = 0 to 3000
   bx = rnd(1024) : by = rnd(768)
   c = rgb(255-rnd(25),255-rnd(25),255-rnd(25))
   dot bx,by,c
   rem box bx-1,by-1,bx+1,by+1,c,c,c,c
next x

Q = 1
Space = Q
get image Q,0,0,1024,768,1
make object cube Q,50000
set object light Q,0
set object cull Q,0
texture object Q,Q

Q=Q+1 : cls
CspR = Q
ink rgb(255,0,0),rgb(255,0,0)
circle 10,10,5
ink rgb(255,255,255),rgb(255,255,255)
get image Q,0,0,20,20,1
sprite Q,0,0,Q
hide sprite Q

Q=Q+1 : cls
CspB = Q
ink rgb(0,0,255),rgb(0,0,255)
circle 10,10,5
ink rgb(255,255,255),rgb(255,255,255)
get image Q,0,0,20,20,1
sprite Q,0,0,Q
hide sprite Q

Q=Q+1 : cls
CspAimer = Q
ink rgb(255,170,0),rgb(255,170,0)
line 6,0,6,100
line 12,0,12,100
y = 0
for x = 1 to 5
   line 6-(x+1),y,6,y
   line 12+(x+1),y,12,y
   y = y + 11
next x
ink rgb(255,255,255),rgb(255,255,255)
get image Q,0,0,19,130,1
sprite Q,0,0,Q
offset sprite Q,9,150
hide sprite Q

Q=Q+1 : cls

type Player
   control as integer
   targeted as integer
   T as integer
   L as integer
   R as integer
   dx as float
   dy as float
   dz as float
endtype
player as Player
dim comp(total) as Player

REM make ships
player.control = 1+Q
for x = 1+Q to total+1+Q
   make object box x,2,1,8
   if x < team+1+Q
      color object x,rgb(0,0,150)
   else
      color object x,rgb(255,255,0)
   endif
   set object collision to boxes x
   rem make object box x*LW,2,0.5,1
   rem make object box x*LF,.5,.5,3
   rem make object box x*RW,2,0.5,1
   rem make object box x*RF,.5,.5,3
next x

for x = total+2+Q to total+20*total+2+Q
   make object box x,.3,.3,30
   set object diffuse x,rgb(255,0,0)
   set object ambience x,rgb(255,0,0)
   set object emissive x,rgb(255,0,0)
   hide object x
next x

dim bulletlife(20*total)

Rem position teams
Rem Blue Team
for x = 1+Q to team+Q
   position object x,rnd(500)-250,rnd(200)-100,rnd(50)-25
next x

for x = team+1+Q to total+1+Q
   position object x,rnd(500)-250,rnd(200)-100,rnd(50)-25+1500
   rotate object x,0,180,0
next x

rem move player.control back for a more action-oriented view
move object 1+Q,-300


hide mouse
sync on
sync rate 100

pturnspeed# = 5.0
rem turnspeed# = 0.01
turnspeed# = 0.001
s# = 0.4
Multiplier as float

do
text 0,0,str$(screen fps())
text 0,13,"Team: "+str$(teamscore)
text 0,26,"Enemy: "+str$(enemyscore)
REM Multiplier = (timer() - Last)*0.01
REM Last = timer()
Multiplier = 1.0

mmy# = mousemovey()*s#*Multiplier
if mmy# > pturnspeed#*Multiplier then mmy# = pturnspeed#*Multiplier
if mmy# < -pturnspeed#*Multiplier then mmy# = -pturnspeed#*Multiplier
mmx# = mousemovex()*s#*Multiplier
if mmx# > pturnspeed#*Multiplier then mmx# = pturnspeed#*Multiplier
if mmx# < -pturnspeed#*Multiplier then mmx# = -pturnspeed#*Multiplier
mmz# = mousemovez()*s#*0.1*Multiplier
if mmz# > pturnspeed#*Multiplier then mmz# = pturnspeed#*Multiplier
if mmz# < -pturnspeed#*Multiplier then mmz# = -pturnspeed#*Multiplier
x#=x#+mmy# : y#=y#+mmx# : z#=z#+mmz#
rem rotate object player.control,x#,y#,z#
rotate object player.control,0,0,0
rem turn object right player.control,y#
rem pitch object up player.control,x#
rem roll object left player.control,z#
rotate object player.control,x#,y#,0
rem roll object left player.control,z#
rem rotate limb player.control,1,0,0,z#

position camera object position x(player.control),object position y(player.control),object position z(player.control)
rem rotate camera x#+15.0,y#,z#
rem roll camera right z#
rotate camera object angle x(player.control)+15.0,object angle y(player.control),0
move camera -75
position object Space,object position x(player.control),object position y(player.control),object position z(player.control)

paste sprite CspAimer,screen width()/2,screen height()/2

Rem Control AI:
for x = 1+Q to total+1+Q

if object visible(x) = 1
move object x,15*Multiplier
REM if x <> player.control then move object x,-1*Multiplier

if object in screen(x) = 1
   if x >= team+1+Q and x <= total+1+Q
      paste sprite CspR,object screen x(x)-10,object screen y(x)-10
   else
      paste sprite CspB,object screen x(x)-10,object screen y(x)-10
   endif
endif

coll = object collision(x,0)
if coll >= total+2+Q and coll <= total+20*total+2+Q
if object visible(coll) = 1
   hide object x
   hide object coll
   if x >= 1+Q and x < team+1+Q then teamscore = teamscore-1
   if x >= team+1+Q and x <= total+1+Q then enemyscore = enemyscore-1
   if teamscore = 0 or enemyscore = 0 then CalcVictory(teamscore,enemyscore)
endif
endif

if x <> player.control
   y = x-1-Q
   if comp(y).T = 0
      if x < team+1+Q then comp(y).T = rnd(total-team)+team+1+Q
      if x > team+Q then comp(y).T = rnd(team-1)+1+Q
      remstart
      if object visible(comp(y).T) = 1
         if comp(comp(y).T-1-Q).targeted = 0
            comp(comp(y).T-1-Q).targeted = y
         else
            comp(y).T = 0
         endif
      endif
      remend
   else
      ox# = object angle x(x) : oy# = object angle y(x) : oz# = object angle z(x)
      point object x,object position x(comp(y).T),object position y(comp(y).T),object position z(comp(y).T)
      dx# = ox#-object angle x(x) : dy# = oy#-object angle y(x) : dz# = oz#-object angle z(x)
      comp(y).dx = dx#/10.0 : if comp(y).dx > turnspeed#*Multiplier then comp(y).dx = turnspeed#*Multiplier : if comp(y).dx < -turnspeed#*Multiplier then comp(y).dx = -turnspeed#*Multiplier
      comp(y).dy = dy#/10.0 : if comp(y).dy > turnspeed#*Multiplier then comp(y).dy = turnspeed#*Multiplier : if comp(y).dy < -turnspeed#*Multiplier then comp(y).dy = -turnspeed#*Multiplier
      comp(y).dz = dz#/10.0 : if comp(y).dz > turnspeed#*Multiplier then comp(y).dz = turnspeed#*Multiplier : if comp(y).dz < -turnspeed#*Multiplier then comp(y).dz = -turnspeed#*Multiplier
      if dx# < 4.0 or dx# > -4.0
         if dy# < 4.0 or dy# > -4.0
            rem if dz# > 4.0 or dz# < -4.0
               obj = FreeLaser()
               firetime(y) = Fire(firetime(y),x,obj)
            rem endif
         endif
      endif
      if object visible(comp(y).T) = 0 then comp(y).T = 0
   endif
endif
endif
next x

if object visible(player.control) = 0 then player.control = rnd(team-1)+1+Q

obj = FreeLaser()
if mouseclick() = 1 then firetime(player.control-Q-1) = Fire(firetime(player.control-Q-1),player.control,obj)

for x = total+2+Q to total+20*total+2+Q
   if object visible(x) = 1
      bulletlife(x-total-1-Q) = bulletlife(x-total-1-Q)-1
      if bulletlife(x-total-1-Q) = 0 then hide object x
      move object x,30*Multiplier
      remstart
      rem coll = object collision(x,0)
      if coll >= 1+Q and coll <= total+1+Q
         hide object x
         hide object coll
      endif
      remend
   endif
next x

sync
loop



function FreeLaser()
   for x = total+2+Q to total+20*total+2+Q
      if object exist(x) = 1
         if object visible(x) = 0
            bulletlife(x-total-1-Q) = 50
            exitfunction x
         endif
      endif
   next x
endfunction x

function Fire(T,P,O)
if timer()-T > 300
   position object O,object position x(P),object position y(P),object position z(P)
   rotate object O,object angle x(P),object angle y(P),object angle z(P)
   rem move object O,7.6
   rem move object O,-5
   move object O,5+15
   show object O
   T = timer()
endif
endfunction T


function CalcVictory(t,e)
set text size 36
if e = 0 then center text screen width()/2,screen height()/2,"Victory!"
if t = 0 then center text screen width()/2,screen height()/2,"Failure!"
sync
wait 2000
end
endfunction

set display mode 1024,768,32
sw=screen width()
sh=screen height()
sync on
sync rate 60
gosub make_sun_texture
gosub display

#constant static_variable=global


type SHIP_CLASS

   objectnumber as integer
   Human as integer `0 for computer, >0 for human player
   Name as String
   Image as Integer
   velocity as float
   acceleration as float
   maxvelocity as float
   camdistance as float
   shield as integer
   maxshield as integer
   alive as integer
   aimode as string
   newbearingx as float
   newbearingy as float
   newbearingz as float
   changingcourse as integer
   turnspeed as integer
   fullcharge as integer `weapon max charge
   firepower as integer
   delaytime as integer  `interval between laser pulses
   rechargerate as integer
   maxduration as integer `duration of laser pulse
   fireduration as integer
   `flags
   charge as integer
   delay as integer
   fire as integer
   range as integer

endtype


Dim ship(0) as ship_class


GLOBAL number_of_ships
number_of_ships=10
GLOBAL cam_mode=2 `set camera to chase-cam mode
GLOBAL keypress
GLOBAL trackinginfo=1000
GLOBAL theta
global weapondummy
global aidummy
global target
global glow




gosub make_sun
make_ships(number_of_ships)
GLOBAL camera_on_ship=1 `initial ship camera will follow
weapondummy=free_object()
make object cube weapondummy,1
hide object weapondummy
aidummy=free_object()
make object cube aidummy,1
hide object aidummy
gosub make_crosshairs


TEMP_FUNCTION1() `called once


ink rgb(0,255,0),0
do

color backdrop 0
show object glow

TEMP_FUNCTION2() `called each loop
control_ships(number_of_ships)
move_ships(number_of_ships)
flashing_lights(number_of_ships)
control_camera(cam_mode,camera_on_ship)
starfield(ship(camera_on_ship).velocity,ship(camera_on_ship).objectnumber)
player_weapons()
gosub show_crosshairs
turn object right sun,0.1
point object glow,camera position x(),camera position y(),camera position z()
cockpit()


if scancode()=0 then keypress=0

sync
loop

display:
autocam off
position camera 0,0,-15
color backdrop 0
set ambient light 50
set light range 1,10000
return

make_crosshairs:

crosshairs=free_sprite()
crosshairimage=free_image()
create bitmap 1,100,100
ink rgb(100,100,255),0
line 20,50,45,50
line 55,50,80,50
line 50,20,50,45
line 50,55,50,80
get image crosshairimage,0,0,100,100,1
delete bitmap 1

sprite crosshairs,0,0,crosshairimage

return

show_crosshairs:

if camera_on_ship=1
if cam_mode=1
  sprite crosshairs,screen width()/2.0-sprite width(crosshairs)/2.0,screen height()/2.0-sprite height(crosshairs)/2.0,crosshairimage
endif
if cam_mode=2
  position object weapondummy,object position x(ship(1).objectnumber),object position y(ship(1).objectnumber),object position z(ship(1).objectnumber)
  set object to object orientation weapondummy,ship(1).objectnumber
  move object weapondummy,100
  x=object screen x(weapondummy)
  y=object screen y(weapondummy)
  sprite crosshairs,x-sprite width(crosshairs)/2.0,y-sprite height(crosshairs)/2.0,crosshairimage
endif
endif


return

function cockpit()

text 300,700,"Shield:"
box 400,700,400+(ship(1).shield)/2.0,720


endfunction

function player_weapons()

if 0 = 1
static_variable charge
static_variable delay
static_variable fire
static_variable fireduration

endif


fullcharge=100
firepower=1
delaytime=20
rechargerate=1
maxduration=5

if spacekey()=1 and charge>0
  fire=1
  dec charge,firepower
endif

if fire=1 and delay=0
  inc fireduration
  if fireduration=maxduration then delay=delaytime:fireduration=0
  if cam_mode=1
    line 0,0,screen width()/2.0,screen height()/2.0
    line screen width(),0,screen width()/2.0,screen height()/2.0
    target=pick object(screen width()/2.0,screen height()/2.0,ship(2).objectnumber,ship(number_of_ships).objectnumber)
  endif
  if cam_mode=2
    position object weapondummy,object position x(ship(1).objectnumber),object position y(ship(1).objectnumber),object position z(ship(1).objectnumber)
    set object to object orientation weapondummy,ship(1).objectnumber
    move object left weapondummy,1.5
    x1=object screen x(weapondummy)
    y1=object screen y(weapondummy)
    move object right weapondummy,3
    x2=object screen x(weapondummy)
    y2=object screen y(weapondummy)
    move object left weapondummy,1.5
    move object weapondummy,100
    x3=object screen x(weapondummy)
    y3=object screen y(weapondummy)
    line x1,y1,x3,y3
    line x2,y2,x3,y3
    target=pick object(x3,y3,ship(2).objectnumber,ship(number_of_ships).objectnumber)
  endif
if target>0
    targetnumber=ship_link_list(target)
    dec ship(targetnumber).shield,firepower
    ship(targetnumber).aimode="attack"
    if ship(targetnumber).shield<=0
      hide object ship(targetnumber).objectnumber
      ship(targetnumber).alive=0
    endif
  endif

endif

if charge<fullcharge
  inc charge,rechargerate
  if charge>fullcharge then charge=fullcharge
endif
if delay>0 then dec delay
if spacekey()=0 then fire=0

endfunction

function ai_weapons(shipnumber)

n=shipnumber


if ship(n).charge>0
  ship(n).fire=1
  dec ship(n).charge,ship(n).firepower
endif

if ship(n).fire=1 and ship(n).delay=0
  distance#=distance(ship(n).objectnumber,ship(1).objectnumber)
  if distance#<=ship(n).range
    inc ship(n).fireduration
    if ship(n).fireduration>=ship(n).maxduration then ship(n).delay=ship(n).delaytime:ship(n).fireduration=0
    if cam_mode=1 and camera_on_ship=n
      line 0,0,object screen x(ship(1).objectnumber),object screen y(ship(1).objectnumber)
      line screen width(),0,object screen x(ship(1).objectnumber),object screen y(ship(1).objectnumber)
    endif
    if cam_mode=2
      position object weapondummy,object position x(ship(n).objectnumber),object position y(ship(n).objectnumber),object position z(ship(n).objectnumber)
      set object to object orientation weapondummy,ship(n).objectnumber
      move object left weapondummy,1.5
      x1=object screen x(weapondummy)
      y1=object screen y(weapondummy)
      move object right weapondummy,3
      x2=object screen x(weapondummy)
      y2=object screen y(weapondummy)
      x3=object screen x(ship(1).objectnumber)
      y3=object screen y(ship(1).objectnumber)
      line x1,y1,x3,y3
      line x2,y2,x3,y3
    endif


    dec ship(1).shield,ship(n).firepower
    color backdrop rgb(255,0,0):hide object glow
    if ship(1).shield<=0
      hide object ship(1).objectnumber
      ship(1).alive=0
    endif
  endif
endif



if ship(n).charge<ship(n).fullcharge
  inc ship(n).charge,ship(n).rechargerate
  if ship(n).charge>ship(n).fullcharge then ship(n).charge=ship(n).fullcharge
endif
if ship(n).delay>0 then dec ship(n).delay


endfunction




function flashing_lights(number_of_ships)

for n=1 to number_of_ships

ship=ship(n).objectnumber
brightness=int(127*sin(theta))+127
inc theta,1
color limb ship,5,rgb(255,brightness,brightness)

next n

endfunction


function make_ships(number)


   `create temporary texture for spaceships
   create bitmap 1,10,10
      blue=free_image()
      ink rgb(0,0,255),0
      box 0,0,10,10
      get image blue,0,0,10,10
      red=free_image()
      ink rgb(255,0,0),0
      box 0,0,10,10
      get image red,0,0,10,10
      green=free_image()
      ink rgb(0,255,0),0
      box 0,0,10,10
      get image green,0,0,10,10
   delete bitmap 1
   set current bitmap 0

   for n=1 to number_of_ships
      array insert at bottom ship(0)
      ship(n).objectnumber=free_object()
      dim ship_link_list(ship(n).objectnumber)
      ship_link_list(ship(n).objectnumber)=n





  `body
  make object box ship(n).objectnumber,2.0,1.1,5

  temp=free_object()
  `nose
  make object box temp,1.4,1,1.4
  yrotate object temp,45
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,1,1
  offset limb ship(n).objectnumber,1,0,0,2.5
  delete mesh 1
  `left wing
  make object box temp,2,0.5,3
  yrotate object temp,45
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,2,1
  offset limb ship(n).objectnumber,2,-1,0,-1.5
  delete mesh 1
  `right wing
  make object box temp,2,0.5,3
  yrotate object temp,-45
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,3,1
  offset limb ship(n).objectnumber,3,1,0,-1.5
  delete mesh 1
  `fin
  make object box temp,0.2,1,4
  xrotate object temp,12
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,4,1
  offset limb ship(n).objectnumber,4,0,0.5,0
  delete mesh 1
  `light
  make object box temp,0.5,0.3,0.5
  yrotate object temp,45
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,5,1
  offset limb ship(n).objectnumber,5,0,0,-2.5
  delete mesh 1

  if n>1 then rotate object ship(n).objectnumber,rnd(360),rnd(360),rnd(360)


  ship(n).acceleration=0.02
  ship(n).maxvelocity=3
  ship(n).camdistance=20
  ship(n).velocity=0.3
  ship(n).maxshield=100
  ship(n).shield=ship(n).maxshield
  ship(n).alive=1
  ship(n).aimode="passive"
  ship(n).turnspeed=60 `smoothness value for curveangle - larger number=slower turnspeed

  if n>1
    ship(n).fullcharge=100
    ship(n).firepower=1
    ship(n).delaytime=20
    ship(n).rechargerate=1
    ship(n).maxduration=5
    ship(n).range=300
  endif

  if n=1
    ship(n).human=1
    ship(n).maxshield=500
    ship(n).shield=ship(n).maxshield
    ship(n).name="Your ship"
    texture object ship(n).objectnumber,blue
  else
    ship(n).name="Trade ship "+str$(n)
    texture object ship(n).objectnumber,green
  endif

  position object ship(n).objectnumber,rnd(50)-25,rnd(50)-25,rnd(50)-25

   next n
endfunction





function free_object()

repeat
inc n
until object exist(n)=0

endfunction n


function TEMP_FUNCTION1()


   text_sprite(free_sprite(),255,255,0,0,0,"arrow keys - control ship")
   text_sprite(free_sprite(),255,255,0,0,20,"+ - increase velocity")
   text_sprite(free_sprite(),255,255,0,0,40,"- - decrease velocity")
   text_sprite(free_sprite(),255,0,0,0,80,"1 - cockpit mode")
   text_sprite(free_sprite(),255,0,0,0,100,"2 - chasecam mode")
   text_sprite(free_sprite(),255,0,0,0,120,"c - change camera")
   text_sprite(free_sprite(),255,0,0,0,140,"a - zoom in")
   text_sprite(free_sprite(),255,0,0,0,160,"z - zoom out")


   text_sprite(trackinginfo,255,255,0,700,0,"Camera tracking: "+ship(1).name)



endfunction

function TEMP_FUNCTION2()

if 0=1 then global currenttarget

n=ship_link_list(target)
if n>0
  currenttarget=n
endif
if currenttarget>0
  text 700,20,"Ship hit: "+ship(currenttarget).name
  text 700,40,"Shield: "
  box 800,40,800+ship(currenttarget).shield,60
endif



endfunction


function control_ships(number_of_ships)
   for n=1 to number_of_ships
     if ship(n).alive=1

     if ship(n).human=1
       `keyboard control system
        if leftkey()=1 then roll object left ship(1).objectnumber,1
        if rightkey()=1 then roll object right ship(1).objectnumber,1
        if upkey()=1 then  pitch object down ship(1).objectnumber,0.5
        if downkey()=1 then  pitch object up ship(1).objectnumber,0.5
        if keystate(12)=1 and ship(n).velocity > 0 then dec ship(n).velocity,ship(n).acceleration
        if keystate(13)=1 and ship(n).velocity < ship(n).maxvelocity then inc ship(n).velocity,ship(n).acceleration
     else
       `apply AI to computer controlled ships
       if ship(n).aimode="passive"
         if ship(n).changingcourse=0
           if rnd(500)=0
             ship(n).newbearingx=rnd(360)
             ship(n).newbearingy=rnd(360)
             ship(n).newbearingz=rnd(360)
             ship(n).changingcourse=1
           endif
         endif
         if ship(n).changingcourse=1
           rotate object ship(n).objectnumber,curveangle(ship(n).newbearingx,object angle x(ship(n).objectnumber),ship(n).turnspeed),curveangle(ship(n).newbearingy,object angle y(ship(n).objectnumber),ship(n).turnspeed),curveangle(ship(n).newbearingz,object angle z(ship(n).objectnumber),ship(n).turnspeed)
           targetxmet=0
           targetymet=0
           targetzmet=0
           if anglebetweenbearings(object angle x (ship(n).objectnumber),ship(n).newbearingx)<5.0 then targetxmet=1
           if anglebetweenbearings(object angle y (ship(n).objectnumber),ship(n).newbearingy)<5.0 then targetymet=1
           if anglebetweenbearings(object angle z (ship(n).objectnumber),ship(n).newbearingz)<5.0 then targetzmet=1
           `if new bearing is reached (within a few degrees), change flag to force a new bearing to be calculated next loop
           if targetxmet=1 and targetymet=1 and targetzmet=1 then ship(n).changingcourse=0
         endif
       endif
       if ship(n).aimode="attack"
         if ship(n).changingcourse=0
           `find new bearing by pointing dummy towards player and recording results
           position object aidummy,object position x(ship(n).objectnumber),object position y(ship(n).objectnumber),object position z(ship(n).objectnumber)
           point object aidummy,object position x(ship(1).objectnumber),object position y(ship(1).objectnumber),object position z(ship(1).objectnumber)
           ship(n).newbearingx=object angle x(aidummy)
           ship(n).newbearingy=object angle y(aidummy)
           ship(n).newbearingz=object angle z(aidummy)
           ship(n).changingcourse=1
         endif
         if ship(n).changingcourse=1
           `decrease speed if close to player ship, to prevent orbiting
           dist#=distance(ship(n).objectnumber,ship(1).objectnumber)
           if dist#<60 then ship(n).velocity=dist#/200.0 else ship(n).velocity=0.3
           `rotate enemy ship towards new bearing
           rotate object ship(n).objectnumber,curveangle(ship(n).newbearingx,object angle x(ship(n).objectnumber),ship(n).turnspeed),curveangle(ship(n).newbearingy,object angle y(ship(n).objectnumber),ship(n).turnspeed),curveangle(ship(n).newbearingz,object angle z(ship(n).objectnumber),ship(n).turnspeed)
           `check to see if bearing has been reached
           targetxmet=0
           targetymet=0
           targetzmet=0
           if anglebetweenbearings(object angle x (ship(n).objectnumber),ship(n).newbearingx)<5.0 then targetxmet=1
           if anglebetweenbearings(object angle y (ship(n).objectnumber),ship(n).newbearingy)<5.0 then targetymet=1
           if anglebetweenbearings(object angle z (ship(n).objectnumber),ship(n).newbearingz)<5.0 then targetzmet=1
           `if new bearing is reached (within a few degrees), change flag to force a new bearing to be calculated next loop
           if targetxmet=1 and targetymet=1 and targetzmet=1
             ai_weapons(n)
             ship(n).changingcourse=0
           endif
         endif
       endif
     endif

     endif
   next n
endfunction

function move_ships(number_of_ships)
   for n=1 to number_of_ships
      move object ship(n).objectnumber,ship(n).velocity
   next n
endfunction



function control_camera(mode,shipnumber)


if mode=1 `cockpit view
   set camera to object orientation ship(shipnumber).objectnumber
   position camera object position x(ship(shipnumber).objectnumber),object position y(ship(shipnumber).objectnumber),object position z(ship(shipnumber).objectnumber)
   move camera 2
endif

if mode=2 `chase cam view
  chase_cam(ship(shipnumber).objectnumber,ship(shipnumber).camdistance)
  if inkey$()="a" and ship(shipnumber).camdistance>5 then dec ship(shipnumber).camdistance,.2
  if inkey$()="z" and ship(shipnumber).camdistance<20 then inc ship(shipnumber).camdistance,.2
endif

if keystate(2)=1 then cam_mode=1
if keystate(3)=1 then cam_mode=2
if inkey$()="c" and keypress=0
   keypress=1
   inc camera_on_ship
   if camera_on_ship>number_of_ships then camera_on_ship=1
   text_sprite(trackinginfo,255,255,0,700,0,"Tracking: "+ship(camera_on_ship).name)
endif


endfunction

function free_image()
   repeat
     inc n
   until image exist(n)=0
endfunction n


function free_sprite()
   repeat
     inc n
   until sprite exist(n)=0 and image exist(n)=0
endfunction n

function text_sprite(entity,r,g,b,x,y,text$)
   if text$="" then text$=" "
   create bitmap 1,screen width(),screen height()
      set current bitmap 1
      ink rgb(r,g,b),0
      set text size 20
      `set text font "Arial"
      text 0,0,text$
      if image exist(entity) then delete image entity
      if sprite exist(entity) then delete sprite entity
      get image entity,0,0,text width(text$),text height(text$),1
      sprite entity,x,y,entity
      set sprite priority entity,1
      set sprite alpha entity,255
   delete bitmap 1
   set current bitmap 0
endfunction


function chase_cam(object,distance#)


   oldcamx#=camera position x()
   oldcamy#=camera position y()
   oldcamz#=camera position z()
   oldcamangx#=camera angle x()
   oldcamangy#=camera angle y()
   oldcamangz#=camera angle z()

   position camera object position x(object),object position y(object),object position z(object)
   set camera to object orientation object
   move camera -distance#
   pitch camera up 90
   move camera distance#/3.0
   pitch camera down 90

   newcamx#=camera position x()
   newcamy#=camera position y()
   newcamz#=camera position z()
   newcamangx#=camera angle x()
   newcamangy#=camera angle y()
   newcamangz#=camera angle z()

   xrotate camera curveangle(newcamangx#,oldcamangx#,40)
   yrotate camera curveangle(newcamangy#,oldcamangy#,40)
   zrotate camera curveangle(newcamangz#,oldcamangz#,40)
   camx#=curvevalue(newcamx#,oldcamx#,20)
   camy#=curvevalue(newcamy#,oldcamy#,20)
   camz#=curvevalue(newcamz#,oldcamz#,20)
   position camera camx#,camy#,camz#

   camangx#=camera angle x()
   camangy#=camera angle y()
   camangz#=camera angle z()
   point camera object position x(object),object position y(object),object position z(object)
   position camera object position x(object),object position y(object),object position z(object)
   move camera -distance#
   rotate camera camangx#,camangy#,camangz#


endfunction


function starfield(speed#,camera_on_object)

rem 3D Starfield Demo - Written by Jason Clogg
rem Feel free to use any of this code


rem base sprite number
base=600
rem How widely to spread the stars
spread=800
rem How many stars to display
stars=200
rem The initial distance to start the stars displaying
dist=500

`Calculate a point in front of the camera to start drawing the starfield

cx#=camera position x()
cy#=camera position y()
cz#=camera position z()

pick screen screen width()/2,screen height()/2,dist
sx#=get pick vector x()
sy#=get pick vector y()
sz#=get pick vector z()

if object exist(600)=0
   make object box 600,.5,.5,.5
   for i=601 to 600+stars
      clone object i,600
rem stars should not be affected by light or included in collisions
      set object light i,0
      set object collision off i
      position object i,rnd(spread*2)-spread,rnd(spread*2)-spread,camera position z()+rnd(dist)
   next i
endif

for i=600 to 600+stars
`reposition stars if they are out of camera shot
   if object in screen(i)=0
   position object i,cx#+sx#+(rnd(spread)-(spread/2)),cy#+sy#+(rnd(spread)-(spread/2)),cz#+sz#+(rnd(spread*2)-(spread/2))
   endif
`Calculate distance of star from camera and scale star accordingly
   dist#=distance2(cx#,cy#,cz#,i)
   scale object i,.1*(dist#*2),.1*(dist#*2),2000*speed#
   set object to object orientation i,camera_on_object
rem The multiple of 1.2 will need to be changed depending on the frame rate.
rem This value works best with a sync rate of 60
   move object i,speed#*-1.2
   next i

endfunction

function distance(obj1,obj2)

x1#=object position x(obj1)
y1#=object position y(obj1)
z1#=object position z(obj1)

x2#=object position x(obj2)
y2#=object position y(obj2)
z2#=object position z(obj2)

dist#=sqrt((x1#-x2#)*(x1#-x2#)+(y1#-y2#)*(y1#-y2#)+(z1#-z2#)*(z1#-z2#))

endfunction dist#

function distance2(x1#,y1#,z1#,obj)


x2#=object position x(obj)
y2#=object position y(obj)
z2#=object position z(obj)

dist#=sqrt((x1#-x2#)*(x1#-x2#)+(y1#-y2#)*(y1#-y2#)+(z1#-z2#)*(z1#-z2#))

endfunction dist#



make_sun_texture:

autocam off
set ambient light 0
color backdrop 0
hide light 0
make light 1
position light 1,0,0,0
set light range 1,10
temp=free_object()
make object sphere temp,4,50,50
position object temp,0,0,5

x1=sw/2-300
x2=sw/2+300
y1=sh/2-300
y2=sh/2+300

sync

glowtexture=free_image()
get image glowtexture,x1,y1,x2,y2,1
delete object temp


create bitmap 1,512,512
box 0,0,256,256,rgb(255,0,0),rgb(255,127,0),rgb(255,255,0),rgb(255,127,255)
box 256,0,512,256,rgb(255,255,0),rgb(255,127,255),rgb(255,0,0),rgb(255,127,0)
box 0,256,256,512,rgb(255,127,0),rgb(255,0,0),rgb(255,127,255),rgb(255,255,0)
box 256,256,512,512,rgb(255,127,255),rgb(255,255,0),rgb(255,127,0),rgb(255,0,0)
for n=1 to 10000
ink rgb(255,rnd(255),rnd(255)),0
dot rnd(512),rnd(512)
next n
blur bitmap 1,5
suntexture=free_image()
get image suntexture,0,0,512,512,1
delete bitmap 1

return


make_sun:

sun=free_object()
make object sphere sun,400,20,20
position object sun,0,0,800
texture object sun,suntexture
set object diffuse sun,rgb(255,255,255)
ghost object on sun
set object transparency sun,5
set object light sun,0
glow=free_object()
make object plain glow,600,600
position object glow,0,0,800
texture object glow,glowtexture
set object light glow,0
set object transparency glow,4


return

function anglebetweenbearings(bearing1#,bearing2#)

a#=wrapvalue(bearing1#)
b#=wrapvalue(bearing2#)
if a#>180 then dec a#,360
if b#>180 then dec b#,360
c#=abs(a#-b#)
if c#>180 then c#=abs(c#-360)

endfunction c#

set display mode 1024,768,32
sw=screen width()
sh=screen height()
sync on
sync rate 60
gosub make_sun_texture
gosub display

#constant static_variable=global


type SHIP_CLASS

   objectnumber as integer
   Human as integer `0 for computer, >0 for human player
   Name as String
   Image as Integer
   velocity as float
   acceleration as float
   maxvelocity as float
   camdistance as float
   shield as integer
   maxshield as integer
   alive as integer
   aimode as string
   newbearingx as float
   newbearingy as float
   newbearingz as float
   changingcourse as integer
   turnspeed as integer
   fullcharge as integer `weapon max charge
   firepower as integer
   delaytime as integer  `interval between laser pulses
   rechargerate as integer
   maxduration as integer `duration of laser pulse
   fireduration as integer
   `flags
   charge as integer
   delay as integer
   fire as integer
   range as integer
   blobnumber as integer `objectnumber of cube on radar representing each ship 'n'
   sticknumber as integer `as above, but for the stick
   distancetoplayer as float

endtype


Dim ship(0) as ship_class


GLOBAL number_of_ships
number_of_ships=10
GLOBAL cam_mode=2 `set camera to chase-cam mode
GLOBAL keypress
GLOBAL trackinginfo=1000
GLOBAL theta
global weapondummy
global aidummy
global target
global glow
global arrow
global radardummy
global radardummy2
global distancevector

distancevector=1
null=make vector3(distancevector)

`forwardvector=2
`rightvector=3
`upvector=4
`null=make vector3(forwardvector)
`null=make vector3(rightvector)
`null=make vector3(upvector)
`targetvector=5
`null=make vector3(targetvector)


gosub make_sun
make_ships(number_of_ships)
GLOBAL camera_on_ship=1 `initial ship camera will follow
weapondummy=free_object()
make object cube weapondummy,1
hide object weapondummy
aidummy=free_object()
make object cube aidummy,1
hide object aidummy
gosub make_crosshairs
gosub make_radar



TEMP_FUNCTION1() `called once


ink rgb(0,255,0),0
do

color backdrop 0
show object glow

TEMP_FUNCTION2() `called each loop
control_ships(number_of_ships)
move_ships(number_of_ships)
flashing_lights(number_of_ships)
control_camera(cam_mode,camera_on_ship)
starfield(ship(camera_on_ship).velocity,ship(camera_on_ship).objectnumber)
player_weapons()
gosub show_crosshairs
turn object right sun,0.1
point object glow,camera position x(),camera position y(),camera position z()
cockpit()


if scancode()=0 then keypress=0

sync
loop

make_radar:

create bitmap 1,101,101
for x=0 to 101 step 10
line x,0,x,101
next x
for y=0 to 101 step 10
line 0,y,101,y
next y
gridimage=free_image()
get image gridimage,0,0,101,101
delete bitmap 1

grid=free_object()
make object plain grid,1,1
position object grid,0,-1.35,3.0
xrotate object grid,90
lock object on grid
texture object grid,gridimage
set object transparency grid,5
disable object zdepth grid
set object light grid,0

arrow=free_object()
make object triangle arrow,-0.05,0,0,0.05,0,0,0,0,0.05
position object arrow,0,-1.34,2.95
lock object on arrow
`set object light arrow,0
color object arrow,rgb(255,0,0)
`disable object zdepth arrow
ghost object on arrow

for n=2 to number_of_ships
  ship(n).blobnumber=free_object()
  make object cube ship(n).blobnumber,0.01
  hide object ship(n).blobnumber
  lock object on ship(n).blobnumber
  disable object zdepth ship(n).blobnumber
  color object ship(n).blobnumber,rgb(0,255,0)
  ship(n).sticknumber=free_object()
  make object box ship(n).sticknumber,0.005,1,0.005
  hide object ship(n).sticknumber
  lock object on ship(n).sticknumber
  disable object zdepth ship(n).sticknumber
  color object ship(n).sticknumber,rgb(255,0,255)
next n

radardummy=free_object()
make object cube radardummy,1
hide object radardummy




return

display:
autocam off
position camera 0,0,-15
color backdrop 0
set ambient light 50
set light range 1,10000
return

make_crosshairs:

crosshairs=free_sprite()
crosshairimage=free_image()
create bitmap 1,100,100
ink rgb(100,100,255),0
line 20,50,45,50
line 55,50,80,50
line 50,20,50,45
line 50,55,50,80
get image crosshairimage,0,0,100,100,1
delete bitmap 1

sprite crosshairs,0,0,crosshairimage

return

show_crosshairs:

if camera_on_ship=1
if cam_mode=1
  sprite crosshairs,screen width()/2.0-sprite width(crosshairs)/2.0,screen height()/2.0-sprite height(crosshairs)/2.0,crosshairimage
endif
if cam_mode=2
  position object weapondummy,object position x(ship(1).objectnumber),object position y(ship(1).objectnumber),object position z(ship(1).objectnumber)
  set object to object orientation weapondummy,ship(1).objectnumber
  move object weapondummy,100
  x=object screen x(weapondummy)
  y=object screen y(weapondummy)
  sprite crosshairs,x-sprite width(crosshairs)/2.0,y-sprite height(crosshairs)/2.0,crosshairimage
endif
endif


return

function cockpit()

text 300,740,"Shield:"
box 387,740,387+(ship(1).shield)/2.0,760

`plot ships onto radar

for n=2 to number_of_ships
  ship(n).distancetoplayer=distance(ship(1).objectnumber,ship(n).objectnumber)
  if ship(n).distancetoplayer<=800.0
    show object ship(n).blobnumber
    show object ship(n).sticknumber
    `position blob at centre of grid
    position object ship(n).blobnumber,object position x(arrow),object position y(arrow),object position z(arrow)

    `record bearing of ship n from player orientation using radar dummy
    position object radardummy,object position x(ship(1).objectnumber),object position y(ship(1).objectnumber),object position z(ship(1).objectnumber)
    set object to object orientation radardummy,ship(1).objectnumber
    fix object pivot radardummy
    point object radardummy,object position x(ship(n).objectnumber),object position y(ship(n).objectnumber),object position z(ship(n).objectnumber)
    newx#=object angle x(radardummy)
    newy#=object angle y(radardummy)
    newz#=object angle z(radardummy)
    `bearingx#=anglebetweenbearings(oldx#,newx#)
    `bearingy#=anglebetweenbearings(oldy#,newy#)
    `bearingz#=anglebetweenbearings(oldz#,newz#)
    `rotate blob to the bearing recorded above, and move a scaled version of the distance recorded above
    rotate object ship(n).blobnumber,newx#,newy#,newz#
    move object ship(n).blobnumber,ship(n).distancetoplayer/1600.0
    rotate object ship(n).blobnumber,0,0,0
    height#=object position y(ship(n).blobnumber)-object position y(arrow)
    scale object ship(n).sticknumber,100,height#*100,100
    position object ship(n).sticknumber,object position x(ship(n).blobnumber),object position y(arrow)+height#/2.0,object position z(ship(n).blobnumber)
  else
    hide object ship(n).blobnumber
    hide object ship(n).sticknumber
  endif


next n


endfunction

function player_weapons()

if 0 = 1
static_variable charge
static_variable delay
static_variable fire
static_variable fireduration

endif


fullcharge=100
firepower=1
delaytime=20
rechargerate=1
maxduration=5

if spacekey()=1 and charge>0
  fire=1
  dec charge,firepower
endif

if fire=1 and delay=0
  inc fireduration
  if fireduration=maxduration then delay=delaytime:fireduration=0
  if cam_mode=1
    line 0,0,screen width()/2.0,screen height()/2.0
    line screen width(),0,screen width()/2.0,screen height()/2.0
    target=pick object(screen width()/2.0,screen height()/2.0,ship(2).objectnumber,ship(number_of_ships).objectnumber)
  endif
  if cam_mode=2
    position object weapondummy,object position x(ship(1).objectnumber),object position y(ship(1).objectnumber),object position z(ship(1).objectnumber)
    set object to object orientation weapondummy,ship(1).objectnumber
    move object left weapondummy,1.5
    x1=object screen x(weapondummy)
    y1=object screen y(weapondummy)
    move object right weapondummy,3
    x2=object screen x(weapondummy)
    y2=object screen y(weapondummy)
    move object left weapondummy,1.5
    move object weapondummy,100
    x3=object screen x(weapondummy)
    y3=object screen y(weapondummy)
    line x1,y1,x3,y3
    line x2,y2,x3,y3
    target=pick object(x3,y3,ship(2).objectnumber,ship(number_of_ships).objectnumber)
  endif
if target>0
    targetnumber=ship_link_list(target)
    dec ship(targetnumber).shield,firepower
    ship(targetnumber).aimode="attack"
    if ship(targetnumber).shield<=0
      hide object ship(targetnumber).objectnumber
      ship(targetnumber).alive=0
    endif
  endif

endif

if charge<fullcharge
  inc charge,rechargerate
  if charge>fullcharge then charge=fullcharge
endif
if delay>0 then dec delay
if spacekey()=0 then fire=0

endfunction

function ai_weapons(shipnumber)

n=shipnumber


if ship(n).charge>0
  ship(n).fire=1
  dec ship(n).charge,ship(n).firepower
endif

if ship(n).fire=1 and ship(n).delay=0
  distance#=distance(ship(n).objectnumber,ship(1).objectnumber)
  if distance#<=ship(n).range
    inc ship(n).fireduration
    if ship(n).fireduration>=ship(n).maxduration then ship(n).delay=ship(n).delaytime:ship(n).fireduration=0
    if cam_mode=1 and camera_on_ship=n
      line 0,0,object screen x(ship(1).objectnumber),object screen y(ship(1).objectnumber)
      line screen width(),0,object screen x(ship(1).objectnumber),object screen y(ship(1).objectnumber)
    endif
    if cam_mode=2
      position object weapondummy,object position x(ship(n).objectnumber),object position y(ship(n).objectnumber),object position z(ship(n).objectnumber)
      set object to object orientation weapondummy,ship(n).objectnumber
      move object left weapondummy,1.5
      x1=object screen x(weapondummy)
      y1=object screen y(weapondummy)
      move object right weapondummy,3
      x2=object screen x(weapondummy)
      y2=object screen y(weapondummy)
      x3=object screen x(ship(1).objectnumber)
      y3=object screen y(ship(1).objectnumber)
      line x1,y1,x3,y3
      line x2,y2,x3,y3
    endif


    dec ship(1).shield,ship(n).firepower
    color backdrop rgb(255,0,0):hide object glow
    if ship(1).shield<=0
      hide object ship(1).objectnumber
      ship(1).alive=0
    endif
  endif
endif



if ship(n).charge<ship(n).fullcharge
  inc ship(n).charge,ship(n).rechargerate
  if ship(n).charge>ship(n).fullcharge then ship(n).charge=ship(n).fullcharge
endif
if ship(n).delay>0 then dec ship(n).delay


endfunction




function flashing_lights(number_of_ships)

for n=1 to number_of_ships

ship=ship(n).objectnumber
brightness=int(127*sin(theta))+127
inc theta,1
color limb ship,5,rgb(255,brightness,brightness)

next n

endfunction


function make_ships(number)


   `create temporary texture for spaceships
   create bitmap 1,10,10
      blue=free_image()
      ink rgb(0,0,255),0
      box 0,0,10,10
      get image blue,0,0,10,10
      red=free_image()
      ink rgb(255,0,0),0
      box 0,0,10,10
      get image red,0,0,10,10
      green=free_image()
      ink rgb(0,255,0),0
      box 0,0,10,10
      get image green,0,0,10,10
   delete bitmap 1
   set current bitmap 0

   for n=1 to number_of_ships
      array insert at bottom ship(0)
      ship(n).objectnumber=free_object()
      dim ship_link_list(ship(n).objectnumber)
      ship_link_list(ship(n).objectnumber)=n





  `body
  make object box ship(n).objectnumber,2.0,1.1,5

  temp=free_object()
  `nose
  make object box temp,1.4,1,1.4
  yrotate object temp,45
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,1,1
  offset limb ship(n).objectnumber,1,0,0,2.5
  delete mesh 1
  `left wing
  make object box temp,2,0.5,3
  yrotate object temp,45
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,2,1
  offset limb ship(n).objectnumber,2,-1,0,-1.5
  delete mesh 1
  `right wing
  make object box temp,2,0.5,3
  yrotate object temp,-45
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,3,1
  offset limb ship(n).objectnumber,3,1,0,-1.5
  delete mesh 1
  `fin
  make object box temp,0.2,1,4
  xrotate object temp,12
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,4,1
  offset limb ship(n).objectnumber,4,0,0.5,0
  delete mesh 1
  `light
  make object box temp,0.5,0.3,0.5
  yrotate object temp,45
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,5,1
  offset limb ship(n).objectnumber,5,0,0,-2.5
  delete mesh 1

  if n>1 then rotate object ship(n).objectnumber,rnd(360),rnd(360),rnd(360)


  ship(n).acceleration=0.02
  ship(n).maxvelocity=3
  ship(n).camdistance=20
  ship(n).velocity=0.3
  ship(n).maxshield=100
  ship(n).shield=ship(n).maxshield
  ship(n).alive=1
  ship(n).aimode="passive"
  ship(n).turnspeed=60 `smoothness value for curveangle - larger number=slower turnspeed

  if n>1
    ship(n).fullcharge=100
    ship(n).firepower=1
    ship(n).delaytime=20
    ship(n).rechargerate=1
    ship(n).maxduration=5
    ship(n).range=300
  endif

  if n=1
    ship(n).human=1
    ship(n).maxshield=500
    ship(n).shield=ship(n).maxshield
    ship(n).name="Your ship"
    texture object ship(n).objectnumber,blue
  else
    ship(n).name="Trade ship "+str$(n)
    texture object ship(n).objectnumber,green
  endif

  position object ship(n).objectnumber,rnd(50)-25,rnd(50)-25,rnd(50)-25

   next n
endfunction





function free_object()

repeat
inc n
until object exist(n)=0

endfunction n


function TEMP_FUNCTION1()


   text_sprite(free_sprite(),255,255,0,0,0,"arrow keys - control ship")
   text_sprite(free_sprite(),255,255,0,0,20,"+ - increase velocity")
   text_sprite(free_sprite(),255,255,0,0,40,"- - decrease velocity")
   text_sprite(free_sprite(),255,0,0,0,80,"1 - cockpit mode")
   text_sprite(free_sprite(),255,0,0,0,100,"2 - chasecam mode")
   text_sprite(free_sprite(),255,0,0,0,120,"c - change camera")
   text_sprite(free_sprite(),255,0,0,0,140,"a - zoom in")
   text_sprite(free_sprite(),255,0,0,0,160,"z - zoom out")


   text_sprite(trackinginfo,255,255,0,700,0,"Camera tracking: "+ship(1).name)



endfunction

function TEMP_FUNCTION2()

if 0=1 then global currenttarget

n=ship_link_list(target)
if n>0
  currenttarget=n
endif
if currenttarget>0
  text 700,20,"Ship hit: "+ship(currenttarget).name
  text 700,40,"Shield: "
  box 800,40,800+ship(currenttarget).shield,60
endif



endfunction


function control_ships(number_of_ships)
   for n=1 to number_of_ships
     if ship(n).alive=1

     if ship(n).human=1
       `keyboard control system
        if leftkey()=1 then roll object left ship(1).objectnumber,1
        if rightkey()=1 then roll object right ship(1).objectnumber,1
        if upkey()=1 then  pitch object down ship(1).objectnumber,0.5
        if downkey()=1 then  pitch object up ship(1).objectnumber,0.5
        if keystate(12)=1 and ship(n).velocity > 0 then dec ship(n).velocity,ship(n).acceleration
        if keystate(13)=1 and ship(n).velocity < ship(n).maxvelocity then inc ship(n).velocity,ship(n).acceleration
     else
       `apply AI to computer controlled ships
       if ship(n).aimode="passive"
         if ship(n).changingcourse=0
           if rnd(500)=0
             ship(n).newbearingx=rnd(360)
             ship(n).newbearingy=rnd(360)
             ship(n).newbearingz=rnd(360)
             ship(n).changingcourse=1
           endif
         endif
         if ship(n).changingcourse=1
           rotate object ship(n).objectnumber,curveangle(ship(n).newbearingx,object angle x(ship(n).objectnumber),ship(n).turnspeed),curveangle(ship(n).newbearingy,object angle y(ship(n).objectnumber),ship(n).turnspeed),curveangle(ship(n).newbearingz,object angle z(ship(n).objectnumber),ship(n).turnspeed)
           diffx#=anglebetweenbearings(object angle x (ship(n).objectnumber),ship(n).newbearingx)
           diffy#=anglebetweenbearings(object angle y (ship(n).objectnumber),ship(n).newbearingy)
           diffz#=anglebetweenbearings(object angle z (ship(n).objectnumber),ship(n).newbearingz)
           `if new bearing is reached (within a few degrees), change flag to force a new bearing to be calculated next loop
           if diffx#<5 and diffy#<5 and diffz#<5 then ship(n).changingcourse=0
         endif
       endif
       if ship(n).aimode="attack"
         if ship(n).changingcourse=0
           `find new bearing by pointing dummy towards player and recording results
           position object aidummy,object position x(ship(n).objectnumber),object position y(ship(n).objectnumber),object position z(ship(n).objectnumber)
           point object aidummy,object position x(ship(1).objectnumber),object position y(ship(1).objectnumber),object position z(ship(1).objectnumber)
           ship(n).newbearingx=object angle x(aidummy)
           ship(n).newbearingy=object angle y(aidummy)
           ship(n).newbearingz=object angle z(aidummy)
           ship(n).changingcourse=1
         endif
         if ship(n).changingcourse=1
           `decrease speed if close to player ship, to prevent orbiting
           dist#=ship(n).distancetoplayer
           if dist#<60 then ship(n).velocity=dist#/200.0 else ship(n).velocity=0.3
           `rotate enemy ship towards new bearing
           rotate object ship(n).objectnumber,curveangle(ship(n).newbearingx,object angle x(ship(n).objectnumber),ship(n).turnspeed),curveangle(ship(n).newbearingy,object angle y(ship(n).objectnumber),ship(n).turnspeed),curveangle(ship(n).newbearingz,object angle z(ship(n).objectnumber),ship(n).turnspeed)
           `check to see if bearing has been reached
           diffx#=anglebetweenbearings(object angle x (ship(n).objectnumber),ship(n).newbearingx)
           diffy#=anglebetweenbearings(object angle y (ship(n).objectnumber),ship(n).newbearingy)
           diffz#=anglebetweenbearings(object angle z (ship(n).objectnumber),ship(n).newbearingz)
           `if new bearing is reached (within a few degrees), change flag to force a new bearing to be calculated next loop
           if diffx#<5 and diffy#<5 and diffz#<5
             ai_weapons(n)
             ship(n).changingcourse=0
           endif
         endif
       endif
     endif

     endif
   next n
endfunction


function move_ships(number_of_ships)
   for n=1 to number_of_ships
      move object ship(n).objectnumber,ship(n).velocity
   next n
endfunction



function control_camera(mode,shipnumber)


if mode=1 `cockpit view
   set camera to object orientation ship(shipnumber).objectnumber
   position camera object position x(ship(shipnumber).objectnumber),object position y(ship(shipnumber).objectnumber),object position z(ship(shipnumber).objectnumber)
   move camera 2
endif

if mode=2 `chase cam view
  chase_cam(ship(shipnumber).objectnumber,ship(shipnumber).camdistance)
  if inkey$()="a" and ship(shipnumber).camdistance>5 then dec ship(shipnumber).camdistance,.2
  if inkey$()="z" and ship(shipnumber).camdistance<20 then inc ship(shipnumber).camdistance,.2
endif

if keystate(2)=1 then cam_mode=1
if keystate(3)=1 then cam_mode=2
if inkey$()="c" and keypress=0
   keypress=1
   inc camera_on_ship
   if camera_on_ship>number_of_ships then camera_on_ship=1
   text_sprite(trackinginfo,255,255,0,700,0,"Tracking: "+ship(camera_on_ship).name)
endif


endfunction

function free_image()
   repeat
     inc n
   until image exist(n)=0
endfunction n


function free_sprite()
   repeat
     inc n
   until sprite exist(n)=0 and image exist(n)=0
endfunction n

function text_sprite(entity,r,g,b,x,y,text$)
   if text$="" then text$=" "
   create bitmap 1,screen width(),screen height()
      set current bitmap 1
      ink rgb(r,g,b),0
      set text size 20
      `set text font "Arial"
      text 0,0,text$
      if image exist(entity) then delete image entity
      if sprite exist(entity) then delete sprite entity
      get image entity,0,0,text width(text$),text height(text$),1
      sprite entity,x,y,entity
      set sprite priority entity,1
      set sprite alpha entity,255
   delete bitmap 1
   set current bitmap 0
endfunction


function chase_cam(object,distance#)


   oldcamx#=camera position x()
   oldcamy#=camera position y()
   oldcamz#=camera position z()
   oldcamangx#=camera angle x()
   oldcamangy#=camera angle y()
   oldcamangz#=camera angle z()

   position camera object position x(object),object position y(object),object position z(object)
   set camera to object orientation object
   move camera -distance#
   pitch camera up 90
   move camera distance#/3.0
   pitch camera down 90

   newcamx#=camera position x()
   newcamy#=camera position y()
   newcamz#=camera position z()
   newcamangx#=camera angle x()
   newcamangy#=camera angle y()
   newcamangz#=camera angle z()

   xrotate camera curveangle(newcamangx#,oldcamangx#,40)
   yrotate camera curveangle(newcamangy#,oldcamangy#,40)
   zrotate camera curveangle(newcamangz#,oldcamangz#,40)
   camx#=curvevalue(newcamx#,oldcamx#,20)
   camy#=curvevalue(newcamy#,oldcamy#,20)
   camz#=curvevalue(newcamz#,oldcamz#,20)
   position camera camx#,camy#,camz#

   camangx#=camera angle x()
   camangy#=camera angle y()
   camangz#=camera angle z()
   point camera object position x(object),object position y(object),object position z(object)
   position camera object position x(object),object position y(object),object position z(object)
   move camera -distance#
   rotate camera camangx#,camangy#,camangz#


endfunction


function starfield(speed#,camera_on_object)

rem 3D Starfield Demo - Written by Jason Clogg
rem Feel free to use any of this code


rem base sprite number
base=600
rem How widely to spread the stars
spread=800
rem How many stars to display
stars=200
rem The initial distance to start the stars displaying
dist=500

`Calculate a point in front of the camera to start drawing the starfield

cx#=camera position x()
cy#=camera position y()
cz#=camera position z()

pick screen screen width()/2,screen height()/2,dist
sx#=get pick vector x()
sy#=get pick vector y()
sz#=get pick vector z()

if object exist(600)=0
   make object box 600,.5,.5,.5
   for i=601 to 600+stars
      clone object i,600
rem stars should not be affected by light or included in collisions
      set object light i,0
      set object collision off i
      position object i,rnd(spread*2)-spread,rnd(spread*2)-spread,camera position z()+rnd(dist)
   next i
endif

for i=600 to 600+stars
`reposition stars if they are out of camera shot
   if object in screen(i)=0
   position object i,cx#+sx#+(rnd(spread)-(spread/2)),cy#+sy#+(rnd(spread)-(spread/2)),cz#+sz#+(rnd(spread*2)-(spread/2))
   endif
`Calculate distance of star from camera and scale star accordingly
   dist#=distance2(cx#,cy#,cz#,i)
   scale object i,.1*(dist#*2),.1*(dist#*2),2000*speed#
   set object to object orientation i,camera_on_object
rem The multiple of 1.2 will need to be changed depending on the frame rate.
rem This value works best with a sync rate of 60
   move object i,speed#*-1.2
   next i

endfunction

function distance(obj1,obj2)

x1#=object position x(obj1)
y1#=object position y(obj1)
z1#=object position z(obj1)

x2#=object position x(obj2)
y2#=object position y(obj2)
z2#=object position z(obj2)

`dist#=sqrt((x1#-x2#)*(x1#-x2#)+(y1#-y2#)*(y1#-y2#)+(z1#-z2#)*(z1#-z2#))

set vector3 distancevector,x2#-x1#,y2#-y1#,z2#-z1#
dist# = length vector3(distancevector)



endfunction dist#

function distance2(x1#,y1#,z1#,obj)


x2#=object position x(obj)
y2#=object position y(obj)
z2#=object position z(obj)

`dist#=sqrt((x1#-x2#)*(x1#-x2#)+(y1#-y2#)*(y1#-y2#)+(z1#-z2#)*(z1#-z2#))

set vector3 distancevector,x2#-x1#,y2#-y1#,z2#-z1#
dist# = length vector3(distancevector)



endfunction dist#



make_sun_texture:

autocam off
set ambient light 0
color backdrop 0
hide light 0
make light 1
position light 1,0,0,0
set light range 1,10
temp=free_object()
make object sphere temp,4,50,50
position object temp,0,0,5

x1=sw/2-300
x2=sw/2+300
y1=sh/2-300
y2=sh/2+300

sync

glowtexture=free_image()
get image glowtexture,x1,y1,x2,y2,1
delete object temp


create bitmap 1,512,512
box 0,0,256,256,rgb(255,0,0),rgb(255,127,0),rgb(255,255,0),rgb(255,127,255)
box 256,0,512,256,rgb(255,255,0),rgb(255,127,255),rgb(255,0,0),rgb(255,127,0)
box 0,256,256,512,rgb(255,127,0),rgb(255,0,0),rgb(255,127,255),rgb(255,255,0)
box 256,256,512,512,rgb(255,127,255),rgb(255,255,0),rgb(255,127,0),rgb(255,0,0)
for n=1 to 10000
ink rgb(255,rnd(255),rnd(255)),0
dot rnd(512),rnd(512)
next n
blur bitmap 1,5
suntexture=free_image()
get image suntexture,0,0,512,512,1
delete bitmap 1

return


make_sun:

sun=free_object()
make object sphere sun,400,20,20
position object sun,0,0,800
texture object sun,suntexture
set object diffuse sun,rgb(255,255,255)
ghost object on sun
set object transparency sun,5
set object light sun,0
glow=free_object()
make object plain glow,600,600
position object glow,0,0,800
texture object glow,glowtexture
set object light glow,0
set object transparency glow,4


return

function anglebetweenbearings(bearing1#,bearing2#)
`absolute value for testing if angles are in range of each other

a#=abs(wrapvalue(bearing1#+180-bearing2#)-180)

endfunction a#

function anglebetweenbearings2(bearing2#,bearing1#)
`positive or negative value
a#=180-wrapvalue(bearing1#-bearing2#+180)

endfunction a#

set display mode 1024,768,32
backdrop on
color backdrop 0
sync on
hide mouse
set image colorkey 0,0,0
set camera range 1,20000

global shots
shots=20
firespeed=20

rem Objects
global oPlanet=1
global oShip=2
global oAlienS=3
global oAlienF=13
global oSky=14
global oShotS=15
global oShotF=35
global oAtmosphere=36
global oExplosion=37
global oHud=38
global oDir=39
rem Images
global iPlanet=1
global iEngine=2
global iAlien=3
global iSky=4
global iShip=5
global iShot=6
global iTitle=7
global iHud=8
rem Meshes
global mShip=1

global xvship as float
global yvShip as float
global zvShip as float
mass as float
global velocity as float
xvShip=0.0
yvShip=0.0
zvShip=0.64
mass=250.0
global fire=1
global dim afire(shots) as integer
global dim xfire(shots) as float
global dim yfire(shots) as float
global dim zfire(shots) as float
global dim xvfire(shots) as float
global dim yvfire(shots) as float
global dim zvfire(shots) as float

aliens=oAlienF-oAlienS
dim xvAlien(aliens) as float
dim yvAlien(aliens) as float
dim zvAlien(aliens) as float
dim exAlien(aliens) as integer
global radar as integer
radar=0

dist_vector=1
i=make vector3(dist_vector)
title()
make_planet()
make_ship()
make_aliens()
make_stars()
make_shots()
make_explosion()
make_hud()
for i=oAlienS to oAlienF
  angle=(i-oAlienS)*9
  position object i,cos(angle)*650,(i-aliens/2)*20,sin(angle)*650
  angle=wrapvalue(90-angle)
  xvAlien(i-oAlienS)=cos(angle)*0.64
  yvAlien(i-oAlienS)=0.0
  zvAlien(i-oAlienS)=sin(angle)*0.64
next i
position object oShip,750,-50,100
position camera 1200,0,0
point camera 0,0,0
trigger=0
press=0
set text font "courier new"
set text size 16
text 350,450,"Press any key to start"
sync
while inkey$()<>""
endwhile
wait key
while not escapekey()
  move object oShip,-25
  pitch object up oShip,90
  move object oShip,2
  xobtain#=object position x(oShip)
  yobtain#=object position y(oShip)
  zobtain#=object position z(oShip)
  xcam#=camera position x()
  ycam#=camera position y()
  zcam#=camera position z()
  set vector3 dist_vector,(xcam#-xobtain#),(ycam#-yobtain#),(zcam#-zobtain#)
  dist#=length vector3(dist_vector)/20
  if dist#>2.0 then dist#=2.0
  point camera xobtain#,yobtain#,zobtain#
  move camera dist#
  move object oShip,-2
  pitch object down oShip,90
  move object oShip,25
  point camera object position x(oShip),object position y(oShip),object position z(oShip)
  if leftkey()
    turn object left oShip,0.5
  endif
  if rightkey()
    turn object right oShip,0.5
  endif
  if upkey()
    pitch object down oShip,0.5
  endif
  if downkey()
    pitch object up oShip,0.5
  endif
  if not shiftkey()
    hide limb oShip,7
    hide limb oShip,8
    hide limb oShip,9
  endif
  if shiftkey()
    cx#=object position x(oShip)
    cy#=object position y(oShip)
    cz#=object position z(oShip)
    move object oShip,0.001
    nx#=object position x(oShip)
    ny#=object position y(oShip)
    nz#=object position z(oShip)
    position object oShip,cx#,cy#,cz#
    xvShip=xvShip+nx#-cx#
    yvShip=yvShip+ny#-cy#
    zvShip=zvShip+nz#-cz#
    show limb oShip,7
    show limb oShip,8
    show limb oShip,9
  endif
  if not spacekey() then trigger=0
  if spacekey() and trigger=0
    trigger=1
    inc fire
    if fire>shots then fire=1
    afire(fire)=1
    xfire(fire)=object position x(oShip)
    yfire(fire)=object position y(oShip)
    zfire(fire)=object position z(oShip)
    cx#=object position x(oShip)
    cy#=object position y(oShip)
    cz#=object position z(oShip)
    move object oShip,firespeed
    nx#=object position x(oShip)
    ny#=object position y(oShip)
    nz#=object position z(oShip)
    move object oShip,-firespeed
    xvfire(fire)=nx#-cx#
    yvfire(fire)=ny#-cy#
    zvfire(fire)=nz#-cz#
    show object fire+oShotS-1
  endif
  set cursor 0,100
  if not keystate(19) then press=0
  if keystate(19) and press=0
    press=1
    radar=1-radar
  endif
  if radar
    ink rgb(255,0,0),0
    set text transparent
    for i=oAlienS to oAlienF
      if object visible(i)
        if object in screen(i)
          if not intersect object(oPlanet,camera position x(),camera position y(),camera position z(),object position x(i),object position y(i),object position z(i))
            xRad=object screen x(i)
            yRad=object screen y(i)
            oRad=pick object(xRad,yRad,i,i)
            dRad=get pick distance()
            line xRad,yRad-10,xRad-10,yRad+5
            line xRad-10,yRad+5,xRad+10,yRad+5
            line xRad+10,yRad+5,xRad,yRad-10
            set cursor xRad-10,yRad+10
            print dRad
          endif
        endif
      endif
    next i
  endif
  set vector3 dist_vector,object position x(oShip),object position y(oShip),object position z(oShip)
  height#=length vector3(dist_vector)
  if height#<550
    set object ambience oShip,rgb(255,0,0)
    if height#<520
      crash()
      end
    endif
  else
    set object ambience oShip,rgb(64,64,192)
  endif
  attract#=mass/height#^2
  deltaxv#=attract#*object position x(oShip)/height#
  deltayv#=attract#*object position y(oShip)/height#
  deltazv#=attract#*object position z(oShip)/height#
  xvShip=xvShip-deltaxv#
  yvShip=yvShip-deltayv#
  zvShip=zvShip-deltazv#
  set vector3 dist_vector,xvShip,yvShip,zvShip
  velocity=length vector3(dist_vector)
  position object oShip,object position x(oShip)+xvShip,object position y(oShip)+yvShip,object position z(oShip)+zvShip
  for i=oAlienS to oAlienF
    if exAlien(i-oAlienS)<100
      position object i,object position x(i)+xvAlien(i-oAlienS),object position y(i)+yvAlien(i-oAlienS),object position z(i)+zvAlien(i-oAlienS)
      set vector3 dist_vector,object position x(i)+xvAlien(i-oAlienS),object position y(i)+yvAlien(i-oAlienS),object position z(i)+zvAlien(i-oAlienS)
      distance#=length vector3(dist_vector)
      attract#=mass/distance#^2
      deltaxv#=attract#*object position x(i)/distance#
      deltayv#=attract#*object position y(i)/distance#
      deltazv#=attract#*object position z(i)/distance#
      xvAlien(i-oAliens)=xvAlien(i-oAliens)-deltaxv#
      yvAlien(i-oAliens)=yvAlien(i-oAliens)-deltayv#
      zvAlien(i-oAliens)=zvAlien(i-oAliens)-deltazv#
      if exAlien(i-oAlienS)>0
        ghost object on i
        show object oExplosion
        position object oExplosion,object position x(i),object position y(i),object position z(i)
        scale object oExplosion,exAlien(i-oAlienS),exAlien(i-oAlienS),exAlien(i-oAlienS)
        fade object oExplosion,150-exAlien(i-oAlienS)
        fade object i,100-exAlien(i-oAlienS)
        inc exAlien(i-oAlienS)
        if exAlien(i-oAlienS)=100
          hide object oExplosion
          hide object i
        endif
      endif
    endif
  next i
  for i=1 to shots
    if afire(i)>0
      position object i+oShotS-1,xfire(i),yfire(i),zfire(i)
      nx#=xfire(i)+xvfire(i)
      ny#=yfire(i)+yvfire(i)
      nz#=zfire(i)+zvfire(i)
      for j=oAlienS to oAlienF
        if exAlien(j-oAlienS)=0
          hit=intersect object(j,xfire(i),yfire(i),zfire(i),nx#,ny#,nz#)
          if hit>0
            afire(i)=0
            hide object i+oShotS-1
            exAlien(j-oAlienS)=1
          endif
        endif
      next j
      if afire(i)>0
        inc afire(i)
        if afire(i)>100
          afire(i)=0
          hide object i+oShotS-1
        else
          xfire(i)=nx#
          yfire(i)=ny#
          zfire(i)=nz#
        endif
      endif
    endif
  next i
  position object oSky,object position x(oShip),object position y(oShip),object position z(oShip)
  hud()
  ink rgb(0,0,255),64
  set cursor 430,725
  set text opaque
  print " Ship velocity:";int(velocity*1000)
  set cursor 430,745
  print "Orbital height:";int(height#);
  instructions()
  sync
endwhile
end

function make_ship()
  make object box oShip,20,75,20
rem  color object oShip,rgb(128,128,128)
  make object cylinder oShip+1,20
  make mesh from object mShip+1,oShip+1
  delete object oShip+1
  add limb oShip,1,mShip+1
  add limb oShip,2,mShip+1
  add limb oShip,3,mShip+1
  delete mesh mShip+1
  offset limb oShip,1,-10,30.5,-5
  offset limb oShip,2,10,30.5,-5
  offset limb oShip,3,0,31.5,10
rem  color limb oShip,1,rgb(128,128,128)
rem  color limb oShip,2,rgb(128,128,128)
rem  color limb oShip,3,rgb(128,128,128)
  make object sphere oShip+1,20,20,20
  scale object oShip+1,100,10,100
  make mesh from object mShip+1,oShip+1
  delete object oShip+1
  add limb oShip,4,mShip+1
  add limb oShip,5,mShip+1
  add limb oShip,6,mShip+1
  add limb oShip,7,mShip+1
  add limb oShip,8,mShip+1
  add limb oShip,9,mShip+1
  delete mesh mShip+1
  offset limb oShip,4,-10,39.5,-5
  offset limb oShip,5,10,39.5,-5
  offset limb oShip,6,0,40.5,10
  offset limb oShip,7,-10,40,-5
  offset limb oShip,8,10,40,-5
  offset limb oShip,9,0,41,10
rem  color limb oShip,7,rgb(255,0,0)
rem  color limb oShip,8,rgb(255,0,0)
rem  color limb oShip,9,rgb(255,0,0)
  make object box oShip+1,20,20,5
  make mesh from object mShip+1,oShip+1
  delete object oShip+1
  add limb oShip,10,mShip+1
  add limb oShip,11,mShip+1
  add limb oShip,12,mShip+1
  delete mesh mShip+1
  offset limb oShip,10,-29,30,-10
  offset limb oShip,11,29,30,-10
  offset limb oShip,12,0,30,29.5
  rotate limb oShip,10,0,-15,0
  rotate limb oShip,11,0,15,0
  rotate limb oShip,12,0,90,0
rem  color limb oShip,10,rgb(128,128,128)
rem  color limb oShip,11,rgb(128,128,128)
rem  color limb oShip,12,rgb(128,128,128)
  hide limb oShip,7
  hide limb oShip,8
  hide limb oShip,9
  xrotate object oShip,-90
  fix object pivot oShip
  create bitmap 1,64,64
  ink rgb(64,64,64),0
  box 0,0,63,63
  ink rgb(128,128,128),0
  for i=0 to 63 step 2
    for j=0 to 63 step 2
      dot i,j
    next j
  next i
  get image iShip,0,0,63,63
  delete bitmap 1
  set current bitmap 0
  create bitmap 1,64,64
  ink rgb(255,0,0),0
  box 0,0,63,63
  for i= 1 to 62
    ink rgb(255-(i*3),0,0),0
    circle 32,32,i
  next i
  get image iEngine,0,0,63,63
  delete bitmap 1
  set current bitmap 0
  texture object oShip,iShip
  texture limb oShip,7,iEngine
  texture limb oShip,8,iEngine
  texture limb oShip,9,iEngine
  scale object oShip,10,10,10
  set object diffuse oShip,rgb(128,128,128)
  set object specular oShip,rgb(128,128,128)
  set object emissive oShip,rgb(64,64,64)
  set object specular power oShip,90
  set object ambient oShip,0
  set object light oShip,1
endfunction

function make_planet()
  make object sphere oPlanet,1000,30,30
  make object sphere oAtmosphere,1040,30,30
  create bitmap 1,2048,2048
  ink rgb(0,128,255),0
  box 0,0,2047,2047
  ink rgb(128,128,0),0
  dim x(8)
  dim y(8)
  for i=1 to 800
    x=rnd(2047)
    y=rnd(2047)
    for j=1 to 80
      ink rgb(255-j*2,255-j*2,255),0
      angle=j*9
      x1=cos(angle)*j
      y1=sin(angle)*j
      circle x+x1,y+y1,j/2
      circle x-x1,y-y1,j/2
    next j
  next i
  get image iPlanet,0,0,2047,2047
  delete bitmap 1
  set current bitmap 0
  texture object oPlanet,iPlanet
  set object ambient oPlanet,0
  set object light oPlanet,1
  set object filter oPlanet,2
  texture object oAtmosphere,iPlanet
  ghost object on oAtmosphere
  set object ambient oAtmosphere,1
  fade object oAtmosphere,120
endfunction
function make_aliens()
  make object cube oAlienS,20
  create bitmap 1,256,256
  for i=0 to 255 step 8
    g=rnd(10)
    l=rnd(5)
    ink rgb(g*25,g*25,g*25),0
    box i+j,0,i+j+3,255
    ink 0,0
    box i+j+1,l*15,i+j+2,255-l*15
  next i
  for i=0 to 255 step 8
    g=rnd(10)
    l=rnd(5)
    ink rgb(g*25,g*25,g*25),0
    box 0,i+j,255,i+j+3
    ink 0,0
    box l*15,i+j+1,255-l*15,i+j+2
  next i
  get image iAlien,0,0,255,255
  delete bitmap 1
  set current bitmap 0
  texture object oAlienS,iAlien
  scale object oAlienS,30,30,30
  for i=oAlienS+1 to oAlienF
    clone object i,oAlienS
  next i
endfunction
function make_stars()
  make object sphere oSky,19900
  set object cull oSky,0
  create bitmap 1,2048,2048
  ink rgb(255,255,255),0
  for i=1 to 2048
    x=rnd(2048)
    y=rnd(2048)
    dot x,y
  next i
  get image iSky,0,0,2047,2047
  delete bitmap 1
  set current bitmap 0
  texture object oSky,iSky
  set object ambient oSky,0
endfunction
function make_shots()
  make object sphere oShotS,2
  color object oShotS,rgb(255,128,128)
  set object ambience oShotS,rgb(255,0,0)
  set object emissive oShotS,rgb(255,0,0)
  for i=1 to shots
    clone object oShotS+i,oShotS
  next i
endfunction
function make_explosion()
  make object sphere oExplosion,100
  texture object oExplosion,iAlien
  ghost object on oExplosion
  set object emissive oExplosion,rgb(255,0,0)
  set object ambience oExplosion,rgb(255,0,0)
  set object diffuse oExplosion,rgb(255,0,0)
  hide object oExplosion
endfunction
function crash()
  set text size 20
  ink rgb(192,192,192),0
  box 300,200,700,400
  ink rgb(64,64,64),0
  box 310,210,690,390
  ink rgb(255,255,255),0
  text 320,240,"Spacecraft burned up in atmosphere"
  sync
  wait key
endfunction
function title()
  set current bitmap 0
  sync
  ink rgb(255,255,255),0
  set text size 20
  text 350,300,"You are in orbit around a planet."
  text 350,320,"You must shoot down the alien satellites that are"
  text 350,340,"also in orbit around the planet."
  text 350,360,"Watch your orbital height. Do not degrade your orbit"
  text 350,380,"too much or you will enter the atmosphere."
  sync
endfunction
function instructions()
  set cursor 0,700
  print "Arrows = rotate ship"
  print "Shift  = thrust"
  print "Space  = fire"
  print "R      = radar (on/off)";
endfunction
function make_hud()
  make object plain oHud,10,10
  create bitmap 1,100,100
  ink 0,0
  box 0,0,99,99
  ink rgb(0,0,255),0
  set text font "arial"
  set text size 16
  text 0,20,"Ship direction"
  line 0,10,0,15
  line 0,15,98,15
  line 99,15,98,10
  get image iHud,0,0,99,99,1
  delete bitmap 1
  set current bitmap 0
  set object transparency oHud,1
  texture object oHud,iHud
  yrotate object oHud,180
  fix object pivot oHud
  disable object zdepth oHud
  make object cone oDir,5
  scale object oDir,15,100,15
  ghost object on oDir
  color object oDir,rgb(0,0,255)
  set object ambience oDir,rgb(0,0,255)
  disable object zdepth oDir
  xrotate object oDir,90
  fix object pivot oDir
endfunction
function hud()
  move camera 50
  position object oHud,camera position x(),camera position y()-28,camera position z()
  set object to camera orientation oHud
  position object oDir,camera position x(),camera position y()-23,camera position z()
  point object oDir,object position x(oDir)+xvShip,object position y(oDir)+yvShip,object position z(oDir)+zvShip
  move camera -50
endfunction

sync on
sync rate 0
autocam off
color backdrop 0
set text font "arial"
set text size 16

global dscreenheight#
dscreenheight#=12
global dscreenwidth#
dscreenwidth#=20
global l1depth
l1depth=-140
global l2depth
l2depth=-120
global l3depth
l3depth=-100
global lwidth
lwidth=240
global lheight
lheight=180
global textheight
textheight=text height(" ")

global gretx#
global grety#

stationgrey= rgb(150,150,150)
orange=rgb(255,128,0)

//load object "ltransport.3ds",1
//yrotate object 1,-90
//fix object pivot 1

shiptest=0
 //1,0.3  16.699
tempmesh=findmesh()
tempobj=findobj()
make object triangle tempobj,1,0,0,0,1,0,0,0,0
make mesh from object tempmesh,tempobj
lock vertexdata for mesh tempmesh
delete mesh from vertexdata 0,get vertexdata vertex count(),0,get vertexdata index count()
addplain(-1.5,0.5,-1,-1.5,0.5,1,1,0.5,1,1,0.5,-1)
setlastquad(0,1,0)
addplain(2,0.2,0.7,2,0.2,-0.7,1,0.5,-1,1,0.5,1)
setlastquad(sin(16.699),cos(16.699),0)
addplain(2,0.2,-0.7,2,0.2,0.7,2,-0.5,0.7,2,-0.5,-0.7)
setlastquad(1,0,0)
addplain(2,-0.5,0.7,2,-0.5,-0.7,1,-0.7,-1,1,-0.7,1)
setlastquad(sin(16.699),-cos(16.699),0)
addplain(-1.5,-0.7,1,-1.5,-0.7,-1,1,-0.7,-1,1,-0.7,1)
setlastquad(0,-1,0)
addplain(-1.5,-0.7,-1,-1.5,-0.7,1,-1.5,0.5,1,-1.5,0.5,-1)
setlastquad(-1,0,0)
addplain(-1.5,-0.7,-1,-1.5,0.5,-1,1,0.5,-1,1,-0.7,-1)
setlastquad(0,0,-1)
addplain(1,-0.7,-1,1,0.5,-1,2,0.2,-0.7,2,-0.5,-0.7)
setlastquad(sin(16.699),0,-cos(16.699))
addplain(-1.5,0.5,1,-1.5,-0.7,1,1,-0.7,1,1,0.5,1)
setlastquad(0,0,1)
addplain(1,0.5,1,1,-0.7,1,2,-0.5,0.7,2,0.2,0.7)
setlastquad(sin(16.699),0,cos(16.699))
unlock vertexdata
delete object tempobj
make object 1,tempmesh,0 
delete mesh tempmesh 

stransportobj=findobj()


autocannonobj=findobj()
make object box autocannonobj,0.5,0.1,0.1
hide object autocannonobj

set image colorkey 0,0,0
ink 0,0
box 0,0,800,600
ink rgb(255,255,255),0
for count=1 to 200
  x=rnd(798)+1
  y=rnd(598)+1
  dot x,y
  dot x+1,y
  dot x,y+1
  dot x+1,y+1
next count
get image 1,0,0,800,600,1

ink 0,0
box 0,0,800,600
ink rgb(255,255,255),0
for count=1 to 100
  x=rnd(798)+1
  y=rnd(598)+1
  dot x,y
  dot x,y+1
  dot x,y-1
  dot x-1,y
  dot x+1,y
next count
get image 2,0,0,800,600,1

ink 0,0
box 0,0,800,600
ink rgb(255,255,255),0
for count=1 to 50
  x=rnd(798)+1
  y=rnd(598)+1
  dot x,y
  dot x,y+1
  dot x,y-1
  dot x-1,y
  dot x+1,y
next count
get image 3,0,0,800,600,1

ink 0,0
box 0,0,800,600
ink rgb(255,128,0),0
  dot 1,1
  dot 1,0
  dot 0,1
  dot 2,1
  dot 1,2
  //fillcircle(1,1,2)
get image 4,0,0,3,3,1

dim backdropobjs(3,9)

for county=0 to 2
  for countx=1 to 3
    obj=findobj()
    backdropobjs(1,(county*3)+countx)=obj
    make object plain obj,lwidth,lheight
    texture object obj,1
    position object obj,(countx-2)*lwidth,l1depth,(county-1)*lheight
    xrotate object obj,90
    set alpha mapping on obj,100
  next countx
next county

for county=0 to 2
  for countx=1 to 3
    obj=findobj()
    backdropobjs(2,(county*3)+countx)=obj
    make object plain obj,lwidth,lheight
    texture object obj,2
    position object obj,(countx-2)*lwidth,l2depth,(county-1)*lheight
    xrotate object obj,90
    set alpha mapping on obj,100
  next countx
next county

for county=0 to 2
  for countx=1 to 3
    obj=findobj()
    backdropobjs(3,(county*3)+countx)=obj
    make object plain obj,lwidth,lheight
    texture object obj,3
    position object obj,(countx-2)*lwidth,l3depth,(county-1)*lheight
    xrotate object obj,90
    set alpha mapping on obj,100
  next countx
next county


//---stations

//images
//5:dock
//6:plain grey

global scsmalldock as integer
global sclargedock as integer
global sclargetube as integer
global scbigtube as integer
global scshortbigtube as integer

ink stationgrey,0
box 0,0,800,600
ink orange,0
for count=-6 to 80 step 6
  line count,0,count+6,6
  line count+1,0,count+7,6
  line count+2,0,count+8,6
next count
get image 5,0,0,78,50

ink stationgrey,0
box 0,0,1,1
get image 6,0,0,1,1

ink rgb(35,20,5),0
box 0,0,1,1
get image 14,0,0,1,1

ink 0,0
box 0,0,1,1
get image 7,0,0,1,1
ink 0,0
box 0,0,800,600
ink rgb(20,40,80),0
box 0,screen height()-200,195,screen height()-195
box 195,screen height()-195,200,screen height()
fillcircle(193,screen height()-194,6)
ink rgb(20,20,30),0
box 0,screen height()-195,191,screen height()-190
box 191,screen height()-190,196,screen height()
fillcircle(189,screen height()-189,6)
box 0,screen height()-190,191,screen height()

get image 8,0,screen height()-200,200,screen height(),1


ink 0,0
box 0,0,screen width(),screen height()
ink rgb(20,40,80),0
box screen width()-195,0,screen width(),5
box screen width()-199,5,screen width()-194,screen height()
fillcircle(screen width()-193,6,6)
ink rgb(20,20,30),0
box screen width()-191,5,screen width(),10
box screen width()-195,10,screen width()-190,screen height()
fillcircle(screen width()-189,11,6)
box screen width()-191,10,screen width(),screen height()
ink 0,0
box screen width()-191,screen height()-200,screen width(),screen height()

get image 12,screen width()-200,0,screen width(),screen height(),1
get image 17,screen width()-200,0,screen width()-45,200,1

ink 0,0
box 0,0,200,200
ink rgb(20,40,80),0
box 5,0,95,30
box 0,5,100,25
fillcircle(6,6,6)
fillcircle(93,6,6)
fillcircle(6,23,6)
fillcircle(93,23,6)
get image 9,0,0,100,30

ink 0,0
box 0,0,200,200
ink rgb(20,20,30),0
box 10,5,90,25
box 5,10,95,20
fillcircle(11,11,6)
fillcircle(88,11,6)
fillcircle(11,18,6)
fillcircle(88,18,6)
get image 10,0,0,100,30

ink 0,0
box 0,0,800,600
ink rgb(30,30,110),0
fillcircle(4,4,5)
ink rgb(70,70,200),0
fillcircle(4,4,3)
ink rgb(140,140,255),0
fillcircle(4,4,2)
get image 11,0,0,10,10,1

ink 0,0
box 0,0,200,200
ink rgb(20,40,80),0
box 5,0,180,30
box 0,5,185,25
fillcircle(6,6,6)
fillcircle(178,6,6)
fillcircle(6,23,6)
fillcircle(178,23,6)
get image 13,0,0,185,30

ink 0,0
box 0,0,800,600
ink orange,0
box 0,2,7,9
fillcircle(7,5,3)
get image 15,0,0,10,10,1

ink 0,0
box 0,0,800,600
ink rgb(50,50,50),0
fillcircle(4,4,5)
ink rgb(150,150,150),0
fillcircle(4,4,3)
ink rgb(255,255,255),0
fillcircle(4,4,2)
get image 16,0,0,10,10,1


tempobj=findobj()
makefullcylinder(tempobj,1)
position object tempobj,0,0,0
zrotate object tempobj,90
xrotate object tempobj,180
fix object pivot tempobj
scale object tempobj,100,200,100
tempmesh=findmesh()
make mesh from object tempmesh,tempobj
delete object tempobj
make object tempobj,tempmesh,5
delete mesh tempmesh
scsmalldock=tempobj
hide object tempobj

tempobj=findobj()
makefullcylinder(tempobj,2)
position object tempobj,0,0,0
zrotate object tempobj,90
xrotate object tempobj,180
fix object pivot tempobj
scale object tempobj,100,200,100
tempmesh=findmesh()
make mesh from object tempmesh,tempobj
delete object tempobj
make object tempobj,tempmesh,5
delete mesh tempmesh
sclargedock=tempobj
hide object tempobj

tempobj=findobj()
makefullcylinder(tempobj,2)
position object tempobj,0,0,0
zrotate object tempobj,90
xrotate object tempobj,180
fix object pivot tempobj
scale object tempobj,100,200,100
tempmesh=findmesh()
make mesh from object tempmesh,tempobj
delete object tempobj
make object tempobj,tempmesh,6
delete mesh tempmesh
sclargetube=tempobj
hide object tempobj

tempobj=findobj()
makefullcylinder(tempobj,3)
position object tempobj,0,0,0
zrotate object tempobj,90
xrotate object tempobj,180
fix object pivot tempobj
scale object tempobj,100,200,100
tempmesh=findmesh()
make mesh from object tempmesh,tempobj
delete object tempobj
make object tempobj,tempmesh,6
delete mesh tempmesh
scbigtube=tempobj
hide object tempobj

tempobj=findobj()
makefullcylinder(tempobj,3)
position object tempobj,0,0,0
zrotate object tempobj,90
xrotate object tempobj,180
fix object pivot tempobj
scale object tempobj,100,100,100
tempmesh=findmesh()
make mesh from object tempmesh,tempobj
delete object tempobj
make object tempobj,tempmesh,6
delete mesh tempmesh
scshortbigtube=tempobj
hide object tempobj


type station
  posx# as float
  posy# as float
  pickobj as integer
  left# as float
  top# as float
  right# as float
  bottom# as float
  components as integer
  docks as integer
  name$ as string
  pcommoditiescount as integer
  pweaponscount as integer
  pequipmentcount as integer
  pshipscount as integer
endtype

type component
  left# as float
  top# as float
  right# as float
  bottom# as float
  posx# as float
  posy# as float
  obj as integer
  coldistance# as float
endtype

type dock
  docktype as integer
  x# as float
  y# as float
  angle# as float
endtype

type pcommodity
  etype as integer
  price as integer
  name$ as string
endtype

type weapon
  bullettype as integer
  price as integer
  name$ as string
  reloadtime# as float
  damage as float
  imagenum as integer
  spread# as float
  initvelocity# as float
  life# as float
  size# as float
  obj as integer
endtype

type pequipment
  etype as integer
  price as integer
  name$ as string
endtype

type pship
  etype as integer
  price as integer
  name$ as string
endtype

dim stations(0) as station
dim stationcomponents(1,1) as component
dim stationdocks#(1,1) as dock
dim stationpcommodities(0,0) as integer
dim stationpweapons(0,0) as integer
dim stationpequipment(0,0) as integer
dim stationpships(0,0) as integer
dim pcommodities(5) as pcommodity
dim weapons(5) as weapon
dim pequipment(5) as pequipment
dim pships(5) as pship

pcommodities(1).etype=1
pcommodities(1).price=20
pcommodities(1).name$="Iron"
pcommodities(2).etype=1
pcommodities(2).price=50
pcommodities(2).name$="Water"
pcommodities(3).etype=1
pcommodities(3).price=30
pcommodities(3).name$="Nickel"

//bullettypes
//1-energy pulse
//2-projectile
//3-powered projectile (missile)

weapons(1).bullettype=1
weapons(1).price=200
weapons(1).name$="Photon Pulse Cannon"
weapons(1).reloadtime#=0.2
weapons(1).imagenum=16
weapons(1).initvelocity#=15
weapons(1).life#=4
weapons(1).size#=0.5
weapons(1).damage=20
weapons(1).obj=autocannonobj

weapons(2).bullettype=3
weapons(2).price=2000
weapons(2).name$="Missile Launcher"
weapons(2).reloadtime#=1.05
weapons(2).imagenum=15
weapons(2).initvelocity#=5
weapons(2).life#=5
weapons(2).size#=0.5
weapons(2).damage=200
weapons(2).obj=autocannonobj

weapons(3).bullettype=2
weapons(3).price=1500
weapons(3).name$="150mm Vulcan"+chr$(13)+chr$(10)+"Autocannon "
weapons(3).reloadtime#=0.05
weapons(3).imagenum=15
weapons(3).spread#=15
weapons(3).initvelocity#=20
weapons(3).life#=3
weapons(3).damage=5
weapons(3).size#=0.2
weapons(3).obj=autocannonobj

pequipment(1).etype=1
pequipment(1).price=2000
pequipment(1).name$="Ore Refinement"+chr$(13)+chr$(10)+"Module "
pequipment(2).etype=1
pequipment(2).price=1500
pequipment(2).name$="Cargo Module"

global maxcomponents as integer
global maxdocks as integer
maxpcommodities=0
maxpweapons=0
maxpequipment=0
maxpships=0

read readcount
for count=1 to readcount
  read readname$
  read readx#
  read ready#
  addstation(readname$,readx#,ready#)
  read readcountb
  for countb=1 to readcountb
    read readcomponent
    read readx#
    read ready#
    read readrot#
    addstationcomponent(count,readcomponent,readx#,ready#,readrot#)
  next countb
  read readnum
  for countb=1 to readnum
    read readid
    stations(count).pcommoditiescount=stations(count).pcommoditiescount+1
    if stations(count).pcommoditiescount>maxpcommodities then maxpcommodities=stations(count).pcommoditiescount
    dim stationpcommodities(array count(stations(0))+1,maxpcommodities+1)
    stationpcommodities(array count(stations(0)),stations(count).pcommoditiescount)=readid
  next countb
  read readnum
  for countb=1 to readnum
    read readid
    stations(count).pweaponscount=stations(count).pweaponscount+1
    if stations(count).pweaponscount>maxpweapons then maxpweapons=stations(count).pweaponscount
    dim stationpweapons(array count(stations(0))+1,maxpweapons+1)
    stationpweapons(array count(stations(0)),stations(count).pweaponscount)=readid
  next countb
  read readnum
  for countb=1 to readnum
    read readid
    stations(count).pequipmentcount=stations(count).pequipmentcount+1
    if stations(count).pequipmentcount>maxpequipment then maxpequipment=stations(count).pequipmentcount
    dim stationpequipment(array count(stations(0))+1,maxpequipment+1)
    stationpequipment(array count(stations(0)),stations(count).pequipmentcount)=readid
  next countb
  read readnum
  for countb=1 to readnum
    read readid
    stations(count).pshipscount=stations(count).pshipscount+1
    if stations(count).pshipscount>maxpships then maxpships=stations(count).pshipscount
    dim stationpships(array count(stations(0))+1,maxpships+1)
    stationpships(array count(stations(0)),stations(count).pshipscount)=readid
  next countb
next count

type shipstats
  topspeed# as float
  turnspeed# as float
  acceleration# as float
  dockx# as float
  docky# as float
  dockrot# as float
  coldistance# as float
  weapons as integer
  monscale# as float
endtype

dim shiptypes (1) as shipstats
shiptypes(1).topspeed#=20
shiptypes(1).turnspeed#=90
shiptypes(1).acceleration#=0.8
shiptypes(1).dockx#=0
shiptypes(1).docky#=1
shiptypes(1).dockrot#=-90
shiptypes(1).coldistance#=3
shiptypes(1).weapons=2
shiptypes(1).monscale#=1

type colpoint
  x# as float
  y# as float
endtype

dim shipcolpoints(1,4) as colpoint
shipcolpoints(1,1).x#=-1.5
shipcolpoints(1,1).y#=1
shipcolpoints(1,2).x#=-1.5
shipcolpoints(1,2).y#=-1
shipcolpoints(1,3).x#=2
shipcolpoints(1,3).y#=1
shipcolpoints(1,4).x#=2
shipcolpoints(1,4).y#=-1

type ship
  posx# as float
  posy# as float
  velx# as float
  vely# as float
  angle# as float
  throttle# as float
  obj as integer
  shiptype as integer
  permission as integer
  docking as integer
  docknum as integer
  targetx# as float
  targety# as float
  targetrot# as float
  docked as integer
  launching as integer
  credits as integer
endtype

dim ships (1) as ship
ships(1).obj = 1
ships(1).shiptype=1
ships(1).permission=0
ships(1).docking=0
ships(1).docked=0
ships(1).launching=0
ships(1).credits=200

type shipweapon
  weapontype as integer
  ammunition as integer
  posx# as float
  posy# as float
  posz# as float
  reload# as float
  monobj as integer
endtype

dim shipweapons(1,5) as shipweapon
shipweapons(1,1).posx#=1.2
shipweapons(1,1).posy#=-0.2
shipweapons(1,1).posz#=0.8
shipweapons(1,2).posx#=1.2
shipweapons(1,2).posy#=-0.2
shipweapons(1,2).posz#=-0.8

for count=1 to 5
  shipweapons(1,count).monobj=findobj()
  make object cube shipweapons(1,count).monobj,0.3
  hide object shipweapons(1,count).monobj
  lock object on shipweapons(1,count).monobj
  set object cull shipweapons(1,count).monobj,0
  set object ambience shipweapons(1,count).monobj,rgb(20,40,80)
  set object diffuse shipweapons(1,count).monobj,rgb(20,40,80)
  set object emissive shipweapons(1,count).monobj,rgb(10,20,40)
next count

rotate camera 90,0,0
position camera 0,40,0
poscamera(0,0)
oldtime=timer()

type particle
  velx# as float
  vely# as float
  velz# as float
  posx# as float
  posy# as float
  posz# as float
  speed# as float
  obj as integer
endtype

flameobj=findobj()
make object plain flameobj,0.2,0.2
texture object flameobj, 4

dim particles(0) as particle 
  
dim selobjs(8)

selobjs(1)=findobj()
make object triangle selobjs(1),0,0,0,0,0,0,0,0,0

tempobj=findobj()
make object box tempobj,1.5,0.1,0.1
tempmesh=findmesh()
make mesh from object tempmesh,tempobj
add limb selobjs(1),1,tempmesh
offset limb selobjs(1),1,0.75,0,0
delete mesh tempmesh
delete object tempobj

tempobj=findobj()
make object box tempobj,0.1,1.5,0.1
tempmesh=findmesh()
make mesh from object tempmesh,tempobj
add limb selobjs(1),2,tempmesh
offset limb selobjs(1),2,0,0.75,0
delete mesh tempmesh
delete object tempobj

tempobj=findobj()
make object box tempobj,0.1,0.1,1.5
tempmesh=findmesh()
make mesh from object tempmesh,tempobj
add limb selobjs(1),3,tempmesh
offset limb selobjs(1),3,0,0,0.75
delete mesh tempmesh
delete object tempobj

make mesh from object tempmesh,selobjs(1)
delete object selobjs(1)
make object selobjs(1),tempmesh,0
delete mesh tempmesh

for count=2 to 8
  selobjs(count)=findobj()
  clone object selobjs(count),selobjs(1) 
  show object selobjs(count)
next count

//   6 _____ 7
//   /|    /|   
//  /_|___/ |
//5|  |__|8_|  
// |2/   | /3
// |/____|/
//1       4
  
yrotate object selobjs(2),90 
yrotate object selobjs(3),180 
yrotate object selobjs(4),270
xrotate object selobjs(5),90  
xrotate object selobjs(6),90 
yrotate object selobjs(6),90   
zrotate object selobjs(7),90  
yrotate object selobjs(7),180 
zrotate object selobjs(8),90 
yrotate object selobjs(8),270 
for count=1 to 8
  fix object pivot selobjs(count)
next count

docklighta=findobj()
make object plain docklighta,0.4,0.4
xrotate object docklighta,90
fix object pivot docklighta
texture object docklighta,11
hide object docklighta
docklightb=findobj()
make object plain docklightb,0.4,0.4
xrotate object docklightb,90
fix object pivot docklightb
hide object docklightb
texture object docklightb,11

type button
  left as integer
  top as integer
  right as integer
  bottom as integer
  text$ as string
  textx as integer
  texty as integer
  image as integer
  id as integer
  visible as boolean
  highlighted as boolean
endtype

dim buttons(0) as button

type asteroid
  posx# as float
  posy# as float
  velx# as float
  vely# as float
  rotx# as float
  roty# as float
  rotz# as float
  obj as integer
  ore as integer
  si as integer
  size# as float
endtype

dim asteroids(0) as asteroid

for count=1 to 500
  x#=frnd#(400)-200
  y#=frnd#(400)-200
  clear=1
  for countb=1 to array count(stations(0))
    if dist#(x#-stations(countb).posx#,y#-stations(countb).posy#)<30  then clear=0
  next countb
  if clear=1
    makeasteroid(0,frnd#(2)+1,x#,y#)
  else
    count=count-1
  endif
next count


type bullet
  obj as integer
  posx# as float
  posy# as float
  velx# as float
  vely# as float
  damage as float
  imagenum as integer
  life# as float
  elapsed# as float
  size# as float
endtype

dim bullets(0) as bullet



seltype=1
selobj=1

rmenuon=0
rmenux=0
rmenuy=0
rmenusel=-1

currstationmenu=1

global messages$

dim rmenuitems$()

shipmonobj=findobj()
clone object shipmonobj,ships(1).obj
lock object on shipmonobj
position object shipmonobj,13,-9,20
set object ambience shipmonobj,rgb(20,40,80)
set object diffuse shipmonobj,rgb(20,40,80)
set object emissive shipmonobj,rgb(10,20,40)
set object wireframe shipmonobj,1
set object cull shipmonobj,0
hide object shipmonobj

monbackobj=findobj()
make object plain monbackobj,10,10
set object ambience monbackobj,rgb(20,20,30)
set object diffuse monbackobj,rgb(20,20,30)
set object emissive monbackobj,rgb(10,10,15)
lock object on monbackobj
position object monbackobj,20,-13.5,30
hide object monbackobj

lockedtextobj=findobj()
make object plain lockedtextobj,1,1
hide object lockedtextobj
lock object on lockedtextobj

textobj=findobj()
make object plain textobj,1,1
hide object textobj

if shiptest<>0
  ships(1).docked=1
  show object shipmonobj
  show object monbackobj
endif

texture object 1,6


do
  ink rgb(255,255,255),0
  newtime=timer()
  time#=(newtime-oldtime)/1000.0
  oldtime=newtime
  
  ang1#=ships(1).angle#
  
  if (ships(1).docking=0) AND (ships(1).docked=0) AND (ships(1).launching=0)
    if leftkey() then ships(1).angle#=wrapvalue(ships(1).angle#+(shiptypes(ships(1).shiptype).turnspeed#*time#))
    if rightkey() then ships(1).angle#=wrapvalue(ships(1).angle#-(shiptypes(ships(1).shiptype).turnspeed#*time#)) 
    if upkey() then ships(1).throttle#=ships(1).throttle#+(1*time#)
    if ships(1).throttle#>1 then ships(1).throttle#=1
    if downkey() then ships(1).throttle#=ships(1).throttle#-(1*time#)
    if ships(1).throttle#<0 then ships(1).throttle#=0
 endif
    
    acceleration#=shiptypes(ships(1).shiptype).acceleration#
    topspeed#=shiptypes(ships(1).shiptype).topspeed#
    pos1x#=ships(1).posx#
    pos1y#=ships(1).posy#
    ships(1).velx#=ships(1).velx#+(((cos(ships(1).angle#)*(topspeed#*ships(1).throttle#))-ships(1).velx#)*(acceleration#*time#))
    ships(1).vely#=ships(1).vely#+(((sin(ships(1).angle#)*(topspeed#*ships(1).throttle#))-ships(1).vely#)*(acceleration#*time#))
    ships(1).posx#=ships(1).posx#+(ships(1).velx#*time#)
    ships(1).posy#=ships(1).posy#+(ships(1).vely#*time#)
    pos2x#=ships(1).posx#
    pos2y#=ships(1).posy#
    ang2#=ships(1).angle#
    
    coldist#=0
    
    repeatcount=0
    shiptravel#=0
    prevcol=0
    shipmag#=sqrt(sqr#(ships(1).velx#)+sqr#(ships(1).vely#))
    while (coldist#<>-1) //AND (repeatcount<40)
      repeatcount=repeatcount+1
      colcount=0
      coldist#=-1
      colnum=9
      for counta = 1 to array count(stations(0))
        for countb=1 to stations(counta).components
          range#=stationcomponents(counta,countb).coldistance#+shiptypes(ships(1).shiptype).coldistance#
          if within(stations(counta).posx#+stationcomponents(counta,countb).posx#,stations(counta).posy#+stationcomponents(counta,countb).posy#,ships(1).posx#-range#,ships(1).posy#+range#,ships(1).posx#+range#,ships(1).posy#-range#)
            
            for countc=1 to 4
              xa1#=pos1x#+rotatex#(shipcolpoints(1,countc).x#,shipcolpoints(1,countc).y#,ang1#)
              ya1#=pos1y#+rotatey#(shipcolpoints(1,countc).x#,shipcolpoints(1,countc).y#,ang1#)
              xa2#=pos2x#+rotatex#(shipcolpoints(1,countc).x#,shipcolpoints(1,countc).y#,ang2#)
              ya2#=pos2y#+rotatey#(shipcolpoints(1,countc).x#,shipcolpoints(1,countc).y#,ang2#)
              for countd=1 to 4
                select countd
                  case 1
                    xb1#=stations(counta).posx#+stationcomponents(counta,countb).left#+0.001
                    yb1#=stations(counta).posy#+stationcomponents(counta,countb).top#+0.001
                    xb2#=stations(counta).posx#+stationcomponents(counta,countb).right#
                    yb2#=stations(counta).posy#+stationcomponents(counta,countb).top#
                  endcase
                  case 2
                    xb1#=stations(counta).posx#+stationcomponents(counta,countb).right#+0.001
                    yb1#=stations(counta).posy#+stationcomponents(counta,countb).top#
                    xb2#=stations(counta).posx#+stationcomponents(counta,countb).right#
                    yb2#=stations(counta).posy#+stationcomponents(counta,countb).bottom#
                  endcase
                  case 3
                    xb1#=stations(counta).posx#+stationcomponents(counta,countb).right#
                    yb1#=stations(counta).posy#+stationcomponents(counta,countb).bottom#+0.001
                    xb2#=stations(counta).posx#+stationcomponents(counta,countb).left#
                    yb2#=stations(counta).posy#+stationcomponents(counta,countb).bottom#
                  endcase
                  case 4
                    xb1#=stations(counta).posx#+stationcomponents(counta,countb).left#+0.001
                    yb1#=stations(counta).posy#+stationcomponents(counta,countb).bottom#
                    xb2#=stations(counta).posx#+stationcomponents(counta,countb).left#
                    yb2#=stations(counta).posy#+stationcomponents(counta,countb).top#
                  endcase
                endselect
                remstart
                ink rgb(255,0,0),0
                position object textobj,xb1#,0,yb1#
                lx1=object screen x(textobj)
                ly1=object screen y(textobj)
                position object textobj,xb2#,0,yb2#
                lx2=object screen x(textobj)
                ly2=object screen y(textobj)
                line lx1,ly1,lx2,ly2 remend
                colnum=colnum+1
                if colnum<>prevcol
                  if getintersect(xa1#,ya1#,xa2#,ya2#,xb1#,yb1#,xb2#,yb2#)
                    if (coldist#=-1) OR (sqrt(sqr#(gretx#-xa1#)+sqr#(grety#-ya1#))<coldist#)
                      currcol=colnum
                      coldist#=sqrt(sqr#(gretx#-xa1#)+sqr#(grety#-ya1#))
                      shipdist#=sqrt(sqr#(gretx#-pos1x#)+sqr#(grety#-pos1y#))
                      shipdeg#=wrapvalue((-atanfull(ships(1).velx#,ships(1).vely#))+90)
                      
                      normaldeg#=wrapvalue(-atanfull(xb2#-xb1#,yb2#-yb1#))
                      newdeg#=normaldeg#-(shipdeg#-normaldeg#)-180
                      colx#=gretx#-(xa1#-pos1x#)
                      coly#=grety#-(ya1#-pos1y#)
                    endif
                  endif
                endif
              next countd
            next countc
          
          endif
        next countb
      next counta
      
      if coldist#<>-1
        prevcol=currcol
        ships(1).velx#=cos(newdeg#)*shipmag#
        ships(1).vely#=sin(newdeg#)*shipmag#
        shiptravel#=shiptravel#+coldist#
        ships(1).posx#=colx#+(cos(newdeg#)*((shipmag#*time#)-shiptravel#))
        ships(1).posy#=coly#+(sin(newdeg#)*((shipmag#*time#)-shiptravel#))
        ships(1).angle#=ang1#
        ang2#=ang1#
        pos1x#=colx#
        pos1y#=coly#
        pos2x#=ships(1).posx#
        pos2y#=ships(1).posy#
      endif     
    endwhile
    
    if spacekey()
        for count=1 to shiptypes(ships(1).shiptype).weapons
          if shipweapons(1,count).weapontype<>0
            shipweapons(1,count).reload#=shipweapons(1,count).reload#+time#
            while shipweapons(1,count).reload#>weapons(shipweapons(1,count).weapontype).reloadtime#
              shipweapons(1,count).reload#=shipweapons(1,count).reload#-weapons(shipweapons(1,count).weapontype).reloadtime#
              addbullet(shipweapons(1,count).weapontype,ships(1).posx#+rotatex#(shipweapons(1,count).posx#,shipweapons(1,count).posz#,ships(1).angle#),ships(1).posy#+rotatey#(shipweapons(1,count).posx#,shipweapons(1,count).posz#,ships(1).angle#),ships(1).velx#,ships(1).vely#,ships(1).angle#,shipweapons(1,count).reload#)
            endwhile
          endif          
        next count
    endif
    
 
    for count=1 to array count(bullets(0))
      for countb=1 to array count(asteroids(0))
        range#=bullets(count).size#+asteroids(countb).size#
        if within(bullets(count).posx#,bullets(count).posy#,asteroids(countb).posx#-range#,asteroids(countb).posy#+range#,asteroids(countb).posx#+range#,asteroids(countb).posy#-range#)
          rad#=asteroids(countb).size#/2
          for countc=1 to 4
            select countc
              case 1
                xb1#=asteroids(countb).posx#-rad#
                yb1#=asteroids(countb).posy#+rad#+0.001
                xb2#=asteroids(countb).posx#+rad#
                yb2#=asteroids(countb).posy#+rad#
              endcase
              case 2
                xb1#=asteroids(countb).posx#+rad#+0.001
                yb1#=asteroids(countb).posy#+rad#
                xb2#=asteroids(countb).posx#+rad#
                yb2#=asteroids(countb).posy#-rad#
              endcase
              case 3
                xb1#=asteroids(countb).posx#+rad#
                yb1#=asteroids(countb).posy#-rad#+0.001
                xb2#=asteroids(countb).posx#-rad#
                yb2#=asteroids(countb).posy#-rad#
              endcase
              case 4
                xb1#=asteroids(countb).posx#-rad#+0.001
                yb1#=asteroids(countb).posy#-rad#
                xb2#=asteroids(countb).posx#-rad#
                yb2#=asteroids(countb).posy#+rad#
              endcase
            endselect
            position object textobj,xb1#,0,yb1#
            xa1#=bullets(count).posx#
            ya1#=bullets(count).posy#
            xa2#=bullets(count).posx#+(bullets(count).velx#*time#)//+(asteroids(countb).velx#*time#)
            ya2#=bullets(count).posy#+(bullets(count).vely#*time#)//+(asteroids(countb).vely#*time#)
            if getintersect(xa1#,ya1#,xa2#,ya2#,xb1#,yb1#,xb2#,yb2#)
              asteroids(countb).si=asteroids(countb).si-bullets(count).damage
          
              for countp=1 to 5
                addparticle(gretx#,grety#,2,3,0,360,-20,20,10,0,0,0,flameobj)
              next countp
              delete object bullets(count).obj
              array delete element bullets(0),count
          
              count=count-1
              if asteroids(countb).si<0
                ships(1).credits=ships(1).credits+(asteroids(countb).size#-1)*75
                x#=asteroids(countb).posx#
                y#=asteroids(countb).posy#
                size#=asteroids(countb).size#
                for countp=1 to 50
                  addparticle(x#+(frnd#(size#)-size#/2),y#+(frnd#(size#)-size#/2),4,7,0,360,-20,20,10,0,0,0,flameobj)
                next countp
                delete object asteroids(countb).obj
                array delete element asteroids(0),countb
                countb=countb-1
              endif
            endif
          next countc
        endif
      next countb
    next count

    
    testtext$="Frame Rate: "+str$(screen fps())
    
    
    for count=1 to array count(asteroids(0))
      asteroids(count).posx#=asteroids(count).posx#+asteroids(count).velx#
      asteroids(count).posy#=asteroids(count).posy#+asteroids(count).vely#
      obj=asteroids(count).obj
      position object asteroids(count).obj,asteroids(count).posx#,0,asteroids(count).posy#
      rotate object asteroids(count).obj, object angle x(obj)+(asteroids(count).rotx#*time#),object angle y(obj)+(asteroids(count).roty#*time#),object angle z(obj)+(asteroids(count).rotz#*time#)
    next count
  
  position object ships(1).obj,ships(1).posx#,0,ships(1).posy#
  yrotate object ships(1).obj,-ships(1).angle#
  
  for countp=1 to int((time#+particletime#)/(1-(0.9*ships(1).throttle#)))
    backoffset#=frnd#(0.6)-0.3
    addparticle(ships(1).posx#+rotatex#(-1.5,backoffset#,ships(1).angle#),ships(1).posy#+rotatey#(-1.5,backoffset#,ships(1).angle#),3,5,(ships(1).angle#+180)-20,(ships(1).angle#+180)+20,-20,20,10,0.02,ships(1).velx#,ships(1).vely#,flameobj)
  next countp
  particletime#=((time#+particletime#)/0.02)-int((time#+particletime#)/0.02)
  updateparticles(time#)
  
  updatebullets(time#)
  
  poscamera(ships(1).posx#,ships(1).posy#)
  refreshbackdrop(ships(1).posx#,ships(1).posy#)
  
    if ships(1).permission<>-1
    docklightcount#=wrapvalue(docklightcount#+(360.0*time#))
    docklightscale#=200+(sin(docklightcount#)*50.0)
    scale object docklighta,docklightscale#,docklightscale#,100//docklightscale#
    scale object docklightb,docklightscale#,docklightscale#,100//docklightscale#
  endif
  
  if (ships(1).docking=1) OR (ships(1).launching=1)
    ships(1).throttle#=0
    rotinterval#=180.0*time#
    moveinterval#=1.0*time#
    achieved=0
    if valwithin(ships(1).angle#-ships(1).targetrot#,0,rotinterval#)
      ships(1).angle#=ships(1).targetrot#
      achieved=achieved+1
    else
      if ships(1).angle#-ships(1).targetrot#<0 then ships(1).angle#=ships(1).angle#+rotinterval#
      if ships(1).angle#-ships(1).targetrot#>0 then ships(1).angle#=ships(1).angle#-rotinterval#
    endif
    
    if valwithin(ships(1).posx#,ships(1).targetx#,moveinterval#)
      ships(1).posx#=ships(1).targetx#
      achieved=achieved+1
    else
      if ships(1).posx#<ships(1).targetx# then ships(1).posx#=ships(1).posx#+moveinterval#
      if ships(1).posx#>ships(1).targetx# then ships(1).posx#=ships(1).posx#-moveinterval#
    endif
    
    if valwithin(ships(1).posy#,ships(1).targety#,moveinterval#)
      ships(1).posy#=ships(1).targety#
      achieved=achieved+1
    else
      if ships(1).posy#<ships(1).targety# then ships(1).posy#=ships(1).posy#+moveinterval#
      if ships(1).posy#>ships(1).targety# then ships(1).posy#=ships(1).posy#-moveinterval#
    endif
    
    if achieved>2
      if ships(1).docking=1
        ships(1).docked=ships(1).permission
        ships(1).docking=0
        ships(1).permission=-1
        ships(1).velx#=0
        ships(1).vely#=0
        hide object docklighta
        hide object docklightb
        message("Docked")    

        currstationmenu=1
        stationmenuscroll=0
        addbutton("Launch",1,screen width()-190,12,185,30,13,1)
        addbutton("Commodities",1,screen width()-190,buttony,185,30,13,2)
        addbutton("Equipment",1,screen width()-190,buttony,185,30,13,3)
        addbutton("Weapons",1,screen width()-190,buttony,185,30,13,4)
        addbutton("Ships",1,screen width()-190,buttony,185,30,13,5)
        for count=1 to 20
          addbutton("",0,0,0,0,0,0,count+10)
        next count
        for count=1 to shiptypes(ships(1).shiptype).weapons
          show object shipweapons(1,count).monobj
          set object wireframe shipweapons(1,count).monobj,1
          set object ambience shipweapons(1,count).monobj,rgb(20,40,80)
          set object diffuse shipweapons(1,count).monobj,rgb(20,40,80)
          set object emissive shipweapons(1,count).monobj,rgb(10,20,40)
        next count
        set object wireframe shipweapons(1,1).monobj,0
        color object shipweapons(1,1).monobj,rgb(255,255,255)
        show object shipmonobj
        show object monbackobj
        selectedwep=1
        buttons(getbutton(21)).highlighted=1
        
      else
        ships(1).launching=0
      endif
    endif
  endif
    
  if ships(1).docked<>0
    paste image 12,screen width()-200,0,1
    paste image 17,screen width()-350,screen height()-200,1
    ink rgb(255,255,255),0
    shipmonrot#=wrapvalue(shipmonrot#+(40.0*time#))
    yrotate object shipmonobj,shipmonrot#
    for count=1 to shiptypes(ships(1).shiptype).weapons      
      yrotate object shipweapons(1,count).monobj ,shipmonrot#
      position object shipweapons(1,count).monobj,rotatex#(shipweapons(1,count).posx#,shipweapons(1,count).posz#,-shipmonrot#)+13.0,shipweapons(1,count).posy#-9.0,rotatey#(shipweapons(1,count).posx#,shipweapons(1,count).posz#,-shipmonrot#)+20.0
    next count
            
    buttony=70
    setbutton(getbutton(2),"Commodities",screen width()-190,buttony,185,30,13,2,0,1)
    if currstationmenu=1  
      for count=1 to 10
        buttony=buttony+30
        if count+stationmenuscroll>stations(ships(1).docked).pcommoditiescount
          buttons(getbutton(10+count)).visible=0
        else
          buttons(getbutton(10+count)).visible=1
          setbutton(getbutton(10+count),pcommodities(stationpcommodities(ships(1).docked,count+stationmenuscroll)).name$,screen width()-190,buttony,185,30,0,10+count,1,1)
          text screen width()-50,buttons(getbutton(10+count)).top+(15-(textheight/2)),str$(pcommodities(stationpcommodities(ships(1).docked,count+stationmenuscroll)).price)+"cr"
        endif 
      next count
    endif
    buttony=buttony+40
    setbutton(getbutton(3),"Equipment",screen width()-190,buttony,185,30,13,3,0,1)
    if currstationmenu=2  
      for count=1 to 10
        buttony=buttony+30
        if count+stationmenuscroll>stations(ships(1).docked).pequipmentcount
          buttons(getbutton(10+count)).visible=0
        else
          buttons(getbutton(10+count)).visible=1
          setbutton(getbutton(10+count),pequipment(stationpequipment(ships(1).docked,count+stationmenuscroll)).name$,screen width()-190,buttony,185,30,0,10+count,1,1)
          text screen width()-50,buttons(getbutton(10+count)).top+(15-(textheight/2)),str$(pequipment(stationpequipment(ships(1).docked,count+stationmenuscroll)).price)+"cr"
        endif 
      next count
    endif
    buttony=buttony+40
    setbutton(getbutton(4),"Weapons",screen width()-190,buttony,185,30,13,4,0,1)
    if currstationmenu=3 
      for count=1 to 10
        buttony=buttony+30
        if count+stationmenuscroll>stations(ships(1).docked).pweaponscount
          buttons(getbutton(10+count)).visible=0
        else
          buttons(getbutton(10+count)).visible=1
          setbutton(getbutton(10+count),weapons(stationpweapons(ships(1).docked,count+stationmenuscroll)).name$,screen width()-190,buttony,185,30,0,10+count,1,1)
          text screen width()-50,buttons(getbutton(10+count)).top+(15-(textheight/2)),str$(weapons(stationpweapons(ships(1).docked,count+stationmenuscroll)).price)+"cr"
        endif 
      next count
    endif
    buttony=buttony+40
    setbutton(getbutton(5),"Ships",screen width()-190,buttony,185,30,13,5,0,1)
    if currstationmenu=4 
      for count=1 to 10
        buttony=buttony+30
        if count+stationmenuscroll>stations(ships(1).docked).pshipscount
          buttons(getbutton(10+count)).visible=0
        else
          buttons(getbutton(10+count)).visible=1
          setbutton(getbutton(10+count),pships(stationpships(ships(1).docked,count+stationmenuscroll)).name$,screen width()-190,buttony,185,30,0,10+count,1,1)
          text screen width()-50,buttons(getbutton(10+count)).top+(15-(textheight/2)),str$(pships(stationpships(ships(1).docked,count+stationmenuscroll)).price)+"cr"
        endif 
      next count
    endif
    buttony=buttony+40
    text screen width()-190,screen height()-220,str$(ships(1).credits)+" credits"
    for count=1 to shiptypes(ships(1).shiptype).weapons
      ink rgb(255,255,255),0
      if weapons(shipweapons(1,count).weapontype).name$<>""
        setbutton(getbutton(20+count),weapons(shipweapons(1,count).weapontype).name$,screen width()-340,screen height()-(200-(count*30)),185,30,0,20+count,1,1)
      else
        setbutton(getbutton(20+count),"(No Weapon)",screen width()-340,screen height()-(200-(count*30)),185,30,0,20+count,1,1)
      endif
    next count
  endif
  
  buttonsel=-1
  for count=1 to array count(buttons(0))
  
    if buttons(count).visible=1
    
      if buttons(count).image<>0 
        paste image buttons(count).image,buttons(count).left,buttons(count).top,1
        if within(mousex(),mousey(),buttons(count).left,buttons(count).bottom,buttons(count).right,buttons(count).top)
          ink rgb(20,20,30),0
          buttonsel=buttons(count).id
        else
          ink rgb(255,255,255),0
        endif
      else
        if within(mousex(),mousey(),buttons(count).left,buttons(count).bottom,buttons(count).right,buttons(count).top)
          ink rgb(20,40,80),0
          buttonsel=buttons(count).id
        else
          ink rgb(255,255,255),0
        endif
      endif
      
      if buttons(count).highlighted=1
        ink rgb(20,40,80),0
        text buttons(count).textx,buttons(count).texty,"["+buttons(count).text$+"]"
      else
        text buttons(count).textx,buttons(count).texty,buttons(count).text$
      endif
    endif
  next count
  

  mmx=mousemovex()
  mmy=mousemovey()
  movecam=0
  lmb=0
  mmb=0
  rmb=0
  
  mv=mouseclick()
  if int(mv/8)=1
    mv=mv-8
  endif
  if int(mv/4)=1
    mv=mv-4
    mmb=1
  endif
  if int(mv/2)=1
    mv=mv-2
    rmb=1
  endif
  if mv=1
    lmb=1
  endif
  
  if rmb=1
    rseltype=0
    dim rmenuitems$(0)
    for count=1 to array count(stations(0))
      if pick object(mousex(),mousey(),stations(count).pickobj,stations(count).pickobj)=stations(count).pickobj
        rseltype=1
        rselobj=count
        if ships(1).permission=count
          array insert at bottom rmenuitems$(0)
          rmenuitems$(array count(rmenuitems$(0)))="Dock"
        else
          array insert at bottom rmenuitems$(0)
          rmenuitems$(array count(rmenuitems$(0)))="Request Dock"
        endif
      endif
    next count
    rmenuon=1
    rmenux=mousex()
    rmenuy=mousey()
  endif
  
  rmenucount=0
  if rmenuon=1
    rmenusel=-1
    for count= 1 to array count(rmenuitems$(0))
      paste image 9,rmenux,rmenuy+((count-1)*32),1
      if within(mousex(),mousey(),rmenux,rmenuy+((count-1)*32)+30,rmenux+100,rmenuy+((count-1)*32))
        ink rgb(20,40,80),0
        paste image 10,rmenux,rmenuy+((count-1)*32),1
        rmenusel=count
      else
        paste image 10,rmenux,rmenuy+((count-1)*32),1
        ink rgb(255,255,255),0
      endif
      text rmenux+12,rmenuy+7+((count-1)*32),rmenuitems$(count)
    next count
  endif
  
  
  
  if lmb=1
    if lclick=0
      if rmenusel=-1
        if buttonsel=-1
        for count=1 to array count(stations(0))
          if pick object(mousex(),mousey(),stations(count).pickobj,stations(count).pickobj)=stations(count).pickobj
            seltype=1
            selobj=count
          endif
        next count
        else
          if (buttonsel<10)
            select buttonsel
              case 1
                ships(1).launching=1
                ships(1).targetrot#=ships(1).angle#
                ships(1).targetx#=ships(1).posx#+rotatex#(2,0,stationdocks#(ships(1).docked,ships(1).docknum).angle#)
                ships(1).targety#=ships(1).posy#+rotatey#(2,0,stationdocks#(ships(1).docked,ships(1).docknum).angle#)
                ships(1).docked=0
                dim buttons(0)
                hide object shipmonobj
                hide object monbackobj
                for count=1 to shiptypes(ships(1).shiptype).weapons
                  hide object shipweapons(1,count).monobj
                next count
              endcase
              case 2
                currstationmenu=1
                stationmenuscroll=0
              endcase
              case 3
                currstationmenu=2
                stationmenuscroll=0
              endcase
              case 4
                currstationmenu=3
                stationmenuscroll=0
              endcase
              case 5
                currstationmenu=4
                stationmenuscroll=0
              endcase
            endselect
          else
            if (buttonsel<20)
              select currstationmenu
                case 3
                    
                  if ships(1).credits>=weapons(stationpweapons(ships(1).docked,(buttonsel-10)+stationmenuscroll)).price//ships(1).permission,buttonsel+stationmenuscroll)).price
                    ships(1).credits=ships(1).credits-weapons(stationpweapons(ships(1).docked,(buttonsel-10)+stationmenuscroll)).price//stationpweapons(ships(1).permission,1)).price
                    shipweapons(1,selectedwep).weapontype=stationpweapons(ships(1).docked,(buttonsel-10)+stationmenuscroll)
                    delete object shipweapons(1,selectedwep).monobj
                    clone object shipweapons(1,selectedwep).monobj,weapons(shipweapons(1,selectedwep).weapontype).obj
                    lock object on shipweapons(1,selectedwep).monobj
                    yrotate object shipweapons(1,selectedwep).monobj ,shipmonrot#
                    position object shipweapons(1,selectedwep).monobj,rotatex#(shipweapons(1,selectedwep).posx#,shipweapons(1,selectedwep).posz#,-shipmonrot#)+13.0,shipweapons(1,selectedwep).posy#-9.0,rotatey#(shipweapons(1,selectedwep).posx#,shipweapons(1,selectedwep).posz#,-shipmonrot#)+20.0
                  endif
                endcase
              endselect
            else
            
              buttons(getbutton(selectedwep+20)).highlighted=0
              set object wireframe shipweapons(1,selectedwep).monobj,1
              set object ambience shipweapons(1,selectedwep).monobj,rgb(20,40,80)
              set object diffuse shipweapons(1,selectedwep).monobj,rgb(20,40,80)
              set object emissive shipweapons(1,selectedwep).monobj,rgb(10,20,40)
              
              selectedwep=buttonsel-20
              
              buttons(getbutton(buttonsel)).highlighted=1
              set object wireframe shipweapons(1,selectedwep).monobj,0
              color object shipweapons(1,selectedwep).monobj,rgb(255,255,255)

              endif
          endif
        endif
      else
        if rmenuitems$(rmenusel)="Request Dock"
          ships(1).docknum=rnd(stations(selobj).docks-1)+1
          message("Permission to board granted. Please proceed to dock "+str$(ships(1).docknum))
          ships(1).permission=selobj
          position object docklighta,stations(rselobj).posx#+stationdocks#(ships(1).permission,ships(1).docknum).x#+rotatex#(0,0.5,stationdocks#(ships(1).permission,ships(1).docknum).angle#),0,stations(rselobj).posy#+stationdocks#(ships(1).permission,ships(1).docknum).y#+rotatey#(0,0.5,stationdocks#(ships(1).permission,ships(1).docknum).angle#)
          position object docklightb,stations(rselobj).posx#+stationdocks#(ships(1).permission,ships(1).docknum).x#+rotatex#(0,-0.5,stationdocks#(ships(1).permission,ships(1).docknum).angle#),0,stations(rselobj).posy#+stationdocks#(ships(1).permission,ships(1).docknum).y#+rotatey#(0,-0.5,stationdocks#(ships(1).permission,ships(1).docknum).angle#)
          show object docklighta
          show object docklightb
        endif
        if rmenuitems$(rmenusel)="Dock"
          ships(1).targetrot#=stationdocks#(ships(1).permission,ships(1).docknum).angle#-shiptypes(ships(1).shiptype).dockrot#
          ships(1).targetx#=stationdocks#(ships(1).permission,ships(1).docknum).x#+stations(ships(1).permission).posx#-rotatex#(shiptypes(ships(1).shiptype).dockx#,shiptypes(ships(1).shiptype).docky#,ships(1).targetrot#)
          ships(1).targety#=stationdocks#(ships(1).permission,ships(1).docknum).y#+stations(ships(1).permission).posy#-rotatey#(shiptypes(ships(1).shiptype).dockx#,shiptypes(ships(1).shiptype).docky#,ships(1).targetrot#)
          if sqrt(sqr#(ships(1).targetx#-ships(1).posx#)+sqr#(ships(1).targety#-ships(1).posy#))<5
            message("Autodocking...") 
            ships(1).docking=1 
          else
            message("Ship to distant to enable autodock")
          endif
        endif
      endif
      rmenuon=0
      rmenusel=-1
    endif
    lclick=1
  else
  lclick=0
  endif
  
  
  ink rgb(255,255,255),0  
  if seltype=1
    selmovecount#=wrapvalue(selmovecount#+(270.0*time#))
    selmovement#=0.8+(sin(selmovecount#)/10.0)
    x#=stations(selobj).posx#
    y#=stations(selobj).posy#
    position object selobjs(1),x#+stations(selobj).left#-selmovement#,-1,y#+stations(selobj).bottom#-selmovement#
    position object selobjs(2),x#+stations(selobj).left#-selmovement#,-1,y#+stations(selobj).top#+selmovement#
    position object selobjs(3),x#+stations(selobj).right#+selmovement#,-1,y#+stations(selobj).top#+selmovement#
    position object selobjs(4),x#+stations(selobj).right#+selmovement#,-1,y#+stations(selobj).bottom#-selmovement#
    position object selobjs(5),x#+stations(selobj).left#-selmovement#,1,y#+stations(selobj).bottom#-selmovement#
    position object selobjs(6),x#+stations(selobj).left#-selmovement#,1,y#+stations(selobj).top#+selmovement#
    position object selobjs(7),x#+stations(selobj).right#+selmovement#,1,y#+stations(selobj).top#+selmovement#
    position object selobjs(8),x#+stations(selobj).right#+selmovement#,1,y#+stations(selobj).bottom#-selmovement#
    //text screen width()-200,screen height()-300,stations(selobj).name$
  else
  endif
  
  
  text 5,5,testtext$//screen fps())
  text 5,20,"Throttle: "+str$(ships(1).throttle#)
  text 5,35,"X: "+str$(ships(1).posx#)+"  Y: "+str$(ships(1).posy#)
  text 5,70,"Credits: "+str$(ships(1).credits)
  
  text screen width()-600,5,messages$

  //position object textobj,stationdocks#(1,1).x#,0,stationdocks#(1,1).y#

  paste image 8,0,screen height()-200
  radarrange#=80
  ink rgb(255,255,255),0
  for count = 1 to array count(stations(0))
    if within(stations(count).posx#,stations(count).posy#,ships(1).posx#-radarrange#-15,ships(1).posy#+radarrange#+15,ships(1).posx#+radarrange#+15,ships(1).posy#-radarrange#-15)
      for countb=1 to stations(count).components
        if within(stations(count).posx#+stationcomponents(count,countb).posx#,stations(count).posy#+stationcomponents(count,countb).posy#,ships(1).posx#-radarrange#,ships(1).posy#+radarrange#,ships(1).posx#+radarrange#,ships(1).posy#-radarrange#)
          x1=(((stations(count).posx#+stationcomponents(count,countb).left#)-ships(1).posx#)*(180.0/(radarrange#*2)))+95
          y1=(screen height()-95)-(((stations(count).posy#+stationcomponents(count,countb).top#)-ships(1).posy#)*(180.0/(radarrange#*2)))
          x2=(((stations(count).posx#+stationcomponents(count,countb).right#)-ships(1).posx#)*(180.0/(radarrange#*2)))+95
          y2=(screen height()-95)-(((stations(count).posy#+stationcomponents(count,countb).bottom#)-ships(1).posy#)*(180.0/(radarrange#*2)))
          ink rgb(255,255,255),0
          box x1,y1,x2,y2
        endif
      next countb
      for countb=1 to stations(count).docks
        if within(stations(count).posx#+stationdocks#(count,countb).x#,stations(count).posy#+stationdocks#(count,countb).y#,ships(1).posx#-radarrange#,ships(1).posy#+radarrange#,ships(1).posx#+radarrange#,ships(1).posy#-radarrange#)
          x1=(((stations(count).posx#+stationdocks#(count,countb).x#)-ships(1).posx#)*(180.0/(radarrange#*2)))+95
          y1=(screen height()-95)-(((stations(count).posy#+stationdocks#(count,countb).y#)-ships(1).posy#)*(180.0/(radarrange#*2)))
          ink rgb(255,200,0),0
          box x1-1,y1-1,x1+1,y1+1  
        endif
      next countb
    endif
  next count
  for count= 1 to array count(asteroids(0))
    if within(asteroids(count).posx#,asteroids(count).posy#,ships(1).posx#-radarrange#,ships(1).posy#+radarrange#,ships(1).posx#+radarrange#,ships(1).posy#-radarrange#)
      x1=((asteroids(count).posx#-ships(1).posx#)*(180.0/(radarrange#*2)))+95
      y1=(screen height()-95)-((asteroids(count).posy#-ships(1).posy#)*(180.0/(radarrange#*2)))
      ink rgb(125,75,0),0
      box x1-1,y1-1,x1+1,y1+1
      //rotate object asteroids(count).obj, object angle x(obj)+(asteroids(count).rotx#*time#),object angle y(obj)+(asteroids(count).roty#*time#),object angle z(obj)+(asteroids(count).rotz#*time#)
    endif
  next count
  ink rgb(0,0,255),0
  box 93,screen height()-97,97,screen height()-93
  ink rgb(20,20,30),0
  //box 0,screen height()-195,191,screen height()-190
  //box 191,screen height()-190,196,screen height()
  sync
loop

function poscamera(x#,y#)
  if x#>camera position x()+dscreenwidth# then position camera x#-dscreenwidth#,40,camera position z()
  if x#<camera position x()-dscreenwidth# then position camera x#+dscreenwidth#,40,camera position z()
  if y#>camera position z()+dscreenheight# then position camera camera position x(),40,y#-dscreenheight#
  if y#<camera position z()-dscreenheight# then position camera camera position x(),40,y#+dscreenheight#
endfunction

function findobj()
res=1
while object exist(res)=1
res=res+1
endwhile
endfunction res

function findmesh()
res=1
while mesh exist(res)=1
res=res+1
endwhile
endfunction res

function refreshbackdrop(x#,y#)
  backx=int(x#/lwidth)*lwidth
  backy=int(y#/lheight)*lheight
  for county=0 to 2
    for countx=1 to 3
      position object backdropobjs(1,(county*3)+countx),backx+(countx-2)*lwidth,l1depth,backy+(county-1)*lheight
    next countx
  next county
  for county=0 to 2
    for countx=1 to 3
      position object backdropobjs(2,(county*3)+countx),backx+(countx-2)*lwidth,l2depth,backy+(county-1)*lheight
    next countx
  next county
  for county=0 to 2
    for countx=1 to 3
      position object backdropobjs(3,(county*3)+countx),backx+(countx-2)*lwidth,l3depth,backy+(county-1)*lheight
    next countx
  next county
endfunction

function rotatex#(x#,y#,value#)
       result#=((x#*cos(value#))-(y#*sin(value#)))
endfunction result#

function rotatey#(x#,y#,value#)
       result#=((x#*sin(value#))+(y#*cos(value#)))
endfunction result#

function frnd#(range#)
ret#=rnd(range#*1000.0)/1000.0
endfunction ret#
  
function addparticle(x#,y#,minspeed#,maxspeed#,minyrot#,maxyrot#,minzrot#,maxzrot#,angleblur#,time#,velx#,vely#,sourceobj)
  array insert at bottom particles(0)
  num=array count(particles(0))
  
  angley#=(frnd#(maxyrot#-minyrot#)+minyrot#)+(frnd#(angleblur#)-(angleblur#/2.0))
  anglez#=(frnd#(maxzrot#-minzrot#)+minzrot#)+(frnd#(angleblur#)-(angleblur#/2.0))
  vel#=frnd#(maxspeed#-minspeed#)+minspeed#

  particles(num).velx#=((cos(angley#)*cos(anglez#))*vel#)
  particles(num).vely#=(sin(anglez#)*vel#)
  particles(num).velz#=((sin(angley#)*cos(anglez#))*vel#)
  particles(num).speed#=vel#
  
  interval#=frnd#(time#)
  particles(num).posx#=x#+(particles(num).velx#*interval#)
  particles(num).posy#=(particles(num).vely#*interval#)
  particles(num).posz#=y#+(particles(num).velz#*interval#)
  
  particles(num).velx#=particles(num).velx#+velx#
  particles(num).velz#=particles(num).velz#+vely#
  
  particles(num).obj=findobj()
  instance object particles(num).obj,sourceobj
  position object particles(num).obj,particles(num).posx#,particles(num).posy#,particles(num).posz#
  point object particles(num).obj,camera position x(),camera position y(), camera position z()
endfunction

function updateparticles(time#)
for num = 1 to array count(particles(0))
  particles(num).posx#=particles(num).posx#+(particles(num).velx#*time#)
  particles(num).posy#=particles(num).posy#+(particles(num).vely#*time#)
  particles(num).posz#=particles(num).posz#+(particles(num).velz#*time#)
  particles(num).velx#=particles(num).velx#*(1.0-(0.9999*time#))
  particles(num).vely#=particles(num).vely#*(1.0-(0.9999*time#))
  particles(num).velz#=particles(num).velz#*(1.0-(0.9999*time#))
  particles(num).speed#=particles(num).speed#*(1.0-(0.9999*time#))
  if particles(num).speed#<2
    delete object particles(num).obj
    array delete element particles(0),num
    num=num-1 
  else
    position object particles(num).obj,particles(num).posx#,particles(num).posy#,particles(num).posz#
    if particles(num).speed#<3
      scale#=((particles(num).speed#-2.0))*100
      scale object particles(num).obj,scale#,scale#,scale#
    endif
  endif
  //point object particles(num).obj,camera position x(),camera position y(), camera position z()
next count
endfunction

function makefullcylinder(obj,size)  
  make object cylinder obj,size
  triobj=1
  while object exist(triobj)=1
    triobj=triobj+1
  endwhile
  make object triangle triobj,0,0,0,0,0,0,0,0,0
  trimesh=1
  while mesh exist(trimesh)=1
    trimesh=trimesh+1
  endwhile
  make mesh from object trimesh,triobj   
  
  tempmesh=1
  while mesh exist(tempmesh)=1
    tempmesh=tempmesh+1
  endwhile
  make mesh from object tempmesh,obj
  
  lock vertexdata for mesh tempmesh
  vertcount=get vertexdata vertex count()-1

  for count=0 to vertcount-3 step 2
    add mesh to vertexdata trimesh
    vcount=get vertexdata vertex count()
    set vertexdata position vcount-1,0,size/2.0,0
    set vertexdata position vcount-2,get vertexdata position x(count+2),size/2.0,get vertexdata position z(count+2)
    set vertexdata position vcount-3,get vertexdata position x(count),size/2.0,get vertexdata position z(count)
    set indexdata get vertexdata index count()-1,vcount-1
    set indexdata get vertexdata index count()-2,vcount-2
    set indexdata get vertexdata index count()-3,vcount-3
    set vertexdata normals vcount-1,0,1,0
    set vertexdata normals vcount-2,0,1,0
    set vertexdata normals vcount-3,0,1,0
    set vertexdata uv vcount-1,0.5,0
    set vertexdata uv vcount-2,0.5,0
    set vertexdata uv vcount-3,0.5,0
  next count
  
  for count=1 to vertcount-2 step 2
    add mesh to vertexdata trimesh
    vcount=get vertexdata vertex count()
    set vertexdata position vcount-1,0,-size/2.0,0
    set vertexdata position vcount-2,get vertexdata position x(count),-size/2.0,get vertexdata position z(count)
    set vertexdata position vcount-3,get vertexdata position x(count+2),-size/2.0,get vertexdata position z(count+2)
    set indexdata get vertexdata index count()-1,vcount-1
    set indexdata get vertexdata index count()-2,vcount-2
    set indexdata get vertexdata index count()-3,vcount-3
    set vertexdata normals vcount-1,0,-1,0
    set vertexdata normals vcount-2,0,-1,0
    set vertexdata normals vcount-3,0,-1,0
    set vertexdata uv vcount-1,0.5,0
    set vertexdata uv vcount-2,0.5,0
    set vertexdata uv vcount-3,0.5,0
  next count

  unlock vertexdata
  
  delete object obj
  make object obj,tempmesh,0
  delete mesh tempmesh 
endfunction

function addstation(name$,x#,y#)
  array insert at bottom stations(0)
  dim stationcomponents(array count(stations(0))+1,maxcomponents+1)
  dim stationdocks#(array count(stations(0))+1,maxdocks+1)
  tempobj=findobj()
  stations(array count(stations(0))).pickobj=tempobj
  stations(array count(stations(0))).name$=name$
  stations(array count(stations(0))).posx#=x#
  stations(array count(stations(0))).posy#=y#
  make object box tempobj,1,1,1
  texture object tempobj,7
  set alpha mapping on tempobj,100
endfunction

function updatestationpickbox(station)
  tempobj=stations(array count(stations(0))).pickobj
  delete object tempobj
  width#=stations(station).right#-stations(station).left#
  height#=stations(station).top#-stations(station).bottom#
  make object box tempobj,width#,2,height#
  position object tempobj,stations(station).posx#+stations(station).left#+(width#/2),0,stations(station).posy#+stations(station).bottom#+(height#/2)
  //set object wireframe tempobj,1
  //hide object tempobj
  texture object tempobj,7
  set alpha mapping on tempobj,100
endfunction

function addstationcomponent(station,component,x#,y#,rot#)
  stations(station).components=stations(station).components+1
  if stations(station).components>maxcomponents
    maxcomponents=stations(station).components
    dim stationcomponents(array count(stations(0))+2,maxcomponents+2)
  endif
  
  num=stations(station).components

  select component
    case 1
      stationcomponents(station,num).left#=-abs(rotatex#(2,1,rot#))+x#
      stationcomponents(station,num).top#=abs(rotatey#(2,1,rot#))+y#
      stationcomponents(station,num).right#=abs(rotatex#(2,1,rot#))+x#
      stationcomponents(station,num).bottom#=-abs(rotatey#(2,1,rot#))+y#
      tempobj=findobj()
      stationcomponents(station,num).obj=tempobj
      clone object tempobj,sclargetube
      yrotate object tempobj,rot#
      position object tempobj,x#+stations(station).posx#,0,y#+stations(station).posy#
    endcase
    case 2
      stationcomponents(station,num).left#=-abs(rotatex#(1,0.5,rot#))+x#
      stationcomponents(station,num).top#=abs(rotatey#(1,0.5,rot#))+y#
      stationcomponents(station,num).right#=abs(rotatex#(1,0.5,rot#))+x#
      stationcomponents(station,num).bottom#=-abs(rotatey#(1,0.5,rot#))+y#
      tempobj=findobj()
      stationcomponents(station,num).obj=tempobj
      clone object tempobj,scsmalldock
      yrotate object tempobj,rot#
      position object tempobj,x#+stations(station).posx#,0,y#+stations(station).posy#
      addstationdock(station,1,cos(rot#)+x#,sin(rot#)+y#,rot#)
    endcase
    case 3
      stationcomponents(station,num).left#=-abs(rotatex#(2,1,rot#))+x#
      stationcomponents(station,num).top#=abs(rotatey#(2,1,rot#))+y#
      stationcomponents(station,num).right#=abs(rotatex#(2,1,rot#))+x#
      stationcomponents(station,num).bottom#=-abs(rotatey#(2,1,rot#))+y#
      tempobj=findobj()
      stationcomponents(station,num).obj=tempobj
      clone object tempobj,sclargedock
      yrotate object tempobj,rot#
      position object tempobj,x#+stations(station).posx#,0,y#+stations(station).posy#
    endcase
    case 4
      stationcomponents(station,num).left#=-abs(rotatex#(3,1.5,rot#))+x#
      stationcomponents(station,num).top#=abs(rotatey#(3,1.5,rot#))+y#
      stationcomponents(station,num).right#=abs(rotatex#(3,1.5,rot#))+x#
      stationcomponents(station,num).bottom#=-abs(rotatey#(3,1.5,rot#))+y#
      tempobj=findobj()
      stationcomponents(station,num).obj=tempobj
      clone object tempobj,scbigtube
      yrotate object tempobj,rot#
      position object tempobj,x#+stations(station).posx#,0,y#+stations(station).posy#
    endcase
    case 5
      stationcomponents(station,num).left#=-abs(rotatex#(1.5,1.5,rot#))+x#
      stationcomponents(station,num).top#=abs(rotatey#(1.5,1.5,rot#))+y#
      stationcomponents(station,num).right#=abs(rotatex#(1.5,1.5,rot#))+x#
      stationcomponents(station,num).bottom#=-abs(rotatey#(1.5,1.5,rot#))+y#
      tempobj=findobj()
      stationcomponents(station,num).obj=tempobj
      clone object tempobj,scshortbigtube
      yrotate object tempobj,rot#
      position object tempobj,x#+stations(station).posx#,0,y#+stations(station).posy#
    endcase
  endselect
  stationcomponents(station,num).posx#=x#
  stationcomponents(station,num).posy#=y#
  if stationcomponents(station,num).left#<stations(station).left# then stations(station).left#=stationcomponents(station,num).left#
  if stationcomponents(station,num).top#>stations(station).top# then stations(station).top#=stationcomponents(station,num).top#
  if stationcomponents(station,num).right#>stations(station).right# then stations(station).right#=stationcomponents(station,num).right#
  if stationcomponents(station,num).bottom#<stations(station).bottom# then stations(station).bottom#=stationcomponents(station,num).bottom#
  if dist#(stationcomponents(station,num).left#-x#,stationcomponents(station,num).top#-y#)>stationcomponents(station,num).coldistance# then stationcomponents(station,num).coldistance#=dist#(stationcomponents(station,num).left#-x#,stationcomponents(station,num).top#-y#)
  if dist#(stationcomponents(station,num).left#-x#,stationcomponents(station,num).bottom#-y#)>stationcomponents(station,num).coldistance# then stationcomponents(station,num).coldistance#=dist#(stationcomponents(station,num).left#-x#,stationcomponents(station,num).bottom#-y#)
  if dist#(stationcomponents(station,num).right#-x#,stationcomponents(station,num).top#-y#)>stationcomponents(station,num).coldistance# then stationcomponents(station,num).coldistance#=dist#(stationcomponents(station,num).right#-x#,stationcomponents(station,num).top#-y#)
  if dist#(stationcomponents(station,num).right#-x#,stationcomponents(station,num).bottom#-y#)>stationcomponents(station,num).coldistance# then stationcomponents(station,num).coldistance#=dist#(stationcomponents(station,num).right#-x#,stationcomponents(station,num).bottom#-y#)
  updatestationpickbox(station)
endfunction

function addstationdock(station,docktype,x#,y#,rot#)
  stations(station).docks=stations(station).docks+1
  if stations(station).docks>maxdocks
    maxdocks=stations(station).docks
    dim stationdocks#(array count(stations(0))+1,maxdocks+1)
  endif
  num=stations(station).docks
  stationdocks#(station,num).docktype=docktype
  stationdocks#(station,num).x#=x#
  stationdocks#(station,num).y#=y#
  stationdocks#(station,num).angle#=rot#
endfunction

Function Dline(ret,x1#,y1#,z1#,x2#,y2#,z2#,color As DWord)
   if ret=0 then ret=findobj()
   Make Object Triangle ret,x1#,y1#,z1#,x2#,y2#,z2#,x2#,y2#,z2#+0.01
   Set Object WireFrame ret,1
   Color Object ret,color
   set object specular ret,rgb(255,255,255)
   set object specular power ret,100
EndFunction ret

function FillCircle( CX as integer, CY as integer, R as integer ) `Not mine!!! From somewhere on the DBPro forums
   local x as integer
   local y as integer
   local i as integer
   local s as integer

   s=R*0.70710678 : ` this number is sin(45) - precalculate!
   box CX-s, CY-s, CX+s+1, CY+s+1
   s=s+1 : ` Faster than 'inc s'?
   i=R*R
   for y=s to R
      x=sqrt( i-(y*y) )

      ` Draw top and bottom
      box CX-x, CY-y, CX+x+1, CY-y+1
      box CX-x, CY+y, CX+x+1, CY+y+1

      ` Draw left and right
      box CX-y, CY-x, CX-y+1, CY+x+1
      box CX+y, CY-x, CX+y+1, CY+x+1
   next y
endfunction

function valwithin(val1#,val2#,range#)
ret=0
if (val1#<val2#+range#) AND (val1#>val2#-range#) then ret=1
endfunction ret

function within(x#,y#,left#,top#,right#,bottom#)
ret=0
if (x#>left#) AND (x#<right#) AND (y#>bottom#) AND (y#<top#) then ret=1 
endfunction ret

function message(string$)
  messages$=messages$+chr$(13)+chr$(10)+string$
endfunction

function sqr#(val#)
ret#=val#*val#
endfunction ret#

function addbutton(text$,visible,left,top,width,height,image,id)
      array insert at bottom buttons(0)
      num=array count(buttons(0))
      buttons(num).text$=text$
      buttons(num).left=left
      buttons(num).top=top
      buttons(num).right=left+width
      buttons(num).bottom=top+height
      buttons(num).image=image
      buttons(num).textx=((left+(left+width))/2)-(text width(text$)/2)
      if right$(text$,1)=" "
        buttons(num).texty=((top+(top+height))/2)-textheight
      else
        buttons(num).texty=((top+(top+height))/2)-(textheight/2)
      endif
      buttons(num).id=id
      buttons(num).visible=visible
      buttons(num).highlighted=0
endfunction

function getbutton(id)
  ret=0
  for count=1 to array count(buttons(0))
    if buttons(count).id=id then ret=count
  next count
endfunction ret

function setbutton(index,text$,left,top,width,height,image,id,alignleft,visible)
  num=index
  buttons(num).text$=text$
  buttons(num).left=left
  buttons(num).top=top
  buttons(num).right=left+width
  buttons(num).bottom=top+height
  buttons(num).image=image
  buttons(num).visible=visible
  if alignleft=0
    buttons(num).textx=((left+(left+width))/2)-(text width(text$)/2)
  else
    buttons(num).textx=left+3
  endif
  if right$(text$,1)=" "
    buttons(num).texty=((top+(top+height))/2)-textheight
  else
    buttons(num).texty=((top+(top+height))/2)-(textheight/2)
  endif
  if id<>0 then buttons(num).id=id
  //buttons(num).highlighted=0
endfunction

function makeasteroid(obj,size#,posx#,posy#)
  if obj=0 then obj=findobj()
  make object sphere obj,size#
  tempmesh=findmesh()
  make mesh from object tempmesh,obj
  delete object obj
  lock vertexdata for mesh tempmesh
  null = make vector3(1)
  for count=0 to get vertexdata vertex count()-1 step 1 
    set vector3 1,get vertexdata position x(count),get vertexdata position y(count),get vertexdata position z(count)
    scale vector3 1,1,1+(frnd#(0.4)-0.3)
    set vertexdata position count,x vector3(1),y vector3(1),z vector3(1)
  next count
  unlock vertexdata
  make object obj,tempmesh,14
  delete mesh tempmesh
  position object obj,posx#,0,posy#
  
  array insert at bottom asteroids(0)
  num=array count(asteroids(0))
  asteroids(num).obj=obj
  asteroids(num).size#=size#
  asteroids(num).posx#=posx#
  asteroids(num).posy#=posy#
  asteroids(num).velx#=0
  asteroids(num).vely#=0
  select rnd(2)
    case 0
      asteroids(num).rotx#=frnd#(60)
      asteroids(num).roty#=frnd#(60)
    endcase
    case 1
      asteroids(num).rotx#=frnd#(60)
      asteroids(num).rotz#=frnd#(60)
    endcase
    case 2
      asteroids(num).roty#=frnd#(60)
      asteroids(num).rotz#=frnd#(60)
    endcase
  endselect
  asteroids(num).si=200
endfunction obj


function getintersect(xa1#,ya1#,xa2#,ya2#,xb1#,yb1#,xb2#,yb2#)
  ret=0
  ga#=(ya2#-ya1#)/(xa2#-xa1#)
  gb#=(yb2#-yb1#)/(xb2#-xb1#)
  xi#=(yb1#-gb#*xb1#-ya1#+ga#*xa1#)/(ga#-gb#)
  yi#=ga#*xi#+ya1#-ga#*xa1#
   
  if xa1#>xa2# then i#=xa2#:xa2#=xa1#:xa1#=i# 
  if xb1#>xb2# then i#=xb2#:xb2#=xb1#:xb1#=i# 
  if ya1#>ya2# then i#=ya2#:ya2#=ya1#:ya1#=i# 
  if yb1#>yb2# then i#=yb2#:yb2#=yb1#:yb1#=i#    
  
  if (xi#>=xa1#) AND (xi#<=xa2#) AND (yi#>=ya1#) AND (yi#<=ya2#)
    if (xi#>=xb1#) AND (xi#<=xb2#) AND (yi#>=yb1#) AND (yi#<=yb2#)
      gretx#=xi#
      grety#=yi#
      ret=1
    endif
  endif

endfunction ret

function dist#(x#,y#)
ret#=sqrt((x#*x#)+(y#*y#))
endfunction ret#

function addbullet(bullettype,posx#,posy#,velx#,vely#,angle#,time#)
//bullettypes
//1-energy pulse
//2-projectile
//3-powered projectile (missile)

  array insert at bottom bullets(0)
  num=array count(bullets(0))
  bullets(num).obj=findobj()
  bullets(num).posx#=posx#
  bullets(num).posy#=posy#
  realangle#=angle#+(frnd#(weapons(bullettype).spread#)-(weapons(bullettype).spread#/2.0))  
  //realangle#=angle#+(frnd#(15.0)-7.5)  
  bullets(num).velx#=velx#+(cos(realangle#)*weapons(bullettype).initvelocity#)
  bullets(num).vely#=vely#+(sin(realangle#)*weapons(bullettype).initvelocity#)
  bullets(num).life#=weapons(bullettype).life#
  bullets(num).size#=weapons(bullettype).size#
  bullets(num).damage=weapons(bullettype).damage
  
  make object plain bullets(num).obj,weapons(bullettype).size#,weapons(bullettype).size#
  texture object bullets(num).obj,weapons(bullettype).imagenum
  xrotate object bullets(num).obj,90
  fix object pivot bullets(num).obj
  yrotate object bullets(num).obj,-realangle#
  position object bullets(num).obj,posx#,0,posy#
  set object emissive bullets(num).obj,rgb(255,255,255)
  set alpha mapping on bullets(num).obj,100 
endfunction

function updatebullets(time#)
  for count=1 to array count(bullets(0))
    bullets(count).elapsed#=bullets(count).elapsed#+time#
    if bullets(count).elapsed#<bullets(count).life#
      //yrotate object bullets(count).obj,rnd(360)
      bullets(count).posx#=bullets(count).posx#+bullets(count).velx#*time#
      bullets(count).posy#=bullets(count).posy#+bullets(count).vely#*time#
      position object bullets(count).obj,bullets(count).posx#,0,bullets(count).posy#
    else
      delete object bullets(count).obj
      array delete element bullets(0),count
      count=count-1 
    endif
  next count
endfunction

function addtri(x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#)
  tempobj=findobj()
  make object triangle tempobj,x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#
  tempmesh=findmesh()
  make mesh from object tempmesh,tempobj
  add mesh to vertexdata tempmesh
  delete mesh tempmesh
  delete object tempobj
endfunction

function addplain(x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#,x4#,y4#,z4#)
  tempobj=findobj()
  make object triangle tempobj,x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#
  tempmesh=findmesh()
  make mesh from object tempmesh,tempobj
  add mesh to vertexdata tempmesh
  delete mesh tempmesh
  delete object tempobj  
  make object triangle tempobj,x1#,y1#,z1#,x3#,y3#,z3#,x4#,y4#,z4#
  make mesh from object tempmesh,tempobj
  add mesh to vertexdata tempmesh
  delete mesh tempmesh
  delete object tempobj  
endfunction

function setlastquad(x#,y#,z#)
  for count = get vertexdata vertex count()-6 to get vertexdata vertex count()-1 
    set vertexdata normals count,x#,y#,z#
  next count
endfunction


data 3

data "Station 1",-3,0,15
data 1,-3,0,90
data 3,-3,-4,90
data 2,-2,-1,0
data 2,-4,-1,180
data 1,-3,4,90
data 4,0,7,0
data 4,-6,7,0
data 4,6,7,0
data 4,12,7,0
data 1,11,4,90
data 1,11,0,90
data 4,12,-3,0
data 5,16.5,-3,0
data 4,-7.5,10,90
data 5,-7.5,14.5,90

data 3
data 1,2,3

data 3
data 1,3,2

data 2
data 1,2

data 0
//--------------------
data "Station test",50,-20,1
data 4,6,7,0


data 3
data 1,2,3

data 2
data 1,2

data 2
data 1,2

data 0
//--------------

data "Station 2",50,-100,15
data 1,-3,0,90
data 3,-3,-4,90
data 2,-2,-1,0
data 2,-4,-1,180
data 1,-3,4,90
data 4,0,7,0
data 4,-6,7,0
data 4,6,7,0
data 4,12,7,0
data 1,11,4,90
data 1,11,0,90
data 4,12,-3,0
data 5,16.5,-3,0
data 4,-7.5,10,90
data 5,-7.5,14.5,90

data 0

data 2
data 1,2

data 2
data 1,2

data 0

set display mode 1024,768,32
hide mouse
sync
ink rgb(100,100,255),0
text 450,350,"-Leet- by Ric."
ink rgb(255,0,0),0
text 350,370,"Aim: Destroy ships and improve your rating"
text 450,410,"Press any key"
sync
wait key
text 450,450,"Loading ....."
sync
sw=screen width()
sh=screen height()
sync on
sync rate 60
gosub make_sun_texture
gosub display

#constant static_variable=global


type SHIP_CLASS

   objectnumber as integer
   Human as integer `0 for computer, >0 for human player
   Name as String
   Image as Integer
   velocity as float
   acceleration as float
   maxvelocity as float
   camdistance as float
   shield as integer
   maxshield as integer
   alive as integer
   aimode as string
   newbearingx as float
   newbearingy as float
   newbearingz as float
   changingcourse as integer
   turnspeed as integer
   fullcharge as integer `weapon max charge
   firepower as integer
   delaytime as integer  `interval between laser pulses
   rechargerate as integer
   maxduration as integer `duration of laser pulse
   fireduration as integer
   `flags
   charge as integer
   delay as integer
   fire as integer
   range as integer
   blobnumber as integer `objectnumber of cube on radar representing each ship 'n'
   sticknumber as integer `as above, but for the stick
   distancetoplayer as float

endtype


Dim ship(0) as ship_class


GLOBAL number_of_ships
number_of_ships=10
GLOBAL cam_mode=2 `set camera to chase-cam mode
GLOBAL keypress
GLOBAL trackinginfo=1000
GLOBAL theta
global weapondummy
global aidummy
global target
global glow
global arrow
global radardummy
global radardummy2
global distancevector
global xvector
global yvector
global zvector
global resultantvector
global resultantvectornormal
global projectedvector
global projectedvectornormal
global dummy
global projectiondist#
global rating
global explodeon
global particle
global numberofparticles

distancevector=1
null=make vector3(distancevector)
xvector=2
null=make vector3(xvector)
yvector=3
null=make vector3(yvector)
zvector=4
null=make vector3(zvector)
resultantvector=5
null=make vector3(resultantvector)
resultantvectornormal=6
null=make vector3(resultantvectornormal)
projectedvector=7
null=make vector3(projectedvector)
projectedvectornormal=8
null=make vector3(projectedvectornormal)







`forwardvector=2
`rightvector=3
`upvector=4
`null=make vector3(forwardvector)
`null=make vector3(rightvector)
`null=make vector3(upvector)
`targetvector=5
`null=make vector3(targetvector)


gosub make_sun
make_ships(number_of_ships)
GLOBAL camera_on_ship=1 `initial ship camera will follow
weapondummy=free_object()
make object cube weapondummy,1
hide object weapondummy
aidummy=free_object()
make object cube aidummy,1
hide object aidummy
gosub make_crosshairs
gosub make_radar
dummy=free_object()
make object cube dummy,1
hide object dummy

gosub make_explosion_particles



TEMP_FUNCTION1() `called once


ink rgb(0,255,0),0
do

color backdrop 0
show object glow

TEMP_FUNCTION2() `called each loop
control_ships(number_of_ships)
move_ships(number_of_ships)
flashing_lights(number_of_ships)
control_camera(cam_mode,camera_on_ship)
starfield(ship(camera_on_ship).velocity,ship(camera_on_ship).objectnumber)
player_weapons()
gosub show_crosshairs
turn object right sun,0.1
point object glow,camera position x(),camera position y(),camera position z()
cockpit()
if explodeon=1 then gosub explode

if scancode()=0 then keypress=0


sync
loop

make_explosion_particles:
numberofparticles=20
particle=free_object()
dim particlespeed(particle+20)
for n=particle to particle+numberofparticles-1
  make object triangle n,-1,0,0,0,0,0,0,1,0
  rotate object n,rnd(360),rnd(360),rnd(360)
  fix object pivot n
  rotate object n,rnd(360),rnd(360),rnd(360)
  particlespeed(n)=rnd(40)/10.0
  color object n,rgb(0,rnd(255),rnd(255))
  hide object n
next n
return

explode:

for n=particle to particle+numberofparticles-1
  roll object right n,3
  move object n,particlespeed(n)
next n

inc count
if count>100
  explodeon=0
  count=0
  for n=particle to particle+numberofparticles-1
    hide object n
  next n
endif

return

make_radar:

create bitmap 1,101,101
for x=0 to 101 step 10
line x,0,x,101
next x
for y=0 to 101 step 10
line 0,y,101,y
next y
gridimage=free_image()
get image gridimage,0,0,101,101
delete bitmap 1

grid=free_object()
make object plain grid,1,1
position object grid,0,-1.35,3.0
xrotate object grid,90
lock object on grid
texture object grid,gridimage
set object transparency grid,5
disable object zdepth grid
set object light grid,0

arrow=free_object()
make object triangle arrow,-0.05,0,0,0.05,0,0,0,0,0.05
position object arrow,0,-1.34,2.95
lock object on arrow
`set object light arrow,0
color object arrow,rgb(255,0,0)
`disable object zdepth arrow
ghost object on arrow

for n=2 to number_of_ships
  ship(n).blobnumber=free_object()
  make object cube ship(n).blobnumber,0.01
  hide object ship(n).blobnumber
  lock object on ship(n).blobnumber
  disable object zdepth ship(n).blobnumber
  color object ship(n).blobnumber,rgb(0,255,0)
  ship(n).sticknumber=free_object()
  make object box ship(n).sticknumber,0.005,1,0.005
  hide object ship(n).sticknumber
  lock object on ship(n).sticknumber
  disable object zdepth ship(n).sticknumber
  color object ship(n).sticknumber,rgb(255,0,255)
next n

radardummy=free_object()
make object cube radardummy,1
hide object radardummy




return

display:
autocam off
position camera 0,0,-15
color backdrop 0
set ambient light 50
set light range 1,10000
return

make_crosshairs:

crosshairs=free_sprite()
crosshairimage=free_image()
create bitmap 1,100,100
ink rgb(100,100,255),0
line 20,50,45,50
line 55,50,80,50
line 50,20,50,45
line 50,55,50,80
get image crosshairimage,0,0,100,100,1
delete bitmap 1

sprite crosshairs,0,0,crosshairimage

return

show_crosshairs:

if camera_on_ship=1
if cam_mode=1
  sprite crosshairs,screen width()/2.0-sprite width(crosshairs)/2.0,screen height()/2.0-sprite height(crosshairs)/2.0,crosshairimage
endif
if cam_mode=2
  position object weapondummy,object position x(ship(1).objectnumber),object position y(ship(1).objectnumber),object position z(ship(1).objectnumber)
  set object to object orientation weapondummy,ship(1).objectnumber
  move object weapondummy,100
  x=object screen x(weapondummy)
  y=object screen y(weapondummy)
  sprite crosshairs,x-sprite width(crosshairs)/2.0,y-sprite height(crosshairs)/2.0,crosshairimage
endif
endif


return

function cockpit()

`rating
if rating=0 then rating$="Harmless"
if rating=1 then rating$="Rookie"
if rating=2 then rating$="Mediocre"
if rating=3 then rating$="Competent"
if rating=4 then rating$="Noteworthy"
if rating=5 then rating$="Adept"
if rating=6 then rating$="Respected"
if rating=7 then rating$="Dangerous"
if rating=8 then rating$="Deadly"
if rating=9 then rating$="Leet ;)"


text 0,740,"Your rating: "+rating$

text 700,740,"Velocity:"
box 800,740,800+ship(1).velocity*70,760

`player shield
text 300,740,"Shield:"
box 387,740,387+(ship(1).shield)/2.0,760

`plot ships onto radar

for n=2 to number_of_ships
  ship(n).distancetoplayer=distance(ship(1).objectnumber,ship(n).objectnumber)
  if ship(n).distancetoplayer<=800.0 and ship(n).alive=1
    show object ship(n).blobnumber
    show object ship(n).sticknumber
    `position blob at centre of grid
    position object ship(n).blobnumber,object position x(arrow),object position y(arrow),object position z(arrow)




`------------------------------- calculate radar coordintaes ---------------
rootobject=ship(1).objectnumber
radartarget=ship(n).objectnumber

`root position
x1#=object position x(rootobject)
y1#=object position y(rootobject)
z1#=object position z(rootobject)

`create dummy object
position object dummy,x1#,y1#,z1#
set object to object orientation dummy,rootobject

`make local z vector (forward on local axis)
move object dummy,1
x2# = object position x(dummy)
y2# = object position y(dummy)
z2# = object position z(dummy)

set vector3 zvector, x2#-x1#, y2#-y1#, z2#-z1#
normalize vector3 zvector,zvector

`make local x vector (sideways on local axis)

move object dummy, -1
turn object right dummy,90
move object dummy,1
x3# = object position x(dummy)
y3# = object position y(dummy)
z3# = object position z(dummy)

set vector3 xvector, x3#-x1#, y3#-y1#, z3#-z1#
normalize vector3 xvector,xvector
`make local y vector (upwards on local axis)
`cross product vector3 yvector,xvector,zvector
move object dummy, -1
turn object left dummy,90
pitch object up dummy,90
move object dummy,1
x3b# = object position x(dummy)
y3b# = object position y(dummy)
z3b# = object position z(dummy)
set vector3 yvector, x3b#-x1#, y3b#-y1#, z3b#-z1#
normalize vector3 yvector,yvector

`make vector joining two objects - from rootobject to radartarget
x4# = object position x(radartarget)
y4# = object position y(radartarget)
z4# = object position z(radartarget)

set vector3 resultantvector, x4#-x1#, y4#-y1#, z4#-z1#

`make vector at 90 degrees to the resultant vector, in the plane containing both the resultant vector and the y vector
position object dummy,x1#,y1#,z1#
set object to object orientation dummy,rootobject
point object dummy,x4#,y4#,z4#
pitch object down dummy,90 `not safe - may not be in correct plane
move object dummy,1
x5#=object position x(dummy)
y5#=object position y(dummy)
z5#=object position z(dummy)

set vector3 resultantvectornormal, x5#-x1#,y5#-y1#,z5#-z1#


`get angle between local y axis and radartarget
normalize vector3 resultantvector,resultantvector
normalize vector3 resultantvectornormal,resultantvectornormal
phi#=acos(dot product vector3(yvector,resultantvector))
test#=acos(dot product vector3(yvector,resultantvectornormal))
if test#<90.0 then phi#=360-phi#

`get angle between radartarget and plane of root object
theta#=90-phi#

`get distance between root object and radartarget
set vector3 resultantvector, x4#-x1#, y4#-y1#, z4#-z1#
radartargetdist#=length vector3(resultantvector)

`get smallest distance between radartarget on local object's plane - the projection distance
disttoplane#=radartargetdist#*sin(theta#)

`project dummy onto plane
position object dummy,x4#,y4#,z4#
set object to object orientation dummy,rootobject
pitch object down dummy,90
move object dummy,disttoplane#

`get projection coordinates
x6#=object position x(dummy)
y6#=object position y(dummy)
z6#=object position z(dummy)

`make vector joining root object to projected point

set vector3 projectedvector, x6#-x1#,y6#-y1#,z6#-z1#
normalize vector3 projectedvector,projectedvector



`get normal to projected vector in plane of root object
`cross product vector3 projectedvectornormal,projectedvector,yvector
`normalize vector3 projectedvectornormal,projectedvectornormal

`get angle between projected vector and z vector
localyangle#=acos(dot product vector3(projectedvector,zvector))
test#=acos(dot product vector3(projectedvector,xvector))
if test#<90.0 then localyangle#=360-localyangle#


`get projected vector's length
set vector3 projectedvector, x6#-x1#,y6#-y1#,z6#-z1#
projectionlength#=length vector3(projectedvector)




`--------------------------------------------------


    rotate object ship(n).blobnumber,0,-localyangle#,0
    move object ship(n).blobnumber,projectionlength#/1600.0
    pitch object up ship(n).blobnumber,90
    move object ship(n).blobnumber,disttoplane#/1600.0 `calculated globally in function get_projected_bearing
    rotate object ship(n).blobnumber,0,0,0
    height#=object position y(ship(n).blobnumber)-object position y(arrow)
    scale object ship(n).sticknumber,100,height#*100,100
    position object ship(n).sticknumber,object position x(ship(n).blobnumber),object position y(arrow)+height#/2.0,object position z(ship(n).blobnumber)
  else
    hide object ship(n).blobnumber
    hide object ship(n).sticknumber
  endif



next n




endfunction

function player_weapons()

if 0 = 1
static_variable charge
static_variable delay
static_variable fire
static_variable fireduration

endif


fullcharge=100
firepower=1
delaytime=20
rechargerate=1
maxduration=5

if spacekey()=1 and charge>0
  fire=1
  dec charge,firepower
endif

if fire=1 and delay=0
  inc fireduration
  if fireduration=maxduration then delay=delaytime:fireduration=0
  if cam_mode=1
    line 0,0,screen width()/2.0,screen height()/2.0
    line screen width(),0,screen width()/2.0,screen height()/2.0
    target=pick object(screen width()/2.0,screen height()/2.0,ship(2).objectnumber,ship(number_of_ships).objectnumber)
  endif
  if cam_mode=2
    position object weapondummy,object position x(ship(1).objectnumber),object position y(ship(1).objectnumber),object position z(ship(1).objectnumber)
    set object to object orientation weapondummy,ship(1).objectnumber
    move object left weapondummy,1.5
    x1=object screen x(weapondummy)
    y1=object screen y(weapondummy)
    move object right weapondummy,3
    x2=object screen x(weapondummy)
    y2=object screen y(weapondummy)
    move object left weapondummy,1.5
    move object weapondummy,100
    x3=object screen x(weapondummy)
    y3=object screen y(weapondummy)
    line x1,y1,x3,y3
    line x2,y2,x3,y3
    target=pick object(x3,y3,ship(2).objectnumber,ship(number_of_ships).objectnumber)
  endif
if target>0
    targetnumber=ship_link_list(target)
    dec ship(targetnumber).shield,firepower
    ship(targetnumber).aimode="attack"
    color object ship(targetnumber).blobnumber,rgb(255,0,0)
    if ship(targetnumber).shield<=0
      hide object ship(targetnumber).objectnumber
      ship(targetnumber).alive=0
      explodeon=1
      for n=particle to particle+numberofparticles-1
        position object n,object position x(ship(targetnumber).objectnumber),object position y(ship(targetnumber).objectnumber),object position z(ship(targetnumber).objectnumber)
        show object n
      next n
      inc rating
    endif
  endif

endif

if charge<fullcharge
  inc charge,rechargerate
  if charge>fullcharge then charge=fullcharge
endif
if delay>0 then dec delay
if spacekey()=0 then fire=0

endfunction

function ai_weapons(shipnumber)

n=shipnumber


if ship(n).charge>0
  ship(n).fire=1
  dec ship(n).charge,ship(n).firepower
endif

if ship(n).fire=1 and ship(n).delay=0
  distance#=distance(ship(n).objectnumber,ship(1).objectnumber)
  if distance#<=ship(n).range
    inc ship(n).fireduration
    if ship(n).fireduration>=ship(n).maxduration then ship(n).delay=ship(n).delaytime:ship(n).fireduration=0
    if cam_mode=1 and camera_on_ship=n
      line 0,0,object screen x(ship(1).objectnumber),object screen y(ship(1).objectnumber)
      line screen width(),0,object screen x(ship(1).objectnumber),object screen y(ship(1).objectnumber)
    endif
    if cam_mode=2
      position object weapondummy,object position x(ship(n).objectnumber),object position y(ship(n).objectnumber),object position z(ship(n).objectnumber)
      set object to object orientation weapondummy,ship(n).objectnumber
      move object left weapondummy,1.5
      x1=object screen x(weapondummy)
      y1=object screen y(weapondummy)
      move object right weapondummy,3
      x2=object screen x(weapondummy)
      y2=object screen y(weapondummy)
      x3=object screen x(ship(1).objectnumber)
      y3=object screen y(ship(1).objectnumber)
      line x1,y1,x3,y3
      line x2,y2,x3,y3
    endif


    dec ship(1).shield,ship(n).firepower
    color backdrop rgb(255,0,0):hide object glow
    if ship(1).shield<=0
      hide object ship(1).objectnumber
      ship(1).alive=0
    endif
  endif
endif



if ship(n).charge<ship(n).fullcharge
  inc ship(n).charge,ship(n).rechargerate
  if ship(n).charge>ship(n).fullcharge then ship(n).charge=ship(n).fullcharge
endif
if ship(n).delay>0 then dec ship(n).delay


endfunction




function flashing_lights(number_of_ships)

for n=1 to number_of_ships

ship=ship(n).objectnumber
brightness=int(127*sin(theta))+127
inc theta,1
color limb ship,5,rgb(255,brightness,brightness)

next n

endfunction


function make_ships(number)


   `create temporary texture for spaceships
   create bitmap 1,10,10
      blue=free_image()
      ink rgb(0,0,255),0
      box 0,0,10,10
      get image blue,0,0,10,10
      red=free_image()
      ink rgb(255,0,0),0
      box 0,0,10,10
      get image red,0,0,10,10
      green=free_image()
      ink rgb(0,255,0),0
      box 0,0,10,10
      get image green,0,0,10,10
   delete bitmap 1
   set current bitmap 0

   for n=1 to number_of_ships
      array insert at bottom ship(0)
      ship(n).objectnumber=free_object()
      dim ship_link_list(ship(n).objectnumber)
      ship_link_list(ship(n).objectnumber)=n





  `body
  make object box ship(n).objectnumber,2.0,1.1,5

  temp=free_object()
  `nose
  make object box temp,1.4,1,1.4
  yrotate object temp,45
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,1,1
  offset limb ship(n).objectnumber,1,0,0,2.5
  delete mesh 1
  `left wing
  make object box temp,2,0.5,3
  yrotate object temp,45
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,2,1
  offset limb ship(n).objectnumber,2,-1,0,-1.5
  delete mesh 1
  `right wing
  make object box temp,2,0.5,3
  yrotate object temp,-45
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,3,1
  offset limb ship(n).objectnumber,3,1,0,-1.5
  delete mesh 1
  `fin
  make object box temp,0.2,1,4
  xrotate object temp,12
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,4,1
  offset limb ship(n).objectnumber,4,0,0.5,0
  delete mesh 1
  `light
  make object box temp,0.5,0.3,0.5
  yrotate object temp,45
  make mesh from object 1,temp
  delete object temp
  add limb ship(n).objectnumber,5,1
  offset limb ship(n).objectnumber,5,0,0,-2.5
  delete mesh 1

  if n>1 then rotate object ship(n).objectnumber,rnd(360),rnd(360),rnd(360)


  ship(n).acceleration=0.02
  ship(n).maxvelocity=3
  ship(n).camdistance=20
  ship(n).velocity=0.3
  ship(n).maxshield=100
  ship(n).shield=ship(n).maxshield
  ship(n).alive=1
  ship(n).aimode="passive"
  ship(n).turnspeed=60 `smoothness value for curveangle - larger number=slower turnspeed

  if n>1
    ship(n).fullcharge=100
    ship(n).firepower=1
    ship(n).delaytime=20
    ship(n).rechargerate=1
    ship(n).maxduration=5
    ship(n).range=300
  endif

  if n=1
    ship(n).human=1
    ship(n).maxshield=500
    ship(n).shield=ship(n).maxshield
    ship(n).name="Your ship"
    texture object ship(n).objectnumber,blue
  else
    ship(n).name="Trade ship "+str$(n)
    texture object ship(n).objectnumber,green
  endif

  position object ship(n).objectnumber,rnd(50)-25,rnd(50)-25,rnd(50)-25

   next n
endfunction





function free_object()

repeat
inc n
until object exist(n)=0

endfunction n


function TEMP_FUNCTION1()


   text_sprite(free_sprite(),255,255,0,0,0,"arrow keys - control ship")
   text_sprite(free_sprite(),255,255,0,0,20,"+ - increase velocity")
   text_sprite(free_sprite(),255,255,0,0,40,"- - decrease velocity")
   text_sprite(free_sprite(),255,0,0,0,80,"1 - cockpit mode")
   text_sprite(free_sprite(),255,0,0,0,100,"2 - chasecam mode")
   text_sprite(free_sprite(),255,0,0,0,120,"c - change camera")
   text_sprite(free_sprite(),255,0,0,0,140,"a - zoom in")
   text_sprite(free_sprite(),255,0,0,0,160,"z - zoom out")


   text_sprite(trackinginfo,255,255,0,700,0,"Camera tracking: "+ship(1).name)



endfunction

function TEMP_FUNCTION2()

if 0=1 then global currenttarget

n=ship_link_list(target)
if n>0
  currenttarget=n
endif
if currenttarget>0
  text 700,20,"Ship hit: "+ship(currenttarget).name
  text 700,40,"Shield: "
  box 800,40,800+ship(currenttarget).shield,60
endif



endfunction


function control_ships(number_of_ships)
   for n=1 to number_of_ships
     if ship(n).alive=1

     if ship(n).human=1
       `keyboard control system
        if leftkey()=1 then roll object left ship(1).objectnumber,1
        if rightkey()=1 then roll object right ship(1).objectnumber,1
        if upkey()=1 then  pitch object down ship(1).objectnumber,0.5
        if downkey()=1 then  pitch object up ship(1).objectnumber,0.5
        if keystate(12)=1 and ship(n).velocity > 0 then dec ship(n).velocity,ship(n).acceleration
        if keystate(13)=1 and ship(n).velocity < ship(n).maxvelocity then inc ship(n).velocity,ship(n).acceleration
     else
       `apply AI to computer controlled ships
       if ship(n).aimode="passive"
         if ship(n).changingcourse=0
           if rnd(500)=0
             ship(n).newbearingx=rnd(360)
             ship(n).newbearingy=rnd(360)
             ship(n).newbearingz=rnd(360)
             ship(n).changingcourse=1
           endif
         endif
         if ship(n).changingcourse=1
           rotate object ship(n).objectnumber,curveangle(ship(n).newbearingx,object angle x(ship(n).objectnumber),ship(n).turnspeed),curveangle(ship(n).newbearingy,object angle y(ship(n).objectnumber),ship(n).turnspeed),curveangle(ship(n).newbearingz,object angle z(ship(n).objectnumber),ship(n).turnspeed)
           diffx#=anglebetweenbearings(object angle x (ship(n).objectnumber),ship(n).newbearingx)
           diffy#=anglebetweenbearings(object angle y (ship(n).objectnumber),ship(n).newbearingy)
           diffz#=anglebetweenbearings(object angle z (ship(n).objectnumber),ship(n).newbearingz)
           `if new bearing is reached (within a few degrees), change flag to force a new bearing to be calculated next loop
           if diffx#<5 and diffy#<5 and diffz#<5 then ship(n).changingcourse=0
         endif
       endif
       if ship(n).aimode="attack"
         if ship(n).changingcourse=0
           `find new bearing by pointing dummy towards player and recording results
           position object aidummy,object position x(ship(n).objectnumber),object position y(ship(n).objectnumber),object position z(ship(n).objectnumber)
           point object aidummy,object position x(ship(1).objectnumber),object position y(ship(1).objectnumber),object position z(ship(1).objectnumber)
           ship(n).newbearingx=object angle x(aidummy)
           ship(n).newbearingy=object angle y(aidummy)
           ship(n).newbearingz=object angle z(aidummy)
           ship(n).changingcourse=1
         endif
         if ship(n).changingcourse=1
           `decrease speed if close to player ship, to prevent orbiting
           dist#=ship(n).distancetoplayer
           if dist#<60 then ship(n).velocity=dist#/200.0 else ship(n).velocity=0.3
           `rotate enemy ship towards new bearing
           rotate object ship(n).objectnumber,curveangle(ship(n).newbearingx,object angle x(ship(n).objectnumber),ship(n).turnspeed),curveangle(ship(n).newbearingy,object angle y(ship(n).objectnumber),ship(n).turnspeed),curveangle(ship(n).newbearingz,object angle z(ship(n).objectnumber),ship(n).turnspeed)
           `check to see if bearing has been reached
           diffx#=anglebetweenbearings(object angle x (ship(n).objectnumber),ship(n).newbearingx)
           diffy#=anglebetweenbearings(object angle y (ship(n).objectnumber),ship(n).newbearingy)
           diffz#=anglebetweenbearings(object angle z (ship(n).objectnumber),ship(n).newbearingz)
           `if new bearing is reached (within a few degrees), change flag to force a new bearing to be calculated next loop
           if diffx#<5 and diffy#<5 and diffz#<5
             ai_weapons(n)
             ship(n).changingcourse=0
           endif
         endif
       endif
     endif

     endif
   next n
endfunction


function move_ships(number_of_ships)
   for n=1 to number_of_ships
      move object ship(n).objectnumber,ship(n).velocity
   next n
endfunction



function control_camera(mode,shipnumber)


if mode=1 `cockpit view
   set camera to object orientation ship(shipnumber).objectnumber
   position camera object position x(ship(shipnumber).objectnumber),object position y(ship(shipnumber).objectnumber),object position z(ship(shipnumber).objectnumber)
   move camera 2
endif

if mode=2 `chase cam view
  chase_cam(ship(shipnumber).objectnumber,ship(shipnumber).camdistance)
  if inkey$()="a" and ship(shipnumber).camdistance>5 then dec ship(shipnumber).camdistance,.2
  if inkey$()="z" and ship(shipnumber).camdistance<20 then inc ship(shipnumber).camdistance,.2
endif

if keystate(2)=1 then cam_mode=1
if keystate(3)=1 then cam_mode=2
if inkey$()="c" and keypress=0
   keypress=1
   inc camera_on_ship
   if camera_on_ship>number_of_ships then camera_on_ship=1
   text_sprite(trackinginfo,255,255,0,700,0,"Tracking: "+ship(camera_on_ship).name)
endif


endfunction

function free_image()
   repeat
     inc n
   until image exist(n)=0
endfunction n


function free_sprite()
   repeat
     inc n
   until sprite exist(n)=0 and image exist(n)=0
endfunction n

function text_sprite(entity,r,g,b,x,y,text$)
   if text$="" then text$=" "
   create bitmap 1,screen width(),screen height()
      set current bitmap 1
      ink rgb(r,g,b),0
      set text size 20
      `set text font "Arial"
      text 0,0,text$
      if image exist(entity) then delete image entity
      if sprite exist(entity) then delete sprite entity
      get image entity,0,0,text width(text$),text height(text$),1
      sprite entity,x,y,entity
      set sprite priority entity,1
      set sprite alpha entity,255
   delete bitmap 1
   set current bitmap 0
endfunction


function chase_cam(object,distance#)


   oldcamx#=camera position x()
   oldcamy#=camera position y()
   oldcamz#=camera position z()
   oldcamangx#=camera angle x()
   oldcamangy#=camera angle y()
   oldcamangz#=camera angle z()

   position camera object position x(object),object position y(object),object position z(object)
   set camera to object orientation object
   move camera -distance#
   pitch camera up 90
   move camera distance#/3.0
   pitch camera down 90

   newcamx#=camera position x()
   newcamy#=camera position y()
   newcamz#=camera position z()
   newcamangx#=camera angle x()
   newcamangy#=camera angle y()
   newcamangz#=camera angle z()

   xrotate camera curveangle(newcamangx#,oldcamangx#,40)
   yrotate camera curveangle(newcamangy#,oldcamangy#,40)
   zrotate camera curveangle(newcamangz#,oldcamangz#,40)
   camx#=curvevalue(newcamx#,oldcamx#,20)
   camy#=curvevalue(newcamy#,oldcamy#,20)
   camz#=curvevalue(newcamz#,oldcamz#,20)
   position camera camx#,camy#,camz#

   camangx#=camera angle x()
   camangy#=camera angle y()
   camangz#=camera angle z()
   point camera object position x(object),object position y(object),object position z(object)
   position camera object position x(object),object position y(object),object position z(object)
   move camera -distance#
   rotate camera camangx#,camangy#,camangz#


endfunction


function starfield(speed#,camera_on_object)

rem 3D Starfield Demo - Written by Jason Clogg
rem Feel free to use any of this code


rem base sprite number
base=600
rem How widely to spread the stars
spread=800
rem How many stars to display
stars=200
rem The initial distance to start the stars displaying
dist=500

`Calculate a point in front of the camera to start drawing the starfield

cx#=camera position x()
cy#=camera position y()
cz#=camera position z()

pick screen screen width()/2,screen height()/2,dist
sx#=get pick vector x()
sy#=get pick vector y()
sz#=get pick vector z()

if object exist(600)=0
   make object box 600,.5,.5,.5
   for i=601 to 600+stars
      clone object i,600
rem stars should not be affected by light or included in collisions
      set object light i,0
      set object collision off i
      position object i,rnd(spread*2)-spread,rnd(spread*2)-spread,camera position z()+rnd(dist)
   next i
endif

for i=600 to 600+stars
`reposition stars if they are out of camera shot
   if object in screen(i)=0
   position object i,cx#+sx#+(rnd(spread)-(spread/2)),cy#+sy#+(rnd(spread)-(spread/2)),cz#+sz#+(rnd(spread*2)-(spread/2))
   endif
`Calculate distance of star from camera and scale star accordingly
   dist#=distance2(cx#,cy#,cz#,i)
   scale object i,.1*(dist#*2),.1*(dist#*2),2000*speed#
   set object to object orientation i,camera_on_object
rem The multiple of 1.2 will need to be changed depending on the frame rate.
rem This value works best with a sync rate of 60
   move object i,speed#*-1.2
   next i

endfunction

function distance(obj1,obj2)

x1#=object position x(obj1)
y1#=object position y(obj1)
z1#=object position z(obj1)

x2#=object position x(obj2)
y2#=object position y(obj2)
z2#=object position z(obj2)

`dist#=sqrt((x1#-x2#)*(x1#-x2#)+(y1#-y2#)*(y1#-y2#)+(z1#-z2#)*(z1#-z2#))

set vector3 distancevector,x2#-x1#,y2#-y1#,z2#-z1#
dist# = length vector3(distancevector)



endfunction dist#

function distance2(x1#,y1#,z1#,obj)


x2#=object position x(obj)
y2#=object position y(obj)
z2#=object position z(obj)

`dist#=sqrt((x1#-x2#)*(x1#-x2#)+(y1#-y2#)*(y1#-y2#)+(z1#-z2#)*(z1#-z2#))

set vector3 distancevector,x2#-x1#,y2#-y1#,z2#-z1#
dist# = length vector3(distancevector)



endfunction dist#



make_sun_texture:

autocam off
set ambient light 0
color backdrop 0
hide light 0
make light 1
position light 1,0,0,0
set light range 1,10
temp=free_object()
make object sphere temp,4,50,50
position object temp,0,0,5

x1=sw/2-300
x2=sw/2+300
y1=sh/2-300
y2=sh/2+300

sync

glowtexture=free_image()
get image glowtexture,x1,y1,x2,y2,1
delete object temp


create bitmap 1,512,512
box 0,0,256,256,rgb(255,0,0),rgb(255,127,0),rgb(255,255,0),rgb(255,127,255)
box 256,0,512,256,rgb(255,255,0),rgb(255,127,255),rgb(255,0,0),rgb(255,127,0)
box 0,256,256,512,rgb(255,127,0),rgb(255,0,0),rgb(255,127,255),rgb(255,255,0)
box 256,256,512,512,rgb(255,127,255),rgb(255,255,0),rgb(255,127,0),rgb(255,0,0)
for n=1 to 10000
ink rgb(255,rnd(255),rnd(255)),0
dot rnd(512),rnd(512)
next n
blur bitmap 1,5
suntexture=free_image()
get image suntexture,0,0,512,512,1
delete bitmap 1

return


make_sun:

sun=free_object()
make object sphere sun,400,20,20
position object sun,0,0,800
texture object sun,suntexture
set object diffuse sun,rgb(255,255,255)
ghost object on sun
set object transparency sun,5
set object light sun,0
glow=free_object()
make object plain glow,600,600
position object glow,0,0,800
texture object glow,glowtexture
set object light glow,0
set object transparency glow,4


return

function anglebetweenbearings(bearing1#,bearing2#)
`absolute value for testing if angles are in range of each other

a#=abs(wrapvalue(bearing1#+180-bearing2#)-180)

endfunction a#

function anglebetweenbearings2(bearing2#,bearing1#)
`positive or negative value
a#=180-wrapvalue(bearing1#-bearing2#+180)

endfunction a#

function get_projected_bearing(target,rootobject)

`root position
x1#=object position x(rootobject)
y1#=object position y(rootobject)
z1#=object position z(rootobject)

`create dummy object
position object dummy,x1#,y1#,z1#
set object to object orientation dummy,rootobject

`make local z vector (forward on local axis)
move object dummy,1
x2# = object position x(dummy)
y2# = object position y(dummy)
z2# = object position z(dummy)

set vector3 zvector, x2#-x1#, y2#-y1#, z2#-z1#

`make local x vector (sideways on local axis)

move object dummy, -1
turn object right dummy,90
move object dummy,1
x3# = object position x(dummy)
y3# = object position y(dummy)
z3# = object position z(dummy)

set vector3 xvector, x3#-x1#, y3#-y1#, z3#-z1#

`make local y vector (upwards on local axis)
cross product vector3 yvector,xvector,zvector


`make vector joining two objects - from rootobject to target
x4# = object position x(target)
y4# = object position y(target)
z4# = object position z(target)

set vector3 resultantvector, x4#-x1#, y4#-y1#, z4#-z1#

`make vector at 90 degrees to the resultant vector, in the plane containing both the resultant vector and the y vector
position object dummy,x1#,y1#,z1#
set object to object orientation dummy,rootobject
point object dummy,x4#,y4#,z4#
pitch object down dummy,90 `not safe - may not be in correct plane
move object dummy,1
x5#=object position x(dummy)
y5#=object position y(dummy)
z5#=object position z(dummy)

set vector3 resultantvectornormal, x5#-x1#,y5#-y1#,z5#-z1#


`get angle between local y axis and target
phi#=acos(dot product vector3(yvector,resultantvector))
test#=acos(dot product vector3(yvector,resultantvectornormal))
if test#<90.0 then phi#=360-phi#

`get angle between target and plane of root object
theta#=90-phi#

`get distance between root object and target
targetdist#=length vector3(resultantvector)

`get smallest distance between target on local object's plane - the projection distance
projectiondist#=targetdist#*sin(theta#)

`project dummy onto plane
position object dummy,x4#,y4#,z4#
set object to object orientation dummy,rootobject
pitch object down dummy,90
move object dummy,projectiondist#

`get projection coordinates
x6#=object position x(dummy)
y6#=object position y(dummy)
z6#=object position z(dummy)

`make vector joining root object to projected point

set vector3 projectedvector, x6#-x1#,y6#-y1#,z6#-z1#



`get normal to projected vector in plane of root object
cross product vector3 projectedvectornormal,projectedvector,yvector

`get angle between projected vector and z vector
localyangle#=acos(dot product vector3(projectedvector,zvector))
test#=acos(dot product vector3(projectedvector,projectedvectornormal))
if test#<90.0 then localyangle#=360-localyangle#


endfunction localyangle#


function get_projected_distance()

`get projected vector's length

projectionlength#=length vector3(projectedvector)

endfunction projectionlength#

Gadgetfreak

set display mode 1024,768,32
sync on
autocam off
color backdrop 0
position camera 0,20,-100

`make ball
create bitmap 1,256,256
box 0,0,128,128
box 128,128,256,256
get image 1,0,0,256,256,1
delete bitmap 1
make object sphere 1,5,20,20
texture object 1,1
scale object texture 1,2,2

`shadow
make object sphere 2,5,20,20
scale object 2,200,0.01,100
color object 2,0

`ground
make object plain 3,100,100
pitch object down 3,-90
color object 3,rgb(100,100,255)

v#=0.1



do

ang#=360*(v#^2)/2.5

if rightkey()=1
  inc x#,v#
  fix object pivot 1
  rotate object 1,0,0,0
  zrotate object 1,object angle z(1)-ang#
endif

if leftkey()=1
  dec x#,v#
  fix object pivot 1
  rotate object 1,0,0,0
  zrotate object 1,object angle z(1)+ang#
endif
if upkey()=1
  inc z#,v#
  fix object pivot 1
  rotate object 1,0,0,0
  xrotate object 1,object angle x(1)+ang#
endif
if downkey()=1
  dec z#,v#
  fix object pivot 1
  rotate object 1,0,0,0
  xrotate object 1,object angle x(1)-ang#
endif

position object 1,x#,2.5,z#
position object 2,x#+4,0.01,z#

sync
loop

`Global rotation functions by Lower Logic

set display mode 1024,768,32
sync on
autocam off
color backdrop 0
position camera 0,20,-100

`make ball
create bitmap 1,256,256
box 0,0,128,128
box 128,128,256,256
get image 1,0,0,256,256,1
delete bitmap 1
make object sphere 1,5,20,20
texture object 1,1
scale object texture 1,2,2

`shadow
make object sphere 2,5,20,20
scale object 2,200,0.01,100
color object 2,0

`ground
make object plain 3,100,100
pitch object down 3,-90
color object 3,rgb(100,100,255)

v#=0.1



do

ang#=360*(v#^2)/2.5

if rightkey()=1
  inc x#,v#
  rotate_gz(1,-ang#)
endif

if leftkey()=1
  dec x#,v#
  rotate_gz(1,ang#)
endif
if upkey()=1
  inc z#,v#
  rotate_gx(1,ang#)
endif
if downkey()=1
  dec z#,v#
  rotate_gx(1,-ang#)
endif

position object 1,x#,2.5,z#
position object 2,x#+4,0.01,z#

sync
loop



remstart Rotate_GX
   This function rotates the given object around the global (world) x axis by
   the given amount.
   Param    obj      The object to rotate
   Param    amount#  The angle to rotate the object by
remend

function rotate_GX(obj as integer,amount# as float)
   rem get normal vectors for X, Y, and Z axes of the object
   x#=object position x(obj):y#=object position y(obj):z#=object position z(obj)
   move object right obj,1
   xx#=object position x(obj)-x#:xy#=object position y(obj)-y#:xz#=object position z(obj)-z#
   move object left obj,1:move object up obj,1
   yx#=object position x(obj)-x#:yy#=object position y(obj)-y#:yz#=object position z(obj)-z#
   move object down obj,1:move object obj,1
   zx#=object position x(obj)-x#:zy#=object position y(obj)-y#:zz#=object position z(obj)-z#
   move object obj,-1
   rem rotate the vectors
   xx1#=xx#
   xy1#=xy#*cos(amount#)-xz#*sin(amount#)
   xz1#=xz#*cos(amount#)+xy#*sin(amount#)
   zx1#=zx#
   zy1#=zy#*cos(amount#)-zz#*sin(amount#)
   zz1#=zz#*cos(amount#)+zy#*sin(amount#)
   rem calculate angle z
   zr#=atanfull(xy1#,xx1#)
   rem calculate angle y
   xx2#=xx1#*cos(zr#)+xy1#*sin(zr#)
   xy2#=xy1#*cos(zr#)-xx1#*sin(zr#)
   xz2#=xz1#
   zx2#=zx1#*cos(zr#)+zy1#*sin(zr#)
   zy2#=zy1#*cos(zr#)-zx1#*sin(zr#)
   zz2#=zz1#
   yr#=atanfull(xx2#,xz2#)-90
   rem calculate angle x
   zx3#=zx2#*cos(yr#+90)-zz2#*sin(yr#+90)
   zy3#=zy2#
   xr#=atanfull(zy3#,zx3#)+180
   if xr#+1>xr# and yr#+1>yr# and zr#+1>zr#
      rotate object obj,xr#,yr#,zr#
   endif
endfunction


remstart Rotate_GZ
   This function rotates the given object around the global (world) z axis by
   the given amount.
   Param    obj      The object to rotate
   Param    amount#  The angle to rotate the object by
remend
function rotate_GZ(obj,amount#)
   rem Rotating around the global Z axis is trivial
   rem as it is the first rotation anyway in the default ZYX rotation order
   rotate object obj,object angle x(obj),object angle y(obj),object angle z(obj)+amount#
endfunction

`Global rotation functions by Lower Logic

set display mode 1024,768,32
sync on
autocam off
color backdrop 0
position camera 0,20,-100

`make ball
create bitmap 1,256,256
box 0,0,128,128
box 128,128,256,256
get image 1,0,0,256,256,1
delete bitmap 1
make object sphere 1,5,20,20
texture object 1,1
scale object texture 1,2,2

`shadow
make object sphere 2,5,20,20
scale object 2,200,0.01,100
color object 2,0

`ground
make object plain 3,100,100
pitch object down 3,-90
color object 3,rgb(100,100,255)

v#=0.1



do

text 0,0,str$(screen fps())

ang#=360*(v#^2)/2.5

if rightkey()=1
  inc x#,v#
  make mesh from object 1,1
  delete object 1
  make object 1,1,1
  roll object right 1,ang#
endif

if leftkey()=1
  dec x#,v#
  make mesh from object 1,1
  delete object 1
  make object 1,1,1
  roll object left 1,ang#
endif
if upkey()=1
  inc z#,v#
  make mesh from object 1,1
  delete object 1
  make object 1,1,1
  pitch object down 1,ang#
endif
if downkey()=1
  dec z#,v#
  make mesh from object 1,1
  delete object 1
  make object 1,1,1
  pitch object up 1,ang#
endif

position object 1,x#,2.5,z#
position object 2,x#+4,0.01,z#

sync
loop

`Global rotation functions by Lower Logic

set display mode 1024,768,32
sync on
sync rate 60
autocam off
color backdrop 0
position camera 0,20,-100

`make ball
create bitmap 1,256,256
box 0,0,128,128
box 128,128,256,256
get image 1,0,0,256,256,1
delete bitmap 1
make object sphere 1,5,20,20
texture object 1,1
scale object texture 1,2,2

`shadow
make object sphere 2,5,20,20
scale object 2,200,0.01,100
color object 2,0

`ground
make object plain 3,100,100
pitch object down 3,-90
color object 3,rgb(100,100,255)

v#=0.01
vr#=0.1
xm#=0.0
zm#=0.0

do

set cursor 0,0
print "xm#=";xm#
print "zm#=";zm#

ang#=360*(vr#^2)/2.5

if rightkey()=1
  inc xm#,v#
endif
if xm#>0.0 then rotate_gz(1,-ang#*(xm#*10))

if leftkey()=1
  dec xm#,v#
endif
if xm#<0.0 then rotate_gz(1,ang#*abs(xm#*10))

if upkey()=1
  inc zm#,v#
endif
if zm#>0.0 then rotate_gx(1,ang#*(zm#*10))

if downkey()=1
  dec zm#,v#
endif
if zm#<0.0 then rotate_gx(1,-ang#*abs(zm#*10))

if xm#<0.0 then inc xm#,v#/5
if xm#>0.0 then dec xm#,v#/5
if zm#<0.0 then inc zm#,v#/5
if zm#>0.0 then dec zm#,v#/5

if abs(xm#)<0.002 then xm#=0.0
if abs(zm#)<0.002 then zm#=0.0

x#=x#+xm#
z#=z#+zm#

position object 1,x#,2.5,z#
position object 2,x#+4,0.01,z#

sync
loop



remstart Rotate_GX
   This function rotates the given object around the global (world) x axis by
   the given amount.
   Param    obj      The object to rotate
   Param    amount#  The angle to rotate the object by
remend

function rotate_GX(obj as integer,amount# as float)
   rem get normal vectors for X, Y, and Z axes of the object
   x#=object position x(obj):y#=object position y(obj):z#=object position z(obj)
   move object right obj,1
   xx#=object position x(obj)-x#:xy#=object position y(obj)-y#:xz#=object position z(obj)-z#
   move object left obj,1:move object up obj,1
   yx#=object position x(obj)-x#:yy#=object position y(obj)-y#:yz#=object position z(obj)-z#
   move object down obj,1:move object obj,1
   zx#=object position x(obj)-x#:zy#=object position y(obj)-y#:zz#=object position z(obj)-z#
   move object obj,-1
   rem rotate the vectors
   xx1#=xx#
   xy1#=xy#*cos(amount#)-xz#*sin(amount#)
   xz1#=xz#*cos(amount#)+xy#*sin(amount#)
   zx1#=zx#
   zy1#=zy#*cos(amount#)-zz#*sin(amount#)
   zz1#=zz#*cos(amount#)+zy#*sin(amount#)
   rem calculate angle z
   zr#=atanfull(xy1#,xx1#)
   rem calculate angle y
   xx2#=xx1#*cos(zr#)+xy1#*sin(zr#)
   xy2#=xy1#*cos(zr#)-xx1#*sin(zr#)
   xz2#=xz1#
   zx2#=zx1#*cos(zr#)+zy1#*sin(zr#)
   zy2#=zy1#*cos(zr#)-zx1#*sin(zr#)
   zz2#=zz1#
   yr#=atanfull(xx2#,xz2#)-90
   rem calculate angle x
   zx3#=zx2#*cos(yr#+90)-zz2#*sin(yr#+90)
   zy3#=zy2#
   xr#=atanfull(zy3#,zx3#)+180
   if xr#+1>xr# and yr#+1>yr# and zr#+1>zr#
      rotate object obj,xr#,yr#,zr#
   endif
endfunction


remstart Rotate_GZ
   This function rotates the given object around the global (world) z axis by
   the given amount.
   Param    obj      The object to rotate
   Param    amount#  The angle to rotate the object by
remend
function rotate_GZ(obj,amount#)
   rem Rotating around the global Z axis is trivial
   rem as it is the first rotation anyway in the default ZYX rotation order
   rotate object obj,object angle x(obj),object angle y(obj),object angle z(obj)+amount#
endfunction

`Global rotation functions by Lower Logic
`basic code by Ric
`improved and changed by RedFlames

set display mode 1024,768,32
sync on
sync rate 60
autocam off
hide mouse
color backdrop 0
position camera 0,20,-100

`make ball
create bitmap 1,256,256
ink rgb(140,0,0),0
box 0,0,128,128
box 128,128,256,256
ink rgb(200,210,220),0
box 0,128,128,256
box 128,0,256,128
get image 1,0,0,256,256,1
delete bitmap 1
make object sphere 1,5,20,20
texture object 1,1
set object specular 1,rgb(200,200,210)
set object specular power 1,25
set object emissive 1,rgb(50,50,30)

`shadow
make object sphere 2,5,20,20
scale object 2,130,0.01,130
yrotate object 2,90
fix object pivot 2
color object 2,0
ghost object on 2,1

`ground
make object plain 3,100,100
pitch object down 3,-90
color object 3,rgb(190,220,240)
set reflection shading on 3
position object 3,0,0,-50

make object plain 6,100,100
pitch object down 6,-90
texture object 6,1
scale object texture 6,0.999,0.999
position object 6,0,0,50

`comic-outline
make object sphere 4,5.4,20,20
color object 4,rgb(0,0,0)
set object ambient 4,0
disable object zread 1

`light
make light 1
color light 1,rgb(255,255,255)
position light 1,5,500,5
set light range 1,500

`background
make object sphere 5,5
scale object 5,4000,4000,4000
texture object 5,1
scale object texture 5,2,2
position object 5,0,0,0
set object 5,1,0,0,0,1,0,1
set object specular 5,rgb(155,205,255)
set object specular power 5,100
set object emissive 5,rgb(10,30,50)

v#=0.01
vr#=0.1
xm#=0.0
zm#=0.0

camd#=15.0
camh#=10.0
cama#=180.0

dim texts$(13)
texts$(1)=" "
texts$(2)=" Use the Arrowkeys to move the Ball"
texts$(3)=" "
texts$(4)=" left-click for free view"
texts$(5)=" "
texts$(6)=" Use the Mousewheel to zoom"
texts$(7)=" "
texts$(8)=" Use Space to reset the ball"
texts$(9)=" "
texts$(10)="left & right mousebutton to change zoom"
texts$(11)=" "
texts$(12)=" Thanks to Lower Logic and Ric"

textx=25
set text font "Lucida Console"
set text size 16
set text to bold



do
remstart
ink rgb(200,210,220),0
set cursor 0,0
print "xm#=";xm#
print "zm#=";zm#
remend

ang#=360*(vr#^2)/2.5

inc xm#,v#*rightkey()
if xm#>0.0 then rotate_gz(1,-ang#*(xm#*10.0))


dec xm#,v#*leftkey()
if xm#<0.0 then rotate_gz(1,ang#*abs(xm#*10.0))

inc zm#,v#*upkey()
if zm#>0.0 then rotate_gx(1,ang#*(zm#*10.0))

dec zm#,v#*downkey()
if zm#<0.0 then rotate_gx(1,-ang#*abs(zm#*10.0))

f#=((xm#*xm#)*100.0+(zm#*zm#)*100.0)/5.0
if f#<5.0 then f#=5.0
f#=10.0-f#
`print f#
`f#=5.0
if xm#<0.0 then inc xm#,v#/f#
if xm#>0.0 then dec xm#,v#/f#
if zm#<0.0 then inc zm#,v#/f#
if zm#>0.0 then dec zm#,v#/f#

if abs(xm#)<0.002 then xm#=0.0
if abs(zm#)<0.002 then zm#=0.0

x#=x#+xm#
z#=z#+zm#

position object 1,x#,2.5,z#
position object 4,x#,2.5,z#
position object 2,x#,0.01,z#

if mouseclick()=2
cama#=cama#+mousemovex()/20.0
`if camh#>object position y(1)
   camh#=curvevalue(camh#+mousemovey()/10.0,camh#,10)
`endif
`print camh#
else
cama#=180.0
camh#=15.0
endif
camd#=camd#-mousemovez()/100.0
if mouseclick()=3 and time<=0
if camd#<>15.0
camd#=15.0
time=50
else
 camd#=25.0 : time=50
 endif
endif
chase_cam(0,1,camd#,camh#,cama#)

if spacekey() then x#=0 : z#=0 : text 50,50,str$( mouseclick())

gosub interface

if time>0 then dec time
sync
loop



remstart Rotate_GX
   This function rotates the given object around the global (world) x axis by
   the given amount.
   Param    obj      The object to rotate
   Param    amount#  The angle to rotate the object by
remend

function rotate_GX(obj as integer,amount# as float)
   rem get normal vectors for X, Y, and Z axes of the object
   x#=object position x(obj):y#=object position y(obj):z#=object position z(obj)
   move object right obj,1
   xx#=object position x(obj)-x#:xy#=object position y(obj)-y#:xz#=object position z(obj)-z#
   move object left obj,1:move object up obj,1
   yx#=object position x(obj)-x#:yy#=object position y(obj)-y#:yz#=object position z(obj)-z#
   move object down obj,1:move object obj,1
   zx#=object position x(obj)-x#:zy#=object position y(obj)-y#:zz#=object position z(obj)-z#
   move object obj,-1
   rem rotate the vectors
   xx1#=xx#
   xy1#=xy#*cos(amount#)-xz#*sin(amount#)
   xz1#=xz#*cos(amount#)+xy#*sin(amount#)
   zx1#=zx#
   zy1#=zy#*cos(amount#)-zz#*sin(amount#)
   zz1#=zz#*cos(amount#)+zy#*sin(amount#)
   rem calculate angle z
   zr#=atanfull(xy1#,xx1#)
   rem calculate angle y
   xx2#=xx1#*cos(zr#)+xy1#*sin(zr#)
   xy2#=xy1#*cos(zr#)-xx1#*sin(zr#)
   xz2#=xz1#
   zx2#=zx1#*cos(zr#)+zy1#*sin(zr#)
   zy2#=zy1#*cos(zr#)-zx1#*sin(zr#)
   zz2#=zz1#
   yr#=atanfull(xx2#,xz2#)-90
   rem calculate angle x
   zx3#=zx2#*cos(yr#+90)-zz2#*sin(yr#+90)
   zy3#=zy2#
   xr#=atanfull(zy3#,zx3#)+180
   if xr#+1>xr# and yr#+1>yr# and zr#+1>zr#
      rotate object obj,xr#,yr#,zr#
   endif
endfunction


remstart Rotate_GZ
   This function rotates the given object around the global (world) z axis by
   the given amount.
   Param    obj      The object to rotate
   Param    amount#  The angle to rotate the object by
remend
function rotate_GZ(obj,amount#)
   rem Rotating around the global Z axis is trivial
   rem as it is the first rotation anyway in the default ZYX rotation order
   rotate object obj,object angle x(obj),object angle y(obj),object angle z(obj)+amount#
endfunction


function chase_cam(CamNum#,id,camDist,Height#,yAng#)

   `grab the cameras current position
   xPos#=object position x(id)
   yPos#=object position y(id)
   zPos#=object position z(id)

   `work out new position
   xCamPos#=newxvalue(xPos#,yAng#,camDist)
   zCamPos#=newzvalue(zPos#,yAng#,camDist)

   `work out camera height
   yCamPos#=Height#
   if Height#<yPos# then yCamPos#=yPos#

   s=20
   xCamPos#=curvevalue(xCamPos#,camera position x(CamNum#),s)
   yCamPos#=curvevalue(yCamPos#,camera position y(CamNum#),s)
   zCamPos#=curvevalue(zCamPos#,camera position z(CamNum#),s)

   `update camera position
   position camera CamNum#,xCamPos#,yCamPos#,zCamPos#
   point camera CamNum#,xPos#,yPos#,zPos#

endfunction

interface:
texts$(0)="FPS: "+str$(screen fps())
for x=0 to array count(texts$(0))
shadow_text(textx,x*10,texts$(x),rgb(200,210,220))
next x

return

function shadow_text(x#,y#,text$,color)
ink rgb(10,20,30),0
text x#+1,y#+1,text$
ink color,0
text x#,y#,text$
endfunction