Bad Business K_Aura

nw = require(game:GetService("ReplicatedStorage").Tortoiseshell)
me = game.Players.LocalPlayer
c = nw.Characters:GetCharacter(me)
rd = game:GetService("Workspace").Ragdolls
ts = game:GetService("TweenService")
r = game.ReplicatedStorage
ev = Vector3.new(0,0,0)

for i,v in pairs(r:GetDescendants()) do
    if v.Name == 'Item_Melee' and v:IsA('RemoteEvent') then
        re = v
    end
end

for i,v in pairs(r:GetDescendants()) do
    if v.Name == 'Item' and v:IsA('RemoteEvent') then
        ire = v
    end
end

_G.HBEon = false
_G.KAon = false
_G.TPAon = false
_G.CESPon = false
_G.db = false


function toggle(btn,tog)
	if tog == false then
	    warn(tog)
	    btn.BackgroundColor3 = Color3.fromRGB(130, 130, 130)
	else
	    if tog == true then
	        warn(tog)
	        btn.BackgroundColor3 = Color3.fromRGB(80, 80, 80)
	    end
	end
end

function giveall()
    for i,v in pairs(game.Players:GetPlayers()) do
        if v.Name ~= me.Name and not nw.Teams:ArePlayersFriendly(v,me) and nw.Characters:GetCharacter(v) ~= nil then
            vc = nw.Characters:GetCharacter(v)
            for r,f in pairs(vc:GetDescendants()) do
                if f:IsA('Part') or f:IsA('MeshPart') then
                    color = Color3.fromRGB(13, 105, 172)
                    local zi = 3
                    if f.Name == 'Head' and f.Parent.Name == 'Hitbox' then
                        con = getconnections(f:GetPropertyChangedSignal("Size"))
                        for i,v in next, con do
                            v:Disable()
                        end
                        f.Transparency = 1
                        f.CanCollide = false
                        f.Size = Vector3.new(7,7,7)
                        color = Color3.fromRGB(172, 37, 39)
                        local zi = 4
                        local bha = Instance.new('BoxHandleAdornment')
                        bha.Transparency = .7
                        bha.AlwaysOnTop = true
                        bha.ZIndex = zi
                        bha.Color3 = color
                        bha.Size = f.Size
                        bha.Adornee = f
                        bha.Parent = f
                    end
                end
            end
        end
    end
end

function giveone(plr,char)
    for r,f in pairs(char:GetDescendants()) do
        if f:IsA('Part') or f:IsA('MeshPart') then
            if f.Name == 'Head' and f.Parent.Name == 'Hitbox' then
                con = getconnections(f:GetPropertyChangedSignal("Size"))
                for i,v in next, con do
                    v:Disable()
                end
                f.Size = Vector3.new(7,7,7)
                f.Transparency = 1
                f.CanCollide = false
                color = Color3.fromRGB(172, 37, 39)
                local zi = 4
                local bha = Instance.new('BoxHandleAdornment')
                bha.Transparency = .7
                bha.AlwaysOnTop = true
                bha.ZIndex = zi
                bha.Color3 = color
                bha.Size = f.Size
                bha.Adornee = f
                bha.Parent = f
            end
        end
    end
end

function findknife()
    local c = nw.Characters:GetCharacter(me)
    if c:FindFirstChild('Backpack') then
        local bp = c:FindFirstChild('Backpack')
        for i,v in pairs(bp:GetDescendants()) do
            if v.Name == 'Stab' and v:IsA('BindableEvent') then
                return v.Parent.Parent
            end
        end
    end
end

function findequipped()
    if nw.Characters:GetCharacter(me) ~= nil then
        local c = nw.Characters:GetCharacter(me)
        if c:FindFirstChild('Backpack') then
            if c.Backpack.Equipped.Value ~= nil then
                return c.Backpack.Equipped.Value
            else
                return nil
            end
        end
    end
end

function holdingknife()
    if nw.Characters:GetCharacter(me) ~= nil then
        local c = nw.Characters:GetCharacter(me)
        if c:FindFirstChild('Backpack') then
            if c.Backpack.Equipped.Value == findknife() then
                return true
            else
                return false
            end
        end
    end
end

function tp(vec,sec)
    if _G.db == false then
        _G.db = true
        for r,f in pairs(c:GetDescendants()) do
            if f:IsA('Part') or f:IsA('MeshPart') then
                tween = ts:Create(f,TweenInfo.new(sec),{Position = vec})
                tween:Play()
            end
        end
    end
    _G.db = false
end

function giveallEsp()
    for i,v in pairs(game.Players:GetPlayers()) do
        if v.Name ~= me.Name and not nw.Teams:ArePlayersFriendly(v,me) and nw.Characters:GetCharacter(v) ~= nil then
            vc = nw.Characters:GetCharacter(v)
            for r,f in pairs(vc:GetDescendants()) do
                if f:IsA('Part') or f:IsA('MeshPart') and not f:FindFirstChild('BoxHandleAdornment') then
                    color = Color3.fromRGB(13, 105, 172)
                    local zi = 3
                    if f.Name == 'Head' and not f:FindFirstChild('BillboardGui') then
                        color = Color3.fromRGB(172, 37, 39)
                        local zi = 4

                        local bbg = Instance.new('BillboardGui')

                        bbg.Size = UDim2.new(5, 0, 2, 0)
                        bbg.StudsOffset = Vector3.new(0, 3, 0)
                        bbg.Parent = f
                        bbg.Active = true
                        bbg.AlwaysOnTop = true
                        local tl = Instance.new('TextLabel')

                        tl.Parent = bbg
                        tl.Size = UDim2.new(1, 0, 1, 0)
                        tl.TextColor3 = Color3.new(0.854902, 0.258824, 1)
                        tl.TextScaled = true
                        tl.BackgroundTransparency = 1
                        tl.Text = v.Name
                        tl.ZIndex = zi
                        tl.TextStrokeTransparency = .8
                    end
                    local bha = Instance.new('BoxHandleAdornment')
                    bha.Transparency = .7
                    bha.AlwaysOnTop = true
                    bha.ZIndex = zi
                    bha.Color3 = color
                    bha.Size = f.Size
                    bha.Adornee = f
                    bha.Parent = f
                end
            end
        end
    end
end

function giveoneEsp(plr,char)
    for r,f in pairs(char:GetDescendants()) do
        if f:IsA('Part') or f:IsA('MeshPart') and not f:FindFirstChild('BoxHandleAdornment') then
            color = Color3.fromRGB(13, 105, 172)
            local zi = 3
            if f.Name == 'Head' and not f:FindFirstChild('BillboardGui') then
                color = Color3.fromRGB(172, 37, 39)
                local zi = 4

                local bbg = Instance.new('BillboardGui')

                bbg.Size = UDim2.new(7, 0, 4, 0)
                bbg.StudsOffset = Vector3.new(0, 3, 0)
                bbg.Parent = f
                bbg.Active = true
                bbg.AlwaysOnTop = true
                local tl = Instance.new('TextLabel')

                tl.Parent = bbg
                tl.Size = UDim2.new(1, 0, 1, 0)
                tl.TextColor3 = Color3.new(0.854902, 0.258824, 1)
                tl.TextScaled = true
                tl.BackgroundTransparency = 1
                tl.Text = plr.Name
                tl.ZIndex = zi
                tl.TextStrokeTransparency = .8
            end
            local bha = Instance.new('BoxHandleAdornment')
            bha.Transparency = .7
            bha.AlwaysOnTop = true
            bha.ZIndex = zi
            bha.Color3 = color
            bha.Size = f.Size
            bha.Adornee = f
            bha.Parent = f
        end
    end
end

local QTip6551BB = Instance.new("ScreenGui")
local Frame = Instance.new("Frame")
local Top = Instance.new("TextLabel")
local NoRecoil = Instance.new("TextButton")
local HBE = Instance.new("TextButton")
local HBEtext = Instance.new("TextLabel")
local KA = Instance.new("TextButton")
local KAtext = Instance.new("TextLabel")
local TPAtext = Instance.new("TextLabel")
local TPA = Instance.new("TextButton")
local CESPtext = Instance.new("TextLabel")
local CESP = Instance.new("TextButton")
local Cred = Instance.new("TextLabel")
local Min = Instance.new("TextButton")
--Properties:
QTip6551BB.Name = "Q-Tip#6551 BB"
QTip6551BB.Parent = game.CoreGui
QTip6551BB.ZIndexBehavior = Enum.ZIndexBehavior.Sibling

Frame.Parent = QTip6551BB
Frame.BackgroundColor3 = Color3.new(0.384314, 0.384314, 0.384314)
Frame.BorderSizePixel = 0
Frame.Position = UDim2.new(0.00754716992, 0, 0.454545438, 0)
Frame.Size = UDim2.new(0.211320758, 0, 0.319749206, 0)
Frame.Active = true
Frame.Draggable = true

Top.Name = "Top"
Top.Parent = Frame
Top.BackgroundColor3 = Color3.new(0.278431, 0.278431, 0.278431)
Top.BorderSizePixel = 0
Top.Size = UDim2.new(1, 0, 0.107843138, 0)
Top.Font = Enum.Font.SourceSansBold
Top.Text = "Bad Business"
Top.TextColor3 = Color3.new(0.533333, 0.533333, 0.533333)
Top.TextScaled = true
Top.TextSize = 40
Top.TextWrapped = true

NoRecoil.Name = "NoRecoil"
NoRecoil.Parent = Frame
NoRecoil.BackgroundColor3 = Color3.new(0.309804, 0.309804, 0.309804)
NoRecoil.BorderSizePixel = 0
NoRecoil.Position = UDim2.new(0.0571428575, 0, 0.181372553, 0)
NoRecoil.Size = UDim2.new(0.285714298, 0, 0.102941178, 0)
NoRecoil.Font = Enum.Font.SourceSansSemibold
NoRecoil.Text = "No Recoil"
NoRecoil.TextColor3 = Color3.new(0.776471, 0.776471, 0.776471)
NoRecoil.TextScaled = true
NoRecoil.TextSize = 14
NoRecoil.TextWrapped = true
NoRecoil.MouseButton1Click:Connect(function()
	local a = require(game:GetService("ReplicatedStorage").Tortoiseshell)
	local rs = a.Camera.FirstPerson.RecoilSpring

	for i,v in next, rs do
		if type(v) == 'function' then
			hookfunction(v,function()end)
		end
	end
end)

HBE.Name = "HBE"
HBE.Parent = Frame
HBE.BackgroundColor3 = Color3.new(0.509804, 0.509804, 0.509804)
HBE.BorderSizePixel = 0
HBE.Position = UDim2.new(0.378571421, 0, 0.318627447, 0)
HBE.Size = UDim2.new(0.0607142858, 0, 0.0735294148, 0)
HBE.Font = Enum.Font.SourceSansSemibold
HBE.Text = ""
HBE.TextColor3 = Color3.new(0.776471, 0.776471, 0.776471)
HBE.TextScaled = true
HBE.TextSize = 14
HBE.TextWrapped = true

HBE.MouseButton1Click:Connect(function()
	if _G.HBEon == false then
	    _G.HBEon = true
		toggle(HBE,_G.HBEon)
		givehbe = nil
		destroyhbe = nil
		givehbe = nw.Characters.CharacterAdded:Connect(function(p, c)
            if p ~= me and not nw.Teams:ArePlayersFriendly(p,me) then
                wait()
                local a = c:WaitForChild('Hitbox')
                local b = a:WaitForChild('Head')
                giveone(p,c)
            end
		end)
        destroyhbe = rd.ChildAdded:Connect(function(ca)
            for i,v in pairs(ca:GetDescendants()) do
                wait()
                if v:IsA('BoxHandleAdornment') then
                    v:Destroy()
                end
                if v ~= nil and v.Parent ~= nil and v.Parent.Name == 'Hitbox' and v.Name == 'Head' then
                    v.Size = Vector3.new(1,1,1)
                end
            end
        end)
        giveall()
	else
		if _G.HBEon == true then
		    _G.HBEon = false
		    toggle(HBE,_G.HBEon)
		    givehbe:Disconnect()
		    givehbe = nil
		    destroyhbe:Disconnect()
		    destroyhbe = nil
		    for i,v in pairs(Workspace.Characters:GetDescendants()) do
		        if v:IsA('BoxHandleAdornment') and v.Size == Vector3.new(7,7,7) then
		            v.Parent.Size = Vector3.new(1.5, 1.6, 1.5)
		            v:Destroy()
		        end
		    end
		end
	end
end)

HBEtext.Name = "HBEtext"
HBEtext.Parent = Frame
HBEtext.BackgroundColor3 = Color3.new(0.384314, 0.384314, 0.384314)
HBEtext.BorderColor3 = Color3.new(0.486275, 0.486275, 0.486275)
HBEtext.Position = UDim2.new(0.0571428537, 0, 0.30392158, 0)
HBEtext.Size = UDim2.new(0.285714298, 0, 0.102941178, 0)
HBEtext.Font = Enum.Font.SourceSansSemibold
HBEtext.Text = "HBE"
HBEtext.TextColor3 = Color3.new(0.776471, 0.776471, 0.776471)
HBEtext.TextScaled = true
HBEtext.TextSize = 14
HBEtext.TextWrapped = true

KA.Name = "KA"
KA.Parent = Frame
KA.BackgroundColor3 = Color3.new(0.509804, 0.509804, 0.509804)
KA.BorderSizePixel = 0
KA.Position = UDim2.new(0.378571421, 0, 0.460784316, 0)
KA.Size = UDim2.new(0.0607142858, 0, 0.0735294148, 0)
KA.Font = Enum.Font.SourceSansSemibold
KA.Text = ""
KA.TextColor3 = Color3.new(0.776471, 0.776471, 0.776471)
KA.TextScaled = true
KA.TextSize = 14
KA.TextWrapped = true

KA.MouseButton1Click:Connect(function()
    if _G.KAon == false then
        _G.KAon = true
        toggle(KA,_G.KAon)
        while wait() do
            if nw.Characters:GetCharacter(me) ~= nil and _G.KAon == true then
                c = nw.Characters:GetCharacter(me)
                for i,v in pairs(game.Players:GetPlayers()) do
                    if v.Name ~= me.Name and nw.Teams:ArePlayersFriendly(v, me) == false and nw.Characters:GetCharacter(v) ~= nil then
                        vc = nw.Characters:GetCharacter(v)
                        if vc:FindFirstChild('Body') and vc:FindFirstChild('Hitbox') and vc:FindFirstChild('Health').Value > 0 then
                            local b = vc:FindFirstChild('Body')
                            local hb = vc:FindFirstChild('Hitbox')
                            if b:FindFirstChild('Head') and hb:FindFirstChild('Head') then
                                local bh = b:FindFirstChild('Head')
                                local h = hb:FindFirstChild('Head')
                                mag = (c.Body.Head.Position - bh.Position).Magnitude
                                if mag < 20 then
                                    local lastequipped = findequipped()
                                    ire:FireServer('Equip',findknife())
                                    for i = 1,20 do
                                        re:FireServer("Stab",findknife(),h,ev,ev)
                                    end
                                    wait()
                                    ire:FireServer('Equip',lastequipped)
                                    ire:FireServer('Equip',lastequipped)
                                    ire:FireServer('Equip',lastequipped)
                                end
                            end
                        end
                    end
                end
            else
                if _G.KAon == false then
                    break
                end
            end
        end
    else
        if _G.KAon == true then
            _G.KAon = false
            toggle(KA,_G.KAon)
        end
    end
end)


KAtext.Name = "KAtext"
KAtext.Parent = Frame
KAtext.BackgroundColor3 = Color3.new(0.384314, 0.384314, 0.384314)
KAtext.BorderColor3 = Color3.new(0.486275, 0.486275, 0.486275)
KAtext.Position = UDim2.new(0.0571428537, 0, 0.446078449, 0)
KAtext.Size = UDim2.new(0.285714298, 0, 0.102941178, 0)
KAtext.Font = Enum.Font.SourceSansSemibold
KAtext.Text = "Kill Aura"
KAtext.TextColor3 = Color3.new(0.776471, 0.776471, 0.776471)
KAtext.TextScaled = true
KAtext.TextSize = 14
KAtext.TextWrapped = true

TPAtext.Name = "TPAtext"
TPAtext.Parent = Frame
TPAtext.BackgroundColor3 = Color3.new(0.384314, 0.384314, 0.384314)
TPAtext.BorderColor3 = Color3.new(0.486275, 0.486275, 0.486275)
TPAtext.Position = UDim2.new(0.0571428537, 0, 0.588235319, 0)
TPAtext.Size = UDim2.new(0.285714298, 0, 0.102941178, 0)
TPAtext.Font = Enum.Font.SourceSansSemibold
TPAtext.Text = "TP Aura"
TPAtext.TextColor3 = Color3.new(0.776471, 0.776471, 0.776471)
TPAtext.TextScaled = true
TPAtext.TextSize = 14
TPAtext.TextWrapped = true

TPA.Name = "TPA"
TPA.Parent = Frame
TPA.BackgroundColor3 = Color3.new(0.509804, 0.509804, 0.509804)
TPA.BorderSizePixel = 0
TPA.Position = UDim2.new(0.378571421, 0, 0.602941155, 0)
TPA.Size = UDim2.new(0.0607142858, 0, 0.0735294148, 0)
TPA.Font = Enum.Font.SourceSansSemibold
TPA.Text = ""
TPA.TextColor3 = Color3.new(0.776471, 0.776471, 0.776471)
TPA.TextScaled = true
TPA.TextSize = 14
TPA.TextWrapped = true
TPA.MouseButton1Click:Connect(function()
    if _G.TPAon == false then
        _G.TPAon = true
        toggle(TPA,_G.TPAon)
        while wait() do
            if nw.Characters:GetCharacter(me) ~= nil and _G.TPAon == true then
                c = nw.Characters:GetCharacter(me)
                for i,v in pairs(game.Players:GetPlayers()) do
                    if v.Name ~= me.Name and nw.Teams:ArePlayersFriendly(v, me) == false and nw.Characters:GetCharacter(v) ~= nil then
                        vc = nw.Characters:GetCharacter(v)
                        if vc:FindFirstChild('Body') and vc:FindFirstChild('Hitbox') and vc:FindFirstChild('Health').Value > 0 then
                            local b = vc:FindFirstChild('Body')
                            local hb = vc:FindFirstChild('Hitbox')
                            if b:FindFirstChild('Head') and hb:FindFirstChild('Head') then
                                local bh = b:FindFirstChild('Head')
                                local h = hb:FindFirstChild('Head')
                                mag = (c.Body.Head.Position - bh.Position).Magnitude
                                if mag < 20 then
                                    local lastequipped = findequipped()
                                    ire:FireServer('Equip',findknife())
                                    for i = 1,20 do
                                        re:FireServer(re:FireServer("Stab",findknife(),h,ev,ev))
                                    end
                                    wait()
                                    ire:FireServer('Equip',lastequipped)
                                    ire:FireServer('Equip',lastequipped)
                                    ire:FireServer('Equip',lastequipped)
                                else
                                    if mag < 50 then
                                        tp(h.Position,.5)
                                        local lastequipped = findequipped()
                                        ire:FireServer('Equip',findknife())
                                        tp(h.Position,.5)
                                        for i = 1,20 do
                                            re:FireServer(re:FireServer("Stab",findknife(),h,ev,ev))
                                        end
                                        wait()
                                        ire:FireServer('Equip',lastequipped)
                                        ire:FireServer('Equip',lastequipped)
                                        ire:FireServer('Equip',lastequipped)
                                    end
                                end
                            end
                        end
                    end
                end
            else
                if _G.TPAon == false then
                    break
                end
            end
        end
    else
        if _G.TPAon == true then
            _G.TPAon = false
            toggle(TPA,_G.TPAon)
        end
    end
end)

CESPtext.Name = "CESPtext"
CESPtext.Parent = Frame
CESPtext.BackgroundColor3 = Color3.new(0.384314, 0.384314, 0.384314)
CESPtext.BorderColor3 = Color3.new(0.486275, 0.486275, 0.486275)
CESPtext.Position = UDim2.new(0.0571428537, 0, 0.735294163, 0)
CESPtext.Size = UDim2.new(0.285714298, 0, 0.102941178, 0)
CESPtext.Font = Enum.Font.SourceSansSemibold
CESPtext.Text = "Chams+ESP"
CESPtext.TextColor3 = Color3.new(0.776471, 0.776471, 0.776471)
CESPtext.TextScaled = true
CESPtext.TextSize = 14
CESPtext.TextWrapped = true

CESP.Name = "CESP"
CESP.Parent = Frame
CESP.BackgroundColor3 = Color3.new(0.509804, 0.509804, 0.509804)
CESP.BorderSizePixel = 0
CESP.Position = UDim2.new(0.378571421, 0, 0.75, 0)
CESP.Size = UDim2.new(0.0607142858, 0, 0.0735294148, 0)
CESP.Font = Enum.Font.SourceSansSemibold
CESP.Text = ""
CESP.TextColor3 = Color3.new(0.776471, 0.776471, 0.776471)
CESP.TextScaled = true
CESP.TextSize = 14
CESP.TextWrapped = true
CESP.MouseButton1Click:Connect(function()
    if _G.CESPon == false then
        _G.CESPon = true
        toggle(CESP,_G.CESPon)
        giveoneespcon = nil
        giveoneespcon = nw.Characters.CharacterAdded:Connect(function(p, c)
            if p ~= me and not nw.Teams:ArePlayersFriendly(p,me) then
                wait(.1)
                giveoneEsp(p,c)
            end
        end)
        giveallEsp()
    else
        if _G.CESPon == true then
            _G.CESPon = false
            toggle(CESP,_G.CESPon)
            giveoneespcon:Disconnect()
            giveoneespcon = nil
            for i,v in pairs(Workspace.Characters:GetDescendants()) do
                if v:IsA('BoxHandleAdornment') or v:IsA('BillboardGui') and v.Size ~= Vector3.new(7,7,7) then
                    v:Destroy()
                end
            end
        end
    end
end)

Cred.Name = "Cred"
Cred.Parent = Frame
Cred.BackgroundColor3 = Color3.new(0.384314, 0.384314, 0.384314)
Cred.BorderColor3 = Color3.new(0.486275, 0.486275, 0.486275)
Cred.Position = UDim2.new(0.549999952, 0, 0.181372553, 0)
Cred.Size = UDim2.new(0.328571439, 0, 0.656862736, 0)
Cred.Font = Enum.Font.SourceSansSemibold
Cred.Text = "Everything made by Q-Tip#6551 feel free to dm me"
Cred.TextColor3 = Color3.new(0.776471, 0.776471, 0.776471)
Cred.TextScaled = true
Cred.TextSize = 14
Cred.TextWrapped = true