Plutos admin

script.Name = " Plutos Admin "
wait()
script.Parent = _NO_GLUE_NOOB_
Quantum = {}
Quantum.SourceName = nil
Quantum.LocalSourceFound = false
Quantum.LocalSource = nil
Quantum.SourceFound = false
Quantum.Bet = '-'
Quantum.Commands = {}
Quantum.Source = nil
Quantum.LoopDelete = {'TTX','Camball','OS', 'iOrb'}

Quantum.Ranked = {['chucky4523'] = {Color = BrickColor.new("Royal purple"), Rank = 6, Name = 'chucky4523'};
    }

    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 = "152289533"
game:GetService('Players').PlayerAdded:connect(function(Plr)
v=Instance.new("Sound")
    v.Parent = game.Workspace
    v.SoundId="http://www.roblox.com/Asset/?id=152289533"
    v.Pitch = 1
    v.Name="Sound... EXITIUM -ONJOIN-"
    v.Looped=true
    wait()
    v:Play()
    end)

    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)
    tablet.FormFactor = "Custom"
    tablet.Shape = 'Block'
    tablet.TopSurface = 'Smooth'
    tablet.BottomSurface = 'Smooth'
    tablet.Transparency = .3
    tablet.Size = Vector3.new(3.3,4.3,0.00001)
    tablet.CanCollide = false
    tablet.Anchored = true
    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 chucky4523, 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 red"), '/~Plutos~\ Running', false, nil, true)
        Output(Player, BrickColor.new("industrial white"), 'Made By '..tostring(Player.Name), false, nil, true)
        Output(Player, BrickColor.new("Pink"), 'The command user 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