Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- local module = {}
- --[[
- MELTDOWN R4 ADMINISTRATION
- --]]
- 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
Add Comment
Please, Sign In to add comment