#include "StdAfx.h"
#include "EmoteManager.h"
#include "WeenieObject.h"
#include "ChatMsgs.h"
#include "World.h"
#include "WeenieFactory.h"
#include "Player.h"
#include "SpellcastingManager.h"
#include "Config.h"
#include "GameEventManager.h"
#include "MonsterAI.h"

EmoteManager::EmoteManager(CWeenieObject *weenie)
{
	_weenie = weenie;
}

bool EmoteManager::ChanceExecuteEmoteSet(EmoteCategory category, std::string msg, DWORD target_id)
{
	PackableList<EmoteSet> *emoteCategory = _weenie->m_Qualities._emote_table->_emote_table.lookup(category);

	if (!emoteCategory)
		return false;

	float diceRoll = Random::RollDice(0.0, 1.0);

	for (auto &entry : *emoteCategory)
	{
		if (!_stricmp(entry.quest.c_str(), msg.c_str()) && diceRoll < entry.probability)
		{
			ExecuteEmoteSet(entry, target_id);
			return true;
		}
	}
	return false;
}

bool EmoteManager::ChanceExecuteEmoteSet(EmoteCategory category, DWORD target_id)
{
	PackableList<EmoteSet> *emoteCategory = _weenie->m_Qualities._emote_table->_emote_table.lookup(category);

	if (!emoteCategory)
		return false;

	float diceRoll = Random::RollDice(0.0, 1.0);

	for (auto &entry : *emoteCategory)
	{
		if (diceRoll < entry.probability)
		{
			ExecuteEmoteSet(entry, target_id);
			return true;
		}
	}
	return false;
}

void EmoteManager::ExecuteEmoteSet(const EmoteSet &emoteSet, DWORD target_id)
{
	if (_emoteEndTime < Timer::cur_time)
		_emoteEndTime = Timer::cur_time;

	double totalEmoteSetTime = 0.0;
	for (auto &emote : emoteSet.emotes)
	{
		totalEmoteSetTime += emote.delay;

		QueuedEmote qe;
		qe._data = emote;
		qe._target_id = target_id;
		qe._executeTime = Timer::cur_time + totalEmoteSetTime;
		_emoteQueue.push_back(qe);
	}
}

std::string EmoteManager::ReplaceEmoteText(const std::string &text, DWORD target_id, DWORD source_id)
{
	std::string result = text;

	if (result.find("%s") != std::string::npos)
	{
		std::string targetName;
		if (!g_pWorld->FindObjectName(target_id, targetName))
			return ""; // Couldn't resolve name, don't display this message.

		while (ReplaceString(result, "%s", targetName));
	}

	if (result.find("%tn") != std::string::npos)
	{
		std::string targetName;
		if (!g_pWorld->FindObjectName(target_id, targetName))
			return ""; // Couldn't resolve name, don't display this message.

		while (ReplaceString(result, "%tn", targetName));
	}

	if (result.find("%n") != std::string::npos)
	{
		std::string sourceName;
		if (!g_pWorld->FindObjectName(source_id, sourceName))
			return ""; // Couldn't resolve name, don't display this message.

		while (ReplaceString(result, "%n", sourceName));
	}

	if (result.find("%mn") != std::string::npos)
	{
		std::string sourceName;
		if (!g_pWorld->FindObjectName(source_id, sourceName))
			return ""; // Couldn't resolve name, don't display this message.

		while (ReplaceString(result, "%mn", sourceName));
	}

	if (result.find("%CDtime") != std::string::npos || result.find("%tqt") != std::string::npos)
	{
		CWeenieObject *target = g_pWorld->FindObject(target_id);

		if (!target)
			return ""; // Couldn't find target, don't display this message.

		std::string questString = target->Ktref(result.c_str()); //trims the "@TEXTSUFFIX" off of the quest name and returns the questflag to validate the quest timer against. 

		if (target->InqQuest(questString.c_str()))
		{
			int timeTilOkay = target->InqTimeUntilOkayToComplete(questString.c_str());

			if (timeTilOkay > 0)
			{
				std::string cdTime = TimeToString(timeTilOkay); //Converts time to string.

				if (result.find("%tqt") != std::string::npos)
				{
					result = "You must wait " + cdTime + " to complete this quest again.";//standard uncustomized msg returned when using wild card %tqt somewhere in the string. Should follow format "QuestStampToCheck@%tqt"
				}

				else
				{
					std::size_t prefixPos = result.find("@") + 1;
					std::string questText = result.substr(prefixPos); //Trims queststamp prefix from message string.
					while (ReplaceString(questText, "%CDtime", cdTime)); //Should follow format "QuestStampToCheck@Your message %CDtime more of your message." NOTE: Text message portion of string can be any sequence but must contain at least one instance of %CDtime.
					result = questText;
				}
			}
			else
			{
				return ""; //Quest timer has expired so return blank cooldown message OR no timer has been tracked in quests.json! Could set this to return a quest cooldown has expired message in the future.
			}
		}
	}

	return result;
}


void EmoteManager::ExecuteEmote(const Emote &emote, DWORD target_id)
{
	_weenie->m_Qualities.SetBool(EXECUTING_EMOTE, true);
	switch (emote.type)
	{
	default:
	{
#ifndef PUBLIC_BUILD
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (!target || !target->IsAdmin())
			break;

		target->SendText(csprintf("Unhandled emote %s (%u)", Emote::EmoteTypeToName(emote.type), emote.type), LTT_DEFAULT);
#endif
		break;
	}
	case Act_EmoteType:
	{
		std::string text = ReplaceEmoteText(emote.msg, target_id, _weenie->GetID());

		if (!text.empty())
		{
			BinaryWriter *textMsg = ServerText(text.c_str(), LTT_EMOTE);

			std::list<CWeenieObject *> results;
			g_pWorld->EnumNearbyPlayers(_weenie->GetPosition(), 30.0f, &results);

			for (auto target : results)
			{
				if (target == _weenie)
					continue;

				target->SendNetMessage(textMsg->GetData(), textMsg->GetSize(), PRIVATE_MSG, 0);
			}
			delete textMsg;
		}

		break;
	}
	case LocalBroadcast_EmoteType:
	{
		std::string text = ReplaceEmoteText(emote.msg, target_id, _weenie->GetID());

		if (!text.empty())
		{
			BinaryWriter *textMsg = ServerText(text.c_str(), LTT_DEFAULT);
			g_pWorld->BroadcastPVS(_weenie, textMsg->GetData(), textMsg->GetSize(), PRIVATE_MSG, 0, false);
			delete textMsg;
		}

		break;
	}
	case WorldBroadcast_EmoteType:
	{
		std::string text = ReplaceEmoteText(emote.msg, target_id, _weenie->GetID());

		if (!text.empty())
		{
			BinaryWriter *textMsg = ServerText(text.c_str(), LTT_DEFAULT);
			g_pWorld->BroadcastGlobal(textMsg->GetData(), textMsg->GetSize(), PRIVATE_MSG, 0, false);
			delete textMsg;
		}

		break;
	}
	case AdminSpam_EmoteType:
	{
		std::string text = ReplaceEmoteText(emote.msg, target_id, _weenie->GetID());

		if (!text.empty())
		{
			BinaryWriter *textMsg = ServerText(text.c_str(), LTT_ALL_CHANNELS);
			g_pWorld->BroadcastGlobal(textMsg->GetData(), textMsg->GetSize(), PRIVATE_MSG, 0, false);
			delete textMsg;
		}

		break;
	}
	case Activate_EmoteType:
	{
		if (DWORD activation_target_id = _weenie->InqIIDQuality(ACTIVATION_TARGET_IID, 0))
		{
			CWeenieObject *target = g_pWorld->FindObject(activation_target_id);
			if (target)
				target->Activate(target_id);
		}

		break;
	}
	case CastSpellInstant_EmoteType:
	{
		if (target_id == 0)
			target_id = _weenie->GetID();
		_weenie->MakeSpellcastingManager()->CastSpellInstant(target_id, emote.spellid);
		break;
	}
	case CastSpell_EmoteType:
	{
		if (target_id == 0)
			target_id = _weenie->GetID();
		_weenie->MakeSpellcastingManager()->CreatureBeginCast(target_id, emote.spellid);
		break;
	}
	case AwardXP_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (!target)
			break;

		long long amount = emote.amount64;

		amount = (int)(amount * g_pConfig->RewardXPMultiplier(target->InqIntQuality(LEVEL_INT, 0)));

		// If the amount is negative, we take the xp from the target.
		if (amount < 0)
		{
			long long available = target->m_Qualities.GetInt64(AVAILABLE_EXPERIENCE_INT64, 0);

			if (available - -amount >= 0)
			{
				target->m_Qualities.SetInt64(AVAILABLE_EXPERIENCE_INT64, available - -amount);
				target->NotifyInt64StatUpdated(AVAILABLE_EXPERIENCE_INT64);
				break;
			}
				
		}

		target->GiveSharedXP(amount, true);
		break;
	}
	case AwardNoShareXP_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (!target)
			break;

		long long amount = emote.amount64;

		amount = (int)(amount * g_pConfig->RewardXPMultiplier(target->InqIntQuality(LEVEL_INT, 0)));

		// If the amount is negative, we take the xp from the target.
		if (amount < 0)
		{
			long long available = target->m_Qualities.GetInt64(AVAILABLE_EXPERIENCE_INT64, 0);

			if (available - -amount >= 0)
			{
				target->m_Qualities.SetInt64(AVAILABLE_EXPERIENCE_INT64, available - -amount);
				target->NotifyInt64StatUpdated(AVAILABLE_EXPERIENCE_INT64);
				break;
			}

		}
		target->GiveXP(amount, true);
		break;
	}
	case AwardSkillXP_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (!target)
			break;

		Skill skill;
		target->m_Qualities.InqSkill((STypeSkill)emote.stat, skill);

		DWORD amount = emote.amount;
	
		//const DWORD amountNeededForMaxXp = skill.GetXpNeededForMaxXp();
		//amount = min(amount, amountNeededForMaxXp);

		//if (amount > 0)
			target->GiveSkillXP((STypeSkill)emote.stat, amount, false);
		break;
	}
	case AwardLevelProportionalSkillXP_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (!target)
			break;

		Skill skill;
		target->m_Qualities.InqSkill((STypeSkill)emote.stat, skill);

		if (skill._sac < TRAINED_SKILL_ADVANCEMENT_CLASS)
			break;

		int currentLevel = skill._level_from_pp;

		if (currentLevel <= 10)
			currentLevel += 5 - (currentLevel * 0.4);

		DWORD64 xp_to_next_level = ExperienceSystem::ExperienceToSkillLevel(TRAINED_SKILL_ADVANCEMENT_CLASS, currentLevel + 1) - ExperienceSystem::ExperienceToSkillLevel(TRAINED_SKILL_ADVANCEMENT_CLASS, currentLevel);

		DWORD64 xp_to_give = (DWORD64)round((long double)xp_to_next_level * emote.percent);
		if (emote.min > 0)
			xp_to_give = max(xp_to_give, emote.min64);
		if (emote.max > 0)
			xp_to_give = min(xp_to_give, emote.max64);

		//const DWORD64 amountNeededForMaxXp = skill.GetXpNeededForMaxXp();
		//xp_to_give = min(xp_to_give, amountNeededForMaxXp);

		//if (xp_to_give > 0)
			target->GiveSkillXP((STypeSkill)emote.stat, xp_to_give, false);
		break;
	}
	case AwardSkillPoints_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (!target)
			break;

		target->GiveSkillPoints((STypeSkill)emote.stat, emote.amount);
		break;
	}
	case AwardTrainingCredits_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (!target)
			break;

		target->GiveSkillCredits(emote.amount, true);
		break;
	}
	case AwardLevelProportionalXP_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (!target)
			break;

		int current_level = target->m_Qualities.GetInt(LEVEL_INT, 1);
		if (current_level == 275)
		{
			target->GiveXP(emote.max64, true, false);
			break;
		}
		else
		{
			DWORD64 xp_to_next_level = ExperienceSystem::ExperienceToRaiseLevel(current_level, current_level + 1);

			DWORD64 xp_to_give = (DWORD64)round((long double)xp_to_next_level * emote.percent);
			if (emote.min64 > 0)
				xp_to_give = max(xp_to_give, emote.min64);
			if (emote.max64 > 0)
				xp_to_give = min(xp_to_give, emote.max64);
			target->GiveXP(xp_to_give, true, false);
			break;
		}
	}
	case Give_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (!target)
			break;

		_weenie->SimulateGiveObject(target, emote.cprof.wcid, emote.cprof.stack_size, emote.cprof.palette, emote.cprof.shade, emote.cprof.try_to_bond);
		break;
	}
	case Motion_EmoteType:
	{
		_weenie->DoAutonomousMotion(OldToNewCommandID(emote.motion));
		break;
	}
	case ForceMotion_EmoteType:
	{
		_weenie->DoForcedMotion(OldToNewCommandID(emote.motion));
		break;
	}
	case PhysScript_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (target)
			target->EmitEffect(emote.pscript, 1.0);

		break;
	}
	case Say_EmoteType:
	{
		std::string text = ReplaceEmoteText(emote.msg, target_id, _weenie->GetID());

		if (!text.empty())
			_weenie->SpeakLocal(text.c_str(), LTT_EMOTE);

		break;
	}
	case Sound_EmoteType:
	{
		_weenie->EmitSound(emote.sound, 1.0);

		break;
	}
	case Tell_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (target)
		{
			std::string text = ReplaceEmoteText(emote.msg, target_id, _weenie->GetID());

			if (!text.empty())
				target->SendNetMessage(DirectChat(text.c_str(), _weenie->GetName().c_str(), _weenie->GetID(), target->GetID(), LTT_SPEECH_DIRECT), PRIVATE_MSG, TRUE);
		}

		break;
	}
	case InflictVitaePenalty_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (target)
		{
			target->UpdateVitaePool(0);
			target->ReduceVitae((float)emote.amount / 100.f);
			target->UpdateVitaeEnchantment();
		}

		break;
	}
	case TellFellow_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (target)
		{
			std::string text = ReplaceEmoteText(emote.msg, target_id, _weenie->GetID());

			if (text.empty())
				break;

			Fellowship *fellow = target->GetFellowship();

			if (!fellow)
			{
				target->SendNetMessage(DirectChat(text.c_str(), _weenie->GetName().c_str(), _weenie->GetID(), target->GetID(), LTT_SPEECH_DIRECT), PRIVATE_MSG, TRUE);
			}
			else
			{
				for (auto &entry : fellow->_fellowship_table)
				{
					if (CWeenieObject *member = g_pWorld->FindPlayer(entry.first))
					{
						member->SendNetMessage(DirectChat(text.c_str(), _weenie->GetName().c_str(), _weenie->GetID(), target->GetID(), LTT_SPEECH_DIRECT), PRIVATE_MSG, TRUE);
					}
				}
			}
		}

		break;
	}

	case LockFellow_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (target)
		{
			Fellowship *fellow = target->GetFellowship();

			if (fellow)
				fellow->_locked = true;
		}

		break;
	}

	case TextDirect_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (target)
		{
			std::string text = ReplaceEmoteText(emote.msg, target_id, _weenie->GetID());

			if (!text.empty())
				target->SendNetMessage(ServerText(text.c_str(), LTT_DEFAULT), PRIVATE_MSG, TRUE);
		}

		break;
	}
	case DirectBroadcast_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (target)
		{
			std::string text = ReplaceEmoteText(emote.msg, target_id, _weenie->GetID());

			if (!text.empty())
				target->SendNetMessage(ServerText(text.c_str(), LTT_DEFAULT), PRIVATE_MSG, TRUE);
		}

		break;
	}
	case BLog_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (target)
		{
			std::string text = ReplaceEmoteText(emote.msg, target_id, _weenie->GetID());

			if (!text.empty())
				target->SendNetMessage(ServerText(text.c_str(), LTT_COMBAT), PRIVATE_MSG, TRUE);
		}

		break;
	}
	case FellowBroadcast_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (target)
		{
			std::string text = ReplaceEmoteText(emote.msg, target_id, _weenie->GetID());

			if (text.empty())
				break;

			Fellowship *fellow = target->GetFellowship();

			if (!fellow)
			{
				target->SendNetMessage(ServerText(text.c_str(), LTT_DEFAULT), PRIVATE_MSG, TRUE);
			}
			else
			{
				for (auto &entry : fellow->_fellowship_table)
				{
					if (CWeenieObject *member = g_pWorld->FindPlayer(entry.first))
					{
						member->SendNetMessage(ServerText(text.c_str(), LTT_DEFAULT), PRIVATE_MSG, TRUE);
					}
				}
			}
		}

		break;
	}
	case TurnToTarget_EmoteType:
	{
		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			MovementParameters params;
			_weenie->TurnToObject(target_id, &params);
		}
		break;
	}
	case Turn_EmoteType:
	{
		MovementParameters params;
		params.desired_heading = emote.frame.get_heading();
		params.speed = 1.0f;
		params.action_stamp = ++_weenie->m_wAnimSequence;
		params.modify_interpreted_state = 0;
		_weenie->last_move_was_autonomous = false;

		_weenie->cancel_moveto();
		_weenie->TurnToHeading(&params);
		break;
	}
	case TeachSpell_EmoteType:
	{
		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			target->LearnSpell(emote.spellid, true);
		}
		break;
	}
	case InqEvent_EmoteType:
	{
		bool success = g_pGameEventManager->IsEventStarted(emote.msg.c_str());

		ChanceExecuteEmoteSet(success ? EventSuccess_EmoteCategory : EventFailure_EmoteCategory, emote.msg, target_id);
		break;
	}

	case StartEvent_EmoteType:
	{
		g_pGameEventManager->StartEvent(emote.msg.c_str());
		break;
	}

	case StopEvent_EmoteType:
	{
		g_pGameEventManager->StopEvent(emote.msg.c_str());
		break;
	}

	case InqQuest_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			bool success = target->InqQuest(emote.msg.c_str());

			ChanceExecuteEmoteSet(success ? QuestSuccess_EmoteCategory : QuestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}
	case InqFellowNum_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
		{
			break;
		}

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			Fellowship *fellow = target->GetFellowship();

			if (!fellow)
				ChanceExecuteEmoteSet(TestNoFellow_EmoteCategory, emote.msg, target_id);
			else
			{
				bool success = false;

				int numberOfMembers = (int)fellow->_fellowship_table.size();

				if (numberOfMembers >= emote.min && numberOfMembers <= emote.max)
					success = true;

				ChanceExecuteEmoteSet(success ? NumFellowsSuccess_EmoteCategory : NumFellowsFailure_EmoteCategory, emote.msg, target_id);
			}
		}

		break;
	}
	case InqFellowQuest_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
		{
			break;
		}

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			Fellowship *fellow = target->GetFellowship();

			if (!fellow)
				ChanceExecuteEmoteSet(QuestNoFellow_EmoteCategory, emote.msg, target_id);
			else
			{
				bool success = false;

				for (auto &entry : fellow->_fellowship_table)
				{
					if (CWeenieObject *member = g_pWorld->FindObject(entry.first))
					{
						success = member->InqQuest(emote.msg.c_str());

						if (success)
							break;
					}
				}

				ChanceExecuteEmoteSet(success ? QuestSuccess_EmoteCategory : QuestFailure_EmoteCategory, emote.msg, target_id);
			}
		}

		break;
	}
	case UpdateQuest_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			bool success = target->UpdateQuest(emote.msg.c_str());

			ChanceExecuteEmoteSet(success ? QuestSuccess_EmoteCategory : QuestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}
	case StampQuest_EmoteType:
	{
		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target && emote.msg.find("@#kt") != std::string::npos)  //if @#kt found in quest string this is a killtask call collect data pass to killtask func.
		{
			auto kCountName = target->Ktref(emote.msg.c_str()); //trims the @#kt off of the quest name and returns the questflag used by the quest for stamping/validation

			std::string mobName;
			_weenie->m_Qualities.InqString((STypeString)1, mobName);

			killTask(mobName, kCountName.c_str(), target_id);
			break;
		}

		if (target)
		{
			target->StampQuest(emote.msg.c_str());
		}

	}
	break;

	case StampFellowQuest_EmoteType:
	{
		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			Fellowship *fellow = target->GetFellowship();

			if (fellow)
			{
				for (auto &entry : fellow->_fellowship_table)
				{
					if (CWeenieObject *member = g_pWorld->FindObject(entry.first))
					{
						member->StampQuest(emote.msg.c_str());
					}
				}
			}
		}

		break;
	}
	case UpdateFellowQuest_EmoteType:
	{
		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			Fellowship *fellow = target->GetFellowship();
			if (!fellow)
				ChanceExecuteEmoteSet(QuestNoFellow_EmoteCategory, emote.msg, target_id);
			else
			{
				/*
				bool success = false;

				for (auto &entry : fellow->_fellowship_table)
				{
					if (CWeenieObject *member = g_pWorld->FindObject(entry.first))
					{
						success = member->UpdateQuest(emote.msg.c_str());

						if (success)
							break;
					}
				}

				PackableList<EmoteSet> *emoteCategory = _weenie->m_Qualities._emote_table->_emote_table.lookup(success ? QuestSuccess_EmoteCategory : QuestFailure_EmoteCategory);
				if (!emoteCategory)
					break;

				for (auto &entry : *emoteCategory)
				{
					if (!_stricmp(entry.quest.c_str(), emote.msg.c_str()))
					{
						// match
						ExecuteEmoteSet(entry, target_id);
						break;
					}
				}
				*/

				target->SendText("Unsupported quest logic, please report to Pea how you received this.", LTT_DEFAULT);

				ChanceExecuteEmoteSet(QuestFailure_EmoteCategory, emote.msg, target_id);
			}
		}

		break;
	}
	case IncrementQuest_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			target->IncrementQuest(emote.msg.c_str());
		}

		break;
	}
	case DecrementQuest_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			target->DecrementQuest(emote.msg.c_str());
		}

		break;
	}
	case EraseQuest_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			target->EraseQuest(emote.msg.c_str());
		}

		break;
	}
	case Goto_EmoteType:
	{
		ChanceExecuteEmoteSet(GotoSet_EmoteCategory, emote.msg, target_id);
	}
	case InqBoolStat_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			bool success = false;
			bool hasQuality = false;

			int boolStat;
			if (target->m_Qualities.InqBool((STypeBool)emote.stat, boolStat))
			{
				hasQuality = true;
				if (boolStat > 0)
					success = true;
			}

			if (!hasQuality && ChanceExecuteEmoteSet(TestNoQuality_EmoteCategory, emote.msg, target_id))
				break; //if we have a TestNoQuality_EmoteCategory break otherwise try the categories below.
			ChanceExecuteEmoteSet(success ? TestSuccess_EmoteCategory : TestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}
	case InqIntStat_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			bool success = false;
			bool hasQuality = false;

			int intStat;
			if (target->m_Qualities.InqInt((STypeInt)emote.stat, intStat))
			{
				hasQuality = true;
				if (intStat >= emote.min && intStat <= emote.max)
				{
					success = true;
				}
			}

			if (!hasQuality && ChanceExecuteEmoteSet(TestNoQuality_EmoteCategory, emote.msg, target_id))
				break; //if we have a TestNoQuality_EmoteCategory break otherwise try the categories below.
			ChanceExecuteEmoteSet(success ? TestSuccess_EmoteCategory : TestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}
	case InqFloatStat_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			bool success = false;
			bool hasQuality = false;

			double floatStat;
			if (target->m_Qualities.InqFloat((STypeFloat)emote.stat, floatStat))
			{
				hasQuality = true;
				if (floatStat >= emote.fmin && floatStat <= emote.fmax)
					success = true;
			}

			if (!hasQuality && ChanceExecuteEmoteSet(TestNoQuality_EmoteCategory, emote.msg, target_id))
				break; //if we have a TestNoQuality_EmoteCategory break otherwise try the categories below.
			ChanceExecuteEmoteSet(success ? TestSuccess_EmoteCategory : TestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}
	case InqStringStat_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			bool success = false;
			bool hasQuality = false;

			std::string stringStat;
			if (target->m_Qualities.InqString((STypeString)emote.stat, stringStat))
			{
				hasQuality = true;
				if (stringStat == emote.teststring)
					success = true;
			}

			if (!hasQuality && ChanceExecuteEmoteSet(TestNoQuality_EmoteCategory, emote.msg, target_id))
				break; //if we have a TestNoQuality_EmoteCategory break otherwise try the categories below.
			ChanceExecuteEmoteSet(success ? TestSuccess_EmoteCategory : TestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}
	case InqAttributeStat_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			bool success = false;
			bool hasQuality = false;

			DWORD attributeStat;
			if (target->m_Qualities.InqAttribute((STypeAttribute)emote.stat, attributeStat, FALSE))
			{
				hasQuality = true;
				if (attributeStat >= emote.min && attributeStat <= emote.max)
					success = true;
			}

			if (!hasQuality && ChanceExecuteEmoteSet(TestNoQuality_EmoteCategory, emote.msg, target_id))
				break; //if we have a TestNoQuality_EmoteCategory break otherwise try the categories below.
			ChanceExecuteEmoteSet(success ? TestSuccess_EmoteCategory : TestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}
	case InqRawAttributeStat_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			bool success = false;
			bool hasQuality = false;

			DWORD attributeStat;
			if (target->m_Qualities.InqAttribute((STypeAttribute)emote.stat, attributeStat, TRUE))
			{
				hasQuality = true;
				if (attributeStat >= emote.min && attributeStat <= emote.max)
					success = true;
			}

			if (!hasQuality && ChanceExecuteEmoteSet(TestNoQuality_EmoteCategory, emote.msg, target_id))
				break; //if we have a TestNoQuality_EmoteCategory break otherwise try the categories below.
			ChanceExecuteEmoteSet(success ? TestSuccess_EmoteCategory : TestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}
	case InqSecondaryAttributeStat_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			bool success = false;
			bool hasQuality = false;

			DWORD attribute2ndStat;
			if (target->m_Qualities.InqAttribute2nd((STypeAttribute2nd)emote.stat, attribute2ndStat, FALSE))
			{
				hasQuality = true;
				if (attribute2ndStat >= emote.min && attribute2ndStat <= emote.max)
					success = true;
			}

			if (!hasQuality && ChanceExecuteEmoteSet(TestNoQuality_EmoteCategory, emote.msg, target_id))
				break; //if we have a TestNoQuality_EmoteCategory break otherwise try the categories below.
			ChanceExecuteEmoteSet(success ? TestSuccess_EmoteCategory : TestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}
	case InqRawSecondaryAttributeStat_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			bool success = false;
			bool hasQuality = false;

			DWORD attribute2ndStat;
			if (target->m_Qualities.InqAttribute2nd((STypeAttribute2nd)emote.stat, attribute2ndStat, TRUE))
			{
				hasQuality = true;
				if (attribute2ndStat >= emote.min && attribute2ndStat <= emote.max)
					success = true;
			}

			if (!hasQuality && ChanceExecuteEmoteSet(TestNoQuality_EmoteCategory, emote.msg, target_id))
				break; //if we have a TestNoQuality_EmoteCategory break otherwise try the categories below.
			ChanceExecuteEmoteSet(success ? TestSuccess_EmoteCategory : TestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}
	case InqSkillTrained_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			bool success = false;

			SKILL_ADVANCEMENT_CLASS sac = SKILL_ADVANCEMENT_CLASS::UNTRAINED_SKILL_ADVANCEMENT_CLASS;
			bool hasQuality = target->m_Qualities.InqSkillAdvancementClass((STypeSkill)emote.stat, sac);

			if (sac == TRAINED_SKILL_ADVANCEMENT_CLASS || sac == SPECIALIZED_SKILL_ADVANCEMENT_CLASS)
				success = true;

			if (!hasQuality && ChanceExecuteEmoteSet(TestNoQuality_EmoteCategory, emote.msg, target_id))
				break; //if we have a TestNoQuality_EmoteCategory break otherwise try the categories below.
			ChanceExecuteEmoteSet(success ? TestSuccess_EmoteCategory : TestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}
	case InqSkillSpecialized_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			bool success = false;

			SKILL_ADVANCEMENT_CLASS sac = SKILL_ADVANCEMENT_CLASS::UNTRAINED_SKILL_ADVANCEMENT_CLASS;
			bool hasQuality = target->m_Qualities.InqSkillAdvancementClass((STypeSkill)emote.stat, sac);

			if (sac == SPECIALIZED_SKILL_ADVANCEMENT_CLASS)
				success = true;

			if (!hasQuality && ChanceExecuteEmoteSet(TestNoQuality_EmoteCategory, emote.msg, target_id))
				break; //if we have a TestNoQuality_EmoteCategory break otherwise try the categories below.
			ChanceExecuteEmoteSet(success ? TestSuccess_EmoteCategory : TestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}
	case InqSkillStat_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			bool success = false;
			bool hasQuality = false;

			DWORD skillStat;
			if (target->m_Qualities.InqSkill((STypeSkill)emote.stat, skillStat, FALSE))
			{
				hasQuality = true;
				if (skillStat >= emote.min && skillStat <= emote.max)
				{
					success = true;
				}
			}

			if (!hasQuality && ChanceExecuteEmoteSet(TestNoQuality_EmoteCategory, emote.msg, target_id))
				break; //if we have a TestNoQuality_EmoteCategory break otherwise try the categories below.
			ChanceExecuteEmoteSet(success ? TestSuccess_EmoteCategory : TestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}
	case InqRawSkillStat_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			bool success = false;
			bool hasQuality = false;

			DWORD skillStat;
			if (target->m_Qualities.InqSkill((STypeSkill)emote.stat, skillStat, TRUE))
			{
				hasQuality = true;
				if (skillStat >= emote.min && skillStat <= emote.max)
				{
					success = true;
				}
			}

			if (!hasQuality && ChanceExecuteEmoteSet(TestNoQuality_EmoteCategory, emote.msg, target_id))
				break; //if we have a TestNoQuality_EmoteCategory break otherwise try the categories below.
			ChanceExecuteEmoteSet(success ? TestSuccess_EmoteCategory : TestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}
	case InqQuestSolves_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			bool success = false;

			int intQuestSolves = target->InqQuestSolves(emote.msg.c_str());

			if (intQuestSolves >= emote.min && intQuestSolves <= emote.max)
				success = true;

			ChanceExecuteEmoteSet(success ? QuestSuccess_EmoteCategory : QuestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}
	case SetIntStat_EmoteType:
	{
		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			target->m_Qualities.SetInt((STypeInt)emote.stat, emote.amount);
			target->NotifyIntStatUpdated((STypeInt)emote.stat, FALSE);
		}
		break;
	}
	case IncrementIntStat_EmoteType:
	{
		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			int intStat = target->InqIntQuality((STypeInt)emote.stat, 0, TRUE) + 1;
			target->m_Qualities.SetInt((STypeInt)emote.stat, intStat);
			target->NotifyIntStatUpdated((STypeInt)emote.stat, FALSE);
		}
		break;
	}
	case DecrementIntStat_EmoteType:
	{
		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			int intStat = target->InqIntQuality((STypeInt)emote.stat, 0, TRUE) - 1;
			target->m_Qualities.SetInt((STypeInt)emote.stat, intStat);
			target->NotifyIntStatUpdated((STypeInt)emote.stat, FALSE);
		}
		break;
	}
	case CreateTreasure_EmoteType:
	{
		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target && target->AsContainer())
			target->AsContainer()->SpawnTreasureInContainer((eTreasureCategory)emote.treasure_type, emote.wealth_rating, emote.treasure_class);
		break;
	}
	case ResetHomePosition_EmoteType:
	{
		CMonsterWeenie *monster = _weenie->AsMonster();
		if (monster && monster->m_MonsterAI)
			monster->m_MonsterAI->SetHomePosition(monster->m_Position);

		_weenie->SetInitialPosition(_weenie->m_Position);
		break;
	}
	case MoveHome_EmoteType:
	{
		CMonsterWeenie *monster = _weenie->AsMonster();
		if (monster && monster->m_MonsterAI)
			monster->m_MonsterAI->SwitchState(ReturningToSpawn);
		else
		{
			//Position destination;
			//_weenie->m_Qualities.InqPosition(INSTANTIATION_POSITION, destination);

			//if (destination.objcell_id)
			//{
			//	MovementParameters params;
			//	params.desired_heading = destination.frame.get_heading();

			//	MovementStruct mvs;
			//	mvs.type = MovementTypes::MoveToPosition;
			//	mvs.pos = destination;
			//	mvs.params = &params;

			//	_weenie->last_move_was_autonomous = false;
			//	_weenie->movement_manager->PerformMovement(mvs);
			//}

			//todo: make creatures that do not normally have an AI(vendors/etc) move home.
			//Position initialPos;
			//if (_weenie->m_Qualities.InqPosition(INSTANTIATION_POSITION, initialPos) && initialPos.objcell_id)
			//{
			//	_weenie->Movement_Teleport(initialPos, false);
			//}
		}
		break;
	}
	case Move_EmoteType:
	{
		//Position destination = _weenie->m_Position.add_offset(emote.frame.m_origin);
		//destination.frame.m_origin.z = CalcSurfaceZ(destination.objcell_id, destination.frame.m_origin.x, destination.frame.m_origin.y);

		//MovementParameters params;
		//params.desired_heading = emote.frame.get_heading();

		//MovementStruct mvs;
		//mvs.type = MovementTypes::MoveToPosition;
		//mvs.pos = destination;
		//mvs.params = &params;

		//_weenie->last_move_was_autonomous = false;
		//_weenie->movement_manager->PerformMovement(mvs);

		break;
	}
	case SetSanctuaryPosition_EmoteType:
	{
		if (!emote.mPosition)
		{
			CWeenieObject *target = g_pWorld->FindObject(target_id);
			if (target)
			{
				target->SetInitialPosition(target->m_Position);
				target->m_Qualities.SetPosition(SANCTUARY_POSITION, target->m_Position);
			}
		}
		else
		{
			CWeenieObject *target = g_pWorld->FindObject(target_id);
			if (target)
			{
				target->m_Qualities.SetPosition(SANCTUARY_POSITION, emote.mPosition);
			}
		}

		break;
	}
	case InqInt64Stat_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			bool success = false;
			bool hasQuality = false;

			long long intStat64;
			if (target->m_Qualities.InqInt64((STypeInt64)emote.stat, intStat64))
			{
				hasQuality = true;
				if (intStat64 >= emote.min64 && intStat64 <= emote.max64)
				{
					success = true;
				}
			}

			if (!hasQuality && ChanceExecuteEmoteSet(TestNoQuality_EmoteCategory, emote.msg, target_id))
				break; //if we have a TestNoQuality_EmoteCategory break otherwise try the categories below.
			ChanceExecuteEmoteSet(success ? TestSuccess_EmoteCategory : TestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}

	case SetQuestCompletions_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);

		if (target)
		{
			target->SetQuestCompletions(emote.msg.c_str(), emote.amount);
		}
		break;
	}

	case Generate_EmoteType: //type:72 adds from generator table attached to weenie. Sets init value of generator table and calls weenie factory to begin generation. Can use same emote with value of 0 in amount field to disable generator.
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		_weenie->m_Qualities.SetInt((STypeInt)82, emote.amount);
		_weenie->GenerateOnDemand(emote.amount);

		break;
	}

	case PopUp_EmoteType: //type: 68 causes a popup message to appear with a with the text from emote.msg and an OK dialog button.
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);

		if (target)
		{

			BinaryWriter popupMessage;
			popupMessage.Write<DWORD>(0x4);
			popupMessage.WriteString(emote.msg);

			target->SendNetMessage(&popupMessage, PRIVATE_MSG, TRUE, FALSE);

		}
		break;
	}

	case InqYesNo_EmoteType: //type: 75 causes a popup message to appear with a with the text from emote.msg and Yes/No dialog buttons.
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);

		if (target)
		{
			BinaryWriter yesnoMessage;
			yesnoMessage.Write<DWORD>(0x274);	// Message Type
			yesnoMessage.Write<DWORD>(0x07);		// Confirm type (Yes/No)
			yesnoMessage.Write<int>(_weenie->id);			// Sequence number ?? context id
			yesnoMessage.WriteString(emote.teststring);

			target->SendNetMessage(&yesnoMessage, PRIVATE_MSG, TRUE, FALSE);

			_confirmMsgList[target_id] = emote.msg;
		}
		break;
	}

	case InqOwnsItems_EmoteType: //type: 76 checks to see if a particular item and count exists in pack.
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);

		DWORD itemWCID = emote.cprof.wcid;
		int itemAmount = emote.cprof.stack_size;
		bool success = false;

		if (target)
		{
			if (target->GetItemCount(itemWCID) >= itemAmount)
				success = true;

			ChanceExecuteEmoteSet(success ? TestSuccess_EmoteCategory : TestFailure_EmoteCategory, emote.msg, target_id);
		}
		break;
	}

	case TakeItems_EmoteType: //type: 74 removes items from pack.
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);

		DWORD itemWCID = emote.cprof.wcid;
		unsigned int itemAmount = emote.cprof.stack_size;
		CWeenieObject *dummyitem = g_pWeenieFactory->CreateWeenieByClassID(itemWCID, NULL, false);
		std::string dummyname = "";
		std::string substring = "";

		if (target && dummyitem)
		{
			unsigned int targetCnt = target->GetItemCount(itemWCID);

			if (targetCnt >= itemAmount || itemAmount == -1)
			{
				target->ConsumeItem(std::min(targetCnt, itemAmount), itemWCID);

				if (itemAmount > 1)
				{
					dummyname = dummyitem->GetPluralName();
					if (itemAmount == -1)
						substring = "all of your";
					else
						substring = csprintf("%d of your", itemAmount);
				}
				else
				{
					dummyname = dummyitem->GetName();
					substring = "a";
				}

				target->SendText(csprintf("You hand over %s %s.", substring.c_str(), dummyname.c_str()), LTT_DEFAULT);

			}
		}

		if (dummyitem)
			dummyitem->Destroy();

		break;
	}
	case UntrainSkill_EmoteType: //type: 110 changes skill to untrained and returns the approriate number of skill credits. Acts like a skill lowering gem with minor tweaks.
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *player = g_pWorld->FindObject(target_id)->AsPlayer();
		STypeSkill skillToAlter = (STypeSkill)emote.stat;

		if (player)
		{
			Skill skill;
			if (!player->m_Qualities.InqSkill(skillToAlter, skill))
			{
				break;
			}

			int numSkillCredits = player->InqIntQuality(AVAILABLE_SKILL_CREDITS_INT, 0, TRUE);

			switch (skill._sac)
			{
			default:
				break;

			case SPECIALIZED_SKILL_ADVANCEMENT_CLASS:
			{
				SkillTable *pSkillTable = SkillSystem::GetSkillTable();
				const SkillBase *pSkillBase = pSkillTable->GetSkillBase(skillToAlter);
				if (pSkillBase != NULL)
				{

					HeritageGroup_CG *heritageGroup = CachedCharGenData->mHeritageGroupList.lookup(player->InqIntQuality(HERITAGE_GROUP_INT, 0, true));
					if (heritageGroup)
					{
						//first we check our heritage specific skills as we cannot untrain those.
						for (DWORD i = 0; i < heritageGroup->mSkillList.num_used; i++)
						{
							if (heritageGroup->mSkillList.array_data[i].skillNum == skillToAlter)
							{
								DWORD64 xpToAward = skill._pp;
								skill._sac = TRAINED_SKILL_ADVANCEMENT_CLASS;
								skill._pp = 526;
								skill._level_from_pp = 5;
								skill._init_level = 0;
								player->m_Qualities.SetSkill(skillToAlter, skill);
								player->NotifySkillStatUpdated(skillToAlter);

								numSkillCredits += pSkillBase->_specialized_cost - pSkillBase->_trained_cost;
								player->m_Qualities.SetInt(AVAILABLE_SKILL_CREDITS_INT, numSkillCredits);
								player->NotifyIntStatUpdated(AVAILABLE_SKILL_CREDITS_INT);

								if (xpToAward > 0)
								{
									player->m_Qualities.SetInt64(AVAILABLE_EXPERIENCE_INT64, player->InqInt64Quality(AVAILABLE_EXPERIENCE_INT64, 0) + xpToAward);
									player->NotifyInt64StatUpdated(AVAILABLE_EXPERIENCE_INT64);
								}

								player->SendText(csprintf("Your %s skill has been reset.  All the experience that you spent on this skill have been refunded to you.", pSkillBase->_name.c_str()), LTT_DEFAULT);
								break;
							}
						}

						// break here on Arcane as the _trained_cost is actually 4 but should be treated as if it was 0.
						if (skillToAlter == ARCANE_LORE_SKILL)
							break;

					}
					if (pSkillBase->_trained_cost > 0)
					{
						bool isTinker = (skillToAlter == SALVAGING_SKILL ||
							skillToAlter == WEAPON_APPRAISAL_SKILL ||
							skillToAlter == ARMOR_APPRAISAL_SKILL ||
							skillToAlter == MAGIC_ITEM_APPRAISAL_SKILL ||
							skillToAlter == ITEM_APPRAISAL_SKILL);

						if (isTinker)
						{
							numSkillCredits += pSkillBase->_trained_cost; // We only want to return the trained cost (as there was no credit cost to spec tinkering skills).
						}
						else
						{
							numSkillCredits += pSkillBase->_specialized_cost;
						}
						player->m_Qualities.SetInt(AVAILABLE_SKILL_CREDITS_INT, numSkillCredits);
						player->NotifyIntStatUpdated(AVAILABLE_SKILL_CREDITS_INT);

						DWORD64 xpToAward = 0;

						xpToAward = skill._pp;
						skill._sac = UNTRAINED_SKILL_ADVANCEMENT_CLASS;
						skill._pp = 0;
						skill._level_from_pp = ExperienceSystem::SkillLevelFromExperience(skill._sac, skill._pp);
						skill._init_level = 0;

						player->m_Qualities.SetSkill(skillToAlter, skill);
						player->NotifySkillStatUpdated(skillToAlter);

						if (xpToAward > 0)
						{
							player->m_Qualities.SetInt64(AVAILABLE_EXPERIENCE_INT64, player->InqInt64Quality(AVAILABLE_EXPERIENCE_INT64, 0) + xpToAward);
							player->NotifyInt64StatUpdated(AVAILABLE_EXPERIENCE_INT64);
						}

						player->SendText(csprintf("Your specialized %s skill has been removed. All the experience and skill credits that you spent on this skill have been refunded to you.", pSkillBase->_name.c_str()), LTT_DEFAULT);
					}
					else
					{
						//Salvaging is NEVER unspec'd once spec'd (no credit skill - just xp. So only return xp on unspec).
						DWORD64 xpToAward = skill._pp;
						if (skillToAlter == SALVAGING_SKILL)
						{
							skill._init_level = 10;
							skill._pp = 0;
							skill._level_from_pp = 5;
						}
						else
						{
							skill._sac = TRAINED_SKILL_ADVANCEMENT_CLASS;
							skill._pp = 526;
							skill._level_from_pp = 5;
							skill._init_level = 0;
						}
						player->m_Qualities.SetSkill(skillToAlter, skill);
						player->NotifySkillStatUpdated(skillToAlter);

						if (xpToAward > 0)
						{
							player->m_Qualities.SetInt64(AVAILABLE_EXPERIENCE_INT64, player->InqInt64Quality(AVAILABLE_EXPERIENCE_INT64, 0) + xpToAward);
							player->NotifyInt64StatUpdated(AVAILABLE_EXPERIENCE_INT64);
						}

						player->SendText(csprintf("Your %s skill has been reset.  All the experience that you spent on this skill have been refunded to you.", pSkillBase->_name.c_str()), LTT_DEFAULT);

					}
				}


				break;
			}

			case TRAINED_SKILL_ADVANCEMENT_CLASS:
			{
				SkillTable *pSkillTable = SkillSystem::GetSkillTable();
				const SkillBase *pSkillBase = pSkillTable->GetSkillBase(skillToAlter);

				if (pSkillBase != NULL)
				{

					HeritageGroup_CG *heritageGroup = CachedCharGenData->mHeritageGroupList.lookup(player->InqIntQuality(HERITAGE_GROUP_INT, 0, true));
					if (heritageGroup)
					{
						//first we check our heritage specific skills as we cannot untrain those.
						for (DWORD i = 0; i < heritageGroup->mSkillList.num_used; i++)
						{
							if (heritageGroup->mSkillList.array_data[i].skillNum == skillToAlter)
							{
								DWORD64 xpToAward = skill._pp;
								skill._pp = 526;
								skill._level_from_pp = 5;
								skill._init_level = 0;
								player->m_Qualities.SetSkill(skillToAlter, skill);
								player->NotifySkillStatUpdated(skillToAlter);

								if (xpToAward > 0)
								{
									player->m_Qualities.SetInt64(AVAILABLE_EXPERIENCE_INT64, player->InqInt64Quality(AVAILABLE_EXPERIENCE_INT64, 0) + xpToAward);
									player->NotifyInt64StatUpdated(AVAILABLE_EXPERIENCE_INT64);
								}

								player->SendText(csprintf("Your %s skill has been reset.  All the experience that you spent on this skill have been refunded to you.", pSkillBase->_name.c_str()), LTT_DEFAULT);
								break;
							}
						}

						if (skillToAlter == ARCANE_LORE_SKILL)
							break;

					}

					if (pSkillBase->_trained_cost > 0)
					{
						numSkillCredits += pSkillBase->_trained_cost;
						player->m_Qualities.SetInt(AVAILABLE_SKILL_CREDITS_INT, numSkillCredits);
						player->NotifyIntStatUpdated(AVAILABLE_SKILL_CREDITS_INT);

						DWORD64 xpToAward = skill._pp;
						skill._pp = 0;

						skill._sac = UNTRAINED_SKILL_ADVANCEMENT_CLASS;
						skill._level_from_pp = ExperienceSystem::SkillLevelFromExperience(skill._sac, skill._pp);
						skill._init_level = 0;
						player->m_Qualities.SetSkill(skillToAlter, skill);
						player->NotifySkillStatUpdated(skillToAlter);

						if (xpToAward > 0)
						{
							player->m_Qualities.SetInt64(AVAILABLE_EXPERIENCE_INT64, player->InqInt64Quality(AVAILABLE_EXPERIENCE_INT64, 0) + xpToAward);
							player->NotifyInt64StatUpdated(AVAILABLE_EXPERIENCE_INT64);
						}

						player->SendText(csprintf("Your trained %s skill has been removed. All the experience and skill credits that you spent on this skill have been refunded to you.", pSkillBase->_name.c_str()), LTT_DEFAULT);

					}
					else
					{
						DWORD64 xpToAward = skill._pp;
						skill._pp = 0;
						skill._level_from_pp = 5;
						skill._init_level = 0;
						player->m_Qualities.SetSkill(skillToAlter, skill);
						player->NotifySkillStatUpdated(skillToAlter);

						if (xpToAward > 0)
						{
							player->m_Qualities.SetInt64(AVAILABLE_EXPERIENCE_INT64, player->InqInt64Quality(AVAILABLE_EXPERIENCE_INT64, 0) + xpToAward);
							player->NotifyInt64StatUpdated(AVAILABLE_EXPERIENCE_INT64);
						}

						player->SendText(csprintf("Your %s skill has been reset.  All the experience that you spent on this skill have been refunded to you.", pSkillBase->_name.c_str()), LTT_DEFAULT);

					}
				}

				break;
			}
			}


		}
		break;
	}
	case SpendLuminance_EmoteType: //type: 112 spends luminance.
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);

		long long amount = emote.heroxp64;
		long long lum = target->m_Qualities.GetInt64(AVAILABLE_LUMINANCE_INT64, 0);

		if (target)
		{
			if (lum < amount)
				break;

			target->m_Qualities.SetInt64(AVAILABLE_LUMINANCE_INT64, lum - amount);
			target->NotifyInt64StatUpdated(AVAILABLE_LUMINANCE_INT64, false);
		}
		break;
	}
	case AwardLuminance_EmoteType:
	{
		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (!target)
			break;

		long long amount = emote.heroxp64;

		if (amount < 0)
			amount = 0;

		target->GiveSharedLum(amount, true);
		break;
	}
	case SetInt64Stat_EmoteType:
	{
		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			target->m_Qualities.SetInt64((STypeInt64)emote.stat, emote.amount);
			target->NotifyInt64StatUpdated((STypeInt64)emote.stat, FALSE);
		}
		break;
	}

	case DeleteSelf_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		_weenie->MarkForDestroy();
		break;
	}

	case KillSelf_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CMonsterWeenie *monster = _weenie->AsMonster();
		if (monster && !monster->IsDead() && !monster->IsInPortalSpace() && !monster->IsBusyOrInAction())
		{
			monster->SetHealth(0, true);
			monster->OnDeath(monster->GetID());
		}

		break;

	}

	case SetBoolStat_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		if (emote.extent == 2) //if extent is 2 then set bool on self.
		{
			_weenie->m_Qualities.SetBool((STypeBool)emote.stat, emote.amount);
			_weenie->NotifyBoolStatUpdated((STypeBool)emote.stat, FALSE);
		}

		else
		{
			CWeenieObject *target = g_pWorld->FindObject(target_id);
			if (target)
			{
				target->m_Qualities.SetBool((STypeBool)emote.stat, emote.amount);
				target->NotifyBoolStatUpdated((STypeBool)emote.stat, FALSE);
			}
		}

		break;
	}
	case InqPackSpace_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CPlayerWeenie *target = g_pWorld->FindPlayer(target_id);
		if (target)
		{
			bool success = false;
			if (target->Container_GetNumFreeMainPackSlots() >= emote.amount)
				success = true;

			ChanceExecuteEmoteSet(success ? TestSuccess_EmoteCategory : TestFailure_EmoteCategory, emote.msg, target_id);
		}

		break;
	}
	case TeleportTarget_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			target->Movement_Teleport(emote.mPosition, false);
		}

		break;
	}
	case TeleportSelf_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		_weenie->Movement_Teleport(emote.mPosition, false);
		break;
	}
	case SetFloatStat_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		if (emote.extent == 2) //if extent is 2 then set float on self.
		{
			_weenie->m_Qualities.SetFloat((STypeFloat)emote.stat, emote.percent);
			_weenie->NotifyFloatStatUpdated((STypeFloat)emote.stat, FALSE);
		}

		else
		{
			CWeenieObject *target = g_pWorld->FindObject(target_id);
			if (target)
			{
				target->m_Qualities.SetFloat((STypeFloat)emote.stat, emote.percent);
				target->NotifyFloatStatUpdated((STypeFloat)emote.stat, FALSE);
			}
		}
	}
	case StartBarber_EmoteType:
	{
		if (!_weenie->m_Qualities._emote_table)
			break;

		CWeenieObject *player = g_pWorld->FindObject(target_id)->AsPlayer();

		if (player)
		{
			BinaryWriter writer;
			writer.Write<DWORD>(0x75);
			writer.Write<DWORD>(player->InqDIDQuality(PALETTE_BASE_DID, 0));
			writer.Write<DWORD>(player->InqDIDQuality(HEAD_OBJECT_DID, 0));
			writer.Write<DWORD>(0); // Head Texture - TODO find where this is stored.
			writer.Write<DWORD>(0); // Default Head Texture - TODO find where this is stored.
			writer.Write<DWORD>(player->InqDIDQuality(EYES_TEXTURE_DID, 0));
			writer.Write<DWORD>(player->InqDIDQuality(DEFAULT_EYES_TEXTURE_DID, 0));
			writer.Write<DWORD>(player->InqDIDQuality(NOSE_TEXTURE_DID, 0));
			writer.Write<DWORD>(player->InqDIDQuality(DEFAULT_NOSE_TEXTURE_DID, 0));
			writer.Write<DWORD>(player->InqDIDQuality(MOUTH_TEXTURE_DID, 0));
			writer.Write<DWORD>(player->InqDIDQuality(DEFAULT_MOUTH_TEXTURE_DID, 0));
			writer.Write<DWORD>(player->InqDIDQuality(SKIN_PALETTE_DID, 0));
			writer.Write<DWORD>(player->InqDIDQuality(HAIR_PALETTE_DID, 0));
			writer.Write<DWORD>(player->InqDIDQuality(EYES_PALETTE_DID, 0));
			writer.Write<DWORD>(player->InqDIDQuality(SETUP_DID, 0));
			if (player->m_Qualities.GetInt(HERITAGE_GROUP_INT, 0) == Empyrean_HeritageGroup)
			{
				if (player->m_Qualities.GetDID(MOTION_TABLE_DID, 0) == 0x900020D)
					writer.Write<int>(1);
				else
					writer.Write<int>(0);
			}
			else if (player->m_Qualities.GetInt(HERITAGE_GROUP_INT, 0) == Undead_HeritageGroup)
			{
				// Option1 for Undead - TODO check for head flame enabled, if yes, send 1, else 0.
				writer.Write<int>(0);
			}
			else
				writer.Write<int>(0);

			writer.Write<int>(0); // Option2 - Unused?
			player->SendNetMessage(&writer, PRIVATE_MSG, FALSE, FALSE);
		}

		break;
	}
	}
	_weenie->m_Qualities.SetBool(EXECUTING_EMOTE, false);
}


bool EmoteManager::IsExecutingAlready()
{
	return _weenie->m_Qualities.GetBool(EXECUTING_EMOTE, false);
}

bool EmoteManager::HasQueue()
{
	return !_emoteQueue.empty();
}

void EmoteManager::Tick()
{
	if (_emoteQueue.empty())
		return;

	for (std::list<QueuedEmote>::iterator i = _emoteQueue.begin(); i != _emoteQueue.end();)
	{
		if (i->_executeTime > Timer::cur_time || _weenie->IsBusyOrInAction() || _weenie->IsMovingTo())
			break;

		ExecuteEmote(i->_data, i->_target_id);

		//Check if emote queue is empty due to KillSelf_emoteType
		if (_emoteQueue.empty())
			return;

		i = _emoteQueue.erase(i);
		if (i != _emoteQueue.end())
			i->_executeTime = Timer::cur_time + i->_data.delay;
	}
}

void EmoteManager::Cancel()
{
	_emoteQueue.clear();
}

void EmoteManager::OnDeath(DWORD killer_id)
{
	Cancel();

	if (_weenie->m_Qualities._emote_table)
		ChanceExecuteEmoteSet(Death_EmoteCategory, killer_id);
}

void EmoteManager::killTask(std::string mobName, std::string kCountName, DWORD target_id)
{
	{
		CWeenieObject *target = g_pWorld->FindObject(target_id);
		if (target)
		{
			Fellowship *fellow = target->GetFellowship(); //are we in a fellowship

			if (!fellow) //nope
			{
				bool success = target->InqQuest(kCountName.c_str()); //are we flagged for this quest?

				if (success)
				{
					killTaskSub(mobName, kCountName, target); //execute stamping and messaging.
				}
			}
			else //We are in a fellow 
			{
				CWorldLandBlock *block = target->GetBlock(); //set mob killed location.
				for (auto &entry : fellow->_fellowship_table) //for each entry of the fellow table.
				{
					if (CWeenieObject *member = g_pWorld->FindObject(entry.first))
					{
						if (member->GetBlock() == block) //are we local to the killed mob?
						{
							bool success = member->InqQuest(kCountName.c_str()); //are we flagged for this quest?

							if (success)
							{
								killTaskSub(mobName, kCountName, member); //execute stamping and messaging for this member of the fellow.
							}
						}
					}
				}
			}
		}
	}

}

void EmoteManager::killTaskSub(std::string &mobName, std::string &kCountName, CWeenieObject *targormember)
{
	targormember->StampQuest(kCountName.c_str()); //yes, stamp quest
	int intQuestSolves = targormember->InqQuestSolves(kCountName.c_str()); //set quest solves to variable 
	auto strQuestSolves = std::to_string(intQuestSolves); //convert int to string (we need integer value and string value)

	int intMaxQsolves = targormember->InqQuestMax(kCountName.c_str()); //what is this quests max solves?
	auto strMaxQsolves = std::to_string(intMaxQsolves); //Convert to string (we need integer value and string value)

	std::string text;
	if (intQuestSolves < intMaxQsolves) //if quest solves are less than max execute inprogress msg.
	{
		text = "You have killed " + strQuestSolves + " " + mobName + "s. You must kill " + strMaxQsolves + " to complete your task!";
	}
	else //send msg quest complete msg
	{
		text = "You have killed " + strMaxQsolves + " " + mobName + "s. Your task is complete!"; //NOTE: that the stamping functionality will exceed the max. so using questSolves instead of maxQsolves is prone to irregular numbers at completion.
	}

	if (!text.empty()) //send message
	{
		targormember->SendNetMessage(ServerText(text.c_str(), LTT_DEFAULT), PRIVATE_MSG, TRUE);
	}
}

void EmoteManager::ConfirmationResponse(bool accepted, DWORD target_id)
{
	if (!_confirmMsgList.empty())
	{
		if (_confirmMsgList.find(target_id) != _confirmMsgList.end())
		{
			ChanceExecuteEmoteSet(accepted ? TestSuccess_EmoteCategory : TestFailure_EmoteCategory, _confirmMsgList[target_id], target_id);
			_confirmMsgList.erase(target_id);
		}
	}
}