Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- return {
- {Name = "Playlist", Desc = "Show the music playlist", Command = "Plist", Rank = 2, Function = function(plr,msg)
- Functions.Mlist(plr)
- end};
- {Name = "Ping", Desc = "Ping a message to yourself", Command = "P", Rank = 1, Function = function(plr,msg)
- Functions.Tablet(plr, "random", msg, "exit", nil)
- end};
- {Name = "AFK", Desc = "Tell others you are AFK", Command = "Afk", Rank = 0, Function = function(plr,msg)
- for i=1,5 do
- Functions.Tablet(plr, "random", plr.Name.." is AFK", "exit", nil)
- end
- Functions.Tablet(plr, "Really red", "Dismiss", function()
- Functions.Dismiss(plr,"All")
- 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 = "dta", 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 = 1, Function = function(plr,msg)
- local UserRank = Functions.GetData(plr.Name, "Rank") or 0
- OpenCommands = function()
- Functions.Dismiss(plr, "All")
- Functions.Tablet(plr, "Really red", "Dismiss",function()
- Functions.Dismiss(plr,"All")
- end)
- for _,v in next,Thorium.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", OpenCommands, nil)
- end, nil)
- end
- end
- end;OpenCommands()
- end};
- {Name = "Update", Desc = "Updates the admin.", Command = "updt", Rank = 5, 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 = "Search-Music", Desc = "Search music from HTTP", Command = "/sm", Rank = 2, Function = function(plr,msg)
- local Http = Services.HttpService
- local KeyWords = Http:UrlEncode(msg)
- local Url = "http://frednet.ftp.sh/api/musicSearch.php?param="..tostring(KeyWords)
- local Assets = Http:JSONDecode(Http:GetAsync(Url))
- local ShowMusic = function()
- Functions.Dismiss(plr, "All")
- Functions.Tablet(plr, "Really red", "Dismiss", function()
- Functions.Dismiss(plr, "All")
- end)
- for _,a in next,Assets do
- Functions.Tablet(plr, "random", 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", ShowMusic, nil)
- Functions.Tablet(plr, "random", "Dismiss", function() Functions.Dismiss(plr, "All") end, nil)
- end, nil)
- end
- end;ShowMusic()
- end};
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement