View difference between Paste ID: 1mKJLh5W and SrNwXq6W

 local module = {}
 
 --[[
    MELTDOWN R4 ADMINISTRATION
 --]]
 
 
-local p = game:service"Players".Your name here
+local p = game:service"Players".WinslowMau
 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((math.pi*777)*Rotation)
 
 
 
 
                                                 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