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

local LocalPlayer = Players.LocalPlayer

local flyEnabled, noclipEnabled, walkEnabled, infJumpEnabled = false, false, false, false
local flySpeed, walkSpeed = 50, 16
local bodyGyro, bodyVel
local Character, Humanoid, HRP


local function setupCharacter()
    Character = LocalPlayer.Character or LocalPlayer.CharacterAdded:Wait()
    Humanoid = Character:WaitForChild("Humanoid")
    HRP = Character:WaitForChild("HumanoidRootPart")

    if noclipEnabled then
        for _, part in ipairs(Character:GetDescendants()) do
            if part:IsA("BasePart") then
                part.CanCollide = false
            end
        end
    end
end

setupCharacter()
LocalPlayer.CharacterAdded:Connect(setupCharacter)

local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "FlyNoclipSpeedUI"
ScreenGui.Parent = LocalPlayer:WaitForChild("PlayerGui")
ScreenGui.ResetOnSpawn = false

local Frame = Instance.new("Frame")
Frame.Parent = ScreenGui
Frame.Size = UDim2.new(0, 420, 0, 350)
Frame.Position = UDim2.new(0.3, 0, 0.25, 0)
Frame.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
Frame.Active = true
Frame.Draggable = true

local UICorner = Instance.new("UICorner", Frame)
UICorner.CornerRadius = UDim.new(0, 20)

local Gradient = Instance.new("UIGradient", Frame)
Gradient.Color = ColorSequence.new{
	ColorSequenceKeypoint.new(0, Color3.fromRGB(60, 60, 60)),
	ColorSequenceKeypoint.new(1, Color3.fromRGB(10, 10, 10))
}

local Title = Instance.new("TextLabel", Frame)
Title.Size = UDim2.new(1, 0, 0, 40)
Title.BackgroundTransparency = 1
Title.Text = "Fly / Noclip / Speed / INF JUMP"
Title.Font = Enum.Font.SourceSansBold
Title.TextSize = 26
Title.TextColor3 = Color3.fromRGB(255,255,255)

-- Credits
local Credit = Instance.new("TextLabel", Frame)
Credit.Size = UDim2.new(1, 0, 0, 25)
Credit.Position = UDim2.new(0, 0, 1, -25)
Credit.BackgroundTransparency = 1
Credit.Text = "Made by: yourunclelarry96"
Credit.Font = Enum.Font.SourceSans
Credit.TextSize = 18
Credit.TextColor3 = Color3.fromRGB(180,180,180)

local function createButtonWithSlider(name, buttonText, posY, defaultValue, maxValue)
	local btn = Instance.new("TextButton")
	btn.Name = name
	btn.Parent = Frame
	btn.Size = UDim2.new(0.45, 0, 0, 40)
	btn.Position = UDim2.new(0.05, 0, posY, 0)
	btn.BackgroundColor3 = Color3.fromRGB(150,0,0)
	btn.TextColor3 = Color3.new(1,1,1)
	btn.Font = Enum.Font.SourceSansBold
	btn.TextSize = 22
	btn.Text = buttonText
	local roundBtn = Instance.new("UICorner", btn)
	roundBtn.CornerRadius = UDim.new(0,10)

	local slider = Instance.new("Frame")
	slider.Parent = Frame
	slider.Size = UDim2.new(0.45, 0, 0, 30)
	slider.Position = UDim2.new(0.5, 0, posY + 0.05, 0)
	slider.BackgroundColor3 = Color3.fromRGB(50,50,50)
	local roundSlider = Instance.new("UICorner", slider)
	roundSlider.CornerRadius = UDim.new(0,10)

	local fill = Instance.new("Frame")
	fill.Parent = slider
	fill.Size = UDim2.new(defaultValue/maxValue,0,1,0)
	fill.BackgroundColor3 = Color3.fromRGB(0,200,0)
	local fillCorner = Instance.new("UICorner", fill)
	fillCorner.CornerRadius = UDim.new(0,10)

	return btn, slider, fill
end

local FlyBtn, FlySlider, FlyFill = createButtonWithSlider("FlyBtn", "Fly: OFF (50)", 0.18, flySpeed, 300)
local SpeedBtn, WalkSlider, WalkFill = createButtonWithSlider("SpeedBtn", "Speed: OFF (16)", 0.38, walkSpeed, 300)

local function createButton(name, text, posY)
	local btn = Instance.new("TextButton")
	btn.Name = name
	btn.Parent = Frame
	btn.Size = UDim2.new(0.9, 0, 0, 40)
	btn.Position = UDim2.new(0.05, 0, posY, 0)
	btn.BackgroundColor3 = Color3.fromRGB(150,0,0)
	btn.TextColor3 = Color3.new(1,1,1)
	btn.Font = Enum.Font.SourceSansBold
	btn.TextSize = 22
	btn.Text = text
	local round = Instance.new("UICorner", btn)
	round.CornerRadius = UDim.new(0, 10)
	return btn
end
local NoclipBtn = createButton("NoclipBtn", "Noclip: OFF", 0.58)
local InfJumpBtn = createButton("InfJumpBtn", "INF JUMP: OFF", 0.75)

local uiVisible = true
UserInputService.InputBegan:Connect(function(input, gpe)
	if gpe then return end
	if input.KeyCode == Enum.KeyCode.E and UserInputService:IsKeyDown(Enum.KeyCode.LeftControl) then
		uiVisible = not uiVisible
		local transparencyGoal = uiVisible and 0 or 1
		TweenService:Create(Frame, TweenInfo.new(0.4, Enum.EasingStyle.Quad), {
			BackgroundTransparency = transparencyGoal
		}):Play()
		for _, child in ipairs(Frame:GetChildren()) do
			if child:IsA("TextButton") or child:IsA("TextLabel") or child:IsA("Frame") then
				TweenService:Create(child, TweenInfo.new(0.4), {
					TextTransparency = transparencyGoal,
					BackgroundTransparency = transparencyGoal
				}):Play()
			end
		end
	end
end)

local function setCollision(state)
	for _, part in ipairs(Character:GetDescendants()) do
		if part:IsA("BasePart") then
			part.CanCollide = state
		end
	end
end
RunService.Stepped:Connect(function()
	if noclipEnabled then setCollision(false) end
end)
NoclipBtn.MouseButton1Click:Connect(function()
	noclipEnabled = not noclipEnabled
	NoclipBtn.Text = "Noclip: " .. (noclipEnabled and "ON" or "OFF")
	NoclipBtn.BackgroundColor3 = noclipEnabled and Color3.fromRGB(0,200,0) or Color3.fromRGB(150,0,0)
	if not noclipEnabled then setCollision(true) end
end)

local function stopFly()
	if bodyGyro then bodyGyro:Destroy() bodyGyro = nil end
	if bodyVel then bodyVel:Destroy() bodyVel = nil end
	Humanoid.PlatformStand = false
end

FlyBtn.MouseButton1Click:Connect(function()
	flyEnabled = not flyEnabled
	FlyBtn.BackgroundColor3 = flyEnabled and Color3.fromRGB(0,200,0) or Color3.fromRGB(150,0,0)
	FlyBtn.Text = "Fly: " .. (flyEnabled and "ON" or "OFF") .. " (Speed: " .. flySpeed .. ")"

	if flyEnabled then
		bodyGyro = Instance.new("BodyGyro", HRP)
		bodyVel = Instance.new("BodyVelocity", HRP)
		bodyGyro.P = 9e4
		bodyGyro.MaxTorque = Vector3.new(9e9,9e9,9e9)
		bodyVel.MaxForce = Vector3.new(9e9,9e9,9e9)
		Humanoid.PlatformStand = true

		RunService.RenderStepped:Connect(function()
			if flyEnabled then
				bodyGyro.CFrame = CFrame.new(HRP.Position, HRP.Position + workspace.CurrentCamera.CFrame.LookVector)
				local moveDir = Vector3.zero
				if UserInputService:IsKeyDown(Enum.KeyCode.W) then moveDir += workspace.CurrentCamera.CFrame.LookVector end
				if UserInputService:IsKeyDown(Enum.KeyCode.S) then moveDir -= workspace.CurrentCamera.CFrame.LookVector end
				if UserInputService:IsKeyDown(Enum.KeyCode.A) then moveDir -= workspace.CurrentCamera.CFrame.RightVector end
				if UserInputService:IsKeyDown(Enum.KeyCode.D) then moveDir += workspace.CurrentCamera.CFrame.RightVector end
				bodyVel.Velocity = moveDir * flySpeed
			end
		end)
	else
		stopFly()
	end
end)

local function setupSlider(slider, fill, callback, maxValue)
	local dragging = false
	slider.InputBegan:Connect(function(input)
		if input.UserInputType == Enum.UserInputType.MouseButton1 then
			dragging = true
			Frame.Active = false
		end
	end)
	slider.InputEnded:Connect(function(input)
		if input.UserInputType == Enum.UserInputType.MouseButton1 then
			dragging = false
			Frame.Active = true
		end
	end)
	slider.InputChanged:Connect(function(input)
		if dragging and input.UserInputType == Enum.UserInputType.MouseMovement then
			local sliderX = slider.AbsolutePosition.X
			local sliderWidth = slider.AbsoluteSize.X
			local percent = math.clamp((input.Position.X - sliderX)/sliderWidth, 0, 1)
			fill.Size = UDim2.new(percent,0,1,0)
			callback(math.floor(percent*maxValue))
		end
	end)
end

setupSlider(WalkSlider, WalkFill, function(value)
	walkSpeed = value
	if walkEnabled then Humanoid.WalkSpeed = walkSpeed end
	SpeedBtn.Text = "Speed: " .. (walkEnabled and "ON" or "OFF") .. " (Walk: "..walkSpeed..")"
end, 300)

SpeedBtn.MouseButton1Click:Connect(function()
	walkEnabled = not walkEnabled
	Humanoid.WalkSpeed = walkEnabled and walkSpeed or 16
	SpeedBtn.BackgroundColor3 = walkEnabled and Color3.fromRGB(0,200,0) or Color3.fromRGB(150,0,0)
	SpeedBtn.Text = "Speed: " .. (walkEnabled and "ON" or "OFF") .. " (Walk: "..walkSpeed..")"
end)

-- Fly speed
setupSlider(FlySlider, FlyFill, function(value)
	flySpeed = value
	FlyBtn.Text = "Fly: " .. (flyEnabled and "ON" or "OFF") .. " (Speed: "..flySpeed..")"
end, 300)

InfJumpBtn.MouseButton1Click:Connect(function()
	infJumpEnabled = not infJumpEnabled
	InfJumpBtn.BackgroundColor3 = infJumpEnabled and Color3.fromRGB(0,200,0) or Color3.fromRGB(150,0,0)
	InfJumpBtn.Text = "INF JUMP: " .. (infJumpEnabled and "ON" or "OFF")
end)

UserInputService.JumpRequest:Connect(function()
	if infJumpEnabled then
		Humanoid:ChangeState(Enum.HumanoidStateType.Jumping)
	end
end)