; -RA- DWX 1.41 M-15 Antitorpedo Doctrine
; "Paket-E/NK" Complex
 
Var FT
var Preset
var Talt
var TRng
var otrng
var frng
var theta
var Angle
VAR GO
VAR TIMER
var TD

IF NOT INIT THEN {
IF NOT PRESET THEN {
	Preset = 1
	enable
	td = -1
	FT = 1
	frng = 1
	TIMER = ( TIME + 90 )
	SetSpd 30
} ENDIF
IF ( TIMER != -1 ) AND ( TIME > TIMER ) THEN {
	SHUTDOWN
} ELSE {
	If NewTrack AND ( TgtType $= "Torp" ) AND FT Then {
		IF TgtID $= "HOSTILE" THEN {
			FT = 0
;			TIMER = -1
			TAlt = tgtalt
			Trng = tgtrng
			SetTactic "Torp_MT15B"
			td = ( 3 + time )
			td += ( ( sqrt ( ( talt * talt / 10.7584 ) + ( trng * trng ) ) ) / 77 )
		} Endif
	} Endif
       	If GO Then {
		if frng then {
			frng = 0
			otrng = trng
		} endif
		THETA = ( TAlt - OwnAlt )
		IF TRNG > 200 THEN {
			Angle = XYBRG ABS THETA ( ( TRNG + ( trng - otrng ) ) * 2 )
		} ELSE {
			Angle = XYBRG ABS THETA ( trng * 3.28 )
		} ENDIF
		if THETA < 0 then { Angle = ( -1 * Angle ) } endif
		otrng = trng
		IF 89.9 < ANGLE THEN { ANGLE = 89.9
		} ELSEIF -89.9 > ANGLE THEN { ANGLE = -89.9 } ENDIF
		SetPriority 255 SetPitch Angle
	} ENdif
} ENdif
} ENdif