; P-1 Shchuka Missile Doctrine fixed for ver. 1.41

var PreenableCourse
var RunToEnable
var Runout
var Homing
var lastX
var lastY
var run
var Waypoints
var Firing
var Empty
var DropRng
var Preset
var TRng
var InitX
var InitY

IF INIT THEN {
	Homing = 0
	Preset = 1
	lastX = OwnX
	lastY = OwnY
	Empty = False
	Firing = False
	Initx = ownx
	Inity = owny
	SETPRIORITY 251
	SETALT 820
	RunToEnable = 100
	Runout = -1
} ELSE {
IF PRESET Then {
	Preset = 0
	TRng = xyrng ( Tgtx - Initx ) ( Tgty - Inity )
	DropRng = ( TRng - 1852 )
} ELSE {
	SetSpd 515
	setalt 800
	run += xyrng ( OwnX - lastX ) ( OwnY - lastY )
	lastX = OwnX
	lastY = OwnY
	; Enable
	IF ( DropRng != -1 ) THEN {
		IF ( run >= DropRng ) THEN {
			DropRng = -1
			ENABLE
;			DEBUGOUT "Search"
			setalt 800
		        Setspd maxspd
                } ENDIF
	} ENDIF

	IF NEWTRACK AND ( TgtType $= "Ship" ) AND NOT Firing THEN {
		FireBest
		firing = true
		Runout = -1
		Preenable
		HOMING += 1
	} ENDIF

	IF LOSTTRACK THEN {
		IF HOMING > 0 THEN { Homing -= 1 } ENDIF
	} ENDIF

	IF Homing == 0 THEN {
		SetCrs PreenableCourse
	} ENDIF

	IF ( ( Runout != -1 ) AND ( run >= Runout ) AND ( Homing == 0 ) ) THEN {
;		DEBUGOUT "P-1 failed to acquire"
		Runout = -1
		Shutdown
	} ENDIF
	IF WeaponAway THEN {
;		DebugOut "separation warhead"
		Empty = True
	} ENDIF
	IF Empty THEN {
;		DebugOut "Engine Off"
		Setalt minalt
		SetSpd 100
	} ENDIF

        IF Empty THEN {	
	IF ( Ownalt < 10 ) THEN {
;       DebugOut "BurstRocket"
        Detonate
	} ENDIF
} ENDIF
} ENDIF