--[[
    WARNING: Heads up! This script has not been verified by ScriptBlox. Use at your own risk!
]]

local Workspace = game:GetService("Workspace")
local CoreGui = game:GetService("CoreGui")
local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")
local RunService = game:GetService("RunService")
local TweenService = game:GetService("TweenService")

local player = Players.LocalPlayer

-- Character setup
local function SetupCharacter()
    local character = player.Character or player.CharacterAdded:Wait()
    local humanoid = character:WaitForChild("Humanoid")
    local rootPart = character:WaitForChild("HumanoidRootPart")
    return character, humanoid, rootPart
end

local character, humanoid, rootPart = SetupCharacter()

-- Variables
local ClipOn = false
local Flying = false
local FlySpeed = 50

local BodyVelocity
local BodyGyro

-- GUI Elements
local GUI = {
    Noclip = Instance.new("ScreenGui"),
    BG = Instance.new("Frame"),
    Title = Instance.new("TextLabel"),
    Buttons = {},
    Labels = {},
    Inputs = {}
}

-- GUI Setup
GUI.Noclip.Name = "Noclip"
GUI.Noclip.Parent = CoreGui

GUI.BG.Name = "BG"
GUI.BG.Parent = GUI.Noclip
GUI.BG.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
GUI.BG.BorderColor3 = Color3.fromRGB(30, 30, 30)
GUI.BG.Position = UDim2.new(0.5, -200, 0.5, -150)
GUI.BG.Size = UDim2.new(0, 400, 0, 300)
GUI.BG.Active = true
GUI.BG.Draggable = true

GUI.Title.Name = "Title"
GUI.Title.Parent = GUI.BG
GUI.Title.BackgroundColor3 = Color3.fromRGB(0, 255, 255)
GUI.Title.BorderColor3 = Color3.fromRGB(0, 180, 180)
GUI.Title.Size = UDim2.new(0, 400, 0, 50)
GUI.Title.Font = Enum.Font.GothamBold
GUI.Title.Text = "Noclip & Fly"
GUI.Title.TextColor3 = Color3.fromRGB(255, 255, 255)
GUI.Title.TextSize = 30

-- Buttons
local function CreateButton(name, position, text, callback)
    local button = Instance.new("TextButton")
    button.Name = name
    button.Parent = GUI.BG
    button.BackgroundColor3 = Color3.fromRGB(0, 255, 255)
    button.BorderColor3 = Color3.fromRGB(0, 180, 180)
    button.Size = UDim2.new(0, 380, 0, 50)
    button.Position = position
    button.Text = text
    button.TextColor3 = Color3.fromRGB(255, 255, 255)
    button.TextSize = 20
    button.MouseButton1Click:Connect(callback)
    GUI.Buttons[name] = button
end

CreateButton("NoclipButton", UDim2.new(0.5, -190, 0.2, 0), "Toggle Noclip", function()
    ToggleNoclip(not ClipOn)
end)

CreateButton("FlyButton", UDim2.new(0.5, -190, 0.4, 0), "Toggle Fly", function()
    if Flying then
        StopFlying()
        GUI.Labels.StatusLabel.Text = "Status: Fly Off"
    else
        StartFlying()
        GUI.Labels.StatusLabel.Text = "Status: Fly On"
    end
end)

CreateButton("TeleportButton", UDim2.new(0.5, -190, 0.6, 0), "Teleport to Player", function()
    TeleportToPlayer()
end)

-- Labels
local function CreateLabel(name, position, size, text, color)
    local label = Instance.new("TextLabel")
    label.Name = name
    label.Parent = GUI.BG
    label.Position = position
    label.Size = size
    label.Text = text
    label.TextColor3 = color
    label.TextSize = 18
    GUI.Labels[name] = label
end

CreateLabel("StatusLabel", UDim2.new(0.5, -60, 0.85, 0), UDim2.new(0, 180, 0, 30), "Status: Off", Color3.fromRGB(255, 0, 0))
CreateLabel("Credit", UDim2.new(0.5, -75, 0.93, 0), UDim2.new(0, 150, 0, 20), "Created by LilVamp1X", Color3.fromRGB(255, 255, 255))

-- Inputs
local function CreateInput(name, position, size, defaultText, callback)
    local input = Instance.new("TextBox")
    input.Name = name
    input.Parent = GUI.BG
    input.Position = position
    input.Size = size
    input.BackgroundColor3 = Color3.fromRGB(100, 100, 100)
    input.TextColor3 = Color3.fromRGB(255, 255, 255)
    input.TextSize = 18
    input.Text = defaultText
    input.FocusLost:Connect(callback)
    GUI.Inputs[name] = input
end

CreateInput("SpeedTextBox", UDim2.new(0.5, -190, 0.7, 0), UDim2.new(0, 380, 0, 30), tostring(FlySpeed), function()
    local speedInput = tonumber(GUI.Inputs.SpeedTextBox.Text)
    if speedInput then
        FlySpeed = math.clamp(speedInput, 1, 1000)
        GUI.Inputs.SpeedTextBox.Text = tostring(FlySpeed)
    else
        GUI.Inputs.SpeedTextBox.Text = tostring(FlySpeed)
    end
end)

-- Close Button
local CloseButton = Instance.new("TextButton")
CloseButton.Parent = GUI.BG
CloseButton.Position = UDim2.new(0.9, -15, 0.02, 0)
CloseButton.Size = UDim2.new(0, 30, 0, 30)
CloseButton.Text = "X"
CloseButton.TextColor3 = Color3.fromRGB(255, 255, 255)
CloseButton.TextSize = 18
CloseButton.MouseButton1Click:Connect(function()
    GUI.Noclip:Destroy()
end)

-- Noclip Functionality
local function ToggleNoclip(enabled)
    ClipOn = enabled
    for _, part in ipairs(character:GetDescendants()) do
        if part:IsA("BasePart") then
            part.CanCollide = not enabled
        end
    end
    UpdateStatusLabel()
end

-- Update status label to reflect current state
local function UpdateStatusLabel()
    local statusText = "Status: " .. (ClipOn and "Noclip On" or "Noclip Off")
    GUI.Labels.StatusLabel.Text = statusText
    GUI.Labels.StatusLabel.TextColor3 = ClipOn and Color3.fromRGB(0, 255, 0) or Color3.fromRGB(255, 0, 0)
end

-- Fly Functionality
local function StartFlying()
    Flying = true
    BodyVelocity = Instance.new("BodyVelocity")
    BodyVelocity.MaxForce = Vector3.new(100000, 100000, 100000)
    BodyVelocity.Parent = rootPart

    BodyGyro = Instance.new("BodyGyro")
    BodyGyro.MaxTorque = Vector3.new(400000, 400000, 400000)
    BodyGyro.P = 40000
    BodyGyro.Parent = rootPart
end

local function StopFlying()
    Flying = false
    if BodyVelocity then BodyVelocity:Destroy() end
    if BodyGyro then BodyGyro:Destroy() end
end

-- Teleport Functionality
local function TeleportToPlayer()
    local targetPlayer = nil
    for _, plr in ipairs(Players:GetPlayers()) do
        if plr ~= player and plr.Character and plr.Character:FindFirstChild("HumanoidRootPart") then
            targetPlayer = plr
            break
        end
    end

    if targetPlayer then
        rootPart.CFrame = targetPlayer.Character.HumanoidRootPart.CFrame
    end
end

-- Heartbeat Loop
RunService.Heartbeat:Connect(function()
    if Flying then
        local camera = Workspace.CurrentCamera
        local moveVector = Vector3.new()

        -- Movement controls
        if UserInputService:IsKeyDown(Enum.KeyCode.W) then
            moveVector = moveVector + camera.CFrame.LookVector
        end
        if UserInputService:IsKeyDown(Enum.KeyCode.S) then
            moveVector = moveVector - camera.CFrame.LookVector
        end
        if UserInputService:IsKeyDown(Enum.KeyCode.A) then
            moveVector = moveVector - camera.CFrame.RightVector
        end
        if UserInputService:IsKeyDown(Enum.KeyCode.D) then
            moveVector = moveVector + camera.CFrame.RightVector
        end
        if UserInputService:IsKeyDown(Enum.KeyCode.Space) then
            moveVector = moveVector + Vector3.new(0, 1, 0)
        end
        if UserInputService:IsKeyDown(Enum.KeyCode.LeftControl) then
            moveVector = moveVector - Vector3.new(0, 1, 0)
        end

        if moveVector.Magnitude > 0 then
            BodyVelocity.Velocity = moveVector.Unit * FlySpeed
        else
            BodyVelocity.Velocity = Vector3.new(0, 0, 0)
        end

        BodyGyro.CFrame = camera.CFrame
    end

    -- Keep Noclip active while flying
    if ClipOn then
        for _, part in ipairs(character:GetDescendants()) do
            if part:IsA("BasePart") then
                part.CanCollide = false
            end
        end
    end
end)