-- HAPPYMOD (ORIGINAL.1.0)
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local UserInputService = game:GetService("UserInputService")
local LocalPlayer = Players.LocalPlayer

-- UI Base
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "HAPPYMOD_UI"
ScreenGui.ResetOnSpawn = false
ScreenGui.Parent = LocalPlayer:WaitForChild("PlayerGui")

-- Frame Principal (Verde Escuro)
local MainFrame = Instance.new("Frame")
MainFrame.Name = "MainFrame"
MainFrame.Size = UDim2.new(0, 260, 0, 320)
MainFrame.Position = UDim2.new(0.5, -130, 0.3, 0)
MainFrame.BackgroundColor3 = Color3.fromRGB(15, 35, 15)
MainFrame.BorderSizePixel = 0
MainFrame.Active = true
MainFrame.Draggable = true -- GUI Arrastável
MainFrame.Parent = ScreenGui

local Corner = Instance.new("UICorner")
Corner.CornerRadius = UDim.new(0, 8)
Corner.Parent = MainFrame

-- Título
local Title = Instance.new("TextLabel")
Title.Name = "Title"
Title.Size = UDim2.new(1, 0, 0, 40)
Title.BackgroundTransparency = 1
Title.Text = "HAPPYMOD (ORIGINAL.1.0)"
Title.TextColor3 = Color3.fromRGB(50, 205, 50)
Title.TextSize = 16
Title.Font = Enum.Font.SourceSansBold
Title.Parent = MainFrame

-- Scrolling Frame (Barra de Scroll)
local Scroll = Instance.new("ScrollingFrame")
Scroll.Name = "FunctionsScroll"
Scroll.Size = UDim2.new(1, -20, 1, -50)
Scroll.Position = UDim2.new(0, 10, 0, 40)
Scroll.BackgroundTransparency = 1
Scroll.BorderSizePixel = 0
Scroll.ScrollBarThickness = 6
Scroll.ScrollBarImageColor3 = Color3.fromRGB(50, 205, 50)
Scroll.Parent = MainFrame

local UIListLayout = Instance.new("UIListLayout")
UIListLayout.Parent = Scroll
UIListLayout.SortOrder = Enum.SortOrder.LayoutOrder
UIListLayout.Padding = UDim.new(0, 8)

-- Estados das Funções
local States = {
    Fly = false,
    NoClip = false,
    AntiBan = false,
    XRay = false,
    GodMode = false,
    InfJump = false
}

-- Conexões de Loops
local Connections = {}

-- Função Auxiliar para Criar Botões
local function CreateButton(name, text, onClick)
    local Btn = Instance.new("TextButton")
    Btn.Name = name
    Btn.Size = UDim2.new(1, -10, 0, 35)
    Btn.BackgroundColor3 = Color3.fromRGB(25, 60, 25)
    Btn.Text = text .. ": OFF"
    Btn.TextColor3 = Color3.fromRGB(50, 205, 50) -- Verde Claro
    Btn.TextSize = 14
    Btn.Font = Enum.Font.SourceSansBold
    Btn.Parent = Scroll

    local BtnCorner = Instance.new("UICorner")
    BtnCorner.CornerRadius = UDim.new(0, 6)
    BtnCorner.Parent = Btn

    Btn.MouseButton1Click:Connect(function()
        local newState = onClick(Btn)
        if newState then
            Btn.Text = text .. ": ON"
            Btn.TextColor3 = Color3.fromRGB(255, 60, 60) -- Vermelho quando ligado
        else
            Btn.Text = text .. ": OFF"
            Btn.TextColor3 = Color3.fromRGB(50, 205, 50) -- Verde Claro quando desligado
        end
    end)
end

-- 1. FLY (Sobe sem parar até desativar)
CreateButton("FlyBtn", "FLY", function()
    States.Fly = not States.Fly
    local char = LocalPlayer.Character or LocalPlayer.CharacterAdded:Wait()
    
    if States.Fly then
        local hrp = char:FindFirstChild("HumanoidRootPart")
        if hrp then
            local bv = hrp:FindFirstChild("FlyVelocity") or Instance.new("BodyVelocity")
            bv.Name = "FlyVelocity"
            bv.MaxForce = Vector3.new(1e9, 1e9, 1e9)
            bv.Velocity = Vector3.new(0, 50, 0) -- Velocidade para subir continuamente
            bv.Parent = hrp

            Connections.Fly = RunService.RenderStepped:Connect(function()
                if hrp and hrp:FindFirstChild("FlyVelocity") then
                    hrp.FlyVelocity.Velocity = Vector3.new(0, 50, 0)
                end
            end)
        end
    else
        if Connections.Fly then Connections.Fly:Disconnect() end
        if char and char:FindFirstChild("HumanoidRootPart") then
            local bv = char.HumanoidRootPart:FindFirstChild("FlyVelocity")
            if bv then bv:Destroy() end
        end
    end
    return States.Fly
end)

-- 2. NOCLIP
CreateButton("NoClipBtn", "NOCLIP", function()
    States.NoClip = not States.NoClip
    if States.NoClip then
        Connections.NoClip = RunService.Stepped:Connect(function()
            if LocalPlayer.Character then
                for _, part in pairs(LocalPlayer.Character:GetDescendants()) do
                    if part:IsA("BasePart") then
                        part.CanCollide = false
                    end
                end
            end
        end)
    else
        if Connections.NoClip then Connections.NoClip:Disconnect() end
    end
    return States.NoClip
end)

-- 3. ANT-BAN
CreateButton("AntiBanBtn", "ANT-BAN", function()
    States.AntiBan = not States.AntiBan
    return States.AntiBan
end)

-- 4. X-RAY
CreateButton("XRayBtn", "X-RAY", function()
    States.XRay = not States.XRay
    for _, obj in pairs(workspace:GetDescendants()) do
        if obj:IsA("BasePart") and not obj:IsDescendantOf(LocalPlayer.Character) then
            if States.XRay then
                if not obj:FindFirstChild("OriginalTransparency") then
                    local val = Instance.new("NumberValue")
                    val.Name = "OriginalTransparency"
                    val.Value = obj.Transparency
                    val.Parent = obj
                end
                obj.Transparency = 0.5
            else
                if obj:FindFirstChild("OriginalTransparency") then
                    obj.Transparency = obj.OriginalTransparency.Value
                    obj.OriginalTransparency:Destroy()
                end
            end
        end
    end
    return States.XRay
end)

-- 5. GOOD MODE (Velocidade 100, Gravidade da Lua, NoClip, InfJump)
CreateButton("GodModeBtn", "GOOD MODE", function()
    States.GodMode = not States.GodMode
    local char = LocalPlayer.Character
    if States.GodMode then
        workspace.Gravity = 50 -- Gravidade estilo Lua
        if char and char:FindFirstChild("Humanoid") then
            char.Humanoid.WalkSpeed = 100
        end
        Connections.GodModeNoClip = RunService.Stepped:Connect(function()
            if LocalPlayer.Character then
                for _, part in pairs(LocalPlayer.Character:GetDescendants()) do
                    if part:IsA("BasePart") then
                        part.CanCollide = false
                    end
                end
            end
        end)
    else
        workspace.Gravity = 196.2 -- Gravidade Padrão
        if char and char:FindFirstChild("Humanoid") then
            char.Humanoid.WalkSpeed = 16
        end
        if Connections.GodModeNoClip then Connections.GodModeNoClip:Disconnect() end
    end
    return States.GodMode
end)

-- 6. INFINITE JUMP
CreateButton("InfJumpBtn", "Infinite jump", function()
    States.InfJump = not States.InfJump
    return States.InfJump
end)

-- Conexão global para o Infinite Jump e God Mode Jump
UserInputService.JumpRequest:Connect(function()
    if States.InfJump or States.GodMode then
        local char = LocalPlayer.Character
        if char and char:FindFirstChildOfClass("Humanoid") then
            char:FindFirstChildOfClass("Humanoid"):ChangeState(Enum.HumanoidStateType.Jumping)
        end
    end
end)

-- Atualiza a altura do Scroll dinamicamente
Scroll.CanvasSize = UDim2.new(0, 0, 0, UIListLayout.AbsoluteContentSize.Y + 10)