Sorry your browser is not supported!

REM fire misile
If spacekey()=1 and explode=0
if bulletlife=0 
if shot=0
turn camera left 10
move camera 50
position object 10, camera position x(), camera position y(), camera position z()
move camera -50
turn camera right 10
shot=1
endif
	
if shot=1
turn camera right 10
move camera 50
position object 10, camera position x(), camera position y(), camera position z()
move camera -50
turn camera left 10
shot=0
endif
	
set object to camera orientation 10
yrotate object 10, wrapvalue(object angle y(10)+180)
bulletlife= 100
show object 10
endif
Endif

REM lock on if tank on screen
if object visible(15)=1
   if object in screen(15)=1
      locked = 1
   else
      locked=0
   endif
else
   locked = 0
endif

REM if locked on reticule follows tank
if locked = 1
   a=a-1
   if a<0 then a=0
   sprite 2, object screen x(15), object screen y(15), 5
   if a = 0
	ink rgb(500, 0, 0), rgb(0, 0, 0)
	set cursor sprite x(2), sprite y(2) 
	print "locked"
	lockedon=1
   else
	lockedon=0
	set cursor sprite x(2), sprite y(2) 
	ink rgb(0, 0, 0), rgb(0, 0, 0)
	print "...."
   endif
else
   rand=rnd(1)
   if rand=1
	sprite 2, 312+rnd(3), 231+rnd(3), 5
	a=50
   else
	sprite 2, 312-rnd(3), 231-rnd(3), 5
	a=50
   endif
endif

if lockedon = 1 
   point object 10, object position x(15), object position y(15), object position z(15)	
endif

Dim MissileLock(100)
global MaxTargets

rem that will support 100 targets locked at once

rem also, i'm assuming all targets start sequentialy at 15

rem set missilelock flags for all targets
for target=15 to 15+MaxTargets
  if object in screen(target)
    MissileLock(target)=50
    sprite 2, 312+rnd(7)-4, 231+rnd(7)-4, 5

  else
    MissileLock(target)=0
  endif
next target

rem update missile lock tracking icon
for target =15 to 15+MaxTargets
  if MissileLock(Target)
    MissileLock(Target)=MissileLock(Target)-1
    sprite 2, object screen x(Target), object screen y(Target), 5
    If MissileLock(Target)
      rem not locked on
      set cursor sprite x(2), sprite y(2) 
      ink rgb(0, 0, 0), rgb(0, 0, 0)
      print "...."

    else
      MissileLock(Target)=1
      rem to prevent Lock from becoming 0 or turning off
      ink rgb(500, 0, 0), rgb(0, 0, 0)
      set cursor sprite x(2), sprite y(2) 
      print "locked"

    endif
  endif
next target

rem shoot missile code
rem fired missiles= target+100
for Target=15 to MaxTargets+15
  if MissileLock(Target) = 1 
    point object Target+100, object position x(Target), object position y(Target), object position z(Target)	
  endif

next Target