Setup Accounts V3

local Storage = game:GetService("ReplicatedStorage");
local Workspace = game:GetService("Workspace");
local Players = game:GetService("Players");
local Player = Players.LocalPlayer

-- Local Initiative Services

local TeleportService = game:GetService("TeleportService");
local InputService = game:GetService("UserInputService");
local ChatService = game:GetService("TextChatService");
local HttpService = game:GetService("HttpService");
local VirtualUser = game:GetService("VirtualUser");
local RunService = game:GetService("RunService");
local CoreGui = game:GetService("CoreGui");
local Camera = Workspace.Camera
local Gui = Player.PlayerGui
local PId, JId = game.PlaceId, game.JobId

-- Initiatives

local AdminPanel = Gui.Admin
local Room = Workspace.Room
local Stalls = Workspace.Stalls
local Events = Storage.EVENTS
local AdminEvent = Events.NOM

-- Recollectives

local Heartbeat = RunService.Heartbeat

-- Intitiate Admin User Interface

AdminPanel.OpenClose.Visible = true
AdminPanel.Frame.Visible = true

function Shorten(Username)
    local PlayerList = {}
    for _, CPlayer in pairs(Players:GetPlayers()) do
        if CPlayer.Name:lower():sub(1, #Username) == Username:lower() or CPlayer.DisplayName:lower():sub(1, #Username) == Username:lower() then
            table.insert(PlayerList, CPlayer)
        end
    end
    return PlayerList
end

function Hop()
    pcall(function()
        local Servers = {}
        for _, v in ipairs(HttpService:JSONDecode(game:HttpGetAsync("https://games.roblox.com/v1/games/" .. PlaceId .. "/servers/Public?sortOrder=Asc&limit=100")).data) do
            if type(v) == "table" and v.maxPlayers > v.playing and v.Id ~= JobId then
                Servers[#Servers + 1] = v.id
            end
        end
        if #Servers > 0 then
            TeleportService:TeleportToPlaceInstance(PlaceId, Servers[math.random(1, #Servers)])
        else
            print("Server not found.")
        end
    end)
end

function StealStall()
    pcall(function()
        for _, Steal in next, Stalls:GetDescendants() do
            if Steal:IsA("ProximityPrompt") then
                if (Player.Character.HumanoidRootPart.Position - Steal.Parent.Position).Magnitude < getgenv().Settings.Distance then
                    fireproximityprompt(Steal)
                    Steal.Parent.Parent.Edit:FireServer("Empty", "Empty")
                end
            end
        end
    end)
end

function CloseStall()
    pcall(function()
        for _, CloseStall in next, Stalls:GetDescendants() do
            if CloseStall:IsA("RemoteEvent") and CloseStall.Name == "CloseStall" then
                CloseStall:FireServer()
            end
        end
    end)
end

function EmptyStall()
    pcall(function()
        StealStall()
        CloseStall()
    end)
end

function Hide(Target, Value)
    pcall(function()
        if Value then
            for _, Search in next, Players:GetPlayers() do
                if Search.Name == Target then
                    for _, Staff in next, Players:GetPlayers() do
                        if Staff ~= Player then
                            if table.find(getgenv().Settings.Whitelist, Staff.UserId) then
                                Search.Character.HumanoidRootPart.Velocity = Vector3.new()
                                Search.Character.HumanoidRootPart.CFrame = Staff.Character.HumanoidRootPart.CFrame * CFrame.new(-getgenv().Settings.X, getgenv().Settings.Y, getgenv().Settings.Z)
                            end
                        end
                    end
                end
            end
        elseif not Value then
            for _, Search in next, Players:GetPlayers() do
                if Search.Name == Target then
                    for _, Staff in next, Players:GetPlayers() do
                        if Staff ~= Player then
                            if table.find(getgenv().Settings.Whitelist, Staff.UserId) then
                                Search.Character.HumanoidRootPart.Velocity = Vector3.new()
                                Search.Character.HumanoidRootPart.CFrame = Staff.Character.HumanoidRootPart.CFrame * CFrame.new(getgenv().Settings.X, getgenv().Settings.Y, getgenv().Settings.Z)
                            end
                        end
                    end
                end
            end
        end
    end)
end


function NoSitAFK()
    function AntiAFK()
        local grabconnections = getconnections or get_signal_cons
        if grabconnections then
            for _, Extra in pairs(grabconnections(Player.Idled)) do
                if Extra["Disable"] then
                    Extra["Disable"](Extra)
                elseif Extra["Disconnect"] then
                    Extra["Disconnect"](Extra)
                end
            end
        else
            Player.Idled:Connect(function()
                VirtualUser:CaptureController()
                VirtualUser:ClickButton2(Vector2.new())
            end)
        end
    end

    function NoSitCall()
        task.wait()
        if Player.Character:FindFirstChildWhichIsA("Humanoid").Sit then
            Player.Character:FindFirstChildWhichIsA("Humanoid").Sit = false
        end
    end

    if NoSit then
        noSit:Disconnect()
        NoSitGet:Disconnect()
    end

    NoSit = Player.Character:FindFirstChildOfClass("Humanoid"):GetPropertyChangedSignal("Sit"):Connect(NoSitCall)

    function NoSitDeadGet()
        repeat task.wait()

        until Player.Character ~= nil and Player.Character:FindFirstChildOfClass("Humanoid")
        NoSit:Disconnect()
        NoSit = Player.Character:FindFirstChildOfClass("Humanoid"):GetPropertyChangedSignal("Sit"):Connect(NoSitCall)
    end

    NoSitGet = Player.CharacterAdded:Connect(NoSitDeadGet)
    AntiAFK()
end

NoSitAFK()

ChatService.MessageReceived:Connect(function(Message)
    for _, Search in next, Players:GetPlayers() do
        if Search ~= Player and table.find(getgenv().Settings.Whitelist, Search.UserId) then
            if Message.TextSource.UserId == Search.UserId and Message.Text == getgenv().Settings.Prefix .. "disconnect" then
                Player:Kick("You have been disconnected.")
            elseif Message.TextSource.UserId == Search.UserId and (Message.Text == getgenv().Settings.Prefix .. "commands" or Message.Text == getgenv().Settings.Prefix .. "cmds") then
                ChatService.TextChannels.RBXGeneral:SendAsync("commands, cmds, disconnect, empty, giant, mini, event, respawn, rejoin, hop, flash, default, def, big, huge, small, tiny, conc, conceal, reveal, rev, hide, unhide, bring")
            elseif Message.TextSource.UserId == Search.UserId and Message.Text == getgenv().Settings.Prefix .. "empty" then
                EmptyStall()
            elseif Message.TextSource.UserId == Search.UserId and Message.Text == getgenv().Settings.Prefix .. "giant" then
                AdminEvent:FireServer("huge")
            elseif Message.TextSource.UserId == Search.UserId and Message.Text == getgenv().Settings.Prefix .. "mini" then
                AdminEvent:FireServer("mini")
            elseif Message.TextSource.UserId == Search.UserId and Message.Text == getgenv().Settings.Prefix .. "event" then
                AdminEvent:FireServer("")
            elseif Message.TextSource.UserId == Search.UserId and Message.Text == getgenv().Settings.Prefix .. "respawn" then
                pcall(function()
                    local cOld = Player.Character.HumanoidRootPart.CFrame
                    Player.Character:BreakJoints()
                    Player.CharacterAdded:Wait():WaitForChild("HumanoidRootPart").CFrame = cOld
                end)
            elseif Message.TextSource.UserId == Search.UserId and Message.Text == getgenv().Settings.Prefix .. "rejoin" then
                TeleportService:TeleportToPlaceInstance(PId, JId, Player)
            elseif Message.TextSource.UserId == Search.UserId and Message.Text == getgenv().Settings.Prefix .. "hop" then
                Hop()
            elseif Message.TextSource.UserId == Search.UserId and Message.Text == getgenv().Settings.Prefix .. "flash" then
                local gOld = getgenv().Settings.Y
                for Iter = 1, 5 do
                    task.wait(0.1)
                    getgenv().Settings.Y = 25
                    task.wait(0.1)
                    getgenv().Settings.Y = 3.5
                end
                task.wait(0.7)
                getgenv().Settings.Y = gOld
            elseif Message.TextSource.UserId == Search.UserId and (Message.Text == getgenv().Settings.Prefix .. "default" or Message.Text == getgenv().Settings.Prefix .. "def") then
                getgenv().Settings.X = 4
                getgenv().Settings.Y = 0
                getgenv().Settings.Z = 0
            elseif Message.TextSource.UserId == Search.UserId and (Message.Text == getgenv().Settings.Prefix .. "big" or Message.Text == getgenv().Settings.Prefix .. "huge") then
                getgenv().Settings.X = 7.5
                getgenv().Settings.Y = 3.5
                getgenv().Settings.Z = 0
            elseif Message.TextSource.UserId == Search.UserId and (Message.Text == getgenv().Settings.Prefix .. "small" or Message.Text == getgenv().Settings.Prefix .. "tiny") then
                getgenv().Settings.X = 2.5
                getgenv().Settings.Y = 0
                getgenv().Settings.Z = 0
            elseif Message.TextSource.UserId == Search.UserId and (Message.Text == getgenv().Settings.Prefix .. "conc" or Message.Text == getgenv().Settings.Prefix .. "conceal") then
                getgenv().Settings.Y = 5000
            elseif Message.TextSource.UserId == Search.UserId and (Message.Text == getgenv().Settings.Prefix .. "reveal" or Message.Text == getgenv().Settings.Prefix .. "rev") then
                getgenv().Settings.Y = 3.5
            elseif Message.TextSource.UserId == Search.UserId and Message.Text == getgenv().Settings.Prefix .. "hide" then
                getgenv().Settings.Hide = true
            elseif Message.TextSource.UserId == Search.UserId and Message.Text == getgenv().Settings.Prefix .. "unhide" then
                getgenv().Settings.Hide = false
                Player.Character.HumanoidRootPart.CFrame = Search.Character.HumanoidRootPart.CFrame * CFrame.new(0, 5, 0)
            elseif Message.TextSource.UserId == Search.UserId and Message.Text == getgenv().Settings.Prefix .. "bring" then
                Player.Character.HumanoidRootPart.CFrame = Search.Character.HumanoidRootPart.CFrame * CFrame.new(0, 0, 0)
            end
        end
    end
end)

Heartbeat:Connect(function()
    pcall(function()
        if getgenv().Settings.Hide then
            Hide(getgenv().Settings.Target, getgenv().Settings.Value)
        end
    end)
end)