; ACTUV Doctrine rev. 2 for -RA- add-on ver 1.32
var tx
var ty
var tage
VAR TBRG
VAR TCRS
VAR TSPD
VAR TRNG
VAR OTRNG
VAR TAOB
VAR TSILOS
VAR TC
var num
var T_PR
VAR T_DOPOISKA
VAR R_POISKA
VAR EN
VAR TRIGER
VAR DELTA
VAR FP
VAR S1

IF INIT THEN {
	T_DOPOISKA = -1
	R_POISKA = -1
	EN = 1
} else {
	IF EN THEN {
		EN = 0
		Enable
	} ENDIF
		SETPRIORITY 248 SetAlt -27
	IF TRIGER OR ( T_DOPOISKA > TIME ) THEN {
		TRNG = XYRNG ( TX - OWNX ) ( TY - OWNY )
		DELTA = ( TRNG - OTRNG )
		IF NOT FP THEN {
			SETPRIORITY 248 SETCRS TBRG
			SETPRIORITY 248 SETSPD 0
			IF DELTA > 0 THEN {
				S1 += 1
			} ELSE {
				S1 = 0
			} ENDIF
				IF ( S1 > 5 ) or ( trng > 3704 ) THEN { FP = 1 } ENDIF
			} ELSE {
				S1 = 0
                	IF R_POISKA == 0 THEN {
				IF TRNG > TC THEN {
					SETPRIORITY 248 SETCRS TBRG
					SETPRIORITY 248 SETSPD ( 3 + TSPD * 1.2 )
				} ELSE {
					SETPRIORITY 248 SETCRS TBRG
					SETPRIORITY 248 SETSPD ( TSPD + ( 10 * ( ( TRNG - 200 ) / 200 ) ) )
				} ENDIF
			} ELSEIF R_POISKA == 1 THEN {
					IF TRNG > TC THEN {
					SETPRIORITY 248 SETCRS TBRG
					SETPRIORITY 248 SETSPD ( 1 + TSPD * 1.1 )
				} ELSE {
					SETPRIORITY 248 SETCRS TBRG
					SETPRIORITY 248 SETSPD ( TSPD + ( 3 * ( ( TRNG - 250 ) / 250 ) ) )
				} ENDIF
			} ENDIF
		} ENDIF
		OTRNG = TRNG
	} ELSE {
		FP = 0
	} ENDIF
IF NEWTRACK THEN {
	IF TgtType $= "SUB" THEN {
		OTRNG = TGTRNG
		SETTACTIC "ACTUV_T"
	} ELSE {
		SetPersist 10 SetPriority 252 SetCrs OwnCrs
		SetPersist 10 SetPriority 252 SetSpd OwnSpd
	} ENDIF
} ENDIF
	IF NUM != 0 THEN {
		T_DOPOISKA = 20
		TRIGER = 1
	} ENDIF
IF ( NUM == 0 ) AND TRIGER THEN {
	T_DOPOISKA = ( TIME + 180 + ( TRNG / ( OWNSPD * 1852 / 3600 ) ) )
	TRIGER = 0
	} ENDIF
} ENDIF
