06/20/2015 14:52:20	Transcendence 1.6 Beta 4
06/20/2015 14:52:20	Graphics quality maximum: 63 ms; 2 cores.
06/20/2015 14:52:22	Loaded library: Extensions\120DnO1\120Ships.xml
06/20/2015 14:52:22	Loaded extension: Extensions\120DnO1\120ShipsNPC.xml
06/20/2015 14:52:22	Loaded extension: Extensions\AsteroidScanner.xml
06/20/2015 14:52:22	Loaded extension: Extensions\d912_DrakeTech\DrakeTech.xml
06/20/2015 14:52:22	Loaded extension: Extensions\d912_InfiniteFuel\InfiniteFuel.xml
06/20/2015 14:52:22	Loaded extension: Extensions\d912_LibMods\TradeMenu.xml
06/20/2015 14:52:22	Loaded library: Extensions\d912_LibResources\Lib912Resources.xml
06/20/2015 14:52:22	backColor not supported: Resources\ArmorHUDShip_Sapphire.bmp.
06/20/2015 14:52:22	backColor not supported: Resources\ArmorHUDShip_EI500.bmp.
06/20/2015 14:52:22	backColor not supported: Resources\ArmorHUDShip_Wolfen.bmp.
06/20/2015 14:52:22	backColor not supported: Resources\ArmorHUDShip.bmp.
06/20/2015 14:52:22	backColor not supported: Resources\ArmorHUDShip.bmp.
06/20/2015 14:52:22	backColor not supported: Resources\ArmorHUD_Round111.bmp.
06/20/2015 14:52:22	backColor not supported: Resources\ArmorHUD_Round144.bmp.
06/20/2015 14:52:22	backColor not supported: Resources\ArmorHUD_Round223.bmp.
06/20/2015 14:52:22	backColor not supported: Resources\ArmorHUD_Round224.bmp.
06/20/2015 14:52:22	backColor not supported: Resources\ArmorHUD_Round233.bmp.
06/20/2015 14:52:22	backColor not supported: Resources\ArmorHUD_Round234.bmp.
06/20/2015 14:52:22	backColor not supported: Resources\ArmorHUD_Round243.bmp.
06/20/2015 14:52:22	backColor not supported: Resources\ArmorHUD_Round244.bmp.
06/20/2015 14:52:23	backColor not supported: Resources\ArmorHUD_Round344.bmp.
06/20/2015 14:52:23	backColor not supported: Resources\ArmorHUD_Round344b.bmp.
06/20/2015 14:52:23	backColor not supported: Resources\ArmorHUD_Round434.bmp.
06/20/2015 14:52:23	backColor not supported: Resources\ArmorHUD_Round443.bmp.
06/20/2015 14:52:23	backColor not supported: Resources\ArmorHUD_Round444.bmp.
06/20/2015 14:52:23	backColor not supported: Resources\ArmorHUD_Round544.bmp.
06/20/2015 14:52:23	backColor not supported: Resources\ArmorHUD_Round544b.bmp.
06/20/2015 14:52:23	backColor not supported: Resources\ArmorHUD_Round634.bmp.
06/20/2015 14:52:23	backColor not supported: Resources\ArmorHUD_Round644.bmp.
06/20/2015 14:52:23	backColor not supported: Resources\ArmorHUD_Round644b.bmp.
06/20/2015 14:52:23	backColor not supported: Resources\ArmorHUD_Round844.bmp.
06/20/2015 14:52:23	backColor not supported: Resources\ArmorHUD_Wedge4.bmp.
06/20/2015 14:52:23	backColor not supported: Resources\ArmorHUD_Wedge6.bmp.
06/20/2015 14:52:23	Loaded library: Extensions\d912_PlayerShipDrones\PlayerShipDrones.xml
06/20/2015 14:52:23	Loaded extension: Extensions\d912_PSD_DnO1\PSD_DnO1.xml
06/20/2015 14:52:23	Loaded extension: Extensions\d912_PSD_DnOOut1\PSD_DnOOut1.xml
06/20/2015 14:52:23	Loaded extension: Extensions\d912_Relief\Relief912.xml
06/20/2015 14:52:23	Loaded extension: Extensions\d912_Slaver\Slaver912.xml
06/20/2015 14:52:23	Loaded library: Extensions\DockScreenFramework-master\Library.xml
06/20/2015 14:52:23	Loaded extension: Extensions\Doomsday800GWreactor.xml
06/20/2015 14:52:23	Loaded extension: Extensions\DySys V6 PrintTo (for 1.3)\Dynamic Systems V4 Vanilla Override.xml
06/20/2015 14:52:23	Loaded extension: Extensions\DySys V6 PrintTo (for 1.3)\Dynamic Systems V5.b Asteroid Override for TG.xml
06/20/2015 14:52:23	Loaded adventure desc: Extensions\DySys V6 PrintTo (for 1.3)\DynamicSystems.xml
06/20/2015 14:52:24	backColor not supported: DySys Resources\CentauriBaseShipFull.jpg.
06/20/2015 14:52:24	backColor not supported: DySys Resources\Centauri Base Ship Test.jpg.
06/20/2015 14:52:24	Loaded extension: Extensions\DySys V6 PrintTo (for 1.3)\DynamicSystemsStuff.xml
06/20/2015 14:52:24	backColor not supported: DySys Resources\Exiamask.jpg.
06/20/2015 14:52:24	Loaded extension: Extensions\DySys V6 PrintTo (for 1.3)\Nerefir Carrier POC.xml
06/20/2015 14:52:24	Loaded extension: Extensions\GalacticOmniDevice-master\Core.xml
06/20/2015 14:52:24	Loaded extension: Extensions\GODMod\CommonFunctions.xml
06/20/2015 14:52:24	Loaded extension: Extensions\GODMod\Framework.xml
06/20/2015 14:52:24	Loaded extension: Extensions\GODMod\G.O.D.Mod.xml
06/20/2015 14:52:24	Loaded extension: Extensions\GODMod\ScreenHook_ShipInterior.xml
06/20/2015 14:52:24	Loaded extension: Extensions\Parallax\Parallax.xml
06/20/2015 14:52:24	Loaded extension: Extensions\PDMod_beta1.xml
06/20/2015 14:52:24	Loaded extension: Extensions\SFStargateDockNGo v02.xml
06/20/2015 14:52:24	Loaded extension: Extensions\SystemDensityLite.xml
06/20/2015 14:52:24	backColor not supported: Resources\targetBuoy.jpg.
06/20/2015 14:52:24	Loaded extension: Extensions\Test Drive\Test Drive.xml
06/20/2015 14:52:24	backColor not supported: packer.jpg.
06/20/2015 14:52:24	Loaded extension: Extensions\TG_WTS_MiningPack\Bobby_packers\Packer Resources.xml
06/20/2015 14:52:24	backColor not supported: Packer.jpg.
06/20/2015 14:52:24	Loaded extension: Extensions\TG_WTS_MiningPack\Bobby_packers\Packer ResourcesTG.xml
06/20/2015 14:52:24	Loaded extension: Extensions\TG_WTS_MiningPack\Bobby_packers\Packer.xml
06/20/2015 14:52:24	Loaded extension: Extensions\TG_WTS_MiningPack\Bobby_packers\PackerTG.xml
06/20/2015 14:52:24	Loaded extension: Extensions\TG_WTS_MiningPack\TG_WTS_AsteroidScanner.xml
06/20/2015 14:52:24	Loaded extension: Extensions\TG_WTS_MiningPack\TG_WTS_CargoPods.xml
06/20/2015 14:52:25	Loaded extension: Extensions\TG_WTS_MiningPack\TG_WTS_IngotsArmors.xml
06/20/2015 14:52:25	Loaded extension: Extensions\TG_WTS_MiningPack\TG_WTS_MiningColonyUpgrade.xml
06/20/2015 14:52:25	Loaded extension: Extensions\TG_WTS_MiningPack\TG_WTS_MiningWeapons.xml
06/20/2015 14:52:25	Loaded extension: Extensions\TG_WTS_MiningPack\TG_WTS_RawMaterialsProcessor.xml
06/20/2015 14:52:25	Loaded extension: Extensions\TG_WTS_MiningPack\WTS_MiscItemsGFX_Override.xml
06/20/2015 14:52:25	Loaded extension: Extensions\TG_WTS_MiningPack\WTS_NewFuels.xml
06/20/2015 14:52:25	Loaded extension: Extensions\TG_WTS_MiningPack\WTS_OreGFX_Override.xml
06/20/2015 14:52:25	Loaded extension: Extensions\Visible Damage V2\Visible Damage-No gameplay change.xml
06/20/2015 14:52:25	backColor not supported: WE/Praetorian.jpg.
06/20/2015 14:52:25	backColor not supported: WE/tenhove.jpg.
06/20/2015 14:52:25	Loaded extension: Extensions\WE5-master\WE_WeaponsExtended.xml
06/20/2015 14:52:26	Loading news.
06/20/2015 14:52:26	All resources downloaded.
06/20/2015 14:52:29	Loaded game file version: 106cc00
06/20/2015 15:15:07	Exception in eq; arg = ((itmGetCategory itm) 4)
06/20/2015 15:15:07	Overlay OnUpdate: Exception in eq; arg = ((itmGetCategory itm) 4) [((itmGetCategory itm) 4)] ### (eq (itmGetCategory itm) 4) ### []: Exception in eq; arg = ((itmGetCategory itm) 4) [((itmGetCategory itm) 4)] ### (eq (itmGetCategory itm) 4) ###
06/20/2015 15:15:08	Exception in setq; arg = (theRoll (random 1 (item (item probTable 0) 0)))
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:08	Exception in sysGetData; arg = ("08040003_oreTable")
06/20/2015 15:15:14	Exception in ls; arg = ((sysVectorDistance aFirePos (objGetPos notTarget)) 5)
06/20/2015 15:15:14	OnFireWeapon [superfreighter St. Unami]: Exception in ls; arg = ((sysVectorDistance aFirePos (objGetPos notTarget)) 5) [((sysVectorDistance aFirePos (objGetPos notTarget)) 5)] ### (ls (sysVectorDistance aFirePos (objGetPos notTarget)) 5) ###
06/20/2015 15:15:14	Exception in setq; arg = (mass (objGetMass notTarget))
06/20/2015 15:15:14	OnFireWeapon [superfreighter St. Inez]: Exception in setq; arg = (mass (objGetMass notTarget)) [(mass (objGetMass notTarget))] ### (setq mass (objGetMass notTarget)) ###
06/20/2015 15:15:14	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:14	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:14	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:14	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:14	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:14	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:14	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:14	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:14	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:14	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:14	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:14	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:14	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:14	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:14	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:14	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:14	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:14	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:14	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:14	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:14	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:14	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:15	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:15	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:16	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:16	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Navreen]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:17	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:17	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:18	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:18	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:19	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:19	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:19	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:19	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:19	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:19	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:19	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:19	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:19	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:19	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:19	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:19	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:21	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:21	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:21	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:21	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:21	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:21	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:21	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:22	OnFireWeapon [superfreighter St. Unami]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:22	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:22	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:22	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:22	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:22	Exception in eq; arg = ((objGetDisposition VIP gSource) "friend")
06/20/2015 15:15:22	OnFireWeapon [superfreighter St. Inez]: Exception in eq; arg = ((objGetDisposition VIP gSource) "friend") [((objGetDisposition VIP gSource) "friend")] ### (eq (objGetDisposition VIP gSource) "friend") ###
06/20/2015 15:15:22	Exception in not; arg = ((filter systemData theData (not (eq (item theData 1) (item theData 2)))))
06/20/2015 15:15:22	GetGlobalAchievements [9301]: Exception in not; arg = ((filter systemData theData (not (eq (item theData 1) (item theData 2))))) [((filter systemData theData (not (eq (item theData 1) (item theData 2)))))] ### (not (filter systemData theData (not (eq (item theData 1) (item theData 2))))) ###
06/20/2015 15:15:22	Exception in int; arg = (missionsFailed)
06/20/2015 15:15:22	Exception in eq; arg = (katamiStatus "betrayed")
06/20/2015 15:15:22	Exception in if; arg = ((typGetData 4097 "IdentifiedWeapons") "Player Identified all the weapons" "Player honored unknown weapons")
06/20/2015 15:15:22	Exception in cat; arg = (v)
06/20/2015 15:15:22	Exception in eq; arg = ((psdGetData "PSD912_MAXIMUM_SHIPS") 0)
06/20/2015 15:15:22	Exception in if; arg = ((psdGetData "PSD912_SUCCESSION") (list "Free ships requested" (switch (gr claims 0) claims "0") theTitle))
06/20/2015 15:15:22	Exception in if; arg = ((psdGetData "PSD912_PROG_TAR") (list "Free targeting computer" (if (psdGetData "PSD912_PROG_TAR") "On" "Off") theTitle))
06/20/2015 15:15:22	Exception in list; arg = ("Warnings" (if (psdGetData "PSD912_WARNINGS") "On" "Off") theTitle)
06/20/2015 15:15:22	Exception in setq; arg = (theName (typGetData -653126573 "giftName"))
06/20/2015 15:15:23	GetGlobalAchievements [d9121453]: Exception in setq; arg = (theName (typGetData -653126573 "giftName")) [(theName (typGetData -653126573 "giftName"))] ### (setq theName (typGetData -653126573 "giftName")) ###
06/20/2015 15:15:23	Exception in setq; arg = (slaves (typGetData -653097183 "slavesMurdered"))
06/20/2015 15:15:23	GetGlobalAchievements [d9128721]: Exception in setq; arg = (slaves (typGetData -653097183 "slavesMurdered")) [(slaves (typGetData -653097183 "slavesMurdered"))] ### (setq slaves (typGetData -653097183 "slavesMurdered")) ###
06/20/2015 15:15:23	Exception in setq; arg = (slaves (typGetGlobalData -653097180 "slavesTaken"))
06/20/2015 15:15:23	GetGlobalAchievements [d9128724]: Exception in setq; arg = (slaves (typGetGlobalData -653097180 "slavesTaken")) [(slaves (typGetGlobalData -653097180 "slavesTaken"))] ### (setq slaves (typGetGlobalData -653097180 "slavesTaken")) ###
06/20/2015 15:15:23	Exception in setq; arg = (slavesMurdered (typGetData -653097177 "slavesMurdered"))
06/20/2015 15:15:23	GetGlobalAchievements [d9128727]: Exception in setq; arg = (slavesMurdered (typGetData -653097177 "slavesMurdered")) [(slavesMurdered (typGetData -653097177 "slavesMurdered"))] ### (setq slavesMurdered (typGetData -653097177 "slavesMurdered")) ###
06/20/2015 15:15:23	Exception in if; arg = ((itmIsDamaged gItem) (shpRepairItem gSource gItem))
06/20/2015 15:15:23	Item d25c4327 Event [freighter Norland]: Exception in if; arg = ((itmIsDamaged gItem) (shpRepairItem gSource gItem)) [((itmIsDamaged gItem) (shpRepairItem gSource gItem))] ### (if (itmIsDamaged gItem) (shpRepairItem gSource gItem)) ###
06/20/2015 15:15:23	Exception in setq; arg = (status (objGetData gSource "0010201F_status"))
06/20/2015 15:15:23	OnOrdersCompleted [Wolfen-class gunship]: Exception in setq; arg = (status (objGetData gSource "0010201F_status")) [(status (objGetData gSource "0010201F_status"))] ### (setq status (objGetData gSource "0010201F_status")) ###
06/20/2015 15:15:23	Exception in setq; arg = (theType (objGetType aObjDestroyed))
06/20/2015 15:15:23	OnGlobalObjDestroyed [8020102]: Exception in setq; arg = (theType (objGetType aObjDestroyed)) [(theType (objGetType aObjDestroyed))] ### (setq theType (objGetType aObjDestroyed)) ###
06/20/2015 15:15:23	Exception in block; arg = ((ammolist realshots shots virtualUNID) (if (not (objIsDockedAt gPlayership (@ (sysFindObject gPlayership "sN:3") 0))) (block Nil (setq ammolist (itmGetData gItem "ammolist")) (setq virtualUnid (typGetDataField (itmgettype gItem) "ammoType")) (setq realshots 0) (objEnumItems gSource "m" ammo (if (find ammolist (itmGetType ammo)) (setq realshots (add realshots (itmGetCount ammo))))) (objEnumItems gSource "*V" theItem (if (eq (itmGetType theItem) virtualUNID) (setq shots (itmGetCount theItem)))) (switch (gr realshots shots) (objAddItem gSource (itmCreate virtualUNID (subtract realshots shots))) (ls realshots shots) (objRemoveItem gSource (itmCreate virtualUNID (subtract shots realshots)))))))
06/20/2015 15:15:23	Item 405b Event [Rasiermesser Arms & Armor]: Exception in block; arg = ((ammolist realshots shots virtualUNID) (if (not (objIsDockedAt gPlayership (@ (sysFindObject gPlayership "sN:3") 0))) (block Nil (setq ammolist (itmGetData gItem "ammolist")) (setq virtualUnid (typGetDataField (itmgettype gItem) "ammoType")) (setq realshots 0) (objEnumItems gSource "m" ammo (if (find ammolist (itmGetType ammo)) (setq realshots (add realshots (itmGetCount ammo))))) (objEnumItems gSource "*V" theItem (if (eq (itmGetType theItem) virtualUNID) (setq shots (itmGetCount theItem)))) (switch (gr realshots shots) (objAddItem gSource (itmCreate virtualUNID (subtract realshots shots))) (ls realshots shots) (objRemoveItem gSource (itmCreate virtualUNID (subtract shots realshots))))))) [((ammolist realshots shots virtualUNID) (if (not (objIsDockedAt gPlayership (@ (sysFindObject gPlayership "sN:3") 0))) (block Nil (setq ammolist (itmGetData gItem "ammolist")) (setq virtualUnid (typGetDataField (itmgettype gItem) "ammoType")) (setq realshots 0) (objEnumItems gSource "m" ammo (if (find ammolist (itmGetType ammo)) (setq realshots (add realshots (itmGetCount ammo))))) (objEnumItems gSource "*V" theItem (if (eq (itmGetType theItem) virtualUNID) (setq shots (itmGetCount theItem)))) (switch (gr realshots shots) (objAddItem gSource (itmCreate virtualUNID (subtract realshots shots))) (ls realshots shots) (objRemoveItem gSource (itmCreate virtualUNID (subtract shots realshots)))))))] ### (block (ammolist realshots shots virtualUNID) (if (not (objIsDockedAt gPlayership (@ (sysFindObject gPlayership "sN:3") 0))) (block Nil (setq ammolist (itmGetData gItem "ammolist")) (setq virtualUnid (typGetDataField (itmgettype gItem) "ammoType")) (setq realshots 0) (objEnumItems gSource "m" ammo (if (find ammolist (itmGetType ammo)) (setq realshots (add realshots (itmGetCount ammo))))) (objEnumItems gSource "*V" theItem (if (eq (itmGetType theItem) virtualUNID) (setq shots (itmGetCount theItem)))) (switch (gr realshots shots) (objAddItem gSource (itmCreate virtualUNID (subtract realshots shots))) (ls realshots shots) (objRemoveItem gSource (itmCreate virtualUNID (subtract shots realshots))))))) ###
06/20/2015 15:15:23	Exception in block; arg = ((shotfired) (setq shotfired Nil) (block (mode) (if (and (objHasAttribute gSource "auton") (eq Nil (objGetData gSource "pds_mode"))) (block Nil (setq mode 1) (objSetData gSource "pds_defendtarget" (objGetOrderGiver gSource))) (setq mode (objGetData gSource "pds_mode"))) (if (and (eq mode 1) (not (objGetDistance gSource (objGetData gSource "pds_defendtarget")))) (block Nil (objSendMessage gSource Nil "Escort target not detected - switching to default mode") (setq mode Nil) (objSetData gSource "pds_mode" Nil) (objSetData gSource "pds_defendtarget" Nil))) (block (targets notTargets notStations VIP targetPos targetVel sourceVel notTargetPos notTargetVel holdFireArcs tempTargets clearShot) (setq clearShot True) (setq sourceVel (objGetVel gSource)) (if (not (eq (objGetData gSource "pds_allowFriendlyFire") True)) (block Nil (setq notTargets (sysFindObject gSource "sFN:25 S:D")) (setq notStations (sysFindObject gSource "TFN:80 S:d")) (block (VIP) (setq VIP (objGetData gSource "pds_defendtarget")) (if (objIsShip VIP) (if (or (not (eq (objGetDisposition VIP gSource) "friend")) (gr (objGetDistance VIP gSource) 25)) (setq notTargets (append notTargets VIP))) (if (or (not (eq (objGetDisposition VIP gSource) "friend")) (gr (objGetDistance VIP gSource) 80)) (setq notStations (append notStations VIP))))) (if (existsOverlap (append notTargets notStations) aFirePos) (block Nil (setq mode 9) (setq clearShot Nil)) (enum notStations notTarget (if (not (objIsAbandoned notTarget)) (block ("angle1" "angle2" relAngle directAngle) (setq notTargetPos (objGetPos notTarget)) (setq relAngle (sysVectorAngle (sysVectorSubtract notTargetPos aFirePos))) (setq "angle1" (sysCalcFireSolution (sysVectorSubtract (sysVectorPolarOffset notTargetPos (add relAngle 135) 7) aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (setq "angle2" (sysCalcFireSolution (sysVectorSubtract (sysVectorPolarOffset notTargetPos (add relAngle 225) 7) aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (setq directAngle (sysCalcFireSolution (sysVectorSubtract notTargetPos aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (if (not (onMinorArc "angle1" directAngle "angle2")) (setq holdFireArcs (append holdFireArcs (list (list "angle1" "angle2" True)))) (setq holdFireArcs (append holdFireArcs (list (list "angle1" "angle2"))))))))))) (switch (eq mode 1) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (objGetPos target) (objGetPos (objGetData gSource "pds_defendtarget"))) (sysVectorSubtract (objGetVel target) (objGetVel (objGetData gSource "pds_defendtarget"))) currentNumber)) (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (objGetPos target) (objGetPos (objGetData gSource "pds_defendtarget"))) (sysVectorSubtract (objGetVel target) (objGetVel (objGetData gSource "pds_defendtarget"))) currentNumber)) (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (enumWhile '(8 20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 3) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(8 20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 5) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 9) Nil (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20 50) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq tempTargets targets) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets tempTargets) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))))))) (if (not shotfired) "noShot"))
06/20/2015 15:15:23	OnFireWeapon [superfreighter St. Inez]: Exception in block; arg = ((shotfired) (setq shotfired Nil) (block (mode) (if (and (objHasAttribute gSource "auton") (eq Nil (objGetData gSource "pds_mode"))) (block Nil (setq mode 1) (objSetData gSource "pds_defendtarget" (objGetOrderGiver gSource))) (setq mode (objGetData gSource "pds_mode"))) (if (and (eq mode 1) (not (objGetDistance gSource (objGetData gSource "pds_defendtarget")))) (block Nil (objSendMessage gSource Nil "Escort target not detected - switching to default mode") (setq mode Nil) (objSetData gSource "pds_mode" Nil) (objSetData gSource "pds_defendtarget" Nil))) (block (targets notTargets notStations VIP targetPos targetVel sourceVel notTargetPos notTargetVel holdFireArcs tempTargets clearShot) (setq clearShot True) (setq sourceVel (objGetVel gSource)) (if (not (eq (objGetData gSource "pds_allowFriendlyFire") True)) (block Nil (setq notTargets (sysFindObject gSource "sFN:25 S:D")) (setq notStations (sysFindObject gSource "TFN:80 S:d")) (block (VIP) (setq VIP (objGetData gSource "pds_defendtarget")) (if (objIsShip VIP) (if (or (not (eq (objGetDisposition VIP gSource) "friend")) (gr (objGetDistance VIP gSource) 25)) (setq notTargets (append notTargets VIP))) (if (or (not (eq (objGetDisposition VIP gSource) "friend")) (gr (objGetDistance VIP gSource) 80)) (setq notStations (append notStations VIP))))) (if (existsOverlap (append notTargets notStations) aFirePos) (block Nil (setq mode 9) (setq clearShot Nil)) (enum notStations notTarget (if (not (objIsAbandoned notTarget)) (block ("angle1" "angle2" relAngle directAngle) (setq notTargetPos (objGetPos notTarget)) (setq relAngle (sysVectorAngle (sysVectorSubtract notTargetPos aFirePos))) (setq "angle1" (sysCalcFireSolution (sysVectorSubtract (sysVectorPolarOffset notTargetPos (add relAngle 135) 7) aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (setq "angle2" (sysCalcFireSolution (sysVectorSubtract (sysVectorPolarOffset notTargetPos (add relAngle 225) 7) aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (setq directAngle (sysCalcFireSolution (sysVectorSubtract notTargetPos aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (if (not (onMinorArc "angle1" directAngle "angle2")) (setq holdFireArcs (append holdFireArcs (list (list "angle1" "angle2" True)))) (setq holdFireArcs (append holdFireArcs (list (list "angle1" "angle2"))))))))))) (switch (eq mode 1) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (objGetPos target) (objGetPos (objGetData gSource "pds_defendtarget"))) (sysVectorSubtract (objGetVel target) (objGetVel (objGetData gSource "pds_defendtarget"))) currentNumber)) (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (objGetPos target) (objGetPos (objGetData gSource "pds_defendtarget"))) (sysVectorSubtract (objGetVel target) (objGetVel (objGetData gSource "pds_defendtarget"))) currentNumber)) (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (enumWhile '(8 20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 3) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(8 20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 5) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 9) Nil (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20 50) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq tempTargets targets) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets tempTargets) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))))))) (if (not shotfired) "noShot")) [((shotfired) (setq shotfired Nil) (block (mode) (if (and (objHasAttribute gSource "auton") (eq Nil (objGetData gSource "pds_mode"))) (block Nil (setq mode 1) (objSetData gSource "pds_defendtarget" (objGetOrderGiver gSource))) (setq mode (objGetData gSource "pds_mode"))) (if (and (eq mode 1) (not (objGetDistance gSource (objGetData gSource "pds_defendtarget")))) (block Nil (objSendMessage gSource Nil "Escort target not detected - switching to default mode") (setq mode Nil) (objSetData gSource "pds_mode" Nil) (objSetData gSource "pds_defendtarget" Nil))) (block (targets notTargets notStations VIP targetPos targetVel sourceVel notTargetPos notTargetVel holdFireArcs tempTargets clearShot) (setq clearShot True) (setq sourceVel (objGetVel gSource)) (if (not (eq (objGetData gSource "pds_allowFriendlyFire") True)) (block Nil (setq notTargets (sysFindObject gSource "sFN:25 S:D")) (setq notStations (sysFindObject gSource "TFN:80 S:d")) (block (VIP) (setq VIP (objGetData gSource "pds_defendtarget")) (if (objIsShip VIP) (if (or (not (eq (objGetDisposition VIP gSource) "friend")) (gr (objGetDistance VIP gSource) 25)) (setq notTargets (append notTargets VIP))) (if (or (not (eq (objGetDisposition VIP gSource) "friend")) (gr (objGetDistance VIP gSource) 80)) (setq notStations (append notStations VIP))))) (if (existsOverlap (append notTargets notStations) aFirePos) (block Nil (setq mode 9) (setq clearShot Nil)) (enum notStations notTarget (if (not (objIsAbandoned notTarget)) (block ("angle1" "angle2" relAngle directAngle) (setq notTargetPos (objGetPos notTarget)) (setq relAngle (sysVectorAngle (sysVectorSubtract notTargetPos aFirePos))) (setq "angle1" (sysCalcFireSolution (sysVectorSubtract (sysVectorPolarOffset notTargetPos (add relAngle 135) 7) aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (setq "angle2" (sysCalcFireSolution (sysVectorSubtract (sysVectorPolarOffset notTargetPos (add relAngle 225) 7) aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (setq directAngle (sysCalcFireSolution (sysVectorSubtract notTargetPos aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (if (not (onMinorArc "angle1" directAngle "angle2")) (setq holdFireArcs (append holdFireArcs (list (list "angle1" "angle2" True)))) (setq holdFireArcs (append holdFireArcs (list (list "angle1" "angle2"))))))))))) (switch (eq mode 1) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (objGetPos target) (objGetPos (objGetData gSource "pds_defendtarget"))) (sysVectorSubtract (objGetVel target) (objGetVel (objGetData gSource "pds_defendtarget"))) currentNumber)) (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (objGetPos target) (objGetPos (objGetData gSource "pds_defendtarget"))) (sysVectorSubtract (objGetVel target) (objGetVel (objGetData gSource "pds_defendtarget"))) currentNumber)) (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (enumWhile '(8 20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 3) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(8 20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 5) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 9) Nil (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20 50) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq tempTargets targets) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets tempTargets) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))))))) (if (not shotfired) "noShot"))] ### (block (shotfired) (setq shotfired Nil) (block (mode) (if (and (objHasAttribute gSource "auton") (eq Nil (objGetData gSource "pds_mode"))) (block Nil (setq mode 1) (objSetData gSource "pds_defendtarget" (objGetOrderGiver gSource))) (setq mode (objGetData gSource "pds_mode"))) (if (and (eq mode 1) (not (objGetDistance gSource (objGetData gSource "pds_defendtarget")))) (block Nil (objSendMessage gSource Nil "Escort target not detected - switching to default mode") (setq mode Nil) (objSetData gSource "pds_mode" Nil) (objSetData gSource "pds_defendtarget" Nil))) (block (targets notTargets notStations VIP targetPos targetVel sourceVel notTargetPos notTargetVel holdFireArcs tempTargets clearShot) (setq clearShot True) (setq sourceVel (objGetVel gSource)) (if (not (eq (objGetData gSource "pds_allowFriendlyFire") True)) (block Nil (setq notTargets (sysFindObject gSource "sFN:25 S:D")) (setq notStations (sysFindObject gSource "TFN:80 S:d")) (block (VIP) (setq VIP (objGetData gSource "pds_defendtarget")) (if (objIsShip VIP) (if (or (not (eq (objGetDisposition VIP gSource) "friend")) (gr (objGetDistance VIP gSource) 25)) (setq notTargets (append notTargets VIP))) (if (or (not (eq (objGetDisposition VIP gSource) "friend")) (gr (objGetDistance VIP gSource) 80)) (setq notStations (append notStations VIP))))) (if (existsOverlap (append notTargets notStations) aFirePos) (block Nil (setq mode 9) (setq clearShot Nil)) (enum notStations notTarget (if (not (objIsAbandoned notTarget)) (block ("angle1" "angle2" relAngle directAngle) (setq notTargetPos (objGetPos notTarget)) (setq relAngle (sysVectorAngle (sysVectorSubtract notTargetPos aFirePos))) (setq "angle1" (sysCalcFireSolution (sysVectorSubtract (sysVectorPolarOffset notTargetPos (add relAngle 135) 7) aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (setq "angle2" (sysCalcFireSolution (sysVectorSubtract (sysVectorPolarOffset notTargetPos (add relAngle 225) 7) aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (setq directAngle (sysCalcFireSolution (sysVectorSubtract notTargetPos aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (if (not (onMinorArc "angle1" directAngle "angle2")) (setq holdFireArcs (append holdFireArcs (list (list "angle1" "angle2" True)))) (setq holdFireArcs (append holdFireArcs (list (list "angle1" "angle2"))))))))))) (switch (eq mode 1) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (objGetPos target) (objGetPos (objGetData gSource "pds_defendtarget"))) (sysVectorSubtract (objGetVel target) (objGetVel (objGetData gSource "pds_defendtarget"))) currentNumber)) (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (objGetPos target) (objGetPos (objGetData gSource "pds_defendtarget"))) (sysVectorSubtract (objGetVel target) (objGetVel (objGetData gSource "pds_defendtarget"))) currentNumber)) (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (enumWhile '(8 20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 3) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(8 20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 5) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 9) Nil (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20 50) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq tempTargets targets) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets tempTargets) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))))))) (if (not shotfired) "noShot")) ###
06/20/2015 15:15:23	Exception in if; arg = ((itmIsDamaged gItem) (shpRepairItem gSource gItem))
06/20/2015 15:15:23	Item d25c4327 Event [freighter Tempest]: Exception in if; arg = ((itmIsDamaged gItem) (shpRepairItem gSource gItem)) [((itmIsDamaged gItem) (shpRepairItem gSource gItem))] ### (if (itmIsDamaged gItem) (shpRepairItem gSource gItem)) ###
06/20/2015 15:15:23	Exception in not; arg = ((eq gSource gPlayerShip))
06/20/2015 15:15:23	psdOnBehavior [Salvager Nomad]: Exception in not; arg = ((eq gSource gPlayerShip)) [((eq gSource gPlayerShip))] ### (not (eq gSource gPlayerShip)) ###
06/20/2015 15:15:23	Exception in if; arg = ((and (itmGetProperty gItem "installed") (objGetItemProperty gSource gItem "enabled") (not (itmGetProperty gItem "damaged")) (objIsShip gSource)) (block (theData maxArmor hullHP hullMaxHP) (if (not (setq theData (itmGetStaticData gItem "regenArmor"))) (setq theData 1)) (if (not (setq maxArmor (itmGetStaticData gItem "maxArmorLevel"))) (setq maxArmor 25)) (for i 0 (subtract (shpGetArmorCount gSource) 1) (if (geq (objGetArmorDamage gSource i) 1) (block (armorItem repairLevel tics) (setq armorItem (shpGetArmor gSource i)) (setq repairLevel (armGetRepairTech (itmGetType armorItem))) (setq tics (switch (and (gr repairLevel maxArmor)) 0 (@ theData 1) (@ theData (subtract repairLevel 1)) theData)) (if (geq tics 1) (block (theCount healHp) (setq theCount (objGetData gSource (cat "save912Armor" i))) (setq theCount (if theCount (add theCount tics) tics)) (setq healHP (divide theCount 6)) (if (geq healHP 1) (block Nil (objRepairArmor gSource i healHP) (setq theCount (modulo theCount 6)) (itmSetKnown gItem))) (objSetData gSource (cat "save912Armor" i) theCount)))))) (setq hullHP (objGetProperty gSource "interiorHP")) (setq hullMaxHP (objGetProperty gSource "maxInteriorHP")) (if (and (gr hullMaxHP 0) (ls hullHP hullMaxHP)) (block (secsToHeal theCount healHP) (setq secsToHeal 6) (setq theCount (objGetData gSource "save912Hull")) (setq theCount (if theCount (add theCount 1) 1)) (setq healHP (divide theCount secsToHeal)) (if (geq healHP 1) (block (newHullHP) (setq newHullHP (min (add hullHP healHP) hullMaxHP)) (objSetProperty gSource "interiorHP" newHullHP) (setq theCount (modulo theCount secsToHeal)) (itmSetKnown gItem))) (objSetData gSource "save912Hull" theCount)))))
06/20/2015 15:15:23	Item d9121424 Event [Manticore-class heavy gunship]: Exception in if; arg = ((and (itmGetProperty gItem "installed") (objGetItemProperty gSource gItem "enabled") (not (itmGetProperty gItem "damaged")) (objIsShip gSource)) (block (theData maxArmor hullHP hullMaxHP) (if (not (setq theData (itmGetStaticData gItem "regenArmor"))) (setq theData 1)) (if (not (setq maxArmor (itmGetStaticData gItem "maxArmorLevel"))) (setq maxArmor 25)) (for i 0 (subtract (shpGetArmorCount gSource) 1) (if (geq (objGetArmorDamage gSource i) 1) (block (armorItem repairLevel tics) (setq armorItem (shpGetArmor gSource i)) (setq repairLevel (armGetRepairTech (itmGetType armorItem))) (setq tics (switch (and (gr repairLevel maxArmor)) 0 (@ theData 1) (@ theData (subtract repairLevel 1)) theData)) (if (geq tics 1) (block (theCount healHp) (setq theCount (objGetData gSource (cat "save912Armor" i))) (setq theCount (if theCount (add theCount tics) tics)) (setq healHP (divide theCount 6)) (if (geq healHP 1) (block Nil (objRepairArmor gSource i healHP) (setq theCount (modulo theCount 6)) (itmSetKnown gItem))) (objSetData gSource (cat "save912Armor" i) theCount)))))) (setq hullHP (objGetProperty gSource "interiorHP")) (setq hullMaxHP (objGetProperty gSource "maxInteriorHP")) (if (and (gr hullMaxHP 0) (ls hullHP hullMaxHP)) (block (secsToHeal theCount healHP) (setq secsToHeal 6) (setq theCount (objGetData gSource "save912Hull")) (setq theCount (if theCount (add theCount 1) 1)) (setq healHP (divide theCount secsToHeal)) (if (geq healHP 1) (block (newHullHP) (setq newHullHP (min (add hullHP healHP) hullMaxHP)) (objSetProperty gSource "interiorHP" newHullHP) (setq theCount (modulo theCount secsToHeal)) (itmSetKnown gItem))) (objSetData gSource "save912Hull" theCount))))) [((and (itmGetProperty gItem "installed") (objGetItemProperty gSource gItem "enabled") (not (itmGetProperty gItem "damaged")) (objIsShip gSource)) (block (theData maxArmor hullHP hullMaxHP) (if (not (setq theData (itmGetStaticData gItem "regenArmor"))) (setq theData 1)) (if (not (setq maxArmor (itmGetStaticData gItem "maxArmorLevel"))) (setq maxArmor 25)) (for i 0 (subtract (shpGetArmorCount gSource) 1) (if (geq (objGetArmorDamage gSource i) 1) (block (armorItem repairLevel tics) (setq armorItem (shpGetArmor gSource i)) (setq repairLevel (armGetRepairTech (itmGetType armorItem))) (setq tics (switch (and (gr repairLevel maxArmor)) 0 (@ theData 1) (@ theData (subtract repairLevel 1)) theData)) (if (geq tics 1) (block (theCount healHp) (setq theCount (objGetData gSource (cat "save912Armor" i))) (setq theCount (if theCount (add theCount tics) tics)) (setq healHP (divide theCount 6)) (if (geq healHP 1) (block Nil (objRepairArmor gSource i healHP) (setq theCount (modulo theCount 6)) (itmSetKnown gItem))) (objSetData gSource (cat "save912Armor" i) theCount)))))) (setq hullHP (objGetProperty gSource "interiorHP")) (setq hullMaxHP (objGetProperty gSource "maxInteriorHP")) (if (and (gr hullMaxHP 0) (ls hullHP hullMaxHP)) (block (secsToHeal theCount healHP) (setq secsToHeal 6) (setq theCount (objGetData gSource "save912Hull")) (setq theCount (if theCount (add theCount 1) 1)) (setq healHP (divide theCount secsToHeal)) (if (geq healHP 1) (block (newHullHP) (setq newHullHP (min (add hullHP healHP) hullMaxHP)) (objSetProperty gSource "interiorHP" newHullHP) (setq theCount (modulo theCount secsToHeal)) (itmSetKnown gItem))) (objSetData gSource "save912Hull" theCount)))))] ### (if (and (itmGetProperty gItem "installed") (objGetItemProperty gSource gItem "enabled") (not (itmGetProperty gItem "damaged")) (objIsShip gSource)) (block (theData maxArmor hullHP hullMaxHP) (if (not (setq theData (itmGetStaticData gItem "regenArmor"))) (setq theData 1)) (if (not (setq maxArmor (itmGetStaticData gItem "maxArmorLevel"))) (setq maxArmor 25)) (for i 0 (subtract (shpGetArmorCount gSource) 1) (if (geq (objGetArmorDamage gSource i) 1) (block (armorItem repairLevel tics) (setq armorItem (shpGetArmor gSource i)) (setq repairLevel (armGetRepairTech (itmGetType armorItem))) (setq tics (switch (and (gr repairLevel maxArmor)) 0 (@ theData 1) (@ theData (subtract repairLevel 1)) theData)) (if (geq tics 1) (block (theCount healHp) (setq theCount (objGetData gSource (cat "save912Armor" i))) (setq theCount (if theCount (add theCount tics) tics)) (setq healHP (divide theCount 6)) (if (geq healHP 1) (block Nil (objRepairArmor gSource i healHP) (setq theCount (modulo theCount 6)) (itmSetKnown gItem))) (objSetData gSource (cat "save912Armor" i) theCount)))))) (setq hullHP (objGetProperty gSource "interiorHP")) (setq hullMaxHP (objGetProperty gSource "maxInteriorHP")) (if (and (gr hullMaxHP 0) (ls hullHP hullMaxHP)) (block (secsToHeal theCount healHP) (setq secsToHeal 6) (setq theCount (objGetData gSource "save912Hull")) (setq theCount (if theCount (add theCount 1) 1)) (setq healHP (divide theCount secsToHeal)) (if (geq healHP 1) (block (newHullHP) (setq newHullHP (min (add hullHP healHP) hullMaxHP)) (objSetProperty gSource "interiorHP" newHullHP) (setq theCount (modulo theCount secsToHeal)) (itmSetKnown gItem))) (objSetData gSource "save912Hull" theCount))))) ###
06/20/2015 15:15:23	Exception in if; arg = ((itmIsDamaged gItem) (shpRepairItem gSource gItem))
06/20/2015 15:15:23	Item d25c4327 Event [freighter Ardath]: Exception in if; arg = ((itmIsDamaged gItem) (shpRepairItem gSource gItem)) [((itmIsDamaged gItem) (shpRepairItem gSource gItem))] ### (if (itmIsDamaged gItem) (shpRepairItem gSource gItem)) ###
06/20/2015 15:15:24	Exception in if; arg = ((itmIsDamaged gItem) (shpRepairItem gSource gItem))
06/20/2015 15:15:24	Item d25c4358 Event [Antares Heavy 283]: Exception in if; arg = ((itmIsDamaged gItem) (shpRepairItem gSource gItem)) [((itmIsDamaged gItem) (shpRepairItem gSource gItem))] ### (if (itmIsDamaged gItem) (shpRepairItem gSource gItem)) ###
06/20/2015 15:15:24	Exception in setq; arg = (behavior (objGetData gSource "behavior"))
06/20/2015 15:15:24	OnPlayerLeftSystem [Salvager Nomad]: Exception in setq; arg = (behavior (objGetData gSource "behavior")) [(behavior (objGetData gSource "behavior"))] ### (setq behavior (objGetData gSource "behavior")) ###
06/20/2015 15:15:24	Exception in if; arg = ((eq (sysGetName) "Eridani") (typSetData 4097 "leftEridani" True))
06/20/2015 15:15:24	OnGlobalPlayerLeftSystem [d25c5052]: Exception in if; arg = ((eq (sysGetName) "Eridani") (typSetData 4097 "leftEridani" True)) [((eq (sysGetName) "Eridani") (typSetData 4097 "leftEridani" True))] ### (if (eq (sysGetName) "Eridani") (typSetData 4097 "leftEridani" True)) ###
06/20/2015 15:15:24	Exception in setq; arg = (theType (objGetType aObjDestroyed))
06/20/2015 15:15:24	OnGlobalObjDestroyed [8020102]: Exception in setq; arg = (theType (objGetType aObjDestroyed)) [(theType (objGetType aObjDestroyed))] ### (setq theType (objGetType aObjDestroyed)) ###
06/20/2015 15:15:24	Exception in block; arg = ((shotfired) (setq shotfired Nil) (block (mode) (if (and (objHasAttribute gSource "auton") (eq Nil (objGetData gSource "pds_mode"))) (block Nil (setq mode 1) (objSetData gSource "pds_defendtarget" (objGetOrderGiver gSource))) (setq mode (objGetData gSource "pds_mode"))) (if (and (eq mode 1) (not (objGetDistance gSource (objGetData gSource "pds_defendtarget")))) (block Nil (objSendMessage gSource Nil "Escort target not detected - switching to default mode") (setq mode Nil) (objSetData gSource "pds_mode" Nil) (objSetData gSource "pds_defendtarget" Nil))) (block (targets notTargets notStations VIP targetPos targetVel sourceVel notTargetPos notTargetVel holdFireArcs tempTargets clearShot) (setq clearShot True) (setq sourceVel (objGetVel gSource)) (if (not (eq (objGetData gSource "pds_allowFriendlyFire") True)) (block Nil (setq notTargets (sysFindObject gSource "sFN:25 S:D")) (setq notStations (sysFindObject gSource "TFN:80 S:d")) (block (VIP) (setq VIP (objGetData gSource "pds_defendtarget")) (if (objIsShip VIP) (if (or (not (eq (objGetDisposition VIP gSource) "friend")) (gr (objGetDistance VIP gSource) 25)) (setq notTargets (append notTargets VIP))) (if (or (not (eq (objGetDisposition VIP gSource) "friend")) (gr (objGetDistance VIP gSource) 80)) (setq notStations (append notStations VIP))))) (if (existsOverlap (append notTargets notStations) aFirePos) (block Nil (setq mode 9) (setq clearShot Nil)) (enum notStations notTarget (if (not (objIsAbandoned notTarget)) (block ("angle1" "angle2" relAngle directAngle) (setq notTargetPos (objGetPos notTarget)) (setq relAngle (sysVectorAngle (sysVectorSubtract notTargetPos aFirePos))) (setq "angle1" (sysCalcFireSolution (sysVectorSubtract (sysVectorPolarOffset notTargetPos (add relAngle 135) 7) aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (setq "angle2" (sysCalcFireSolution (sysVectorSubtract (sysVectorPolarOffset notTargetPos (add relAngle 225) 7) aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (setq directAngle (sysCalcFireSolution (sysVectorSubtract notTargetPos aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (if (not (onMinorArc "angle1" directAngle "angle2")) (setq holdFireArcs (append holdFireArcs (list (list "angle1" "angle2" True)))) (setq holdFireArcs (append holdFireArcs (list (list "angle1" "angle2"))))))))))) (switch (eq mode 1) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (objGetPos target) (objGetPos (objGetData gSource "pds_defendtarget"))) (sysVectorSubtract (objGetVel target) (objGetVel (objGetData gSource "pds_defendtarget"))) currentNumber)) (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (objGetPos target) (objGetPos (objGetData gSource "pds_defendtarget"))) (sysVectorSubtract (objGetVel target) (objGetVel (objGetData gSource "pds_defendtarget"))) currentNumber)) (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (enumWhile '(8 20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 3) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(8 20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 5) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 9) Nil (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20 50) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq tempTargets targets) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets tempTargets) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))))))) (if (not shotfired) "noShot"))
06/20/2015 15:15:24	OnFireWeapon [superfreighter St. Inez]: Exception in block; arg = ((shotfired) (setq shotfired Nil) (block (mode) (if (and (objHasAttribute gSource "auton") (eq Nil (objGetData gSource "pds_mode"))) (block Nil (setq mode 1) (objSetData gSource "pds_defendtarget" (objGetOrderGiver gSource))) (setq mode (objGetData gSource "pds_mode"))) (if (and (eq mode 1) (not (objGetDistance gSource (objGetData gSource "pds_defendtarget")))) (block Nil (objSendMessage gSource Nil "Escort target not detected - switching to default mode") (setq mode Nil) (objSetData gSource "pds_mode" Nil) (objSetData gSource "pds_defendtarget" Nil))) (block (targets notTargets notStations VIP targetPos targetVel sourceVel notTargetPos notTargetVel holdFireArcs tempTargets clearShot) (setq clearShot True) (setq sourceVel (objGetVel gSource)) (if (not (eq (objGetData gSource "pds_allowFriendlyFire") True)) (block Nil (setq notTargets (sysFindObject gSource "sFN:25 S:D")) (setq notStations (sysFindObject gSource "TFN:80 S:d")) (block (VIP) (setq VIP (objGetData gSource "pds_defendtarget")) (if (objIsShip VIP) (if (or (not (eq (objGetDisposition VIP gSource) "friend")) (gr (objGetDistance VIP gSource) 25)) (setq notTargets (append notTargets VIP))) (if (or (not (eq (objGetDisposition VIP gSource) "friend")) (gr (objGetDistance VIP gSource) 80)) (setq notStations (append notStations VIP))))) (if (existsOverlap (append notTargets notStations) aFirePos) (block Nil (setq mode 9) (setq clearShot Nil)) (enum notStations notTarget (if (not (objIsAbandoned notTarget)) (block ("angle1" "angle2" relAngle directAngle) (setq notTargetPos (objGetPos notTarget)) (setq relAngle (sysVectorAngle (sysVectorSubtract notTargetPos aFirePos))) (setq "angle1" (sysCalcFireSolution (sysVectorSubtract (sysVectorPolarOffset notTargetPos (add relAngle 135) 7) aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (setq "angle2" (sysCalcFireSolution (sysVectorSubtract (sysVectorPolarOffset notTargetPos (add relAngle 225) 7) aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (setq directAngle (sysCalcFireSolution (sysVectorSubtract notTargetPos aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (if (not (onMinorArc "angle1" directAngle "angle2")) (setq holdFireArcs (append holdFireArcs (list (list "angle1" "angle2" True)))) (setq holdFireArcs (append holdFireArcs (list (list "angle1" "angle2"))))))))))) (switch (eq mode 1) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (objGetPos target) (objGetPos (objGetData gSource "pds_defendtarget"))) (sysVectorSubtract (objGetVel target) (objGetVel (objGetData gSource "pds_defendtarget"))) currentNumber)) (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (objGetPos target) (objGetPos (objGetData gSource "pds_defendtarget"))) (sysVectorSubtract (objGetVel target) (objGetVel (objGetData gSource "pds_defendtarget"))) currentNumber)) (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (enumWhile '(8 20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 3) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(8 20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 5) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 9) Nil (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20 50) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq tempTargets targets) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets tempTargets) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))))))) (if (not shotfired) "noShot")) [((shotfired) (setq shotfired Nil) (block (mode) (if (and (objHasAttribute gSource "auton") (eq Nil (objGetData gSource "pds_mode"))) (block Nil (setq mode 1) (objSetData gSource "pds_defendtarget" (objGetOrderGiver gSource))) (setq mode (objGetData gSource "pds_mode"))) (if (and (eq mode 1) (not (objGetDistance gSource (objGetData gSource "pds_defendtarget")))) (block Nil (objSendMessage gSource Nil "Escort target not detected - switching to default mode") (setq mode Nil) (objSetData gSource "pds_mode" Nil) (objSetData gSource "pds_defendtarget" Nil))) (block (targets notTargets notStations VIP targetPos targetVel sourceVel notTargetPos notTargetVel holdFireArcs tempTargets clearShot) (setq clearShot True) (setq sourceVel (objGetVel gSource)) (if (not (eq (objGetData gSource "pds_allowFriendlyFire") True)) (block Nil (setq notTargets (sysFindObject gSource "sFN:25 S:D")) (setq notStations (sysFindObject gSource "TFN:80 S:d")) (block (VIP) (setq VIP (objGetData gSource "pds_defendtarget")) (if (objIsShip VIP) (if (or (not (eq (objGetDisposition VIP gSource) "friend")) (gr (objGetDistance VIP gSource) 25)) (setq notTargets (append notTargets VIP))) (if (or (not (eq (objGetDisposition VIP gSource) "friend")) (gr (objGetDistance VIP gSource) 80)) (setq notStations (append notStations VIP))))) (if (existsOverlap (append notTargets notStations) aFirePos) (block Nil (setq mode 9) (setq clearShot Nil)) (enum notStations notTarget (if (not (objIsAbandoned notTarget)) (block ("angle1" "angle2" relAngle directAngle) (setq notTargetPos (objGetPos notTarget)) (setq relAngle (sysVectorAngle (sysVectorSubtract notTargetPos aFirePos))) (setq "angle1" (sysCalcFireSolution (sysVectorSubtract (sysVectorPolarOffset notTargetPos (add relAngle 135) 7) aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (setq "angle2" (sysCalcFireSolution (sysVectorSubtract (sysVectorPolarOffset notTargetPos (add relAngle 225) 7) aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (setq directAngle (sysCalcFireSolution (sysVectorSubtract notTargetPos aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (if (not (onMinorArc "angle1" directAngle "angle2")) (setq holdFireArcs (append holdFireArcs (list (list "angle1" "angle2" True)))) (setq holdFireArcs (append holdFireArcs (list (list "angle1" "angle2"))))))))))) (switch (eq mode 1) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (objGetPos target) (objGetPos (objGetData gSource "pds_defendtarget"))) (sysVectorSubtract (objGetVel target) (objGetVel (objGetData gSource "pds_defendtarget"))) currentNumber)) (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (objGetPos target) (objGetPos (objGetData gSource "pds_defendtarget"))) (sysVectorSubtract (objGetVel target) (objGetVel (objGetData gSource "pds_defendtarget"))) currentNumber)) (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (enumWhile '(8 20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 3) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(8 20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 5) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 9) Nil (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20 50) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq tempTargets targets) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets tempTargets) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))))))) (if (not shotfired) "noShot"))] ### (block (shotfired) (setq shotfired Nil) (block (mode) (if (and (objHasAttribute gSource "auton") (eq Nil (objGetData gSource "pds_mode"))) (block Nil (setq mode 1) (objSetData gSource "pds_defendtarget" (objGetOrderGiver gSource))) (setq mode (objGetData gSource "pds_mode"))) (if (and (eq mode 1) (not (objGetDistance gSource (objGetData gSource "pds_defendtarget")))) (block Nil (objSendMessage gSource Nil "Escort target not detected - switching to default mode") (setq mode Nil) (objSetData gSource "pds_mode" Nil) (objSetData gSource "pds_defendtarget" Nil))) (block (targets notTargets notStations VIP targetPos targetVel sourceVel notTargetPos notTargetVel holdFireArcs tempTargets clearShot) (setq clearShot True) (setq sourceVel (objGetVel gSource)) (if (not (eq (objGetData gSource "pds_allowFriendlyFire") True)) (block Nil (setq notTargets (sysFindObject gSource "sFN:25 S:D")) (setq notStations (sysFindObject gSource "TFN:80 S:d")) (block (VIP) (setq VIP (objGetData gSource "pds_defendtarget")) (if (objIsShip VIP) (if (or (not (eq (objGetDisposition VIP gSource) "friend")) (gr (objGetDistance VIP gSource) 25)) (setq notTargets (append notTargets VIP))) (if (or (not (eq (objGetDisposition VIP gSource) "friend")) (gr (objGetDistance VIP gSource) 80)) (setq notStations (append notStations VIP))))) (if (existsOverlap (append notTargets notStations) aFirePos) (block Nil (setq mode 9) (setq clearShot Nil)) (enum notStations notTarget (if (not (objIsAbandoned notTarget)) (block ("angle1" "angle2" relAngle directAngle) (setq notTargetPos (objGetPos notTarget)) (setq relAngle (sysVectorAngle (sysVectorSubtract notTargetPos aFirePos))) (setq "angle1" (sysCalcFireSolution (sysVectorSubtract (sysVectorPolarOffset notTargetPos (add relAngle 135) 7) aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (setq "angle2" (sysCalcFireSolution (sysVectorSubtract (sysVectorPolarOffset notTargetPos (add relAngle 225) 7) aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (setq directAngle (sysCalcFireSolution (sysVectorSubtract notTargetPos aFirePos) (sysVectorSubtract (sysPolarVelocity 0 0) sourceVel) 100)) (if (not (onMinorArc "angle1" directAngle "angle2")) (setq holdFireArcs (append holdFireArcs (list (list "angle1" "angle2" True)))) (setq holdFireArcs (append holdFireArcs (list (list "angle1" "angle2"))))))))))) (switch (eq mode 1) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (objGetPos target) (objGetPos (objGetData gSource "pds_defendtarget"))) (sysVectorSubtract (objGetVel target) (objGetVel (objGetData gSource "pds_defendtarget"))) currentNumber)) (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (objGetPos target) (objGetPos (objGetData gSource "pds_defendtarget"))) (sysVectorSubtract (objGetVel target) (objGetVel (objGetData gSource "pds_defendtarget"))) currentNumber)) (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (enumWhile '(8 20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 3) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(8 20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 5) (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20 50 100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True)))))))) (eq mode 9) Nil (block Nil (setq targets Nil) (enum (shuffle (sysFindObject gSource "m N:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (and (not (eq (sysVectorSubtract (objGetPos target) aFirePos) '(0 0 0 0))) (eq Nil (shipHitTest notTargets shotVector aFirePos))) (lnkAppend targets target)))) (enumWhile '(8) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets Nil) (enum (shuffle (sysFindObject gSource "mEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(20 50) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq tempTargets targets) (setq targets Nil) (enum (shuffle (sysFindObject gSource "sEN:20")) target (block Nil (setq FireSolution (sysCalcFireSolution (sysVectorSubtract (objGetPos target) aFirePos) (sysVectorSubtract (objGetVel target) sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq Nil (shipHitTest notTargets shotVector aFirePos)) (lnkAppend targets target)))) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))) (setq targets tempTargets) (enumWhile '(100) (not shotfired) currentNumber (enumWhile targets (not shotfired) target (if (isInt (sysCalcFireSolution (sysVectorSubtract (setq targetPos (objGetPos target)) aFirePos) (sysVectorSubtract (setq targetVel (objGetVel target)) sourceVel) currentNumber)) (block (FireSolution shotVector) (setq FireSolution (sysCalcFireSolution (sysVectorSubtract targetPos aFirePos) (sysVectorSubtract targetVel sourceVel) 100)) (setq shotVector (sysVectorAdd sourceVel (sysVectorPolarVelocity FireSolution 100))) (if (eq True (shipHitTest notTargets shotVector aFirePos)) (setq clearShot Nil)) (enumWhile holdFireArcs clearShot holdFireArc (if (eq (item holdFireArc 2) True) (if (not (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1))) (block Nil (setq clearShot Nil))) (if (onMinorArc (item holdFireArc 0) FireSolution (item holdFireArc 1)) (block Nil (setq clearShot Nil))))) (if clearShot (block (shot) (setq shot (sysCreateWeaponFire 16483 gSource aFirePos FireSolution 100 target Nil aWeaponBonus)) (objIncVel shot sourceVel) (setq shotfired True))))))))))) (if (not shotfired) "noShot")) ###
06/20/2015 15:15:24	Exception in if; arg = ((and (geq (objGetOverlayData gSource aOverlayID "Time") (multiply 15 (objGetOverlayData gSource aOverlayID "UpdateInstance"))) (ls (ObjGetDistance gPlayer (SysFindObject gPlayer "GN")) 30)) (block Nil (if (eq (typGetData 4097 "WE_RandomizerOnSwitch") 1) (if (gr (count (we_findTheShips)) 40) (objFireOverlayEvent gSource aOverlayID "LagFix") (objFireOverlayEvent gSource aOverlayID "WERandomize")))) (objIncOverlayData gSource aOverlayID "Time" 1))
06/20/2015 15:15:24	Overlay OnUpdate: Exception in if; arg = ((and (geq (objGetOverlayData gSource aOverlayID "Time") (multiply 15 (objGetOverlayData gSource aOverlayID "UpdateInstance"))) (ls (ObjGetDistance gPlayer (SysFindObject gPlayer "GN")) 30)) (block Nil (if (eq (typGetData 4097 "WE_RandomizerOnSwitch") 1) (if (gr (count (we_findTheShips)) 40) (objFireOverlayEvent gSource aOverlayID "LagFix") (objFireOverlayEvent gSource aOverlayID "WERandomize")))) (objIncOverlayData gSource aOverlayID "Time" 1)) [((and (geq (objGetOverlayData gSource aOverlayID "Time") (multiply 15 (objGetOverlayData gSource aOverlayID "UpdateInstance"))) (ls (ObjGetDistance gPlayer (SysFindObject gPlayer "GN")) 30)) (block Nil (if (eq (typGetData 4097 "WE_RandomizerOnSwitch") 1) (if (gr (count (we_findTheShips)) 40) (objFireOverlayEvent gSource aOverlayID "LagFix") (objFireOverlayEvent gSource aOverlayID "WERandomize")))) (objIncOverlayData gSource aOverlayID "Time" 1))] ### (if (and (geq (objGetOverlayData gSource aOverlayID "Time") (multiply 15 (objGetOverlayData gSource aOverlayID "UpdateInstance"))) (ls (ObjGetDistance gPlayer (SysFindObject gPlayer "GN")) 30)) (block Nil (if (eq (typGetData 4097 "WE_RandomizerOnSwitch") 1) (if (gr (count (we_findTheShips)) 40) (objFireOverlayEvent gSource aOverlayID "LagFix") (objFireOverlayEvent gSource aOverlayID "WERandomize")))) (objIncOverlayData gSource aOverlayID "Time" 1)) ### []: Exception in if; arg = ((and (geq (objGetOverlayData gSource aOverlayID "Time") (multiply 15 (objGetOverlayData gSource aOverlayID "UpdateInstance"))) (ls (ObjGetDistance gPlayer (SysFindObject gPlayer "GN")) 30)) (block Nil (if (eq (typGetData 4097 "WE_RandomizerOnSwitch") 1) (if (gr (count (we_findTheShips)) 40) (objFireOverlayEvent gSource aOverlayID "LagFix") (objFireOverlayEvent gSource aOverlayID "WERandomize")))) (objIncOverlayData gSource aOverlayID "Time" 1)) [((and (geq (objGetOverlayData gSource aOverlayID "Time") (multiply 15 (objGetOverlayData gSource aOverlayID "UpdateInstance"))) (ls (ObjGetDistance gPlayer (SysFindObject gPlayer "GN")) 30)) (block Nil (if (eq (typGetData 4097 "WE_RandomizerOnSwitch") 1) (if (gr (count (we_findTheShips)) 40) (objFireOverlayEvent gSource aOverlayID "LagFix") (objFireOverlayEvent gSource aOverlayID "WERandomize")))) (objIncOverlayData gSource aOverlayID "Time" 1))] ### (if (and (geq (objGetOverlayData gSource aOverlayID "Time") (multiply 15 (objGetOverlayData gSource aOverlayID "UpdateInstance"))) (ls (ObjGetDistance gPlayer (SysFindObject gPlayer "GN")) 30)) (block Nil (if (eq (typGetData 4097 "WE_RandomizerOnSwitch") 1) (if (gr (count (we_findTheShips)) 40) (objFireOverlayEvent gSource aOverlayID "LagFix") (objFireOverlayEvent gSource aOverlayID "WERandomize")))) (objIncOverlayData gSource aOverlayID "Time" 1)) ###
06/20/2015 15:15:24	Exception in if; arg = ((gr (itmGetArmorInstalledLocation gItem) -1) (block (location count total) (setq total 0) (setq count (shpGetArmorCount gSource)) (for location 0 (subtract (shpGetArmorCount gSource) 1) (if (eq (itmgetUNID gItem) (itmgetUNID (ShpGetArmor gSource location))) (setq total (add total (objGetArmorDamage gSource location))) (setq count (subtract count 1)))) (for location 0 (subtract (shpGetArmorCount gSource) 1) (if (and (or (eq 1 (random 1 count)) (eq 0 (random 0 count))) (eq (itmgetUNID gItem) (itmgetUNID (ShpGetArmor gSource location)))) (switch (gr total (multiply count (objgetarmordamage gSource location))) (shpDamageArmor gSource location -1 (max 1 (divide (subtract total (multiply count (objgetarmordamage gSource location))) (multiply 2 count)))) (ls total (multiply count (objgetarmordamage gSource location))) (objRepairArmor gSource location (max 1 (divide (subtract (multiply count (objgetarmordamage gSource location)) total) (multiply 2 count)))))))))
06/20/2015 15:15:24	Item d25c4610 Event [St. Katharine's Star Armor Systems]: Exception in if; arg = ((gr (itmGetArmorInstalledLocation gItem) -1) (block (location count total) (setq total 0) (setq count (shpGetArmorCount gSource)) (for location 0 (subtract (shpGetArmorCount gSource) 1) (if (eq (itmgetUNID gItem) (itmgetUNID (ShpGetArmor gSource location))) (setq total (add total (objGetArmorDamage gSource location))) (setq count (subtract count 1)))) (for location 0 (subtract (shpGetArmorCount gSource) 1) (if (and (or (eq 1 (random 1 count)) (eq 0 (random 0 count))) (eq (itmgetUNID gItem) (itmgetUNID (ShpGetArmor gSource location)))) (switch (gr total (multiply count (objgetarmordamage gSource location))) (shpDamageArmor gSource location -1 (max 1 (divide (subtract total (multiply count (objgetarmordamage gSource location))) (multiply 2 count)))) (ls total (multiply count (objgetarmordamage gSource location))) (objRepairArmor gSource location (max 1 (divide (subtract (multiply count (objgetarmordamage gSource location)) total) (multiply 2 count))))))))) [((gr (itmGetArmorInstalledLocation gItem) -1) (block (location count total) (setq total 0) (setq count (shpGetArmorCount gSource)) (for location 0 (subtract (shpGetArmorCount gSource) 1) (if (eq (itmgetUNID gItem) (itmgetUNID (ShpGetArmor gSource location))) (setq total (add total (objGetArmorDamage gSource location))) (setq count (subtract count 1)))) (for location 0 (subtract (shpGetArmorCount gSource) 1) (if (and (or (eq 1 (random 1 count)) (eq 0 (random 0 count))) (eq (itmgetUNID gItem) (itmgetUNID (ShpGetArmor gSource location)))) (switch (gr total (multiply count (objgetarmordamage gSource location))) (shpDamageArmor gSource location -1 (max 1 (divide (subtract total (multiply count (objgetarmordamage gSource location))) (multiply 2 count)))) (ls total (multiply count (objgetarmordamage gSource location))) (objRepairArmor gSource location (max 1 (divide (subtract (multiply count (objgetarmordamage gSource location)) total) (multiply 2 count)))))))))] ### (if (gr (itmGetArmorInstalledLocation gItem) -1) (block (location count total) (setq total 0) (setq count (shpGetArmorCount gSource)) (for location 0 (subtract (shpGetArmorCount gSource) 1) (if (eq (itmgetUNID gItem) (itmgetUNID (ShpGetArmor gSource location))) (setq total (add total (objGetArmorDamage gSource location))) (setq count (subtract count 1)))) (for location 0 (subtract (shpGetArmorCount gSource) 1) (if (and (or (eq 1 (random 1 count)) (eq 0 (random 0 count))) (eq (itmgetUNID gItem) (itmgetUNID (ShpGetArmor gSource location)))) (switch (gr total (multiply count (objgetarmordamage gSource location))) (shpDamageArmor gSource location -1 (max 1 (divide (subtract total (multiply count (objgetarmordamage gSource location))) (multiply 2 count)))) (ls total (multiply count (objgetarmordamage gSource location))) (objRepairArmor gSource location (max 1 (divide (subtract (multiply count (objgetarmordamage gSource location)) total) (multiply 2 count))))))))) ###
06/20/2015 15:15:24	Exception in if; arg = ((itmIsDamaged gItem) (shpRepairItem gSource gItem))
06/20/2015 15:15:24	Item d25c4326 Event [Wolfen-class gunship]: Exception in if; arg = ((itmIsDamaged gItem) (shpRepairItem gSource gItem)) [((itmIsDamaged gItem) (shpRepairItem gSource gItem))] ### (if (itmIsDamaged gItem) (shpRepairItem gSource gItem)) ###
06/20/2015 15:15:24	Crash in CCodeChainCtx::Run
06/20/2015 15:15:24	Crash in CCodeChainCtx::Run
06/20/2015 15:15:24	Crash in CBaseShipAI::UseItemsBehavior
06/20/2015 15:15:24	Unable to continue due to program error.

program state: OnAnimate
program state: updating object behavior
obj class: CShip
obj name: heavy IAV
obj pointer: 14ef1948
m_pDocked: 2b422d08 Rasiermesser Arms & Armor (CStation)
m_pExitGate: none
IOrderModule
m_Objs[0]: none
m_Objs[1]: none
game state: entering stargate


Please contact [email protected] with a copy of Debug.log and your save file. We are sorry for the inconvenience.