-- kalista
if GetObjectName(GetMyHero()) == "Kalista" then
--Menu
Config = scriptConfig("Kalista", "Kalista")
Config.addParam("Q", "Use Q", SCRIPT_PARAM_ONOFF, true)
Config.addParam("W", "Use W", SCRIPT_PARAM_ONOFF, true)
Config.addParam("E", "Use E", SCRIPT_PARAM_ONOFF, true)
Config.addParam("R", "Use R", SCRIPT_PARAM_ONOFF, true)
Config.addParam("Rs", "Use R Save", SCRIPT_PARAM_ONOFF, true)
Config.addParam("F", "E Clear", SCRIPT_PARAM_ONOFF, true)
Config.addParam("G", "Send Ghost", SCRIPT_PARAM_KEYDOWN, string.byte("T"))
Config.addParam("Combo", "Combo", SCRIPT_PARAM_KEYDOWN, string.byte(" "))
--Start
OnLoop(function(myHero)
                for _, ally in pairs(GetAllyHeroes()) do
            if Config.Rs then
            if (GetCurrentHP(ally)/GetMaxHP(ally))<0.2 and
                    CanUseSpell(myHero, _R) == READY and IsInDistance(ally, 1400) and IsObjectAlive(ally) and GotBuff(ally, "kalistacoopstrikeally") == 1 then
            CastSpell(_R)
        end
    end
end
AutoIgnite()
if Config.Combo then
local unit = GetCurrentTarget()
if ValidTarget(unit, 1550) then


                                     if Config.Q then
                                      local QPred = GetPredictionForPlayer(myHeroPos,unit,GetMoveSpeed(unit),1750,250,1150,70,true,true)
    if CanUseSpell(myHero, _Q) == READY and QPred.HitChance == 1 and IsInDistance(unit, 1150) then
      CastSkillShot(_Q,QPred.PredPos.x,QPred.PredPos.y,QPred.PredPos.z)
    end
  end
                                  --kalista E

              if Config.E then
   local Dmgz= GetBonusDmg(myHero)+GetBaseDamage(myHero)
 local dmg = (GotBuff(unit,"kalistaexpungemarker") > 0 and (10 + (10 * GetCastLevel(myHero,_E)) + (Dmgz * 0.6)) + (GotBuff(unit,"kalistaexpungemarker")-1) * (GetCastLevel(myHero,_E) + (0.175 + 0.025 * GetCastLevel(myHero,_E))*Dmgz) or 0)
   if CalcDamage(myHero, unit, dmg) > GetCurrentHP(unit)  then
                  if CanUseSpell(myHero,_E) == READY then
                    CastSpell(_E)
                  end
                end
              end
    -- Cast R
            if Config.R then
                  if (GetCurrentHP(unit)/GetMaxHP(unit))<0.6 and
                    IsObjectAlive(unit) and
                   CanUseSpell(myHero, _R) == READY and IsInDistance(unit, 1200) and EnemiesAround(GetMyHeroPos(), 1400) >= 2 then
            CastSpell(_R)
            end
        end
end
end
end)
-- LanClear
OnLoop(function(myHero)
if Config.LaneClear then
      if Config.F then
       for _,Q in pairs(GetAllMinions(MINION_ENEMY)) do
          if IsInDistance(Q, 650) then
            local Dmgz = GetBonusDmg(myHero)+GetBaseDamage(myHero)
            local dmg = (GotBuff(Q,"kalistaexpungemarker") > 0 and (10 + (10 * GetCastLevel(myHero,_E)) + (Dmgz * 0.6)) + (GotBuff(Q,"kalistaexpungemarker")-1) * (GetCastLevel(myHero,_E) + (0.175 + 0.025 * GetCastLevel(myHero,_E))*Dmgz) or 0)
            local hp = GetCurrentHP(Q)
            local Dmg = CalcDamage(myHero, Q, dmg)
            if Dmg > hp then
            if CanUseSpell(myHero,_E) == READY then
            CastSpell(_E)
           end
        end
     end
  end
end
end
end)
--OnLoop(function(myHero)
--if Config.G then
--if CanUseSpell(myHero, _W) == READY then
--CastSkillShot(_W,4023.3271484375, 51, 8794.64453125)
--end
--end
--end)
PrintChat(string.format("<font color='#1244EA'>[CloudAIO]</font> <font color='#FFFFFF'>Kalista Loaded</font>"))
end