Admin test

--[[
    ~ Name ~
    | B-Admin

    ~ Date Started ~
    | 8:55 PM 9/10/2014

    ~ By ~
    | dogwarrior24

    ~ Idea ~
    | When the button is pressed, it runs the command that the command had.
    | On right click, it cancels and goes to the next command.
    |
    | Each command is displayed with the first letter, last letter, and the numerical order
    | the command was in.
    |
    | Using this, it should be an interesting admin, and nobody should really understand how
    | to use it.
--]]
Player = game.Players.LocalPlayer
PlayerGui = Player:WaitForChild("PlayerGui")
Screen = Instance.new("ScreenGui",PlayerGui)
Button = Instance.new("TextButton",Screen)
Button.Position = UDim2.new(1,-110,1,-110)
Button.Size = UDim2.new(0,100,0,100)
CTab = {}
LastTab = {}
function NewC(table,name,func)
    table[name]=func
end
function DoTab(table)
    local n = 0
    Button:Destroy()
    Button = Instance.new("TextButton",Screen)
    Button.Position = UDim2.new(1,-110,1,-110)
    Button.Size = UDim2.new(0,100,0,100)
    local CL = BrickColor.random().Color
    Button.BackgroundColor3 = CL
    Button.TextScaled = true
    Button.TextColor3 = Color3.new(1-CL.r,1-CL.g,1-CL.b)
    local asd
    asd = function()
        local f = false
        for i,v in pairs(table) do
            n = n+1
            local acc = false
            local yes = false
            local CL = BrickColor.random().Color
            Button.BackgroundColor3 = CL
            Button.TextColor3 = Color3.new(1-CL.r,1-CL.g,1-CL.b)
            Button.Text = i:sub(1,1)..n..i:sub(#i)
            Button.MouseButton1Click:connect(function()
                yes = true
                acc = true
            end)
            Button.MouseButton2Click:connect(function()
                acc = true
            end)
            repeat wait() until acc
            if yes then
                f = true
                ypcall(function() v() end)
                break
            end
        end
        if not f then
            n = 0
            asd()
        end
    end
    asd()
end
Commands = {}
NewC(Commands,"Kill",function()
    local pl = {}
    NewC(pl,"Back",function() DoTab(Commands) end)
    for i,v in pairs(game.Players:GetPlayers()) do
        NewC(pl,v.Name,function()
            v.Character:breakJoints()
            DoTab(Commands)
        end)
    end
    DoTab(pl)
end)
NewC(Commands,"nil",function()
    local pl = {}
    NewC(pl,"Back",function() DoTab(Commands) end)
    for i,v in pairs(game.Players:GetPlayers()) do
        NewC(pl,v.Name,function()
            v.Character = nil
            DoTab(Commands)
        end)
    end
    DoTab(pl)
end)
NewC(Commands,"Kick",function()
    local pl = {}
    NewC(pl,"Back",function() DoTab(Commands) end)
    for i,v in pairs(game.Players:GetPlayers()) do
        NewC(pl,v.Name,function()
            v:Destroy()
            DoTab(Commands)
        end)
    end
    DoTab(pl)
end)
NewC(CTab,"B-Admin",function()
    DoTab(Commands)
end)
DoTab(CTab)