Sorry your browser is not supported!

Rem Project: fps challenge
Rem Created: 18/01/2006 17:40:49

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

set display mode 1024,768,32
sync rate 60
hide mouse
set camera range 0.2,20000
backdrop on
color backdrop 0
autocam off
sync on
position camera 64,30,-64
hide light 0
make light 1
set ambient light 30
make object cube 1,1
hide object 1
make object collision box 1,-0.5,-0.5,-0.5,0.5,0.5,0.5,0
set object collision on 1
Make Object plain 2,128,128
Position Object 2,64,0,64
xrotate object 2,-90
grid=free_image()
ink rgb(255,255,255),0
box 0,0,500,500
ink rgb(200,200,200),0
for x=0 to 500 step 20
for y=0 to 500 step 20
box x,y,x+10,y+10
next y
next x
get image grid,0,0,500,500

createsound("foot steps",2,200,20,8000,.1,4.0,2.1,10,9.2,9.2,10)

scalefactor#=0.99
global mx#

type objecttype
 boxx as float
 boxy as float
 boxz as float
 scalex as float
 scaley as float
 scalez as float
 scaleu as float
 scalev as float
 scaledu as float
 scaledv as float
 storeuscale as float
 storevscale as float
 texture as integer
 typeofobject as string
 endtype

gosub make_texture_sprites
texture object 2,plaster


gosub make_game_environment
sync
text 0,0,"Calculating shadows: (approx 30 seconds)"
sync
`gosub calculate_shadows
sync


create bitmap 1,250,250
cls
for n=0 to 250
  ink rgb(n,n,250),0
  line 0,n,250,n
next n
skyimage=free_image()
get image skyimage,0,0,250,250
sphere3=free_object()
delete bitmap 1
make object sphere sphere3,10000
set object collision off sphere3
set object cull sphere3,0
texture object sphere3,skyimage
scale object texture sphere3,1,1.8
set object light sphere3,0
set object fog sphere3,0

position object 1,64.9,3,3.6


`make rifle
make object cylinder 2000,1
scale object 2000,80,1500,80
set object cull 2000,0
color object 2000,rgb(40,30,20)
xrotate object 2000,90
fix object pivot 2000
position object 2000,0,10,0
set object collision off 2000
disable object zdepth 2000

`dummy object for crosshairs
make object cube 4000,1
hide object 4000

`make bullets
numberofbullets=60
bulletseed=3000
dim bullet(numberofbullets+bulletseed) as usertype

type usertype

  xspeed as float
  yspeed as float
  inflight as boolean
  dist as float

endtype

type targettype

 speed as float

endtype

numberofenemies=30
enemyseed=6000
dim target(enemyseed+1+numberofenemies) as targettype
for target=enemyseed+1 to numberofenemies+enemyseed
make object cube target,3
set object collision on target
texture object target,wood
position object target,rnd(128),1,rnd(128)
next target

for bullet=1+bulletseed to numberofbullets+bulletseed
make object sphere bullet,1
position object bullet,0,10,0
set object collision on bullet
next bullet

bulletnumber=bulletseed+1
power#=20
reload=6
gravity#=0.02



createsound("explode",1,6200,7000,2000,20,0.2,0,0,0,0,10)
createsound("gun1",3,60,200,6000,0.001,1.2,.0,0,0,0,10)
createsound("gun2",4,2000,200,3000,-200,1.2,.0,0,0,0,10)



do
mx#=mousemovex()
my#=mousemovey()
gosub movement
collision()
gosub demolition
gosub update_target
gosub aim
gosub fire
gosub update_bullet
text 0,0,str$(screen fps())
sync
loop

demolition:

target=pick object(object screen x(4000),object screen y(4000),enemyseed+1,enemyseed+numberofenemies)
if mouseclick()=1 and target>0
target_hit=1
target(target).speed=0.2
endif

return

update_target:

if target_hit=1 and target>0
  if target(target).speed>0
    yang#=object angle y(target)
    yrotate object target,object angle y(2000)
    move object target,target(target).speed
    if object collision(target,0)>0 and object collision(target,0)<>2
    move object target,-target(target).speed
    endif
    dec target(target).speed,0.01
    yrotate object target,yang#
  endif
  if target(target).speed<=0
   target_hit=0
  endif
endif

return

aim:


position object 4000,object position x(1),object position y(1),object position z(1)
set object to object orientation 4000,1
move object 4000,200
line object screen x(4000)-5,object screen y(4000),object screen x(4000)+5,object screen y(4000)
line object screen x(4000),object screen y(4000)-5,object screen x(4000),object screen y(4000)+5
position object 2000,object position x(1),object position y(1)-1,object position z(1)
point object 2000,object position x(4000),object position y(4000)+4,object position z(4000)

return

fire:
inc reload_time
if mouseclick()=1 and bullet(bulletnumber).inflight=0 and reload_time>reload
  position object bulletnumber,object position x(2000),object position y(2000),object position z(2000)
  set object to object orientation bulletnumber,2000
  bullet(bulletnumber).xspeed=power#
  bullet(bulletnumber).inflight=1
  play sound 3:play sound 4
  inc bulletnumber
  reload_time=0
  if bulletnumber>numberofbullets+bulletseed then bulletnumber=1+bulletseed
endif


return

update_bullet:

for updatebullet=1+bulletseed to numberofbullets+bulletseed
  if bullet(updatebullet).inflight=1
    move object updatebullet,bullet(updatebullet).xspeed
    inc bullet(updatebullet).yspeed,gravity#
    inc bullet(updatebullet).dist,bullet(updatebullet).xspeed
    move object down updatebullet,bullet(updatebullet).yspeed
    if bullet(updatebullet).dist>600
      bullet(updatebullet).inflight=0
      bullet(updatebullet).xspeed=0
      bullet(updatebullet).yspeed=0
      position object updatebullet,0,-10,0
      reload_time=0
    endif
  endif
next updatebullet

return

function free_object

repeat
inc n
until object exist(n)=0

endfunction n



movement:

speed#=0
if upkey()=1 then speed#=0.2
if downkey()=1 then speed#=-0.2
yrotate object 1,object angle y(1)+mx#/2.0
xrotate object 1,object angle x(1)+my#/2.0

`if inkey$()="a" then position object 1,object position x(1),object position y(1)+0.1,object position z(1)
`if inkey$()="z" then position object 1,object position x(1),object position y(1)-0.11,object position z(1)

`reposition dummy object
position object 1,object position x(1)+speed#*sin(object angle y(1)),object position y(1),object position z(1)+speed#*cos(object angle y(1))
if leftkey()=1 then move object left 1,0.2
if rightkey()=1 then move object right 1,0.2
`set camera to dummy object's position and orientation
position camera object position x(1),object position y(1),object position z(1)
yrotate camera object angle y(1)

`play footstep sound and bounce camera

  if speed#<>0 and footsteptimer=0
    play sound 2
    bounce#=0
  endif
  inc footsteptimer
  if speed#<>0 then inc bounce#,0.003
  if  footsteptimer>20 then footsteptimer=0


return



calculate_shadows:
undim pixelshaded1(128,128)
undim pixelshaded2(128,128)
dim pixelshaded1(128,128)
dim pixelshaded2(128,128)
if light1>0
create bitmap 1,128,128
set current bitmap 1
ink rgb(255,255,255),0
box 0,0,128,128
ink rgb(10,10,10),0
for y=0 to 128
for x=0 to 128
for object=3 to numberofobjects+2
if object exist(object)=1
if object<>light1 and object<>light2
ray1#=intersect object(object,x,0,y,object position x(light1),object position y(light1),object position z(light1))
if light2>0 then ray2#=intersect object(object,x,0,y,object position x(light2),object position y(light2),object position z(light2)) else ray2=0
if ray1#=0 then ray1#=1000
if ray1#<0 then ray1#=1
if ray2#=0 then ray2#=1000
if ray2#<0 then ray2#=1
if ray1#<=100 and ray2#>100
  tone=100+ray1#*2
  if pixelshaded2(x,y)=1 or pixelshaded1(x,y)=1 then tone=tone/1.5
  if tone>255 then tone=255
  ink rgb(tone,tone,tone),0
  dot x,128-y
  pixelshaded1(x,y)=1
endif
if ray2#<=100 and ray1#>100
  tone=100+ray2#*2
  if pixelshaded1(x,y)=1 or pixelshaded2(x,y)=1 then tone=tone/1.5
  if tone>255 then tone=255
  ink rgb(tone,tone,tone),0
  dot x,128-y
  pixelshaded2(x,y)=1
endif
if ray1#<=100 and ray2#<=100
  tone=50+(ray1#+ray2#)
  if tone>255 then tone=255
  ink rgb(tone,tone,tone),0
  dot x,128-y
endif
endif
endif
next object
next x
next y
blur bitmap 1,3
shadowmap=free_image()
get image shadowmap,0,0,128,128
delete bitmap 1
set light mapping on 2,shadowmap
endif `(light1 exist)

return

function free_image()

repeat
 inc image
until image exist(image)=0

endfunction image



make_texture_sprites:

create bitmap 1,64,64

whitesquare=free_sprite()
ink rgb(255,255,255),0
box 0,0,32,32
get image whitesquare,0,0,32,32

`grass

ink rgb(0,105,0),0
box 0,0,64,64
for n=1 to 500
x=rnd(64)
y=rnd(64)
ink rgb(rnd(40),50+rnd(150),rnd(40)),0
dot x,y
next n
blur bitmap 1,1
grass=free_sprite()
get image grass,0,0,64,64

`sandstone
ink rgb(200,100,0),0
box 0,0,64,64
for n=1 to 500
x=rnd(64)
y=rnd(64)
ink rgb(100,70,rnd(30)),0
dot x,y
next n
blur bitmap 1,3
sandstone=free_sprite()
get image sandstone,0,0,64,64

`wood
ink rgb(200,150,120),0
box 0,0,64,64
for n=1 to 40
a=rnd(64)
b=a+rnd(10)-5
ink rgb(100,50,rnd(50)),0
line a,0,b,64
next n
blur bitmap 1,3
wood=free_sprite()
get image wood,0,0,64,64



`mesh

ink 0,0
box 0,0,64,64
ink rgb(150,150,150),0
for x=1 to 64 step 8
line 0,x,64,x
line x,0,x,64
next x
blur bitmap 1,3
mesh=free_sprite()
get image mesh,0,0,64,64

`marble
ink rgb(200,230,230),0
box 0,0,64,64
for n=1 to 500
x=rnd(64)
y=rnd(64)
ink rgb(150+rnd(20),150+rnd(20),150+rnd(20)),0
box x,y,x+rnd(5),y+rnd(5)
next n
blur bitmap 1,3
marble=free_sprite()
get image marble,0,0,64,64

`plaster
ink rgb(240,220,210),0
box 0,0,64,64
for n=1 to 500
x=rnd(64)
y=rnd(64)
ink rgb(200+rnd(20),190+rnd(20),180+rnd(20)),0
box x,y,x+rnd(5),y+rnd(5)
next n
blur bitmap 1,3
plaster=free_sprite()
get image plaster,0,0,64,64


`concrete
ink rgb(180,180,180),0
box 0,0,64,64
for n=1 to 200
x=rnd(64)
y=rnd(64)
ink rgb(150+rnd(100),150+rnd(100),150+rnd(100)),0
dot x,y
next n
blur bitmap 1,3
concrete=free_sprite()
get image concrete,0,0,64,64

`brick
ink rgb(250,150,100),0
box 0,0,64,64
for n=1 to 600
x=rnd(64)
y=rnd(64)
ink rgb(125,75,rnd(50)),0
dot x,y
next n
ink rgb(230,230,230),0
for y=1 to 61 step 10
line 0,y,64,y
for x=0 to 64 step 6+rnd(4)
line x,y,x,y+10
next x
next y
blur bitmap 1,3
brick=free_sprite()
get image brick,0,0,64,64

`colours
box 0,0,64,64,rgb(250,0,0),rgb(0,255,0),rgb(0,0,255),rgb(255,255,0)
colours=free_sprite()
get image colours,0,0,64,64

`stones
ink rgb(220,200,190),0
box 0,0,64,64
for n=1 to 500
x=rnd(64)
y=rnd(64)
ink rgb(180+rnd(20),170+rnd(20),160+rnd(20)),0
box x,y,x+rnd(5),y+rnd(5)
next n
ink rgb(250,250,250),0
for y=1 to 61 step 10
line 0,y,64,y
for x=0 to 64 step 6+rnd(4)
line x,y,x,y+10
next x
next y
blur bitmap 1,2
stones=free_sprite()
get image stones,0,0,64,64


`white
ink rgb(255,255,255),0
box 0,0,64,64
white=free_sprite()
get image white,0,0,64,64

`red
ink rgb(255,0,0),0
box 0,0,64,64
red=free_sprite()
get image red,0,0,64,64

delete bitmap 1


return



make_game_environment:


read numberoflights$
numberoflights=val(numberoflights$)
read lightx$
lightx#=val(lightx$)
read lighty$
lighty#=val(lighty$)
read lightz$
lightz#=val(lightz$)
position light 1,lightx#,lighty#,lightz#
if numberoflights=2
  read lightx$
  lightx#=val(lightx$)
  read lighty$
  lighty#=val(lighty$)
  read lightz$
  lightz#=val(lightz$)
  if light exist(2)=0 then make light 2
  position light 2,lightx#,lighty#,lightz#
endif
read numberofobjects$
numberofobjects=val(numberofobjects$)
undim object(numberofobjects+2)
dim object(numberofobjects+2) as objecttype
for object=3 to numberofobjects+2

    read typeofobject$
    object(object).typeofobject=typeofobject$
    if typeofobject$="cube" then make object cube object,5
    if typeofobject$="box"
      read boxx$
      boxx#=val(boxx$)
      read boxy$
      boxy#=val(boxy$)
      read boxz$
      boxz#=val(boxz$)
      make object box object,boxx#,boxy#,boxz#
      object(object).boxx=boxx#
      object(object).boxy=boxy#
      object(object).boxz=boxz#
    endif
    if typeofobject$="sphere" then make object sphere object,5,10,10
    if typeofobject$="cone" then make object cone object,5
    if typeofobject$="cylinder" then make object cylinder object,5
    if typeofobject$="light"
      make object sphere object,2,10,10
      color object object,rgb(255,255,0)
      set object light object,0
      if light1=0 then light1=object else light2=object
    endif
    read x$
    x#=val(x$)
    read y$
    y#=val(y$)
    read z$
    z#=val(z$)
    position object object,x#,y#,z#
    read anglex$
    anglex#=val(anglex$)
    read angley$
    angley#=val(angley$)
    read anglez$
    anglez#=val(anglez$)
    rotate object object,anglex#,angley#,anglez#
    read scalex$
    scalex#=val(scalex$)
    read scaley$
    scaley#=val(scaley$)
    read scalez$
    scalez#=val(scalez$)
    scale object object,100+scalex#,100+scaley#,100+scalez#
    object(object).scalex=scalex#
    object(object).scaley=scaley#
    object(object).scalez=scalez#
    read scaleu$
    scaleuval=val(scaleu$)
    read scalev$
    scalevval=val(scalev$)
    object(object).scaleu=scaleuval
    object(object).scalev=scalevval
    scale object texture object,scalefactor#^scaleuval,scalefactor#^scalevval
    read texturename$
    texture=val(texturename$)
    object(object).texture=texture
    texture object object,texture
    set object collision on object

`text 0,0,"Building map: "
sync
`wait 100
next object


return

function free_sprite

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

endfunction n


data "1"
data "136"
data "104"
data "232"
data "140"
data "box"
data "4.99999952316"
data "19.9999980927"
data "4.99999952316"
data "64"
data "4"
data "0"
data "0"
data "0"
data "0"
data "2439"
data "-60"
data "-56"
data "-207"
data "0"
data "12"
data "box"
data "126.499977112"
data "7.99999904633"
data "1.99999976158"
data "64"
data "0"
data "124"
data "0"
data "0"
data "0"
data "0"
data "-44"
data "0"
data "-210"
data "-43"
data "12"
data "light"
data "136"
data "104"
data "232"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "box"
data "4.99999952316"
data "19.9999980927"
data "4.99999952316"
data "128"
data "4"
data "64"
data "0"
data "0"
data "0"
data "-30"
data "-53"
data "2432"
data "-182"
data "0"
data "12"
data "box"
data "1.99999976158"
data "7.99999904633"
data "125.999984741"
data "1"
data "4"
data "63"
data "0"
data "0"
data "0"
data "-4"
data "0"
data "6"
data "-224"
data "0"
data "12"
data "box"
data "1.79999947548"
data "7.99999809265"
data "125.999969482"
data "86"
data "0"
data "64"
data "0"
data "0"
data "0"
data "-48"
data "0"
data "-70"
data "-120"
data "0"
data "12"
data "box"
data "1.79999935627"
data "7.99999761581"
data "125.999961853"
data "64"
data "10"
data "52"
data "0"
data "0"
data "0"
data "2342"
data "-43"
data "-90"
data "0"
data "0"
data "7"
data "box"
data "43.9199790955"
data "3.99999856949"
data "12.5999956131"
data "64"
data "0"
data "80"
data "0"
data "0"
data "0"
data "2"
data "0"
data "-53"
data "0"
data "0"
data "7"
data "box"
data "43.9199752808"
data "3.99999833107"
data "5.0399980545"
data "64"
data "0"
data "44"
data "0"
data "0"
data "0"
data "-55"
data "10"
data "-14"
data "50"
data "0"
data "7"
data "box"
data "17.5679893494"
data "3.19999837875"
data "4.0319981575"
data "64"
data "-1"
data "40"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "59"
data "0"
data "13"
data "box"
data "17.567987442"
data "3.19999814034"
data "4.03199768066"
data "64"
data "0"
data "42"
data "0"
data "0"
data "0"
data "0"
data "-23"
data "0"
data "50"
data "0"
data "7"
data "box"
data "17.5679855347"
data "2.23999834061"
data "4.03199720383"
data "44"
data "0"
data "68"
data "0"
data "0"
data "0"
data "-77"
data "80"
data "376"
data "0"
data "0"
data "7"
data "box"
data "3.51359701157"
data "4.03199625015"
data "18.95038414"
data "71"
data "0"
data "68"
data "0"
data "0"
data "0"
data "753"
data "0"
data "2"
data "0"
data "0"
data "7"
data "box"
data "29.9709777832"
data "4.03199529648"
data "19.3293876648"
data "42"
data "1"
data "64"
data "0"
data "0"
data "0"
data "-96"
data "40"
data "94"
data "-114"
data "0"
data "12"
data "box"
data "1.1988389492"
data "5.6447930336"
data "37.4990081787"
data "86"
data "12"
data "64"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "-93"
data "0"
data "8"
data "box"
data "1.19883882999"
data "5.64479255676"
data "37.499004364"
data "42"
data "12"
data "64"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "-119"
data "0"
data "8"
data "box"
data "1.19883871078"
data "5.64479207993"
data "37.4990005493"
data "86"
data "6"
data "48"
data "0"
data "0"
data "0"
data "-3"
data "14"
data "-83"
data "44"
data "0"
data "8"
data "box"
data "1.15088498592"
data "6.32216644287"
data "5.99983930588"
data "86"
data "6"
data "58"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "87"
data "0"
data "8"
data "box"
data "1.15088486671"
data "6.32216596603"
data "5.99983882904"
data "86"
data "6"
data "80"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "107"
data "0"
data "8"
data "box"
data "1.15088474751"
data "6.3221654892"
data "5.9998383522"
data "86"
data "6"
data "68"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "105"
data "0"
data "8"
data "box"
data "1.1508846283"
data "6.32216501236"
data "5.99983787537"
data "42"
data "6"
data "48"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "8"
data "box"
data "1.15088450909"
data "6.32216453552"
data "5.99983739853"
data "42"
data "6"
data "58"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "8"
data "box"
data "1.15088438988"
data "6.32216405869"
data "5.99983692169"
data "42"
data "6"
data "80"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "8"
data "box"
data "1.15088427067"
data "6.32216358185"
data "5.99983644485"
data "42"
data "6"
data "68"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "8"
data "box"
data "1.15088415146"
data "6.32216310501"
data "5.99983596802"
data "74"
data "8"
data "48"
data "0"
data "0"
data "0"
data "-18"
data "122"
data "93"
data "0"
data "0"
data "8"
data "box"
data "0.920707285404"
data "13.9087581635"
data "7.67978954315"
data "54"
data "8"
data "48"
data "0"
data "0"
data "0"
data "32"
data "0"
data "59"
data "0"
data "0"
data "8"
data "box"
data "0.9207072258"
data "13.9087572098"
data "7.67978906631"
data "60"
data "8"
data "64"
data "0"
data "0"
data "0"
data "-1"
data "0"
data "28"
data "0"
data "0"
data "8"
data "box"
data "0.920707166195"
data "13.9087562561"
data "7.67978858948"
data "60"
data "8"
data "76"
data "0"
data "0"
data "0"
data "11"
data "0"
data "83"
data "0"
data "0"
data "8"
data "box"
data "1.28898990154"
data "13.9087553024"
data "14.1308107376"
data "74"
data "8"
data "66"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "8"
data "box"
data "1.28898966312"
data "13.9087533951"
data "14.1308088303"
data "74"
data "8"
data "78"
data "0"
data "0"
data "0"
data "2"
data "0"
data "-27"
data "0"
data "0"
data "8"
data "box"
data "1.31476926804"
data "13.9087524414"
data "10.1741819382"
data "74"
data "12"
data "56"
data "0"
data "0"
data "0"
data "3"
data "-58"
data "-35"
data "0"
data "0"
data "12"
data "box"
data "1.34106445313"
data "5.84167528152"
data "6.51147603989"
data "82"
data "8"
data "51"
data "0"
data "0"
data "0"
data "479"
data "135"
data "-88"
data "0"
data "0"
data "8"
data "box"
data "7.75135231018"
data "13.6695184708"
data "0.781377077103"
data "59"
data "8"
data "59"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "8"
data "box"
data "7.75135183334"
data "13.6695175171"
data "0.781377017498"
data "71"
data "8"
data "59"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "8"
data "box"
data "7.75135135651"
data "13.6695165634"
data "0.781376957893"
data "51"
data "8"
data "59"
data "0"
data "0"
data "0"
data "36"
data "18"
data "-3"
data "0"
data "0"
data "8"
data "box"
data "6.2010807991"
data "13.6695156097"
data "0.734494268894"
data "80"
data "12"
data "45"
data "0"
data "0"
data "0"
data "113"
data "-58"
data "-40"
data "0"
data "0"
data "8"
data "box"
data "11.1619443893"
data "5.74119567871"
data "0.440696537495"
data "48"
data "12"
data "45"
data "0"
data "0"
data "0"
data "18"
data "0"
data "2"
data "0"
data "0"
data "8"
data "box"
data "13.1710929871"
data "5.74119520187"
data "0.449510425329"
data "64"
data "12"
data "42"
data "0"
data "0"
data "0"
data "51"
data "0"
data "-2"
data "3"
data "0"
data "8"
data "box"
data "19.7566375732"
data "5.74119472504"
data "0.440520197153"
data "64"
data "11"
data "83"
data "0"
data "0"
data "0"
data "129"
data "39"
data "-18"
data "-136"
data "-72"
data "8"
data "box"
data "45.0451278687"
data "7.92284822464"
data "0.422899335623"
data "64"
data "-1"
data "83"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "-145"
data "-54"
data "12"
data "box"
data "45.045124054"
data "7.9228477478"
data "0.42289930582"
data "63"
data "12"
data "59"
data "0"
data "0"
data "0"
data "-84"
data "-27"
data "15"
data "0"
data "0"
data "8"
data "box"
data "7.20721912384"
data "5.70445013046"
data "0.744302690029"
data "45"
data "5"
data "83"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "8"
data "box"
data "7.207218647"
data "5.70444965363"
data "0.744302630424"
data "57"
data "5"
data "83"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "8"
data "box"
data "7.20721817017"
data "5.70444917679"
data "0.74430257082"
data "71"
data "5"
data "83"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "8"
data "box"
data "7.20721769333"
data "5.70444869995"
data "0.744302511215"
data "83"
data "5"
data "83"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "8"
data "box"
data "7.20721721649"
data "5.70444822311"
data "0.744302451611"
data "85"
data "6"
data "45"
data "0"
data "0"
data "0"
data "-56"
data "30"
data "-9"
data "0"
data "0"
data "8"
data "box"
data "3.02703094482"
data "6.95942640305"
data "0.714530289173"
data "76"
data "6"
data "45"
data "0"
data "0"
data "0"
data "0"
data "8"
data "0"
data "0"
data "0"
data "8"
data "box"
data "3.02703070641"
data "6.95942592621"
data "0.714530229568"
data "73"
data "6"
data "42"
data "0"
data "0"
data "0"
data "0"
data "44"
data "0"
data "133"
data "5"
data "8"
data "box"
data "3.02703046799"
data "10.0215730667"
data "0.714530169964"
data "55"
data "6"
data "42"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "136"
data "-6"
data "8"
data "box"
data "3.02703022957"
data "10.021572113"
data "0.714530110359"
data "43"
data "6"
data "45"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "8"
data "box"
data "3.02702999115"
data "10.0215711594"
data "0.714530050755"
data "52"
data "5"
data "45"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "8"
data "box"
data "3.02702975273"
data "10.0215702057"
data "0.71452999115"
data "48"
data "0"
data "45"
data "0"
data "0"
data "0"
data "312"
data "-1"
data "2"
data "0"
data "0"
data "12"
data "box"
data "12.4713611603"
data "4.81035327911"
data "0.728820502758"
data "80"
data "0"
data "45"
data "0"
data "0"
data "0"
data "0"
data "108"
data "0"
data "9"
data "0"
data "12"
data "box"
data "12.4713602066"
data "4.81035280228"
data "0.728820443153"
data "64"
data "12"
data "45"
data "0"
data "0"
data "0"
data "69"
data "0"
data "-6"
data "0"
data "0"
data "12"
data "box"
data "20.951883316"
data "4.81035232544"
data "0.685091137886"
data "70"
data "7"
data "46"
data "0"
data "0"
data "0"
data "-66"
data "222"
data "-64"
data "0"
data "0"
data "13"
data "box"
data "7.12364006042"
data "15.4893341064"
data "0.246632799506"
data "58"
data "7"
data "46"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "13"
data "cone"
data "73"
data "0"
data "38"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "8"
data "cone"
data "55"
data "0"
data "38"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "8"
data "cylinder"
data "70"
data "6"
data "43"
data "0"
data "0"
data "0"
data "-78"
data "234"
data "-78"
data "0"
data "77"
data "7"
data "cylinder"
data "58"
data "6"
data "43"
data "0"
data "0"
data "0"
data "-77"
data "239"
data "-77"
data "0"
data "65"
data "7"
data "box"
data "4.99999952316"
data "19.9999980927"
data "4.99999952316"
data "64"
data "15"
data "65"
data "0"
data "0"
data "0"
data "885"
data "-86"
data "860"
data "-197"
data "-35"
data "5"
data "box"
data "49.1499862671"
data "1.599999547"
data "47.5999908447"
data "32"
data "4"
data "124"
data "0"
data "0"
data "0"
data "-96"
data "403"
data "-96"
data "0"
data "0"
data "12"
data "box"
data "1.96599924564"
data "8.03199672699"
data "1.90399944782"
data "44"
data "4"
data "124"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "12"
data "box"
data "1.96599912643"
data "8.03199577332"
data "1.90399932861"
data "68"
data "4"
data "124"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "12"
data "box"
data "1.96599900723"
data "8.03199481964"
data "1.9039992094"
data "20"
data "4"
data "124"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "12"
data "box"
data "1.96599888802"
data "8.03199386597"
data "1.90399909019"
data "8"
data "4"
data "124"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "12"
data "box"
data "1.96599876881"
data "8.03199291229"
data "1.90399897099"
data "80"
data "4"
data "124"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "12"
data "box"
data "1.9659986496"
data "8.03199195862"
data "1.90399885178"
data "56"
data "4"
data "124"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "12"
data "box"
data "1.96599853039"
data "8.03199100494"
data "1.90399873257"
data "92"
data "4"
data "124"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "12"
data "box"
data "1.96599841118"
data "8.03199005127"
data "1.90399861336"
data "104"
data "4"
data "124"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "12"
data "box"
data "1.96599829197"
data "8.0319890976"
data "1.90399849415"
data "116"
data "4"
data "124"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "12"
data "box"
data "1.96599817276"
data "8.03198814392"
data "1.90399837494"
data "66"
data "9"
data "125"
data "0"
data "0"
data "0"
data "6403"
data "-68"
data "115"
data "-227"
data "4"
data "12"
data "box"
data "127.829185486"
data "2.57023596764"
data "4.07455635071"
data "16"
data "4"
data "100"
data "0"
data "0"
data "0"
data "-70"
data "408"
data "-58"
data "0"
data "0"
data "10"
data "box"
data "30.6790027618"
data "12.9539880753"
data "1.6298224926"
data "16"
data "4"
data "80"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "10"
data "box"
data "30.6790008545"
data "12.9539871216"
data "1.62982237339"
data "15"
data "4"
data "57"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "10"
data "box"
data "30.6789989471"
data "12.9539861679"
data "1.62982225418"
data "17"
data "4"
data "37"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "10"
data "box"
data "30.6789970398"
data "12.9539852142"
data "1.62982213497"
data "112"
data "3"
data "54"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "10"
data "box"
data "30.6789951324"
data "12.9539842606"
data "1.62982201576"
data "112"
data "4"
data "86"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "10"
data "box"
data "30.6789932251"
data "12.9539833069"
data "1.62982189655"
data "112"
data "4"
data "24"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "10"
data "box"
data "30.6789913177"
data "12.9539823532"
data "1.62982177734"
data "31"
data "3"
data "79"
data "0"
data "0"
data "0"
data "-96"
data "-2"
data "1010"
data "0"
data "0"
data "10"
data "box"
data "1.22715950012"
data "12.69490242"
data "18.0910205841"
data "31"
data "0"
data "57"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "10"
data "box"
data "1.22715938091"
data "12.6949014664"
data "18.0910186768"
data "31"
data "0"
data "34"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "10"
data "box"
data "1.2271592617"
data "12.6949005127"
data "18.0910167694"
data "31"
data "0"
data "102"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "10"
data "box"
data "1.22715914249"
data "12.694899559"
data "18.0910148621"
data "32"
data "8"
data "69"
data "0"
data "0"
data "0"
data "73"
data "-63"
data "246"
data "-74"
data "0"
data "10"
data "box"
data "2.1107134819"
data "4.57016372681"
data "62.594909668"
data "109"
data "9"
data "55"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "13"
data "box"
data "2.11071324348"
data "4.57016324997"
data "62.5949058533"
data "98"
data "9"
data "55"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "13"
data "box"
data "2.11071300507"
data "4.57016277313"
data "62.5949020386"
data "119"
data "9"
data "55"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "13"
data "box"
data "2.11071276665"
data "4.5701622963"
data "62.5948982239"
data "97"
data "2"
data "27"
data "0"
data "0"
data "0"
data "-15"
data "119"
data "-91"
data "0"
data "0"
data "5"
data "box"
data "1.7729985714"
data "9.9629535675"
data "5.00759124756"
data "97"
data "2"
data "39"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "1.77299845219"
data "9.96295261383"
data "5.00759077072"
data "97"
data "3"
data "54"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "1.77299833298"
data "9.96295166016"
data "5.00759029388"
data "97"
data "4"
data "84"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "1.77299821377"
data "9.96295070648"
data "5.00758981705"
data "97"
data "3"
data "70"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "1.77299809456"
data "9.96294975281"
data "5.00758934021"
data "124"
data "1"
data "3"
data "0"
data "0"
data "0"
data "64"
data "-81"
data "-52"
data "0"
data "0"
data "5"
data "box"
data "2.90771651268"
data "1.79333090782"
data "2.40364265442"
data "113"
data "1"
data "6"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "2.90771627426"
data "1.79333078861"
data "2.403642416"
data "114"
data "1"
data "16"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "2.90771603584"
data "1.7933306694"
data "2.40364217758"
data "105"
data "1"
data "21"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "cylinder"
data "4"
data "2"
data "2"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "-140"
data "0"
data "5"
data "box"
data "4.99999952316"
data "19.9999980927"
data "4.99999952316"
data "13"
data "1"
data "26"
data "0"
data "0"
data "0"
data "0"
data "-88"
data "0"
data "0"
data "0"
data "5"
data "box"
data "4.99999904633"
data "2.39999938011"
data "4.99999904633"
data "13"
data "3"
data "26"
data "0"
data "0"
data "0"
data "-53"
data "0"
data "-53"
data "0"
data "0"
data "5"
data "box"
data "2.29999947548"
data "2.39999914169"
data "2.29999947548"
data "20"
data "3"
data "54"
data "0"
data "0"
data "0"
data "-61"
data "249"
data "101"
data "0"
data "0"
data "5"
data "box"
data "0.873999714851"
data "8.35199642181"
data "4.59999847412"
data "20"
data "3"
data "47"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "0.873999655247"
data "8.35199546814"
data "4.59999799728"
data "20"
data "3"
data "43"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "0.873999595642"
data "8.35199451447"
data "4.59999752045"
data "20"
data "3"
data "39"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "0.873999536037"
data "8.35199356079"
data "4.59999704361"
data "13"
data "3"
data "40"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "0.873999476433"
data "8.35199260712"
data "4.59999656677"
data "13"
data "3"
data "44"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "0.873999416828"
data "8.35199165344"
data "4.59999608994"
data "19"
data "4"
data "76"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "0.873999357224"
data "8.35199069977"
data "4.5999956131"
data "19"
data "4"
data "72"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "0.873999297619"
data "8.35198974609"
data "4.59999513626"
data "9"
data "4"
data "77"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "0.873999238014"
data "8.35198879242"
data "4.59999465942"
data "9"
data "4"
data "73"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "0.87399917841"
data "8.35198783875"
data "4.59999418259"
data "8"
data "4"
data "60"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "0.873999118805"
data "8.35198688507"
data "4.59999370575"
data "8"
data "4"
data "64"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "0.8739990592"
data "8.3519859314"
data "4.59999322891"
data "9"
data "4"
data "103"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "0.873998999596"
data "8.35198497772"
data "4.59999275208"
data "9"
data "4"
data "112"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "0.873998939991"
data "8.35198402405"
data "4.59999227524"
data "9"
data "4"
data "116"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "0.873998880386"
data "8.35198307037"
data "4.5999917984"
data "9"
data "4"
data "120"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "0.873998820782"
data "8.3519821167"
data "4.59999132156"
data "16"
data "3"
data "111"
data "0"
data "0"
data "0"
data "1105"
data "40"
data "-70"
data "0"
data "0"
data "5"
data "box"
data "10.5229444504"
data "11.692773819"
data "1.37999737263"
data "14"
data "2"
data "105"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "10.5229434967"
data "11.6927728653"
data "1.37999725342"
data "10"
data "2"
data "70"
data "0"
data "0"
data "0"
data "-13"
data "0"
data "-1"
data "0"
data "0"
data "5"
data "box"
data "9.0497303009"
data "11.6927719116"
data "1.35239720345"
data "13"
data "1"
data "63"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "9.04972934723"
data "11.6927709579"
data "1.35239708424"
data "22"
data "1"
data "63"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "9.04972839355"
data "11.6927700043"
data "1.35239696503"
data "15"
data "1"
data "49"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "9.04972743988"
data "11.6927690506"
data "1.35239684582"
data "102"
data "3"
data "40"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "9.04972648621"
data "11.6927680969"
data "1.35239672661"
data "111"
data "3"
data "40"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "9.04972553253"
data "11.6927671432"
data "1.3523966074"
data "102"
data "1"
data "68"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "9.04972457886"
data "11.6927661896"
data "1.35239648819"
data "110"
data "3"
data "68"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "9.04972267151"
data "11.6927642822"
data "1.35239624977"
data "64"
data "11"
data "88"
data "0"
data "0"
data "0"
data "378"
data "-95"
data "812"
data "-158"
data "0"
data "5"
data "box"
data "43.2576713562"
data "0.467710524797"
data "12.3338527679"
data "65"
data "2"
data "52"
data "0"
data "0"
data "0"
data "4"
data "0"
data "6"
data "0"
data "0"
data "7"
data "sphere"
data "24.2539901733"
data "0"
data "-71.8710861206"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "7"
data "sphere"
data "64"
data "13"
data "42"
data "0"
data "0"
data "0"
data "-79"
data "-77"
data "-78"
data "0"
data "0"
data "13"
data "box"
data "4.99999952316"
data "19.9999980927"
data "4.99999952316"
data "64"
data "11"
data "41"
data "0"
data "0"
data "0"
data "160"
data "-89"
data "-92"
data "285"
data "0"
data "12"
data "box"
data "12.999997139"
data "1.99999976158"
data "0.399999916553"
data "64"
data "0"
data "42"
data "0"
data "0"
data "0"
data "223"
data "-45"
data "747"
data "0"
data "0"
data "7"
data "box"
data "41.8599891663"
data "1.0799998045"
data "3.38399910927"
data "44"
data "7"
data "42"
data "0"
data "0"
data "0"
data "-95"
data "1375"
data "-52"
data "0"
data "0"
data "7"
data "box"
data "1.67439937592"
data "15.9191961288"
data "1.62431943417"
data "84"
data "7"
data "42"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "7"
data "box"
data "1.67439925671"
data "15.9191951752"
data "1.62431931496"
data "83"
data "3"
data "91"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "1.6743991375"
data "15.9191942215"
data "1.62431919575"
data "45"
data "3"
data "91"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "1.67439901829"
data "15.9191932678"
data "1.62431907654"
data "71"
data "3"
data "91"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "1.67439889908"
data "15.9191923141"
data "1.62431895733"
data "57"
data "3"
data "91"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "0"
data "5"
data "box"
data "1.67439866066"
data "15.9191904068"
data "1.62431871891"
data "17"
data "11"
data "48"
data "0"
data "0"
data "0"
data "2222"
data "-96"
data "1462"
data "302"
data "0"
data "6"
data "box"
data "34.4926109314"
data "0.636767566204"
data "29.0103321075"
data "16"
data "11"
data "81"
data "0"
data "0"
data "0"
data "18"
data "0"
data "51"
data "312"
data "0"
data "6"
data "box"
data "40.7012748718"
data "0.636767506599"
data "43.5154953003"
data "111"
data "11"
data "55"
data "0"
data "0"
data "0"
data "-13"
data "0"
data "57"
data "0"
data "317"
data "6"



function createsound(name$,soundnumber,frequency#,length#,loudness#,bend#,decay#,vibratospeed#,vibratodepth#,tremelospeed#,tremelodepth#,attack#)

outWord as word
dword1 as dword: dword2 as dword: dword3 as dword: dword4 as dword
dword5 as dword: dword6 as dword: dword7 as dword

samples=int((length#/1000)*44100)

if memblock exist(1) then delete memblock 1
make memblock 1,samples*2+28

` write 28 memblock header bytes
dword1=1      ` gg query: is this the number of channels?
dword2=2      ` gg query: is this the number of bytes per sample?
dword3=22050  ` gg query: seems to be half the number of samples per second - why?
dword4=88200  ` gg query: is this the number of bytes per second?
dword5=4      ` gg query: what does this represent?
dword6=16     ` gg query:     (ditto)            ?
dword7=0      ` gg query:     (ditto)            ?

position=0
write memblock dword 1, position, dword1 : inc position,4
write memblock dword 1, position, dword2 : inc position,4
write memblock dword 1, position, dword3 : inc position,4
write memblock dword 1, position, dword4 : inc position,4
write memblock dword 1, position, dword5 : inc position,4
write memblock dword 1, position, dword6 : inc position,4
write memblock dword 1, position, dword7 : inc position,4

rem generate and write wave
riseinloudness#=loudness#
for x=1 to samples
  outInteger=int(sin((x/122.5)*(frequency#+vibratodepth#*sin(theta#)))*(loudness#-fallinloudness#-riseinloudness#+tremelodepth#*sin(phi#)))*3.0
  if outInteger <-32767 then outInteger=-32767  ` gg query: is this the valid range?
  if outInteger>32767 then outInteger=32767     ` gg query:       (ditto)          ?
  outWord=outInteger
  inc theta#,vibratospeed#
  inc phi#,tremelospeed#
  dec frequency#,bend#

  if fallinloudness#<loudness#
    inc fallinloudness#,decay#
  endif

  if riseinloudness#>0
    dec riseinloudness#,attack#
  endif

  write memblock word 1, position, outWord : inc position,2
next x

if sound exist(soundnumber)=1 then delete sound soundnumber

make sound from memblock 999, 1 ` assumes you won't need sound number 999!
clone sound soundnumber, 999
delete sound 999

` memblock no longer required
delete memblock 1

endfunction

function collision()


coll=object collision(1,0)


`apply sliding collision
if coll>1
position object 1,object position x(1)-get object collision x(),object position y(1),object position z(1)-get object collision z()
endif

endfunction

`Initialisation section
set display mode 1280, 1024, 32
sync on
sync rate 0
backdrop on
color backdrop 0
randomize timer()
autocam off
set camera range 0.1, 50.0

make memblock 1, 12 + (16*16*4)
write memblock dword 1, 0, 16
write memblock dword 1, 4, 16
write memblock dword 1, 8, 32
c as DWORD
for i = 0 to 15
   for j = 0 to 15
      a = 224 - (sqrt(  ((i - 7.5)*(i - 7.5)) + ((j - 7.5) * (j - 7.5))  ) * 24.0)
      if a < 0 then a = 0

      ang = abs(atanfull(i-8, j-8))
      print ang

      write memblock dword 1, 12 + ((j + (i*16))*4), rgb(255 - ang, ang,0) && ((a << 24) || 0x00FFFFFF)
   next j
  ` wait key
next i
make image from memblock 2, 1
delete memblock 1
sprite 1, 0, 0, 2
set sprite 1, 0, 1
offset sprite 1, 8, 8
hide sprite 1


C_SIZE = 256

make memblock 1, 13 + (C_SIZE*C_SIZE*4)
write memblock dword 1, 0, C_SIZE
write memblock dword 1, 4, C_SIZE
write memblock dword 1, 8, 32
c as dword
d as dword
SOFTNESS = 8
for i = 0 to C_SIZE-1
   for j = 0 to C_SIZE-1
      c = ((C_SIZE - abs(j - (C_SIZE-1-i))) * SOFTNESS) -  ((C_SIZE*SOFTNESS)-255)
      d = ((C_SIZE - abs(j - i)) * SOFTNESS) - ((C_SIZE*SOFTNESS)-255)
      if d > c then c = d
      if c < 0 then c = 0

      write memblock dword 1, 12 + ((j + (i*C_SIZE))*4), 0xFFFF0000 && ((c << 24) || 0x00FFFFFF)

   next j
next i
make image from memblock 3, 1
delete memblock 1
sprite 2, screen width() * 0.25, screen height() * 0.25, 3
size sprite 2, screen width() * 0.5, screen height() * 0.5
CROSS_ALPHA# = 0.0
set sprite alpha 2, 0.0



#Constant krtlt (rightkey()-leftkey()) ` returns a 1 if right or -1 if left
#Constant kupdn (upkey()-downkey()) ` returns a 1 if up or -1 if down or 0 if both or nothing

#Constant klrud (downkey()+(upkey()*2)+(rightkey()*4)+(leftkey()*8)) `returns binary result; bit 0=down, 1=up, 2=right, 3=left
#Constant kadws (keystate(31)+(keystate(17)*2)+(keystate(32)*4)+(keystate(30)*8)) `returns binary result; bit 0="s", 1="w", 2="d", 3="a"

#constant CamX camera position x()
#constant CamY camera position y()
#constant CamZ camera position z()


`Declare some types
type mazeCell
   N
   S
   E
   W
endtype
type Coord
   x
   y
endtype
`How many cells do we want?
#constant M_WIDTH 12
#constant M_HEIGHT 12
global MAP_SCALE#
MAP_SCALE# = 200.0 / M_HEIGHT

`Create a maze
dim Maze(M_WIDTH, M_HEIGHT) as mazeCell

`Generate the maze
GenerateMaze()











make object cylinder 1000, 1
make mesh from object 1000, 1000
add limb 1000, 1, 1000
add limb 1000, 2, 1000
add limb 1000, 3, 1000

offset limb 1000, 0,  5, 0, -5
offset limb 1000, 1,  5, 0,  5
offset limb 1000, 2, -5, 0, -5
offset limb 1000, 3, -5, 0,  5

scale object 1000, 100, 750, 100

lock object on 1000
position object 1000, 0, 0, 10
rotate object 1000, 90, 0, 0

`Player Angle
angle# = 0.0
target_angle = 0

`Player Target Position
target_x# = 1.0 : target_z# = 1.0

`Player Energy
#constant ENERGY_WIDTH 16
#constant ENERGY_HEIGHT 200
Dim EnergyArray(ENERGY_HEIGHT) as float
global EnergyLevel#  : EnergyLevel#  = ENERGY_HEIGHT
make memblock 2, 12 + (ENERGY_WIDTH * ENERGY_HEIGHT * 4)
write memblock dword 2, 0, ENERGY_WIDTH
write memblock dword 2, 4, ENERGY_HEIGHT
write memblock dword 2, 8, 32
`Draw side lines and fill in the middle with see-through red (that way we only need to rewrite the alpha channel later)
for i = 12 + (ENERGY_WIDTH * 4) to (ENERGY_WIDTH * ENERGY_HEIGHT * 4) + 8 step 4
   `j is the row, calculated from i...
   j = ((i - 12) / 4) MOD ENERGY_WIDTH

   `Test if edge of middle
   if j > 0 AND j < ENERGY_WIDTH - 1
      write memblock dword 2, i, 0x00FF0000
   else
      write memblock dword 2, i, 0xFFFFFFFF
   endif
next i
`Write the top row white
for i = 12 to 12 + (ENERGY_WIDTH * 4) step 4 : write memblock dword 2, i, 0xFFFFFFFF : next i
`Write the bottom row white
for i = 12 + (ENERGY_WIDTH * 4 * (ENERGY_HEIGHT-1)) to 11 + (ENERGY_WIDTH * 4 * ENERGY_HEIGHT) step 4 : write memblock dword 2, i, 0xFFFFFFFF : next i
updateEnergy()
`Make a sprite from it...
sprite 4, (M_WIDTH + 1) * MAP_SCALE#, 0, 10
`size sprite 4, ENERGY_WIDTH, M_HEIGHT * MAP_SCALE#



`MAKE CANNONS AND AMMO
#constant Y_OFFSET 0.034
#constant X_OFFSET 0.035
#constant Z_OFFSET 0.105

make object sphere 2000, 0.0075, 3, 3
hide object 2000
for i = 2001 to 2100
   instance object i, 2000
   `set object collision to polygons i
   set object collision off i

   hide object i
next i
firedOne# = 0.0




`Key states
UpKeyDown = 0
LastDirection = 0
LastMoveDirection = 0


MapPos as Coord
position camera target_x#, 0.0, target_z#
global frameTime#
frameTime# = 1.0
startTime = timer()
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()
   text MAP_SCALE# * (M_WIDTH + 3), 0,  "FPS: " + str$(screen fps())
   text MAP_SCALE# * (M_WIDTH + 3), 10, "Cam(x,y,z): " + str$(CamX) + ", " + str$(CamY) + ", " + str$(CamZ)
   text MAP_SCALE# * (M_WIDTH + 3), 20, "Obj(x,y,z): " + str$(objX#) + ", " + str$(objY#) + ", " + str$(objZ#) + ", SCALE: " + str$(objScale#)
   text MAP_SCALE# * (M_WIDTH + 3), 40, "MouseClick: " + str$(mouseclick())

   `Get the arrows and wasd keys for control of the player
   adws = kadws
   lrud = klrud
   `Masks:
   ` %1000 = Left
   ` %0100 = Right
   ` %0010 = Up
   ` %0001 = Down
   `Combinations allowed, eg: %1100 = Left and Right

   `Left/Right (AD/LR) only...
   adlr = ((adws && %1100) || (lrud && %1100))
   `Up/Down (UD/WS) only...
   udws = ((adws && %0011) || (lrud && %0011))


   if LastDirection <> adlr AND EnergyLevel# > 5.0
      LorR = 0
      if adlr = %1000 then LorR = -1 : `Left
      if adlr = %0100 then LorR =  1 : `Right
      if adlr = %1100 then LorR =  0 : `Both, so dont turn
      inc target_angle, 90 * LorR
      dec EnergyLevel#, 5.0
   endif
   LastDirection = adlr

   angle# = curvevalue(target_angle, angle#, 200.0 / frameTime#)
   yrotate camera angle#
   `Calculate a polar angle (0, 90, 180, 360) for use later
   polarAngle = target_angle mod 360
   if polarAngle < 0 then inc polarAngle, 360



   `Get the current position on the map
   MapPos.x = int(CamX+0.5)
   MapPos.y = int(CamZ+0.5)

   `Can we move? By default, no (1)... Best check for a wall in the polar target direction, if we can canMove=0
   canMove = 1
   select polarAngle
      case   0 : canMove = Maze(MapPos.x, MapPos.y).S : endcase
      case  90 : canMove = Maze(MapPos.x, MapPos.y).E : endcase
      case 180 : canMove = Maze(MapPos.x, MapPos.y).N : endcase
      case 270 : canMove = Maze(MapPos.x, MapPos.y).W : endcase
   endselect

   if EnergyLevel# < 20.0 then canMove = 1

   `If we have a 1, we have a wall!
   if canMove = 1
      CROSS_ALPHA# = curvevalue(255, CROSS_ALPHA#, 750.0 / frameTime#)
   else
      `Ok, now we need to move the target pointer based on the polar coord...
      select polarAngle
         case   0 : tX = MapPos.x   : tZ = MapPos.y+1 : endcase
         case  90 : tX = MapPos.x+1 : tZ = MapPos.y   : endcase
         case 180 : tX = MapPos.x   : tZ = MapPos.y-1 : endcase
         case 270 : tX = MapPos.x-1 : tZ = MapPos.y   : endcase
      endselect

     `Move in the correct direction (1 unit in the polar direction determined above)...
      if LastMoveDirection <> udws
         if udws = %0010
            dec EnergyLevel#, 20.0
            target_x# = tX
            target_z# = tZ
         endif
      endif
      LastMoveDirection = udws

      CROSS_ALPHA# = curvevalue(0, CROSS_ALPHA#, 100.0 / frameTime#)

   endif
   set sprite alpha 2, CROSS_ALPHA#

   `move the camers smoothly
   position camera curvevalue(target_x#, CamX, 200.0 / frameTime#), 0.0, curvevalue(target_z#, CamZ, 200.0 / frameTime#)

   `paste the map
   paste image 1, 0, 0, 1

   `Offset it to the right place for a spot on the overhead map
   circX# = (CamX-0.5) * MAP_SCALE#
   circY# = (M_HEIGHT * MAP_SCALE#) - (CamZ-0.5) * MAP_SCALE#

   rotate sprite 1, angle#+90
   paste sprite 1, circX#, circY#

   `Generate a new maze!! (CHEAT!!)
   `if spacekey() then GenerateMaze()
   inc firedOne#, frameTime#

   for i = 2000 to 2100
      if object visible(i)
         oldX# = object position x(i)
         oldY# = object position y(i)
         oldZ# = object position z(i)

         move object i, frameTime# * 0.001
         `text 600, (i-2000) * 10, "(" + str$(i-2000) + ", COLLISION: " + str$(object collision(i, 1))
         `io = intersect object(1,  oldX#, oldY#, oldZ#,    object position x(i), oldY#, object position z(i))
         `text 600, (i-2000) * 10, str$(i-2000) + ", COLLISION: " + str$(io)
         `if io then hide object i
      else
         if spacekey()
            if firedOne# > 100.0 AND EnergyLevel# > 10.0

               select rnd(3)
                  case 0 : x# = -X_OFFSET : y# =  Y_OFFSET : z# = Z_OFFSET : endcase
                  case 1 : x# = -X_OFFSET : y# = -Y_OFFSET : z# = Z_OFFSET : endcase
                  case 2 : x# =  X_OFFSET : y# =  Y_OFFSET : z# = Z_OFFSET : endcase
                  case 3 : x# =  X_OFFSET : y# = -Y_OFFSET : z# = Z_OFFSET : endcase
               endselect

               select polarAngle
                  case 90  : t# = z# : z# =  x# : x# =  t# : endcase
                  case 180 :           z# = -z# : x# = -x# : endcase
                  case 270 : t# = z# : z# = -x# : x# = -t# : endcase
               endselect


               position object i, x# + CamX, y# + CamY, z# + CamZ
               yrotate object i, polarAngle
               show object i
               firedOne# = 0.0
               dec EnergyLevel#, 10.0
            endif
         endif
      endif
   next i


   inc EnergyLevel#, frameTime# * 0.01
   if EnergyLevel# > ENERGY_HEIGHT then EnergyLevel# = ENERGY_HEIGHT
   updateEnergy()
   sync
loop
end














`*******************************
`**                           **
`**     UPDATE ENERGY BAR     **
`**                           **
`*******************************
function updateEnergy()
   for i = 1 to ENERGY_HEIGHT-2
      `If current line is less than the current energy level then fade towards full, else fade to clear
      if i <= EnergyLevel#
         EnergyArray(i) = curvevalue(255.0, EnergyArray(i), 1000.0 / frameTime#)
      else
         EnergyArray(i) = curvevalue(0.0, EnergyArray(i), 500.0 / frameTime#)
      endif

      ` Draw a line of this colour
      for j = 1 to ENERGY_WIDTH - 2
         p = 12 + ((j + (i * ENERGY_WIDTH)) * 4)
         write memblock byte 2, p+3, int(EnergyArray(i))
      next j
   next i
   make image from memblock 10, 2
endfunction











`*******************************
`**                           **
`**      MAZE GENERATION      **
`**                           **
`*******************************
function GenerateMaze()
   for i = 1 to M_WIDTH
      for j = 1 to M_HEIGHT
         Maze(i,j).N = 1
         Maze(i,j).S = 1
         Maze(i,j).E = 1
         Maze(i,j).W = 1
      next j
   next i

   dim CellStack() as Coord : empty array CellStack() : array index to stack CellStack()
   TotalCells = M_WIDTH * M_HEIGHT
   VisitedCells = 1
   currentCell as Coord
   currentCell.x = rnd(M_WIDTH-2)+1
   currentCell.y = rnd(M_HEIGHT-2)+1
   Dim Available(4)

   while VisitedCells < TotalCells
      Available(0) = 0
      Available(1) = 0
      Available(2) = 0
      Available(3) = 0
      found = 0
      if currentCell.y > 1
         tX = currentCell.x
         tY = currentCell.y-1
         if Maze(tx,ty).N = 1 AND Maze(tx,ty).S = 1 AND Maze(tx,ty).E = 1 AND Maze(tx,ty).W = 1
            inc found
            Available(0) = 1
         endif
      endif
      if currentCell.y < M_HEIGHT
         tX = currentCell.x
         tY = currentCell.y+1
         if Maze(tx,ty).N = 1 AND Maze(tx,ty).S = 1 AND Maze(tx,ty).E = 1 AND Maze(tx,ty).W = 1
            inc found
            Available(1) = 1
         endif
      endif
      if currentCell.x > 1
         tX = currentCell.x-1
         tY = currentCell.y
         if Maze(tx,ty).N = 1 AND Maze(tx,ty).S = 1 AND Maze(tx,ty).E = 1 AND Maze(tx,ty).W = 1
            inc found
            Available(2) = 1
         endif
      endif
      if currentCell.x < M_WIDTH
         tX = currentCell.x+1
         tY = currentCell.y
         if Maze(tx,ty).N = 1 AND Maze(tx,ty).S = 1 AND Maze(tx,ty).E = 1 AND Maze(tx,ty).W = 1
            inc found
            Available(3) = 1
         endif
      endif
      if found > 0
         choice = rnd(3)
         while Available(choice) = 0
            choice = rnd(3)
         endwhile

         select choice
            `North
            case 0
               Maze(currentCell.x, currentCell.y).N = 0
               Maze(currentCell.x, currentCell.y-1).S = 0
               add to stack CellStack()
               CellStack() = currentCell
               dec currentCell.y
            endcase

            `South
            case 1
               Maze(currentCell.x, currentCell.y).S = 0
               Maze(currentCell.x, currentCell.y+1).N = 0
               add to stack CellStack()
               CellStack() = currentCell
               inc currentCell.y
            endcase

            `West
            case 2
               Maze(currentCell.x, currentCell.y).W = 0
               Maze(currentCell.x-1, currentCell.y).E = 0
               add to stack CellStack()
               CellStack() = currentCell
               dec currentCell.x
            endcase

            `East
            case 3
               Maze(currentCell.x, currentCell.y).E = 0
               Maze(currentCell.x+1, currentCell.y).W = 0
               add to stack CellStack()
               CellStack() = currentCell
               inc currentCell.x
            endcase
         endselect
         inc VisitedCells
      else
         currentCell = CellStack()
         remove from stack CellStack()
      endif
   endwhile

   `Create a 2D Map image
   cls

   IMGX# = M_WIDTH  * MAP_SCALE#
   IMGY# = M_HEIGHT * MAP_SCALE#

   SCALEX# = (IMGX#-1) / M_WIDTH
   SCALEY# = (IMGY#-1) / M_HEIGHT

   for i = 1 to M_WIDTH
      for j = 1 to M_HEIGHT
         x1 = (i-1) *  SCALEX#
         x2 =  i    *  SCALEX#
         y1 = (j-1) * -SCALEY# + (M_HEIGHT * MAP_SCALE#)
         y2 =  j    * -SCALEY# + (M_HEIGHT * MAP_SCALE#)

         if Maze(i,j).N = 1 then line x1, y1, x2, y1
         if Maze(i,j).S = 1 then line x1, y2, x2, y2
         if Maze(i,j).E = 1 then line x2, y1, x2, y2
         if Maze(i,j).W = 1 then line x1, y1, x1, y2
      next j
   next i

   get image 1, 0, 1, IMGX#, IMGY#+1, 1


  `Create a 3D Maze
  `Create a template wall


   `   NEW WAY - USING MEMBLOCK
   if memblock exist(1) then delete memblock 1
   if object exist(1) then delete object 1
   if mesh exist(1) then delete mesh 1

   `Wall count formula - not sure why this works though :-)
   `  (((W*H) + 1) * 2) + (2 * W) + (2 * H)
   WALL_COUNT = (2 * M_WIDTH) + (2 * M_HEIGHT) + (2 * (1 + (M_WIDTH * M_HEIGHT)))

   `32 bytes per vertex, 3 vertexs per poly, 2 polies per square... 1 square = 1 wall
   make memblock 1, 12 + (32 * 3 * 2 * WALL_COUNT)
   write memblock dword 1, 0, 274 : ` format
   write memblock dword 1, 4, 32 : `number of bytes per vertex
   write memblock dword 1, 8, WALL_COUNT * 2 * 3 : ` number of vertices

   n = 12
   for i = 1 to M_WIDTH
      for j = 1 to M_HEIGHT
         if Maze(i,j).N then n = makeNorthWall(i, j, n)
         if Maze(i,j).S then n = makeSouthWall(i, j, n)
         if Maze(i,j).E then n = makeEastWall(i, j, n)
         if Maze(i,j).W then n = makeWestWall(i, j, n)

         if i = 1        then n = makeEastWall (i-1, j  , n)
         if i = M_WIDTH  then n = makeWestWall (i+1, j  , n)
         if j = 1        then n = makeSouthWall(i  , j-1, n)
         if j = M_HEIGHT then n = makeNorthWall(i  , j+1, n)
      next j
   next i

   make mesh from memblock 1, 1
   make object 1, 1, -1


   color object 1, rgb(128, 128, 128) && (96 << 24)
   set object transparency 1, 3
   `set object collision to polygons 1
   disable object zread 1
   delete mesh 1
   delete memblock 1
endfunction



function makeNorthWall(i, j, n)
   x1# = i - 0.5 : x2# = i + 0.5 : z# = j - 0.5
   `Triangle 1
   n = writeVertex(1, n, x1#, -0.5, z#,   0, 0, -1,   0, 0)
   n = writeVertex(1, n, x1#,  0.5, z#,   0, 0, -1,   0, 1)
   n = writeVertex(1, n, x2#, -0.5, z#,   0, 0, -1,   1, 0)
   `Triangle 2
   n = writeVertex(1, n, x2#, -0.5, z#,   0, 0, -1,   1, 0)
   n = writeVertex(1, n, x1#,  0.5, z#,   0, 0, -1,   0, 1)
   n = writeVertex(1, n, x2#,  0.5, z#,   0, 0, -1,   1, 1)
endfunction n

function makeSouthWall(i, j, n)
   x1# = i - 0.5 : x2# = i + 0.5 : z# = j + 0.5
   `Triangle 1
   n = writeVertex(1, n, x1#, -0.5, z#,   0, 0, 1,   0, 0)
   n = writeVertex(1, n, x2#, -0.5, z#,   0, 0, 1,   1, 0)
   n = writeVertex(1, n, x1#,  0.5, z#,   0, 0, 1,   0, 1)
   `Triangle 2
   n = writeVertex(1, n, x2#, -0.5, z#,   0, 0, 1,   1, 0)
   n = writeVertex(1, n, x2#,  0.5, z#,   0, 0, 1,   1, 1)
   n = writeVertex(1, n, x1#,  0.5, z#,   0, 0, 1,   0, 1)
endfunction n

function makeEastWall(i, j, n)
   x# = i + 0.5 : z1# = j - 0.5 : z2# = j + 0.5
   `Triangle 1
   n = writeVertex(1, n, x#, -0.5, z1#,  -1, 0, 0,   0, 0)
   n = writeVertex(1, n, x#,  0.5, z1#,  -1, 0, 0,   0, 1)
   n = writeVertex(1, n, x#, -0.5, z2#,  -1, 0, 0,   1, 0)
   `Triangle 2
   n = writeVertex(1, n, x#, -0.5, z2#,  -1, 0, 0,   1, 0)
   n = writeVertex(1, n, x#,  0.5, z1#,  -1, 0, 0,   1, 1)
   n = writeVertex(1, n, x#,  0.5, z2#,  -1, 0, 0,   0, 1)
endfunction n

function makeWestWall(i, j, n)
   x# = i - 0.5 : z1# = j - 0.5 : z2# = j + 0.5
   `Triangle 1
   n = writeVertex(1, n, x#, -0.5, z1#,   1, 0, 0,   0, 0)
   n = writeVertex(1, n, x#, -0.5, z2#,   1, 0, 0,   1, 0)
   n = writeVertex(1, n, x#,  0.5, z1#,   1, 0, 0,   0, 1)
   `Triangle 2
   n = writeVertex(1, n, x#, -0.5, z2#,   1, 0, 0,   1, 0)
   n = writeVertex(1, n, x#,  0.5, z2#,   1, 0, 0,   0, 1)
   n = writeVertex(1, n, x#,  0.5, z1#,   1, 0, 0,   1, 1)
endfunction n








function writeVertex(mb, n,   x#, y#, z#,   nx#, ny#, nz#,   u#, v#)
   write memblock float 1, n +  0, x#
   write memblock float 1, n +  4, y#
   write memblock float 1, n +  8, z#
   write memblock float 1, n + 12, nx#
   write memblock float 1, n + 16, ny#
   write memblock float 1, n + 20, nz#
   write memblock float 1, n + 24, u#
   write memblock float 1, n + 28, v#
   inc n, 32
endfunction n








function RoundFloat(inp#)
   `Calc the MOD using decimal
   LeftOver# = inp# - int(inp#)
   if LeftOver# > -0.5 AND LeftOver# < 0.5
      `Round towards 0, ie return int()
      out = int(inp#)
   else
      if LeftOver# >= 0.5
         `Round Up, ie int() + 1
         out = int(inp#) + 1
      else
         `Round down, ie int() - 1
         out = int(inp#) - 1
      endif
   endif
endfunction out

`Coding Challenge - 3D Shooter
`Bill Robinson - San Francisco,CA.

`The A and D keys move your player, and the mouse button fires!
`You get 10 shots on screen at a time
`Each Robot only gets 1 shot at a time, and will only fire if his head sees you
`There are as many Robots at one time as the level#, example level#4 has 4 Robots at a time.
`Watch your health - each enemy hit cost 10 health points, health reaches 0(zero), GAME OVER.
`There are 20 levels, see how far you can get
`Robots get closer to you in each level, in level 20, they are in your face!

`I run sync rate 0 on my system, runs great, probably too fast for your faster systems, so you set sync rate 60, which
`is too slow, higher sync rate don't seem to work right, I still need to learn timer based movement, sorry.
`also, still some collision issues, but mostly works.

set display mode 1024,768,32
sync on : sync rate 0
hide mouse
backdrop on:color backdrop rgb(0,0,0)
set text opaque

set ambient light 20
set camera range 1,5000
randomize timer()

dim ballinfo#(200,10)   :`ballnum,1=active  ,2=ballspeed, ballx, bally, ballz
dim intro(10,10)        :`1=key, 2=x, 3=y, 4=z, 5=newx, 6=newy, 7=newz, 8=xinc, 9=yinc, 10=zinc
dim walldata(100,5)     :`column walls

dim enemy#(20,15)       :`store box info, location, rotations, motions, etc.
dim enemyinfo#(20,10)   :`enemy unit info 1=active, 2=speed, 3=xloc, 4=yloc, 5=zloc, 6=xinc, 7=yinc, 8=zinc, 9=minx, 10=maxx
dim enemyshots#(20,10)  :`enemy shot info
dim gunangle#(20,2)     :`enemy gun angle

#Constant WHITE=rgb(255,255,255)
#Constant YELLOW=rgb(255,255,0)

global testval=0
global offset=0

global gunangleinc#=2.0
global level
global numballs
global targetsleft
global targetx#=500.0
global targety#=300.0
global targetz#=500.0
global bazooka_angle=180
global hitnum
global gravity#
global egravity#
global gravityon
global health

global screenxmax=1024
global screenymax=768
global screenwidth
global screenheight
global screenxcenter
global screenycenter
global screenzcenter
global v3dymax=768
`Box
global boxxangle#
global boxyangle#
global iconptr
global boxxmin
global boxymin
global boxzmin

`balls
global ballxangle#
global ballyangle#
global ballx
global bally
global ballz
global maxballspeed#
global ballflag
global ballsatonce
global maxballs
global ballcount
global nextballptr
global lastballtime
global newballtime
global balltiming=100
global shadownum=500

`walls
global leftwall=0
global rightwall=2000
global floor=5
global ceiling=1000
global backwall=2000

`Camera - position camera 500,200,-800
global camx=1000
global camy=300
global camz=-800
global camxr
global camyr
global camzr
global camspeed=4
global walkflag=0       :`can player walk around flag
global mxold

`Enemies
global enemiesonscreen
global enemiesleft
global numshots
global enemyballspeed#=3.0
global eshotfired

screenwidth=screen width()
screenheight=screen height()
screenxcenter=screenwidth/2
screenycenter=screenheight/2
screenzcenter=0

`enemy unit info 1=active, 2=speed, 3=xloc, 4=yloc, 5=zloc, 6=xinc, 7=yinc, 8=zinc, 9=minx, 10=maxx
enemydata:
data 1,2,0,100,1800,1,0,0,100,1900
data 1,3,0,100,1700,1,0,0,100,1900
data 1,3,0,100,1600,1,0,0,100,1900
data 1,3,0,100,1500,1,0,0,100,1900
data 1,3,0,100,1400,1,0,0,100,1900
data 1,4,0,100,1300,1,0,0,100,1900
data 1,4,0,100,1200,1,0,0,100,1900
data 1,4,0,100,1100,1,0,0,100,1900
data 1,5,0,100,1000,1,0,0,100,1900
data 1,5,0,100,900,1,0,0,100,1900
data 1,2,0,100,800,1,0,0,100,1900
data 1,3,0,100,700,1,0,0,100,1900
data 1,3,0,100,600,1,0,0,100,1900
data 1,3,0,100,500,1,0,0,100,1900
data 1,3,0,100,400,1,0,0,100,1900
data 1,4,0,100,300,1,0,0,100,1900
data 1,4,0,100,200,1,0,0,100,1900
data 1,4,0,100,100,1,0,0,100,1900
data 1,5,0,100,0,1,0,0,100,1900
data 1,5,0,100,-100,1,0,0,100,1900
restore enemydata
for i=1 to 20
   for j=1 to 10
      read enemyinfo#(i,j)
   next j
   enemyinfo#(i,3)=300+rnd(1500)    :`random starting x position
next i

rem --- make left wall
make object box 310,3000,1004,2
yrotate object 310,90
color object 310,rgb(200,200,0)
position object 310,0,500,1000
set object emissive 310,rgb(100,100,0)

rem --- make right wall
make object box 311,3000,1004,2
yrotate object 311,-90
color object 311,rgb(255,255,0)
position object 311,2000,500,1000

rem --- make floor
make object box 303,2000,3000,2
xrotate object 303,-90
color object 303,rgb(0,140,0)
position object 303,1000,-2,1000      :`was -10 for z

rem --- make back wall
make object box 304,2000,1000,2
color object 304,rgb(0,0,200)
position object 304,1000,500,2000

rem --- make ceiling
make object box 305,2000,3000,2
xrotate object 305,90
color object 305,rgb(0,255,255)
position object 305,1000,1000,1000
set object emissive 305,rgb(0,70,70)

rem Create Tennis Balls
maxballs=199
for i=100 to 99+maxballs      :`balls are objects from 100 to 199
   make object sphere i,40
   set object i,1,1,0
   scale object i,40,40,40  :`scale ball smaller than bazooka tube=28
   color object i,rgb(255,255,0)
   hide object i
   set object collision off i
   ballinfo#(i,1)=0
next i

`Make shadow texture
create bitmap 1,64,64
set current bitmap 1
cls 0
ink rgb(10,10,10),0
for i=0 to 20
   circle 32,32,i
next i
`blur bitmap 1,6
get image 1,1,1,64,64,1
set current bitmap 0
delete bitmap 1

rem make SHADOW plains
for i=500 to 500+maxballs-1
   make object plain i,30,30     :`SHADOWS for ball
   set object i,1,1,0
   xrotate object i,-90
   color object i,rgb(10,10,10)
   texture object i,1
   set object collision off i
   hide object i
next i

rem Create Bazooka Tube
make object cylinder 300,40         :`Tennis ball CANNON
set object 300,1,1,0
scale object 300,42,250,42
color object 300,rgb(0,10,0)
xrotate object 300,90
fix object pivot 300
`texture object 300,406

rem Create Player Body for enemy to hit
make object box 315,150,250,100
`ghost object on 315

rem Create Pivot Cone for Bazooka
make object cone 301,5              :`pivot for cannon
`hide limb 301,0
glue object to limb 300,301,0
offset limb 300,0,0,25,0
glue object to limb 315,301,0

rem make target ball
make object sphere 302,40            :`Target ball
set object 302,1,1,0
color object 302,rgb(255,255,200)
`texture object 302,404

headcolor:
data 255,0,0
data 0,255,0
data 0,100,255
data 255,255,0
data 0,255,255
data 255,0,255
data 255,125,0
data 0,255,125
data 255,0,125
data 255,100,255
data 255,0,0
data 0,255,0
data 0,100,255
data 255,255,0
data 0,255,255
data 255,0,255
data 255,125,0
data 0,255,125
data 255,0,125
data 255,100,255

restore headcolor
for i=0 to 19
   read r,g,b
   rem ----- Create Enemy Body -----
   make object box 400+i,100,200,20        :`Enemy Body
   color object 400+i,rgb(255,150,0)

   make object box 420+i,50,50,50         :`Enemy Head
   color object 420+i,rgb(r,g,b)
   xrotate object 420+i,45
   fix object pivot 420+i

   rem Create Enemy Bazooka Tube
   make object cylinder 450+i,40          :`Enemy Tennis ball CANNON
   set object 450+i,1,1,0
   scale object 450+i,60,250,60
   color object 450+i,rgb(250,250,0)
   xrotate object 450+i,90
   fix object pivot 450+i

   hide object 400+i
   hide object 420+i
   hide object 450+i
next i

rem Create Enemy Shots
numenemyshots=20
for i=800 to 800+numenemyshots      :`balls are objects from 100 to 199
   make object sphere i,50
   set object i,1,1,0
   scale object i,40,40,40  :`scale ball smaller than bazooka tube=28
   color object i,rgb(255,0,0)
   hide object i
   set object collision on i
   ballinfo#(i,1)=0
next i

pillardata:
rem x,y,size,height
data 300,300,200,400
data 900,300,200,600
data 1500,300,200,400
restore pillardata
objnum=0
for i=1 to 3
   read x,z,s,h
   for j=1 to 4
      inc objnum
      make object plain objnum,s,h
      color object objnum,rgb(100,100,100)
      if j=1
         yrotate object objnum,90
         position object objnum,x,h/2,z         :`column left wall
         walldata(objnum,1)=1                   :`column left or right wall

      endif
      if j=2
         position object objnum,x+s/2,h/2,z+s/2
         walldata(objnum,1)=3                   :`column front or back wall

      endif
      if j=3
         yrotate object objnum,-90
         position object objnum,x+s,h/2,z
         walldata(objnum,1)=1
      endif
      if j=4
         position object objnum,x+s/2,h/2,z-s/2
         walldata(objnum,1)=3
      endif
      set object collision on objnum
      set object collision to boxes objnum
`      ghost object on objnum

   next j
   make static collision box x,0,z,x+s,h,z+s
next i

rem use my own collision for room walls and floor
set object collision off 300     :`Bazooka
set object collision off 301     :`Pivot cone for cannon
set object collision off 302     :`target ball for aiming cannon

rem position objects for room
hide object 301                              :`hide cannon pivot
position object 302,-1000,-1000,-1000        :`TARGET ball - move off screen for now
position object 301,camx,camy,camz+100       :`shooters view

`position enemy
position object 400,200,100,800

nextballptr=100         :`pointer into array - points to next ball to fire
ballcount=0             :`how many balls in use, on the screen
ballsatonce=10
numballs=5000
maxballspeed#=4
balltiming=120           :`was 100
gravityon=1

gravity# = 0.01
egravity#=0.001
position camera camx,camy,camz-offset
targetx#=screenwidth/2
point camera sw/2,200,2000
level=1
enemiesleft=level*3
health=100

time=timer()
ink rgb(255,255,255),0
`------------------------------------------------------------------------------------------------------
do
   position camera camx,camy,camz-offset
   position object 301,camx,camy-40,camz-30
   mx#=2000.0/screenwidth*mousex()                                     :`get mouse x location
   my#=1000.0/screenheight*mousey()                                    :`get mouse y location

   newmx#=mousemovex()
   inc targetx#,newmx#
   targety#=screenheight-my#

   if targetx#<0 then targetx#=0
   if targetx#>2000.0 then targetx#=2000.0         :`limit target position to 1000, instead of 1024 which is past wall

   position object 302,targetx#,targety#,targetz#  :`target ball moves as the target object
   point object 301,targetx#,targety#,targetz#     :`pivot cone points to target
   point camera 1000,200,2000

   keypress=scancode()                             :`scan for keys pressed, subroutine to hadle keys
   if keypress>0 then _key_action(keypress)

   mouse=mouseclick()                              :`get mouse click for firing tennis ball
   if mouse=1 then gosub _fire_tennis_ball         :`FIRE!
   if ballcount>0 then gosub _moveballs            :`move any visible balls on screen

   if enemiesleft<=0 and enemiesonscreen<=0
      sync
      if level=20 then gosub _game_won

      gosub completed_level
      inc level
      enemiesleft=level*3
      startflag=0
   endif

   if enemiesleft>0 and startflag=0
      gosub _start_level
      startflag=1
      health=100
      enemiesonscreen=0
   endif

   if enemiesleft>enemiesonscreen
      gosub _start_enemy
   endif

   if health<=0
      gosub _game_over
   endif

   gosub _move_enemy
   gosub _enemy_shots
   gosub _move_eshots
   gosub _show_score
   sync
loop
`------------------------------------------------------------------------------------------------------


_start_level:
   sync
   level$="Level#"+str$(level)+" - "+str$(enemiesleft)+" Enemy Robots to kill on this level - Good Luck!"
while (keypress=keystate(57))
   center text screenwidth/2,screenheight/2-100,level$
   center text screenwidth/2,screenheight/2-70,"Press space bar to continue"
   gosub _moveballs
   gosub _move_eshots
   gosub _show_score
   sync
endwhile
return


completed_level:
done$="Level#"+str$(level)+"    COMPLETED!!!     GREAT JOB!"
while (keypress=keystate(57))
   center text screenwidth/2,screenheight/2,done$
   center text screenwidth/2,screenheight/2+30,"Press space bar to continue"
   gosub _moveballs
   gosub _move_eshots
   gosub _show_score
   sync
endwhile
return

_game_won:
   dim textloc(20,3)
   set text font "Arial"
   set text size 18
   set text to bold
   gameover$="YOU DID GREAT!!! - YOU WON!!! - Thanks for Playing!!!"
   ptr=1
while (keypress=keystate(57))
   textloc(ptr,1)=rnd(screenwidth)
   textloc(ptr,2)=rnd(screenheight)
   textloc(ptr,3)=rgb(rnd(255),rnd(255),rnd(255))
   for i=1 to 20
      ink textloc(i,3),0
      center text textloc(i,1),textloc(i,2),gameover$
   next i
   ink rgb(255,255,255),0
   center text screenwidth/2,screenheight/2+30,"--- Press space bar to exit, bye,bye ---"
   gosub _moveballs
   gosub _move_eshots
   gosub _show_score
   wait 100
   sync
   inc ptr
   if ptr>20 then ptr=1
endwhile
   end
return

_game_over:
   gameover$="YOU DIED A PAINFULL DEATH! - You didn't move enough - GAME OVER"
   center text screenwidth/2,screenheight/2,gameover$
   center text screenwidth/2,screenheight/2+30,"Sorry, Thanks for Playing! - Press space bar to exit - bye"
   gosub _moveballs
   gosub _move_eshots
   gosub _show_score
   sync
   wait key
   end
return

rem --- show score on screen
_show_score:
set cursor 1,1:print screen fps()
`print "enemiesleft=";enemiesleft
`print "enemiesonscreen=";enemiesonscreen
`print "enemy shots=";numshots

center text screenxcenter,2,"Level:"+str$(level)+"   Robots Left: "+str$(enemiesleft)+"   Score: "+str$(score)+"   Health: "+str$(health)
return

rem --- fires tennis balls
_fire_tennis_ball:
if ballcount=ballsatonce then return
newballtime=timer()
if newballtime-lastballtime<balltiming then return else lastballtime=newballtime    :`control firing rate of tennis balls
if numballs=0                          :`out of tennis balls to shoot
`   play sound 3                        :`play empty gun sound
   retryflag=1                         :`set retry flag, do you want to try this level again?
   return                              :`sound 3 = your gun is empty
endif

ballx#=object position x(301)          :`get bazooka pivot location to start ball at
bally#=object position y(301)
ballz#=object position z(301)
position object nextballptr,ballx#,bally#,ballz#
point object nextballptr,targetx#,targety#,targetz#
move object nextballptr,100
`position object nextballptr,ballx#,bally#,ballz#
ballx#=object position x(nextballptr)          :`get bazooka pivot location to start ball at
bally#=object position y(nextballptr)
ballz#=object position z(nextballptr)

ballinfo#(nextballptr,3)=ballx#        :`store ball location
ballinfo#(nextballptr,4)=bally#
ballinfo#(nextballptr,5)=ballz#
`-----------------------
ballxi#=(targetx#-ballx#)/300.0*maxballspeed#  :`calculate some value to move ball each time toward target
ballyi#=(targety#-bally#)/300.0*maxballspeed#  :`mostly an arbitrary calculation, to get lots of slices
ballzi#=(targetz#-ballz#)/300.0*maxballspeed#  :`build screen routine then says how many slices each move

ballinfo#(nextballptr,6)=ballxi#             :`store ball increment values in array
ballinfo#(nextballptr,7)=ballyi#
ballinfo#(nextballptr,8)=ballzi#
`------------------------
position object nextballptr,ballx#,bally#,ballz#   :`start ball in bazooka
point object nextballptr,targetx#,targety#,-50     :`angle ball toward target on screen

shadownum=400+nextballptr                          :`calculate next shadow plain to use
position object shadownum,ballx#,2,ballz#          :`attemp at shadow for ball
show object shadownum

`play sound 1
show object nextballptr
set object collision on nextballptr                :`use DBPro collision for balls and boxes only
set object collision to spheres nextballptr

ballinfo#(nextballptr,1)=1                         :`show ball is active
ballinfo#(nextballptr,2)=maxballspeed#             :`store max ball speed
inc ballcount                                      :`one more ball on screen
dec numballs                                       :`one less ball you can fire
inc nextballptr                                    :`points to next ball to fire
if nextballptr>99+maxballs                         :`if next ball doesn't exist
   nextballptr=100                                 :`reset nextballptr to first ball object
endif
return

rem --- moves balls that have been fired
_moveballs:
for i=100 to 100+maxballs-1
   if ballinfo#(i,1)=1        :`only worry about active balls on screen

      ballxi#=ballinfo#(i,6)           :`get movement values for next ball position stored in array
      ballyi#=ballinfo#(i,7)
      ballzi#=ballinfo#(i,8)

      ballx#=ballinfo#(i,3)+ballxi#    :`calculate balls NEW POSITION
      bally#=ballinfo#(i,4)+ballyi#
      ballz#=ballinfo#(i,5)+ballzi#

      if ballx#<0 or ballx#>rightwall   :`ball hit left or RIGHT WALL
         ballxi#=ballxi#*-1
         ballinfo#(i,6)=ballxi#
         ballx#=ballx#+ballxi#
      endif
      if bally#<floor                   :`ball hit FLOOR routine
         ballyi#=ballyi#*-1
         ballinfo#(i,7)=ballyi#
         bally#=bally#+ballyi#
      endif
      if ballz#>backwall                :`ball hit BACK WALL routine
         ballzi#=ballzi#*-1
         ballinfo#(i,8)=ballzi#
         ballz#=ballz#+ballzi#
      endif

      if bally#>ceiling                   :`ball hit CEILING routine
         ballyi#=ballyi#*-1
         ballinfo#(i,7)=ballyi#
         bally#=bally#+ballyi#
      endif

      if gravityon=1                   :`gravity on, drop ball y increment down more to simulate gravity
         ballyi#=ballyi#-gravity#
         ballinfo#(i,7)=ballyi#
      endif

      ballinfo#(i,3)=ballx#            :`store balls new location for next update
      ballinfo#(i,4)=bally#
      ballinfo#(i,5)=ballz#
      position object i, ballx#, bally#, ballz#    :`position ball at new location on screen
      shadownum=400+i                              :`which shadow to use
      position object shadownum,ballx#,2,ballz#    :`position shadow for ball, same x,z, y=always near floor
`-------------------------
rem Check for Collision Hits

      hitnum=object hit(i,0)

      if ballz#<-900 or bally#>1200    :`balls bouncing behind player or too high are removed
         ballinfo#(i,1)=0
         dec ballcount
         hide object i
         set object collision off i
         hide object shadownum
      endif

      rem --- ball hitting columns in room ---
      if hitnum>=1 and hitnum<=12
         if walldata(hitnum,1)=1
            ballxi#=ballxi#*-1
            ballinfo#(i,6)=ballxi#
            ballx#=ballx#+ballxi#
            ballinfo#(i,3)=ballx#

            position object i, ballx#, bally#, ballz#    :`position ball at new location on screen
            shadownum=400+i                              :`which shadow to use
            position object shadownum,ballx#,2,ballz#    :`position shadow for ball, same x,z, y=always near floor
`            hitnum=0
         endif
         if walldata(hitnum,1)=3
            ballzi#=ballzi#*-1
            ballinfo#(i,8)=ballzi#
            ballz#=ballz#+ballzi#
            ballinfo#(i,5)=ballz#

            position object i, ballx#, bally#, ballz#    :`position ball at new location on screen
            shadownum=400+i                              :`which shadow to use
            position object shadownum,ballx#,2,ballz#    :`position shadow for ball, same x,z, y=always near floor
`            hitnum=0
         endif
      endif

      if hitnum>=400 and hitnum<=439
         if hitnum>=420
            dec hitnum,20
         endif
         position object hitnum,-2000,-2000,-2000
         position object hitnum+20,-2000,-2000,-2000
         position object hitnum+50,-2000,-2000,-2000
         hide object hitnum
         hide object hitnum+20
         hide object hitnum+50
         enemy#(hitnum-399,1)=100+100*rnd(10)
         dec enemiesonscreen
         dec enemiesleft
         inc score,100

         set object collision off i                      :`turn collision off for ball
         hide object i                                   :`hide ball
         position object i,-2000,-2000,-2000
         shadownum=400+i
         hide object shadownum                           :`which shadow to hide
         position object shadownum,-2000,-2000,-2000     :`position shadow off screen
      endif
`-------------------------
   endif
next i
return


function _key_action(keypress)
select keypress
`for next section of game where player can move around - not completed yet - used for debugging so far
   case 30                    :`A key - move camera/player left
      if camx>50
         dec camx,camspeed
         dec targetx#,camspeed

         position camera camx,camy,camz-offset
         position object 302,targetx#,targety#,targetz#  :`target ball moves as the target object
         point object 301,targetx#,targety#,targetz#     :`pivot cone points to target
      endif
   endcase

   case 32                    :`D key - move camera/player right
      if camx<1950
         inc camx,camspeed
         inc targetx#,camspeed

         position camera camx,camy,camz-offset
         position object 302,targetx#,targety#,targetz#
         point object 301,targetx#,targety#,targetz#
      endif
   endcase

   case 20                                   :`T key - Turbo mode for balls
      if level>=8                            :`I left this in, for players looking at the source code to have some fun with
         balltiming=balltiming-10            :`you may need to increase the maxballs variable for a level, this turbo
         wait 100                            :`mode really uses up balls fast
         if balltiming<40 then balltiming=100
      endif
   endcase

   case default
         :`do nothing yet
   endcase
endselect
endfunction


rem ----- start a new enemy on the screen -----
_start_enemy:
`enemy unit info 1=active, 2=speed, 3=xloc, 4=yloc, 5=zloc, 6=xinc, 7=yinc, 8=zinc, 9=minx, 10=maxx
`data 1,3,100,100,1500,1,0,0,100,1900
startone=0
for i=1 to level
   if startone=0
      if enemy#(i,1)=0
         for j=1 to 10
            enemy#(i,j)=enemyinfo#(i,j)
         next j
         edir=rnd(10)
         if edir>4
            enemy#(i,6)=enemyinfo#(i,2)
         else
            enemy#(i,6)=-enemyinfo#(i,2)
         endif
         inc enemiesonscreen
         show object 399+i
         show object 419+i
         show object 449+i
         enemy#(i,1)=1
         startone=1
      else
         if enemy#(i,1)>1 then dec enemy#(i,1),2
      endif
   endif
next i
return


rem --- moves any active enemy on the screen
`enemy unit info 1=active, 2=speed, 3=xloc, 4=yloc, 5=zloc, 6=xinc, 7=yinc, 8=zinc, 9=minx, 10=maxx
_move_enemy:
for i=1 to 20
   eobj=399+i
   if enemy#(i,1)=1                                  :`is enemy active
      newx=enemy#(i,3)+enemy#(i,6)
      if newx<enemy#(i,9) or newx>enemy#(i,10)
         enemy#(i,6)=enemy#(i,6)*-1
         newx=newx+enemy#(i,6)
      endif
      enemy#(i,3)=newx
      position object eobj,enemy#(i,3),enemy#(i,4),enemy#(i,5)
      position object eobj+20,enemy#(i,3),enemy#(i,4)+125,enemy#(i,5)
      position object eobj+50,enemy#(i,3)-50,enemy#(i,4)+100,enemy#(i,5)-25

      vis=static line of sight(camx,camy,camz,enemy#(i,3),enemy#(i,4),enemy#(i,5),1,1)
      if vis=0       :`can enemy head see me, yes then fire ready to fire
         if gunangle#(i,1)>0
            dec gunangle#(i,1),gunangleinc#
            xrotate object eobj+50,gunangle#(i,1)
            gunangle#(i,2)=0
         else
            point object eobj+50,camx,camy-500,camz
            gunangle#(i,2)=1
         endif
      else
         if gunangle#(i,1)<120
            inc gunangle#(i,1),gunangleinc#
            xrotate object eobj+50,gunangle#(i,1)
            gunangle#(i,2)=0
         endif
      endif

      point object eobj+20,camx,camy-500,camz
   endif
next i
return


rem --- controls shots already fired or starts a new enemy shot if needed, by calling 2 routines
_enemy_shots:
if enemiesonscreen>0
   for i=1 to 20
      numenemy=399+i
      if enemyshots#(i,1)=0            :`shot is active already
         if enemy#(i,1)=1              :`is enemy active
            if gunangle#(i,2)=1        :`enemy is pointing at you
               _fire_enemyshot(i)
               inc numshots
            endif
         endif
      endif
   next i
endif
return


_move_eshots:
if numshots>0
   for i=1 to 20
      if enemyshots#(i,1)=1 then _move_enemyshots(i)
   next i
endif
return

rem --- moves enemy shots ---
function _move_enemyshots(numenemy)

   if gravityon=1                   :`gravity on, drop ball y increment down more to simulate gravity
      ballyi#=enemyshots#(numenemy,7)-egravity#
      enemyshots#(numenemy,7)=ballyi#
   endif

   inc enemyshots#(numenemy,3),enemyshots#(numenemy,6)
   inc enemyshots#(numenemy,4),enemyshots#(numenemy,7)
   inc enemyshots#(numenemy,5),enemyshots#(numenemy,8)

   position object 800+numenemy,enemyshots#(numenemy,3),enemyshots#(numenemy,4),enemyshots#(numenemy,5)
   if enemyshots#(numenemy,5)<-800
      enemyshots#(numenemy,1)=0
      hide object 800+numenemy
      dec numshots
   endif

   rem --- enemy collision section ---
   hitnum=object hit(800+numenemy,0)

   ballx#=enemyshots#(numenemy,3)
   bally#=enemyshots#(numenemy,4)
   ballz#=enemyshots#(numenemy,5)

   ballxi#=enemyshots#(numenemy,6)
   ballyi#=enemyshots#(numenemy,7)
   ballzi#=enemyshots#(numenemy,8)

      if ballx#<0 or ballx#>rightwall   :`ball hit left or RIGHT WALL
         ballxi#=ballxi#*-1
         enemyshots#(numenemy,6)=ballxi#
         ballx#=ballx#+ballxi#
      endif
      if bally#<floor                   :`ball hit FLOOR routine
         ballyi#=ballyi#*-1
         enemyshots#(numenemy,7)=ballyi#
         bally#=bally#+ballyi#
      endif
      if ballz#>backwall                :`ball hit BACK WALL routine
         ballzi#=ballzi#*-1
         enemyshots#(numenemy,8)=ballzi#
         ballz#=ballz#+ballzi#
      endif

      rem --- ball hitting columns in room ---\
      if hitnum>=1 and hitnum<=12      :`and enemiesleft>0 and enemiesonscreen>0
         if walldata(hitnum,1)=1
            ballxi#=ballxi#*-1
            enemyshots#(numenemy,6)=ballxi#
            ballx#=ballx#+ballxi#
            enemyshots#(numenemy,3)=ballx#

            position object 800+numenemy, ballx#, bally#, ballz#    :`position ball at new location on screen
            hitnum=0
         endif
         if walldata(hitnum,1)=3
            ballzi#=ballzi#*-1
            enemyshots#(numenemy,8)=ballzi#
            ballz#=ballz#+ballzi#
            enemyshots#(numenemy,5)=ballz#

            position object 800+numenemy, ballx#, bally#, ballz#    :`position ball at new location on screen
            hitnum=0
         endif
      endif

      if hitnum=315
         dec health,10
      endif
endfunction


`enemy unit info 1=active, 2=speed, 3=xloc, 4=yloc, 5=zloc, 6=xinc, 7=yinc, 8=zinc, 9=minx, 10=maxx
function _fire_enemyshot(numenemy)
   enemyshots#(numenemy,1)=1
   enemyshots#(numenemy,2)=2
   enemyshots#(numenemy,3)=object position x(449+numenemy)     :`enemyinfo#(numenemy,3)
   enemyshots#(numenemy,4)=object position y(449+numenemy)     :`enemyinfo#(numenemy,4)
   enemyshots#(numenemy,5)=object position z(449+numenemy)-50     :`enemyinfo#(numenemy,5)-100
   enemyshots#(numenemy,6)=(camx-enemyshots#(numenemy,3))/1200.0*enemyballspeed#
   enemyshots#(numenemy,7)=(camy+50-enemyshots#(numenemy,4))/1200.0*enemyballspeed#
   enemyshots#(numenemy,8)=(camz-enemyshots#(numenemy,5))/1200.0*enemyballspeed#
   position object 800+numenemy,enemyshots#(numenemy,3),enemyshots#(numenemy,4),enemyshots#(numenemy,5)
   show object 800+numenemy
endfunction

`Initialisation section
set display mode 1280, 1024, 32
sync on
sync rate 0
backdrop on
color backdrop 0
randomize timer()
autocam off
set camera range 0.1, 100.0



set ambient light 20





make memblock 1, 12 + (16*16*4)
write memblock dword 1, 0, 16
write memblock dword 1, 4, 16
write memblock dword 1, 8, 32
c as DWORD
for i = 0 to 15
   for j = 0 to 15
      a = 224 - (sqrt(  ((i - 7.5)*(i - 7.5)) + ((j - 7.5) * (j - 7.5))  ) * 24.0)
      if a < 0 then a = 0

      ang = abs(atanfull(i-8, j-8))
      print ang

      write memblock dword 1, 12 + ((j + (i*16))*4), rgb(255 - ang, ang,0) && ((a << 24) || 0x00FFFFFF)
   next j
  ` wait key
next i
make image from memblock 2, 1
delete memblock 1
sprite 1, 0, 0, 2
set sprite 1, 0, 1
offset sprite 1, 8, 8
hide sprite 1


C_SIZE = 256

make memblock 1, 13 + (C_SIZE*C_SIZE*4)
write memblock dword 1, 0, C_SIZE
write memblock dword 1, 4, C_SIZE
write memblock dword 1, 8, 32
c as dword
d as dword
SOFTNESS = 8
for i = 0 to C_SIZE-1
   for j = 0 to C_SIZE-1
      c = ((C_SIZE - abs(j - (C_SIZE-1-i))) * SOFTNESS) -  ((C_SIZE*SOFTNESS)-255)
      d = ((C_SIZE - abs(j - i)) * SOFTNESS) - ((C_SIZE*SOFTNESS)-255)
      if d > c then c = d
      if c < 0 then c = 0

      write memblock dword 1, 12 + ((j + (i*C_SIZE))*4), 0xFFFF0000 && ((c << 24) || 0x00FFFFFF)

   next j
next i
make image from memblock 3, 1
delete memblock 1
sprite 2, screen width() * 0.25, screen height() * 0.25, 3
size sprite 2, screen width() * 0.5, screen height() * 0.5
CROSS_ALPHA# = 0.0
set sprite alpha 2, 0.0



#Constant krtlt (rightkey()-leftkey()) ` returns a 1 if right or -1 if left
#Constant kupdn (upkey()-downkey()) ` returns a 1 if up or -1 if down or 0 if both or nothing

#Constant klrud (downkey()+(upkey()*2)+(rightkey()*4)+(leftkey()*8)) `returns binary result; bit 0=down, 1=up, 2=right, 3=left
#Constant kadws (keystate(31)+(keystate(17)*2)+(keystate(32)*4)+(keystate(30)*8)) `returns binary result; bit 0="s", 1="w", 2="d", 3="a"

#constant CamX camera position x()
#constant CamY camera position y()
#constant CamZ camera position z()


`Declare some types
type mazeCell
   N
   S
   E
   W
endtype
type Coord
   x
   y
endtype
`How many cells do we want?
#constant M_WIDTH 12
#constant M_HEIGHT 12
global MAP_SCALE#
MAP_SCALE# = 200.0 / M_HEIGHT

`Create a maze
dim Maze(M_WIDTH, M_HEIGHT) as mazeCell

`Generate the maze
GenerateMaze()











make object cylinder 1000, 1
make mesh from object 1000, 1000
add limb 1000, 1, 1000
add limb 1000, 2, 1000
add limb 1000, 3, 1000

offset limb 1000, 0,  5, 0, -5
offset limb 1000, 1,  5, 0,  5
offset limb 1000, 2, -5, 0, -5
offset limb 1000, 3, -5, 0,  5

scale object 1000, 100, 750, 100

lock object on 1000
position object 1000, 0, 0, 10
rotate object 1000, 90, 0, 0

`Player Angle
angle# = 0.0
target_angle = 0

`Player Target Position
target_x# = 1.0 : target_z# = 1.0

`Player Energy
#constant ENERGY_WIDTH 16
#constant ENERGY_HEIGHT 200
Dim EnergyArray(ENERGY_HEIGHT) as float
global EnergyLevel#  : EnergyLevel#  = ENERGY_HEIGHT
make memblock 2, 12 + (ENERGY_WIDTH * ENERGY_HEIGHT * 4)
write memblock dword 2, 0, ENERGY_WIDTH
write memblock dword 2, 4, ENERGY_HEIGHT
write memblock dword 2, 8, 32
`Draw side lines and fill in the middle with see-through red (that way we only need to rewrite the alpha channel later)
for i = 12 + (ENERGY_WIDTH * 4) to (ENERGY_WIDTH * ENERGY_HEIGHT * 4) + 8 step 4
   `j is the row, calculated from i...
   j = ((i - 12) / 4) MOD ENERGY_WIDTH

   `Test if edge of middle
   if j > 0 AND j < ENERGY_WIDTH - 1
      write memblock dword 2, i, 0x00FF0000
   else
      write memblock dword 2, i, 0xFFFFFFFF
   endif
next i
`Write the top row white
for i = 12 to 12 + (ENERGY_WIDTH * 4) step 4 : write memblock dword 2, i, 0xFFFFFFFF : next i
`Write the bottom row white
for i = 12 + (ENERGY_WIDTH * 4 * (ENERGY_HEIGHT-1)) to 11 + (ENERGY_WIDTH * 4 * ENERGY_HEIGHT) step 4 : write memblock dword 2, i, 0xFFFFFFFF : next i
updateEnergy()
`Make a sprite from it...
sprite 4, (M_WIDTH + 1) * MAP_SCALE#, 0, 10



`MAKE CANNONS AND AMMO

#constant X_OFFSET 0.189
#constant Y_OFFSET 0.198
#constant Z_OFFSET 0.607

make object sphere 2000, 0.05, 6, 6
hide object 2000
disable object zread 2000

for i = 2001 to 2100
   instance object i, 2000
   set object collision off i
   hide object i
next i

firedOne# = 0.0



`Key states
UpKeyDown = 0
LastDirection = 0
LastMoveDirection = 0


MapPos as Coord
position camera target_x#, 0.0, target_z#
global frameTime#
frameTime# = 1.0
startTime = timer()
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()
   text MAP_SCALE# * (M_WIDTH + 3), 0,  "FPS: " + str$(screen fps())
   text MAP_SCALE# * (M_WIDTH + 3), 10, "Cam(x,y,z): " + str$(CamX) + ", " + str$(CamY) + ", " + str$(CamZ)
   text MAP_SCALE# * (M_WIDTH + 3), 20, "Obj(x,y,z): " + str$(objX#) + ", " + str$(objY#) + ", " + str$(objZ#) + ", SCALE: " + str$(objScale#)
   text MAP_SCALE# * (M_WIDTH + 3), 40, "MouseClick: " + str$(mouseclick())

   `Get the arrows and wasd keys for control of the player
   adws = kadws
   lrud = klrud
   `Masks:
   ` %1000 = Left
   ` %0100 = Right
   ` %0010 = Up
   ` %0001 = Down
   `Combinations allowed, eg: %1100 = Left and Right

   `Left/Right (AD/LR) only...
   adlr = ((adws && %1100) || (lrud && %1100))
   `Up/Down (UD/WS) only...
   udws = ((adws && %0011) || (lrud && %0011))


   if LastDirection <> adlr AND EnergyLevel# > 5.0
      LorR = 0
      if adlr = %1000 then LorR = -1 : `Left
      if adlr = %0100 then LorR =  1 : `Right
      if adlr = %1100 then LorR =  0 : `Both, so dont turn
      inc target_angle, 90 * LorR
      dec EnergyLevel#, 5.0
   endif
   LastDirection = adlr

   angle# = curvevalue(target_angle, angle#, 200.0 / frameTime#)
   yrotate camera angle#
   `Calculate a polar angle (0, 90, 180, 360) for use later
   polarAngle = target_angle mod 360
   if polarAngle < 0 then inc polarAngle, 360



   `Get the current position on the map
   MapPos.x = int(CamX+0.5)
   MapPos.y = int(CamZ+0.5)

   `Can we move? By default, no (1)... Best check for a wall in the polar target direction, if we can canMove=0
   canMove = 1
   select polarAngle
      case   0 : canMove = Maze(MapPos.x, MapPos.y).S : endcase
      case  90 : canMove = Maze(MapPos.x, MapPos.y).E : endcase
      case 180 : canMove = Maze(MapPos.x, MapPos.y).N : endcase
      case 270 : canMove = Maze(MapPos.x, MapPos.y).W : endcase
   endselect

   if EnergyLevel# < 20.0 then canMove = 1

   `If we have a 1, we have a wall!
   if canMove = 1
      CROSS_ALPHA# = curvevalue(255, CROSS_ALPHA#, 750.0 / frameTime#)
   else
      `Ok, now we need to move the target pointer based on the polar coord...
      select polarAngle
         case   0 : tX = MapPos.x   : tZ = MapPos.y+1 : endcase
         case  90 : tX = MapPos.x+1 : tZ = MapPos.y   : endcase
         case 180 : tX = MapPos.x   : tZ = MapPos.y-1 : endcase
         case 270 : tX = MapPos.x-1 : tZ = MapPos.y   : endcase
      endselect

     `Move in the correct direction (1 unit in the polar direction determined above)...
      if LastMoveDirection <> udws
         if udws = %0010
            dec EnergyLevel#, 20.0
            target_x# = tX
            target_z# = tZ
         endif
      endif
      LastMoveDirection = udws

      CROSS_ALPHA# = curvevalue(0, CROSS_ALPHA#, 100.0 / frameTime#)

   endif
   set sprite alpha 2, CROSS_ALPHA#

   `move the camers smoothly
   position camera curvevalue(target_x#, CamX, 200.0 / frameTime#), 0.0, curvevalue(target_z#, CamZ, 200.0 / frameTime#)

   `paste the map
   paste image 1, 0, 0, 1

   `Offset it to the right place for a spot on the overhead map
   circX# = (CamX-0.5) * MAP_SCALE#
   circY# = (M_HEIGHT * MAP_SCALE#) - (CamZ-0.5) * MAP_SCALE#

   rotate sprite 1, angle#+90
   paste sprite 1, circX#, circY#

   `Generate a new maze!! (CHEAT!!)
   `if spacekey() then GenerateMaze()
   inc firedOne#, frameTime#

   for i = 2000 to 2100
      if object visible(i)
         oldX# = object position x(i)
         oldY# = object position y(i)
         oldZ# = object position z(i)

         move object i, frameTime# * 0.005
         io# = intersect object(1,  oldX#, oldY#, oldZ#,    object position x(i), oldY#, object position z(i))
`         text 600, (i-2000) * 10, str$(i-2000) + ", COLLISION: " + str$(io#)
         if io# > 0 then hide object i
      else
         if spacekey()
            if firedOne# > 100.0 AND EnergyLevel# > 10.0

               select rnd(3)
                  case 0 : x# = -X_OFFSET : y# =  Y_OFFSET : z# = Z_OFFSET : endcase
                  case 1 : x# = -X_OFFSET : y# = -Y_OFFSET : z# = Z_OFFSET : endcase
                  case 2 : x# =  X_OFFSET : y# =  Y_OFFSET : z# = Z_OFFSET : endcase
                  case 3 : x# =  X_OFFSET : y# = -Y_OFFSET : z# = Z_OFFSET : endcase
               endselect

               select polarAngle
                  case 90  : t# = z# : z# =  x# : x# =  t# : endcase
                  case 180 :           z# = -z# : x# = -x# : endcase
                  case 270 : t# = z# : z# = -x# : x# = -t# : endcase
               endselect


               position object i, x# + CamX, y# + CamY, z# + CamZ
               yrotate object i, polarAngle
               show object i
               firedOne# = 0.0
               dec EnergyLevel#, 10.0
            endif
         endif
      endif
   next i


   inc EnergyLevel#, frameTime# * 0.01
   if EnergyLevel# > ENERGY_HEIGHT then EnergyLevel# = ENERGY_HEIGHT
   updateEnergy()

   set point light 0, CamX, CamY, CamZ
   set light range 0, 40
   sync
loop
end














`*******************************
`**                           **
`**     UPDATE ENERGY BAR     **
`**                           **
`*******************************
function updateEnergy()
   for i = 1 to ENERGY_HEIGHT-2
      `If current line is less than the current energy level then fade towards full, else fade to clear
      if i <= EnergyLevel#
         EnergyArray(i) = curvevalue(255.0, EnergyArray(i), 1000.0 / frameTime#)
      else
         EnergyArray(i) = curvevalue(0.0, EnergyArray(i), 500.0 / frameTime#)
      endif

      ` Draw a line of this colour
      for j = 1 to ENERGY_WIDTH - 2
         p = 12 + ((j + (i * ENERGY_WIDTH)) * 4)
         write memblock byte 2, p+3, int(EnergyArray(i))
      next j
   next i
   make image from memblock 10, 2
endfunction











`*******************************
`**                           **
`**      MAZE GENERATION      **
`**                           **
`*******************************
function GenerateMaze()
   for i = 1 to M_WIDTH
      for j = 1 to M_HEIGHT
         Maze(i,j).N = 1
         Maze(i,j).S = 1
         Maze(i,j).E = 1
         Maze(i,j).W = 1
      next j
   next i

   dim CellStack() as Coord : empty array CellStack() : array index to stack CellStack()
   TotalCells = M_WIDTH * M_HEIGHT
   VisitedCells = 1
   currentCell as Coord
   currentCell.x = rnd(M_WIDTH-2)+1
   currentCell.y = rnd(M_HEIGHT-2)+1
   Dim Available(4)

   while VisitedCells < TotalCells
      Available(0) = 0
      Available(1) = 0
      Available(2) = 0
      Available(3) = 0
      found = 0
      if currentCell.y > 1
         tX = currentCell.x
         tY = currentCell.y-1
         if Maze(tx,ty).N = 1 AND Maze(tx,ty).S = 1 AND Maze(tx,ty).E = 1 AND Maze(tx,ty).W = 1
            inc found
            Available(0) = 1
         endif
      endif
      if currentCell.y < M_HEIGHT
         tX = currentCell.x
         tY = currentCell.y+1
         if Maze(tx,ty).N = 1 AND Maze(tx,ty).S = 1 AND Maze(tx,ty).E = 1 AND Maze(tx,ty).W = 1
            inc found
            Available(1) = 1
         endif
      endif
      if currentCell.x > 1
         tX = currentCell.x-1
         tY = currentCell.y
         if Maze(tx,ty).N = 1 AND Maze(tx,ty).S = 1 AND Maze(tx,ty).E = 1 AND Maze(tx,ty).W = 1
            inc found
            Available(2) = 1
         endif
      endif
      if currentCell.x < M_WIDTH
         tX = currentCell.x+1
         tY = currentCell.y
         if Maze(tx,ty).N = 1 AND Maze(tx,ty).S = 1 AND Maze(tx,ty).E = 1 AND Maze(tx,ty).W = 1
            inc found
            Available(3) = 1
         endif
      endif
      if found > 0
         choice = rnd(3)
         while Available(choice) = 0
            choice = rnd(3)
         endwhile

         select choice
            `North
            case 0
               Maze(currentCell.x, currentCell.y).N = 0
               Maze(currentCell.x, currentCell.y-1).S = 0
               add to stack CellStack()
               CellStack() = currentCell
               dec currentCell.y
            endcase

            `South
            case 1
               Maze(currentCell.x, currentCell.y).S = 0
               Maze(currentCell.x, currentCell.y+1).N = 0
               add to stack CellStack()
               CellStack() = currentCell
               inc currentCell.y
            endcase

            `West
            case 2
               Maze(currentCell.x, currentCell.y).W = 0
               Maze(currentCell.x-1, currentCell.y).E = 0
               add to stack CellStack()
               CellStack() = currentCell
               dec currentCell.x
            endcase

            `East
            case 3
               Maze(currentCell.x, currentCell.y).E = 0
               Maze(currentCell.x+1, currentCell.y).W = 0
               add to stack CellStack()
               CellStack() = currentCell
               inc currentCell.x
            endcase
         endselect
         inc VisitedCells
      else
         currentCell = CellStack()
         remove from stack CellStack()
      endif
   endwhile

   `Create a 2D Map image
   cls

   IMGX# = M_WIDTH  * MAP_SCALE#
   IMGY# = M_HEIGHT * MAP_SCALE#

   SCALEX# = (IMGX#-1) / M_WIDTH
   SCALEY# = (IMGY#-1) / M_HEIGHT

   for i = 1 to M_WIDTH
      for j = 1 to M_HEIGHT
         x1 = (i-1) *  SCALEX#
         x2 =  i    *  SCALEX#
         y1 = (j-1) * -SCALEY# + (M_HEIGHT * MAP_SCALE#)
         y2 =  j    * -SCALEY# + (M_HEIGHT * MAP_SCALE#)

         if Maze(i,j).N = 1 then line x1, y1, x2, y1
         if Maze(i,j).S = 1 then line x1, y2, x2, y2
         if Maze(i,j).E = 1 then line x2, y1, x2, y2
         if Maze(i,j).W = 1 then line x1, y1, x1, y2
      next j
   next i

   get image 1, 0, 1, IMGX#, IMGY#+1, 1


  `Create a 3D Maze
  `Create a template wall


   `   NEW WAY - USING MEMBLOCK
   if memblock exist(1) then delete memblock 1
   if object exist(1) then delete object 1
   if mesh exist(1) then delete mesh 1

   `Wall count formula - not sure why this works though :-)
   `  (((W*H) + 1) * 2) + (2 * W) + (2 * H)
   WALL_COUNT = (2 * M_WIDTH) + (2 * M_HEIGHT) + (2 * (1 + (M_WIDTH * M_HEIGHT)))

   `32 bytes per vertex, 3 vertexs per poly, 2 polies per square... 1 square = 1 wall
   make memblock 1, 12 + (32 * 3 * 2 * WALL_COUNT)
   write memblock dword 1, 0, 274 : ` format
   write memblock dword 1, 4, 32 : `number of bytes per vertex
   write memblock dword 1, 8, WALL_COUNT * 2 * 3 : ` number of vertices

   n = 12
   for i = 1 to M_WIDTH
      for j = 1 to M_HEIGHT
         if Maze(i,j).N then n = makeNorthWall(i, j, n)
         if Maze(i,j).S then n = makeSouthWall(i, j, n)
         if Maze(i,j).E then n = makeEastWall(i, j, n)
         if Maze(i,j).W then n = makeWestWall(i, j, n)

         if i = 1        then n = makeEastWall (i-1, j  , n)
         if i = M_WIDTH  then n = makeWestWall (i+1, j  , n)
         if j = 1        then n = makeSouthWall(i  , j-1, n)
         if j = M_HEIGHT then n = makeNorthWall(i  , j+1, n)
      next j
   next i

   make mesh from memblock 1, 1
   make object 1, 1, -1


   color object 1, rgb(128, 128, 128) && (96 << 24)
   set object transparency 1, 5

   disable object zread 1

   delete mesh 1
   delete memblock 1
endfunction



function makeNorthWall(i, j, n)
   x1# = i - 0.5 : x2# = i + 0.5 : z# = j - 0.5
   `Triangle 1
   n = writeVertex(1, n, x1#, -0.5, z#,   0, 0, -1,   0, 0)
   n = writeVertex(1, n, x1#,  0.5, z#,   0, 0, -1,   0, 1)
   n = writeVertex(1, n, x2#, -0.5, z#,   0, 0, -1,   1, 0)
   `Triangle 2
   n = writeVertex(1, n, x2#, -0.5, z#,   0, 0, -1,   1, 0)
   n = writeVertex(1, n, x1#,  0.5, z#,   0, 0, -1,   0, 1)
   n = writeVertex(1, n, x2#,  0.5, z#,   0, 0, -1,   1, 1)
endfunction n

function makeSouthWall(i, j, n)
   x1# = i - 0.5 : x2# = i + 0.5 : z# = j + 0.5
   `Triangle 1
   n = writeVertex(1, n, x1#, -0.5, z#,   0, 0, 1,   0, 0)
   n = writeVertex(1, n, x2#, -0.5, z#,   0, 0, 1,   1, 0)
   n = writeVertex(1, n, x1#,  0.5, z#,   0, 0, 1,   0, 1)
   `Triangle 2
   n = writeVertex(1, n, x2#, -0.5, z#,   0, 0, 1,   1, 0)
   n = writeVertex(1, n, x2#,  0.5, z#,   0, 0, 1,   1, 1)
   n = writeVertex(1, n, x1#,  0.5, z#,   0, 0, 1,   0, 1)
endfunction n

function makeEastWall(i, j, n)
   x# = i + 0.5 : z1# = j - 0.5 : z2# = j + 0.5
   `Triangle 1
   n = writeVertex(1, n, x#, -0.5, z1#,  -1, 0, 0,   0, 0)
   n = writeVertex(1, n, x#,  0.5, z1#,  -1, 0, 0,   0, 1)
   n = writeVertex(1, n, x#, -0.5, z2#,  -1, 0, 0,   1, 0)
   `Triangle 2
   n = writeVertex(1, n, x#, -0.5, z2#,  -1, 0, 0,   1, 0)
   n = writeVertex(1, n, x#,  0.5, z1#,  -1, 0, 0,   1, 1)
   n = writeVertex(1, n, x#,  0.5, z2#,  -1, 0, 0,   0, 1)
endfunction n

function makeWestWall(i, j, n)
   x# = i - 0.5 : z1# = j - 0.5 : z2# = j + 0.5
   `Triangle 1
   n = writeVertex(1, n, x#, -0.5, z1#,   1, 0, 0,   0, 0)
   n = writeVertex(1, n, x#, -0.5, z2#,   1, 0, 0,   1, 0)
   n = writeVertex(1, n, x#,  0.5, z1#,   1, 0, 0,   0, 1)
   `Triangle 2
   n = writeVertex(1, n, x#, -0.5, z2#,   1, 0, 0,   1, 0)
   n = writeVertex(1, n, x#,  0.5, z2#,   1, 0, 0,   0, 1)
   n = writeVertex(1, n, x#,  0.5, z1#,   1, 0, 0,   1, 1)
endfunction n








function writeVertex(mb, n,   x#, y#, z#,   nx#, ny#, nz#,   u#, v#)
   write memblock float 1, n +  0, x#
   write memblock float 1, n +  4, y#
   write memblock float 1, n +  8, z#
   write memblock float 1, n + 12, nx#
   write memblock float 1, n + 16, ny#
   write memblock float 1, n + 20, nz#
   write memblock float 1, n + 24, u#
   write memblock float 1, n + 28, v#
   inc n, 32
endfunction n








function RoundFloat(inp#)
   `Calc the MOD using decimal
   LeftOver# = inp# - int(inp#)
   if LeftOver# > -0.5 AND LeftOver# < 0.5
      `Round towards 0, ie return int()
      out = int(inp#)
   else
      if LeftOver# >= 0.5
         `Round Up, ie int() + 1
         out = int(inp#) + 1
      else
         `Round down, ie int() - 1
         out = int(inp#) - 1
      endif
   endif
endfunction out

REM Project: Hunting
REM Created: 10/11/2005 20:33:09
REM
REM ***** Main Source File *****
REM

sync on
sync rate 60
autocam off
set camera range 0.5,500


global speed# = 0.4
global turnspeed# = 0.2
global anglex#
global angley#
global xmovement#
global zmovement#
global launch
global ClickBounce
global CurrentSpear = 0
global state = 0
global targetX
global targetY
global targetZ
global beasthealth = 100
global playerhealth = 100


type XYZ

   X as Float
   Y as Float
   Z as Float

endtype

type projectile

   Pos as XYZ
   Velocity as XYZ
   Rot as XYZ
   Object as Integer

endtype


#CONSTANT NUMPARTICLES 128
#CONSTANT TIMEPASSED 0.016666





GLOBAL currentfreeparticle
GLOBAL debouncemouseclick
GLOBAL currenteffect

type vertex
   X as float
   Y as float
   Z as float
endtype

type redgreenblue
   Red as float
   Green as float
   Blue as float
endtype

sync on
sync rate 60



type particle

   Pos as vertex
   PosVel as vertex
   PosAcc as vertex

   Rot as vertex
   RotVel as vertex

   Scale as Float
   ScaleVel as Float

   Lifetime as Float
   Active as Boolean
   Gravity as Boolean
   Facing as Boolean

   UOffset as Float
   VOffset as Float

   Object as Integer

   ColourBlend as Boolean
   Colour as redgreenblue
   ColourVel as redgreenblue


endtype

`**************
dim Particles(NUMPARTICLES) as particle
`**************


type particleemitter

   Pos as vertex

   Lifetime as Float
   Active as Boolean

   Repeatrate as Float
   Repeattime as Float

   EffectType as Integer

endtype

`**************
dim ParticleEmitters(0) as particleemitter
`**************


initialise_particles()
currenteffect = 1


create bitmap 2,8,8
set current bitmap 2
ink rgb(150,80,10),0
box 0,0,8,8
ink rgb(255,128,50),0
line 0,0,4,0
ink rgb(30,15,0),0
line 3,3,8,3
get image 1,0,0,8,8
ink rgb(60,60,60),0
box 0,0,8,8
for i = 0 to 3
   dot rnd(7),rnd(7),rgb(128,128,128)
next i
get image 2,0,0,8,8
ink rgb(0,100,0),0
box 0,0,8,8
get image 3,0,0,8,8

ink 0,0
box 0,0,8,8
ink rgb(255,255,255),0
for i = 0 to 4
   dot rnd(8),rnd(8)
next i

get image 4,0,0,8,8



delete bitmap 2
set current bitmap 0













rem ***************** SPEAR MAKING *****************


tempspear = 43
make object cylinder tempspear,0.10
scale object tempspear,100,1800,100
position object tempspear,15,5,10

tempspear2 = 42
make object cylinder tempspear2,0.10
scale object tempspear2,100,1800,100
position object tempspear2,15,5,10

speardummy2 = 40
make object sphere speardummy2,0.3,3,3
scale object speardummy2,100,200,100
make mesh from object 3,tempspear
delete object tempspear
add limb speardummy2,1,3
link limb speardummy2,0,1
offset limb speardummy2,1,0,-1,0


texture limb speardummy2,1,1
texture limb speardummy2,0,2




global spear as projectile
spear.Object = 40

position object spear.Object, 1,0,0
set object cull spear.Object,0
rotate object spear.Object,90,0,0
fix object pivot spear.Object

speardummy = 41
make object sphere speardummy,0.3,3,3
scale object speardummy,100,200,100
make mesh from object 2,tempspear2
delete object tempspear2
add limb speardummy,1,2
link limb speardummy,0,1
offset limb speardummy,1,0,-1,0

texture limb speardummy,1,1
texture limb speardummy,0,2


rem ***************** END OF SPEAR MAKING



temp = 10
make object sphere temp,8
position object temp,0,5,20
scale object temp,100,90,100
temp2 = 11
make object sphere temp2,4
position object temp2,0,4,16
temp3 = 12
temp4 = 13
temp5 = 14
temp6 = 15
make object cylinder temp3,4
position object temp3,1.5,2,18.5
scale object temp3,60,100,60
make object cylinder temp4,4
position object temp4,-1.5,2,18.5
scale object temp4,60,100,60
make object cylinder temp5,4
position object temp5,1.5,2,22
scale object temp5,60,100,60
make object cylinder temp6,4
position object temp6,-1.5,2,22
scale object temp6,60,100,60

texture object temp,3
texture object temp2,3
texture object temp3,3
texture object temp4,3
texture object temp5,3
texture object temp6,3

make mesh from object 10,temp2      `Head
make mesh from object 11,temp3      `Leg
make object cube 16,1
make mesh from object 12,16         `Dummy object
delete object 16

add limb temp,1,10
link limb temp,0,1
offset limb temp,1,0,-1,4

delete object temp2

add limb temp,2,12      `add a dummy object for first leg - limb2
link limb temp,0,2      `adds to the body limb (0)
offset limb temp,2,1.5,-1,-1.5

add limb temp,3,11
link limb temp,2,3
offset limb temp,3,0,-2.5,0

delete object temp3

add limb temp,4,12      `add dummy for second leg (front right) - limb 4
link limb temp,0,4      `add to body (0)
offset limb temp,4,-1.5,-1,-1.5

add limb temp,5,11      `second leg object (5)
link limb temp,4,5
offset limb temp,5,0,-2.5,0

delete object temp4

add limb temp,6,12
link limb temp,0,6
offset limb temp,6,1.5,-1,2

add limb temp,7,11
link limb temp,6,7
offset limb temp,7,0,-2.5,0

delete object temp5

add limb temp,8,12
link limb temp,0,8
offset limb temp,8,-1.5,-1,2

add limb temp,9,11
link limb temp,8,9
offset limb temp,9,0,-2.5,0

delete object temp6

texture limb temp,3,3
texture limb temp,5,3
texture limb temp,7,3
texture limb temp,9,3

texture limb temp,1,3




beastie = temp


set object collision on beastie
set object collision to polygons beastie




make object plain 3,1000,1000
rotate object 3,-90,0,0
color object 3,rgb(0,128,0)
texture object 3,3

color backdrop rgb(30,40,255)




global thrownspear as projectile
thrownspear.Object = 41
position object thrownspear.Object, spear.Pos.X, spear.Pos.Y, spear.Pos.Z
set object cull thrownspear.Object,0
rotate object thrownspear.Object,90,0,0
fix object pivot thrownspear.Object
rotate object thrownspear.Object, object angle x(spear.Object),object angle y(spear.Object),object angle z(spear.Object)
hide object thrownspear.Object


hide mouse



`********************MAIN LOOP*******************
do

MouseLook()

Position_HUDSpear()
throwspear()

`rotate the beastie
`yrotate object 10,wrapvalue(object angle y(10)+1)

text 5,30,"Enemy health"
text screen width()-110,30,"Player health"
ink 0,0
box 0+1,1,100+8,24
box screen width()-100-9,1,screen width()-1,24
ink rgb(255,0,0),0
box 0+5,5,beasthealth+5,20
box screen width()-playerhealth-5,5,screen width()-5,20
`print "Camera Pos:",camera position x(),",",camera position y(),",",camera position z()
`print "Launch Pos:",tempX#,", ",tempY#,", ",tempZ#
`print "Spear Pos:",object position x(thrownspear.Object),", ",object position y(thrownspear.Object),", ",object position z(thrownspear.Object)
`print "Beasty rotation:",object angle y(2)


disttotarg = get_distancesquaredpos(10,targetX,targetY,targetZ)

if state = 0
   targetX = camera position x()
   targetY = camera position y()
   targetZ = camera position z()
   state = 1
endif

if state = 1
   if (disttotarg > 50)
      beastie_move(10,targetX,targetY,targetZ)
      rotate limb temp,2,sin(timer()/3)*9,0,0
      rotate limb temp,4,-sin(timer()/3)*9,0,0

      rotate limb temp,6,-sin(timer()/3)*9,0,0
      rotate limb temp,8,sin(timer()/3)*9,0,0
   else
      state = 0
   endif
endif

distfromplayer = get_distancesquaredpos(10,camera position x(),camera position y(),camera position z())
if distfromplayer < 50
   playerhealth = playerhealth - rnd(1)
endif

`if distfromplayer < 700
   `rotate camera camera angle x()+rnd((700-dist)/100)-((700-dist)/200), camera angle y()+rnd((700-dist)/100)-((700-dist)/200),0
`endif

update_emitters()
update_particles()

if playerhealth < 0
   box 0,0,screen width(),screen height()
   ink 0,0
   for i = 0 to 50
      text rnd(screen width()),rnd(screen height()),"YOU DIED"
   next i
   sync
   wait key
   exit
endif

if beasthealth < 0
   ink 0,0
   for i = 0 to 50
      ink rgb(rnd(255),rnd(255),rnd(255)),0
      text rnd(screen width()),rnd(screen height()),"YOU WON!"
   next i
   sync
   wait key
   exit
endif


sync
loop
`****************END OF MAIN LOOP**************



`Position the Spear close enough to the player to look held in the hand.
function Position_HUDSpear()

   AtX# = -0.6     `The offset for the spear object.
   AtY# = 0.1
   AtZ# = 1.5

   temp# = (Cos( Camera Angle X()) * AtY#) - (Sin(Camera Angle X()) * AtZ#)
   AtZ# = (Sin(Camera Angle X()) * AtY#) + (Cos(Camera Angle X()) * AtZ#)
   AtY# = temp#

   temp# = (Cos(Camera Angle Y()) * AtX#) + (Sin(Camera Angle Y()) * AtZ#)
   AtZ# = (Cos(Camera Angle Y()) * AtZ#) - (Sin(Camera Angle Y()) * AtX#)
   AtX# = temp#

   spear.Pos.X = Camera Position X() + AtX#
   spear.Pos.Y = Camera Position Y() + AtY#
   spear.Pos.Z = Camera Position Z() + AtZ#

   Position Object spear.Object, spear.Pos.X, spear.Pos.Y, spear.Pos.Z
   Rotate Object spear.Object, wrapvalue(Camera Angle X()-20), Camera Angle Y(), Camera Angle Z()

endfunction




function MouseLook()

position mouse 320,240

   `forwards (w)
   if keystate(17)=1
      xmovement# = newxvalue(xmovement#,wrapvalue(camera angle y()),speed#)
      zmovement# = newzvalue(zmovement#,wrapvalue(camera angle y()),speed#)
   endif
   `backwards (s)
   if keystate(31)=1
      xmovement# = newxvalue(xmovement#,wrapvalue(camera angle y()-180),speed#)
      zmovement# = newzvalue(zmovement#,wrapvalue(camera angle y()-180),speed#)
   endif
   `left (a)
   if keystate(30)=1
      xmovement# = newxvalue(xmovement#,wrapvalue(camera angle y()-90),speed#)
      zmovement# = newzvalue(zmovement#,wrapvalue(camera angle y()-90),speed#)
   endif
   `right (d)
   if keystate(32)=1
      xmovement# = newxvalue(xmovement#,wrapvalue(camera angle y()+90),speed#)
      zmovement# = newzvalue(zmovement#,wrapvalue(camera angle y()+90),speed#)
   endif

   position camera xmovement#,1,zmovement#

   anglex# = wrapvalue( anglex# + mousemovey() * turnspeed#)
   angley# = wrapvalue( angley# + mousemovex() * turnspeed#)

   set cursor 0,0

   rem stops mouse from going upside down
   if anglex# < 180 AND anglex# > 90 then anglex# = 90
   if anglex# < 270 AND anglex# > 180 then anglex# = 270

   rotate camera 0,anglex#, angley#, 0

endfunction



function spearvelocity()

   VelX# = 0
   VelY# = 0
   VelZ# = 0.2

   temp# = (Cos(Object Angle X(spear.Object)) * VelY#) - (Sin(Object Angle X(spear.Object)) * VelZ#)
   VelZ# = (Sin(Object Angle X(spear.Object)) * VelY#) + (Cos(Object Angle X(spear.Object)) * VelZ#)
   VelY# = temp#

   temp# = (Cos(Object Angle Y(spear.Object)) * VelX#) + (Sin(Object Angle Y(spear.Object)) * VelZ#)
   VelZ# = (Cos(Object Angle Y(spear.Object)) * VelZ#) - (Sin(Object Angle Y(spear.Object)) * VelX#)
   VelX# = temp#

   thrownspear.Velocity.X = VelX#
   thrownspear.Velocity.Y = VelY#
   thrownspear.Velocity.Z = VelZ#

endfunction





function resetspear()

show object spear.Object
hide object thrownspear.Object
launch = 0

endfunction


function fixatanfu()

   FixX# = thrownspear.Velocity.X
   FixY# = thrownspear.Velocity.Y
   FixZ# = thrownspear.Velocity.Z

   temp# = (Cos(-Object Angle Y(spear.Object)) * FixX#) + (Sin(-Object Angle Y(spear.Object)) * FixZ#)
   FixZ# = (Cos(-Object Angle Y(spear.Object)) * FixZ#) - (Sin(-Object Angle Y(spear.Object)) * FixX#)
   FixX# = temp#

   local_z# = FixX#
   local_y# = FixY#
   local_z# = FixZ#

   curverot# = atanfull (local_z#,local_y#)
endfunction curverot#




function throwspear()

thrownspear.Pos.X = object position x(thrownspear.Object)
thrownspear.Pos.Y = object position y(thrownspear.Object)
thrownspear.Pos.Z = object position z(thrownspear.Object)

`******************************* THROW THE SPEAR ***********************
if mouseclick() = 1 AND ClickBounce = 0

   show object thrownspear.Object
   thrownspear.Pos.X = object position x(spear.Object)
   thrownspear.Pos.Y = object position y(spear.Object)
   thrownspear.Pos.Z = object position z(spear.Object)
   position object thrownspear.Object, thrownspear.Pos.X, thrownspear.Pos.Y, thrownspear.Pos.Z
   rotate object thrownspear.Object, object angle x(spear.Object),object angle y(spear.Object),object angle z(spear.Object)
   hide object spear.Object

   tempX# = thrownspear.Pos.X
   tempY# = thrownspear.Pos.Y
   tempZ# = thrownspear.Pos.Z

   spearvelocity()
   ClickBounce = 1
   launch = 1

endif

if mouseclick() = 0
   ClickBounce = 0
endif

if launch = 1

   turnything# = fixatanfu()

   thrownspear.Rot.X = wrapvalue(turnything#-90.0)
   thrownspear.Rot.Y = object angle Y(thrownspear.Object)
   thrownspear.Rot.Z = object angle Z(thrownspear.Object)

   thrownspear.Pos.X = thrownspear.Pos.X + thrownspear.Velocity.X
   thrownspear.Pos.Y = thrownspear.Pos.Y + thrownspear.Velocity.Y
   thrownspear.Pos.Z = thrownspear.Pos.Z + thrownspear.Velocity.Z
   position object thrownspear.Object, thrownspear.Pos.X, thrownspear.Pos.Y, thrownspear.Pos.Z
   xrotate object thrownspear.Object, thrownspear.Rot.X
   thrownspear.Velocity.Y = thrownspear.Velocity.Y - (0.1/60.0)

   checkspearcollision()

endif

if mouseclick() = 2 AND launch > 0
   unglue object thrownspear.Object
   resetspear()
endif

endfunction



function checkspearcollision()

   if object position y(thrownspear.Object) < 0.1
      launch = 2
   endif

   if object collision (thrownspear.Object,10) = 1
      hitposX# = object position x(thrownspear.Object)
      hitposY# = object position y(thrownspear.Object)
      hitposZ# = object position z(thrownspear.Object)
      hitposoffsetX# = hitposX#-object position x(10)
      hitposoffsetY# = hitposY#-object position y(10)
      hitposoffsetZ# = hitposZ#-object position z(10)


      temp# = (Cos(-Object Angle Y(10)) * hitposoffsetX#) + (Sin(-Object Angle Y(10)) * hitposoffsetZ#)
      hitposoffsetZ# = (Cos(-Object Angle Y(10)) * hitposoffsetZ#) - (Sin(-Object Angle Y(10)) * hitposoffsetX#)
      hitposoffsetX# = temp#


      position object thrownspear.Object,hitposoffsetX#,hitposoffsetY#,hitposoffsetZ#
      yrotate object thrownspear.Object,object angle y(thrownspear.Object)-Object Angle Y(10)
      glue object to limb thrownspear.Object,10,0

      makebloodeffect(hitposX#,hitposY#,hitposZ#)
      beasthealth = beasthealth - rnd(3)-2

      launch = 2
   endif

endfunction



function beastie_move(beastienum,targX#,targY#,targZ#)

   PosX# = object position x(beastienum)
   PosZ# = object position z(beastienum)

   MoveX# = -sin(-Object Angle Y(beastienum)) * 0.2
   MoveZ# = cos(-Object Angle Y(beastienum)) * 0.2

   `Update the positions in the X and Z using the vector.
   PosX#=PosX#+MoveX#
   PosZ#=PosZ#+MoveZ#

   `Do the rotation
   XDiff = targX# - Object Position X(beastienum)
   ZDiff = targZ# - Object Position Z(beastienum)

   angle# = ATanFull(XDiff, ZDiff)

   angle# = WrapValue(angle#)

   AngleDiff# = Object Angle Y(beastienum) - angle#

   while (AngleDiff# < -180)
      AngleDiff# = AngleDiff# + 360
   endwhile

   while (AngleDiff# > 180)
      AngleDiff# = AngleDiff# - 360
   endwhile

   YRotate Object beastienum,Object Angle Y(beastienum) - (AngleDiff#/40)
   position object beastienum,PosX#,5,PosZ#

endfunction





function get_distancesquaredpos(object1,obj2x#,obj2y#,obj2z#)

   obj1x# = object position x(object1)
   obj1y# = object position y(object1)
   obj1z# = object position z(object1)

   distancesquared# = ((obj1x#-obj2x#)*(obj1x#-obj2x#)) + ((obj1y#-obj2y#)*(obj1y#-obj2y#)) + ((obj1z#-obj2z#)*(obj1z#-obj2z#))

endfunction distancesquared#





Function update_particles()


   for i = 0 to array count(Particles())

      if Particles(i).Active = 1

         if Particles(i).Gravity = 1
            Particles(i).PosVel.Y = Particles(i).PosVel.Y - (9.81 * TIMEPASSED)
         endif

         Particles(i).PosVel.X = Particles(i).PosVel.X + (Particles(i).PosAcc.X * TIMEPASSED)
         Particles(i).PosVel.Y = Particles(i).PosVel.Y + (Particles(i).PosAcc.Y * TIMEPASSED)
         Particles(i).PosVel.Z = Particles(i).PosVel.Z + (Particles(i).PosAcc.Z * TIMEPASSED)

         Particles(i).Pos.X = Particles(i).Pos.X + (Particles(i).PosVel.X * TIMEPASSED)
         Particles(i).Pos.Y = Particles(i).Pos.Y + (Particles(i).PosVel.Y * TIMEPASSED)
         Particles(i).Pos.Z = Particles(i).Pos.Z + (Particles(i).PosVel.Z * TIMEPASSED)

         Particles(i).Rot.X = Particles(i).Rot.X + (Particles(i).RotVel.X * TIMEPASSED)
         Particles(i).Rot.Y = Particles(i).Rot.Y + (Particles(i).RotVel.Y * TIMEPASSED)
         Particles(i).Rot.Z = Particles(i).Rot.Z + (Particles(i).RotVel.Z * TIMEPASSED)

         Particles(i).Scale = Particles(i).Scale + (Particles(i).ScaleVel * TIMEPASSED)

         if Particles(i).Scale < 1
            Particles(i).Lifetime = 0.0
         endif

         Position Object Particles(i).Object,Particles(i).Pos.X,Particles(i).Pos.Y,Particles(i).Pos.Z
         Rotate Object Particles(i).Object,Particles(i).Rot.X,Particles(i).Rot.Y,Particles(i).Rot.Z
         Scale Object Particles(i).Object,Particles(i).Scale,Particles(i).Scale,Particles(i).Scale


         if Particles(i).Facing = 1
            Point Object Particles(i).Object,camera position x(),camera position y(),camera position z()
         endif

         if Particles(i).ColourBlend = 1
            Particles(i).Colour.Red = Particles(i).Colour.Red + (Particles(i).ColourVel.Red * TIMEPASSED)
            Particles(i).Colour.Green = Particles(i).Colour.Green + (Particles(i).ColourVel.Green * TIMEPASSED)
            Particles(i).Colour.Blue = Particles(i).Colour.Blue + (Particles(i).ColourVel.Blue * TIMEPASSED)
            If Particles(i).Colour.Red > 255 then Particles(i).Colour.Red = 255
            If Particles(i).Colour.Red < 0 then Particles(i).Colour.Red = 0
            If Particles(i).Colour.Green > 255 then Particles(i).Colour.Green = 255
            If Particles(i).Colour.Green < 0 then Particles(i).Colour.Green = 0
            If Particles(i).Colour.Blue > 255 then Particles(i).Colour.Blue = 255
            If Particles(i).Colour.Blue < 0 then Particles(i).Colour.Blue = 0
            set object emissive Particles(i).Object, rgb(Particles(i).Colour.Red, Particles(i).Colour.Green, Particles(i).Colour.Blue)
            set object diffuse Particles(i).Object, rgb(Particles(i).Colour.Red, Particles(i).Colour.Green, Particles(i).Colour.Blue)
         endif


         show object Particles(i).Object

         Particles(i).Lifetime = Particles(i).Lifetime - TIMEPASSED

         if Particles(i).Lifetime <= 0
            Particles(i).Active = 0
            hide object Particles(i).Object
            scroll object texture Particles(i).Object,-Particles(i).UOffset,-Particles(i).VOffset
            Particles(i).UOffset = 0
            Particles(i).VOffset = 0
         endif

      endif
   next i


Endfunction





Function initialise_particles()

for i = 0 to array count(Particles())

   Particles(i).Object = free_object()
   make object plain Particles(i).Object,1,1
   texture object Particles(i).Object,4
   ghost object on Particles(i).Object
   hide object Particles(i).Object
   disable object zwrite Particles(i).Object
   set object specular Particles(i).Object,0
   Particles(i).Active = 0
   set object collision off Particles(i).Object

next i

Endfunction







Function allocate_particle()

   particle_index = currentfreeparticle
   currentfreeparticle = (currentfreeparticle+1) MOD NUMPARTICLES

   Particles(particle_index).Active = 1

Endfunction particle_index








Function reset_particle(index)

   scroll object texture Particles(index).Object,-Particles(index).UOffset,-Particles(index).VOffset
   Particles(index).Pos.X = 0
   Particles(index).Pos.Y = 0
   Particles(index).Pos.Z = 0
   Particles(index).PosVel.X = 0
   Particles(index).PosVel.Y = 0
   Particles(index).PosVel.Z = 0
   Particles(index).PosAcc.X = 0
   Particles(index).PosAcc.Y = 0
   Particles(index).PosAcc.Z = 0


   Particles(index).Rot.X = 0
   Particles(index).Rot.Y = 0
   Particles(index).Rot.Z = 0
   Particles(index).RotVel.X = 0
   Particles(index).RotVel.Y = 0
   Particles(index).RotVel.Z = 0

   Particles(index).Scale = 100
   Particles(index).ScaleVel = 0

   Particles(index).Lifetime = 1

   Particles(index).UOffset = 0
   Particles(index).VOffset = 0

   Particles(index).Colour.Red = 255
   Particles(index).Colour.Green = 255
   Particles(index).Colour.Blue = 255

   Particles(index).ColourVel.Red = 0
   Particles(index).ColourVel.Green = 0
   Particles(index).ColourVel.Blue = 0

   Particles(index).ColourBlend = 0

Endfunction




Function particle_colourblend(local_initialred,local_initialgreen,local_initialblue,local_finalred,local_finalgreen,local_finalblue,local_particleindex)

    Particles(local_particleindex).Colour.Red = local_initialred
    Particles(local_particleindex).Colour.Green = local_initialgreen
    Particles(local_particleindex).Colour.Blue = local_initialblue

    Particles(local_particleindex).ColourVel.Red = (local_finalred - local_initialred)/ Particles(local_particleindex).Lifetime
    Particles(local_particleindex).ColourVel.Green = (local_finalgreen - local_initialgreen)/Particles(local_particleindex).Lifetime
    Particles(local_particleindex).ColourVel.Blue = (local_finalblue - local_initialblue)/Particles(local_particleindex).Lifetime


Endfunction





Function free_object()
   i=100
   Do
      If Object Exist(i)=0 then Exit
      inc i
   Loop
Endfunction i


Function free_image()
   i=100
   Do
      If Image Exist(i)=0 then Exit
      inc i
   Loop
Endfunction i


Function update_emitters()

   for i = 0 to array count(ParticleEmitters())

      if ParticleEmitters(i).Active = 1

         ParticleEmitters(i).Repeattime = ParticleEmitters(i).Repeattime - TIMEPASSED
         ParticleEmitters(i).Lifetime = ParticleEmitters(i).Lifetime - TIMEPASSED

         if ParticleEmitters(i).Repeattime <= 0

            Select ParticleEmitters(i).EffectType

               case 1
                  makeblood(ParticleEmitters(i).Pos.X,ParticleEmitters(i).Pos.Y,ParticleEmitters(i).Pos.Z)
               endcase

            endselect

            ParticleEmitters(i).Repeattime = ParticleEmitters(i).Repeatrate
         endif

         if ParticleEmitters(i).Lifetime <= 0
            ParticleEmitters(i).Active = 0
         endif
      endif

   next i

Endfunction





Function allocate_emitter()

   for i = 0 to array count(ParticleEmitters())
      if ParticleEmitters(i).Active = 0
         particleemitter_index = i
         exitfunction particleemitter_index
      endif
   next i

   array insert at bottom ParticleEmitters()
   particleemitter_index = array count(ParticleEmitters())

endfunction particleemitter_index






Function reset_emitter(index)

   ParticleEmitters(index).Pos.X = 0
   ParticleEmitters(index).Pos.Y = 0
   ParticleEmitters(index).Pos.Z = 0

   ParticleEmitters(index).Lifetime = 1
   ParticleEmitters(index).Repeatrate = 1
   ParticleEmitters(index).Repeattime = 0

   ParticleEmitters(index).EffectType = 0

Endfunction





Function makebloodeffect(local_xpos,local_ypos,local_zpos)

   index = allocate_emitter()                         `This is required to get a free emitter from the list.
   reset_emitter(index)                               `Starts the emitter clean and defaulty.

   ParticleEmitters(index).Pos.X = local_xpos         `Positions the emitter in the world.  Used for spell locations etc
   ParticleEmitters(index).Pos.Y = local_ypos
   ParticleEmitters(index).Pos.Z = local_zpos

   ParticleEmitters(index).Lifetime = 0.2               `The lifetime in seconds of the EMITTER - not the particles.
   ParticleEmitters(index).Repeatrate = 0.1          `How often the emitter will spew out particles in seconds.

   ParticleEmitters(index).EffectType = 1             `Number of the effect that the emitter spews.  You can use CONSTANTs
   ParticleEmitters(index).Active = 1                 `Sets it to active.  Required.

Endfunction








Function makeblood(local_xpos,local_ypos,local_zpos)

for i = 0 to 60

    index = allocate_particle()              `These are required for getting the next free particle.
    reset_particle(index)                    `This ensures the particle has a 'clean slate' to begin.

    Particles(index).Pos.X = local_xpos      `The particle's initial start position.  Usually given by
    Particles(index).Pos.Y = local_ypos      `the emitter when it calls the particle.
    Particles(index).Pos.Z = local_zpos

    Particles(index).PosVel.X = rnd(6)       `The initial velocity of the particle.  If you have gravity
    Particles(index).PosVel.Y = rnd(8)+5     `enabled, the Y velocity should be quite large (in the 8-10
    Particles(index).PosVel.Z = rnd(6)       `range) to counteract it.

    Particles(index).PosAcc.X = 0            `Any initial acceleration on the particle.  If you want it
    Particles(index).PosAcc.Z = 0            `to get increasingly faster in a direction, accelleration
    Particles(index).PosAcc.Y = 0            `is where it's at.

    Particles(index).Rot.X = 0               `The rotation of the particle - NOTE if you have facing ON
    Particles(index).Rot.Y = 0               `then these numbers will be ignored.
    Particles(index).Rot.Z = 0

    Particles(index).RotVel.X = 0            `If you want the particle to spin at all, then use these,
    Particles(index).RotVel.Y = 0            `but remember - if Facing is ON, these will have little
    Particles(index).RotVel.Z = 0            `or no effect.


    Particles(index).Scale = 5.0            `The initial scale of the particle in percent.  Size is 1.
    Particles(index).ScaleVel = 25           `The change in scale per second for the object.  Negative
                                             `numbers to shrink over time, positive numbers to expand.

    Particles(index).Lifetime = 1            `The length of time, in seconds, that each particle lasts.

    Particles(index).Gravity = 1             `1 or 0 for affected by gravity or not.
    Particles(index).Facing = 1              `1 or 0 for facing the player always, or not.

    Particles(index).UOffset = 0             `Offset in the particle texture.  Values between 0 and 0.75, in 0.25s.
    Particles(index).VOffset = 0             `Same as above, but up and down, instead of left and right.

    local_initialred = 255                   `Temporary variables to set the start and end colour of your
    local_initialgreen = 0                   `particle system.  If you only want one colour, just set it as
    local_initialblue = 0                    `the start colour.
    local_finalred = 0                     `The function below (particle_colourblend) sets the colour velocities.
    local_finalgreen = 0
    local_finalblue = 0

    Particles(index).ColourBlend = 1         `This boolean sets whether you want to blend.  1 to blend.

    particle_colourblend(local_initialred,local_initialgreen,local_initialblue,local_finalred,local_finalgreen,local_finalblue,index)

                                             `The following three lines set up the look of the particle initially.
    set object emissive Particles(index).Object,rgb(Particles(index).Colour.Red,Particles(index).Colour.Green,Particles(index).Colour.Blue)
    set object diffuse Particles(index).Object,rgb(Particles(index).Colour.Red,Particles(index).Colour.Green,Particles(index).Colour.Blue)
    scroll object texture Particles(index).Object,Particles(index).UOffset,Particles(index).VOffset
next i

Endfunction

SYNC ON : SYNC RATE 0 : HIDE MOUSE
SET DISPLAY MODE 320,260,32

SET TEXT SIZE 12 : SET TEXT FONT "MT Extra"
SYNC : CENTER TEXT 160,120,"Loading..." : SYNC

RANDOMIZE TIMER()
SET IMAGE COLORKEY 0,0,0

RETICLE=1
INK 0,0 : BOX 1,1,34,18
INK RGB(0,165,0),0
LINE 12,1,15,4 : LINE 13,1,16,4
LINE 22,1,19,4 : LINE 23,1,20,4
LINE 15,8,13,10 : LINE 16,8,14,10
LINE 19,8,21,10 : LINE 20,8,22,10
INK RGB(0,255,0),0
DOT 7,4 : DOT 8,4 : DOT 9,4
DOT 10,5 : DOT 10,6 : DOT 10,7
DOT 9,8 : DOT 8,8 : DOT 7,8
DOT 6,7 : DOT 6,6 : DOT 6,5
DOT 26,4 : DOT 27,4 : DOT 28,4
DOT 29,5 : DOT 29,6 : DOT 29,7
DOT 28,8 : DOT 27,8 : DOT 26,8
DOT 25,7 : DOT 25,6 : DOT 25,5
DOT 7,12 : DOT 8,12 : DOT 7,13 : DOT 8,13
DOT 27,12 : DOT 28,12 : DOT 27,13 : DOT 28,13
DOT 6,14 : DOT 4,15 : DOT 29,14 : DOT 31,15
DOT 2,16 : DOT 3,16 : DOT 2,17 : DOT 3,17
DOT 32,16 : DOT 33,16 : DOT 32,17 : DOT 33,17
DOT 15,4 : DOT 16,4 : DOT 19,4 : DOT 20,4
DOT 13,10 : DOT 14,10 : DOT 21,10 : DOT 22,10
INK RGB(0,165,0),0
DOT 6,12 : DOT 6,13 : DOT 5,14 : DOT 5,15
DOT 29,12 : DOT 29,13 : DOT 30,14 : DOT 30,15
DOT 2,15 : DOT 3,15 : DOT 4,16 : DOT 4,17
DOT 3,18 : DOT 2,18 : DOT 1,17 : DOT 1,16
DOT 32,15 : DOT 33,15 : DOT 34,16 : DOT 34,17
DOT 33,18 : DOT 32,18 : DOT 31,17 : DOT 31,16
DOT 7,11 : DOT 8,11 : DOT 9,11
DOT 7,14 : DOT 8,14 : DOT 9,14
DOT 9,12 : DOT 10,12 : DOT 10,13 : DOT 9,13
DOT 26,11 : DOT 27,11 : DOT 28,11
DOT 26,14 : DOT 27,14 : DOT 28,14
DOT 25,12 : DOT 26,12 : DOT 26,13 : DOT 25,13
GET IMAGE RETICLE,1,1,34,18,1

WALLS=2
INK RGB(200,200,200),0
BOX 1,1,64,64
INK RGB(180,180,180),0
FOR I=1 TO 50
   LINEX=RND(64)
   LINEY1=RND(32)
   LINEY2=RND(32)+LINEY1
   LINE LINEX,LINEY1,LINEX,LINEY2
NEXT I
INK RGB(130,130,130),0
ELLIPSE 32,32,24,24
ELLIPSE 32,32,23,23
INK RGB(255,255,255),0
CIRCLE 32,32,22
GET IMAGE WALLS,1,1,64,64,0

PILLAR=3
FOR I=1 TO 64
   FOR J=1 TO 64
      COLR=RND(80)+175
      INK RGB(COLR,COLR,COLR),0
      DOT J,I
   NEXT J
NEXT I
GET IMAGE PILLAR,1,1,64,64,0

FLOOR=4
INK RGB(25,40,20),0
BOX 1,1,64,64
FOR I=1 TO 20
   IF RND(1)=1 : INK RGB(60,60,20),0 : ELSE : INK RGB(20,20,60),0 : ENDIF
   DOT RND(64),RND(64)
NEXT I
INK RGB(15,30,15),0
LINE 1,1,1,64 : LINE 22,1,22,64
LINE 44,1,44,64 : LINE 1,20,64,20
LINE 1,42,64,42 : LINE 1,64,64,64
GET IMAGE FLOOR,1,1,64,64,0

EXPLODE=5
SET IMAGE COLORKEY 255,0,255
INK RGB(255,0,255),0
BOX 1,1,32,32
INK RGB(180,180,0),0
FOR I=1 TO 16 STEP 2
   CIRCLE 16,16,I
NEXT I
GET IMAGE EXPLODE,1,1,32,32,0

MakeDrone("Class1",1,-30,0,0)
MakeDrone("Class1",2,30,0,-20)
MakeDrone("Class1",3,0,0,30)

MAKE OBJECT CYLINDER 4,10 : TEXTURE OBJECT 4,PILLAR : POSITION OBJECT 4,30,0,30
SET OBJECT COLLISION ON 4

MAKE OBJECT BOX 5,150,1,150 : TEXTURE OBJECT 5,FLOOR : POSITION OBJECT 5,0,5.5,0
SET OBJECT COLLISION ON 5

MAKE OBJECT BOX 6,1,10,150 : TEXTURE OBJECT 6,WALLS : POSITION OBJECT 6,-75.5,0,0
SET OBJECT COLLISION ON 6

MAKE OBJECT BOX 7,1,10,150 : TEXTURE OBJECT 7,WALLS : POSITION OBJECT 7,75.5,0,0
SET OBJECT COLLISION ON 7

MAKE OBJECT BOX 8,150,10,1 : TEXTURE OBJECT 8,WALLS : POSITION OBJECT 8,0,0,75.5
SET OBJECT COLLISION ON 8

MAKE OBJECT BOX 9,150,10,1 : TEXTURE OBJECT 9,WALLS : POSITION OBJECT 9,0,0,-75.5
SET OBJECT COLLISION ON 9

MAKE OBJECT BOX 10,150,1,150 : TEXTURE OBJECT 10,FLOOR : POSITION OBJECT 10,0,-5.5,0
SET OBJECT COLLISION ON 10

MAKE OBJECT CYLINDER 11,10 : TEXTURE OBJECT 11,PILLAR : POSITION OBJECT 11,-30,0,30
SET OBJECT COLLISION ON 11

MAKE OBJECT CYLINDER 12,10 : TEXTURE OBJECT 12,PILLAR : POSITION OBJECT 12,-30,0,-30
SET OBJECT COLLISION ON 12

MAKE OBJECT CYLINDER 13,10 : TEXTURE OBJECT 13,PILLAR : POSITION OBJECT 13,30,0,-30
SET OBJECT COLLISION ON 13

GLOBAL EXPO=1
MAKE PARTICLES EXPO,EXPLODE,1,3
HIDE PARTICLES EXPO
SET PARTICLE GRAVITY EXPO,10
SET PARTICLE VELOCITY EXPO,0
SET PARTICLE LIFE EXPO,20

GLOBAL PLR=14 : GLOBAL PLRX#=0.0 : GLOBAL PLRY#=0.0
GLOBAL PLRZ#=-30.0 : GLOBAL PLRA#=0.0 : GLOBAL HOVER#=90.0
GLOBAL SCORE=0 : GLOBAL SHIELDS=100 : GLOBAL ENERGY=100
GLOBAL CONCS=8 : THEIGHT=TEXT HEIGHT("ANYTHING")
GLOBAL LASER$="LASER LEVEL 1" : GLOBAL LASERS=2
GLOBAL PLRSHOT=800 : GLOBAL DRONESHOT=120 : GLOBAL PLRCONCS=1200
GLOBAL DEADZONE=TIMER() : GLOBAL CONCZONE=TIMER()
GLOBAL BOMBTIME=TIMER() : GLOBAL CONCSIDE=1

MAKE OBJECT CUBE PLR,5
SET OBJECT COLLISION ON PLR
SET OBJECT CULL PLR,1
POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#

INK RGB(0,180,0),0

QUADS1=MakePowerup("Quads",-15,0,-10)
ENERGY1=MakePowerup("Energy",0,0,0)
SHIELDS1=MakePowerup("Shields",35,0,-10)

TYPE DronesA
   SHOOTING AS INTEGER
   STATE AS INTEGER
   LOS AS INTEGER
   SPEED AS FLOAT
   DAMMAGE AS FLOAT
   INTEGRITY AS FLOAT
   REFLEX AS FLOAT
   DESTX AS FLOAT
   DESTZ AS FLOAT
   XLOCKSTATE AS INTEGER
   ZLOCKSTATE AS INTEGER
ENDTYPE

GLOBAL DIM DRONESTAT(3) AS DronesA
FOR I=1 TO 3
   DRONESTAT(I).SHOOTING=0
   DRONESTAT(I).STATE=1
   DRONESTAT(I).LOS=0
   DRONESTAT(I).SPEED=(RND(2)/10)+0.1
   DRONESTAT(I).DAMMAGE=RND(512)/100
   DRONESTAT(I).INTEGRITY=100
   DRONESTAT(I).REFLEX=RND(5)/10
   DRONESTAT(I).DESTX=(RND(80)-40)
   DRONESTAT(I).DESTZ=(RND(80)-40)
   DRONESTAT(I).XLOCKSTATE=0
   DRONESTAT(I).ZLOCKSTATE=0
NEXT I

TYPE DroneShot
   SPEED AS FLOAT
   POSX AS FLOAT
   POSY AS FLOAT
   POSZ AS FLOAT
   ANGLE AS FLOAT
ENDTYPE

GLOBAL DIM DBULLET(600) AS DroneShot
FOR I=1 TO 600
   DBULLET(I).SPEED=RND(5)/10+0.3
   DBULLET(I).POSX=0.0
   DBULLET(I).POSY=0.0
   DBULLET(I).POSZ=0.0
   DBULLET(I).ANGLE=0.0
NEXT I

TYPE PlayerShot
   ID AS INTEGER
   POSX AS FLOAT
   POSY AS FLOAT
   POSZ AS FLOAT
   ANGLE AS FLOAT
ENDTYPE

GLOBAL DIM PBULLET(2000) AS PlayerShot
FOR I=800 TO 2000
   PBULLET(I).ID=1
   PBULLET(I).POSX=0.0
   PBULLET(I).POSY=PLRY#
   PBULLET(I).POSZ=0.0
   PBULLET(I).ANGLE=PLRA#
NEXT I

DO
   IF KEYSTATE(32)=1
      PLRX#=NEWXVALUE(PLRX#,PLRA#,0.2)
      PLRZ#=NEWZVALUE(PLRZ#,PLRA#,0.2)
   ENDIF
   IF KEYSTATE(18)=1
      PLRX#=NEWXVALUE(PLRX#,PLRA#,-0.2)
      PLRZ#=NEWZVALUE(PLRZ#,PLRA#,-0.2)
   ENDIF
   IF KEYSTATE(42)=1
      PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#-90),0.2)
      PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#-90),0.2)
   ENDIF
   IF KEYSTATE(33)=1
      PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#+90),0.2)
      PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#+90),0.2)
   ENDIF
   IF KEYSTATE(17)=1 THEN INC PLRY#,0.15
   IF KEYSTATE(46)=1 THEN DEC PLRY#,0.15

   IF MOUSECLICK()=1 THEN Shooting(1)
   IF MOUSECLICK()=2 THEN Shooting(2)
   IF MOUSECLICK()=3 THEN Shooting(1) : Shooting(2)

   PLRA#=WRAPVALUE(PLRA#+(MOUSEMOVEX()*0.2))

   INC HOVER#,3
   HOVER#=WRAPVALUE(HOVER#)
   PLRY#=PLRY#+(SIN(HOVER#)/33)

   POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#
   YROTATE OBJECT PLR,PLRA#

   SlidingCollision()
   FOR I=800 TO 2000 : HandlePlayerBullets(I) : NEXT I
   FOR I=120 TO 790 : HandleDroneBullets(I) : NEXT I
   FOR I=1 TO 3
      IF OBJECT EXIST(I)=1 THEN HandleDrone(I)
   NEXT I

   `IF OBJECT EXIST(1)=0 AND OBJECT EXIST(2)=0 AND OBJECT EXIST(3)=0 THEN Ending()

   IF OBJECT EXIST(QUADS1)=1 THEN YROTATE OBJECT QUADS1,OBJECT ANGLE Y(QUADS1)+2.5
   IF OBJECT EXIST(QUADS1)=1 THEN IF OBJECT COLLISION(PLR,QUADS1)=1 THEN GotItem("Quads")
   IF OBJECT EXIST(ENERGY1)=1 THEN YROTATE OBJECT ENERGY1,OBJECT ANGLE Y(ENERGY1)+5
   IF OBJECT EXIST(ENERGY1)=1 THEN IF OBJECT COLLISION(PLR,ENERGY1)=1 THEN GotItem("Energy")
   IF OBJECT EXIST(SHIELDS1)=1 THEN IF OBJECT COLLISION(PLR,SHIELDS1)=1 THEN GotItem("Shields")

   SET CAMERA TO OBJECT ORIENTATION PLR
   POSITION CAMERA PLRX#,PLRY#,PLRZ#

   TEXT SCREEN WIDTH()-(TEXT WIDTH("SCORE: "+STR$(SCORE))+5),5,"SCORE: "+STR$(SCORE)
   TEXT 5,SCREEN HEIGHT()-(TEXT HEIGHT("ANYTHING")*2),"SHIELDS: "+STR$(SHIELDS)
   TEXT 5,SCREEN HEIGHT()-TEXT HEIGHT("ANYTHING"),"ENERGY: "+STR$(ENERGY)
   TEXT SCREEN WIDTH()-(TEXT WIDTH(LASER$)+5),SCREEN HEIGHT()-(THEIGHT*2),LASER$
   TEXT SCREEN WIDTH()-(TEXT WIDTH("0 CONCSN MISSLES")+5),SCREEN HEIGHT()-THEIGHT,STR$(CONCS)+" CONCSN MISSLES"

   PASTE IMAGE RETICLE,(SCREEN WIDTH()/2)-17,(SCREEN HEIGHT()/2)-9,1

   SYNC
LOOP

FUNCTION SlidingCollision()
   W=OBJECT COLLISION(PLR,0)
   IF W>0
      IF ABS(PLRX#-OBJECT POSITION X(W))<OBJECT SIZE X(W)/2
         IF ABS(PLRY#-OBJECT POSITION Y(W))<OBJECT SIZE Y(W)/2
            IF PLRZ#<OBJECT POSITION Z(W) THEN DEC PLRZ#,0.20000000000000000000000001
            IF PLRZ#>OBJECT POSITION Z(W) THEN INC PLRZ#,0.20000000000000000000000001
         ENDIF
      ENDIF
      IF ABS(PLRZ#-OBJECT POSITION Z(W))<OBJECT SIZE Z(W)/2
         IF ABS(PLRY#-OBJECT POSITION Y(W))<OBJECT SIZE Y(W)/2
            IF PLRX#<OBJECT POSITION X(W) THEN DEC PLRX#,0.20000000000000000000000001
            IF PLRX#>OBJECT POSITION X(W) THEN INC PLRX#,0.20000000000000000000000001
         ENDIF
      ENDIF
      IF ABS(PLRX#-OBJECT POSITION X(W))<(OBJECT SIZE X(W)/2)-0.1 AND ABS(PLRZ#-OBJECT POSITION Z(W))<(OBJECT SIZE Z(W)/2)-0.1
         IF PLRY#>OBJECT POSITION Y(W) THEN INC PLRY#,0.15000000000000000000000001
         IF PLRY#<OBJECT POSITION Y(W) THEN DEC PLRY#,0.15000000000000000000000001
      ENDIF
   ENDIF
ENDFUNCTION

FUNCTION Shooting(m)
   IF m=1
      IF ENERGY>0
         IF TIMER()-DEADZONE>=300
            IF LASERS=2 THEN MakeFlack("Laser")
            IF LASERS=4 THEN MakeFlack("Quads")
            DEC ENERGY : DEADZONE=TIMER()
         ENDIF
      ELSE
         PostMessage("ENERGY DEPLETED")
      ENDIF
   ENDIF
   IF m=2
      IF CONCS>0
         IF TIMER()-CONCZONE>=500 THEN MakeFlack("Conc") : DEC CONCS : CONCZONE=TIMER()
      ELSE
         PostMessage("CONCUSSION MISSLES DEPLETED")
      ENDIF
   ENDIF
ENDFUNCTION

FUNCTION PostMessage(m$)
   CENTER TEXT SCREEN WIDTH()/2,5,m$
ENDFUNCTION

FUNCTION MakeDrone(d$,ObNum,dX#,dY#,dZ#)
   SELECT d$
      CASE "Class1"
         MAKE OBJECT SPHERE ObNum,4.5
         COLOR OBJECT ObNum,RGB(200,50,0)
         SCALE OBJECT ObNum,70,40,100
         MAKE OBJECT CONE (ObNum+1),5
         XROTATE OBJECT (ObNum+1),-90
         SCALE OBJECT (ObNum+1),80,70,60
         MAKE MESH FROM OBJECT 1,ObNum+1
         DELETE OBJECT (ObNum+1)
         ADD LIMB ObNum,1,1
         DELETE MESH 1
         OFFSET LIMB ObNum,1,0,0,-3
         COLOR LIMB ObNum,1,RGB(200,50,0)
         SET LIMB SMOOTHING ObNum,1,100
         MAKE OBJECT CYLINDER (ObNum+1),1
         SCALE OBJECT (ObNum+1),100,200,100
         ZROTATE OBJECT (ObNum+1),-105
         MAKE MESH FROM OBJECT 1,(ObNum+1)
         DELETE OBJECT (ObNum+1)
         ADD LIMB ObNum,2,1
         DELETE MESH 1
         OFFSET LIMB ObNum,2,2.7,-1,0.5
         COLOR LIMB ObNum,2,RGB(50,50,50)
         MAKE OBJECT CYLINDER (ObNum+1),1
         SCALE OBJECT (ObNum+1),100,200,100
         ZROTATE OBJECT (ObNum+1),-255
         MAKE MESH FROM OBJECT 1,ObNum+1
         DELETE OBJECT (ObNum+1)
         ADD LIMB ObNum,3,1
         DELETE MESH 1
         OFFSET LIMB ObNum,3,-2.7,-1,0.5
         COLOR LIMB ObNum,3,RGB(50,50,50)
         MAKE OBJECT CONE (ObNum+1),2
         XROTATE OBJECT (ObNum+1),-90
         MAKE MESH FROM OBJECT 1,(ObNum+1)
         DELETE OBJECT (ObNum+1)
         ADD LIMB ObNum,4,1
         DELETE MESH 1
         OFFSET LIMB ObNum,4,3.5,-1.25,0.5
         COLOR LIMB ObNum,4,RGB(200,50,0)
         MAKE OBJECT CONE (ObNum+1),2
         XROTATE OBJECT (ObNum+1),-90
         MAKE MESH FROM OBJECT 1,(ObNum+1)
         DELETE OBJECT (ObNum+1)
         ADD LIMB ObNum,5,1
         DELETE MESH 1
         OFFSET LIMB ObNum,5,-3.5,-1.25,0.5
         COLOR LIMB ObNum,5,RGB(200,50,0)
         SET OBJECT CULL ObNum,0
      ENDCASE
   ENDSELECT
   POSITION OBJECT ObNum,dX#,dY#,dZ#
   SET OBJECT COLLISION ON ObNum
ENDFUNCTION

FUNCTION MakeFlack(f$)
   Flack=GetFreeBullet(800)
   Flacky=Flack+1
   SELECT f$
      CASE "Laser"
         INC PLRSHOT
         MAKE OBJECT SPHERE Flack,0.5,2,4
         MAKE OBJECT SPHERE Flacky,0.5,2,4
         MAKE MESH FROM OBJECT 1,Flacky
         DELETE OBJECT Flacky
         ADD LIMB Flack,1,1
         DELETE MESH 1
         OFFSET LIMB Flack,1,3,0,0
         COLOR LIMB Flack,1,RGB(255,0,0)
         COLOR OBJECT Flack,RGB(255,0,0)
         SET OBJECT DIFFUSE Flack,RGB(255,0,0)
         SET OBJECT EMISSIVE Flack,RGB(160,0,0)
         SET OBJECT SPECULAR Flack,RGB(255,255,0)
         SCALE OBJECT Flack,100,100,1000
         PBULLET(Flack).ID=1
         PBULLET(Flack).ANGLE=OBJECT ANGLE Y(PLR)
         PBULLET(Flack).POSX=OBJECT POSITION X(PLR)
         PBULLET(Flack).POSY=OBJECT POSITION Y(PLR)
         PBULLET(Flack).POSZ=OBJECT POSITION Z(PLR)
         YROTATE OBJECT Flack,PBULLET(Flack).ANGLE
         POSITION OBJECT Flack,PBULLET(Flack).POSX,PBULLET(Flack).POSY,PBULLET(Flack).POSZ
         MOVE OBJECT Flack,OBJECT SIZE Z(Flack)/2
         MOVE OBJECT LEFT Flack,1.8
      ENDCASE
      CASE "Quads"
         INC PLRSHOT
         MAKE OBJECT SPHERE Flack,0.5,2,4
         MAKE OBJECT SPHERE Flacky,0.5,2,4
         MAKE MESH FROM OBJECT 1,Flacky
         DELETE OBJECT Flacky
         ADD LIMB Flack,1,1
         DELETE MESH 1
         OFFSET LIMB Flack,1,3,0,0
         COLOR LIMB Flack,1,RGB(255,0,0)
         MAKE OBJECT SPHERE Flacky,0.5,2,4
         MAKE MESH FROM OBJECT 1,Flacky
         DELETE OBJECT Flacky
         ADD LIMB Flack,2,1
         DELETE MESH 1
         OFFSET LIMB Flack,2,5,-1,0.2
         COLOR LIMB Flack,2,RGB(255,0,0)
         MAKE OBJECT SPHERE Flacky,0.5,2,4
         MAKE MESH FROM OBJECT 1,Flacky
         DELETE OBJECT Flacky
         ADD LIMB Flack,3,1
         DELETE MESH 1
         OFFSET LIMB Flack,3,-2,-1,0.2
         COLOR LIMB Flack,3,RGB(255,0,0)
         COLOR OBJECT Flack,RGB(255,0,0)
         SET OBJECT DIFFUSE Flack,RGB(255,0,0)
         SET OBJECT EMISSIVE Flack,RGB(160,0,0)
         SET OBJECT SPECULAR Flack,RGB(255,255,0)
         SCALE OBJECT Flack,100,100,1000
         PBULLET(Flack).ID=1
         PBULLET(Flack).ANGLE=OBJECT ANGLE Y(PLR)
         PBULLET(Flack).POSX=OBJECT POSITION X(PLR)
         PBULLET(Flack).POSY=OBJECT POSITION Y(PLR)
         PBULLET(Flack).POSZ=OBJECT POSITION Z(PLR)
         YROTATE OBJECT Flack,PBULLET(Flack).ANGLE
         POSITION OBJECT Flack,PBULLET(Flack).POSX,PBULLET(Flack).POSY,PBULLET(Flack).POSZ
         MOVE OBJECT Flack,OBJECT SIZE Z(Flack)/2
         MOVE OBJECT LEFT Flack,1.8
      ENDCASE
      CASE "Conc"
         MAKE OBJECT PLAIN Flack,0.1,0.1
         MAKE OBJECT CYLINDER Flacky,0.5
         XROTATE OBJECT Flacky,90
         MAKE MESH FROM OBJECT 1,Flacky
         DELETE OBJECT Flacky
         ADD LIMB Flack,1,1
         DELETE MESH 1
         COLOR LIMB Flack,1,RGB(160,160,160)
         MAKE OBJECT CONE Flacky,0.7
         SCALE OBJECT Flacky,100,150,100
         XROTATE OBJECT Flacky,90
         MAKE MESH FROM OBJECT 1,Flacky
         DELETE OBJECT Flacky
         ADD LIMB Flack,2,1
         DELETE MESH 1
         OFFSET LIMB Flack,2,0,0,1
         COLOR LIMB Flack,2,RGB(160,160,160)
         SET OBJECT CULL Flack,0
         PBULLET(Flack).ID=2
         PBULLET(Flack).ANGLE=OBJECT ANGLE Y(PLR)
         PBULLET(Flack).POSX=OBJECT POSITION X(PLR)
         PBULLET(Flack).POSY=OBJECT POSITION Y(PLR)+1
         PBULLET(Flack).POSZ=OBJECT POSITION Z(PLR)
         YROTATE OBJECT Flack,PBULLET(Flack).ANGLE
         POSITION OBJECT Flack,PBULLET(Flack).POSX,PBULLET(Flack).POSY,PBULLET(Flack).POSZ
         MOVE OBJECT Flack,OBJECT SIZE Z(Flack)/2
         IF CONCSIDE=1 THEN MOVE OBJECT LEFT Flack,2
         IF CONCSIDE=2 THEN MOVE OBJECT RIGHT Flack,2
         CONCSIDE=CONCSIDE*-1
         INC CONCSIDE,3
      ENDCASE
   ENDSELECT
   SET OBJECT COLLISION ON Flack
ENDFUNCTION Flack

FUNCTION MakePowerup(t$,tX#,tY#,tZ#)
   ItmNum=0
   FOR I=1 TO 9999 STEP 2
      IF OBJECT EXIST(I)<>1 THEN ItmNum=I
      IF ItmNum<>0 THEN BREAK
   NEXT I
   SELECT t$
      CASE "Quads"
         MAKE OBJECT BOX ItmNum,1.5,0.125,0.75
         COLOR OBJECT ItmNum,RGB(50,50,50)
         MAKE OBJECT BOX (ItmNum+1),1.5,0.125,1
         ZROTATE OBJECT (ItmNum+1),45
         MAKE MESH FROM OBJECT 1,(ItmNum+1)
         DELETE OBJECT (ItmNum+1)
         ADD LIMB ItmNum,1,1
         DELETE MESH 1
         OFFSET LIMB ItmNum,1,-1,-0.5,0
         COLOR LIMB ItmNum,1,RGB(50,50,50)
         MAKE OBJECT BOX (ItmNum+1),1.5,0.125,1
         ZROTATE OBJECT (ItmNum+1),-45
         MAKE MESH FROM OBJECT 1,(ItmNum+1)
         DELETE OBJECT (ItmNum+1)
         ADD LIMB ItmNum,2,1
         DELETE MESH 1
         OFFSET LIMB ItmNum,2,1,-0.5,0
         COLOR LIMB ItmNum,2,RGB(50,50,50)
         MAKE OBJECT CYLINDER (ItmNum+1),1.3
         SCALE OBJECT (ItmNum+1),20,120,20
         XROTATE OBJECT (ItmNum+1),90
         MAKE MESH FROM OBJECT 1,(ItmNum+1)
         DELETE OBJECT (ItmNum+1)
         ADD LIMB ItmNum,3,1
         DELETE MESH 1
         OFFSET LIMB ItmNum,3,-1,-0.5,-0.45
         COLOR LIMB ItmNum,3,RGB(50,50,50)
         MAKE OBJECT CYLINDER (ItmNum+1),1.3
         SCALE OBJECT (ItmNum+1),20,120,20
         XROTATE OBJECT (ItmNum+1),90
         MAKE MESH FROM OBJECT 1,(ItmNum+1)
         DELETE OBJECT (ItmNum+1)
         ADD LIMB ItmNum,4,1
         DELETE MESH 1
         OFFSET LIMB ItmNum,4,-1.5,-0.95,-0.45
         COLOR LIMB ItmNum,4,RGB(50,50,50)
         MAKE OBJECT CYLINDER (ItmNum+1),1.3
         SCALE OBJECT (ItmNum+1),20,120,20
         XROTATE OBJECT (ItmNum+1),90
         MAKE MESH FROM OBJECT 1,(ItmNum+1)
         DELETE OBJECT (ItmNum+1)
         ADD LIMB ItmNum,5,1
         DELETE MESH 1
         OFFSET LIMB ItmNum,5,1,-0.5,-0.45
         COLOR LIMB ItmNum,5,RGB(50,50,50)
         MAKE OBJECT CYLINDER (ItmNum+1),1.3
         SCALE OBJECT (ItmNum+1),20,120,20
         XROTATE OBJECT (ItmNum+1),90
         MAKE MESH FROM OBJECT 1,(ItmNum+1)
         DELETE OBJECT (ItmNum+1)
         ADD LIMB ItmNum,6,1
         DELETE MESH 1
         OFFSET LIMB ItmNum,6,1.5,-0.95,-0.45
         COLOR LIMB ItmNum,6,RGB(50,50,50)
         SET OBJECT CULL ItmNum,0
      ENDCASE
      CASE "Energy"
         MAKE OBJECT SPHERE ItmNum,1,2,4
         SCALE OBJECT ItmNum,200,200,100
         COLOR OBJECT ItmNum,RGB(255,255,0)
         MAKE OBJECT SPHERE (ItmNum+1),0.3,2,4
         MAKE MESH FROM OBJECT 1,(ItmNum+1)
         DELETE OBJECT (ItmNum+1)
         ADD LIMB ItmNum,1,1
         DELETE MESH 1
         OFFSET LIMB ItmNum,1,0.7,0.7,0
         COLOR LIMB ItmNum,1,RGB(255,255,0)
         MAKE OBJECT SPHERE (ItmNum+1),0.3,2,4
         MAKE MESH FROM OBJECT 1,(ItmNum+1)
         DELETE OBJECT (ItmNum+1)
         ADD LIMB ItmNum,2,1
         DELETE MESH 1
         OFFSET LIMB ItmNum,2,-0.7,0.7,0
         COLOR LIMB ItmNum,2,RGB(255,255,0)
      ENDCASE
      CASE "Shields"
         MAKE OBJECT SPHERE ItmNum,3,6,12
         COLOR OBJECT ItmNum,RGB(0,0,255)
         SET OBJECT DIFFUSE ItmNum,RGB(0,0,255)
         SET OBJECT EMISSIVE ItmNum,RGB(0,0,150)
         SET OBJECT SPECULAR ItmNum,RGB(255,255,255)
      ENDCASE
   ENDSELECT
   POSITION OBJECT ItmNum,tX#,tY#,tZ#
   XROTATE OBJECT ItmNum,350
ENDFUNCTION ItmNum

FUNCTION HandleDrone(r)
   rx#=OBJECT POSITION X(r)
   ry#=OBJECT POSITION Y(r)
   rz#=OBJECT POSITION Z(r)
   ra#=OBJECT ANGLE Y(r)

   IF OBJECT EXIST(100+r)<>1
      MAKE OBJECT CUBE (100+r),1
      HIDE OBJECT (100+r)
      SET OBJECT COLLISION OFF (100+r)
   ENDIF
   IF OBJECT EXIST(100+r)=1
      POSITION OBJECT (100+r),rx#,ry#,rz#
      YROTATE OBJECT (100+r),ra#
      MOVE OBJECT (100+r),50
   ENDIF

   rsx#=OBJECT POSITION X(100+r)
   rsz#=OBJECT POSITION Z(100+r)

   DRONESTAT(r).LOS=INTERSECT OBJECT(PLR,rsx#,ry#,rsz#,rx#,ry#,rz#)
   DRONESTAT(r).SPEED=(RND(2)/10)+0.1

   IF ABS(PLRX#-rx#)<20 AND ABS(PLRZ#-rz#)<10
      DRONESTAT(r).STATE=3
   ELSE
      DRONESTAT(r).STATE=1
   ENDIF

   SELECT DRONESTAT(r).STATE
      CASE 1
         IF RND(60)=2
            DRONESTAT(r).DESTX=rx#+(RND(50)-25)
            DRONESTAT(r).DESTZ=rz#+(RND(50)-25)
         ENDIF
         DRONESTAT(r).SHOOTING=0
      ENDCASE

      CASE 2
         DRONESTAT(r).DESTX=NEWXVALUE(rx#,WRAPVALUE(PLRA#*-1),DRONESTAT(r).SPEED)
         DRONESTAT(r).DESTZ=NEWZVALUE(rz#,WRAPVALUE(PLRA#*-1),DRONESTAT(r).SPEED)
         DRONESTAT(r).SHOOTING=0
      ENDCASE

      CASE 3
         DRONESTAT(r).DESTX=PLRX#
         DRONESTAT(r).DESTZ=PLRZ#
         DRONESTAT(r).SHOOTING=1
      ENDCASE
   ENDSELECT

   IF DRONESTAT(r).LOS <> 0
      DRONESTAT(r).STATE=3
      DRONESTAT(r).SHOOTING=1
   ELSE
      DRONESTAT(r).STATE=1
      DRONESTAT(r).SHOOTING=0
   ENDIF

   IF OBJECT COLLISION(r,0)<>0
      w=OBJECT COLLISION(r,0)
      wx#=OBJECT POSITION X(w)
      wz#=OBJECT POSITION Z(w)
      wsx#=OBJECT SIZE X(w)
      wsz#=OBJECT SIZE Z(w)
      IF ABS(rx#-wx#)<wsx#/2
         IF rz#>wz#
            IF ra#>=90 AND ra#<=270
               DRONESTAT(r).ZLOCKSTATE=1
            ELSE
               DRONESTAT(r).ZLOCKSTATE=0
            ENDIF
         ENDIF
         IF rz#<wz#
            IF ra#>=270 OR ra#<=90
               DRONESTAT(r).ZLOCKSTATE=1
            ELSE
               DRONESTAT(r).ZLOCKSTATE=0
            ENDIF
         ENDIF
      ENDIF
      IF ABS(rz#-wz#)<wsz#/2
         IF rx#>wx#
            IF ra#>=180
               DRONESTAT(r).XLOCKSTATE=1
            ELSE
               DRONESTAT(r).XLOCKSTATE=0
            ENDIF
         ENDIF
         IF rx#<wx#
            IF ra#>=0 AND ra#<=180
               DRONESTAT(r).XLOCKSTATE=1
            ELSE
               DRONESTAT(r).XLOCKSTATE=0
            ENDIF
         ENDIF
      ENDIF
      POSITION OBJECT r,rx#,OBJECT POSITION Y(r),rz#
   ELSE
      DRONESTAT(r).XLOCKSTATE=0
      DRONESTAT(r).ZLOCKSTATE=0
   ENDIF

   IF OBJECT EXIST(110+r)<>1
      MAKE OBJECT PLAIN (110+r),1,1
      HIDE OBJECT (110+r)
      SET OBJECT COLLISION OFF (110+r)
   ENDIF

   POSITION OBJECT (110+r),DRONESTAT(r).DESTX,ry#,DRONESTAT(r).DESTZ
   POINT OBJECT (110+r),rx#,ry#,rz# : YROTATE OBJECT (110+r),WRAPVALUE(OBJECT ANGLE Y(110+r)*-1)

   ra#=CURVEANGLE(OBJECT ANGLE Y(110+r),ra#,100)

   ra#=WRAPVALUE(ra#)
   IF DRONESTAT(r).XLOCKSTATE=0 THEN rx#=NEWXVALUE(rx#,ra#,DRONESTAT(r).SPEED)
   IF DRONESTAT(r).ZLOCKSTATE=0 THEN rz#=NEWZVALUE(rz#,ra#,DRONESTAT(r).SPEED)

   POSITION OBJECT r,rx#,ry#,rz#
   YROTATE OBJECT r,ra#

   IF DRONESTAT(r).SHOOTING=1
      IF RND(100)=1 THEN Shoot(r)
   ENDIF
ENDFUNCTION

FUNCTION GotItem(i$)
   OK=1
   SELECT i$
      CASE "Quads"
         LASER$="QUAD LASER LEVEL 1"
         LASERS=4
      ENDCASE
      CASE "Energy"
         IF (ENERGY+9)<200
            INC ENERGY,9
         ELSE
            PostMessage("ENERGY LIMIT 200") : OK=0
         ENDIF
      ENDCASE
      CASE "Shields"
         IF (SHIELDS+9)<200
            INC SHIELDS,9
         ELSE
            PostMessage("SHIELDS LIMIT 200") : OK=0
         ENDIF
      ENDCASE
   ENDSELECT
   IF OK=1 THEN DELETE OBJECT OBJECT COLLISION(PLR,0)
ENDFUNCTION

FUNCTION Shoot(d)
   IF DRONESHOT<800
      INC DRONESHOT
      p=GetFreeBullet(120)
      pcx1#=LIMB POSITION X(d,4)
      pcy1#=LIMB POSITION Y(d,4)
      pcz1#=LIMB POSITION Z(d,4)
      pcx2#=LIMB POSITION X(d,5)
      pcy2#=LIMB POSITION Y(d,5)
      pcz2#=LIMB POSITION Z(d,5)
      IF OBJECT EXIST(p)<>1
         MAKE OBJECT SPHERE p,2.5,5,5
         COLOR OBJECT p,RGB(255,0,0)
         SET OBJECT EMISSIVE p,RGB(255,0,0)
         SET OBJECT SPECULAR p,RGB(255,60,60)
         SET OBJECT COLLISION ON p
         IF RND(1)=0
            POSITION OBJECT p,pcx1#,pcy1#,pcz1#
         ELSE
            POSITION OBJECT p,pcx2#,pcy2#,pcz2#
         ENDIF
         DBULLET(p).POSX=OBJECT POSITION X(p)
         DBULLET(p).POSY=OBJECT POSITION Y(p)
         DBULLET(p).POSZ=OBJECT POSITION Z(p)
         YROTATE OBJECT p,OBJECT ANGLE Y(d)
      ENDIF
   ENDIF
ENDFUNCTION

FUNCTION HandleDroneBullets(p)
   IF OBJECT EXIST(p)=1
      DBULLET(p).ANGLE=OBJECT ANGLE Y(p)
      DBULLET(p).POSX=OBJECT POSITION X(p)
      DBULLET(p).POSY=OBJECT POSITION Y(p)
      DBULLET(p).POSZ=OBJECT POSITION Z(p)
      DBULLET(p).POSX=NEWXVALUE(DBULLET(p).POSX,DBULLET(p).ANGLE,DBULLET(p).SPEED)
      DBULLET(p).POSZ=NEWZVALUE(DBULLET(p).POSZ,DBULLET(p).ANGLE,DBULLET(p).SPEED)

      IF OBJECT COLLISION(p,0)<>0 AND OBJECT COLLISION(p,0)<>1 AND OBJECT COLLISION(p,0)<>2 AND OBJECT COLLISION(p,0)<>3
         IF OBJECT COLLISION(p,PLR)=1 THEN DEC SHIELDS,RND(6)+7
         DELETE OBJECT p : DEC DRONESHOT : EXITFUNCTION
      ENDIF

      POSITION OBJECT p,DBULLET(p).POSX,DBULLET(p).POSY,DBULLET(p).POSZ
   ENDIF
ENDFUNCTION

FUNCTION HandlePlayerBullets(p)
   IF OBJECT EXIST(p)=1
      IF PBULLET(p).ID=1
         IF OBJECT COLLISION(p,0)<>0 AND OBJECT COLLISION(p,0)<>PLR
            IF LASERS=2
               IF OBJECT COLLISION(p,0)=1 OR OBJECT COLLISION(p,0)=2 OR OBJECT COLLISION(p,0)=3
                  IF (DRONESTAT(OBJECT COLLISION(p,0)).INTEGRITY-60)>0
                     DEC DRONESTAT(OBJECT COLLISION(p,0)).INTEGRITY,60
                  ELSE
                     POSITION OBJECT OBJECT COLLISION(p,0),0,50,0
                     INC SCORE,200
                  ENDIF
               ENDIF
            ELSE
               IF OBJECT COLLISION(p,0)=1 OR OBJECT COLLISION(p,0)=2 OR OBJECT COLLISION(p,0)=3
                  POSITION OBJECT OBJECT COLLISION(p,0),0,50,0
                  INC SCORE,200
               ENDIF
            ENDIF

            DELETE OBJECT p
            EXITFUNCTION
         ENDIF

         MOVE OBJECT p,0.7
      ENDIF
      IF PBULLET(p).ID=2
         IF OBJECT COLLISION(p,0)<>0 AND OBJECT COLLISION(p,0)<>PLR
            IF OBJECT COLLISION(p,0)=1 OR OBJECT COLLISION(p,0)=2 OR OBJECT COLLISION(p,0)=3
               DELETE OBJECT OBJECT COLLISION(p,0)
               INC SCORE,200
            ENDIF

            Explosion(OBJECT POSITION X(p),OBJECT POSITION Y(p),OBJECT POSITION Z(p))
            DELETE OBJECT p
            EXITFUNCTION
         ENDIF

         MOVE OBJECT p,0.5
      ENDIF
   ENDIF
ENDFUNCTION

FUNCTION Explosion(xpos#,ypos#,zpos#)
   SET PARTICLE EMISSIONS EXPO,5
   POSITION PARTICLES EXPO,xpos#,ypos#,zpos#
   IF TIMER()-BOMBTIME>=100 THEN SET PARTICLE EMISSIONS EXPO,0 : BOMBTIME=TIMER()
ENDFUNCTION

FUNCTION GetFreeBullet(s)
   Obj=s
   REPEAT
      INC Obj,2
   UNTIL OBJECT EXIST(Obj)=0
ENDFUNCTION Obj

REM  Coded by Phaelax (phaelax@hotmail.com)
REM  http://www.angelfire.com/80s/phaelax/ (still there?)
REM =========================================================

`set display mode 1600,1200,32
set display mode 1024, 768, 32
set camera range 1,10000

rem concrete
for x=1 to 128
   for y = 1 to 128
      r = rnd(255)
      dot x,y,rgb(r,r,r)
   next y
next x
get image 1,1,1,128,128

rem water
for x=1 to 64
   for y = 1 to 64
      r = rnd(128)+128
      dot x,y,rgb(r/3,r/3,r)
   next y
next x
get image 2,1,1,64,64

rem water
for x=1 to 64
   for y = 1 to 64
      r = rnd(128)+128
      dot x,y,rgb(r,r/2,r/2)
   next y
next x
get image 3,1,1,64,64

rem cursor
cls 0
ink rgb(255,0,0),0
box 31,1,33,64
box 1,31,64,33
get image 4,1,1,64,64




backdrop on
color backdrop 0
sync on
hide mouse


REM DEFINE VARIABLES
rem "total" is the total number of objects that currently have collision
    `setup for them.
rem "amt_grav#" is really the amount of force acting against gravity.
rem "grav_str#" is the strength of the gravity.
rem "x#,y#,z#" is the player's starting position

total=15
next_free_object = 574
playersize#=30.0
playersizey#=55.0
amt_grav#=6.0
grav_str#=0.3
dim sobject#(total, 6)
gosub define_collision_areas
x#=900.0
y#=70.0
z#=2000.0
dim bullet(5,5)
bullet_speed#=22.0
my_life=100
sw=screen width()
sh=screen height()
shotDelay = 500


REM water
make object plain 1, 100,100
xrotate object 1,270
set object cull 1,0
fix object pivot 1
scale object 1,7000,7000,100
position object 1,2000,0,2000
texture object 1,2
scale object texture 1,25,25

REM underwater ground
make object plain 2, 100,100
xrotate object 2,270
set object cull 2,0
fix object pivot 2
scale object 2,7000,7000,100
position object 2,2000,-650,2000
texture object 2,3
scale object texture 2,25,25





REM INITIALIZE MISC THINGS
sync rate 60





REM CREATE MODELS\OBJECTS
rem cursor
make object plain 517,10,10
lock object on 517
position object 517, 0,0,120
texture object 517,4
ghost object on 517

rem bullet
for t=1 to 5
 `inside of bullet
  make object sphere t+549, 20
  ghost object on t+549
  color object t+549,rgb(200,200,0)
 `outside of bullet
  make object sphere t+554,25
  ghost object on t+554
  color object t+554,rgb(255,125,0)
  glue object to limb t+554,t+549,0
 `bullet explosion object
  make object plain t+559,100,100
  ghost object on t+559
  bullet(t,1)=0
  bullet(t,2)=t+549
next t


rem load rest of world
gosub create_world




REM ======================== MAIN LOOP ====================================
DO
  ink rgb(0,0,200),0
  bar=(sw/2)-my_life
  box bar,sh-21,bar+(my_life*3),sh-1
  ink rgb(255,255,255),0
  gosub reset_variables
  gosub player_controls
  rem jumping
  if jump=1
    dec grav#,grav_str#
    y#=y#+grav#
  endif
  rem crouching
  if crouching=1 and playersizey#>35.0 then dec playersizey#,2:dec y#,2
  if crouching=0 and playersizey#<55.0 then inc playersizey#,2

  gosub handle_bullets
  gosub do_the_collision
  gosub camera_status


  if jump=0 then plat=0
  if x#>0.0 and x#<500.0 and z#>1750.0 and z#<2250.0 and y#<=10.5+playersizey# and y#>=-10.5+playersizey# and plat=0
    plat=1
    jump=1
    grav#=40
  endif
 if x#>2900.0 and x#<3400.0 and z#>5005.0 and z#<5505.0 and y#<=10.5+playersizey# and y#>=-10.5+playersizey# and plat=0
    plat=1
    jump=1
    grav#=40
  endif
 if x#>2900.0 and x#<3400.0 and z#>-1494.0 and z#<-994.0 and y#<=10.5+playersizey# and y#>=-10.5+playersizey# and plat=0
    plat=1
    jump=1
    grav#=40
  endif


  if y# < 0
      if fogon = 0
         amt_grav#=3.0
         grav_str# = 0.01
         fogon=1
         fog on
         fog color rgb(0,0,255)
         fog distance 2000
      endif
  else
      if fogon=1
         amt_grav#=6.0
         grav_str# = 0.3
         fogon=0
         fog off
      endif
  endif



set cursor 0,0
print "FPS: "+str$(screen fps())
print "X: ",x#
print "Y: ",y#
print "Z: ",z#
print "damage#: "+str$(damage#)
print "My Life: "+str$(my_life)
sync
LOOP
REM ======================== END MAIN LOOP ===========================





REM ________________________ FUNCTIONS _________________________

player_controls:
  if shiftkey()=1 then runspeed#=6.0
  if upkey()=1
    x#=newxvalue(x#,a#,6+runspeed#)
    z#=newzvalue(z#,a#,6+runspeed#)
  endif
  if downkey()=1
    x#=newxvalue(x#,a#,-6-runspeed#)
    z#=newzvalue(z#,a#,-6-runspeed#)
  endif
  if leftkey()=1
    x#=newxvalue(x#,wrapvalue(a#-90.0),5.0+runspeed#)
    z#=newzvalue(z#,wrapvalue(a#-90.0),5.0+runspeed#)
  endif
  if rightkey()=1
    x#=newxvalue(x#,wrapvalue(a#+90.0),5.0+runspeed#)
    z#=newzvalue(z#,wrapvalue(a#+90.0),5.0+runspeed#)
  endif
  if keystate(82)=1 and jump=0 then jump=1:grav#=amt_grav#:oldjump#=y#
  if keystate(79)=1 and jump=0 then crouching=1
  if mouseclick()=2 and jump=0 then jump=1:grav#=amt_grav#:oldjump#=y#
  if mouseclick()=1 and timer() >= lastShot+shotDelay and anything_alive<5 then fireshot=1:lastShot=timer()
  if keystate(31)=1 and jump=0 then jump=1:grav#=30
return
` _____________________________________________________________________
camera_status:
  rem rotate camera according to mouse
  a#=wrapvalue(a#+(mousemovex()/3.0))
  rem position and rotate camera
  cxa#=cxa#+(mousemovey()/3.0)
  if cxa#<-90.0 then cxa#=-90.0
  if cxa#>90.0 then cxa#=90.0
  position camera x#,y#+playersizey#,z#
  rotate camera wrapvalue(cxa#),a#,0
return
` _____________________________________________________________________
reset_variables:
  hithead=0
  runspeed#=0
  oldx#=x#
  oldy#=y#
  oldz#=z#
return
` _____________________________________________________________________
create_world:
  `walkway below build'ns
  make object cube 500,100
  scale object 500,2500,20,300
  position object 500,1750,0,2000
  texture object 500,1
  `color object 500, rgb(0,200,0)
  scale object texture 500,12,2

  make object cube 600,100
  scale object 600,300,20,6000
  position object 600,3150,0,2000
  texture object 600,1
  `color object 600, rgb(0,200,0)
  scale object texture 600,2,30

  `jump pad
  make object cube 501,100
  scale object 501,500,20,500
  position object 501,254,0,2000
  `texture object 501,16
  color object 501, rgb(255,0,0)

  make object cube 601,100
  scale object 601,500,20,500
  position object 601,3150,0,5255
  `texture object 601,16
  color object 601, rgb(255,0,0)

  make object cube 602,100
  scale object 602,500,20,500
  position object 602,3150,0,-1244
  `texture object 602,16
  color object 602, rgb(255,0,0)


  `build'n #1
  make object cube 505,100
  scale object 505,500,3000,2000
  position object 505,375,500,3350
  `color object 505,rgb(255,0,0)
  texture object 505,1
  scale object texture 505,8,16

  make object cube 506,100
  scale object 506,500,3000,2000
  position object 506,1575,500,3350
  color object 506,rgb(255,0,0)
  `texture object 506,1
  `scale object texture 506,8,16

  make object cube 507,100
  scale object 507,700,3000,1600
  position object 507,975,500,3350
  color object 507,rgb(128,128,255)
  `texture object 507,33
  scale object texture 507,2,8

  make object plain 508,710,3000
  position object 508,975,500,2450
  `texture object 508,29
  ghost object on 508

  make object plain 509,710,3000
  position object 509,975,500,4250
  `texture object 509,29
  ghost object on 509

  make object cube 513,100
  scale object 513, 1800,20,2100
  position object 513, 975,2000,3350
  `texture object 513,5
  scale object texture 513,10,12

  make object cube 626,100
  scale object 626,10,400,800
  xrotate object 626,180
  position object 626,1825,1200,3350
  `texture object 626,30

 `build'n #2
  make object cube 502,100
  scale object 502,500,3000,2000
  position object 502,375,500,650
  `texture object 502,5
  scale object texture 502,4,8
  make object cube 510,100
  scale object 510,500,3000,2000
  position object 510,1575,500,650
  `texture object 510,5
  scale object texture 510,4,8
  make object cube 511,100
  scale object 511,700,3000,1600
  position object 511,975,500,650
  `texture object 511,31
  scale object texture 511,2,8
  make object plain 512,710,3000
  `position object 512,975,500,-250
  texture object 512,29
  ghost object on 512
  make object plain 503,710,3000
  position object 503,975,500,1550
  `texture object 503,29
  ghost object on 503

  make object cube 514,100
  scale object 514, 1800,20,2100
  position object 514, 975,2000,650
  `texture object 514,5
  scale object texture 514,10,12

  make object cube 627,100
  scale object 627,10,400,800
  xrotate object 627,180
  position object 627,1825,1200,650
  `texture object 627,32


 `build'n #3
  make object cube 504,100
  scale object 504,2000,2000,5000
  position object 504,4600,500,2000
  `texture object 504,8
  scale object texture 504,20,10

  make object cone 519,100
  xrotate object 519,180
  position object 519,1575,0,2350
  `texture object 519,5

  make object cone 515,100
  xrotate object 515,180
  position object 515,1575,500,2350
  `texture object 515,5



  make object cone 520,100
  xrotate object 520,180
  position object 520,1575,1000,2350
  `texture object 520,5

  make object cone 521,100
  xrotate object 521,180
  position object 521,1575,1500,2350
  `texture object 521,5


  make object cone 522,100
  xrotate object 522,180
  position object 522,375,0,2350
  `texture object 522,5

  make object cone 523,100
  xrotate object 523,180
  position object 523,375,500,2350
  `texture object 523,5

  make object cone 524,100
  xrotate object 524,180
  position object 524,375,1000,2350
  `texture object 524,5

  make object cone 525,100
  xrotate object 525,180
  position object 525,375,1500,2350
  `texture object 525,5

return
` _____________________________________________________________________
define_collision_areas:
  for sc=1 to total
    read sobject#(sc,1)
    read sobject#(sc,2)
    read sobject#(sc,3)
    read sobject#(sc,4)
    read sobject#(sc,5)
    read sobject#(sc,6)
  next sc
return
` _____________________________________________________________________
do_the_collision:

  REM COLLISION DETECTION
  FOR t = 1 to total
    if abs(oldx#-sobject#(t,1))<sobject#(t,4)+playersize# and abs(oldz#-sobject#(t,3))<sobject#(t,6)+playersize# and abs((y#)-sobject#(t,2))<sobject#(t,5)+playersizey#
      if y#<sobject#(t,2)-sobject#(t,5)
        y#=oldy#:grav#=grav#*-0.5:crouching=2
        if crouching=2 then dec playersizey#,2:dec y#,2
      endif
      if y#>sobject#(t,2)+sobject#(t,5) then jump=0:currents=t
    else
      crouching=0
    endif
    if abs(x#-sobject#(t,1))<sobject#(t,4)+playersize# and abs(z#-sobject#(t,3))<sobject#(t,6)+playersize# and abs((y#)-sobject#(t,2))<sobject#(t,5)+playersizey#
      if jump=0 and (y#-playersizey#)+30>=sobject#(t,2)+sobject#(t,5) then y#=sobject#(t,2)+sobject#(t,5)+playersizey#+0.5:currents=t
      if abs(oldx#-sobject#(t,1))<sobject#(t,4)+playersize# then z#=oldz#
      if abs(oldz#-sobject#(t,3))<sobject#(t,6)+playersize# then x#=oldx#
    endif
  NEXT t

  if currents<>0
    if abs(x#-sobject#(currents,1))>sobject#(currents,4)+playersize# or abs(z#-sobject#(currents,3))>sobject#(currents,6)+playersize#
      if jump=0
        jump=1
        grav#=0
        currents=0
      endif
    endif
  endif

return
` _____________________________________________________________________
bullet_collision:
 ox#=object position x(bullet(bt,2))
 oy#=object position y(bullet(bt,2))
 oz#=object position z(bullet(bt,2))

  if ox#>11000 or ox#<-2000 or oz#>7000 or oz#<-3000 or oy#<-700 or oy#>6500
    bullet(bt,1)=0
    hide object bullet(bt,2):hide object bullet(bt,2)+5
    fire=0
    bullet(bt,3)=1

  endif

 FOR t = 1 to total
  if abs(ox#-sobject#(t,1))<sobject#(t,4)+10 and abs(oz#-sobject#(t,3))<sobject#(t,6)+10 and abs((oy#)-sobject#(t,2))<sobject#(t,5)+10
    bullet(bt,1)=0
    hide object bullet(bt,2):hide object bullet(bt,2)+5
    fire=0
    bullet(bt,3)=1
    gosub check_dmg
  endif
 NEXT t

return
` _____________________________________________________________________
handle_bullets:
  if fireshot=1
    for bt=1 to 5
      if bullet(bt,1)=0 and found=0
        found=1
        fireshot=0
        firing=1
        bullet(bt,1)=1
        position object bullet(bt,2),x#,y#+playersizey#,z#
        set object to camera orientation bullet(bt,2)
        show object bullet(bt,2):show object bullet(bt,2)+5
      endif
    next t
    found=0
  endif

  if firing=1
    anything_alive=0
    for bt=1 to 5
      if bullet(bt,1)=1
        move object bullet(bt,2),bullet_speed#
        gosub bullet_collision
      endif
      anything_alive=anything_alive+bullet(bt,1)
    next t
  endif

  if anything_alive=0 then firing=0


  for bt=1 to 5
    if bullet(bt,3)=1
      box#=object position x(bullet(bt,2))
      boy#=object position y(bullet(bt,2))
      boz#=object position z(bullet(bt,2))
      position object bullet(bt,2)+10, box#,boy#,boz#
      bullet(bt,4)=19
      bullet(bt,3)=0
      bullet(bt,5)=1
    endif
    if bullet(bt,5)=1
      set object to camera orientation bullet(bt,2)+10
      bullet(bt,4)=bullet(bt,4)+1
      `texture object bullet(bt,2)+10,bullet(bt,4)
      if bullet(bt,4)=28 then bullet(bt,5)=0
    endif
  next bt
return
` _____________________________________________________________________
check_dmg:
  dmg_range=abs(ox#-x#)+abs(oy#-y#)+abs(oz#-z#)
  if dmg_range<200
    damage#=(20-(dmg_range/10))*7
    dec my_life,damage#
  endif
return




REM ________________________END FUNCTIONS _________________________

REM COLLISION DATA
data 2000.0,-650.0,2000.0,3500.0,1.0,3500.0

data 2000.0,0.0,2000.0,1500.0,10.0,150.0
data 3150.0,0.0,2000.0,150.0,10.0,3000.0

data 250.0,0.0,2000.0,250.0,10.0,250.0
data 3150.0,0.0,5255.0,250.0,10.0,250.0
data 3150.0,0.0,-1244.0,250.0,10.0,250.0


data 375.0,500.0,3350.0,250.0,1500.0,1000.0
data 1575.0,500.0,3350.0,250.0,1500.0,1000.0
data 975.0,500.0,3350.0,355.0,1500.0,900.0
data 975.0,2000.0,3350.0,900.0,10.0,1050.0

data 375.0,500.0,650.0,250.0,1500.0,1000.0
data 1575.0,500.0,650.0,250.0,1500.0,1000.0
data 975.0,500.0,650.0,355.0,1500.0,900.0
data 975.0,2000.0,650.0,900.0,10.0,1050.0

data 4600.0,500.0,2000.0,1000.0,1000.0,2500.0

gosub define_collision_areas

SvenB!! Excellent work, though it may not be the best no-media thing, it was great to play, and good AI and stuff.

Image all! Fantastic media there pal, good work :)

BillR! Very amusing, and fun! :)

Global CurrentLevel = 1
Global MaxLevels = 5

Setup_Screen()
Gosub _InitialiseGlobals
Get_Textures()

For Level = 1 To CurrentLevel
Read_Maze()
Next Level

Create_Maze()


LastTime = Timer()
Do
	TimeLeft = TimeLeft - ((Timer()-LastTime)/1000)
	If TimeLeft < 0 Then Player_Death()
	If Object Collision(FinishObject, PlayerObject) = 1 Then Player_Win()
	
	Ink RGB(255,255,255),0	
	Set Text Size 12
	Text 0,0,"Lives: "+ str$(PlayerLives)
	Text 0,20,"Time Left: "+str$(TimeLeft)
	
	Handle_Bullets(1.5)
	Handle_Bombs(.1)
	Check_Wall_Collisions(2.0,0.25)
	Move_Camera(.25)

	LastTime = Timer()
	Sync

loop


Function Next_Level()
	Destroy_Level()
	Undim Cube(0) 
	Read_Maze()
	Create_Maze()		
endfunction
 
Function Restart_Level()
	Destroy_Level()
	Create_Maze()	
	TimeLeft = DefaultTime
endfunction


Function Destroy_Level()
	For z = 1 To MapHeight
		For x = 1 To MapWidth
			If Cube(x,z).Tile = 1 Then Delete Object Cube(x,z).Num
		next x
	next z


	While Array Count(Bullets(0))> 0
		Destroy_Bullet(1)		
	EndWhile

	
	PlayerAng = 0 

	`Bombs

	While Array Count(Bombs(0))<> 0
		Destroy_Bomb(1)		
	EndWhile
	BombCount = 120

	Delete Object FloorObject
	Delete Object CeilingObject	
	Delete Object FinishObject

Endfunction

Function Setup_Screen()
	sync on: sync rate 60
	autocam off	`:Position Camera 15,5,15
	Set ambient light 75
endfunction


_InitialiseGlobals:
	`Textures And miscellaneous objects:
	Global BrickImage As Integer
	
	Global BombRed As Integer
	Global BombGreen As Integer
	
	Global FloorObject As Integer
	Global FloorImage As Integer
	
	Global CeilingObject As Integer
	Global CeilingImage As Integer

	Global FinishImage As Integer
	Global FInishObject As Integer
	
	`All of the map variables
	Global MapWidth As Integer`: MapWidth = 10
	Global MapHeight As Integer`: MapHeight = 10
	Global Cubesize As Integer: CubeSize = 10

	Type Object
		X As Float: Y As Float: Z As Float
		num As Integer
		Tile As Integer
	endtype
	
	`Dim Cube(MapWidth,MapHeight) As Object
	

	`Bullets	
	Type Bullet
		X As Float: Y As Float: Z As Float
		SX As Float: SY As Float: SZ As Float
		num As Integer
	endtype
	
	Dim Bullets(0) As Bullet
	
	Global BulletTimeout As Integer
	
	`Stuff for moving the camera
	Dim WallExist(4)
	
	Global PlayerLives As Integer: PlayerLives = 3
	Global PlayerX As Float: Global PlayerY As Float: Global PlayerZ As Float
	Global PlayerAng As Float: PlayerAng = Camera angle Y()
	
	Global TimeLeft As Float: Global lastTime As Float
	Global DefaultTime As Float

	Global PlayerObject As Integer
	PlayerObject = Get_Free_Object_Number()
	Make Object Cube PlayerObject, 5
	Hide Object PlayerObject
	
	`Bombs
	Type Bomb
		X As Float: Y As Float: Z As FLoat
		Num As Integer
	
		Active As Integer
		Moving As Integer
		DestinationX As Float
		DestinationZ As Float
	Endtype 

	Dim Bombs(0) As Bomb
	Global BombCount As Integer: BombCount = 120

Return

_DimCube:

Dim Cube(MapWidth,MapHeight) As Object
Return

`-------------------------------------------------
`General Program Functions
`-------------------------------------------------

Function Get_Textures()
	BrickImage = Get_Free_Image_Number()
	BrickTexture(BrickImage)
	
	BombRed = Get_Free_Image_Number()
	BombTexture1(BombRed)
	
	BombGreen = Get_Free_Image_Number()
	BombTexture2(BombGreen)
	
	FloorImage = Get_Free_Image_Number()
	FloorTexture(FloorImage)
	
	CeilingImage = Get_Free_Image_Number()
	FloorTexture(CeilingImage)
	
	FinishImage = Get_Free_Image_Number()
	FinishTexture(FinishImage)
endfunction


Function Read_Maze()
	Sync
	Ink RGB(255,255,255),0
	Set Text Size 12
	cls 0
	Read NumLevelText
	For texts = 1 To NumLevelText
		Read LevelText$
		Print LevelText$	
	next texts
	Sync: Wait Key
	
	Read DefaultTime: TimeLeft = DefaultTime
	
	Read MapWidth
	Read MapHeight
	
	Gosub _DimCube
	
	For z = 1 To MapHeight
		For x = 1 To MapWidth
			Read Cube(x,z).Tile
			Cube(x,z).X = (x-1)*Cubesize+(Cubesize/2)
			Cube(x,z).Y = (Cubesize/2)
			Cube(x,z).Z = (z-1)*Cubesize+(Cubesize/2)
		next x
	next z
endfunction



Function Create_Maze()
	For z = 1 To MapHeight
		For x = 1 To MapWidth
			If Cube(x,z).Tile = 1 Then Make_Wall(x,z)
			If Cube(x,z).Tile = 2 Then RePositionCamera(Cube(x,z).X, Cube(x,z).Y, Cube(x,z).Z)
			If Cube(x,z).Tile = 3 Then Create_Bomb(0, Cube(x,z).X, Cube(x,z).Y, Cube(x,z).Z)
			If Cube(x,z).Tile = 4 Then Create_Bomb(1, Cube(x,z).X, Cube(x,z).Y, Cube(x,z).Z)
			If Cube(x,z).Tile = 10 Then Create_Finish(Cube(x,z).X, 2, Cube(x,z).Z)
		next x
	next z
	
	`Object that will represent the floor
	FloorObject = Get_Free_Object_Number()
	Make Object Plain FloorObject, MapWidth*Cubesize, MapHeight*CubeSize
	xrotate object FloorObject,90
	Position Object FloorObject, (MapWidth*Cubesize)/2,0,(MapHeight*CubeSize)/2
	Texture Object FloorObject, FloorImage
	
	`Object that will represent the ceiling
	CeilingObject = Get_Free_Object_Number()
	Make Object Plain CeilingObject, MapWidth*Cubesize, MapHeight*CubeSize
	xrotate object CeilingObject,90
	Position Object CeilingObject, (MapWidth*Cubesize)/2,Cubesize,(MapHeight*CubeSize)/2
	Texture Object CeilingObject,CeilingImage
EndFunction

Function Make_Wall(x,z)
	Cube(x,z).num = Get_Free_Object_Number()
	Make Object Cube Cube(x,z).num,Cubesize
	Texture Object Cube(x,z).num,BrickImage
	Position Object Cube(x,z).num, Cube(x,z).X, Cube(x,z).Y, Cube(x,z).Z
endfunction



`----------------------------------------------------
`Useful Code Snippets
`----------------------------------------------------


Function Get_Free_Object_Number()
	Remstart
	This function just finds a free object, and then returns its number.
	This is so that objects can be given variable names rather than numbers!
	
	***Special Thanks to Ric in the Darkbasic Pro forums who I stole this 
	function from.***
	Remend	
	
	Do
		inc ObjectNumber
	 	If Object Exist(ObjectNumber) = 0 Then Exit
	Loop
EndFunction ObjectNumber


Function Get_Free_Image_Number()
	Remstart
	This function just finds a free image, and then returns its number.
	This is so that images can be given variable names rather than numbers!
	
	***Special Thanks to Ric in the Darkbasic Pro forums who I stole this 
	function from.***
	Remend

	Do
		inc ImageNumber
		If Image Exist(ImageNumber) = 0 Then Exit
	loop
endfunction ImageNumber

`----------------------------------------------------------
`Textures
`----------------------------------------------------------

Function BrickTexture(ImageNumber)

Ink Rgb(128,64,0),0
Box 0,0,64,64

Ink Rgb(0,0,0),0
For a = 0 To 7
	Line 0,(a*8),64,(a*8)
next a

For x = 0 To 7
	For y = 0 To 7
		If (x+y) mod 2 = 0 Then Line (x*8),(y*8),(x*8),((y+1)*8)		
	next y
next x

Get Image Imagenumber, 0, 0, 64, 64

EndFunction


Function FloorTexture(ImageNumber)
	Ink RGB(50,50,50),0
	box 0,0,64,64

	Get Image Imagenumber, 0, 0, 64, 64
endfunction
 
Function BombTexture1(ImageNumber)
	Ink Rgb(200,50,50),0
	Box 1,1,64,64

	Get Image ImageNumber, 1, 1, 64, 64
endfunction

Function BombTexture2(ImageNumber)
	Ink Rgb(50,200,50),0
	Box 1,1,64,64

	Get Image ImageNumber, 1, 1, 64, 64	
endfunction

Function FinishTexture(ImageNumber)
	Ink RGB(255,255,0),0
	box 0,0,64,64

	Get Image Imagenumber, 0, 0, 64, 64
endfunction

`-------------------------------------------
`Movement and Collision Functions
`-------------------------------------------


Function Check_Wall_Collisions(Buffer#,Speed#)
	For direction = 1 To 4
		WallExist(direction) = 0
	next direction
	
	For z = 1 To MapHeight
		For x = 1 To MapWidth
			If Cube(x,z).Tile = 1
				If Abs((Cube(x,z).X-Buffer#-(Cubesize/2)-PlayerX)) < Speed#  And Abs((Cube(x,z).Z)-PlayerZ)-Buffer# < (Cubesize/2) Then WallExist(1) = 1
				If Abs((Cube(x,z).X+Buffer#+(Cubesize/2)-PlayerX)) < Speed#  And Abs((Cube(x,z).Z)-PlayerZ)-Buffer# < (Cubesize/2) Then WallExist(3) = 1

				If Abs((Cube(x,z).Z-Buffer#-(Cubesize/2)-PlayerZ)) < Speed#  And Abs((Cube(x,z).X)-PlayerX)-Buffer# < (Cubesize/2) Then WallExist(2) = 1
				If Abs((Cube(x,z).Z+Buffer#+(Cubesize/2)-PlayerZ)) < Speed#  And Abs((Cube(x,z).X)-PlayerX)-Buffer# < (Cubesize/2) Then WallExist(4) = 1	
			endif
		next x
	next z
	
endfunction

Function RepositionCamera(X#,Y#,Z#)
	Position Camera X#, Y#, Z#
	PlayerX = Camera Position X(): PlayerY = Camera Position Y(): PlayerZ = Camera Position Z()
endfunction

Function Move_Camera(Speed#)
	
	If Leftkey() = 1 Then PlayerAng = WrapValue(PlayerAng - Speed#*4.0)
	If RightKey() = 1 Then PlayerAng = WrapValue(PlayerAng + Speed#*4.0)
	
	
	If PlayerAng >= 0 AND PlayerAng <= 180
		If  WallExist(1) = 0 And Upkey() = 1 Then PlayerX = Newxvalue(PlayerX, PlayerAng, Speed#)
		If  WallExist(2) = 0 And ControlKey() = 1 Then PlayerZ = Newzvalue(PlayerZ, PlayerAng-90,speed#/2.0)
		If  WallExist(3) = 0 And Downkey() = 1 Then PlayerX = Newxvalue(PlayerX,PlayerAng,-Speed#)
		If  WallExist(4) = 0 And Keystate(82) = 1 Then PlayerZ = Newzvalue(PlayerZ, PlayerAng+90,speed#/2.0)
	Endif
	
	If PlayerAng >= 180 And PlayerAng <= 360
		If  WallExist(1) = 0 And Downkey() = 1 Then PlayerX = Newxvalue(PlayerX,PlayerAng,-Speed#)
		If  WallExist(2) = 0 And Keystate(82) = 1 Then PlayerZ = Newzvalue(PlayerZ, PlayerAng+90,speed#/2.0)
		If  WallExist(3) = 0 And Upkey() = 1 Then PlayerX = Newxvalue(PlayerX, PlayerAng, Speed#)	
		If  WallExist(4) = 0 And ControlKey() = 1 Then PlayerZ = Newzvalue(PlayerZ, PlayerAng-90,speed#/2.0)
	Endif
	
	If PlayerAng >= 270 Or PlayerAng <= 90
		If  WallExist(3) = 0 And ControlKey() = 1 Then PlayerX = Newxvalue(Playerx, PlayerAng-90,speed#/2.0)
		If  WallExist(2) = 0 And Upkey() = 1 Then PlayerZ = Newzvalue(PlayerZ, PlayerAng, Speed#)
		If  WallExist(1) = 0 And Keystate(82) = 1 Then PlayerX = Newxvalue(Playerx, PlayerAng+90,speed#/2.0)
		If  WallExist(4) = 0 And Downkey() = 1 Then PlayerZ = Newzvalue(PlayerZ,PlayerAng,-Speed#)			
	Endif		

	If PlayerAng >= 90 And PlayerAng <= 270
		If  WallExist(4) = 0 And Upkey() = 1 Then PlayerZ = Newzvalue(PlayerZ, PlayerAng, Speed#)
		If  WallExist(1) = 0 And ControlKey() = 1 Then PlayerX = Newxvalue(Playerx, PlayerAng-90,speed#/2.0)
		If  WallExist(2) = 0 And Downkey() = 1 Then PlayerZ = Newzvalue(PlayerZ,PlayerAng,-Speed#)			
		If  WallExist(3) = 0 And Keystate(82) = 1 Then PlayerX = Newxvalue(Playerx, PlayerAng+90,speed#/2.0)
	Endif		
	
	
	
	Position Camera PlayerX, PlayerY, PlayerZ
	Yrotate Camera PlayerAng
	
	Position Object PlayerObject, PlayerX, PlayerY, PlayerZ
endfunction


`----------------------------------------------------------
`Bullet Functions
`----------------------------------------------------------


Function Make_bullet(Speed#)
	If Array Count(Bullets(0)) = 100 Then Destroy_Bullet(1)
	
	Add To Queue Bullets(0)
	BNum = Array Count(Bullets(0))
	
	Pick Screen MouseX(),MouseY(), Speed#
	Bullets(BNum).SX = Get Pick Vector X()
	Bullets(BNum).SY = Get Pick Vector Y()
	Bullets(BNum).SZ = Get Pick Vector Z()
	
	Bullets(BNum).X = Camera Position X()+Bullets(BNum).SX*2
	Bullets(BNum).Y = Camera Position Y()+Bullets(BNum).SY*2
	Bullets(BNum).Z = Camera Position Z()+Bullets(BNum).SZ*2
	
	Bullets(BNum).Num = Get_Free_Object_Number()
	Make Object Sphere Bullets(BNum).Num,1
	Position Object Bullets(BNum).Num,Bullets(BNum).X, Bullets(BNum).Y, Bullets(BNum).Z
	
endfunction

Function Move_Bullets()
	For tb = 1 To Array Count(Bullets(0))
		Bullets(tb).X = Bullets(tb).X + Bullets(tb).SX
		Bullets(tb).Y = Bullets(tb).Y + Bullets(tb).SY
		Bullets(tb).Z = Bullets(tb).Z + Bullets(tb).SZ
			
		Position Object Bullets(tb).Num,Bullets(tb).X, Bullets(tb).Y, Bullets(tb).Z
	next tb
			
endfunction
 
 
Function Destroy_Bullet(BNum)
	Delete Object Bullets(BNum).Num
	Array Delete Element Bullets(0),BNum
endfunction


Function Handle_Bullets(Speed#)
	If MouseClick() = 1 And BulletTimeout < 1
		Make_Bullet(Speed#)
		BulletTimeout = 30
	Endif
	If BulletTimeOut > 0 Then Dec BulletTimeout,1
	
	Move_Bullets() 
	
	`Check if a bullet collides with a wall or a bomb
	For tb = 1 To Array Count(Bullets(0))
		If Object Position Y(Bullets(tb).Num) > CubeSize Or Object Position Y(Bullets(tb).Num) < 0 
			Destroy_Bullet(tb)
			tb = tb - 1: If tb = 0 Then tb = 1: If tb > Array Count(Bullets(0)) Then Goto _HBExitLoop
		endif
		
		For z = 1 To MapHeight
			For x = 1 To MapWidth
				If Cube(x,z).Tile = 1
					If Object Collision(Bullets(tb).Num, Cube(x,z).num) = 1
						 Destroy_Bullet(tb)
						 tb = tb - 1: If tb = 0 Then tb = 1: If tb > Array Count(Bullets(0)) Then Goto _HBExitLoop
					Endif
				Endif
			next x
		next z

		For BNum = 1 To Array Count(Bombs())
			If Object Collision(Bullets(tb).Num,Bombs(BNum).Num) = 1
				If Bombs(Bnum).Active = 1 Then Player_Death(): ExitFunction
				If Bombs(Bnum).Active = 2 Then Destroy_Bomb(BNum)
				Destroy_Bullet(tb)
				tb = tb - 1: If tb = 0 Then tb = 1: If tb > Array Count(Bullets(0)) Then Goto _HBExitLoop
			endif
		next bnum		

		_HBExitLoop:
	
	
	next tb
Endfunction

`------------------------------------------
`Bomb Functions
`------------------------------------------

Function Create_Bomb(Moving, X#, Y#, Z#)
	Add to queue Bombs(0)
	BNum = Array Count(Bombs(0))
	Bombs(BNum).X = X#
	Bombs(BNum).Y = Y#
	Bombs(BNum).Z = Z#
	Bombs(BNum).Num = Get_Free_Object_Number()
	Bombs(BNum).Active = RND(1)+1
	Bombs(BNum).Moving = Moving
	Bombs(BNum).DestinationX = X#
	Bombs(BNum).DestinationZ = Z#
	
	Make Object Sphere Bombs(BNum).Num,5
	
	If Bombs(BNum).Active = 1 Then Texture Object Bombs(BNum).Num, BombRed
	If Bombs(BNum).Active = 2 Then Texture Object Bombs(BNum).Num, BombGreen
	
	Position Object Bombs(BNum).Num, Bombs(BNum).X, Bombs(BNum).Y, Bombs(BNum).Z
endfunction


Function Change_Bomb_States()
	For b = 1 To Array Count(Bombs(0))
		If RND(2) = 2 Then Bombs(b).Active = 2: Texture Object Bombs(b).Num, BombGreen
		If RND(2) = 1 Then Bombs(b).Active = 1: Texture Object Bombs(b).Num, BombRed
	next b
endfunction
 
 
Function Destroy_Bomb(BNum)
	Delete Object Bombs(BNum).Num
	Array Delete Element Bombs(0), BNum
endfunction

Function Handle_Bombs(Speed#)
	If BombCount < 0
		BombCount = 120
		Change_Bomb_States()
	Else
		dec BombCount,1
	Endif
	
	For BNum = 1 TO Array Count(Bombs(0))
		If Object Collision(PlayerObject, Bombs(BNum).Num) = 1 Then Player_Death(): ExitFunction
		
		If Bombs(BNum).Moving = 1 
			If abs(Bombs(BNum).X-Bombs(BNum).DestinationX) < Speed# And abs(Bombs(BNum).Z-Bombs(BNum).DestinationZ) < Speed# Then ChooseBombDestination(BNum, Speed#)
			
			If Bombs(BNum).X > Bombs(BNum).DestinationX  Then Dec Bombs(BNum).X, Speed#
			If Bombs(BNum).X < Bombs(BNum).DestinationX Then Inc Bombs(BNum).X, Speed#
			If Bombs(BNum).Z > Bombs(BNum).DestinationZ  Then Dec Bombs(BNum).Z, Speed#
			If Bombs(BNum).Z < Bombs(BNum).DestinationZ Then Inc Bombs(BNum).Z, Speed#
		
			Position Object Bombs(BNum).num, Bombs(BNum).X, Bombs(BNum).Y, Bombs(BNum).Z
		endif
	
	next bnum
	
endfunction
 
 
Function ChooseBombDestination(Bomb, Speed#)
	BombSquareX = int(Bombs(Bomb).X/Cubesize) + 1
	BombSquareZ = int(Bombs(Bomb).Z/Cubesize) + 1
	
	Repeat 
		Direction = RND(4)
		If Direction = 1 And Cube(BombSquareX-1, BombSquareZ).Tile <> 1 Then Dec Bombs(Bomb).DestinationX, 10
		If Direction = 2 And Cube(BombSquareX, BombSquareZ+1).Tile <> 1 Then Inc Bombs(Bomb).DestinationZ, 10
		If Direction = 3 And Cube(BombSquareX+1, BombSquareZ).Tile <> 1 Then Inc Bombs(Bomb).DestinationX, 10
		If Direction = 4 And Cube(BombSquareX, BombSquareZ-1).Tile <> 1 Then Dec Bombs(Bomb).DestinationZ, 10
	until abs(Bombs(Bomb).X-Bombs(Bomb).DestinationX) > Speed# Or abs(Bombs(Bomb).Z-Bombs(Bomb).DestinationZ) > Speed# 
endfunction

`-------------------------------------------
`End Game Functions
`-------------------------------------------


Function Create_Finish(X#,Y#,Z#)
	FinishObject = Get_Free_Object_Number()

	Make Object Cube FinishObject, 4
	Position Object FinishObject, X#, Y#, Z#
	Texture Object FinishObject, FinishImage
endfunction

Function Player_Death()
	Cls RGB(255,0,0)
	
	Ink 0,0
	Set Text Size 50
	Center Text Screen Width()/2,(Screen Height()-50)/2,"KABOOOM!!!"
	Sync
	Wait Key
	
	Dec PlayerLives, 1
	If PlayerLives < 1 Then End	
	
	Restart_Level()
	
	`End	
endfunction

Function Player_Win()
	Inc CurrentLevel, 1
	If CurrentLevel > MaxLevels 
		Ink RGB(255,0,0),0
		Set Text Size 40
		Text 0,0,"CONGRATULATIONS!!!"
		Text 0,50,"You have completed all of the levels!!!"
		Sync
		Wait Key
		End
	endif
	Ink RGB(255,0,0),0
	Set Text Size 40
	Text 0,0,"Bomb Defused."
	Sync: Wait Key
	
	Next_Level()
		
endfunction

`Level 1

Data 21
Data "Training Level 1"
Data " "
Data "Greetings new recruit! I'm your commander, Mr. TinkleToes."
Data "To complete your training,  You just have 2 more tests to do."
Data " "
Data "Here is your first test: See if you can diffuse a bomb."
Data "The bomb will be yellow. If you are able to get to it, you should"
Data "be able to diffuse it easily with the techniques you have already"
Data "learned. Take this seriously, because a bomb such as this could"
Data "destroy a city the size of London in the real world."
Data " "
Data "However, there is one small problem. A minor bomb is blocking your"
Data "way. This bomb will explode on impact. However, if it is green and you"
Data "use your specially formulated bomb destroying gun, you should be able"
Data "to destroy it. But if it is red, then the gun will not work, and you will"
Data "need to wait."
Data " "
Data "And another thing: The major yellow bomb will blow up in 20 seconds, so"
Data "It would be a good idea to diffuse it before then!"
Data " "
Data "Press any key to continue."

Data 20.0
Data 3,5
Data 1, 1, 1
Data 1, 2, 1
Data 1, 3, 1
Data 1,10, 1
Data 1, 1, 1


`Level 2
Data 9
Data "Training Level 2"
Data " "
Data "Congratulations on successfully completing the first training level."
Data " "
Data "It is now time for you to try something a little harder. In this training"
Data "level you will need to diffuse another bomb. This time, it is blocked"
Data "by a more advanced minor bomb that moves. Other than that, though,"
Data "everything about it should be the same. Just don't let it touch you, because"
Data "like all minor bombs it explodes on impact."

Data 20.0
Data 7, 7
Data 1, 1, 1, 1, 1, 1, 1
Data 1, 0, 0, 2, 0, 0, 1
Data 1, 0, 0, 0, 0, 0, 1
Data 1, 0, 0, 0, 0, 0, 1
Data 1, 0, 0, 4, 0, 0, 1
Data 1, 0, 0,10, 0, 0, 1
Data 1, 1, 1, 1, 1, 1, 1


`Level 3
Data 14
Data "Congratulations! You have completed all of the training levels!"
Data "You are now an official member of: The Super Cool and Extraordinary"
Data "Group of Super Heroes and Secret Agents who Protect Planet Earth from"
Data "Aliens, Evil Geniuses and Baddies. Or TSCAEGOSHAWPPEFAEGAB for short."
Data ""
Data "Anyways, we have just learned that Dr EvilPants has just planted a bomb"
Data "under New York city. Being an evil genius, he decided to put this bomb"
Data "inside a labyrinth. Our sensors have detected that there are no minor"
Data "bombs in this labyrinth, so you don't have to use your cool gun thingy,"
Data "but you will have to use your wits and labyrinth figuring out intellect"
Data "to find the bomb!"
Data ""
Data "Good Luck! Our scanners have also predicted that the bomb will blow up"
Data "in 2 minutes."


Data 120.0
Data 20,20
Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
Data 1, 2, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1
Data 1, 0, 0, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1
Data 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1
Data 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1
Data 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1
Data 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1
Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 1
Data 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 1
Data 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1
Data 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1
Data 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1
Data 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1
Data 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1
Data 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1
Data 1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1
Data 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1
Data 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
Data 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,10, 0
Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1





`Level 4
Data 16
Data "Good job. You have successfully saved New York from destruction."
Data ""
Data "Well, now that we have a bit of spare time, let me tell you of the"
Data "secret sign of the TSCAEGOSHAWPPEFAEGAB. First, you need to turn"
Data "your head to the right, stick your tongue out, try to bite your ear,"
Data "while sing Marry Had A Little Lamb and karate chopping yourself in your"
Data "left arm using your right hand. Got it? Then it's time for your next"
Data "assignment!"
Data ""
Data "It looks like a group of aliens from the W.E.I.R.D. system have landed,"
Data "and are trying to blow up Tokyo. Don't ask why they want to. They just do."
Data "Anyways, these aliens are not very creative, but have a lot of firepower,"
Data "so you'll have to face a lot of bombs, but not a lot of walls. "
Data ""
Data "Oh, and these aliens use the metric system for bomb timers, so they count"
Data "in units of 100 seconds, not 60."

Data 100.0
Data 10,10

Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
Data 1, 2, 0, 4, 3, 0, 4, 0, 0, 1
Data 1, 0, 0, 0, 1, 1, 1, 1, 3, 1
Data 1, 0, 0, 0, 1, 0, 0, 0, 0, 1
Data 1, 4, 0, 4, 1, 0, 0, 0, 0, 1
Data 1, 3, 1, 1, 1, 0, 0, 0, 0, 1
Data 1, 0, 1, 0, 0, 0, 4, 4, 4, 1
Data 1, 4, 1, 0, 0, 0, 4, 3, 3, 1
Data 1, 0, 3, 0, 0, 0, 4, 3,10, 1
Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

`Level 5
Data 7
Data "Thanks to your good work, the aliens have gotten frustrated, and left to"
Data "attempt to blow up Pluto instead. "
Data ""
Data "It's now time for your hardest challenge yet. Dr. EvilPants has created"
Data "another labyrinth (this time packed with bombs) and is again threatening"
Data "to blow up New York. Stretch well, because you will have to do this in"
Data "under 5 minutes..."


Data 300.0
Data 20,20
Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
Data 1, 4, 0, 3, 0, 2, 0, 3, 0, 0, 1, 0, 3, 0, 0, 0, 0, 0, 0, 1
Data 1, 0, 0, 0, 1, 0, 1, 0, 4, 0, 1, 0, 1, 0, 4, 0, 4, 0, 0, 1
Data 1, 0, 0, 0, 1, 0, 1, 0, 4, 0, 1, 0, 1, 0, 4, 0, 4, 0, 0, 1
Data 1, 0, 0, 4, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 1
Data 1, 0, 1, 1, 1, 3, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1
Data 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1
Data 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 0, 4, 0, 1
Data 1, 0, 0, 0, 0, 0, 1, 3, 0, 4, 0, 4, 0, 1, 1, 1, 0, 4, 0, 1
Data 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 1
Data 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1
Data 1, 4, 0, 1, 0, 4, 0, 0, 0, 1, 0, 4, 0, 0, 0, 0, 0, 1, 0, 1
Data 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 0, 1
Data 1, 0, 4, 3, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1
Data 1, 0, 4, 3, 0, 0, 1, 4, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1
Data 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 4, 0, 1, 1, 1, 3, 1, 1, 1
Data 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 4, 4, 4, 0, 1
Data 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 4, 3, 4, 0, 1
Data 1, 0, 4, 1, 0, 0, 4, 0, 0, 0, 0, 4, 0, 1, 0, 3,10, 3, 0, 1
Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

Sync On:Sync Rate 60:Autocam Off: Set Camera Range .2,1000
Fog On: Fog Color Rgb(20,40,20):Fog Distance 20,300

Global Reload
Global ReloadTime = 20
Global Power = 10
Global Lymphs as Float
Global LymphTime as Integer
Global SpawnTime = 2000
Global Parts
Global Repair as Float
Global Beacons=2
Global BeaconTimer=500
Global Health as Float
Health = 100.0
Null=Make Vector3(1)
Null=Make Vector3(2)

Make_Terrain(64,64)

For i = 1 to 10
   MedKit = Make_Medkit()
   Position Object Medkit, 640,0,640
   Turn Object Right Medkit,Rnd(360)
   Move Object Medkit,Rnd(500)
   x=Object POsition X(Medkit)+5:z=Object Position Z(MedKit)
   y=Get Terrain Ground Height(1,x,z)
   Position Object Medkit,x,y+1.1,z
Next i

For i = 1 to 10
   Boost = Make_Reload_Boost()
   Position Object Boost, 640,0,640
   Turn Object Right Boost,Rnd(360)
   Move Object Boost,Rnd(500)
   x=Object Position X(Boost)+5:z=Object Position Z(Boost)
   y=Get Terrain Ground Height(1,x,z)
   Position Object Boost,x,y+1,z
Next i




Make_Ship()
y#=Get Terrain Ground Height(1,700,580)
Position Object 100,710,y#-3.0,590
Turn Object Left 100,135
Pitch Object Up 100,23
Roll Object Left 100,8

For i = 1 to 10
   Part = Make_ShipPart()
   Position Object Part, 640,0,640
   Turn Object Right Part,Rnd(360)
   Move Object Part,Rnd(500)
   x=Object Position X(Part)+5:z=Object Position Z(Part)
   y=Get Terrain Ground Height(1,x,z)+1.1
   Position Object Part,x,y,z
   Rotate Object Part,Rnd(20),Rnd(20),rnd(20)
Next i

Position Camera 640,0,640

For i = 1 to 100
   Enemy=Make_Enemy()
   x#=rnd(1280):z#=Rnd(1280)
   y#=Get Terrain Ground Height(1,x#,z#)
   Position Object Enemy,x#,y#+1.6,z#
Next i

Do
   Move_Camera()
   ny#=Get Terrain Ground Height(1,CamX,CamZ)+1.2
   Position Camera CamX,ny#,CamZ
   Move_Bullets()
   Shoot_Bullet()
   Move_Enemy()
   If LymphTime>0
      Dec LymphTime
   Endif
   If LymphTime=0
      LymphTime=1000
      If Lymphs>0
         Dec Lymphs
      Endif
   Endif
   If Lymphs=0 Then LymphTime=1000
   Health=Health-Lymphs/1000.0
   Check_Medkits()
   Check_Reload_Boosts()
   Check_ShipPart()
   Check_Ship()
   If Health <=0 or Repair >= 100 Then Exit
   Set Cursor 0,0
   Print "Lymphs: ";Lymphs
   Print "Health: ";Left$(Str$(Health),5)
   Print "Ship Parts: ";Parts;"/10"
   Print "Ship Repair: ";Left$(Str$(Repair),5);%
   Print
   Print "FPS: ";Screen FPS()
   Sync
Loop

r#=0
If Health<=0
   Do
      Set Cursor 0,0
      Print "Lymphs: ";Lymphs
      Print "Health: ";Left$(Str$(Health),5)
      Print "Ship Parts: ";Parts;"/10"
      Print "Ship Repair: ";Left$(Str$(Repair),5);%
      Print
      Print "You have died."
      Rotate Camera 20,r#,20
      r#=r#+.5
      Sync
   Loop
   End
Endif

Do
   Set Cursor 0,0
   Print "Lymphs: ";Lymphs
   Print "Health: ";Left$(Str$(Health),5)
   Print "Ship Parts: ";Parts;"/10"
   Print "Ship Repair: ";Left$(Str$(Repair),5);%
   Print
   Print "Congratulations! You have escaped the planet!"
   Sync
Loop
End




Function Move_Camera()
   SlowMe#=Lymphs/100.0
   Move#=Upkey()*.25-Downkey()*.1
   If Move#>0
      Move#=Move#-SlowMe#
      If Move#<0 then Move#=0
   Endif
   If Move#<0
      Move#=Move#+SlowMe#
      If Move#>0 Then Move#=0
   Endif
   Turn#=LeftKey()*3-RightKey()*3
   Turn Camera Left Turn#
   Move Camera Move#
   Limit_Camera()
EndFunction

Function Limit_Camera()
   If CamX<2 Then Position Camera 2,CamY,CamZ
   If CamX>Object Size X(1)-2 Then Position Camera Object Size X(1)-2,CamY,CamZ
   If CamZ<2 Then Position Camera CamX,CamY,2
   If CamZ>Object Size Z(1)-2 Then Position Camera CamX,CamY,Object Size Z(1)-2
Endfunction

Function Make_Ship()
   Ink Rgb(50,50,50),0
   Box 0,0,128,128
   Get Image 1,0,0,128,128,0
   Sprite 1,0,0,2
   For i = 1 to 20
      Size Sprite 1,rnd(10)+10,rnd(10)+10
      Set Sprite Diffuse 1,0,0,0
      Set Sprite Alpha 1,180
      x=rnd(122):y=rnd(122)
      off=rnd(2)+1
      Paste Sprite 1,x+off,y+off
      d=rnd(128)+100
      Set Sprite Diffuse 1,d,d,d
      Paste Sprite 1,x,y
   Next i
   For i = 1 to 3
      Splotch(128,64,1)
      Sprite 1,0,0,1
      Set Sprite Alpha 1,60
      Paste Sprite 1,0,0
   Next i
   Get Image 100,0,0,128,128,0
   Make Object Sphere 100,18
   Make Mesh From Object 1,100
   Delete Object 100
   Make Object Box 100,20,20,40
   Add Limb 100,1,1
   Offset Limb 100,1,0,0,20
   Texture Object 100,2
Endfunction

Function Make_Enemy()
   E=Get_Free_Enemy()
   If E<1 Then ExitFunction -1
   Make Object Sphere E,.2,6,6
   Make Mesh From Object 1,E
   Delete Object E
   Make Object Box E,.5,.1,.1
   Make Mesh From Object 2,E
   Delete Object E
   Make Object Cube E,1
   Color Object E,Rgb(0,0,60)
   Add Limb E,1,1
   Offset Limb E,1,-.5,.5,.5
   Color Limb E,1,Rgb(255,0,0)
   Add Limb E,2,1
   Offset Limb E,2,.5,.5,.5
   Color Limb E,2,Rgb(255,0,0)
   Add Limb E,3,2
   Offset Limb E,3,0,.8,0
   Color Limb E,3,Rgb(255,255,0)
   Set Object Ambience E,0
   Set Object Specular E,Rgb(150,150,150)
   Set Object Specular Power E,200
   Set Object Collision To Boxes E
Endfunction E

Function Move_Enemy()
   For i = 1001 to 2000
      If Object Exist(i)
         Set Object Collision On i
         Set Vector3 1,CamX - Limb Position X(i,1),CamY - Limb Position Y(i,1),CamZ - Limb Position Z(i,1)
         Set Vector3 2,CamX - Limb Position X(i,2),CamY - Limb Position Y(i,2),CamZ - Limb Position Z(i,2)
         Turn#=(Length Vector3(1)-Length Vector3(2))*(Factor+.2)
         If Turn#>2 Then Turn#=2
         If Turn#<-2 Then Turn#=-2
         If Rnd(Length Vector3(1)) > 80 Then Turn#=.5*((Int(i/2)*2=i)-(Int(i/2)*2<>i))
         Turn Object Right i,Turn#
         oldy#=Object Position Y(i)
         o1=Object Collision(i,0)
         Move Object i,.18
         o2=Object Collision(i,0)
         Killme=0
         If (o1>2000 and o1<3001)
            If Object Exist(o1)
               Delete Object o1
            Endif
            Scale Limb i,3,Limb Scale X(i,3)-Power,100,100
            If Limb Scale X(i,3)<10 Then Killme=1
         Endif
         If (o2>2000 and o2<3001)
            If Object Exist(o2)
               Delete Object o2
            Endif
            Scale Limb i,3,Limb Scale X(i,3)-Power,100,100
            If Limb Scale X(i,3)<10 Then Killme=1
         Endif
         dist#=Camera_Dist(i)
         if dist#<2.5
            Lymphs=Lymphs+1
            Killme=1
         Endif
         x#=Object Position X(i):z#=Object Position Z(i)
         y#=Get Terrain Ground Height(1,x#,z#)
         Move Object i,(oldy#-y#)*.025
         Position Object i,x#,y#+.55,z#
         If Object Position X(i)<2 Then Position Object i,2,Object Position Y(i),Object Position Z(i)
         If Object Position X(i)>Object Size X(1)-2 Then Position Object i,Object Size X(1)-2,Object Position Y(i),Object Position Z(i)
         If Object Position Z(i)<2 Then Position Object i,Object Position X(i),Object Position Y(i),2
         If Object Position Z(i)>Object Size Z(1)-2 Then Position Object i,Object Position X(i),Object Position Y(i),Object Size Z(1)-2
         Set Object Collision Off i
         If Killme=1 Then Delete Object i
      Endif
   Next i
   Dec SpawnTime
   If SpawnTime<1
      Enemy=Make_Enemy()
      If Enemy>0
         x#=rnd(1280):z#=Rnd(1280)
         Position Object Enemy,x#,0,z#
      Endif
      SpawnTime=1000
   Endif
Endfunction

Function Camera_Dist(ObjID)
   If Object Exist(ObjID)=0 Then ExitFunction 0.0
   Set Vector3 1,Object Position X(ObjID)-CamX,Object Position Y(ObjID)-CamY,Object Position Z(ObjID)-CamZ
   d#=Length Vector3(1)
Endfunction d#


Function Get_Free_Enemy()
   flag=0
   For i = 1001 to 1100
      If Object Exist(i)=0
         flag=1
         Exit
      Endif
   Next i
   If flag=0
      i=-1
   Endif
Endfunction i





Function Splotch(h,s,img)
   If Bitmap Exist(1) Then Delete Bitmap 1
   Create Bitmap 1,s*2+1,s*2+1
   Lock Pixels
   Ink 0,0
   Box 0,0,1+s*2,1+s*2
   c=rnd(7)+h-3
   Ink Rgb(c,c,c),0
   r=rnd(s/2)+s/4
   For i# = 0.0 to 360.0 step 2
      x=sin(i#)*r+s/2
      y=cos(i#)*r+s/2
      line s/2,s/2,x,y
      r=r+(rnd(2)-1)
      if r>s+15 then r=s+15
      m=s-15:If m<2 then m=2
      if r<m then r=m
   Next i#
   Unlock Pixels
   Get Image img,0,0,1+s*2,1+s*2
   Set Current Bitmap 0
   Delete Bitmap 1
Endfunction

Function Grass()
   Ink Rgb(0,130,0),0
   Box 0,0,511,511
   g=0
   For i = 101 to 110
      Splotch(180,30,i)
      Sprite i,0,0,i
   Next i
   Lock Pixels
   Do
      sprt=rnd(9)+101
      Size Sprite sprt,rnd(3)+1,Rnd(3)+1
      Set Sprite Alpha sprt,180
      Set Sprite Diffuse sprt,0,Rnd(50)+Rnd(50)+100,0
      Paste Sprite sprt,rnd(65),rnd(65)
      Dot rnd(70),Rnd(70),Rgb(0,Rnd(50)+100,0)
      g=g+1
      If rnd(2000)+1000<g Then Exit
   Loop
   Unlock Pixels
   Get Image 3,5,5,69,69,1
   For i = 101 to 110
      Splotch(rnd(80)+130,30,i)
      Sprite i,0,0,i
   Next i
   Lock Pixels
   Ink Rgb(0,90,0),0
   Box 0,0,511,511
   g=0
   Do
      sprt=rnd(9)+101
      Size Sprite sprt,rnd(10)+10,Rnd(10)+10
      Set Sprite Alpha sprt,64
      Set Sprite Diffuse sprt,0,50+Rnd(50)+Rnd(50)+rnd(50)+rnd(50),0
      Paste Sprite sprt,rnd(127),rnd(127)
      g=g+1
      If rnd(1000)+200<g Then Exit
   Loop
   Unlock Pixels
   For j = 1 to 3
      Splotch(rnd(80)+130,30,1)
      Sprite 1,0,0,1
      Set Sprite Diffuse 1,Rnd(10),Rnd(10),0
      Set Sprite Alpha 1,80
      Size Sprite 1,20,20
      Lock Pixels
      For i = 1 to 12
         Paste Sprite 1,63+i*2,66-i*2
      Next i
      Unlock Pixels
   Next j
   Get Image 4,0,0,128,128,0
   Delete Sprite 1
   For i = 101 to 110
      If Sprite Exist(i) Then Delete Sprite i
   Next i
Endfunction

Function Create_Heightmap(x,y)
   Ink rgb(150,150,150),0
   Box 0,0,x,y
   s=(x/4)*(y/4)
   For i = 1 to s
      Randomize Timer()
      sx=rnd(x)
      sy=rnd(y)
      TileHeight=rnd(6)+rnd(6)+rnd(6)+rnd(6)+rnd(6)-(rnd(6)+rnd(6)+rnd(6)+rnd(6)+rnd(6))
      ss=rnd(8)+rnd(8)+rnd(8)+rnd(8)+8
      Splotch(TileHeight,ss,1)
      Sprite 1,0,0,1
      Set Sprite 1,0,1
      Set Sprite Alpha 1,rnd(55)+rnd(55)+rnd(55)
      Paste Sprite 1,sx,sy
   Next i
   c as dword
   for noise=1 to rnd(50)+rnd(50)+rnd(50)+50
      noisex=rnd(x)
      noisey=rnd(y)
      c=point(noisex,noisey)
      h=rgbr(c)+rnd(4)-rnd(4)
      ink rgb(h,h,h),0
      dot noisex,noisey
   Next noise
   shipx=x/2-3:shipy=y/2+3
   depth=0
   For i = 1 to 12
      Dot Shipx,ShipY,rgb(depth,depth,depth)
      Dot Shipx+1,ShipY,rgb(depth,depth,depth)
      depth=depth+8
      Shipx=Shipx+1
      Shipy=Shipy+1
   Next i
   if file exist("Heightmap.bmp") Then Delete File "Heightmap.bmp"
   Get Image 2,0,0,x,y,0
   Save Image "Heightmap.bmp",2
   If Sprite Exist(1) Then Delete Sprite 1
   Ink Rgb(255,255,255),0
   Print "Heightmap Done"
   Sync
Endfunction


Function Make_Terrain(x,y)
   Create_Heightmap(x,y)
   Grass()
   If Object Exist(1) then Delete Object 1
   Make Object Terrain 1
   Set Terrain Heightmap 1,"Heightmap.bmp"
   Set Terrain Texture 1,4,3
   Set Terrain Tiling 1,3
   Set Terrain Scale 1,20,.5,20
   Set Terrain Light 1,20,50,10,200,200,150,.2
   Build Terrain 1
   Set Object Collision Off 1
Endfunction




Function Shoot_Bullet()
   If Reload>0
      Dec Reload
      ExitFunction
   Endif
   If Mouseclick()<>1 Then Exitfunction
   Reload=ReloadTime
   B=Make_Bullet()
   If B<1 then Exitfunction
   Position Object B,CamX,CamY,CamZ
   Set Object To Camera Orientation B
   Move Object Right B,.2
   bx#=Object Position X(B):by#=Object Position Y(B):bz#=Object Position Z(B)
   Pick Screen MouseX(),MouseY(),1000
   Point Object B, CamX +Get Pick Vector X(), CamY +Get Pick Vector Y(), CamZ +Get Pick Vector Z()
   Move Object B,5
   Set Vector3 B,Object Position X(B)-bx#,Object Position Y(B)-CamY,Object Position Z(B)-bz#
Endfunction


Function Get_Free_Bullet()
   flag=0
   For i = 2001 to 3000
      If Object Exist(i)=0
         flag=1
         Exit
      Endif
   Next i
   If flag
      null=Make Vector3(i)
   Else
      i=-1
   Endif
Endfunction i

Function Make_Bullet()
   blt=Get_Free_Bullet()
   If blt=-1 Then ExitFunction -1
   Make Object Sphere blt,1,6,6
   Scale Object blt,25,25,500
   Set Object Collision To Boxes blt
Endfunction blt

Function Move_Bullets()
   For i = 2001 to 3000
      If Object Exist(i)
         Set Vector3 1,Object Position X(i)-CamX,Object Position Y(i)-CamY,Object Position Z(i)-CamZ
         If Length Vector3(1)>500 or Object Position Y(i)<0
            Delete Object i
         Else
            Position Object i,Object Position X(i)+X Vector3(i),Object Position Y(i)+Y Vector3(i),Object Position Z(i)+Z Vector3(i)
            Set Vector3 i,X Vector3(i),Y Vector3(i)-.01,Z Vector3(i)
         Endif
      Endif
   Next i
Endfunction


Function Make_Medkit()
   MedKit=Get_Free_Medkit()
   If MedKit< 1 Then ExitFunction -1
   Make Object Cube MedKit,1.8
   If Image Exist(10)=0
      Ink Rgb(0,0,255),0
      Box 0,0,32,32
      Ink Rgb(255,0,0),0
      Center Text 16,5,"+"
      Get Image 10,0,0,32,32,0
      Ink Rgb(255,255,255),0
   Endif
   Texture Object MedKit,10
   Set Object COllision Off MedKit
Endfunction MedKit


Function Get_Free_Medkit()
   Flag=0
   For i = 10 to 19
      If Object Exist(i)=0
         Flag=1
         Exit
      Endif
   Next i
   If Flag=0 then i=-1
Endfunction i

Function Check_Medkits()
   For i = 10 to 19
      If Object Exist(i)
         D#=Camera_Dist(i)
         if D#<3.5
            Delete Object i
            Health=Health+20
            If Health>100 Then Health=100
         Endif
      Endif
   Next i
Endfunction

Function Make_Reload_Boost()
   RB=Get_Reload_Boost()
   If RB< 1 Then ExitFunction -1
   Make Object Sphere RB,.8
   If Image Exist(20)=0
      Ink Rgb(0,0,0),0
      Box 0,0,32,32
      Ink Rgb(180,180,200),0
      Center Text 16,5,"B"
      Get Image 20,0,0,32,32,0
      Ink Rgb(255,255,255),0
   Endif
   Set Sphere Mapping On RB,20
   Set Object Collision Off RB
Endfunction RB


Function Get_Reload_Boost()
   Flag=0
   For i = 20 to 29
      If Object Exist(i)=0
         Flag=1
         Exit
      Endif
   Next i
   If Flag=0 then i=-1
Endfunction i

Function Check_Reload_Boosts()
   For i = 20 to 29
      If Object Exist(i)
         D#=Camera_Dist(i)
         if D#<3.5
            Delete Object i
            ReloadTime=ReloadTime-1
            If ReloadTime<1 Then ReloadTime=1
         Endif
      Endif
   Next i
Endfunction


Function Make_ShipPart()
   S=Get_ShipPart()
   If S< 1 Then ExitFunction -1
   Make Object Box S,2,2,4
   If Image Exist(30)=0
      Ink Rgb(200,200,200),0
      Box 0,0,32,32
      Ink Rgb(0,0,50),0
      Center Text 16,5,"S"
      Get Image 30,0,0,32,32,0
      Ink Rgb(255,255,255),0
   Endif
   Texture Object S,2
   Set Object Collision Off S
Endfunction S


Function Get_ShipPart()
   Flag=0
   For i = 30 to 39
      If Object Exist(i)=0
         Flag=1
         Exit
      Endif
   Next i
   If Flag=0 then i=-1
Endfunction i

Function Check_ShipPart()
   If Beacons>0 and BeaconTimer=500 and kb>0
      Dec BeaconTimer
      Dec Beacons
   Endif
   If BeaconTimer<1
      BeaconTimer=500
   Else
      If BeaconTimer<500
         Dec BeaconTimer
         If Object In Screen(100)
            Ink Rgb(255,0,0),0
            Center Text Object Screen X(100),Object Screen Y(100),"+"
            Ink Rgb(255,255,255),0
         Endif
      Endif
   Endif
   For i = 30 to 39
      If Object Exist(i)
         If BeaconTimer<500 And Object In Screen(i)<>0
            Ink Rgb(255,0,0),0
            Center Text Object Screen X(i),Object Screen Y(i),"*"
            Ink Rgb(255,255,255),0
         Endif
         D#=Camera_Dist(i)
         if D#<3.5
            Delete Object i
            Parts=Parts+1
         Endif
      Endif
   Next i
Endfunction

Function Check_Ship()
   i=100
   If Object Exist(i)
      D#=Camera_Dist(i)
      if D#<50 and Parts=10
         Repair=Repair+.01
      Endif
   Endif
Endfunction

#Constant CamX Camera Position X()
#Constant CamY Camera Position Y()
#Constant CamZ Camera Position Z()
#Constant Factor Rnd(1000.0)/1000.0

`keystate abreviations
#Constant k1 keystate(2)
#Constant k2 keystate(3)
#Constant k3 keystate(4)
#Constant k4 keystate(5)
#Constant k5 keystate(6)
#Constant k6 keystate(7)
#Constant k7 keystate(8)
#Constant k8 keystate(9)
#Constant k9 keystate(10)
#Constant k0 keystate(11)
#Constant ka keystate(30)
#Constant kb keystate(48)
#Constant kc keystate(46)
#Constant kd keystate(32)
#Constant ke keystate(18)
#Constant kf keystate(33)
#Constant kg keystate(34)
#Constant kh keystate(35)
#Constant ki keystate(23)
#Constant kj keystate(36)
#Constant kk keystate(37)
#Constant kl keystate(38)
#Constant km keystate(50)
#Constant kn keystate(49)
#Constant ko keystate(24)
#Constant kp keystate(25)
#Constant kq keystate(16)
#Constant kr keystate(19)
#Constant ks keystate(31)
#Constant kt keystate(20)
#Constant ku keystate(22)
#Constant kv keystate(47)
#Constant kw keystate(17)
#Constant kx keystate(45)
#Constant ky keystate(21)
#Constant kz keystate(44)