; LAND Based SSC/SSM Missile Site Doctrine for -RA- Add-on

var PreenableCourse
var RunToEnable
var Runout
var initX
var initY
var run
var SSM
var SSC
var UWD
VAR TEMP
var AltCruise
VAR ZALT
VAR NUM_TH
VAR ZZZConf
var TX
VAR TY
var talt
var temp
var Delta
var Terminal
var DecoyLogic
var Spoofed
var FinalPhazeN
var FinalPhazeV

IF INIT THEN {
NUM_TH = 0
ZZZConf = 0
initX = OwnX
initY = OwnY
RunToEnable = 3000
Runout = -1
FinalPhazeN = 3000
FinalPhazeV = 7000
ZALT = ( MAXALT * 3.28 )
Spoofed = RND 100
IF ( OwnName $= "P-15 Termit SSM" ) THEN { SSM = true AltCruise = 656 Terminal = "TH_ST" DecoyLogic = 30 } ENDIF
IF ( OwnName $= "SS-C-1B Sepal SSM" ) THEN { SSC = true AltCruise = 22960 Terminal = "TH_ST_L" DecoyLogic = 40 } ENDIF
UWD = 0
} ELSEIF ( Runout != -1 ) AND ( run >= Runout ) AND ( NUM_TH == 0 ) THEN {
Runout = -1
SHUTDOWN
} ELSE {
SETPRIORITY 247 SetSpd MaxSpd
IF OwnAlt > 0 THEN { UWD = 1 } ELSEIF ( OWnAlt < 0 ) AND UWD THEN { Shutdown } ENDIF
	run = xyrng ( OwnX - initX ) ( OwnY - initY )
IF NUM_TH == 0 THEN {
SetCrs PreenableCourse
IF SSM == 1 THEN {
SETPRIORITY 247 SetAlt 656
} ELSE {
SETPRIORITY 247 SetAlt AltCruise
} ENDIF
} else {
temp = XYRng ( tx - ownx ) ( ty - owny )
SETPRIORITY 250 steerxy ( tx - ownx ) ( ty - owny )
DELTA = ( TALT - OWNALT + 30 )
temp = XYBRG ABS DELTA ( temp * 3.28 )
if DELTA < 0 then { temp = ( -1 * temp ) } endif
SETPRIORITY 253	SetSpd MaxSpd
SETPRIORITY 253 SETPITCH TEMP
} ENDIF
IF RunToEnable != -1 THEN {
IF run >= RunToEnable THEN {
ENABLE
RunToEnable = -1
} ENDIF
} ENDIF
IF NEWTRACK then {
	SetSpd MaxSpd
	IF TgtType $= "CM" THEN {
		IF Spoofed > DecoyLogic THEN {
		SetTactic "TH_ST"
		} ELSEIF Spoofed <= DecoyLogic THEN {
			Drop
	} endif
} ELSEIF Tgtconf > ZZZConf THEN {
	SetTactic Terminal
} ELSE {
	SetTactic "SBROS"
	} ENDIF
} ENDIF
} ENDIF