-- ScreenGui
local SG = Instance.new("ScreenGui")
SG.Name = "HackerLoader6767"
SG.ResetOnSpawn = false
SG.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")

-- Loading Screen Frame
local loadFrame = Instance.new("Frame")
loadFrame.Size = UDim2.new(1, 0, 1, 0)
loadFrame.BackgroundColor3 = Color3.fromRGB(5, 5, 15)
loadFrame.BorderSizePixel = 0
loadFrame.ZIndex = 10
loadFrame.Parent = SG

-- Matrix-like background effect (particles)
local particles = {}
for i = 1, 30 do
    local p = Instance.new("TextLabel")
    p.Size = UDim2.new(0, 20, 0, 20)
    p.Position = UDim2.new(0, math.random(0, 1920), 0, math.random(0, 1080))
    p.BackgroundTransparency = 1
    p.TextColor3 = Color3.fromRGB(0, 255, 100)
    p.Text = string.char(math.random(33, 126))
    p.Font = Enum.Font.Code
    p.TextSize = 14
    p.ZIndex = 10
    p.Parent = loadFrame
    table.insert(particles, {obj = p, speed = math.random(50, 200) / 100})
end

-- Main 6767 text
local mainLabel = Instance.new("TextLabel")
mainLabel.Size = UDim2.new(0, 600, 0, 150)
mainLabel.Position = UDim2.new(0.5, -300, 0.4, 0)
mainLabel.BackgroundTransparency = 1
mainLabel.Text = ""
mainLabel.TextColor3 = Color3.fromRGB(0, 255, 100)
mainLabel.Font = Enum.Font.GothamBlack
mainLabel.TextSize = 120
mainLabel.ZIndex = 12
mainLabel.Parent = loadFrame

-- Glitch text effect
local letters = "6767"
local glitchChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!@#$%^&*"

local function updateLoading(dt)
    for _, p in pairs(particles) do
        p.obj.Position = p.obj.Position + UDim2.new(0, 0, 0, p.speed)
        if p.obj.Position.Y.Offset > 1080 then
            p.obj.Position = UDim2.new(0, math.random(0, 1920), 0, -20)
        end
        p.obj.Text = string.char(math.random(33, 126))
        p.obj.TextTransparency = math.random(3, 10) / 10
    end
end

-- Loading animation with typewriter/scramble effect
local loadTime = 0
local loadDuration = 2
local textRevealed = false

RunService = game:GetService("RunService")

local loading = true
spawn(function()
    local startTime = tick()
    while tick() - startTime < loadDuration do
        RunService.Heartbeat:Wait()
        updateLoading(0)
        
        -- Scramble effect for 6767
        local progress = (tick() - startTime) / loadDuration
        local text = ""
        for i = 1, 4 do
            if math.random() < progress then
                text = text .. letters:sub(i, i)
            else
                text = text .. glitchChars:sub(math.random(1, #glitchChars), math.random(1, #glitchChars))
            end
        end
        mainLabel.Text = text
    end
    
    -- Final reveal
    mainLabel.Text = "6767"
    for i = 1, 10 do
        RunService.Heartbeat:Wait()
        updateLoading(0)
    end
    
    -- Fade out loading screen
    for i = 1, 20 do
        RunService.Heartbeat:Wait()
        loadFrame.BackgroundTransparency = i / 20
        mainLabel.TextTransparency = i / 20
        for _, p in pairs(particles) do
            p.obj.TextTransparency = i / 20
        end
    end
    
    loadFrame.Visible = false
    loading = false
    
    -- Show main GUI
    createMainGUI()
end)

-- ==================== MAIN GUI ====================

function createMainGUI()
    -- Main frame (hacker aesthetic)
    local mainFrame = Instance.new("Frame")
    mainFrame.Name = "Main6767GUI"
    mainFrame.Size = UDim2.new(0, 350, 0, 450)
    mainFrame.Position = UDim2.new(0.5, -175, 0.5, -225)
    mainFrame.BackgroundColor3 = Color3.fromRGB(10, 15, 20)
    mainFrame.BorderSizePixel = 0
    mainFrame.Active = true
    mainFrame.Draggable = true
    mainFrame.Parent = SG
    
    -- Corner round
    local corner = Instance.new("UICorner")
    corner.CornerRadius = UDim.new(0, 8)
    corner.Parent = mainFrame
    
    -- Neon border
    local border = Instance.new("UIStroke")
    border.Color = Color3.fromRGB(0, 255, 100)
    border.Thickness = 2
    border.Parent = mainFrame
    
    -- Glow effect
    local glow = Instance.new("ImageLabel")
    glow.Size = UDim2.new(1.2, 0, 1.2, 0)
    glow.Position = UDim2.new(0.1, -35, 0.1, -45)
    glow.BackgroundTransparency = 1
    glow.Image = "rbxassetid://4991728829"
    glow.ImageColor3 = Color3.fromRGB(0, 255, 100)
    glow.ImageTransparency = 0.8
    glow.ZIndex = -1
    glow.Parent = mainFrame
    
    -- Title bar
    local titleBar = Instance.new("Frame")
    titleBar.Size = UDim2.new(1, 0, 0, 40)
    titleBar.BackgroundColor3 = Color3.fromRGB(5, 10, 15)
    titleBar.BorderSizePixel = 0
    titleBar.Parent = mainFrame
    
    local titleCorner = Instance.new("UICorner")
    titleCorner.CornerRadius = UDim.new(0, 8)
    titleCorner.Parent = titleBar
    
    -- Title text
    local titleText = Instance.new("TextLabel")
    titleText.Size = UDim2.new(1, -40, 1, 0)
    titleText.Position = UDim2.new(0, 10, 0, 0)
    titleText.BackgroundTransparency = 1
    titleText.Text = "6767 | SYSTEM ACCESS"
    titleText.TextColor3 = Color3.fromRGB(0, 255, 100)
    titleText.Font = Enum.Font.GothamBold
    titleText.TextSize = 18
    titleText.TextXAlignment = Enum.TextXAlignment.Left
    titleText.Parent = titleBar
    
    -- Close button
    local closeBtn = Instance.new("TextButton")
    closeBtn.Size = UDim2.new(0, 30, 0, 30)
    closeBtn.Position = UDim2.new(1, -35, 0, 5)
    closeBtn.BackgroundColor3 = Color3.fromRGB(255, 50, 50)
    closeBtn.Text = "X"
    closeBtn.TextColor3 = Color3.new(1, 1, 1)
    closeBtn.Font = Enum.Font.GothamBold
    closeBtn.AutoButtonColor = true
    closeBtn.Parent = titleBar
    
    local closeCorner = Instance.new("UICorner")
    closeCorner.CornerRadius = UDim.new(0, 6)
    closeCorner.Parent = closeBtn
    
    closeBtn.MouseButton1Click:Connect(function()
        mainFrame.Visible = false
    end)
    
    -- Content area
    local content = Instance.new("Frame")
    content.Size = UDim2.new(1, -20, 1, -55)
    content.Position = UDim2.new(0, 10, 0, 50)
    content.BackgroundTransparency = 1
    content.Parent = mainFrame
    
    -- ========== FLY SECTION ==========
    local flySection = createSection(content, "FLIGHT SYSTEM", 0)
    
    local flyToggle = createToggle(flySection, "Enable Flight", false)
    local flySpeedSlider = createSlider(flySection, "Fly Speed", 50, 500, 200)
    
    -- Fly logic
    local flying = false
    local flySpeed = 200
    
    flyToggle.changed:Connect(function(enabled)
        flying = enabled
        if flying then
            startFlying(flySpeed)
        end
    end)
    
    flySpeedSlider.changed:Connect(function(val)
        flySpeed = val
        if flying then
            flySpeed = val
        end
    end)
    
    -- ========== SPEED SECTION ==========
    local speedSection = createSection(content, "VELOCITY OVERRIDE", 180)
    
    local speedToggle = createToggle(speedSection, "Speed Modifier", false)
    local walkSpeedSlider = createSlider(speedSection, "Walk Speed", 16, 500, 100)
    local jumpPowerSlider = createSlider(speedSection, "Jump Power", 50, 500, 200)
    
    -- Speed logic
    local player = game.Players.LocalPlayer
    local character = player.Character or player.CharacterAdded:Wait()
    local humanoid = character:WaitForChild("Humanoid")
    
    speedToggle.changed:Connect(function(enabled)
        if enabled then
            humanoid.WalkSpeed = walkSpeedSlider.value
            humanoid.JumpPower = jumpPowerSlider.value
        else
            humanoid.WalkSpeed = 16
            humanoid.JumpPower = 50
        end
    end)
    
    walkSpeedSlider.changed:Connect(function(val)
        if speedToggle.isOn then
            humanoid.WalkSpeed = val
        end
    end)
    
    jumpPowerSlider.changed:Connect(function(val)
        if speedToggle.isOn then
            humanoid.JumpPower = val
        end
    end)
    
    player.CharacterAdded:Connect(function(char)
        character = char
        humanoid = char:WaitForChild("Humanoid")
        if speedToggle.isOn then
            humanoid.WalkSpeed = walkSpeedSlider.value
            humanoid.JumpPower = jumpPowerSlider.value
        end
    end)
    
    -- ========== EXTRA FEATURES ==========
    local extraSection = createSection(content, "UTILITIES", 380)
    
    local noclipBtn = createButton(extraSection, "NOCLIP", Color3.fromRGB(255, 150, 0))
    local godBtn = createButton(extraSection, "GOD MODE", Color3.fromRGB(0, 150, 255))
    local invisBtn = createButton(extraSection, "INVISIBLE", Color3.fromRGB(150, 0, 255))
    
    -- Noclip
    local noclipping = false
    noclipBtn.MouseButton1Click:Connect(function()
        noclipping = not noclipping
        noclipBtn.BackgroundColor3 = noclipping and Color3.fromRGB(0, 255, 100) or Color3.fromRGB(255, 150, 0)
        
        if noclipping then
            spawn(function()
                while noclipping and character do
                    for _, part in pairs(character:GetDescendants()) do
                        if part:IsA("BasePart") then
                            part.CanCollide = false
                        end
                    end
                    RunService.Heartbeat:Wait()
                end
            end)
        end
    end)
    
    -- Toggle GUI with key
    game:GetService("UserInputService").InputBegan:Connect(function(input)
        if input.KeyCode == Enum.KeyCode.RightShift then
            mainFrame.Visible = not mainFrame.Visible
        end
    end)
end

-- ==================== HELPER FUNCTIONS ====================

function createSection(parent, title, yPos)
    local section = Instance.new("Frame")
    section.Size = UDim2.new(1, 0, 0, 160)
    section.Position = UDim2.new(0, 0, 0, yPos)
    section.BackgroundColor3 = Color3.fromRGB(15, 25, 35)
    section.BorderSizePixel = 0
    section.Parent = parent
    
    local sectionCorner = Instance.new("UICorner")
    sectionCorner.CornerRadius = UDim.new(0, 6)
    sectionCorner.Parent = section
    
    local titleLab = Instance.new("TextLabel")
    titleLab.Size = UDim2.new(1, -10, 0, 25)
    titleLab.Position = UDim2.new(0, 5, 0, 5)
    titleLab.BackgroundTransparency = 1
    titleLab.Text = "[ " .. title .. " ]"
    titleLab.TextColor3 = Color3.fromRGB(0, 255, 100)
    titleLab.Font = Enum.Font.GothamBold
    titleLab.TextSize = 14
    titleLab.TextXAlignment = Enum.TextXAlignment.Left
    titleLab.Parent = section
    
    return section
end

function createToggle(parent, text, default)
    local toggle = {}
    toggle.isOn = default
    
    local frame = Instance.new("Frame")
    frame.Size = UDim2.new(1, -20, 0, 35)
    frame.Position = UDim2.new(0, 10, 0, 35)
    frame.BackgroundTransparency = 1
    frame.Parent = parent
    
    local label = Instance.new("TextLabel")
    label.Size = UDim2.new(0.6, 0, 1, 0)
    label.BackgroundTransparency = 1
    label.Text = text
    label.TextColor3 = Color3.fromRGB(200, 200, 200)
    label.Font = Enum.Font.Gotham
    label.TextSize = 14
    label.TextXAlignment = Enum.TextXAlignment.Left
    label.Parent = frame
    
    local btn = Instance.new("TextButton")
    btn.Size = UDim2.new(0, 60, 0, 28)
    btn.Position = UDim2.new(1, -65, 0.5, -14)
    btn.BackgroundColor3 = default and Color3.fromRGB(0, 255, 100) or Color3.fromRGB(50, 50, 50)
    btn.Text = default and "ON" or "OFF"
    btn.TextColor3 = Color3.new(1, 1, 1)
    btn.Font = Enum.Font.GothamBold
    btn.TextSize = 12
    btn.AutoButtonColor = true
    btn.Parent = frame
    
    local btnCorner = Instance.new("UICorner")
    btnCorner.CornerRadius = UDim.new(0, 4)
    btnCorner.Parent = btn
    
    toggle.events = {}
    function toggle:Connect(func)
        table.insert(toggle.events, func)
        return func
    end
    toggle.changed = {Connect = function(_, func) table.insert(toggle.events, func) end}
    
    btn.MouseButton1Click:Connect(function()
        toggle.isOn = not toggle.isOn
        btn.BackgroundColor3 = toggle.isOn and Color3.fromRGB(0, 255, 100) or Color3.fromRGB(50, 50, 50)
        btn.Text = toggle.isOn and "ON" or "OFF"
        for _, f in pairs(toggle.events) do
            f(toggle.isOn)
        end
    end)
    
    return toggle
end

function createSlider(parent, text, min, max, default)
    local slider = {}
    slider.value = default
    
    local frame = Instance.new("Frame")
    frame.Size = UDim2.new(1, -20, 0, 50)
    frame.Position = UDim2.new(0, 10, 0, 80)
    frame.BackgroundTransparency = 1
    frame.Parent = parent
    
    local label = Instance.new("TextLabel")
    label.Size = UDim2.new(0.5, 0, 0, 20)
    label.BackgroundTransparency = 1
    label.Text = text .. ": " .. default
    label.TextColor3 = Color3.fromRGB(200, 200, 200)
    label.Font = Enum.Font.Gotham
    label.TextSize = 12
    label.TextXAlignment = Enum.TextXAlignment.Left
    label.Parent = frame
    
    local track = Instance.new("Frame")
    track.Size = UDim2.new(1, 0, 0, 8)
    track.Position = UDim2.new(0, 0, 0, 25)
    track.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
    track.BorderSizePixel = 0
    track.Parent = frame
    
    local trackCorner = Instance.new("UICorner")
    trackCorner.CornerRadius = UDim.new(0, 4)
    trackCorner.Parent = track
    
    local fill = Instance.new("Frame")
    fill.Size = UDim2.new((default - min) / (max - min), 0, 1, 0)
    fill.BackgroundColor3 = Color3.fromRGB(0, 255, 100)
    fill.BorderSizePixel = 0
    fill.Parent = track
    
    local fillCorner = Instance.new("UICorner")
    fillCorner.CornerRadius = UDim.new(0, 4)
    fillCorner.Parent = fill
    
    local knob = Instance.new("Frame")
    knob.Size = UDim2.new(0, 16, 0, 16)
    knob.Position = UDim2.new((default - min) / (max - min), -8, 0.5, -8)
    knob.BackgroundColor3 = Color3.fromRGB(200, 255, 200)
    knob.BorderSizePixel = 0
    knob.Parent = track
    
    local knobCorner = Instance.new("UICorner")
    knobCorner.CornerRadius = UDim.new(1, 0)
    knobCorner.Parent = knob
    
    -- Slider logic
    local dragging = false
    local function update(input)
        local pos = (input.Position.X - track.AbsolutePosition.X) / track.AbsoluteSize.X
        pos = math.clamp(pos, 0, 1)
        local val = math.floor(min + pos * (max - min))
        slider.value = val
        label.Text = text .. ": " .. val
        fill.Size = UDim2.new(pos, 0, 1, 0)
        knob.Position = UDim2.new(pos, -8, 0.5, -8)
        
        for _, f in pairs(slider.events or {}) do
            f(val)
        end
    end
    
    slider.events = {}
    slider.changed = {Connect = function(_, func) 
        table.insert(slider.events, func) 
    end}
    
    track.InputBegan:Connect(function(input)
        if input.UserInputType == Enum.UserInputType.MouseButton1 then
            dragging = true
            update(input)
        end
    end)
    
    game:GetService("UserInputService").InputChanged:Connect(function(input)
        if dragging and input.UserInputType == Enum.UserInputType.MouseMovement then
            update(input)
        end
    end)
    
    game:GetService("UserInputService").InputEnded:Connect(function(input)
        if input.UserInputType == Enum.UserInputType.MouseButton1 then
            dragging = false
        end
    end)
    
    return slider
end

function createButton(parent, text, color)
    local btn = Instance.new("TextButton")
    btn.Size = UDim2.new(0.3, -5, 0, 35)
    btn.BackgroundColor3 = color
    btn.Text = text
    btn.TextColor3 = Color3.new(1, 1, 1)
    btn.Font = Enum.Font.GothamBold
    btn.TextSize = 12
    btn.AutoButtonColor = true
    btn.Parent = parent
    
    local btnCorner = Instance.new("UICorner")
    btnCorner.CornerRadius = UDim.new(0, 6)
    btnCorner.Parent = btn
    
    return btn
end

-- ==================== FLY SYSTEM ====================

function startFlying(speed)
    local player = game.Players.LocalPlayer
    local character = player.Character
    if not character then return endChild("Humanoid")
    local root = character:FindFirstChild("HumanoidRootPart")
    if not humanoid or not root then return end
    
    local bodyGyro = Instance.new("BodyGyro")
    bodyGyro.MaxTorque = Vector3.new(1, 1, 1) * 100000
    bodyGyro.P = 10000
    bodyGyro.Parent = root
    
    local bodyVel = Instance.new("BodyVelocity")
    bodyVel.MaxForce = Vector3.new(1, 1, 1) * 100000
    bodyVel.Velocity = Vector3.zero
    bodyVel.Parent = root
    
    local cam = workspace.CurrentCamera
    local flying = true
    
    -- Cancel any existing fly
    if _G.stopFly then _G.stopFly() end
    
    _G.stopFly = function()
        flying = false
        bodyGyro:Destroy()
        bodyVel:Destroy()
        _G.stopFly = nil
    end
    
    spawn(function()
        while flying do
            local dir = Vector3.zero
            
            local keys = {
                W = game:GetService("UserInputService"):IsKeyDown(Enum.KeyCode.W),
                A = game:GetService("UserInputService"):IsKeyDown(Enum.KeyCode.A),
                S = game:GetService("UserInputService"):IsKeyDown(Enum.KeyCode.S),
                D = game:GetService("UserInputService"):IsKeyDown(Enum.KeyCode.D),
                Space = game:GetService("UserInputService"):IsKeyDown(Enum.KeyCode.Space),
                LeftShift = game:GetService("UserInputService"):IsKeyDown(Enum.KeyCode.LeftShift)
            }
            
            local cf = cam.CFrame
            local currentSpeed = speed
            
            if keys.W then dir = dir + cf.LookVector end
            if keys.S then dir = dir - cf.LookVector end
            if keys.A then dir = dir - cf.RightVector end
            if keys.D then dir = dir + cf.RightVector end
            if keys.Space then dir = dir + Vector3.new(0, 1, 0) end
            if keys.LeftShift then dir = dir - Vector3.new(0, 1, 0) end
            
            if dir.Magnitude > 0 then
                dir = dir.Unit * currentSpeed
            end
            
            bodyVel.Velocity = dir
            bodyGyro.CFrame = cf
            
            RunService.Heartbeat:Wait()
        end
    end)
    
    -- Connect to toggle off
    return _G.stopFly
end