; Reinforce Alert Add-on ver. 1.41
; Jamming FireControl Radar Planes - ASM & SSM Antimissile Doctrine.

var chaffIdx
var flareIdx
var CMTimer
var CMAlternate
var CM_Choice
var Jamming
var JamTime
var ECM
var VAL_1
var VAL_2

IF Init THEN {
	CM_Choice = RND 10
IF CM_Choice <= 5 THEN {
	CMAlternate = 1
} ELSE {
	CMAlternate = 0
} ENDIF
	CMTimer = -1
	chaffIdx = DBIdxFromRecNum 248
	flareIdx = DBIdxFromRecNum 247
IF GetEntVar "JamFC" == 1 Then { ECM = 1 } Endif
IF GetEntVar "Chaff" == 0 Then {
	ChaffIdx = FlareIdx
} Endif
IF GetEntVar "Flare" == 0 Then {
	FlareIdx = ChaffIdx
} Endif
IF ( TargetName $= "SA-N-5 Grail SAM" ) Or ( TargetName $= "SA-N-8 Gremlin SAM" ) Or ( TargetName $= "FIM-92 SAM" ) THEN {
	CMAlternate = 1
	} ENDIF
} ENDIF
IF TgtSilos < 0 THEN {
	IF TgtRng < 100000 THEN {
		IF TIME > CMTimer THEN {
			IF CMAlternate THEN {
				CMAlternate = 0
;				SetPriority 255	CounterMeasureIdx flareIdx	
			} ELSE {
;				SetPriority 255 CounterMeasureIdx chaffIdx	
				CMAlternate = 1
			} ENDIF
		IF NOT CMAlternate THEN {
			CMAlternate = 0
 		} ELSE {
			CMAlternate = 1
		} ENDIF
			CMTimer = ( TIME + 1 )
		} ENDIF
	} ENDIF
} ENDIF
IF ECM Then {
	IF ( TgtSource $= "ESM" ) THEN {
		VAL_1 = TgtSrcLevel "FCRadar"
		VAL_2 = TgtSrcLevel "Radar"
		SensorEnable "FCRadarJam" 1
		SetSrcLevel "FCRadar" 0
		JamTime = ( TIME + 20 + RND 10 )
		TimedDetonateTgt JamTime
		ECM = 0
		Jamming = 1
	} endif
} ENDIF
IF Jamming Then {
	IF LOSTTRACK THEN {
		SetSrcLevel "FCRadar" VAL_1
		SensorEnable "FCRadarJam" 0
	} ENDIF
} ENDIF
