; Reinforce Alert Add-on Sirena UnderWater Vechicle Combat Doctrine

var MoveDepth
var Recogn
var RngUnswitch
var TorpMaxDepth
var Explode
var ImpactTime
var CrushDpth
var statik
VAR TEMP
VAR DELTA
var ten
var OrdSpd

IF init THEN {
	ten = ( time + 15 )

	IF TargetName $= "Naval Base" THEN { RngUnswitch = 525 MoveDepth = -33 statik = 1
	} ELSEIF TargetName $= "Ship Yard" THEN { RngUnswitch = 250 MoveDepth = -33 statik = 1
	} ELSEIF TargetName $= "Oil-Rig" THEN { RngUnswitch = 75 MoveDepth = -33 statik = 1
	} ELSEIF TargetName $= "Oil-Rig Armed" THEN { RngUnswitch = 75 MoveDepth = -33 statik = 1
	} elseIF TgtType $= "ROCK" THEN { RngUnswitch = 200 MoveDepth = -66 statik = 1
	} ELSEIF TgtType $= "SUB" THEN { RngUnswitch = 150 MoveDepth = -66 statik = 0
	} elseIF TgtType $= "SHIP" THEN { RngUnswitch = 200 MoveDepth = -33 statik = 0
	} ELSE { RngUnswitch = 200 MoveDepth = -33 statik = 0 }
	ENDIF
	MoveDepth = -7
	TorpMaxDepth = ( MinAlt * 3.28 )
	Explode = RND 10
	ImpactTime = 0
	CrushDpth = 0

} elseIF CrushDpth AND ( ImpactTime > 15 ) THEN {
	IF Explode > 5 THEN { Detonate
} ELSE { Shutdown } ENDIF
} ELSE {
	if ( ten != -1 ) and ( time > ten ) then { ten = -1 enable } endif
	if statik then {
		IF ( TerrainAlt > -50 ) OR ( TgtRng < RngUnswitch ) THEN {
		TimedDetonateTgt ( ( 3.6 * TgtRng / 8 ) + Time + 60 )
		Shutdown
		} ENDIF
	} elseIF ( TgtRng < RngUnswitch ) and ( tgtspd < 3 ) THEN {
	TimedDetonateTgt ( ( 3.6 * tgtrng / 8 ) + Time + 60 )
	Shutdown } endif

;	SETPRIORITY 255
	SetAlt MoveDepth
	OrdSpd = ( TgtRng / 100 )
	if OrdSpd > 4 THEN {
	OrdSpd = 4
	} ENDIF
	if OrdSpd < 1 THEN {
	OrdSpd = 1
} ENDIF
	SetSpd OrdSpd
	Intercept
	
	IF OwnAlt <= TorpMaxDepth THEN { CrushDpth = 1 ImpactTime += 1 }
	ENDIF
} ENDIF