; ACTUV Doctrine rev. 1 for -RA- add-on ver 1.32

VAR DOCTI
VAR T
VAR T1
IF INIT THEN {
	DOCTI = ( TIME + RND 100 )
	SetEntVar "NUM" DOCTI
	IF ( 5 > RND 10 ) THEN {
		SetEntVar "R_POISKA" 1
	} ELSE {
		SetEntVar "R_POISKA" 0
	} ENDIF
	T = ( 250 + RND 100 )
	T1 = ( T * 0.6 )
	SetEntVar "TC" T
} ELSEIF LOSTTRACK THEN {
	SetEntVar "NUM" 0
} ELSEIF TGTAGE > 180 THEN {
	SetEntVar "NUM" 0
	DROP
} ELSE {
	SetEntVar "TX" TGTX
	SetEntVar "TY" TGTY
	SetEntVar "TAGE" TGTAGE
	SetEntVar "TBRG" TGTBRG
	SetEntVar "TCRS" TGTCRS
	SetEntVar "TSPD" TGTSPD
	SetEntVar "TAOB" TgtAOB
	SetEntVar "TSILOS" TgtSILOS
	IF TGTRNG < T1 THEN {
		SETPRIORITY 252 SteerAbeam
		SETPRIORITY 252 SETSPD ( 3 + TGTSPD * 1.2 )
	} ENDIF
} ENDIF
