Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement