; $Header: SubAvoidSurf.txt   Mon Jan 19 11:53:11 EST 2004   mike $
; $Revision: 2 $
; $Copyrt1: Copyright (c) 2003, Sonalysts, Inc.  All rights reserved. $
;
; SubAvoidSurf

var Unknown
var PreventingSnorkel
var PreventingComms
var LegTimer

func AvoidTgt {
	; steer abeam
	IF TgtRng < 10000 AND ( Time > LegTimer ) THEN {

		LegTimer = ( 480 + Rnd 120 )
		SetPersist LegTimer
		SteerAbeam

		; setmin avoid speed
		IF tgtrng < 2000 THEN {
			SetSpd 10
			SetAlt ( Layer - 100 )
		} ENDIF

		LegTimer += Time

	} ENDIF
}

IF Init THEN {

	Unknown = true
	PreventingSnorkel = true
	PreventingComms = true
	SetEntVar "TooBusyForComms" ( GetEntVar "TooBusyForComms" + 1 )
	SetEntVar "TooBusyToSnorkel" ( GetEntVar "TooBusyToSnorkel" + 1 )

} ELSE {

	IF TgtID $= "HOSTILE" THEN {

		IF Unknown THEN {
			Unknown = false
		} ENDIF
		AvoidTgt

	} ELSEIF TgtID $= "FRIENDLY" THEN {

		IF Unknown THEN {
			Unknown = false
			PreventingSnorkel = false
			PreventingComms = false
			SetEntVar "TooBusyForComms" ( GetEntVar "TooBusyForComms" - 1 )
			SetEntVar "TooBusyToSnorkel" ( GetEntVar "TooBusyToSnorkel" - 1 )
		} ENDIF

		IF tgtrng < 2000 THEN {
			AvoidTgt
		} ENDIF

	} ENDIF

} ENDIF

