;//runscript "BJScripts/EVE/Test Scripts/Ammo_ChangeAmmo.iss"

function main()
{
	variable index:module _inMyModules
	variable iterator MyModules_Index_Iterator
	variable index:item _inInventory_MiningCrystals_Index
	variable iterator Inventory_MiningCrystals_Index_Iterator

	echo ${Time}: \agStarting Change Ammo Script!

	MyShip:GetModules[_inMyModules]
	_inMyModules:GetIterator[MyModules_Index_Iterator]

	if ${MyModules_Index_Iterator:First(exists)}
	{
		do
		{
			if ${MyShip.Module[${MyModules_Index_Iterator.Value}].ToItem.Slot.Find[HiSlot]}
			{
				echo ${Time}: \atModule Slot: [${MyShip.Module[${MyModules_Index_Iterator.Value}].ToItem.Slot}] Module Name: [${MyShip.Module[${MyModules_Index_Iterator.Value}].ToItem.Name}] Module ID: [${MyModules_Index_Iterator.Value}]

				MyShip:GetCargo[_inInventory_MiningCrystals_Index, "GroupID = 482"]
				_inInventory_MiningCrystals_Index:GetIterator[Inventory_MiningCrystals_Index_Iterator]

				if ${Inventory_MiningCrystals_Index_Iterator:First(exists)}
				{
					do
					{
						if ${Inventory_MiningCrystals_Index_Iterator.Value.Name.Find["Plagioclase"]}
						{
							echo ${Time}: \aoAmmo Name: [${Inventory_MiningCrystals_Index_Iterator.Value.Name}] Ammo ID: [${Inventory_MiningCrystals_Index_Iterator.Value.ID}]
							MyShip.Module[${MyModules_Index_Iterator.Value}]:ChangeAmmo[${Inventory_MiningCrystals_Index_Iterator.Value.ID}]
						;	MyModules_Index_Iterator.Value:ChangeAmmo[${Inventory_MiningCrystals_Index_Iterator.Value.ID}]
							wait 40
							break
						}
					}
					while ${Inventory_MiningCrystals_Index_Iterator:Next(exists)}
				}
			}
		}
		while ${MyModules_Index_Iterator:Next(exists)}
	}

	echo ${Time}: \arEnding Change Ammo Script!
}