[Bug Fix] NPC not breaking charm correctly

EQEmu#947 and EQEmu#905
fixes the issue with charm breaking and spells being cast after to cause a faction war. this removes dots to stop faction wars also.

dot removal part needs better testing to ensure it works as intended

zone/spell_effects.cpp

@@ -4041,6 +4041,33 @@ void Mob::BuffFadeBySlot(int slot, bool iRecalcBonuses)
 				if (IsAIControlled())
 				{
 					// clear the hate list of the mobs
+					for (auto pMob : this->hate_list.GetHateList()) {
+						auto tar = pMob->entity_on_hatelist;
+						if (tar->IsCasting()) {
+							tar->InterruptSpell(tar->CastingSpellID());
+						}
+						uint32 buff_count = tar->GetMaxTotalSlots();
+						for (unsigned int j = 0; j < buff_count; j++) {
+							if (tar->GetBuffs()[j].spellid != SPELL_UNKNOWN) {
+								auto spell = spells[tar->GetBuffs()[j].spellid];
+								if (spell.goodEffect == 0 && IsEffectInSpell(spell.id, SE_CurrentHP) && tar->GetBuffs()[j].casterid == this->GetID()) {
+									tar->BuffFadeBySpellID(spell.id);
+								}
+							}
+						}
+					}
+					if (this->IsCasting()) {
+						this->InterruptSpell(this->CastingSpellID());
+					}
+					uint32 buff_count = this->GetMaxTotalSlots();
+					for (unsigned int j = 0; j < buff_count; j++) {
+						if (this->GetBuffs()[j].spellid != SPELL_UNKNOWN) {
+							auto spell = spells[this->GetBuffs()[j].spellid];
+							if (spell.goodEffect == 0 && IsEffectInSpell(spell.id, SE_CurrentHP)) {
+								this->BuffFadeBySpellID(spell.id);
+							}
+						}
+					}
 					entity_list.ReplaceWithTarget(this, tempmob);
 					WipeHateList();
 					if(tempmob)