Singed bot Evil Laugh 0.6.1

--[[
Singed v0.6.1 with evil laugh by koelionek
Features:
- Invisible poison
- Combo ITEMS > Q > R > W > E
- Use E
- Auto Ks with E
- Move to mouse
- Drawing on/off
- SpamChat with hahhhahah and evil laugh
- Evil Laugh Spam
+Evil Laugh (only in evil laugh version)

Hotkeys:
- Invisible poison - z
- Combo - spacebar
- throw with E  - x
- SpamChat with hahhhahah and evil laugh - s
- Evil Laugh  Spam - t
]]

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

local ts

local wDelay = 900
local wRange = 1000
local eRange = 190
local comborange = 650

local ignite = nil
local DFGSlot, HXGSlot, BWCSlot, SheenSlot, TrinitySlot, LichBaneSlot, TMTSlot, RAHSlot, RNDSlot, STDSlot = nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil
local QREADY, WREADY, EREADY, RREADY, DFGREADY, HXGREADY, BWCREADY, IREADY, TMTREADY, RAHREADY, RNDREADY, STDREADY, BRKREADY = false, false, false, false, false, false, false, false, false, false, false, false, false

function OnLoad()

    SingedConfig = scriptConfig("Singed", "Singed")
	SingedConfig:addParam("combo", "Combo", SCRIPT_PARAM_ONKEYDOWN, false, 32)
	SingedConfig:addParam("invispoison", "Invisible Poison Poofs", SCRIPT_PARAM_ONKEYDOWN, false, 90)
	SingedConfig:addParam("throwAA", "Throw and AA", SCRIPT_PARAM_ONKEYDOWN, false, 88)
	SingedConfig:addParam("spam", "Spam chat with hahahha", SCRIPT_PARAM_ONKEYDOWN, false, 83)
	SingedConfig:addParam("laugh", "Spam Laugh", SCRIPT_PARAM_ONKEYDOWN, false, 84)
	SingedConfig:addParam("autoignite", "Ignite when Killable", SCRIPT_PARAM_ONOFF, true)
	SingedConfig:addParam("move", "Move to mouse", SCRIPT_PARAM_ONOFF, true)
	SingedConfig:addParam("ulti", "Ulti in Combo", SCRIPT_PARAM_ONOFF, true)
	SingedConfig:addParam("ecombo", "E in Combo", SCRIPT_PARAM_ONOFF, true)
	SingedConfig:addParam("eks", "Killsteal with E", SCRIPT_PARAM_ONOFF, true)
	SingedConfig:addParam("evillaugh", "Evil Laugh", SCRIPT_PARAM_ONOFF, true)
	SingedConfig:addParam("draw", "Draw Circles", SCRIPT_PARAM_ONOFF, true)
	SingedConfig:addParam("drawenemy", "Draw Target", SCRIPT_PARAM_ONOFF, true)

	SingedConfig:permaShow("combo")
	SingedConfig:permaShow("invispoison")
	SingedConfig:permaShow("throwAA")

	ts = TargetSelector(TARGET_LOW_HP, comborange, DAMAGE_MAGIC,false)
	ts.name = "Singed"
    SingedConfig:addTS(ts)

	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

		PrintChat(" >> Singed Invisible Poisoner Loaded")

end



function OnTick()

	ts:update()

	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)

	if SingedConfig.invispoison then
		invisiblepoison()
	end

	if SingedConfig.throwAA then
		throandaa()
	end

	if SingedConfig.autoignite then
		autoignite()
	end

	if SingedConfig.combo then
		combo()
	end

	if SingedConfig.eks then
		autoks()
	end

	if SingedConfig.spam then
		spamchat()
	end

	if SingedConfig.laugh then
		spamlaugh()
	end

end


function invisiblepoison()

	if QREADY then
		CastSpell(_Q)
	end

	if SingedConfig.evillaugh and not SingedConfig.spam then
		SendChat("/l")
	end

	if SingedConfig.move then
		myHero:MoveTo(mousePos.x, mousePos.z)
	end


end


function throandaa()

	if EREADY and ts.target ~= nil then
		CastSpell(_E,ts.target)
		myHero:Attack(ts.target)
		if QREADY and GetDistance(ts.target) < 200 then
			CastSpell(_Q)
		end
	end

	if SingedConfig.evillaugh and not SingedConfig.spam then
		SendChat("/l")
	end

	if SingedConfig.move then
		myHero:MoveTo(mousePos.x, mousePos.z)
	end


end


function autoignite()

	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


function combo()

	if ts.target ~= nil and comborange >= GetDistance(ts.target) then

		if GetDistance(ts.target) < 598 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 QREADY then
			CastSpell(_Q)
		end

		if RREADY and SingedConfig.ulti then
			CastSpell(_R)
		end

		if WREADY and not myHero.dead then
			WPos = GetPredictionPos(ts.target, wDelay)
		end

		if WPos ~= nil  and ValidTarget(ts.target, Wrange)  then
			CastSpell(_W, WPos.x, WPos.z)
		end

		if EREADY and SingedConfig.ecombo then
			CastSpell(_E,ts.target)
			myHero:Attack(ts.target)
		end
	end

	if SingedConfig.evillaugh and not SingedConfig.spam then
		SendChat("/l")
	end

	if SingedConfig.move then
		myHero:MoveTo(mousePos.x, mousePos.z)
	end

end


function autoks()

	if EREADY then
		for i=1, heroManager.iCount do
			Target = heroManager:GetHero(i)
			eDMG=getDmg("E",Target,myHero)

			if Target ~= nil and Target.team ~= myHero.team and not Target.dead and Target.visible and GetDistance(Target) < eRange + 100 and Target.health < eDMG then
				CastSpell(_E, Target)
				if SingedConfig.evillaugh and not SingedConfig.spam then
					SendChat("/l")
					SendChat("/all Hahahhahahaha")
				end
			end
		end
	end

end


function spamchat()

	SendChat("/all Hahahhahahaha")
	SendChat("/l")

	if SingedConfig.move then
		myHero:MoveTo(mousePos.x, mousePos.z)
	end

end


function spamlaugh()

	SendChat("/l")

	if SingedConfig.move then
		myHero:MoveTo(mousePos.x, mousePos.z)
	end

end


function OnDraw()

	local coloraqua=ARGB(0xFF,0x00,0xFF,0xFF)
	local colorblue=ARGB(0xFF,0x0F,0x0F,0xFF)
	local colorwhite=ARGB(0xFF,0xF0,0xFF,0xFF)
	local colorred=ARGB(0xFF,0xFF,0x00,0x00)
	local colorgreen=ARGB(0xFF,0x00,0xFF,0x00)
	local colordarkblue=ARGB(0xFF,0x00,0x00,0x8B)
	local colordarkred=ARGB(0xFF,0x8B,0x00,0x00)
	local colorlime=ARGB(0xFF,0x00,0xFF,0x00)

	if SingedConfig.draw then

		DrawCircle(myHero.x, myHero.y, myHero.z,eRange, colorlime)
		DrawCircle(myHero.x, myHero.y, myHero.z,comborange, coloraqua)
		DrawCircle(myHero.x, myHero.y, myHero.z,wRange, colordarkblue)
	end

	if  ValidTarget(ts.target) and SingedConfig.drawenemy then
		DrawText("Targetting: " .. ts.target.charName, 18, 750, 40, 0xFFFF0000)
		for i=0, 10 do
			DrawCircle(ts.target.x, ts.target.y, ts.target.z, 60 + i*1.5, coloraqua)
		end
	end

end