MELTDOWN R4 ADMINISTRATION

local module = {}

--[[
   MELTDOWN R4 ADMINISTRATION
--]]


local p = game:service"Players".KillKill426
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