TITLE AirEvadeMissile

RULE Randomize Zig
IF INIT = 1 THEN
	RULE Left or Right
	IF EXPR {0,10} > 5 THEN
		VAR_SET 3 135
	ELSE
		VAR_SET 3 -135
	END
END

RULE Avoid Missiles
IF SILOS < 0 THEN
	RULE Two Pt Five Miles
	IF RNG < 2000 THEN
		PRIORITY 255
		MAX_SPD
		VAR_SET 1 BRG
		VAR_ADD 1 VAR3
		SETCRS VAR1
		RULE Chaff Flares Zig
		IF TIMER6 = -1 THEN
			RULE Alternate
			IF VAR2 = 1 THEN
				COUNTERMEASURE IRFlare
				VAR_SET 2 -1
			ELSE
				COUNTERMEASURE Chaff
				VAR_SET 2 1
			END
			SET_TIMER 6 {10,20}
;			DEBUG "CMs 2.5 nmi"
		END
;		DEBUG "Emergency Zig"
	ELSE
		RULE Eight Miles
		IF RNG < 8000 AND THEN
			PRIORITY 255
			STEER_AWAY
			MAX_SPD
			RULE Chaff Flares Zig
			IF TIMER6 = -1 THEN
				RULE Alternate
				IF VAR2 = 1 THEN
					COUNTERMEASURE IRFlare
					VAR_SET 2 -1
				ELSE
					COUNTERMEASURE Chaff
					VAR_SET 2 1
				END
				SET_TIMER 6 {10,20}
;				DEBUG "CMs 8 nmi"
			END
		ELSE
			RULE Ten Miles
			IF RNG < 10000 THEN
				STEER_AWAY
				MAX_SPD
;				DEBUG "Emergency Evade Missile"
			END
		END
	END
END