; Doctrine 3M-54E Sizzler Anti Surface two stage missile /For -RA- Addon v 1.32/

var PreenableCourse
var RunToEnable
var Runout
var lastX
var lastY
var run
var Waypoints
var Fragments
var Drowned
var Aim
var Away
VAR NUM_TH
VAR ZZZConf
var talt
var temp
var Delta
var FinalPhazeN
var DecoyLogic
var Spoofed
var TP
var d
var done
var tBrg
var OrderAlt

IF INIT THEN {
	TP = -1
	NUM_TH = 0
	ZZZConf = 0
	Fragments = DBIdxFromRecNum 1792
	Drowned = 0
	Aim = 0
	lastX = OwnX
	lastY = OwnY
	SETPRIORITY 251
	SetAlt 50
        OrderAlt = 50
	SetSpd 580
	RunToEnable = 100
	Runout = -1
	FinalPhazeN = 23005
	DecoyLogic = 80
IF ( OwnName $= "3M-51 Alfa ASM" ) THEN { RunOut = 222240 } ENDIF
IF ( ( OwnAlt > 0 ) AND ( OwnAlt < 15 ) ) Then { ShutDown } ENDIF
} elseIF ( Runout != -1 ) AND ( run >= Runout ) THEN {
;	DEBUGOUT "Fuel Lost"
	Runout = -1
	SHUTDOWN
} ELSEif ( tp != -1 ) and ( time > tp ) then {
	detonate
} else {
	run += xyrng ( OwnX - lastX ) ( OwnY - lastY )
	lastX = OwnX
	lastY = OwnY
	IF OwnAlt >= 5 THEN { Drowned = 1 } ELSEIF ( OwnAlt < 5 ) AND Drowned THEN { Shutdown } ENDIF
	IF OwnAlt >= ( MaxAlt + 600 ) THEN { Detonate } ENDIF
	; Enable
	IF RunToEnable != -1 THEN {
		IF run >= RunToEnable THEN {
			Spoofed = RND 100
			ENABLE
			RunToEnable = -1
;			DEBUGOUT "Sensor Enabled"
		} ENDIF
	} ENDIF

	; Home
	IF NEWTRACK then {
		IF ( ( TgtType $= "PLANE" ) OR ( TgtType $= "HELO" ) OR ( TgtCLASS $= "MISSILE" ) ) THEN { Drop } ENDIF
	IF TgtType $= "CM" THEN {
		IF Spoofed > DecoyLogic THEN {
	IF ( TgtRng > FinalPhazeN ) THEN { drop } ELSE { SetTactic "Sizzler2" PreenableCourse = TgtBrg Aim = 1 } ENDIF
		} endif
	} ELSEIF Tgtconf > ZZZConf THEN {
		IF ( TgtRng > FinalPhazeN ) THEN { PreenableCourse = TgtBrg drop } ELSE { SetTactic "Sizzler2" PreenableCourse = TgtBrg Aim = 1 } ENDIF
	} ELSE {
		SetTactic "SBROS"
	} ENDIF
} ENDIF
	IF Away THEN {
		Done = 1
		OrderAlt = -10
		SetSpd 1
		Preenable
	} ENDIF

IF NUM_TH == 0 THEN {
	IF Waypoints THEN {
		SETPRIORITY 220 TerminalHome
	} ELSE {
		If AIM Then { PreenableCourse = TBrg } Endif
			SETPRIORITY 220 SetCrs PreenableCourse
			SETPRIORITY 220 SetAlt OrderAlt
		} ENDIF
	} else {
		SETPRIORITY 253 SETSPD maxspd
	} endif
} ENDIF
