View difference between Paste ID: SMP0jgAj and GUkzLnZu
SHOW: | | - or go back to the newest paste.
1
-- Objects
2
3
local KohlsAdminGui = Instance.new("ScreenGui")
4
local Frame = Instance.new("Frame")
5
local KAHTitle = Instance.new("TextLabel")
6
local Nama = Instance.new("TextBox")
7
local Ban = Instance.new("TextButton")
8
local Kick = Instance.new("TextButton")
9
local Unlock = Instance.new("TextButton")
10
local Admin = Instance.new("TextButton")
11
local Data = Instance.new("TextBox")
12
local Tutup = Instance.new("TextButton")
13
14
-- Properties
15
16
KohlsAdminGui.Name = "KohlsAdminGui"
17
KohlsAdminGui.Parent = game.CoreGui
18
19
Frame.Parent = KohlsAdminGui
20
Frame.Active = true
21
Frame.BackgroundColor3 = Color3.new(0.333333, 1, 0)
22
Frame.BackgroundTransparency = 0.20000000298023
23
Frame.Position = UDim2.new(0.162679419, 0, 0.222444892, 0)
24
Frame.Size = UDim2.new(0, 422, 0, 300)
25
Frame.Draggable = true
26
27
KAHTitle.Name = "KAHTitle"
28
KAHTitle.Parent = Frame
29
KAHTitle.BackgroundColor3 = Color3.new(1, 1, 1)
30
KAHTitle.BackgroundTransparency = 1
31
KAHTitle.Size = UDim2.new(0, 422, 0, 36)
32
KAHTitle.Font = Enum.Font.SourceSansBold
33
KAHTitle.Text = "KOHLS ADMIN GUI"
34
KAHTitle.TextColor3 = Color3.new(0, 0, 0)
35
KAHTitle.TextSize = 25
36
37
Nama.Name = "Nama"
38
Nama.Parent = Frame
39
Nama.BackgroundColor3 = Color3.new(0, 0, 0)
40
Nama.BorderColor3 = Color3.new(0.333333, 1, 1)
41
Nama.BorderSizePixel = 2
42
Nama.Position = UDim2.new(0.120853081, 0, 0.156956524, 0)
43
Nama.Size = UDim2.new(0, 319, 0, 50)
44
Nama.Font = Enum.Font.SourceSansBold
45
Nama.Text = "Nama Player"
46
Nama.TextColor3 = Color3.new(1, 1, 1)
47
Nama.TextSize = 25
48
49
Ban.Name = "Ban"
50
Ban.Parent = Frame
51
Ban.BackgroundColor3 = Color3.new(0, 0, 0)
52
Ban.BorderColor3 = Color3.new(0.333333, 1, 1)
53
Ban.BorderSizePixel = 2
54
Ban.Position = UDim2.new(0.01421801, 0, 0.352753609, 0)
55
Ban.Size = UDim2.new(0, 200, 0, 50)
56
Ban.Font = Enum.Font.SourceSansBold
57
Ban.Text = "Banned !"
58
Ban.TextColor3 = Color3.new(1, 1, 1)
59
Ban.TextSize = 25
60
61
Kick.Name = "Kick"
62
Kick.Parent = Frame
63
Kick.BackgroundColor3 = Color3.new(0, 0, 0)
64
Kick.BorderColor3 = Color3.new(0.333333, 1, 1)
65
Kick.BorderSizePixel = 2
66
Kick.Position = UDim2.new(0.51184833, 0, 0.352753609, 0)
67
Kick.Size = UDim2.new(0, 200, 0, 50)
68
Kick.Font = Enum.Font.SourceSansBold
69
Kick.Text = "Kick !"
70
Kick.TextColor3 = Color3.new(1, 1, 1)
71
Kick.TextSize = 25
72
73
Unlock.Name = "Unlock"
74
Unlock.Parent = Frame
75
Unlock.BackgroundColor3 = Color3.new(0, 0, 0)
76
Unlock.BorderColor3 = Color3.new(0.333333, 1, 1)
77
Unlock.BorderSizePixel = 2
78
Unlock.Position = UDim2.new(0.48815167, 0, 0.569999993, 0)
79
Unlock.Size = UDim2.new(0, 199, 0, 50)
80
Unlock.Font = Enum.Font.SourceSansBold
81
Unlock.Text = "Buka Workspace"
82
Unlock.TextColor3 = Color3.new(1, 1, 1)
83
Unlock.TextSize = 25
84
85
Admin.Name = "Admin"
86
Admin.Parent = Frame
87
Admin.BackgroundColor3 = Color3.new(0, 0, 0)
88
Admin.BorderColor3 = Color3.new(0.333333, 1, 1)
89
Admin.BorderSizePixel = 2
90
Admin.Position = UDim2.new(0.48815167, 0, 0.779999971, 0)
91
Admin.Size = UDim2.new(0, 198, 0, 50)
92
Admin.Font = Enum.Font.SourceSansBold
93
Admin.Text = "GET ADMIN !"
94
Admin.TextColor3 = Color3.new(1, 1, 1)
95
Admin.TextSize = 25
96
97
Data.Name = "Data"
98
Data.Parent = Frame
99
Data.BackgroundColor3 = Color3.new(0, 0, 0)
100
Data.BorderColor3 = Color3.new(0.333333, 1, 1)
101
Data.BorderSizePixel = 2
102
Data.Position = UDim2.new(0.0450236946, 0, 0.569999993, 0)
103
Data.Size = UDim2.new(0, 156, 0, 103)
104
Data.Font = Enum.Font.SourceSansBold
105
Data.Text = "Data"
106
Data.TextColor3 = Color3.new(1, 1, 1)
107
Data.TextSize = 15
108
109
Tutup.Name = "Tutup"
110
Tutup.Parent = Frame
111
Tutup.BackgroundColor3 = Color3.new(0, 0, 0)
112
Tutup.BorderColor3 = Color3.new(0.333333, 1, 1)
113
Tutup.BorderSizePixel = 2
114
Tutup.Position = UDim2.new(0.876777232, 0, 0, 0)
115
Tutup.Size = UDim2.new(0, 52, 0, 36)
116
Tutup.Font = Enum.Font.SourceSansBold
117
Tutup.Text = "X"
118
Tutup.TextColor3 = Color3.new(1, 1, 1)
119
Tutup.TextSize = 25
120
121
-- ANWARUN SECURITY CODE
122
123
Tutup.MouseButton1Down:connect(function()
124
Frame.Visible = false
125
end)
126
127
Unlock.MouseButton1Down:connect(function()
128
for i,v in pairs(game.Workspace:GetDescendants()) do
129
if v:IsA("Part") then 
130
v.Locked = false
131
print("Unlocked" .. v.Name)
132
Data.Text = "Unlocked" .. v.Name
133
end end
134
end)
135
136
Admin.MouseButton1Down:connect(function()
137
now = game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame
138
139
game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame
140
=
141
game.Workspace.Terrain.GameFolder.Admin.Pads['Touch to get admin'].Head.CFrame
142
143
wait(0.2)
144
145
game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = now
146
end)
147
148
function GetPlayer(plrname)
149
	for _,player in pairs(game.Players:GetPlayers()) do
150
		if plrname:lower() == player.Name:sub(1,plrname:len()):lower() then
151
			return player
152
		end
153
	end
154
	return nil
155
end
156
157
local Banned = {}
158
159
Ban.MouseButton1Down:connect(function()
160
	local target = GetPlayer(Nama.Text)
161
	if target then
162
		table.insert(Banned,target.Name)
163
		wait(0.5)
164
		game.Players.LocalPlayer.Backpack.Delete.delete:FireServer(target)
165
Data.Text = "Banned ! Player Name :" .. Nama.Text
166
print('Banned ! Player Name : ',Nama.Text)
167
	end
168
end)
169
170
Kick.MouseButton1Down:connect(function()
171
	local target = GetPlayer(Nama.Text)
172
	if target then
173
		game.Players.LocalPlayer.Backpack.Delete.delete:FireServer(target)
174
Data.Text = "Kicked ! Player Name :" .. Nama.Text
175
print("Kicked ! Player Name: ", Nama.Text)
176
	end
177
end)
178
179
game.Players.PlayerAdded:connect(function(plr)
180
	for i = 1,#Banned do
181
		if Banned[i] == plr.Name then
182
			game.Players.LocalPlayer.Backpack.Delete.delete:FireServer(plr)
183
		end
184
	end
185
end)
186
187
while true do
188
	wait(1)
189
	if not game.Players.LocalPlayer.Backpack:FindFirstChild("Delete") then
190
		game:GetService'Players':Chat(":btools me")
191
	end
192
end