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

local Version = '2.51'

require "MapPosition"

require "DamageLib"
-- Spell Data
local Q = {Range = 1150,Delay = 0.35, Radius = 50, Speed = 2400}
local W = {Range = 5000}
local E = {Range = 1000}
local R = {Range = 1100}
local EDamages = {}
local Oathsworn = nil
local RES = Game.Resolution()
local SentinelPos = {Vector(5007.123535,0, 10471.446289),Vector(9866.148438,0, 4414.014160)}
local LastSentinels = {0,0}
local LastPositions = {}
local LastWardTime = 0 
local useExtLib = nil
local Ts = nil

local SlotToHK = {
	[ITEM_1] = HK_ITEM_1,
	[ITEM_2] = HK_ITEM_2,
	[ITEM_3] = HK_ITEM_3,
	[ITEM_4] = HK_ITEM_4,
	[ITEM_5] = HK_ITEM_5,
	[ITEM_6] = HK_ITEM_6,
	[ITEM_7] = HK_ITEM_7,
}


local function EnableOrb()
	if _G.SDK and _G.SDK.Orbwalker then
		_G.SDK.Orbwalker:SetAttack(true)
		_G.SDK.Orbwalker:SetMovement(true)
	end
	if _G.GOS then
		_G.GOS.BlockMovement = false
		_G.GOS.BlockAttack  = false
	end
	if EOW then
		EOW:SetMovements(true)
		EOW:SetMovements(true)
	end
end

local function DisableOrb()
	if _G.SDK and _G.SDK.Orbwalker then
		_G.SDK.Orbwalker:SetAttack(false)
		_G.SDK.Orbwalker:SetMovement(false)
	end
	if _G.GOS then
		_G.GOS.BlockMovement = true
		_G.GOS.BlockAttack  = true
	end
	if EOW then
		EOW:SetMovements(false)
		EOW:SetMovements(false)
	end
end

local spellcast = {state = 1, mouse = mousePos}

function CastSpell(hk,pos,delay)
	if spellcast.state == 2 then return end
	if ExtLibEvade and ExtLibEvade.Evading then return end
	
	spellcast.state = 2
	DisableOrb()
	spellcast.mouse = mousePos
	DelayAction(function() 
		Control.SetCursorPos(pos) 
		Control.KeyDown(hk)
		Control.KeyUp(hk)
	end, 0.05) 
	
		DelayAction(function()
			Control.SetCursorPos(spellcast.mouse)
		end,0.25)
		
		DelayAction(function()
			EnableOrb()
			spellcast.state = 1
		end,0.35)
	
end


-- Menu
local KalistaMenu = MenuElement({type = MENU, id = "KalistaMenu", name = "Kalista", leftIcon = "http://ddragon.leagueoflegends.com/cdn/7.1.1/img/champion/Kalista.png"})
--[[Key]]
KalistaMenu:MenuElement({type = MENU, id = "Key", name = "Key Settings"})
KalistaMenu.Key:MenuElement({id = "ComboKey", name = "Combo Key",key = 32 })
KalistaMenu.Key:MenuElement({id = "HarassKey", name = "Harass Key",key = string.byte("C") })
KalistaMenu.Key:MenuElement({id = "ClearKey", name = "Clear Key",key = string.byte("V") })
--[[Combo]]
KalistaMenu:MenuElement({type = MENU, id = "Combo", name = "Combo Settings"})
KalistaMenu.Combo:MenuElement({id = "UseQ", name = "Use Q", value = true})
KalistaMenu.Combo:MenuElement({id = "UseE", name = "Use E", value = true})

KalistaMenu:MenuElement({type = MENU, id = "Harass", name = "Harass Settings"})
KalistaMenu.Harass:MenuElement({id = "UseQ", name = "Use Q", value = true})
KalistaMenu.Harass:MenuElement({id = "UseE", name = "Use E On Killable Minion", value = true})
KalistaMenu.Harass:MenuElement({id = "Mana", name = "Min Mana (%)", value = 60,min = 0, max = 100, step = 1})

KalistaMenu:MenuElement({type = MENU, id = "Clear", name = "Clear Settings"})
KalistaMenu.Clear:MenuElement({id = "EMob", name = "Use E On Jungle Mobs", key = string.byte("T"),toggle = true})
KalistaMenu.Clear:MenuElement({id = "EBigMob", name = "Use E only On BigMob", value = false})
KalistaMenu.Clear:MenuElement({id = "ESiege", name = "Use E On Siege", value = false})
KalistaMenu.Clear:MenuElement({id = "EKillMinion", name = "Use E kills X minions", value = 5,min = 1, max = 10, step = 1})

KalistaMenu:MenuElement({type = MENU, id = "Item", name = "Item Settings"})
KalistaMenu.Item:MenuElement({type = MENU, id = "Botrk", name = "Blade of The Ruin King"})
KalistaMenu.Item.Botrk:MenuElement({id = "Enable", name = "Enable Usage", value = true})
KalistaMenu.Item.Botrk:MenuElement({id = "BotrkHPPercent", name = "Min Health %", value = 80,min = 0, max = 101, step = 1})
KalistaMenu.Item:MenuElement({type = MENU, id = "Qss", name = "Qss/Merc"})
KalistaMenu.Item.Qss:MenuElement({id = "Enable", name = "Enable Usage", value = true})

KalistaMenu:MenuElement({type = MENU, id = "Misc", name = "Misc Settings"})
KalistaMenu.Misc:MenuElement({id = "WardBush", name = "Auto WardBush", value = true})
KalistaMenu.Misc:MenuElement({id = "AutoSentinel", name = "Send Sentinel to Baron/Dragon", key = string.byte("M")})
KalistaMenu.Misc:MenuElement({id = "SaveAlly", name = "Use Ult to Save Ally", value = true})
KalistaMenu.Misc:MenuElement({id = "AllyHP", name = "Min Ally Health %", value = 20,min = 0, max = 100, step = 1})
KalistaMenu.Misc:MenuElement({id = "EBeforeDeath", name = "E Before Death", value = true})
KalistaMenu.Misc:MenuElement({id = "HPToEBeforeDeath", name = "Min Health % to use", value = 5,min = 0, max = 100, step = 1})

KalistaMenu:MenuElement({type = MENU, id = "Drawing", name = "Draw Settings"})
KalistaMenu.Drawing:MenuElement({id = "DrawQ", name = "Draw Q Range", value = true})
KalistaMenu.Drawing:MenuElement({id = "DrawW", name = "Draw W Range (MiniMap)", value = true})
KalistaMenu.Drawing:MenuElement({id = "DrawE", name = "Draw E Range", value = true})
KalistaMenu.Drawing:MenuElement({id = "DrawR", name = "Draw R Range", value = true})
KalistaMenu.Drawing:MenuElement({id = "DrawEDmg", name = "Draw E Dmg", value = true})
KalistaMenu.Drawing:MenuElement({id = "DrawStatus", name = "Show Settings", value = true})

function isReady(slot)
	return Game.CanUseSpell(slot) == 0
end

function isValidTarget(obj,range)
	range = range and range or math.huge
	return obj ~= nil and obj.valid and obj.visible and not obj.dead and obj.isTargetable and obj.distance <= range
end

function HasBuff(unit, buffname)
  for i = 0, unit.buffCount do
    local buff = unit:GetBuff(i)
    if buff and buff.count > 0 and buff.name:lower() == buffname:lower() and buff.expireTime >= Game.Timer() then 
      return true
    end
  end
  return false
end

function CalcPhysicalDamage2(source, target, amount)
	local ArmorPenPercent = source.armorPenPercent
	local ArmorPenFlat = source.armorPen * (0.6 + (0.4 * (target.levelData.lvl / 18)))
	local BonusArmorPen = source.bonusArmorPenPercent

	local armor = target.armor
	
	local bonusArmor = target.bonusArmor
	local baseArmor =  armor - bonusArmor
	if bonusArmor < 0 then print("CalcPhysicalDamage : smth wrong with "..source.charName.." on "..target.charName) end
	
	local value = nil
	if armor <= 0 then
		value = 2 - 100 / (100 - armor)
	else
		baseArmor = baseArmor*ArmorPenPercent
		bonusArmor = bonusArmor*ArmorPenPercent*BonusArmorPen
		armor = baseArmor + bonusArmor
		if armor > ArmorPenFlat then
			armor = armor - ArmorPenFlat
		end
		value = 100 /(100 + armor)
	end
	if target.type ~= myHero.type then
		return value * amount
	end	
	if HasBuff(source,"Exhaust") then
		amount = amount*0.6
	end
	if target.charName == "Garen" and HasBuff(target,"GarenW") then
		amount = amount*0.7
	elseif target.charName == "MaoKai" and HasBuff(target,"MaokaiDrainDefense") then
		amount = amount*0.7

	elseif target.charName == "MasterYi" and HasBuff(target,"Meditate") then
		amount = amount - amount * ({0.5, 0.55, 0.6, 0.65, 0.7})[target:GetSpellData(_W).level]
	elseif target.charName == "Braum" and HasBuff(target,"BraumShieldRaise") then
		amount = amount*(1 - ({0.3, 0.325, 0.35, 0.375, 0.4})[target:GetSpellData(_E).level])	
	elseif target.charName == "Urgot" and HasBuff(target,"urgotswapdef") then
		amount = amount*(1 - ({0.3, 0.4, 0.5})[target:GetSpellData(_R).level])
	elseif target.charName == "Amumu" and HasBuff(target,"Tantrum") then
		amount = amount - ({2, 4, 6, 8, 10})[target:GetSpellData(_E).level]
	elseif target.charName == "Annie" and HasBuff(target,"MoltenShield") then
		amount = amount*(1 - ({0.16,0.22,0.28,0.34,0.4})[target:GetSpellData(_E).level])		
	end
	return value * amount
end

function GetTarget(range)
	if Ts then return Ts:GetTarget(range) end
	local result = nil
	local N = 0
	for i = 1,Game.HeroCount()  do
		local hero = Game.Hero(i)	
		if isValidTarget(hero,range) and hero.team ~= myHero.team then
			local dmgtohero = CalcPhysicalDamage2(myHero,hero,200)
			local tokill = hero.health/dmgtohero
			if tokill > N or result == nil then
				result = hero
			end
		end
	end
	return result
end

function CountEnemy(pos,range)
	local N = 0
	for i = 1,Game.HeroCount()  do
		local hero = Game.Hero(i)	
		if isValidTarget(hero,range) and hero.isEnemy then
			N = N + 1
		end
	end
	return N	
end

local function VectorPointProjectionOnLineSegment(v1, v2, v)
    local cx, cy, ax, ay, bx, by = v.x, (v.z or v.y), v1.x, (v1.z or v1.y), v2.x, (v2.z or v2.y)
    local rL = ((cx - ax) * (bx - ax) + (cy - ay) * (by - ay)) / ((bx - ax) ^ 2 + (by - ay) ^ 2)
    local pointLine = { x = ax + rL * (bx - ax), y = ay + rL * (by - ay) }
    local rS = rL < 0 and 0 or (rL > 1 and 1 or rL)
    local isOnSegment = rS == rL
    local pointSegment = isOnSegment and pointLine or { x = ax + rS * (bx - ax), y = ay + rS * (by - ay) }
    return pointSegment, pointLine, isOnSegment
end


function FindTheOath()
	if Oathsworn then return end
	for i = 1, Game.HeroCount() do
		local hero = Game.Hero(i)
		if not hero.isMe and hero.isAlly and HasBuff(hero,"kalistacoopstrikeally")  then
			--print("Found")
			Oathsworn = hero
		end
	end	
end

function AutoE()
	local hasE = false
	-- e KS
	for i = 1, Game.HeroCount() do
		local hero = Game.Hero(i)
		if hero.isEnemy and isValidTarget(hero,E.Range) then
			local stack = GetEStacks(hero)
			if stack > 0 then
				hasE = true
				EDamages[hero.networkID] = {Unit = hero, Damage = GetEDamage(hero,stack)}
			else
				EDamages[hero.networkID]  = nil
			end
			if stack > 0 and GetEDamage(hero,stack) > hero.health + hero.shieldAD + hero.hpRegen*1.5 then
				Control.CastSpell(HK_E)
				return
			end
		end
	end	
	if not hasE then return end
	-- e kills minions to harass
	for i = 1, Game.MinionCount() do	 
		local minion = Game.Minion(i)
		if minion.isEnemy and isValidTarget(minion,E.Range) then
			local stack = GetEStacks(minion)
			if stack > 0 and GetEDamage(minion,stack) > minion.health + minion.shieldAD and CountEnemy(myHero.pos,myHero.range+myHero.boundingRadius + 150) == 0 then
				Control.CastSpell(HK_E)
				return
			end
		end
	end	
	--e before death, 2 enemies around
	if KalistaMenu.Misc.EBeforeDeath:Value() and myHero.health/myHero.maxHealth < KalistaMenu.Misc.HPToEBeforeDeath:Value()/100 and CountEnemy(myHero.pos,550) > 1 then
		Control.CastSpell(HK_E)
	end
end

function GetEStacks(unit)
	if not unit then return 0 end
	for i = 0, unit.buffCount do
		local buff = unit:GetBuff(i)
		if buff.name and buff.name:lower() == "kalistaexpungemarker"and  buff.count > 0 and buff.expireTime >= Game.Timer() then
			return buff.count
		end
	end
	return 0
end

function GetEDamage(unit,stacks)
	local level = myHero:GetSpellData(_E).level
	local basedmg = ({20, 30, 40, 50, 60})[level] + 0.6* (myHero.totalDamage)
	local stacksdmg = (stacks - 1)*(({10, 14, 19, 25, 32})[level]+({0.2, 0.225, 0.25, 0.275, 0.3})[level] * myHero.totalDamage)
	return CalcPhysicalDamage2(myHero,unit,basedmg + stacksdmg)
end

function GetQDamage(unit)
	local basedmg = ({10, 70, 130, 190, 250})[myHero:GetSpellData(_Q).level] + myHero.totalDamage
	return CalcPhysicalDamage2(myHero,unit,basedmg)
end

function UseItems()
	local items = {}
	for slot = ITEM_1,ITEM_6 do
		local id = myHero:GetItemData(slot).itemID 
		if id > 0 then
			items[id] = slot
		end
	end
	local botrk = items[3153] or items[3144]
	
	if botrk and myHero:GetSpellData(botrk).currentCd == 0 and KalistaMenu.Key.ComboKey:Value() and KalistaMenu.Item.Botrk.Enable:Value() and myHero.health/myHero.maxHealth < KalistaMenu.Item.Botrk.BotrkHPPercent:Value()/100 and myHero.attackData.state ~= 2 then
		local target = GetTarget(550)
		if target then
			CastSpell(SlotToHK[botrk],target.pos)
		end
	end
	
	local qss = items[3140] or items[3139]
	if qss and myHero:GetSpellData(qss).currentCd == 0 and KalistaMenu.Item.Qss.Enable:Value() then
		local buffs = {}
		for i = 0, myHero.buffCount do
			local buff = myHero:GetBuff(i)
			if buff and buff.count > 0 then
				buffs[buff.type] = true
			end
		end
		if buffs[5] or buffs[21] or buffs[22] or buffs[11] or buffs[8] or buffs[25] or buffs[31] then
			Control.CastSpell(SlotToHK[qss])
		end
	end
end

function AutoWardBush()
	for i = 1, Game.HeroCount() do	
		local hero = Game.Hero(i)
		if not hero.dead and hero.visible and hero.isEnemy then
			LastPositions[hero.networkID] = {pos = hero.pos, posTo = hero.posTo, dir = hero.dir, time = Game.Timer() }
		end
	end	
	for i = 1, Game.HeroCount() do	
		local hero = Game.Hero(i)
		if not hero.dead and not hero.visible and hero.isEnemy and hero.distance < 1000 and Game.Timer() - LastWardTime > 5 then
			local lastPosInfo = LastPositions[hero.networkID]
			if lastPosInfo and Game.Timer() - lastPosInfo.time < 3 then
				local inBush = false
				local wardPos
				for i = 1, 10 do
					local checkPos = lastPosInfo.pos + lastPosInfo.dir*20*i
					if checkPos:DistanceTo(myHero.pos) <= 600 and MapPosition:inBush(checkPos) then
						wardPos = checkPos
						inBush = true
						break
					end
				end
				if inBush and Game.Timer() - LastWardTime > 5 then
					LastWardTime = Game.Timer()
					CastWard(wardPos)
					break
				end
			end
		end
	end	
end

function CastWard(pos)
	local items = {}
	for slot = ITEM_1,ITEM_7 do
		local id = myHero:GetItemData(slot).itemID 
		if id > 0 then
			items[id] = slot
		end
	end
	--2055 Control Ward
	
	local wardSlot = items[2055] or items[3340] or items[3363]
	if wardSlot and myHero:GetSpellData(wardSlot).currentCd == 0 then
		CastSpell(SlotToHK[wardSlot], pos)
	end
end

Callback.Add('Tick',function() 
	FindTheOath()
	if isReady(2) then
		AutoE()
	end
	UseItems()
	
	if (KalistaMenu.Key.ComboKey:Value() and KalistaMenu.Combo.UseQ:Value()) or (KalistaMenu.Harass.UseQ:Value() and KalistaMenu.Key.HarassKey:Value() and myHero.mana/myHero.maxMana > KalistaMenu.Harass.Mana:Value()/100)	then
		if isReady(_Q) then
			local qTarget = GetTarget(Q.Range)
			if qTarget then
				local pos = qTarget:GetPrediction(Q.Speed,Q.Delay)
				local collision = false
				for i = 1, Game.MinionCount() do	 
					local minion = Game.Minion(i)  
					if minion.isEnemy and isValidTarget(minion) and minion.pos:DistanceTo(myHero.pos) < Q.Range + 100 then
						local pointSegment, pointLine, isOnSegment = VectorPointProjectionOnLineSegment(myHero.pos,pos,minion.pos)
						if isOnSegment and (minion.pos.x - pointSegment.x)^2 + (minion.pos.z - pointSegment.y)^2 < (Q.Radius + minion.boundingRadius + 15) * (Q.Radius + minion.boundingRadius + 15) and minion.health > GetQDamage(minion) then
							collision = true
							break
						end
					end
				end
				if not collision then
					CastSpell(HK_Q,pos)
				end
			end
		end
	end
	
	if isReady(2) then
		-- E kill mob
		local eminions = 0
		for i = 1, Game.MinionCount() do	 
			local minion = Game.Minion(i)
			if isValidTarget(minion,E.Range) and not minion.isAlly then
				local stacks  = GetEStacks(minion)
				local eDmg = 0
				if stacks > 0 then
					eDmg = GetEDamage(minion,stacks)
					EDamages[minion.networkID] = {Unit = minion,Damage = eDmg}
				elseif EDamages[minion.networkID] then
					EDamages[minion.networkID] = nil
				end
				if stacks > 0 and eDmg > minion.health then
					if (minion.team == 300 and KalistaMenu.Clear.EMob:Value() and (not KalistaMenu.Clear.EBigMob:Value() or not minion.charName:find("Mini"))) or (minion.charName:find("Siege") and KalistaMenu.Clear.ESiege:Value())then	
						Control.CastSpell(HK_E)
					else
						eminions = eminions + 1	
					end
				end
				
			end	
		end
		if KalistaMenu.Key.ClearKey:Value() and eminions >= KalistaMenu.Clear.EKillMinion:Value() then
			Control.CastSpell(HK_E)
		end
	end
	
	if KalistaMenu.Misc.WardBush:Value() then
		AutoWardBush()
	end	
	
	if isReady(3) and Oathsworn and KalistaMenu.Misc.SaveAlly:Value() then
		if isValidTarget(Oathsworn,R.Range) then
			if Oathsworn.health/Oathsworn.maxHealth <= KalistaMenu.Misc.AllyHP:Value()/100 and CountEnemy(Oathsworn.pos,500) > 0 then
				Control.CastSpell(HK_R)
			end
		end	
	end
	if KalistaMenu.Misc.AutoSentinel:Value() and Game.CanUseSpell(1) == 0 then
		for i,pos in pairs(SentinelPos) do
			if pos:DistanceTo(myHero.pos) < W.Range and Game.Timer() - LastSentinels[i] > 3 then
				local mpos = Vector(pos.x,0,pos.z):ToMM()
				Control.SetCursorPos(mpos.x,mpos.y)
				Control.KeyDown(HK_W)
				Control.KeyUp(HK_W)
				LastSentinels[i] = Game.Timer() 
				break
			end
		end
	end
end)

Callback.Add("Draw", function()
	if myHero.dead then return end
	if KalistaMenu.Drawing.DrawQ:Value() and myHero:GetSpellData(0).level > 0 then
		local qcolor = isReady(0) and  Draw.Color(189, 183, 107, 255) or Draw.Color(240,255,0,0)
		Draw.Circle(Vector(myHero.pos),Q.Range,1,qcolor)
	end
	if KalistaMenu.Drawing.DrawR:Value() and myHero:GetSpellData(3).level > 0  then
		local rcolor = isReady(3) and  Draw.Color(240,30,144,255) or Draw.Color(240,255,0,0)
		Draw.Circle(Vector(myHero.pos),R.Range,1,rcolor)
	end
	if KalistaMenu.Drawing.DrawE:Value() and myHero:GetSpellData(2).level > 0 then
		local ecolor = isReady(2) and  Draw.Color(233, 150, 122, 255) or Draw.Color(240,255,0,0)
		Draw.Circle(Vector(myHero.pos),E.Range,1,ecolor)
	end
	if KalistaMenu.Drawing.DrawW:Value() and myHero:GetSpellData(1).level > 0 then
		local wcolor = isReady(1) and  Draw.Color(189, 183, 107, 255) or Draw.Color(240,255,0,0)
		Draw.CircleMinimap(Vector(myHero.pos),W.Range,1,wcolor)
	end
	if KalistaMenu.Drawing.DrawEDmg:Value() and isReady(2) then
		for i,info in pairs(EDamages) do
			local unit = info.Unit
			if unit and isValidTarget(unit) then
				local percentage = tostring(0.1*math.floor(1000*info.Damage/(unit.health))).."%"
				Draw.Text(percentage,20,unit.pos:To2D())
			elseif unit then	
				EDamages[unit.networkID] = nil
			end
		end
	end
	if not KalistaMenu.Drawing.DrawStatus:Value() then return end
	
	local text = KalistaMenu.Clear.EMob:Value() and "ON" or "OFF"
	local color = KalistaMenu.Clear.EMob:Value() and Draw.Color(150, 0, 255, 0) or Draw.Color(150,255,0,0)
	text = "KS Mob: "..text
	local rec = Draw.FontRect(text,20)
	Draw.Text(text,20,RES.x/2 - rec.x,RES.y*0.75,color)
	text = "E Kills "..tostring(KalistaMenu.Clear.EKillMinion:Value()).." Minions"
	Draw.Text(text,20,RES.x/2 - rec.x,RES.y*0.75 + rec.y,Draw.Color(150, 0, 255, 0))
end)

Callback.Add("Load",function() 
	Ts = TargetSelector
	useExtLib = _G.SpellCast 
end)