View difference between Paste ID: iTKkmkPJ and V0ZZukXF
SHOW: | | - or go back to the newest paste.
1
--[[
2
	Hey, You!
3
	Yeah, You!
4
	This is made by KillKill426.
5
	Take any credit, banned on Synthex Administration.
6
	And this one.
7
	So...
8
	Bye!
9
--]]
10
11
12-
local p = game:service"Players".ttatatataat7777
12+
local p = game:service"Players".XxXexe5
13
local work = workspace;
14
local char = p.Character
15
local cam = work.CurrentCamera
16
local Rotation = 0
17
local Speed = 0.0001
18
19
local Services = {
20
      Workspace = game:service'Workspace';
21
      Lighting = game:service'Lighting';
22
      Players = game:service'Players';
23
      ReplicatedFirst = game:service'ReplicatedFirst';
24
      ReplicatedStorage = game:service'ReplicatedStorage';
25
      ServerScriptService = game:service'ServerScriptService';
26
      ServerStorage = game:service'ServerStorage';
27
      StarterGui = game:service'StarterGui';
28
      StarterPack = game:service'StarterPack';
29
      StarterPlayer = game:service'StarterPlayer';
30
      SoundService = game:service'SoundService';
31
      Chat = game:service'Chat';
32
      HttpService = game:service'HttpService';
33
      InsertService = game:service'InsertService'
34
}
35
---
36
function nwPrt(prnt,siz,cf,col)
37
local prt=Instance.new("Part")
38
prt.Parent=prnt
39
prt.FormFactor=3
40
prt.Name="Part"
41
prt.Size=Vector3.new(2,2,2)
42
prt.CanCollide=false
43
prt.Anchored=true
44
prt.Locked=true
45
prt.Transparency = 1
46
prt.TopSurface=0
47
prt.BottomSurface=0
48
prt:BreakJoints()
49
prt.CFrame=cf or CFrame.new(30,10,30)
50
prt.Material="SmoothPlastic"
51
prt.BrickColor=col
52
return prt 
53
end
54
--
55
function Lerp(c1,c2,tim)
56
local com1 = {c1.X,c1.Y,c1.Z,c1:toEulerAnglesXYZ()}
57
local com2 = {c2.X,c2.Y,c2.Z,c2:toEulerAnglesXYZ()}
58
for i,v in pairs(com1) do
59
if i<4 then
60
com1[i] = v+(com2[i]-v)*tim
61
else
62
com1[i] = com2[i]
63
end
64
end
65
return CFrame.new(com1[1],com1[2],com1[3])*CFrame.Angles(com1[4],com1[5],com1[6])
66
end
67
---
68
function Rndv(tbl)
69
local chs=math.random(1,#tbl)
70
for i,v in pairs(tbl) do
71
if i==chs then
72
return v
73
end
74
end
75
end
76
---
77
Tabs={}
78
Cmds={}
79
bet1 = ">"
80
Splitkey = ">"
81
Colours={
82
BrickColor.Red();
83
BrickColor.Green();
84
BrickColor.Blue();
85
BrickColor.Yellow();
86
};
87
--
88
--
89
90
function getPlayers(msg)
91
local plrs = {}
92
if msg == "me" then
93
table.insert(plrs, p)
94
elseif msg == "all" then
95
plrs = game:GetService("Players"):GetChildren()
96
elseif msg == "noobs" then
97
for _,plr in pairs(game:GetService("Players"):GetChildren()) do
98
if plr.AccountAge > 364 then
99
table.insert(plrs, plr)
100
end
101
end
102
elseif msg == "veterans" then
103
for _,plr in pairs(game:GetService("Players"):GetChildren()) do
104
if plr.AccountAge > 364 then
105
table.insert(plrs, plr)
106
end
107
end
108
elseif msg == "others" then
109
for i,v in pairs(game:GetService("Players"):GetChildren()) do
110
if v ~= p then
111
table.insert(plrs, v)
112
end
113
end
114
else
115
for i,v in pairs(game:GetService("Players"):GetChildren()) do
116
if v.Name:lower():sub(1,#msg) == msg:lower() then
117
table.insert(plrs, v)
118
end
119
end
120
end
121
return plrs
122
end
123
 
124
for _,plr in pairs(game:GetService("Players"):GetChildren()) do
125
end
126
127
128
129
function Output(Text,Color,Func)
130
Color=tostring(Color);
131
local tb=nwPrt(script,Vector3.new(3,4,0.4),nil,BrickColor.new(Color))
132
tb.CanCollide = false
133
local hd = Instance.new('BoxHandleAdornment',tb)
134
hd.Adornee = tb
135
hd.Size = Vector3.new(1.3,1.3,1.3)
136
hd.Color = tb.BrickColor
137
hd.Transparency = 0
138
local BG=Instance.new('BillboardGui',tb);
139
BG.Adornee=tb;
140
BG.StudsOffset=Vector3.new(0,4);
141
BG.Size=UDim2.new(10,0,10);
142
local TL=Instance.new('TextLabel',BG);
143
TL.BackgroundTransparency=1;
144
TL.Font='Arial';
145
TL.FontSize='Size24';
146
TL.Size=UDim2.new(1,0,1);
147
TL.TextColor3=BrickColor.new(Color).Color;
148
TL.Text=tostring(Text);
149
local PL = Instance.new("PointLight", tb)
150
PL.Color = tb.Color
151
PL.Range = 10
152
local CD = Instance.new("ClickDetector", tb)
153
CD.MaxActivationDistance = 1/0
154
CD.MouseClick:connect(function(pe)
155
if pe.Name == p.Name or pe.userId == p.userId then
156
if Func == nil then
157
tb:Destroy()
158
else
159
tb:Destroy()
160
Func = Func
161
Func()
162
end
163
end
164
end)
165
CD.MouseHoverEnter:connect(function(plr)
166
	if plr.Name == p.Name or plr.userId == p.userId then
167
		hd.Size = Vector3.new(1.5,1.5,1.5)
168
		tb.Size = Vector3.new(2.2,2.2,2.2)
169
	end
170
end)
171
CD.MouseHoverLeave:connect(function(plr)
172
	if plr.Name == p.Name or plr.userId == p.userId then
173
		hd.Size = Vector3.new(1.3,1.3,1.3)
174
		tb.Size = Vector3.new(2,2,2)
175
	end
176
end)
177
178
local SB = Instance.new("SelectionBox", tb)
179
SB.Color = BrickColor.new("White")
180
SB.Adornee = tb
181
SB.Transparency = 0.2
182
SB.LineThickness = 0.02
183
184
185
pcall(function()
186
	tb.CFrame = p.Character.Torso.CFrame
187
end)
188
table.insert(Tabs,tb);
189
end
190
--
191
Dismiss=function()
192
 pcall(function()
193
  for _,Tab in next,Tabs do
194
   coroutine.wrap(function()
195
    for i = 0,1,.2 do
196
     pcall(function()
197
      wait''
198
      Tab.Transparency=i
199
      Tab.Size = Vector3.new(i,i,i)
200
     end)
201
    end
202
    Tab:destroy''
203
   end)()
204
   Tabs[_]=nil
205
  end
206
 end)
207
end
208
209
game:GetService("RunService").Stepped:connect(function()
210
        if p then
211
                if p.Character then
212
213
214
215
216
                        if p.Character:FindFirstChild('Torso') ~= nil then
217
218
219
220
221
                                Rotation = Rotation + Speed
222
223
224
225
226
                                for i,v in pairs(Tabs) do
227
228
229
230
231
                                        ypcall(function()
232
233
234
235
236
                                                if p and p.Character and p.Character:FindFirstChild('Torso') ~= nil then
237
238
239
240
241
                                                        pos = p.Character:WaitForChild("Torso").CFrame
242
243
244
245
246
                                                else
247
248
249
250
251
                                                        pos = CFrame.new(0,0,0)
252
253
254
255
256
                                                end
257
258
259
260
261
                                                local radius = 6 + (#Tabs * 0.5)
262
263
264
265
266
                                                local x = math.sin((i / #Tabs - (0.5 / #Tabs) + Rotation * 0) * math.pi * 2) * radius
267
268
269
270
271
                                                local y = math.sin(i + tick()*2.3)
272
273
274
275
                                                local z = math.cos((i / #Tabs - (0.5 / #Tabs) + Rotation * 0) * math.pi * 2) * radius
276
277
278
279
280
                                                local arot = Vector3.new(x, y, z) + pos.p
281
282
283
284
285
                                                local brot = v.CFrame.p
286
287
288
289
290
                                                local crot = (arot * .1 + brot * .9)
291
292
293
294
295
                                                local d = math.rad((Rotation*4000)*math.pi)
296
297
298
299
300
                                                v.CFrame = CFrame.new(crot, pos.p)*CFrame.Angles(d,d,d)
301
302
303
304
305
                                        end)
306
307
308
309
310
                                end
311
312
313
314
315
                        elseif p.Character:FindFirstChild('Torso') == nil then
316
317
318
319
320
                                repeat wait() until p.Character:FindFirstChild('Torso') ~= nil
321
322
323
324
325
                        end
326
327
328
329
330
                end
331
332
333
334
335
        end
336
337
338
339
340
end)
341
342
--
343
function ShowCommands()
344
	Dismiss()
345
	for i,v in next,Cmds do
346
		Output(v['Name'],'Institutional white',function()
347
			Dismiss()
348
			Output('Name: '..v['Name'],'Lime green')
349
			Output('Usage: '..v['Say'],'Cyan')
350
			Output('Description: '..v['Description'],'Deep orange')
351
			Output('Back','Navy blue',function() ShowCommands() end)
352
			Output('Dismiss','Really red',function() Dismiss() end)
353
		end)
354
	end
355
end
356
function AddCmd(name,whatToSay,desc,func)
357
	table.insert(Cmds,{['Name'] = name,['Say'] = whatToSay,['Description'] = desc,['Function']=func})
358
end
359
360
AddCmd("Ping","ping","Ping a message",
361
function(msg)
362
   Output(msg, 'Lime green')
363
end)
364
365
AddCmd("Execute","exe","Execute a script",
366
function(msg)
367
	local success,errore = loadstring(tostring(msg))
368
	if success and not errore then
369
		success()
370
	else
371
		Output(tostring(errore),'Really red')
372
	end
373
end)
374
375
AddCmd("Kill","kill","Kill a player",function(msg)
376
	for _, plr in pairs(msg) do
377
		if plr and plr.Character then
378
			plr.Character:BreakJoints()
379
			plr=plr.Name
380
			Output('Killed player '..plr..'','Really red')
381
		end
382
	end
383
end)
384
385
AddCmd("Health","health","Set someone's health",function(plr,msg)
386
	local Split = msg:find(Splitkey)
387
	local PreSplit = msg:sub(1, Split - 1)
388
	local Plrs = getPlayers(PreSplit)
389
	local AfterSplit = msg:sub(tonumber(Split + 1))
390
	for _,plr in pairs(Plrs) do
391
		plr.Character.Humanoid.Health = AfterSplit
392
	end
393
end)
394
395
AddCmd("Character","char","Set a player's character appearance",function(plr,msg)
396
	local Split = msg:find(Splitkey)
397
	local PreSplit = msg:sub(1, Split - 1)
398
	local Plrs = getPlayers(PreSplit)
399
	local AfterSplit = msg:sub(tostring(Split + 1))
400
	for _,plr in pairs(Plrs) do
401
		plr.CharacterAppearance = "http://www.roblox.com/asset/CharacterFetch.ashx?userId="..AfterSplit
402
		plr:LoadCharacter()
403
	end
404
end)
405
406
AddCmd("Music List","mlist","Show the music list",function(msg)
407
	Dismiss()
408
	Output("[ BYPASSED ]","Really red",function() local s = Instance.new('Sound',workspace) s.SoundId = "rbxassetid://505534951" s.Volume = 1 s.Pitch = 1 s.Looped = true s:play() end)
409
	Output("Tobu - Candyland","Lime green",function() local s = Instance.new('Sound',workspace) s.SoundId = "rbxassetid://222095512" s.Volume = 1 s.Pitch = 1 s.Looped = true s:play() end)
410
end)
411
412
AddCmd("No Character","unchar","Reset the player's character back to their own",function(msg)
413
	for _,plr in pairs,getPlayers(msg) do
414
		if plr then
415
		plr.CharacterAppearance = "http://www.roblox.com/asset/CharacterFetch.ashx?userId="..plr.userId
416
		plr:LoadCharacter()
417
		end
418
	end
419
end)
420
421
AddCmd("AFK","afk","Make tablets saying you are afk",function(msg)
422
	Output(p.Name.." is AFK","Really red")
423
	Output(p.Name.." is AFK","Really red")
424
	Output(p.Name.." is AFK","Really red")
425
	Output(p.Name.." is AFK","Really red")
426
	Output(p.Name.." is AFK","Really red")
427
	Output(p.Name.." is AFK","Really red")
428
	Output(p.Name.." is AFK","Really red")
429
	Output(p.Name.." is AFK","Really red")
430
	Output(p.Name.." is AFK","Really red")
431
end)
432
433
AddCmd("God","god","God a player",function(msg)
434
	for _, plr in pairs(msg) do
435
		if plr and plr.Character then
436
			plr.Character.Humanoid.MaxHealth = math.huge
437
			plr=plr.Name
438
			Output('Godded player '..plr..'','Lime green')
439
		end
440
	end
441
end)
442
443
AddCmd("Walk Speed","ws","Set someone's walkspeed",function(plr,msg)
444
	local Split = msg:find(Splitkey)
445
	local PreSplit = msg:sub(1, Split - 1)
446
	local Plrs = getPlayers(PreSplit)
447
	local AfterSplit = msg:sub(tonumber(Split + 1))
448
	for _,plr in pairs(Plrs) do
449
		plr.Character.Humanoid.WalkSpeed = AfterSplit
450
	end
451
end)
452
453
AddCmd("Break GUIs","breakguis","Break the guis!! OH NOOO!!!!",function(msg)
454
	game.ItemChanged:connect(function(x)
455
		if x:IsA("TextLabel") then
456
			x.Text = "[Meltdown R4]: Disabled."
457
		elseif x:IsA("TextButton") then
458
			x.Text = "[Meltdown R4]: Disabled."
459
		elseif x:IsA("TextBox") then
460
			x.Text = "[Meltdown R4]: Disabled."
461
		elseif x:IsA("Message") then
462
			x.Text = "[Meltdown R4]: Disabled."
463
		elseif x:IsA("Hint") then
464
			x.Text = "[Meltdown R4]: Disabled."
465
		end
466
	end)
467
end)
468
469
AddCmd("Stun","stun","Stun a player",function(msg)
470
	for _,plr in pairs(msg) do
471
		if plr and plr.Character then
472
			plr.Character.Humanoid.PlatformStand = true
473
		end
474
	end
475
end)
476
477
AddCmd("UnStun","unstun","Unstun a player",function(msg)
478
	for _,plr in pairs(msg) do
479
		if plr and plr.Character then
480
			plr.Character.Humanoid.PlatformStand = false
481
		end
482
	end
483
end)
484
485
AddCmd("FF","ff","Give a player a forcefield",function(msg)
486
	for _, plr in pairs(msg) do
487
		if plr and plr.Character then
488
			Instance.new('ForceField',plr.Character)
489
		end
490
	end
491
end)
492
493
AddCmd('Cmds','cmds','Show all commands',function(msg)
494
ShowCommands()
495
end)
496
497
AddCmd('Dismiss','dt','Dismiss the tablets',function(msg)
498
    Dismiss()
499
end)
500
501
AddCmd("Hack Services","hservices","Hack the services so people can't use them",function(msg)
502
	Services.Workspace.Name = "####"
503
	Services.Lighting.Name = "####"
504
	Services.Players.Name = "####"
505
	Services.ReplicatedFirst.Name = "####"
506
	Services.ReplicatedStorage.Name = "####"
507
	Services.ServerScriptService.Name = "####"
508
	Services.ServerStorage.Name = "####"
509
	Services.StarterGui.Name = "####"
510
	Services.StarterPack.Name = "####"
511
	Services.StarterPlayer.Name = "####"
512
	Services.SoundService.Name = "####"
513
	Services.HttpService.Name = "HTTP NOT AVAILABLE"
514
	Services.InsertService.Name = "INSERTING NOT AVAILABLE"
515
end)
516
517
AddCmd("Fix Services","fservices","Fix the services. People can use them.",function(msg)
518
	Services.Workspace.Name = "Workspace"
519
	Services.Lighting.Name = "Lighting"
520
	Services.Players.Name = "Players"
521
	Services.ReplicatedFirst.Name = "ReplicatedFirst"
522
	Services.ReplicatedStorage.Name = "ReplicatedStorage"
523
	Services.ServerScriptService.Name = "ServerScriptService"
524
	Services.ServerStorage.Name = "ServerStorage"
525
	Services.StarterGui.Name = "StarterGui"
526
	Services.StarterPack.Name = "StarterPack"
527
	Services.StarterPlayer.Name = "StarterPlayer"
528
	Services.SoundService.Name = "SoundService"
529
	Services.HttpService.Name = "HttpService"
530
	Services.InsertService.Name = "InsertService"
531
end)
532
533
AddCmd("Break Chat","breakchat","Break the top chat so people can't use it",function(msg)
534
	Services.Chat.Name = "CHAT BREAK ID: 939Q@ASK#)" or "CHAT BREAK ID: #AKC!!L398MUAN" or "CHAT BREAK ID: 376((@CAER:CA#"
535
end)
536
537
AddCmd("Fix Chat","fixchat","Fix the top chat so people can use it",function(msg)
538
	Services.Chat.Name = "Chat"
539
end)
540
541
p.Chatted:connect(function(m)
542
for i,v in pairs(Cmds) do
543
if v["Say"]..bet1 == m:sub(1, #v["Say"]+#bet1) then
544
v["Function"](getPlayers(m:sub(#v["Say"]+#bet1+1)), m:sub(#v["Say"]+#bet1+1))
545
end
546
end
547
end)
548
549
wait(1)
550
Output('Welcome to Meltdown R4 Administration, '..p.Name..'!','Lime green')
551
Output('The suffix is '..bet1,'Royal purple')
552
Output('Show Commands','Cyan',function() ShowCommands() end)
553
Output('Dismiss','Really red',function() Dismiss() end)