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 + 5 )
} ENDIF
IF ( TIMER != -1 ) AND ( TIME > TIMER ) THEN {
	SHUTDOWN
} ELSE {
	If NewTrack AND ( TgtType $= "Sub" ) AND FT Then {
		FT = 0
		TIMER = -1
		TAlt = tgtalt
		Trng = tgtrng
		SetTactic "PMR_WHA"
		td = ( 3 + time )
		td += ( ( sqrt ( ( talt * talt / 10.7584 ) + ( trng * trng ) ) ) / 77 )
	} 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
if td != -1 then {
	if td < time then { detonate } endif
} endif
} ENdif