;///////////////
;Takes 1 parameter:
;;Combat for combat drones
;;Mining for mining drones
;///////////////
;runscript "BJScripts/EVE/Test Scripts/Drone_Engage.iss"

variable index:int64 _inActiveDrones

function main(string _sDroneType)
{
	echo ${Time}: \ag Starting Drone Test...

	call launch_drones "${_sDroneType.Escape}"
	wait 20
	if ${_sDroneType.Equal[Combat]}
	{
		echo ${Time}: Sending drones to attack!
		EVE:DronesEngageMyTarget[_inActiveDrones]
	}
	elseif ${_sDroneType.Equal[Mining]}
	{
		echo ${Time}: Sending drones to mine!
		EVE:DronesMineRepeatedly[_inActiveDrones]
	}
}

function launch_drones(string _sDroneType)
{
	variable index:item MyDroneBayCargo
	variable iterator MyDroneBayCargo_Iterator
	variable int DroneGroupID

	MyShip:GetDrones[MyDroneBayCargo]
	MyDroneBayCargo:GetIterator[MyDroneBayCargo_Iterator]

	if ${_sDroneType.Equal[Combat]}
	{
		DroneGroupID:Set[100]
	}
	elseif ${_sDroneType.Equal[Mining]}
	{
		DroneGroupID:Set[101]
	}

	if ${MyDroneBayCargo_Iterator:First(exists)}
	{
		do
		{
			if ${MyDroneBayCargo_Iterator.Value.GroupID} == ${DroneGroupID} && ${_inActiveDrones.Used} < 5
				_inActiveDrones:Insert[${MyDroneBayCargo_Iterator.Value.ID}]
		}
		while ${MyDroneBayCargo_Iterator:Next(exists)}

		echo ${Time}: Active Drone Index equals 5? [${_inActiveDrones.Used}] -- Launching [${_sDroneType}] Drones!
		EVE:LaunchDrones[_inActiveDrones]
	}
}

function atexit()
{
	echo ${Time}: \ar Stopping Drone Test...
}