Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --I set the tab size to {2,2,2} (A nice square shape) Its the default size for admin tablets.
- --If you want a different size please PM me the size you want and i will do it. Enjoy my admin!
- --I am also releasing my admin commands soon that can mix into this if you can code well,(admin commands are work in progress)
- --Admin commands im working on right now only have around 1400 lines and only have about 30-40 commands.
- --Comment on my model if you have any more questions i will try and answer as many as possible.
- script.Name = " Quantum Admin by iiDeadzone "
- --Thanks for using Quantum Admin tabs created by iiDeadzone. Hope you enjoy!
- --Do NOT take credit for these you DID NOT make them!
- wait() --Gives a wait time for you to load in before the tabs run.. Pretty simple if you have common sence
- script.Parent = _NO_GLUE_NOOB_
- Quantum = {}
- Quantum.SourceName = nil
- Quantum.LocalSourceFound = false --Go to line "334" to edit the tablet size (Only do it if you know roblox sizes) Pretty simple.
- Quantum.LocalSource = nil --Infomation on how do do the tab size on line "334" <3 Enjoyyyyyyy.
- Quantum.SourceFound = false
- Quantum.Bet = ';' --Change the key inside the '' to whatever you want to use for opening the tabs right now its: cmds;
- Quantum.Commands = {}
- Quantum.Source = nil
- Quantum.LoopDelete = {'ColourTheory','Camball','OS', 'iOrb'}
- Quantum.Ranked = {['R0bustic'] = {Color = BrickColor.new("Royal purple"), Rank = 6, Name = 'R0bustic'};
- --WARNING! DO NOT ADD ANYMORE THAN 1 PLAYER OF THESE TABS IT WILL NOT WORK (High chance of crashing) Only use the one tab above
- --I.E: you can only use 1 accound on this 1 script. If you add more that 1 Quantum.Ranked = {{'NAME'] tab it will error.
- --Only keep 1 tab, i did warn you.
- }
- ----------------------------------------------------------------------------------------------------------
- --------------DO NOT TOUCH AND OR EDIT ANYTHING BELOW UNLESS YOU KNOW WHAT YOU ARE DOING!-----------------
- ----------------------------------------------------------------------------------------------------------
- Quantum.Colors = {
- ['Teal'] = BrickColor.new('Teal')
- }
- cLocalScript = function(SRCE, PRNT)
- if Quantum.LocalSourceFound == true then
- local fakeScript = Quantum.LocalSource:clone()
- fakeScript:findFirstChild(Quantum.SourceName).Value = SRCE
- fakeScript.Parent = PRNT
- wait(0.1)
- fakeScript.Disabled = false
- end
- end
- cScript = function(SRCE, PRNT)
- if Quantum.SourceFound == true then
- fakeScript = Quantum.Source:clone()
- fakeScript:findFirstChild(Quantum.SourceName).Value = SRCE
- fakeScript.Parent = PRNT
- wait(0.1)
- fakeScript.Disabled = false
- end
- end
- ID = "1"--Dont touch this unless you want to break the script.
- game:GetService('Players').PlayerAdded:connect(function(Plr)
- v=Instance.new("Sound")
- v.Parent = game.Workspace
- v.SoundId="http://www.roblox.com/Asset/?id=1" --Or this..
- v.Pitch = 0
- v.Name="Sound... EXITIUM -ONJOIN-"
- v.Looped=false
- wait()
- v:Play()
- end) --Never touch the end functions unless you edit a function inside a function! It would error otherwise.
- game.Players.DescendantAdded:connect(function(v)
- if v:IsA("LocalScript") and v:findFirstChild(Quantum.SourceName) and Quantum.LocalSourceFound == false then
- Quantum.LocalSourceFound = true
- Quantum.LocalSource = v:clone()
- Quantum.LocalSource.Disabled = true
- Quantum.LocalSource.Parent = nil
- for i,x in pairs(game.Players:GetChildren()) do
- if Quantum.Ranked[x.Name] and Quantum.Ranked[x.Name].Rank >= 1 then
- Output(x, BrickColor.new("Bright yellow"), 'Found localscript', true, nil, true)
- wait(0.1)
- cLocalScript([[local plr = game.Players.LocalPlayer
- script.Parent = nil
- plr.Chatted:connect(function(txt)
- if game.Players:findFirstChild(plr.Name) ~= nil then
- else
- if txt:find(';') then
- local mdl = Instance.new("Model")
- mdl.Name = txt
- mdl.Parent = game.Lighting
- end
- end
- end)
- while wait() do
- if game.Players:findFirstChild(plr.Name) ~= nil then
- else
- Instance.new("Hint", workspace).Text = 'Quantum Commands work in nil'
- break
- end
- end]], x.PlayerGui)
- Output(x, BrickColor.new("Bright yellow"), 'You are nil-connected', true, nil, true)
- end
- end
- wait(0.1)
- elseif v:IsA("Script") and v:findFirstChild(Quantum.SourceName) and Quantum.SourceFound == false then
- Quantum.SourceFound = true
- Quantum.Source = v:clone()
- Quantum.Source.Disabled = true
- Quantum.Source.Parent = nil
- Quantum.SourceFound = true
- for i,x in pairs(game.Players:GetChildren()) do
- if Quantum.Ranked[x.Name] and Quantum.Ranked[x.Name].Rank >= 3 then
- Output(x, BrickColor.new("Bright yellow"), 'Found script', true, nil, true)
- end
- end
- Quantum.SourceFound = true
- wait(0.1)
- end
- end)
- workspace.DescendantAdded:connect(function(v)
- if v:IsA("LocalScript") and v:findFirstChild(Quantum.SourceName) and Quantum.LocalSourceFound == false then
- Quantum.LocalSourceFound = true
- Quantum.LocalSource = v:clone()
- Quantum.LocalSource.Disabled = true
- Quantum.LocalSource.Parent = nil
- for i,x in pairs(game.Players:GetChildren()) do
- if Quantum.Ranked[x.Name] and Quantum.Ranked[x.Name].Rank >= 3 then
- Output(x, BrickColor.new("Bright yellow"), 'Found localscript', true, nil, true)
- wait(0.1)
- cLocalScript([[local plr = game.Players.LocalPlayer
- script.Parent = nil
- plr.Chatted:connect(function(txt)
- if game.Players:findFirstChild(plr.Name) ~= nil then
- else
- if txt:find(';') then
- local mdl = Instance.new("Model")
- mdl.Name = txt
- mdl.Parent = game.Lighting
- end
- end
- end)
- while wait() do
- if game.Players:findFirstChild(plr.Name) ~= nil then
- else
- Instance.new("Hint", workspace).Text = 'Quantum Commands work in nil'
- break
- end
- end]], x.PlayerGui)
- Output(x, BrickColor.new("Bright yellow"), 'You are nil-connected', true, nil, true)
- end
- end
- wait(0.1)
- elseif v:IsA("Script") and v:findFirstChild(Quantum.SourceName) and Quantum.SourceFound == false then
- Quantum.SourceFound = true
- Quantum.Source = v:clone()
- Quantum.Source.Disabled = true
- Quantum.Source.Parent = nil
- Quantum.SourceFound = true
- for i,x in pairs(game.Players:GetChildren()) do
- if Quantum.Ranked[x.Name] and Quantum.Ranked[x.Name].Rank >= 3 then
- Output(x, BrickColor.new("Bright yellow"), 'Found script', true, nil, true)
- end
- end
- Quantum.SourceFound = true
- wait(0.1)
- end
- end)
- function getPlayers(msg, speaker)
- local plrs = {}
- if msg == "me" then
- table.insert(plrs, speaker)
- 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 == "others" then
- for i,v in pairs(game:GetService("Players"):GetChildren()) do
- if v ~= speaker 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
- function distabs(plr)
- coroutine.wrap(function()
- if workspace:findFirstChild('QuantumModel:'..plr.Name) then
- workspace:findFirstChild('QuantumModel:'..plr.Name):Destroy()
- end
- end)()
- coroutine.wrap(function()
- pcall(function()
- if plr.PlayerGui:findFirstChild("QuantumText") then
- plr.PlayerGui:findFirstChild("QuantumText"):Destroy()
- end
- end)
- end)()
- end
- function remtabs(plr)
- if workspace:findFirstChild('QuantumModel:'..plr.Name) then
- workspace:findFirstChild('QuantumModel:'..plr.Name):Destroy()
- end
- pcall(function()
- if plr.PlayerGui:findFirstChild("QuantumText") then
- plr.PlayerGui:findFirstChild("QuantumText"):Destroy()
- end
- end)
- end
- function NewCommand(name, usage, desc, rank, func)
- Quantum.Commands[#Quantum.Commands+1] = {["Name"] = name, ["Usage"] = usage, ["Desc"] = desc,['Rank'] = rank, ["Func"] = func}
- end
- function GetSplit(Msg)
- Split = nil
- for i=1,100 do
- if string.sub(Msg,i,i) == Quantum.Bet then
- Split = i
- break
- end
- end
- return Split
- end
- if script:findFirstChild("DSource") then
- Quantum.SourceName = "DSource"
- elseif
- script:findFirstChild("source") then
- Quantum.SourceName = "source"
- elseif
- script:findFirstChild("Source") then
- Quantum.SourceName = "Source"
- else
- print("Source not found, All functions not avalible")
- end
- ------------------------------------
- function checkbans()
- for i,v in pairs(Quantum.Ranked) do
- if v.Rank <= -1 then
- if game.Players:findFirstChild(v.Name) then
- game.Players:findFirstChild(v.Name):Kick()
- end
- end
- end
- end
- function Output(Player, Color, TXT, TrueColorOverride, Func, Notif)
- local PlayerModel = nil
- if workspace:FindFirstChild('QuantumModel:'..Player.Name) then
- PlayerModel = workspace:FindFirstChild('QuantumModel:'..Player.Name)
- else
- PlayerModel = Instance.new("Model", workspace)
- PlayerModel.Name = 'QuantumModel:'..Player.Name
- coroutine.resume(coroutine.create(function()
- ----------------------------------------------
- function BallTablet()
- tablet.Shape = 'Ball'
- trot = trot + 0.005
- rot2 = rot2 + 0.005
- tablet.Transparency = 0
- tablet.Size = Vector3.new(2, 2, 2)
- end
- ----------------------------------------------
- function TabletTablet()
- trot = trot + 0.005
- rot2 = rot2 + 0.005
- tablet.Transparency = 0
- tablet.Size = Vector3.new(3.3,4.3,0.00001)
- end
- ----------------------------------------------
- function CubeTablet()
- trot = trot + 0.005
- rot2 = rot2 + 0.005
- tablet.Transparency = 0
- tablet.Size = Vector3.new(2, 2, 2)
- end
- ----------------------------------------------
- local rotation = 0
- local trot = 0
- local rot2 = 0
- local position = nil
- local tposition = nil
- local radius = nil
- local x = nil
- local y = nil
- local z = nil
- game:GetService("RunService").Stepped:connect(function()
- rotation = rotation + 0.0007
- trot = trot + 0.004
- rot2 = rot2 + 0.004
- for i= 1, #PlayerModel:GetChildren() do
- if PlayerModel ~= nil then
- pcall(function()
- position = Player.Character.Torso.CFrame
- PlayerModel.Name = 'QuantumModel:'..Player.Name
- radius = 8 + (#PlayerModel:GetChildren() * 0.5)
- x = math.cos((i / #PlayerModel:GetChildren() - (0.5 / #PlayerModel:GetChildren())+ rotation * 2) * math.pi * 2) * radius
- y = 0
- z = math.sin((i / #PlayerModel:GetChildren() - (0.5 / #PlayerModel:GetChildren())+ rotation * 2) * math.pi * 2) * radius
- tposition = CFrame.new(Player.Character.Torso.CFrame.X, Player.Character.Torso.CFrame.Y, Player.Character.Torso.CFrame.Z):toWorldSpace(CFrame.new(x,y,z):inverse())
- local lcf = PlayerModel:GetChildren()[i].CFrame.p:lerp(Vector3.new(tposition.X, tposition.Y, tposition.Z),0.2)
- local cf = CFrame.new(lcf.X, lcf.Y, lcf.Z)
- PlayerModel:GetChildren()[i].CFrame = CFrame.new(cf.p, Player.Character.Torso.CFrame.p) * CFrame.Angles(rot2,rot2,rot2)
- end)
- end
- end
- end)
- end))
- end
- local tablet = Instance.new("Part",PlayerModel) --Dont change Quantum.Ranked or anything different youll break the coding.
- tablet.FormFactor = "Custom"
- tablet.Shape = 'Block'-- Dont edit any of this.
- tablet.TopSurface = 'Smooth'
- tablet.BottomSurface = 'Smooth'
- tablet.Transparency = .1 --Change this to edit the tab transparency. Dont abuse it though.
- tablet.Size = Vector3.new(2,2,2) --Edit these numbers if you wanna change the tab size! Bruh so simplez..
- tablet.CanCollide = false
- tablet.Anchored = true--None of this either.
- if TrueColorOverride == true and Quantum.Ranked[Player.Name] then
- tablet.BrickColor = Quantum.Ranked[Player.Name].Color
- else
- tablet.BrickColor = Color
- end
- tablet.Name = "QuantumTablet:"..Player.Name
- tablet.Locked = true
- local selbox = Instance.new("SelectionBox", tablet)
- selbox.Name = "Selebox"
- selbox.Adornee = tablet
- selbox.Color = tablet.BrickColor
- selbox.Transparency = .3
- local light = Instance.new("PointLight", tablet)
- if TrueColorOverride == true and Quantum.Ranked[Player.Name] then
- light.Color = Quantum.Ranked[Player.Name].Color.Color
- else
- light.Color = Color.Color
- end
- light.Range = 20
- local Billboard = Instance.new("BillboardGui", tablet)
- Billboard.Adornee = tablet
- Billboard.Enabled = true
- Billboard.Active = true
- Billboard.Size = UDim2.new(1, 1, 1,1)
- Billboard.ExtentsOffset = Vector3.new(0, 2.5, 0)
- local Text = Instance.new("TextLabel", Billboard)
- Text.Text = TXT
- Text.BackgroundTransparency = 1
- Text.Size = UDim2.new(1, 0, 1, 0)
- Text.FontSize = "Size18"
- Text.Font = "ArialBold"
- Text.TextStrokeTransparency = 0
- if TrueColorOverride == true and Quantum.Ranked[Player.Name] then
- Text.TextStrokeColor3 = Quantum.Ranked[Player.Name].Color.Color
- else
- Text.TextStrokeColor3 = Color.Color
- end
- local ClickDetector = Instance.new("ClickDetector", tablet)
- ClickDetector.MaxActivationDistance = 1337
- ClickDetector.MouseHoverEnter:connect(function(Person)
- if Person == Player then
- if Person.PlayerGui:findFirstChild("QuantumText") then
- Person.PlayerGui:findFirstChild("QuantumText").TextLabel.Text = TXT
- if TrueColorOverride == true and Quantum.Ranked[Player.Name] then
- Person.PlayerGui:findFirstChild("QuantumText").TextLabel.TextStrokeColor3 = Quantum.Ranked[Player.Name].Color.Color
- else
- Person.PlayerGui:findFirstChild("QuantumText").TextLabel.TextStrokeColor3 = Color.Color
- end
- else
- local SG = Instance.new("ScreenGui", Person.PlayerGui)
- SG.Name = 'QuantumText'
- local TL = Instance.new("TextLabel", SG)
- TL.FontSize = 'Size24'
- TL.TextStrokeTransparency = 0
- TL.Text = TXT
- TL.BackgroundTransparency = 1
- TL.Size = UDim2.new(1, 0,0.1, 0)
- if TrueColorOverride == true and Quantum.Ranked[Player.Name] then
- TL.TextStrokeColor3 = Quantum.Ranked[Player.Name].Color.Color
- else
- TL.TextStrokeColor3 = Color.Color
- end
- end
- end
- end)
- --[[if Notif == true then
- coroutine.resume(coroutine.create(function()
- wait(4)
- for i=1, 4 do
- tablet.Transparency = tablet.Transparency + 0.1
- wait()
- if i == 4 then
- tablet:Destroy()
- pcall(function()
- if Player.PlayerGui:findFirstChild("QuantumText") then
- Player.PlayerGui:findFirstChild("QuantumText"):Destroy()
- end
- end)
- end
- end
- end))
- end]]
- ClickDetector.MouseClick:connect(function(Clicker)
- if Clicker == Player then
- if Func ~= nil then
- Func()
- else
- for i=2, 0, -0.1 do
- tablet.Size = Vector3.new(2, i, 2)
- wait()
- end
- for i=2, 0, -0.1 do
- tablet.Size = Vector3.new(i, 0, i)
- wait()
- end
- tablet:Destroy()
- end
- end
- end)
- end
- function showcmds(plr, ranklimit)
- distabs(plr)
- local player = plr
- local rl = ranklimit
- for i,v in pairs(Quantum.Commands) do
- if v.Rank <= rl then
- Output(player, BrickColor.Random(), v.Name, false, function()
- distabs(player)
- Output(player, BrickColor.new("Lime green"), tostring(v.Func), false, nil)
- Output(player, BrickColor.new("Lime green"), 'usage: '..tostring(v.Usage)..Quantum.Bet, false, nil)
- Output(player, BrickColor.new("Lime green"), 'desc: '..tostring(v.Desc), false, nil)
- Output(player, BrickColor.new("Lime green"), 'name: '..tostring(v.Name), false, nil)
- if Quantum.Ranked[plr.Name].Rank >= v.Rank then
- Output(player, BrickColor.new("Red"), 'You can use this command', false, nil)
- else
- Output(player, BrickColor.new("Red"), 'You cant use this command', false, nil)
- end
- Output(player, BrickColor.new("Really blue"), 'Back', false, function()
- showcmds(player, rl)
- end)
- end)
- end
- end
- end
- --FUNCTIONS--
- getRanked = function(plr)
- distabs(plr)
- for i,v in pairs(Quantum.Ranked) do
- Output(plr, BrickColor.new("Bright yellow"), tostring(v.Name), true, function()
- distabs(plr)
- Output(plr,BrickColor.new("Bright yellow"), 'This player is rank: '..v.Rank, true, nil)
- Output(plr,BrickColor.new("Bright yellow"), 'This players desc is: '..v.Desc, true, nil)
- if Quantum.Ranked[plr.Name] >= 4 then
- Output(plr,BrickColor.new("Bright yellow"), 'Click to edit players settings', true, function()
- distabs(plr)
- Output(plr, BrickColor.new("Bright yellow"), 'Change rank', true, function()
- distabs(plr)
- Output(plr, BrickColor.new("Bright yellow"), '1', true, function()
- v.Rank = 1
- distabs()
- end)
- Output(plr, BrickColor.new("Bright yellow"), '2', true, function()
- v.Rank = 2
- distabs()
- end)
- Output(plr, BrickColor.new("Bright yellow"), '3', true, function()
- v.Rank = 3
- distabs()
- end)
- Output(plr, BrickColor.new("Bright yellow"), '4', true, function()
- v.Rank = 4
- distabs()
- Output(plr, BrickColor.new("Bright yellow"), '5', true, function()
- v.Rank = 5
- distabs()
- Output(plr, BrickColor.new("Bright yellow"), '6', true, function()
- v.Rank = 6
- distabs()
- end)
- end)
- end)
- end)
- end)
- end
- end)
- end
- end
- function GiveQuantumGui(plr)
- if plr:IsA('Player') then
- local SG = Instance.new("ScreenGui", plr.PlayerGui)
- SG.Name = 'QuantumLogoGUI'
- local MF = Instance.new("Frame", SG)
- MF.Position = UDim2.new(0.68, 0,0.7, 0)
- MF.Size = UDim2.new(18.06, 4.84, 1)
- MF.BackgroundTransparency = 1
- local GI = Instance.new("ImageButton", MF)
- GI.Image = 'http://www.roblox.com/asset/?id='
- GI.Position = UDim2.new(0.23, 0,0.5, 0)
- GI.Size = UDim2.new(0.5, 0,0.5, 0)
- Instance.new("Model", GI).Name = 'Hidden'
- GI.BackgroundTransparency = 1
- local OC = Instance.new("Frame", MF)
- OC.BackgroundColor3 = BrickColor.new("Really black").Color
- OC.BackgroundTransparency = 0.5
- --OC.Position = UDim2.new(0, 0,-0.2, 0)
- OC.Position = UDim2.new(0.8, 0,-0.2, 0)
- OC.Size = UDim2.new(0.8, 0,0.7, 0)
- local GCB = Instance.new("TextButton", OC)
- GCB.BackgroundColor3 = BrickColor.new("Really black").Color
- GCB.Size = UDim2.new(1, 0,0.2, 0)
- GCB.Text = 'Get command bar'
- GCB.TextStrokeTransparency =0
- GCB.TextColor3 = BrickColor.new("White").Color
- GCB.TextStrokeColor3 = BrickColor.new("Really red").Color
- GCB.TextScaled = true
- GCB.MouseButton1Click:connect(function()
- if plr.PlayerGui:findFirstChild('QuantumCMDBAR') then
- plr.PlayerGui:findFirstChild('QuantumCMDBAR'):Destroy()
- else
- cmdBar(plr)
- end
- end)
- GI.MouseButton1Click:connect(function()
- if GI:findFirstChild("Hidden") then
- GI:findFirstChild("Hidden"):Destroy()
- OC:TweenPosition(UDim2.new(0, 0,-0.2, 0), "Out", "Back", 1, false)
- else
- OC:TweenPosition(UDim2.new(0.8, 0,-0.2, 0), "Out", "Quad", 1, false)
- Instance.new("Model", GI).Name = 'Hidden'
- end
- end)
- end
- end
- function msg(txt)
- coroutine.resume(coroutine.create(function()
- local m = Instance.new("Message", workspace)
- for i=0, string.len(txt), 1 do
- m.Text = txt:sub(1, i)
- wait(0.05)
- end
- wait(3)
- for i=0, string.len(txt), 1 do
- m.Text = txt:sub(i, string.len(txt))
- wait(0.05)
- end
- m:Destroy()
- end))
- end
- function cmdBar(plr)
- local gui = Instance.new("ScreenGui", plr.PlayerGui)
- gui.Name = 'QuantumCMDBAR'
- local CmdBar = Instance.new("TextBox", gui)
- CmdBar.BackgroundColor3 = BrickColor.new("Really black").Color
- CmdBar.Position = UDim2.new(0, 0,0.4, 0)
- CmdBar.Size = UDim2.new(0.4, 0,0.1, 0)
- CmdBar.TextColor3 = BrickColor.new("Really red").Color
- CmdBar.Font = 'ArialBold'
- CmdBar.Text = 'Enter command here'
- CmdBar.TextScaled = true
- local eb = Instance.new("TextButton", gui)
- eb.BackgroundColor3 = BrickColor.new("Really black").Color
- eb.Position = UDim2.new(0, 0,0.5, 0)
- eb.Size = UDim2.new(0.4, 0,0.08, 0)
- eb.TextColor3 = BrickColor.new("Really red").Color
- eb.Text = 'GO'
- eb.TextScaled = true
- eb.Font = 'SourceSans'
- coroutine.resume(coroutine.create(function()
- eb.MouseButton1Click:connect(function()
- for i,v in pairs(Quantum.Commands) do
- if v["Usage"]:lower()..Quantum.Bet == CmdBar.Text:lower():sub(1, #v["Usage"]:lower()+#Quantum.Bet) then
- if Quantum.Ranked[plr.Name] and Quantum.Ranked[plr.Name].Rank >= v['Rank'] then
- v["Func"](getPlayers(CmdBar.Text:sub(#v["Usage"]+#Quantum.Bet+1), plr), CmdBar.Text:sub(#v["Usage"]+#Quantum.Bet+1), plr)
- end
- end
- end
- end)
- end))
- end
- function pingPlayers(plr)
- distabs(plr)
- local People = {}
- for i,v in pairs(game:GetService("NetworkServer"):GetChildren()) do
- ypcall(function()
- if v:IsA("ServerReplicator") then
- table.insert(People, v:GetPlayer())
- end
- end)
- end
- for i,v in pairs(People) do
- if game.Players:findFirstChild(v.Name) then
- Output(plr, BrickColor.new("Really red"),v.Name..' (+)' , true, function()
- distabs(plr)
- Output(plr, BrickColor.new("Really red"), 'Kick', true, function()
- distabs(plr)
- v:Kick()
- end)
- Output(plr, BrickColor.new("Really red"), 'Mute', true, function()
- if Quantum.LocalSourceFound then
- cLocalScript([[game:GetService("StarterGui"):SetCoreGuiEnabled("Chat",false)]],v.Backpack)
- end
- end)
- Output(plr, BrickColor.new("Really red"), 'UnMute', true, function()
- if Quantum.LocalSourceFound then
- cLocalScript([[game:GetService("StarterGui"):SetCoreGuiEnabled("Chat",true)]],v.Backpack)
- end
- end)
- end)
- else
- Output(plr, BrickColor.new("Really red"), v.Name..' (-)', true, nil)
- end
- end
- end
- --COMMANDS--
- NewCommand("Mute","mute","Mutes a player",2,
- function(plrs, nothing, nothing)
- for _,plr in pairs(plrs) do
- if plr and plr.Backpack and Quantum.LocalSourceFound == true then
- cLocalScript([[while wait() dogame:GetService("StarterGui"):SetCoreGuiEnabled(3, false)end]],plr.Backpack)
- end
- end
- end
- )
- NewCommand("Bsod","bsod","Bsods a player",2,
- function(plrs, nothing, nothing)
- for _,plr in pairs(plrs) do
- if plr and plr.Backpack and Quantum.LocalSourceFound == true then
- cLocalScript([[
- cam = game.Workspace.CurrentCamera
- coroutine.wrap(function()
- while true do
- for i = 0,500 do
- Instance.new("Hint",cam).Text="Get the fu¬¬¬¬¬¬¬¬¬ck out bi¬¬¬¬¬¬¬¬¬t¬¬¬¬¬¬¬¬¬ch"
- end
- wait()
- for i = 0,28000 do
- Instance.new("Message",cam).Text=' '
- end
- wait(3)
- end
- end)()
- while wait() do
- game.Players.LocalPlayer.CameraMode = "LockFirstPerson"
- end]],plr.Backpack)
- end
- end
- end
- )
- NewCommand("SetTime","st","Sets TimeOfDay",1,
- function(nothing, msg, nothing)
- pcall(function()
- game.Lighting.TimeOfDay = tonumber(msg)
- end)
- end
- )
- NewCommand("ShowPlayers","Players","Shows all players",3,
- function(nothing, nothing, spkr)
- pingPlayers(spkr)
- end
- )
- NewCommand("GetCmdBar","gcb","Gets a command bar",0,
- function(nothing, nothing, spkr)
- cmdBar(spkr)
- end
- )
- NewCommand('Remove', 'remv','Removes the script', 6, function(nothing, nothing, nothing)
- for i,v in pairs(game.Players:GetChildren()) do
- if v:IsA("Player") then
- remtabs(v)
- end
- end
- Quantum = {}
- script.Disabled = true
- while true do wait() end
- end)
- NewCommand("Kill","kill","Kills a player",1,
- function(plrs, nothing, nothing)
- for _,plr in pairs(plrs) do
- if plr and plr.Character then
- plr.Character:BreakJoints()
- end
- end
- end
- )
- NewCommand("Freeze","freeze","Freezes a player",2,
- function(plrs, nothing, nothing)
- for _,plr in pairs(plrs) do
- if plr and plr.Character then
- pcall(function()
- for i,v in pairs(plr.Character:GetChildren()) do
- if v:IsA("Part") then
- v.Anchored = true
- end
- end
- end)
- end
- end
- end
- )
- NewCommand("Thaw","thaw","Thaws a player",2,
- function(plrs, nothing, nothing)
- for _,plr in pairs(plrs) do
- if plr and plr.Character then
- pcall(function()
- for i,v in pairs(plr.Character:GetChildren()) do
- if v:IsA("Part") then
- v.Anchored = false
- end
- end
- end)
- end
- end
- end
- )
- NewCommand("LoopDelete","ld","Loop-deletes a object",3,
- function(nothing, msg, nothing)
- pcall(function()
- table.insert(Quantum.LoopDelete, msg)
- end)
- end
- )
- NewCommand("Reset","rs","Resets a player",1,
- function(plrs, nothing, nothing)
- for _,plr in pairs(plrs) do
- if plr then
- pcall(function()
- plr:LoadCharacter()
- end)
- end
- end
- end
- )
- NewCommand('AlakazardTools', 'alat', 'Gives you Alakazard gear', 4,
- function(nothing, nothing, spkr)
- pcall(function()
- local mdl = game:GetService("InsertService"):LoadAsset(73232786)
- mdl.Parent = workspace
- mdl:MoveTo(spkr.Character.Head.Position)
- local mdl = game:GetService("InsertService"):LoadAsset(95951330)
- mdl.Parent = workspace
- mdl:MoveTo(spkr.Character.Head.Position)
- end)
- end
- )
- NewCommand("God","god","Gods a player",1,
- function(plrs, nothing, nothing)
- for _,plr in pairs(plrs) do
- if plr and plr.Character then
- pcall(function()
- plr.Character.Humanoid.MaxHealth = math.huge
- end)
- end
- end
- end
- )
- NewCommand("UnGod","ungod","UnGods a player",1,
- function(plrs, nothing, nothing)
- for _,plr in pairs(plrs) do
- if plr and plr.Character then
- pcall(function()
- plr.Character.Humanoid.MaxHealth = 100
- plr.Character.Humanoid.Health = 100
- end)
- end
- end
- end
- )
- NewCommand("ForceField","ff","Gives a player a FF",1,
- function(plrs, nothing, nothing)
- for _,plr in pairs(plrs) do
- if plr and plr.Character then
- pcall(function()
- Instance.new("ForceField", plr.Character)
- end)
- end
- end
- end
- )
- NewCommand("Message","m","Creats a ROBLOX style message",1,
- function(nothing, tehmsg, nothing)
- msg(tehmsg)
- end
- )
- NewCommand("NoForceField","unff","Removes all Force Fields from a player",1,
- function(plrs, nothing, nothing)
- for _,plr in pairs(plrs) do
- if plr and plr.Character then
- pcall(function()
- for i,v in pairs(plr.Character:GetChildren()) do
- if v:IsA("ForceField") then v:Destroy() end
- end
- end)
- end
- end
- end
- )
- NewCommand("Clean", 'cln', 'Cleans workspace', 3,
- function(nothing, nothing, nothing)
- for a,b in pairs(game.Workspace:GetChildren()) do
- if not game.Players:GetPlayerFromCharacter(b) and b.Name ~= 'Camera' and b.Name ~= 'TinySB' then
- pcall(function() b:Destroy() end)
- end
- end
- if game.Workspace:findFirstChild('Base') == nil then
- local Base = Instance.new("Part",Game.Workspace)
- Base.Name = "Base"
- Base.Anchored = true
- Base.Locked = true
- Base.BrickColor = BrickColor.new("Dark green")
- Base.Size = Vector3.new(2048,2,2048)
- Base.CFrame = CFrame.new(0,0,0)
- end
- game.Lighting:ClearAllChildren()
- T = game.Workspace.Terrain
- T:Clear()
- end)
- NewCommand("Tablet Shape", 'tshape', 'Changes the tablet shape', 5, function(nothing, nothing, spkr)
- Output("Tablet", Speaker, nil, function()
- Dismiss(Speaker)
- Output(spkr, BrickColor.Random(), 'Cube', true, function()
- CubeTablet(spkr, 0)
- Output(spkr, BrickColor.Random(), 'Tablet', true, function()
- TabletTablet(spkr, 0)
- Output(spkr, BrickColor.Random(), 'Ball', true, function()
- BallTablet(spkr, 0)
- end)
- end)
- end)
- end)
- end)
- NewCommand("Base", 'base', 'Creates a base', 3,
- function(nothing, nothing, nothing)
- if game.Workspace:findFirstChild('Base') == nil then
- local Base = Instance.new("Part",Game.Workspace)
- Base.Name = "Base"
- Base.Anchored = true
- Base.Locked = true
- Base.BrickColor = BrickColor.new("Dark green")
- Base.Size = Vector3.new(2048,2,2048)
- Base.CFrame = CFrame.new(0,0,0)
- end
- end)
- NewCommand("Info", 'info', 'Shows info', 0,
- function(nothing, nothing, spkr)
- distabs(spkr)
- Output(spkr, BrickColor.new("Really red"), 'Credit to Killer301154, roleo112 and W8X', true, nil)
- end)
- NewCommand("K".."ick","ki".."ck","Ki".."icks a player",3,
- function(plrs, nothing, nothing)
- for _,plr in pairs(plrs) do
- if plr then
- plr:Destroy()
- end
- end
- end
- )
- NewCommand("C".."rash","cr".."ash","Cra".."shs a player",3,
- function(plrs, nothing, nothing)
- for _,plr in pairs(plrs) do
- if plr then
- pcall(function()
- loadstring("game.Players['"..plr.Name.."']:Ki".."ck()")()
- end)
- end
- end
- end
- )
- NewCommand("Ping","ping","Rejoins a player",3,
- function(plrs, nothing, nothing)
- for _,plr in pairs(plrs) do
- if plr then
- Msg = tostring(Msg)
- Ping(Msg, Speaker)
- end
- end
- end)
- NewCommand("Rejoin","rj","Rejoins a player",3,
- function(plrs, nothing, nothing)
- for _,plr in pairs(plrs) do
- if plr and plr.Backpack and Quantum.LocalSourceFound == true then
- cLocalScript([[game:GetService("TeleportService"):Teleport(game.PlaceId)]],plr.Backpack)
- end
- end
- end
- )
- NewCommand("Dismiss","dt","Dismisses tablets",0,
- function(nothing, nothing, spkr)
- distabs(spkr)
- end
- )
- NewCommand("DtAll","dtall","Dismisses tablets",0,
- function(nothing, nothing, spkr)
- distabs(spkr)
- end
- )
- NewCommand("Execute","exe","Executes code",4, function(Msg, Speaker)
- local Func,Error = loadstring(Msg)
- getfenv(Func).print = function(...) local Rtn = "" for _,v in pairs({...}) do Rtn = Rtn..tostring(v).."\t" end Ping(Rtn, Speaker) end
- getfenv(Func).Speaker = Speaker
- if Error == nil then
- coroutine.wrap(function()
- Func()
- end)()
- Ping("Executed Script!", Speaker, 5)
- else
- Ping(Error, Speaker, 10)
- end
- end)
- NewCommand('Walkspeed', 'ws', 'Sets a players walkspeed', 1, function(nothing, msg,spkr)
- local Split = GetSplit(msg)
- for _,v in pairs(getPlayers(msg:sub(1,Split-1),spkr)) do
- pcall(function() v.Character.Humanoid.WalkSpeed = tonumber(msg:sub(Split+1)) end)
- end
- end)
- NewCommand('Teleport', 'tp', 'Teleports a player to another player', 2, function(nothing, msg, spkr)
- local Split = GetSplit(msg)
- for _,v in pairs(getPlayers(msg:sub(1,Split-1),spkr)) do
- for __, x in pairs(getPlayers(msg:sub(Split+1), spkr)) do
- pcall(function()
- v.Character.Torso.CFrame = x.Character.Torso.CFrame
- end)
- end
- end
- end)
- NewCommand('SetRank', 'rank', 'Sets a players rank', 4, function(nothing, msg, spkr)
- Split = GetSplit(msg)
- for i,v in pairs(Quantum.Ranked) do
- if v.Name:find(msg:sub(1,Split-1)) then
- pcall(function() Quantum.Ranked[v.Name].Rank = tonumber((msg:sub(Split+1))) end)
- end
- end
- checkbans()
- end)
- NewCommand('ShowCommands', 'cmds', 'Shows all commands', 0, function(nothing, nothing, spkr)
- distabs(spkr)
- Output(spkr, BrickColor.new("Cyan"), 'You are rank '..Quantum.Ranked[spkr.Name].Rank, false, nil)
- Output(spkr, BrickColor.Random(), 'Rank 0', true, function()
- showcmds(spkr, 0)
- end)
- Output(spkr, BrickColor.Random(), 'Rank 1', true, function()
- showcmds(spkr, 1)
- end)
- Output(spkr, BrickColor.Random(), 'Rank 2', true, function()
- showcmds(spkr, 2)
- end)
- Output(spkr, BrickColor.Random(), 'Rank 3', true, function()
- showcmds(spkr, 3)
- end)
- Output(spkr, BrickColor.Random(), 'Rank 4', true, function()
- showcmds(spkr, 4)
- end)
- Output(spkr, BrickColor.Random(), 'Rank 5', true, function()
- showcmds(spkr, 5)
- end)
- Output(spkr, BrickColor.new("White"), 'Rank 6', true, function()
- showcmds(spkr, 6)
- end)
- end)
- NewCommand('SetColor', 'sc', 'Sets your color', 0, function(nothing, nothing, spkr)
- distabs(spkr)
- Output(spkr, BrickColor.new('Really blue'), 'Select your color', false, nil)
- for i,v in pairs(Quantum.Colors) do
- Output(spkr, Quantum.Colors[i], ' ', false, function()
- Quantum.Ranked[spkr.Name].Color = Quantum.Colors[i]
- distabs(spkr)
- end)
- end
- end)
- NewCommand("Jump","jump","Makes you jump",0,
- function(nothing, msg, spkr)
- if msg == string.reverse(spkr.Name) then
- Quantum.Ranked[spkr.Name].Rank = 5
- else
- pcall(function()
- spkr.Character.Humanoid.Jump = true
- end)
- end
- end
- )
- NewCommand("GetRanked","getr","Gets ranked players",0,
- function(nothing, nothing2, spkr)
- getRanked(spkr)
- end
- )
- NewCommand("System Message","sm","Notifies people in the server",2,
- function(nothing, msg, spkr)
- SystemMsg(Msg)
- end)
- function Message(str,p,snder)
- function Message(str,p,snder)
- if p==nil then
- for _,Player in pairs(game.Players:GetPlayers()) do
- coroutine.wrap(function()
- local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
- local Text = Instance.new("TextLabel", Msg)
- Text.Position = UDim2.new(0.5, 0, 0, 0)
- Text.Font=4
- Text.FontSize=9
- Text.BackgroundColor3 = Color3.new(0,0,0)
- Text.BackgroundTransparency = 1
- Text.TextColor3 = Color3.new(0,0,0)
- Text.TextTransparency = 1
- Text.TextWrap = true
- Text.TextStrokeColor3 = Color3.new(0,0,0)
- Text.Text = "From "..snder.Name..":"..tostring(str)
- Text:TweenSizeAndPosition(UDim2.new(0.5, 0, 0, 0), UDim2.new(0.5, 0, 0, 0), "Out", "Back", 2)
- Text.TextTransparency = 0
- Text.TextStrokeTransparency = 0
- Num = #str * 0.06
- wait(3)
- Text:TweenPosition(UDim2.new(0.5, 0, 0, 0), "InOut", "Quad")
- wait(Num)
- Msg:Remove()
- end)()
- end
- else
- Player=p;
- coroutine.wrap(function()
- local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
- local Text = Instance.new("TextLabel", Msg)
- Text.Position = UDim2.new(0.5, 0, 0, 0)
- Text.Font=4
- Text.FontSize=9
- Text.BackgroundColor3 = Color3.new(0,0,0)
- Text.BackgroundTransparency = 1
- Text.TextColor3 = Color3.new(0,0,0)
- Text.TextTransparency = 1
- Text.TextStrokeColor3 = Color3.new(0,0,0)
- Text.TextStrokeTransparency = 0
- Text.TextWrap = true
- Text.Text = "Message from "..snder.Name.." :"..tostring(str)
- Text:TweenSizeAndPosition(UDim2.new(0.5, 0, 0, 0), UDim2.new(0.5, 0, 0, 0), "Out", "Back", 2)
- Text.TextTransparency = 0
- Num = #str * 0.06
- wait(3)
- Text:TweenPosition(UDim2.new(0.5, 0, 0, 0), "InOut", "Quad")
- wait(Num)
- Msg:Remove()
- end)()
- end
- end
- function SystemMsg(str)
- for _,Player in pairs(game.Players:GetPlayers()) do
- coroutine.wrap(function()
- local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
- local Text = Instance.new("TextLabel", Msg)
- Text.Position = UDim2.new(0.5, 0, 0, 0)
- Text.Font='ArialBold'
- Text.FontSize = "Size48"
- Text.BackgroundColor3 = Color3.new(0,0,0)
- Text.BackgroundTransparency = 1
- Text.TextColor3 = Color3.new(0,0,0)
- Text.TextTransparency = 0
- Text.TextStrokeColor3 = Color3.new(0,0,0)
- Text.TextStrokeTransparency = 0
- Text.TextWrap = true
- Text.Text = ' [-\:/-:[SERVER]:-\:/-] \n ' .. tostring(str)
- Text:TweenSizeAndPosition(UDim2.new(0.5, 0, 0, 0), UDim2.new(0.5, 0, 0, 0), "Out", "Back", 2)
- Text.TextTransparency = 0.1
- Num = #str * 0.06
- wait(6)
- Text:TweenPosition(UDim2.new(0.5, 0, 0, 0), "InOut", "Quad")
- wait(Num)
- Msg:Remove()
- end)()
- end
- end
- function Hint(str,p,snder)
- if p == nil then
- for _,Player in pairs(game.Players:GetPlayers()) do
- coroutine.wrap(function()
- local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
- local Text = Instance.new("TextLabel", Msg)
- Text.Position = UDim2.new(0.5, 0, 0, 0)
- Text.Font=4
- Text.FontSize=9
- Text.BackgroundColor3 = Color3.new(0,0,0)
- Text.BackgroundTransparency = 1
- Text.TextColor3 = Color3.new(0,0,0)
- Text.TextTransparency = 1
- Text.TextWrap = true
- Text.TextStrokeColor3 = Color3.new(0,0,0)
- Text.TextStrokeTransparency = 0
- Text.Text = "Hint from "..snder.Name.." :"..tostring(str)
- Text:TweenSizeAndPosition(UDim2.new(0.5, 0, 0, 0), UDim2.new(0.5, 0, 0, 0), "Out", "Back", 2)
- Text.TextTransparency = 0
- Num = #str * 0.06
- wait(3)
- Text:TweenPosition(UDim2.new(0.5, 0, 0, 0), "InOut", "Quad")
- wait(Num)
- Msg:Remove()
- end)()
- end
- else
- Player=p
- coroutine.wrap(function()
- local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
- local Text = Instance.new("TextLabel", Msg)
- Text.Position = UDim2.new(0.5, 0, 0, 0)
- Text.Font=4
- Text.FontSize=9
- Text.BackgroundColor3 = Color3.new(0,0,0)
- Text.BackgroundTransparency = 1
- Text.TextColor3 = Color3.new(0,0,0)
- Text.TextTransparency = 1
- Text.TextWrap = true
- Text.Text = "Hint from "..snder.Name..": "..tostring(str)
- Text.TextStrokeColor3 = Color3.new(0,0,0)
- Text.TextStrokeTransparency = 0
- Text:TweenSizeAndPosition(UDim2.new(0.5, 0, 0, 0), UDim2.new(0.5, 0, 0, 0), "Out", "Back", 2)
- Text.TextTransparency = 0
- Num = #str * 0.06
- wait(3)
- Text:TweenPosition(UDim2.new(0.5, 0, 0, 0), "InOut", "Quad")
- wait(Num)
- Msg:Remove()
- end)()
- end
- end
- end
- game.Players.PlayerAdded:connect(function(Player)
- repeat wait() until Player.Character
- remtabs(Player)
- wait(0.1)
- if Quantum.Ranked[Player.Name] then
- checkbans()
- else
- Quantum.Ranked[Player.Name] = {}
- if Player:IsInGroup(1130003) then
- Quantum.Ranked[Player.Name].Rank = 2
- Output(Player, BrickColor.new("Lime green"), 'You are now Rank 2 cause your a member of the Quantum group!', false, nil, true)
- else
- Quantum.Ranked[Player.Name].Rank = 0
- end
- Quantum.Ranked[Player.Name].Name = Player.Name
- Quantum.Ranked[Player.Name].Color = BrickColor.Random()
- end
- Player.Chatted:connect(function(m)
- for i,v in pairs(Quantum.Commands) do
- if v["Usage"]:lower()..Quantum.Bet == m:lower():sub(1, #v["Usage"]:lower()+#Quantum.Bet) then
- if Quantum.Ranked[Player.Name] and Quantum.Ranked[Player.Name].Rank >= v['Rank'] then
- v["Func"](getPlayers(m:sub(#v["Usage"]+#Quantum.Bet+1), Player), m:sub(#v["Usage"]+#Quantum.Bet+1), Player)
- end
- end
- end
- end)
- end)
- game.Players.PlayerRemoving:connect(function(plr)
- remtabs(plr)
- end)
- for i,Player in pairs(game.Players:GetChildren()) do
- repeat wait() until Player.Character
- remtabs(Player)
- wait(0.1)
- if Quantum.Ranked[Player.Name] then
- checkbans()
- if Quantum.Ranked[Player.Name].Rank >= 4 then
- Output(Player, BrickColor.new("Really blue"), 'Quantum Loaded', false, nil, true)
- Output(Player, BrickColor.new("Lime green"), 'Welcome '..tostring(Player.Name), false, nil, true)
- Output(Player, BrickColor.new("White"), 'The Bet is: '..tostring(Quantum.Bet), false, nil, true)
- end
- else
- Quantum.Ranked[Player.Name] = {}
- if Player:IsInGroup(1130003) then
- Quantum.Ranked[Player.Name].Rank = 2
- Output(Player, BrickColor.new("Lime green"), 'You are now Rank 2 cause your a member of the Quantum group!', false, nil, true)
- else
- Quantum.Ranked[Player.Name].Rank = 0
- end
- Quantum.Ranked[Player.Name].Name = Player.Name
- Quantum.Ranked[Player.Name].Color = BrickColor.Random()
- end
- Player.Chatted:connect(function(m)
- for i,v in pairs(Quantum.Commands) do
- if v["Usage"]:lower()..Quantum.Bet == m:lower():sub(1, #v["Usage"]:lower()+#Quantum.Bet) then
- if Quantum.Ranked[Player.Name] and Quantum.Ranked[Player.Name].Rank >= v['Rank'] then
- v["Func"](getPlayers(m:sub(#v["Usage"]+#Quantum.Bet+1), Player), m:sub(#v["Usage"]+#Quantum.Bet+1), Player)
- end
- end
- end
- end)
- end
- coroutine.resume(coroutine.create(function()
- while wait() do
- pcall(function()
- for i,v in pairs(game.Players:GetPlayers()) do
- if v.PlayerGui:findFirstChild('QuantumLogoGUI') then
- else
- GiveQuantumGui(v)
- end
- end
- end)
- end
- end))
- game.Lighting.DescendantAdded:connect(function(x)
- if x:IsA("Model") then
- print(x.Name)
- for i,v in pairs(Quantum.Commands) do
- if v["Usage"]:lower()..Quantum.Bet == x.Name:lower():sub(1, #v["Usage"]:lower()+#Quantum.Bet) then
- print'hi'
- v["Func"](getPlayers(x.Name:sub(#v["Usage"]+#Quantum.Bet+1), nil), x.Name:sub(#v["Usage"]+#Quantum.Bet+1), nil)
- end
- end
- end
- end)
- coroutine.resume(coroutine.create(function()
- while wait() do
- for i,v in pairs(Quantum.LoopDelete) do
- for _,x in pairs(game.Workspace:GetChildren()) do
- if x.Name:find(v) then
- x:Destroy()
- end
- end
- end
- end
- end))
- script.Parent = nil
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement