Setting

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)