Furry infection script

local p = game:GetService("Players")
local t = game:GetService("Teams")
local g = game:GetService("CoreGui")
local tw = game:GetService("TweenService")
local L = p.LocalPlayer
local function a1() return L.Team == t:FindFirstChild("Infected") end
local function a2(s) if setclipboard then setclipboard(s) else warn("setclipboard недоступен в данной среде!") end end
local function a3(f)
    for i = 0, 1, 0.1 do
        for _, o in ipairs(f:GetDescendants()) do
            if o:IsA("TextLabel") or o:IsA("TextButton") then
                o.TextTransparency = i
            elseif o:IsA("Frame") then
                o.BackgroundTransparency = i
            end
        end
        task.wait(0.01)
    end
    f.Visible = false
end
local function a4(f)
    f.Visible = true
    for i = 1, 0, -0.1 do
        for _, o in ipairs(f:GetDescendants()) do
            if o:IsA("TextLabel") or o:IsA("TextButton") then
                o.TextTransparency = i
            elseif o:IsA("Frame") then
                o.BackgroundTransparency = i
            end
        end
        task.wait(0.01)
    end
end
local G = Instance.new("ScreenGui")
G.Name = "FloprUI_Improved"
G.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
if g:FindFirstChild(G.Name) then g:FindFirstChild(G.Name):Destroy() end
G.Parent = g
local f = Instance.new("Frame")
f.Name = "MainFrame"
f.Size = UDim2.new(0.6, 0, 0.6, 0)
f.Position = UDim2.new(0.2, 0, 0.2, 0)
f.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
f.Active = true
f.Draggable = true
f.Parent = G
f.ClipsDescendants = true
local c1 = Instance.new("UICorner")
c1.CornerRadius = UDim.new(0, 6)
c1.Parent = f
local s1 = Instance.new("UIStroke")
s1.Thickness = 2
s1.Color = Color3.fromRGB(80, 80, 80)
s1.Parent = f
local tb = Instance.new("Frame")
tb.Size = UDim2.new(1, 0, 0, 30)
tb.BackgroundColor3 = Color3.fromRGB(20, 20, 20)
tb.Parent = f
local c2 = Instance.new("UICorner")
c2.CornerRadius = UDim.new(0, 6)
c2.Parent = tb
local t1 = Instance.new("TextLabel")
t1.Name = "Title"
t1.Size = UDim2.new(1, -60, 1, 0)
t1.Position = UDim2.new(0, 5, 0, 0)
t1.BackgroundTransparency = 1
t1.Text = "FloprHub | Furry Infection"
t1.TextColor3 = Color3.new(1, 1, 1)
t1.Font = Enum.Font.SourceSansBold
t1.TextSize = 20
t1.TextXAlignment = Enum.TextXAlignment.Left
t1.Parent = tb
local minBtn = Instance.new("TextButton")
minBtn.Name = "MinimizeButton"
minBtn.Text = "-"
minBtn.Size = UDim2.new(0, 25, 0, 25)
minBtn.Position = UDim2.new(1, -55, 0, 2)
minBtn.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
minBtn.TextColor3 = Color3.new(1, 1, 1)
minBtn.Font = Enum.Font.SourceSansBold
minBtn.TextSize = 18
minBtn.Parent = tb
local clsBtn = Instance.new("TextButton")
clsBtn.Name = "CloseButton"
clsBtn.Text = "X"
clsBtn.Size = UDim2.new(0, 25, 0, 25)
clsBtn.Position = UDim2.new(1, -30, 0, 2)
clsBtn.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
clsBtn.TextColor3 = Color3.fromRGB(255, 50, 50)
clsBtn.Font = Enum.Font.SourceSansBold
clsBtn.TextSize = 18
clsBtn.Parent = tb
local tabB = Instance.new("Frame")
tabB.Name = "TabButtons"
tabB.Size = UDim2.new(0, 120, 1, -30)
tabB.Position = UDim2.new(0, 0, 0, 30)
tabB.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
tabB.Parent = f
local c3 = Instance.new("UICorner")
c3.CornerRadius = UDim.new(0, 6)
c3.Parent = tabB
local ll = Instance.new("UIListLayout", tabB)
ll.FillDirection = Enum.FillDirection.Vertical
ll.SortOrder = Enum.SortOrder.LayoutOrder
ll.Padding = UDim.new(0, 5)
local contF = Instance.new("Frame")
contF.Name = "ContentFrame"
contF.Size = UDim2.new(1, -120, 1, -30)
contF.Position = UDim2.new(0, 120, 0, 30)
contF.BackgroundColor3 = Color3.fromRGB(45, 45, 45)
contF.Parent = f
local c4 = Instance.new("UICorner")
c4.CornerRadius = UDim.new(0, 6)
c4.Parent = contF
local T = {}
local CT = nil
local function crT(n)
    local p0 = Instance.new("Frame")
    p0.Name = n .. "Tab"
    p0.Size = UDim2.new(1, 0, 1, 0)
    p0.BackgroundTransparency = 0
    p0.BackgroundColor3 = Color3.fromRGB(45, 45, 45)
    p0.Visible = false
    p0.Parent = contF
    local l = Instance.new("UIListLayout")
    l.FillDirection = Enum.FillDirection.Vertical
    l.SortOrder = Enum.SortOrder.LayoutOrder
    l.Padding = UDim.new(0, 5)
    l.Parent = p0
    T[n] = p0
    return p0
end
local function crTB(n)
    local b = Instance.new("TextButton")
    b.Size = UDim2.new(1, -10, 0, 40)
    b.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
    b.TextColor3 = Color3.new(1, 1, 1)
    b.Font = Enum.Font.SourceSansBold
    b.TextSize = 16
    b.Text = n
    b.Parent = tabB
    local cr = Instance.new("UICorner")
    cr.CornerRadius = UDim.new(0, 6)
    cr.Parent = b
    return b
end
local function swT(n)
    if CT == n then return end
    if CT and T[CT] then a3(T[CT]) end
    a4(T[n])
    CT = n
end
local MT = crT("Main")
local IT = crT("Infected")
local CrT = crT("Credits")
local mb = crTB("Main")
mb.MouseButton1Click:Connect(function() swT("Main") end)
local ib = crTB("Infected")
ib.MouseButton1Click:Connect(function() swT("Infected") end)
local cb = crTB("Credits")
cb.MouseButton1Click:Connect(function() swT("Credits") end)
swT("Main")
local function crTo(par, txt, cbk)
    local b = Instance.new("TextButton")
    b.Size = UDim2.new(1, -10, 0, 30)
    b.BackgroundColor3 = Color3.fromRGB(70, 70, 70)
    b.TextColor3 = Color3.new(1, 1, 1)
    b.Font = Enum.Font.SourceSans
    b.TextSize = 16
    local tgl = false
    local function up() b.Text = txt .. ": " .. (tgl and "ON" or "OFF") end
    up()
    b.MouseButton1Click:Connect(function() tgl = not tgl up() cbk(tgl) end)
    local cr = Instance.new("UICorner")
    cr.CornerRadius = UDim.new(0, 6)
    cr.Parent = b
    b.Parent = par
end
local function crB(par, txt, cbk)
    local b = Instance.new("TextButton")
    b.Size = UDim2.new(1, -10, 0, 30)
    b.BackgroundColor3 = Color3.fromRGB(70, 70, 70)
    b.TextColor3 = Color3.new(1, 1, 1)
    b.Font = Enum.Font.SourceSans
    b.TextSize = 16
    b.Text = txt
    b.MouseButton1Click:Connect(cbk)
    local cr = Instance.new("UICorner")
    cr.CornerRadius = UDim.new(0, 6)
    cr.Parent = b
    b.Parent = par
end
crTo(MT, "Auto collect money", function(val)
    _G.AutoCollectMoney = val
    while _G.AutoCollectMoney and task.wait(0.25) do
        if a1() then return end
        for _, x in next, workspace:GetDescendants() do
            if x:IsA("BasePart") and x.Name:lower() == "moneystack" then
                firetouchinterest(L.Character.HumanoidRootPart, x, 0)
            end
        end
    end
end)
crTo(MT, "Radio lag", function(val)
    local rl = val
    if val and L.PlayerGui:FindFirstChild("BubbleChat") then
        L.PlayerGui.BubbleChat:Destroy()
    end
    local lp_loop = 0
    while rl do
        lp_loop = lp_loop + 1
        if not a1() and L.Character:FindFirstChildOfClass("Tool") and L.Character:FindFirstChildOfClass("Tool").Name == "Radio" then
            L.Character:FindFirstChildOfClass("Tool"):Activate()
        end
        if lp_loop >= (game:GetService("Stats").Workspace.Heartbeat:GetValue() + 10) then
            task.wait()
            lp_loop = 0
        end
    end
end)
crB(MT, "Get bat", function()
    local function hb() return L.Character:FindFirstChild("Bat") or L.Backpack:FindFirstChild("Bat") end
    if not hb() and not a1() then
        for _, y in next, workspace:GetDescendants() do
            if y:IsA("BasePart") and y.Name == "BatModel" and y:FindFirstChild("interact") and y.interact:FindFirstChildOfClass("ProximityPrompt") then
                local s = L.Character.HumanoidRootPart.CFrame
                local to = os.clock()
                L.Character.HumanoidRootPart.CFrame = y.CFrame
                task.wait(0.1)
                fireproximityprompt(y.interact:FindFirstChildOfClass("ProximityPrompt"), 0)
                repeat task.wait(0.1) until hb() or os.clock() - to >= 4
                L.Character.HumanoidRootPart.CFrame = s
            end
        end
    end
end)
crTo(MT, "Ignore infection puddles", function(val)
    for _, z in next, workspace:GetDescendants() do
        if z:IsA("BasePart") and z:FindFirstChild("TouchInterest") and z.Parent.Name == "Model" then
            z.Transparency = val and 0.7 or 0
            z.CanCollide = not val
            z.CanTouch = not val
            z.CanQuery = not val
        end
    end
end)
crTo(IT, "Ignore red wall", function(val)
    if not a1() then return end
    for _, w in next, workspace:GetDescendants() do
        if w:IsA("BasePart") and w.Name == "Part" and w:FindFirstChild("TouchInterest") and w.Transparency > 0.4 then
            w.CanTouch = not val
            w.CanQuery = not val
        end
    end
end)
crTo(IT, "Auto grab", function(val)
    local function ha()
        for _, anim in ipairs(L.Character.Humanoid:GetPlayingAnimationTracks()) do
            if anim.Animation.AnimationId == "rbxassetid://10679373472" then return true end
        end
        return false
    end
    _G.AutoGrab = val
    while _G.AutoGrab and task.wait() do
        for _, p0 in ipairs(workspace:GetPartBoundsInRadius(L.Character.HumanoidRootPart.Position, 10)) do
            if not p0:IsDescendantOf(L.Character) and p:GetPlayerFromCharacter(p0.Parent) then
                local pl = p:GetPlayerFromCharacter(p0.Parent)
                if a1() and pl.Team == t["Humans"] and pl.Character:FindFirstChild("HumanoidRootPart") and (not ha()) then
                    L.Character.HumanoidRootPart.CFrame = pl.Character.HumanoidRootPart.CFrame
                    L.Character.Actions.Act:FireServer("Attack")
                end
            end
        end
    end
end)
crB(CrT, "Roblox: flopercin", function() a2("https://www.roblox.com/users/3536016467/profile") end)
crB(CrT, "Roblox: ADSKer_man222", function() a2("https://www.roblox.com/users/4636825706/profile") end)
crB(CrT, "Telegram: FloprHub", function() a2("https://t.me/FloprHub") end)
local m = false
minBtn.MouseButton1Click:Connect(function()
    m = not m
    if m then
        tw:Create(f, TweenInfo.new(0.3), {Size = UDim2.new(0, 250, 0, 30)}):Play()
    else
        tw:Create(f, TweenInfo.new(0.3), {Size = UDim2.new(0.6, 0, 0.6, 0)}):Play()
    end
end)
clsBtn.MouseButton1Click:Connect(function() G:Destroy() end)