admin

local p = game.Players.LocalPlayer
local c = p.Character

local rs = game:GetService("RunService").RenderStepped

local display = {}
do
    local function createblock(r,x,y,z,text,func)
        local rrt = r.CFrame - r.CFrame.p

        local block = Instance.new("Part")

        block.Parent = workspace

        block.Anchored = true
        block.CanCollide = false
        block.Size = Vector3.new(1.4,1.4,1.4)

        block.Color = Color3.new(0,0,0)

        block.Material = "Neon"

        block.CFrame = r.CFrame * CFrame.new(0,y,z)

        block.Locked = true

        block.Transparency = 1

        local h = Instance.new("BillboardGui")
        h.Parent = block
        h.Size = UDim2.new(1,0,1,0)

        local txt = Instance.new("TextLabel")
        txt.Parent = h
        txt.BackgroundTransparency = 1
        txt.Size = UDim2.new(1,0,1,0)
        txt.AnchorPoint = Vector2.new(.5,.5)
        txt.Position = UDim2.new(.5,0,.5,0)
        txt.Text = text
        txt.TextColor3 = Color3.new(1,1,1)
        txt.TextStrokeColor3 = Color3.new(1,0,0)

        txt.TextStrokeTransparency = 1

        txt.TextScaled = true

        local sb = Instance.new("SelectionBox",block)
        sb.Color3 = Color3.new(0,1,0)
        sb.SurfaceColor3 = Color3.new(0,0,0)
        sb.LineThickness = .05
        sb.Transparency = 0.5
        sb.SurfaceTransparency = .9
        sb.Adornee = block

        local sbg = sb:Clone()
        sbg.LineThickness = sb.LineThickness * 1.5
        sbg.Transparency = sbg.Transparency * 1.5
        sbg.Parent = block

        local cd = Instance.new("ClickDetector",block)

        cd.MouseClick:connect(function(pl)
            if pl == p then
                func()
            end
        end)

        local rot = math.random(0,100)/100
        local rotc = math.random(-100,100)/900

        local function update()
            rot = rot + rotc
            block.CFrame = block.CFrame:lerp(r.CFrame * CFrame.new(x,y,z) * CFrame.Angles(0,rot,-rot/2),.05)
            rs:wait()
            if block ~= nil then
                update()
            end

        end

        spawn(function()
        update()
        end)

        return block
    end

    function display.notify(text)
        local b = createblock(c.Head,0,1,-4,text,function()end)
        b.CFrame = b.CFrame * CFrame.new(0,-1,0)
        delay(1.6,function()
            b:Destroy()
        end)
    end

    function display.create(all)
        local allblocks = {}
        for i,v in pairs(all) do

            local b = createblock(c.Head,(2-i)*3,0,-4,v[1],v[2])

            allblocks[#allblocks+1] = b

        end
        return allblocks
    end

end

local players = game.Players:GetPlayers()

players[#players+1] = "all"

local plr = players[1].Name

local chosen = 1

local bs = {}

function clear()
    for i = 1,#bs do
        bs[i]:Destroy()
    end
end

function refresh(r)
    players = game.Players:GetPlayers()
    players[#players+1] = "all"

    chosen = chosen + r

    if chosen > #players then
        chosen = 1
    end
    if chosen < 1 then
        chosen = #players
    end
    if players[chosen] ~= "all" then
        plr = players[chosen].Name
    else
        plr = "all"
    end
end

function bses(func)
    bs = display.create{
        {"+",
            function()
                clear()
                refresh(1)
                bses(func)
            end
        },

        {plr,
            function()
                clear()
                if plr == "all" then
                    for i,v in pairs(game.Players:GetPlayers()) do
                        func(v)
                    end
                else
                    func(players[chosen])
                end

            end
        },

        {"-",
            function()
                clear()
                refresh(-1)
                bses(func)
            end
        },

        {"Cancel",
            function()
                clear()
            end
        },
    }
end

display.notify("AAdmin by asbuff loaded!")

local cmds = {

    {"kill",
        function(plr)
            local chr = plr.Character
            display.notify("Killed " .. plr.Name)
            chr:BreakJoints()
        end
    },

    {"freeze",
        function(plr)
            local chr = plr.Character
            display.notify("Frozen " .. plr.Name)
            chr.PrimaryPart.Anchored = true
        end
    },

    {"unfreeze",
        function(plr)
            local chr = plr.Character
            display.notify("Unfrozen " .. plr.Name)
            chr.PrimaryPart.Anchored = false
        end
    },

    {"trip",
        function(plr)
            local chr = plr.Character
            display.notify("Tripped " .. plr.Name)
            chr.PrimaryPart.RotVelocity = Vector3.new(0,0,1)
            chr.Humanoid.Sit = true
        end
    },

    {"sit",
        function(plr)
            local chr = plr.Character
            display.notify("Sat " .. plr.Name .. "down")
            chr.Humanoid.Sit = true
        end
    },

    {"fastspeed",
        function(plr)
            local chr = plr.Character
            chr.Humanoid.WalkSpeed = 100
            display.notify("Made " .. plr.Name .. " walkspeed 100")
        end
    },

    {"normalspeed",
        function(plr)
            local chr = plr.Character
            chr.Humanoid.WalkSpeed = 16
            display.notify("Made " .. plr.Name .. " walkspeed 16")
        end
    },

    {"invisible",
        function(plr)
            local chr = plr.Character
            for i,v in pairs(chr:GetChildren()) do

                if v:IsA("Part") or v:IsA("MeshPart") and v.Name ~= "HumanoidRootPart" then
                    v.Transparency = 1
                end

                if v:IsA("Accessory") then
                    v.Handle.Transparency = 1
                end

                if v.Name == "Head" then
                    if v:FindFirstChild("face") then
                        v.face.Transparency = 1
                    end
                end
            end
        end
    },

    {"visible",
        function(plr)
            local chr = plr.Character
            for i,v in pairs(chr:GetChildren()) do

                if v:IsA("Part") or v:IsA("MeshPart") then
                    if v.Name ~= "HumanoidRootPart" then
                        v.Transparency = 0
                    end
                end

                if v:IsA("Accessory") then
                    v.Handle.Transparency = 0
                end

                if v.Name == "Head" then
                    if v:FindFirstChild("face") then
                        v.face.Transparency = 0
                    end
                end

            end
        end
    },

    {"kick",
        function(plr)
            display.notify("Kicked " .. plr.Name)
            plr:Kick("You have been kicked lol merked")
        end
    },

}

local selection = 1

function moveon(a,stuff)
    selection = selection + a
    if selection > #stuff then
        selection = 1
    end
    if selection < 1 then
        selection = #stuff
    end
end

function basebs(commands,func)
    bs = display.create{
        {"+",
            function()
                clear()
                moveon(1,commands)
                basebs(commands)
            end
        },

        {commands[selection][1],
            function()
                clear()
                bses(commands[selection][2])
            end
        },

        {"-",
            function()
                clear()
                moveon(-1,commands)
                basebs(commands)
            end
        },

        {"Cancel",
            function()
                clear()
            end
        },
    }
end

local m = p:GetMouse()

local code = false

m.KeyDown:connect(function(k)
    if k == "m" and code == true then
        clear()
        basebs(cmds)
        code = false
    end
    if k == "c" then
        code = true
    else
        code = false
    end
end)