Gui Admin Control [Lua]

  --//    Created By U_M9
 --//   Do NOT Steal And Claim As Your Own!

 local Host = game:service'Players'.LocalPlayer
        repeat wait() until Host.Character
        local Char = Host.Character
        local Root = Char:WaitForChild'HumanoidRootPart'

        local ud,c3=UDim2.new,Color3.new

        local Core = {
                Commands={};
                Functions={};
        };

        local CmdFrame, PlayerListFrame = nil,nil,nil,nil
        Functions = Core.Functions


        function Functions:AddCommand(name, Desc, functio)
                local Command = {
            ['Name']=name,
            ['Desc']=Desc,
            ['Func']=functio,
            }
            table.insert(Core.Commands, Command)
        end

        Functions:AddCommand('ForceField', 'Add a protective ForceField around a ROBLOXian, capable of deminishing the purpose of ROBLOX\'s default explosion. Also protection against "Humanoid:TakeDamage(#)"', function(Player)
                Instance.new('ForceField', Player.Character)
        end)

        Functions:AddCommand('Un - ForceField', 'Remove a ROBLOXian\'s protective ForceField', function(Player)
                repeat Player.Character.ForceField:Destroy() wait() until not Player.Character:FindFirstChild'ForceField'
        end)

        Functions:AddCommand('Teleport To Me', 'Teleport a ROBLOXian to you', function(Player)
                Player.Character:MoveTo(Host.Character.HumanoidRootPart.Position)
        end)

        Functions:AddCommand('Teleport To', 'Teleport to a ROBLOXian', function(Player)
                Host.Character:MoveTo(Player.Character.HumanoidRootPart.Position)
        end)
        local down = 0

        function Functions:Players(command)
         for Index, Player in next, game:service'Players':GetPlayers() do
                down = down + 20
                        local PName = Instance.new('TextButton')
                        PName.BackgroundTransparency=0
                        PName.FontSize='Size12'
                        PName.Font='SourceSansBold'
                        PName.Parent=PlayerListFrame
                        PName.AutoButtonColor=false
                        PName.BackgroundColor3 = Color3.new(1,1,1)
                        PName.BorderSizePixel=0
                        PName.TextStrokeTransparency=.9
                        PName.TextXAlignment='Center'
                        PName.TextYAlignment='Center'
                        PName.TextWrapped=true
                        PName.Text= Player.Name
                        PName.TextScaled=false
                        PName.Size=ud(0,100,0,20)
                        PName.Position=ud(0,0,0,down)
                        local clr=PName.BackgroundColor3
                        PName.MouseEnter:connect(function()
                                clr=Color3.new(.7,.7,.7)
                        end)
                        PName.MouseLeave:connect(function()
                                clr=Color3.new(1,1,1)
                        end)
                        PName.MouseButton1Click:connect(function()
    PlayerListFrame:ClearAllChildren()
    down = 0
                        command(Player)
                        end)
                        end
end

        function Functions:GenCommands(SizeXY, SpacingXY)
                repeat wait() until CmdFrame ~= nil and PlayerListFrame ~= nil
                CmdFrame.Visible = true
                PlayerListFrame.Visible = true
                for i = 0,1,.025 do
                        local tr = 1.75
                        CmdFrame.Transparency=tr-i
                        delay(.15,function()
                                PlayerListFrame.Transparency=tr-i
                        end)
                        game:service'RunService'.RenderStepped:wait()
                end
                 local SAX = SizeXY[1]
                local SAY = SizeXY[2]

                if SAX > 70 then

                end

                local SBX = SpacingXY[1]
                local SBY = SpacingXY[2]

                local Over, Down, First = 0, 0, true
                local alg = math.floor((CmdFrame.Size.X.Offset/(SAX+3)))
                for Name, Data in next, Core.Commands do
                        local Command = Instance.new('TextButton')
                        Command.BackgroundTransparency=0
                        Command.FontSize='Size12'
                        Command.Font='SourceSansBold'
                        Command.Parent=CmdFrame
                        Command.AutoButtonColor=false
                        Command.BackgroundColor3 = Color3.new(1,1,1)
                        Command.BorderSizePixel=0
                        Command.TextStrokeTransparency=.9
                        Command.TextXAlignment='Center'
                        Command.TextYAlignment='Center'
                        Command.TextWrapped=true
                        Command.Text= Data.Name
                        Command.TextScaled=false
                        Command.Size=ud(0,SAX,0, SAY)
                        Command.Position=ud(-1,0,0,SBY+(SAX*(Down)))
                        local clr=Command.BackgroundColor3
                        Command.MouseEnter:connect(function()
                                clr=Color3.new(.7,.7,.7)
                        end)
                        Command.MouseLeave:connect(function()
                                clr=Color3.new(1,1,1)
                        end)
                        Command.MouseButton1Click:connect(function()
    PlayerListFrame:ClearAllChildren()
    down = 0
    Functions:Players(Data.Func)
                end)
                        if Over >= alg-1 then
                                Down = Down + 1
                                Over = 0
                        end
                        if First then
                                --First = not First
                                CmdFrame:TweenSize(ud(0,(((SBX*(Over+1))+(SAX*(Over)))*(alg-1))+12,1,-6),'Out','Sine',1,true)
                        end
                        Command:TweenPosition(ud(0,(SBX*(Over+1))+(SAX*(Over)),0,(SBY*(Down+1))+(SAY*(Down))),'Out','Back',.8,true)
                        Over = Over + 1
                        Command.ZIndex=4
                        wait(.1)
                end
        end

        function Functions:MakeMonitor()
                local Gui = Instance.new("ScreenGui",Host.PlayerGui)
                Gui.Name = "Surface"

                local GuiContent = Instance.new("Frame", Gui)
                GuiContent.BackgroundTransparency = 1
                GuiContent.Size=ud(1,0,1,0)
                GuiContent.ClipsDescendants=true
                GuiContent.BorderSizePixel=0

                CmdFrame = Instance.new("ScrollingFrame", GuiContent)
                CmdFrame.BackgroundTransparency = 1
                CmdFrame.Size=ud(0,300,1,-6)
                CmdFrame.Position = ud(0,3,0,3)
                local sbc=2114473
                CmdFrame.TopImage = 'rbxassetid://'..sbc
                CmdFrame.MidImage = 'rbxassetid://'..sbc
                CmdFrame.BottomImage = 'rbxassetid://'..sbc
                CmdFrame.BackgroundColor3=c3(.4,.4,.4)
                CmdFrame.BorderSizePixel=0
                CmdFrame.BorderColor3 = c3(0,0,0)
                CmdFrame.Visible = false


                local noded = Instance.new("Frame", GuiContent)
                noded.BackgroundTransparency = 1
                noded.Size=ud(0,300,1,-6)
                noded.Position = ud(0,3,0,3)
                noded.BackgroundColor3=c3(.4,.4,.4)
                noded.BorderSizePixel=0
                noded.BorderColor3 = c3(0,0,0)
                noded.Visible = true
noded.MouseLeave:connect(function()
        CmdFrame:TweenPosition(UDim2.new(-1,0,0, 0),'Out','Sine',.5,true)
end)

noded.MouseEnter:connect(function()
        CmdFrame:TweenPosition(UDim2.new(0,3,0,3),'Out','Sine',.5,true)
end)

                PlayerListFrame = Instance.new("ScrollingFrame", GuiContent)
                PlayerListFrame.BackgroundTransparency = 1
                PlayerListFrame.Size=ud(0.106, 0,1, 0)
                PlayerListFrame.Position = ud(0.892, 0,0.002, 0)
                PlayerListFrame.BackgroundColor3=c3(.4,.4,.4)
                PlayerListFrame.BorderSizePixel=0
                PlayerListFrame.BorderColor3 = c3(0,0,0)
                PlayerListFrame.Visible = false
                PlayerListFrame.CanvasSize = ud(0,0,0,0)


local ghgh = Instance.new("Frame", GuiContent)
                ghgh.BackgroundTransparency = 1
                ghgh.Size=ud(0.106, 0,1, 0)
                ghgh.Position = ud(0.892, 0,0.002, 0)
                ghgh.BackgroundColor3=c3(.4,.4,.4)
                ghgh.BorderSizePixel=0
                ghgh.BorderColor3 = c3(0,0,0)
                ghgh.Visible = true

ghgh.MouseLeave:connect(function()
        PlayerListFrame:TweenPosition(UDim2.new(1, 0,0.002, 0),'Out','Sine',.5,true)
end)

ghgh.MouseEnter:connect(function()
        PlayerListFrame:TweenPosition(UDim2.new(0.892, 0,0.002, 0),'Out','Sine',.5,true)
end)

                Functions:GenCommands({70,35},{9,9})
end


        spawn(function()
                Functions:MakeMonitor()
        end)