; SubCivil ReinforceAlert doctrine

var RunningDepth
var RunningSpeed
var Snorkeling
var TooBusyToSnorkel
var SnorkelSpd
var RTB

IF INIT THEN {
	RTB = RND 10
	IF OwnName $= "Sea Dagger ASV" THEN { Enable } ENDIF
	IF ( RTB >= 5 ) Then {
		SnorkelSpd = 0
	} ELSE {
		SnorkelSpd = 9
	} ENDIF
} ENDIF

IF NOT Snorkeling THEN {
	IF BatteryPercent < 50 THEN {
		IF BatteryPercent < 10 THEN {
			SetPriority 255
			RunningDepth = OwnAlt
			RunningSpeed = OwnSpd
			SetPersist 0
			SetSpd 5
			SetAlt PeriDepth
			SetSnorkel On
			Snorkeling = 1
		} ELSEIF NOT TooBusyToSnorkel THEN {
			RunningDepth = OwnAlt
			RunningSpeed = OwnSpd
			SetPersist 0
			SetSpd 5
			SetAlt PeriDepth
			SetSnorkel On
			Snorkeling = 1
		} ENDIF
	} ENDIF
} ELSE {
	SetAlt ( PeriDepth + 3 )
IF ( OwnAlt > PeriDepth ) THEN {
;	DebugOut "Diesel ON"
	SetPriority 250
	SetSpd SnorkelSpd
} ENDIF

IF TooBusyToSnorkel THEN {
	IF BatteryPercent > 50 THEN {
		SetSnorkel Off
		Snorkeling = 0
		SetAlt RunningDepth
		SetSpd RunningSpeed
	} ENDIF
} ELSEIF BatteryPercent > 90 THEN {
	SetSnorkel Off
	Snorkeling = 0
	SetAlt RunningDepth
	SetSpd RunningSpeed
	} ENDIF	
} ENDIF
