; DWX v 1.36 RA Addon. PMR & PMT Mine Complex Doctrine

var Enabled
var overthebottom
var ordspd
var ordalt
var rng
var brg
var DestReached
var Stop
var TorpMaxDepth
var ImpactTime
var CrushDpth
var InitTime
var rejim
var Upload
var temp
var sns

IF Init THEN {
	TorpMaxDepth = ( MinAlt * 3.28 )
	REJIM = 1
	Enabled = 0
	DestReached = 0
	Stop = 0
	overthebottom = 25
	ordalt = ownalt
	ordspd = maxspd
	INITTIME = ( TIME + 3 )
	If Time < 5 then {
		Sns = 1
	} endif

} elseIF Upload THEN {
	Shutdown
} elseIF CrushDpth AND ( ImpactTime >= 15 ) THEN {
	Shutdown
} ELSEIF TIME > INITTIME THEN {
	IF NEWTRACK THEN {
		temp = 0
		If TgtSource $= "Active Intercept" Then {
			If ( TargetName $= "Mi-14BT MineWeeping" ) then { temp = 1
			} elseif ( TargetName $= "EH-101 MineWeeping DE" ) then { temp = 1
			} elseif ( TargetName $= "EH-101 MineWeeping IT" ) then { temp = 1
			} elseif ( TargetName $= "RH-53D MineWeeper IR" ) then { temp = 1
			} elseif ( TargetName $= "RH-53D MineWeeping US" ) then { temp = 1
			} elseif ( TargetName $= "S-80M-1 MineWeeping" ) then { temp = 1
			} elseif ( TargetName $= "MH-53E MineWeeping" ) then { temp = 1
			} endif
		} endif
		if temp then { SETTACTIC "PODRYW"
		} elseIF ( ( OwnName $= "PMR-2 Mine Complex" ) or ( OwnName $= "PMR-2 Moored Mine" ) ) AND ( TgtType $= "SUB" ) AND ( TgtID $= "HOSTILE" ) THEN {
			SETTACTIC "PMT_R_Attack"
		} ELSEIF ( ( OwnName $= "PMT-1 Mine Complex" ) or ( OwnName $= "PMT-1 Moored Mine" ) ) AND ( ( TgtType $= "SUB" ) OR ( TgtType $= "SHIP" ) ) AND ( TgtID $= "HOSTILE" ) THEN {
			SETTACTIC "PMT_R_Attack"
		} ELSEIF ( OwnName $= "MSHM Mine" ) THEN {
			SETTACTIC "PMT_R_Attack"
		} ENDIF
	} ENDIF

	if ( WayptX != 0 ) or ( WayptY != 0 ) then { 
		rng = xyrng ( WayptX - OwnX ) ( WayptY - OwnY )
		brg = xybrg ( WayptX - OwnX ) ( WayptY - OwnY )
		rng -= 75
	} endif
	if not Enabled Then {
	IF ( rng < 20 ) OR SNS THEN {
		OrdSpd = 0
		Enabled = 1
		Stop = 1
		Enable
	} ENDIF
	} endif
	IF STOP THEN {
			IF ORDALT < ( TerrainAlt + overthebottom ) THEN {
				REJIM = 1
				ordalt = ( TerrainAlt + overthebottom )
			} ENDIF
	} elseif rng > 100 then { ordspd = ( rng / 30 )
	} endif
	IF ordalt < TorpMaxDepth THEN { ordalt = ( TorpMaxDepth + 25 ) } Endif
	IF ordalt > -10 THEN { ordalt = -10 } ENDIF
	SETPRIORITY 253	SetSpd ordspd
	SETPRIORITY 253	SetCrs brg
} ENDIF
SETPRIORITY 253	SetAlt ordalt
IF OwnAlt <= TorpMaxDepth THEN {
	CrushDpth = 1
	ImpactTime += 1
} ENDIF