OPENSOURCE Virtual Clicker Noclip Fly Speed Teleport

-- Zed Menu - Automation Engine
-- Virtual Clicker, Noclip, Fly, Speed, Teleport

if getgenv().DesativarZedMenu then
    pcall(getgenv().DesativarZedMenu)
end

local Config = {
    ClickerEnabled = false,
    NoclipEnabled = false,
    FlyEnabled = false,
    SpeedEnabled = false,
    TeleportEnabled = false,
    
    ClicksPerSecond = 50,
    FlySpeed = 50,
    MoveSpeed = 10,
    TeleportInterval = 1.0,
    
    TargetX = 500,
    TargetY = 400,
    TeleportPos = Vector3.new(2656.272, 6.083, 1.933),
    ToggleKey = Enum.KeyCode.P
}

local Services = {
    VirtualInput = game:GetService("VirtualInputManager"),
    RunService = game:GetService("RunService"),
    Players = game:GetService("Players"),
    UserInput = game:GetService("UserInputService"),
    CoreGui = game:GetService("CoreGui"),
    Tween = game:GetService("TweenService"),
    Workspace = game:GetService("Workspace")
}

local Data = {
    Threads = {},
    Connections = {},
    Instances = {},
    UIs = {},
    Running = false,
    LP = Services.Players.LocalPlayer,
    LastTP = 0
}

-- UI
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "ZedMenu"
ScreenGui.ResetOnSpawn = false
ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling

pcall(function()
    ScreenGui.Parent = Services.CoreGui
end)

if not ScreenGui.Parent then
    ScreenGui.Parent = Data.LP:WaitForChild("PlayerGui")
end

table.insert(Data.UIs, ScreenGui)

local Main = Instance.new("Frame")
Main.Name = "Main"
Main.Size = UDim2.new(0, 360, 0, 480)
Main.Position = UDim2.new(0.5, -180, 0.5, -240)
Main.BackgroundColor3 = Color3.fromRGB(20, 20, 20)
Main.Active = true
Main.Draggable = true
Main.Parent = ScreenGui

Instance.new("UICorner", Main).CornerRadius = UDim.new(0, 8)
local stroke = Instance.new("UIStroke", Main)
stroke.Color = Color3.fromRGB(60, 60, 60)
stroke.Thickness = 1.5

local Title = Instance.new("TextLabel")
Title.Size = UDim2.new(1, -50, 0, 45)
Title.Position = UDim2.new(0, 15, 0, 0)
Title.BackgroundTransparency = 1
Title.Text = "Zed Menu"
Title.TextColor3 = Color3.fromRGB(255, 255, 255)
Title.TextSize = 20
Title.Font = Enum.Font.GothamBold
Title.TextXAlignment = Enum.TextXAlignment.Left
Title.Parent = Main

local Close = Instance.new("TextButton")
Close.Size = UDim2.new(0, 30, 0, 30)
Close.Position = UDim2.new(1, -40, 0, 7)
Close.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
Close.Text = "X"
Close.TextColor3 = Color3.fromRGB(255, 80, 80)
Close.TextSize = 16
Close.Font = Enum.Font.GothamBold
Close.Parent = Main
Instance.new("UICorner", Close).CornerRadius = UDim.new(0, 6)

local function CreateBtn(name, txt, pos)
    local btn = Instance.new("TextButton")
    btn.Name = name
    btn.Size = UDim2.new(0, 130, 0, 40)
    btn.Position = UDim2.new(0, 15, 0, pos)
    btn.BackgroundColor3 = Color3.fromRGB(150, 40, 40)
    btn.Text = txt .. ": OFF"
    btn.TextColor3 = Color3.fromRGB(255, 255, 255)
    btn.TextSize = 12
    btn.Font = Enum.Font.GothamBold
    btn.Parent = Main
    
    Instance.new("UICorner", btn).CornerRadius = UDim.new(0, 6)
    return btn
end

local function CreateSlider(name, labelTxt, pos, default)
    local label = Instance.new("TextLabel")
    label.Size = UDim2.new(0, 180, 0, 20)
    label.Position = UDim2.new(0, 160, 0, pos)
    label.BackgroundTransparency = 1
    label.Text = labelTxt
    label.TextColor3 = Color3.fromRGB(200, 200, 200)
    label.TextSize = 12
    label.Font = Enum.Font.GothamMedium
    label.TextXAlignment = Enum.TextXAlignment.Left
    label.Parent = Main

    local bg = Instance.new("Frame")
    bg.Size = UDim2.new(0, 180, 0, 8)
    bg.Position = UDim2.new(0, 160, 0, pos + 22)
    bg.BackgroundColor3 = Color3.fromRGB(40, 40, 40)
    bg.Parent = Main
    Instance.new("UICorner", bg).CornerRadius = UDim.new(1, 0)

    local fill = Instance.new("Frame")
    fill.Size = UDim2.new(default, 0, 1, 0)
    fill.BackgroundColor3 = Color3.fromRGB(0, 170, 255)
    fill.Parent = bg
    Instance.new("UICorner", fill).CornerRadius = UDim.new(1, 0)

    local trigger = Instance.new("TextButton")
    trigger.Size = UDim2.new(1, 0, 3, 0)
    trigger.Position = UDim2.new(0, 0, -1, 0)
    trigger.BackgroundTransparency = 1
    trigger.Text = ""
    trigger.Parent = bg

    return label, bg, fill, trigger
end

local ClickerBtn = CreateBtn("ClickerBtn", "CLICKER", 60)
local ClickerLabel, ClickerBg, ClickerFill, ClickerTrigger = CreateSlider("Clicker", "Velocidade: 50 CPS", 60, 0.5)

local NoclipBtn = CreateBtn("NoclipBtn", "NOCLIP", 120)
local NoclipInfo = Instance.new("TextLabel")
NoclipInfo.Size = UDim2.new(0, 180, 0, 40)
NoclipInfo.Position = UDim2.new(0, 160, 0, 120)
NoclipInfo.BackgroundTransparency = 1
NoclipInfo.Text = "[ Físicas Desativadas ]"
NoclipInfo.TextColor3 = Color3.fromRGB(100, 100, 100)
NoclipInfo.TextSize = 12
NoclipInfo.Font = Enum.Font.GothamMedium
NoclipInfo.Parent = Main

local FlyBtn = CreateBtn("FlyBtn", "FLY HACK", 180)
local FlyLabel, FlyBg, FlyFill, FlyTrigger = CreateSlider("Fly", "Força do Voo: 50", 180, 0.5)

local SpeedBtn = CreateBtn("SpeedBtn", "SPEED HACK", 240)
local SpeedLabel, SpeedBg, SpeedFill, SpeedTrigger = CreateSlider("Speed", "Velocidade Extra: 10", 240, 0.5)

local TeleportBtn = CreateBtn("TeleportBtn", "TELEPORT", 300)
local TeleportLabel, TeleportBg, TeleportFill, TeleportTrigger = CreateSlider("Teleport", "Intervalo: 1.00s", 300, 0.2)

local Footer = Instance.new("Frame")
Footer.Size = UDim2.new(1, -30, 0, 90)
Footer.Position = UDim2.new(0, 15, 0, 370)
Footer.BackgroundColor3 = Color3.fromRGB(25, 25, 25)
Footer.Parent = Main
Instance.new("UICorner", Footer).CornerRadius = UDim.new(0, 6)

local FooterTxt = Instance.new("TextLabel")
FooterTxt.Size = UDim2.new(1, -20, 1, -10)
FooterTxt.Position = UDim2.new(0, 10, 0, 5)
FooterTxt.BackgroundTransparency = 1
FooterTxt.Text = "INFO: [P] pausa o Clicker.\nFly: W A S D / Espaço sobe / Shift desce.\nTeleport: X:2656 Y:6 Z:1.9\nSpeed usa CFrame."
FooterTxt.TextColor3 = Color3.fromRGB(130, 130, 130)
FooterTxt.TextSize = 11
FooterTxt.Font = Enum.Font.Gotham
FooterTxt.TextWrapped = true
FooterTxt.TextYAlignment = Enum.TextYAlignment.Top
FooterTxt.Parent = Footer

-- Funções
local function Click(x, y)
    Services.VirtualInput:SendMouseButtonEvent(x, y, 0, true, game, 0)
    task.wait(0.005)
    Services.VirtualInput:SendMouseButtonEvent(x, y, 0, false, game, 0)
end

local FlyVel, FlyGyro, FlyAtt
local function LimparFly()
    if FlyVel then FlyVel:Destroy() FlyVel = nil end
    if FlyGyro then FlyGyro:Destroy() FlyGyro = nil end
    if FlyAtt then FlyAtt:Destroy() FlyAtt = nil end
end

local function FlyLoop()
    local char = Data.LP.Character
    local hrp = char and char:FindFirstChild("HumanoidRootPart")
    local hum = char and char:FindFirstChildOfClass("Humanoid")
    local cam = Services.Workspace.CurrentCamera
    if not hrp or not hum or not cam then return end

    if not FlyVel then
        FlyAtt = Instance.new("Attachment", hrp)
        table.insert(Data.Instances, FlyAtt)
        
        FlyVel = Instance.new("LinearVelocity", hrp)
        FlyVel.Attachment0 = FlyAtt
        FlyVel.MaxForce = 9999999
        FlyVel.VelocityConstraintMode = Enum.VelocityConstraintMode.Vector
        table.insert(Data.Instances, FlyVel)
        
        FlyGyro = Instance.new("AlignOrientation", hrp)
        FlyGyro.Mode = Enum.OrientationAlignmentMode.OneAttachment
        FlyGyro.Attachment0 = FlyAtt
        FlyGyro.MaxTorque = 9999999
        FlyGyro.Responsiveness = 200
        table.insert(Data.Instances, FlyGyro)
    end

    hum.PlatformStand = true

    local dir = Vector3.zero
    if Services.UserInput:IsKeyDown(Enum.KeyCode.W) then dir += cam.CFrame.LookVector end
    if Services.UserInput:IsKeyDown(Enum.KeyCode.S) then dir -= cam.CFrame.LookVector end
    if Services.UserInput:IsKeyDown(Enum.KeyCode.A) then dir -= cam.CFrame.RightVector end
    if Services.UserInput:IsKeyDown(Enum.KeyCode.D) then dir += cam.CFrame.RightVector end
    if Services.UserInput:IsKeyDown(Enum.KeyCode.Space) then dir += Vector3.new(0,1,0) end
    if Services.UserInput:IsKeyDown(Enum.KeyCode.LeftShift) then dir -= Vector3.new(0,1,0) end

    if dir.Magnitude > 0 then dir = dir.Unit end

    FlyVel.VectorVelocity = dir * Config.FlySpeed
    FlyGyro.CFrame = cam.CFrame
end

local function Noclip()
    local char = Data.LP.Character
    if char then
        for _, v in ipairs(char:GetDescendants()) do
            if v:IsA("BasePart") and v.CanCollide then
                v.CanCollide = false
            end
        end
    end
end

local function SpeedLoop(dt)
    local char = Data.LP.Character
    local hrp = char and char:FindFirstChild("HumanoidRootPart")
    local hum = char and char:FindFirstChildOfClass("Humanoid")
    if hrp and hum and hum.MoveDirection.Magnitude > 0 then
        local boost = hum.MoveDirection * (Config.MoveSpeed * dt * 10)
        hrp.CFrame = hrp.CFrame + boost
    end
end

local function TeleportLoop()
    local t = tick()
    if t - Data.LastTP >= Config.TeleportInterval then
        local char = Data.LP.Character
        local hrp = char and char:FindFirstChild("HumanoidRootPart")
        if hrp then
            hrp.CFrame = CFrame.new(Config.TeleportPos)
        end
        Data.LastTP = t
    end
end

-- Engine
local function StartEngine()
    if Data.Running then return end
    Data.Running = true

    local clickThread = task.spawn(function()
        while Data.Running do
            if Config.ClickerEnabled then
                local delay = 1 / math.max(Config.ClicksPerSecond, 1)
                Click(Config.TargetX, Config.TargetY)
                task.wait(delay)
            else
                Services.RunService.Heartbeat:Wait()
            end
        end
    end)
    table.insert(Data.Threads, clickThread)

    local conn = Services.RunService.Stepped:Connect(function(_, dt)
        if not Data.Running then return end
        
        if Config.NoclipEnabled then Noclip() end
        if Config.FlyEnabled then FlyLoop() end
        if Config.SpeedEnabled and not Config.FlyEnabled then SpeedLoop(dt) end
        if Config.TeleportEnabled then TeleportLoop() end
    end)
    table.insert(Data.Connections, conn)
end

-- Toggle buttons
local function ToggleColor(btn, state)
    local col = state and Color3.fromRGB(40, 160, 60) or Color3.fromRGB(150, 40, 40)
    Services.Tween:Create(btn, TweenInfo.new(0.3), {BackgroundColor3 = col}):Play()
end

ClickerBtn.MouseButton1Click:Connect(function()
    Config.ClickerEnabled = not Config.ClickerEnabled
    ClickerBtn.Text = Config.ClickerEnabled and "CLICKER: ON" or "CLICKER: OFF"
    ToggleColor(ClickerBtn, Config.ClickerEnabled)
end)

NoclipBtn.MouseButton1Click:Connect(function()
    Config.NoclipEnabled = not Config.NoclipEnabled
    NoclipBtn.Text = Config.NoclipEnabled and "NOCLIP: ON" or "NOCLIP: OFF"
    ToggleColor(NoclipBtn, Config.NoclipEnabled)
end)

FlyBtn.MouseButton1Click:Connect(function()
    Config.FlyEnabled = not Config.FlyEnabled
    FlyBtn.Text = Config.FlyEnabled and "FLY HACK: ON" or "FLY HACK: OFF"
    ToggleColor(FlyBtn, Config.FlyEnabled)
    
    if not Config.FlyEnabled then
        LimparFly()
        local hum = Data.LP.Character and Data.LP.Character:FindFirstChildOfClass("Humanoid")
        if hum then hum.PlatformStand = false end
    end
end)

SpeedBtn.MouseButton1Click:Connect(function()
    Config.SpeedEnabled = not Config.SpeedEnabled
    SpeedBtn.Text = Config.SpeedEnabled and "SPEED HACK: ON" or "SPEED HACK: OFF"
    ToggleColor(SpeedBtn, Config.SpeedEnabled)
end)

TeleportBtn.MouseButton1Click:Connect(function()
    Config.TeleportEnabled = not Config.TeleportEnabled
    TeleportBtn.Text = Config.TeleportEnabled and "TELEPORT: ON" or "TELEPORT: OFF"
    ToggleColor(TeleportBtn, Config.TeleportEnabled)
    if Config.TeleportEnabled then Data.LastTP = 0 end
end)

-- Hotkey P
Services.UserInput.InputBegan:Connect(function(inp, gp)
    if not gp and inp.KeyCode == Config.ToggleKey then
        Config.ClickerEnabled = not Config.ClickerEnabled
        ClickerBtn.Text = Config.ClickerEnabled and "CLICKER: ON" or "CLICKER: OFF"
        ToggleColor(ClickerBtn, Config.ClickerEnabled)
    end
end)

-- Sliders
local function SetupSlider(trig, fill, lbl, var, minv, maxv, fmt, isFloat)
    local sliding = false
    trig.MouseButton1Down:Connect(function() sliding = true end)

    Services.UserInput.InputChanged:Connect(function(inp)
        if not sliding then return end
        if inp.UserInputType == Enum.UserInputType.MouseMovement or inp.UserInputType == Enum.UserInputType.Touch then
            local rel = inp.Position.X - trig.Parent.AbsolutePosition.X
            local perc = math.clamp(rel / trig.Parent.AbsoluteSize.X, 0, 1)
            
            fill.Size = UDim2.new(perc, 0, 1, 0)
            
            local val = minv + (maxv - minv) * perc
            if not isFloat then val = math.round(val) end
            
            Config[var] = val
            lbl.Text = string.format(fmt, val)
        end
    end)

    Services.UserInput.InputEnded:Connect(function(inp)
        if inp.UserInputType == Enum.UserInputType.MouseButton1 or inp.UserInputType == Enum.UserInputType.Touch then
            sliding = false
        end
    end)
end

SetupSlider(ClickerTrigger, ClickerFill, ClickerLabel, "ClicksPerSecond", 1, 100, "Velocidade: %d CPS", false)
SetupSlider(FlyTrigger, FlyFill, FlyLabel, "FlySpeed", 10, 200, "Força do Voo: %d", false)
SetupSlider(SpeedTrigger, SpeedFill, SpeedLabel, "MoveSpeed", 1, 50, "Velocidade Extra: %d", false)
SetupSlider(TeleportTrigger, TeleportFill, TeleportLabel, "TeleportInterval", 0.1, 5.0, "Intervalo: %.2fs", true)

-- Kill switch
local function Kill()
    Config.ClickerEnabled = false
    Config.NoclipEnabled = false
    Config.FlyEnabled = false
    Config.SpeedEnabled = false
    Config.TeleportEnabled = false
    Data.Running = false

    LimparFly()
    local hum = Data.LP.Character and Data.LP.Character:FindFirstChildOfClass("Humanoid")
    if hum then hum.PlatformStand = false end

    for _, th in ipairs(Data.Threads) do
        pcall(function() task.cancel(th) end)
    end

    for _, c in ipairs(Data.Connections) do
        pcall(function() c:Disconnect() end)
    end

    for _, i in ipairs(Data.Instances) do
        pcall(function() i:Destroy() end)
    end

    for _, u in ipairs(Data.UIs) do
        pcall(function() u:Destroy() end)
    end

    table.clear(Data.Threads)
    table.clear(Data.Connections)
    table.clear(Data.Instances)
    table.clear(Data.UIs)

    getgenv().DesativarZedMenu = nil
end

Close.MouseButton1Click:Connect(Kill)
getgenv().DesativarZedMenu = Kill

StartEngine()
print("[Zed Menu] Carregado.")