View difference between Paste ID: yJhcaFUi and 6R4fPgGQ
SHOW: | | - or go back to the newest paste.
1
--if you are going to use this, run normally
2-
pl = game.Players['AtlasGrim']
2+
pl = game.Players['Supersonicfan111']
3
4
mouse=pl:GetMouse()
5
colorscheme = BrickColor.new'White'
6
7
function tablet() --Makes tablet.
8
t = Instance.new('Part', workspace)
9
t.Size = Vector3.new(20,20,1)
10
t.BrickColor = colorscheme
11
t.Anchored = true
12
t.Locked = true
13
t.Transparency=0.5
14
t.CanCollide=false
15
tc = t:Clone()
16
end
17
18
tablet() --Calls tablet.
19
20
function gui() --Makes gui.
21
sg = Instance.new('SurfaceGui', pl.PlayerGui)
22
sg.Adornee = t
23
sg.Face = 'Back'
24
end
25
gui()
26
val = Instance.new('StringValue', pl)
27
val.Name = 'CommandList'
28
29
function op(str,f) -- Output text (string, function)
30
local h = Instance.new('TextButton', sg)
31
local v = Instance.new('StringValue', val)
32
h.MouseButton1Down:connect(f)
33
h.Size = UDim2.new(1,0,1/16,0)
34
h.BackgroundColor3 = colorscheme.Color
35
h.Position = UDim2.new(0,0,(1/16) *(#val:GetChildren()-1),0)
36
h.FontSize = 'Size18'
37
h.BorderSizePixel = 0
38
h.TextColor3 = Color3.new(1,1,1)
39
h.BackgroundTransparency = 0
40
h.Text = str
41
end
42
43
function clr() --Clear gui.
44
val:ClearAllChildren()
45
sg:ClearAllChildren()
46
end
47
48
function menu(p,isnil) --Command menu for each player.
49
op(p.Name,function() end)
50
op('Age : '..tostring(p.AccountAge),function() end)
51
op('Kill',function() pcall(function() p.Character:BreakJoints() end) end)
52
op('[ Exit ]',function() pcall(function() clr(); gm() end) end)
53
end
54
55
function gp(p) --Gets the players.
56
local plist = {}
57
for _,v in pairs(game:service'NetworkServer':children()) do
58
if v:GetPlayer() then
59
table.insert(plist,v:GetPlayer())
60
end
61
end
62
for i,v in pairs(plist) do
63
if v.Parent == game.Players then
64
op(v.Name,function() clr(); menu(v); end)
65
else
66
op('[ Nil ] : '..v.Name,function() clr(); menu(v,true); end)
67
end
68
end
69
op('[ Exit ]',function() pcall(function() clr(); gm() end) end)
70
end
71
72
function gm() --General menu. When the admin loads, this is the first thing you see.
73
op('Sample Admin',function() end)
74
op('By AtlasGrim',function() end)
75
op('[ Players ]',function() clr(); gp(pl); end)
76
op('[ Test ]',function() clr();  wait(5) gm() end)
77
end
78
pl.CharacterAdded:connect(function()
79
gui()
80
val:ClearAllChildren()
81
gm()
82
end)
83
84
workspace.DescendantRemoving:connect(function(descendant) --To prevent g/c
85
if descendant == t then
86
t = tc:Clone()
87
t.Parent = workspace
88
clr()
89
pcall(function() sg.Adornee = t end)
90
gm()
91
end        
92
end)
93
94
gm() --Calls general menu.
95
96
game:service'RunService'.Stepped:connect(function()
97
pcall(function()
98
t.CFrame = pl.Character.Torso.CFrame * CFrame.new(0,10,-8) * CFrame.Angles(math.rad(-10),0,0)
99
end)
100
end)