; DWX v 1.41 Reinforce Alert - User SS-N-19 SSM Shipwreck Doctrine ver 3.0

var PreenableCourse
var RunToEnable
var Runout
var Homing
var lastX
var lastY
var run
var FlareCM
var ChaffCM
var Nabor
var Drowned
var TF
var NAM
var STOPPOISK
var ZAHVAT
var RAST
var REJIM
var FIRST
var DefSen
var DELTA
var tsd
var TEMP
var TX
var TY
var ONAM
var DRAST
var TRNG
var TEMP
var xxx
var CM_Drop
var MAXRANGMILE
var TYP
var TOJ
var SCEL
VAR AltCruiseHigh
VAR AltCruiseLow
VAR FarMode
VAR H_ALT
VAR CruiseSpd
VAR AccelerationSPD
VAR MODE
VAR SRCRNG
VAR SERCHON
VAR LOW
VAR CMTimer
var TERMINAL
var OpSpd
var OpAlt

IF INIT THEN {
	CM_Drop = 0
	MAXRANGMILE = 300
	TOJ = -1
	TEMP = 0
	DRAST = 500
	ONAM = 0
	tsd = -1
	FIRST = 1
	DefSen = 0
	rast = 0
	STOPPOISK = 0
	ZAHVAT = 0
	TF = -1
	NAM = 0
	FlareCM = DBIdxFromRecNum 247
	ChaffCM = DBIdxFromRecNum 2055
	Nabor = 0
	Drowned = 0
	Homing = 0
	lastX = OwnX
	lastY = OwnY
	RunToEnable = 100
	Runout = -1
;	SetSnorkel on
} ELSE {
IF FIRST THEN {
FIRST = 0
xxx = ( Runout / 1852 )
xxx = ( xxx - ( xxx mod 1 ) )
REJIM = ( XXX / 1000 )
REJIM = ( REJIM - ( REJIM mod 1 ) )
xxx = ( xxx - ( REJIM * 1000 ) )
IF REJIM == 5 THEN {
REJIM = 0
} ELSEIF REJIM == 6 THEN {
REJIM = 0
} ELSEIF REJIM == 7 THEN {
REJIM = 0
} ELSEIF REJIM == 8 THEN {
REJIM = 0
} ELSEIF REJIM == 9 THEN {
REJIM = 0

} ELSEIF REJIM == 0 THEN {
IF XXX > MAXRANGMILE THEN { XXX = MAXRANGMILE } ENDIF
	Runout = ( 1852 * XXX )
IF ( RunToEnable < 0 ) THEN { RunToEnable = 100 } ENDIF

} ELSEIF REJIM == 1 THEN {
IF XXX > MAXRANGMILE THEN { XXX = MAXRANGMILE } ENDIF
	Runout = ( 1852 * XXX )
IF RunToEnable < 0 THEN { RunToEnable = 100 } ENDIF

} ELSEIF REJIM == 2 THEN {
IF XXX > MAXRANGMILE THEN { XXX = MAXRANGMILE } ENDIF
Runout = ( 1852 * XXX )
IF RunToEnable < 0 THEN { RunToEnable = 100 } ENDIF

} ELSEIF REJIM == 3 THEN {
	TYP = XXX
; Runout = ( 1852 * MAXRANGMILE )
Runout = ( RunToEnable + 111112 ) ; 60 nmi behind target

} ELSEIF REJIM == 4 THEN {
	NAM = XXX
; Runout = ( 1852 * MAXRANGMILE )
Runout = ( RunToEnable + 111112 ) ; 60 nmi behind target
} ENDIF

IF ( REJIM == 0 ) OR ( REJIM == 3 ) OR ( REJIM == 4 ) THEN {
	MODE = 3
} ELSEIF REJIM == 2 THEN {
	MODE = 2
} ELSEIF REJIM == 1 THEN {
	MODE = 1
} ENDIF
If RunToEnable > 92600 Then {
	AltCruiseHigh = ( MAXALT * 0.614 )
	AltCruiseLow = 500
	CruiseSpd = 1611
	AccelerationSPD = 968
	FarMode = 12964
	SRCRNG = ( RunToEnable - 17000 )
IF MODE == 3 THEN { SRCRNG = ( RunToEnable - 24000 ) } ENDIF
} ELSE {
	AltCruiseHigh = 500
	AltCruiseLow = 500
	CruiseSpd = 968
	AccelerationSPD = 968
	FarMode = 9000000
	SRCRNG = ( RunToEnable - 15000 )
	LOW = 1
	IF ( SRCRNG <= 3000 ) THEN { SRCRNG = 3000 } ENDIF
IF MODE == 3 THEN {
	IF SRCRNG <= 3000 THEN {
		REJIM = 1
		MODE = 1
	} ENDIF
	} ENDIF
} ENDIF
	IF RunOut > ( 1852 * MAXRANGMILE ) THEN {
		RunOut = 556500
	} ENDIF
	SETPRIORITY 200
	SetCrs PreenableCourse
	OpSpd = AccelerationSPD
	OpAlt = AltCruiseLow
} ENDIF

IF ( Terminal != 1 ) THEN {
IF ( FarMode == 12964 ) THEN {
	IF ( H_ALT != 1 ) And DefSen THEN {
		SetSpd ( OwnSpd + 110 )
		If ( OwnSpd >= 1580 ) THEN {
			OPSpd = 1611
		} endif
	} endif
} ENDIF
	run += xyrng ( OwnX - lastX ) ( OwnY - lastY )
	lastX = OwnX
	lastY = OwnY
	IF ( Runout != -1 ) AND ( run >= Runout ) AND NOT Homing THEN {
;		DEBUGOUT "Shipwreck failed to acquire"
		Runout = -1
		SHUTDOWN
	} ENDIF

IF ( DefSen == 0 ) AND ( OwnAlt >= 150 ) THEN {
	DefSen = 1
} ENDIF

IF NOT H_ALT AND ( run >= FarMode ) THEN {
	H_ALT = 1
	OpAlt = AltCruiseHigh
	OpSpd = CruiseSpd
} ENDIF

	IF ( ( run >= SRCRNG ) AND ( SERCHON != 1 ) ) THEN {
		 SERCHON = 1
	IF not Nabor THEN {
		Nabor = 1
IF MODE == 3 THEN {
		SensorEnable "ARGS-45Long2" 0
		SensorEnable "ARGS-45" 0
		SensorEnable "ARGS-45Long" 1
} ELSEIF MODE == 2 THEN {
		SensorEnable "ARGS-45Long2" 1
		SensorEnable "ARGS-45Long" 0
		SensorEnable "ARGS-45" 0
} ELSEIF MODE == 1 THEN {
		SensorEnable "ARGS-45Long2" 0
		SensorEnable "ARGS-45" 1
		SensorEnable "ARGS-45Long" 0
		} ENDIF
	} ENDIF
} ENDIF

IF NEWTRACK AND ( TgtClass $= "Surf" ) THEN {
	IF ( TIME > CMTimer ) THEN {
		SetPriority 255	CounterMeasureIdx FlareCM	
		SetPriority 255	CounterMeasureIdx ChaffCM	
		CMTimer = ( TIME + 4 )
		CM_Drop += 1
	IF ( CM_Drop >= 8 ) Then {
		CMTimer = ( TIME + 100000 )
	} Endif
} ENDIF
} ENDIF

IF NEWTRACK THEN {
	IF ( ( TgtClass $= "AIR" ) AND ( TgtType $= "CM" ) ) OR ( TargetName $= "Granit CM" ) then {
;	Drop
} ENDIF
} ENDIF

IF not ZAHVAT THEN {
; Home
IF NEWTRACK AND ( Nabor == 1 ) AND ( TgtClass $= "Surf" ) THEN {
	SETPRIORITY 240
	TOJ = ( TIME + 30 )
IF rast == 0 THEN {
	rast = ( tgtrng - 9000 )
	IF rast < 0 THEN { TF = ( TIME + 1.5 )
} ELSE {
	TF = 3
IF ( MODE == 1 ) THEN {
	TF = 8
} ENDIF
IF ( MODE == 3 ) THEN {
	TF = 25
} ENDIF
	TF = ( TIME + TF )
} ENDIF
	SCEL = RND TF
	rast = -1
} ENDIF

IF ( MODE != 3 ) THEN {
	OPSpd = MAXSPD
} ENDIF

IF not STOPPOISK THEN {
IF ( REJIM == 0 ) OR ( REJIM == 3 ) OR ( REJIM == 4 ) THEN {
	NAM = 0
	TYP = 0
IF TargetName $= "Vikramaditya" THEN { NAM = 195 TYP = 27
} ELSEIF TargetName $= "Principe De Asturias" THEN { NAM = 196 TYP = 28
} ELSEIF TargetName $= "Chakri Naruebet" THEN { NAM = 197 TYP = 29
} ELSEIF TargetName $= "Vittorio Veneto" THEN { NAM = 198 TYP = 30
} ELSEIF TargetName $= "Jeanne D'Arc" THEN { NAM = 199 TYP = 31
} ELSEIF TargetName $= "Sao Paulo" THEN { NAM = 200 TYP = 32
} ELSEIF TargetName $= "Viraat" THEN { NAM = 201 TYP = 33
} ELSEIF TargetName $= "Chinluck" THEN { NAM = 202 TYP = 34
} ELSEIF TargetName $= "Minas Gerais" THEN { NAM = 203 TYP = 35
} ELSEIF TargetName $= "Hermes" THEN { NAM = 204 TYP = 36
} ELSEIF TargetName $= "Veinticinco De Mayo" THEN { NAM = 205 TYP = 37
} ELSEIF TargetName $= "Iwo Jima" THEN { NAM = 206 TYP = 38
} ELSEIF TargetName $= "Okinawa" THEN { NAM = 207 TYP = 38
} ELSEIF TargetName $= "Guadalcanal" THEN { NAM = 208 TYP = 38
} ELSEIF TargetName $= "Guam" THEN { NAM = 209 TYP = 38
} ELSEIF TargetName $= "Tripoli" THEN { NAM = 210 TYP = 38
} ELSEIF TargetName $= "New Orleans" THEN { NAM = 211 TYP = 38
} ELSEIF TargetName $= "Inchon" THEN { NAM = 212 TYP = 38
} ELSEIF TargetName $= "Wasp" THEN { NAM = 213 TYP = 39
} ELSEIF TargetName $= "Essex" THEN { NAM = 214 TYP = 39
} ELSEIF TargetName $= "Kearsarge" THEN { NAM = 215 TYP = 39
} ELSEIF TargetName $= "Boxer" THEN { NAM = 216 TYP = 39
} ELSEIF TargetName $= "Bataan" THEN { NAM = 217 TYP = 39
} ELSEIF TargetName $= "Bonhomme Richard" THEN { NAM = 218 TYP = 39
} ELSEIF TargetName $= "-Iwo Jima-" THEN { NAM = 219 TYP = 39
} ELSEIF TargetName $= "Charles De Gaulle" THEN { NAM = 220 TYP = 40
} ELSEIF TargetName $= "Invincible" THEN { NAM = 221 TYP = 41
} ELSEIF TargetName $= "Illustrious" THEN { NAM = 222 TYP = 42
} ELSEIF TargetName $= "Ark Royal" THEN { NAM = 223 TYP = 43
} ELSEIF TargetName $= "Kitty Hawk" THEN { NAM = 224 TYP = 44
} ELSEIF TargetName $= "Constellation" THEN { NAM = 225 TYP = 44
} ELSEIF TargetName $= "Enterprise" THEN { NAM = 226 TYP = 45
} ELSEIF TargetName $= "Nimitz" THEN { NAM = 227 TYP = 46
} ELSEIF TargetName $= "Dwight D. Eisenhower" THEN { NAM = 228 TYP = 46
} ELSEIF TargetName $= "Carl Vinson" THEN { NAM = 229 TYP = 46
} ELSEIF TargetName $= "Theodore Roosevelt" THEN { NAM = 230 TYP = 46
} ELSEIF TargetName $= "Abraham Lincoln" THEN { NAM = 231 TYP = 46
} ELSEIF TargetName $= "George Washington" THEN { NAM = 232 TYP = 46
} ELSEIF TargetName $= "John C. Stennis" THEN { NAM = 233 TYP = 46
} ELSEIF TargetName $= "Harry S. Truman" THEN { NAM = 234 TYP = 46

} ELSEIF TargetName $= "Bunker Hill" THEN { NAM = 173 TYP = 26
} ELSEIF TargetName $= "Mobile Bay" THEN { NAM = 174 TYP = 26
} ELSEIF TargetName $= "Antietam" THEN { NAM = 175 TYP = 26
} ELSEIF TargetName $= "Leyte Gulf" THEN { NAM = 176 TYP = 26
} ELSEIF TargetName $= "San Jacinto" THEN { NAM = 177 TYP = 26
} ELSEIF TargetName $= "Lake Champlain" THEN { NAM = 178 TYP = 26
} ELSEIF TargetName $= "Philippine Sea" THEN { NAM = 179 TYP = 26
} ELSEIF TargetName $= "Princeton" THEN { NAM = 180 TYP = 26
} ELSEIF TargetName $= "Normandy" THEN { NAM = 181 TYP = 26
} ELSEIF TargetName $= "Monterey" THEN { NAM = 182 TYP = 26
} ELSEIF TargetName $= "Chancellorsville" THEN { NAM = 183 TYP = 26
} ELSEIF TargetName $= "Cowpens" THEN { NAM = 184 TYP = 26
} ELSEIF TargetName $= "Gettysburg" THEN { NAM = 185 TYP = 26
} ELSEIF TargetName $= "Chosin" THEN { NAM = 186 TYP = 26
} ELSEIF TargetName $= "Hue City" THEN { NAM = 187 TYP = 26
} ELSEIF TargetName $= "Shiloh" THEN { NAM = 188 TYP = 26
} ELSEIF TargetName $= "Anzio" THEN { NAM = 189 TYP = 26
} ELSEIF TargetName $= "Vicksburg" THEN { NAM = 190 TYP = 26
} ELSEIF TargetName $= "Lake Erie" THEN { NAM = 191 TYP = 26
} ELSEIF TargetName $= "Cape St. George" THEN { NAM = 192 TYP = 26
} ELSEIF TargetName $= "Vella Gulf" THEN { NAM = 193 TYP = 26
} ELSEIF TargetName $= "Port Royal" THEN { NAM = 194 TYP = 26

} ELSEIF TargetName $= "Fearless" THEN { NAM = 158 TYP = 21
} ELSEIF TargetName $= "Jean Hubert" THEN { NAM = 159 TYP = 22
} ELSEIF TargetName $= "Didier Ramond" THEN { NAM = 160 TYP = 22
} ELSEIF TargetName $= "Alexis Billecocq" THEN { NAM = 161 TYP = 22
} ELSEIF TargetName $= "Pierre Le Duc" THEN { NAM = 162 TYP = 22
} ELSEIF TargetName $= "Rotterdam" THEN { NAM = 163 TYP = 23
} ELSEIF TargetName $= "Iowa" THEN { NAM = 164 TYP = 24
} ELSEIF TargetName $= "New Jersey" THEN { NAM = 165 TYP = 24
} ELSEIF TargetName $= "Missouri" THEN { NAM = 166 TYP = 24
} ELSEIF TargetName $= "Wisconsin" THEN { NAM = 167 TYP = 24
} ELSEIF TargetName $= "Ticonderoga" THEN { NAM = 168 TYP = 25
} ELSEIF TargetName $= "Yorktown" THEN { NAM = 169 TYP = 25
} ELSEIF TargetName $= "Vincennes" THEN { NAM = 170 TYP = 25
} ELSEIF TargetName $= "Valley Forge" THEN { NAM = 171 TYP = 25
} ELSEIF TargetName $= "Thomas S. Gates" THEN { NAM = 172 TYP = 25

} ELSEIF TargetName $= "Devonshire" THEN { NAM = 18 TYP = 7
} ELSEIF TargetName $= "Hampshire" THEN { NAM = 19 TYP = 7
} ELSEIF TargetName $= "-Kent-" THEN { NAM = 20 TYP = 7
} ELSEIF TargetName $= "-London-" THEN { NAM = 21 TYP = 7
} ELSEIF TargetName $= "Babur" THEN { NAM = 22 TYP = 7
} ELSEIF TargetName $= "Antrim" THEN { NAM = 23 TYP = 7
} ELSEIF TargetName $= "-Fife-" THEN { NAM = 24 TYP = 7
} ELSEIF TargetName $= "Glamorgan" THEN { NAM = 25 TYP = 7
} ELSEIF TargetName $= "-Norfolk-" THEN { NAM = 26 TYP = 7
} ELSEIF TargetName $= "Norfolk" THEN { NAM = 27 TYP = 8
} ELSEIF TargetName $= "Argyll" THEN { NAM = 28 TYP = 8
} ELSEIF TargetName $= "Lancaster" THEN { NAM = 29 TYP = 8
} ELSEIF TargetName $= "Marlborough" THEN { NAM = 30 TYP = 8
} ELSEIF TargetName $= "Iron Duke" THEN { NAM = 31 TYP = 8
} ELSEIF TargetName $= "Monmouth" THEN { NAM = 32 TYP = 8
} ELSEIF TargetName $= "Montrose" THEN { NAM = 33 TYP = 8
} ELSEIF TargetName $= "Westminster" THEN { NAM = 34 TYP = 8
} ELSEIF TargetName $= "Northumberland" THEN { NAM = 35 TYP = 8
} ELSEIF TargetName $= "Richmond" THEN { NAM = 36 TYP = 8
} ELSEIF TargetName $= "Somerset" THEN { NAM = 37 TYP = 8
} ELSEIF TargetName $= "Grafton" THEN { NAM = 38 TYP = 8
} ELSEIF TargetName $= "Sutherland" THEN { NAM = 39 TYP = 8
} ELSEIF TargetName $= "Kent" THEN { NAM = 40 TYP = 8
} ELSEIF TargetName $= "Portland" THEN { NAM = 41 TYP = 8
} ELSEIF TargetName $= "Underwood" THEN { NAM = 42 TYP = 9
} ELSEIF TargetName $= "Crommelin" THEN { NAM = 43 TYP = 9
} ELSEIF TargetName $= "Curts" THEN { NAM = 44 TYP = 9
} ELSEIF TargetName $= "Doyle" THEN { NAM = 45 TYP = 9
} ELSEIF TargetName $= "Halyburton" THEN { NAM = 46 TYP = 9
} ELSEIF TargetName $= "McClusky" THEN { NAM = 47 TYP = 9
} ELSEIF TargetName $= "Klakring" THEN { NAM = 48 TYP = 9
} ELSEIF TargetName $= "Thach" THEN { NAM = 49 TYP = 9
} ELSEIF TargetName $= "De Wert" THEN { NAM = 50 TYP = 9
} ELSEIF TargetName $= "Rentz" THEN { NAM = 51 TYP = 9
} ELSEIF TargetName $= "Nicholas" THEN { NAM = 52 TYP = 9
} ELSEIF TargetName $= "Vandergrift" THEN { NAM = 53 TYP = 9
} ELSEIF TargetName $= "Robert G. Bradley" THEN { NAM = 54 TYP = 9
} ELSEIF TargetName $= "Taylor" THEN { NAM = 55 TYP = 9
} ELSEIF TargetName $= "Gary" THEN { NAM = 56 TYP = 9
} ELSEIF TargetName $= "Carr" THEN { NAM = 57 TYP = 9
} ELSEIF TargetName $= "Hawes" THEN { NAM = 58 TYP = 9
} ELSEIF TargetName $= "Ford" THEN { NAM = 59 TYP = 9
} ELSEIF TargetName $= "Elrod" THEN { NAM = 60 TYP = 9
} ELSEIF TargetName $= "Simpson" THEN { NAM = 61 TYP = 9
} ELSEIF TargetName $= "Reuben James" THEN { NAM = 62 TYP = 9
} ELSEIF TargetName $= "Samuel B. Roberts" THEN { NAM = 63 TYP = 9
} ELSEIF TargetName $= "Kauffman" THEN { NAM = 64 TYP = 9
} ELSEIF TargetName $= "Rodney M. Davis" THEN { NAM = 65 TYP = 9
} ELSEIF TargetName $= "Ingraham" THEN { NAM = 66 TYP = 9
} ELSEIF TargetName $= "Amazon" THEN { NAM = 67 TYP = 10
} ELSEIF TargetName $= "Ambuscade" THEN { NAM = 68 TYP = 10
} ELSEIF TargetName $= "Arrow" THEN { NAM = 69 TYP = 10
} ELSEIF TargetName $= "Alacrity" THEN { NAM = 70 TYP = 10
} ELSEIF TargetName $= "Active" THEN { NAM = 71 TYP = 10
} ELSEIF TargetName $= "Avenger" THEN { NAM = 72 TYP = 10
} ELSEIF TargetName $= "Antelope" THEN { NAM = 73 TYP = 10
} ELSEIF TargetName $= "Ardent" THEN { NAM = 74 TYP = 10
} ELSEIF TargetName $= "Broadsword" THEN { NAM = 75 TYP = 11
} ELSEIF TargetName $= "Battleaxe" THEN { NAM = 76 TYP = 11
} ELSEIF TargetName $= "Brilliant" THEN { NAM = 77 TYP = 11
} ELSEIF TargetName $= "Brazen" THEN { NAM = 78 TYP = 11
} ELSEIF TargetName $= "Boxer" THEN { NAM = 79 TYP = 12
} ELSEIF TargetName $= "Beaver" THEN { NAM = 80 TYP = 12
} ELSEIF TargetName $= "Brave" THEN { NAM = 81 TYP = 12
} ELSEIF TargetName $= "London" THEN { NAM = 82 TYP = 12
} ELSEIF TargetName $= "-Sheffield-" THEN { NAM = 83 TYP = 12
} ELSEIF TargetName $= "-Coventry-" THEN { NAM = 84 TYP = 12
} ELSEIF TargetName $= "Cornwall" THEN { NAM = 85 TYP = 13
} ELSEIF TargetName $= "Cumberland" THEN { NAM = 86 TYP = 13
} ELSEIF TargetName $= "Campeltown" THEN { NAM = 87 TYP = 13
} ELSEIF TargetName $= "Chatham" THEN { NAM = 88 TYP = 13
} ELSEIF TargetName $= "Sheffield" THEN { NAM = 89 TYP = 14
} ELSEIF TargetName $= "Coventry" THEN { NAM = 90 TYP = 14
} ELSEIF TargetName $= "Birmingham" THEN { NAM = 91 TYP = 14
} ELSEIF TargetName $= "Exeter" THEN { NAM = 92 TYP = 14
} ELSEIF TargetName $= "Southampton" THEN { NAM = 93 TYP = 14
} ELSEIF TargetName $= "Nottingham" THEN { NAM = 94 TYP = 14
} ELSEIF TargetName $= "Liverpool" THEN { NAM = 95 TYP = 14
} ELSEIF TargetName $= "Manchester" THEN { NAM = 96 TYP = 15
} ELSEIF TargetName $= "Gloucester" THEN { NAM = 97 TYP = 15
} ELSEIF TargetName $= "Edinburgh" THEN { NAM = 98 TYP = 15
} ELSEIF TargetName $= "York" THEN { NAM = 99 TYP = 15
} ELSEIF TargetName $= "Daring" THEN { NAM = 100 TYP = 16
} ELSEIF TargetName $= "Dauntless" THEN { NAM = 101 TYP = 16
} ELSEIF TargetName $= "Diamond" THEN { NAM = 102 TYP = 16
} ELSEIF TargetName $= "Duncan" THEN { NAM = 103 TYP = 16
} ELSEIF TargetName $= "Dragon" THEN { NAM = 104 TYP = 16
} ELSEIF TargetName $= "Defender" THEN { NAM = 105 TYP = 16
} ELSEIF TargetName $= "Bristol" THEN { NAM = 106 TYP = 17
} ELSEIF TargetName $= "Arleigh Burke" THEN { NAM = 107 TYP = 18
} ELSEIF TargetName $= "Barry" THEN { NAM = 108 TYP = 18
} ELSEIF TargetName $= "John Paul Jones" THEN { NAM = 109 TYP = 18
} ELSEIF TargetName $= "Curtis Wilbur" THEN { NAM = 110 TYP = 18
} ELSEIF TargetName $= "Stout" THEN { NAM = 111 TYP = 18
} ELSEIF TargetName $= "John S. McCain" THEN { NAM = 112 TYP = 18
} ELSEIF TargetName $= "Mitscher" THEN { NAM = 113 TYP = 18
} ELSEIF TargetName $= "Laboon" THEN { NAM = 114 TYP = 18
} ELSEIF TargetName $= "Russel" THEN { NAM = 115 TYP = 18
} ELSEIF TargetName $= "Paul Hamilton" THEN { NAM = 116 TYP = 18
} ELSEIF TargetName $= "Ramage" THEN { NAM = 117 TYP = 18
} ELSEIF TargetName $= "Fitzgerald" THEN { NAM = 118 TYP = 18
} ELSEIF TargetName $= "Stethem" THEN { NAM = 119 TYP = 18
} ELSEIF TargetName $= "Carney" THEN { NAM = 120 TYP = 18
} ELSEIF TargetName $= "Benfold" THEN { NAM = 121 TYP = 18
} ELSEIF TargetName $= "Gonzalez" THEN { NAM = 122 TYP = 18
} ELSEIF TargetName $= "Cole" THEN { NAM = 123 TYP = 18
} ELSEIF TargetName $= "The Sullivans" THEN { NAM = 124 TYP = 18
} ELSEIF TargetName $= "Milius" THEN { NAM = 125 TYP = 18
} ELSEIF TargetName $= "Hopper" THEN { NAM = 126 TYP = 18
} ELSEIF TargetName $= "Ross" THEN { NAM = 127 TYP = 18
} ELSEIF TargetName $= "Mahan" THEN { NAM = 128 TYP = 19
} ELSEIF TargetName $= "Decatur" THEN { NAM = 129 TYP = 19
} ELSEIF TargetName $= "McFaul" THEN { NAM = 130 TYP = 19
} ELSEIF TargetName $= "Donald Cook" THEN { NAM = 131 TYP = 19
} ELSEIF TargetName $= "Higgins" THEN { NAM = 132 TYP = 19
} ELSEIF TargetName $= "O'Kane" THEN { NAM = 133 TYP = 19
} ELSEIF TargetName $= "Porter" THEN { NAM = 134 TYP = 19
} ELSEIF TargetName $= "Spruance" THEN { NAM = 135 TYP = 22
} ELSEIF TargetName $= "Paul F. Foster" THEN { NAM = 136 TYP = 20
} ELSEIF TargetName $= "Kinkaid" THEN { NAM = 137 TYP = 20
} ELSEIF TargetName $= "Elliot" THEN { NAM = 138 TYP = 20
} ELSEIF TargetName $= "Arthur W. Radford" THEN { NAM = 139 TYP = 20
} ELSEIF TargetName $= "Peterson" THEN { NAM = 140 TYP = 20
} ELSEIF TargetName $= "Caron" THEN { NAM = 141 TYP = 20
} ELSEIF TargetName $= "David R. Ray" THEN { NAM = 142 TYP = 20
} ELSEIF TargetName $= "Oldendorf" THEN { NAM = 143 TYP = 20
} ELSEIF TargetName $= "John Young" THEN { NAM = 144 TYP = 20
} ELSEIF TargetName $= "O'Brien" THEN { NAM = 145 TYP = 20
} ELSEIF TargetName $= "Briscoe" THEN { NAM = 146 TYP = 20
} ELSEIF TargetName $= "Stump" THEN { NAM = 147 TYP = 20
} ELSEIF TargetName $= "Moosbrugger" THEN { NAM = 148 TYP = 20
} ELSEIF TargetName $= "John Hancock" THEN { NAM = 149 TYP = 20
} ELSEIF TargetName $= "Nicholson" THEN { NAM = 150 TYP = 20
} ELSEIF TargetName $= "Cushing" THEN { NAM = 151 TYP = 20
} ELSEIF TargetName $= "O'Bannon" THEN { NAM = 152 TYP = 20
} ELSEIF TargetName $= "Thorn" THEN { NAM = 153 TYP = 20
} ELSEIF TargetName $= "Deyo" THEN { NAM = 154 TYP = 20
} ELSEIF TargetName $= "Fife" THEN { NAM = 155 TYP = 20
} ELSEIF TargetName $= "Fletcher" THEN { NAM = 156 TYP = 20
} ELSEIF TargetName $= "Hayler" THEN { NAM = 157 TYP = 20

} ELSEIF TargetName $= "Fort Victoria" THEN { NAM = 1 TYP = 1
} ELSEIF TargetName $= "Fort George" THEN { NAM = 2 TYP = 1
} ELSEIF TargetName $= "Sacramento" THEN { NAM = 3 TYP = 2
} ELSEIF TargetName $= "Camden" THEN { NAM = 4 TYP = 2
} ELSEIF TargetName $= "Seattle" THEN { NAM = 5 TYP = 2
} ELSEIF TargetName $= "Detroit" THEN { NAM = 6 TYP = 2
} ELSEIF TargetName $= "Supply" THEN { NAM = 7 TYP = 3
} ELSEIF TargetName $= "Rainier" THEN { NAM = 8 TYP = 3
} ELSEIF TargetName $= "Arctic" THEN { NAM = 9 TYP = 3
} ELSEIF TargetName $= "Bridge" THEN { NAM = 10 TYP = 3
} ELSEIF TargetName $= "Westralia" THEN { NAM = 11 TYP = 4
} ELSEIF TargetName $= "Drakensberg" THEN { NAM = 12 TYP = 5
} ELSEIF TargetName $= "TafelBerg" THEN { NAM = 13 TYP = 5
} ELSEIF TargetName $= "Harpers Ferry" THEN { NAM = 14 TYP = 6
} ELSEIF TargetName $= "Carter Hall" THEN { NAM = 15 TYP = 6
} ELSEIF TargetName $= "Oak Hill" THEN { NAM = 16 TYP = 6
} ELSEIF TargetName $= "Pearl Harbor" THEN { NAM = 17 TYP = 6 } ENDIF

IF REJIM == 0 THEN {
	IF ONAM < NAM THEN {
		TX = TGTX
		TY = TGTY
		ONAM = NAM
	} ENDIF
IF ( ONAM == 0 ) AND ( NAM == 0 ) THEN {
	TX = TGTX
	TY = TGTY
} ENDIF

} ELSEIF ( ( REJIM == 3 ) AND ( XXX == TYP ) ) THEN {
	TX = TGTX
	TY = TGTY
	STOPPOISK = 1
} ELSEIF ( REJIM == 4 ) AND ( XXX == NAM ) THEN {
	TX = TGTX
	TY = TGTY
	STOPPOISK = 1
} ENDIF
} ELSEIF REJIM == 5 THEN {
	STOPPOISK = 1
	TX = TGTX
	TY = TGTY
} ELSE {	
	SCEL -= 1
IF ( ( SCEL < 2 ) OR ( ( TIME + ( 7 - RND 3 ) ) > TF ) ) AND ( 22 > ABS TGTAOB ) THEN {
	IF ABS TgtAOB < 10 THEN {
		STOPPOISK = 1
		TX = TGTX
		TY = TGTY
	} ENDIF
} ENDIF
	} ENDIF
} ENDIF
IF ( ABS ( TX - TGTX ) < DRAST ) AND ( ABS ( ABS TY - TGTY ) < DRAST ) AND ( STOPPOISK == 1 ) THEN {
	TX = TGTX
	TY = TGTY
	DRAST = 70
	TEMP = 1
} ELSE {
	TEMP = 0
} ENDIF

IF ( TEMP == 1 ) AND not ZAHVAT THEN {
	IF TGTRNG > 3500 THEN {
		SETPRIORITY 252 STEERTO
	IF tgtrng < 27000 then {
		DELTA = ( 230 - OWNALT )
	temp = XYBRG ABS DELTA ( ( TGTRNG + 850 ) * 3.28 )
	IF DELTA < 0 then {
		temp = ( -1 * temp )
	} endif
		SETPRIORITY 253
		setpitch temp
	} endif
		SETTACTIC "SBROS"
} ELSE {
	SensorEnable "ARGS-45Long2" 0
	SensorEnable "ARGS-45" 0
	SensorEnable "ARGS-45Long" 0
	Preenable
	ZAHVAT = 1
	Homing = 1
IF DBBuoyFlags & 1 THEN {
	Runout = -1
	SETPRIORITY 240
	SetSpd MAXSPD
	trng = tgtrng
	SensorEnable "IPGS-45" 1
	SETTACTIC "T_H_SSN19"
} ELSEIF DBBuoyFlags & 2 THEN {
	Runout = -1
	SETPRIORITY 240
	SetSpd MAXSPD
	SensorEnable "IPGS-45" 1
	SETTACTIC "NuceSurfBurst"
	} ENDIF
} ENDIF
} ELSE {
	SETTACTIC "SBROS"
	} ENDIF
} ENDIF
} ELSE {
	tsd = ( OWNSPD * 0.514444 )
	TEMP = ( ( pitch * 0.01745 ) mod 6.283185 )
	TEMP = cos abs ( TEMP )
	tsd = ( tsd * TEMP )
	IF tsd == 0 then { tsd = 0.00001 } endif
	tsd = ( TRNG / tsd )
	tsd = ( time + tsd )
	tsd += 0.3
} ENDIF

IF ( TIME > TF ) AND ( STOPPOISK == 0 ) AND ( TF != -1 ) THEN {
	STOPPOISK = 1
	TF = -1
} ENDIF
	IF ( TOJ < TIME ) AND ( ZAHVAT == 0 ) AND ( TOJ != -1 ) THEN {
		SHUTDOWN
	} ENDIF
} ENDIF
IF OwnAlt >= 0 THEN {
	Drowned = 1
} ELSEIF ( OwnAlt < 0 ) AND ( Drowned == 1 ) THEN {
	drowned = 4
} ENDIF
IF ZAHVAT THEN {
	if ( tsd != -1 ) and ( tsd < time ) THEN {
	SETPRIORITY 255
	detonate
} ENDIF
IF ( drowned == 4 ) or ( ( tsd != -1 ) and ( ( tsd + 1 ) < time ) ) THEN {
	SETPRIORITY 255
	detonate
} ENDIF
} ELSEIF DROWNED == 4 THEN {
	SETPRIORITY 255
	SHUTDOWN
} ENDIF

} ENDIF
If Not Homing Then {
	SetSpd OpSpd
	SetAlt OpAlt
} endif