; Reinforce DWX Add-on CADS missile Doctrine ver 1.39

var PreenableCourse
var PreenablePitch
var RunToEnable
var Runout
var Homing
var initX
var initY
var run
var Grison
var MxSpd
var Preset
var Enabled
var Talt
var Tage

IF INIT THEN {
	MxSpd = MaxSpd
        Grison = 1
; If ( OwnName $= "SA-N-11 Grison SAM" ) OR ( OwnName $= "9M335 SAM" ) OR ( OwnName $= "9M340 SAM" ) Then { Grison = 1 } Endif
	If OwnName $= "SA-N-11 Grison SAM" Then { MxSpd = 1300 } Endif
	If OwnName $= "9M335 SAM" Then { MxSpd = 2530 } Endif
	If OwnName $= "9M340 SAM" Then { MxSpd = 1960 } Endif
	Homing = 0
	initX = OwnX
	initY = OwnY
	RunToEnable = 5
	Runout = -1
	PreenablePitch = pitch
	Preset = 1
} ELSE {
	If Preset == 1 Then {
		PreenableCourse = TgtBrg
		Talt = TgtAlt
		Tage = TgtAge
		Preset = 2
		RunToEnable = 1
	} Endif
} ELSEIF ( Runout != -1 ) AND ( run >= Runout ) AND NOT Homing THEN {
	Runout = -1
	SHUTDOWN
} ELSE {
	SetSpd MxSpd
run = xyrng ( OwnX - initX ) ( OwnY - initY )

IF NOT Homing THEN {
	SetPriority 255
	SetPersist 120
	SetCrs PreenableCourse
	SetAlt TAlt
} ENDIF

IF RunToEnable != -1 THEN {
	IF run >= RunToEnable THEN {
		ENABLE
		Enabled = 1
		RunToEnable = -1
	} ENDIF
} ENDIF
IF NEWTRACK And TAge > 0 THEN {
	If TgtClass $= "AIR" Then {
		enabled = 1
} ELSE {
	SetTactic "SBROS"
} endif
} endif


IF NEWTRACK And Enabled THEN {
	Homing += 1
If TgtID $= "FRIEND" Then {
	DROP
} endif

IF ( TgtType $= "CM" ) Then {
	drop
} ELSE {
	SetTactic "terminal_home"
} ENDIF } ENDIF

IF LOSTTRACK THEN {
	Homing -= 1
If ( Homing < 0 ) Then { Homing = 0 } Endif
} ENDIF
} ENDIF