; -RA- v 1.1 AirEvadeAir Doctrine

var ZigInterval
var ZigTimer
var WpnIdx1
var DoctI

WpnIdx1 = DBIdxFromRecNum 1410
DoctI = 1
SetEntVar "NUM" DOCTI
IF ( TgtClass $= "AIR" ) AND ( ( AttackRNG <= 6000 ) AND ( AttackRNG > 0 ) ) Then {
		SetPriority 250
		STEERTO
If ( TgtRng <= 3000 ) Then {
		SetPriority 255
		AttackIdx WpnIdx1
;		DebugOut "Attack_Cannons"
} ENDIF

} elseIF ( TgtClass $= "AIR" ) AND ( AttackRNG > 6000 ) Then {
IF ( TgtSilos < 0 ) AND ( TIME > ZigTimer ) THEN {
	ZigInterval = ( 10 + RND 20 )
	IF TgtRng < 4000 THEN {
		SETPERSIST ZigInterval
		SETPRIORITY 255
		SetSpd MAXSPD
		SETPRIORITY 255
		SETCRS ( TgtBrg + 90 + RND 180 )
		ZigTimer = ( TIME + ZigInterval )
	} elseIF TgtRng < 8000 THEN {
		SETPERSIST ZigInterval
		SETPRIORITY 255
		STEERAWAY
		SETPRIORITY 255
		SetSpd MAXSPD
		ZigTimer = ( TIME + ZigInterval )
		} ENDIF
	} ENDIF
} ENDIF
IF LostTrack Then {
	DoctI = 0
	SetEntVar "NUM" DOCTI
} Endif