Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- local UIGui = Instance.new("ScreenGui")
- local UserInputService = game:GetService("UserInputService")
- local HeadUI = Instance.new("TextLabel")
- local SettingsFrame = Instance.new("Frame")
- local TeleportService = game:GetService("TeleportService")
- local LocalizationService = game:GetService("LocalizationService")
- local Player = game.Players.LocalPlayer
- local PlayersDataAreaFrame = Instance.new("Frame")
- local SettingsText = Instance.new("TextLabel")
- local PlayerDataTextLabel = Instance.new("TextLabel")
- local PlayerCountryTextLabel = Instance.new("TextLabel")
- local PlayerIDTextLabel = Instance.new("TextLabel")
- local QuitButton = Instance.new("TextButton")
- local QuitButtonUICorner = Instance.new("UICorner")
- local PlayerAccountAgeTextLabel = Instance.new("TextLabel")
- local PlayerDisplayNameTextLabel = Instance.new("TextLabel")
- local PlayerNameTextLabel = Instance.new("TextLabel")
- local SettingsFrameUICorner = Instance.new("UICorner")
- local PlayersDataAreaFrameUICorner = Instance.new("UICorner")
- local ColorButtonUICorner = Instance.new("UICorner")
- local CloseSettingsButton = Instance.new("TextButton")
- local CloseSettingsButtonUICorner = Instance.new("UICorner")
- local PlayerCommandArea = Instance.new("Frame")
- local PlayerCommandAreaUICorner = Instance.new("UICorner")
- local PlayerCommandAreaTextLabel = Instance.new("TextLabel")
- local RejoinButton = Instance.new("TextButton")
- local RejoinButtonUICorner = Instance.new("UICorner")
- local CloseExecutorSysButton = Instance.new("TextButton")
- local CloseExecutorSysButtonUICorner = Instance.new("UICorner")
- UIGui.Parent = game.CoreGui
- HeadUI.Position = UDim2.new(99, 0, 99, 0)
- HeadUI.Parent = UIGui
- HeadUI.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
- HeadUI.BackgroundTransparency = 1
- HeadUI.Size = UDim2.new(0, 0, 0, 0)
- HeadUI.TextColor3 = Color3.fromRGB(255, 255, 255)
- SettingsFrame.Name = "SettingsFrame"
- SettingsFrame.Parent = UIGui
- SettingsFrame.AnchorPoint = Vector2.new(0.5, 0.5)
- SettingsFrame.BackgroundColor3 = HeadUI.BackgroundColor3
- SettingsFrame.BackgroundTransparency = 0.5
- SettingsFrame.Position = UDim2.new(0.5, 0, 0.5, 0)
- SettingsFrame.Size = UDim2.new(0, 230, 0, 375)
- SettingsFrameUICorner.Parent = SettingsFrame
- local Region, Country = pcall(function()
- return LocalizationService:GetCountryRegionForPlayerAsync(Player)
- end)
- CloseSettingsButton.Name = "CloseSettingsButton"
- CloseSettingsButton.Position = UDim2.new(0.87, 0, 0.01, 0)
- CloseSettingsButton.Parent = SettingsFrame
- CloseSettingsButton.BackgroundColor3 = HeadUI.BackgroundColor3
- CloseSettingsButton.BackgroundTransparency = 0.5
- CloseSettingsButton.LayoutOrder = 1
- CloseSettingsButton.Size = UDim2.new(0, 25, 0, 25)
- CloseSettingsButton.AutoButtonColor = false
- CloseSettingsButton.Font = Enum.Font.Code
- CloseSettingsButton.Text = "X"
- CloseSettingsButton.TextColor3 = HeadUI.TextColor3
- CloseSettingsButton.TextScaled = true
- CloseSettingsButton.TextSize = 14.000
- CloseSettingsButton.TextWrapped = true
- CloseSettingsButtonUICorner.Parent = CloseSettingsButton
- CloseSettingsButton.MouseButton1Click:Connect(function()
- SettingsFrame.Visible = false
- end)
- PlayersDataAreaFrame.Name = "PlayersDataAreaFrame"
- PlayersDataAreaFrame.Parent = SettingsFrame
- PlayersDataAreaFrame.AnchorPoint = Vector2.new(0.5, 0.5)
- PlayersDataAreaFrame.BackgroundColor3 = HeadUI.BackgroundColor3
- PlayersDataAreaFrame.BackgroundTransparency = 0.5
- PlayersDataAreaFrame.Position = UDim2.new(0.5, 0, 0.25, 0)
- PlayersDataAreaFrame.Size = UDim2.new(0, 215, 0, 100)
- PlayersDataAreaFrameUICorner.Parent = PlayersDataAreaFrame
- PlayerCommandArea.Name = "PlayerCommandArea"
- PlayerCommandArea.Parent = SettingsFrame
- PlayerCommandArea.AnchorPoint = Vector2.new(0.5, 0.5)
- PlayerCommandArea.BackgroundColor3 = HeadUI.BackgroundColor3
- PlayerCommandArea.BackgroundTransparency = 0.5
- PlayerCommandArea.Position = UDim2.new(0.5, 0, 0.70, 0)
- PlayerCommandArea.Size = UDim2.new(0, 215, 0, 210)
- PlayerCommandAreaUICorner.Parent = PlayerCommandArea
- SettingsText.Name = "SettingsText"
- SettingsText.Parent = SettingsFrame
- SettingsText.BackgroundTransparency = 1
- SettingsText.Position = UDim2.new(0.5, 0, 0.05, 0)
- SettingsText.Size = UDim2.new(0, 1, 0, 1)
- SettingsText.Font = Enum.Font.Code
- SettingsText.Text = "Settings"
- SettingsText.TextColor3 = HeadUI.TextColor3
- SettingsText.TextTransparency = 0.5
- SettingsText.TextSize = 20
- PlayerDataTextLabel.Name = "PlayerDataTextLabel"
- PlayerDataTextLabel.Parent = PlayersDataAreaFrame
- PlayerDataTextLabel.BackgroundTransparency = 1
- PlayerDataTextLabel.Position = UDim2.new(0.5, 0, 0.1, 0)
- PlayerDataTextLabel.Size = UDim2.new(0, 1, 0, 1)
- PlayerDataTextLabel.Font = Enum.Font.Code
- PlayerDataTextLabel.Text = "Player Data:"
- PlayerDataTextLabel.TextColor3 = HeadUI.TextColor3
- PlayerDataTextLabel.TextTransparency = 0.5
- PlayerDataTextLabel.TextSize = 10
- PlayerCountryTextLabel.Name = "PlayerCountryTextLabel"
- PlayerCountryTextLabel.Parent = PlayersDataAreaFrame
- PlayerCountryTextLabel.BackgroundTransparency = 1
- PlayerCountryTextLabel.Position = UDim2.new(0.5, 0, 0.25, 0)
- PlayerCountryTextLabel.Size = UDim2.new(0, 1, 0, 1)
- PlayerCountryTextLabel.Font = Enum.Font.Code
- PlayerCountryTextLabel.Text = ""..Country
- PlayerCountryTextLabel.TextColor3 = HeadUI.TextColor3
- PlayerCountryTextLabel.TextTransparency = 0.5
- PlayerCountryTextLabel.TextSize = 15
- PlayerIDTextLabel.Name = "PlayerIDTextLabel"
- PlayerIDTextLabel.Parent = PlayersDataAreaFrame
- PlayerIDTextLabel.BackgroundTransparency = 1
- PlayerIDTextLabel.Position = UDim2.new(0.5, 0, 0.4, 0)
- PlayerIDTextLabel.Size = UDim2.new(0, 1, 0, 1)
- PlayerIDTextLabel.Font = Enum.Font.Code
- PlayerIDTextLabel.Text = ""..game.Players.LocalPlayer.UserId
- PlayerIDTextLabel.TextColor3 = HeadUI.TextColor3
- PlayerIDTextLabel.TextTransparency = 0.5
- PlayerIDTextLabel.TextSize = 15
- PlayerAccountAgeTextLabel.Name = "PlayerAccountAgeTextLabel"
- PlayerAccountAgeTextLabel.Parent = PlayersDataAreaFrame
- PlayerAccountAgeTextLabel.BackgroundTransparency = 1
- PlayerAccountAgeTextLabel.Position = UDim2.new(0.5, 0, 0.55, 0)
- PlayerAccountAgeTextLabel.Size = UDim2.new(0, 1, 0, 1)
- PlayerAccountAgeTextLabel.Font = Enum.Font.Code
- PlayerAccountAgeTextLabel.Text = ""..game.Players.LocalPlayer.AccountAge
- PlayerAccountAgeTextLabel.TextColor3 = HeadUI.TextColor3
- PlayerAccountAgeTextLabel.TextTransparency = 0.5
- PlayerAccountAgeTextLabel.TextSize = 15
- PlayerDisplayNameTextLabel.Name = "PlayerDisplayNameTextLabel"
- PlayerDisplayNameTextLabel.Parent = PlayersDataAreaFrame
- PlayerDisplayNameTextLabel.BackgroundTransparency = 1
- PlayerDisplayNameTextLabel.Position = UDim2.new(0.5, 0, 0.7, 0)
- PlayerDisplayNameTextLabel.Size = UDim2.new(0, 1, 0, 1)
- PlayerDisplayNameTextLabel.Font = Enum.Font.Code
- PlayerDisplayNameTextLabel.Text = ""..game.Players.LocalPlayer.DisplayName
- PlayerDisplayNameTextLabel.TextColor3 = HeadUI.TextColor3
- PlayerDisplayNameTextLabel.TextTransparency = 0.5
- PlayerDisplayNameTextLabel.TextSize = 15
- PlayerNameTextLabel.Name = "PlayerNameTextLabel"
- PlayerNameTextLabel.Parent = PlayersDataAreaFrame
- PlayerNameTextLabel.BackgroundTransparency = 1
- PlayerNameTextLabel.Position = UDim2.new(0.5, 0, 0.85, 0)
- PlayerNameTextLabel.Size = UDim2.new(0, 1, 0, 1)
- PlayerNameTextLabel.Font = Enum.Font.Code
- PlayerNameTextLabel.Text = ""..game.Players.LocalPlayer.Name
- PlayerNameTextLabel.TextColor3 = HeadUI.TextColor3
- PlayerNameTextLabel.TextTransparency = 0.5
- PlayerNameTextLabel.TextSize = 15
- QuitButton.Name = "QuitButton"
- QuitButton.Position = UDim2.new(0.035, 0, 0.20, 0)
- QuitButton.Parent = PlayerCommandArea
- QuitButton.BackgroundColor3 = HeadUI.BackgroundColor3
- QuitButton.BackgroundTransparency = 0.5
- QuitButton.LayoutOrder = 1
- QuitButton.Size = UDim2.new(0, 200, 0, 40)
- QuitButton.AutoButtonColor = false
- QuitButton.Font = Enum.Font.Code
- QuitButton.Text = "Quit"
- QuitButton.TextColor3 = HeadUI.TextColor3
- QuitButton.TextScaled = true
- QuitButton.TextSize = 14.000
- QuitButton.TextWrapped = true
- QuitButton.MouseButton1Click:Connect(function()
- Player:Kick("See you soon.")
- end)
- QuitButtonUICorner.Parent = QuitButton
- RejoinButton.Name = "RejoinButton"
- RejoinButton.Position = UDim2.new(0.035, 0, 0.50, 0)
- RejoinButton.Parent = PlayerCommandArea
- RejoinButton.BackgroundColor3 = HeadUI.BackgroundColor3
- RejoinButton.BackgroundTransparency = 0.5
- RejoinButton.LayoutOrder = 1
- RejoinButton.Size = UDim2.new(0, 200, 0, 40)
- RejoinButton.AutoButtonColor = false
- RejoinButton.Font = Enum.Font.Code
- RejoinButton.Text = "Rejoin"
- RejoinButton.TextColor3 = HeadUI.TextColor3
- RejoinButton.TextScaled = true
- RejoinButton.TextSize = 14.000
- RejoinButton.TextWrapped = true
- RejoinButton.MouseButton1Click:Connect(function()
- Player:Kick("Rejoining...")
- local Rejoin = coroutine.create(function()
- local Success, ErrorMessage = pcall(function()
- TeleportService:Teleport(game.PlaceId, Player)
- end)
- if ErrorMessage and not Success then
- warn(ErrorMessage)
- end
- end)
- coroutine.resume(Rejoin)
- end)
- RejoinButtonUICorner.Parent = RejoinButton
- CloseExecutorSysButton.Name = "CloseExecutorSysButton"
- CloseExecutorSysButton.Position = UDim2.new(0.035, 0, 0.80, 0)
- CloseExecutorSysButton.Parent = PlayerCommandArea
- CloseExecutorSysButton.BackgroundColor3 = HeadUI.BackgroundColor3
- CloseExecutorSysButton.BackgroundTransparency = 0.5
- CloseExecutorSysButton.LayoutOrder = 1
- CloseExecutorSysButton.Size = UDim2.new(0, 200, 0, 40)
- CloseExecutorSysButton.AutoButtonColor = false
- CloseExecutorSysButton.Font = Enum.Font.Code
- CloseExecutorSysButton.Text = "Close Executor"
- CloseExecutorSysButton.TextColor3 = HeadUI.TextColor3
- CloseExecutorSysButton.TextScaled = true
- CloseExecutorSysButton.TextSize = 14.000
- CloseExecutorSysButton.TextWrapped = true
- CloseExecutorSysButton.MouseButton1Click:Connect(function()
- game:GetService("CoreGui"):FindFirstChild("UIGui"):Destroy()
- end)
- CloseExecutorSysButtonUICorner.Parent = CloseExecutorSysButton
- PlayerCommandAreaTextLabel.Name = "PlayerCommandAreaTextLabel"
- PlayerCommandAreaTextLabel.Parent = PlayerCommandArea
- PlayerCommandAreaTextLabel.BackgroundTransparency = 1
- PlayerCommandAreaTextLabel.Position = UDim2.new(0.5, 0, 0.1, 0)
- PlayerCommandAreaTextLabel.Size = UDim2.new(0, 1, 0, 1)
- PlayerCommandAreaTextLabel.Font = Enum.Font.Code
- PlayerCommandAreaTextLabel.Text = "Player Control:"
- PlayerCommandAreaTextLabel.TextColor3 = HeadUI.TextColor3
- PlayerCommandAreaTextLabel.TextTransparency = 0.5
- PlayerCommandAreaTextLabel.TextSize = 25
- local gui = SettingsFrame
- local dragging
- local dragInput
- local dragStart
- local startPos
- local function update(input)
- local delta = input.Position - dragStart
- gui.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
- end
- gui.InputBegan:Connect(function(input)
- if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
- dragging = true
- dragStart = input.Position
- startPos = gui.Position
- input.Changed:Connect(function()
- if input.UserInputState == Enum.UserInputState.End then
- dragging = false
- end
- end)
- end
- end)
- gui.InputChanged:Connect(function(input)
- if input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch then
- dragInput = input
- end
- end)
- UserInputService.InputChanged:Connect(function(input)
- if input == dragInput and dragging then
- update(input)
- end
- end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement