; Depth Charges And Bombs Doctrine For Reinforce Alert Addon.
; Ver. 1.41 - shallow waters capability improved

var Go
var OrderedDepth
var p
var dse
var SearchDepth
var DetonateDepth
var enginit
var mission
var RunOnceDone
var Preset
var SD
IF Init THEN {
	enginit = 100000
	SetSnorkel ON
	SetPitch -87
if p == 0 then {
	p += 1
	PreEnable
		If TerrainAlt >= -164 Then {
			DebugValueOut TerrainAlt
			DSE = OwnAlt
		} endif
	} endif
	Go = 1
} ELSE {
IF NOT PRESET Then {
	Preset = 1
IF OrderedDepth != 0 THEN {
} ELSEIF ( DetonateDepth < 0 ) THEN {
	OrderedDepth = ( DetonateDepth * 3.28 )
	SD = 1
} ELSEIF ( SearchDepth < 0 ) THEN {
	OrderedDepth = ( SearchDepth * 3.28 )
} ENDIF
If OrderedDepth == -10000 Then { OrderedDepth = -2000 } endif
} ENDIF
IF p == 1 THEN {
	IF ( OwnAlt <= dse ) then {
		If ( OrderedDepth >= -100 ) And SD Then {
			OrderedDepth = 5
		} endif
;		DebugOut "PLAB ENABLE"
;		DebugValueOut OwnAlt
		p = 2
		Enable
	} ENDIF
} ENDIF
IF NOT RunOnceDone And ( OwnAlt <= 10 ) THEN {
	enginit = ( Time + 5 )
	RunOnceDone = 1
} endif
IF ( Time > enginit ) AND ( mission != 1 ) THEN {
	SetPriority 255
	SetSnorkel OFF
	mission = 1
} ENDIF
IF NEWTRACK THEN {
	P = 7
} endif
	IF P > 1 then {
		IF Go THEN {
		Go = 0
If OrderedDepth <= TerrainAlt Then {
	OrderedDepth = ( -2000 )
		If TerrainAlt < ( ABS 2000 ) Then {
			OrderedDepth = ( TerrainAlt + 50 )
		} Endif
	} Endif
} Endif
	IF ( OwnAlt <= OrderedDepth ) OR ( P == 7 ) THEN {
;		DebugOut "PLAB Detonate At Depth an Target:"
;		DebugOut OwnName
;		DebugValueOut OwnAlt
;		DebugOut TargetName
		Detonate
	} ELSE {
		IF ( OrderedDepth < ( TerrainAlt + 10 ) ) THEN {
			OrderedDepth = ( TerrainAlt + 30 )
		} ELSEIF ( OrderedDepth < -2000 ) THEN {
			OrderedDepth = -2000
	} ELSE {
		SETPRIORITY 252
;		SetSpd 20
		SetPitch -87
		SetAlt OrderedDepth
			} ENDIF
		} ENDIF
	} ENDIF
} ENDIF
IF ( OwnAlt < ( TerrainAlt + 20 ) ) THEN { Detonate } ENDIF
