activator_beta.lua

--[[Mad's Activator]]--
-- Credits:
-- lopht for Leaguebot
-- Sida for utils.lua
-- Akira for Activator idea and base (mostly rewritten)
-- Lua for IgniteTarget.lua
-- kyuuketsuuki for RedElixir.lua (Also thanks to Valdorian for RedElixir 1.1)

require 'utils'
require 'winapi'
require 'SKeys'
require 'IgniteTarget'
local send = require 'SendInputScheduled'
local uiconfig = require 'uiconfig'

local version = '1.0'
local target
local brktarget
local dfgtarget
local igntarget

local wUsedAt = 0
local vUsedAt = 0
local mUsedAt = 0
local timer = os.clock()
local bluePill = nil

ADItems, ad = uiconfig.add_menu('AD Aggressive Items')
ad.checkbutton('botRK', 'Blade of the Ruined King', true)
ad.checkbutton('Hydra', 'Ravenous Hydra', true)
ad.checkbutton('Tiamat', 'Tiamat', true)

APItems, ap = uiconfig.add_menu('AP Aggressive Items')
ap.checkbutton('DFG', 'Deathfire Grasp', true)

local Summoners =
				{
					Ignite = {Key = nil, Name = 'SummonerDot'},
					Exhaust = {Key = nil, Name = 'SummonerExhaust'},
					Heal = {Key = nil, Name = 'SummonerHeal'},
					Clarity = {Key = nil, Name = 'SummonerMana'},
					Barrier = {Key = nil, Name = 'SummonerBarrier'},
					Clairvoyance = {Key = nil, Name = 'SummonerClairvoyance'},
					Cleanse = {Key = nil, Name = 'SummonerBoost'}
				}

if myHero ~= nil then
    for k, v in pairs(Summoners) do
        if myHero.SummonerD == v.Name then
            v.Key = "D"
        elseif myHero.SummonerF == v.Name then
            v.Key = "F"
        end
    end
end

Spellss, sspells = uiconfig.add_menu('Summoner Spells')
if Summoners.Ignite.Key ~= nil then
	sspells.checkbutton('ign', 'Auto Ignite', true)
	IgniteOptions, ignopt = uiconfig.add_menu('Ignite Options')
	ignopt.checkbutton('BurnGA', 'Ignite Guardian Angel', true)
	ignopt.checkbutton('BurnEgg', 'Ignite Anivia even Eggnivia passive', false)
	ignopt.checkbutton('BurnAatrox', 'Ignite Aatrox even Rebirth passive', false)
	ignopt.checkbutton('BurnZac', 'Ignite Zac even Rebirth passive', false)
elseif Summoners.Exhaust.Key ~= nil then
	sspells.checkbutton('exh', 'Auto Exhaust', true)
elseif Summoners.Heal.Key ~= nil then
	sspells.checkbutton('heal', 'Auto Heal', true)
elseif Summoners.Clarity.Key ~= nil then
	sspells.checkbutton('cla', 'Auto Clarity', true)
elseif Summoners.Barrier.Key ~= nil then
	sspells.checkbutton('brr', 'Auto Barrier', true)
elseif Summoners.Clairvoyance.Key ~= nil then
	sspells.checkbutton('clv', 'Auto Clairvoyance', true)
elseif Summoners.Cleanse.Key ~= nil then
	sspells.checkbutton('cls', 'Auto Cleanse', true)
end
Potions, pots = uiconfig.add_menu('Potions', 200)
pots.checkbutton('AutoPotions', 'Master Switch: Potions', true)
pots.checkbutton('Health_Potion_ONOFF', 'Health Potions', true)
pots.checkbutton('Mana_Potion_ONOFF', 'Mana Potions', true)
pots.checkbutton('Crystalline_Flask_ONOFF', 'Crystalline Flask', true)
pots.checkbutton('Elixir_of_Fortitude_ONOFF', 'Elixir of Fortitude', true)
pots.checkbutton('Biscuit_ONOFF', 'Biscuit', true)
pots.slider('Health_Potion_Value', 'Health Potion Value', 0, 100, 75, nil, true)
pots.slider('Mana_Potion_Value', 'Mana Potion Value', 0, 100, 75, nil, true)
pots.slider('Crystalline_Flask_Value', 'Crystalline Flask Value', 0, 100, 75, nil, true)
pots.slider('Elixir_of_Fortitude_Value', 'Elixir of Fortitude Value', 0, 100, 30, nil, true)
pots.slider('Biscuit_Value', 'Biscuit Value', 0, 100, 60, nil, true)
pots.permashow('AutoPotions')

function eventLoop()
	if myHero.dead == 0 then
		if ADItems.botRK then botRK() end
		if ADItems.Tiamat then Tiamat() end
		if ADItems.Hydra then Hydra() end
		if APItems.DFG then DFG() end
		if Summoners.Ignite.Key ~= nil and Spellss.ign then ign() end
		if Potions.AutoPotions then potions() end
	end
end

function botRK()
	brk = GetInventorySlot(3153)
		if brk ~= nil and myHero["SpellTime"..brk] >= 1 then
			brktarget = GetWeakEnemy('PHYS', 450)
			if brktarget ~= nil and (myHero.maxHealth-myHero.health) <= (brktarget.maxHealth*15/100) then CastSpellTarget(tostring(brk),brktarget) end
		end
end

function Tiamat()
	tia = GetInventorySlot(3077)
	if tia ~= nil and CanUseSpell(tia) then
		if GetWeakEnemy('PHYS', 400) ~= nil then CastSpellTarget(tostring(tia),myHero) end
	end
end

function Hydra()
	hyd = GetInventorySlot(3074)
	if hyd ~= nil and myHero["SpellTime"..hyd] >= 1 then
		if GetWeakEnemy('PHYS', 400) ~= nil then CastSpellTarget(tostring(hyd),myHero) end
	end
end

function DFG()
	dfg = GetInventorySlot(3128)
	if dfg ~= nil and myHero["SpellTime"..dfg] >= 1 then
		dfgtarget = GetWeakEnemy('PHYS', 750)
		if dfgtarget ~= nil then CastSpellTarget(tostring(dfg),dfgtarget) end
	end
end

function ign()
	igntarget = GetWeakEnemy('TRUE',600)
	if igntarget ~= nil then
		IgniteTarget(igntarget, Summoners.Ignite.Key, ignopt.BurnGA, ignopt.BurnEgg, ignopt.BurnAatrox, ignopt.BurnZac)
	end
end

function potions()
	if bluePill == nil then
		if myHero.health < myHero.maxHealth * (Potions.Health_Potion_Value / 100) and GetClock() > wUsedAt + 15000 then
			usePotion()
			useBiscuit()
			wUsedAt = GetTick()
		elseif myHero.health < myHero.maxHealth * (Potions.Crystalline_Flask_Value / 100) and GetClock() > vUsedAt + 10000 then 
			useFlask()
			vUsedAt = GetTick()
		elseif myHero.health < myHero.maxHealth * (Potions.Biscuit_Value / 100) then
			useBiscuit()
		elseif myHero.health < myHero.maxHealth * (Potions.Elixir_of_Fortitude_Value / 100) then
			useElixir()
		end
		if myHero.mana < myHero.maxMana * (Potions.Mana_Potion_Value / 100) and GetClock() > mUsedAt + 15000 then
			useManaPot()
			mUsedAt = GetTick()
		end
	end
	if (os.clock() < timer + 5000) then
		bluePill = nil 
	end
end

function OnCreateObj(object)
	if object ~= nil and object.charName == "FountainHeal.troy" and GetDistance(object) < 100 then
		timer=os.clock()
		bluePill = object
	end
end
function usePotion()
	UseItemOnTarget(2003,myHero)
end
function useBiscuit()
	UseItemOnTarget(2010,myHero)
end
function useFlask()
	UseItemOnTarget(2041,myHero)
end
function useElixir()
	UseItemOnTarget(2037,myHero)
end
function useManaPot()
	UseItemOnTarget(2004,myHero)
end
function GetTick()
	return GetClock()
end
SetTimerCallback("eventLoop")