Karthus.lua

function AfterObjectLoopEvent(myHero0)
    DrawText("Karthus script loaded",20,0,0,0xffff0000)
    killableInfo()
    local target = GetCurrentTarget()
    if ValidTarget(target, math.huge) then
        -- DrawText(GetObjectName(target),20,0,150,0xff00ff00)
        if KeyIsDown(32) then
            castE(target)
            castW(target)
            castQ(target)
        end
    end
end

function castQ( target )
    -- CastStartPosVec,EnemyChampionPtr,EnemyMoveSpeed,YourSkillshotSpeed,SkillShotDelay,SkillShotRange,SkillShotWidth,MinionCollisionCheck,AddHitBox;
    pred = GetPredictionForPlayer(GetOrigin(target),target,GetMoveSpeed(target),math.huge,500,GetCastRange(myHero,_Q),200,false,true)
    if IsInDistance(target, GetCastRange(myHero,_Q)) and CanUseSpell(myHero,_Q) == READY and pred.HitChance == 1 then
        CastSkillShot(_Q,pred.PredPos.x,pred.PredPos.y,pred.PredPos.z)
    end
end

function castW( target )
    -- CastStartPosVec,EnemyChampionPtr,EnemyMoveSpeed,YourSkillshotSpeed,SkillShotDelay,SkillShotRange,SkillShotWidth,MinionCollisionCheck,AddHitBox;
    pred = GetPredictionForPlayer(GetOrigin(target),target,GetMoveSpeed(target),math.huge,500,GetCastRange(myHero,_W),800,false,true)
    if IsInDistance(target, GetCastRange(myHero,_W)) and CanUseSpell(myHero,_W) == READY and pred.HitChance == 1 then
        CastSkillShot(_W,pred.PredPos.x,pred.PredPos.y,pred.PredPos.z)
    end
end

function castE( target )
    -- open E
    if IsInDistance(target, GetCastRange(myHero,_E)) and CanUseSpell(myHero,_E) == READY and GotBuff(myHero,"KarthusDefile") <= 0 then
        CastTargetSpell(myHero, _E)
    end

    -- close E
    if not IsInDistance(target, GetCastRange(myHero,_E)) and GotBuff(myHero,"KarthusDefile") > 0 then
        CastTargetSpell(myHero, _E)
    end
end

function killableInfo( ... )
    -- no need show killable info when R in cd
    if CanUseSpell(myHero,_R) ~= READY then return end

    rDmg = 100 + GetCastLevel(myHero,_R) * 150 + GetBonusAP(myHero) * 0.6
    -- info = "R dmg : "..rDmg .. "\n"
    info = ""
    for nID, enemy in pairs(enemyHeroes) do
        if IsObjectAlive(enemy) then
            realdmg = CalcDamage(myHero, enemy, 0, rDmg)
            hp = GetCurrentHP(enemy)
            if realdmg > hp then
                info = info..GetObjectName(enemy)
                if not IsVisible(enemy) then
                    info = info.." maybe"
                end
                info = info.."  killable\n"
            end
            -- info = info..GetObjectName(enemy).."    HP:"..hp.."  dmg: "..realdmg.." "..killable.."\n"
        end
  end
  DrawText(info,40,500,0,0xffff0000)
end