; Reinforce DWX Add-on SAM missile Doctrine ver 1.39
; Fixed problem when flare is useless against portable SAM -
; When even at detection Flare the SAM Missile is not separated from the helicopter or plane and destroys air unit.

var PreenableCourse
var PreenablePitch
var RunToEnable
var Runout
var Homing
var initX
var initY
var run
var Grison
var MxSpd

IF INIT THEN {
MxSpd = MaxSpd
If ( OwnName $= "9M335 SAM" ) Then { Grison = 1 } Endif
If OwnName $= "9M335 SAM" Then { MxSpd = 2530 } Endif
Homing = 0
initX = OwnX
initY = OwnY
RunToEnable = 5
Runout = -1
PreenablePitch = pitch
} 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 {
SetCrs PreenableCourse
SetPitch PreenablePitch
} ENDIF
IF RunToEnable != -1 THEN {
IF run >= RunToEnable THEN {
ENABLE
RunToEnable = -1
} ENDIF
} ENDIF
IF NEWTRACK THEN {
	Homing += 1
If Grison Then {
If TgtID $= "FRIEND" Then {
	DROP
	 } endif
 } endif

IF ( TgtType $= "CM" ) And NOT Grison Then {
	SetTactic "SAM_Home_CM"
} ELSE {
	SetTactic "terminal_home"
} ENDIF } ENDIF

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