View difference between Paste ID: VyW3BHHt and R925Cg0E
SHOW: | | - or go back to the newest paste.
1
return {
2-
	{Name = "Ping", Desc = "Put a message out on a tablet (only to yourself)", Command = "P", Rank = 1, Function = function(plr,msg)
2+
	{Name = "Playlist", Desc = "Show the music playlist", Command = "Plist", Rank = 2, Function = function(plr,msg)
3
		Functions.Mlist(plr)
4
	end};
5-
	{Name = "Font", Desc = "Change your font (only ranked)", Command = "Font", Rank = 1, Function = function(plr,msg)
5+
	{Name = "Ping", Desc = "Ping a message to yourself", Command = "P", Rank = 1, Function = function(plr,msg)
6-
		local Fonts = {"Arial", "ArialBold", "Legacy", "SourceSans", "SourceSansBold", "SourceSansItalic", "SourceSansLight"}
6+
7-
		for _,fonttable in next,Fonts do
7+
8-
			Functions.Tablet(plr, "random", fonttable, function()
8+
	{Name = "AFK", Desc = "Tell others you are AFK", Command = "Afk", Rank = 0, Function = function(plr,msg)
9-
				local DataFont = Functions.ChangeData(plr.Name, "Font", fonttable)
9+
		for i=1,5 do
10-
				if DataFont then
10+
		Functions.Tablet(plr, "random", plr.Name.." is AFK", "exit", nil)
11-
					Functions.Dismiss(plr, Functions.GetData(plr.Name, "Tablets"))
11+
12-
					Functions.Tablet(plr, "Lime green", "Font set to "..Functions.GetData(plr.Name, "Font")
12+
		Functions.Tablet(plr, "Really red", "Dismiss", function()
13-
.."!", "exit", nil)
13+
			Functions.Dismiss(plr,"All")
14
		end)
15-
			end, nil)
15+
16
	{Name = "Dismiss", Desc = "Remove your tablets", Command = "Dt", Rank = 0, Function = function(plr,msg)
17
		Functions.Dismiss(plr, "All")
18
	end};
19
	{Name = "Dismiss all", Desc = "Remove everyone\'s tablets", Command = "dta", Rank = 1, Function = function(plr,msg)
20
		for _,Player in next,Services.Players:GetPlayers() do
21-
	{Name = "Dismiss all", Desc = "Remove everyone\'s tablets", Command = "/Dt", Rank = 1, Function = function(plr,msg)
21+
22
		end
23
	end};
24
	{Name = "Commands", Desc = "Shows the commands on this admin", Command = "Cmds", Rank = 1, Function = function(plr,msg)
25
		local UserRank = Functions.GetData(plr.Name, "Rank") or 0
26-
	{Name = "Commands", Desc = "Shows the commands on this admin", Command = "Cmds", Rank = 0, Function = function(plr,msg)
26+
27
			Functions.Dismiss(plr, "All")
28
			Functions.Tablet(plr, "Really red", "Dismiss",function()
29
				Functions.Dismiss(plr,"All")
30-
			for _,v in next,Alunite.Commands do
30+
			end)
31
			for _,v in next,Thorium.Commands do
32
				if UserRank >= v.Rank then
33
					Functions.Tablet(plr, "random", v.Name, function()
34
						Functions.Dismiss(plr, "All")
35
						Functions.Tablet(plr, "random", "Name: "..v.Name, "exit", nil)
36
						Functions.Tablet(plr, "random", "Command: "..v.Command, "exit", nil)
37
						Functions.Tablet(plr, "random", "Rank: "..v.Rank, "exit", nil)
38-
						Functions.Tablet(plr, "random", "Back to menu", OpenCommands, nil)
38+
39
						Functions.Tablet(plr, "random", "Back", OpenCommands, nil)
40
					end, nil)
41
				end
42
			end
43
		end;OpenCommands()
44-
	{Name = "Update", Desc = "Updates the admin without removing it", Command = "Update", Rank = 1, Function = function(plr,msg)
44+
45
46
	{Name = "Update", Desc = "Updates the admin.", Command = "updt", Rank = 5, Function = function(plr,msg)
47
		pcall(function()
48
			Functions.LoadDatabase()
49
		end)
50
		local Result = Functions.DatabaseResult()
51
		if string.lower(tostring(Result)) ~= "true" then
52
			Functions.Tablet(plr, "Really red","Database update failed!", "exit", nil)
53
		else
54
			Functions.Tablet(plr, "Lime green","Database updated!", "exit", nil)			
55
		end
56-
	{Name = "Execute", Desc = "Execute shit using NLS (Sandbox broke execute)", Command = "/b", Rank = 1, Function = function(plr,msg)
56+
57-
		coroutine.resume(coroutine.create(function()
57+
58-
			Functions.Breakout(plr, msg)
58+
	{Name = "Search-Music", Desc = "Search music from HTTP", Command = "/sm", Rank = 2, Function = function(plr,msg)
59-
		end))
59+
60
		local KeyWords = Http:UrlEncode(msg)
61-
	{Name = "Kick", Desc = "Remove a player from the server", Command = "/k", Rank = 2, Function = function(plr,msg)
61+
		local Url = "http://frednet.ftp.sh/api/musicSearch.php?param="..tostring(KeyWords)
62-
		local Player = Functions.GetPlayer(msg,string.len(msg))
62+
63-
		if Player then
63+
64-
			Player:Kick("You have been kicked by : "..plr.Name.." by Alunite")
64+
65
			Functions.Dismiss(plr, "All")
66
				Functions.Tablet(plr, "Really red", "Dismiss", function()
67-
	{Name = "Go nil - player", Desc = "Remove a player into nil", Command = "/nil", Rank = 1, Function = function(plr,msg)
67+
68-
		local Player = Functions.GetPlayer(msg,string.len(msg))
68+
				end)
69-
		if Player then
69+
70-
			NLS([[
70+
				Functions.Tablet(plr, "random", a.Name, function()
71-
				local Player = game.Players.LocalPlayer
71+
72-
				Player.Parent = nil
72+
73-
			]],Player:WaitForChild("PlayerGui"))
73+
74
					Functions.Tablet(plr, "random", "Name : "..a.Name, "exit", nil)
75
					Functions.Tablet(plr, "random", "Sales : "..a.Sales, "exit", nil)
76-
	{Name = "Go nil - character", Desc = "Remove a player\'s character", Command = "nil", Rank = 0, Function = function(plr,msg)
76+
77-
		if Player and Player.Character then
77+
					Functions.Tablet(plr, "random", "Back", ShowMusic, nil)
78-
			Player.Character = nil
78+
79
				end, nil)
80
			end
81-
	{Name = "Respawn", Desc = "Reload a character", Command = "/r", Rank = 0, Function = function(plr,msg)
81+
82-
		local Player = Functions.GetPlayer(msg,string.len(msg))
82+
83-
		if Player then
83+