; -RA- Addon v. 1.38 AntiRadar Missile Doctrine.

var PreenableCourse
var RunToEnable
var Runout
var initX
var initY
var run
var Drowned
var FirstTrek
VAR AltCruise
var tx
var ty
var talt
var temp
var Delta
Var AttackPhaze

IF INIT THEN {
	AttackPhaze = 0
	FirstTrek = 1
	initX = OwnX
	initY = OwnY
	RunToEnable = 100
	Runout = -1
	Drowned = 0
	AltCruise = OWNALT
} elseIF ( Runout != -1 ) AND ( run >= Runout ) THEN { SHUTDOWN
} elseIF ( TERRAINALT >= 0 ) AND ( TERRAINALT >= OWNALT ) THEN { detonate
} elseif OwnAlt < 0 THEN { shutdown
} ELSE {
SETPRIORITY 252 SetSpd MaxSpd
run = xyrng ( OwnX - initX ) ( OwnY - initY )
IF FirstTrek THEN {
	SETPRIORITY 247	SetAlt AltCruise
	SETPRIORITY 247	SetCrs PreenableCourse
} else {
	SETPRIORITY 247	Steerxy ( tx - ownx ) ( ty - owny )
	temp = XYRng ( tx - ownx ) ( ty - owny )
	if talt < -1 then { DELTA = ( 70 - OWNALT ) } else { DELTA = ( TALT + 30 - OWNALT ) } endif
	temp = XYBRG ABS DELTA temp
	If DELTA < 0 then { temp = ( -1 * temp ) } endif
	If Not AttackPhaze Then {
If OwnAlt >= 250 Then {
		SETPRIORITY 252
		SETPITCH TEMP
} ELSE {
	SetPriority 255
	SetAlt 30
} Endif
	} ENDIF
} ENDIF
IF NEWTRACK and not ( TgtID $= "FRIEND" ) And NOT ( AttackPhaze ) THEN {
	IF FirstTrek THEN {
;		DebugOut "Sensor Enable"
		ENABLE
		FirstTrek = 0
		SetTactic "SBROS"
		tx = tgtx
		ty = tgty
		talt = tgtalt
} ELSEif ( TgtClass $= "LAND" ) then {
	If ABS TgtAOB <= 10 Then {
		SetTactic "M_A_R_land"
	} else {
		SetTactic "SBROS"
	} endif
} ELSEif ( TgtClass $= "SURF" ) Then {
	If ABS TgtAOB <= 10 Then {
		SetTactic "M_A_R"
	} else {
		SetTactic "SBROS"
	} ENDIF

	} ENDIF
} endif
} ENDIF