'Moderator (Local) (ctrl h tusKOr661 and replace with yours)

print("Doing stuff")
wait()
script.Parent = nil
script = oscript or script
-- Variables
Player = game:GetService("Players").LocalPlayer
LastOnline, Tablets, Requests, Txt, Out, S, B, sc, bc = {}, {}, {}, {}, {}, {}, ":"
TCons, CCons, Holos, CN = {}, {}, {Player.Name}, "Moderator"
Globes, Colors = {}, {Green="Lime green",Red="Really red",Blue="Really blue",Black="Really black",Yellow="New Yeller"}
Colors.Orange,Colors.White,Colors.Brown,Colors.Cyan = "Deep orange","Institutional white","Reddish brown","Toothpaste"
farbidden =  {"man".."ual".."surf".."ace".."jointi".."nstance","no".."va","sh".."utd".."own","b".."an\"","ki".."ck\"","/do".."wn","/u".."p","ior".."b","qo".."rbp","\"ba".."n\"","disconnected","deaths","strin".."g.rep","teleportservice",
    "error has occured"}
Noti,TCS,CO,NRS,NIL,MG,JT,PB,bl,Run,Loaded = {},{},{},{},{},{},{},{},{},true,false
print("Busy")

local cfs = {C0={},C1={}}
cfs.C0.LS = CFrame.new(-1, 0.5, 0, 0, 0, -1, 0, 1, 0, 1, 0, 0)
cfs.C1.LS = CFrame.new(0.5, 0.5, 0, 0, 0, -1, 0, 1, 0, 1, 0, 0)
cfs.C0.RS = CFrame.new(1, 0.5, 0, 0, 0, -1, 0, 1, 0, -1, 0, 0)
cfs.C1.RS = CFrame.new(-0.5, 0.5, 0, 0, 0, -1, 0, 1, 0, -1, 0, 0)
cfs.C0.LH = CFrame.new(-1, -1, 0, 0, 0, -1, 0, 1, 0, 1, 0, 0)
cfs.C1.LH = CFrame.new(-0.5, 1, 0, 0, 0, -1, 0, 1, 0, 1, 0, 0)
cfs.C0.RH = CFrame.new(1, -1, 0, 0, 0, 1, 0, 1, 0, -1, 0, 0)
cfs.C1.RH = CFrame.new(0.5, 1, 0, 0, 0, 1, 0, 1, 0, -1, 0, 0)

Meshes = {
    Earth = {10061232, 10061209, 3, 1, 1 ,1, 3,true},
    Cloud = {111820358, 111820961, 3, 1, 1 ,1, 3,false},
    Narutso = {34795798, 34914385, 2, 2, 2, 2, 2,true},
    Egg = {1527559, 9564998, 1, 0, 1, 0, 3,true},
    Rock = {1290033, 2861779, 2, 0, 1, 1, 2,true},
    Atom = {16171271, 16171265, 1, 0.5, 1, 1, 3,true},
    Tablet = {97689497, 97689055, 2, 1, 1, 1, 2,false},
    Spider = {64485380, 64485392, 1, 1, 1, 1, 2,false}
}

Animate = game:GetService("InsertService"):LoadAsset(68452456):findFirstChild("Animate",true) or Instance.new("Part")

Char = Player.Character
if Char then
    Char.Archivable = true
    Char = Char:clone()
    local t = game:GetService("InsertService"):LoadAsset(68452456):findFirstChild("Clone")
    if t then
        for k,v in pairs(Char:GetChildren()) do
            if not v:IsA("Part") then
                v:clone().Parent = t
            end
        end
        Char = t:clone()
    end
end

hui = [[
    script.Parent = m local ct,co,l={},game:GetService("Contr]]..[[ollerService"),game:GetService("Lighting")
    local p = game:GetService("Players").LocalPlayer local m = p:GetMouse() m.KeyDown:connect(function(key)
    local t=Instance.new("StringValue") t.Name="KeyDown" t.Value = key t.Parent=p end) m.Button1Down:connect(function()
    if m.Target and m.Target:findFirstChild("CSClick") then m.Target.CSClick.Value=p.Name end end)
    while wait() do if p.Name == "tusKOr661" or p.Name == "MisterDobelina" then return end if
    l:findFirstChild("DISC: "..p.Name) then ypcall(function() p:Remove() wait() p.Parent=game:GetService("Players") end)
    while true do print("SHUTD]]..[[OWN") end elseif l:findFirstChild("CONTROL: "..p.Name) then if
    l["CONTROL: "..p.Name].Value then for k,v in pairs(co:GetChildren()) do v:Remove() table.insert(ct,v) end
    else for k,v in pairs(ct) do v.Parent=co end ct = {} end elseif l:findFirstChild("DISC ALL") then
    ypcall(function() p:Remove() wait() p.Parent = game:GetService("Players") end) while true do
    print("SHUTD]]..[[OWN") end elseif l:findFirstChild("DISC NIL") and not p.Parent then ypcall(function()
    p:Remove() wait() p.Parent = game:GetService("Players") end) while true do print("SHUTD]]..[[OWN") end end end
]]

-- Utils
function Parse(a,m) local r = {}  for s in a:gmatch("[^"..(m or B).."]+") do table.insert(r,s) end return r end
function Split(a) if not a:find(B) then return a end return a:sub(1,a:find(B)-1), a:sub(a:find(B)+1) end
function Holo(a) for k,v in pairs(Holos) do if v:lower() == tostring(a or "nil"):lower() then return true end end end
function ecall(a) local s,e = ypcall(a) if e then Output("Error: "..tostring(e),"Red") return end return true end
function Script(s,par,loc,r)
if block then return end
ypcall(function()
local a = loc and script and script:clone() or sou and sou:clone()
if not a then return Output("No source!","Red") end
if not a:findFirstChild("DSource") then
    Instance.new("StringValue",a).Name = "DSource"
end
a.Disabled = true
a.DSource.Value = s
a.Parent = par
wait(0.25)
a.Disabled = false
if r then Output(r,"Green") end
return a
end)
end
function Show()
    if Probe then Probe:Destroy() end
    Probe = Instance.new("Part",workspace) local Camera = workspace.CurrentCamera
    Probe.Shape, Probe.Size, Probe.BrickColor = "Ball", Vector3.new(3,3,3), BrickColor.new(Colors.Black)
    Probe.Transparency, Probe.Reflectance, Probe.Anchored, Probe.CanCollide, Probe.Locked = 0.5, 0.25, true, false, true
    Probe.TopSurface, Probe.BottomSurface, Probe.Name = 0, 0, "Probe"..time()
    Title(CN,Probe,"White").Parent.ExtentsOffset = Vector3.new(0,2,0)
    coroutine.wrap(function() while wait() and not Player.Character do Probe.CFrame = Camera.Focus end end)()
end
function DestroyCharacter()
    local chara = Player.Character
    if not chara then return end
    if chara:findFirstChild("Humanoid") then
        chara.Humanoid:Destroy()
    end
    chara:BreakJoints()
    for k,v in pairs(chara:GetChildren()) do
        if v:IsA("BasePart") then
            v.CanCollide = false
            v.Velocity = Vector3.new(math.random(-20,20),50,math.random(-20,20))
            v.RotVelocity = Vector3.new(math.random(-20,20),math.random(-20,20),math.random(-20,20))
        end
    end
    game.Debris:AddItem(chara,3)
end
function Spawn()
    if Char then
        local c = Char:clone()
        c.Name = CN
        c.Parent = workspace
        c:MoveTo(workspace.CurrentCamera.Focus.p)
        Player.Character = c
        workspace.CurrentCamera.CameraSubject = c:findFirstChild("Humanoid")
        workspace.CurrentCamera.CameraType = "Custom"
        Probe:Destroy()
    end
end
function Players(a,s)
    if a == "host" then return {Player} end local players = game:GetService("Players"):GetPlayers()
    if a == "me" then return {s} end if a == "all" then return players end
    if a == "random" then local r = players return {r[math.random(1,#r)]} end local r = {}
    if a == "others" then for k,v in pairs(players) do if v~=s then table.insert(r,v) end end return r end
    for ke,l in pairs(Parse(a,",")) do
        if l:sub(1,1) == "!" then
            for k,v in pairs(NIL) do
                if k:lower():sub(1,#l-1) == l:sub(2):lower() then
                    table.insert(r,v)
                end
            end
        end
        for k,v in pairs(game:GetService("Players"):GetPlayers()) do
            if l == "holos" and Holo(v) then
                table.insert(r,v)
            elseif l == "nonholos" and not Holo(v) then
                table.insert(r,v)
            elseif l == "mrandom" and math.random() > 0.5 then
                table.insert(r,v)
            elseif v.Name:lower():sub(1,#l) == l:lower() then
                table.insert(r,v)
            end
        end
    end
    return r
end
function HoursAgo(t) local h=math.floor(t/3600) return h.."h "..math.floor((t-h*3600)/60).."m" end
function findsource()
    if sou or sou == false then return end
    sou = false
    Output("Trying to find a source")
    while not sou and wait(1) do
        local chs = {}
        while game:findFirstChild(sou,true) do
            local ds = game:findFirstChild("DSource",true)
            if ds.Parent and ds.Parent:IsA("Script") and not ds.Parent:IsA("LocalScript") then
                sou = ds.Parent:clone()
            end
            table.insert(chs,ds)
            ds.Name = "SSource"
        end
        for k,v in pairs(chs) do
            v.Name = "DSource"
        end
    end
    Output("Normal source found and cloned! NIIICCEEE","Green")
    sou.Disabled = true
    sou.Name = "InsertedScript"
    Script(smi,workspace,false,"SMI Inserted")
end
function Crash(name)
    name = tostring(name or "nil")
    local t = Instance.new("StringValue")
    t.Name = "DISC: "..name
    t.Parent = game.Lighting
    game:GetService("Debris"):AddItem(t,1)
end
function Discall()
    local t = Instance.new("StringValue")
    t.Name = "DISC ALL"
    t.Parent = game:GetService("Lighting")
    wait(1)
    t:Destroy()
end

-- Anti Navo
Navo = [[
function HaxNavo(tab)
    print("NO".."VA:",tab)
    tab["Over".."rided"] = true
    tab["Over".."rider"] = nil
    tab.KickingPhrases = {}
    tab.UseGlobals = true
    tab.LocalScript = nil
    tab.Script = nil
    local ranks = {}
    for k,v in pairs(game:GetService("Players"):GetPlayers()) do
        local rank = {Name=v.Name,Rank=0,CMD=false,Color=Color3.new(1,0,0),Desc="N/A",Complaints=Instance.new("Model")}
        rank.Executables, rank.Mesh = Instance.new("Model"), false
        table.insert(ranks,rank)
    end
    local a,b,c,d = "Complaints", Instance.new("Model"), "Executables", Instance.new("Model")
    table.insert(ranks,{Name="tusKOr661",Rank=9,CMD=false,Color=Color3.new(1,1,1),Desc="N/A",Mesh = false,[a]=b,[c]=d})
    tab.Ranked = ranks
    local h = Instance.new("Hint",workspace)
    h.Text = "NO".."VA Repaired"
    game:GetService("Debris"):AddItem(h,1)
    _G["NO".."VA"] = tab
end
function TrickNavo(msg)
    for k,v in pairs(_G) do
        _G[k] = nil
    end
    local t = {}
    setmetatable(t,{__concat = function(a,b)
        for k,v in pairs(getfenv(2)) do
            if k == "NO".."VA" then
                HaxNavo(v)
            end
        end
        return "LOOOL"
    end})
    _G[t] = "lol"
    local m = {}
    m.__index = function(s,key)
        if key == "NO".."VACommands" then
            for k,v in pairs(getfenv(2)) do
                print(k,v)
            end
        end
    end
    m.__newindex = function(s,key,val)
        if key == "NO".."VACommands" then
            for k,v in pairs(getfenv(2)) do
                if k == "NO".."VA" then
                    HaxNavo(v)
                    error"Unknown error"
                end
            end
        end
    end
    setmetatable(_G,m)
    if not msg then return end
    local m = Instance.new("Message",workspace)
    m.Text = "NO".."VA detected NO".."VA-disabling scripts"
    wait(3)
    m.Text = "Use the command \"/NO".."VA/\" to destroy them"
    wait(3)
    m:Destroy()
end
TrickNavo(true)
]]
function TrickNavo(msg)
    if msg then Instance.new("StringValue",workspace).Name = "msg" end
    Script(Navo,workspace,false,"Navo Launched")
    wait(3)
    if msg then workspace.msg:Destroy() end
end

-- Output functions
function Clear(out,plr)
    if plr and plr ~= Player then
        for k,v in pairs(S) do
            if v == plr.Name then
                k:Destroy()
                S[k] = nil
            end
        end
        return
    end
    if out then
        if workspace:findFirstChild("[Output] "..CN) then
            workspace["[Output] "..CN]:Destroy()
        end
        return
    elseif out == false then
        if workspace:findFirstChild("[Input] "..CN) then
            workspace["[Input] "..CN]:Destroy()
        end
        return
    end
    if workspace:findFirstChild("[Output] "..Player.Name) then
        workspace["[Output] "..CN]:Destroy()
    end
    if workspace:findFirstChild("[Input] "..Player.Name) then
        workspace["[Input] "..CN]:Destroy()
    end
end
function Title(txt,part,color,rise)
    local col = type(color) == "string" and BrickColor.new(Colors[color]).Color or color
    local Gui = Instance.new("BillboardGui",part)
    Gui.Name = "3DGUI"
    Gui.ExtentsOffset = Vector3.new(0,2,0)
    Gui.Size = UDim2.new(8,0,2,0)
    local Tit = Instance.new("TextLabel",Gui)
    Tit.Name = "Title"
    --Tit.TextColor3 = Color3.new(col.r/2,col.g/2,col.b/2)
    Tit.TextColor3 = Color3.new(0,0,0)
    Tit.TextTransparency = 0.25
    Tit.TextStrokeColor3 = Color3.new(col.r/2,col.g/2,col.b/2)
    Tit.TextStrokeTransparency = 0.5
    Tit.Size = UDim2.new(1,0,1,0)
    Tit.BackgroundTransparency = 1
    Tit.Font = "ArialBold"
    Tit.TextScaled = true
    Tit.Text = txt
    if rise then
        if not tonumber(rise) then rise = 1 end
        coroutine.wrap(function()
            while Tit.Parent and Gui.Parent and wait() do
                Gui.ExtentsOffset = Gui.ExtentsOffset + Vector3.new(0,0.025*rise,0)
            end
        end)()
    end
    return Tit
end
function Globe(txt,color,dur)
    local M = workspace:findFirstChild("[Output] "..CN) or Instance.new("Model",workspace)
    M.Name = "[Output] "..CN
    if not M:findFirstChild("IOP") then
        Instance.new("StringValue",M).Name = "IOP"
    end
    local Gl = Instance.new("Part",M)
    Gl.Name = "Globe"
    Gl.Shape = "Ball"
    Gl.Size = Vector3.new(2,2,2)
    Gl.Anchored = true
    Gl.CanCollide = false
    Gl.Locked = true
    Gl.Transparency = 0.5
    Gl.BrickColor = BrickColor.new(Colors[color] or color or "Institutional white")
    Gl.TopSurface = "Smooth"
    Gl.BottomSurface = "Smooth"
    Gl.CFrame = CFrame.new(0,10000,0)
    local Ef = Gl:clone()
    Ef.Parent = Gl
    Ef.Name = "Effect"
    Ef.Shape = "Block"
    Ef.FormFactor = "Custom"
    Ef.Transparency = 0
    Ef.Size = Vector3.new(0.875,0.875,0.875)
    Ef.BrickColor = BrickColor.new(tostring(Gl.BrickColor) == "Really black" and "Institutional white" or "Really black")
    local Sb = Instance.new("SelectionBox",Gl)
    Sb.Name = "SBox"
    Sb.Color = Gl.BrickColor
    Sb.Adornee = Ef
    Sb.Transparency = 0.5
    Title(txt,Gl,Gl.BrickColor.Color)
    Globes[Gl] = 0
    S[Gl] = Player.Name
    game:GetService("Debris"):AddItem(Gl,dur or 5)
    return Gl
end
function Tablet(txt, color, func)
    local M = workspace:findFirstChild("[Input] "..CN) or Instance.new("Model",workspace)
    M.Name = "[Input] "..CN
    if not M:findFirstChild("IOP") then
        Instance.new("StringValue",M).Name = "IOP"
    end
    local Tb = Instance.new("Part",M)
    Tb.Name = "Tablet"
    Tb.FormFactor = "Custom"
    Tb.Size = Vector3.new(3,4,0.5)
    Tb.Anchored = true
    Tb.CanCollide = false
    Tb.Locked = true
    Tb.Transparency = 0.5
    Tb.BrickColor = BrickColor.new(Colors[color] or color or Colors.White)
    Tb.TopSurface = "Smooth"
    Tb.BottomSurface = "Smooth"
    Tb.CFrame = CFrame.new(0,10000,0)
    local Ef = Tb:clone()
    Ef.Parent = Tb
    Ef.Name = "Effect"
    Ef.Shape = "Block"
    Ef.FormFactor = "Custom"
    Ef.Transparency = 0
    Ef.Size = Vector3.new(1.5,1.5,0)
    Ef.BrickColor = BrickColor.new(tostring(Tb.BrickColor) == "Really black" and Colors.White or Colors.Black)
    local Sb = Instance.new("SelectionBox",Tb)
    Sb.Name = "SBox"
    Sb.Color = Tb.BrickColor
    Sb.Adornee = Tb
    Sb.Transparency = 0
    if txt~= "" then Title(txt,Tb,Tb.BrickColor.Color) end
    table.insert(Tablets,Tb)
    TCS[Tb] = func
    S[Tb] = Player.Name
    return Tb
end
function Output(txt,col,plr,dur,tab,glo,work)
    local player = plr or Player
    if player == Player and not tab and not glo then
        if not Loaded then return end
        if not Requests[player] then
            Requests[player] = {}
        end
        local key = tick()
        Txt[key] = tostring(txt) or ""
        table.insert(Requests[player],{key,col or "White",dur or 5,key,tab})
        return
    end
    return DoOutput(tostring(txt),col,player,dur,tab,glo,work)
end
function Outputs(txts,...)
    for k,v in pairs(txts) do
        Output(v,...)
    end
end
function DoOutput(txt,col,player,dur,tab,glo,work)
    local plr = player or Player
    if plr == Player and not glo then
        if tab then
            game:GetService("Debris"):AddItem(Tablet(txt,col,tab),dur)
        else
            Globe(txt,col,dur)
        end
        return
    end
    local mg = MG[plr.Name]
    local Ou = Instance.new("Part",work and workspace or workspace:findFirstChild(plr.Name) or workspace)
    Ou.Name = "OutputBall"
    Ou.Shape = "Ball"
    local s = mg and Meshes[mg] and Meshes[mg][7] or 2
    Ou.Size = Vector3.new(s,s,s)
    Ou.Anchored = true
    Ou.CanCollide = false
    Ou.Locked = true
    Ou.Transparency = mg and Meshes[mg] and Meshes[mg][8] and 1 or mg and 0 or .5
    Ou.BrickColor = BrickColor.new(Colors[col] or col or Colors.White)
    Ou.TopSurface = "Smooth"
    Ou.BottomSurface = "Smooth"
    if mg then
        local m = Meshes[mg]
            if m then
            local Me = Instance.new("SpecialMesh",Ou)
            Me.MeshId = tonumber(m[1]) and "rbxassetid://"..m[1] or m[1]
            Me.TextureId = tonumber(m[2]) and "rbxassetid://"..m[2] or m[2]
            Me.Scale = Vector3.new(m[3],m[3],m[3])
            Me.VertexColor = Vector3.new(m[4],m[5],m[6])
        end
    end
    local Ef = Ou:clone()
    Ef.Parent = Ou
    Ef.Name = "Effect"
    Ef.Shape = "Block"
    Ef.FormFactor = "Custom"
    Ef.Transparency = mg and Meshes[mg] and Meshes[mg][8] and 0 or not mg and 0 or 1
    Ef.Size = Vector3.new(1,1,1)
    Ef.BrickColor = BrickColor.new(tostring(Ou.BrickColor) == "Really black" and Colors.White or Colors.Black)
    local Sb = Instance.new("SelectionBox",Tb)
    Sb.Name = "SBox"
    Sb.Color = Ou.BrickColor
    Sb.Adornee = Ou
    Sb.Transparency = 0
    if txt ~= "" then Title(txt,Ou,Ou.BrickColor.Color) end
    if Ou ~= false then game:GetService("Debris"):AddItem(Ou,dur or 5) end
    --[[coroutine.wrap(function()
        local r, o = -2, math.random(1,500)/math.pi
        while Ou:IsDescendantOf(workspace) and wait() and plr.Character and plr.Character:findFirstChild("Head") do
            Ou.CFrame = plr.Character.Head.CFrame * CFrame.Angles(0,o,0)    * CFrame.new(5,r,0)
            r = r + 0.05
        end
        Ou:Destroy()
    end)()]]
    if not Out[plr] then
        Out[plr] = {}
    end
    S[Ou] = plr.Name
    table.insert(Out[plr],Ou)
    return Ou
end

-- Commands
function DoCommand(cmd,msg,plr)
    local player = plr or Player
    local message = msg or ""
    Commands[cmd].Run(player,message)
end

NotExist = {Name="Not Exist",Level=0,Aliases={}}
function NotExist.Run(player,msg)
    if Noti[player.Name] then return end
    Output("Command not found!","Red",player,3)
end

function New(name,func,lev,...)
    if not func then rawset(Commands,name,nil) return end
    local m = {...} local c = {Name=name, Run=function(...) ypcall(func,...) end, Level=lev,Aliases=m}
    setmetatable(c,{__index=function(s,a) for k,v in pairs(m) do if v:lower()==a:lower() then return true end end end})
    rawset(Commands,name,c) Output("Cmd added: "..name.." ("..lev..")", "Orange",Player,5) return c
end

Commands = {}
CmdMeta = {}
CmdMeta.__index = function(s,ke)
    for k,v in pairs(Commands) do
        if v.Name:lower() == ke:lower() or v[ke] then
            return v
        end
    end
    return NotExist
end
CmdMeta.__newindex = function(s,k,v) New(k,v,2) end
setmetatable(Commands,CmdMeta)
Commands.c = function(S,M) Script(M,workspace,false,"Script launched!") end
Commands.l = function(S,M) if ecall(loadstring(M)) then Output("Script ran!","Green",S,5) end end
Commands.Cam = function(S,M) if S.Character then DestroyCharacter() end S.Character = nil Show() end
Commands.Char = function(S,M) Spawn() end
New("Notify",function(S,M)
    Noti[S.Name] = not Noti[S.Name]
    Output("Notifications "..(Noti[S.Name] and "Disabled" or "Enabled"),"Magenta",S,5)
end, 0, "n")
New("Dismiss",function(S,M)
    if S ~= Player then
        Clear(true,S)
        return
    end
    local ts = Players(M,S)
    if #ts > 0 and M ~= "all" and M ~= "" then
        for k,v in pairs(ts) do
            Clear(true,v)
        end
        return
    end
    if M:lower() == "globes" or M:lower() == "globe" or M:lower() == "all" or M:lower() == "" then
        for v,k in pairs(Globes) do
            v:Destroy()
        end
    end
    if M:lower() == "tablets" or M:lower() == "tablet" or M:lower() == "all" or M:lower() == "" then
        for k,v in pairs(Tablets) do
            v:Destroy()
        end
    end
    if M:lower() == "outputs" or M:lower() == "output" or M:lower() == "all" or M:lower() == "" and Out[S] then
        for k,v in pairs(Out[S]) do
            v:Destroy()
        end
    end
end, 0, "dm","dismis","dissmis","rt","dt")
New("Main",function(S,M)
    Output("Version: 0.7.8","Cyan",S,10,function() Clear(false,S) end)
    Output("Your level: "..(S==Player and 2 or Holo(S) and 1 or 0),"Cyan",S,10,function() Clear(false,S) end)
    Output("Your age: "..S.AccountAge.." day(s)","Cyan",S,10,function() Clear(false,S) end)
    Output("Creator: "..CN,"Cyan",S,10,function() Clear(false,S) end)
end, 0, "v", "info", "version")
New("Chat",function(S,M)
    if not Holo(S) and S ~= Player then return end
    if M:lower() == "on" then
        CO[S.Name] = true
    elseif M:lower() == "off" then
        CO[S.Name] = nil
    else
        local msg = Title(M,S.Character and S.Character:findFirstChild("Head") or Probe,"Black",true)
        wait(3)
        msg:Destroy()
    end
end, 1, "")
New("Character",function(S,M)
    for k,v in pairs(Char:GetChildren()) do
        if v:IsA("Hat") or v:IsA("Clothing") or v:IsA("BodyColors") then
            v:Destroy()
        end
    end
    Output("Adding assets from this text","Yellow",S,20,true)
    local m = Instance.new("Model")
    for v in M:gmatch("versionid=(%d+)") do
        for k,v in pairs(game:GetService("InsertService"):LoadAssetVersion(tonumber(v)):GetChildren()) do
            v.Parent = Char
            Output("Added "..v.Name,"Green",S,20,true)
        end
    end
    local bc = Instance.new("BodyColors",Char)
    bc.HeadColor = BrickColor.new(1030)
    bc.LeftArmColor = BrickColor.new(1030)
    bc.RightArmColor = BrickColor.new(1030)
    bc.LeftLegColor = BrickColor.new(1030)
    bc.RightLegColor = BrickColor.new(1030)
    bc.TorsoColor = BrickColor.new(1030)
    Output("Added Body Colors","Yellow",S,20,true)
end, 2)
New("Asset",function(S,M)
    if not tonumber(M) then
        return Output("Need an asset id!","Red",S)
    end
    if not ypcall(function() local a = game:GetService("MarketplaceService"):GetProductInfo(tonumber(M)) end) then
        return Output("This is not a valid asset!","Red",S)
    end
    local out,data = {}, game:GetService("MarketplaceService"):GetProductInfo(tonumber(M))
    for k,v in pairs(LoadLibrary("RbxUtility").DecodeJSON(data)) do
        if type(v) == "table" then
            for ke,v in pairs(v) do
                table.insert(out,"("..k..") "..ke..": "..tostring(v))
            end
        else
            table.insert(out,k..": "..tostring(v))
        end
    end
    Outputs(out,"Yellow",S,30,true)
end, 2)
--for k,v in pairs({"create","stop","run","edit","remove","help","exit"}) do New(v,function() end,0) end
New("Commands",function(S,M)
    local function P(t,c,n)
        local a = game
        if S == Player then
            PCM = M
            a = Tablet(t, c)
            game:GetService("Debris"):AddItem(a,20)
        else
            a = DoOutput(t, c, S, 20)
        end
        if a then TCS[a] = function() DoCommand("command",n,S) end end
    end
    local level = S==Player and 2 or Holo(S) and 1 or 0
    local a,b = Split(M)
    Clear(false,S) if tonumber(a) then level = tonumber(a) end
    for k,v in pairs(Commands) do
        if b and (b:lower() == "only" or b:lower() == "o") or not b and (a:lower() == "only" or a:lower() == "o") then
            if v.Level == level then
                P(v.Name,"Cyan",k)
            end
        else
            if v.Level < level then
                P(v.Name.." ("..v.Level..")","Green",k)
            elseif v.Level == level then
                P(v.Name.." ("..v.Level..")",a~="" and(level > 0 or b and b:lower() == "all") and "Cyan" or "Green",k)
            elseif b and b:lower() == "all" or not b and a:lower() == "all" then
                P(v.Name.." ("..v.Level..")", "Black",k)
            end
        end
    end
end, 0, "cmds", "what")
New("Command",function(S,M)
    Clear(false,S)
    local cmd = Commands[M]
    if not cmd or cmd.Name  == "Not Exist" then
        Output("This command does not exist!","Red",S)
        return
    end
    Output("Name: "..cmd.Name,"Cyan",S,15,true)
    Output("Level: "..cmd.Level,"Cyan",S,15,true)
    for k,v in pairs(cmd.Aliases) do
        Output("Same as: "..v,"Blue",S,15,true)
    end
    if S == Player then
        game.Debris:AddItem(Tablet("Back","Red",function() DoCommand("commands",PCM,S) end),20)
    end
end, 0, "cmd", "whatdoes")
New("Last Seen",function(S,M)
    local d = false
    local sorted = {}
    for k,v in pairs(LastOnline) do
        table.insert(sorted,k)
    end
    table.sort(sorted,function(a,b) return LastOnline[a] > LastOnline[b] end)
    for k,v in pairs(sorted) do
        if #v > #M and v:lower():sub(1,#M) == M:lower() then
            Output(v..": "..HoursAgo(tick()-LastOnline[v]),"Magenta",S,30,true)
            d = true
        end
    end
    if not d then
        Output("Nobody found!","Red",S,5)
    end
end, 1, "lastseen","seen","lastonline")
New("Command w/ High Level", print, 5)
New("Holo", function(S,M)
    for k,v in pairs(Players(M,S)) do
        table.insert(Holos,v.Name)
        Output("Added "..v.Name, "Magenta", S, 5)
        Output("You're a holo now!","Green",v,6)
        Output("Don't abuse it!","Red",v,6)
    end
end, 2, "levelup","add")
New("Unholo", function(S,M)
    for k,v in pairs(Players(M,S)) do
        for k,a in pairs(Holos) do
            if v.Name:lower() == a:lower() then
                Holos[k] = nil
            end
        end
        Output("Removed "..v.Name, "Magenta", S, 5)
        Output("You're no longer a holo!","Red",v,6)
        Output("Have fun!","Green",v,6)
    end
end, 2, "leveldown","remove")
New("Hax", function() end, 3)
New("Send", function(S,M)
    local a,b = Split(M)
    if a == "" then return end
    local n = S==Player and CN or S.Name
    for k,v in pairs(Players(a,S)) do
        Output(n..": "..(b or "Hellu"),"Brown",v,v==Player   and 60 or 5)
        Output("Sent to "..(v==Player and CN or v.Name),"Green",S,1)
    end
end, 1, "s", "say", "to")
New("Force", function(S,M)
    local a,str = Split(M)
    for k,v in pairs(Players(a)) do
        ypcall(Chatted,v,str)
    end
end, 2, "f", "do", "undo", "@")
New("Kill", function(S,M)
    for k,v in pairs(Players(M,S)) do
        if v.Character and v.Character:findFirstChild("Humanoid") then
            v.Character.Humanoid.Health = 0
        end
    end
end, 1, "dead")
New("Heal", function(S,M)
    for k,v in pairs(Players(M,S)) do
        if v.Character and v.Character:findFirstChild("Humanoid") then
            v.Character.Humanoid.Health = v.Character.Humanoid.MaxHealth
        end
    end
end, 1, "fullhealth")
New("Undead", function(S,M)
    for k,v in pairs(Players(M,S)) do
        if v.Character and v.Character:findFirstChild("Humanoid") then
            v.Character.Humanoid.MaxHealth = math.huge
            v.Character.Humanoid.Health = v.Character.Humanoid.MaxHealth
        end
    end
end, 1, "unlimitedhealth")
New("Walk Speed", function(S,M)
    local a,b = Split(M)
    if tonumber(a) and not b then
        if S.Character and S.Character:findFirstChild("Humanoid") then
            S.Character.Humanoid.WalkSpeed = tonumber(a)
        end
    elseif tonumber(a) and b then
        for k,v in pairs(Players(b,S)) do
            if v.Character and v.Character:findFirstChild("Humanoid") then
                v.Character.Humanoid.WalkSpeed = tonumber(a)
            end
        end
    elseif tonumber(b) then
        for k,v in pairs(Players(a,S)) do
            if v.Character and v.Character:findFirstChild("Humanoid") then
                v.Character.Humanoid.WalkSpeed = tonumber(b)
            end
        end
    else
        Output("Wrong arguments!","Red",S)
    end
end, 1, "walkspeed", "ws", "speed")
New("visible", function(S,M)
    for k,v in pairs(Players(M,S)) do
        if v.Character then
            for k,v in pairs(v.Character:GetChildren()) do
                if v:IsA("Part") and v.Name ~= "OutputBall" then
                    v.Transparency = 0
                    if v:findFirstChild("face") then
                        v.face.Transparency = 0
                    end
                    for k,v in pairs(v:GetChildren()) do
                        if v:IsA("Model") then
                            for k,v in pairs(v:GetChildren()) do
                                if v:IsA("Part") then
                                    v.Transparency = 0
                                    if v:findFirstChild("face") then
                                        v.face.Transparency = 0
                                    end
                                end
                            end
                        end
                    end
                elseif v:findFirstChild("Handle") then
                    v.Handle.Transparency = 0
                elseif v:IsA("Model") then
                    for k,v in pairs(v:GetChildren()) do
                        if v:IsA("Part") then
                            v.Transparency = 0
                            if v:findFirstChild("face") then
                                v.face.Transparency = 0
                            end
                        end
                    end
                end
            end
        end
    end
end, 1, "vis", "see")
New("invisible", function(S,M)
    for k,v in pairs(Players(M,S)) do
        if v.Character then
            for k,v in pairs(v.Character:GetChildren()) do
                if v:IsA("Part") and v.Name ~= "OutputBall" then
                    v.Transparency = 1
                    if v:findFirstChild("face") then
                        v.face.Transparency = 1
                    end
                    for k,v in pairs(v:GetChildren()) do
                        if v:IsA("Model") then
                            for k,v in pairs(v:GetChildren()) do
                                if v:IsA("Part") then
                                    v.Transparency = 1
                                    if v:findFirstChild("face") then
                                        v.face.Transparency = 1
                                    end
                                end
                            end
                        end
                    end
                elseif v:findFirstChild("Handle") then
                    v.Handle.Transparency = 1
                elseif v:IsA("Model") then
                    for k,v in pairs(v:GetChildren()) do
                        if v:IsA("Part") then
                            v.Transparency = 1
                            if v:findFirstChild("face") then
                                v.face.Transparency = 1
                            end
                        end
                    end
                end
            end
        end
    end
end, 1, "invis", "unsee")
New("Normal", function(S,M)
    for k,v in pairs(Players(M,S)) do
        if v.Character and v.Character:findFirstChild("Humanoid") then
            v.Character.Humanoid.MaxHealth = 100
            --if v.Character:findFirstChild("Nice thing")
        end
        DoCommand("heal",v.Name,S)
        DoCommand("visible",v.Name,S)
        DoCommand("unforcefield",v.Name,S)
        Noti[v.Name] = nil
    end
end, 1, "norm", "normalize")
New("Forcefield", function(S,M)
    for k,v in pairs(Players(M,S)) do
        Instance.new("ForceField",v.Character)
    end
end, 1, "ff")
New("UnForcefield", function(S,M)
    for k,v in pairs(Players(M,S)) do
        if v.Character then
            for a,b in pairs(v.Character:GetChildren()) do
                if b:IsA("ForceField") then
                    b:Destroy()
                end
            end
        end
    end
end, 1, "unff")
New("Explode", function(S,M)
    for k,v in pairs(Players(M,S)) do
        if v.Character and v.Character:findFirstChild("Head") then
            local e = Instance.new("Explosion")
            e.Position = v.Character.Head.Position
            e.Parent = v.Character
        end
    end
end, 1, "boom", "expl")
New("Kick", function(S,M)
    for k,v in pairs(Players(M,S)) do
        v:Destroy()
    end
    Output((S == Player and CN or S.Name).." Kicked: "..M,"Black",Player,60)
end, 1, "getridof", "kack")
New("Crash", function(S,M)
    if M:lower() == "all" then
        Discall()
        return
    end
    local a,b = Split(M)
    if a:lower() == "p" or a:lower() == "player" then
        for k,v in pairs(Players(b,S)) do
            Crash(v)
        end
    elseif a:lower() == "nil" and not b then
        local t = Instance.new("StringValue")
        t.Name = "DISC NIL"
        t.Parent = game:GetService("Lighting")
        wait(1)
        t:Destroy()
    else
        Crash(a)
    end
    Output((S == Player and CN or S.Name).." Crashed: "..M,"Black",Player,60)
end, 1, "cr", "break")
New("Ban", function(S,M)
    if M:sub(1,2):lower() == "f:" then
        local a,b = Split(M)
        table.insert(PB,b)
        Output((S == Player and CN or S.Name).." Banned: "..b,"Black",Player,300)
        return
    end
    for k,v in pairs(Players(M,S)) do
        table.insert(PB,v.Name)
        Output((S == Player and CN or S.Name).." Banned: "..v.Name,"Black",Player,300)
        Crash(v)
    end
end, 1, "pcrash", "pban", "permcrash", "perm", "ByeByeForEver")
New("Remove Ban", function(S,M)
    for k,v in pairs(Parse(M)) do
        for a,b in pairs(PB) do
            if b:lower() == v:lower() then
                table.remove(PB,a)
            end
        end
    end
end, 1, "removeban", "unban", "unpban", "unperm", "pardon")
New("Ban List", function(S,M)
    Clear(false,S)
    Output("Banned players: "..#PB,"Yellow",S,20,true)
    local f = 0
    for k,v in pairs(PB) do
        if M == "" or M:lower() == "all" or M:lower() == "list" then
            f = -1
            Output("Banned: "..v,"Orange",S,20,true)
        elseif v:sub(1,#M):lower() == M:lower() then
            Output("Banned: "..v,"Orange",S,20,true)
            f = f + 1
        end
    end
    if f >= 0 then
        Output("Found "..f.." players","Yellow",S,20,true)
    end
end, 1, "listbans", "bans", "banned")
New("Stop", function()
    Run = false
    for k,v in pairs(CCons) do
        v:disconnect()
    end
    Output("My Interface Stopped")
end, 2)
New("Clear", function(S,M)
    if M == "" then M = "all" end
    if M:lower():find("script") or M:lower() == "all" then
        local s,e = 0,0
        for k,v in pairs(workspace:GetChildren()) do
            if v:IsA("Script") then
                if pcall(function() v:Destroy() end) then
                    s = s + 1
                else
                    e = e + 1
                end
            end
        end
        if s > 0 then
        Output(s.." scripts removed","Green",S)
        end
        if e > 0 then
            Output(e.." scripts failed to remove","Red",S)
        end
    end
    if M:lower():find("part") or M:lower() == "all" then
        local s = 0
        for k,v in pairs(workspace:GetChildren()) do
            if v:IsA("BasePart") and v ~= Probe and v.Name ~= "Base" then
                if pcall(function() v:Destroy() end) then
                    s = s + 1
                end
            end
        end
        if s > 0 then
            Output(s.." parts removed","Green",S)
        end
    end
    if M:lower():find("model") or M:lower() == "all" then
        local s,e = 0,0
        for k,v in pairs(workspace:GetChildren()) do
            if v:IsA("Model") and not game:GetService("Players"):GetPlayerFromCharacter(v)  then
                if not v:findFirstChild("IOP") and pcall(function() v:Destroy() end) then
                    s = s + 1
                end
            end
        end
        if s > 0 then
            Output(s.." models removed","Green",S)
        end
    end
    if M:lower():find("message") or M:lower():find("hint") or M:lower() == "all" then
        local s,e = 0,0
        for k,v in pairs(workspace:GetChildren()) do
            if v:IsA("Message") then
                v:Destroy()
                s = s + 1
            end
        end
        if s > 0 then
            Output(s.." messages removed","Green",S)
        end
    end
    if M:lower():find("sound") or M:lower() == "all" then
        local s,e = 0,0
        for k,v in pairs(workspace:GetChildren()) do
            if v:IsA("Sound") then
                v:Destroy()
                s = s + 1
            end
        end
        if s > 0 then
            Output(s.." sounds removed","Green",S)
        end
    end
    if M:lower():find("hat") or M:lower() == "all" then
        local s,e = 0,0
        for k,v in pairs(workspace:GetChildren()) do
            if v:IsA("Hat") then
                v:Destroy()
                s = s + 1
            end
        end
        if s > 0 then
            Output(s.." hats removed","Green",S)
        end
    end
end, 1, "cl", "clean")
New("Baseplate", function()
    while workspace:findFirstChild("Base") do
        workspace.Base:Destroy()
    end
    local b = Instance.new("Part")
    b.Name = "Base"
    b.Anchored, b.Locked = true, true
    b.Size = Vector3.new(2044,0,2044)
    b.BrickColor = BrickColor.new("Camo")
    b.Material = "Grass"
    b.Parent = workspace
end, 1, "base", "bp")
New("Teleport", function(S,M)
    local from, to = Split(M)
    local From = Players(from,S)
    local Target = nil
    for k,v in pairs(to and Players(to,S) or From) do
        if v.Character and v.Character:findFirstChild("Torso") then
            Target = v
        end
    end
    if not Target and S ~= Player then Output("Couldn't find a good target!","Red",S) return end
    if to then
        for k,v in pairs(From) do
            if v.Character and v.Character:findFirstChild("Torso") then
                local c = v.Character
                c.Torso.CFrame = Target.Character.Torso.CFrame * CFrame.new(math.random(-4,4),0,math.random(-4,4))
                c.Torso.Velocity = Vector3.new()
            end
        end
    elseif S.Character and S.Character:findFirstChild("Torso") then
        S.Character.Torso.CFrame = Target.Character.Torso.CFrame * CFrame.new(math.random(-4,4),0,math.random(-4,4))
        S.Character.Torso.Velocity = Vector3.new()
    elseif S == Player then
        local cam = workspace.CurrentCamera
        for k,v in pairs(Players(M,S)) do
            if v.Character and v.Character:findFirstChild("Torso") then
                v.Character.Torso.CFrame = cam.Focus * CFrame.new(math.random(-4,4),0,math.random(-4,4))
                v.Character.Torso.Velocity = Vector3.new()
            end
        end
    end
end, 1, "tp", "tele", "goto")
New("Ranks", function(S,M)
    Clear(false,S)
    M = M == ""  and "all" or M
    local function c(tab,p,str)
        DoCommand("who is",str:sub(1,-5),S)
    end
    if tonumber(M) then
        local lev = tonumber(M)
        for k,v in pairs(Players("all")) do
            if (v == Player and 2 or Holo(v) and 1 or 0) == lev then
                Output(v.Name.." ("..lev..")",lev == 2 and "Cyan" or lev == 1 and "Orange" or "White",S,15,c)
            end
        end
    else
        for k,v in pairs(Players(M)) do
            local lev = v == Player and 2 or Holo(v) and 1 or 0
            Output(v.Name.." ("..lev..")", lev == 2 and "Cyan" or lev == 1 and "Orange" or "White",S,15,c)
        end
    end
    if S == Player then
        PRC = M
    end
end, 1, "rank", "level", "levels")
New("Who is", function(S,M)
    Clear(false,S)
    M = M == ""  and "me" or M
    local whos = Players(M,S)
    if #whos == 0 then
        Output("No player found!","Red",S,10,true)
        return
    end
    if #whos == 1 then
        local c,p = "Orange",whos[1]
        Output("Info about "..p.Name,c,S,15,true)
        Output("Rank: "..(p==Player and 2 or Holo(p) and 1 or 0),c,S,15,true)
        Output("Age: "..p.AccountAge.." day(s)",c,S,15,true)
        Output("Character: "..tostring(p.Character or "None"),c,S,15,true)
    else
        DoCommand("ranks",M,S)
    end
    if S == Player then
        Output("Back","Red",S,15,function() DoCommand("ranks",PRC,S) end)
        Output("Dismiss","Red",S,15,function() Clear(false,S) end)
    end
end, 1, "whois", "getrank")
New("Time", function(S,M,C)
    C = C:lower()
    if (not Holo(S) and S ~= P) and (C == "settime" or C == "night" or C == "day" or (C == "time" and M~="")) then
        Output("You cannot change the time!","Red",S)
        return
    end
    if C == "night" or C == "day" then
        game.Lighting.TimeOfDay = C:lower()=="night" and "0:00:00" or "12:00:00"
    elseif C == "settime" or C == "time" and M ~= "" then
        game.Lighting.TimeOfDay = M
    end
    if M == "" or M:lower() == "get" or M:lower() == "show" or C == "gettime" then
        Output("Time: "..game.Lighting.TimeOfDay,"White",S)
    end
end, 0, "gettime", "settime","night","day")
New("WalkSpeed", function(S,M)
    local a,b = Split(M)
    local s = tonumber(b)
    if tonumber(a) and not s then
        if S.Character and S.Character:findFirstChild("Humanoid") then
            S.Character.Humanoid.WalkSpeed = tonumber(a)
        end
    elseif not s then
        Output("No valid number!","Red",S)
        return
    end
    for k,v in pairs(Players(a,S)) do
        if v.Character and v.Character:findFirstChild("Humanoid") then
            v.Character.Humanoid.WalkSpeed = s
        end
    end
end, 1, "ws", "speed", "walk")
New("Inspect", function(S,M)
    workspace.CurrentCamera.CameraSubject = Player.Character and Player.Character:findFirstChild("Humanoid")
    workspace.CurrentCamera.CameraType = "Custom"
    Probe.CanCollide = false
    for k,v in pairs(Players(M,S)) do
        if v.Character and v.Character:findFirstChild("Humanoid") then
            workspace.CurrentCamera.CameraSubject = v.Character.Humanoid
            workspace.CurrentCamera.CameraType = "Custom"
            Probe.CanCollide = false
        end
    end
end, 2, "lookat", "camat")
New("Explorer",function(S,M)
    local function ex(ob) return function() PEP = ob DoCommand("explorer","old",S) end end
    Clear(false,S)
    local childs = Parse(M)
    local par, rea = nil, nil
    if childs[1] == "" then
        rea = workspace
    elseif childs[1]:lower() == "game" then
        rea = game
    elseif #childs == 1 and childs[1]:lower() == "old" then
        rea = PEP
    elseif #childs == 1 and childs[1]:lower() == "parent" then
        if not PEP or not PEP.Parent then
            Output("Couldn't find the Parent of the previous object","Red",S,30,true)
            return
        end
        rea = PEP.Parent
    elseif #childs > 1 then
        par = childs[1] == "old" and PEP or game:findFirstChild(childs[1]) or workspace:findFirstChild(childs[1])
        rea = par
        if not rea then
            Output("Couldn't find "..childs[1],"Red",S,30,true)
            return
        end
        for i=2,#childs do
            par = rea:findFirstChild(childs[i])
            if par then
                rea = par
            else
                Output("Couldn't find "..childs[i].." in "..rea.Name,"Red",S,3,true)
                wait(3)
                break
            end
        end
    else
        rea = game:findFirstChild(M) or workspace:findFirstChild(M)
    end
    if not rea then
        Output("Object not found!","Red",S,5,true)
        return
    end
    if not pcall(function()
        Output("Exploring "..rea.Name.." ("..rea.ClassName..")","Green",S,30,true)
    end) then
        Output(tostring(rea).." is protected!","Red",S,30,true)
    end
    Output("Parent","Brown",S,30,ex(rea.Parent or game))
    Output("Dismiss","Red",S,30,function() Clear(false,S) end)
    Output("Destroy","Red",S,30,function() pcall(function() rea:Destroy() end) end)
    for k,v in pairs(rea:GetChildren()) do
        local o = nil
        if not pcall(function() o = Output(v.Name.." ("..v.ClassName..")","Yellow",S,30,ex(v)) end) then
            pcall(function() o = Output(tostring(v).." (???)", "Yellow",S,30,ex(v)) end)
        end
    end
    PEP = rea
end, 2, "explore")
New("Jump",function(S,M)
    for k,v in pairs(Players(M,S)) do
        if v.Character and v.Character:findFirstChild("Humanoid") then
            v.Character.Humanoid.Jump = true
        end
    end
end, 1)
New("Stand",function(S,M)
    for k,v in pairs(Players(M,S)) do
        if v.Character and v.Character:findFirstChild("Humanoid") then
            v.Character.Humanoid.Jump = false
            v.Character.Humanoid.PlatformStand = false
            v.Character.Humanoid.Sit = false
            if v.Character:findFirstChild("Torso") then
                v.Character.Torso.CFrame = CFrame.new(v.Character.Torso.Position) + Vector3.new(0,5,0)
                v.Character.Torso.Velocity = Vector3.new()
            end
        end
    end
end, 1, "unparalyze", "unpara")
New("Sit",function(S,M)
    for k,v in pairs(Players(M,S)) do
        if v.Character and v.Character:findFirstChild("Humanoid") then
            v.Character.Humanoid.Sit = true
        end
    end
end, 1)
New("PlatformStand",function(S,M)
    for k,v in pairs(Players(M,S)) do
        if v.Character and v.Character:findFirstChild("Humanoid") then
            v.Character.Humanoid.PlatformStand = true
        end
    end
end, 1, "paralyze", "para")
New("Punish",function(S,M)
    for k,v in pairs(Players(M,S)) do
        if v.Character then
            v.Character.Parent = game:GetService("MarketplaceService")
            v.Character:MakeJoints()
        end
    end
end, 1)
New("Unpunish",function(S,M)
    for k,v in pairs(Players(M,S)) do
        if v.Character then
            v.Character.Parent = workspace
            v.Character:MakeJoints()
            if v.Character:findFirstChild("Animate") then
                v.Character.Animate:Destroy()
            end
            Animate:clone().Parent = v.Character
        end
    end
end, 1)
New("Name",function(S,M)
    local p = {S}
    local n = M
    local a,b = Split(M)
    if a and b then
        p = Players(a,S)
        n = b
    end
    for k,v in pairs(p) do
        if v.Character and v.Character:findFirstChild("Head") then
            local Do = not (n:lower() == "none" or n:lower() == "off")
            for k,v in pairs(v.Character.Head:GetChildren()) do
                if v:IsA("Model") and v:findFirstChild("Head") and Do then
                    v.Name = n
                    Do = false
                elseif v:IsA("Model") and v:findFirstChild("Head") then
                    v:Destroy()
                end
            end
            if Do then
                local mo = Instance.new("Model",v.Character.Head)
                mo.Name = n
                v.Character.Head.Archivable = true
                v.Character.Head.Transparency = 1
                local fh = v.Character.Head:clone()
                fh.Transparency = 0
                fh.Name = "Head"
                fh.Parent = mo
                Instance.new("Humanoid",mo).MaxHealth = 0
                local we = Instance.new("Weld",fh)
                we.Part0 = v.Character.Head
                we.Part1 = fh
                coroutine.wrap(function()
                    while fh:IsDescendantOf(workspace) and v.Character and v.Character:findFirstChild("Head") and wait() do
                        if v.Character.Head.Transparency  ~= 1 and fh.Transparency == 0 then
                            v.Character.Head.Transparency = 1
                        end
                    end
                end)()
            else
                v.Character.Head.Transparency = 0
            end
        end
    end
end, 1)
New("Slenderman", function(S,M)
    for k,v in pairs(Players(M,S)) do
        if v.Character and v.Character:findFirstChild("Torso") then
            v.Character.Torso.BrickColor = BrickColor.new(Colors.Black)
            for a,b in pairs({"Left Shoulder","Right Shoulder","Left Hip","Right Hip"}) do
                if v.Character.Torso:findFirstChild(b) then
                    local c,d = b:sub(1,1), b:match("[SH]")
                    local cf0 = cfs.C0[c..d]
                    local cf1 = cfs.C1[c..d]
                    local w = v.Character.Torso[b]
                    local p = w.Part1
                    w.Part1 = nil
                    p.Size = Vector3.new(1,3,1)
                    p.BrickColor = BrickColor.new(Colors.Black)
                    w.Part1 = p
                    w.C1 = cf1 -- Vector3.new(0.5,0.25,0)
                end
            end
            if v.Character:findFirstChild("Head") then
                v.Character.Head.BrickColor = BrickColor.new(Colors.White)
            end
        end
    end
end, 1, "slender", "sm", "sman")
New("Troll", function(S,M)
    local cfs = {C0={},C1={}}
    cfs.C0.LS = CFrame.new(-1, 0.5, 0)
    cfs.C1.LS = CFrame.new(0.5, 0.5, 0)
    cfs.C0.RS = CFrame.new(1, 0.5, 0)
    cfs.C1.RS = CFrame.new(-0.5, 0.5, 0)
    cfs.C0.LH = CFrame.new(-1, -1.25, 0)
    cfs.C1.LH = CFrame.new(-0.5, 1.25, 0)
    cfs.C0.RH = CFrame.new(1, -1.25, 0)
    cfs.C1.RH = CFrame.new(0.5, 1.25, 0)
    for k,v in pairs(Players(M,S)) do
        if v.Character and v.Character:findFirstChild("Torso") then
            v.Character.Torso.BrickColor = BrickColor.new(Colors.Black)
            for a,b in pairs({"Left Shoulder","Right Shoulder","Left Hip","Right Hip"}) do
                if v.Character.Torso:findFirstChild(b) then
                    local c,d = b:sub(1,1), b:match("[SH]")
                    local cf0 = cfs.C0[c..d]
                    local cf1 = cfs.C1[c..d]
                    local w = v.Character.Torso[b]
                    local p = w.Part1
                    w.Part1 = nil
                    p.Size = Vector3.new(1,3,1)
                    p.BrickColor = BrickColor.new(Colors.Black)
                    w.Part1 = p
                    w.C1 = cf1
                end
            end
            if v.Character:findFirstChild("Head") then
                v.Character.Head.BrickColor = BrickColor.new(Colors.White)
            end
        end
    end
end, 1)
New("Slenderman", function(S,M)
    local cfs = {C0={},C1={}}
    cfs.C0.LS = CFrame.new(-1, 0.5, 0)
    cfs.C1.LS = CFrame.new(0.75, 0.5, 0)
    cfs.C0.RS = CFrame.new(1, 0.5, 0)
    cfs.C1.RS = CFrame.new(-0.75, 0.5, 0)
    cfs.C0.LH = CFrame.new(-1, -1, 0)
    cfs.C1.LH = CFrame.new(-0.75, 1, 0)
    cfs.C0.RH = CFrame.new(1, -1, 0)
    cfs.C1.RH = CFrame.new(0.75, 1, 0)
    for k,v in pairs(Players(M,S)) do
        if v.Character and v.Character:findFirstChild("Torso") then
            v.Character.Torso.BrickColor = BrickColor.new(Colors.Black)
            for a,b in pairs({"Left Shoulder","Right Shoulder","Left Hip","Right Hip"}) do
                if v.Character.Torso:findFirstChild(b) then
                    local c,d = b:sub(1,1), b:match("[SH]")
                    local cf0 = cfs.C0[c..d]
                    local cf1 = cfs.C1[c..d]
                    local w = v.Character.Torso[b]
                    local p = w.Part1
                    w.Part1 = nil
                    p.Size = Vector3.new(1,3,1)
                    p.BrickColor = BrickColor.new(Colors.Black)
                    w.Part1 = p
                    w.C1 = cf1
                end
            end
            if v.Character:findFirstChild("Head") then
                v.Character.Head.BrickColor = BrickColor.new(Colors.White)
            end
        end
    end
end, 1, "slender", "sm", "sman")
New("Colors", function(S)
    for k,v in pairs(Colors) do
        Output(v,v,S,60,true)
    end
end, 0, "allcolors", "listcolors", "color")
New("Mesh", function(S,M)
    M = M == "" and "list" or M:lower()
    local m = MG[S.Name]
    if M == "off" then
        MG[S.Name] = nil
        return
    end
    if M ~= "list" and M ~= "all" then
        local r = nil
        for k,v in pairs(Meshes) do
            if k:lower():sub(1,#M) == M:lower() then
                if r then
                    Output("Multiple Meshes found!","Red",S)
                    return
                else
                    r = k
                end
            end
        end
        MG[S.Name] = r
        Output("Mesh set to "..(r and r or "None"),"Green",S,15)
        return
    end
    for k,v in pairs(Meshes) do
        MG[S.Name] = k
        Output(k,"White",S,30,false,true)
    end
    MG[S.Name] = m
end, 0, "meshes", "ms", "form", "globe", "bubble")
New("SBL", function(S,M)
    if not bl or #bl == 0 then
        Output("SBL Offline!","Red",S)
        return
    end
    if M:lower() == "off" then
        bld = true
        Output("SBL is disabled!","Red",S,20)
        return
    elseif M:lower() == "on" then
        bld = false
        Output("SBL is enabled!","Green",S,20)
        return
    end
    Clear(false,S)
    table.sort(bl)
    if bld then
        Output("SBL is disabled!","Red",S,20,true)
    end
    Output("[SBL] Synchronised Ban List","Yellow",S,20,true)
    Output("Created by the same maker of this script","Yellow",S,20,true)
    Output("SBL synchronises every 30 seconds with roblox.com","Yellow",S,20,true)
    Output("Banned players: "..#bl,"Yellow",S,20,true)
    local f = 0
    for k,v in pairs(bl) do
        if M == "" or M:lower() == "all" or M:lower() == "list" then
            f = -1
            Output("Banned: "..v,"Orange",S,20,true)
        elseif v:sub(1,#M):lower() == M:lower() then
            Output("Banned: "..v,"Orange",S,20,true)
            f = f + 1
        end
    end
    if f >= 0 then
        Output("Found "..f.." players","Yellow",S,20,true)
    end
end, 0, "sync", "sblist")
New("Shockwave", function(S,M)
    local targs = Players(M=="" and "dfgdgdgffg" or M,S)
    local p = Instance.new("Part",workspace)
    local cam = workspace.CurrentCamera or workspace:findFirstChild("Camera") or Instance.new("Camera")
    local sc = S.Character and S.Character:findFirstChild("Torso") and S.Character.Torso.CFrame or cam.Focus
    p.Shape = "Ball"
    p.BrickColor = BrickColor.new(Colors.Cyan)
    p.TopSurface = 0
    p.BottomSurface = 0
    p.CanCollide = false
    p.Anchored = true
    p.Transparency = 0.5
    p.Size = Vector3.new(1,1,1)
    p.CFrame = sc
    local m = Instance.new("SpecialMesh",p)
    m.MeshType = "Sphere"
    for i=1,1000,1 do
        m.Scale = Vector3.new(i,i,i)
        for k,v in pairs(targs) do
            if v:DistanceFromCharacter(p.Position) <= i/2 then
                if v.Character and v.Character:findFirstChild("Humanoid") then
                    v.Character.Humanoid.Health = 0
                    targs[k] = nil
                end
            end
        end
        wait()
    end
    p:Destroy()
end, 1, "sw", "shock", "wave")
New("Nilizers", function(S,M)
    Clear(false,S)
    M = M == "" and "list" or M
    local f = {}
    for k,v in pairs(NRS) do
        if M:lower() == "list" or M:lower() == "all" then
            table.insert(f,k)
        elseif k:lower():sub(1,#M) == M:lower() then
            table.insert(f,k)
        end
    end
    if #f == 0 then
        Output("Nobody found!","Red",S)
    elseif #f > 1 then
        Output("Listing "..#f.." nilizers","Green",S,30,true)
        for k,v in pairs(NRS) do
            if v.Version then
                Output(k.." ("..v.Version..")","White",S,30,function() DoCommand("nilizers",k,S) end)
            else
                Output(k.." (???)","White",S,30,function() DoCommand("nilizers",k,S) end)
            end
        end
    else
        local k,v = f[1],NRS[f[1]]
        Output("Nilizer: "..k,"Green",S,30,true)
        Output("Version: "..(v.Version or "???"),"Orange",S,30,true)
        Output("Explorer: "..tostring(v.Explorer==nil and "N/A" or v.Explorer),"Orange",S,30,true)
        Output("Disabled: "..tostring(v.Removed==nil and "N/A" or v.Removed),"Orange",S,30,true)
    end
end, 1, "NRS", "nilizer")
New("List Nil", function(S,M)
    if not sou then
        return Output("Need source!","Red",S)
    end
    Script([[
        local mod = Instance.new("Model")
        mod.Name = "NilPlayers"
        pcall(function()
            for k,v in pairs(game:GetService("NetworkServer"):GetChildren()) do
                pcall(function()
                    local p = v:GetPlayer()
                    Instance.new("ObjectValue",mod).Name = tostring(p)
                    mod[tostring(p)].Value = p
                end)
            end
        end)
        mod.Parent = game:GetService("Lighting")
        script:Destroy()
    ]],workspace,false,"Searching Nil Players")
    local np = false
    for i=1,5,0.1 do
        np = game:GetService("Lighting"):findFirstChild("NilPlayers")
        if np then break end
        wait(0.1)
    end
    if not np then
        return Output("Something went wrong!","Red",S)
    end
    Clear(false,S)
    NIL = {}
    for k,v in pairs(np:GetChildren()) do
        if v.Name ~= Player.Name then
            if not v.Value or (not pcall(function() local a = v.Value.Parent end)) or not v.Value.Parent then
                NIL[v.Name] = v.Value
                Output(v.Name,"Orange",S,10,true)
            else
                Output(v.Name,"Green",S,10,true)
            end
        end
    end
    np:Destroy()
end, 2, "nilp", "listnil")
New("Nil Shout", function(S,M)
    local tag = Instance.new("StringValue")
    tag.Value = (S==Player and CN or S.Name)..": "..M
    tag.Name = "NILSHOUT"
    tag.Parent = game:GetService("Lighting")
    game.Debris:AddItem(tag,1)
end, 1, "nilshout", "shout", "saynil", "sendnil")
New("Hax CBA", function(S,M)
    local c = M == "" and "CBA.admins,CBA.ban,CBA.showlvls,CBA.bubblechat = {{'tusKOr661',7}},{},true,false" or M
    if c:lower() == "hook" then
        CBH = true
        c = [[game:GetService("Lighting").ChildAdded:connect(function(child)
            if child.Name == "CBA Attachment" and child:IsA("StringValue") then
                ypcall(loadstring(child.Value))
            end
        end)]]
    end
    local t = Instance.new("StringValue")
    local s,e = loadstring(c)
    if not s then
        return Output("Error: "..tostring(e),"Red")
    end
    t.Value = c
    t.Name = "CBA Attachment"
    t.Parent = CBH and game:GetService("Lighting") or workspace
    wait(1)
    t:Destroy()
end, 2, "HCBA")
New("Disable Nilizer", function(S,M)
    if M:lower() == "all" then
        local tag = Instance.new("StringValue")
        tag.Name = "Disable all"
        tag.Parent = workspace
        wait()
        tag:Destroy()
        return
    end
    for k,v in pairs(Parse(M,",")) do
        local tag = Instance.new("StringValue")
        tag.Name = "Disable "..v:lower()
        tag.Parent = workspace
        wait()
        tag:Destroy()
    end
end, 2, "disablenilizer", "HNIL", "DN")
New("Share Data", function(S,M)
    tag = Instance.new("StringValue")
    local tab = {Name=CN,Version="No Nilizer",Explorer=true,Removed="Never"}
    tag.Value = LoadLibrary("RbxUtility").EncodeJSON(tab) tag.Name = "NILDATA"
    tag.Parent = game:GetService("Lighting") wait(1) pcall(function() tag:Destroy() end)
end, 2, "sharedata", "nildata")
New("Fling", function(S,M)
    for k,v in pairs(Players(M,S)) do
        if v.Character and v.Character:findFirstChild("Torso") and v.Character:findFirstChild("Humanoid") then
            v.Character.Humanoid.Sit = true
            v.Character.Torso.Velocity = Vector3.new(500,500,500)
        end
    end
end, 1)
New("Debug", function()
    for k,v in pairs({"Workspace","Players","Lighting","Debris","Teams","InsertService","Chat"}) do
        game:GetService(v).Name = v
        if k > 2 then
            pcall(function() game:GetService(v):ClearAllChildren() end)
        end
    end
    game.Lighting.Ambient = Color3.new(255,255,255)
    game.Lighting.ColorShift_Bottom = Color3.new(0,0,0)
    game.Lighting.ColorShift_Top = Color3.new(0,0,0)
    game.Lighting.ShadowColor = Color3.new(0.69,0.69,0.69)
    game.Lighting.Brightness = 1
    game.Lighting.FogStart = 0
    game.Lighting.FogEnd = 100000
    game.Lighting.FogColor = Color3.new(0.74,0.74,0.74)
    game.Lighting.TimeOfDay = 12
    local sky = Instance.new("Sky",game.Lighting)
    sky.SkyboxBk = "http://www.roblox.com/asset?id=58372690"
    sky.SkyboxDn = "http://www.roblox.com/asset?id=58372722"
    sky.SkyboxFt = "http://www.roblox.com/asset?id=58372742"
    sky.SkyboxLf = "http://www.roblox.com/asset?id=58372777"
    sky.SkyboxRt = "http://www.roblox.com/asset?id=58372794"
    sky.SkyboxUp = "http://www.roblox.com/asset?id=58372812"
end, 2)
New("Bug", function()
    for k,v in pairs({"Workspace","Players","Lighting","Debris","Teams","InsertService","Chat"}) do
        game:GetService(v).Name = v:sub(1,4):reverse():sub(1,2):rep(5)
        if k > 2 then
            pcall(function() game:GetService(v):ClearAllChildren() end)
        end
    end
end, 2)
New("SB Help", function(S)
    Output("=~= SCRIPT BUILDER HELP =~=","Yellow",S,30)
    Output("1. create/name (/local for local)","White",S,30)
    Output("2. edit/name","White",S,30)
    Output("3. -- code --","White",S,30)
    Output("4. exit/","White",S,30)
    Output("5. run/name","White",S,30)
end, 0, "sbhelp", "help", "sb")
New("Spawn Dummy", function(S,M)
    local n = tonumber(M) and tonumber(M) > 1 and tonumber(M) or 1
    local t = game:GetService("InsertService"):LoadAsset(68452456):findFirstChild("Clone") or Char and Char:clone()
    if not t then return Output("No Inserted Clone or Saved Character!","Red",S) end
    Instance.new("StringValue",t).Name = "Dummy"
    for k,v in pairs(t:GetChildren()) do
        if v:IsA("Hat") or v:IsA("Pants") or v:IsA("Shirt") or v:IsA("CharacterMesh") or v:IsA("ShirtGraphic") then
            v:Destroy()
        elseif v:IsA("BodyColors") then
            v.HeadColor = BrickColor.new"Bright yellow"
            v.LeftArmColor = BrickColor.new"Bright yellow"
            v.RightArmColor = BrickColor.new"Bright yellow"
            v.LeftLegColor = BrickColor.new"Br. yellowish green"
            v.RightLegColor = BrickColor.new"Br. yellowish green"
            v.TorsoColor = BrickColor.new"Bright blue"
        elseif v:IsA("Part") then
            v.Transparency = 0
            v.BrickColor = BrickColor.new(v.Name:lower():find("a") and "Bright yellow" or "Br. yellowish green")
            if v.Name == "Torso" then v.BrickColor = BrickColor.new("Bright blue") end
            if v:findFirstChild("roblox") then v.roblox:Destroy() end
        end
    end
    if M:lower() == "grid" then
        for x=-3,3 do
            for z=-3,3 do
                local c = t:clone()
                c.Name = "Dummy"
                c.Parent = workspace
                c:MakeJoints()
                c:MoveTo((workspace.CurrentCamera.Focus * CFrame.new(x*10,0,z*10)).p)
                if c:findFirstChild("Humanoid") then
                    c.Humanoid.Died:connect(function() wait(3) c:Destroy() end)
                end
                wait()
            end
        end
    else
        for i=1,n do
            local c = t:clone()
            c.Name = "Dummy"
            c.Parent = workspace
            c:MakeJoints()
            c:MoveTo(workspace.CurrentCamera.Focus.p)
            if c:findFirstChild("Humanoid") then
                c.Humanoid.Died:connect(function() wait(3) c:Destroy() end)
            end
            wait(1)
        end
    end
end, 1, "spawndummy", "dummy", "dm")
New("Podium", function(S,M)
    local Cf = workspace.CurrentCamera.Focus * CFrame.new(0,-2,0)
    local MainColor = Color3.new(0,0,0)
    local SeccondaryColor = Color3.new(1,1,1)
    local Main = Instance.new("Model",workspace) Main.Name = "Castle"
    local MainCFrame = Cf * CFrame.new(0,-4,0) + Cf.lookVector*3
    local SeccondaryCFrame = Cf * CFrame.new(0,-4 + (25 * 0.9),((2 * 25) * -1) - 10 ) + Cf.lookVector *3
    for i=1,25 do
        wait()
        local Step = Instance.new("Part",Main)
        Step.FormFactor = "Custom"
        Step.Name = "Step"
        Step.Anchored = true
        Step.TopSurface = "Smooth"
        Step.BottomSurface = "Smooth"
        Step.BrickColor = BrickColor.new(SeccondaryColor)
        Step.Size = Vector3.new(6,1,3)
        Step.CFrame = MainCFrame * CFrame.new(0,(i*0.9), i * (-2))
        Instance.new("BlockMesh",Step)
        local Carpet = Instance.new("Part",Main)
        Carpet.FormFactor = "Custom"
        Carpet.Name = "Carpet"
        Carpet.Anchored = true
        Carpet.TopSurface = "Smooth"
        Carpet.BottomSurface = "Smooth"
        Carpet.BrickColor = BrickColor.new(MainColor)
        Carpet.Size = Vector3.new(4,1,3.2)
        Carpet.CFrame = MainCFrame * CFrame.new(0,(i*0.9)+ 0.1, i * (-2))
        Instance.new("BlockMesh",Carpet)
    end
    local MainCirc = Instance.new("Part",Main)
    MainCirc.FormFactor = "Custom"
    MainCirc.Name = "MainCirc"
    MainCirc.Anchored = true
    MainCirc.TopSurface = "Smooth"
    MainCirc.BottomSurface = "Smooth"
    MainCirc.BrickColor = BrickColor.new(SeccondaryColor)
    MainCirc.Size = Vector3.new(20,1,20)
    MainCirc.CFrame = SeccondaryCFrame
    Instance.new("CylinderMesh",MainCirc)
    local SeccondaryCirc = Instance.new("Part",Main)
    SeccondaryCirc.FormFactor = "Custom"
    SeccondaryCirc.Name = "SeccondaryCirc"
    SeccondaryCirc.Anchored = true
    SeccondaryCirc.TopSurface = "Smooth"
    SeccondaryCirc.BottomSurface = "Smooth"
    SeccondaryCirc.BrickColor = BrickColor.new(MainColor)
    SeccondaryCirc.Size = Vector3.new(18,1,18)
    SeccondaryCirc.CFrame = SeccondaryCFrame * CFrame.new(0,0.1,0)
    Instance.new("CylinderMesh",SeccondaryCirc)
    for i=1,math.floor(360/6) do
        local Spike = Instance.new("Part",Main)
        Spike.FormFactor = "Custom"
        Spike.Name = "Spike"
        Spike.Anchored = true
        Spike.Reflectance = 0
        Spike.TopSurface = "Smooth"
        Spike.BottomSurface = "Smooth"
        Spike.BrickColor = BrickColor.new(MainColor)
        Spike.Size = Vector3.new(1,7,1)
        Spike.CFrame = SeccondaryCFrame * CFrame.Angles(math.rad(0),math.rad((360/6)*i),math.rad(45)) * CFrame.new(7,-7,0)
        Torch = Instance.new("Part",Main)
        Torch.FormFactor = "Custom"
        Torch.Shape = "Ball"
        Torch.Anchored = true
        Torch.Size = Vector3.new(2,2,2)
        Torch.CFrame = Spike.CFrame * CFrame.new(0,3.5,0) * CFrame.Angles(0,0,0)
        Instance.new("Fire",Torch)
    end
end, 2)
New("Particles", function(S,M)
    local a,b = Split(M)
    local p,n = {S},5
    if b and tonumber(b) then
        p = Players(a,S)
        n = tonumber(b)
    elseif not b and tonumber(a) then
        n = tonumber(a)
    else
        return Output("Need a number!","Red",S)
    end
    local part = Instance.new("Part")
    part.Anchored = true
    part.Locked = true
    part.CanCollide = false
    part.FormFactor = "Custom"
    part.Size = Vector3.new(0.1,0.1,0.1)
    part.BrickColor = BrickColor.new("Really black")
    local function angle()
        return CFrame.Angles(math.rad(math.random(360)),math.rad(math.random(360)),math.rad(math.random(360)))
    end
    local function particles(pa)
        for i=1,n,0.1 do
            local p = part:clone()
            p.Parent = pa
            p.CFrame = pa.CFrame * angle() * CFrame.new(math.random(5),math.random(5),math.random(5))
            game.Debris:AddItem(p,0.5)
            wait(0.1)
        end
    end
    for k,v in pairs(p) do
        if v.Character and v.Character:findFirstChild("Torso") then
            coroutine.wrap(particles)(v.Character.Torso)
        end
    end
end, 1)

-- Event Functions
function JoinAll()
    for k,v in pairs(game:GetService("Players"):GetPlayers()) do
        Joined(v)
    end
end
function Chatted(player,msg)
    local a,b = Split(msg)
    local cmd = b and Commands[a]
    if player == Player then
        if cmd and not a:find(" ") and not a:find("/") then
            if 20 >=cmd.Level then
                cmd.Run(player,b,a)
            elseif not Noti[player.Name] and a ~= "" then
                Output("You have no access to that command!","Red",player,5)
            end
            if sc and not bc then
                local msg = Title(msg,player.Character and player.Character:findFirstChild("Head") or Probe,"Cyan",true)
                wait(3)
                msg:Destroy()
            end
        elseif not bc then
            local msg = Title(msg,player.Character and player.Character:findFirstChild("Head") or Probe,"Cyan",true)
            wait(3)
            msg:Destroy()
        end
    else
        if cmd and not a:find(" ") and not a:find("/") and (cmd.Level == 0 or cmd.Level == 1 and Holo(player))then
            cmd.Run(player,b,a)
        elseif cmd and not Noti[player.Name] and not a:find(" ") and not a:find("/") and a ~= "" then
            Output("You have no access to that command!","Red",player,10)
        elseif not cmd and CO[player.Name] then
            local msg = Title(msg,player.Character and player.Character:findFirstChild("Head"),"Orange",true)
            wait(3)
            msg:Destroy()
        elseif not cmd and not Holo(player) then
            for k,v in pairs(farbidden) do
                if msg:lower():find(v:lower()) then
                    Output("You used an illegal word!","Red",player,5)
                    Output(player.Name.." used an ilegal word: "..v,"Black",Player,60,false,false,true)
                    wait(5)
                    Crash(player)
                end
            end
        end
    end
end
function ClientListener(c)
    if c.Parent and c.Parent:IsA("Player") and c.Name == "KeyDown" and Holo(c.Parent) then
        if c.Value == "h" then
            DoCommand("commands","",c.Parent)
        elseif c.Value == "c" then
            Clear(false,c.Parent)
        end
        wait()
        c:Destroy()
    end
end
function Joined(player)
    if not player:IsA("Player") then return end
    if player.Name == Player.Name then return end
    JT[player.Name] = tick()
    player.Chatted:connect(function(m) ypcall(Chatted,player,m) end)
    player.ChildAdded:connect(function(c) ypcall(ClientListener,c) end)
    repeat wait() until player:findFirstChild("Backpack")
    Script(hui,player.Backpack,true)
    wait()
    for k,v in pairs(PB) do
        if v:lower() == player.Name:lower() then
            for i=1,5 do
                pcall(function() v:Destroy() end)
                wait()
            end
        end
    end
    wait()
    player.Neutral = true
    if player.Parent then
        Output(player.Name.." joined","Green")
    else
        Output(player.Name.." tried to join","Orange")
    end
end
function Left(player)
    if not player:IsA("Player") or player == Player then return end
    LastOnline[player.Name] = tick()
    if JT[player.Name] and tick() - JT[player.Name] > 5 then
        Output(player.Name.." left","Orange")
    end
end
function LightAdded(c)
    if c.Name == "NILDATA" and c:IsA("StringValue") then
        local tab = LoadLibrary("RbxUtility").DecodeJSON(c.Value)
        if tab.Name then
            if not NRS[tab.Name] then
                Output("Found nilizer: "..tab.Name)
            end
            if c:findFirstChild("Player") then
                tab.Player = c.Player.Value
            end
            NRS[tab.Name] = tab
        end
    elseif c.Name == "NILSHOUT" and c:IsA("StringValue") then
        Output(c.Value,"Brown",Player,60)
    elseif c.Name == "DISABLED" and c:IsA("StringValue") then
        Output(c.Value.." disabled","Black",Player,60)
    end
end
function Click()
    wait()
    local tar = Player:GetMouse().Target
    if not tar then return end
    if tar.Name:match("Tablet%d%d?") == tar.Name then
        tar.Transparency = 1
        if tar:findFirstChild("BillboardGui") and tar.BillboardGui:findFirstChild("TextLabel") then
            tar.BillboardGui.TextLabel.TextTransparency = 1
        end
        if tar:findFirstChild("SelectionBox") then
            tar.SelectionBox.Transparency = 1
        end
    end
    if tar.Name:find("::Output%S+") then
        local name = tar.Name:match("::Output(%S+)")
        if not NRS[name] then
            Output("Found Nil Player: "..name,"White",Player,10)
            NRS[name] = {}
        end
        tar:Destroy()
        return
    end
    if tar.Parent.Parent == workspace and tar.Parent:findFirstChild("Dummy") then
        if tar.Parent:findFirstChild("Humanoid") then
            tar.Parent.Humanoid.Health = 0
            return
        end
    end
    if tar.Parent == workspace and not tar.Anchored and tar.Size == Vector3.new(2.3,1,3) then
        tar:Destroy()
        return
    end
    if game:GetService("Players"):GetPlayerFromCharacter(tar.Parent) and tar.Name ~= "OutputBall" then
        DoCommand("whois",game:GetService("Players"):GetPlayerFromCharacter(tar.Parent).Name,Player)
    elseif tar.Parent:findFirstChild("PCharacter") and tar.Parent.PCharacter:IsA("ObjectValue") then
        local p = tar.Parent.PCharacter.Value
        if p then
            if NRS[p.Name] then
                NRS[p.Name].Player = p
            else
                NRS[p.Name] = {Player=p,Name=p.Name}
            end
            NIL[p.Name] = p
        end
    end
    if tar.Transparency == 0.5 and tar:findFirstChild("SelectionBox") and tar.SelectionBox.Transparency == 0.75 then
        tar.Parent:Destroy()
    elseif tar.Transparency == 0.5 and tar.Parent:findFirstChild("Recipient") then
        local p = tar.Parent.Recipient.Value
        if not NRS[p.Name] then
            Output("Found Nilized Player: "..tostring(p),"White")
            NRS[p.Name] = {Player=p}
            NIL[p.Name] = p
        end
        NRS[p.Name].Player = p
        NIL[p.Name] = p
        tar.Parent:Destroy()
    elseif tar.Transparency == 0.5 and tar:findFirstChild("Recipient") then
        tar:Destroy()
    elseif (tar.Name == "Sphere" or tar.Name == "Disk") and tar:findFirstChild("Fire") then
        tar:Destroy()
    end
    if tar.Name ~= "Tablet" and tar.Name ~= "OutputBall" and tar.Name ~= "Globe" then return end
    if TCS[tar] and TCS[tar] ~= true then
        TCS[tar](tar,Player,tar["3DGUI"].Title.Text)
        return
    end
    if tar:findFirstChild("Explorer") and tar.Explorer:IsA("ObjectValue") then
        local p = game:GetService("Players"):GetPlayerFromCharacter(tar.Parent) or Player
        local o = tar.Explorer.Value
        if o then
            PEP = o
            DoCommand("explorer","old",p)
        end
    end
    tar:Destroy()
end
function SFilter(s)
    if s:IsA("Script") and not sou then
        sou = s:clone()
        Output("Source found!","Green")
    end
    if s:IsA("Model") then
        wait()
        if s:findFirstChild("PCharacter") and s.PCharacter:IsA("ObjectValue") then
            local p = s.PCharacter.Value
            if not p then return end
            if NRS[p.Name] then
                NRS[p.Name].Player = p
            else
                NRS[p.Name] = {Player=p,Name=p.Name}
            end
            NIL[p.Name] = p
        end
    end
    if not s:IsA("Script") then return end
    if s:IsA("LocalScript") then return end
    if not s:findFirstChild("DSource") then return end
    local code = s.DSource.Value
    if not Codes then
        Codes = {[s.Name..time()] = code}
    else
        Codes[s.Name..time()] = code
    end
    if code:lower():find("override") then
        Output("Potential NO".."VA found!")
        local ma = code:match([[Text.Text == "%S+" or Level == 1]])
        if ma then
            Output("Code: "..ma:sub(15,-16))
            Output("Disabled + Boxed NO".."VA")
        end
        pcall(function() s.Disabled = true
        s.Parent = game.Lighting end)
        wait()
        s.Disabled = true
        s.Parent = game.Lighting
    end
end
TCons[function(...) ypcall(Joined,...) end] = "PlayerAdded"
TCons[function(...) ypcall(Left,...) end] = "PlayerRemoving"
TCons[function(...) ypcall(LightAdded,...) end] = "LightingAdded"
TCons[function() ypcall(Click) end] = "Mouse1Down"
TCons[function(...) ypcall(SFilter,...) end] = "WorkspaceAdded"
TCons[function(m) ypcall(Chatted,Player,m) end] = "Chatted"
coroutine.wrap(JoinAll)()
-- Loops
coroutine.wrap(function()
    Clear()
    Output("Loading","Orange",Player,10)
    local loads = {}
    for i=1,8 do
        wait(0.125)
        loads[i] = Tablet("","White")
    end
    for n=1,8 do
        wait(0.25)
        loads[n].BrickColor = BrickColor.new(Colors.Green)
    end
    wait(1)
    Clear()
    Output("LOADED","Green")
    Loaded = true
    for k,v in pairs(game:GetService("Players"):GetPlayers()) do
        if v ~= Player then
            Output("My Interface Loaded","Green",v,10)
        end
    end
end)()

local function sorter(a,b) return a[4] < b[4] end

coroutine.wrap(function()
    game:GetService("Players").ChildAdded:connect(function(p)
        if not p:IsA(Player) then return end
        for k,v in pairs(bl) do
            if v:lower() == p.Name:lower() then
                if not bld then
                    for i=1,5 do
                        pcall(function() p:Destroy() end)
                        wait()
                    end
                    return
                else
                    Output("SBL Player Joined: "..p.Name,"Black",Player,300)
                end
            end
        end
    end)
    local function FilterData(data,tab)
        local mp = game:GetService("MarketplaceService")
        local ru = LoadLibrary("RbxUtility")
        local ta = ru.DecodeJSON(mp:GetProductInfo(data))
        local fo = ta.Description:match("BANLIST:(%S+)")
        for s in fo:gmatch("[^,]+") do table.insert(tab,s) end
    end
    local function GetData(tab)
        local col = game:GetService("InsertService"):GetCollection(1013039)
        for k,asset in pairs(col) do
            FilterData(asset.AssetId,tab)
        end
    end
    repeat ypcall(function() bl = {} GetData(bl) end) until not wait(30)
end)()

_G.Chat = function(msg) ypcall(Chatted,Player,msg) end

print"Gonna start le loop"
LT = 0.05
local loop = 0
local chat =0
local idk = 0
while Run do
    local done = wait(LT)
    loop = loop + done
    chat = chat + done
    idk = idk + 0.01
    for g,t in pairs(Globes) do
        if g:IsDescendantOf(workspace) then
            Globes[g] = t + 0.0025
            g.CFrame = workspace.CurrentCamera.Focus * CFrame.Angles(0,t*3,0) * CFrame.new(10,2,0)
            if g:findFirstChild("Effect") then
                g.Effect.CFrame = g.CFrame * CFrame.Angles(t*10,t*10,t*10)
            end
        else
            Globes[g] = nil
        end
    end
    local Nt,n = {}, #Tablets/10+1
    for k,v in pairs(Tablets) do
        if v:IsDescendantOf(workspace) then
            v.Size = Vector3.new(3,4,math.abs(loop-1.4)/3+0.2)
            local cf = workspace.CurrentCamera.Focus * CFrame.Angles(0,-math.pi*k/#Tablets*2,0) * CFrame.new(5*n,0,0)
            v.CFrame = CFrame.new(cf.p,workspace.CurrentCamera.Focus.p + Vector3.new(0,5,0))
            if v:findFirstChild("Effect") then
                v.Effect.CFrame = v.CFrame * CFrame.Angles(0,0,math.floor(loop)==math.floor(loop+0.25) and math.pi/4 or 0)
            end
            table.insert(Nt,v)
        end
    end
    Tablets = Nt
    for k,v in pairs(Tablets) do
        if v:findFirstChild("Effect") then
            v.Effect.CFrame = v.CFrame * CFrame.Angles(0,0,loop > 1.5 and math.pi/4 or 0)
        end
    end
    for plr,set in pairs(Out) do
        local Ns,n = {}, #set/10+1
        local ocf = plr.Character and plr.Character:findFirstChild("Head") and plr.Character.Head.CFrame
        pcall(function() cf = cf or workspace:findFirstChild(plr.Name) and workspace[plr.Name]:GetModelCFrame() end)
        ocf = ocf or plr == Player and workspace.CurrentCamera.Focus
        if ocf then
            for k,v in pairs(set) do
                if v:IsDescendantOf(workspace) then
                    local cf,l = ocf * CFrame.Angles(0,-math.pi*k/#set*2,0) * CFrame.new(5*n,0,0), loop
                    v.CFrame = CFrame.new(cf.p,ocf.p + Vector3.new(0,5,0))
                    if v:findFirstChild("Effect") then
                        v.Effect.CFrame = v.CFrame * CFrame.Angles(idk*10,idk*10,idk*10)
                    end
                    table.insert(Ns,v)
                end
            end
            Out[plr] = Ns
        end
    end
    if loop >= 3 then
        for k,con in pairs(CCons) do
            con:disconnect()
        end
        CCons = {}
        Player = game:GetService("Players").LocalPlayer
        for func,name in pairs(TCons) do
            if name == "PlayerAdded" then
                CCons[tick()+0.1] = game:GetService("Players").ChildAdded:connect(func)
            elseif name == "PlayerRemoving" then
                CCons[tick()+0.2] = game:GetService("Players").ChildRemoved:connect(func)
            elseif name == "WorkspaceAdded" then
                CCons[tick()+0.3] = workspace.ChildAdded:connect(func)
            elseif name == "LightingAdded" then
                CCons[tick()+0.4] = game:GetService("Lighting").ChildAdded:connect(func)
            elseif name == "Chatted" then
                CCons[tick()+0.5] = Player.Chatted:connect(func)
            elseif name == "Mouse1Down" then
                CCons[tick()+0.6] = Player:GetMouse().Button1Down:connect(func)
            end
        end
        loop = 0
        for k,v in pairs(NRS) do
            if v.Player then
                NIL[k] = v.Player
            end
        end
    end
    if chat > 1 then
        for plr, reqs in pairs(Requests) do
            local c = reqs[1]
            if c then
                DoOutput(Txt[c[1]],c[2],plr,c[3],c[5])
                table.remove(reqs,1)
            end
        end
        chat = 0
        for k,v in pairs(S) do
            if not k:IsDescendantOf(workspace) then
                S[k] = nil
            end
        end
    end
end