admin roblox

local p = game:service"Players".TOP_SECRE
local work = workspace;
local char = p.Character
local cam = work.CurrentCamera
local Rotation = 0
local Speed = 0.0001

local Services = {
      Workspace = game:service'Workspace';
      Lighting = game:service'Lighting';
      Players = game:service'Players';
      ReplicatedFirst = game:service'ReplicatedFirst';
      ReplicatedStorage = game:service'ReplicatedStorage';
      ServerScriptService = game:service'ServerScriptService';
      ServerStorage = game:service'ServerStorage';
      StarterGui = game:service'StarterGui';
      StarterPack = game:service'StarterPack';
      StarterPlayer = game:service'StarterPlayer';
      SoundService = game:service'SoundService';
      Chat = game:service'Chat';
      HttpService = game:service'HttpService';
      InsertService = game:service'InsertService'
}
---
function nwPrt(prnt,siz,cf,col)
local prt=Instance.new("Part")
prt.Parent=prnt
prt.FormFactor=3
prt.Name="Part"
prt.Size=Vector3.new(2,2,2)
prt.CanCollide=false
prt.Anchored=true
prt.Locked=true
prt.Transparency = 1
prt.TopSurface=0
prt.BottomSurface=0
prt:BreakJoints()
prt.CFrame=cf or CFrame.new(30,10,30)
prt.Material="SmoothPlastic"
prt.BrickColor=col
return prt
end
--
function Lerp(c1,c2,tim)
local com1 = {c1.X,c1.Y,c1.Z,c1:toEulerAnglesXYZ()}
local com2 = {c2.X,c2.Y,c2.Z,c2:toEulerAnglesXYZ()}
for i,v in pairs(com1) do
if i<4 then
com1[i] = v+(com2[i]-v)*tim
else
com1[i] = com2[i]
end
end
return CFrame.new(com1[1],com1[2],com1[3])*CFrame.Angles(com1[4],com1[5],com1[6])
end
---
function Rndv(tbl)
local chs=math.random(1,#tbl)
for i,v in pairs(tbl) do
if i==chs then
return v
end
end
end
---
Tabs={}
Cmds={}
bet1 = ">"
Splitkey = ">"
Colours={
BrickColor.Red();
BrickColor.Green();
BrickColor.Blue();
BrickColor.Yellow();
};
--
--

function getPlayers(msg)
local plrs = {}
if msg == "me" then
table.insert(plrs, p)
elseif msg == "all" then
plrs = game:GetService("Players"):GetChildren()
elseif msg == "noobs" then
for _,plr in pairs(game:GetService("Players"):GetChildren()) do
if plr.AccountAge > 364 then
table.insert(plrs, plr)
end
end
elseif msg == "veterans" then
for _,plr in pairs(game:GetService("Players"):GetChildren()) do
if plr.AccountAge > 364 then
table.insert(plrs, plr)
end
end
elseif msg == "others" then
for i,v in pairs(game:GetService("Players"):GetChildren()) do
if v ~= p then
table.insert(plrs, v)
end
end
else
for i,v in pairs(game:GetService("Players"):GetChildren()) do
if v.Name:lower():sub(1,#msg) == msg:lower() then
table.insert(plrs, v)
end
end
end
return plrs
end

for _,plr in pairs(game:GetService("Players"):GetChildren()) do
end



function Output(Text,Color,Func)
Color=tostring(Color);
local tb=nwPrt(script,Vector3.new(3,4,0.4),nil,BrickColor.new(Color))
tb.CanCollide = false
local hd = Instance.new('BoxHandleAdornment',tb)
hd.Adornee = tb
hd.Size = Vector3.new(1.3,1.3,1.3)
hd.Color = tb.BrickColor
hd.Transparency = 0
local BG=Instance.new('BillboardGui',tb);
BG.Adornee=tb;
BG.StudsOffset=Vector3.new(0,4);
BG.Size=UDim2.new(10,0,10);
local TL=Instance.new('TextLabel',BG);
TL.BackgroundTransparency=1;
TL.Font='Arial';
TL.FontSize='Size24';
TL.Size=UDim2.new(1,0,1);
TL.TextColor3=BrickColor.new(Color).Color;
TL.Text=tostring(Text);
local PL = Instance.new("PointLight", tb)
PL.Color = tb.Color
PL.Range = 10
local CD = Instance.new("ClickDetector", tb)
CD.MaxActivationDistance = 1/0
CD.MouseClick:connect(function(pe)
if pe.Name == p.Name or pe.userId == p.userId then
if Func == nil then
tb:Destroy()
else
tb:Destroy()
Func = Func
Func()
end
end
end)
CD.MouseHoverEnter:connect(function(plr)
	if plr.Name == p.Name or plr.userId == p.userId then
		hd.Size = Vector3.new(1.5,1.5,1.5)
		tb.Size = Vector3.new(2.2,2.2,2.2)
	end
end)
CD.MouseHoverLeave:connect(function(plr)
	if plr.Name == p.Name or plr.userId == p.userId then
		hd.Size = Vector3.new(1.3,1.3,1.3)
		tb.Size = Vector3.new(2,2,2)
	end
end)

local SB = Instance.new("SelectionBox", tb)
SB.Color = BrickColor.new("White")
SB.Adornee = tb
SB.Transparency = 0.2
SB.LineThickness = 0.02


pcall(function()
	tb.CFrame = p.Character.Torso.CFrame
end)
table.insert(Tabs,tb);
end
--
Dismiss=function()
 pcall(function()
  for _,Tab in next,Tabs do
   coroutine.wrap(function()
    for i = 0,1,.2 do
     pcall(function()
      wait''
      Tab.Transparency=i
      Tab.Size = Vector3.new(i,i,i)
     end)
    end
    Tab:destroy''
   end)()
   Tabs[_]=nil
  end
 end)
end

game:GetService("RunService").Stepped:connect(function()
        if p then
                if p.Character then




                        if p.Character:FindFirstChild('Torso') ~= nil then




                                Rotation = Rotation + Speed




                                for i,v in pairs(Tabs) do




                                        ypcall(function()




                                                if p and p.Character and p.Character:FindFirstChild('Torso') ~= nil then




                                                        pos = p.Character:WaitForChild("Torso").CFrame




                                                else




                                                        pos = CFrame.new(0,0,0)




                                                end




                                                local radius = 6 + (#Tabs * 0.5)




                                                local x = math.sin((i / #Tabs - (0.5 / #Tabs) + Rotation * 0) * math.pi * 2) * radius




                                                local y = math.sin(i + tick()*2.3)



                                                local z = math.cos((i / #Tabs - (0.5 / #Tabs) + Rotation * 0) * math.pi * 2) * radius




                                                local arot = Vector3.new(x, y, z) + pos.p




                                                local brot = v.CFrame.p




                                                local crot = (arot * .1 + brot * .9)




                                                local d = math.rad((Rotation*4000)*math.pi)




                                                v.CFrame = CFrame.new(crot, pos.p)*CFrame.Angles(d,d,d)




                                        end)




                                end




                        elseif p.Character:FindFirstChild('Torso') == nil then




                                repeat wait() until p.Character:FindFirstChild('Torso') ~= nil




                        end




                end




        end




end)

--
function ShowCommands()
	Dismiss()
	for i,v in next,Cmds do
		Output(v['Name'],'Institutional white',function()
			Dismiss()
			Output('Name: '..v['Name'],'Lime green')
			Output('Usage: '..v['Say'],'Cyan')
			Output('Description: '..v['Description'],'Deep orange')
			Output('Back','Navy blue',function() ShowCommands() end)
			Output('Dismiss','Really red',function() Dismiss() end)
		end)
	end
end
function AddCmd(name,whatToSay,desc,func)
	table.insert(Cmds,{['Name'] = name,['Say'] = whatToSay,['Description'] = desc,['Function']=func})
end

AddCmd("Ping","ping","Ping a message",
function(msg)
   Output(msg, 'Lime green')
end)

AddCmd("Execute","exe","Execute a script",
function(msg)
	local success,errore = loadstring(tostring(msg))
	if success and not errore then
		success()
	else
		Output(tostring(errore),'Really red')
	end
end)

AddCmd("Kill","kill","Kill a player",function(msg)
	for _, plr in pairs(msg) do
		if plr and plr.Character then
			plr.Character:BreakJoints()
			plr=plr.Name
			Output('Killed player '..plr..'','Really red')
		end
	end
end)

AddCmd("Health","health","Set someone's health",function(plr,msg)
	local Split = msg:find(Splitkey)
	local PreSplit = msg:sub(1, Split - 1)
	local Plrs = getPlayers(PreSplit)
	local AfterSplit = msg:sub(tonumber(Split + 1))
	for _,plr in pairs(Plrs) do
		plr.Character.Humanoid.Health = AfterSplit
	end
end)

AddCmd("Character","char","Set a player's character appearance",function(plr,msg)
	local Split = msg:find(Splitkey)
	local PreSplit = msg:sub(1, Split - 1)
	local Plrs = getPlayers(PreSplit)
	local AfterSplit = msg:sub(tostring(Split + 1))
	for _,plr in pairs(Plrs) do
		plr.CharacterAppearance = "http://www.roblox.com/asset/CharacterFetch.ashx?userId="..AfterSplit
		plr:LoadCharacter()
	end
end)

AddCmd("Music List","mlist","Show the music list",function(msg)
	Dismiss()
	Output("[ BYPASSED ]","Really red",function() local s = Instance.new('Sound',workspace) s.SoundId = "rbxassetid://505534951" s.Volume = 1 s.Pitch = 1 s.Looped = true s:play() end)
	Output("Tobu - Candyland","Lime green",function() local s = Instance.new('Sound',workspace) s.SoundId = "rbxassetid://222095512" s.Volume = 1 s.Pitch = 1 s.Looped = true s:play() end)
end)

AddCmd("No Character","unchar","Reset the player's character back to their own",function(msg)
	for _,plr in pairs,getPlayers(msg) do
		if plr then
		plr.CharacterAppearance = "http://www.roblox.com/asset/CharacterFetch.ashx?userId="..plr.userId
		plr:LoadCharacter()
		end
	end
end)

AddCmd("AFK","afk","Make tablets saying you are afk",function(msg)
	Output(p.Name.." is AFK","Really red")
	Output(p.Name.." is AFK","Really red")
	Output(p.Name.." is AFK","Really red")
	Output(p.Name.." is AFK","Really red")
	Output(p.Name.." is AFK","Really red")
	Output(p.Name.." is AFK","Really red")
	Output(p.Name.." is AFK","Really red")
	Output(p.Name.." is AFK","Really red")
	Output(p.Name.." is AFK","Really red")
end)

AddCmd("God","god","God a player",function(msg)
	for _, plr in pairs(msg) do
		if plr and plr.Character then
			plr.Character.Humanoid.MaxHealth = math.huge
			plr=plr.Name
			Output('Godded player '..plr..'','Lime green')
		end
	end
end)

AddCmd("Walk Speed","ws","Set someone's walkspeed",function(plr,msg)
	local Split = msg:find(Splitkey)
	local PreSplit = msg:sub(1, Split - 1)
	local Plrs = getPlayers(PreSplit)
	local AfterSplit = msg:sub(tonumber(Split + 1))
	for _,plr in pairs(Plrs) do
		plr.Character.Humanoid.WalkSpeed = AfterSplit
	end
end)

AddCmd("Break GUIs","breakguis","Break the guis!! OH NOOO!!!!",function(msg)
	game.ItemChanged:connect(function(x)
		if x:IsA("TextLabel") then
			x.Text = "[Meltdown R4]: Disabled."
		elseif x:IsA("TextButton") then
			x.Text = "[Meltdown R4]: Disabled."
		elseif x:IsA("TextBox") then
			x.Text = "[Meltdown R4]: Disabled."
		elseif x:IsA("Message") then
			x.Text = "[Meltdown R4]: Disabled."
		elseif x:IsA("Hint") then
			x.Text = "[Meltdown R4]: Disabled."
		end
	end)
end)

AddCmd("Stun","stun","Stun a player",function(msg)
	for _,plr in pairs(msg) do
		if plr and plr.Character then
			plr.Character.Humanoid.PlatformStand = true
		end
	end
end)

AddCmd("UnStun","unstun","Unstun a player",function(msg)
	for _,plr in pairs(msg) do
		if plr and plr.Character then
			plr.Character.Humanoid.PlatformStand = false
		end
	end
end)

AddCmd("FF","ff","Give a player a forcefield",function(msg)
	for _, plr in pairs(msg) do
		if plr and plr.Character then
			Instance.new('ForceField',plr.Character)
		end
	end
end)

AddCmd('Cmds','cmds','Show all commands',function(msg)
ShowCommands()
end)

AddCmd('Dismiss','dt','Dismiss the tablets',function(msg)
    Dismiss()
end)

AddCmd("Hack Services","hservices","Hack the services so people can't use them",function(msg)
	Services.Workspace.Name = "####"
	Services.Lighting.Name = "####"
	Services.Players.Name = "####"
	Services.ReplicatedFirst.Name = "####"
	Services.ReplicatedStorage.Name = "####"
	Services.ServerScriptService.Name = "####"
	Services.ServerStorage.Name = "####"
	Services.StarterGui.Name = "####"
	Services.StarterPack.Name = "####"
	Services.StarterPlayer.Name = "####"
	Services.SoundService.Name = "####"
	Services.HttpService.Name = "HTTP NOT AVAILABLE"
	Services.InsertService.Name = "INSERTING NOT AVAILABLE"
end)

AddCmd("Fix Services","fservices","Fix the services. People can use them.",function(msg)
	Services.Workspace.Name = "Workspace"
	Services.Lighting.Name = "Lighting"
	Services.Players.Name = "Players"
	Services.ReplicatedFirst.Name = "ReplicatedFirst"
	Services.ReplicatedStorage.Name = "ReplicatedStorage"
	Services.ServerScriptService.Name = "ServerScriptService"
	Services.ServerStorage.Name = "ServerStorage"
	Services.StarterGui.Name = "StarterGui"
	Services.StarterPack.Name = "StarterPack"
	Services.StarterPlayer.Name = "StarterPlayer"
	Services.SoundService.Name = "SoundService"
	Services.HttpService.Name = "HttpService"
	Services.InsertService.Name = "InsertService"
end)

AddCmd("Break Chat","breakchat","Break the top chat so people can't use it",function(msg)
	Services.Chat.Name = "CHAT BREAK ID: 939Q@ASK#)" or "CHAT BREAK ID: #AKC!!L398MUAN" or "CHAT BREAK ID: 376((@CAER:CA#"
end)

AddCmd("Fix Chat","fixchat","Fix the top chat so people can use it",function(msg)
	Services.Chat.Name = "Chat"
end)

p.Chatted:connect(function(m)
for i,v in pairs(Cmds) do
if v["Say"]..bet1 == m:sub(1, #v["Say"]+#bet1) then
v["Function"](getPlayers(m:sub(#v["Say"]+#bet1+1)), m:sub(#v["Say"]+#bet1+1))
end
end
end)

wait(1)
Output('Welcome to Meltdown R4 Administration, '..p.Name..'!','Lime green')
Output('The suffix is '..bet1,'Royal purple')
Output('Show Commands','Cyan',function() ShowCommands() end)
Output('Dismiss','Really red',function() Dismiss() end)