[1.0a] SidasAutoCarryPlugin - Wukong

--[[

        Auto Carry Plugin - Wukong/Monkey King Edition
        Author: Roach_
        Version: 1.0a
        Copyright 2013

        Dependency: Sida's Auto Carry: Revamped

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

        Features:
            Combo with Autocarry
            Harass with Mixed Mode
            Killsteal with Q / E
            Farm with Q / E
            Draw Combo Ranges (With Cooldown Check)
            Escape Artist(with Flash)
            Auto Pots/Items

        History:
            Version: 1.0a
                First release

--]]
if myHero.charName ~= "MonkeyKing" then return end

local Target
local wEscapeHotkey = string.byte("T")

-- Prediction
local qRange, eRange, rRange = 300, 625, 162

local FlashSlot = nil

local SkillQ = {spellKey = _Q, range = qRange, speed = 2, delay = 0, width = 200, configName = "crushingBlow", displayName = "Q (Crushing Blow)", enabled = true, skillShot = false, minions = false, reset = false, reqTarget = true }
local SkillE = {spellKey = _E, range = eRange, speed = 2, delay = 0, width = 200, configName = "nimbusStrike", displayName = "E (Nimbus Strike)", enabled = true, skillShot = false, minions = false, reset = false, reqTarget = true }

local QReady, WReady, EReady, RReady, FlashReady = false, false, false, false, false

-- Regeneration
local UsingHPot, UsingMPot, UsingFlask, Recall = false, false, false, false

-- Our lovely script
function PluginOnLoadMenu()
    Menu = AutoCarry.PluginMenu
    Menu2 = AutoCarry.MainMenu
    Menu:addParam("wPlugin", "[Cast Options]", SCRIPT_PARAM_INFO, "")
    Menu:addParam("wCombo", "[Combo Options]", SCRIPT_PARAM_INFO, "")
    Menu:addParam("wAutoQ", "Auto Cast Q", SCRIPT_PARAM_ONOFF, true)
    Menu:addParam("wAutoE", "Auto Cast E", SCRIPT_PARAM_ONOFF, true)
    Menu:addParam("wAutoR", "Auto Cast R(When Killable)", SCRIPT_PARAM_ONOFF, false)
    Menu:permaShow("wPlugin")

    Menu:addParam("wGap", "", SCRIPT_PARAM_INFO, "")

    Menu:addParam("wKS", "[Kill Steal Options]", SCRIPT_PARAM_INFO, "")
    Menu:addParam("wKillsteal", "Auto Kill Steal with E / Q", SCRIPT_PARAM_ONOFF, true)
    Menu:permaShow("wKS")
    Menu:permaShow("wKillsteal")

    Menu:addParam("wGap", "", SCRIPT_PARAM_INFO, "")

    Menu:addParam("wMisc", "[Misc Options]", SCRIPT_PARAM_INFO, "")
    -- Menu:addParam("pAutoLVL", "Auto Level Spells", SCRIPT_PARAM_ONOFF, false)
    Menu:addParam("wMinMana", "Minimum Mana to Farm/Harass", SCRIPT_PARAM_SLICE, 40, 0, 100, -1)
    Menu:addParam("wEscape", "Escape Artist", SCRIPT_PARAM_ONKEYDOWN, false, wEscapeHotkey)
    Menu:addParam("wEscapeFlash", "Escape: Flash to Mouse", SCRIPT_PARAM_ONOFF, false)
    Menu:permaShow("wMisc")
    Menu:permaShow("wEscape")

    Menu:addParam("wGap", "", SCRIPT_PARAM_INFO, "")

    Menu:addParam("wH", "[Harass Options]", SCRIPT_PARAM_INFO, "")
    Menu:addParam("wHarass", "Auto Harass with E", SCRIPT_PARAM_ONOFF, true)
    Menu:addParam("wHarassEscape", "Auto use W after Harass", SCRIPT_PARAM_ONOFF, false)

    Menu:addParam("wGap", "", SCRIPT_PARAM_INFO, "")

    Menu:addParam("wFarm", "[Farm Options]", SCRIPT_PARAM_INFO, "")
    Menu:addParam("wFarmQ", "Auto Farm with Q", SCRIPT_PARAM_ONOFF, false)
    Menu:addParam("wFarmE", "Auto Clear Lane with E", SCRIPT_PARAM_ONOFF, false)

    Extras = scriptConfig("Sida's Auto Carry Plugin: "..myHero.charName..": Extras", myHero.charName)
    Extras:addParam("wDraw", "[Draw Options]", SCRIPT_PARAM_INFO, "")
    Extras:addParam("wDQ", "Draw Q Range", SCRIPT_PARAM_ONOFF, false)
    Extras:addParam("wDW", "Draw W Range(Check Cooldowns)", SCRIPT_PARAM_ONOFF, false)
    Extras:addParam("wDE", "Draw E Range", SCRIPT_PARAM_ONOFF, false)

    Extras:addParam("wGap", "", SCRIPT_PARAM_INFO, "")

    Extras:addParam("wHPMana", "[Auto Pots/Items Options]", SCRIPT_PARAM_INFO, "")
    Extras:addParam("wWItem", "Auto Wooglets", SCRIPT_PARAM_ONOFF, true)
    Extras:addParam("wWHealth", "Minimum Health for Wooglets", SCRIPT_PARAM_SLICE, 15, 0, 100, -1)
    Extras:addParam("wHP", "Auto Health Pots", SCRIPT_PARAM_ONOFF, true)
    Extras:addParam("wMP", "Auto Auto Mana Pots", SCRIPT_PARAM_ONOFF, true)
    Extras:addParam("wHPHealth", "Minimum Health for Pots", SCRIPT_PARAM_SLICE, 50, 0, 100, -1)
end
function PluginOnLoad()
    -- Params/PluginMenu
    PluginOnLoadMenu()

    -- Range
    AutoCarry.SkillsCrosshair.range = eRange-25
end

function PluginOnTick()
    if Recall then return end

    -- Get Attack Target
    Target = AutoCarry.GetAttackTarget()

    -- Check Spells
    wSpellCheck()

    -- Combo, Harass, Killsteal, Escape Combo, Farm - Checks
    wCombo()
    wHarass()
    wKillsteal()
    wEscapeCombo()
    wFarm()

    -- Auto Regeneration
    if Extras.wWItem and IsMyHealthLow() and Target and WGTReady then CastSpell(wgtSlot) end
    if Extras.wHP and NeedHP() and not (UsingHPot or UsingFlask) and (HPReady or FSKReady) then CastSpell((hpSlot or fskSlot)) end
    if Extras.wMP and IsMyManaLow() and not (UsingMPot or UsingFlask) and(MPReady or FSKReady) then CastSpell((mpSlot or fskSlot)) end
end

function PluginOnDraw()
    -- Draw Wukong's Range = 625 - 25
    local tempColor = { 0xFF0000, 0xFF0000, 0xFF0000 }

    if not myHero.dead then
        if Extras.wDQ then
            if QReady then tempColor[1] = 0x00FF00 end
            DrawCircle(myHero.x, myHero.y, myHero.z, qRange, tempColor[1])
        end
        if Extras.wDW then
            if WReady then tempColor[2] = 0x00FF00 end
            DrawCircle(myHero.x, myHero.y, myHero.z, myHero.range-50, tempColor[2])
        end
        if Extras.wDE then
            if EReady then tempColor[3] = 0x00FF00 end
            DrawCircle(myHero.x, myHero.y, myHero.z, eRange, tempColor[3])
        end
    end
end

-- Object Detection
function PluginOnCreateObj(obj)
    if obj.name:find("TeleportHome.troy") then
        if GetDistance(obj, myHero) <= 70 then
            Recall = true
        end
    end
    if obj.name:find("Regenerationpotion_itm.troy") then
        if GetDistance(obj, myHero) <= 70 then
            UsingHPot = true
        end
    end
    if obj.name:find("Global_Item_HealthPotion.troy") then
        if GetDistance(obj, myHero) <= 70 then
            UsingHPot = true
            UsingFlask = true
        end
    end
    if obj.name:find("Global_Item_ManaPotion.troy") then
        if GetDistance(obj, myHero) <= 70 then
            UsingFlask = true
            UsingMPot = true
        end
    end
end

function PluginOnDeleteObj(obj)
    if obj.name:find("TeleportHome.troy") then
        Recall = false
    end
    if obj.name:find("Regenerationpotion_itm.troy") then
        UsingHPot = false
    end
    if obj.name:find("Global_Item_HealthPotion.troy") then
        UsingHPot = false
        UsingFlask = false
    end
    if obj.name:find("Global_Item_ManaPotion.troy") then
        UsingMPot = false
        UsingFlask = false
    end
end

-- Primary Functions
function wCombo()
    if Menu.wCombo and Menu2.AutoCarry then
        if ValidTarget(Target) then
            if QReady and Menu.wAutoQ and GetDistance(Target) < qRange then
                CastSpell(SkillQ.spellKey, Target)
            end

            if EReady and Menu.wAutoE and GetDistance(Target) < eRange then
                CastSpell(SkillE.spellKey, Target)
            end

            if RReady and Menu.wAutoR and (getDmg("R", Target, myHero) * 4) > Target.health and GetDistance(Target) < (rRange - 12) then
                CastSpell(_R)
            end
        end
    end
end

function wHarass()
    if Menu.wHarass and Menu2.MixedMode then
        if ValidTarget(Target) then
            if EReady and GetDistance(Target) < eRange and (myHero.mana / myHero.maxMana) > Menu.wMinMana then
                CastSpell(SkillE.spellKey, Target)
                myHero:Attack(Target)
            end
            if WReady and Menu.wHarassEscape then
                CastSpell(_W)
            end
        end
    end
end

function wFarm()
    if Menu.wFarmQ and (Menu2.LastHit) and (myHero.mana / myHero.maxMana) > Menu.wMinMana then
        for _, minion in pairs(AutoCarry.EnemyMinions().objects) do
            if ValidTarget(minion) and QReady and GetDistance(minion) <= qRange then
                if minion.health < getDmg("Q", minion, myHero) then
                    CastSpell(SkillQ.spellKey, minion)
                end
            end
        end
    end
    if Menu.wFarmE and (Menu2.LaneClear) and (myHero.mana / myHero.maxMana) > Menu.wMinMana then
        for _, minion in pairs(AutoCarry.EnemyMinions().objects) do
            if ValidTarget(minion) and EReady and GetDistance(minion) <= eRange then
                if minion.health < getDmg("E", minion, myHero) then
                    CastSpell(SkillE.spellKey, minion)
                end
            end
        end
    end
end

function wKillsteal()
    if Menu.wKillsteal then
        for _, enemy in pairs(AutoCarry.EnemyTable) do
            if ValidTarget(enemy) then
                if QReady and GetDistance(enemy) < qRange and enemy.health < getDmg("Q", enemy, myHero) then
                        CastSpell(SkillQ.spellKey, enemy)
                end
                if EReady and GetDistance(enemy) > qRange and GetDistance(enemy) < eRange and enemy.health < getDmg("E", enemy, myHero) then
                    CastSpell(SkillE.spellKey, enemy)
                end
            end
        end
    end
end

function wEscapeCombo()
    if Menu.wEscape then
        if WReady then
            CastSpell(_W)
            if Menu.wEscapeFlash and FlashReady and GetDistance(mousePos) > 300 then
                CastSpell(FlashSlot, mousePos.x, mousePos.z)
            end
        end

        if Menu.wEscapeFlash then
            myHero:MoveTo(mousePos.x, mousePos.z)
        end
    end
end

-- Scondary Functions
function wSpellCheck()
    wgtSlot = GetInventorySlotItem(3090)
    hpSlot, mpSlot, fskSlot = GetInventorySlotItem(2003),GetInventorySlotItem(2004),GetInventorySlotItem(2041)

    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

    QReady = (myHero:CanUseSpell(SkillQ.spellKey) == READY)
    WReady = (myHero:CanUseSpell(_W) == READY)
    EReady = (myHero:CanUseSpell(SkillE.spellKey) == READY)
    RReady = (myHero:CanUseSpell(_R) == READY)
    WGTReady = (wgtSlot ~= nil and myHero:CanUseSpell(wgtSlot) == READY)
    HPReady = (hpSlot ~= nil and myHero:CanUseSpell(hpSlot) == READY)
    MPReady = (mpSlot ~= nil and myHero:CanUseSpell(mpSlot) == READY)
    FSKReady = (fskSlot ~= nil and myHero:CanUseSpell(fskSlot) == READY)

    FlashReady = (FlashSlot ~= nil and myHero:CanUseSpell(FlashSlot) == READY)
end

-- Auto Potions
function IsMyManaLow()
    if (myHero.mana / myHero.maxMana) <= (Menu.wMinMana / 100) then
        return true
    else
        return false
    end
end

function IsMyHealthLow()
    if (myHero.health / myHero.maxHealth) <= (Extras.wWHealth / 100) then
        return true
    else
        return false
    end
end

function NeedHP()
    if (myHero.health / myHero.maxHealth) <= (Extras.wHPHealth / 100) then
        return true
    else
        return false
    end
end