using BotSharp.ToScript.Extension;
using Parse = Sanderling.Parse;
using System.Timers;
using BotEngine.Interface;
	// If the action is to WARN you: This script will warn you on a defined (by you) chan if neutrals or
//ennemies are in the scout current system and (if not docked or tethered) start warping between safe spots randomly
//during the neutral presence. (random planet or asteroid by default). It warns you by both anoing console beep AND
//write a predefined text in your peronnal intel chan, to make it blink so it visualy warns you on your main.
	// If the action is to WATCH: While not docked, in warp or tethered, the script will play a sound to warn you if a
//neutral or ennemy has entered your system.

// Be sure to have the local chan solo and visible. Be sure your intel chan is visible both on your scout AND your main... ("blink on" strongly recommended )
// If you have a safe spot folder, replace the "Ateroid Belts","Planets" folder by its name.
// Create your private chan, join it with your scout(s) and your main and define it as your PersonnalIntel.
// Start and fly safe.

														//		What do you want the script to do for you?		//
//WARN your main account with a scout placed in an other system or WATCH at your Local and beep when an ennemy enters yous system.
string Action = "WATCH"; // Here enter WARN or WATCH
													//		Where do you want the script to pick your warping spots?		//
string[] SafeSpots = {"Asteroid Belts","Planets"};
														//		Where do the script watch and where it warns 		//
string PersonnalIntel = "PersonnalIntel";
string ChanToScout = "Local";
														//		What do you want the script to write to warn you		//
string WarningText = "Neutral Or Ennemy in System XXX-xxx";
string ClearText = "System XXX-xxx Clear";



											//	//	//		No need to go further if you don't want to tcustomize the script		//	//	//


bool Tethered => Sanderling?.MemoryMeasurementParsed?.Value?.ShipUi?.EWarElement?.Any(status => (status?.EWarType).RegexMatchSuccess("tethering")) ?? false;
bool ReadyForManeuverNot =>	Sanderling?.MemoryMeasurementParsed?.Value?.ShipUi?.Indication?.LabelText?.Any(indicationLabel =>	(indicationLabel?.Text).RegexMatchSuccessIgnoreCase("warp|docking")) ?? false;
bool ReadyForManeuver => !ReadyForManeuverNot && !(Sanderling?.MemoryMeasurementParsed?.Value?.IsDocked ?? true);
bool WarpOut = false;
bool EmergencyWarpOutEnabled = false;

WindowChatChannel ChanLocal => Sanderling.MemoryMeasurementParsed?.Value?.WindowChatChannel?.FirstOrDefault(windowChat => windowChat?.Caption?.RegexMatchSuccessIgnoreCase(ChanToScout) ?? false);
WindowChatChannel ChanPersonnalIntel => Sanderling.MemoryMeasurementParsed?.Value?.WindowChatChannel?.FirstOrDefault(windowChat => windowChat?.Caption?.RegexMatchSuccessIgnoreCase(PersonnalIntel) ?? false);

Sanderling.Interface.MemoryStruct.IChatParticipantEntry[] Ennemies => ChanLocal?.Participant ?.Where(entry => !entry?.FlagIcon?.Any(flagIcon => new[] { "good standing", "excellent standing", "Pilot is in your (alliance|fleet|corporation)", } .Any(goodStandingText => flagIcon?.HintText?.RegexMatchSuccessIgnoreCase(goodStandingText) ?? false)) ?? false)?.ToArray() ?? null;
bool IsNeutralOrEnemy(IChatParticipantEntry participantEntry) =>   !(participantEntry?.FlagIcon?.Any(flagIcon => new[] { "good standing", "excellent standing", "Pilot is in your (alliance|fleet|corporation)", } .Any(goodStandingText => flagIcon?.HintText?.RegexMatchSuccessIgnoreCase(goodStandingText) ?? false)) ?? false);
bool hostileOrNeutralsInLocal => 1 != ChanLocal?.ParticipantView?.Entry?.Count(IsNeutralOrEnemy);
bool MeasurementEmergencyWarpOutEnter =>	hostileOrNeutralsInLocal ;


Host.Delay(8000);
Func<object> BotStopActivity = () => null;
Func<object> NextActivity = MainStep;
for(;;)
{	if(null == NextActivity)
		NextActivity = MainStep;
	NextActivity = NextActivity?.Invoke() as Func<object>;
}

Func<object> MainStep()
{	Host.Log("Mainstep");

	EmergencyWarpOutUpdate();
	if (EmergencyWarpOutEnabled)
	{	Host.Log("neutrals or ennemies"); Host.Delay(variation());	}
	else
	{	Host.Delay(variation(909,1212));	}

	Sanderling.InvalidateMeasurement();
	Sanderling.WaitForMeasurement();
	if(ShipManeuverTypeEnum.Warp == Sanderling?.MemoryMeasurementParsed?.Value?.ShipUi?.Indication?.ManeuverType)
		WarpOut = true;

	if (WarpOut == true)
	{	Host.Log("warping out");
		Host.Delay(variation());
		Sanderling.InvalidateMeasurement();
		Sanderling.WaitForMeasurement();
		goto loop11;
		loop:
		Host.Delay(variation());
		Sanderling.InvalidateMeasurement();
		Sanderling.WaitForMeasurement();
		loop11:
		if(ShipManeuverTypeEnum.Warp == Sanderling?.MemoryMeasurementParsed?.Value?.ShipUi?.Indication?.ManeuverType)
		{	goto loop;	}	//	do nothing while warping
		WarpOut = false;
	}

	if (EmergencyWarpOutEnabled && !Tethered && !(Sanderling?.MemoryMeasurementParsed?.Value.IsDocked ?? true))
		switch (Action)
		{	case "WARN":
				Turn();
				break;
			case "WATCH":
				Console.Beep(1500, 200); Host.Delay(150); Console.Beep(1500, 200); Host.Delay(variation(800,1200));
				break;
			default:
				Turn();
				break;
		}

	return MainStep;
}

Random rand => new System.Random();
int variation(int min=175, int max=350) {return rand.Next(min, max);}

T RandomElement<T>(IEnumerable<T> seq)
{	var counted = seq?.ToArray();
	if(!(0 < counted?.Length))
		return default(T);
	return counted[rand.Next(counted.Length)];
}

bool Turn()
{	Host.Log("Turning");
	var ListSurroundingsButton = Sanderling.MemoryMeasurementParsed?.Value?.InfoPanelCurrentSystem?.ListSurroundingsButton;
	Sanderling.MouseClickRight(ListSurroundingsButton);
	Host.Delay(variation());
	string SSFolderBookmark = RandomElement(SafeSpots);
	var FolderMenuEntry = Sanderling.MemoryMeasurementParsed?.Value?.Menu?.ElementAtOrDefault(0)?.EntryFirstMatchingRegexPattern("^" + SSFolderBookmark + "$", RegexOptions.IgnoreCase);
	Sanderling.MouseClickLeft(FolderMenuEntry);
	Host.Delay(variation());
	int NbSF = Sanderling.MemoryMeasurementParsed?.Value?.Menu?.ElementAtOrDefault(1)?.Entry?.Count()??0;
	var BookmarkMenuEntry = Sanderling.MemoryMeasurementParsed?.Value?.Menu?.ElementAtOrDefault(1)?.Entry?.ElementAtOrDefault(variation(0,NbSF));
	Sanderling.MouseClickLeft(BookmarkMenuEntry);
	Host.Delay(variation());
	var Menu = Sanderling?.MemoryMeasurementParsed?.Value?.Menu?.Last();
	var WarpMenuEntry = Menu?.EntryFirstMatchingRegexPattern(@"warp.*within\s*0",RegexOptions.IgnoreCase);
	if(null == WarpMenuEntry)
	{	return false;		}
	Host.Delay(variation());
	Sanderling.MouseClickLeft(WarpMenuEntry);

	WarpOut = true;
	return true;
}

void EmergencyWarpOutUpdate()
{	var WarnZone = ChanPersonnalIntel?.MessageInput;
	if (!MeasurementEmergencyWarpOutEnter)
	{	if (EmergencyWarpOutEnabled)
		{	if (Action == "WARN")
			{	Sanderling.MouseClickLeft(WarnZone);
				Sanderling.TextEntry(ClearText);
				Sanderling.KeyboardPress(VirtualKeyCode.RETURN);	}
		}
		EmergencyWarpOutEnabled = false;
		return;
	}
	Sanderling.InvalidateMeasurement();
	Sanderling.WaitForMeasurement();
	if (!MeasurementEmergencyWarpOutEnter)
	{	if (EmergencyWarpOutEnabled)
		{	if (Action == "WARN")
			{	Sanderling.MouseClickLeft(WarnZone);
				Sanderling.TextEntry(ClearText);
				Sanderling.KeyboardPress(VirtualKeyCode.RETURN);	}
		}
		EmergencyWarpOutEnabled = false;
		return;
	}

	if (!EmergencyWarpOutEnabled)
	{	if (Action == "WARN")
		{	Console.Beep(1500, 2200);
			Sanderling.MouseClickLeft(WarnZone);
			Sanderling.TextEntry(WarningText);
			Sanderling.KeyboardPress(VirtualKeyCode.RETURN);
		}
	}

	EmergencyWarpOutEnabled = true;
}