XT001-SummonerSpells - Auto Exhaust for DivineMethod.lua

-- ###################################################################################################### --
-- #                                                                                                    # --
-- #                                           XT001-Summoner Spells                                    # --
-- #                                                by Sida                                             # --
-- #                         Credit for original scripts 100% to the original authors!!                 # --
-- #                                                                                                    # --
-- ###################################################################################################### --

--[--------- Contains ---------]

-- Auto Ignite - Created by SurfaceS
-- Auto Heal - Created by SurfaceS
-- Auto Exhaust - Created by SurfaceS
-- Auto Barrier - Created by SurfaceS

-- with Auto Exhaust added by Kain

-- ############################################# BARRIER ################################################

--[[        Globals     ]]
local barrierCastDelay = 0
local barrierActive = true
local barrierHaveDisplay = true     -- don't display chat
local minValue = 0.15       -- Minimum health ratio for using Barrier
local barrierSlot

--[[        Code        ]]
local function barrierReady()
    if barrierSlot ~= nil and barrierCastDelay < GetTickCount() and player:CanUseSpell(barrierSlot) == READY then return true end
    return false
end

function BarrierOnLoad()
    --[[            Conditional            ]]
    if string.find(player:GetSpellData(SUMMONER_1).name..player:GetSpellData(SUMMONER_2).name, "SummonerBarrier") ~= nil then
        if player:GetSpellData(SUMMONER_1).name == "SummonerBarrier" then
            barrierSlot = SUMMONER_1
        elseif player:GetSpellData(SUMMONER_2).name == "SummonerBarrier" then
            barrierSlot = SUMMONER_2
        end
        function BarrierOnTick()
            local barrierTick = GetTickCount()
            if barrierActive and barrierReady() and player.health / player.maxHealth < minValue then
                CastSpell(barrierSlot)
                barrierCastDelay = barrierTick + 300
            end
        end
    end
end

-- ############################################# BARRIER ################################################

-- ############################################# HEAL ################################################

--[[        Globals     ]]
local healCastDelay = 0
local healActive = true
local minValue = 0.15       -- Minimum health ratio for using Barrier
local slot

--[[        Code        ]]
local function healReady()
    if slot ~= nil and healCastDelay < GetTickCount() and player:CanUseSpell(slot) == READY then return true end
    return false
end

function HealOnLoad()
    --[[            Conditional            ]]
    if string.find(player:GetSpellData(SUMMONER_1).name..player:GetSpellData(SUMMONER_2).name, "SummonerHeal") ~= nil then
        if player:GetSpellData(SUMMONER_1).name == "SummonerHeal" then
            slot = SUMMONER_1
        elseif player:GetSpellData(SUMMONER_2).name == "SummonerHeal" then
            slot = SUMMONER_2
        end
        function HealOnTick()
            local healTick = GetTickCount()
            if healActive and healReady() and player.health / player.maxHealth < minValue then
                CastSpell(slot)
                healCastDelay = healTick + 300
            end
        end
    end
end

-- ############################################# HEAL ################################################

-- ############################################# EXHAUST ################################################

--[[        Globals     ]]
local autoSummonerExhaust = {
    exhaustCastDelay = 0,
    exhaustActive = false,
    exhaustAuto = true,
    exhaustActiveTick = 0,
    exhaustRange = 550,
    haveDisplay = false,        -- don't display chat
    activeKey = 84,         -- Press key to use autoSummonerExhaust mode (tTt by default)
}
--[[        Code        ]]
function ExhaustOnLoad()
    --[[            Conditional            ]]
    if string.find(player:GetSpellData(SUMMONER_1).name..player:GetSpellData(SUMMONER_2).name, "SummonerExhaust") ~= nil then
        if player:GetSpellData(SUMMONER_1).name == "SummonerExhaust" then
            autoSummonerExhaust.slot = SUMMONER_1
        elseif player:GetSpellData(SUMMONER_2).name == "SummonerExhaust" then
            autoSummonerExhaust.slot = SUMMONER_2
        end
        function autoSummonerExhaust.ready()
            return autoSummonerExhaust.slot ~= nil and autoSummonerExhaust.exhaustCastDelay < GetTickCount() and player:CanUseSpell(autoSummonerExhaust.slot) == READY
        end
        function ExhaustOnWndMsg(msg,wParam)
                if msg == KEY_DOWN and wParam == autoSummonerExhaust.activeKey and autoSummonerExhaust.ready() then
                    if autoSummonerExhaust.exhaustActive == false and autoSummonerExhaust.haveDisplay == false then PrintChat(" >> Auto exhaust forced") end
                    autoSummonerExhaust.exhaustActive = true
                    autoSummonerExhaust.exhaustActiveTick = GetTickCount() + 1000
                end
            end
        function ExhaustOnTick()
            local exhaustTick = GetTickCount()
            if autoSummonerExhaust.exhaustActive or autoSummonerExhaust.exhaustAuto then
                if autoSummonerExhaust.ready() then
                    local exhsuatMaxDPShero = nil
                    local maxDPS = 0
                    for i = 1, heroManager.iCount, 1 do
                        local exhaustHero = heroManager:getHero(i)
                        if ValidTarget(exhaustHero,autoSummonerExhaust.exhaustRange + 100) then
                            local exhaustDps = exhaustHero.totalDamage * exhaustHero.attackSpeed
                            if exhsuatMaxDPShero == nil or maxDPS < exhaustDps then maxDPS, exhsuatMaxDPShero = exhaustDps, exhaustHero end
                        end
                    end
                    if exhsuatMaxDPShero ~= nil then
                        autoSummonerExhaust.exhaustActive = false
                        autoSummonerExhaust.exhaustCastDelay = exhaustTick + 500
                        CastSpell(autoSummonerExhaust.slot, exhsuatMaxDPShero)
                    end
                end
                if autoSummonerExhaust.exhaustActiveTick < exhaustTick then autoSummonerExhaust.exhaustActive = false end
            end
        end
    else
        autoSummonerExhaust = nil
    end
end


-- ############################################# EXHAUST ################################################

-- ############################################# IGNITE ################################################

--[[        Globals     ]]

    local autoSummonerDot = {
        igniteRange = 600,
        igniteBaseDamage = 50,
        damagePerLevel = 20,
        castDelay = 0,
        haveDisplay = false,
        activeKey = 249,            -- Press key to use autoSummonerDot mode (space by default)
        toggleKey = 108,        -- Press key to toggle autoSummonerDot mode (F3/F4 by default -> slot)
        forceIgniteKey = 84,    -- Press key to force ignite (tTt by default)
        active = true,
        toggled = true,
        forced = true,
        forcedTick = 0,
    }
--[[        Code        ]]
    function IgniteOnLoad()
        --[[            Conditional            ]]
        if player == nil then player = GetMyHero() end
        if string.find(player:GetSpellData(SUMMONER_1).name..player:GetSpellData(SUMMONER_2).name, "SummonerDot") ~= nil then
            if player:GetSpellData(SUMMONER_1).name == "SummonerDot" then
                autoSummonerDot.slot = SUMMONER_1
            elseif player:GetSpellData(SUMMONER_2).name == "SummonerDot" then
                autoSummonerDot.slot = SUMMONER_2
                autoSummonerDot.toggleKey = autoSummonerDot.toggleKey + 1
            end
            function autoSummonerDot.ready()
                if autoSummonerDot.slot ~= nil and autoSummonerDot.castDelay < GetTickCount() and player:CanUseSpell(autoSummonerDot.slot) == READY then return true end
                return false
            end
            function autoSummonerDot.autoIgniteIfKill()
                if autoSummonerDot.ready() then
                    local damage = autoSummonerDot.igniteBaseDamage + autoSummonerDot.damagePerLevel * player.level
                    for i = 1, heroManager.iCount, 1 do
                        local hero = heroManager:getHero(i)
                        if hero ~= nil and hero.team ~= player.team and not hero.dead and hero.visible and player:GetDistance(hero) < autoSummonerDot.igniteRange and hero.health <= damage then
                            return autoSummonerDot.igniteTarget( hero )
                        end
                    end
                end
                return nil
            end
            function autoSummonerDot.autoIgniteLowestHealth()
                if autoSummonerDot.ready() then
                    local minLifeHero = nil
                    for i = 1, heroManager.iCount, 1 do
                        local hero = heroManager:getHero(i)
                        if hero ~= nil and hero.team ~= player.team and not hero.dead and hero.visible and player:GetDistance(hero) <= autoSummonerDot.igniteRange then
                            if minLifeHero == nil or hero.health < minLifeHero.health then
                                minLifeHero = hero
                            end
                        end
                    end
                    if minLifeHero ~= nil then
                        return autoSummonerDot.igniteTarget( minLifeHero )
                    end
                end
                return nil
            end
            function autoSummonerDot.igniteTarget(target)
                if autoSummonerDot.ready() then
                    CastSpell(autoSummonerDot.slot, target)
                    autoSummonerDot.castDelay = GetTickCount() + 500
                    return target
                end
                return nil
            end
            function IgniteOnTick()
                local tick = GetTickCount()
                if autoSummonerDot.toggled == false then autoSummonerDot.active = IsKeyDown(autoSummonerDot.activeKey) end
                if autoSummonerDot.forced then
                    if autoSummonerDot.forcedTick > tick then
                        if autoSummonerDot.autoIgniteLowestHealth() ~= nil then autoSummonerDot.forced = false end
                    else
                        autoSummonerDot.forced = false
                    end
                elseif autoSummonerDot.active then
                    autoSummonerDot.autoIgniteIfKill()
                end
            end
        else
            autoSummonerDot = nil
        end
    end

-- ############################################# IGNITE ################################################

-- XT001 --
local hasIgnite, hasHeal, hasExhaust, hasBarrier, enabled = false, false, false, false, true

function OnLoad()

    if string.find(player:GetSpellData(SUMMONER_1).name..player:GetSpellData(SUMMONER_2).name, "SummonerExhaust") ~= nil then hasExhaust = true end
    if string.find(player:GetSpellData(SUMMONER_1).name..player:GetSpellData(SUMMONER_2).name, "SummonerDot") ~= nil then hasIgnite = true end
    if string.find(player:GetSpellData(SUMMONER_1).name..player:GetSpellData(SUMMONER_2).name, "SummonerHeal") ~= nil then hasHeal = true end
    if string.find(player:GetSpellData(SUMMONER_1).name..player:GetSpellData(SUMMONER_2).name, "SummonerBarrier") ~= nil then hasBarrier = true end

    if hasHeal or hasIgnite or hasExhaust or hasBarrier then KCConfig = scriptConfig("XT001-Summoner Spells", "xt001summonerspells") else enabled = false end
    if hasIgnite then KCConfig:addParam("Ignite", "Enable Auto Ignite", SCRIPT_PARAM_ONOFF, true) end
    if hasHeal then KCConfig:addParam("Heal", "Enable Auto Heal", SCRIPT_PARAM_ONOFF, true) end
    if hasExhaust then KCConfig:addParam("Exhaust", "Enable Auto Exhaust", SCRIPT_PARAM_ONOFF, true) end
    if hasBarrier then KCConfig:addParam("Barrier", "Enable Auto Barrier", SCRIPT_PARAM_ONOFF, true) end


    if hasIgnite then IgniteOnLoad() end
    if hasHeal then HealOnLoad() end
    if hasExhaust then ExhaustOnLoad() end
    if hasBarrier then BarrierOnLoad() end
end

function OnTick()
    if enabled then
        if KCConfig.Ignite and hasIgnite then
            IgniteOnTick()
        end
        if KCConfig.Heal and hasHeal then
            HealOnTick()
        end
        if KCConfig.Exhaust and hasExhaust then
            ExhaustOnTick()
        end
        if KCConfig.Barrier and hasBarrier then
            BarrierOnTick()
        end
    end
end

function OnDraw()
    SC__OnDraw()
end

function OnWndMsg(msg,key)
    if enabled then
        if hasExhaust and KCConfig.Exhaust then ExhaustOnWndMsg(msg, key) end
        SC__OnWndMsg(msg,key)
    end
end