--Destro Warlock Script by demisehi
--
--Table of Contents:
--
--Common - line
--Lock lists - line
--Buffs - line
--Offensive CDs - line
--Defensive CDs - line
--MultiDot - line
--Rotation start - line
--AoEMode - line
--Single Target - line
--


-- COMMON
local lastimmo = 0;
local immoDelay = 0;
local lastdsm = 0;
local lastfbimmo = 0;
local destrohasFocus = false;
local havocExists = 0;
local lastcote = 0;
maxEnemies = 0;

function _destrolockLists()
    local highDuration,highDPS,lowUnits = {},{},{};

    for index=1, #enemiesList do
    ISetAsUnitID(enemiesList[index],"_bgTar");

        --HighDuration--   and _LoS("_bgTar")
        if not _immuneMagic("_bgTar") and not _immuneCheck("_bgTar") and _LoS("_bgTar") and not _isPlayer("_bgTar") then
            table.insert(highDuration,{guid=UnitGUID("_bgTar"),duration=_destrototalDotDuration("_bgTar"),dps=_pDestroDotDPS("_bgTar")});
            --Highest DPS List--
            --Lowest Units List--
            table.insert(highDPS,{guid=UnitGUID("_bgTar"),duration=_destrototalDotDuration("_bgTar"),dps=_pDestroDotDPS("_bgTar")});
            table.insert(lowUnits,{guid=UnitGUID("_bgTar"),duration=_destrototalDotDuration("_bgTar"),dps=_pDestroDotDPS("_bgTar")});
        end
    end

    table.sort(highDuration, function(x,y) return x.duration > y.duration end)
    table.sort(highDPS, function(x,y) return x.dps > y.dps end)
    table.sort(lowUnits, function(x,y) return x.duration < y.duration end)

    return highDuration,highDPS,lowUnits;
end

function warlockDestructionBuffs(buffInCombat)
    if buffInCombat == nil then buffInCombat = false; end

  if IsMounted() ~= 1 or not fawHasBuff("Zen Flight") then
    -- Check Alchemy Flask
    if GetItemCount(75525, false, true) > 0 then
      if not fawHasBuff("Enhanced Intellect") and not fawHasBuff("Flask of the Warm Sun") then
        UseItemByName("Alchemist's Flask");
      end
    end

        if not fawHasBuffAny("Dark Intent") and not fawHasBuffAny("Arcane Brilliance") and not fawHasBuffAny("Burning Wrath") then
            if fawCastSelf("Dark Intent") then return; end
    end
  end
  return false;
end

function warlockDestroOffensiveCooldowns()
  if UseCooldowns and not fawAmIChanneling() and fawIsBoss() then

    if not fawHasBuff("Dark Soul: Instability") and (GetTime() - lastdsm > 3)  then
      if fawHasTalent("Archimonde's Darkness") then
        if GetSpellCharges("Dark Soul: Instability") >= 2 then
          if fawCastSelf("Dark Soul: Instability") then
            lastdsm = GetTime();
            return;
          end
        elseif GetSpellCharges("Dark Soul: Instability") > 0 and mySpellPower > 47000 then
                    if fawCastSelf("Dark Soul: Instability") then
            lastdsm = GetTime();
            return;
          end
        end
            else
                if fawCastSelf("Dark Soul: Instability") and (mySpellPower > 47000 or _getHp("target") <= 10) then
                    lastdsm = GetTime();
          return;
        end
            end
    end

    if fawIsBoss() and (fawHasPewPew() or fawHealth("target") <= 20) and GetItemCooldown(76093) == 0 then
      UseItemByName("Potion of the Jade Serpent");
    end

    if (fawHealth("target") < 20 or fawCalculateTimeToDie("target") < 61) and fawIsBoss() then
      if fawCast("Summon Doomguard") then return; end
    end

    fawUseCooldowns();
  end
end

function warlockDestroDefensiveCooldowns()
  if UseDefensiveCooldowns then

        --Dark Bargain--
        if fawHasTalent("Dark Bargain") then
            if _getHp("player") <= 25 then
                _Cast(110913);
            end
        end

        --Dark Regen
        if fawHasTalent("Dark Regeneration") then
            if _getHp("player") <= 35 then
                _Cast(108359);
            end
        end

        --SacrificialPact--
        if fawHasTalent("Sacrificial Pact") then
            if _getHp("player") <= 40 then
                _Cast(108416);
            end
        end

        --Unending resolve--
        if not fawHasGlyph("Glyph of Eternal Resolve") then
            if _getHp("player") <= 50 then
                _Cast(104773);
            end
        end

        --Healthstone
        if GetItemCount(5512, false, true) > 0 and fawHealth("player") < math.random(20,30) and GetItemCooldown(5512) == 0 then
      UseItemByName("Healthstone");
    end

        --Ember Tap
        if myEmbers >= 12 and _getHp("player") <= 20 then
            _Cast(114635);
        end
  end
end

function warlockDestroShadowburn()
    for index=1, #enemiesList do
        ISetAsUnitID(enemiesList[index],"_bgTar");

        --Shadowburn and Cbolt logic
        if _getHp("_bgTar") <= 20 and _amIfacing("_bgTar") and _enemyincombat("_bgTar") and not UnitIsDeadOrGhost("_bgTar") and not UnitIsUnit("target","_bgTar") then
            if _getHp("_bgTar") <= 10 and myEmbers >= 11 then
                TargetUnit("_bgTar");
                _Cast(17877,"target");
                TargetLastTarget();
            elseif _getHp("_bgTar") > 10 and myEmbers >= 11 and mySpellPower > 47000 then
                TargetUnit("_bgTar");
                _Cast(17877,"target");
                TargetLastTarget();
            elseif myEmbers >= 35 then
                TargetUnit("_bgTar");
                _Cast(17877,"target");
                TargetLastTarget();
            end
        end
    end

    for index=1, #enemiesList do
        ISetAsUnitID(enemiesList[index],"_bgTar");
        --Shadowburn and Cbolt logic
        if _getHp("target") <= 20 and _amIfacing("target") and _enemyincombat("target") then
            if _getHp("target") <= 10 and myEmbers >= 11 then
                _Cast(17877,"target");
            elseif _getHp("target") > 10 and myEmbers >= 11 and mySpellPower > 47000 then
                _Cast(17877,"target");
            elseif myEmbers >= 35 then
                _Cast(17877,"target");
            end
        end
    end
end

function warlockDestroAOE()

    warlockDestroShadowburn();

    if UnitExists("target") and not UnitBuffID("player",108683,"player") and myEmbers >= 25 then
        _Cast(108683);
    end

    if UnitBuffID("player",108683,"player") then

        --FnB Immolate
        if myEmbers >= 25 and _debuffRemains("target",348,"player") <= 3 and not UnitDebuffID("target",172,"player") and not _immuneCheck("target") and not _immuneMagic("target") and _getHp("_bgTar") >= 5 and UnitHealthMax("target") > 2000000 then
            if not fnbimmoDelay or GetTime() - fnbimmoDelay > 0.8 then
                _Cast(172,"target",true);
            end
        end

        if _enemyincombat("target") and not UnitDebuffID("target",104225) and not UnitDebuffID("target",58410) and not UnitDebuffID("target",1490) and (GetTime() - lastcote > 1) then
            _Cast(1490,"target");
            lastcote = GetTime();
        end

        --Conflagrate
        if myEmbers >= 21 and _spellCooldown(17962) == 0 and GetSpellCharges(17962) > 0 and not UnitDebuffID("target",80240,"player") then
            _Cast(17962,"target",true);
        end

        if myEmbers > 11 then
            _Cast(686,"target",true);
        end
    end

    for index=1,maxEnemies do
        ISetAsUnitID(enemiesList[index],"_bgTar");
        --Rain of Fire Target
        if not UnitDebuffID("target",104232,"player") and _getMana("player") > 30 then
            _AeCast(104232,"target",true)
        end
    end

    for index=1,maxEnemies do
        ISetAsUnitID(enemiesList[index],"_bgTar");
        if _spellCooldown(80240) == 0  and not UnitIsUnit("target","_bgTar") and myEmbers >= 15 and _amIfacing("_bgTar") and _enemyincombat("_bgTar") then
            _Cast(80240,"_bgTar",true);
        end
    end

    if UnitBuffID("player",80240,"player") then
        for index=1,maxEnemies do
            ISetAsUnitID(enemiesList[index],"_bgTar");
            if _getHp("_bgTar") <= 20 and not UnitDebuffID("_bgTar",80240,"player") and _amIfacing("_bgTar") and _LoS("_bgTar") and myEmbers >= 11 and _enemyincombat("_bgTar") then
                TargetUnit("_bgTar");
                _Cast(17877,"target");
                TargetLastTarget();
            end
        end

        for index=1,maxEnemies do
            ISetAsUnitID(enemiesList[index],"_bgTar");
            if not UnitDebuffID("target",80240,"player") and myEmbers >= 11 and _getHp("_bgTar") > 20 and (not cboltDelay or GetTime() - cboltDelay > 0.5) and _enemyincombat("_bgTar") then
                _Cast(116858,"target");
            end
        end
    end

    for index=1,maxEnemies do
        ISetAsUnitID(enemiesList[index],"_bgTar");
        --Immolate on Target (3 sec refresh regardless)
        if _debuffRemains("target",348,"player") <= 3 and  _enemyincombat("target") and not _immuneCheck("target") and not _immuneMagic("target") and _getHp("target") >= 5 and UnitHealthMax("target") > 2000000 then
            if not immoDelay or GetTime() - immoDelay > 0.5 then
                _Cast(348,"target",true);
            end
        end
    end

    for index=1,maxEnemies do
        ISetAsUnitID(enemiesList[index],"_bgTar");
        --Immolate on Target (3 sec refresh regardless)
        if _debuffRemains("_bgTar",348,"player") <= 3 and  _enemyincombat("_bgTar") and _amIfacing("_bgTar") and not _immuneCheck("_bgTar") and not _immuneMagic("_bgTar") and _getHp("_bgTar") >= 5 and UnitHealthMax("target") > 2000000 then
            if not immoDelay or GetTime() - immoDelay > 0.5 then
                _Cast(348,"_bgTar",true);
            end
        end
    end

    for index=1,maxEnemies do
        ISetAsUnitID(enemiesList[index],"_bgTar");

        --Conflagrate
        if _spellCooldown(17962) == 0 and GetSpellCharges(17962) > 0 and not UnitBuffID("player",117828,"player") then
            _Cast(17962,"target",true);
        end

        --Incinerate
        _Cast(29722);

        --Fel Flame
        if not UnitDebuffID("target",104232,"player") and _getMana("player") > 25 then
            _AeCast(104232,"target",true)
        end

        if _isMoving("player") then
            _Cast(77799)
        end
    end
end

function warlockDestroMDOT()

    --Havoc _bgTar
    for index=1, #enemiesList do
        ISetAsUnitID(enemiesList[index],"_bgTar");
        if _spellCooldown(80240) == 0  and not UnitIsUnit("target","_bgTar") and myEmbers >= 15 and _amIfacing("_bgTar") and _enemyincombat("_bgTar") then
            _Cast(80240,"_bgTar",true);
        end
    end

    --Shadowburn or Chaos Bolt a target while Havoc is on another
    if UnitBuffID("player",80240,"player") then
        for index=1, #enemiesList do
            ISetAsUnitID(enemiesList[index],"_bgTar");
            if _getHp("_bgTar") <= 20 and not UnitDebuffID("_bgTar",80240,"player") and _amIfacing("_bgTar") and _LoS("_bgTar") and myEmbers >= 11 and _enemyincombat("_bgTar") then
                TargetUnit("_bgTar");
                _Cast(17877,"target");
                TargetLastTarget();
            end
        end

        for index=1, #enemiesList do
            ISetAsUnitID(enemiesList[index],"_bgTar");
            if not UnitDebuffID("target",80240,"player") and myEmbers >= 11 and _getHp("_bgTar") > 20 and (not cboltDelay or GetTime() - cboltDelay > 0.5) and _enemyincombat("_bgTar") then
                _Cast(116858,"target");
            end
        end
    end

    --Shadowburn low health
    warlockDestroShadowburn();

    --MultiDot code
    for index=1, #enemiesList do
        ISetAsUnitID(enemiesList[index],"_bgTar");

        --Immolate  and _getHp("target") >= 1
        if _destroDotDPS(348) > _immolatePower("target")*1.20 and _enemyincombat("target") and _amIfacing("target") and not _immuneCheck("target") and not _immuneMagic("target") and not UnitDebuffID("target",80240,"player") and not UnitBuffID("player",80240,"player") and UnitHealthMax("target") > 2000000 then
            if not immoDelay or GetTime() - immoDelay > 0.5 then
                _Cast(348,"target",true);
            end
        end
        --Immolate on Target (3 sec refresh regardless)  and _getHp("target") >= 1
        if _debuffRemains("target",348,"player") <= 3 and _enemyincombat("target") and _amIfacing("target") and not _immuneCheck("target") and not _immuneMagic("target") and not UnitDebuffID("target",80240,"player") and not UnitBuffID("player",80240,"player") and UnitHealthMax("target") > 2000000 then
            if not immoDelay or GetTime() - immoDelay > 0.5 then
                _Cast(348,"target",true);
            end
        end
    end

    for index=1, #enemiesList do
        ISetAsUnitID(enemiesList[index],"_bgTar");
        --and UnitAffectingCombat("_bgTar") and _getHp("_bgTar") >= 1
        if _destroDotDPS(348) > _immolatePower("_bgTar")*1.20 and _enemyincombat("_bgTar") and _amIfacing("_bgTar") and not _immuneCheck("_bgTar") and not _immuneMagic("_bgTar") and UnitHealthMax("_bgTar") > 2000000 then
            if not immoDelay or GetTime() - immoDelay > 0.5 then
                _Cast(348,"_bgTar",true);
            end
        end
            --Immolate on Target (3 sec refresh regardless)  and UnitAffectingCombat("_bgTar") and _getHp("_bgTar") >= 1
        if _debuffRemains("_bgTar",348,"player") <= 3 and _enemyincombat("_bgTar") and _amIfacing("_bgTar") and not _immuneCheck("_bgTar") and not _immuneMagic("_bgTar") and UnitHealthMax("_bgTar") > 2000000 then
            if not immoDelay or GetTime() - immoDelay > 0.5 then
                _Cast(348,"_bgTar",true);
            end
        end

        --Curse of the Elements  and UnitAffectingCombat("_bgTar")
        if destrohasAllDots("_bgTar") and _amIfacing("_bgTar") and not UnitDebuffID("_bgTar",104225) and _enemyincombat("_bgTar") and not UnitDebuffID("_bgTar",58410) and not UnitDebuffID("_bgTar",1490) and UnitHealthMax("_bgTar") > 2000000 then
            _Cast(1490,"_bgTar");
        end
    end

    for index=1, #enemiesList do
        ISetAsUnitID(enemiesList[index],"_bgTar");

        if not UnitDebuffID("_bgTar",104232,"player") and _enemyincombat("_bgTar") and _getMana("player") > 40 and _amIfacing("_bgTar") then
            _AeCast(104232,"_bgTar",true)
        end
    end

    for index=1, #enemiesList do
        ISetAsUnitID(enemiesList[index],"_bgTar");

        --Conflag
        if destrohasAllDots("target") and _spellCooldown(17962) == 0 and GetSpellCharges(17962) > 0 and fawBuffStacks("Backdraft","player") < 3 and not UnitDebuffID("target",80240,"player") then
            _Cast(17962,"target");
        end

        --Chaos Bolt  and not UnitBuffID("player",117828,"player")
        if myEmbers >= 11 and  mySpellPower > 47000 and not _isMoving("player") and not UnitDebuffID("target",80240,"player") and _getHp("target") > 20 then
            if not cboltDelay or GetTime() - cboltDelay > 0.5 then
                _Cast(116858,"target");
            end
        end

        if myEmbers >= 35 and not _isMoving("player") and not UnitDebuffID("target",80240,"player") and _getHp("target") > 20 then
            if not cboltDelay or (GetTime() - cboltDelay > 0.5) then
                _Cast(116858,"target");
            end
        end


    end

    for index=1, #enemiesList do
        ISetAsUnitID(enemiesList[index],"_bgTar");
        --Incinerate
        if destrohasAllDots("target") and not UnitDebuffID("target",80240,"player") and _enemyincombat("target") then
            _Cast(29722);
        end

        if _isMoving("player") and not UnitDebuffID("target",80240,"player") then
            if not UnitDebuffID("_bgTar",104232,"player") and _enemyincombat("_bgTar") and _getMana("player") > 40 and _amIfacing("_bgTar") then
                _AeCast(104232,"_bgTar",true)
            end
            _Cast(77799);
        end
    end
end

function warlockDestructionRotation()

    enemiesList = GetEnemies("player",40);
    if #enemiesList > 6 then
        maxEnemies = 6;
    else
        maxEnemies = #enemiesList;
    end

    --highDuration,highDPS,lowUnits = _destrolockLists();

    if UnitCastingInfo("player") == GetSpellInfo(116858) then cboltDelay = GetTime(); end
    if UnitCastingInfo("player") == GetSpellInfo(348) then immoDelay = GetTime(); end
    if UnitCastingInfo("player") == GetSpellInfo(172) then fnbimmoDelay = GetTime(); end

    if not fawGCDDone() then return; end
    if fawAmICasting() then return; end

    if warlockDestructionBuffs(true) then return; end

    myEmbers = UnitPower("player", 14, true)
    local immolateCastTime = fawSpellCastTime("Immolate");
    local chaosBoltCastTime = fawSpellCastTime("Chaos Bolt");
    mySpellPower = GetSpellBonusDamage(6);
    myCrit = GetSpellCritChance(6);

    fawInterrupt("Command Demon");
    fawInterrupt("Spell Lock");
    fawInterruptPet("Spell Lock");

    if fawValidEnemy("target", "Chaos Bolt") then

        warlockDestroOffensiveCooldowns();
        warlockDestroDefensiveCooldowns();

        if not fawValidFriend("pet") and not fawHasTalent("Grimoire of Sacrifice") and fawHasTalent("Grimoire of Supremacy") then
            if UnitAffectingCombat("player") ~= 1 then
                if fawCastSelf("Summon Fel Imp", fawSpellCastTime("Summon Fel Imp")*1000) then return; end
            else
                _Cast(120451);
            end
        end

        if not UnitExists("pet") and myEmbers >= 11 and UnitAffectingCombat("player") and not fawHasTalent("Grimoire of Sacrifice") then
            _Cast(120451);
        end

        if sweep then
      if fawHasTalent("Shadowfury") and fawSpellCooldown("Shadowfury") == 0 then
        fawCastSelf("Shadowfury")
        if AreaSpellIsPending() then
          CastAtLocation(Target:GetLocation())
        end
      elseif fawHasTalent("Demonic Breath") and fawSpellCooldown("Demonic Breath") == 0 then
        if fawCastSelf("Demonic Breath", 2500) then return; end
      end
    end

        if fawAmICasting() or fawAmIChanneling() then return; end

        if aoem then
            warlockDestroAOE();
        else
            if not aoem and UnitBuffID("player",108683,"player") then
                CancelUnitBuff("player","Fire and Brimstone");
            end
            if mdot then
                warlockDestroMDOT();
            else

                warlockDestroShadowburn();

                for index=1, #enemiesList do
                    ISetAsUnitID(enemiesList[index],"_bgTar");

                    if destrohasAllDots("target") and _amIfacing("target") and not UnitDebuffID("target",104225) and _enemyincombat("target") and not UnitDebuffID("target",58410) and not UnitDebuffID("target",1490) then
                        _Cast(1490,"target");
                    end

                    --Immolate with power
                    if _destroDotDPS(348) > _immolatePower("target")*1.20 and _enemyincombat("target") and not _immuneCheck("target") and not _immuneMagic("target") and _getHp("target") >= 1 and (GetTime() - lastimmo > 1.7) then
                        if not immoDelay or GetTime() - immoDelay > 0.5 then
                            _Cast(348,"target",true);
                        end
                    end
                    --Immolate on Target (3 sec refresh regardless)
                    if _debuffRemains("target",348,"player") <= 3 and _enemyincombat("target") and not _immuneCheck("target") and not _immuneMagic("target") and _getHp("target") >= 1 and (GetTime() - lastimmo > 1.7) then
                        if not immoDelay or GetTime() - immoDelay > 0.5 then
                            _Cast(348,"target",true);
                        end
                    end

                    --Curse of the Elements
                    if destrohasAllDots("target") and _enemyincombat("target") and not UnitDebuffID("target",104225) and not UnitDebuffID("target",58410) and not UnitDebuffID("target",1490) then
                        _Cast(1490,"target");
                    end

                    --Conflagrate
                    if destrohasAllDots("target") and _spellCooldown(17962) == 0 and GetSpellCharges(17962) >= 2 and not UnitDebuffID("target",80240,"player") then
                        _Cast(17962,"target",true);
                    end

                    --Rain of fire
                    --if not UnitDebuffID("target",104232,"player") and destrohasAllDots("target") and _getMana("player") > 25 then
                    --  _AeCast(104232,"target",true)
                    --end

                    --Chaos Bolt  and not UnitBuffID("player",117828,"player")
                    if _getHp("target") > 20 and _amIfacing("target") and _enemyincombat("target") and myEmbers >= 11 and not _isMoving("player") and not UnitDebuffID("target",80240,"player") and (mySpellPower > 47000 or UnitBuffID("player",114207) or UnitBuffID("player",113858)) then
                        if not cboltDelay or GetTime() - cboltDelay > 0.5 then
                            _Cast(116858,"target");
                        end
                    end

                    if _getHp("target") > 20 and _amIfacing("target") and _enemyincombat("target") and myEmbers >= 33 and not _isMoving("player") and not UnitBuffID("player",117828,"player") and not UnitDebuffID("target",80240,"player") then
                        if not cboltDelay or GetTime() - cboltDelay > 0.5 then
                            _Cast(116858,"target");
                        end
                    end

                    --Conflagrate
                    if destrohasAllDots("target") and _spellCooldown(17962) == 0 and GetSpellCharges(17962) > 0 and not UnitDebuffID("target",80240,"player") then
                        _Cast(17962,"target",true);
                    end

                    --Incinerate
                    if destrohasAllDots("target") then
                        _Cast(29722);
                    end

                    --Fel Flame
                    if _isMoving("player") then
                        if not UnitDebuffID("target",104232,"player") and destrohasAllDots("target") and _getMana("player") > 25 then
                            _AeCast(104232,"target",true)
                        end

                        _Cast("77799")

                    end
                end
            end
        end
    end
end