/* Copyright (C) 2006 - 2008 ScriptDev2 <https://scriptdev2.svn.sourceforge.net/>
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/

/* ScriptData
SDName: Boss_Leotheras_The_Blind
SD%Complete: 90
SDComment: Missing Inner Demons proper spawn's
EndScriptData */

#include "../../../sc_defines.h"
#include "def_serpent_shrine.h"

#define SPELL_WHIRLWIND         40653
#define SPELL_CHAOS_BLAST       37675
// #define SPELL_INSIDIOUS_WHISPER 37676 // useless - dummy effect that can't be implemented
#define SPELL_BERSERK           27680
#define SPELL_BERSERKWHIRLWIND  37641
#define INNER_DEMON_ID          21857 // Temporary summon 5 demons in random players with aura
#define INNER_DEMON_AURA        37713 // Demonic Alignment aura

#define SAY_AGGRO               "Finally my banishment ends!"
#define SAY_SWITCH_TO_DEMON     "Be gone trifling elf. I'm in control now."
#define SAY_INNER_DEMONS        "We all have our demons..."
#define SAY_DEMON_SLAY1         "I have no equal."
#define SAY_DEMON_SLAY2         "Perish, mortal."
#define SAY_DEMON_SLAY3         "Yes, YES! Ahahah!"
#define SAY_NIGHTELF_SLAY1      "Kill! KILL!"
#define SAY_NIGHTELF_SLAY2      "That's right! Yes!"
#define SAY_NIGHTELF_SLAY3      "Who's the master now?"
#define SAY_FINAL_FORM          "No! NO! What have you done?! I am the master, do you hear me? I... aaghh... Can't... contain him..."
#define SAY_FREE                "At last I am liberated. It has been too long since I have tasted true freedom!"
#define SAY_DEATH               "You cannot kill me! Fools, I'll be back! I'll... aarghh..."

#define SOUND_AGGRO             11312
#define SOUND_SWITCH_TO_DEMON   11304
#define SOUND_INNER_DEMONS      11305
#define SOUND_DEMON_SLAY1       11306
#define SOUND_DEMON_SLAY2       11307
#define SOUND_DEMON_SLAY3       11308
#define SOUND_NIGHTELF_SLAY1    11314
#define SOUND_NIGHTELF_SLAY2    11315
#define SOUND_NIGHTELF_SLAY3    11316
#define SOUND_FINAL_FORM        11313
#define SOUND_FREE              11309
#define SOUND_DEATH             11317

#define MODEL_DEMON             14555
#define MODEL_NIGHTELF          20514

#define DEMON_FORM              21845

// BANISH PHASE
#define GREEN_BEAM                38909
#define BANISH_EFFECT            37833

float add1SPlace[4] =
{
    364.219208, -448.394073, 29.515247, 0.170111
};

float add2SPlace[4] =
{
    375.948334, -426.4744335, 29.524292, 4.982298
};

float add3SPlace[4] =
{
    396.755188, -433.087402, 30.189342, 3.782232
};


//Original Leotheras the Blind AI
struct MANGOS_DLL_DECL boss_leotheras_the_blindAI : public ScriptedAI
{
    boss_leotheras_the_blindAI(Creature *c) : ScriptedAI(c)
    {
        pInstance = (c->GetInstanceData()) ? ((ScriptedInstance*)c->GetInstanceData()) : NULL;
        Demon = 0;
        initialize();        
        EnterEvadeMode();
    }

    Creature *add1;
    Creature *add2;
    Creature *add3;

    ScriptedInstance *pInstance;

    uint32 Whirlwind_Timer;
    uint32 ChaosBlast_Timer;
    uint32 Switch_Timer;
    uint32 Berserk_Timer;
    uint32 Berserk_Whirlwind_Timer;

    bool DemonForm;
    bool IsFinalForm;
    bool InCombat;
    bool Berserk;
    
    bool spawned;
    bool relased;
    bool channeling[3];

    bool add1Dead;
    bool add2Dead;
    bool add3Dead;

    uint64 Demon;
    
    
    void initialize()
    {
        relased = false;
        spawned = false;
        relased = false;
        for(uint8 i = 0; i < 3; ++i)
            channeling[i] = false;

        add1Dead = false;
        add2Dead = false;
        add3Dead = false;

        add1 = NULL;
        add2 = NULL;
        add3 = NULL;
    }

    void Reset()
    {
        Whirlwind_Timer = 20000;
        ChaosBlast_Timer = 1000;
        Switch_Timer = 45000;
        Berserk_Timer = 600000;
        Berserk_Whirlwind_Timer = 15000;

        DemonForm = false;
        IsFinalForm = false;
        InCombat = false;
        Berserk = false;
        
        m_creature->SetUInt32Value(UNIT_FIELD_DISPLAYID, MODEL_NIGHTELF);
        
        //m_creature->RemoveAllAuras();
        //m_creature->DeleteThreatList();
        //m_creature->CombatStop();
        //DoGoHome();

        if(pInstance)
            pInstance->SetData(DATA_LEOTHERASTHEBLINDEVENT, 0);

        
    }

    void StartEvent()
    {
        if(!relased)
        {
            m_creature->CombatStop();
            return;
        }
        DoYell(SAY_AGGRO, LANG_UNIVERSAL, NULL);
        DoPlaySoundToSet(m_creature, SOUND_AGGRO);

        if(pInstance)
            pInstance->SetData(DATA_LEOTHERASTHEBLINDEVENT, 1);

        InCombat = true;
    }

    void KilledUnit(Unit *victim)
    {
        if(victim->GetTypeId() != TYPEID_PLAYER)
            return;

        if(DemonForm)
            switch(rand()%3)
            {
                case 0:
                DoYell(SAY_DEMON_SLAY1, LANG_UNIVERSAL, NULL);
                DoPlaySoundToSet(m_creature, SOUND_DEMON_SLAY1);
                break;

                case 1:
                DoYell(SAY_DEMON_SLAY2, LANG_UNIVERSAL, NULL);
                DoPlaySoundToSet(m_creature, SOUND_DEMON_SLAY2);
                break;

                case 2:
                DoYell(SAY_DEMON_SLAY3, LANG_UNIVERSAL, NULL);
                DoPlaySoundToSet(m_creature, SOUND_DEMON_SLAY3);
                break;
            }
        else
            switch(rand()%3)
            {
                case 0:
                DoYell(SAY_NIGHTELF_SLAY1, LANG_UNIVERSAL, NULL);
                DoPlaySoundToSet(m_creature, SOUND_NIGHTELF_SLAY1);
                break;

                case 1:
                DoYell(SAY_NIGHTELF_SLAY2, LANG_UNIVERSAL, NULL);
                DoPlaySoundToSet(m_creature, SOUND_NIGHTELF_SLAY2);
                break;

                case 2:
                DoYell(SAY_NIGHTELF_SLAY3, LANG_UNIVERSAL, NULL);
                DoPlaySoundToSet(m_creature, SOUND_NIGHTELF_SLAY3);
                break;
            }
    }

    void JustDied(Unit *victim)
    {
        DoYell(SAY_DEATH, LANG_UNIVERSAL, NULL);
        DoPlaySoundToSet(m_creature, SOUND_DEATH);

        //despawn copy
        if(Demon)
        {
            Unit *pUnit = NULL;
            pUnit = Unit::GetUnit((*m_creature), Demon);

            if(pUnit)
                pUnit->DealDamage(pUnit, pUnit->GetHealth(), NULL, DIRECT_DAMAGE, SPELL_SCHOOL_NORMAL, NULL, false);
        }

        if(pInstance)
            pInstance->SetData(DATA_LEOTHERASTHEBLINDEVENT, 0);
        
        // ustawia wskazniki add1,add2,add3 na NULl, spawned = false itd. (bez tego po respawnie nie było by addów)
        initialize();
    }

    void AttackStart(Unit *who)
    {
        if(!who && who != m_creature)
            return;

        if (who->isTargetableForAttack() && who!= m_creature)
        {
            //Begin melee attack if we are within range
            DoStartMeleeAttack(who);
            
            if(!InCombat)
                StartEvent();
        }
    }

    void MoveInLineOfSight(Unit *who)
    {
        if (!who || m_creature->getVictim())
            return;

        if (who->isTargetableForAttack() && who->isInAccessablePlaceFor(m_creature) && m_creature->IsHostileTo(who))
        {
            float attackRadius = m_creature->GetAttackDistance(who);
            if (m_creature->IsWithinDistInMap(who, attackRadius) && m_creature->GetDistanceZ(who) <= CREATURE_Z_ATTACK_RANGE && m_creature->IsWithinLOSInMap(who))
            {
                if(who->HasStealthAura())
                    who->RemoveSpellsCausingAura(SPELL_AURA_MOD_STEALTH);

                DoStartMeleeAttack(who);

                if(!InCombat)
                    StartEvent();
            }
        }
    }
// VICTIMSTATE_DODGE
    void UpdateAI(const uint32 diff)
    {
        banishPhase();
        //Return since we have no target
        if (!m_creature->SelectHostilTarget() || !m_creature->getVictim() )
            return;

        if(!DemonForm)
        {
            //Whirlwind_Timer
            if(Whirlwind_Timer < diff)
            {
                DoCast(m_creature, SPELL_WHIRLWIND);
                Whirlwind_Timer = 25000;
                ResetThreat();
            }else Whirlwind_Timer -= diff;

            if(Berserk == true && Berserk_Whirlwind_Timer < diff)
            {
                DoCast(m_creature, SPELL_BERSERKWHIRLWIND);
                Berserk_Whirlwind_Timer = 20000;
                ResetThreat();
            }else Berserk_Whirlwind_Timer -=diff;        

            //Switch_Timer
            if(!IsFinalForm)
                if(Switch_Timer < diff)
                {
                    //switch to demon form
                    m_creature->SetUInt32Value(UNIT_FIELD_DISPLAYID, MODEL_DEMON);
                    DoYell(SAY_SWITCH_TO_DEMON, LANG_UNIVERSAL, NULL);
                    DoPlaySoundToSet(m_creature, SOUND_SWITCH_TO_DEMON);
                    ResetThreat();
                    DemonForm = true;

                    Unit* Spawn = NULL;
                    Spawn = m_creature->SummonCreature(INNER_DEMON_ID, m_creature->getVictim()->GetPositionX(), m_creature->getVictim()->GetPositionY(), m_creature->getVictim()->GetPositionZ(), 0, TEMPSUMMON_DEAD_DESPAWN, 600000);
                    Spawn = m_creature->SummonCreature(INNER_DEMON_ID, m_creature->getVictim()->GetPositionX(), m_creature->getVictim()->GetPositionY(), m_creature->getVictim()->GetPositionZ(), 0, TEMPSUMMON_DEAD_DESPAWN, 600000);
                    Spawn = m_creature->SummonCreature(INNER_DEMON_ID, m_creature->getVictim()->GetPositionX(), m_creature->getVictim()->GetPositionY(), m_creature->getVictim()->GetPositionZ(), 0, TEMPSUMMON_DEAD_DESPAWN, 600000);
                    Spawn = m_creature->SummonCreature(INNER_DEMON_ID, m_creature->getVictim()->GetPositionX(), m_creature->getVictim()->GetPositionY(), m_creature->getVictim()->GetPositionZ(), 0, TEMPSUMMON_DEAD_DESPAWN, 600000);
                    Spawn = m_creature->SummonCreature(INNER_DEMON_ID, m_creature->getVictim()->GetPositionX(), m_creature->getVictim()->GetPositionY(), m_creature->getVictim()->GetPositionZ(), 0, TEMPSUMMON_DEAD_DESPAWN, 600000);

                    Switch_Timer = 60000;
                }else Switch_Timer -= diff;

            DoMeleeAttackIfReady();
        }
        else
        {
            //ChaosBlast_Timer
            if(ChaosBlast_Timer < diff)
            {
                DoCast(m_creature->getVictim(), SPELL_CHAOS_BLAST);
                ChaosBlast_Timer = 1500;
            }else ChaosBlast_Timer -= diff;

            //Switch_Timer
            if(Switch_Timer < diff)
            {
                //switch to nightelf form
                m_creature->SetUInt32Value(UNIT_FIELD_DISPLAYID, MODEL_NIGHTELF);
                DemonForm = false;

                Switch_Timer = 45000;
            }else Switch_Timer -= diff;

            //WIPE after 10 minutes
            if(Berserk_Timer < diff)
            {     
                DoCast(m_creature, SPELL_BERSERK);
                Berserk_Timer = 600000;
                Berserk = true;
            }else Berserk_Timer -=diff;
        }

        if(!IsFinalForm && (m_creature->GetHealth()*100 / m_creature->GetMaxHealth()) < 15)
        {
            //at this point he divides himself in two parts
            Creature *Copy = NULL;
            Copy = DoSpawnCreature(DEMON_FORM, 0, 0, 0, 0, TEMPSUMMON_TIMED_DESPAWN_OUT_OF_COMBAT, 5000);

            if(Copy)
            {
                Demon = Copy->GetGUID();
                Copy->AI()->AttackStart(m_creature->getVictim());
            }

            //set nightelf final form
            IsFinalForm = true;
            DemonForm = false;

            DoYell(SAY_FINAL_FORM, LANG_UNIVERSAL, NULL);
            DoPlaySoundToSet(m_creature, SOUND_FINAL_FORM);

            m_creature->SetUInt32Value(UNIT_FIELD_DISPLAYID, MODEL_NIGHTELF);
        }
    }

    void ResetThreat()
    {       
        std::list<HostilReference*>& m_threatlist = m_creature->getThreatManager().getThreatList();
        std::list<HostilReference*>::iterator i = m_threatlist.begin();
        for(i = m_threatlist.begin(); i != m_threatlist.end(); ++i)
        {
            Unit* pUnit = NULL;
            pUnit = Unit::GetUnit((*m_creature), (*i)->getUnitGuid());
            if(pUnit)
            {
                m_creature->getThreatManager().modifyThreatPercent(pUnit, -100);
            }
        }
    }

    void banishPhase()
    {
        // Banish Phase by Krz (just educational code ^_^)
        // ---------- BANISH PHASE START ----------
        if(!spawned)
        {
            m_creature->ApplySpellImmune(BANISH_EFFECT,IMMUNITY_MECHANIC,MECHANIC_BANISH,false); // żeby mógł rzucić banisha - Ustawione na true podczas relase
            add1 = m_creature->SummonCreature(21806, add1SPlace[0], add1SPlace[1],add1SPlace[2],add1SPlace[3],TEMPSUMMON_CORPSE_TIMED_DESPAWN,1000);
            add2 = m_creature->SummonCreature(21806, add2SPlace[0], add2SPlace[1],add2SPlace[2],add2SPlace[3],TEMPSUMMON_CORPSE_TIMED_DESPAWN,1000);
            add3 = m_creature->SummonCreature(21806, add3SPlace[0], add3SPlace[1],add3SPlace[2],add3SPlace[3],TEMPSUMMON_CORPSE_TIMED_DESPAWN,1000);
            
            m_creature->SetUInt32Value(UNIT_FIELD_DISPLAYID, MODEL_DEMON); // DemonModel - Blizzlike banishment
            DoCast(m_creature, BANISH_EFFECT); // selfCast banisha 
            spawned = true;
        }

        // Zacznš castować tylko  gdy nie sš w combacie (jak wejdš w combat to channeling[] = false, żeby w razie gdy zabijš cel to powrócš i znów wycastujš ten channeling spell
        if(!add1 == NULL)
        {
            // odwróci je w stronę blinda - Visual bug... trzeba się odsunšc i wrócić, to wtedy będš odwrócone -_-
            if(add1->GetPositionX()   == add1SPlace[0] &&
               add1->GetPositionY()   == add1SPlace[1] &&
               add1->GetPositionZ()   == add1SPlace[2] &&
               add1->GetOrientation() != add1SPlace[3]   )
                    add1->SetOrientation(add1SPlace[3]);

    /*        Unit *target = add1->getVictim();
            if(target)                <- test, żeby addy castowały shocka tylko jak cel castuje ( pozniej przerobie na random.target@threatlist ale chcialem sprawdzic czy zadziala wykrywanie casta
                if(target->m_currentSpells[3] || target->m_currentSpells[2] || target->m_currentSpells[1])//->getState() == 2 && target)//->getState() == 2 && target)
                    add1->CastSpell(add1->getVictim(), 39076, false);
*/
            
            if(!channeling[0] && !add1->isInCombat())
            {
                add1->CastSpell(m_creature,GREEN_BEAM,false);
                channeling[0] = true;
            }
            if(add1->isInCombat() && channeling[0] == true)
            {
                channeling[0] = false;
                add1->InterruptSpell(CURRENT_CHANNELED_SPELL, true);
            
                if(!add2 == NULL)
                    if(!add2->isInCombat())
                        add2->getThreatManager().addThreat(add1->getVictim(),1);
                if(!add3 == NULL)
                    if(!add3->isInCombat())
                        add3->getThreatManager().addThreat(add1->getVictim(),1);
            }
            if(add1->GetHealth() == 0)
            {
                add1Dead = true;
                add1 = NULL;
            }
        }
        if(!add2 == NULL)
        {
            if(add2->GetPositionX()   == add2SPlace[0] &&
               add2->GetPositionY()   == add2SPlace[1] &&
               add2->GetPositionZ()   == add2SPlace[2] &&
               add2->GetOrientation() != add2SPlace[3]   )
                    add2->SetOrientation(add2SPlace[3]);

            if(!channeling[1] && !add2->isInCombat())
            {
                add2->CastSpell(m_creature,GREEN_BEAM,false);
                channeling[1] = true;
            }
            if(add2->isInCombat() && channeling[1] == true)
            {
                channeling[1] = false;
                add2->InterruptSpell(CURRENT_CHANNELED_SPELL, true);
            
                if(!add1 == NULL)
                    if(!add1->isInCombat())
                        add1->getThreatManager().addThreat(add2->getVictim(),1);
                if(!add3 == NULL)
                    if(!add3->isInCombat())
                        add3->getThreatManager().addThreat(add2->getVictim(),1);
            }
            if(add2->GetHealth() == 0)
            {
                add2Dead = true;
                add2 = NULL;
            }
        }
        if(!add3 == NULL)
        {
            if(add3->GetPositionX()   == add3SPlace[0] &&
               add3->GetPositionY()   == add3SPlace[1] &&
               add3->GetPositionZ()   == add3SPlace[2] &&
               add3->GetOrientation() != add3SPlace[3]   )
                    add3->SetOrientation(add3SPlace[3]);

            if(!channeling[2] && !add3->isInCombat())
            {
                add3->CastSpell(m_creature,GREEN_BEAM,false);
                channeling[2] = true;
            }
            if(add3->isInCombat() && channeling[2] == true)
            {
                channeling[2] = false;
                add3->InterruptSpell(CURRENT_CHANNELED_SPELL, true);

                //zaatakuja wszystkie gdy 1 wejdzie w combat
                if(!add1 == NULL)
                    if(!add1->isInCombat())
                        add1->getThreatManager().addThreat(add3->getVictim(),1);
                if(!add2 == NULL)
                    if(!add2->isInCombat())
                        add2->getThreatManager().addThreat(add3->getVictim(),1);
                
            }
            if(add3->GetHealth() == 0)
            {
                add3Dead = true;
                add3 = NULL;
            }
        }
        
        if(add1Dead && add2Dead && add3Dead)
        {
            m_creature->RemoveAllAuras();
            m_creature->SetUInt32Value(UNIT_FIELD_DISPLAYID, MODEL_NIGHTELF);
            m_creature->ApplySpellImmune(37546,IMMUNITY_MECHANIC,MECHANIC_BANISH,true);
            relased = true;
            add1Dead = false;
            add2Dead = false;
            add3Dead = false;
        }
// ---------- BANISH PHASE END ----------
    }
};

//Leotheras the Blind Demon Form AI
struct MANGOS_DLL_DECL boss_leotheras_the_blind_demonformAI : public ScriptedAI
{
    boss_leotheras_the_blind_demonformAI(Creature *c) : ScriptedAI(c)
    {
        InCombat = false;
        EnterEvadeMode();
    }

    uint32 ChaosBlast_Timer;

    bool InCombat;

    void Reset()
    {
        ChaosBlast_Timer = 1000;

        InCombat = false;

        //m_creature->RemoveAllAuras();
        //m_creature->DeleteThreatList();
        //m_creature->CombatStop();
        //DoGoHome();
    }

    void StartEvent()
    {
        DoYell(SAY_FREE, LANG_UNIVERSAL, NULL);
        DoPlaySoundToSet(m_creature, SOUND_FREE);

        InCombat = true;
    }

    void KilledUnit(Unit *victim)
    {
        if(victim->GetTypeId() != TYPEID_PLAYER)
            return;

        switch(rand()%3)
        {
        case 0:
            DoYell(SAY_DEMON_SLAY1, LANG_UNIVERSAL, NULL);
            DoPlaySoundToSet(m_creature, SOUND_DEMON_SLAY1);
            break;

        case 1:
            DoYell(SAY_DEMON_SLAY2, LANG_UNIVERSAL, NULL);
            DoPlaySoundToSet(m_creature, SOUND_DEMON_SLAY2);
            break;

        case 2:
            DoYell(SAY_DEMON_SLAY3, LANG_UNIVERSAL, NULL);
            DoPlaySoundToSet(m_creature, SOUND_DEMON_SLAY3);
            break;
        }
    }

    void JustDied(Unit *victim)
    {
        //invisibility (blizzlike, at the end of the fight he doesn't die, he disappears)
        m_creature->CastSpell(m_creature, 8149, true);
    }

    void AttackStart(Unit *who)
    {
        if(!who && who != m_creature)
            return;

        if (who->isTargetableForAttack() && who!= m_creature)
        {
            //Begin melee attack if we are within range
            DoStartMeleeAttack(who);

            if(!InCombat)
                StartEvent();
        }
    }

    void MoveInLineOfSight(Unit *who)
    {
        if (!who || m_creature->getVictim())
            return;

        if (who->isTargetableForAttack() && who->isInAccessablePlaceFor(m_creature) && m_creature->IsHostileTo(who))
        {
            float attackRadius = m_creature->GetAttackDistance(who);
            if (m_creature->IsWithinDistInMap(who, attackRadius) && m_creature->GetDistanceZ(who) <= CREATURE_Z_ATTACK_RANGE && m_creature->IsWithinLOSInMap(who))
            {
                if(who->HasStealthAura())
                    who->RemoveSpellsCausingAura(SPELL_AURA_MOD_STEALTH);

                DoStartMeleeAttack(who);

                if(!InCombat)
                    StartEvent();
            }
        }
    }

    void UpdateAI(const uint32 diff)
    {
        //Return since we have no target
        if (!m_creature->SelectHostilTarget() || !m_creature->getVictim() )
            return;

        //ChaosBlast_Timer
        if(ChaosBlast_Timer < diff)
        {
            DoCast(m_creature->getVictim(), SPELL_CHAOS_BLAST);
            ChaosBlast_Timer = 1500;
        }else ChaosBlast_Timer -= diff;

        //Do NOT deal any melee damage to the target.
    }
};

CreatureAI* GetAI_boss_leotheras_the_blind(Creature *_Creature)
{
    return new boss_leotheras_the_blindAI (_Creature);
}
CreatureAI* GetAI_boss_leotheras_the_blind_demonform(Creature *_Creature)
{
    return new boss_leotheras_the_blind_demonformAI (_Creature);
}

void AddSC_boss_leotheras_the_blind()
{
    Script *newscript;
    newscript = new Script;
    newscript->Name="boss_leotheras_the_blind";
    newscript->GetAI = GetAI_boss_leotheras_the_blind;
    m_scripts[nrscripts++] = newscript;

    newscript = new Script;
    newscript->Name="boss_leotheras_the_blind_demonform";
    newscript->GetAI = GetAI_boss_leotheras_the_blind_demonform;
    m_scripts[nrscripts++] = newscript;
}