Skrypt Veigar QQ by koelionek do BOT OF LEGENDS

[koelion]

Veigar QQ by koelionek do BOT OF LEGENDS

 

Napisane dla mpcforum.pl by Koelion

W piatek bede mial czas to poprawie caly temat itp.

jak macie all clas lib to wcisnijcie shift zeby otwozyc menu ;PP

Obsuluguje DFG i HXG

Pirdolniecie - przytrzymanie spacji wyjebie wszystkie czary Przedmioty>w>r>q

Auto farma z Q - wlacz/wylacz A - zabija potworki z q mamy dzieki temu wiecej ap

Haras - harasuje trzymaj z

Mozliwosc wlaczenia wylaczenia ulti albo "w" w pierdolnieciu/ks

Auto ignite-Uzywa ignite jak moze zabic

Rysowanie pierdol - pisanie ile zostanie hp po jebnieciu/Rysowanie zajeb go gdy mozemy kogos ujebac i rysuje kulka

Chodzenie za kursorem - chodzi tam gdzie wskazemy myszka trzymaja spacje ;PP

Kontrola many w harasie/ farmie z q

I to tyle jak narazie

Do zrobienia

- kupowanie itemek

- auto e

- combo do ks

- poprawa bledow

- jakeis inne pierdoly

-Mozliwosc wylaczenia ulti w auto ks

Dorobie potem

-auto ks z DFG

-jakies inne pierdoly

-jakeis propozycje?

---- Veigar QQ v 1.3 by Koelion  POLSKA
--[[
Info
Napisane dla mpcforum.pl by Koelion
Obsuluguje DFG i HXG
Pirdolniecie - przytrzymanie spacji wyjebie wszystkie czary
Auto farma z Q - wlacz/wylacz A - zabija potworki z q mamy dzieki temu wiecej ap
Haras - harasuje trzymaj z
Mozliwosc wlaczenia wylaczenia ulti albo "w" w pierdolnieciu/ks
Auto ignite-Uzywa ignite jak moze zabic
Rysowanie pierdol - pisanie ile zostanie hp po jebnieciu/Rysowanie zajeb go gdy mozemy kogos ujebac i rysuje kulka
Chodzenie za kursorem - chodzi tam gdzie wskazemy myszka trzymaja spacje ;PP
I to tyle jak narazie
]]--
if GetMyHero().charName ~= "Veigar" then return end


-- Spels
local qRange = 650
local rRange = 650
local wRange = 900
local wDelay = 1200
-- Farm 
local EnemyMinions = {}
--items
local QREADY, WREADY, EREADY, RREADY  = false, false, false, false
local BRKSlot, DFGSlot, HXGSlot, BWCSlot, TMTSlot, RAHSlot, RNDSlot = nil, nil, nil, nil, nil, nil, nil
local BRKREADY, DFGREADY, HXGREADY, BWCREADY, TMTREADY, RAHREADY, RNDREADY = false, false, false, false, false, false, false
--dmg
local calculationenemy = 1
local killable = {}


function OnLoad()
    SendChat("/all  You Will Die HAHAHAHA! IM EVIL")
    SendChat("/all  Zabije Was! Jestem Zly")
    PrintChat(">> Veigar QQ 1.3 Zaladowany! Powodzenia <<<")
    VeigarConfig = scriptConfig("Veigar","Veigar")
        VeigarConfig:addParam("minqmana","Min Mana do Q Haras/Farm",SCRIPT_PARAM_SLICE, 50, 0, 100, 2)
    VeigarConfig:addParam("combo", "Pierdolniecie", SCRIPT_PARAM_ONKEYDOWN, false, 32)
    VeigarConfig:addParam("drawcircles","Pokaz range czarow", SCRIPT_PARAM_ONOFF, true)
    VeigarConfig:addParam("autoqfarm","Auto farmienie z Q", SCRIPT_PARAM_ONKEYTOGGLE, true, 65)
    VeigarConfig:addParam("haras","Haras",SCRIPT_PARAM_ONKEYDOWN, false, 90)
    VeigarConfig:addParam("autoks","Auto KS",SCRIPT_PARAM_ONOFF, true)
    VeigarConfig:addParam("autor","Ulti w Pierdolniecie/ks",SCRIPT_PARAM_ONOFF, true)
    VeigarConfig:addParam("r","Ulti w ks",SCRIPT_PARAM_ONOFF, true)
    VeigarConfig:addParam("w","W in Pierdolniecie/ks",SCRIPT_PARAM_ONOFF, true)
    VeigarConfig:addParam("move","Chodzenie za kursorsorem",SCRIPT_PARAM_ONOFF, true)
    VeigarConfig:addParam("ignite","Auto Ignite",SCRIPT_PARAM_ONOFF, true)
    VeigarConfig:addParam("drawcircleenemy","Rysowanie pierdol",SCRIPT_PARAM_ONOFF, true)
    VeigarConfig:permaShow("combo")
  VeigarConfig:permaShow("haras")
    VeigarConfig:permaShow("autoqfarm")
    VeigarConfig:permaShow("autoks")
    VeigarConfig:permaShow("move")
    ts = TargetSelector(TARGET_LOW_HP,qRange,DAMAGE_MAGIC,false)
    ts.name = "Veigar"
    VeigarConfig:addTS(ts)


    
    for i = 0, objManager.maxObjects, 1 do
        local object = objManager:GetObject(i)
        if objectIsValid(object) then table.insert(EnemyMinions, object) end
    end
                
    if myHero:GetSpellData(SUMMONER_1).name:find("SummonerDot") then ignite = SUMMONER_1
        elseif myHero:GetSpellData(SUMMONER_2).name:find("SummonerDot") then ignite = SUMMONER_2
    end
end


function OnTick()
        ts:update()
        damageCalc()
        DFGSlot, BRKSlot, HXGSlot, BWCSlot = GetInventorySlotItem(3153), GetInventorySlotItem(3128), GetInventorySlotItem(3146), GetInventorySlotItem(3144)
        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)
        TMTREADY = (TMTSlot ~= nil and myHero:CanUseSpell(TMTSlot) == READY)
        RAHREADY = (RAHSlot ~= nil and myHero:CanUseSpell(RAHSlot) == READY)
        RNDREADY = (RNDSlot ~= nil and myHero:CanUseSpell(RNDSlot) == READY)        
        QREADY = (myHero:CanUseSpell(_Q) == READY)
        WREADY = (myHero:CanUseSpell(_W) == READY)
        EREADY = (myHero:CanUseSpell(_E) == READY)
        RREADY = (myHero:CanUseSpell(_R) == READY)
        IREADY = (ignite ~= nil and myHero:CanUseSpell(ignite) == READY)
                
                --ignite
        if VeigarConfig.ignite then    
            if IREADY then
                local ignitedmg = 0    
                for i = 1, heroManager.iCount, 1 do
                    local enemyhero = heroManager:getHero(i)
                    if ValidTarget(enemyhero,600) then
                        ignitedmg = 50 + 20 * myHero.level
                        if enemyhero.health <= ignitedmg then
                            CastSpell(ignite, enemyhero)
                        end
                    end
                end
            end
        end
    
    -- PANIC COMBO
        if ts.target ~= nil and VeigarConfig.combo then
        --w    
            if VeigarConfig.w and WREADY then
                for i = 1, heroManager.iCount, 1 do
                    local Target = heroManager:getHero(i)
                    if Target ~= nil and not myHero.dead then
                        WPos = GetPredictionPos(ts.target, wDelay)
                    end   
                    if WPos ~= nil  and ValidTarget(Target, Wrange)  then
                        CastSpell(_W, WPos.x, WPos.z)
                    end
                end
                                
            end
    
            if GetDistance(ts.target) < 650 then
                if DFGREADY then CastSpell(DFGSlot, ts.target) end
                if HXGREADY then CastSpell(HXGSlot, ts.target) end
                if BWCREADY then CastSpell(BWCSlot, ts.target) end
                if BRKREADY then CastSpell(BRKSlot, ts.target) end
                if TMTREADY and GetDistance(ts.target) < 275 then CastSpell(TMTSlot) end
                if RAHREADY and GetDistance(ts.target) < 275 then CastSpell(RAHSlot) end
                if RNDREADY and GetDistance(ts.target) < 275 then CastSpell(RNDSlot) end
            end    
            if VeigarConfig.autor then if RREADY and GetDistance(ts.target) <= rRange then
                CastSpell(_R, ts.target)
            end
            end
            if QREADY and GetDistance(ts.target) <= qRange then
                    CastSpell(_Q, ts.target)
            end
        end
    
        -- auto ks
        if VeigarConfig.autoks then
                  for i=1, heroManager.iCount do
                        Target = heroManager:GetHero(i)
                        qDMG = getDmg("Q",Target,myHero)
                        wDMG=getDmg("W",Target,myHero)
                        rDMG = getDmg("R",Target,myHero)
                
            if QREADY and Target ~= nil and Target.team ~= myHero.team and not Target.dead and Target.visible and GetDistance(Target) < qRange and Target.health < qDMG then
                                CastSpell(_Q, Target)
                        end
                
                
                
                        if VeigarConfig.w then if WREADY and Target ~= nil and Target.team ~= myHero.team and not Target.dead and Target.visible and GetDistance(Target) < wRange and Target.health < wDMG then
                            local Target = heroManager:getHero(i)
                            if Target ~= nil and not myHero.dead then
                                WPos = GetPredictionPos(ts.target, wDelay)
                            end   
                            if WPos ~= nil  and ValidTarget(Target, Wrange)  then
                                CastSpell(_W, WPos.x, WPos.z)
                            end
                            end
                        end
                    
                        if VeigarConfig.autor and VeigarConfig.r then if RREADY and Target ~= nil and Target.team ~= myHero.team and not Target.dead and Target.visible and GetDistance(Target) < rRange and Target.health < rDMG then
                                CastSpell(_R, Target)
                        end


                end
                end
        end




        --auto farm
        for i, minion in pairs(EnemyMinions) do
                if (minion ~= nil and not minion.valid) or (minion ~= nil and minion.valid and minion.dead) then
                        table.remove(EnemyMinions, i)
                end
        end
        if VeigarConfig.autoqfarm and VeigarConfig.minqmana <=((myHero.mana/myHero.maxMana)*100) and not VeigarConfig.combo then
            local tick = GetTickCount()
            for i,object in ipairs(EnemyMinions) do
                if object ~= nil and objectIsValid(object) then
                    local QDMG = getDmg("Q", object, myHero)
                    if QREADY and GetDistance(object) <= qRange and object.health <= QDMG then
                        CastSpell(_Q, object)
                    end
                end
            end
        end
        -- move
        if VeigarConfig.move and (VeigarConfig.combo) then
           myHero:MoveTo(mousePos.x, mousePos.z)
        end
        
        -- Haras
        if ts.target ~= nil and VeigarConfig.haras and VeigarConfig.minqmana <=((myHero.mana/myHero.maxMana)*100) and not VeigarConfig.combo then
            if QREADY and GetDistance(ts.target) <= qRange then
                CastSpell(_Q, ts.target)
            end
        end
end


function objectIsValid(object)
   return object and object.valid and object.name:find("Minion_") and object.team ~= myHero.team and object.dead == false
end


function OnCreateObj(object)
   if objectIsValid(object) then table.insert(EnemyMinions, object) end
end


function damageCalc()
 local enemy = heroManager:GetHero(calculationenemy)
        if ts.target ~= nil then
            local qDamage = getDmg("Q",ts.target,myHero)
            local wDamage = getDmg("W",ts.target,myHero)
            local rDamage = getDmg("R",ts.target,myHero)
            local dfgdamage = (DFGSlot and getDmg("DFG",enemy,myHero) or 0)
            local hxgdamage = (HXGSlot and getDmg("HXG",enemy,myHero) or 0)
            local totalDamage = 0
            local Damage=0
            local remainingHealth = 0
            if CanUseSpell(_Q) == READY then totalDamage = totalDamage + qDamage end
            if CanUseSpell(_R) == READY then totalDamage = totalDamage + rDamage end
            Damage=totalDamage
            totalDamage = dfgdamage + totalDamage + hxgdamage
            
            if ts.target.health <= totalDamage then
                PrintFloatText(ts.target,0, "Zajeb Dziada!!!",0xFF0000)
            else
                PrintFloatText(ts.target,0, tostring(math.floor((ts.target.health - totalDamage)+20)))
            end
            
            if totalDamage >= enemy.health then killable[calculationenemy] = 2
                elseif Damage >= enemy.health then killable[calculationenemy] = 1
                else killable[calculationenemy] = 0 end
            end
            if calculationenemy == 1 then calculationenemy = heroManager.iCount
                 else calculationenemy = calculationenemy-1
            end
            
    end




function OnDraw()
    if VeigarConfig.drawcircles and not myHero.dead then
        DrawCircle(player.x, player.y, player.z, 600, 0x0066FF) 
        DrawCircle(player.x, player.y, player.z, 650, 0x00FF00) 
        DrawCircle(player.x, player.y, player.z, 750, 0xFF0000) 
        DrawCircle(player.x, player.y, player.z, 900, 0x660099)
    end
    if ts.target ~= nil and VeigarConfig.drawcircleenemy then
      for j=0, 10 do
                        DrawCircle(ts.target.x, ts.target.y, ts.target.z, 40 + j*1.5, 0xFFFF00)
    end
    end
            for i=1, heroManager.iCount do
                local enemydraw = heroManager:GetHero(i)
                if ValidTarget(enemydraw) and not Target.dead then
                    if VeigarConfig.drawcircleenemy then
                        if killable[i] == 1 then
                            for e=0, 15 do
                                DrawCircle(enemydraw.x, enemydraw.y, enemydraw.z, 80 + e*1.5, 0x0000FF)
                            end
                        elseif killable[i] == 2 then
                            for e=0, 10 do
                                DrawCircle(enemydraw.x, enemydraw.y, enemydraw.z, 80 + e*1.5, 0xFF0000)
                                DrawCircle(enemydraw.x, enemydraw.y, enemydraw.z, 110 + e*1.5, 0xFF0000)
                                DrawCircle(enemydraw.x, enemydraw.y, enemydraw.z, 140 + e*1.5, 0xFF0000)
                        end
                        end
                    end
                end
            end
end
 

 

 

Link do Folderu Scripts do Bola w którym sa wszystkie potrzebne biblioteki do tego i innych botow

http://www.speedyshare.com/cTWFJ/Scripts.rar
 

Jak macie jakies pomysly na boty do postaci pisac moze bede w stanie zrobic ;D

 

[_Shank_]

Co z tym zrobić ??

[:.Bialy_miS.:]

Wrzucić do BOL, w scripts.

[Sence °]

może dałbyś library do tego skryptu? bo do każdego typu " combo with space " są jakieś

[Yarker]

popraw estetycznosć i może zbuduj skrypt a nie sam kod - napewno zostaniesz bardziej wynagrodzony

 

jeśli działa to fajnie, jak nie to lipa ;D

 

pozdro ;p

[Shunn21]

Szkoda ze za BoLa już banują :/ Ale przydatne + dla ciebie

[koelion]

popraw estetycznosć i może zbuduj skrypt a nie sam kod - napewno zostaniesz bardziej wynagrodzony

 

jeśli działa to fajnie, jak nie to lipa ;D

 

pozdro ;p

Wklejasz do bola zapisujesz i masz....

Mi dzila

 

Hm nie umiem zabardzo poprawic estetycznosci bede mial czas pobawie sie ;D

 

W weeken bede mial czas moze cos dorobie do bota

[koelion]

Szkoda ze za BoLa już banują :/ Ale przydatne + dla ciebie

Wiesz ciezko zebym mila dostac bana za bola jak place 10$

 

może dałbyś library do tego skryptu? bo do każdego typu " combo with space " są jakieś

do tego sa zwykle nie robilem odzielnych bibliotek bo poco skora juz sa ?

[kamil1419]

a mógłbyś mi załatwić zwykły zoomhack?

[koelion]

nie polecam uzywanai zoomhackow bo wywoluja crashe i mozna dostac bana ;D mozesz znalesc zoomhacka na botoflegends.com na forum mpgh.net albo wpisz na oyutube how to make zoomhack ;d

[kuba83000]

nie działa E

[~LeXu]

Najlepiej dodaj jeszcze linijke:    
 SendChat("/all  I'm using BoL.")

 

Przetestuje zaraz.

 

 

nie działa E

Do zrobienia

- auto e

[panieros2]

Przydatne, like:)

[Huuk]

można prosić o reupload Scripts.rar?