[1.0b] SidasAutoCarryPlugin - Pantheon

--[[

        Auto Carry Plugin - Pantheon Edition
        Author: Roach_
        Version: 1.0b
        Copyright 2013

        Dependency: Sida's Auto Carry: Revamped

        How to install:
            Make sure you already have AutoCarry installed.
            Name the script EXACTLY "SidasAutoCarryPlugin - Pantheon.lua" without the quotes.
            Place the plugin in BoL/Scripts/Common folder.

        Features:
            Combo with Autocarry
            Fully supports E with movement/attack disable
            Harass with Mixed Mode
            Killsteal with Q/W
            Draw Combo Range
            Draw Critical Hit on Target
            Escape Artist(with Flash)
            Auto-Ignite

        History:
            Version: 1.0a
                First release
--]]

local target

function PluginOnLoad()
    AutoCarry.PluginMenu:addParam("pCombo", "Use Combo With Auto Carry", SCRIPT_PARAM_ONOFF, true)
    AutoCarry.PluginMenu:addParam("pHarass", "Harass with Mixed Mode", SCRIPT_PARAM_ONOFF, true)
    AutoCarry.PluginMenu:addParam("pKillsteal", "Killsteal with Q/W", SCRIPT_PARAM_ONOFF, true)
    AutoCarry.PluginMenu:addParam("pDCR", "Draw Combo Range", SCRIPT_PARAM_ONOFF, true)
    AutoCarry.PluginMenu:addParam("pDCT", "Draw Crit Text", SCRIPT_PARAM_ONOFF, true)
    AutoCarry.PluginMenu:addParam("pEscape", "Escape Artist", SCRIPT_PARAM_ONKEYDOWN, false, string.byte("T"))
    AutoCarry.PluginMenu:addParam("pEscapeFlash", "Escape: Flash to Mouse", SCRIPT_PARAM_ONOFF, false)
    AutoCarry.PluginMenu:addParam("pAutoIgnite", "Auto-Ignite", SCRIPT_PARAM_ONOFF, false)

    AutoCarry.SkillsCrosshair.range = 600
end


function PluginOnTick()
    if AutoCarry.PluginMenu.pCombo and AutoCarry.MainMenu.AutoCarry then pCombo() end
    if AutoCarry.PluginMenu.pHarass and AutoCarry.MainMenu.MixedMode then pHarass() end
    if AutoCarry.PluginMenu.pKillsteal then pKillsteal() end
    if AutoCarry.PluginMenu.pEscape then pEscapeCombo() end

    if not myHero.dead and AutoCarry.PluginMenu.pDCT then
        for i=1, heroManager.iCount do
            local enemydraw = heroManager:GetHero(i)

            if ValidTarget(enemydraw) then
                if(enemydraw.health/enemydraw.maxHealth*100 < 15) then
                    PrintFloatText(Target, 0, "CRITICAL HIT")
                end
            end
        end
    end
end

function PluginOnDraw()
    if not myHero.dead and AutoCarry.PluginMenu.pDCR then
        DrawCircle(myHero.x, myHero.y, myHero.z, 600, 0x00FFFF)
    end
end

function PluginOnCreateObj(obj)
    if obj and GetDistance(obj) <= 100 and obj.name == "pantheon_heartseeker_cas2" then
        AutoCarry.CanMove = false
    end
end

function PluginOnDeleteObj(obj)
    if obj and GetDistance(obj) <= 100 and obj.name == "pantheon_heartseeker_cas2" then
        AutoCarry.CanMove = true
    end
end

--

function pCombo()
    target = AutoCarry.GetAttackTarget()

    if ValidTarget(target) then
        if myHero:CanUseSpell(_Q) == READY and GetDistance(target) < 600 then
            CastSpell(_Q, target)
        end

        if myHero:CanUseSpell(_W) == READY and GetDistance(target) < 600 then
            CastSpell(_W, target)
        end

        if myHero:CanUseSpell(_E) == READY and GetDistance(target) < 600 then
            CastSpell(_E, target.x, target.z)
        end
    end
end

function pHarass()
    if ValidTarget(target) then
        if myHero:CanUseSpell(_Q) == READY and GetDistance(target) < 600 then
            CastSpell(_Q, target)
        end
    end
end

function pKillsteal()
    if myHero:CanUseSpell(_Q) == READY then
        for _, enemy in pairs(AutoCarry.EnemyTable) do
            if ValidTarget(enemy) and GetDistance(enemy) < 600 and enemy.health < getDmg("Q", enemy, myHero) then
                CastSpell(_Q, target)
            end
        end
    end
    if myHero:CanUseSpell(_W) == READY and myHero:CanUseSpell(_Q) ~= READY then
        for _, enemy in pairs(AutoCarry.EnemyTable) do
            if ValidTarget(enemy) and GetDistance(enemy) < 600 and enemy.health < getDmg("W", enemy, myHero) then
                CastSpell(_W, target)
            end
        end
    end
end

function pEscapeCombo()
    local FlashSlot

    if myHero:GetSpellData(SUMMONER_1).name:find("SummonerFlash") then
        FlashSlot = SUMMONER_1
    elseif myHero:GetSpellData(SUMMONER_2).name:find("SummonerFlash") then
        FlashSlot = SUMMONER_2
    end

    --

    if myHero:CanUseSpell(_W) == READY then
        CastSpell(_W, target)
    end

    if AutoCarry.PluginMenu.pEscapeFlash and FlashSlot ~= nil and myHero:CanUseSpell(FlashSlot) == READY and GetDistance(mousePos) > 300 then
        CastSpell(FlashSlot, mousePos.x, mousePos.z)
    end

    if AutoCarry.PluginMenu.pEscapeFlash then
        myHero:MoveTo(mousePos.x, mousePos.z)
    end
end

function pAutoIgnite()
    local IgniteSlot

    if myHero:GetSpellData(SUMMONER_1).name:find("SummonerDot") then
        IgniteSlot = SUMMONER_1
    elseif myHero:GetSpellData(SUMMONER_2).name:find("SummonerDot") then
        IgniteSlot = SUMMONER_2
    end

    --

    if AutoCarry.PluginMenu.pAutoIgnite and IgniteSlot ~= nil and myHero:CanUseSpell(IgniteSlot) == READY then
        local iDmg = 0
        for _, enemy in pairs(AutoCarry.EnemyTable) do
            if ValidTarget(enemy) and GetDistance(enemy) < 600 then
                iDmg = 50 + 20 * myHero.level

                if enemy.health <= iDmg then CastSpell(IgniteSlot, enemy) end
            end
        end
    end
end