; SS-21 Scarab B Doctrine For Reinforce Alert Addon.
var initX
var initY
var run
var TgRange
var Peleng
var ApexRng
var OrdAlt
var OrdAlt2
var OrdPtch
var Firing
VAR TEMP
VAR FIRST
var dterm
VAR FAZA
VAR TEMP1

IF INIT THEN {
	FAZA = 0
	FIRST = 1
	Initx = ownx
	Inity = owny
	SETPRIORITY 252
	Firing = 0

} ELSE {
IF FIRST == 1 THEN {
FIRST = 0
TgRange = XYrng ( WayPtX - Initx ) ( WayPtY - Inity )
dterm = ( TgRange - 20000 )
if dterm < 5000 then { dterm = 5000 } endif
ApexRng = 30000
} ENDIF

Peleng = ( XYbrg ( WayPtX - OwnX ) ( WayPtY - OwnY ) )
RUN = xyrng ( ownx - Initx ) ( owny - Inity )

IF ( Firing == 0 ) THEN {
		SETPRIORITY 252
		SetCrs Peleng
		SETPRIORITY 252
		SetSpd MaxSpd
IF FAZA == 0 THEN {

	TEMP = ( MaxAlt - OWNALT )
	OrdAlt = ( abs ( RUN - ApexRng ) / ApexRng )
	OrdAlt = ( TEMP * ( 1 - ( OrdAlt * OrdAlt ) ) + 50 )
	OrdAlt2 = ( abs ( RUN + 1 - ApexRng ) / ApexRng )
	OrdAlt2 = ( TEMP * ( 1 - ( OrdAlt2 * OrdAlt2 ) ) + 50 )
	OrdPtch = xybrg ( OrdAlt2 - OrdAlt ) 1
	IF RUN > 30000 THEN { FAZA = 1 OrdAlt = 0 OrdAlt2 = 0 } ENDIF

} ELSEIF FAZA == 1 THEN {
IF RUN > DTERM THEN { FAZA = 2 } ENDIF

} ELSEIF FAZA == 2 THEN {
temp = ABS ( TgRange - RUN )
IF ( ( temp < 1500 ) or ( ownalt < ( 500 ) ) ) THEN {
SETPRIORITY 255
DETONATE
; DebugOut "SLBM DETONATE AT:"
;	DebugOut TargetName
	Firing = 1
} ENDIF
TEMP1 = ( TgRange + 750 )
TEMP1 = ( temp1 - RUN )
TEMP = OWNALT
OrdPtch = ( -1 * xybrg TEMP ( TEMP1 * 3 ) )

} ENDIF
} ENDIF

IF ( OrdPtch > 180 ) THEN { OrdPtch = ( OrdPtch - 360 ) } ENDIF
SETPRIORITY 254
SetPitch OrdPtch

} ENDIF