ClientPrint(null,2,"DEBUG: Script activated!\n");

::DebugText <- function()
{
	ClientPrint(null,2,"DEBUG: Script is reachable.\n");
}
::GetOutputs <- function(outputName)
{
	local newOutputsTable = {};
	ClientPrint(null,2,"DEBUG: Getting output table of " + self.GetName() + "...\n");
	if (outputName == "OnCase")
	{
		ClientPrint(null,2,"Output is OnCase!\n");
		for (local j = 1; j <= 16; j+=1)
		{
			if (j < 10)
			{
				for (local i = 0; i < EntityOutputs.GetNumElements(self, outputName + "0" + j.tostring()); i+=1)
				{
					ClientPrint(null,2, "Getting output " + outputName + "0" + j.tostring())
					EntityOutputs.GetOutputTable(self, outputName + "0" + j.tostring(), newOutputsTable, i);
					foreach(idx,val in newOutputsTable)
					{
						if (idx != "times_to_fire")
							ClientPrint(null,2,idx+": "+val+"\n");
					}
				}
			}
			else if (j >= 10)
			{
				for (local i = 0; i < EntityOutputs.GetNumElements(self, outputName + j.tostring()); i+=1)
				{
					ClientPrint(null,2, "Getting output " + outputName + j.tostring())
					EntityOutputs.GetOutputTable(self, outputName + j.tostring(), newOutputsTable, i);
					foreach(idx,val in newOutputsTable)
					{
						if (idx != "times_to_fire")
							ClientPrint(null,2,idx+": "+val+"\n");
					}
				}
			}
		}
	}
	else
	{
		ClientPrint(null,2, "Getting output " + outputName)
		for (local i = 0; i < EntityOutputs.GetNumElements(self, outputName); i+=1)
		{
			EntityOutputs.GetOutputTable(self, outputName, newOutputsTable, i);
			foreach(idx,val in newOutputsTable)
			{
				if (idx != "times_to_fire")
					ClientPrint(null,2,idx+": "+val+"\n");
			}
		}
	}
}