meltdown

local module = {}

--[[
   MELTDOWN R4 ADMINISTRATION
--]]


local p = game:service"Players".stxdios
local work = workspace;
local char = p.Character
local cam = work.CurrentCamera
local Rotation = 0
local Speed = 0.0001
local FC = require(607033461)

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'
}

local Settings = {
	Axis_Y = "Straight"
}
---
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.3,2.3,2.3)
prt.CanCollide=false
prt.Anchored=true
prt.Locked=true
prt.Transparency = 0.3
prt.TopSurface=0
prt.BottomSurface=0
prt:BreakJoints()
prt.CFrame=cf or CFrame.new(30,10,30)
prt.Material="Neon"
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(workspace,Vector3.new(2.3,2.3,2.3),nil,BrickColor.new(Color))
tb.CanCollide = false
local sb = Instance.new('SelectionBox',tb)
sb.LineThickness = 0.02
sb.Adornee = tb
sb.Color = BrickColor.new('White')
sb.Transparency = 0
local bm = Instance.new('BlockMesh',tb)
bm.Scale = Vector3.new(.9,.9,.9)
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
		tb.BrickColor = BrickColor.new('Really red')
		tb.Transparency = 0.5
		tb.Size = Vector3.new(2.4,2.4,2.4)
		TL.TextColor3 = Color3.new(255,0,0)
	end
end)
CD.MouseHoverLeave:connect(function(plr)
	if plr.Name == p.Name or plr.userId == p.userId then
		tb.BrickColor = BrickColor.new(tostring(Color))
		tb.Transparency = 0.3
		tb.Size = Vector3.new(2.3,2.3,2.3)
		TL.TextColor3=BrickColor.new(Color).Color
	end
end)

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

local y = 0
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 * 3) * math.pi * 2) * radius




                                                local y2 = tostring(y)



                                                local z = math.cos((i / #Tabs - (0.5 / #Tabs) + Rotation * 3) * 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((200*3000)*100)




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

                                                if Settings.Axis_Y == "Off" then
	                                            y = 0
                                                elseif Settings.Axis_Y == "On" then
	                                            y = math.sin(i + tick()*2.3)
                                            elseif Settings.Axis_Y == "Straight" then
	                                            y = math.sin(tick())
end




                                        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)
   for _,m in pairs(msg) do
      Output(m, 'Lime green')
      if m == nil then
	  Output("Meltdown R4!","Lime green")
end
   end
end)

AddCmd("Execute","exe","Execute a script",function(msg)
	for _,m in pairs(msg) do
	local success,errore = loadstring(tostring(m))
	if success and not errore then
		success()
	else
		Output("Error while executing script: "..tostring(errore),'Really red')
		end
	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("No Tools","notools","Remove a player's tools",function(msg)
	for _,plr in pairs(msg) do
		if plr then
			for i,v in pairs(plr.Backpack:children()) do
				if v:IsA("Tool") or v:IsA("HopperBin") then
					v:remove()
				end
			end
		end
	end
end)

AddCmd("Orb Tool","orbtool","Give someone a tool that looks like an orb",function(msg)
	for _,plr in pairs(msg) do
		if plr then
			local tool = Instance.new('Tool',plr.Backpack)
			tool.Name = "Orb"
			local h = Instance.new('Part',tool)
			h.Name = 'Handle'
			h.Size = Vector3.new(1.3,1.3,1.3)
			h.BrickColor = BrickColor.new('Lime green')
			h.Material = "SmoothPlastic"
			h.TopSurface=0
			h.BottomSurface=0
			local m = Instance.new('SpecialMesh',h)
			m.MeshType = "Sphere"
			m.Scale = Vector3.new(1,1,1)
		end
	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('Respawn','respawn','Respawn a player',function(msg)
	for _,plr in pairs(msg) do
		if plr then
			plr:LoadCharacter()
		end
	end
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.Chat.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.Chat.Name = "Chat"
	Services.SoundService.Name = "SoundService"
	Services.HttpService.Name = "HttpService"
	Services.InsertService.Name = "InsertService"
end)

AddCmd("Force Chat","fc","Force someone to chat something",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
		FC(plr, AfterSplit)
	end
end)

AddCmd("Y Axis Settings","axis:y","Set the Y axis CFrame",function(msg)
	Output("Click the Y axis you want.","Institutional white")
	Output("Straight","Lime green",function() Dismiss() Settings.Axis_Y = "Straight" end)
	Output("Waves","Cyan",function() Dismiss() Settings.Axis_Y = "On" end)
	Output("None","Really red",function() Dismiss() Settings.Axis_Y = "Off" end)
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 X1 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)

return module