Advertisement
KCROL_AdminLeaks

BioTabs by KCROL [Release] v2

Jan 4th, 2018
273
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 7.95 KB | None | 0 0
  1. --[[
  2.     BioTabs
  3.     script by KCROL
  4. --]]
  5.  
  6. --Tusk fixed locals (or roblox, idk)
  7. --Warning: If you edit any of the msg:sub or command stuff, it may not work
  8. --Only if you do not know what you are doing.
  9. --Also do not edit the CFrame (Lerp) if you do not know what you are doing
  10.  
  11. function ConvertColor3(color)
  12.     return BrickColor.new(color).Color
  13. end
  14.  
  15.  
  16.  
  17. local plr = game:GetService("Players").LocalPlayer
  18. local Tablets = {}
  19. local Commands = {}
  20.  
  21. function Output(text, color, func)
  22.     if text == nil then return "BioTabs" end
  23.     if color == nil then return BrickColor.new('Lime green') end
  24.    
  25.     local Outer = Instance.new('Part',workspace)
  26.     Outer.Anchored,Outer.Locked,Outer.CanCollide,Outer.TopSurface,Outer.BottomSurface=true,true,false,0,0
  27.     Outer.Transparency = .7
  28.     Outer.Size = Vector3.new(1.1,1.1,1.1)
  29.     Outer.Material = "SmoothPlastic"
  30.     Outer.BrickColor = BrickColor.new('Institutional white')
  31.    
  32.     local Adorn = Instance.new('SphereHandleAdornment',Outer)
  33.     Adorn.Adornee = Outer
  34.     Adorn.Radius = 0.3
  35.     Adorn.Color3 = ConvertColor3(tostring(color))
  36.    
  37.     local SelectionBox = Instance.new('SelectionBox',Outer)
  38.     SelectionBox.Adornee = Outer
  39.     SelectionBox.LineThickness = 0.006
  40.     SelectionBox.Color3 = Color3.new(0,0,0)
  41.    
  42.     local UI = Instance.new('BillboardGui',Outer)
  43.     UI.Adornee = Outer
  44.     UI.StudsOffset = Vector3.new(0,1,0)
  45.     UI.Size = UDim2.new(7.5,0,6,0)
  46.    
  47.     local Label = Instance.new('TextLabel',UI)
  48.     Label.Text = text
  49.     Label.TextSize = 20
  50.     Label.TextColor3 = ConvertColor3('Lily white')
  51.     Label.Font = Enum.Font.SourceSansSemibold
  52.     Label.TextStrokeTransparency = 1
  53.     Label.Size = UDim2.new(1,0,0.4,0)
  54.     Label.BackgroundTransparency = 1
  55.    
  56.     local Click = Instance.new('ClickDetector',Outer)
  57.     Click.MaxActivationDistance = 1/0
  58.     Click.CursorIcon = "rbxassetid://"
  59.    
  60.     Click.MouseClick:connect(function(p)
  61.         if p.userId == plr.userId then
  62.             if func == nil then
  63.                 Outer:Destroy()
  64.             else
  65.                 Outer:Destroy()
  66.                 func = func
  67.                 func()
  68.             end
  69.         end
  70.     end)
  71.    
  72.     Click.MouseHoverEnter:connect(function(p)
  73.         if p.userId == plr.userId then
  74.             Outer.Size = Vector3.new(1.3,1.3,1.3)
  75.             Adorn.Color3 = ConvertColor3('Really red')
  76.             Label.Text = "|"..text.."|"
  77.         end
  78.     end)
  79.    
  80.     Click.MouseHoverLeave:connect(function(p)
  81.         if p.userId == plr.userId then
  82.             Outer.Size = Vector3.new(1.1,1.1,1.1)
  83.             Adorn.Color3 = ConvertColor3(tostring(color))
  84.             Label.Text = text
  85.         end
  86.     end)
  87.    
  88.     table.insert(Tablets, {Tab1 = Outer})
  89. end
  90.  
  91. Dismiss = function()
  92.     for i,v in pairs(Tablets) do
  93.         v.Tab1:Destroy()
  94.     end
  95. end
  96.  
  97. local pos = nil
  98. rot = 0
  99.  
  100. function Lerp(c1,c2,tim)
  101. local com1 = {c1.X,c1.Y,c1.Z,c1:toEulerAnglesXYZ()}
  102. local com2 = {c2.X,c2.Y,c2.Z,c2:toEulerAnglesXYZ()}
  103. for i,v in pairs(com1) do
  104. if i<4 then
  105. com1[i] = v+(com2[i]-v)*tim
  106. else
  107. com1[i] = com2[i]
  108. end
  109. end
  110. return CFrame.new(com1[1],com1[2],com1[3])*CFrame.Angles(com1[4],com1[5],com1[6])
  111. end
  112.  
  113. local rot=-179
  114. game:GetService("RunService").RenderStepped:connect(function()
  115. rot=rot+0.5
  116. local cal=360/#Tablets
  117. local HumanoidRootPart = game:GetService("Players"):FindFirstChild(plr) if HumanoidRootPart then HumanoidRootPart = HumanoidRootPart.Character if HumanoidRootPart then HumanoidRootPart = HumanoidRootPart:WaitForChild("HumanoidRootPart") end end
  118. local tcf=plr.Character.HumanoidRootPart.CFrame
  119. for i,v in pairs(Tablets) do
  120. if(v.Tab1.Parent~=workspace)then
  121. v.Tab1:Destroy();
  122. Tablets[i]=nil;
  123. return;
  124. end;
  125. local va,vb,vc=v.Tab1.CFrame:toEulerAnglesXYZ()
  126. v.Tab1.CFrame=Lerp(v.Tab1.CFrame,CFrame.new(tcf.X,tcf.Y,tcf.Z)*CFrame.Angles(0,math.rad(cal*i+rot),0)*CFrame.new(0,0+0.5*math.sin((rot/14)),2+#Tablets),0.2)
  127. end
  128. end)
  129.  
  130. function GetCommands()
  131.     Dismiss()
  132.     wait(0.5)
  133.     for i,v in pairs(Commands) do
  134.         Output(v['Name'], 'Institutional white', function()
  135.             Dismiss()
  136.             wait(0.5)
  137.             Output('Name\n'..v['Name'], 'Institutional white')
  138.             Output('Usage\n'..v['Usage'], 'Institutional white')
  139.             Output('Description\n'..v['Desc'], 'Institutional white')
  140.             Output('Back', 'Navy blue', function() Dismiss() wait(0.5) GetCommands() end)
  141.             Output('Dismiss', 'Really red', function() Dismiss() end)
  142.         end)
  143.     end
  144. end
  145.  
  146. function Cmd(name,usage,desc)
  147.     table.insert(Commands, {['Name'] = name, ['Usage'] = usage, ['Desc'] = desc})
  148. end
  149.  
  150. --I know how to script commands it's just I wanted to do msg:sub and stuff
  151. --And make the tablets show those cmds lel
  152.  
  153. Cmd("Commands", "/cmds", "Show commands")
  154. Cmd("Kill", "/kill", "Kills a player")
  155. Cmd("Ping", "/ping", "Ping a message into a tablet")
  156. Cmd("God", "/god", "God a player")
  157. Cmd("Forcefield", "/ff", "Give someone a forcefield")
  158. Cmd("No forcefield", "/unff", "Remove someone's forcefield")
  159. Cmd("Nil", "/nil", "Make a player go nil")
  160. Cmd("UnNil", "/unnil", "Put a player back to normal")
  161. Cmd("Ungod", "/ungod", "Ungod a player")
  162. Cmd("Dismiss", "/dt", "Dismiss your tablets")
  163. Cmd("Freeze", "/frz", "Freeze a player")
  164. Cmd("Thaw", "/thw", "Thaw a player")
  165. Cmd("Admin", "/admin", "Give a player admin")
  166.  
  167. plr.Chatted:connect(function(msg)
  168.     if msg:sub(1,5) == "/cmds" then
  169.         GetCommands()
  170.     elseif msg:sub(1,6) == "/kill " then
  171.         local player = game:GetService("Players")[msg:sub(7)]
  172.         if player then
  173.             if player.Character then
  174.                 if player.Character.Humanoid then
  175.                     player.Character.Humanoid.MaxHealth = 0
  176.                     player.Character.Humanoid.Health = 0
  177.                 end
  178.             end
  179.         end
  180.     elseif msg:sub(1,6) == "/ping " then
  181.         local tabtext = tostring(msg:sub(7))
  182.         if tabtext == "" then
  183.             Output("BioTabs", "Lime green")
  184.         else
  185.             Output(tabtext, "Lime green")
  186.         end
  187.     elseif msg:sub(1,5) == "/god " then
  188.         local player = game:GetService("Players")[msg:sub(6)]
  189.         if player then
  190.             if player.Character then
  191.                 if player.Character.Humanoid then
  192.                     player.Character.Humanoid.MaxHealth = 1/0
  193.                 end
  194.             end
  195.         end
  196.     elseif msg:sub(1,4) == "/ff " then
  197.         local player = game:GetService("Players")[msg:sub(5)]
  198.         if player then
  199.             if player.Character then
  200.                 Instance.new('ForceField',player.Character)
  201.             end
  202.         end
  203.     elseif msg:sub(1,6) == "/unff " then
  204.         local player = game:GetService("Players")[msg:sub(7)]
  205.         if player then
  206.             if player.Character then
  207.                 for i,v in pairs(player.Character:GetChildren()) do
  208.                     if v:IsA("ForceField") then
  209.                         v:Destroy()
  210.                     end
  211.                 end
  212.             end
  213.         end
  214.     elseif msg:sub(1,5) == "/nil " then
  215.         local player = workspace[msg:sub(6)]
  216.         if player then
  217.             player.Parent = game:GetService("Lighting")
  218.         end
  219.     elseif msg:sub(1,7) == "/unnil " then
  220.         local player = game:GetService("Lighting")[msg:sub(8)]
  221.         player.Parent = workspace
  222.     elseif msg:sub(1,7) == "/ungod " then
  223.         local player = game:GetService("Players")[msg:sub(8)]
  224.         if player then
  225.             if player.Character then
  226.                 if player.Character.Humanoid then
  227.                     player.Character.Humanoid.MaxHealth = 100
  228.                 end
  229.             end
  230.         end
  231.     elseif msg:sub(1,3) == "/dt" then
  232.         Dismiss()
  233.     elseif msg:sub(1,5) == "/frz " then
  234.         local player = game:GetService("Players")[msg:sub(6)]
  235.         if player then
  236.             if player.Character then
  237.                 if player.Character.Humanoid then
  238.                     player.Character.Humanoid.WalkSpeed = 0
  239.                     player.Character.Humanoid.JumpPower = 0
  240.                 end
  241.             end
  242.         end
  243.     elseif msg:sub(1,5) == "/thw " then
  244.         local player = game:GetService("Players")[msg:sub(6)]
  245.         if player then
  246.             if player.Character then
  247.                 if player.Character.Humanoid then
  248.                     player.Character.Humanoid.WalkSpeed = 16
  249.                     player.Character.Humanoid.JumpPower = 50
  250.                 end
  251.             end
  252.         end
  253.     elseif msg:sub(1,7) == "/admin " then
  254.         local player = game:GetService("Players")[msg:sub(8)]
  255.         if player then
  256.             if player.Backpack then
  257.                 local X = script:Clone()
  258.                 X.Parent = player.Backpack
  259.             end
  260.         end
  261.     end
  262. end)
  263.  
  264. Output("Hello, "..plr.Name.."!", "Lime green")
  265. Output("Welcome to BioTabs v2. Created by KCROL.", "Lime green")
  266. Output("To view commands, say /cmds", "Lime green")
  267. Output("Or click here", "Deep orange", function() GetCommands() end)
  268. Output("Warning\nWhen using commands such as Kill or God, be sure to type the EXACT name!", "Really red")
  269. Output("Dismiss", "Really red", function() Dismiss() end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement