Sorry your browser is not supported!

Sync On:Sync Rate 60:Autocam Off
SET DISPLAY MODE 1024, 768, 32

Type Coordinates
   x as Float
   y as Float
   z as Float
Endtype

Global Object as Coordinates
Global Target as Coordinates
Global AI As Coordinates
Global Camera As Coordinates

Type Stats
   Move as Coordinates
   Speed as Float
   Rot as Float
Endtype
Global Ship as Stats

Sky_Sphere()
Make_Racer(11)
Beacon=1

Position Object 11,0,0,100
For i = 1 to 360
   Turn Object Right 11,1
   Position_Sail(11)
   Set Object To Object Orientation 3,11
   Sync
Next i
Make_Stars()
Make_Course(11)
Ink Rgb(255,255,255),0
start_time=Timer()
best_lap=999999
Do
   Move_Ship(11)
   Position_Sail(11)
   Pointer(11,100+Beacon)
   Move_Camera(11)
   d#=Get_Dist(11,100+beacon):d=d#
   If d<50 Then Beacon=Beacon+1
   If Beacon>4
      Beacon=1
      lap=Int(timer()-start_time)/1000
      If lap<best_lap Then best_lap=lap
      start_time=timer()
   Endif
   Set Cursor 0,0
   Print "Beacon ";(beacon);" distance: ";d
   Print "Time: ";Int((timer()-start_time)/1000)
   Print "Best lap: ";best_lap
   Sync
Loop

Function Move_Ship(ObjectID)
   Ship.Speed=(Upkey())*.05
   Ship.Rot=Ship.Rot+(RightKey()-LeftKey())*.02-((Ship.Rot>0)-(Ship.Rot<0))*.01
   If Abs(Ship.Rot)<.01 Then Ship.Rot=0
   If Abs(Ship.Rot)>10 Then Ship.Rot=10*((Ship.Rot>0)-(Ship.Rot<0))
   Turn Object Right ObjectID,Ship.Rot
   If Object Exist(2)=0 then Make_AI()
   Return_Object(ObjectID)
   Position Object 2,Object.x,Object.y,Object.z
   Set Object To Object Orientation 2,ObjectID
   Move Object 2,Ship.Speed
   Return_AI()
   mx#=AI.x-Object.x:mz#=AI.z-Object.z
   Ship.Move.x=Ship.Move.x+mx#-.01*((Ship.Move.x>0)-(Ship.Move.x<0))
   Ship.Move.z=Ship.Move.z+mz#-.01*((Ship.Move.z>0)-(Ship.Move.z<0))
   Position Object ObjectID,Object.x+Ship.Move.x,0,Object.z+Ship.Move.z
EndFunction

Function Move_Camera(ObjectID)
   Return_Object(ObjectID)
   Position Object 2,Object.x,Object.y,Object.z
   Set Object to Object Orientation 2,ObjectID
   Move Object 2,-100
   Move Object Up 2,10
   Move Object Right 2,5
   Return_AI()
   Set Camera To Follow AI.x,AI.y,AI.z,5,0,4,6,0
   Point Camera Object.x,Object.y,Object.z
Endfunction

Function Get_Dist(Object1,Object2)
   Return_Object(Object1)
   Return_Target(Object2)
   dx#=Object.x-Target.x:dy#=Object.y-Target.y:dz#=Object.z-Target.z
   d#=sqrt(dx#*dx#+dy#*dy#+dz#*dz#)
EndFunction d#


Function Make_Course(ObjectID)
   Return_Object(ObjectID)
   For beacon=1 to 4
      Make Object Sphere 100+beacon,20
      ang=rnd(359)
      x=sin(ang)*2000+Object.x:z=cos(ang)*1000+Object.z
      Position Object 100+beacon,x,0,z
      Set Object Emissive 100+beacon,Rgb(255,255,255)
      Return_Object(100+beacon)
   Next Beacon
EndFunction

Function Make_Racer(ObjectID)
   If Object Exist(2) Then Delete Object 2
   If Object Exist(ObjectID) Then Delete Object ObjectID
   If Object Exist(ObjectID+1) Then Delete Object ObjectID+1
   Make Object Sphere ObjectID,.1,1,1
   Make Object Sphere 2,10,10,10
   Scale Object 2,100,60,100
   Make Mesh From Object 2,2
   Add Limb ObjectID,1,2
   Offset Limb ObjectID,1,0,0,25
   Delete Object 2
   Make Object Cylinder 2,1
   Scale Object 2,800,5000,400
   Pitch Object Down 2,90
   Fix Object Pivot 2
   Make Mesh From Object 2,2
   Add Limb ObjectID,2,2
   Delete Object 2
   Make Object Sphere 2,1,10,10
   Scale Object 2,850,400,2
   Make Mesh From Object 2,2
   Add Limb ObjectID,3,2
   Offset Limb ObjectID,3,0,0,-24.5
   Delete Object 2
   Make Object Cylinder 2,1
   Scale Object 2,200,400,200
   Roll Object Right 2,90
   Fix Object Pivot 2
   Make Mesh From Object 2,2
   Add Limb ObjectID,4,2
   Add Limb ObjectID,5,2
   Offset Limb ObjectID,4,5,0,0
   Offset Limb ObjectID,5,-5,0,0
   Delete Object 2
   Make Object Sphere 2,1
   Scale Object 2,300,300,300
   Make Mesh From Object 2,2
   Delete Object 2
   Make Object Cylinder 2,1
   Scale Limb 2,0,300,2000,300
   Add Limb 2,1,2
   Add Limb 2,2,2
   Offset Limb 2,1,0,10,0
   Offset Limb 2,2,0,-10,0
   Pitch Object Down 2,90
   Fix Object Pivot 2
   Make Mesh From Object 2,2
   Add Limb ObjectID,6,2
   Add Limb ObjectID,7,2
   Offset Limb ObjectID,6,8,0,0
   Offset Limb ObjectID,7,-8,0,0
   Delete Object 2
   Make Object Cylinder 2,1
   Scale Object 2,50,5000,50
   Pitch Object Up 2,6.5
   Fix Object Pivot 2
   Make Mesh From Object 2,2
   Add Limb ObjectID,8,2
   Offset Limb ObjectID,8,0,25,18
   Delete Object 2
   Make Object Triangle 2,0,2,0,0,5,4,0,2.1,0
   Make Mesh From Object 2,2
   Add Limb ObjectID,9,2
   Offset Limb ObjectID,9,0,0,-24
   Delete Object 2
   Make Object Cylinder 2,1
   Scale Object 2,800,400,400
   Pitch Object Down 2,110
   Fix Object Pivot 2
   Make Mesh From Object 2,2
   Add Limb ObjectID,10,2
   Offset Limb ObjectID,10,0,-1,25
   Delete Object 2

   Set Object Cull ObjectID,0

   Make Object Triangle ObjectID+1,0,5,20,0,50,15,0,5,-20
   Position Object ObjectID+1,0,0,100
   Set Object Cull ObjectID+1,0

   If Bitmap Exist(1) Then Delete Bitmap 1
   Create Bitmap 1,512,512
   Box 0,0,511,511,Rgb(120,120,110),Rgb(150,150,150),Rgb(80,80,80),Rgb(60,50,50)
   If Image Exist(ObjectID+1) then Delete Image ObjectID+1
   Get Image ObjectID+1,0,0,511,511,0
   Texture Object ObjectID+1,ObjectID+1
   `Set Sphere Mapping On ObjectID+1,ObjectID+1
   Set Object Emissive ObjectID+1,RGB(100,100,100)
   Set Alpha Mapping On ObjectID+1,70

   If Bitmap Exist(1) then Delete Bitmap 1
   Create Bitmap 1,512,512
   Ink Rgb(255,255,255),0
   Box 0,0,511,511
   Ink 0,0
   Box 181,70,331,256
   If Image Exist(ObjectID) Then Delete Image ObjectID
   Get Image ObjectID,0,0,511,511,1
   Texture Limb ObjectID,1,ObjectID
   Rotate Limb ObjectID,1,0,180,0
   Set Current Bitmap 0
   Delete Bitmap 1
EndFunction

Function Position_Sail(ObjectID)
   Return_Object(ObjectID)
   Position Object ObjectID+1,Object.x,Object.y,Object.z
   Set Object To Object Orientation ObjectID+1,ObjectID
   Position Object 3,Object.x,Object.y,Object.z
EndFunction

Function Sky_Sphere()
   Make Object Sphere 3,5000,50,50
   Set Object Cull 3,0
   If Bitmap Exist(1) Then Delete Bitmap 1
   Create Bitmap 1,2048,2048
   Ink 0,0
   Box 0,0,2047,2047
   For i = 1 to 2000+Rnd(1000)
      Ink Rgb(rnd(100)+155,rnd(100)+155,rnd(100)+155),0
      Dot Rnd(2047),Rnd(2047)
   Next i
   If Image Exist(3) then Delete Image 3
   Get Image 3,0,0,2047,2047,1
   Texture Object 3,3
   Set Object Emissive 3,RGB(128,128,128)
EndFunction

Function Make_Stars()
   For i = 1001 to 1500
      Make Object Sphere i,1,6,6
      Position Object i,Rnd(10000)-5000,Rnd(500)-200,Rnd(10000)-5000
      Set Object Emissive i,rgb(255,255,255)
      `Set Alpha Mapping On i,50
   Next i
EndFunction

Function Make_AI()
   If Object Exist(2) Then Delete Object 2
   Make Object Sphere 2,1,6,6
   Hide Object 2
EndFunction


Function Return_Object(ObjectID)
`If Object Exist (ObjectID)
   Object.x=Object Position X(ObjectID):Object.y=Object Position Y(ObjectID):Object.z=Object Position Z(ObjectID)
`Endif
Endfunction

` This function shortens the Object Postion X/Y/Z() functions.
Function Return_Target(TargetID)
`If Object Exist (TargetID)
   Target.x=Object Position X(TargetID):Target.y=Object Position Y(TargetID):Target.z=Object Position Z(TargetID)
`Endif
EndFunction

` This function shortens the Object Postion X/Y/Z() functions for object #2
Function Return_AI()
If Object Exist (2)
   AI.x=Object Position X(2):AI.y=Object Position Y(2):AI.z=Object Position Z(2)
Endif
EndFunction

` This function shortens the Camera Postion X/Y/Z() functions.
Function Return_Camera(CameraID)
Camera.x=Camera Position X(CameraID):Camera.y=Camera Position Y(CameraID):Camera.z=Camera Position Z(CameraID)
EndFunction

Function Pointer(ObjectID,TargetID)
   If SpaceKey()=0
      If Object Exist(5) Then Delete Object 5
      ExitFunction
   Endif
   If Object Exist(2)=0 Then Make_AI()
   Return_Object(ObjectID)
   Position Object 2,Object.x,Object.y,Object.z
   Set Object To Object Orientation 2,ObjectID
   Move Object 2,10
   Move Object Up 2,47.5
   If Object Exist(5) Then Delete Object 5
   Return_Target(TargetID)
   Return_AI()
   Make Object Triangle 5,AI.x,AI.y,AI.z,Target.x,Target.y,Target.z,AI.x,AI.y+.5,AI.z
   Color Object 5,rgb(255,0,0)
   Set Object Emissive 5,rgb(255,0,0)
   Set Object Cull 5,0
   Set Alpha Mapping On 5,90
EndFunction

i am trying to use variables to store object position,
arrowkeys to rotate the object. then i compute a 
normalized vector based on the object's current angles.
then i try to move the object based on adding the normalized
vector to the appropriate variables.
this is basically just re-writing the 'move object' command,
but i wanted to try it.
but it doesn't work.

set display mode 800, 600, 32
sync on
sync rate 20
randomize timer()
backdrop on
color backdrop 0

 type where
  x as float
  y as float
  z as float
 endtype

make object cube 1,5

s as where

s.x=0.0
s.y=0.0
s.z=0.0

null=make vector3(1)
null=make vector3(2)
null=make vector3(3)

for t=100 to 199
 make object sphere t,1
 position object t,rnd(600)-300,rnd(600)-300,rnd(600)-300
next t

do

position object 1,s.x,s.y,s.z

yrotate object 1,object angle y(1)+rightkey()-leftkey()
xrotate object 1,object angle x(1)+downkey()-upkey()

set vector3 1,s.x,s.y,s.z
set vector3 2,object angle x(1) ,object angle y(1) ,object angle z(1)
 `  this should give a normalized heading...useful?
normalize vector3 3,2

inc s.x,x vector3(3)
inc s.y,y vector3(3)
inc s.z,z vector3(3)

set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),30,15,10,0

sync

loop

`3d math library arrays used
dim matrix4(4,4) as float
dim vector3(4) as float


set display mode 800, 600, 32
sync on
sync rate 20
randomize timer()
backdrop on
color backdrop 0

 type where
  x as float
  y as float
  z as float
 endtype

make object cube 1,5

s as where

s.x=0.0
s.y=0.0
s.z=0.0

speed# = 5

null=make vector3(1)

for t=100 to 199
 make object sphere t,1
 position object t,rnd(600)-300,rnd(600)-300,rnd(600)-300
next t

do

position object 1,s.x,s.y,s.z

yrotate object 1,object angle y(1)+rightkey()-leftkey()
xrotate object 1,object angle x(1)+downkey()-upkey()

`call to my 3d maths library
rotateVector3(0,0,1,-object angle x(1),object angle y(1),object angle z(1))

`get answer of 3d maths call
set vector3 1, vector3(1) , vector3(2) , vector3(3)
`set the speed of the ship
multiply vector3 1, speed#

inc s.x,x vector3(1)
inc s.y,y vector3(1)
inc s.z,z vector3(1)

set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),30,15,10,0

sync

loop


`--------------------------------- 3D MATH LIBRARY ---------------------------------

`function to make a matrix 4

function makeMatrix4(ax#,ay#,az#,aw#,bx#,by#,bz#,bw#,cx#,cy#,cz#,cw#,dx#,dy#,dz#,dw#)
   matrix4(1,1) = ax#
   matrix4(1,2) = ay#
   matrix4(1,3) = az#
   matrix4(1,4) = aw#
   matrix4(2,1) = bx#
   matrix4(2,2) = by#
   matrix4(2,3) = bz#
   matrix4(2,4) = bw#
   matrix4(3,1) = cx#
   matrix4(3,2) = cy#
   matrix4(3,3) = cz#
   matrix4(3,4) = cw#
   matrix4(4,1) = dx#
   matrix4(4,2) = dy#
   matrix4(4,3) = dz#
   matrix4(4,4) = dw#
endfunction

`function to make a vector 3

function makeVector3(x#,y#,z#)
   vector3(1) = x#
   vector3(2) = y#
   vector3(3) = z#
   vector3(4) = 1
endfunction

`function to rotate a movement vector by an x y z ang;e
`rx ry rz = angles which the vector is to be rotated by
`vx vy vz = vector to rotate
`after calling this function you can acces the result by grabbing the specified array posiition in vector(0,xyz)

function rotateVector3(vx#,vy#,vz#,rx#,ry#,rz#)
   ax# = (COS(rz#)*COS(ry#))+(SIN(rz#)*SIN(rx#)*SIN(ry#))
   ay# = (SIN(rz#)*COS(ry#))-(COS(rz#)*SIN(rx#)*SIN(ry#))
   az# = COS(rx#)*SIN(ry#)
   bx# = -(SIN(rz#)*COS(rx#))
   by# = COS(rz#)*COS(rx#)
   bz# = SIN(rx#)
   cx# = (SIN(rz#)*SIN(rx#)*COS(ry#))-(COS(rz#)*SIN(ry#))
   cy# = -(COS(rz#)*SIN(rx#)*COS(ry#))-(SIN(rz#)*SIN(ry#))
   cz# = COS(rx#)*COS(ry#)
   dw# = 1.0
   makeVector3(vx#,vy#,vz#)
   makeMatrix4(ax#,ay#,az#,0,bx#,by#,bz#,0,cx#,cy#,cz#,0,0,0,0,dw#)
   `matrix multiplication in homogenous coordinates
   for i = 1 to 4
      inc resultX#,(matrix4(1,i)*vector3(i))
      inc resultY#,(matrix4(2,i)*vector3(i))
      inc resultZ#,(matrix4(3,i)*vector3(i))
      inc resultW#,(matrix4(4,i)*vector3(i))
   next i
   makeVector3(resultX#,resultY#,resultZ#)
endfunction

set display mode 800, 600, 32
sync on
sync rate 30
randomize timer()
backdrop on
color backdrop 0
set text size 20
ink rgb(0,0,255),0

type where
x# as float
y# as float
z# as float
endtype

s as where

make object box 1,1,1,5
make mesh from object 1,1
delete object 1

make object cube 1,3
add limb 1,1,1
offset limb 1,1,0,3,3

make object box 2,1,5,1
set object collision off 2

s.x#=0.0
s.x#=0.0
s.x#=0.0

position=1
velocity=2
accel=3

null=make vector3(position)
null=make vector3(velocity)
null=make vector3(accel)


start_race_here:

x=1
xx=0
wid=45
bend=0
sharp=0
for t=100 to 250
 dec bend
 if bend<0 and t>104 then bend=5+rnd(15) : sharp=rnd(11)+5 : x=-x
 if rnd(2)=1 then sharp=sharp+abs(x)*2
 xx=xx+(x*sharp)
if object exist(t)=0 then make object cylinder t,10
 position object t,xx-wid,0,(t-101)*30
 scale object t,100,100,100
 set object collision on t
if object exist(t+250)=0 then  make object cylinder t+250,10
 scale object t+250,100,100,100
 set object collision on t+250
 position object t+250,xx+wid,0,(t-101)*30
next t

set vector3 position,0.0,0.0,0.0
set vector3 velocity,0.0,0.0,0.0
set vector3 accel,0.0,0.0,0.0

position object 1,0,0,0
rotate object 1,0,0,0

hits=0
counting=0


do


yrotate object 1,object angle y(1)+(rightkey()-leftkey())*4

if counting=0 then t1#=timer()
center text 400,540,"time: "+str$((timer()-t1#)/1000)

if upkey() or downkey()
 counting=1

 x#=object position x(1)
 y#=object position y(1)
 z#=object position z(1)

 move object 1,((upkey()-downkey())*1.0)/3.0

 nx#=object position x(1)
 ny#=object position y(1)
 nz#=object position z(1)

set vector3 accel,nx#-x#,ny#-y#,nz#-z#

add vector3 velocity,velocity,accel

endif : ` applied thrust this turn?

add vector3 position,position,velocity

position object 1,x vector3(position),y vector3(position),z vector3(position)
position object 2,x vector3(position),y vector3(position)+5,z vector3(position)
point object 2,x vector3(position)+x vector3(velocity),y vector3(position)+y vector3(velocity),z vector3(position)+z vector3(velocity)

set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),30,15,10,0

text 10,10,"speed: "+str$(length vector3(velocity))

 x#=object position x(1)
 y#=object position y(1)
 z#=object position z(1)

z=int(z#/30)+101
text 30,30,"flagset: "+str$(z)
IF object exist(z)
 dist#=discent(z)
 text 50,50,"dist: "+str$(dist#)
 if dist#>100.0
  center text 400,160,"OUT  OF  BOUNDS"
  center text 400,400,"press any key"
  sync
  wait 500
  wait key
  goto start_race_here
 endif
ELSE
 sync
 t2#=(timer()-t1#)/1000
 center text 400,20,"Time Trial Complete!"
 center text 400,40,"Your Time: "+str$(t2#)
 center text 400,60,"Number of Collisions: "+str$(hits)
 t3#=t2#+5.0*hits
 center text 400,80,"Adjusted Time: "+str$(t3#)
 center text 400,500,"press any key to race again."
 sync
 wait 500
 wait key
 goto start_race_here
ENDIF


 ` check for collision with flags.

 a=object collision(1,0)
 if a>100
  set object collision off a
  inc hits
  scale object a,25,25,25
 endif

text 70,70,"hits: "+str$(hits)


sync
loop

function discent(b)
 ` this is the distance from your object to the center of the flagset you're at.
t#=object position x(1)
u#=object position y(1)
v#=object position z(1)
x#=object position x(b)+45.0
y#=object position y(b)+45.0
z#=object position z(b)+45.0
dist#=sqrt( (t#-x#)^2 + (u#-y#)^2 + (v#-z#)^2 )
endfunction dist#

set display mode 1024,768,32:set camera range 0,99999:color backdrop 0
make object cone 1,100
autocam off
ink rgb(255,255,255),0:dot 1,1:get image 1,0,0,2,2
begin:
position object 1,0,-2100,2500
for x=10 to 20
   if object exist(x) then delete object x
next x
cls:set text size 18:set text font "tahoma"
speed#=1:score#=0:level#=1:move#=2:timeshot#=0:bombshot#=0
do
   gosub MovePlayer
   gosub Obstacles
   gosub Difficult
   gosub Shoot
   gosub Bomb
   gosub Stars
   timeshoot2#=timeshoot#-timer():if timeshoot2#<0 then timeshoot2#=0
   bombshoot2#=bombshoot#-timer():if bombshoot2#<0 then bombshoot2#=0
   ink rgb(255,0,0),0:text 10,10,"Score:"+str$(score#):text 10,30,"Level:"+str$(level#)
   ink rgb(255,0,0),0:text 10,50,"Can shoot in:"+str$(timeshoot2#)+"milliseconds"
   ink rgb(255,0,0),0:text 10,70,"Can bomb in:"+str$(bombshoot2#)+"milliseconds"
loop
MovePlayer:
if leftkey()=1 and object position x(1)>-2300 then move object left 1,move#
if rightkey()=1 and object position x(1)<2300 then move object right 1,move#
return
Obstacles:
for x=10 to 20
   if rnd(1000-level#*10)=1
   if object exist(x)=0
      make object cube x,300:color object x,rgb(0,0,255):ghost object on x
      scale object x,rnd(500)+100,10,10
      position object x,(rnd(4600)-2300),1000,2500
   endif
   endif
   if object exist(x)=1
      if object collision(1,x)=1
         wait key
         repeat
            set text size 72:center text screen width()/2,screen height()/2,"GAME OVER"
            set text size 32:center text screen width()/2,screen height()/2+70,"Final Score: "+str$(score#)
         until entry$()
         gosub begin
      endif
      if object exist(100) and object exist(x)
         if object collision(100,x) then delete object x:delete object 100
      endif
      if object exist(101) and object exist(x)
         if object collision(101,x) then delete object x
      endif
      if object exist(x)
         move object down x,speed#
         if object position y(x)<-2200 then delete object x:inc score#,level#+10
      endif
   endif
next x
return
Difficult:
if score#>level#*500 and speed#=1 then speed#=2:move#=2.5:inc level#
if score#>level#*500 and speed#=2 then speed#=3:move#=3.0:inc level#
if score#>level#*500 and speed#=3 then speed#=4:move#=3.5:inc level#
if score#>level#*500 and speed#=4 then speed#=5:move#=4.0:inc level#
if score#>level#*500 and speed#=5 then speed#=6:move#=4.5:inc level#
if score#>level#*500 and speed#=6 then speed#=7:move#=5.0:inc level#
if score#>level#*500 and speed#=7 then speed#=8:move#=5.5:inc level#
return
Shoot:
if returnkey()=1 and timeshot#<timer()-1000
   timeshot#=timer():timeshoot#=timeshot#+1000
   if object exist(100)=0
      make object sphere 100,40,50,50
      color object 100,rgb(0,255,0)
      position object 100,object position x(1),object position y(1),2500
   endif
endif
if object exist(100)=1
   move object up 100,5
   if object position y(100)>1000 then delete object 100
endif
return
Bomb:
if shiftkey()=1 and bombshot#<timer()-10000
   bombshot#=timer():bombshoot#=bombshot#+10000
   if object exist(101)=0
      make object sphere 101,400,50,50
      color object 101,rgb(0,255,0)
      position object 101,object position x(1),object position y(1),2500
   endif
endif
if object exist(101)=1
   move object up 101,5
   if object position y(101)>1000 then delete object 101
endif
return
Stars:
for s=1 to 100
   if sprite exist(s)=0
      sprite s,rnd(1024),rnd(768),1
   endif
   if sprite exist(s)=1
      move sprite s,-.1
      if sprite y(s)>768 then sprite s,rnd(1024),0,1
   endif
next s
return

Sync On:Sync Rate 60:Autocam Off

Make Object Sphere 2,100

Do
   Pointer()
   Set Cursor 0,0
   Print Object Position Z(2)
   Sync
Loop

Function Pointer()
   Pick Screen Mousex(),MouseY(),100
   px#=Get Pick Vector X()+Camera Position X()
   py#=Get Pick Vector Y()+Camera Position Y()
   pz#=Get Pick Vector Z()+Camera Position Z()
   Position Object 2,0,0,0
   Point Object 2,px#,py#,pz#
   Move Object 2,2500
   Do
      If Object Position Z(2)>2549.5 Then Exit
      Move Object 2,1
   Loop
EndFunction

set display mode 800, 600, 32
sync on
sync rate 0
randomize timer()
backdrop on
color backdrop rgb(0,0,0)
set ambient light 10
set directional light 0, 1, -5, 1


#constant SPHERE_COUNT 5
#constant SPHERE_MASS 10.0

autocam off
y# = 20.0
position camera 0, 20, 0
point camera 0,0,0
set camera fov 45
aspect# = screen width()* (1.0 / screen height())
S_HEIGHT# = (tan(22.5) * 20.0) * 2.0
S_WIDTH# = S_HEIGHT# * aspect#



Type Coord
   x#
   y#
   z#
EndType

Dim Spheres(SPHERE_COUNT) as Coord
for i = 1 to SPHERE_COUNT
   tests = 0
   while SpherePositionOk(i) = 0 OR tests = 0
      inc tests
      Spheres(i).x# = (rnd(S_WIDTH# * 600.0) - (S_WIDTH# * 300.0)) * 0.001
      Spheres(i).y# = 0.0
      Spheres(i).z# = (rnd(S_HEIGHT# * 600.0) - (S_HEIGHT# * 300.0)) * 0.001
   endwhile

   make object sphere i, 1.0, 32, 32
   position object i, Spheres(i).x#, Spheres(i).y#, Spheres(i).z#
   color object i, rgb(255.0, 0.0, 0.0)
next i



Dim Targets(SPHERE_COUNT) as Coord
active_target = rnd(SPHERE_COUNT-1)+1

for i = 1 to SPHERE_COUNT
   if i > 1
      a# = atanfull(Spheres(i).x# - Spheres(i-1).x#, Spheres(i).z# - Spheres(i-1).z#)
   else
      a# = atanfull(Spheres(1).x# - Spheres(5).x#, Spheres(1).z# - Spheres(5).z#)
   endif

   Targets(i).x# = Spheres(i).x# + (1.75 * sin(a#))
   Targets(i).y# = 0.0
   Targets(i).z# = Spheres(i).z# + (1.75 * cos(a#))

   obj = i + SPHERE_COUNT + 1
   make object sphere obj, 0.5, 32, 32
   set object cull obj, 0
   position object obj, Targets(i).x#, Targets(i).y#, Targets(i).z#
   if i = active_target
      color object obj, rgb(255.0, 255.0, 0.0)
   else
      color object obj, rgb(32.0, 32.0, 0.0)
   endif
next i



Type PlayerData
   x#
   z#
   sX#
   sZ#
   angle#
   turnRate#
   speed#
   acc#
   accAngle#
   mass#

   ThrustKey
   LeftTurnKey
   RightTurnKey
EndType
#constant NUM_PLAYERS 2

Dim Player(NUM_PLAYERS) as PlayerData
for i = 1 to NUM_PLAYERS
   obj = i + 99
   t_obj = active_target - 1
   if t_obj < 1 then t_obj = SPHERE_COUNT

   make object cone obj, 0.5
   offset limb obj, 0, 0, 0, 0.25
   color object obj, rgb(128, 128, 255)
   position object obj, Targets(t_obj).x#, Targets(t_obj).y#, Targets(t_obj).z#
   scale object obj, 50, 50, 100
   rotate limb obj, 0, 90, 0, 0

   make object cone obj+10, 0.5
   offset limb obj+10, 0, 0, 0, 0.25
   color object obj+10, rgb(255, 224, 64)
   position object obj+10, Targets(t_obj).x#, Targets(t_obj).y#, Targets(t_obj).z#
   scale object obj+10, 25, 25, 100
   rotate limb obj+10, 0, 90, 0, 0


   `Rotate ship away from planet
   if t_obj >1
      a# = atanfull(Spheres(t_obj).x# - Spheres(t_obj-1).x#, Spheres(t_obj).z# - Spheres(t_obj-1).z#)
   else
      a# = atanfull(Spheres(1).x# - Spheres(5).x#, Spheres(1).z# - Spheres(5).z#)
   endif




   Player(i).x# = Targets(t_obj).x#
   Player(i).z# = Targets(t_obj).z#
   Player(i).turnRate# = 0.0
   Player(i).speed# = 0.0
   Player(i).mass# = 10.0
   if i = 1 then Player(i).acc# = 20.0 else Player(i).acc# = 0.0
   Player(i).accAngle# = 180.0
   Player(i).angle# = a#
   yrotate object obj, a#



   select i
      case 1
         `Player 1 controls
         Player(1).ThrustKey = 57      :`Space
         Player(1).LeftTurnKey = 203   :`Left Arrow
         Player(1).RightTurnKey = 205  :`Right Arrow
      endcase
   endselect
next i











`AI Timer
aiTimer# = 0.0
targetAngle# = 0.0
targetAcc# = 0.0


`Used for sphere distance
null = make vector2(1)
null = make vector2(2)
null = make vector2(3)


`Framerate movement stuff
frameTime# = 1.0
frameTimeS# = frameTime# * 0.001
startTime = timer()
`Main loop
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()
   frameTimeS# = frameTime# * 0.001
   inc aiTimer#, frameTimeS#

   for i = 1 to SPHERE_COUNT
      text object screen x(i) - (text width(str$(i))*0.5), object screen y(i) - (text height(str$(i))*0.5), str$(i)
   next i

   gosub DO_PLAYER_STUFF

   sync
loop
end




DO_PLAYER_STUFF:
   for i = 1 to NUM_PLAYERS
      obj = i + 99
      if i = 2
         `AI Player
         if aiTimer# > 0.05
            aiTimer# = 0
            fX# = 0.0 : fZ# = 0.0
            for j = 1 to SPHERE_COUNT
               DistX# = Spheres(j).x# - Player(i).x#
               DistZ# = Spheres(j).z# - Player(i).z#
               set vector2 1, DistX#, DistZ#
               Dist# = length vector2(1)
               if Dist# < 1.0 then Dist# = 1.0

               `XZ Components of Grav
               Grav# = SPHERE_MASS * Player(i).mass# / (Dist# * Dist#) * 0.5
               xGrav# = Grav# * DistX# / Dist#
               zGrav# = Grav# * DistZ# / Dist#

               inc fX#, xGrav#
               inc fZ#, zGrav#
            next j

            gAccX# = (fX# / SPHERE_MASS) * frameTimeS#
            gAccZ# = (fZ# / SPHERE_MASS) * frameTimeS#

            `CALCULATE TAGERT COORD
            tx# = Targets(active_target).x#
            ty# = Targets(active_target).y#
            tz# = Targets(active_target).z#
            `if intersect object(active_target, Player(2).x#, ty#, Player(2).z#, tx#, ty#, tz#) > 0 then text 10, 30, "INTERSECT"
            remstart
            intersect# = intersect object(active_target, Player(2).x#, ty#, Player(2).z#, tx#, ty#, tz#)
            if intersect# > 0
               text 10, 30, "INTERSECTING!!"
               dx# = Targets(active_target).x# - Player(i).x#
               dZ# = Targets(active_target).z# - Player(i).z#
               set vector2 2, dx#, dZ#
               length# = length vector2(2)
               angle# = atanfull(dX#, dZ#)
               offset# = 0.0
               while intersect# > 0
                  inc offset#, 1.0
                  tx# = Player(i).x# + (length# * sin(angle# + offset#))
                  tz# = Player(i).z# + (length# * cos(angle# + offset#))
                  intersect# = intersect object(active_target, Player(i).x#, ty#, Player(i).z#, tx#, ty#, tz#)
               endwhile
            else
               text 10, 30, "NOT INTERSECTING!!"
            endif
            remend

            set vector2 2, tx# - Player(i).x#, tz# - Player(i).z#
            normalize vector2 2, 2
            multiply vector2 2, 2.0

            targetSpeedX# = x vector2(2)
            targetSpeedZ# = y vector2(2)
            totalAccX# = (targetSpeedX# - Player(i).sX#)
            totalAccZ# = (targetSpeedZ# - Player(i).sZ#)

            EngineAccX# = totalAccX# - gAccX#
            EngineAccZ# = totalAccZ# - gAccZ#

            set vector2 3, EngineAccX#, EngineAccZ#
            `if length vector2(2) > 4.0
            `   normalize vector2 2, 2
               `multiply vector2 2, 4.0
            `endif

            targetAngle# = atanfull(EngineAccX#, EngineAccZ#)
            targetAcc# = length vector2(3)
         endif
         Player(i).angle# = curveangle(targetAngle#, Player(i).angle#, 750.0 / frameTime#)
         Player(i).acc# = curvevalue(targetAcc#, Player(i).acc#, 2000.0 / frameTime#)

         inc Player(i).sX#, Player(i).acc# * sin(Player(i).angle#) * frameTimeS#
         inc Player(i).sZ#, Player(i).acc# * cos(Player(i).angle#) * frameTimeS#
      endif
      if i = 1
         `Human Player
         if keystate(Player(i).ThrustKey)
            Player(i).acc# = curvevalue(4.0, Player(i).acc#, 100.0/ frameTime#)
         else
            Player(i).acc# = curvevalue(0.0, Player(i).acc#, 100.0/ frameTime#)
         endif


         if keystate(Player(i).LeftTurnKey)
            Player(i).turnRate# = curvevalue(-0.360, Player(i).turnRate#, 500.0 / frameTime#)
         else
            if keystate(Player(i).RightTurnKey)
               Player(i).turnRate# = curvevalue(0.360, Player(i).turnRate#, 500.0 / frameTime#)
            else
               `niether direction being pressed
               Player(i).turnRate# = curvevalue(0.0, Player(i).turnRate#, 100.0 / frameTime#)
            endif
         endif

         inc Player(i).angle#, Player(i).turnRate# * frameTime#

         `Update speed based on angle and if thrusting
         inc Player(i).sX#, sin(Player(i).angle#) * Player(i).acc# * frameTimeS#
         inc Player(i).sZ#, cos(Player(i).angle#) * Player(i).acc# * frameTimeS#

         `Update Speed based on gravity effect
         fX# = 0.0 : fZ# = 0.0
         for j = 1 to SPHERE_COUNT
            DistX# = Spheres(j).x# - Player(i).x#
            DistZ# = Spheres(j).z# - Player(i).z#
            set vector2 1, DistX#, DistZ#
            Dist# = length vector2(1)
            if Dist# < 1.0 then Dist# = 1.0

            `XZ Components of Grav
            Grav# = SPHERE_MASS * Player(i).mass# / (Dist# * Dist#) * 0.5
            xGrav# = Grav# * DistX# / Dist#
            zGrav# = Grav# * DistZ# / Dist#

            inc fX#, xGrav#
            inc fZ#, zGrav#
         next j
         inc Player(i).sX#, (fX# / SPHERE_MASS) * frameTimeS#
         inc Player(i).sZ#, (fZ# / SPHERE_MASS) * frameTimeS#

      endif




      `Update position based on overall speed
      inc Player(i).x#, Player(i).sX# * frameTimeS#
      inc Player(i).z#, Player(i).sZ# * frameTimeS#

      `Check if player has hit the target
      if object collision(obj, active_target + SPHERE_COUNT + 1)
         inc active_target
         if active_target > SPHERE_COUNT then active_target = 1
         for j = 1 to SPHERE_COUNT
            t_obj = j + SPHERE_COUNT + 1
            if j = active_target
               color object t_obj, rgb(255.0, 255.0, 0.0)
            else
               color object t_obj, rgb(32.0, 32.0, 0.0)
            endif
         next j
      endif


      `Check of off the left or right
      if Player(i).x# < -(S_WIDTH#*0.5)
         Player(i).x# = S_WIDTH#*0.5
      else
         if Player(i).x# > S_WIDTH#*0.5
            Player(i).x# = -S_WIDTH#*0.5
         endif
      endif


      `Check if off top or bottom
      if Player(i).z# < -(S_HEIGHT#*0.5)
         Player(i).z# = S_HEIGHT#*0.5
      else
         if Player(i).z# > S_HEIGHT#*0.5
            Player(i).z# = -S_HEIGHT#*0.5
         endif
      endif

      position object obj, Player(i).x#, object position y(obj), Player(i).z#
      yrotate object obj, Player(i).angle#



      `Thruster Stuff
      position object obj+10, Player(i).x#, object position y(obj), Player(i).z#
      Player(i).accAngle# = curveangle(Player(i).angle#+180.0, Player(i).accAngle#, 100.0 / frameTime#)
      yrotate object obj+10, Player(i).accAngle#
      scale object obj+10, 25, 25, Player(i).acc# * 25.0
   next i
return






function SpherePositionOk(j)
   null = make vector3(1)
   for i = 1 to j-1
      set vector3 1, Spheres(j).x# - Spheres(i).x#, Spheres(j).y# - Spheres(i).y#, Spheres(j).z# - Spheres(i).z#
      if length vector3(1) < 3.0
         null = delete vector3(1)
         exitfunction 0
      endif
   next j
   null = delete vector3(1)
endfunction 1

Dim Targets(SPHERE_COUNT) as Coord
active_target = rnd(SPHERE_COUNT-1)+1 `Here you assign the initial active_target value.

for i = 1 to SPHERE_COUNT
   if i > 1
      a# = atanfull(Spheres(i).x# - Spheres(i-1).x#, Spheres(i).z# - Spheres(i-1).z#)
   else
      a# = atanfull(Spheres(1).x# - Spheres(5).x#, Spheres(1).z# - Spheres(5).z#)
   endif

   Targets(i).x# = Spheres(i).x# + (1.75 * sin(a#))
   Targets(i).y# = 0.0
   Targets(i).z# = Spheres(i).z# + (1.75 * cos(a#))

   obj = i + SPHERE_COUNT + 1  `This is the line you assign the object id. It's offset by sphere_count+1.
   make object sphere obj, 0.5, 32, 32
   set object cull obj, 0
   position object obj, Targets(i).x#, Targets(i).y#, Targets(i).z#
   if i = active_target
      color object obj, rgb(255.0, 255.0, 0.0)
   else
      color object obj, rgb(32.0, 32.0, 0.0)
   endif
next i

intersect# = intersect object(active_target, Player(2).x#, ty#, Player(2).z#, tx#, ty#, tz#)
`Active target is a number from 1 to sphere count.

set display mode 1024,768,32:set camera range 0,99999:color backdrop 0
make object cone 1,100
make object cone 2,100
autocam off
ink rgb(255,255,255),0:dot 1,1:get image 1,0,0,2,2
begin:
position object 1,0,-2100,2500
position object 2,0,-2100,2500:color object 2,rgb(255,0,255):ghost object on 2
for x=10 to 20
   if object exist(x) then delete object x
next x
cls:set text size 18:set text font "tahoma"
speed#=1:score#=0:level#=1:move#=2:timeshot#=0:bombshot#=0:timeshot2#=0:bombshot2#=0:players#=0:hyper#=0:team#=0
Gosub Game:
Begin:
do
   if players#>0 and players#<3
      Gosub MovePlayer
      Gosub Shoot
      Gosub Bomb
   endif
   Gosub Obstacles
   Gosub Difficult
   Gosub Stars
   Gosub Stats
   if players#>1 and players#<4
      Gosub MovePlayer2
      Gosub Shoot2
      Gosub Bomb2
   endif
loop
MovePlayer:
if leftkey()=1 and object position x(1)>-2300 then move object left 1,move#
if rightkey()=1 and object position x(1)<2300 then move object right 1,move#
return
MovePlayer2:
if keystate(30)=1 and object position x(2)>-2300 then move object left 2,move#
if keystate(31)=1 and object position x(2)<2300 then move object right 2,move#
return
Obstacles:
for x=10 to 20
   if rnd(1000-level#*10)=1
   if object exist(x)=0
      make object cube x,300:color object x,rgb(0,0,255):ghost object on x
      scale object x,rnd(500)+100,10,10
      position object x,(rnd(4600)-2300),1000,2500
   endif
   endif
   if object exist(x)=1
      for y=1 to 2
         if object exist(y)
            if object collision(y,x)=1 and object visible(y)=1
               if team#=1
                  repeat
                     set text size 72:center text screen width()/2,screen height()/2-70,"GAME OVER"
                     set text size 32:center text screen width()/2,screen height()/2,"Final Score: "+str$(score#)
                     set text size 32:center text screen width()/2,screen height()/2+30,"Press Space to Continue"
                  until spacekey()=1
                  gosub begin
               endif
               if team#=0
                  repeat
                     set text size 72:center text screen width()/2,screen height()/2-70,"Player "+str$(y)+" Lost"
                     set text size 32:center text screen width()/2,screen height()/2,"Final Score: "+str$(score#)
                     set text size 32:center text screen width()/2,screen height()/2+30,"Press Space to Continue"
                  until spacekey()=1
                  if object visible(2)=1
                     if y=2 then players#=1
                  endif
                  if object visible(1)=1
                     if y=1 then players#=3
                  endif
                  hide object y
                  if object visible(1)=0 and object visible(2)=0 then gosub begin
               endif
            endif
         endif
      next y
      if object exist(100) and object exist(x)
         if object collision(100,x) then delete object x:delete object 100
      endif
      if object exist(101) and object exist(x)
         if object collision(101,x) then delete object x
      endif
      if object exist(102) and object exist(x)
         if object collision(102,x) then delete object x:delete object 102
      endif
      if object exist(103) and object exist(x)
         if object collision(103,x) then delete object x
      endif
      if object exist(x)
         move object down x,speed#
         if hyper#=1 then yrotate object x,rotate
         inc rotate:if rotate=40+level#*20 then rotate=0
         if object position y(x)<-2200 then delete object x:inc score#,level#+10
      endif
   endif
next x
return
Difficult:
if score#>level#*500 and speed#=1 then speed#=2:move#=2.5:inc level#
if score#>level#*500 and speed#=2 then speed#=3:move#=3.0:inc level#
if score#>level#*500 and speed#=3 then speed#=4:move#=3.5:inc level#
if score#>level#*500 and speed#=4 then speed#=5:move#=4.0:inc level#
if score#>level#*500 and speed#=5 then speed#=6:move#=4.5:inc level#
if score#>level#*500 and speed#=6 then speed#=7:move#=5.0:inc level#
if score#>level#*500 and speed#=7 then speed#=8:move#=5.5:inc level#
return
Shoot:
if returnkey()=1 and timeshot#<timer()-1000
   timeshot#=timer():timeshoot#=timeshot#+1000
   if object exist(100)=0
      make object sphere 100,40,50,50
      color object 100,rgb(0,255,0)
      position object 100,object position x(1),object position y(1),2500
   endif
endif
if object exist(100)=1
   move object up 100,5
   if object position y(100)>1000 then delete object 100
endif
return
Bomb:
if shiftkey()=1 and bombshot#<timer()-10000
   bombshot#=timer():bombshoot#=bombshot#+10000
   if object exist(101)=0
      make object sphere 101,400,50,50
      color object 101,rgb(0,255,0)
      position object 101,object position x(1),object position y(1),2500
   endif
endif
if object exist(101)=1
   move object up 101,5
   if object position y(101)>1000 then delete object 101
endif
return
Shoot2:
if keystate(45)=1 and timeshot2#<timer()-1000
   timeshot2#=timer():timeshoot1#=timeshot2#+1000
   if object exist(102)=0
      make object sphere 102,40,50,50
      color object 102,rgb(0,255,0)
      position object 102,object position x(2),object position y(2),2500
   endif
endif
if object exist(102)=1
   move object up 102,5
   if object position y(102)>1000 then delete object 102
endif
return
Bomb2:
if keystate(46)=1 and bombshot2#<timer()-10000
   bombshot2#=timer():bombshoot1#=bombshot2#+10000
   if object exist(103)=0
      make object sphere 103,400,50,50
      color object 103,rgb(0,255,0)
      position object 103,object position x(2),object position y(2),2500
   endif
endif
if object exist(103)=1
   move object up 103,5
   if object position y(103)>1000 then delete object 103
endif
return
Stats:
set text size 18
ink rgb(255,0,0),0:text 10,10,"Score:"+str$(score#):text 10,30,"Level:"+str$(level#)
if players#=2 then ink rgb(255,0,0),0:text 10,90,"----------------------------"
if players#>0 and players#<3
timeshoot2#=timeshoot#-timer():if timeshoot2#<0 then timeshoot2#=0
bombshoot2#=bombshoot#-timer():if bombshoot2#<0 then bombshoot2#=0
ink rgb(255,0,0),0:text 10,50,"Player 1 Can shoot in:"+str$(timeshoot2#)+"milliseconds"
ink rgb(255,0,0),0:text 10,70,"Player 1 Can bomb in:"+str$(bombshoot2#)+"milliseconds"
endif
if players#=2
timeshoot0#=timeshoot1#-timer():if timeshoot0#<0 then timeshoot0#=0
bombshoot0#=bombshoot1#-timer():if bombshoot0#<0 then bombshoot0#=0
ink rgb(255,0,0),0:text 10,110,"Player 2 Can shoot in:"+str$(timeshoot0#)+"milliseconds"
ink rgb(255,0,0),0:text 10,130,"Player 2 Can bomb in:"+str$(bombshoot0#)+"milliseconds"
if players#=3
ink rgb(255,0,0),0:text 10,50,"Player 2 Can shoot in:"+str$(timeshoot0#)+"milliseconds"
ink rgb(255,0,0),0:text 10,70,"Player 2 Can bomb in:"+str$(bombshoot0#)+"milliseconds"
endif
return
endif
Stars:
for s=1 to 100
   if sprite exist(s)=0
      sprite s,rnd(1024),rnd(768),1
   endif
   if sprite exist(s)=1
      move sprite s,-.1
      if sprite y(s)>768 then sprite s,rnd(1024),0,1
   endif
next s
return
Game:
do
   set text size 18:center text screen width()/2,40,"Controls"
   set text size 18:center text screen width()/2,60,"^^^^^"
   set text size 18:center text screen width()/2,80,"Player 1"
   set text size 18:center text screen width()/2,100,"______________________________"
   set text size 18:center text screen width()/2,120,"- Move with left and right arrow keys"
   set text size 18:center text screen width()/2,140,"- Shoot with enter and bomb with shift"
   set text size 18:center text screen width()/2,160,"Player 2"
   set text size 18:center text screen width()/2,180,"___________________________________"
   set text size 18:center text screen width()/2,200,"- Move left with -a- and move right with -s-"
   set text size 18:center text screen width()/2,220,"- Shoot with -f- and bomb with -g-"
   set text size 18:center text screen width()/2,240,"----------------------------------------------------------------------------------------------------------------------------------------------------"
   set text size 18:center text screen width()/2,260,"Modes"
   set text size 18:center text screen width()/2,280,"^^^^"
   set text size 18:center text screen width()/2,300,"You can play one or two players"
   set text size 18:center text screen width()/2,320,"2 Player Modes"
   set text size 18:center text screen width()/2,340,"_________________________________________________"
   set text size 18:center text screen width()/2,360,"- Play against each other, if one player dies the other continues"
   set text size 18:center text screen width()/2,380,"- Play on a team, if one play dies you both go down"
   set text size 18:center text screen width()/2,400,"1 Player Modes"
   set text size 18:center text screen width()/2,420,"_______________________"
   set text size 18:center text screen width()/2,440,"- Traditional Mode, just play"
   set text size 18:center text screen width()/2,460,"- Hyper Mode, pieces go crazy making it harder to dodge and hit"
   set text size 18:center text screen width()/2,480,"----------------------------------------------------------------------------------------------------------------------------------------------------"
   set text size 18:center text screen width()/2,500,"Rules"
   set text size 18:center text screen width()/2,520,"^^^^"
   set text size 18:center text screen width()/2,540,"You are the player at the bottom, you can move from side to side and"
   set text size 18:center text screen width()/2,560,"dodge the pieces.  You can shoot and bomb the pieces but you only get"
   set text size 18:center text screen width()/2,580,"points for piecies that make it to the bottom.  Level increases every"
   set text size 18:center text screen width()/2,600,"500 points. Good Luck."
   set text size 26:center text screen width()/2,660,"PRESS ENTER TO CONTINUE"
   if returnkey()=1 then exit
loop
do
   set text size 18:center text screen width()/2,300,"Press -1- for One Player"
   set text size 18:center text screen width()/2,330,"Press -2- for Two Player"
   if keystate(2)=1 then players#=1:hide object 2:exit
   if keystate(3)=1 then exit
loop
if players#=1
sleep 400
   do
      set text size 18:center text screen width()/2,300,"Press -1- for Traditional Mode"
      set text size 18:center text screen width()/2,330,"Press -2- for Hyper Mode"
      if keystate(2)=1 then Gosub Begin
      if keystate(3)=1 then hyper#=1:Gosub Begin
   loop
endif
sleep 400
do
   set text size 18:center text screen width()/2,300,"Press -1- to play against Each Other"
   set text size 18:center text screen width()/2,330,"Press -2- to play on a Team"
   if keystate(2)=1 then players#=2:Gosub Begin
   if keystate(3)=1 then players#=2:team#=1:Gosub Begin
loop

Sync On:Sync Rate 60:Autocam Off
SET DISPLAY MODE 1024, 768, 32

Type Coordinates
   x as Float
   y as Float
   z as Float
Endtype

Global Object as Coordinates
Global Target as Coordinates
Global AI As Coordinates
Global Camera As Coordinates

Type Stats
   Move as Coordinates
   Speed as Float
   Rot as Float
Endtype
Dim Ship(2) as Stats

Sky_Sphere()
Make_Racer(11)
Dim Beacon(2)
Dim Start_Time(2)
Dim Lap(2)
Dim Best_Lap(2)
Dim TrailID(2)

Position Object 11,0,0,100
For i = 1 to 720
   Turn Object Right 11,.5
   Position_Sail(11)
   Set Object To Object Orientation 3,11
   Sync
Next i
Make_Stars()
Make_Course(11)
Make_Racer(13)
Position Object 12,50,0,100
Ink Rgb(255,255,255),0

For i = 1 to 2
   Beacon(i)=1
   start_time(i)=Timer()
   best_lap(i)=999999
   TrailID(i)=1
Next i
Do
   AI_Move(13)
   Move_Ship(11)
   Position_Sky(11)
   Pointer(11,100+Beacon(1))
   Move_Camera(11)
   Set Cursor 0,0
   For i = 1 to 2
      Position_Sail(9+i*2)
      Trail(9+i*2)
      d#=Get_Dist(9+i*2,100+beacon(i)):d=d#
      If d<50 Then Beacon(i)=Beacon(i)+1
      If Beacon(i)>4
         Beacon(i)=1
         lap(i)=Int(timer()-start_time(i))/1000
         If lap(i)<best_lap(i) Then best_lap(i)=lap(i)
         start_time(i)=timer()
      Endif
      Print "Ship ";i;":"
      Print "Beacon ";(beacon(i));" distance: ";d
      Print "Time: ";Int((timer()-start_time(i))/1000)
      Print "Best lap: ";best_lap(i)
      Print
   Next i
   Sync
Loop

Function Move_Ship(ObjectID)
   n=(ObjectID-9)/2
   Ship(n).Speed=(Upkey())*.05
   Ship(n).Rot=Ship(n).Rot+(RightKey()-LeftKey())*.02-((Ship(n).Rot>0)-(Ship(n).Rot<0))*.01
   If Abs(Ship(n).Rot)<.01 Then Ship(n).Rot=0
   If Abs(Ship(n).Rot)>10 Then Ship(n).Rot=10*((Ship(n).Rot>0)-(Ship(n).Rot<0))
   Turn Object Right ObjectID,Ship(n).Rot
   If Object Exist(2)=0 then Make_AI()
   Return_Object(ObjectID)
   Position Object 2,Object.x,Object.y,Object.z
   Set Object To Object Orientation 2,ObjectID
   Move Object 2,Ship(n).Speed
   Return_AI()
   mx#=AI.x-Object.x:mz#=AI.z-Object.z
   Ship(n).Move.x=Ship(n).Move.x+mx#-.01*((Ship(n).Move.x>0)-(Ship(n).Move.x<0))
   Ship(n).Move.z=Ship(n).Move.z+mz#-.01*((Ship(n).Move.z>0)-(Ship(n).Move.z<0))
   Position Object ObjectID,Object.x+Ship(n).Move.x,0,Object.z+Ship(n).Move.z
EndFunction

Function AI_Move(ObjectID)
   n=(ObjectID-9)/2
   If Object Exist(2)=0 then Make_AI()
   Return_Object(ObjectID)
   Position Object 2,Object.x,Object.y,Object.z
   Set Object To Object Orientation 2,ObjectID
   Move Object Right 2,25
   d1#=Get_Dist(ObjectID,100+beacon(n))
   d2#=Get_Dist(2,100+beacon(n))
   Move Object Left 2,50
   d3#=Get_Dist(2,100+beacon(n))
   If d2#<d1# Then Ship(n).Rot=Ship(n).Rot+.02-((Ship(n).Rot>0)-(Ship(n).Rot<0))*.01
   If d3#<d1# Then Ship(n).Rot=Ship(n).Rot-.02-((Ship(n).Rot>0)-(Ship(n).Rot<0))*.01
   Ship(n).Speed=0
   d1#=Get_Dist(ObjectID,100+beacon(n))
   Return_Object(ObjectID)
   Position Object 2,Object.x,Object.y,Object.z
   Set Object To Object Orientation 2,ObjectID
   Move Object 2,d1#
   d2#=Get_Dist(2,100+beacon(n))
   move#=sqrt(Ship(n).Move.x*Ship(n).Move.x+Ship(n).Move.z*Ship(n).Move.z)
   If d1#>d2# And d1#>move#*5 And Move#<5 Then Ship(n).Speed=.05
   If Abs(Ship(n).Rot)<.01 Then Ship(n).Rot=0
   If Abs(Ship(n).Rot)>4 Then Ship(n).Rot=4*((Ship(n).Rot>0)-(Ship(n).Rot<0))
   Turn Object Right ObjectID,Ship(n).Rot
   Return_Object(ObjectID)
   Position Object 2,Object.x,Object.y,Object.z
   Set Object To Object Orientation 2,ObjectID
   Move Object 2,Ship(n).Speed
   Return_AI()
   mx#=AI.x-Object.x:mz#=AI.z-Object.z
   Ship(n).Move.x=Ship(n).Move.x+mx#-.01*((Ship(n).Move.x>0)-(Ship(n).Move.x<0))
   Ship(n).Move.z=Ship(n).Move.z+mz#-.01*((Ship(n).Move.z>0)-(Ship(n).Move.z<0))
   Position Object ObjectID,Object.x+Ship(n).Move.x,0,Object.z+Ship(n).Move.z
EndFunction

Function Move_Camera(ObjectID)
   Return_Object(ObjectID)
   Position Object 2,Object.x,Object.y,Object.z
   Set Object to Object Orientation 2,ObjectID
   Move Object 2,-100
   Move Object Up 2,10
   Move Object Right 2,5
   Return_AI()
   Set Camera To Follow AI.x,AI.y,AI.z,5,0,4,6,0
   Point Camera Object.x,Object.y,Object.z
Endfunction

Function Get_Dist(Object1,Object2)
   Return_Object(Object1)
   Return_Target(Object2)
   dx#=Object.x-Target.x:dy#=Object.y-Target.y:dz#=Object.z-Target.z
   d#=sqrt(dx#*dx#+dy#*dy#+dz#*dz#)
EndFunction d#


Function Make_Course(ObjectID)
   Return_Object(ObjectID)
   For beacon=1 to 4
      Make Object Sphere 100+beacon,20
      ang=rnd(359)
      x=sin(ang)*2000+Object.x:z=cos(ang)*1000+Object.z
      Position Object 100+beacon,x,0,z
      Set Object Emissive 100+beacon,Rgb(255,255,255)
      Return_Object(100+beacon)
   Next Beacon
EndFunction

Function Make_Racer(ObjectID)
   If Object Exist(2) Then Delete Object 2
   If Object Exist(ObjectID) Then Delete Object ObjectID
   If Object Exist(ObjectID+1) Then Delete Object ObjectID+1
   Make Object Sphere ObjectID,.1,1,1
   Make Object Sphere 2,10,10,10
   Scale Object 2,100,60,100
   Make Mesh From Object 2,2
   Add Limb ObjectID,1,2
   Offset Limb ObjectID,1,0,0,25
   Delete Object 2
   Make Object Cylinder 2,1
   Scale Object 2,800,5000,400
   Pitch Object Down 2,90
   Fix Object Pivot 2
   Make Mesh From Object 2,2
   Add Limb ObjectID,2,2
   Delete Object 2
   Make Object Sphere 2,1,10,10
   Scale Object 2,850,400,2
   Make Mesh From Object 2,2
   Add Limb ObjectID,3,2
   Offset Limb ObjectID,3,0,0,-24.5
   Delete Object 2
   Make Object Cylinder 2,1
   Scale Object 2,200,400,200
   Roll Object Right 2,90
   Fix Object Pivot 2
   Make Mesh From Object 2,2
   Add Limb ObjectID,4,2
   Add Limb ObjectID,5,2
   Offset Limb ObjectID,4,5,0,0
   Offset Limb ObjectID,5,-5,0,0
   Delete Object 2
   Make Object Sphere 2,1
   Scale Object 2,300,300,300
   Make Mesh From Object 2,2
   Delete Object 2
   Make Object Cylinder 2,1
   Scale Limb 2,0,300,2000,300
   Add Limb 2,1,2
   Add Limb 2,2,2
   Offset Limb 2,1,0,10,0
   Offset Limb 2,2,0,-10,0
   Pitch Object Down 2,90
   Fix Object Pivot 2
   Make Mesh From Object 2,2
   Add Limb ObjectID,6,2
   Add Limb ObjectID,7,2
   Offset Limb ObjectID,6,8,0,0
   Offset Limb ObjectID,7,-8,0,0
   Delete Object 2
   Make Object Cylinder 2,1
   Scale Object 2,50,5000,50
   Pitch Object Up 2,6.5
   Fix Object Pivot 2
   Make Mesh From Object 2,2
   Add Limb ObjectID,8,2
   Offset Limb ObjectID,8,0,25,18
   Delete Object 2
   Make Object Triangle 2,0,2,0,0,5,4,0,2.1,0
   Make Mesh From Object 2,2
   Add Limb ObjectID,9,2
   Offset Limb ObjectID,9,0,0,-24
   Delete Object 2
   Make Object Cylinder 2,1
   Scale Object 2,800,400,400
   Pitch Object Down 2,110
   Fix Object Pivot 2
   Make Mesh From Object 2,2
   Add Limb ObjectID,10,2
   Offset Limb ObjectID,10,0,-1,25
   Delete Object 2

   Set Object Cull ObjectID,0

   Make Object Triangle ObjectID+1,0,5,20,0,50,15,0,5,-20
   Position Object ObjectID+1,0,0,100
   Set Object Cull ObjectID+1,0

   If Bitmap Exist(1) Then Delete Bitmap 1
   Create Bitmap 1,512,512
   Box 0,0,511,511,Rgb(120,120,110),Rgb(150,150,150),Rgb(80,80,80),Rgb(60,50,50)
   If Image Exist(ObjectID+1) then Delete Image ObjectID+1
   Get Image ObjectID+1,0,0,511,511,0
   Texture Object ObjectID+1,ObjectID+1
   `Set Sphere Mapping On ObjectID+1,ObjectID+1
   Set Object Emissive ObjectID+1,RGB(100,100,100)
   Set Alpha Mapping On ObjectID+1,70

   If Bitmap Exist(1) then Delete Bitmap 1
   Create Bitmap 1,512,512
   Ink Rgb(255,255,255),0
   Box 0,0,511,511
   Ink 0,0
   Box 181,70,331,256
   If Image Exist(ObjectID) Then Delete Image ObjectID
   Get Image ObjectID,0,0,511,511,1
   Texture Limb ObjectID,1,ObjectID
   Rotate Limb ObjectID,1,0,180,0
   Set Current Bitmap 0
   Delete Bitmap 1
EndFunction

Function Position_Sail(ObjectID)
   Return_Object(ObjectID)
   Position Object ObjectID+1,Object.x,Object.y,Object.z
   Set Object To Object Orientation ObjectID+1,ObjectID
EndFunction

Function Position_Sky(ObjectID)
   Return_Object(ObjectID)
   Position Object 3,Object.x,Object.y,Object.z
EndFunction

Function Sky_Sphere()
   Make Object Sphere 3,5000,50,50
   Set Object Cull 3,0
   If Bitmap Exist(1) Then Delete Bitmap 1
   Create Bitmap 1,1024,1024
   Ink 0,0
   Box 0,0,1023,1023
   For i = 1 to 2000+Rnd(1000)
      Ink Rgb(rnd(100)+155,rnd(100)+155,rnd(100)+155),0
      Dot Rnd(1023),Rnd(1023)
   Next i
   If Image Exist(3) then Delete Image 3
   Get Image 3,0,0,1023,1023,1
   Texture Object 3,3
   Set Object Emissive 3,RGB(128,128,128)
EndFunction

Function Make_Stars()
   For i = 1001 to 1500
      Make Object Sphere i,1,6,6
      Position Object i,Rnd(10000)-5000,Rnd(500)-200,Rnd(10000)-5000
      Set Object Emissive i,rgb(255,255,255)
      `Set Alpha Mapping On i,50
   Next i
EndFunction

Function Make_AI()
   If Object Exist(2) Then Delete Object 2
   Make Object Sphere 2,1,6,6
   Hide Object 2
EndFunction


Function Return_Object(ObjectID)
`If Object Exist (ObjectID)
   Object.x=Object Position X(ObjectID):Object.y=Object Position Y(ObjectID):Object.z=Object Position Z(ObjectID)
`Endif
Endfunction

` This function shortens the Object Postion X/Y/Z() functions.
Function Return_Target(TargetID)
`If Object Exist (TargetID)
   Target.x=Object Position X(TargetID):Target.y=Object Position Y(TargetID):Target.z=Object Position Z(TargetID)
`Endif
EndFunction

` This function shortens the Object Postion X/Y/Z() functions for object #2
Function Return_AI()
If Object Exist (2)
   AI.x=Object Position X(2):AI.y=Object Position Y(2):AI.z=Object Position Z(2)
Endif
EndFunction

` This function shortens the Camera Postion X/Y/Z() functions.
Function Return_Camera(CameraID)
Camera.x=Camera Position X(CameraID):Camera.y=Camera Position Y(CameraID):Camera.z=Camera Position Z(CameraID)
EndFunction

Function Pointer(ObjectID,TargetID)
   If SpaceKey()=0
      If Object Exist(5) Then Delete Object 5
      ExitFunction
   Endif
   If Object Exist(2)=0 Then Make_AI()
   Return_Object(ObjectID)
   Position Object 2,Object.x,Object.y,Object.z
   Set Object To Object Orientation 2,ObjectID
   Move Object 2,10
   Move Object Up 2,47.5
   If Object Exist(5) Then Delete Object 5
   Return_Target(TargetID)
   Return_AI()
   Make Object Triangle 5,AI.x,AI.y,AI.z,Target.x,Target.y,Target.z,AI.x,AI.y+.5,AI.z
   Color Object 5,rgb(255,0,0)
   Set Object Emissive 5,rgb(255,0,0)
   Set Object Cull 5,0
   Set Alpha Mapping On 5,90
EndFunction

Function Trail(ObjectID)
   n=(ObjectID-9)/2
   move#=sqrt(Ship(n).Move.x*Ship(n).Move.x+Ship(n).Move.z*Ship(n).Move.z)
   If move#<.05
      For i = 1 to 10
         obj=n*200+i
         If Object Exist(obj) Then Delete Object obj
      Next i
      ExitFunction
   Endif
   obj=n*200+TrailID(n)
   If Object Exist(obj) Then Delete Object obj
   Make Object Plain obj,move#+1.0,3
   Return_Object(ObjectID)
   Position Object obj,Object.x,Object.y,Object.z
   Set Object To Object Orientation obj,ObjectID
   Move object obj,-27
   Return_Object(obj)
   Point Object obj,Object.x+Ship(n).Move.x,0,Object.z+Ship(n).Move.z
   Turn Object Right obj,90
   Color Object obj,Rgb(255,0,0)
   Set Object Emissive obj,Rgb(255,0,0)
   Ghost Object On obj
   Set Object Cull obj,0
   Set Object Collision Off obj
   TrailID(n)=TrailID(n)+1
   If TrailID(n)>10 Then TrailID(n)=1
   For i = 1 to 10
      obj=n*200+i
      If Object Exist(obj)
         Scale Object obj,100,70,100
      Endif
   Next i
EndFunction

set display mode 1024,768,32:set camera range 0,99999:color backdrop 0
make object cone 1,100
make object cone 2,100
autocam off
ink rgb(255,255,255),0:dot 1,1:get image 1,0,0,2,2
begin:
position object 1,0,-2100,2500
position object 2,0,-2100,2500:color object 2,rgb(255,0,255):ghost object on 2
for x=10 to 20
   if object exist(x) then delete object x
next x
cls:set text size 18:set text font "tahoma"
speed#=1:score#=0:level#=1:move#=2:timeshot#=0:bombshot#=0:timeshot2#=0:bombshot2#=0:players#=0:hyper#=0:team#=0
Gosub Game:
Begin:
do
   Gosub MovePlayer
   fps=screen fps()
   text 100,10,str$(fps)
loop
if players#>0 and players#<3
   MovePlayer:
   if leftkey()=1 and object position x(1)>-2300 then move object left 1,move#
   if rightkey()=1 and object position x(1)<2300 then move object right 1,move#
endif
if players#>1 and players#<4
   MovePlayer2:
   if keystate(30)=1 and object position x(2)>-2300 then move object left 2,move#
   if keystate(31)=1 and object position x(2)<2300 then move object right 2,move#
endif
Obstacles:
for x=10 to 20
   if rnd(1000-level#*10)=1
   if object exist(x)=0
      make object cube x,300:color object x,rgb(0,0,255):ghost object on x
      scale object x,rnd(500)+100,10,10
      position object x,(rnd(4600)-2300),1000,2500
   endif
   endif
   if object exist(x)=1
      for y=1 to 2
         if object exist(y)
            if object collision(y,x)=1 and object visible(y)=1
               if team#=1
                  repeat
                     set text size 72:center text screen width()/2,screen height()/2-70,"GAME OVER"
                     set text size 32:center text screen width()/2,screen height()/2,"Final Score: "+str$(score#)
                     set text size 32:center text screen width()/2,screen height()/2+30,"Press Space to Continue"
                  until spacekey()=1
                  gosub begin
               endif
               if team#=0
                  repeat
                     set text size 72:center text screen width()/2,screen height()/2-70,"Player "+str$(y)+" Lost"
                     set text size 32:center text screen width()/2,screen height()/2,"Final Score: "+str$(score#)
                     set text size 32:center text screen width()/2,screen height()/2+30,"Press Space to Continue"
                  until spacekey()=1
                  if object visible(2)=1
                     if y=2 then players#=1
                  endif
                  if object visible(1)=1
                     if y=1 then players#=3
                  endif
                  hide object y
                  if object visible(1)=0 and object visible(2)=0 then goto begin
               endif
            endif
         endif
      next y
      if object exist(100) and object exist(x)
         if object collision(100,x) then delete object x:delete object 100
      endif
      if object exist(101) and object exist(x)
         if object collision(101,x) then delete object x
      endif
      if object exist(102) and object exist(x)
         if object collision(102,x) then delete object x:delete object 102
      endif
      if object exist(103) and object exist(x)
         if object collision(103,x) then delete object x
      endif
      if object exist(x)
         move object down x,speed#
         if hyper#=1 then yrotate object x,rotate
         inc rotate:if rotate=40+level#*20 then rotate=0
         if object position y(x)<-2200 then delete object x:inc score#,level#+10
      endif
   endif
next x
Difficult:
if score#>level#*500 and speed#=1 then speed#=2:move#=2.5:inc level#
if score#>level#*500 and speed#=2 then speed#=3:move#=3.0:inc level#
if score#>level#*500 and speed#=3 then speed#=4:move#=3.5:inc level#
if score#>level#*500 and speed#=4 then speed#=5:move#=4.0:inc level#
if score#>level#*500 and speed#=5 then speed#=6:move#=4.5:inc level#
if score#>level#*500 and speed#=6 then speed#=7:move#=5.0:inc level#
if score#>level#*500 and speed#=7 then speed#=8:move#=5.5:inc level#
if players#>0 and players#<3
   Shoot:
   if returnkey()=1 and timeshot#<timer()-1000
      timeshot#=timer():timeshoot#=timeshot#+1000
      if object exist(100)=0
         make object sphere 100,40,50,50
         color object 100,rgb(0,255,0)
         position object 100,object position x(1),object position y(1),2500
      endif
   endif
   if object exist(100)=1
      move object up 100,5
      if object position y(100)>1000 then delete object 100
   endif
endif
if players#>0 and players#<3
   Bomb:
   if shiftkey()=1 and bombshot#<timer()-10000
      bombshot#=timer():bombshoot#=bombshot#+10000
      if object exist(101)=0
         make object sphere 101,400,50,50
         color object 101,rgb(0,255,0)
         position object 101,object position x(1),object position y(1),2500
      endif
   endif
   if object exist(101)=1
      move object up 101,5
      if object position y(101)>1000 then delete object 101
   endif
endif
if players#>1 and players#<4
Shoot2:
   if keystate(33)=1 and timeshot2#<timer()-1000
      timeshot2#=timer():timeshoot1#=timeshot2#+1000
      if object exist(102)=0
         make object sphere 102,40,50,50
         color object 102,rgb(0,255,0)
         position object 102,object position x(2),object position y(2),2500
      endif
   endif
   if object exist(102)=1
      move object up 102,5
      if object position y(102)>1000 then delete object 102
   endif
endif
if players#>1 and players#<4
   Bomb2:
   if keystate(34)=1 and bombshot2#<timer()-10000
      bombshot2#=timer():bombshoot1#=bombshot2#+10000
      if object exist(103)=0
         make object sphere 103,400,50,50
         color object 103,rgb(0,255,0)
         position object 103,object position x(2),object position y(2),2500
      endif
   endif
   if object exist(103)=1
      move object up 103,5
      if object position y(103)>1000 then delete object 103
   endif
endif
Stats:
set text size 18
ink rgb(255,0,0),0:text 10,10,"Score:"+str$(score#):text 10,30,"Level:"+str$(level#)
if players#=2 then ink rgb(255,0,0),0:text 10,90,"----------------------------"
if players#>0 and players#<3
timeshoot2#=timeshoot#-timer():if timeshoot2#<0 then timeshoot2#=0
bombshoot2#=bombshoot#-timer():if bombshoot2#<0 then bombshoot2#=0
ink rgb(255,0,0),0:text 10,50,"Player 1 Can shoot in:"+str$(timeshoot2#)+"milliseconds"
ink rgb(255,0,0),0:text 10,70,"Player 1 Can bomb in:"+str$(bombshoot2#)+"milliseconds"
endif
if players#=2
timeshoot0#=timeshoot1#-timer():if timeshoot0#<0 then timeshoot0#=0
bombshoot0#=bombshoot1#-timer():if bombshoot0#<0 then bombshoot0#=0
ink rgb(255,0,0),0:text 10,110,"Player 2 Can shoot in:"+str$(timeshoot0#)+"milliseconds"
ink rgb(255,0,0),0:text 10,130,"Player 2 Can bomb in:"+str$(bombshoot0#)+"milliseconds"
if players#=3
ink rgb(255,0,0),0:text 10,50,"Player 2 Can shoot in:"+str$(timeshoot0#)+"milliseconds"
ink rgb(255,0,0),0:text 10,70,"Player 2 Can bomb in:"+str$(bombshoot0#)+"milliseconds"
endif
endif
Stars:
for s=1 to 100
   if sprite exist(s)=0
      sprite s,rnd(1024),rnd(768),1
   endif
   if sprite exist(s)=1
      move sprite s,-.1
      if sprite y(s)>768 then sprite s,rnd(1024),0,1
   endif
next s
return
Game:
do
   set text size 18:center text screen width()/2,40,"Controls"
   set text size 18:center text screen width()/2,60,"^^^^^"
   set text size 18:center text screen width()/2,80,"Player 1"
   set text size 18:center text screen width()/2,100,"______________________________"
   set text size 18:center text screen width()/2,120,"- Move with left and right arrow keys"
   set text size 18:center text screen width()/2,140,"- Shoot with enter and bomb with shift"
   set text size 18:center text screen width()/2,160,"Player 2"
   set text size 18:center text screen width()/2,180,"___________________________________"
   set text size 18:center text screen width()/2,200,"- Move left with -a- and move right with -s-"
   set text size 18:center text screen width()/2,220,"- Shoot with -f- and bomb with -g-"
   set text size 18:center text screen width()/2,240,"----------------------------------------------------------------------------------------------------------------------------------------------------"
   set text size 18:center text screen width()/2,260,"Modes"
   set text size 18:center text screen width()/2,280,"^^^^"
   set text size 18:center text screen width()/2,300,"You can play one or two players"
   set text size 18:center text screen width()/2,320,"2 Player Modes"
   set text size 18:center text screen width()/2,340,"_________________________________________________"
   set text size 18:center text screen width()/2,360,"- Play against each other, if one player dies the other continues"
   set text size 18:center text screen width()/2,380,"- Play on a team, if one play dies you both go down"
   set text size 18:center text screen width()/2,400,"1 Player Modes"
   set text size 18:center text screen width()/2,420,"_______________________"
   set text size 18:center text screen width()/2,440,"- Traditional Mode, just play"
   set text size 18:center text screen width()/2,460,"- Hyper Mode, pieces go crazy making it harder to dodge and hit"
   set text size 18:center text screen width()/2,480,"----------------------------------------------------------------------------------------------------------------------------------------------------"
   set text size 18:center text screen width()/2,500,"Rules"
   set text size 18:center text screen width()/2,520,"^^^^"
   set text size 18:center text screen width()/2,540,"You are the player at the bottom, you can move from side to side and"
   set text size 18:center text screen width()/2,560,"dodge the pieces.  You can shoot and bomb the pieces but you only get"
   set text size 18:center text screen width()/2,580,"points for piecies that make it to the bottom.  Level increases every"
   set text size 18:center text screen width()/2,600,"500 points. Good Luck."
   set text size 26:center text screen width()/2,660,"PRESS ENTER TO CONTINUE"
   if returnkey()=1 then exit
loop
do
   set text size 18:center text screen width()/2,300,"Press -1- for One Player"
   set text size 18:center text screen width()/2,330,"Press -2- for Two Player"
   if keystate(2)=1 then players#=1:hide object 2:exit
   if keystate(3)=1 then exit
loop
if players#=1
sleep 400
   do
      set text size 18:center text screen width()/2,300,"Press -1- for Traditional Mode"
      set text size 18:center text screen width()/2,330,"Press -2- for Hyper Mode"
      if keystate(2)=1 then goto Begin
      if keystate(3)=1 then hyper#=1:goto Begin
   loop
endif
sleep 400
do
   set text size 18:center text screen width()/2,300,"Press -1- to play against Each Other"
   set text size 18:center text screen width()/2,330,"Press -2- to play on a Team"
   if keystate(2)=1 then players#=2:goto Begin
   if keystate(3)=1 then players#=2:team#=1:goto Begin
loop

set display mode 800, 600, 32
sync on
sync rate 0
randomize timer()
backdrop on
color backdrop rgb(0,0,0)
set ambient light 0
set directional light 0, 1, -1, 1
color light 0, rgb(96, 96, 96)
`hide light 0


#constant SPHERE_COUNT 5
#constant SPHERE_MASS 10.0
#constant ORBIT_RADIUS 1.75

autocam off
y# = 20.0
position camera 0, 20, 0
point camera 0,0,0
set camera fov 45
aspect# = screen width()* (1.0 / screen height())
S_HEIGHT# = (tan(22.5) * 20.0) * 2.0
S_WIDTH# = S_HEIGHT# * aspect#



Type Coord
   x#
   y#
   z#
EndType

Dim Spheres(SPHERE_COUNT) as Coord
for i = 1 to SPHERE_COUNT
   tests = 0
   while SpherePositionOk(i) = 0 OR tests = 0
      inc tests
      Spheres(i).x# = (rnd(S_WIDTH# * 600.0) - (S_WIDTH# * 300.0)) * 0.001
      Spheres(i).y# = 0.0
      Spheres(i).z# = (rnd(S_HEIGHT# * 600.0) - (S_HEIGHT# * 300.0)) * 0.001
   endwhile

   make object sphere i, 1.0, 64, 64
   position object i, Spheres(i).x#, Spheres(i).y#, Spheres(i).z#
   color object i, rgb(255.0, 0.0, 0.0)
   set object specular power i, 100
   set object specular i, rgb(255,255,255)

   set object collision to spheres i
next i



Dim Targets(SPHERE_COUNT) as Coord
active_target = rnd(SPHERE_COUNT-1)+1

for i = 1 to SPHERE_COUNT
   if i > 1
      a# = atanfull(Spheres(i).x# - Spheres(i-1).x#, Spheres(i).z# - Spheres(i-1).z#)
   else
      a# = atanfull(Spheres(1).x# - Spheres(5).x#, Spheres(1).z# - Spheres(5).z#)
   endif

   Targets(i).x# = Spheres(i).x# + (ORBIT_RADIUS * sin(a#))
   Targets(i).y# = 0.0
   Targets(i).z# = Spheres(i).z# + (ORBIT_RADIUS * cos(a#))

   obj = i + SPHERE_COUNT
   make object sphere obj, 0.5, 64, 64
   position object obj, Targets(i).x#, Targets(i).y#, Targets(i).z#
   if i = active_target
      set object diffuse obj, rgb(255.0, 255.0, 0.0)
   else
      set object diffuse obj, rgb(32.0, 32.0, 0.0)
   endif
   set object specular power obj, 100
   set object specular obj, rgb(255,255,255)

   set object collision to spheres obj
next i



Type PlayerData
   x#
   z#
   sX#
   sZ#
   angle#
   turnRate#
   speed#
   acc#
   accAngle#
   mass#

   ThrustKey
   LeftTurnKey
   RightTurnKey
EndType
#constant NUM_PLAYERS 2

Dim Player(NUM_PLAYERS) as PlayerData
for i = 1 to NUM_PLAYERS
   obj = i + 99
   t_obj = active_target - 1
   if t_obj < 1 then t_obj = SPHERE_COUNT

   make object cone obj, 0.5
   offset limb obj, 0, 0, 0, 0.25
   position object obj, Targets(t_obj).x#, Targets(t_obj).y#, Targets(t_obj).z#
   scale object obj, 50, 50, 100
   rotate limb obj, 0, 90, 0, 0
   set object emissive obj, rgb(64, 64, 255)



   make object cone obj+10, 0.5
   offset limb obj+10, 0, 0, 0, 0.25
   position object obj+10, Targets(t_obj).x#, Targets(t_obj).y#, Targets(t_obj).z#
   scale object obj+10, 25, 25, 100
   rotate limb obj+10, 0, 90, 0, 0
   set object emissive obj+10, rgb(255, 192, 0)

   make light i
   position light i, Targets(t_obj).x#, Targets(t_obj).y#, Targets(t_obj).z#


   `Rotate ship away from planet
   if t_obj >1
      a# = atanfull(Spheres(t_obj).x# - Spheres(t_obj-1).x#, Spheres(t_obj).z# - Spheres(t_obj-1).z#)
   else
      a# = atanfull(Spheres(1).x# - Spheres(5).x#, Spheres(1).z# - Spheres(5).z#)
   endif




   Player(i).x# = Targets(t_obj).x#
   Player(i).z# = Targets(t_obj).z#
   Player(i).turnRate# = 0.0
   Player(i).speed# = 0.0
   Player(i).mass# = 10.0
   if i = 1 then Player(i).acc# = 20.0 else Player(i).acc# = 0.0
   Player(i).accAngle# = 180.0
   Player(i).angle# = a#
   yrotate object obj, a#


   set object collision to polygons obj

   select i
      case 1
         `Player 1 controls
         Player(1).ThrustKey = 57      :`Space
         Player(1).LeftTurnKey = 203   :`Left Arrow
         Player(1).RightTurnKey = 205  :`Right Arrow
      endcase
   endselect
next i




`Ghost Target Sphere
make object sphere 1000, 1.0, 64, 64
gosub INITIALISE_GHOST_TARGET


make object cube 1001, 1
hide object 1001




`AI Timer
targetAngle# = 0.0
targetAcc# = 0.0


`Used for sphere distance
null = make vector2(1)
null = make vector2(2)
null = make vector2(3)


`Framerate movement stuff
frameTime# = 1.0
frameTimeS# = frameTime# * 0.001
startTime = timer()
`Main loop
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()
   frameTimeS# = frameTime# * 0.001

   gosub DO_PLAYER_STUFF

   if ghost_timer# < 1.0 then gosub DO_TARGETER

   sync
loop
end

INITIALISE_GHOST_TARGET:
   set alpha mapping on 1000, 50
   scale object 1000, 0, 0, 0
   position object 1000, Targets(active_target).x#, Targets(active_target).y#, Targets(active_target).z#
   ghost_timer# = 0.0
   show object 1000
return



DO_TARGETER:
   ghost_timer# = curvevalue(1.0, ghost_timer#, 400.0 / frameTime#)

   if ghost_timer# < 1.0
      text 10, 10, "GT: " + str$(ghost_timer#)
      scale object 1000, ghost_timer# * 500.0, 1, ghost_timer# * 500.0
      a# = 50.0 - (50.0 * ghost_timer#)
      if a# < 0 then a# = 0
      set alpha mapping on 1000, a#
   else
      hide object 1000
   endif
return





DO_PLAYER_STUFF:
   for i = 1 to NUM_PLAYERS
      obj = i + 99
      if i = 2
         `AI Player
         fX# = 0.0 : fZ# = 0.0
         for j = 1 to SPHERE_COUNT
            DistX# = Spheres(j).x# - Player(i).x#
            DistZ# = Spheres(j).z# - Player(i).z#
            set vector2 1, DistX#, DistZ#
            Dist# = length vector2(1)
            if Dist# < 1.0 then Dist# = 1.0

            `XZ Components of Grav
            Grav# = SPHERE_MASS * Player(i).mass# / (Dist# * Dist#) * 0.5
            xGrav# = Grav# * DistX# / Dist#
            zGrav# = Grav# * DistZ# / Dist#

            inc fX#, xGrav#
            inc fZ#, zGrav#
         next j

         gAccX# = (fX# / SPHERE_MASS) * frameTimeS#
         gAccZ# = (fZ# / SPHERE_MASS) * frameTimeS#

         `CALCULATE TAGERT COORD
         tx# = Targets(active_target).x#
         ty# = Targets(active_target).y#
         tz# = Targets(active_target).z#
         objDetect = 1
         SphereInWay = 0
         hide object 1001
         while objDetect <= SPHERE_COUNT AND SphereInWay = 0
            if intersect object(objDetect, Player(2).x#, ty#, Player(2).z#, tx#, ty#, tz#) > 0
               text 10, 30, "INTERSECT"
               angle# = atanfull(Spheres(objDetect).x# - Player(2).x#, Spheres(objDetect).z# - Player(2).z#)
               inc angle#, 90
               tx# = Spheres(objDetect).x# + (ORBIT_RADIUS * sin(angle#))
               tz# = Spheres(objDetect).z# + (ORBIT_RADIUS * cos(angle#))
               show object 1001
               position object 1001, tx#, ty#, tz#
               SphereInWay = 1
            endif
            inc objDetect
         endwhile



         set vector2 2, tx# - Player(i).x#, tz# - Player(i).z#
         normalize vector2 2, 2
         multiply vector2 2, 2.0

         targetSpeedX# = x vector2(2)
         targetSpeedZ# = y vector2(2)
         totalAccX# = (targetSpeedX# - Player(i).sX#)
         totalAccZ# = (targetSpeedZ# - Player(i).sZ#)

         EngineAccX# = totalAccX# - gAccX#
         EngineAccZ# = totalAccZ# - gAccZ#

         set vector2 3, EngineAccX#, EngineAccZ#

         targetAngle# = atanfull(EngineAccX#, EngineAccZ#)
         targetAcc# = length vector2(3)

         Player(i).angle# = curveangle(targetAngle#, Player(i).angle#, 250.0 / frameTime#)
         Player(i).acc# = curvevalue(targetAcc#, Player(i).acc#, 500.0 / frameTime#)

         inc Player(i).sX#, Player(i).acc# * sin(Player(i).angle#) * frameTimeS#
         inc Player(i).sZ#, Player(i).acc# * cos(Player(i).angle#) * frameTimeS#
      endif
      if i = 1
         `Human Player
         if keystate(Player(i).ThrustKey)
            Player(i).acc# = curvevalue(4.0, Player(i).acc#, 100.0/ frameTime#)
         else
            Player(i).acc# = curvevalue(0.0, Player(i).acc#, 100.0/ frameTime#)
         endif


         if keystate(Player(i).LeftTurnKey)
            Player(i).turnRate# = curvevalue(-0.360, Player(i).turnRate#, 500.0 / frameTime#)
         else
            if keystate(Player(i).RightTurnKey)
               Player(i).turnRate# = curvevalue(0.360, Player(i).turnRate#, 500.0 / frameTime#)
            else
               `niether direction being pressed
               Player(i).turnRate# = curvevalue(0.0, Player(i).turnRate#, 100.0 / frameTime#)
            endif
         endif

         inc Player(i).angle#, Player(i).turnRate# * frameTime#

         `Update speed based on angle and if thrusting
         inc Player(i).sX#, sin(Player(i).angle#) * Player(i).acc# * frameTimeS#
         inc Player(i).sZ#, cos(Player(i).angle#) * Player(i).acc# * frameTimeS#

         `Update Speed based on gravity effect
         fX# = 0.0 : fZ# = 0.0
         for j = 1 to SPHERE_COUNT
            DistX# = Spheres(j).x# - Player(i).x#
            DistZ# = Spheres(j).z# - Player(i).z#
            set vector2 1, DistX#, DistZ#
            Dist# = length vector2(1)
            if Dist# < 1.0 then Dist# = 1.0

            `XZ Components of Grav
            Grav# = SPHERE_MASS * Player(i).mass# / (Dist# * Dist#) * 0.5
            xGrav# = Grav# * DistX# / Dist#
            zGrav# = Grav# * DistZ# / Dist#

            inc fX#, xGrav#
            inc fZ#, zGrav#
         next j
         inc Player(i).sX#, (fX# / SPHERE_MASS) * frameTimeS#
         inc Player(i).sZ#, (fZ# / SPHERE_MASS) * frameTimeS#

      endif




      `Update position based on overall speed
      inc Player(i).x#, Player(i).sX# * frameTimeS#
      inc Player(i).z#, Player(i).sZ# * frameTimeS#

      `Check if player has hit the target
      if object collision(obj, active_target + SPHERE_COUNT)
         current_target = active_target
         active_target = rnd(SPHERE_COUNT-1)+1
         if current_target = active_target
            if active_target < SPHERE_COUNT then inc active_target else dec active_target
         endif

         if active_target > SPHERE_COUNT then active_target = 1
         for j = 1 to SPHERE_COUNT
            t_obj = j + SPHERE_COUNT
            if j = active_target
               set object diffuse t_obj, rgb(255.0, 255.0, 0.0)
            else
               set object diffuse t_obj, rgb(32.0, 32.0, 0.0)
            endif
            set object specular power t_obj, 100
            set object specular t_obj, rgb(255,255,255)
         next j
         gosub INITIALISE_GHOST_TARGET
      endif


      `Check of off the left or right
      if Player(i).x# < -(S_WIDTH#*0.5)
         Player(i).x# = S_WIDTH#*0.5
      else
         if Player(i).x# > S_WIDTH#*0.5
            Player(i).x# = -S_WIDTH#*0.5
         endif
      endif


      `Check if off top or bottom
      if Player(i).z# < -(S_HEIGHT#*0.5)
         Player(i).z# = S_HEIGHT#*0.5
      else
         if Player(i).z# > S_HEIGHT#*0.5
            Player(i).z# = -S_HEIGHT#*0.5
         endif
      endif

      position object obj, Player(i).x#, object position y(obj), Player(i).z#
      yrotate object obj, Player(i).angle#



      `Thruster Stuff
      position object obj+10, Player(i).x#, object position y(obj), Player(i).z#
      Player(i).accAngle# = curveangle(Player(i).angle#+180.0, Player(i).accAngle#, 100.0 / frameTime#)
      yrotate object obj+10, Player(i).accAngle#
      scale object obj+10, 25, 25, Player(i).acc# * 25.0

      `Thruster Light
      position light i, Player(i).x#, object position y(obj), Player(i).z#
      set light range i, Player(i).acc#+4.0
   next i
return






function SpherePositionOk(j)
   null = make vector3(1)
   for i = 1 to j-1
      set vector3 1, Spheres(j).x# - Spheres(i).x#, Spheres(j).y# - Spheres(i).y#, Spheres(j).z# - Spheres(i).z#
      if length vector3(1) < 3.0
         null = delete vector3(1)
         exitfunction 0
      endif
   next j
   null = delete vector3(1)
endfunction 1