; Reinforce Alert DWX v 1.41 Doctrine
; 1000 lb User Mine P-3 Orion

var OrderedDepth
var RunOnceDone
var MineMaxDepth
var MW
var enginit
var mission

IF Init THEN {
	OrderedDepth = OwnAlt
	RunOnceDone = 0
	MineMaxDepth = ( MinAlt * 3.28 )
;	DebugValueOut MineMaxDepth
	enginit = 100000
	SetSnorkel ON
} ELSE {

	IF NOT RunOnceDone And ( OwnAlt <= 10 ) THEN {
		enginit = ( Time + 5 )
;		DebugValueOut OrderedDepth
		IF OrderedDepth < ( TerrainAlt + 25 ) THEN {
			OrderedDepth = ( TerrainAlt + 25 )
		} ELSE {
			OrderedDepth = OrderedDepth
		} ENDIF
		If OrderedDepth == -10000 Then { OrderedDepth = MineMaxDepth } endif
;		DebugValueOut OrderedDepth
		RunOnceDone = 1
	} ELSE {
		; Blow Up
		IF NEWTRACK THEN {
	If ( TgtSource $= "Active Intercept" ) Then {
		If ( TargetName $= "Mi-14BT MineWeeping" ) OR
	( TargetName $= "EH-101 MineWeeping DE" ) OR
( TargetName $= "EH-101 MineWeeping IT" ) OR
	( TargetName $= "RH-53D MineWeeper IR" ) OR
( TargetName $= "RH-53D MineWeeping US" ) OR
	( TargetName $= "S-80M-1 MineWeeping" ) OR
( TargetName $= "MH-53E MineWeeping" ) Then {
		mw = 1
		SETTACTIC "SBROS"
	} ENDIF
} ELSE {
	SETPRIORITY 254 DETONATE
	} ENDIF
} ENDIF

If Mw Then {
	If ( ( TgtRng <= 100 ) AND ( TgtRng > 1 ) ) AND ( TgtSilos > 0 ) Then {
		detonate
	} ENDIF
} ENDIF
	} ELSEIF ( OrderedDepth < MineMaxDepth ) THEN {
		OrderedDepth = MineMaxDepth
	} ELSE {
		SetAlt OrderedDepth
	} ENDIF
} ENDIF

IF ( Time > enginit ) AND ( mission != 1 ) THEN {
	SetPriority 255
	SetSnorkel OFF
	mission = 1
} ENDIF

IF RunOnceDone And ( OwnAlt <= ( OrderedDepth + 6 ) ) Then {
	Detonate
} endif
