--======================================== -- CLICK TEST -- QUADRADO MOVEL - PRETO E BRANCO --======================================== local Players = game:GetService("Players") local UIS = game:GetService("UserInputService") local player = Players.LocalPlayer local playerGui = player:WaitForChild("PlayerGui") -- EVITAR DUPLICAR A GUI local oldGui = playerGui:FindFirstChild("click TEST") if oldGui then oldGui:Destroy() end local gui = Instance.new("ScreenGui") gui.Name = "click TEST" gui.ResetOnSpawn = false gui.Parent = playerGui -- BOTAO QUADRADO local toggle = Instance.new("TextButton") toggle.Name = "ToggleButton" toggle.Size = UDim2.fromOffset(70, 70) toggle.Position = UDim2.new(0, 20, 0.6, 0) toggle.BackgroundColor3 = Color3.fromRGB(0, 0, 0) toggle.BorderColor3 = Color3.fromRGB(255, 255, 255) toggle.BorderSizePixel = 2 toggle.Text = "CLICK" toggle.TextColor3 = Color3.fromRGB(255, 255, 255) toggle.TextSize = 16 toggle.Font = Enum.Font.GothamBlack toggle.Active = true toggle.Parent = gui -- MENU local menu = Instance.new("Frame") menu.Name = "MainMenu" menu.Size = UDim2.fromOffset(260, 180) menu.Position = UDim2.new(0.5, -130, 0.5, -90) menu.BackgroundColor3 = Color3.fromRGB(0, 0, 0) menu.BorderColor3 = Color3.fromRGB(255, 255, 255) menu.BorderSizePixel = 2 menu.Visible = false menu.Parent = gui -- TITULO local title = Instance.new("TextLabel") title.Size = UDim2.new(1, 0, 0, 45) title.BackgroundTransparency = 1 title.Text = "click TEST" title.TextColor3 = Color3.fromRGB(255, 255, 255) title.Font = Enum.Font.GothamBlack title.TextSize = 18 title.Parent = menu -- BOTAO DE TESTE local button = Instance.new("TextButton") button.Size = UDim2.new(0.8, 0, 0, 45) button.Position = UDim2.new(0.1, 0, 0, 65) button.BackgroundColor3 = Color3.fromRGB(0, 0, 0) button.BorderColor3 = Color3.fromRGB(255, 255, 255) button.BorderSizePixel = 1 button.TextColor3 = Color3.fromRGB(255, 255, 255) button.Text = "CLIQUE AQUI" button.Font = Enum.Font.GothamBold button.TextSize = 14 button.Parent = menu local count = 0 button.Activated:Connect(function() count += 1 button.Text = "CLIQUES: " .. count end) -- ARRASTAR O QUADRADO NO PC E CELULAR local dragging = false local pressPosition local buttonStartPosition local activeInput local moved = false local dragThreshold = 8 toggle.InputBegan:Connect(function(input) if input.UserInputType ~= Enum.UserInputType.Touch and input.UserInputType ~= Enum.UserInputType.MouseButton1 then return end dragging = true moved = false activeInput = input pressPosition = input.Position buttonStartPosition = toggle.Position end) UIS.InputChanged:Connect(function(input) if not dragging then return end local validInput = input.UserInputType == Enum.UserInputType.MouseMovement or (input.UserInputType == Enum.UserInputType.Touch and activeInput == input) if validInput then local delta = input.Position - pressPosition if delta.Magnitude > dragThreshold then moved = true end if moved then toggle.Position = UDim2.new( buttonStartPosition.X.Scale, buttonStartPosition.X.Offset + delta.X, buttonStartPosition.Y.Scale, buttonStartPosition.Y.Offset + delta.Y ) end end end) UIS.InputEnded:Connect(function(input) if input == activeInput or input.UserInputType == Enum.UserInputType.MouseButton1 then dragging = false activeInput = nil end end) -- ABRIR E FECHAR COM UM TOQUE/CLIQUE local lastPressPosition local wasDragging = false toggle.Activated:Connect(function() if not moved then menu.Visible = not menu.Visible end end) print("click TEST carregado!")