Auto Carry Plugin - Lucian Edition - v1.02 Beta Pre-Release

--[[

        Auto Carry Plugin - Lucian Edition
        Author: Kain
        Version: 1.02 Beta
        Copyright 2013

        Dependency: Sida's Auto Carry: Revamped

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

if myHero.charName ~= "Lucian" then return end

local Target

-- Prediction
local QRange = 550
local QMaxRange = 1100
local WRange = 1000
local ERange = 425
local RRange = 1400

-- Speeds and widths need refining.
local QSpeed = 1.3
local WSpeed = 1.3
local ESpeed = 1.3
local RSpeed = 1.3

local QWidth = 250
local WWidth = 250
local EWidth = 0
local RWidth = 250

local PursuitMinMouseDiff = 500

local SkillQ = {spellKey = _Q, range = QRange, speed = QSpeed, delay = 0, width = QWidth, configName = "piercinglight", displayName = "Q (Piercing Light)", enabled = true, skillShot = true, minions = false, reset = false, reqTarget = true }
local SkillW = {spellKey = _W, range = WRange, speed = WSpeed, delay = 0, width = WWidth, configName = "ardentblaze", displayName = "W (Ardent Blaze)", enabled = true, skillShot = true, minions = false, reset = false, reqTarget = false }
local SkillE = {spellKey = _E, range = ERange, speed = ESpeed, delay = 0, width = EWidth, configName = "relentlesspursuit", displayName = "E (Relentless Pursuit)", enabled = true, skillShot = true, minions = false, reset = false, reqTarget = false }
local SkillR = {spellKey = _R, range = RRange, speed = RSpeed, delay = 0, width = RWidth, configName = "theculling", displayName = "R (The Culling)", enabled = true, skillShot = true, minions = false, reset = false, reqTarget = true }

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 PluginOnLoad()
    Menu()

    AutoCarry.SkillsCrosshair.range = QMaxRange
end

function Menu()
--  AutoCarry.PluginMenu:addParam("fullcombo", "Full Combo", SCRIPT_PARAM_ONKEYDOWN, false, string.byte("Z"))
    AutoCarry.PluginMenu:addParam("Harass", "Harass", SCRIPT_PARAM_ONKEYDOWN, false, string.byte("A"))
    AutoCarry.PluginMenu:addParam("UseE", "Pursuit in Combo", SCRIPT_PARAM_ONOFF, true)
    AutoCarry.PluginMenu:addParam("Ultimate", "Use Ultimate with Combo", SCRIPT_PARAM_ONOFF, true)
    AutoCarry.PluginMenu:addParam("Killsteal", "Killsteal", SCRIPT_PARAM_ONOFF, true)
    AutoCarry.PluginMenu:addParam("KillstealUlt", "Killsteal with Ult", SCRIPT_PARAM_ONOFF, false)
    AutoCarry.PluginMenu:addParam("Draw", "Draw range circles", SCRIPT_PARAM_ONOFF, true)
end

function PluginOnTick()
    Target = AutoCarry.GetAttackTarget(true)

    SpellCheck()

    if (AutoCarry.MainMenu.AutoCarry or AutoCarry.MainMenu.MixedMode) then
        Combo()
    end

--[[
    if AutoCarry.PluginMenu.fullcombo then
        FullCombo()
    end
--]]

    if AutoCarry.PluginMenu.Harass then
        Harass()
    end

    if AutoCarry.PluginMenu.Killsteal then
        KillSteal()
    end
end

function PluginOnCreateObj(obj)
    -- Nothing to do here.
end

function PluginOnDeleteObj(obj)
    -- Nothing to do here.
end

function OnAttacked()
    -- AA > Q > AA
    CastQ()
end

--[[
function CustomAttackEnemy(enemy)
        if enemy.dead or not enemy.valid then return end
        -- myHero:Attack(enemy)
        -- AutoCarry.shotFired = true
end
--]]

function SpellCheck()
    DFGSlot, HXGSlot, BWCSlot, BRKSlot, SheenSlot, TrinitySlot, LichBaneSlot = GetInventorySlotItem(3128),
    GetInventorySlotItem(3146), GetInventorySlotItem(3144), GetInventorySlotItem(3153), GetInventorySlotItem(3057),
    GetInventorySlotItem(3078), GetInventorySlotItem(3100)

    QReady = (myHero:CanUseSpell(SkillQ.spellKey) == READY)
    WReady = (myHero:CanUseSpell(SkillW.spellKey) == READY)
    EReady = (myHero:CanUseSpell(SkillE.spellKey) == READY)
    RReady = (myHero:CanUseSpell(SkillR.spellKey) == 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)
    BRKReady = (BRKSlot ~= nil and myHero:CanUseSpell(BRKSlot) == READY)

    IReady = (ignite ~= nil and myHero:CanUseSpell(ignite) == READY)
end

-- Handle SBTW Skill Shots

function Combo()
    CastSlots()
    if AutoCarry.PluginMenu.UseE then CastE() end
    CastQ()
    CastW()
    if AutoCarry.PluginMenu.Ultimate then
        CastR()
    end
end

function FullCombo()
    CastSlots()
    CastE()
    CastQ()
    CastW()
    if AutoCarry.PluginMenu.Ultimate then
        CastR()
    end
end

function CastSlots()
    if Target ~= nil then
        if GetDistance(Target) <= QRange then
            if DFGReady then CastSpell(DFGSlot, Target) end
            if HXGReady then CastSpell(HXGSlot, Target) end
            if BWCReady then CastSpell(BWCSlot, Target) end
            if BRKReady then CastSpell(BRKSlot, Target) end
        end
    end
end


function Harass()
    CastQ()
end

function CastQ()
    -- Q (Piercing Light)
    if Target ~= nil and QReady and ValidTarget(Target, QRange) then
        CastSpell(SkillQ.spellKey, Target)
    end
end

function CastW()
    -- W (Ardent Blaze)
    if Target ~= nil and WReady and ValidTarget(Target, WRange) then
        AutoCarry.CastSkillshot(SkillW, Target)
    end
end

function CastE()
    -- E (Relentless Pursuit)
    if debugMode then
        PrintChat("Mouse Distance: "..GetDistance(mousePos))
    end

    if EReady then
        -- if ( math.abs(mousePos.x - myHero.x) > PursuitMinMouseDiff or math.abs(mousePos.z - myHero.z) > PursuitMinMouseDiff) then
        if (GetDistance(mousePos) > PursuitMinMouseDiff) then
            CastSpell(SkillE.spellKey, mousePos.x, mousePos.z)
        end
    end
end

function CastR()
    -- R (The Culling)
    if Target ~= nil and RReady and ValidTarget(Target, RRange) then
        AutoCarry.CastSkillshot(SkillR, Target)
    end
    -- myHero:MoveTo(mousePos.x, mousePos.z)
end

function KillSteal()
    -- Will try to perform a killsteam using any spell.
    if not AutoCarry.PluginMenu.Killsteal then return end

    for _, enemy in pairs(AutoCarry.EnemyTable) do
        if not enemy.dead then
            -- if ValidTarget(enemy, QRange) and QReady and enemy.health < getDmg("Q", enemy, myHero) then
            if ValidTarget(enemy, QRange) and QReady and (enemy.health + 20) < getDmg("Q", enemy, myHero) then
                CastSpell(SkillQ.spellKey, enemy)
            elseif ValidTarget(enemy, WRange) and WReady and (enemy.health + 20) < getDmg("W", enemy, myHero) then
                AutoCarry.CastSkillshot(SkillW, enemy)
            elseif AutoCarry.PluginMenu.KillstealUlt and ValidTarget(enemy, RRange) and RReady and (enemy.health + 20) < getDmg("R", enemy, myHero) then
                AutoCarry.CastSkillshot(SkillR, enemy)
            end
        end
    end
end

function PluginOnWndMsg(msg,key)
    Target = AutoCarry.GetAttackTarget()
    if Target ~= nil then
        -- if msg == KEY_DOWN and key == KeyQ then CastQ() end
        if msg == KEY_DOWN and key == KeyW then CastW() end
        if msg == KEY_DOWN and key == KeyE then CastE() end
        if msg == KEY_DOWN and key == KeyR then CastR() end
    end
end

-- Drawing

function PluginOnDraw()
    if AutoCarry.PluginMenu.Draw then
        DrawCircle(myHero.x, myHero.y, myHero.z, AutoCarry.SkillsCrosshair.range, 0x808080) -- Gray

        if myHero:CanUseSpell(SkillQ.spellKey) then
            DrawCircle(myHero.x, myHero.y, myHero.z, QRange, 0x0099CC) -- Blue
        end

        if myHero:CanUseSpell(SkillW.spellKey) then
            DrawCircle(myHero.x, myHero.y, myHero.z, WRange, 0xFFFF00) -- Yellow
        end

        if myHero:CanUseSpell(SkillE.spellKey) then
            DrawCircle(myHero.x, myHero.y, myHero.z, ERange, 0x00FF00) -- Green
        end

        if myHero:CanUseSpell(SkillR.spellKey) then
            DrawCircle(myHero.x, myHero.y, myHero.z, RRange, 0xFF0000) -- Red
        end

        Target = AutoCarry.GetAttackTarget()
        if Target ~= nil then
            for j=0, 10 do
                DrawCircle(Target.x, Target.y, Target.z, 40 + j*1.5, 0x00FF00) -- Green
            end
        end
    end
end