; AI SubRoc - Reinforce Alert v 1.41
var PreEnableCourse
var dr
var tr
var Snap
var TgRng1
if init then {
	tr = -1
} endif

IF NEWTRACK THEN {
	IF ( TgtSource $= "Visual" ) AND ( TgtID $= "UPD" ) THEN {
;		DebugOut "Snap vs Torp"
		Snap = 0
	 } ENDIF

	IF ( ( TgtSource $= "UNKNOWN" ) AND ( TgtAge > 0 ) ) THEN {
;		DebugOut "User Link 11 Data"
		Snap = 1
	 } ENDIF

	IF ( TgtSource $= "Passive Sonar" ) OR ( TgtSource $= "Active Sonar" ) THEN {
;		DebugOut "Own Contact AI Sub"
		Snap = 1
	 } ENDIF
		TgRng1 = TgtRng
	SetTactic "SubrocAttack_AI"
} ENDIF
if tr == -1 then {
	if dr and ownalt < 0 then {
		tr = ( time + 7 )
	} elseif ownalt > 0 then {
		dr = 1
	} endif
} elseif time > tr then {
	Shutdown
} endif
If Losttrack Then {
	Shutdown
} endif
