[Commands] Add #unmemspell and #unmemspells Commands. (#1867)

- Add #unmemspell [Spell ID] command to unmemorize a spell by ID from you or your target.
- Add #unmemspells command to unmemorize all spells from you or your target.
- Cleanup #memspell command and change arguments from #memspell [Slot] [Spell ID] to #memspell [Spell ID] [Spell Gem] for easier use.
- Add #memspell [Spell ID] functionality to memorize to first open spell gem if there are any using FindEmptyMemSlot helper method.
- Rename client->FindMemmedSpellByID(spell_id) to FindMemmedSpellBySpellID(spell_id).
- Add client->FindEmptyMemSlot() helper method.
- Add $client->FindEmptyMemSlot() to Perl.
- Add client:FindEmptyMemSlot() to Lua.
- Add $client->FindMemmedSpellBySpellID(spell_id) to Perl.
- Add client:FindMemmedSpellBySpellID(spell_id) to Lua.

zone/gm_commands/unmemspell.cpp

@@ -0,0 +1,68 @@
+#include "../client.h"
+
+void command_unmemspell(Client *c, const Seperator *sep)
+{
+	int arguments = sep->argnum;
+	if (
+		!arguments ||
+		!sep->IsNumber(1)
+	) {
+		c->Message(Chat::White, "Usage: #unmemspell [Spell ID]");
+		return;
+	}
+
+	auto target = c;
+	if (c->GetTarget() && c->GetTarget()->IsClient() && c->GetGM()) {
+		target = c->GetTarget()->CastToClient();
+	}
+
+	auto spell_id = static_cast<uint16>(std::stoul(sep->arg[1]));
+	if (!IsValidSpell(spell_id))  {
+		c->Message(
+			Chat::White,
+			fmt::format(
+				"Spell ID {} could not be found.",
+				spell_id
+			).c_str()
+		);
+		return;
+	}
+
+	auto spell_gem = target->FindMemmedSpellBySpellID(spell_id);
+	if (spell_gem == -1) {
+		c->Message(
+			Chat::White,
+			fmt::format(
+				"{} not have {} ({}) memorized.",
+				(
+					c == target ?
+					"You do" :
+					fmt::format(
+						"{} ({}) does",
+						target->GetCleanName(),
+						target->GetID()
+					)
+				),
+				GetSpellName(spell_id),
+				spell_id
+			).c_str()
+		);
+		return;
+	}
+
+	target->UnmemSpellBySpellID(spell_id);
+
+	if (c != target) {
+		c->Message(
+			Chat::White,
+			fmt::format(
+				"{} ({}) unmemorized for {} ({}) from spell gem {}.",
+				GetSpellName(spell_id),
+				spell_id,
+				target->GetCleanName(),
+				target->GetID(),
+				spell_gem
+			).c_str()
+		);
+	}
+}