; Reinforce Alert Add-on Doctrine 1.41
; BomberEvade

var OverSea
var Alt
var Chaff
var Flare
var JamFC
var JamRad

	IF ( DBCMFlags & 1 ) == 1 THEN { Chaff = 1 } ENDIF
	IF ( DBCMFlags & 2 ) == 2 THEN { Flare = 1 } ENDIF
	IF ( DBCMFlags & 4 ) == 4 THEN { JamRad = 1 } ENDIF
	IF ( DBCMFlags & 16 ) == 16 THEN { JamFC = 1 } ENDIF

; Set Tactic
IF NEWTRACK THEN {
	; Missile?
	IF ( TgtClass $= "MISSILE" ) AND ( ( TgtMissileClass "AAM" ) OR ( TgtMissileClass "SAM" ) ) THEN {
		SETTACTIC "AirEvadeMissile"
	} ENDIF
	; Enemy Plane?
	IF ( TgtClass $= "AIR" ) AND ( ( TgtID $= "HOSTILE" ) OR ( ( TgtID $= "UAE" ) OR ( TgtID $= "UPD" ) ) ) THEN {
		SETTACTIC "AirEvadeAir"
	} ENDIF	
	IF ( ( TgtClass $= "LAND" ) AND ( TgtID $= "HOSTILE" ) ) THEN {
		SETTACTIC "AirAtkLand"
	} ENDIF	
	IF ( TgtClass $= "SURF" ) AND ( ( TgtID $= "HOSTILE" ) OR ( ( TgtID $= "UAE" ) OR ( TgtID $= "UPD" ) ) ) THEN {
		SETTACTIC "AirAtkSub"
	} ENDIF	

	; Enemy Sub?
	IF TgtClass $= "SUB" THEN {
		; turn on any dormant active sonobuoys
;		Enable
		IF ( TgtSource $= "MAD" ) OR ( TgtSource $= "Visual" ) THEN {
			SETTACTIC "AirAtkSub"
		} ENDIF
	} ENDIF
} ENDIF

IF ( TERRAINALT < 0 ) THEN { ALT = OWNALT OverSea = 1
} ELSE { ALT = ( OWNALT - TERRAINALT ) OverSea = 0 } ENDIF

IF ( ( ( Alt < 2400 ) AND ( PITCH < -0.2 ) ) OR ( ALT < 150 ) ) THEN {
IF ALT < 800 THEN {
		SetPriority 254
		SetPITCH ( 25 ) } ELSE {
;		DEBUGOUT "PLANE Stall, Pull Up"
		if OverSea then {
		SetPriority 254
		Setalt ( alt + 2000 ) } else {
		SetPriority 254
		Setalt ( alt + 2000 + TERRAINALT ) } endif
} ENDIF
} ENDIF
if pitch < -17 then { SetPriority 252 SetPITCH ( pitch / 2 ) } endif