/*######
## npc_unworthy_initiate_anchor
######*/

enum
{
       SAY_START                       = -1609000,             // 8 texts in total, GetTextId() generates random with this as base
       SAY_AGGRO                       = -1609008,             // 8 texts in total, GetTextId() generates random with this as base

       //SPELL_CHAINED_PESANT_LH         = 54602,              // not used. possible it determine side, where to go get "weapon"
       //SPELL_CHAINED_PESANT_RH         = 54610,
       SPELL_CHAINED_PESANT_CHEST      = 54612,
       SPELL_CHAINED_PESANT_BREATH     = 54613,
       SPELL_INITIATE_VISUAL           = 51519,

       SPELL_BLOOD_STRIKE              = 52374,
       SPELL_DEATH_COIL                = 52375,
       SPELL_ICY_TOUCH                 = 52372,
       SPELL_PLAGUE_STRIKE             = 52373,

       NPC_ANCHOR                      = 29521,
       FACTION_MONSTER                 = 16,

       PHASE_INACTIVE_OR_COMBAT        = 0,
       PHASE_DRESSUP                   = 1,
       PHASE_ACTIVATE                  = 2
};

struct DisplayToSpell
{
       uint32 m_uiDisplayId;
       uint32 m_uiSpellToNewDisplay;
};

DisplayToSpell m_aDisplayToSpell[] =
{
       {25354, 51520},                    // human M
       {25355, 51534},                    // human F
       {25356, 51538},                    // dwarf M
       {25357, 51541},                    // draenei M
       {25358, 51535},                    // nelf M
       {25359, 51539},                    // gnome M
       {25360, 51536},                    // nelf F
       {25361, 51537},                    // dwarf F
       {25362, 51540},                    // gnome F
       {25363, 51542},                    // draenei F
       {25364, 51543},                    // orc M
       {25365, 51546},                    // troll M
       {25366, 51547},                    // tauren M
       {25367, 51549},                    // forsaken M
       {25368, 51544},                    // orc F
       {25369, 51552},                    // belf F
       {25370, 51545},                    // troll F
       {25371, 51548},                    // tauren F
       {25372, 51550},                    // forsaken F
       {25373, 51551}                    // belf M
};

struct MANGOS_DLL_DECL npc_unworthy_initiate_anchorAI : public ScriptedAI
{
       npc_unworthy_initiate_anchorAI(Creature* pCreature) : ScriptedAI(pCreature) { Reset(); }

       ObjectGuid m_myInitiateGuid;
       ObjectGuid m_myPrisonGuid;

       void Reset() {}

       void NotifyMe(Unit* pSource, GameObject* pGo)
       {
           m_myPrisonGuid = pGo->GetObjectGuid();
           Creature* pInitiate = m_creature->GetMap()->GetCreature(m_myInitiateGuid);

           if (pInitiate && pSource)
           {
               pInitiate->SetLootRecipient(pSource);
               m_creature->CastSpell(pInitiate,SPELL_CHAINED_PESANT_BREATH,true);
           }
       }

       void RegisterCloseInitiate(Creature* pCreature)
       {
           m_myInitiateGuid = pCreature->GetObjectGuid();
       }

       void ResetPrison()
       {
           if (GameObject* pPrison = m_creature->GetMap()->GetGameObject(m_myPrisonGuid))
               pPrison->ResetDoorOrButton();
       }
};

CreatureAI* GetAI_npc_unworthy_initiate_anchor(Creature* pCreature)
{
       return new npc_unworthy_initiate_anchorAI(pCreature);
}

/*######
## npc_unworthy_initiate
######*/

struct MANGOS_DLL_DECL npc_unworthy_initiateAI : public ScriptedAI
{
       npc_unworthy_initiateAI(Creature* pCreature) : ScriptedAI(pCreature)
       {
           m_pToTransform = NULL;

           uint32 uiDisplayCount = sizeof(m_aDisplayToSpell)/sizeof(DisplayToSpell);

           for (uint8 i=0; i<uiDisplayCount; ++i)
           {
               // check if we find a match, if not, it's NULL and produce error when used
               if (m_aDisplayToSpell[i].m_uiDisplayId == pCreature->GetDisplayId())
               {
                   m_pToTransform = &m_aDisplayToSpell[i];
                   break;
               }
           }

           m_uiNormFaction = pCreature->getFaction();
           Reset();
       }

       DisplayToSpell* m_pToTransform;

       ObjectGuid m_myAnchorGuid;
       uint32 m_uiNormFaction;
       uint32 m_uiAnchorCheckTimer;
       uint32 m_uiPhase;
       uint32 m_uiPhaseTimer;
       uint32 m_uiBloodStrike_Timer;
       uint32 m_uiDeathCoil_Timer;
       uint32 m_uiIcyTouch_Timer;
       uint32 m_uiPlagueStrike_Timer;

       void Reset()
       {
           if (m_creature->getFaction() != m_uiNormFaction)
               m_creature->setFaction(m_uiNormFaction);

           m_uiAnchorCheckTimer = 5000;
           m_uiPhase = PHASE_INACTIVE_OR_COMBAT;
           m_uiPhaseTimer = 7500;
           m_uiBloodStrike_Timer = 4000;
           m_uiDeathCoil_Timer = 6000;
           m_uiIcyTouch_Timer = 2000;
           m_uiPlagueStrike_Timer = 5000;
       }

       void JustReachedHome()
       {
           SetAnchor();

           if (Creature* pAnchor = GetAnchor())
           {
               if (npc_unworthy_initiate_anchorAI* pAnchorAI = dynamic_cast<npc_unworthy_initiate_anchorAI*>(pAnchor->AI()))
                   pAnchorAI->ResetPrison();
           }
       }

       void JustRespawned()
       {
           if (Creature* pAnchor = GetAnchor())
           {
               if (npc_unworthy_initiate_anchorAI* pAnchorAI = dynamic_cast<npc_unworthy_initiate_anchorAI*>(pAnchor->AI()))
                   pAnchorAI->ResetPrison();
           }

           Reset();
       }

       int32 GetTextId()
       {
           return m_uiPhase == PHASE_DRESSUP ? SAY_START-rand()%8 : SAY_AGGRO-rand()%8;
       }

       Creature* GetAnchor()
       {
           if (m_myAnchorGuid)
               return m_creature->GetMap()->GetCreature(m_myAnchorGuid);
           else
               return GetClosestCreatureWithEntry(m_creature, NPC_ANCHOR, INTERACTION_DISTANCE*2);
       }

       void SetAnchor()
       {
           if (Creature* pAnchor = GetAnchor())
           {
               if (npc_unworthy_initiate_anchorAI* pAnchorAI = dynamic_cast<npc_unworthy_initiate_anchorAI*>(pAnchor->AI()))
                   pAnchorAI->RegisterCloseInitiate(m_creature);

               pAnchor->CastSpell(m_creature, SPELL_CHAINED_PESANT_CHEST, false);
               m_myAnchorGuid = pAnchor->GetObjectGuid();

               m_uiAnchorCheckTimer = 0;
               return;
           }

           m_uiAnchorCheckTimer = 5000;
       }

       void SpellHit(Unit* pCaster, const SpellEntry* pSpell)
       {
           if (pSpell->Id == SPELL_CHAINED_PESANT_BREATH)
           {
               pCaster->InterruptNonMeleeSpells(true);
               m_creature->SetStandState(UNIT_STAND_STATE_STAND);

               m_uiPhase = PHASE_DRESSUP;

               if (Player* pSource = m_creature->GetLootRecipient())
                   DoScriptText(GetTextId(), m_creature, pSource);
           }
       }

       void UpdateAI(const uint32 uiDiff)
       {
           if (m_uiAnchorCheckTimer)
           {
               if (m_uiAnchorCheckTimer <= uiDiff)
                   SetAnchor();
               else
                   m_uiAnchorCheckTimer -= uiDiff;
           }

           if (m_uiPhase == PHASE_INACTIVE_OR_COMBAT)
           {
               if (!m_creature->SelectHostileTarget() || !m_creature->getVictim())
                   return;

               if (m_uiBloodStrike_Timer < uiDiff)
               {
                   DoCastSpellIfCan(m_creature->getVictim(),SPELL_BLOOD_STRIKE);
                   m_uiBloodStrike_Timer = 9000;
               }
               else
                   m_uiBloodStrike_Timer -= uiDiff;

               if (m_uiDeathCoil_Timer < uiDiff)
               {
                   DoCastSpellIfCan(m_creature->getVictim(),SPELL_DEATH_COIL);
                   m_uiDeathCoil_Timer = 8000;
               }
               else
                   m_uiDeathCoil_Timer -= uiDiff;

               if (m_uiIcyTouch_Timer < uiDiff)
               {
                   DoCastSpellIfCan(m_creature->getVictim(),SPELL_ICY_TOUCH);
                   m_uiIcyTouch_Timer = 8000;
               }
               else
                   m_uiIcyTouch_Timer -= uiDiff;

               if (m_uiPlagueStrike_Timer < uiDiff)
               {
                   DoCastSpellIfCan(m_creature->getVictim(),SPELL_PLAGUE_STRIKE);
                   m_uiPlagueStrike_Timer = 8000;
               }
               else
                   m_uiPlagueStrike_Timer -= uiDiff;

               DoMeleeAttackIfReady();
           }
           else
           {
               if (m_uiPhaseTimer < uiDiff)
               {
                   if (m_uiPhase == PHASE_DRESSUP)
                   {
                       if (m_pToTransform)
                       {
                           m_creature->CastSpell(m_creature, m_pToTransform->m_uiSpellToNewDisplay, true);
                           m_creature->CastSpell(m_creature, SPELL_INITIATE_VISUAL, false);
                       }
                       else
                           error_log("SD2: npc_unworthy_initiate does not have any spell associated with model");

                       m_uiPhase = PHASE_ACTIVATE;
                   }
                   else
                   {
                       m_creature->setFaction(FACTION_MONSTER);

                       m_uiPhase = PHASE_INACTIVE_OR_COMBAT;

                       if (Player* pTarget = m_creature->GetLootRecipient())
                       {
                           DoScriptText(GetTextId(), m_creature, pTarget);
                           AttackStart(pTarget);
                       }
                   }

                   m_uiPhaseTimer = 5000;
               }
               else
                   m_uiPhaseTimer -= uiDiff;
           }
       }
};

CreatureAI* GetAI_npc_unworthy_initiate(Creature* pCreature)
{
       return new npc_unworthy_initiateAI(pCreature);
}