A5 - Commands

return {
    {Name = "Ping", Desc = "Put a message out on a tablet (only to yourself)", Command = "P", Rank = 1, Function = function(plr,msg)
        Functions.Tablet(plr, "random", msg, "exit", nil)
    end};
    {Name = "Font", Desc = "Change your font (only ranked)", Command = "Font", Rank = 1, Function = function(plr,msg)
        local Fonts = {"Arial", "ArialBold", "Legacy", "SourceSans", "SourceSansBold", "SourceSansItalic", "SourceSansLight"}
        for _,fonttable in next,Fonts do
            Functions.Tablet(plr, "random", fonttable, function()
                local DataFont = Functions.ChangeData(plr.Name, "Font", fonttable)
                if DataFont then
                    Functions.Dismiss(plr, Functions.GetData(plr.Name, "Tablets"))
                    Functions.Tablet(plr, "Lime green", "Font set to "..Functions.GetData(plr.Name, "Font")
.."!", "exit", nil)
                end
            end, nil)
        end
    end};
    {Name = "Dismiss", Desc = "Remove your tablets", Command = "Dt", Rank = 0, Function = function(plr,msg)
        Functions.Dismiss(plr, "All")
    end};
    {Name = "Dismiss all", Desc = "Remove everyone\'s tablets", Command = "/Dt", Rank = 1, Function = function(plr,msg)
        for _,Player in next,Services.Players:GetPlayers() do
            Functions.Dismiss(Player, "All")
        end
    end};
    {Name = "Commands", Desc = "Shows the commands on this admin", Command = "Cmds", Rank = 0, Function = function(plr,msg)
        local UserRank = Functions.GetData(plr.Name, "Rank") or 0
        OpenCommands = function()
            Functions.Dismiss(plr, "All")
            for _,v in next,Alunite.Commands do
                if UserRank >= v.Rank then
                    Functions.Tablet(plr, "random", v.Name, function()
                        Functions.Dismiss(plr, "All")
                        Functions.Tablet(plr, "random", "Name: "..v.Name, "exit", nil)
                        Functions.Tablet(plr, "random", "Command: "..v.Command, "exit", nil)
                        Functions.Tablet(plr, "random", "Rank: "..v.Rank, "exit", nil)
                        Functions.Tablet(plr, "random", "Desc: "..v.Desc, "exit", nil)
                        Functions.Tablet(plr, "random", "Back to menu", OpenCommands, nil)
                    end, nil)
                end
            end
        end;OpenCommands()
    end};
    {Name = "Update", Desc = "Updates the admin without removing it", Command = "Update", Rank = 1, Function = function(plr,msg)
        pcall(function()
            Functions.LoadDatabase()
        end)
        local Result = Functions.DatabaseResult()
        if string.lower(tostring(Result)) ~= "true" then
            Functions.Tablet(plr, "Really red","Database update failed!", "exit", nil)
        else
            Functions.Tablet(plr, "Lime green","Database updated!", "exit", nil)
        end
        Functions.ServiceBans()
    end};
    {Name = "Execute", Desc = "Execute shit using NLS (Sandbox broke execute)", Command = "/b", Rank = 1, Function = function(plr,msg)
        coroutine.resume(coroutine.create(function()
            Functions.Breakout(plr, msg)
        end))
    end};
    {Name = "Kick", Desc = "Remove a player from the server", Command = "/k", Rank = 2, Function = function(plr,msg)
        local Player = Functions.GetPlayer(msg,string.len(msg))
        if Player then
            Player:Kick("You have been kicked by : "..plr.Name.." by Alunite")
        end
    end};
    {Name = "Go nil - player", Desc = "Remove a player into nil", Command = "/nil", Rank = 1, Function = function(plr,msg)
        local Player = Functions.GetPlayer(msg,string.len(msg))
        if Player then
            NLS([[
                local Player = game.Players.LocalPlayer
                Player.Parent = nil
            ]],Player:WaitForChild("PlayerGui"))
        end
    end};
    {Name = "Go nil - character", Desc = "Remove a player\'s character", Command = "nil", Rank = 0, Function = function(plr,msg)
        if Player and Player.Character then
            Player.Character = nil
        end
    end};
    {Name = "Respawn", Desc = "Reload a character", Command = "/r", Rank = 0, Function = function(plr,msg)
        local Player = Functions.GetPlayer(msg,string.len(msg))
        if Player then
            Player:LoadCharacter()
        end
    end};
    {Name = "Ban", Desc = "Ban a player from the server", Command = "/sban", Rank = 3, Function = function(plr,msg)
        local Player = Functions.GetPlayer(msg,string.len(msg))
        if Player then
            table.insert(Alunite.Banned, Player.Name)
            Functions.ServiceBans()
        end
    end};
    {Name = "Search-Music", Desc = "Search music from HTTP", Command = "/s", Rank = 2, Function = function(plr,msg)
        local Http = Services.HttpService
        local KeyWords = Http:UrlEncode(msg)
        local Url = "http://rproxy.pw/catalog/json?Keyword="..tostring(KeyWords).."&Category=9&ResultsPerPage=30"
        local Assets = Http:JSONDecode(Http:GetAsync(Url))

        local ShowMusic = function()
            Functions.Dismiss(plr, "All")
            for _,a in next,Assets do
                Functions.Tablet(plr, "White", a.Name, function()
                    Functions.Dismiss(plr, "All")
                    Functions.Tablet(plr, "random", "Play - Local", function() Functions.PlayMusic(a.AssetId, true) end, nil)
                    Functions.Tablet(plr, "random", "Play - Server", function() Functions.PlayMusic(a.AssetId, false) end, nil)
                    Functions.Tablet(plr, "random", "Name : "..a.Name, "exit", nil)
                    Functions.Tablet(plr, "random", "Sales : "..a.Sales, "exit", nil)
                    Functions.Tablet(plr, "random", "AssetID : "..a.AssetId, "exit", nil)
                    Functions.Tablet(plr, "random", "Back to menu", ShowMusic, nil)
                    Functions.Tablet(plr, "random", "Dismiss", function() Functions.Dismiss(plr, "All") end, nil)
                end, nil)
            end
        end;ShowMusic()
    end};
}