Sorry your browser is not supported!

Type Enemy
   X as float
   Y as float
   Z as Float
EndType
SetVariables()
SetUp()

Do
Player()
MoveEnemy()
Time = Time + 1

Position Camera 0,50,-10
Point Camera 0,0,0

Text 0,0,"X : " + STR$(Object Position x(Player))
Text 0,16,"Y : " + STR$(Object Position y(Player))
Text 0,33,"Z : " + STR$(Object Position z(Player))

Sync
Loop

Function SetUp()

Sync On : Sync Rate 30
Hide Mouse : Randomize Timer()
Set Display Mode 1024,768,32

`Make Player
Make Object Sphere Player,5
Color Object Player,RGB(255,153,0)
Set Object Collision On Player

`Make The Barrel
Make Object Box Barrel,1,1,4
Make Mesh From Object BarrelMesh,Barrel
Delete Object Barrel
Add Limb Player,1,BarrelMesh
Delete Mesh BarrelMesh

`Make the Enemies
For i = 1 to Enemies
Make Object Cube i,5
Set Object Collision On i
next i

EndFunction

Function SetVariables()
`Declare all variables,types and arrays
Global Player : Global Bullet : Global Barrel : Global BarrelMesh : Global Enemies : Global BulletExist : Global Time : Global Operator
Player = 4 : Bullet = 5 : Barrel = 6 : BarrelMesh = 4 : Enemies = 3 : Operator = 0
Dim EnemyAngle(Enemies)
Dim EnemyDist#(Enemies)
Dim EnemyState(Enemies)
Dim Bullet(Enemies)
For e = 1 to Enemies
   EnemyState(e) = 2
next e
Dim EnemyPosition(Enemies) as Enemy
For e = 1 to Enemies
   If rnd(1) = rnd(1)
      EnemyPosition(e).X = rnd(30)
      EnemyPosition(e).Z = rnd(20)
   Else
      EnemyPosition(e).X = -rnd(30)
      EnemyPosition(e).Z = -rnd(20)
   EndIf
   If EnemyPosition(e).X < 10 and EnemyPosition(e).X > 0 then EnemyPosition(e).X = rnd(10)+10
   If EnemyPosition(e).Z < 10 and EnemyPosition(e).Z > 0 then EnemyPosition(e).Z = rnd(10)+10
   If EnemyPosition(e).X < 0 and EnemyPosition(e).X > -10 then EnemyPosition(e).X = -rnd(10)-10
   If EnemyPosition(e).Z < 0 and EnemyPosition(e).Z > -10 then EnemyPosition(e).Z = -rnd(10)-10
Next e
EndFunction

Function Player()
`Moves the player
If UpKey() = 1  and Object Position Z(Player)<22 then Move Object Player,.4
If DownKey() = 1 and Object Position Z(Player)>-23 then Move Object Player,-.4
If RightKey() = 1 and Object Position X(Player)<35 then Yrotate Object Player,Object Angle Y(Player)+2
If LeftKey() = 1 and Object Position X(Player)>-35 then Yrotate Object Player,Object Angle Y(Player)-2


`Makes sure that the plaeyr doesn't go off the screen
If Object Position Z(Player)>22  then Position Object Player,Object Position X(Player),Object Position Y(Player),21.99
If Object Position Z(Player)<-23  then Position Object Player,Object Position X(Player),Object Position Y(Player),-22.99
If Object Position X(Player)<-35 then Position Object Player,-34.99,Object Position Y(Player),Object Position Z(Player)
If Object Position X(Player)>35 then Position Object Player,34.99,Object Position Y(Player),Object Position Z(Player)


`Lets you shoot bullets
If MouseClick()=1 and BulletExist = 0
   Make Object Sphere Bullet,1
   Color Object Bullet,RGB(255,0,0)
   Set Object Collision On Bullet
   Position Object Bullet,Object Position X(Player),Object Position Y(Player)+3,Object Position Z(Player)
   Yrotate Object Bullet,Object Angle Y(Player)
   BulletExist = 1
EndIf

If Time>60
   Delete Object Bullet
   BulletExist = 0
   Time = 0
EndIf

`Move the Barrel
Offset Limb Player,1,0,3,1
`Move the Bullet

If Object Exist(Bullet) = 1 then Move object Bullet,3
EndFunction

Function MoveEnemy()

`Move the Enemies
For e = 1 to Enemies
`Only perform AI moves if AI Player exists
If Object Exist(e)=1
   `Check the distance between you and the enmies
   EnemyDist#(e) = sqrt((Object Position X(Player)-EnemyPosition(e).X)^2+(Object Position Y(Player)-EnemyPosition(e).Y)^2+(Object Position Z(Player)-EnemyPosition(e).Z)^2)
   `If enemy state is 1 then make the angle change (so the enemy can wander)
   `If EnemyState(e)=1
      `EnemyAngle(e) = WrapValue(EnemyAngle(e)+rnd(3))
   `EndIf
   `If the enemy state is 2 then point to player
   If EnemyState(e)=2
      EnemyAngle(e)=atanfull(Object Position X(Player)-EnemyPosition(e).X,Object Position Z(Player)-EnemyPosition(e).Z)
   EndIf
   `Always move enemy
   EnemyPosition(e).X = newxvalue(EnemyPosition(e).X,EnemyAngle(e),.1)
   EnemyPosition(e).Z = newzvalue(EnemyPosition(e).Z,EnemyAngle(e),.1)
   `This part is remmed out because I want the AI to always follow the player for now
   `Change state depending on distance
   `If EnemyDist#(e)<10 then EnemyState(e)=2 else EnemyState(e)=1



   `Update enemies
   Position Object e,EnemyPosition(e).X,EnemyPosition(e).Y+2,EnemyPosition(e).Z
   Yrotate Object e,EnemyAngle(e)
   If Object Exist(Bullet) = 1 and Object Exist(e) = 1
      If Object Collision(Bullet,e) = 1
         Delete Object e
         Delete Object Bullet
         BulletExist = 0
      EndIf
   EndIf
 `Checks If the AI has caught the Player
If Object Exist(e)=1 then If Object Collision(Player,e) = 1 then End
   `End the object exist command
EndIf

next e

EndFunction

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

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

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

sync on
sync rate 30
autocam off
position camera 0,3,-5
point camera 0,0,5

color backdrop rgb(150,220,255)

create bitmap 1,128,512
set current bitmap 1

ink rgb(30,30,0),0
fillcircle(4,4,3)
get image 5,0,0,8,8,0

ink rgb(60,60,0),0
fillcircle(8,8,7)
get image 6,0,0,16,16,0

ink rgb(200,200,200),0
fillcircle(8,8,7)
get image 7,0,0,16,16,0

ink rgb(0,100,0),0
box 0,0,128,512
ink rgb(0,50,0),0
for c=0 to 10000
  x=rnd(125)
  y=rnd(510)
  dot x,y
next c

get image 1,0,0,128,512,0
landobj=findobj()
makebillboard(landobj,8,32)
position object landobj,0,0,12
xrotate object landobj,-90
texture object landobj,1
tankbase=findobj()
make object box tankbase,0.5,0.2,0.7
tanktop=findobj()
make object box tanktop,0.3,0.2,0.5

dirt=findobj()
makebillboard(dirt,0.2,0.2)
texture object dirt,5
set object transparency dirt,1 
hide object dirt

dust=findobj()
makebillboard(dust,1,1)
texture object dust,6
set object transparency dust,1 
hide object dust

smoke=findobj()
makebillboard(smoke,1,1)
texture object smoke,7
set object transparency smoke,1 
hide object smoke

type tank
  posx# as float
  posz# as float
  vel# as float
  baseangle# as float
  topangle# as float
  distmoved# as float
  recoil# as float
  recoilvel# as float
  fireside as integer
endtype

type projectile
  posx# as float
  posz# as float
  posy# as float
  vely# as float
  velz# as float
  velx# as float
  ptype as integer
  obj as integer
endtype

type plane
  obj as integer
  posx# as float
  posy# as float
  posz# as float
  life as integer
  velx# as float
  vely# as float
  velz# as float
  ax# as float
  ay# as float
  az# as float
  fadefrom as integer
endtype




dim projectiles(0) as projectile
dim planes(0) as plane
player as tank
distz#=0
pixeldist=0
pixelz=0
scrolledz=0
player.fireside=1


player.baseangle#=0

do
  operating=0
  moving=0
  
  targetangle=0
  keyspressed=0
  offsetangle=0
  if upkey()
    targetangle=targetangle+0
    keyspressed=keyspressed+1
  endif
  if leftkey()
    targetangle=targetangle-90
    keyspressed=keyspressed+1
  endif
  if rightkey()
    targetangle=targetangle+90
    keyspressed=keyspressed+1
  endif
  if shiftkey() 
    player.vel#=player.vel#-0.01
    moving=0
  endif
  
  if keyspressed>0
    targetangle=targetangle/keyspressed
    player.vel#=player.vel#+0.002
    if (closeto(player.baseangle#,targetangle,4)=1)
      player.baseangle#=targetangle
    else
      //player.baseangle#=wrapvalue(swingto#(player.baseangle#,targetangle,3))
      if (player.baseangle#>targetangle) then player.baseangle#=player.baseangle#-4
      if (player.baseangle#<targetangle) then player.baseangle#=player.baseangle#+4
    endif
  else  
    if moving=0 then player.vel#=player.vel#-0.005
  endif

  
  
  if player.vel#>0.1 then player.vel#=0.1
  if player.vel#<0 then player.vel#=0
  player.posx#=player.posx#+sin(player.baseangle#)*player.vel#
  player.posz#=player.posz#+cos(player.baseangle#)*player.vel#
  player.distmoved#=player.distmoved#+player.vel#
  if player.posx#<-3 then player.posx#=-3
  if player.posx#>3 then player.posx#=3
  distz#=player.posz#
  
  set current bitmap 1
  lock pixels
  
  while (pixeldist<((distz#+32.0)/32.0)*512)
    pixeldist=pixeldist+1
    pixelz=pixeldist-(int(pixeldist/512.0)*512)
    for c=0 to 128
      dot c,pixelz,rgb(20,50+rnd(50),20)
    next c
  endwhile
  
  if player.distmoved#>0.2
    player.distmoved#=player.distmoved#-0.2
    x#=player.posx#-sin(player.baseangle#)*player.distmoved#
    y#=player.posz#-cos(player.baseangle#)*player.distmoved#
    px=((x#+4.0)/8.0)*128.0
    py=((((y#+4.0)-int((y#+4.0)/32.0)*32)/32.0)*512)
    ink rgb(25,25,0),0
    line px+rx(-4,5,player.baseangle#),py+ry(-4,5,player.baseangle#),px+rx(-1,5,player.baseangle#),py+ry(-1,5,player.baseangle#)
    line px+rx(1,5,player.baseangle#),py+ry(1,5,player.baseangle#),px+rx(4,5,player.baseangle#),py+ry(4,5,player.baseangle#)
  endif
  
  if spacekey()
    if keyspace=0
      if player.fireside=1
        player.fireside=-1
      else
        player.fireside=1
      endif
      addprojectile(distz#,player.posx#+(player.fireside*0),2)
      player.recoilvel#=0.1
      for b=0 to 5
        addeffect(player.posx#,0.3,player.posz#,frnd#(0.02)-0.01,frnd#(0.02),frnd#(0.1)+0.1,0,0,0,10+rnd(20),smoke,180,0,0,15,30)
      next b
    endif
    keyspace=1
  else
    keyspace=0
  endif
  
  
  for c=0 to array count(projectiles(0))-1
    if projectiles(c).posy#<0
      x#=projectiles(c).posx#
      y#=projectiles(c).posz#
      px=((x#+4.0)/8.0)*128.0
      py=((((y#+4.0)-int((y#+4.0)/32.0)*32)/32.0)*512)
      
      ink rgb(32,32,0),0
      fillcircle(px,py,5)   

      num=4+rnd(5)
      for b=0 to num
        ink rgb(10+rnd(25),10+rnd(25),0),0
        angle=rnd(360)
        length=rnd(4)+5
        line px,py,px+length*cos(angle),py+length*sin(angle)
      next b

      ink rgb(10,10,0),0
      fillcircle(px,py,4)
      ink rgb(5,5,0),0
      fillcircle(px,py,2)
      for b=0 to 15
        addeffect(projectiles(c).posx#-0.2+frnd#(0.4),0,projectiles(c).posz#,frnd#(0.08)-0.04,0.05+frnd#(0.4),frnd#(0.08)-0.04,0,-0.03,0,25+rnd(50),dirt,180,0,0,25,20)
      next b
      for b=0 to 5
        addeffect(projectiles(c).posx#,0,projectiles(c).posz#+frnd#(0.04)-0.02,frnd#(0.04)-0.02,frnd#(0.04),0,0,0,0,25+rnd(50),dust,180,0,0,20,15)
      next b
      delete object projectiles(c).obj
      array delete element projectiles(0),c
      c=c-1
    else
      select projectiles(c).ptype
        case 1
          projectiles(c).velz#=projectiles(c).velz#+0.05
          if projectiles(c).velz#>2 then projectiles(c).velz#=2
        endcase
        case 2
          projectiles(c).vely#=projectiles(c).vely#-0.02
        endcase
      endselect
      projectiles(c).posx#=projectiles(c).posx#+projectiles(c).velx#
      projectiles(c).posy#=projectiles(c).posy#+projectiles(c).vely#
      projectiles(c).posz#=projectiles(c).posz#+projectiles(c).velz#
      position object projectiles(c).obj,projectiles(c).posx#,projectiles(c).posy#,projectiles(c).posz#-distz#
    endif
  next c
  

  
  unlock pixels
  
  get image 1,0,0,128,512,1
  
  set current bitmap 0
  scroll object texture landobj,0,(pixelz-scrolledz)/512.0
  
  scrolledz=pixelz
  
  for c=0 to array count(planes(0))-1
    planes(c).velx#=planes(c).velx#+planes(c).ax#
    planes(c).vely#=planes(c).vely#+planes(c).ay#
    planes(c).velz#=planes(c).velz#+planes(c).az#
    
    planes(c).posx#=planes(c).posx#+planes(c).velx#
    planes(c).posy#=planes(c).posy#+planes(c).vely#
    planes(c).posz#=planes(c).posz#+planes(c).velz#
    position object planes(c).obj,planes(c).posx#,planes(c).posy#,planes(c).posz#-distz#
    delete=0
    if planes(c).life>-1 
      if planes(c).life=0
        delete=1
      else
        planes(c).life=planes(c).life-1
      endif
      if planes(c).life<planes(c).fadefrom
        set alpha mapping on planes(c).obj,(planes(c).life*100)/planes(c).fadefrom
      endif
    else
      
    endif
    if delete=1
      delete object planes(c).obj
      array delete element planes(0),c
      c=c-1
    endif
  next c

  
  player.recoil#=player.recoil#+player.recoilvel#
  player.recoilvel#=player.recoilvel#-0.01
  if player.recoil#<0.0 then player.recoil#=0.0
  if player.recoil#>0.2
    player.recoil#=0.2
    player.recoilvel#=0
  endif
  if player.recoilvel#<-0.05 then player.recoilvel#=-0.05
  position object tankbase,player.posx#,0.1,0
  yrotate object tankbase,player.baseangle#
  position object tanktop,player.posx#,0.3,0-player.recoil#
  yrotate object tanktop,player.topangle#
  
  ink rgb(0,0,0),0
  text 0,0,str$(screen fps())+" fps"
  text 0,20,"Arrow keys to move"
  text 0,34,"Space to fire"
  text 0,48,"Shift to brake (hold to turn on spot)"
sync
loop

function addeffect(x#,y#,z#,vx#,vy#,vz#,ax#,ay#,az#,size#,objectfrom,xr#,yr#,zr#,life,fadefrom)
  index=array count(planes(0))
  array insert at bottom planes(0)
  planes(index).obj=findobj()
  clone object planes(index).obj,objectfrom
  scale object planes(index).obj,size#,size#,size#
  show object planes(index).obj
  rotate object planes(index).obj,xr#,yr#,zr#
  planes(index).velx#=vx#
  planes(index).vely#=vy#
  planes(index).velz#=vz#
  planes(index).ax#=ax#
  planes(index).ay#=ay#
  planes(index).az#=az#
  planes(index).life=life
  planes(index).fadefrom=fadefrom
  planes(index).posx#=x#
  planes(index).posy#=y#
  planes(index).posz#=z#
endfunction


function addprojectile(z#,x#,ptype)
index=array count(projectiles(0))
array insert at bottom projectiles(0)
projectiles(index).obj=findobj()
projectiles(index).ptype=ptype
projectiles(index).posz#=z#
select ptype
  case 1
    make object cylinder projectiles(index).obj,0.5
    xrotate object projectiles(index).obj,90
    scale object projectiles(index).obj,20,100,20
    projectiles(index).posx#=x#
    projectiles(index).velz#=0.2
  endcase
  case 2
    make object sphere projectiles(index).obj,0.1
    projectiles(index).posx#=x#
    projectiles(index).velz#=0.5
    projectiles(index).vely#=0.2
  endcase
endselect

endfunction

function swingto#(value#,target#,speed#)
offset#=180.0-target#
ret#=value#+offset#
if ret#<0 then ret#=ret#+360.0
if ret#>360 then ret#=ret#-360.0
if ret#<target#+offset# then ret#=ret#+speed#
if ret#>target#+offset# then ret#=ret#-speed#
ret#=ret#-offset#
endfunction ret#

function rx(x#,y#,angle#)
ret=int(x#*cos(angle#)+(y#*sin(angle#)))
endfunction ret

function ry(x#,y#,angle#)
ret=int(-x#*sin(angle#)+(y#*cos(angle#)))
endfunction ret

function closeto(value#,target#,range#)
  ret=0
  if ((value#<target#+range#) AND (value#>target#-range#)) then ret=1
endfunction ret

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

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

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

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

function findlight()
res=1
while light exist(res)=1
res=res+1
endwhile
endfunction res



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

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

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

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

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

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

function makebillboard(obj,width#,height#)
  tempmesh=findmesh()
  tempobj=findobj()
  make object triangle tempobj,1,0,0,1,0,0,0,0,0
  make mesh from object tempmesh,tempobj
  lock vertexdata for mesh tempmesh
  delete mesh from vertexdata 0,get vertexdata vertex count(),0,get vertexdata index count()
  addplain(-width#/2,-height#/2,0,width#/2,-height#/2,0,width#/2,height#/2,0,-width#/2,height#/2,0)
  setlastquad(0,0,1)
  set vertexdata uv 0,0,1
  set vertexdata uv 1,1,1
  set vertexdata uv 2,1,0
  set vertexdata uv 3,0,1
  set vertexdata uv 4,1,0
  set vertexdata uv 5,0,0
  unlock vertexdata
  delete object tempobj
  make object obj,tempmesh,0 
  delete mesh tempmesh 
endfunction

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

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

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

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

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

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

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

function frnd#(range#)
  ret#=rnd(range#*1000.0)/1000.0
endfunction ret#

for r = 0 to 50
  circle 200,200,r
  circle 200,199,r
next r

sync on : sync rate 60
autocam off

`======= Variable Setup =======

#Constant PlayerBaseObject   1
#Constant PlayerTurretObject 2
#Constant GroundObject       3
#Constant BulletBaseObject   4
#Constant MineBaseObject     5

turretheight as float
turretheight = 7.0

playerspeed  as float
playerspeed  = 0.7
playeraccel  as float
playeraccel  = 0.03

plr_maxbullets = 5
plr_maxmines   = 3

turnspeed as float
turnspeed = 3.0

currentspeed as float
currentspeed = 0.0

type EnemyTankType
    BaseObject   as integer
    TurretObject as integer
    Class        as integer
endtype

type EnemyBaseType
    ShotCapacity as integer
    MoveSpeed    as float
    MineCapacity as integer
endtype

type BulletType
    Object   as integer
    Bounces  as integer
    Class    as integer
    deleteme as boolean
    source   as integer `0 for player
endtype

type BulletBaseType
    Velocity  as float
    BounceMax as float
    Radius    as float
endtype

type MineType
    Object    as integer
    TimeStart as integer
    Class     as integer
    Detonate  as integer `1=Delay det, 2=Insta det
    deleteme  as boolean
    source    as integer `0 for player
endtype

type MineBaseType
    Radius        as float
    ExplodeRadius as float
    SenseRadius   as float
    ActivateTime  as integer
    DetonateTime  as integer
    ExplodeTime   as integer
endtype

DIM EnemyTanks(0) as EnemyTankType
DIM Bullets(0)    as BulletType
DIM Mines(0)      as MineType

DIM EnemyBases(0) as EnemyBaseType

EnemyBases(0).ShotCapacity = 1
EnemyBases(0).MoveSpeed    = 0.0
EnemyBases(0).MineCapacity = 0

DIM BulletBases(0) as BulletBaseType

BulletBases(0).Velocity  = 1.0
BulletBases(0).BounceMax = 1
BulletBases(0).Radius    = 4.0

DIM MineBases(0) as MineBaseType

MineBases(0).Radius        = 6
MineBases(0).ExplodeRadius = 10
MineBases(0).SenseRadius   = 30
MineBases(0).ActivateTime  = 3000
MineBases(0).DetonateTime  = 10000
MineBases(0).ExplodeTime   = 11500

DIM Obstacles(0)

`======= Media Setup =======

`Make a tank
make object box  PlayerBaseObject,15,5,10
yrotate object   PlayerBaseObject,90.0
fix object pivot PlayerBaseObject

make object cylinder PlayerTurretObject,2
scale object         PlayerTurretObject,600,200,200
xrotate object       PlayerTurretObject,90.0
yrotate object       PlayerTurretObject,90.0
fix object pivot     PlayerTurretObject

`Make the ground
make object plane GroundObject,500.0,400.0
xrotate object    GroundObject,-90
fix object pivot  GroundObject
color object      GroundObject,rgb(10,30,6)

`Bullet
make object sphere BulletBaseObject,4,8,8
hide object BulletBaseObject

`Mine
make object sphere MineBaseObject,6,5,5
hide object MineBaseObject

`Field
for c=1 to 20
    array insert at top Obstacles(0)
    Obstacles(1)=freeobject()
    make object box Obstacles(1),rnd(20)+5,rnd(30)+5,rnd(20)+5
    position object Obstacles(1),rnd(400)-200,object size y(Obstacles(1))/2,rnd(400)-200
next c

`======= Main Game =======

position camera 0,0,300.0,0
xrotate camera  0,90.0


DO

`Move tank
tempmovex=0
tempmovey=0
if upkey()    or keystate(17) then tempmovey=1
if rightkey() or keystate(32) then tempmovex=1
if downkey()  or keystate(31) then tempmovey=-1
if leftkey()  or keystate(30) then tempmovex=-1

`What angle are we going for?
if tempmovex=0  and tempmovey=1  then targetangle#=0.0
if tempmovex=1  and tempmovey=1  then targetangle#=45.0
if tempmovex=1  and tempmovey=0  then targetangle#=90.0
if tempmovex=1  and tempmovey=-1 then targetangle#=135.0
if tempmovex=0  and tempmovey=-1 then targetangle#=180.0
if tempmovex=-1 and tempmovey=-1 then targetangle#=225.0
if tempmovex=-1 and tempmovey=0  then targetangle#=270.0
if tempmovex=-1 and tempmovey=1  then targetangle#=315.0

`This rotates the tank in the proper direction
playerangle#=object angle y(PlayerBaseObject)
targetangle2#=wrapvalue(targetangle#-180.0)
if targetangle#=180.0 then targetangle2#=360.0
if tempmovex=-1
    if playerangle#>targetangle2# and playerangle#<targetangle#
        inc playerangle#,turnspeed
        if playerangle#>targetangle# then playerangle#=targetangle#
    endif
    if playerangle#<=targetangle2#
        dec playerangle#,turnspeed
    endif
    if playerangle#>targetangle#
        dec playerangle#,turnspeed
        if playerangle#<targetangle# then playerangle#=targetangle#
    endif
    
    else
    
    if playerangle#<targetangle2# and playerangle#>targetangle#
        dec playerangle#,turnspeed
        if playerangle#<targetangle# then playerangle#=targetangle#
    endif
    if playerangle#>=targetangle2#
        inc playerangle#,turnspeed
    endif
    if playerangle#<targetangle#
        inc playerangle#,turnspeed
        if playerangle#>targetangle# then playerangle#=targetangle#
    endif
endif

`Finally, accelerate and move the tank
if tempmovex<>0 or tempmovey<>0
    if currentspeed<playerspeed then inc currentspeed,playeraccel
    if currentspeed>playerspeed then currentspeed=playerspeed
    else
    if currentspeed>0.0 then dec currentspeed,playeraccel
    if currentspeed<0.0 then currentspeed=0.0
endif

yrotate object PlayerBaseObject,wrapvalue(playerangle#)
move object    PlayerBaseObject,currentspeed


`Position and point cannon
null=pick object(mousex(),mousey(),GroundObject,GroundObject)
position object PlayerTurretObject,object position x(PlayerBaseObject),turretheight,object position z(PlayerBaseObject)
point object    PlayerTurretObject,get pick vector x(),7,get pick vector z()


`Shoot
if mouseclick()=1 and clicked=0
    clicked=1
    if sourcebullets(0)<plr_maxbullets
        array insert at top Bullets(0)
        Bullets(1).Object  = freeobject()
        Bullets(1).Bounces = 0
        Bullets(1).Class   = 0
        Bullets(1).source  = 0
        clone object    Bullets(1).Object,BulletBaseObject
        position object Bullets(1).Object,object position x(PlayerTurretObject),7,object position z(PlayerTurretObject)
        yrotate object  Bullets(1).Object,object angle y(PlayerTurretObject)
    endif
endif

`Mines
if mouseclick()=2 and clicked=0
    clicked=1
    if sourcemines(0)<plr_maxmines
        array insert at top Mines(0)
        Mines(1).Object    = freeobject()
        Mines(1).TimeStart = timer()
        Mines(1).Class     = 0
        Mines(1).source    = 0
        clone object    Mines(1).Object,MineBaseObject
        position object Mines(1).Object,object position x(PlayerBaseObject),0,object position z(PlayerBaseObject)
    endif
endif

if mouseclick()=0 then clicked=0    

`Control bullets
for c=1 to array count(Bullets(0))
    move object Bullets(c).Object,BulletBases(Bullets(c).Class).Velocity
    
    `Trigger mines
    for d=1 to array count(Mines(0))
        if bulletdist(c,object position x(Mines(d).Object),object position z(Mines(d).Object))<MineBases(Mines(d).Class).Radius
            Mines(d).Detonate=2
            bullets(c).deleteme=1
        endif
    next d
    
    `Block bullets against each other
    for d=1 to array count(Bullets(0))
        if d<>c and bulletdist(c,object position x(Bullets(d).Object),object position z(Bullets(d).Object))<=maxval(BulletBases(Bullets(c).Class).Radius,BulletBases(Bullets(d).Class).Radius)
            bullets(d).deleteme=1
            bullets(c).deleteme=1
        endif
    next d
    
    `Bullets bounce
    for d=1 to array count(Obstacles(0))
        if bull2box(bullets(c).object,obstacles(d))=1
            obx#=object position x(obstacles(d))
            obz#=object position z(obstacles(d))
            tang#=object angle y(bullets(c).object)
            ang#=atanfull(object position x(bullets(c).object)-obx#,object position z(bullets(c).object)-obz#)
            ang1#=atanfull( object size x(obstacles(d)),-object size z(obstacles(d)))
            ang2#=atanfull( object size x(obstacles(d)), object size z(obstacles(d)))
            ang3#=atanfull(-object size x(obstacles(d)), object size z(obstacles(d)))
            ang4#=atanfull(-object size x(obstacles(d)),-object size z(obstacles(d)))
            
            if bullets(c).Bounces<bulletbases(bullets(c).class).BounceMax
                inc bullets(c).Bounces
                `Bounce by PHAELAX
                
                x1#=object position x(obstacles(d)) `Not really!
                y1#=object position z(obstacles(d))
                
                x2#=object position x(bullets(c).object)
                y2#=object position z(bullets(c).object)
                
                d# = sqrt((x2#-x1#)^2+(y2#-y1#)^2)
                
                rem normalize(unit length of 1) the incoming ray's vector components to determine
                rem its normalized direction vector
                nx# = (x1#-x2#)/d#
                ny# = (y1#-y2#)/d#
                
                rem calculate direction vector of reflected ray
                ax# = getReflectedComponent#(nx#, 0)
                ay# = getReflectedComponent#(ny#, 1)
                
                `set angle
                `if ang#>ang1# and ang#<ang2# or ang#>ang3# and ang#<ang4#
                    ax#=-ax#
                `endif
                
                yrotate object bullets(c).object,atanfull(ax#,ay#)

                else
                `bullets(c).deleteme=1
            endif
        endif
    next d
    
    `Delete out-of-bounds bullets
    if object position x(bullets(c).object)<-400 or object position x(bullets(c).object)>400 then bullets(c).deleteme=1
    if object position z(bullets(c).object)<-400 or object position z(bullets(c).object)>400 then bullets(c).deleteme=1
next c

`Control mines
for c=1 to array count(Mines(0))

    `Instantly go to detonate time if triggered
    if Mines(c).Detonate=1
        Mines(c).Detonate=0
        Mines(c).TimeStart=timer()-MineBases(Mines(c).Class).DetonateTime
    endif
    if Mines(c).Detonate=2
        Mines(c).Detonate=0
        Mines(c).TimeStart=timer()-MineBases(Mines(c).Class).ExplodeTime
    endif
    
    temp=timer()-Mines(c).TimeStart
    if temp>=MineBases(Mines(c).Class).ExplodeTime
        `[Boom!]
        Mines(c).deleteme=1
        
        else
        if temp>=MineBases(Mines(c).Class).DetonateTime
            if (timer()-Mines(c).TimeStart) mod 100 <50
                color object Mines(c).Object,rgb(255,0,0)
                else
                color object Mines(c).Object,rgb(255,255,255)
            endif
            
            else
            if temp>=MineBases(Mines(c).Class).ActivateTime
                `See if tanks are within sense radius
                if minedist(c,object position x(PlayerBaseObject),object position z(PlayerBaseObject))<MineBases(Mines(c).Class).SenseRadius
                    Mines(c).TimeStart=timer()-MineBases(Mines(c).Class).DetonateTime
                endif
            endif
        endif
    endif
next c

`Delete bullets
temp=0
while temp<array count(Bullets(0))
    inc temp
    if bullets(temp).deleteme
        delete object bullets(temp).object
        array delete element bullets(0),temp
        dec temp
    endif
endwhile 

`Delete mines
temp=0
while temp<array count(Mines(0))
    inc temp
    if Mines(temp).deleteme
        delete object Mines(temp).Object
        array delete element Mines(0),temp
        dec temp
    endif
endwhile 


SYNC
LOOP



function freeobject()
temp=rnd(10000)
repeat
    inc temp
until object exist(temp)=0
endfunction temp

function bulletdist(bulletno,xpos#,zpos#)
result#=SQRT((object position x(Bullets(bulletno).Object)-xpos#)^2+(object position z(Bullets(bulletno).Object)-zpos#)^2)
endfunction result#

function minedist(mineno,xpos#,zpos#)
result#=SQRT((object position x(Mines(mineno).Object)-xpos#)^2+(object position z(Mines(mineno).Object)-zpos#)^2)
endfunction result#

function maxval(a as float, b as float)
if a>b
    result#=a
    else
    result#=b
endif
endfunction result#

`Collision between spheres and boxes (2D only)
function bull2box(sphereobject,boxobject)
radius=object size x(sphereobject)
width=object size x(boxobject)/2
depth=object size z(boxobject)/2

result=0
if object position x(sphereobject)<=object position x(boxobject)+radius+width
if object position x(sphereobject)>=object position x(boxobject)-radius-width
if object position z(sphereobject)<=object position z(boxobject)+radius+depth
if object position z(sphereobject)>=object position z(boxobject)-radius-depth
result=1
endif : endif : endif : endif
endfunction result

`Count bullets from a given source
function sourcebullets(source)
result=0
for c=1 to array count(bullets(0))
    if bullets(c).source=source then inc result
next c
endfunction result

function sourcemines(source)
result=0
for c=1 to array count(mines(0))
    if mines(c).source=source then inc result
next c
endfunction result

`Bounce thanks to Phaelax
function getReflectedComponent#(a as float, n as float)
   a = a - 2*(a*n)*n
endfunction a

[img]http://www.url.com/image.jpg[/img]

```````````````````````````````````````
global restart
restart=0
start:
clear_res()
sync off

cls
for y=0 to 31:
	for x=0 to 31:
		dot x,y,rgb(0,rnd(155),0)
	next x
next y
get image 1,0,0,32,32

cls
for y=0 to 31:
	for x=0 to 31:
		clr=rnd(155)
		dot x,y,rgb(clr,clr/2,0)
	next x
next y
get image 2,0,0,32,32

cls

for z=1 to 100:
clr=rnd(100)
dot 16+(rnd(16)-8),16+(rnd(16)-8),rgb(0,clr,0)
next z
get image 10,0,0,32,32

cls
for y=0 to 31:
	for x=0 to 31:
		dot x,y,rgb(rnd(155),0,0)
	next x
next y
get image 11,0,0,32,32

cls
for y=0 to 10:
	for x=0 to 10:
		dot x,y,0
	next x
next y
get image 12,0,0,10,10

cls
for y=0 to 31:
	for x=0 to 31:
		dot x,y,rgb(rnd(155),0,rnd(155))
	next x
next y
get image 15,0,0,32,32

cls
for y=0 to 31:
	for x=0 to 31:
		clr=rnd(50)
		dot x,y,rgb(clr,clr,clr)
	next x
next y
get image 18,0,0,32,32


cls
for y=0 to 31:
	for x=0 to 31:
		clr=rnd(1)
		if clr=0 then dot x,y,rgb(0,0,0)
		if clr=1 then dot x,y,rgb(30,30,30)
	next x
next y
for circle1=16 to 45:
ink 0,0
circle 16,16,circle1
next circle1
get image 333,0,0,32,32

cls
for y=0 to 31:
	for x=0 to 31:
		dot x,y,0
	next x
next y
get image 19,0,0,32,32

cls
for y=0 to 31:
	for x=0 to 31:
		clr=rnd(150)
		dot x,y,rgb(0,0,clr)
	next x
next y
get image 28,0,0,32,32

cls
ink 0,0
for y=1 to 4:
	for x=1 to 4:
		dot x,y,0
	next x
next y
dot 1,1,rgb(255,255,255)
dot 4,1,rgb(255,255,255)
dot 1,3,rgb(255,255,255)
dot 2,2,rgb(255,255,255)
dot 3,2,rgb(255,255,255)
dot 4,3,rgb(255,255,255)
get image 13,1,1,4,4


cls
dot 0,0,0
dot 1,0,rgb(255,0,0)
dot 2,0,0
dot 3,0,rgb(255,0,0)
dot 4,0,0
dot 0,1,rgb(255,0,0)
dot 1,1,rgb(255,0,0)
dot 2,1,rgb(255,0,0)
dot 3,1,rgb(255,0,0)
dot 4,1,rgb(255,0,0)
dot 0,2,rgb(255,0,0)
dot 1,2,rgb(255,0,0)
dot 2,2,rgb(255,0,0)
dot 3,2,rgb(255,0,0)
dot 4,2,rgb(255,0,0)
dot 0,3,0
dot 1,3,rgb(255,0,0)
dot 2,3,rgb(255,0,0)
dot 3,3,rgb(255,0,0)
dot 4,3,0
dot 0,4,0
dot 1,4,0
dot 2,4,rgb(255,0,0)
dot 3,4,0
dot 4,4,0
get image 14,0,0,5,5


sync on
sync rate 60
autocam off
hide mouse
set camera range 1,100000000

make object plain 1,1900,1400
xrotate object 1,90
texture object 1,2
scale object texture 1,10,10

make object box 2,50,35,100
texture object 2,1

make object box 4,10,35,100
color object 4,0
make mesh from object 4,4
delete object 4
add limb 2,1,4
color limb 2,1,rgb(0,0,0)
offset limb 2,1,0,0,20

make object box 4,2,35,2000
make mesh from object 5,4
delete object 4
add limb 2,2,5
offset limb 2,2,0,0,1000
hide limb 2,2 


position object 2,-16,0,-309
 
position camera 0,1000,0
point camera 0,0,0

make object sphere 3,150
hide object 3

make object plain 14,50,50
texture object 14,14
xrotate object 14,90
yrotate object 14,180
position object 14,0,10,0
set object transparency 14,1
position object 14,500,10,-450
hide object 14


if restart>0 then goto skip_intro

do
	set text font "Arial"
	set text size 48
	ink rgb(100,100,50),0
	center text 320,80,"Tank Attack!!!!!"
	set text size 24
	ink rgb(100,100,100),0
	center text 320,120,"Story:"
	set text size 16
	ink rgb(255,255,255),0
	text  150,150,"It is the middle of WWII. You were fighting in the war, "
	text  150,170,"and you have become stranded in enemy territory. you have managed to get"
	text  150,190," ahold of a tank, and now all you have to do is try to stay alive!:)"
	set text size 24
	ink rgb(100,100,50),0
	center text 320,210,"Controls:"
	set text size 16
	ink rgb(255,255,255),0
	text  150,238," arrow keys to move, spacekey to shoot.:)"
	text  150,253," R to reload, and P to pause the game."
	set text size 18
	ink rgb(100,100,50),0
	center text 320,280,"...Press the spacebar to continue..."
	if spacekey()=1 then exit
	
	if upkey()=1 then move object 2,5
	if downkey()=1 then move object 2,-5
	if leftkey()=1 then turn object left 2,5
	if rightkey()=1 then turn object right 2,5
		
	sync
loop

skip_intro:

level_screen=1

sptimer=0

health=100
ammo=0

enemyobj=200
maxenemy=300
wave=1
levelnum=wave
ammo=10
damage=0

if restart>0:
wave=restart
levelnum=restart
endif


do
	if level_screen=1:
		set text font "Arial"
		set text size 48
		ink rgb(100,100,50),0
		center text 320,240,"Tank Attack!!!!!"
		set text size 24
		center text 320,320,"Wave #"+str$(levelnum)
		set text size 18
		if levelnum=1 then leveltip$="TIP: shoot the red tanks"
		if levelnum=2 then leveltip$="the tanks are faster now! :)"
		if levelnum=3 then leveltip$="TIP: look out to the sides!"
		if levelnum=4 then leveltip$="TIP: avoid the airplanes' deadly fire..."
		if levelnum=5 then leveltip$="tanks and turrets and airplanes OH MY! XD"
		if levelnum=6 then leveltip$="Spinny Helicopter Blades Of DEEAATH!!!!"
		if levelnum=7 then leveltip$="a wide array of deadly awesomeness..."
		if levelnum=8 then leveltip$="TIP: avoid the red bombs!"
		if levelnum=9 then leveltip$="TIP: this might be impossible...:)"
		if levelnum=10 then leveltip$="Cake will be served!"
		center text 320,390,leveltip$
		set text size 24
		sptimer=sptimer+1
		if sptimer>100:
			if wave=1:
				for en=200 to 220:
					spawnenemy(en,rnd(5000)-2500,1200+((en-200)*200))
				next en
			endif
			if wave=2:
				for en=200 to 235:
					spawnenemy(en,rnd(5000)-2500,1200+((en-200)*200))
				next en
			endif
			if wave=3:
				for en=200 to 213:
					spawnenemy(en,rnd(5000)-2500,1200+((en-200)*200))
				next en
				for en=231 to 233:
					spawnenemy(en,0-(rnd(5000)-2500),rnd(1200)-600)
				next en
				for en=236 to 238:
					spawnenemy(en,rnd(5000)+2500,rnd(1200)-600)
				next en
			endif
			if wave=4:
				for en=200 to 225:
					spawnenemy2(en,rnd(1800)-900,rnd(3400)+1400)
				next en
			endif
			if wave=5:
				for en=200 to 220:
					spawnenemy(en,rnd(5000)-2500,1200+((en-200)*200))
				next en
				for en=221 to 228:
					spawnenemy2(en,rnd(1800)-900,rnd(3400)+1400)
				next en
			endif
			if wave=6:
				for en=200 to 220:
					spawnenemy3(en,rnd(5000)-2500,1200+((en-200)*200))
				next en
			endif
			if wave=7:
				for en=200 to 210:
					spawnenemy(en,rnd(5000)-2500,1200+((en-200)*200))
				next en
				for en=211 to 216:
					spawnenemy3(en,rnd(5000)-2500,1200+((en-200)*200))
				next en
				for en=221 to 228:
					spawnenemy2(en,rnd(1800)-900,rnd(3400)+1400)
				next en
			endif
			if wave=8:
				for en=200 to 205:
					spawnenemy4(en,rnd(5000)-2500,1200+((en-200)*200))
				next en
				spawnenemy(210,rnd(5000)-2500,1200+((en-200)*200))
			endif
			if wave=9:
				for en=200 to 210:
					spawnenemy(en,rnd(5000)-2500,1200+((en-200)*200))
				next en
					for en=211 to 220:
					spawnenemy3(en,rnd(5000)-2500,1200+((en-200)*200))
				next en
				for en=221 to 228:
					spawnenemy2(en,rnd(1800)-900,rnd(3400)+1400)
				next en
				for en=240 to 245:
					spawnenemy4(en,rnd(5000)-2500,1200+((en-200)*200))
				next en
			endif
			if wave=10:
				spawnenemy(210,0,1900)
			endif
			level_screen=0
		endif
	endif
	
	if level_screen=0:	
		if wave=10:
			obj=210
			point object obj,object position x(2),object position y(2),object position z(2)
			xrotate object obj,0
			zrotate object obj,0
			move object obj,3
		endif
		if wave=1:
			noneleft=1
			for obj=200 to 300:
				if object exist(obj)=1:
					point object obj,object position x(2),object position y(2),object position z(2)
					xrotate object obj,0
					zrotate object obj,0
					move object obj,2
					noneleft=0
				endif
			next obj
			if noneleft=1 then delete_enemies():wave=wave+1:level_screen=1:levelnum=wave:sptimer=0:goto skip2
		endif
		
		if wave=2:
			noneleft=1
			for obj=200 to 300:
				if object exist(obj)=1:
					point object obj,object position x(2),object position y(2),object position z(2)
					xrotate object obj,0
					zrotate object obj,0
					move object obj,3
					noneleft=0
				endif
			next obj
			if noneleft=1 then delete_enemies():wave=wave+1:level_screen=1:levelnum=wave:sptimer=0:stimer=31:goto skip2
		endif
		
		if wave=3:
			noneleft=1
			for obj=200 to 300:
				if object exist(obj)=1:
					point object obj,object position x(2),object position y(2),object position z(2)
					xrotate object obj,0
					zrotate object obj,0
					move object obj,3
					noneleft=0
				endif
			next obj
			if noneleft=1 then delete_enemies():wave=wave+1:level_screen=1:levelnum=wave:sptimer=0:stimer=31:goto skip2
		endif
		
		if wave=4:
			noneleft=1
			endlvl=1
			for obj=200 to 300:
				if object exist(obj)=1:
					`point object obj,object position x(2),object position y(2),object position z(2)
					xrotate object obj,0
					zrotate object obj,0
					yrotate object obj,180
					move object obj,4
					noneleft=0
					shootchance=rnd(40)
					if shootchance=1 and object in screen(obj)=1:
						ensx=object screen x(obj)
						ensy=object screen y(obj)	
						shootex=object screen x(2)
						shootey=object screen y(2)
						mx=object position x(obj)
						mz=object position z(obj)
						px=object position x(2)
						pz=object position z(2)
      					if px>mx-100:
         					if px<mx+100:
								ink rgb(100,100,50),0
								line ensx,ensy,shootex,shootey
								ink rgb(255,0,0),0
								circle object screen x(2),object screen y(2),30
								health=health-5
								damage=1
				        	endif
      					endif
					endif
					if object position z(obj)>-1200 then endlvl=0
				endif
			next obj
			if noneleft=1 or endlvl=1 then delete_enemies():wave=wave+1:level_screen=1:levelnum=wave:sptimer=0:stimer=31:goto skip2
		endif
		
		if wave=5:
			noneleft=1
			endlvl=1
			for obj=221 to 228:
				if object exist(obj)=1:
					`point object obj,object position x(2),object position y(2),object position z(2)
					xrotate object obj,0
					zrotate object obj,0
					yrotate object obj,180
					move object obj,4
					noneleft=0
					shootchance=rnd(40)
					if shootchance=1 and object in screen(obj)=1:
						ensx=object screen x(obj)
						ensy=object screen y(obj)	
						shootex=object screen x(2)
						shootey=object screen y(2)
						mx=object position x(obj)
						mz=object position z(obj)
						px=object position x(2)
						pz=object position z(2)
      					if px>mx-100:
         					if px<mx+100:
								ink rgb(100,100,50),0
								line ensx,ensy,shootex,shootey
								ink rgb(255,0,0),0
								circle object screen x(2),object screen y(2),30
								health=health-5
								damage=1
				        	endif
      					endif
					endif
					if object position z(obj)>-1200 then endlvl=0
				endif
			next obj

			for obj=200 to 220:
				noneleft=1
				if object exist(obj)=1:
					point object obj,object position x(2),object position y(2),object position z(2)
					xrotate object obj,0
					zrotate object obj,0
					move object obj,3
					noneleft=0
				endif
			next obj
			
			if noneleft=1 then delete_enemies():wave=wave+1:level_screen=1:levelnum=wave:sptimer=0:stimer=31:goto skip2
		endif
		
		if wave=6:
			noneleft=1
			for obj=200 to 300:
				if object exist(obj)=1:
					point object obj,object position x(2),object position y(2),object position z(2)
					xrotate object obj,0
					zrotate object obj,0
					move object obj,4
					noneleft=0
					handle_rotors(obj)
				endif
			next obj
			if noneleft=1 then delete_enemies():wave=wave+1:level_screen=1:levelnum=wave:sptimer=0:goto skip2
		endif
		
		if wave=7:
			noneleft=1
			endlvl=1
			for obj=221 to 228:
				if object exist(obj)=1:
					`point object obj,object position x(2),object position y(2),object position z(2)
					xrotate object obj,0
					zrotate object obj,0
					yrotate object obj,180
					move object obj,4
					noneleft=0
					shootchance=rnd(40)
					if shootchance=1 and object in screen(obj)=1:
						ensx=object screen x(obj)
						ensy=object screen y(obj)	
						shootex=object screen x(2)
						shootey=object screen y(2)
						mx=object position x(obj)
						mz=object position z(obj)
						px=object position x(2)
						pz=object position z(2)
      					if px>mx-100:
         					if px<mx+100:
								ink rgb(100,100,50),0
								line ensx,ensy,shootex,shootey
								ink rgb(255,0,0),0
								circle object screen x(2),object screen y(2),30
								health=health-5
								damage=1
				        	endif
      					endif
					endif
					if object position z(obj)>-1200 then endlvl=0
				endif
			next obj


			for obj=200 to 210:
				noneleft=1
				if object exist(obj)=1:
					point object obj,object position x(2),object position y(2),object position z(2)
					xrotate object obj,0
					zrotate object obj,0
					move object obj,3
					noneleft=0
				endif
			next obj
			for obj=211 to 216:
				if object exist(obj)=1:
					point object obj,object position x(2),object position y(2),object position z(2)
					xrotate object obj,0
					zrotate object obj,0
					move object obj,4
					handle_rotors(obj)
					noneleft=0
				endif
			next obj
			
			if noneleft=1 then delete_enemies():wave=wave+1:level_screen=1:levelnum=wave:sptimer=0:stimer=31:goto skip2
		endif
		
		if wave=8:
			for obj=200 to 206:
				if object exist(obj)=1:
					xrotate object obj,0
					zrotate object obj,0
					move object obj,10
					dropchance=rnd(80)
					if dropchance=50 then dropbomb(object position x(obj),object position z(obj))
				endif
			next obj
			noneleft=1
			if object exist(210)=1:
				point object 210,object position x(2),object position y(2),object position z(2)
				xrotate object 210,0
				zrotate object 210,0
				move object 210,2
				noneleft=0
			endif
			if noneleft=1 then delete_enemies():wave=wave+1:level_screen=1:levelnum=wave:sptimer=0:goto skip2
		endif
		
		if wave=9:
			for obj=240 to 245:
				if object exist(obj)=1:
					xrotate object obj,0
					zrotate object obj,0
					move object obj,10
					dropchance=rnd(80)
					if dropchance=50 then dropbomb(object position x(obj),object position z(obj))
				endif
			next obj
			
			for obj=221 to 228:
				if object exist(obj)=1:
					`point object obj,object position x(2),object position y(2),object position z(2)
					xrotate object obj,0
					zrotate object obj,0
					yrotate object obj,180
					move object obj,4
					noneleft=0
					shootchance=rnd(40)
					if shootchance=1 and object in screen(obj)=1:
						ensx=object screen x(obj)
						ensy=object screen y(obj)	
						shootex=object screen x(2)
						shootey=object screen y(2)
						mx=object position x(obj)
						mz=object position z(obj)
						px=object position x(2)
						pz=object position z(2)
      					if px>mx-100:
         					if px<mx+100:
								ink rgb(100,100,50),0
								line ensx,ensy,shootex,shootey
								ink rgb(255,0,0),0
								circle object screen x(2),object screen y(2),30
								health=health-5
								damage=1
				        	endif
      					endif
					endif
					if object position z(obj)>-1200 then endlvl=0
				endif
			next obj

			for obj=200 to 210:
				noneleft=1
				if object exist(obj)=1:
					point object obj,object position x(2),object position y(2),object position z(2)
					xrotate object obj,0
					zrotate object obj,0
					move object obj,3
					noneleft=0
				endif
			next obj
			for obj=211 to 220:
				if object exist(obj)=1:
					point object obj,object position x(2),object position y(2),object position z(2)
					xrotate object obj,0
					zrotate object obj,0
					move object obj,3
					handle_rotors(obj)
					noneleft=0
				endif
			next obj
			if noneleft=1 then delete_enemies():wave=wave+1:level_screen=1:levelnum=wave:sptimer=0:goto skip2
		endif
		
		skip2:
	endif
	
	for bomb=500 to 600:
		if object exist(bomb):
			mx=object position x(bomb)
			mz=object position z(bomb)
			px=object position x(2)
			pz=object position z(2)
			if pz>mz-60:
 				if pz<mz+60:
      				if px>mx-60:
         				if px<mx+60:
							health=-100:hurt_circle()
							damage=1
        				endif
      				endif
   				endif
			endif
		endif
	next bomb
	
	`if returnkey()=1 then position camera 0,camera position y()+10,0
	if upkey()=1 then move object 2,5
	if downkey()=1 then move object 2,-5
	if leftkey()=1 then turn object left 2,3
	if rightkey()=1 then turn object right 2,3
	
	for enemy=200 to 300:
		if object exist(enemy):
			mx=object position x(enemy)
			mz=object position z(enemy)
			px=object position x(2)
			pz=object position z(2)
			if pz>mz-200:
 				if pz<mz+200:
      				if px>mx-200:
         				if px<mx+200:
         					//skip_health waves
         					if wave=8 then goto skip3
							health=health-1:hurt_circle()
							damage=1
							skip3:
        				endif
      				endif
   				endif
			endif
		endif
	next enemy
	
	center text 320,10,"Health: "+str$(health)+"% --------- Ammo: "+str$(ammo)
	hide limb 2,2 
	
	if spacekey()=1 and ammo>0 and stimer>30:
		position object 3,object position x(2),object position y(2), object position z(2)
		rotate object 3,object angle x(2),object angle y(2),object angle z(2)
		repeat
			move object 3,5
			remstart
			for enemyhit2=200 to 300:
				if object exist(enemyhit2)=1:	
					ensx=object screen x(enemyhit2)
					ensy=object screen y(enemyhit2)	
					shootex=object screen x(3)
					shootey=object screen y(3)
					if OBJECT HIT(3,enemyhit2)>0:
						circle ensx,ensy,20
						delete object enemyhit2
						shootsx=object screen x(2)
						shootsy=object screen y(2)
						shootex2=object screen x(3)
						shootey2=object screen y(3)
						line shootsx,shootsy,shootex2,shootey2
						goto skip
					endif
				endif
			next enemyhit2
			remend
			for enemy=200 to 300:
				if object exist(enemy):
					mx=object position x(enemy)
					mz=object position z(enemy)
					px=object position x(3)
					pz=object position z(3)
					if pz>mz-50:
 						if pz<mz+50:
      						if px>mx-50:
         						if px<mx+50:
         							circle object screen x(enemy),object screen y(enemy),30
         							if wave=10 then gosub triumph:goto cake
									delete object enemy
									goto skip
        						endif
      						endif
   						endif
					endif
				endif
			next enemy
		until object in screen(3)=0
		
		skip:
		show limb 2,2 
		
		ammo=ammo-1
		stimer=0
	endif
	
	if damage=1
			set text size 14
			ink rgb(255,0,0),0
			show object 14
			yrotate object 14,wrapvalue(object angle y(14)+2)
			center text object screen x(14),object screen y(14)+20,"free health!"
			mx=object position x(14)
			mz=object position z(14)
			px=object position x(2)
			pz=object position z(2)
			if pz>mz-120:
 				if pz<mz+120:
      				if px>mx-120:
         				if px<mx+120:
							hide object 14
							health=health+50
							damage=0
							cls rgb(255,255,0)
        				endif
      				endif
   				endif
			endif
	endif
	
	set text font "Arial"
	set text size 24
	ink rgb(100,100,50),0
		
	stimer=stimer+1
	if stimer<30:
		`center text 320,440,"warming up turret..."
		null=0.0
	endif
	
	if ammo=0 then reload=1
	if reload=1:
		center text 320,50,"R To Reload!"
		if keystate(19)=1 then ammo=10:reload=0
	endif
	
	if health<0 then gosub dead
	if health>100 then health=100
	
	set cursor 0,0
	print "Wave: ",wave,"/10"
	
	if keystate(25)=1 then center text 320,440,"Game Paused -- click to continue...":show mouse:sync:wait mouse:hide mouse
	
	`if inkey$()="c" then gosub cake
	
	sync
loop



function spawnenemy(objnum,x,z):
	clone object objnum,2
	texture object objnum,11
	position object objnum,x,0,z
	ghost object off objnum
endfunction

function spawnenemy2(objnum,x,z):
	clone object objnum,2
	texture object objnum,15
	position object objnum,x,0,z
	ghost object off objnum
	scale limb objnum,1,200,100,200
	rotate limb objnum,1,0,90,0
endfunction

function spawnenemy3(objnum,x,z):
	clone object objnum,2
	position object objnum,x,0,z
	ghost object off objnum
	add limb objnum,3,4
	texture object objnum,18
	offset limb objnum,1,0,0,0
	rotate limb objnum,1,0,90,0
	texture limb objnum,1,19
	texture limb objnum,3,19
	scale limb objnum,1,100,100,200
	scale limb objnum,3,100,100,200
endfunction

function spawnenemy4(objnum,x,z):
	clone object objnum,2
	texture object objnum,28
	position object objnum,x,0,z
	ghost object off objnum
	scale object objnum,50,50,50
	point object objnum,object position x(2),object position y(2),object position z(2)
endfunction


function handle_rotors(objnum):
	rotate limb objnum,1,0,wrapvalue(limb angle y(objnum,1)+8),0
	rotate limb objnum,3,0,wrapvalue(limb angle y(objnum,3)+8),0
endfunction


function within_range(x1,z1,x2,y2,range):
	returner=0
	if x1>(x2-range/2):
		if y1>(y2-range/2):
			if x1>(x2+range/2):
				if y1>(y2+range/2):
					returner=1
				endif
			endif
		endif
	endif
endfunction returner


function clear_res():
for x=1 to 10000:
	if image exist(x)=1 then delete image x
	if object exist(x)=1 then delete object x
	if effect exist(x)=1 then delete effect x
	if sprite exist(x)=1 then delete sprite x
	if sound exist(x)=1 then delete sound x
	if music exist(x)=1 then delete music x
next x
endfunction

function delete_enemies():
	for obj=200 to 600:
		if object exist(obj)=1:
			delete object obj		
		endif
	next obj
endfunction


function hurt_circle():
ink rgb(255,0,0),0
circle object screen x(2),object screen y(2),30
endfunction

function dropbomb(x,z):
bombobj=freebomb()
make object sphere bombobj,20
position object bombobj,x,0,z
texture object bombobj,11
endfunction

function freebomb():
for clearobj=500 to 600:
if object exist(clearobj)=0 then exit
next clearobj
if clearobj>590 then delete object 599:clearobj=599
endfunction clearobj

triumph:
	make object plain 3333,160,160
	texture object 3333,333
	disable object zdepth 3333
	set object filter 3333,0
	set object transparency 3333,1
	position object 3333,object position x(210),object position y(210),object position z(210)
	point object 3333,camera position x(),camera position y(),camera position z()
return

dead:
	make object plain 333,160,160
	texture object 333,333
	disable object zdepth 333
	set object filter 333,0
	set object transparency 333,1
	
	hide object 2
	position object 333,object position x(2),object position y(2),object position z(2)
	point object 333,camera position x(),camera position y(),camera position z()
	do
		set text size 48
		ink rgb(255,0,0),0
		center text 320,240,"Game Over!!!"
		set text size 16
		center text 320,340,"(enter key to restart level, or escape to exit)"
		if returnkey()=1 then show object 2:delete object 333:restart=wave:goto start
		sync
	loop
	
return

cake:
do
set cursor 0,0
set text size 6
ink rgb(rnd(255),0,0),0
set text font "fixedsys"
print "                        #,"
print "                        ###"
print "                       ## ##"
print "                      ##  ##"
print "                       ####"
print "                         :"
ink rgb(255,255,255),0
print "                        #####"
print "                       ######"
print "                       ##  ##"
print "                       ##  ##"
print "                       ##  ##########"
print "                       ##  #############"
print "                  #######  ###############"
print "              #############################"
print "        .###################################"
print "       #####################################;"
print "       ##                                 ##."
print "       ##                                 ##"
print "       #####################################"
print "       ##                                 ##"
print "       ##                                 ##"
print "       ##                                 ###"
print "    #####                                 #####"
print "   ### ##################################### ###"
print "  ###  ##                                 ##  ###"
print "  ##   ## ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ##   ##"
print "   ##  #####################################  ##"
print "    ##                                       ##"
print "     #########################################"
set text font "Arial"
ink rgb(rnd(255),rnd(255),rnd(255)),0
set text size 24
center text 510,230,"CAKE HAS BEEN SERVED--"
center text 510,250,"You Win!!!!!!!!!!!!"
set text size 14
center text 510,365,"...escape key to exit..."
sync
loop
return