Hh

-- by CoiledTom

-- SERVIÇOS
local Players = game:GetService("Players")
local UIS = game:GetService("UserInputService")

local player = Players.LocalPlayer

-- FUNÇÃO COPIAR
local function copyText(text)
	if setclipboard then
		setclipboard(text)
	elseif toclipboard then
		toclipboard(text)
	end
end

-- GUI
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Parent = game.CoreGui

-- BOTÃO ABRIR / FECHAR
local ToggleButton = Instance.new("TextButton")
ToggleButton.Parent = ScreenGui
ToggleButton.Size = UDim2.new(0, 42, 0, 42)
ToggleButton.Position = UDim2.new(0, 10, 0, 10)
ToggleButton.Text = "≡"
ToggleButton.BackgroundColor3 = Color3.fromRGB(30,30,30)
ToggleButton.TextColor3 = Color3.fromRGB(255,255,255)
ToggleButton.BorderSizePixel = 0
ToggleButton.TextSize = 22
ToggleButton.AutoButtonColor = true
ToggleButton.Active = true

local ToggleCorner = Instance.new("UICorner", ToggleButton)
ToggleCorner.CornerRadius = UDim.new(0,10)

-- FRAME PRINCIPAL
local MainFrame = Instance.new("Frame")
MainFrame.Parent = ScreenGui
MainFrame.Size = UDim2.new(0, 260, 0, 320)
MainFrame.Position = UDim2.new(0.5, -130, 0.5, -160)
MainFrame.BackgroundColor3 = Color3.fromRGB(20,20,20)
MainFrame.BorderSizePixel = 0
MainFrame.Visible = false
MainFrame.Active = true

local MainCorner = Instance.new("UICorner", MainFrame)
MainCorner.CornerRadius = UDim.new(0,12)

-- TÍTULO
local Title = Instance.new("TextLabel")
Title.Parent = MainFrame
Title.Size = UDim2.new(1, 0, 0, 40)
Title.Text = "Jogadores do Servidor"
Title.BackgroundTransparency = 1
Title.TextColor3 = Color3.fromRGB(255,255,255)
Title.TextSize = 16
Title.Font = Enum.Font.GothamBold

-- BOTÃO REFRESH
local Refresh = Instance.new("TextButton")
Refresh.Parent = MainFrame
Refresh.Size = UDim2.new(1, -20, 0, 30)
Refresh.Position = UDim2.new(0, 10, 0, 45)
Refresh.Text = "🔄 Atualizar Lista"
Refresh.BackgroundColor3 = Color3.fromRGB(35,35,35)
Refresh.TextColor3 = Color3.fromRGB(255,255,255)
Refresh.BorderSizePixel = 0
Refresh.TextSize = 14

local RefreshCorner = Instance.new("UICorner", Refresh)
RefreshCorner.CornerRadius = UDim.new(0,8)

-- SCROLL
local Scroll = Instance.new("ScrollingFrame")
Scroll.Parent = MainFrame
Scroll.Size = UDim2.new(1, -20, 1, -90)
Scroll.Position = UDim2.new(0, 10, 0, 85)
Scroll.CanvasSize = UDim2.new(0,0,0,0)
Scroll.BackgroundTransparency = 1
Scroll.ScrollBarImageTransparency = 0.3

local UIList = Instance.new("UIListLayout", Scroll)
UIList.Padding = UDim.new(0,6)

-- ATUALIZAR LISTA
local function refreshList()
	for _, v in pairs(Scroll:GetChildren()) do
		if v:IsA("TextButton") then
			v:Destroy()
		end
	end

	for _, plr in pairs(Players:GetPlayers()) do
		local btn = Instance.new("TextButton")
		btn.Parent = Scroll
		btn.Size = UDim2.new(1, -5, 0, 32)
		btn.Text = plr.Name
		btn.BackgroundColor3 = Color3.fromRGB(40,40,40)
		btn.TextColor3 = Color3.fromRGB(255,255,255)
		btn.BorderSizePixel = 0
		btn.TextSize = 14

		local c = Instance.new("UICorner", btn)
		c.CornerRadius = UDim.new(0,8)

		btn.MouseButton1Click:Connect(function()
			copyText(plr.Name)
			btn.Text = "Copiado!"
			task.wait(0.6)
			btn.Text = plr.Name
		end)
	end

	task.wait()
	Scroll.CanvasSize = UDim2.new(0,0,0, UIList.AbsoluteContentSize.Y + 5)
end

-- DRAG FUNÇÃO (BOTÃO)
local dragging, dragStart, startPos

ToggleButton.InputBegan:Connect(function(input)
	if input.UserInputType == Enum.UserInputType.MouseButton1
	or input.UserInputType == Enum.UserInputType.Touch then
		dragging = true
		dragStart = input.Position
		startPos = ToggleButton.Position

		input.Changed:Connect(function()
			if input.UserInputState == Enum.UserInputState.End then
				dragging = false
			end
		end)
	end
end)

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

-- ABRIR / FECHAR
ToggleButton.MouseButton1Click:Connect(function()
	MainFrame.Visible = not MainFrame.Visible
	if MainFrame.Visible then
		refreshList()
	end
end)

refreshList()