#include "../bot_command.h"

void bot_command_depart(Client* c, const Seperator* sep)
{
	if (helper_command_alias_fail(c, "bot_command_depart", sep->arg[0], "depart")) {
		c->Message(Chat::White, "note: Tells bots to list their port locations or port to a specific location.");

		return;
	}

	if (helper_is_help_or_usage(sep->arg[1])) {
		BotCommandHelpParams p;

		p.description = { "Tells bots to list their port locations or port to a specific location." };
		p.notes =
		{
			"- This will interrupt any spell currently being cast by bots told to use the command.",
			"- Bots will still check to see if they have the spell in their spell list, whether the target is immune, spell is allowed and all other sanity checks for spells"
		};
		p.example_format = { fmt::format("{} [list | zone shortname] [optional: single | group | ae] [actionable, default: spawned]", sep->arg[0]) };
		p.examples_one =
		{
			"To tell everyone to list their portable locations:",
			fmt::format("{} list spawned",
				sep->arg[0]
			)
		};
		p.examples_two =
		{
			"To tell all bots to port to Nexus:",
			fmt::format(
				"{} nexus spawned",
				sep->arg[0]
			)
		};
		p.examples_three =
		{
			"To tell Druidbot to single target port to Butcher:",
			fmt::format(
				"{} butcher single byname Druidbot",
				sep->arg[0]
			)
		};
		p.actionables = { "target, byname, ownergroup, ownerraid, targetgroup, namesgroup, healrotationtargets, mmr, byclass, byrace, spawned" };

		std::string popup_text = c->SendBotCommandHelpWindow(p);
		popup_text = DialogueWindow::Table(popup_text);

		c->SendPopupToClient(sep->arg[0], popup_text.c_str());

		if (RuleB(Bots, SendClassRaceOnHelp)) {
			c->Message(
				Chat::Yellow,
				fmt::format(
					"Use {} for information about race/class IDs.",
					Saylink::Silent("^classracelist")
				).c_str()
			);
		}

		return;
	}

	bool single = false;
	bool group = true;
	bool ae = false;
	std::string single_arg = sep->arg[2];
	bool list = false;
	std::string destination = sep->arg[1];
	int ab_arg = 2;
	
	if (!single_arg.compare("single")) {
		++ab_arg;
		single = true;
		group = false;
	}
	else if (!single_arg.compare("group")) {
		++ab_arg;
		single = false;
		group = true;
	}
	else if (!single_arg.compare("ae")) {
		++ab_arg;
		single = false;
		group = false;
		ae = true;
	}

	if (!destination.compare("list") || destination.empty()) {
		list = true;

		if (destination.empty()) {
			c->Message(
				Chat::Yellow,
				fmt::format(
					"Use {} for information regarding this command.",
					Saylink::Silent(
						fmt::format("{} help", sep->arg[0])
					)
				).c_str()
			);
		}
	}

	Mob* tar = c->GetTarget();

	if (!tar) {
		tar = c;
	}

	std::string arg_string = sep->arg[ab_arg];

	const int ab_mask = ActionableBots::ABM_Type1;
	std::string actionable_arg = sep->arg[ab_arg];

	if (actionable_arg.empty()) {
		actionable_arg = "spawned";
	}

	std::string class_race_arg = sep->arg[ab_arg];
	bool class_race_check = false;

	if (!class_race_arg.compare("byclass") || !class_race_arg.compare("byrace")) {
		class_race_check = true;
	}

	std::vector<Bot*> sbl;

	if (ActionableBots::PopulateSBL(c, actionable_arg, sbl, ab_mask, !class_race_check ? sep->arg[ab_arg + 1] : nullptr, class_race_check ? atoi(sep->arg[ab_arg + 1]) : 0) == ActionableBots::ABT_None) {
		return;
	}

	sbl.erase(std::remove(sbl.begin(), sbl.end(), nullptr), sbl.end());

	BotSpell bot_spell;
	bot_spell.SpellId = 0;
	bot_spell.SpellIndex = 0;
	bot_spell.ManaCost = 0;

	bool is_success = false;
	std::map<std::string, std::pair<uint8_t, uint8_t>> list_zones;

	for (auto bot_iter : sbl) {
		if (!bot_iter->ValidStateCheck(c)) {
			continue;
		}

		std::vector<BotSpell_wPriority> bot_spell_list_itr = bot_iter->GetPrioritizedBotSpellsBySpellType(bot_iter, BotSpellTypes::Teleport, tar);

		for (std::vector<BotSpell_wPriority>::iterator itr = bot_spell_list_itr.begin(); itr != bot_spell_list_itr.end(); ++itr) {
			if (!IsValidSpell(itr->SpellId)) {
				continue;
			}

			if (
				(single && spells[itr->SpellId].target_type != ST_Target) ||
				(group && !IsGroupSpell(itr->SpellId)) ||
				(ae && !IsAnyAESpell(itr->SpellId))
			) {
				continue;
			}

			if (list) {
				auto it = list_zones.find(spells[itr->SpellId].teleport_zone);

				if (it != list_zones.end()) {
					const auto& [val1, val2] = it->second;

					if (val1 == spells[itr->SpellId].target_type && val2 == bot_iter->GetClass()) {
						continue;
					}
				}

				bot_iter->RaidGroupSay(
					fmt::format(
						"I can port you to {}.",
						Saylink::Silent(
							fmt::format(
								"{} {} {} byname {}",
								sep->arg[0],
								spells[itr->SpellId].teleport_zone,
								(spells[itr->SpellId].target_type == ST_Target ? "single" : (IsGroupSpell(itr->SpellId) ? "group" : "ae")),
								bot_iter->GetCleanName()
							).c_str()
							, ZoneLongName(ZoneID(spells[itr->SpellId].teleport_zone)))
					).c_str()
				);

				list_zones.insert({ spells[itr->SpellId].teleport_zone, {spells[itr->SpellId].target_type, bot_iter->GetClass()} });

				continue;
			}

			if (destination.compare(spells[itr->SpellId].teleport_zone)) {
				continue;
			}

			bot_iter->SetCommandedSpell(true);

			if (!IsValidSpell(itr->SpellId)) {
				continue;
			}

			if (BotRequiresLoSToCast(BotSpellTypes::Teleport, itr->SpellId) && !bot_iter->HasLoS()) {
				continue;
			}

			if (IsInvulnerabilitySpell(itr->SpellId)) {
				tar = bot_iter; //target self for invul type spells
			}

			if (bot_iter->IsCommandedSpell() && bot_iter->IsCasting()) {
				bot_iter->RaidGroupSay(
					fmt::format(
						"Interrupting {}. I have been commanded to try to cast a [{}] spell, {} on {}.",
						bot_iter->CastingSpellID() ? spells[bot_iter->CastingSpellID()].name : "my spell",
						bot_iter->GetSpellTypeNameByID(BotSpellTypes::Teleport),
						spells[itr->SpellId].name,
						tar->GetCleanName()
					).c_str()
				);

				bot_iter->InterruptSpell();
			}

			if (bot_iter->CastSpell(itr->SpellId, tar->GetID(), EQ::spells::CastingSlot::Gem2, -1, -1)) {
				if (BotSpellTypeUsesTargetSettings(BotSpellTypes::Teleport)) {
					bot_iter->SetCastedSpellType(UINT16_MAX);
				}
				else {
					bot_iter->SetCastedSpellType(BotSpellTypes::Teleport);
				}

				bot_iter->RaidGroupSay(
					fmt::format(
						"Casting {} [{}] on {}.",
						GetSpellName(itr->SpellId),
						bot_iter->GetSpellTypeNameByID(BotSpellTypes::Teleport),
						(tar == bot_iter ? "myself" : tar->GetCleanName())
					).c_str()
				);

				is_success = true;
			}

			bot_iter->SetCommandedSpell(false);

			if (is_success) {
				return;
			}
			else {
				continue;
			}
		}
	}

	if (
		(list && list_zones.empty()) || 
		(!list && !is_success)
	) {
		c->Message(
			Chat::Yellow,
			fmt::format(
				"No bots are capable of that on {}. Be sure they are in the same group, raid or raid group if necessary.",
				tar ? tar->GetCleanName() : "you"
			).c_str()
		);
	}
}