; DWX 1.40 Doctrine Losharik Doctrine
var MDpt
var OpAlt
var OpCrs
var OpSpd
var Def

If Init Then {
	Mdpt = -9840
	If ( Time < 2 ) AND NOT Def Then {
		OpAlt = OwnAlt
		OpCrs = OwnCrs
		OpSpd = OwnSpd
		Def = 1
	} ELSE {
		OpAlt = MDpt
		OpCrs = OwnCrs
		OpSpd = 10
If ( Mdpt < TerrainAlt ) Then {
	Mdpt = ( TerrainAlt + 30 )
	OpAlt = Mdpt
} Endif
	} Endif
} Endif

If NOT Def Then {
	SetPriority 300
	SetCrs OpCrs
	SetPriority 300
	SetAlt OpAlt
	SetPriority 300
	SetSpd OpSpd
} endif

; New Track
IF NEWTRACK THEN {
	IF ( TgtType $= "SUB" ) THEN {
		SETTACTIC "SubAvoidSub"
;		DebugOut "Sub Avoid Sub Tactik"
	} ENDIF

	IF ( TgtCLASS $= "SURF" ) THEN {
		SETTACTIC "SubAvoidSURF"
;		DebugOut "Sub Avoid Surf Tactik"
	} ENDIF

	IF ( TgtTYPE $= "TORP" ) THEN {
		SETTACTIC "SubAvoidWeap"
;		DebugOut "Sub Avoid Weapon Tactik"
		OpAlt = Mdpt
	} ENDIF

	IF ( TgtType $= "MINE" ) THEN {
		If ABS TgtAOB <= 10 Then {
			SETPRIORITY 252
			SETPERSIST 180
			SteerEvasive
		} ENDIF
	} ENDIF
} ENDIF
