; Reinforce Alert Doctrine Captor Mine PMK-2
; for ver. 1.41

var OrderedDepth
var RunOnceDone
var TorpFired
var mw
var PMK
var RunOnce
var TD
var TimeArrival
var InitTime
var enginit
var mission
var DST
var Arrival
var Ready

IF Init THEN {
	InitTime = TIME
	PMK = 1
	PREENABLE
	RunOnceDone = 0
	SetAlt - 10
	enginit = 100000
	SetSnorkel ON
	DST = 100000
} ELSE {
	IF NOT RunOnceDone And ( OwnAlt <= 10 ) THEN {
		enginit = ( Time + 5 )
		IF OrderedDepth == -30 THEN {
			OrderedDepth = -88
		} ELSEIF OrderedDepth == -328 THEN {
			OrderedDepth = -400 
		} ELSEIF OrderedDepth == -984 THEN {
			OrderedDepth = -1000
		} ELSE {
			OrderedDepth = -1476
		} ENDIF
		RunOnceDone = 1
	IF ( ABS OrderedDepth ) > ABS ( TerrainAlt ) THEN {
		OrderedDepth = ( TerrainAlt + 25 )
	if OrderedDepth > 0 then { OrderedDepth = -10 } endif
} endif

If ( ABS TerrainAlt >= 3281 ) Then {
;	DebugOut "******** Too Deep, CAPTOR must removed ********"
	OrderedDepth = -1476
	TD = 1
} endif
; DebugOut "O R D E R E D    D E P T H:"
; DebugValueOut OrderedDepth
} ELSE {
	IF ( Time > enginit ) AND ( mission != 1 ) THEN {
;	DebugOut "Splash OFF"
		SetPriority 255
		SetSnorkel OFF
		mission = 1
	} ENDIF
IF OwnAlt <= ( OrderedDepth + 6 ) AND NOT RunOnce THEN {
;	DebugOut "Captor Anchoring"
;	TimeArrival = ( Time - InitTime )
;	DebugOut "Arrival Time (seconds):"
;	DebugValueOut TimeArrival
	Arrival = 1
If Arrival And Not Ready Then {
	DST = ( Time + 60 )
If OrderedDepth < -900 Then {
	DST = ( Time + 5 )
} endif
	Ready = 1
} endif
If Not TD AND ( Time > DST ) Then {
	ENABLE
;	DebugOut "Sensor Enabled at Depth:"
;	DebugOut OwnName
;	DebugValueOut OwnAlt
	RunOnce = 1
	SetPersist 0
	SetSpd 0
} ELSE {
;	DebugOut "Too Deep, mine has been removed"
;	ShutDown
	} ENDIF
} ENDIF

If Not RunOnce Then {
	SETPRIORITY 255
	SetAlt OrderedDepth
} Endif

If OwnAlt < TerrainAlt Then {
;	DebugOut "Bottom hit, has been removed."
	Shutdown
} endif

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
	} ELSEIF ( NEWTRACK ) THEN {
;		DebugOut "---Skip---"
	IF ( NEWTRACK AND ( TgtType $= "SUB" ) AND ( ABS TgtAlt > 3 ) ) THEN {
;		DebugOut "P M K-2  Attack:"
;		DebugOut TargetName
		SetTactic "CAPTORattack"
	} ENDIF
	} ENDIF
} ENDIF

If Mw Then {
	If ( ( TgtRng <= 100 ) AND ( TgtRng > 1 ) ) AND ( TgtSilos > 0 ) Then {
		detonate
	} ENDIF
} ENDIF
		IF TorpFired THEN {
			SETPRIORITY 255
			Shutdown
      		} ENDIF
	} ENDIF
} ENDIF
