Zyra (fixed)

--[[
    Zyra Combo 1.0 by eXtragoZ

        It requires AllClass and Spell Damage Library

    -Full combo: items -> E -> Q -> W -> W -> R
    -Supports Deathfire Grasp, Bilgewater Cutlass, Hextech Gunblade, Sheen, Trinity, Lich Bane and Ignite
    -Harass mode: Q -> W -> W
    -Option for manual mode (where is the mouse)
    -Informs where will use the combo / default off
    -Mark killable target with a combo
    -Target configuration
    -Press shift to configure

    Explanation of the marks:

    Green circle: Marks the current target to which you will do the combo
    Blue circle: Mark a target that can be killed with a combo, if all the skills were available
    Red circle: Mark a target that can be killed using items + 3 hits + Q x2 + W (6 hits) + E + R + ignite
    2 Red circles: Mark a target that can be killed using items + 2 hits + Q + W (3 hits) + E + R + ignite
    3 Red circles: Mark a target that can be killed using items (without Sheen, Trinity and Lich Bane) + Q + E + R

]]
if myHero.charName ~= "Zyra" then return end

--[[            Code            ]]
local range = 1100
local range2 = 825
local castspeed = 700
local tick = nil
-- Active
-- draw
local waittxt = {}
local calculationenemy = 1
local floattext = {"Skills are not available","Able to fight","Killable","Murder him!"}
local killable = {}
-- ts
local ts
--
local ignite = nil
local DFGSlot, HXGSlot, BWCSlot, SheenSlot, TrinitySlot, LichBaneSlot = nil, nil, nil, nil, nil, nil
local QREADY, WREADY, EREADY, RREADY, DFGREADY, HXGREADY, BWCREADY, IREADY = false, false, false, false, false, false, false, false

function OnLoad()
    ZCConfig = scriptConfig("Zyra Combo 1.0", "zyracombo")
    ZCConfig:addParam("scriptActive", "Combo", SCRIPT_PARAM_ONKEYDOWN, false, 32)
    ZCConfig:addParam("harass", "Harass", SCRIPT_PARAM_ONKEYDOWN, false, 84)
    ZCConfig:addParam("drawcircles", "Draw Circles", SCRIPT_PARAM_ONOFF, true)
    ZCConfig:addParam("drawtext", "Draw Text", SCRIPT_PARAM_ONOFF, true)
    ZCConfig:addParam("drawprediction", "Draw Prediction", SCRIPT_PARAM_ONOFF, false)
    ZCConfig:addParam("manual", "Use manual", SCRIPT_PARAM_ONOFF, false)
    ZCConfig:addParam("useUlt", "Use Ult", SCRIPT_PARAM_ONOFF, false)
    ZCConfig:permaShow("scriptActive")
    ZCConfig:permaShow("harass")
    ZCConfig:permaShow("manual")
    ts = TargetSelector(TARGET_LOW_HP,range,DAMAGE_MAGIC)
    ts:SetPrediction(castspeed)
    ts.name = "Zyra"
    ZCConfig:addTS(ts)
    if myHero:GetSpellData(SUMMONER_1).name:find("SummonerDot") then ignite = SUMMONER_1
    elseif myHero:GetSpellData(SUMMONER_2).name:find("SummonerDot") then ignite = SUMMONER_2 end
    for i=1, heroManager.iCount do waittxt[i] = i*3 end
end

function OnTick()
    ts:update()
    Prediction__OnTick()
    DFGSlot, HXGSlot, BWCSlot, SheenSlot, TrinitySlot, LichBaneSlot = GetInventorySlotItem(3128), GetInventorySlotItem(3146), GetInventorySlotItem(3144), GetInventorySlotItem(3057), GetInventorySlotItem(3078), GetInventorySlotItem(3100)
    QREADY = (myHero:CanUseSpell(_Q) == READY)
    WREADY = (myHero:CanUseSpell(_W) == READY)
    EREADY = (myHero:CanUseSpell(_E) == READY)
    RREADY = (myHero:CanUseSpell(_R) == READY)
    DFGREADY = (DFGSlot ~= nil and myHero:CanUseSpell(DFGSlot) == READY)
    HXGREADY = (HXGSlot ~= nil and myHero:CanUseSpell(HXGSlot) == READY)
    BWCREADY = (BWCSlot ~= nil and myHero:CanUseSpell(BWCSlot) == READY)
    IREADY = (ignite ~= nil and myHero:CanUseSpell(ignite) == READY)
    if tick == nil or GetTickCount()-tick >= 200 then
        tick = GetTickCount()
        ZCDmgCalculation()
    end
    if ZCConfig.harass then
        if ts.target and not ZCConfig.manual then
            if QREADY and GetDistance(ts.nextPosition)<=825 then CastSpell(_Q, ts.nextPosition.x, ts.nextPosition.z) end
            if WREADY and GetDistance(ts.nextPosition)<=825 then CastSpell(_W, ts.nextPosition.x, ts.nextPosition.z) end
        end
        if ZCConfig.manual then
            if QREADY and GetDistance(mousePos)<=825 then CastSpell(_Q, mousePos.x, mousePos.z) end
            if WREADY and GetDistance(mousePos)<=825 then CastSpell(_W, mousePos.x, mousePos.z) end
        end
    end
    if ZCConfig.scriptActive then
        if ts.target then
            if DFGREADY then CastSpell(DFGSlot, ts.target) end
            if HXGREADY then CastSpell(HXGSlot, ts.target) end
            if BWCREADY then CastSpell(BWCSlot, ts.target) end
            if not ZCConfig.manual then
                if EREADY and GetDistance(ts.nextPosition)<=1100 then CastSpell(_E, ts.nextPosition.x, ts.nextPosition.z) end
                if QREADY and GetDistance(ts.nextPosition)<=825 then CastSpell(_Q, ts.nextPosition.x, ts.nextPosition.z) end
                if WREADY and GetDistance(ts.nextPosition)<=825 then CastSpell(_W, ts.nextPosition.x, ts.nextPosition.z) end
                if ZCConfig.useUlt and RREADY and GetDistance(ts.nextPosition)<=700 then CastSpell(_R, ts.nextPosition.x, ts.nextPosition.z) end
            end
        end
        if ZCConfig.manual then
            if EREADY and GetDistance(mousePos)<=1100 then CastSpell(_E, mousePos.x, mousePos.z) end
            if QREADY and GetDistance(mousePos)<=825 then CastSpell(_Q, mousePos.x, mousePos.z) end
            if WREADY and GetDistance(mousePos)<=825 then CastSpell(_W, mousePos.x, mousePos.z) end
            if ZCConfig.useUlt and RREADY and GetDistance(mousePos)<=700 then CastSpell(_R, mousePos.x, mousePos.z) end
        end
    end
end
function ZCDmgCalculation()
    local enemy = heroManager:GetHero(calculationenemy)
    if ValidTarget(enemy) then
        local dfgdamage, hxgdamage, bwcdamage, ignitedamage, Sheendamage, Trinitydamage, LichBanedamage  = 0, 0, 0, 0, 0, 0, 0
        local pdamage = getDmg("P",enemy,myHero)
        local qdamage = getDmg("Q",enemy,myHero)
        local wdamage = getDmg("W",enemy,myHero) --xstrike Extra plants striking the same target deal 50% less damage
        local edamage = getDmg("E",enemy,myHero)
        local rdamage = getDmg("R",enemy,myHero)
        local hitdamage = getDmg("AD",enemy,myHero)
        local dfgdamage = (DFGSlot and getDmg("DFG",enemy,myHero) or 0)
        local hxgdamage = (HXGSlot and getDmg("HXG",enemy,myHero) or 0)
        local bwcdamage = (BWCSlot and getDmg("BWC",enemy,myHero) or 0)
        local ignitedamage = (ignite and getDmg("IGNITE",enemy,myHero) or 0)
        local Sheendamage = (SheenSlot and getDmg("SHEEN",enemy,myHero) or 0)
        local Trinitydamage = (TrinitySlot and getDmg("TRINITY",enemy,myHero) or 0)
        local LichBanedamage = (LichBaneSlot and getDmg("LICHBANE",enemy,myHero) or 0)
        local combo1 = hitdamage*3 + qdamage*2 + wdamage*6 + edamage + rdamage + Sheendamage + Trinitydamage + LichBanedamage --0 cd
        local combo2 = hitdamage*3 + Sheendamage + Trinitydamage + LichBanedamage
        local combo3 = hitdamage*2 + Sheendamage + Trinitydamage + LichBanedamage
        local combo4 = 0
        if QREADY then
            combo2 = combo2 + qdamage*2
            combo3 = combo3 + qdamage
            combo4 = combo4 + qdamage
        end
        if WREADY then
            combo2 = combo2 + wdamage*6
            combo3 = combo3 + wdamage*3
        end
        if EREADY then
            combo2 = combo2 + edamage
            combo3 = combo3 + edamage
            combo4 = combo4 + edamage
        end
        if RREADY then
            combo2 = combo2 + rdamage
            combo3 = combo3 + rdamage
            combo4 = combo4 + rdamage
        end
        if DFGREADY then
            combo1 = combo1 + dfgdamage
            combo2 = combo2 + dfgdamage
            combo3 = combo3 + dfgdamage
            combo4 = combo4 + dfgdamage
        end
        if HXGREADY then
            combo1 = combo1 + hxgdamage
            combo2 = combo2 + hxgdamage
            combo3 = combo3 + hxgdamage
            combo4 = combo4 + hxgdamage
        end
        if BWCREADY then
            combo1 = combo1 + bwcdamage
            combo2 = combo2 + bwcdamage
            combo3 = combo3 + bwcdamage
            combo4 = combo4 + bwcdamage
        end
        if IREADY then
            combo1 = combo1 + ignitedamage
            combo2 = combo2 + ignitedamage
            combo3 = combo3 + ignitedamage
        end
        if combo4 >= enemy.health then killable[calculationenemy] = 4
        elseif combo3 >= enemy.health then killable[calculationenemy] = 3
        elseif combo2 >= enemy.health then killable[calculationenemy] = 2
        elseif combo1 >= enemy.health then killable[calculationenemy] = 1
        else killable[calculationenemy] = 0 end
    end
    if calculationenemy == 1 then calculationenemy = heroManager.iCount
    else calculationenemy = calculationenemy-1 end
end

function OnDraw()
    if ZCConfig.drawcircles and not myHero.dead then
        DrawCircle(myHero.x, myHero.y, myHero.z, range, 0x19A712)
        DrawCircle(myHero.x, myHero.y, myHero.z, range2, 0x19A712)
        if ts.target ~= nil then
            for j=0, 10 do
                DrawCircle(ts.target.x, ts.target.y, ts.target.z, 40 + j*1.5, 0x00FF00)
            end
        end
    end
    if ts.target ~= nil and ZCConfig.drawprediction then
        DrawCircle(ts.nextPosition.x, ts.target.y, ts.nextPosition.z, 200, 0x0000FF)
    end
    for i=1, heroManager.iCount do
        local enemydraw = heroManager:GetHero(i)
        if ValidTarget(enemydraw) then
            if ZCConfig.drawcircles then
                if killable[i] == 1 then
                    for j=0, 20 do
                        DrawCircle(enemydraw.x, enemydraw.y, enemydraw.z, 80 + j*1.5, 0x0000FF)
                    end
                elseif killable[i] == 2 then
                    for j=0, 10 do
                        DrawCircle(enemydraw.x, enemydraw.y, enemydraw.z, 80 + j*1.5, 0xFF0000)
                    end
                elseif killable[i] == 3 then
                    for j=0, 10 do
                        DrawCircle(enemydraw.x, enemydraw.y, enemydraw.z, 80 + j*1.5, 0xFF0000)
                        DrawCircle(enemydraw.x, enemydraw.y, enemydraw.z, 110 + j*1.5, 0xFF0000)
                    end
                elseif killable[i] == 4 then
                    for j=0, 10 do
                        DrawCircle(enemydraw.x, enemydraw.y, enemydraw.z, 80 + j*1.5, 0xFF0000)
                        DrawCircle(enemydraw.x, enemydraw.y, enemydraw.z, 110 + j*1.5, 0xFF0000)
                        DrawCircle(enemydraw.x, enemydraw.y, enemydraw.z, 140 + j*1.5, 0xFF0000)
                    end
                end
            end
            if ZCConfig.drawtext and waittxt[i] == 1 and killable[i] ~= 0 then
                PrintFloatText(enemydraw,0,floattext[killable[i]])
            end
        end
        if waittxt[i] == 1 then waittxt[i] = 30
        else waittxt[i] = waittxt[i]-1 end
    end
    SC__OnDraw()
end
function OnWndMsg(msg,key)
    SC__OnWndMsg(msg,key)
end
function OnSendChat(msg)
    TargetSelector__OnSendChat(msg)
    ts:OnSendChat(msg, "pri")
end
PrintChat(" >> Zyra Combo 1.0 loaded!")