local player = game.Players.LocalPlayer
local playerGui = player:WaitForChild("PlayerGui")
local screenGui = Instance.new("ScreenGui")
screenGui.Parent = playerGui


local mainFrame = Instance.new("Frame")
mainFrame.Size = UDim2.new(0, 300, 0, 200)
mainFrame.Position = UDim2.new(0.5, -150, 0.5, -100)
mainFrame.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
mainFrame.Parent = screenGui


local titleBar = Instance.new("Frame")
titleBar.Size = UDim2.new(1, 0, 0, 30)
titleBar.BackgroundColor3 = Color3.fromRGB(100, 100, 100)
titleBar.Parent = mainFrame


local titleText = Instance.new("TextLabel")
titleText.Size = UDim2.new(1, -50, 1, 0) 
titleText.Position = UDim2.new(0, 5, 0, 0)
titleText.Text = "Credits to: Imaginalexiss"
titleText.TextColor3 = Color3.fromRGB(255, 255, 255)
titleText.TextSize = 14
titleText.TextXAlignment = Enum.TextXAlignment.Left
titleText.BackgroundTransparency = 1
titleText.Parent = titleBar


local speedInputBox = Instance.new("TextBox")
speedInputBox.Size = UDim2.new(0, 200, 0, 50)
speedInputBox.Position = UDim2.new(0.5, -100, 0.5, -25)
speedInputBox.PlaceholderText = "Enter Speed"
speedInputBox.Text = ""
speedInputBox.Parent = mainFrame


local changeSpeedButton = Instance.new("TextButton")
changeSpeedButton.Size = UDim2.new(0, 200, 0, 50)
changeSpeedButton.Position = UDim2.new(0.5, -100, 0.5, 30)
changeSpeedButton.Text = "Change Speed"
changeSpeedButton.Parent = mainFrame


local closeButton = Instance.new("TextButton")
closeButton.Size = UDim2.new(0, 50, 0, 30)
closeButton.Position = UDim2.new(1, -50, 0, 0)
closeButton.Text = "X"
closeButton.BackgroundColor3 = Color3.fromRGB(255, 0, 0)
closeButton.Parent = titleBar


local function changeSpeed()
    local speedValue = tonumber(speedInputBox.Text)
    if speedValue then
        
        player.Character.Humanoid.WalkSpeed = speedValue
    else
        print("Please enter a valid number.")
    end
end


changeSpeedButton.MouseButton1Click:Connect(changeSpeed)


closeButton.MouseButton1Click:Connect(function()
    screenGui:Destroy()
end)


local dragging, dragInput, dragStart, startPos

titleBar.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 then
        dragging = true
        dragStart = input.Position
        startPos = mainFrame.Position
    end
end)

titleBar.InputChanged:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseMovement and dragging then
        local delta = input.Position - dragStart
        mainFrame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
    end
end)

titleBar.InputEnded:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 then
        dragging = false
    end
end)