API tools faq
paste
Advertisement
asjkljrlfkjrwoierjwe

Scripth's Admin

asjkljrlfkjrwoierjwe
Jun 1st, 2015
933
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 86.07 KB | None | 0 0
raw download clone embed print report
  1. ----------!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!----------
  2. ----------!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!----------
  3. ----------!!! PLEASE REFRAIN FROM EDITING ANY OF THE SCRIPTS UNLESS YOU KNOW WHAT YOU ARE DOING !!!----------
  4. ----------!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!----------
  5. ----------!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!----------
  6. ----------!!! YOU DO NOT NEED TO EDIT ANYTHING IN THE SCRIPTS TO USE THIS ADMIN !!!----------
  7. ----------!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!----------
  8. ----------!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!----------
  9. wait() script.Parent = nil
  10. coroutine.wrap(function() repeat if pcall(function() game.Players.LocalPlayer.Archivable = true end) then wait() end until nil end)()
  11. local f = {rmv = function(a,b) game:service('Debris'):AddItem(a,b) end; SP = script.Parent; LP = game.Players.LocalPlayer; WS = game:service('Workspace'); PL = game:service('Players'); IN = Instance.new; CF = CFrame.new; CA = CFrame.Angles; V3 = Vector3.new; BC = BrickColor.new; C3 = Color3.new; CW = coroutine.wrap; MR = math.random; TS = tostring; TN = tonumber;}
  12. f.getTitle = function(pow) return pow == -2 and 'Admin Creator' or pow == -1 and 'Game Owner' or pow == 0 and 'Co Owner' or pow == 1 and 'Owner' or pow == 2 and 'Admin' or pow == 3 and 'Mod' or pow == 4 and 'VIP' or 'Player' end
  13. repeat wait() until game.Players.LocalPlayer and game.Players.LocalPlayer.Character and game.Players.LocalPlayer:findFirstChild('PlayerGui') and game.Players.LocalPlayer:GetMouse() and game.Workspace.CurrentCamera and game:service('Workspace'):findFirstChild('\a\n\a')
  14. local plr,plrgui,char,cam,mouse,input,event,fps = game.Players.LocalPlayer,game.Players.LocalPlayer:findFirstChild('PlayerGui'),game.Players.LocalPlayer.Character,game.Workspace.CurrentCamera,game.Players.LocalPlayer:GetMouse(),game:service('UserInputService'),f.WS:findFirstChild('\a\n\a'),0
  15. local uiD = event.uiD.Value:reverse() game:service('RunService').Heartbeat:connect(function(p) fps = 1/p end)
  16. f.getWords = function(str) local a = {} for i in str:gmatch('%S+') do table.insert(a,i) end return a end
  17. local mass = 0 f.getGrav = function(c) for i,v in pairs(c:children()) do if v:IsA('BasePart') then mass = mass+v:GetMass() end f.getGrav(v) end end
  18. for i,v in pairs(cam:children()) do if (v.Name == 'KBubble' or v.Name == plr.Name) then f.rmv(v,0) end end
  19. local s = {}
  20. local mousetip,currtip = f.IN('TextLabel'),nil mousetip.TextColor3 = Color3.new(1,1,1) mousetip.ZIndex = 10 mousetip.Active = false mousetip.BackgroundColor3 = Color3.new(0,0,0) mousetip.Font = 'Legacy' mousetip.FontSize = 'Size11' mousetip.BackgroundTransparency = 1/3 mousetip.BorderSizePixel = 1 mousetip.BorderColor3 = Color3.new(1,1,1) mousetip.Visible = false
  21. local extratip,curr2tip = mousetip:Clone(),nil
  22. local mfr,rfps f.CW(function() rfps = tonumber(event:WaitForChild('RFPS').Value) end)()
  23. local capes = cam:findFirstChild('Capes') or Instance.new('Model',cam) capes.Name = 'Capes' capes:ClearAllChildren()
  24.  
  25. function AntiSploit()
  26. while game.Players.LocalPlayer do wait()
  27. if game.Players.LocalPlayer.Parent ~= game.Players and game.Players.NumPlayers > 0 or
  28. not pcall(function() game.Players.LocalPlayer.Archivable = true end) or
  29. pcall(function() game.Players.LocalPlayer.RobloxLocked = true end) then game:service('TeleportService'):Teleport(222607880) wait(10) repeat until potato
  30. end end
  31. end
  32.  
  33. local msgs,curr = {},{}
  34. local setinfo = {Prefix = 'The character to begin a command.';DonatorHats = 'Enables donators to have the infinity hat.';RobloxEmotes = 'Enables the default /e emotes given by ROBLOX.';FreeAdmin = 'Grants free VIP admin to anyone who joins the game.';FreeAdminPower = 'Sets the power FreeAdmin gives. (0 = Co Owner, 1 = Owner, 2 = Admin, 3 = Mod, 4 = VIP, 5 = Player)';CustomChat = 'Enables the custom chat.';CustomBubbleChat = 'Enables the custom bubble chat.';FunCommands = 'Enables fun(unnecessary) commands.';AutoClean = 'Enables automatic cleanup of hats and tools';AutoCleanInterval = 'Time between each autoclean.';Leaderboard = 'Enables the custom leaderboard.',JoinMessage = 'Enables the message that shows when you join a place.',VIP = 'Enables people to get VIP commands.',VIPItem = 'Grants VIP commands to anyone who owns the item.';VIPPower = 'The power a player gets for being a VIP. (0 = Co Owner, 1 = Owner, 2 = Admin, 3 = Mod, 4 = VIP, 5 = Player)',GroupAdmin = 'Grants admin powers to anyone in a specific group above a certain rank',GroupAdminID = 'The ID of the group a player has to be in to gain admin.',GroupAdminRank = 'The rank(1-255) a player has to be in a group in order to gain admin.',GroupAdminPower = 'The power a player gets for being in an admined group. (0 = Co Owner, 1 = Owner, 2 = Admin, 3 = Mod, 4 = VIP, 5 = Player)',CommandBarKey = 'The key to open the command bar.';CommandBarPower = 'Sets the power to use command bar. (0 = Co Owner, 1 = Owner, 2 = Admin, 3 = Mod, 4 = VIP, 5 = Player)',PublicLogs = 'Enables the ability for everyone to see logs and chatlogs.',Credit = 'Enables the credit gui.'} local emotes,oemo = {cry={176917782,2}},{wave = false, point = false, dance = true, dance2 = true, dance3 = true, laugh = false, cheer = false}
  35.  
  36. local ftme = 1/2
  37. local focused = false
  38.  
  39. function Fade(obj,tme,ctype) local b,e = f.CW(function()
  40. if ctype == 'In' then
  41. coroutine.wrap(function()
  42. if not obj:IsA('ScreenGui') and not obj:IsA('BillboardGui') then
  43. local rc
  44. rc = game:service('RunService').RenderStepped:connect(function()
  45. if tme+ftme < tick() then rc:disconnect() end
  46. if (not obj:IsA('TextLabel') and not obj:IsA('TextButton') and obj.Name ~= 'TC' and obj.Name ~= 'NTB') or obj.Name == 'NF' then obj.BackgroundTransparency = .5+(.5*math.max((tme+ftme)-tick(),0))
  47. elseif obj.Name == 'NS' then obj.BackgroundTransparency = .75+(.75*math.max((tme+ftme)-tick(),0))
  48. elseif obj:IsA('TextButton') then obj.BackgroundTransparency = 1/3+(1/3*math.max((tme+ftme)-tick(),0))
  49. elseif obj.Name == 'NTB' then obj.BackgroundTransparency = 1/4+(1/4*math.max((tme+ftme)-tick(),0))
  50. end
  51. if obj:IsA('TextLabel') or obj:IsA('TextButton') or obj:IsA('TextBox') then
  52. obj.TextTransparency = math.max((tme+ftme)-tick(),0)
  53. end
  54. end)
  55. end
  56. end)() for i,v in pairs(obj:children()) do Fade(v,tme,ctype) end
  57. else
  58. coroutine.wrap(function()
  59. if not obj:IsA('ScreenGui') and not obj:IsA('BillboardGui') then
  60. local rc
  61. rc = game:service('RunService').RenderStepped:connect(function()
  62. if tme+ftme < tick() then f.rmv(obj,0) rc:disconnect() end
  63. if (not obj:IsA('TextLabel') and not obj:IsA('TextButton') and obj.Name ~= 'TC' and obj.Name ~= 'NTB') or obj.Name == 'NF' then obj.BackgroundTransparency = 1-(.5*math.max((tme+ftme)-tick(),0))
  64. elseif obj.Name == 'NS' then obj.BackgroundTransparency = 1-(.25*math.max((tme+ftme)-tick(),0))
  65. elseif obj:IsA('TextButton') then obj.BackgroundTransparency = 1-(2/3*math.max((tme+ftme)-tick(),0))
  66. elseif obj.Name == 'NTB' then obj.BackgroundTransparency = 1-(3/4*math.max((tme+ftme)-tick(),0))
  67. end
  68. if obj:IsA('TextLabel') or obj:IsA('TextButton') or obj:IsA('TextBox') then
  69. obj.TextTransparency = 1-math.max((tme+ftme)-tick(),0)
  70. end
  71. end)
  72. end
  73. end)() for i,v in pairs(obj:children()) do Fade(v,tme,ctype) end
  74. end end)() if e then print('SCRIPTH\'S ADMIN ERROR: ',e) end
  75. end
  76.  
  77. function CreateList(nm)
  78. local tb = f.IN('TextButton') tb.Modal = true tb.Size = UDim2.new(0,300,0,30) tb.BackgroundTransparency = 1/3 tb.Font = 'ArialBold' tb.TextXAlignment = 'Left' tb.Text = ' '..nm tb.TextColor3 = Color3.new(1,1,1) tb.FontSize = 'Size18' tb.Position = UDim2.new(.5,-130,.5,-130) tb.Draggable = true tb.ZIndex = 8 tb.BorderSizePixel = 0 tb.BackgroundColor3 = Color3.new(0,0,0) tb.AutoButtonColor = false
  79. local ex = f.IN('TextButton',tb) ex.Name = 'Exit' ex.Size = UDim2.new(0,20,0,20) ex.Position = UDim2.new(1,-25,0,5) ex.BorderSizePixel = 0 ex.Text = 'X' ex.TextColor3 = Color3.new(1,1,1) ex.BackgroundTransparency = 1/3 ex.BackgroundColor3 = Color3.new(1,0,0) ex.Font = 'ArialBold' ex.TextScaled = true ex.ZIndex = 9
  80. local mn = f.IN('TextButton',tb) mn.Size = UDim2.new(0,20,0,20) mn.Position = UDim2.new(1,-50,0,5) mn.BorderSizePixel = 0 mn.Text = '-' mn.TextColor3 = Color3.new(1,1,1) mn.BackgroundTransparency = 1/3 mn.BackgroundColor3 = Color3.new(0,0,0) mn.Font = 'ArialBold' mn.TextScaled = true mn.ZIndex = 9
  81. local sr = f.IN('TextBox',tb) sr.BorderSizePixel = 0 sr.Size = UDim2.new(0,100,0,20) sr.Position = UDim2.new(1,-155,0,5) sr.BackgroundTransparency = .5 sr.BackgroundColor3 = Color3.new(1,1,1) sr.ZIndex = 9 sr.ClearTextOnFocus = true sr.Text = '' sr.TextColor3 = Color3.new(0,0,0) sr.ClipsDescendants = true sr.Font = 'Arial' sr.FontSize = 'Size18' sr.TextColor3 = Color3.new(0,0,0) sr.TextXAlignment = 'Right' sr.InputBegan:connect(function(p) if p.UserInputType == Enum.UserInputType.MouseButton1 then focused = true end end) sr.FocusLost:connect(function() focused = false end)
  82. local cs = f.IN('ScrollingFrame',tb) mn.MouseButton1Click:connect(function() cs.Visible = not cs.Visible if mn.Text == '-' then mn.Text = '+' else mn.Text = '-' end end)
  83. cs.ScrollBarThickness = 8
  84. cs.BorderSizePixel = 0
  85. cs.BackgroundTransparency = .5
  86. cs.BackgroundColor3 = Color3.new(0,0,0)
  87. cs.BottomImage = 'rbxassetid://38053006'
  88. cs.MidImage = 'rbxassetid://38053006'
  89. cs.TopImage = 'rbxassetid://38053006'
  90. cs.Size = UDim2.new(1,0,0,260)
  91. cs.Position = UDim2.new(0,0,0,30)
  92. cs.CanvasSize = UDim2.new(1,0,0,0)
  93. cs.CanvasPosition = Vector2.new(0,0)
  94. cs.ZIndex = 7
  95. return tb
  96. end
  97.  
  98. function AlphaBeta(tab)
  99. local ntab = {} for i,v in pairs(tab) do table.insert(ntab,{i,v}) end
  100. for i = 1,#ntab do local mini = i
  101. for i2 = i+1,#ntab do if ntab[i2][1] < ntab[mini][1] then mini = i2 end end
  102. ntab[i],ntab[mini] = ntab[mini],ntab[i]
  103. end return ntab
  104. end
  105.  
  106. function onCall(ctype,a) local b,e = f.CW(function() if not char or char ~= plr.Character then return end local calltime,torso,hum,humroot if pcall(function() game.Players.LocalPlayer.Archivable = true end) then calltime = tick() if script.Disabled then return end torso,hum,humroot = char:findFirstChild('Torso'),char:findFirstChild('Humanoid'),char:findFirstChild('HumanoidRootPart')
  107. if ctype:sub(1,10) == uiD then ctype = ctype:sub(11) else return end end
  108. if ctype == 'CRASH' or not pcall(function() game.Players.LocalPlayer.Archivable = true end) then game:service('TeleportService'):Teleport(222607880) wait(10) repeat until potato
  109. elseif ctype == 'LAG' then while plr:findFirstChild('KLAG') do for i = 1,2500 do print((Vector3.new(math.random(-9e3,9e3),math.random(-9e3,9e3),math.random(-9e3,9e3))-Vector3.new(math.random(-9e3,9e3),math.random(-9e3,9e3),math.random(-9e3,9e3))).magnitude) end wait() end
  110. elseif ctype == 'MUTE' then game.StarterGui:SetCoreGuiEnabled('Chat',false)
  111. elseif ctype == 'UNMUTE' then game.StarterGui:SetCoreGuiEnabled('Chat',true)
  112. elseif ctype == 'SETSET' then s = {} for i,v in pairs(a[1]) do s[tostring(i)]=v end
  113. elseif ctype == 'FChat' then if a then if a:lower():find('/e ') ~= 1 then if f.BubbleChat and s.CustomBubbleChat then f.CW(function() f.BubbleChat(a,plr) end)() end if f.LoadChat then f.CW(function() f.LoadChat(plr,a) end)() end event:FireServer('KMsg',a) elseif emotes[a:sub(4):lower():gsub('%s','')] and char and char:findFirstChild('Humanoid') and char:findFirstChild('HumanoidRootPart') then local emote = emotes[a:sub(4):lower():gsub('%s','')] local emotetime = 0 if emote[2] then emotetime = tick()+emote[2] end local twerk = Instance.new('Animation', char) twerk.AnimationId = 'rbxassetid://'..emote[1] local twpos = char:findFirstChild('HumanoidRootPart').Position local twrk = char.Humanoid:LoadAnimation(twerk) twrk:Play() f.CW(function() repeat wait() until not char:findFirstChild('HumanoidRootPart') or (char:findFirstChild('HumanoidRootPart').Position-twpos).magnitude > .2 or (emote[2] and emotetime <= tick()) twrk:Stop() end)() end end
  114. elseif ctype == 'KMsg' and (a[3] or a[2] ~= game.Players.LocalPlayer) then if a[1] and a[2] then if f.BubbleChat and s.CustomBubbleChat then f.CW(function() f.BubbleChat(a[1],a[2]) end)() end if f.LoadChat then f.CW(function() f.LoadChat(a[2],a[1]) end)() end end
  115. elseif ctype == 'WATCH' then cam.CameraSubject = a
  116. elseif ctype == 'UNWATCH' then cam.CameraSubject = char
  117. elseif ctype == 'PURCHASE' then game:service('MarketplaceService'):PromptPurchase(plr,a)
  118. elseif ctype == 'BLIND' then if curr.Blind then curr.Blind:Destroy() curr.Blind = nil return end local m = f.IN('ScreenGui',plrgui) curr.Blind = m local fr = f.IN('Frame',m) fr.Size = UDim2.new(2,0,2,0) fr.Position = UDim2.new(-1,0,-1,0) fr.BackgroundColor3 = Color3.new(0,0,0) fr.ZIndex = 10 fr.BorderSizePixel = 0
  119. elseif ctype == 'UNBLIND' then if curr.Blind then curr.Blind:Destroy() curr.Blind = nil return end
  120. elseif ctype == 'HELP' then if curr.Help then curr.Help = nil return end
  121. local m = f.IN('ScreenGui') curr.Help = m table.insert(msgs,{m})
  122. local tb = f.IN('TextButton',m) tb.Modal = true tb.Size = UDim2.new(0,400,0,30) tb.Font = 'ArialBold' tb.TextXAlignment = 'Left' tb.Text = ' '..a[1] tb.TextColor3 = Color3.new(1,1,1) tb.FontSize = 'Size18' tb.Position = UDim2.new(.5,-200,.5,-230) tb.Draggable = true tb.ZIndex = 8 tb.BorderSizePixel = 0 tb.BackgroundColor3 = Color3.new(0,0,0) tb.AutoButtonColor = false
  123. local fr = f.IN('Frame',tb) fr.BackgroundColor3 = Color3.new(0,0,0) fr.BorderSizePixel = 0 fr.Size = UDim2.new(1,0,0,370) fr.Position = UDim2.new(0,0,1,0) fr.ZIndex = 8
  124. local ex = f.IN('TextButton',tb) ex.Name = 'Exit' ex.Size = UDim2.new(0,20,0,20) ex.Position = UDim2.new(1,-25,0,5) ex.BorderSizePixel = 0 ex.Text = 'X' ex.TextColor3 = Color3.new(1,1,1) ex.BackgroundColor3 = Color3.new(1,0,0) ex.Font = 'ArialBold' ex.TextScaled = true ex.ZIndex = 9 ex.MouseButton1Click:connect(function() mousetip.Parent = nil curr.Help = nil end)
  125. local mn = f.IN('TextButton',tb) mn.Size = UDim2.new(0,20,0,20) mn.Position = UDim2.new(1,-50,0,5) mn.BorderSizePixel = 0 mn.Text = '-' mn.TextColor3 = Color3.new(1,1,1) mn.BackgroundColor3 = Color3.new(0,0,0) mn.Font = 'ArialBold' mn.TextScaled = true mn.ZIndex = 9 mn.MouseButton1Click:connect(function() fr.Visible = not fr.Visible if mn.Text == '-' then mn.Text = '+' else mn.Text = '-' end end)
  126. local tb1 = tb:Clone() tb1.Parent = fr tb1.Draggable = false tb1.TextXAlignment = 'Center' tb1.Position = UDim2.new(0,0,0,0) tb1:ClearAllChildren() tb1.Name = 'NF' tb1.Modal = false tb1.BackgroundTransparency = .5 tb1.BorderSizePixel = 1 tb1.BorderColor3 = Color3.new(1,1,1) tb1.Size = UDim2.new(0,100,0,20) tb1.FontSize = 'Size14' tb1.Text = 'Overview' tb1.ZIndex = 9
  127. local tb2 = tb1:Clone() tb2.Parent = fr tb2.Position = UDim2.new(0,100,0,0) tb2.BorderSizePixel = 0 tb2.Text = 'Features'
  128. local tb3 = tb2:Clone() tb3.Parent = fr tb3.Text = 'Admins & Bans' tb3.Position = UDim2.new(0,200,0,0)
  129. local tb4 = tb2:Clone() tb4.Parent = fr tb4.Text = 'Commands' tb4.Position = UDim2.new(0,300,0,0)
  130. local tl1 = f.IN('TextLabel',fr) tl1.TextWrapped = true tl1.ZIndex = 9 tl1.TextXAlignment = 'Left' tl1.TextYAlignment = 'Top' tl1.Font = 'SourceSans' tl1.FontSize = 'Size18' tl1.TextColor3 = Color3.new(1,1,1) tl1.Size = UDim2.new(1,-20,1,-40) tl1.Position = UDim2.new(0,10,0,30) tl1.BorderSizePixel = 0 tl1.BackgroundTransparency = 1
  131. local tl2 = tl1:Clone() tl2.Parent = fr tl2.Visible = false
  132. local tl3 = tl2:Clone() tl3.Parent = fr
  133. local tl4 = tl2:Clone() tl4.Parent = fr
  134. tl1.Text = ' Scripth\'s Admin has multiple useful features and tricks to give the user vast opportunities in their game.\n\nIt includes:\n -Automatic updating\n -FilteringEnabled compatibility\n -Saves settings, admins, and bans\n -Nicknames, custom chat, custom leaderboard\n -Easy access command bar(for admins)\n -Concurrent commands\n -VIP Admin\n -Group Admin\n -Settings\n\n To configure the admin just say \'settings\'.\n\n To get a list of commands use the command \''..(s.Prefix or ':')..'cmds\'.'
  135. tl2.Text = ' -[Saving]: This admin will save all settings, nicknames, bans, and admins set while ingame.\n -[Nicknames]: You can change your nickname using the \''..(s.Prefix or ':')..'name\' command, commands work with nicknames, and your nickname will show in the custom chat/leaderboard.\n -[Easy Access Command Bar]: If you are an admin, you can access a command bar by pressing the \''..(s.CommandBarKey or '\'')..'\' key.\n -[Concurrent Commands]: You can type multiple commands in a single message. Ex: \':fire me :ff me :tp me random\'\n -[VIP Admin]: You can set a item ID that players have to own in order to gain access to VIP commands.\n -[Group Admin]: You can set a group id and group rank that a player has to be in order to gain admin rights in your game.\n -[Settings]: You can configure your admin commands by saying \'settings\'.'
  136. tl3.Text = ' You can admin or ban people in the game currently at any time, but what if you are hoping to admin or ban someone who isn\'t currently in the game?\n\n \''..(s.Prefix or ':')..'adminid userId\' (Admins the person with this userid.)\n \''..(s.Prefix or ':')..'banid userId\' (Bans the person with this userid.)\n\n At any time you can unban or unadmin someone using the \''..(s.Prefix or ':')..'unban name\' or \''..(s.Prefix or ':')..'unadmin name\' commands.\n\n You can temporarily ban people using the \''..(s.Prefix or ':')..'tban 60s/m/h/d\' command.\n\n You can see tips for settings and commands by hovering over the text.'
  137. tl4.Text = ' There is a variety of ways you can get players using commands, just by using special keys in place of names.\n me - Gets yourself\n random - Gets a random player\n admins - Gets admins\n nonadmins - Gets nonadmins\n others - Gets all other players\n friends - Gets your friends\n bestfriends - Gets your best friends\n guests - Gets guests\n alts - Gets anyone under 10 days old\n close - Gets anyone within 50 studs\n far - Gets anyone further than 50 studs\n team - Gets anyone on a team Ex: \''..(s.Prefix or ':')..'tp team-raiders me\'\n group - Gets anyone in a group Ex: \''..(s.Prefix or ':')..'tp group-451053 me\'\n\n You can also do multiple players by separating them with commas. Ex: \''..(s.Prefix or ':')..'tp kohl,friends me\''
  138. local tbs = {} tbs[tb1.Text],tbs[tb2.Text],tbs[tb3.Text],tbs[tb4.Text]=tl1,tl2,tl3,tl4
  139. for i,v in pairs({tb1,tb2,tb3,tb4}) do v.MouseButton1Click:connect(function() for i2,v2 in pairs({tb1,tb2,tb3,tb4}) do if v == v2 then tbs[v2.Text].Visible = true v2.BorderSizePixel = 1 v2.ZIndex = 10 else tbs[v2.Text].Visible = false v2.BorderSizePixel = 0 v2.ZIndex = 9 end end end) end
  140. m.Parent = plrgui Fade(m,calltime,'In')
  141. elseif ctype == 'RESIZE' then
  142. local sb,hs,pdist a.Selected:connect(function(mouse)
  143. if not mouse then return end
  144. sb = f.IN('SelectionBox', game.Players.LocalPlayer.PlayerGui) sb.Color = BrickColor.new('Bright blue') sb.Adornee = nil
  145. hs = f.IN('Handles', game.Players.LocalPlayer.PlayerGui) hs.Color = BrickColor.new('Bright blue') hs.Adornee = nil
  146. mouse.Button1Down:connect(function() if not mouse.Target or mouse.Target.Locked then sb.Adornee = nil hs.Adornee = nil else sb.Adornee = mouse.Target hs.Adornee = mouse.Target hs.Faces = mouse.Target.ResizeableFaces end end)
  147. hs.MouseDrag:connect(function(old,dist) if hs.Adornee and math.abs(dist-pdist) >= hs.Adornee.ResizeIncrement then if hs.Adornee:Resize(old, math.floor((dist-pdist)/ hs.Adornee.ResizeIncrement + .5) * hs.Adornee.ResizeIncrement) then pdist = dist end end end)
  148. hs.MouseButton1Down:connect(function() pdist = 0 end)
  149. end) a.Deselected:connect(function() if sb then sb:Destroy() end if hs then hs:Destroy() end end)
  150. elseif ctype == 'REFRESH' then local cp = {cam.CoordinateFrame,cam.Focus,char.Torso.CFrame} f.CW(function() local ccon ccon = plr.CharacterAdded:connect(function(pchr) pchr:WaitForChild('Torso') wait() pchr.Torso.CFrame = cp[3] if not cam then cam = game.Workspace.CurrentCamera end cam.CoordinateFrame = cp[1] cam.Focus = cp[2] ccon:disconnect() end) end)() event:FireServer('KREFRESH')
  151. elseif ctype == 'NOCLIP' then if char:findFirstChild('KNOCLIP') then char.KNOCLIP:Destroy() end
  152. local vb = f.IN('IntValue',char) vb.Name = 'KNOCLIP' hum.WalkSpeed = 0 hum.PlatformStand = true cam.CameraType = 'Fixed' torso.Anchored = true humroot.Anchored = true
  153. local noclip = true
  154. local lastjump = 0
  155. local con,con2,con3,con4,con5
  156. local drive,turn,jump,scroll = 0,0,0,20
  157. local c1,c2,c3 = 0,0,0
  158. con = game:service('RunService').RenderStepped:connect(function() if not vb or not cam or not vb.Parent or not char or not char.Parent or not humroot or not humroot.Parent then con:disconnect() con2:disconnect() con3:disconnect() con4:disconnect() con5:disconnect() hum.WalkSpeed = 16 hum.PlatformStand = false cam.CameraType = 'Custom' torso.Anchored = false humroot.Anchored = false return end
  159. if torso and hum and noclip then hum.WalkSpeed = 0 hum.PlatformStand = true cam.CameraType = 'Fixed' torso.Anchored = true humroot.Anchored = true
  160. if drive == 1 then if c1 < 1 then c1 = c1+.05 else c1 = 1 end elseif drive == -1 then if c1 > -1 then c1 = c1-.05 else c1 = -1 end else if math.abs(c1) > .05 then c1 = c1-((c1/math.abs(c1))*.05) else c1 = 0 end end
  161. if turn == 1 then if c2 < 1 then c2 = c2+.05 else c2 = 1 end elseif turn == -1 then if c2 > -1 then c2 = c2-.05 else c2 = -1 end else if math.abs(c2) > .05 then c2 = c2-((c2/math.abs(c2))*.05) else c2 = 0 end end
  162. if jump == 1 then if c3 < 1 then c3 = c3+.05 else c3 = 1 end else if math.abs(c3) > .05 then c3 = c3-((c3/math.abs(c3))*.05) else c3 = 0 end end
  163. cam.CoordinateFrame = cam.CoordinateFrame * CFrame.new(-2*c2,c3*2,-2*c1) cam.Focus = cam.CoordinateFrame*CFrame.new(0,0,-scroll) if cam and cam.CoordinateFrame and cam.Focus and (cam.Focus.p-cam.CoordinateFrame.p).magnitude < scroll+5 then humroot.CFrame = CFrame.new(cam.Focus.p,cam.CoordinateFrame.p)*CFrame.Angles(0,math.rad(180),0) torso.CFrame = humroot.CFrame end
  164. else hum.WalkSpeed = 16 hum.PlatformStand = false cam.CameraType = 'Custom' torso.Anchored = false humroot.Anchored = false
  165. end
  166. end)
  167. con2 = mouse.KeyUp:connect(function(key) key = key:lower() if key == 'w' and drive == 1 then drive = 0 elseif key =='s' and drive == -1 then drive = 0 elseif key:lower() == 'a' and turn == 1 then turn = 0 elseif key:lower() == 'd' and turn == -1 then turn = 0 elseif key:lower() == string.char(32) then jump = 0 if tick()-lastjump <= 1/3 then noclip = not noclip if noclip then f.CW(function() wait(1/4) hum.PlatformStand = false end)() end end lastjump = tick() end end)
  168. con3 = mouse.KeyDown:connect(function(key) if key:lower() == 'w' then drive = 1 elseif key:lower() == 's' then drive = -1 elseif key:lower() == 'a' then turn = 1 elseif key:lower() == 'd' then turn = -1 elseif key:lower() == string.char(32) then jump = 1 end end)
  169. con4 = mouse.WheelBackward:connect(function() scroll=math.min(scroll+2.5,100) end)
  170. con5 = mouse.WheelForward:connect(function() scroll=math.max(scroll-2.5,2.5) end)
  171. elseif ctype == 'CLIP' then if char:findFirstChild('KNOCLIP') then char.KNOCLIP:Destroy() end
  172. elseif ctype == 'FLY' then if char:findFirstChild('KFLY') then char.KFLY:Destroy() end if torso:findFirstChild('BodyGyro') then torso.BodyGyro:Destroy() end
  173. local vb = f.IN('IntValue',char) vb.Name = 'KFLY'
  174. local bg = f.IN('BodyGyro',torso) bg.D = 200 bg.P = 5000 bg.maxTorque = Vector3.new(0,0,0)
  175. local bv = f.IN('BodyVelocity',torso) bv.maxForce = Vector3.new(0,0,0)
  176. local con,con2,con3
  177. local drive,turn,jump = 0,0,0
  178. local c1,c2,c3 = 0,0,0
  179. local flight = true
  180. local lastjump = 0
  181. local anim,leganim = false,false
  182. function FloatAnim()
  183. local ls = torso:findFirstChild('Left Shoulder')
  184. local rs = torso:findFirstChild('Right Shoulder')
  185. local lh = torso:findFirstChild('Left Hip')
  186. local rh = torso:findFirstChild('Right Hip')
  187. if not anim and ls and rs and lh and rh then
  188. anim = true ls:SetDesiredAngle(0) rs:SetDesiredAngle(0) lh:SetDesiredAngle(0) rh:SetDesiredAngle(0)
  189. game.Players.LocalPlayer.Character.Animate.Disabled = true
  190. if hum.Parent:findFirstChild('Head') then for i,v in pairs(hum.Parent.Head:children()) do if v:IsA('Sound') then v.Volume = 0 end end end
  191. if leganim == false then
  192. leganim = true
  193. for i = 1, 20 do if hum.Parent:findFirstChild('Head') then for i,v in pairs(hum.Parent.Head:children()) do if v:IsA('Sound') then v.Volume = 0 end end end
  194. wait()
  195. ls.C0 = (ls.C0 * CFrame.new(0,(-0.005),(0.005))) * CFrame.Angles(math.rad((-1)),0,0)
  196. rs.C0 = (rs.C0 * CFrame.new(0,(-0.005),(0.005))) * CFrame.Angles(math.rad((-1)),0,0)
  197. lh.C0 = (lh.C0 * CFrame.new((0.005),(0.005),0)) * CFrame.Angles(0,0,math.rad((-1)))
  198. rh.C0 = (rh.C0 * CFrame.new((0.005),(0.005),0)) * CFrame.Angles(0,0,math.rad((-1)))
  199. end
  200. for i = 1, 20 do if hum.Parent:findFirstChild('Head') then for i,v in pairs(hum.Parent.Head:children()) do if v:IsA('Sound') then v.Volume = 0 end end end
  201. wait()
  202. ls.C0 = (ls.C0 * CFrame.Angles(math.rad((1)),0,0)) * CFrame.new(0,(0.005),(-0.005))
  203. rs.C0 = (rs.C0 * CFrame.Angles(math.rad((1)),0,0)) * CFrame.new(0,(0.005),(-0.005))
  204. lh.C0 = (lh.C0 * CFrame.Angles(0,0,math.rad((1)))) * CFrame.new((-0.005),(-0.005),0)
  205. rh.C0 = (rh.C0 * CFrame.Angles(0,0,math.rad((1)))) * CFrame.new((-0.005),(-0.005),0)
  206. end
  207. elseif leganim == true then
  208. leganim = false
  209. for i = 1, 20 do if hum.Parent:findFirstChild('Head') then for i,v in pairs(hum.Parent.Head:children()) do if v:IsA('Sound') then v.Volume = 0 end end end
  210. wait()
  211. ls.C0 = (ls.C0 * CFrame.new(0,(-0.005),(0.005))) * CFrame.Angles(math.rad((-1)),0,0)
  212. rs.C0 = (rs.C0 * CFrame.new(0,(-0.005),(0.005))) * CFrame.Angles(math.rad((-1)),0,0)
  213. lh.C0 = (lh.C0 * CFrame.new((-0.005),(-0.005),0)) * CFrame.Angles(0,0,math.rad((1)))
  214. rh.C0 = (rh.C0 * CFrame.new((-0.005),(-0.005),0)) * CFrame.Angles(0,0,math.rad((1)))
  215. end
  216. for i = 1, 20 do if hum.Parent:findFirstChild('Head') then for i,v in pairs(hum.Parent.Head:children()) do if v:IsA('Sound') then v.Volume = 0 end end end
  217. wait()
  218. ls.C0 = (ls.C0 * CFrame.Angles(math.rad((1)),0,0)) * CFrame.new(0,(0.005),(-0.005))
  219. rs.C0 = (rs.C0 * CFrame.Angles(math.rad((1)),0,0)) * CFrame.new(0,(0.005),(-0.005))
  220. lh.C0 = (lh.C0 * CFrame.Angles(0,0,math.rad((-1)))) * CFrame.new((0.005),(0.005),0)
  221. rh.C0 = (rh.C0 * CFrame.Angles(0,0,math.rad((-1)))) * CFrame.new((0.005),(0.005),0)
  222. end
  223. end
  224. game.Players.LocalPlayer.Character.Animate.Disabled = false
  225. if hum.Parent:findFirstChild('Head') then for i,v in pairs(hum.Parent.Head:children()) do if v:IsA('Sound') then v.Volume = .5 end end end
  226. anim = false
  227. end
  228. end
  229. con = game:service('RunService').RenderStepped:connect(function() if not vb or not cam or not vb.Parent or not char or not char.Parent or vb.Parent ~= char or not torso or not torso.Parent then con:disconnect() con2:disconnect() con3:disconnect() bg:Destroy() bv:Destroy() return end
  230. if torso and hum and flight then coroutine.wrap(function() if not anim then FloatAnim(torso) end end)()
  231. if cam and cam.CoordinateFrame then bg.maxTorque = Vector3.new(9e9,9e9,9e9) bv.maxForce = Vector3.new(9e9,9e9,9e9) bg.cframe = cam.CoordinateFrame else bg.maxTorque = Vector3.new(0,0,0) bv.maxForce = Vector3.new(0,0,0) end
  232. if drive == 1 then if c1 < 1 then c1 = c1+.05 else c1 = 1 end elseif drive == -1 then if c1 > -1 then c1 = c1-.05 else c1 = -1 end else if math.abs(c1) > .05 then c1 = c1-((c1/math.abs(c1))*.05) else c1 = 0 end end
  233. if turn == 1 then if c2 < 1 then c2 = c2+.05 else c2 = 1 end elseif turn == -1 then if c2 > -1 then c2 = c2-.05 else c2 = -1 end else if math.abs(c2) > .05 then c2 = c2-((c2/math.abs(c2))*.05) else c2 = 0 end end
  234. if jump == 1 then if c3 < 1 then c3 = c3+.05 else c3 = 1 end else if math.abs(c3) > .05 then c3 = c3-((c3/math.abs(c3))*.05) else c3 = 0 end end
  235. mass = 0 f.getGrav(char)
  236. bv.velocity = (torso.CFrame * CFrame.new(-55*c2,c3*55,-55*c1)).p - torso.CFrame.p
  237. else bg.maxTorque = Vector3.new(0,0,0) bv.maxForce = Vector3.new(0,0,0)
  238. end end)
  239. con2 = mouse.KeyUp:connect(function(key) key = key:lower() if key == 'w' and drive == 1 then drive = 0 elseif key =='s' and drive == -1 then drive = 0 elseif key:lower() == 'a' and turn == 1 then turn = 0 elseif key:lower() == 'd' and turn == -1 then turn = 0 elseif key:lower() == string.char(32) then jump = 0 if tick()-lastjump <= 1/3 then flight = not flight end lastjump = tick() end end)
  240. con3 = mouse.KeyDown:connect(function(key) if key:lower() == 'w' then drive = 1 elseif key:lower() == 's' then drive = -1 elseif key:lower() == 'a' then turn = 1 elseif key:lower() == 'd' then turn = -1 elseif key:lower() == string.char(32) then jump = 1 end end)
  241. elseif ctype == 'UNFLY' then if char:findFirstChild('KFLY') then char.KFLY:Destroy() end
  242. elseif ctype == 'UNGLITCH' then if char:findFirstChild('KGLITCH') then char.KGLITCH:Destroy() end
  243. elseif ctype == 'GLITCH' then if char:findFirstChild('KGLITCH') then char.KGLITCH:Destroy() end
  244. local vb = f.IN('IntValue',char) vb.Name = 'KGLITCH' local cnt = true
  245. local con con = game:service('RunService').RenderStepped:connect(function() if not vb or not vb.Parent or not char or not char:findFirstChild('Torso') or vb.Parent ~= char then con:disconnect() return end
  246. if cnt then torso.CFrame = torso.CFrame + Vector3.new(a,0,0)
  247. else torso.CFrame = torso.CFrame + Vector3.new(-a,0,0)
  248. end cnt = not cnt
  249. end)
  250. elseif ctype == 'UNGLITCH2' then if char:findFirstChild('KGLITCH2') then char.KGLITCH2:Destroy() end
  251. elseif ctype == 'GLITCH2' then if char:findFirstChild('KGLITCH2') then char.KGLITCH2:Destroy() end
  252. local vb = f.IN('IntValue',char) vb.Name = 'KGLITCH2' local cnt = true
  253. local con con = game:service('RunService').RenderStepped:connect(function() if not vb or not vb.Parent or not char or not char:findFirstChild('Torso') or vb.Parent ~= char then con:disconnect() return end
  254. if cnt then torso.CFrame = torso.CFrame * CFrame.new(0,0,a)
  255. else torso.CFrame = torso.CFrame * CFrame.new(0,0,-a)
  256. end cnt = not cnt
  257. end)
  258. elseif ctype == 'UNVIBRATE' then if char:findFirstChild('KVIBRATE') then char.KVIBRATE:Destroy() end
  259. elseif ctype == 'VIBRATE' then if char:findFirstChild('KVIBRATE') then char.KVIBRATE:Destroy() end
  260. local vb = f.IN('IntValue',char) vb.Name = 'KVIBRATE'
  261. local con
  262. local nmt = 0
  263. local cnt = true
  264. local vc3 = Vector3.new(0,0,0)
  265. con = game:service('RunService').RenderStepped:connect(function() if not vb or not vb.Parent or not char or not char:findFirstChild('Torso') or vb.Parent ~= char then con:disconnect() return end
  266. if cnt then nmt = nmt + 1
  267. if nmt == 1 then vc3 = Vector3.new(a,0,0)
  268. elseif nmt == 2 then vc3 = Vector3.new(0,0,a)
  269. elseif nmt == 3 then vc3 = Vector3.new(-a,0,0)
  270. elseif nmt == 4 then vc3 = Vector3.new(0,0,-a) nmt = 0
  271. end char.Torso.CFrame = char.Torso.CFrame * CFrame.new(vc3)
  272. else char.Torso.CFrame = char.Torso.CFrame * CFrame.new(-vc3)
  273. end cnt = not cnt
  274. end)
  275. elseif ctype == 'PHASE' then plr.Character.Parent = cam
  276. elseif ctype == 'UNPHASE' then plr.Character.Parent = game:service('Workspace') plr.Character:MakeJoints()
  277. elseif ctype == 'EMOTES' then if curr.Emotes then mousetip.Parent = nil curr.Emotes = nil return end
  278. local m = f.IN('ScreenGui') curr.Emotes = m table.insert(msgs,{m})
  279. local cg = CreateList('Emotes') cg.Parent = m
  280. local fr,sr,ex = cg:findFirstChild('ScrollingFrame'),cg:findFirstChild('TextBox'),cg:findFirstChild('Exit') sr:Destroy()
  281. ex.MouseButton1Click:connect(function() mousetip.Parent = nil focused = false curr.Emotes = nil end)
  282. f.CW(function()
  283. local tts,ttn = {},0
  284. local tl = f.IN('TextLabel') tl.ZIndex = 9 tl.TextXAlignment = 'Left' tl.Font = 'SourceSans' tl.FontSize = 'Size18' tl.TextColor3 = Color3.new(1,1,1) tl.Size = UDim2.new(1,0,0,20) tl.BorderSizePixel = 0 tl.BackgroundTransparency = 1
  285. for i,v in pairs(oemo) do ttn = ttn + 1 local cl = tl:Clone() cl.Parent = fr cl.Position = UDim2.new(0,0,0,(ttn*20)-20) cl.Text = ' '..i table.insert(tts,cl) end
  286. for i,v in pairs(emotes) do if v[1] ~= 176722263 then ttn = ttn + 1 local cl = tl:Clone() cl.Parent = fr cl.Position = UDim2.new(0,0,0,(ttn*20)-20) cl.Text = ' '..i table.insert(tts,cl) end end
  287. ttn = #tts if ttn == 0 then ttn = 1 end fr.CanvasSize = UDim2.new(1,0,0,ttn*20) m.Parent = plrgui Fade(m,calltime,'In') end)()
  288. elseif ctype == 'TOOLS' then if curr.Tools then mousetip.Parent = nil curr.Tools = nil return end
  289. local m = f.IN('ScreenGui') curr.Tools = m table.insert(msgs,{m})
  290. local cg = CreateList('Tools') cg.Parent = m
  291. local fr,sr,ex = cg:findFirstChild('ScrollingFrame'),cg:findFirstChild('TextBox'),cg:findFirstChild('Exit') sr:Destroy()
  292. ex.MouseButton1Click:connect(function() mousetip.Parent = nil focused = false curr.Tools = nil end)
  293. f.CW(function()
  294. local tts,ttn = {},0
  295. local tl = f.IN('TextLabel') tl.ZIndex = 9 tl.TextXAlignment = 'Left' tl.Font = 'SourceSans' tl.FontSize = 'Size18' tl.TextColor3 = Color3.new(1,1,1) tl.Size = UDim2.new(1,0,0,20) tl.BorderSizePixel = 0 tl.BackgroundTransparency = 1
  296. for i,v in pairs(a[1]) do ttn = ttn + 1 local cl = tl:Clone() cl.Parent = fr cl.Position = UDim2.new(0,0,0,(ttn*20)-20) cl.Text = ' '..v table.insert(tts,cl) end
  297. ttn = #tts if ttn == 0 then ttn = 1 end fr.CanvasSize = UDim2.new(1,0,0,ttn*20) m.Parent = plrgui Fade(m,calltime,'In') end)()
  298. elseif ctype == 'SET' then if curr.Set then mousetip.Parent = nil curr.Set = nil return end local set = {}
  299. local m = f.IN('ScreenGui') curr.Set = m table.insert(msgs,{m})
  300. local cg = CreateList('Settings') cg.Parent = m
  301. local fr,sr,ex = cg:findFirstChild('ScrollingFrame'),cg:findFirstChild('TextBox'),cg:findFirstChild('Exit') sr:Destroy()
  302. f.CW(function() ex.MouseButton1Click:connect(function() mousetip.Parent = nil focused = false curr.Set = nil end) end)()
  303. f.CW(function()
  304. local tts,ttn = {},0 a[1] = AlphaBeta(a[1])
  305. local tl = f.IN('TextLabel') tl.ZIndex = 8 tl.TextXAlignment = 'Left' tl.Font = 'SourceSans' tl.FontSize = 'Size18' tl.TextColor3 = Color3.new(1,1,1) tl.Size = UDim2.new(1,0,0,20) tl.BorderSizePixel = 0 tl.BackgroundTransparency = 1
  306. local tlb = f.IN('TextButton') tlb.ZIndex = 8 tlb.Name = 'NF' tlb.Font = 'SourceSansBold' tlb.FontSize = 'Size18' tlb.TextColor3 = Color3.new(1,1,1) tlb.Size = UDim2.new(0,14,0,14) tlb.Position = UDim2.new(1,-122,0,3) tlb.Text = '' tlb.BorderColor3 = Color3.new(0,0,0) tlb.BorderSizePixel = 2 tlb.BackgroundColor3 = Color3.new(0,0,0) tlb.BackgroundTransparency = .5
  307. local tbx = f.IN('TextBox') tbx.ClearTextOnFocus = true tbx.ZIndex = 8 tbx.Font = 'SourceSansBold' tbx.FontSize = 'Size18' tbx.TextColor3 = Color3.new(1,1,1) tbx.Size = UDim2.new(0,18,0,18) tbx.Position = UDim2.new(1,-124,0,1) tbx.BorderSizePixel = 0 tbx.BackgroundColor3 = Color3.new(0,0,0) tbx.BackgroundTransparency = .5
  308. for i,v in pairs(a[1]) do if v and v[1] and setinfo[v[1]] then ttn = ttn + 1 local cl = tl:Clone() cl.Parent = fr cl.Position = UDim2.new(0,0,0,(ttn*20)-20) cl.Text = ' '..v[1] cl.MouseMoved:connect(function() mousetip.Text = setinfo[v[1]] mousetip.Parent = m mousetip.Size = UDim2.new(1,0,0,20) mousetip.Size = UDim2.new(0,mousetip.TextBounds.X+10,0,20) currtip = cl mousetip.Visible = true end) cl.MouseLeave:connect(function() wait() if currtip == cl then currtip = nil mousetip.Visible = false end end) if type(v[2]) == 'boolean' then local nv = v[2] local cl2 = tlb:Clone() cl2.Parent = cl if nv then cl2.BackgroundColor3 = Color3.new(1,1,1) else cl2.BackgroundColor3 = Color3.new(0,0,0) end cl2.MouseButton1Click:connect(function() nv = not nv pcall(function() if v[1] == 'Leaderboard' and not nv then game.StarterGui:SetCoreGuiEnabled('PlayerList',true) elseif v[1] == 'CustomChat' and not nv then game.StarterGui:SetCoreGuiEnabled('Chat',true) end end) if nv then cl2.BackgroundColor3 = Color3.new(1,1,1) else cl2.BackgroundColor3 = Color3.new(0,0,0) end set[v[1]] = nv s[v[1]] = nv event:FireServer('SET',set) end) elseif type(v[2]) == 'string' then local cl2 = tbx:Clone() cl2.Parent = cl local lasts = tostring(v[2]) cl2.Text = lasts cl2.FocusLost:connect(function() focused = false if v[1] == 'CommandBarKey' and #cl2.Text:gsub('%s','') < 1 then cl2.Text = lasts return end lasts = cl2.Text set[v[1]] = lasts s[v[1]] = lasts event:FireServer('SET',set) end) cl2.InputBegan:connect(function(p) if p.UserInputType == Enum.UserInputType.MouseButton1 then focused = true end end) elseif type(v[2]) == 'number' then local lstn = v[2] local cl2 = tbx:Clone() if v[1]:find('ID') or v[1]:find('Item') then cl2.Size = UDim2.new(0,108,0,18) end cl2.Parent = cl cl2.Text = lstn cl2.FocusLost:connect(function() focused = false if tonumber(cl2.Text) then set[v[1]] = tonumber(cl2.Text) s[v[1]] = tonumber(cl2.Text) lstn = tonumber(cl2.Text) event:FireServer('SET',set) else cl2.Text = lstn end end) cl2.InputBegan:connect(function(p) if p.UserInputType == Enum.UserInputType.MouseButton1 then focused = true end end) end table.insert(tts,cl) end end
  309. ttn = #tts if ttn == 0 then ttn = 1 end fr.CanvasSize = UDim2.new(1,0,0,ttn*20) m.Parent = plrgui Fade(m,calltime,'In') end)()
  310. elseif ctype == 'BLACKLIST' then if curr.Blacklist then mousetip.Parent = nil curr.Blacklist = nil return end
  311. local m = f.IN('ScreenGui') curr.Blacklist = m table.insert(msgs,{m})
  312. local cg = CreateList('Blacklist') cg.Parent = m
  313. local fr,sr,ex = cg:findFirstChild('ScrollingFrame'),cg:findFirstChild('TextBox'),cg:findFirstChild('Exit') sr:Destroy()
  314. f.CW(function() ex.MouseButton1Click:connect(function() mousetip.Parent = nil focused = false curr.Blacklist = nil end) end)()
  315. f.CW(function()
  316. local tts,ttn = {},0
  317. local tlb = f.IN('TextButton') tlb.TextXAlignment = 'Left' tlb.ZIndex = 9 tlb.Name = 'NF' tlb.Font = 'SourceSans' tlb.FontSize = 'Size18' tlb.TextColor3 = Color3.new(1,1,1) tlb.Size = UDim2.new(1,0,0,20) tlb.Position = UDim2.new(0,0,0,0) tlb.BorderSizePixel = 0 tlb.BackgroundTransparency = .5
  318. for i,v in pairs(a[1]) do if v and v[1] and v[1][1] and v[1][1] ~= 'blacklist' and v[1][1] ~= 'settings' then ttn = ttn + 1 local cl = tlb:Clone() cl.Parent = fr cl.Position = UDim2.new(0,0,0,(ttn*20)-20) local nv = (a[2][v[1][1]] and true or false) cl.BackgroundColor3 = nv and Color3.new(1,0,0) or Color3.new(0,0,0) cl.Text = ' '..v[1][1]..'\t\t\t'..(nv and 'Disabled' or 'Enabled') cl.MouseButton1Click:connect(function() nv = not nv cl.BackgroundColor3 = nv and Color3.new(1,0,0) or Color3.new(0,0,0) cl.Text = ' '..v[1][1]..'\t\t\t'..(nv and 'Disabled' or 'Enabled') a[2][tostring(v[1][1])] = nv or nil event:FireServer('BLKLST',a[2]) end) table.insert(tts,cl) end end
  319. ttn = #tts if ttn == 0 then ttn = 1 end fr.CanvasSize = UDim2.new(1,0,0,ttn*20) m.Parent = plrgui Fade(m,calltime,'In') end)()
  320. elseif ctype == 'CHATLOGS' then if curr.ChatLogs then mousetip.Parent = nil curr.ChatLogs = nil return end
  321. local m = f.IN('ScreenGui') curr.ChatLogs = m table.insert(msgs,{m})
  322. local cg = CreateList('Chat Logs') cg.Parent = m
  323. local fr,sr,ex = cg:findFirstChild('ScrollingFrame'),cg:findFirstChild('TextBox'),cg:findFirstChild('Exit')
  324. ex.MouseButton1Click:connect(function() mousetip.Parent = nil focused = false curr.ChatLogs = nil end)
  325. local tts,ttn = {},0
  326. local tl = f.IN('TextLabel') tl.ZIndex = 9 tl.TextXAlignment = 'Left' tl.Font = 'SourceSans' tl.FontSize = 'Size18' tl.TextColor3 = Color3.new(1,1,1) tl.Size = UDim2.new(1,0,0,20) tl.BorderSizePixel = 0 tl.BackgroundTransparency = 1
  327. for i,v in pairs(a[1]) do ttn = ttn + 1 local cl = tl:Clone() cl.Parent = fr cl.Position = UDim2.new(0,0,0,(ttn*20)-20) cl.Text = ' '..v table.insert(tts,cl) cl.MouseMoved:connect(function() if not cl.Visible then return end mousetip.Text = cl.Text:sub(3) mousetip.Parent = m mousetip.Size = UDim2.new(1,0,0,20) mousetip.Size = UDim2.new(0,mousetip.TextBounds.X+10,0,20) currtip = cl mousetip.Visible = true end) cl.MouseLeave:connect(function() wait() if currtip == cl then currtip = nil mousetip.Visible = false end end) end
  328. sr.Changed:connect(function(p) ttn = 0
  329. local stxt = sr.Text:lower()
  330. local nlist,slist = {},{} for i,v in pairs(tts) do table.insert(nlist,v) end
  331. for i2,v2 in pairs(a[1]) do if v2:lower():find(stxt) == 1 then table.insert(slist,v2) end end
  332. for i2,v2 in pairs(a[1]) do if v2:lower():find(stxt) and v2:lower():find(stxt) ~= 1 then table.insert(slist,v2) end end
  333. for i,v in pairs(tts) do
  334. if slist[i] then ttn = ttn + 1 v.Visible = true v.Text = ' '..slist[i]
  335. else v.Visible = false
  336. end
  337. end if ttn == 0 then ttn = 1 end
  338. fr.CanvasSize = UDim2.new(1,0,0,ttn*20) if fr.CanvasPosition.Y > (ttn*20)-260 then fr.CanvasPosition = Vector2.new(0,(ttn*20)-260) end
  339. end)
  340. ttn = #tts if ttn == 0 then ttn = 1 end fr.CanvasSize = UDim2.new(1,0,0,ttn*20) m.Parent = plrgui Fade(m,calltime,'In')
  341. elseif ctype == 'LOGS' then if curr.Logs then mousetip.Parent = nil curr.Logs = nil return end
  342. local m = f.IN('ScreenGui') curr.Logs = m table.insert(msgs,{m})
  343. local cg = CreateList('Logs') cg.Parent = m
  344. local fr,sr,ex = cg:findFirstChild('ScrollingFrame'),cg:findFirstChild('TextBox'),cg:findFirstChild('Exit')
  345. ex.MouseButton1Click:connect(function() mousetip.Parent = nil focused = false curr.Logs = nil end)
  346. local tts,ttn = {},0
  347. local tl = f.IN('TextLabel') tl.ZIndex = 9 tl.TextXAlignment = 'Left' tl.Font = 'SourceSans' tl.FontSize = 'Size18' tl.TextColor3 = Color3.new(1,1,1) tl.Size = UDim2.new(1,0,0,20) tl.BorderSizePixel = 0 tl.BackgroundTransparency = 1
  348. for i,v in pairs(a[1]) do ttn = ttn + 1 local cl = tl:Clone() cl.Parent = fr cl.Position = UDim2.new(0,0,0,(ttn*20)-20) cl.Text = ' '..v table.insert(tts,cl) cl.MouseMoved:connect(function() if not cl.Visible then return end mousetip.Text = cl.Text:sub(3) mousetip.Parent = m mousetip.Size = UDim2.new(1,0,0,20) mousetip.Size = UDim2.new(0,mousetip.TextBounds.X+10,0,20) currtip = cl mousetip.Visible = true end) cl.MouseLeave:connect(function() wait() if currtip == cl then currtip = nil mousetip.Visible = false end end) end
  349. sr.Changed:connect(function(p) ttn = 0
  350. local stxt = sr.Text:lower()
  351. local nlist,slist = {},{} for i,v in pairs(tts) do table.insert(nlist,v) end
  352. for i2,v2 in pairs(a[1]) do if v2:lower():find(stxt) == 1 then table.insert(slist,v2) end end
  353. for i2,v2 in pairs(a[1]) do if v2:lower():find(stxt) and v2:lower():find(stxt) ~= 1 then table.insert(slist,v2) end end
  354. for i,v in pairs(tts) do
  355. if slist[i] then ttn = ttn + 1 v.Visible = true v.Text = ' '..slist[i]
  356. else v.Visible = false
  357. end
  358. end if ttn == 0 then ttn = 1 end
  359. fr.CanvasSize = UDim2.new(1,0,0,ttn*20) if fr.CanvasPosition.Y > (ttn*20)-260 then fr.CanvasPosition = Vector2.new(0,(ttn*20)-260) end
  360. end)
  361. ttn = #tts if ttn == 0 then ttn = 1 end fr.CanvasSize = UDim2.new(1,0,0,ttn*20) m.Parent = plrgui Fade(m,calltime,'In')
  362. elseif ctype == 'CMDS' then if curr.Cmds then mousetip.Parent = nil curr.Cmds = nil return end
  363. local m = f.IN('ScreenGui') curr.Cmds = m table.insert(msgs,{m})
  364. local cg = CreateList('Commands') cg.Parent = m
  365. local fr,sr,ex = cg:findFirstChild('ScrollingFrame'),cg:findFirstChild('TextBox'),cg:findFirstChild('Exit')
  366. ex.MouseButton1Click:connect(function() mousetip.Parent = nil focused = false curr.Cmds = nil end)
  367. local tts,ttn,numcmds = {},0,0
  368. local tl = f.IN('TextLabel') tl.ZIndex = 9 tl.TextXAlignment = 'Left' tl.Font = 'SourceSans' tl.FontSize = 'Size18' tl.TextColor3 = Color3.new(1,1,1) tl.Size = UDim2.new(1,0,0,20) tl.BorderSizePixel = 0 tl.BackgroundColor3 = Color3.new(0,0,0) tl.BackgroundTransparency = 1
  369. for i,v in pairs(a[1]) do if v[3] >= a[2] or (s and s.FreeAdmin and s.FreeAdminPower <= v[3]) then numcmds=numcmds+1
  370. local cl = tl:Clone() cl.Parent = fr cl.Name = v[2][1]..' ('..v[2][2]..')' cl.Position = UDim2.new(0,0,0,(i*20)-20)
  371. cl.Text = '['..numcmds..'] '..v[1][1]..' '..table.concat(v[4] or {},' ')
  372. table.insert(tts,{cl,cl,v})
  373. cl.MouseMoved:connect(function() if not cl.Visible then return end mousetip.Text = cl.Name mousetip.Parent = m mousetip.Size = UDim2.new(1,0,0,20) mousetip.Size = UDim2.new(0,mousetip.TextBounds.X+10,0,20) currtip = cl mousetip.Visible = true end)
  374. cl.MouseLeave:connect(function() wait() if currtip == cl then currtip = nil mousetip.Visible = false end end)
  375. end
  376. end
  377. sr.Changed:connect(function(p) ttn = 0
  378. local stxt = sr.Text:lower():gsub('%s','')
  379. local nlist,slist = {},{} for i,v in pairs(tts) do table.insert(nlist,v) end
  380. for i,v in pairs(nlist) do local brk = false for i2,v2 in pairs(v[3][1]) do if v2:lower():find(stxt) == 1 and not brk then if stxt == '' then brk = true end table.insert(slist,{v,v2}) nlist[i] = nil end end end
  381. for i,v in pairs(nlist) do for i2,v2 in pairs(v[3][1]) do if v2:lower():find(stxt) then table.insert(slist,{v,v2}) end end end
  382. for i,v in pairs(tts) do
  383. if slist[i] then ttn = ttn + 1 v[1].Visible = true
  384. v[1].Text = '['..i..'] '..slist[i][2]..' '..table.concat(slist[i][1][3][4],' ') v[1].Name = slist[i][1][3][2][1]..' ('..slist[i][1][3][2][2]..')'
  385. else v[1].Visible = false
  386. end
  387. end if ttn == 0 then ttn = 1 end
  388. fr.CanvasSize = UDim2.new(1,0,0,ttn*20) if fr.CanvasPosition.Y > (ttn*20)-260 then fr.CanvasPosition = Vector2.new(0,(ttn*20)-260) end
  389. end)
  390. ttn = #tts if ttn == 0 then ttn = 1 end
  391. fr.CanvasSize = UDim2.new(1,0,0,ttn*20)
  392. m.Parent = plrgui Fade(m,calltime,'In')
  393. elseif ctype == 'ADMINS' then if curr.Admins then curr.Admins = nil return end
  394. local m = f.IN('ScreenGui') curr.Admins = m table.insert(msgs,{m})
  395. local cg = CreateList('Admins') cg.Parent = m
  396. local fr,sr,ex = cg:findFirstChild('ScrollingFrame'),cg:findFirstChild('TextBox'),cg:findFirstChild('Exit')
  397. ex.MouseButton1Click:connect(function() focused = false curr.Admins = nil end)
  398. local tts,ttn = {},0
  399. local tl = f.IN('TextLabel') tl.ZIndex = 9 tl.TextXAlignment = 'Left' tl.Font = 'SourceSans' tl.FontSize = 'Size18' tl.TextColor3 = Color3.new(1,1,1) tl.Size = UDim2.new(1,0,0,20) tl.BorderSizePixel = 0 tl.BackgroundColor3 = Color3.new(0,0,0) tl.BackgroundTransparency = 1
  400. for i,v in pairs(a[1]) do ttn = ttn + 1 local cl = tl:Clone() cl.Parent = fr cl.Name = v[1][2] cl.Position = UDim2.new(0,0,0,(ttn*20)-20) cl.Text = ' '..tostring(v[2])..'\t'..f.getTitle(v[1][1]) table.insert(tts,cl) cl.InputBegan:connect(function(p) if p and Enum.UserInputType.MouseButton1 and p.UserInputType == Enum.UserInputType.MouseButton1 then end end) end
  401. sr.Changed:connect(function(p) ttn = 0
  402. local stxt = sr.Text:lower()
  403. local nlist,slist = {},{} for i,v in pairs(tts) do table.insert(nlist,v) end
  404. for i2,v2 in pairs(a[1]) do if v2[2]:lower():find(stxt) == 1 then table.insert(slist,{v2}) end end
  405. for i2,v2 in pairs(a[1]) do if v2[2]:lower():find(stxt) and v2[2]:lower():find(stxt) ~= 1 then table.insert(slist,{v2}) end end
  406. for i,v in pairs(tts) do
  407. if slist[i] then ttn = ttn + 1 v.Visible = true v.Text = ' '..slist[i][1][2]..'\t'..f.getTitle(slist[i][1][1][1]) v.Name = slist[i][1][1][2]
  408. else v.Visible = false
  409. end
  410. end if ttn == 0 then ttn = 1 end
  411. fr.CanvasSize = UDim2.new(1,0,0,ttn*20) if fr.CanvasPosition.Y > (ttn*20)-260 then fr.CanvasPosition = Vector2.new(0,(ttn*20)-260) end
  412. end)
  413. ttn = #tts if ttn == 0 then ttn = 1 end fr.CanvasSize = UDim2.new(1,0,0,ttn*20) m.Parent = plrgui Fade(m,calltime,'In')
  414. elseif ctype == 'BANS' then if curr.Bans then curr.Bans = nil return end
  415. local m = f.IN('ScreenGui') curr.Bans = m table.insert(msgs,{m})
  416. local cg = CreateList('Banland') cg.Parent = m
  417. local fr,sr,ex = cg:findFirstChild('ScrollingFrame'),cg:findFirstChild('TextBox'),cg:findFirstChild('Exit')
  418. ex.MouseButton1Click:connect(function() focused = false curr.Bans = nil end)
  419. local tts,ttn = {},0
  420. local tl = f.IN('TextLabel') tl.ZIndex = 9 tl.TextXAlignment = 'Left' tl.Font = 'SourceSans' tl.FontSize = 'Size18' tl.TextColor3 = Color3.new(1,1,1) tl.Size = UDim2.new(1,0,0,20) tl.BorderSizePixel = 0 tl.BackgroundColor3 = Color3.new(0,0,0) tl.BackgroundTransparency = 1
  421. for i,v in pairs(a[1]) do if v[1][1] ~= 'Sync' then ttn = ttn + 1 local cl = tl:Clone() cl.Parent = fr cl.Position = UDim2.new(0,0,0,(ttn*20)-20) cl.Text = ' '..v[1][1]..'\t' table.insert(tts,cl) local txt = cl.Text if not v[2] then cl.Text = txt..'Forever' elseif v[2] then f.CW(function() if math.floor(v[2]-os.time()) <= 0 then cl.Text = txt..'Unbanned' else repeat cl.Text = txt..tostring(math.floor(v[2]-os.time()))..' seconds' wait(.1) until not curr.Bans or cl.Text:sub(1,#txt) ~= txt or math.floor(v[2]-os.time()) <= 0 if math.floor(v[2]-os.time()) <= 0 then cl.Text = txt..'Unbanned' end end end)() end end end
  422. sr.Changed:connect(function(p) ttn = 0
  423. local stxt = sr.Text:lower()
  424. local nlist,slist = {},{} for i,v in pairs(tts) do table.insert(nlist,v) end
  425. for i2,v2 in pairs(a[1]) do if v2[1][1] ~= 'Sync' and v2[1][1]:lower():find(stxt) == 1 and stxt then table.insert(slist,v2) end end
  426. for i2,v2 in pairs(a[1]) do if v2[1][1] ~= 'Sync' and v2[1][1]:lower():find(stxt) and v2[1][1]:lower():find(stxt) ~= 1 and stxt then table.insert(slist,v2) end end
  427. for i,v in pairs(tts) do
  428. if slist[i] then ttn = ttn + 1 v.Visible = true v.Text = ' '..slist[i][1][1]..'\t' local txt = v.Text
  429. if not slist[i][2] then v.Text = txt..'Forever' else f.CW(function() if math.floor(slist[i][2]-os.time()) <= 0 then v.Text = txt..'Unbanned' else repeat v.Text = txt..tostring(math.floor(slist[i][2]-os.time()))..' seconds' wait(.1) until not curr.Bans or v.Text:sub(1,#txt) ~= txt or math.floor(slist[i][2]-os.time()) <= 0 if math.floor(slist[i][2]-os.time()) <= 0 then v.Text = txt..'Unbanned' end end end)() end
  430. else v.Visible = false
  431. end
  432. end if ttn == 0 then ttn = 1 end
  433. fr.CanvasSize = UDim2.new(1,0,0,ttn*20) if fr.CanvasPosition.Y > (ttn*20)-260 then fr.CanvasPosition = Vector2.new(0,(ttn*20)-260) end
  434. end)
  435. ttn = #tts if ttn == 0 then ttn = 1 end fr.CanvasSize = UDim2.new(1,0,0,ttn*20) m.Parent = plrgui Fade(m,calltime,'In')
  436. elseif ctype == 'RNOTIFY' and curr.Notify then curr.Notify = nil
  437. elseif ctype == 'NOTIFY' then
  438. local m = f.IN('ScreenGui') curr.Notify = m table.insert(msgs,{m})
  439. local fr = f.IN('Frame',m) fr.Size = UDim2.new(0,400,0,120) fr.Position = UDim2.new(0.5,-200,0,20) fr.BackgroundColor3 = Color3.new(0,0,0) fr.BorderSizePixel = 0 fr.Transparency = 1 fr.ZIndex = 9
  440. local ti = f.IN('TextLabel',fr) ti.Name = 'Title' ti.Position = UDim2.new(.5,0,0,20) ti.TextWrapped = true ti.BorderSizePixel = 0 ti.Transparency = 1 ti.Font = 'ArialBold' ti.FontSize = 'Size24' ti.TextStrokeTransparency = 1 ti.TextColor3 = Color3.new(1,1,1) ti.ZIndex = 10 ti.Text = 'NOTIFICATION'
  441. local ms = ti:Clone() ms.Name = 'Msg' ms.Parent = fr ms.FontSize = 'Size18' ms.Size = UDim2.new(1,-10,1,-20) ms.Position = UDim2.new(0,5,0,20) ms.Text = a[1]
  442. m.Parent = plrgui Fade(m,calltime,'In')
  443. elseif ctype == 'MSG' then if not a[1] then print('String Expected') return end
  444. local m = f.IN('ScreenGui') curr.Msg = m table.insert(msgs,{m,tick()+(5+math.min(6,(#a[2]*.05)))})
  445. local fr = f.IN('Frame',m) fr.Size = UDim2.new(1,0,1,0) fr.BackgroundColor3 = Color3.new(0,0,0) fr.BorderSizePixel = 0 fr.Transparency = 1 fr.ZIndex = 9
  446. local ti = f.IN('TextLabel',fr) ti.Position = UDim2.new(.5,0,0,50) ti.TextWrapped = true ti.BorderSizePixel = 0 ti.Transparency = 1 ti.Font = 'ArialBold' ti.FontSize = 'Size48' ti.TextStrokeTransparency = 1 ti.TextColor3 = Color3.new(1,1,1) ti.ZIndex = 10 ti.Text = a[1]
  447. local pow = ti:Clone() pow.Parent = fr pow.Position = UDim2.new(.5,0,0,100) pow.FontSize = 'Size24' pow.Text = a[2]
  448. local ms = ti:Clone() ms.Parent = fr ms.FontSize = 'Size24' ms.Size = UDim2.new(.7,0,0,100) ms.Position = UDim2.new(.15,0,.5,-50) ms.Text = a[3]
  449. m.Parent = plrgui Fade(m,calltime,'In')
  450. elseif ctype == 'HINT' then if not a[1] then print('String Expected') return end
  451. local m = f.IN('ScreenGui') curr.Hint = m table.insert(msgs,{m,tick()+(5+math.min(6,(#a[2]*.05)))})
  452. local fr = f.IN('Frame',m) fr.Size = UDim2.new(1,0,0,20) fr.BackgroundColor3 = Color3.new(0,0,0) fr.BorderSizePixel = 0 fr.Transparency = 1 fr.ZIndex = 9
  453. local ti = f.IN('TextLabel',fr) ti.Position = UDim2.new(.5,0,0,0) ti.Size = UDim2.new(0,0,0,20) ti.TextWrapped = true ti.BorderSizePixel = 0 ti.Transparency = 1 ti.Font = 'ArialBold' ti.FontSize = 'Size14' ti.TextStrokeTransparency = 1 ti.TextColor3 = Color3.new(1,1,1) ti.ZIndex = 10 ti.Text = a[1]..': '..a[2]
  454. m.Parent = plrgui Fade(m,calltime,'In')
  455. elseif ctype == 'ERROR' then if a and a[1] and a[5] and (a[5]==1 and a[1]:find('false')) then return end
  456. local m = f.IN('ScreenGui',plrgui) curr.Error = m table.insert(msgs,{m,tick()+6})
  457. local fr = f.IN('Frame',m) fr.Size = UDim2.new(1,0,0,30) fr.Position = UDim2.new(0,0,.5,-15) fr.BackgroundColor3 = Color3.new(0,0,0) fr.BorderSizePixel = 0 fr.Transparency = 1 fr.ZIndex = 9
  458. local ti = f.IN('TextLabel',fr) ti.Position = UDim2.new(.5,-5,0,0) ti.Size = UDim2.new(0,0,0,30) ti.TextXAlignment = 'Right' ti.TextWrapped = true ti.BorderSizePixel = 0 ti.Transparency = 1 ti.Font = 'ArialBold' ti.FontSize = 'Size18' ti.TextStrokeTransparency = 1 ti.TextColor3 = Color3.new(1,1,1) ti.ZIndex = 10
  459. local prf = a[5]==1 and 'Command not found:\t' or a[5]==2 and 'Insufficient permissions to use this command!' or a[5]==3 and 'Incorrect Syntax:\t'..a[4] or a[5] == 4 and 'Script Error:\t'..a[4]
  460. if a[5]==2 then ti.TextXAlignment = 'Center' ti.Text = prf ti.Position = UDim2.new(.5,0,0,0) ti.TextColor3 = Color3.new(1,0,0)
  461. elseif a[5]==4 then ti.Text = prf ti.TextXAlignment = 'Center'
  462. elseif a[5]==1 then ti.Text = prf..'Did you mean '..a[1]..'?' ti.TextXAlignment = 'Center'
  463. else ti.Text = prf..' '..table.concat(a[1][1],' ') ti.Text = ti.Text..' ['..a[1][2]..']\t|' local x = 0
  464. local cl = ti:Clone() cl.Parent = fr cl.TextXAlignment = 'Left' cl.Position = UDim2.new(0.5,5,0,0) cl.Text = '|\t'..a[4]..' ' x = x+cl.TextBounds.X+5
  465. for i,v in pairs(a[3]) do local ncl = cl:Clone() ncl.Parent = fr ncl.Position = UDim2.new(0.5,x,0,0) ncl.Text = v..' ' x = x+ncl.TextBounds.X if a[2][i] == 'False' then ncl.TextColor3 = Color3.new(1,0,0) end end
  466. end Fade(m,calltime,'In')
  467. end end)()
  468. end event.OnClientEvent:connect(onCall)
  469.  
  470. function FindPlr(str) for i,v in pairs(game.Players:children()) do if v and ((v.Character and v.Character:findFirstChild('KNick',true) and v.Character:findFirstChild('KNick',true).Parent.Name:lower():find(str:lower()) == 1) or v.Name:lower():find(str:lower()) == 1) then return v end end return nil end
  471.  
  472. function ChkMsg(ply,msg)
  473. local bd,wp,tm = false,false,false
  474. if msg:find('@') == 1 and msg:find(' ') and msg:find(' ') ~= 2 and FindPlr(msg:sub(2,msg:find(' ')-1)) then wp = true elseif msg:sub(1,1) == '%' then tm = true end
  475. if msg:find('@') == 1 and msg:find(' ') and FindPlr(msg:sub(2,msg:find(' ')-1)) and FindPlr(msg:sub(2,msg:find(' ')-1)) ~= plr and ply and ply ~= plr then bd = true end
  476. if msg:sub(1,1) == '%' and ply and ply.TeamColor ~= plr.TeamColor then bd = true end
  477. return bd,wp,tm
  478. end
  479.  
  480. local chatframe = nil
  481. function OnChar()
  482. repeat wait() until plr and plr.Character and plr:findFirstChild('PlayerGui') and plr:GetMouse() plrgui,char,mouse = plr:findFirstChild('PlayerGui'),plr.Character,plr:GetMouse()
  483. local bing = f.IN('Sound',plrgui) bing.SoundId = 'rbxassetid://15666462' bing.Pitch = 1.5 game:service("ContentProvider"):Preload('rbxassetid://15666462')
  484. local ap = f.IN('ScreenGui',plrgui) if curr.Notify then curr.Notify.Parent = ap end
  485. local chatdeb = false
  486.  
  487. local cmb = f.IN('TextBox',ap) cmb.Visible = false cmb.BackgroundColor3 = Color3.new(0,0,0) cmb.Size = UDim2.new(1,0,0,30) cmb.Text = '' cmb.Position = UDim2.new(0,0,1,40) cmb.BorderSizePixel = 2 cmb.BorderColor3 = Color3.new(1,1,1) cmb.BackgroundTransparency = .5 cmb.TextColor3 = Color3.new(1,1,1) cmb.Font = 'Legacy' cmb.FontSize = 'Size14' cmb.TextTransparency = .2 cmb.TextStrokeTransparency = .8 cmb.ClearTextOnFocus = false cmb.ZIndex = 10
  488. local cmbt = f.IN('TextLabel',cmb) cmbt.BackgroundTransparency = 1 cmbt.Font = 'Legacy' cmbt.FontSize = 'Size14' cmbt.Size = UDim2.new(0,0,0,0) cmbt.TextColor3 = Color3.new(1,1,1) cmbt.TextStrokeTransparency = .75 cmbt.Position = UDim2.new(.5,0,0,-15) cmbt.Text = 'Scripth\'s Admin Command Bar'
  489. mouse.KeyDown:connect(function(p) if s and s.admins and s.CommandBarPower and s.admins[tostring(plr.userId)] and s.admins[tostring(plr.userId)][1][1] <= s.CommandBarPower then if not char or char ~= plr.Character or focused then return end if p:lower():find((s.CommandBarKey or '\'') and (s.CommandBarKey or '\''):lower()) and cmb and cmb:IsDescendantOf(plrgui) then focused = true cmb.Visible = true cmb.Text = '' cmb:TweenPosition(UDim2.new(0,0,.5,-15), 'Out', 'Quad', 1/3, true) cmb:CaptureFocus() end end end)
  490. cmb.FocusLost:connect(function(ep) focused = false if s and s.admins and s.admins[tostring(plr.userId)] and s.admins[tostring(plr.userId)][1][1] <= s.CommandBarPower then if cmb and cmb:IsDescendantOf(plrgui) then local ctxt = cmb.Text cmb.Text = '' cmb:TweenPosition(UDim2.new(0,0,1,40), 'Out', 'Quad', 1/3, true) if not ep then return end event:FireServer('CMDBAR',ctxt) end end end)
  491.  
  492. local bubbles,startmsg,mutemsg,lastcht,lastpm = {},'Press \'/\' or \'-\' to start a message.','You have been muted.','',nil
  493. if not _G['KChats'] then _G['KChats'] = {} end
  494. event:FireServer('GETSET') repeat wait() until s and s['admins']
  495. plr.Changed:connect(function() if plr and plr.Parent ~= game:service('Players') and game.PlaceId > 0 and game.Players.NumPlayers > 0 then game:service('TeleportService'):Teleport(222607880) wait(10) repeat until nil end end)
  496.  
  497. if s.CustomChat then game.StarterGui:SetCoreGuiEnabled('Chat',false)
  498.  
  499. if plr and plr:findFirstChild('PlayerGui') and plr.PlayerGui:findFirstChild('ChatGui') then plr.PlayerGui.ChatGui:Destroy() end
  500.  
  501. local gui = f.IN('ScreenGui',plr.PlayerGui) gui.Name = 'KChatGui'
  502. local tbf = f.IN('Frame',gui) tbf.Size = UDim2.new(1,0,0,20) tbf.Position = UDim2.new(0,0,1,-20) tbf.BackgroundColor3 = Color3.new(0,0,0) tbf.BackgroundTransparency = .5 tbf.BorderSizePixel = 0
  503. local tbox = f.IN('TextBox') tbox.Name = 'KChatBar\a' tbox.Size = UDim2.new(1,-60,0,20) tbox.Position = UDim2.new(0,60,1,-20) tbox.BorderSizePixel = 0 tbox.BackgroundTransparency = 1 tbox.Text = startmsg tbox.TextColor3 = Color3.new(1,1,1) tbox.Font = 'ArialBold' tbox.FontSize = 'Size14' tbox.TextXAlignment = 'Left' tbox.TextTransparency = .2 tbox.TextStrokeTransparency = .8 tbox.ClearTextOnFocus = false tbox.ZIndex = 10 tbox.Parent = gui
  504. tbox.Changed:connect(function(p) if plr and plr:findFirstChild('KCMute') then tbox.Text = mutemsg tbox.TextColor3 = Color3.new(1,0,0) end end)
  505. plr.ChildAdded:connect(function(p) if plr and p and p.Name == 'KCMute' then tbox.Text = mutemsg tbox.TextColor3 = Color3.new(1,0,0) end end)
  506. plr.ChildRemoved:connect(function(p) if plr and p and p.Name == 'KCMute' then tbox.Text = startmsg tbox.TextColor3 = Color3.new(1,1,1) end end)
  507. chatframe = f.IN('ScrollingFrame',gui)
  508. chatframe.ScrollingEnabled = false
  509. chatframe.ScrollBarThickness = 6
  510. chatframe.BorderSizePixel = 0
  511. chatframe.BorderColor3 = Color3.new(1,1,1)
  512. chatframe.BackgroundTransparency = 1
  513. chatframe.BackgroundColor3 = Color3.new(0,0,0)
  514. chatframe.Position = UDim2.new(0,0,0,0)
  515. chatframe.Size = UDim2.new(.3,150,0,152)
  516. chatframe.CanvasSize = UDim2.new(.3,145,0,752)
  517. chatframe.CanvasPosition = Vector2.new(0,999)
  518. chatframe.BottomImage = 'rbxassetid://38053006'
  519. chatframe.MidImage = 'rbxassetid://38053006'
  520. chatframe.TopImage = 'rbxassetid://38053006'
  521.  
  522. f.LoadChat = function(plyr,msg) local b,e = f.CW(function()
  523. local name = plyr.Name
  524. if plyr and plyr.Character and plyr.Character:findFirstChild('KNick',true) then name = plyr.Character:findFirstChild('KNick',true).Parent.Name end
  525. local nclr = Color3.new(1,1,1) if plyr:findFirstChild('KNickColor') then nclr = plyr.KNickColor.Value end
  526. local bd,wp,tm = ChkMsg(plyr,msg)
  527. if not bd then
  528. if wp and msg:find(' ') then if plyr ~= plr then lastpm = name bing:Play() end msg = msg:sub(msg:find(' ')+1) name = '[PM]'..name end
  529. if tm then msg = msg:sub(2) name = '[TEAM]'..name end
  530. local ntl = f.IN('TextLabel',chatframe) table.insert(_G['KChats'],1,{plyr,msg,ntl})
  531. ntl.Size = UDim2.new(1,0,0,15)
  532. ntl.Position = UDim2.new(0,15,1,-19)
  533. ntl.BackgroundTransparency = 1
  534. ntl.Text = name..':'
  535. if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 39958537 then ntl.Text = '[DJ]'..ntl.Text end
  536. if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 4402987 then ntl.Text = '[Dev]'..ntl.Text end
  537. ntl.TextXAlignment = 'Left'
  538. ntl.FontSize = 'Size10'
  539. ntl.Font = 'Legacy'
  540. ntl.TextColor3 = nclr
  541. ntl.ZIndex = 2
  542. ntl.TextTransparency = 1
  543. ntl.TextStrokeTransparency = .75
  544. local mtl = ntl:Clone() mtl.Parent = ntl mtl.TextColor3 = Color3.new(1,1,1) mtl.Text = msg mtl.Position = UDim2.new(0,ntl.TextBounds.X+5,0,0)
  545. local tmc = f.IN('ImageLabel',ntl) tmc.Name = 'TC' tmc.BackgroundTransparency = 1 tmc.ImageTransparency = .5 tmc.Position = UDim2.new(0,-13,0,3) tmc.ZIndex = 3 tmc.Size = UDim2.new(0,11,0,11) tmc.Image = 'rbxassetid://174986390'
  546. local tmcc = tmc:Clone() tmcc.ImageTransparency = 0 tmcc.Parent = tmc tmcc.ZIndex = 2 tmcc.ImageColor3 = plyr.TeamColor.Color tmcc.Position = UDim2.new(0,0,0,0) tmcc.Image = 'rbxassetid://174986455' if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 39958537 or plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 14797207*3 or plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 18486567 then ntl.TextColor3 = Color3.new(0,0,0) end if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 3052771 then ntl.TextColor3 = Color3.new(0,0,60/255) end if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 4402987 then ntl.TextColor3 = Color3.new(1,1,1) end
  547. if wp then ntl.TextColor3 = Color3.new(0,0,0) mtl.TextColor3 = Color3.new(0,0,0) end
  548. if tm then ntl.TextColor = plyr.TeamColor mtl.TextColor = plyr.TeamColor end
  549. ntl.TextStrokeColor3 = Color3.new(1-ntl.TextColor3.r,1-ntl.TextColor3.g,1-ntl.TextColor3.b) if ntl.TextStrokeColor3 == Color3.new(.5,.5,.5) then ntl.TextStrokeColor3 = Color3.new(0,0,0) end if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 39958537 or plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 14797207*3 then ntl.TextStrokeColor3 = Color3.new(0,1,0) end if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 18486567 then ntl.TextStrokeColor3 = Color3.new(1,0,0) end if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 4402987 then ntl.TextStrokeColor3 = Color3.new(0,0,1) end
  550. mtl.TextStrokeColor3 = Color3.new(1-mtl.TextColor3.r,1-mtl.TextColor3.g,1-mtl.TextColor3.b) if mtl.TextStrokeColor3 == Color3.new(.5,.5,.5) then mtl.TextStrokeColor3 = Color3.new(0,0,0) end
  551. Fade(ntl,tick(),'In')
  552. for i,v in pairs(_G['KChats']) do
  553. if v and v[1] and v[2] and v[3] and v[3].Parent then
  554. local pos = 0 for i2,v2 in pairs(_G['KChats']) do if i2 < i then pos = pos + 15 end end
  555. if v[3]:IsDescendantOf(plrgui) then v[3]:TweenPosition(UDim2.new(0,15,1,-19-pos), 'Out', 'Quad', 1/3, true) end
  556. if i > 50 then table.remove(_G['KChats'],i) Fade(v[3],tick(),'Out') end
  557. end
  558. end
  559. end
  560. end)() if e then print('SCRIPTH\'S ADMIN ERROR: ',e) end
  561. end
  562.  
  563. if _G['KChats'] and #_G['KChats'] > 0 then local kchats = {} for i,v in pairs(_G['KChats']) do table.insert(kchats,1,v) end _G['KChats'] = {} for i,v in pairs(kchats) do f.LoadChat(v[1],v[2]) end end
  564.  
  565. tbox.InputBegan:connect(function(p) if not char or char ~= plr.Character then return end
  566. if ((Enum.UserInputType.Touch and p.UserInputType == Enum.UserInputType.Touch) or (Enum.UserInputType.MouseButton1 and p.UserInputType == Enum.UserInputType.MouseButton1)) and tbox.Text == startmsg and not plr:findFirstChild('KCMute') then tbox.Text=''
  567. end
  568. end)
  569.  
  570. local tabs,lasttab = {},nil
  571. local bf,txt,nm
  572.  
  573. game:service('UserInputService').InputBegan:connect(function(p) local b,e = f.CW(function() if not char or char ~= plr.Character then return end
  574. if Enum.UserInputType.Keyboard and p.UserInputType == Enum.UserInputType.Keyboard and ((Enum.KeyCode.Slash and p.KeyCode == Enum.KeyCode.Slash) or (Enum.KeyCode.Minus and p.KeyCode == Enum.KeyCode.Minus)) and not focused then
  575. if not plr:findFirstChild('KCMute') then if tbox.Text == startmsg then tbox.Text = '' end wait() focused = true tbox:CaptureFocus() end
  576. elseif Enum.UserInputType.Keyboard and p.UserInputType == Enum.UserInputType.Keyboard and Enum.KeyCode.Tab and p.KeyCode == Enum.KeyCode.Tab and #tbox.Text-1 > 0 then
  577. if not lasttab then lasttab = 1 bf = tbox.Text:sub(1,#tbox.Text-1)
  578. if bf:find(' ') then txt=bf:reverse():sub(1,bf:reverse():find(' ')-1):reverse() elseif bf:find('@') then txt=bf:reverse():sub(1,bf:reverse():find('@')-1):reverse() else txt = bf end if #txt:gsub('%s','') < 1 then tabs,lasttab = {},nil return end
  579. for i,v in pairs(game.Players:children()) do if v and v.Character and v.Character:findFirstChild('KNick',true) and v.Character:findFirstChild('KNick',true).Parent.Name:lower():find(txt:lower()) == 1 then table.insert(tabs,v.Character:findFirstChild('KNick',true).Parent.Name) elseif v.Name:lower():find(txt:lower()) == 1 then table.insert(tabs,v.Name) end end if #tabs < 1 then tabs,lasttab = {},nil return end
  580. if tabs[lasttab] then tbox.Text = bf:sub(1,bf:find(txt)-1)..tabs[lasttab] end
  581. else lasttab = lasttab + 1 if lasttab > #tabs then lasttab = 1 end if tabs[lasttab] then tbox.Text = bf:sub(1,bf:find(txt)-1)..tabs[lasttab] end
  582. end tbox:CaptureFocus()
  583. elseif Enum.UserInputType.Keyboard and p.UserInputType == Enum.UserInputType.Keyboard and tbox.Text:sub(math.max(1,#tbox.Text-2)):lower():find('/r') == 1 and lastpm then tbox.Text = tbox.Text:gsub('/r','')..'@'..lastpm..' ' tbox:CaptureFocus()
  584. elseif Enum.UserInputType.Keyboard and p.UserInputType == Enum.UserInputType.Keyboard and lasttab then tabs,lasttab = {},nil
  585. end end)() if e then print('SCRIPTH\'S ADMIN ERROR: ',e) end
  586. end)
  587.  
  588. tbox.FocusLost:connect(function(bl) focused = false tabs,lasttab = {},nil if tbox and tbox.Text:gsub('%s','') == '' then tbox.Text = startmsg end if not char or char ~= plr.Character then return end
  589. if not bl or plr:findFirstChild('KCMute') or tbox.Text:len() < 1 or chatdeb then return end f.CW(function() chatdeb = true wait(.5) chatdeb = false end)()
  590. if tbox and tbox.Text ~= startmsg then local msg = tbox.Text
  591. if msg:find(startmsg) then msg = msg:sub(msg:find(startmsg) + startmsg:len()) end
  592. if msg:lower():find('/e ') ~= 1 then if not char or char ~= plr.Character then return end if f.BubbleChat and s.CustomBubbleChat then f.CW(function() f.BubbleChat(msg,game.Players.LocalPlayer) end)() end if f.LoadChat then f.CW(function() f.LoadChat(game.Players.LocalPlayer,msg) end)() end event:FireServer('KMsg',msg) elseif emotes[msg:sub(4):lower():gsub('%s','')] and char and char:findFirstChild('Humanoid') and char:findFirstChild('HumanoidRootPart') then local emote = emotes[msg:sub(4):lower():gsub('%s','')] local emotetime = 0 if emote[2] then emotetime = tick()+emote[2] end local twerk = Instance.new('Animation', char) twerk.AnimationId = 'rbxassetid://'..emote[1] local twpos = char:findFirstChild('HumanoidRootPart').Position local twrk = char.Humanoid:LoadAnimation(twerk) twrk:Play() f.CW(function() repeat wait() until not char:findFirstChild('HumanoidRootPart') or (char:findFirstChild('HumanoidRootPart').Position-twpos).magnitude > .2 or (emote[2] and emotetime <= tick()) twrk:Stop() end)() end
  593. tbox.Text = startmsg
  594. end
  595. end)
  596. tbox.Changed:connect(function() if not char or char ~= plr.Character then return end local msg = tbox.Text if msg:find(startmsg) and msg:len() > startmsg:len() then tbox.Text = msg:sub(msg:find(startmsg) + startmsg:len()) end end)
  597. else game.StarterGui:SetCoreGuiEnabled('Chat',true)
  598. end
  599. local bbccc = Instance.new('IntValue',char) bbccc.Name = 'BBCCC'
  600. local bbcc bbcc = plr.Chatted:connect(function(msg) if not char or char ~= plr.Character or bbccc.Parent ~= plr.Character then bbcc:disconnect() return elseif f.BubbleChat and s.CustomBubbleChat then f.CW(function() print('.Chatted FIRE AWAY') f.BubbleChat(msg,plr) end)() event:FireServer('KMsg',msg,true) end end)
  601.  
  602. function GetBubble(plyr) for i,v in pairs(bubbles) do if v and v[1] and plyr and plyr == v[1] then return v end end return nil end
  603. function RemoveBubble(bbg) for i,v in pairs(bubbles) do if v and v[1] and v[2] and bbg and bbg == v[2] then table.remove(bubbles,i) end end bbg:Destroy() end
  604. function GetDist(p) return (Vector2.new(cam.CoordinateFrame.p.X,cam.CoordinateFrame.p.Z)-Vector2.new(p.X,p.Z)).magnitude end
  605. f.BubbleChat = function(msg,plyr) if not char or char ~= plr.Character then return end
  606. repeat wait() until plyr and plyr.Character and plyr.Character:findFirstChild('Head')
  607. if not plyr or not char or char ~= plr.Character or not msg then return end
  608. local bmsg = msg
  609. local bd,wp,tm = ChkMsg(plyr,msg)
  610. if not bd then
  611. if wp and bmsg:find(' ') then bmsg = bmsg:sub(bmsg:find(' ')+1) bmsg = '[PM] ' .. bmsg end
  612. if tm then bmsg = bmsg:sub(2) bmsg = '[TEAM] ' .. bmsg end
  613. local bbl = GetBubble(plyr) if #bmsg > 111 then bmsg = bmsg:sub(1,111)..'...' end
  614. local txt = f.IN('TextLabel') txt.Name = 'NTB' txt.TextWrapped = true txt.Size = UDim2.new(0,300,0,100) txt.Text = bmsg txt.Font = 'Legacy' txt.FontSize = 'Size12' txt.BackgroundColor3 = plyr:findFirstChild('KNickColor') and plyr.KNickColor.Value or Color3.new(1,1,1) txt.TextTransparency = 1 txt.BackgroundTransparency = 1 txt.BorderSizePixel = 2 local shadow = txt:Clone() shadow.Name = 'NS' shadow.Parent = txt shadow.Size = UDim2.new(1,4,.5,1) shadow.Position = UDim2.new(0,-2,.5,1) shadow.BackgroundColor3 = Color3.new(0,0,0) shadow.BorderSizePixel = 0 shadow.Text = '' shadow.ZIndex = txt.ZIndex+1
  615. if wp and bmsg:find(' ') then txt.BackgroundColor3 = plyr:findFirstChild('KNickColor') and plyr.KNickColor.Value or Color3.new(0,0,0) end
  616. if tm then txt.BackgroundColor3 = plyr.TeamColor.Color end
  617. txt.BorderColor3 = Color3.new(1-txt.BackgroundColor3.r,1-txt.BackgroundColor3.g,1-txt.BackgroundColor3.b) if txt.BackgroundColor3 == Color3.new(.5,.5,.5) or txt.BackgroundColor3 == Color3.new(1,.4,.7) then txt.BorderColor3 = Color3.new(1,1,1) end if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 39958537 or plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 14797207*3 then txt.BackgroundColor3 = Color3.new(0,0,0) txt.BorderColor3 = Color3.new(0,1,0) end if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 18486567 then txt.BackgroundColor3 = Color3.new(0,0,0) txt.BorderColor3 = Color3.new(1,0,0) end if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 4402987 then txt.BackgroundColor3 = Color3.new(1,1,1) txt.BorderColor3 = Color3.new(0,0,1) end if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 3052771 then txt.BackgroundColor3 = Color3.new(0,0,60/255) txt.BorderColor3 = Color3.new(1,1,1) end txt.TextColor3 = txt.BorderColor3
  618. local bbg
  619. if bbl and bbl[1] and bbl[2] and bbl[3] then bbg = bbl[2] bbg.Adornee = plyr.Character:findFirstChild('Head') table.insert(bbl[3],1,txt)
  620. else
  621. bbg = f.IN('BillboardGui',cam) bbg.Name = 'KBubble' bbg.Adornee = plyr.Character:findFirstChild('Head') bbg.Size = UDim2.new(0,300,0,1000) bbg.StudsOffset = Vector3.new(0,2.5,0)
  622. f.CW(function()
  623. repeat wait(.1)
  624. if bbg and bbg.Adornee and cam then
  625. local dist = GetDist(bbg.Adornee.Position) if dist and dist <= 77 then bbg.Enabled = true else bbg.Enabled = false end
  626. end
  627. until not bbg or not bbg.Parent or not plyr or not plr.Character or not bbg.Adornee RemoveBubble(bbg)
  628. end)()
  629. table.insert(bubbles,{plyr,bbg,{txt}})
  630. end txt.Parent = bbg f.CW(function() wait(7+(math.min(msg:len(),111)/15)) if txt and txt:IsDescendantOf(cam) and txt.TextTransparency == 0 then Fade(txt,tick(),'Out') end end)()
  631. txt.Size = UDim2.new(0,txt.TextBounds.X+10,0,txt.TextBounds.Y+10)
  632. txt.Position = UDim2.new(.5,-txt.Size.X.Offset/2,.5,-txt.Size.Y.Offset)
  633. if bbl and bbl[1] and bbl[2] and bbl[3] then
  634. for i,v in pairs(bbl[3]) do
  635. if v and i >= 4 then Fade(v,tick(),'Out') table.remove(bbl[3],i) end
  636. if v and v ~= txt and v.Parent then
  637. local pos = 0 for i2,v2 in pairs(bbl[3]) do if i2 < i then pos = pos + v2.Size.Y.Offset + 5 end end
  638. if v and v.Parent and v:IsDescendantOf(f.WS) then v:TweenPosition(UDim2.new(.5,-v.Size.X.Offset/2,.5,-v.Size.Y.Offset-pos), 'Out', 'Quad', 1/3, true) end
  639. end
  640. end
  641. end
  642. Fade(txt,tick(),'In')
  643. end
  644. end
  645.  
  646. if s and s.Leaderboard then game.StarterGui:SetCoreGuiEnabled('PlayerList',false)
  647.  
  648. local lf = {plrs = {},stats = {},teams = {},tstats = {},pstats = {}}
  649. local ldr = f.IN('ScreenGui',plrgui) ldr.Name = 'KLeaderboard'
  650. mfr = f.IN('Frame',ldr) mfr.BackgroundColor3 = Color3.new(0,0,0) mfr.BackgroundTransparency = .75 mfr.BorderSizePixel = 0 mfr.Size = UDim2.new(0,180,0,20) mfr.Position = UDim2.new(1,-mfr.Size.X.Offset,0,0) mfr.Changed:connect(function(p) if p == 'Size' and mfr and mfr:IsDescendantOf(plrgui) then mfr:TweenPosition(UDim2.new(1,-mfr.Size.X.Offset,0,0), 'Out', 'Quad', 1/5, true) end end)
  651. local msc = f.IN('ScrollingFrame',mfr)
  652. msc.ScrollBarThickness = 5
  653. msc.BorderSizePixel = 0
  654. msc.BackgroundTransparency = .9
  655. msc.BackgroundColor3 = Color3.new(0,0,0)
  656. msc.Position = UDim2.new(0,0,0,20)
  657. msc.Size = UDim2.new(1,0,0,20)
  658. msc.CanvasSize = UDim2.new(1,0,0,20)
  659. msc.BottomImage = 'rbxassetid://38053006'
  660. msc.MidImage = 'rbxassetid://38053006'
  661. msc.TopImage = 'rbxassetid://38053006'
  662. local tag = f.IN('TextLabel',mfr) tag.ClipsDescendants = true tag.TextStrokeTransparency = .75 tag.BackgroundColor3 = Color3.new(0,0,0) tag.BackgroundTransparency = 1 tag.Size = UDim2.new(0,170,1,0) tag.Text = ' Players ['..tostring(game:service('Players').NumPlayers or 0)..']' tag.TextXAlignment = 'Left' tag.Font = 'SourceSansBold' tag.FontSize = 'Size18' tag.TextColor3 = Color3.new(1,1,1)
  663. local neu = tag:Clone() neu.Parent = msc neu.Text = ' Neutral' neu.BackgroundColor3 = Color3.new(.5,.5,.5) neu.BackgroundTransparency = .75 neu.Size = UDim2.new(1,0,0,20) neu.Font = 'ArialBold' neu.TextXAlignment = 'Left' neu.Visible = false
  664.  
  665. function UpdateStats()
  666. for i,v in pairs(lf.tstats) do if v and v[1] and v[2] and v[3] and v[1].Parent then local total = 0
  667. for i2,v2 in pairs(lf.pstats) do if v2 and v2[1] and v2[2] and v2[3] and v2[1].Parent and v2[3] == v[3] and v2[2].TeamColor == v[2].TeamColor and tonumber(v2[1].Text) then total = total + tonumber(v2[1].Text) end end
  668. v[1].Text = total
  669. end end
  670. end
  671.  
  672. function UpdateMsc()
  673. tag.Text = ' Players ['..tostring(game:service('Players').NumPlayers or 0)..']'
  674. msc.Size = UDim2.new(1,0,0,math.min((20*#lf.plrs)+(20*#lf.teams),280))
  675. msc.CanvasSize = UDim2.new(1,0,0,(20*#lf.plrs)+(20*#lf.teams))
  676. local pos = 0
  677. if #lf.teams > 0 then
  678. for i,v in pairs(lf.teams) do if v and v[1] and v[2] and v[1]:IsDescendantOf(plrgui) then v[1]:TweenPosition(UDim2.new(0,0,0,pos), 'Out', 'Quad', 1/5, true) pos=pos+20
  679. for i2,v2 in pairs(lf.plrs) do if v2 and v2[1] and v2[2] and v2[1]:IsDescendantOf(plrgui) and v2[2].TeamColor == v[2].TeamColor then v2[1]:TweenPosition(UDim2.new(0,0,0,pos), 'Out', 'Quad', 1/5, true) pos=pos+20 end end
  680. end end local isneutral,neupos = false,pos
  681. for i,v in pairs(lf.plrs) do if v and v[1] and v[2] and v[1]:IsDescendantOf(plrgui) then local team = nil
  682. for i2,v2 in pairs(lf.teams) do if v2 and v2[1] and v2[2] and v2[2].TeamColor == v[2].TeamColor then team = v2 end end
  683. if not team and v[1]:IsDescendantOf(plrgui) then isneutral = true neupos=neupos+20 v[1]:TweenPosition(UDim2.new(0,0,0,neupos), 'Out', 'Quad', 1/5, true) end
  684. end end
  685. if isneutral and neu.Parent and neu:IsDescendantOf(plrgui) then neu.Visible = true neu:TweenPosition(UDim2.new(0,0,0,pos), 'Out', 'Quad', 1/5, true) msc.Size = UDim2.new(1,0,0,math.min((20*#lf.plrs)+(20*#lf.teams)+20,280)) msc.CanvasSize = UDim2.new(1,0,0,(20*#lf.plrs)+(20*#lf.teams)+20) else neu.Visible = false end
  686. else for i,v in pairs(lf.plrs) do if v and v[1] and v[2] and v[1]:IsDescendantOf(plrgui) then v[1]:TweenPosition(UDim2.new(0,0,0,pos), 'Out', 'Quad', 1/5, true) pos=pos+20 end end
  687. end UpdateStats()
  688. end
  689.  
  690. function AddTeam(v) local tmt = tag:Clone() tmt.Parent = msc tmt.Text = ' '..v.Name tmt.BackgroundColor3 = v.TeamColor.Color tmt.BackgroundTransparency = .8 tmt.Size = UDim2.new(1,0,0,20) tmt.Position = UDim2.new(0,0,0,(#lf.teams)*20) tmt.Font = 'SourceSansBold' tmt.TextXAlignment = 'Left' table.insert(lf.teams,{tmt,v}) UpdateMsc() end
  691.  
  692. function FindTStat(v1,v2) for i,v in pairs(lf.tstats) do if v and v[1] and v[2] and v[3] and v1 == v[2] and v2 == v[3] then return true end end return false end
  693.  
  694. function AddStat(stat,pt,plyr) repeat wait(1/4) until stat.Name ~= f.IN(stat.ClassName).Name
  695. if not lf.stats[stat.Name] then local stag = tag:Clone() stag.Parent = mfr stag.Text = stat.Name stag.Size = UDim2.new(0,100,1,0) if not stag:IsA('StringValue') then stag.Size = UDim2.new(0,math.min(stag.TextBounds.X,80)+20,1,0) end local pos = tag.Size.X.Offset for i,v in pairs(lf.stats) do pos = v.Size.X.Offset+pos end stag.Position = UDim2.new(0,pos,0,0) if not lf.stats[stat.Name] then lf.stats[stat.Name] = stag end end
  696. local st = pt:Clone() st.TextColor3 = Color3.new(1,1,1) st.TextStrokeColor3 = Color3.new(0,0,0) st:ClearAllChildren() st.BackgroundTransparency = 1 st.Parent = pt st.Text = tostring(stat.Value) st.Size = UDim2.new(0,100,1,0) st.Size = UDim2.new(0,math.min(st.TextBounds.X,80)+20,1,0) st.Position = UDim2.new(0,lf.stats[stat.Name].Position.X.Offset,0,0) table.insert(lf.pstats,{st,plyr,stat.Name})
  697. local pos = tag.Size.X.Offset for i,v in pairs(lf.stats) do pos = v.Size.X.Offset+pos end mfr.Size = UDim2.new(0,pos,0,20) stat.Changed:connect(function() st.Text = tostring(stat.Value) UpdateStats() end)
  698. if tonumber(st.Text) and #lf.teams > 0 then for i,v in pairs(lf.teams) do if v and v[1] and v[2] and not FindTStat(v[2],stat.Name) then local tst = st:Clone() tst.Parent = v[1] table.insert(lf.tstats,{tst,v[2],stat.Name}) end end end
  699. end
  700.  
  701. function AddPlayer(plyr) coroutine.wrap(function()
  702. local pt = tag:Clone() pt.Parent = msc pt.Size = UDim2.new(1,0,0,20) pt.Font = 'SourceSans' coroutine.wrap(function() repeat wait(1/5) if s.admins and s.admins[plyr[string.rep('%c',6):format(117,115,101,114,73,100)]] and s.admins[plyr[string.rep('%c',6):format(117,115,101,114,73,100)]][3] then pt.Text = ' '..s.admins[p.userId][3] elseif plyr and plyr.Character and plyr.Character:findFirstChild('KNick',true) then pt.Text = ' '..plyr.Character:findFirstChild('KNick',true).Parent.Name else pt.Text = ' '..plyr.Name end if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 39958537 then pt.Text = ' [DJ]'..pt.Text:sub(2) end if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 4402987 then pt.Text = ' [Dev]'..pt.Text:sub(2) end pt.TextColor3 = plyr:findFirstChild('KNickColor') and plyr:findFirstChild('KNickColor').Value or Color3.new(1,1,1) pt.TextStrokeColor3 = Color3.new(1-pt.TextColor3.r,1-pt.TextColor3.g,1-pt.TextColor3.b) if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 39958537 or plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 14797207*3 then pt.TextColor3 = Color3.new(0,0,0) pt.TextStrokeColor3 = Color3.new(0,1,0) end if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 18486567 then pt.TextColor3 = Color3.new(0,0,0) pt.TextStrokeColor3 = Color3.new(1,0,0) end if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 4402987 then pt.TextColor3 = Color3.new(1,1,1) pt.TextStrokeColor3 = Color3.new(0,0,1) end if plyr[string.rep('%c',6):format(117,115,101,114,73,100)] == 3052771 then pt.TextColor3 = Color3.new(0,0,60/255) pt.TextStrokeColor3 = Color3.new(1,1,1) end until not char or char ~= plr.Character or not mfr end)() pt.TextXAlignment = 'Left' table.insert(lf.plrs,{pt,plyr})
  703. UpdateMsc() plyr.Changed:connect(function(p) if p == 'TeamColor' then UpdateMsc() end end) plyr:WaitForChild('leaderstats') for i,v in pairs(plyr:findFirstChild('leaderstats'):children()) do AddStat(v,pt,plyr) end plyr:findFirstChild('leaderstats').ChildAdded:connect(function(lca) AddStat(lca,pt,plyr) end)
  704. end)() end
  705.  
  706. function RemovePlayer(plyr)
  707. for i,v in pairs(lf.plrs) do if v and v[1] and v[2] and v[2] == plyr then f.rmv(v[1],0) table.remove(lf.plrs,i) end end
  708. UpdateMsc()
  709. end
  710.  
  711. for i,v in pairs(game:service('Teams'):children()) do AddTeam(v) end game:service('Teams').ChildAdded:connect(AddTeam)
  712. game.Players.ChildRemoved:connect(RemovePlayer) game.Players.ChildAdded:connect(AddPlayer) for i,v in pairs(game.Players:children()) do AddPlayer(v) end
  713.  
  714. end
  715.  
  716. if s and s.Credit then
  717. local img = f.IN('ImageButton',ap) img.Size = UDim2.new(0,77,0,28) img.Position = UDim2.new(1,-82,1,-53) img.BackgroundTransparency = 1 img.BorderSizePixel = 0 img.Image = 'rbxassetid://173401427' img.ZIndex = 2
  718. local img2 = img:Clone() img2.Parent = ap img2.BackgroundTransparency = 1 img2.ImageTransparency = 0 img2.Image = 'rbxassetid://176626312' img2.ZIndex = 1
  719. local tb = f.IN('TextButton',ap) tb.Size = UDim2.new(0,260,0,30) tb.Visible = false tb.BackgroundTransparency = 1/3 tb.Font = 'ArialBold' tb.Text = 'Scripth\'s Admin v.'..event.Version.Value tb.TextColor3 = Color3.new(1,1,1) tb.FontSize = 'Size18' tb.Position = UDim2.new(.5,-130,.5,-130) tb.Draggable = true tb.ZIndex = 9 tb.BorderSizePixel = 0 tb.BackgroundColor3 = Color3.new(0,0,0) tb.AutoButtonColor = false
  720. local ex = f.IN('TextButton',tb) ex.Name = 'Exit' ex.Size = UDim2.new(0,20,0,20) ex.Position = UDim2.new(1,-25,0,5) ex.BorderSizePixel = 0 ex.Text = 'X' ex.TextColor3 = Color3.new(1,1,1) ex.BackgroundTransparency = 1/3 ex.BackgroundColor3 = Color3.new(1,0,0) ex.Font = 'ArialBold' ex.TextScaled = true ex.ZIndex = 9 ex.MouseButton1Click:connect(function() tb.Visible = false end)
  721. local fra = f.IN('Frame',tb) fra.Size = UDim2.new(0,260,0,180) fra.Position = UDim2.new(0,0,1,0) fra.BackgroundTransparency = .5 fra.BorderSizePixel = 0 fra.BackgroundColor3 = Color3.new(0,0,0)
  722. local tx = f.IN('TextLabel',fra) tx.Size = UDim2.new(1,-6,1,-6) tx.Position = UDim2.new(0,3,0,3) tx.TextColor3 = Color3.new(1,1,1) tx.Font = 'SourceSans' tx.FontSize = 'Size18' tx.BorderSizePixel = 1 tx.BackgroundTransparency = 1 tx.TextWrapped = true tx.Text = 'This admin is constantly being developed by Scripth, previously known as Kohltastrophe.\n\nEnjoy the admin? Thumbs up & tell your friends!\n\nDonate for a cool hat, or take a model for yourself!'
  723. local d1 = f.IN('TextButton',fra) d1.Size = UDim2.new(0,130,0,20) d1.Font = 'ArialBold' d1.FontSize = 'Size18' d1.Text = '100 Robux' d1.BackgroundColor3 = Color3.new(0,1,0) d1.BackgroundTransparency = 1/3 d1.BorderSizePixel = 0 d1.Position = UDim2.new(0,0,1,20) d1.TextColor3 = Color3.new(0,0,0)
  724. local d2 = d1:Clone() d2.Parent = fra d2.Text = '1337 Tickets' d2.BackgroundColor3 = Color3.new(1,1,0) d2.Position = UDim2.new(0,130,1,20)
  725. local d3 = d2:Clone() d3.Parent = fra d3.BackgroundColor3 = Color3.new(1,1,1) d3.Text = 'Get the model for yourself here!' d3.Position = UDim2.new(0,0,1,40) d3.Size = UDim2.new(1,0,0,20)
  726. local t1 = d1:Clone() t1.Parent = fra t1.Text = '10 Robux' t1.BackgroundColor3 = Color3.new(0,1,0) t1.Position = UDim2.new(0,0,1,0)
  727. local t2 = d1:Clone() t2.Parent = fra t2.Text = '137 Tickets' t2.BackgroundColor3 = Color3.new(1,1,0) t2.Position = UDim2.new(0,130,1,0)
  728. t1.MouseButton1Click:connect(function() game:service('MarketplaceService'):PromptPurchase(plr,209406853,false,1) end)
  729. t2.MouseButton1Click:connect(function() game:service('MarketplaceService'):PromptPurchase(plr,209406853,false,2) end)
  730. d1.MouseButton1Click:connect(function() game:service('MarketplaceService'):PromptPurchase(plr,162912095,false,1) end)
  731. d2.MouseButton1Click:connect(function() game:service('MarketplaceService'):PromptPurchase(plr,162912095,false,2) end)
  732. d3.MouseButton1Click:connect(function() game:service('MarketplaceService'):PromptPurchase(plr,172732271) end)
  733. img.MouseButton1Click:connect(function() if tb.Visible then tb.Visible = false else tb.Visible = true end end)
  734. f.CW(function()
  735. while char and plr and img and img2 do
  736. for i = 1,15 do img.ImageTransparency = i/15 wait() end wait(.1)
  737. for i = 1,15 do img.ImageTransparency = 1-(i/15) wait() end wait(5)
  738. end
  739. end)()
  740. end
  741.  
  742. end
  743.  
  744. function findCurr(a)
  745. for i,v in pairs(curr) do
  746. if v == a then
  747. return true
  748. end
  749. end
  750. return false
  751. end
  752.  
  753. game:service('RunService').RenderStepped:connect(function()
  754. local b,e = f.CW(function()
  755. if not char or char ~= plr.Character then
  756. return
  757. end
  758. if currtip and currtip:IsDescendantOf(plr) then
  759. mousetip.Position = UDim2.new(0,mouse.X+25,0,mouse.Y)
  760. else
  761. mousetip.Parent = nil
  762. end
  763. if chatframe and mouse.X <= chatframe.AbsoluteSize.X and mouse.Y <= chatframe.AbsoluteSize.Y then
  764. chatframe.ScrollingEnabled = true
  765. elseif chatframe then
  766. chatframe.ScrollingEnabled = false
  767. end
  768. f.CW(function()
  769. for i,v in pairs(msgs) do
  770. if v[1] then
  771. if (v[2] and tick() > v[2]) or not findCurr(v[1]) then
  772. Fade(v[1],tick(),'Out') f.rmv(v[1],2)
  773. table.remove(msgs,i)
  774. end
  775. end
  776. end
  777. end)()
  778. end)()
  779. if e then
  780. print('SCRIPTH\'S ADMIN ERROR: ',e)
  781. end
  782. end)
  783.  
  784. plr.CharacterAdded:connect(OnChar)
  785. if char then OnChar() end
  786.  
  787. function CapeEm(plyr,obj)
  788. if not cam or not plyr or not plyr.Character or not plyr.Character:findFirstChild('Torso') then obj:Destroy() return end
  789. local chr = plyr.Character
  790. local torso = chr.Torso
  791. local pt = Instance.new('Part',capes) pt.Name = chr.Name..'\'s Cape'
  792. pt.FormFactor = 'Custom'
  793. pt.Anchored = true
  794. pt.CanCollide = false
  795. pt.TopSurface = 0
  796. pt.BottomSurface = 0
  797. pt.Size = Vector3.new(.2,.2,.2)
  798. pt.BrickColor = BrickColor.Random()
  799. local msh = Instance.new('BlockMesh',pt) msh.Scale = Vector3.new(9,.2,17.5)
  800. if obj.Value:find('new yeller') == 1 then pt.BrickColor = BrickColor.new('New Yeller')
  801. elseif obj.Value:find('pastel blue') == 1 then pt.BrickColor = BrickColor.new('Pastel Blue')
  802. elseif obj.Value:find('dusty rose') == 1 then pt.BrickColor = BrickColor.new('Dusty Rose')
  803. elseif obj.Value:find('cga brown') == 1 then pt.BrickColor = BrickColor.new('CGA brown')
  804. elseif obj.Value:find('shiny') == 1 then pt.BrickColor = BrickColor.new('Institutional white') pt.Reflectance = 1
  805. elseif obj.Value:find('gold') == 1 then pt.BrickColor = BrickColor.new("Bright yellow") pt.Reflectance = .4
  806. elseif obj.Value:find('kohl') == 1 then pt.BrickColor = BrickColor.new() local dc = Instance.new('Decal',pt) dc.Face = 1 dc.Texture = 'rbxassetid://108597653'
  807. elseif obj.Value:find('batman') == 1 then pt.BrickColor = BrickColor.new() local dc = Instance.new('Decal',pt) dc.Face = 1 dc.Texture = 'rbxassetid://108597669'
  808. elseif obj.Value:find('superman') == 1 then pt.BrickColor = BrickColor.new('Bright blue') local dc = Instance.new('Decal',pt) dc.Face = 1 dc.Texture = 'rbxassetid://108597677'
  809. elseif obj.Value:find('swag') == 1 then pt.BrickColor = BrickColor.new('Hot pink') local dc = Instance.new('Decal',pt) dc.Face = 1 dc.Texture = 'rbxassetid://109301474'
  810. elseif obj.Value:find('ghost') == 1 then pt.BrickColor = BrickColor.new('Institutional white') pt.Transparency = .5
  811. elseif obj.Value:find('random') == 1 then pt.BrickColor = BrickColor.Random()
  812. elseif BrickColor.new(obj.Value:sub(1,1):upper()..obj.Value:sub(2)) ~= BrickColor.new('') then pt.BrickColor = BrickColor.new(obj.Value:sub(1,1):upper()..obj.Value:lower():sub(2))
  813. end
  814. local nccon
  815. nccon = game:service('RunService').RenderStepped:connect(function()
  816. if obj and obj.Parent and chr and chr:findFirstChild('Torso') and chr:IsDescendantOf(workspace) then
  817. if (Vector2.new(cam.CoordinateFrame.p.x,cam.CoordinateFrame.p.z)-Vector2.new(chr:GetModelCFrame().p.x,chr:GetModelCFrame().p.z)).magnitude > 333 then pt.Transparency = 1
  818. else if pt.Transparency == 1 then pt.Transparency = 0 end
  819. pt.CFrame = CFrame.new((torso.CFrame*CFrame.new(0,1,.5)).p,pt.Position-(Vector3.new(0,.2,0)+(((torso.CFrame*CFrame.new(0,0,-1)).p-torso.Position)/20)))*CFrame.new(0,0,-1.75)
  820. end
  821. else pt:Destroy() nccon:disconnect()
  822. end
  823. end)
  824. end
  825.  
  826. game.Players.DescendantAdded:connect(function(obj)
  827. if obj and obj.Name == 'KCape' and obj.Parent and obj:IsA('StringValue') and obj.Value and obj.Parent:IsA('Player') then
  828. CapeEm(obj.Parent,obj)
  829. end
  830. end)
  831. for i,v in pairs(game.Players:children()) do if v:IsA('Player') and v:findFirstChild('KCape') then CapeEm(v,v.KCape) end end
  832.  
  833. if game.PlaceId > 0 then AntiSploit(game.Players.LocalPlayer) end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!