SkidAdmin Tablets

--[[
    SkidAdmin, brought to you by KCROL
    Edit this all you want. I don't really care.
--]]

local p = game:service"Players".NAME --Replace NAME with your ROBLOX Name
local work = workspace;
local char = p.Character
local cam = work.CurrentCamera
local Rotation = 0
local Speed = 0.0001

local Services = {
      Workspace = game:service'Workspace';
      Lighting = game:service'Lighting';
      Players = game:service'Players';
      ReplicatedFirst = game:service'ReplicatedFirst';
      ReplicatedStorage = game:service'ReplicatedStorage';
      ServerScriptService = game:service'ServerScriptService';
      ServerStorage = game:service'ServerStorage';
      StarterGui = game:service'StarterGui';
      StarterPack = game:service'StarterPack';
      StarterPlayer = game:service'StarterPlayer';
      SoundService = game:service'SoundService';
      Chat = game:service'Chat';
      HttpService = game:service'HttpService';
      InsertService = game:service'InsertService'
}

local Settings = {
    Axis_Y = "Straight"
}

function nwPrt(prnt,siz,cf,col)
local prt=Instance.new("Part")
prt.Parent=prnt
prt.FormFactor=3
prt.Name="Part"
prt.Size=Vector3.new(2.3,2.3,2.3)
prt.CanCollide=false
prt.Anchored=true
prt.Locked=true
prt.Transparency = 0.3
prt.TopSurface=0
prt.BottomSurface=0
prt:BreakJoints()
prt.CFrame=cf or CFrame.new(30,10,30)
prt.Material="Neon"
prt.BrickColor=col
return prt
end
--
function Lerp(c1,c2,tim)
local com1 = {c1.X,c1.Y,c1.Z,c1:toEulerAnglesXYZ()}
local com2 = {c2.X,c2.Y,c2.Z,c2:toEulerAnglesXYZ()}
for i,v in pairs(com1) do
if i<4 then
com1[i] = v+(com2[i]-v)*tim
else
com1[i] = com2[i]
end
end
return CFrame.new(com1[1],com1[2],com1[3])*CFrame.Angles(com1[4],com1[5],com1[6])
end
---
function Rndv(tbl)
local chs=math.random(1,#tbl)
for i,v in pairs(tbl) do
if i==chs then
return v
end
end
end
---
Tabs={}
Cmds={}
bet1 = ">"
Splitkey = ">"
Colours={
BrickColor.Red();
BrickColor.Green();
BrickColor.Blue();
BrickColor.Yellow();
};
--
--

function getPlayers(msg)
local plrs = {}
if msg == "me" then
table.insert(plrs, p)
elseif msg == "all" then
plrs = game:GetService("Players"):GetChildren()
elseif msg == "noobs" then
for _,plr in pairs(game:GetService("Players"):GetChildren()) do
if plr.AccountAge > 364 then
table.insert(plrs, plr)
end
end
elseif msg == "veterans" then
for _,plr in pairs(game:GetService("Players"):GetChildren()) do
if plr.AccountAge > 364 then
table.insert(plrs, plr)
end
end
elseif msg == "others" then
for i,v in pairs(game:GetService("Players"):GetChildren()) do
if v ~= p then
table.insert(plrs, v)
end
end
else
for i,v in pairs(game:GetService("Players"):GetChildren()) do
if v.Name:lower():sub(1,#msg) == msg:lower() then
table.insert(plrs, v)
end
end
end
return plrs
end

for _,plr in pairs(game:GetService("Players"):GetChildren()) do
end

function Output(Text,Color,Func)
Color=tostring(Color);
local tb=nwPrt(workspace,Vector3.new(2.3,2.3,2.3),nil,BrickColor.new(Color))
tb.CanCollide = false
local sb = Instance.new('SelectionBox',tb)
sb.LineThickness = 0.02
sb.Adornee = tb
sb.Color = BrickColor.new('White')
sb.Transparency = 0
local bm = Instance.new('BlockMesh',tb)
bm.Scale = Vector3.new(.9,.9,.9)
local BG=Instance.new('BillboardGui',tb);
BG.Adornee=tb;
BG.StudsOffset=Vector3.new(0,4);
BG.Size=UDim2.new(10,0,10);
local TL=Instance.new('TextLabel',BG);
TL.BackgroundTransparency=1;
TL.Font='Arial';
TL.FontSize='Size24';
TL.Size=UDim2.new(1,0,1);
TL.TextColor3=BrickColor.new(Color).Color;
TL.Text=tostring(Text);
local PL = Instance.new("PointLight", tb)
PL.Color = tb.Color
PL.Range = 10
local CD = Instance.new("ClickDetector", tb)
CD.MaxActivationDistance = 1/0
CD.MouseClick:connect(function(pe)
if pe.Name == p.Name or pe.userId == p.userId then
if Func == nil then
tb:Destroy()
else
tb:Destroy()
Func = Func
Func()
end
end
end)
CD.MouseHoverEnter:connect(function(plr)
    if plr.Name == p.Name or plr.userId == p.userId then
        tb.BrickColor = BrickColor.new('Really red')
        tb.Transparency = 0.5
        tb.Size = Vector3.new(2.4,2.4,2.4)
        TL.TextColor3 = Color3.new(255,0,0)
    end
end)
CD.MouseHoverLeave:connect(function(plr)
    if plr.Name == p.Name or plr.userId == p.userId then
        tb.BrickColor = BrickColor.new(tostring(Color))
        tb.Transparency = 0.3
        tb.Size = Vector3.new(2.3,2.3,2.3)
        TL.TextColor3=BrickColor.new(Color).Color
    end
end)
pcall(function()
    tb.CFrame = p.Character.HumanoidRootPart.CFrame
end)
table.insert(Tabs,tb);
end
--
Dismiss=function()
 pcall(function()
  for _,Tab in next,Tabs do
   coroutine.wrap(function()
    for i = 0,1,.2 do
     pcall(function()
      wait''
      Tab.Transparency=i
      Tab.Size = Vector3.new(i,i,i)
     end)
    end
    Tab:destroy''
   end)()
   Tabs[_]=nil
  end
 end)
end

local y = 0
game:GetService("RunService").Stepped:connect(function()
        if p then
                if p.Character then
                        if p.Character:FindFirstChild('HumanoidRootPart') ~= nil then
                                Rotation = Rotation + Speed
                                for i,v in pairs(Tabs) do
                                        ypcall(function()
                                                if p and p.Character and p.Character:FindFirstChild('HumanoidRootPart') ~= nil then
                                                        pos = p.Character:WaitForChild("HumanoidRootPart").CFrame --Use HumanoidRootPart incase you are R15
                                                else
                                                        pos = CFrame.new(0,0,0)
                                                end
                                                local radius = 6 + (#Tabs * 0.5)
                                                local x = math.sin((i / #Tabs - (0.5 / #Tabs) + Rotation * 3) * math.pi * 2) * radius
                                                local y2 = tostring(y)
                                                local z = math.cos((i / #Tabs - (0.5 / #Tabs) + Rotation * 3) * math.pi * 2) * radius
                                                local arot = Vector3.new(x, y, z) + pos.p
                                                local brot = v.CFrame.p
                                                local crot = (arot * .1 + brot * .9)
                                                local d = math.rad((200*3000)*100)
                                                v.CFrame = CFrame.new(crot, pos.p)*CFrame.Angles(d,d,d)

                                                if Settings.Axis_Y == "Off" then
                                                y = 0
                                                elseif Settings.Axis_Y == "On" then
                                                y = math.sin(i + tick()*2)
                                            elseif Settings.Axis_Y == "Straight" then
                                                y = math.sin(tick())
end
                                        end)
                                end
                        elseif p.Character:FindFirstChild('HumanoidRootPart') == nil then
                                repeat wait() until p.Character:FindFirstChild('HumanoidRootPart') ~= nil
                        end
                end
        end
end)

function ShowCommands()
    Dismiss()
    for i,v in next,Cmds do
        Output(v['Name'],'Institutional white',function()
            Dismiss()
            Output('Name: '..v['Name'],'Lime green')
            Output('Usage: '..v['Say'],'Cyan')
            Output('Description: '..v['Description'],'Deep orange')
            Output('Back','Navy blue',function() ShowCommands() end)
            Output('Dismiss','Really red',function() Dismiss() end)
        end)
    end
end
function AddCmd(name,whatToSay,desc,func)
    table.insert(Cmds,{['Name'] = name,['Say'] = whatToSay,['Description'] = desc,['Function']=func})
end

AddCmd("Ping","ping","Ping a message",function(msg)
   for _,m in pairs(msg) do
      Output(m, 'Lime green')
      if m == nil then
      Output("Meltdown R4!","Lime green")
end
   end
end)

AddCmd("Execute","exe","Execute a script",function(msg)
    for _,m in pairs(msg) do
    local success,errore = loadstring(tostring(m))
    if success and not errore then
        success()
    else
        Output("Error while executing script: "..tostring(errore),'Really red')
        end
    end
end)

AddCmd("Kill","kill","Kill a player",function(msg)
    for _, plr in pairs(msg) do
        if plr and plr.Character then
            plr.Character:BreakJoints()
            plr=plr.Name
            Output('Killed player '..plr..'','Really red')
        end
    end
end)

AddCmd("Health","health","Set someone's health",function(plr,msg)
    local Split = msg:find(Splitkey)
    local PreSplit = msg:sub(1, Split - 1)
    local Plrs = getPlayers(PreSplit)
    local AfterSplit = msg:sub(tonumber(Split + 1))
    for _,plr in pairs(Plrs) do
        plr.Character.Humanoid.Health = AfterSplit
    end
end)

AddCmd("Character","char","Set a player's character appearance",function(plr,msg)
    local Split = msg:find(Splitkey)
    local PreSplit = msg:sub(1, Split - 1)
    local Plrs = getPlayers(PreSplit)
    local AfterSplit = msg:sub(tostring(Split + 1))
    for _,plr in pairs(Plrs) do
        plr.CharacterAppearance = "http://www.roblox.com/asset/CharacterFetch.ashx?userId="..AfterSplit
        plr:LoadCharacter()
    end
end)

AddCmd("No Tools","notools","Remove a player's tools",function(msg)
    for _,plr in pairs(msg) do
        if plr then
            for i,v in pairs(plr.Backpack:children()) do
                if v:IsA("Tool") or v:IsA("HopperBin") then
                    v:remove()
                end
            end
        end
    end
end)

AddCmd("Orb Tool","orbtool","Give someone a tool that looks like an orb",function(msg)
    for _,plr in pairs(msg) do
        if plr then
            local tool = Instance.new('Tool',plr.Backpack)
            tool.Name = "Orb"
            local h = Instance.new('Part',tool)
            h.Name = 'Handle'
            h.Size = Vector3.new(1.3,1.3,1.3)
            h.BrickColor = BrickColor.new('Lime green')
            h.Material = "SmoothPlastic"
            h.TopSurface=0
            h.BottomSurface=0
            local m = Instance.new('SpecialMesh',h)
            m.MeshType = "Sphere"
            m.Scale = Vector3.new(1,1,1)
        end
    end
end)

AddCmd("Music List","mlist","Show the music list",function(msg)
    Dismiss()
    Output("[ DELETED ]","Really red",function() local s = Instance.new('Sound',workspace) s.SoundId = "rbxassetid://505534951" s.Volume = 1 s.Pitch = 1 s.Looped = true s:play() end)
    Output("Tobu - Candyland","Lime green",function() local s = Instance.new('Sound',workspace) s.SoundId = "rbxassetid://222095512" s.Volume = 1 s.Pitch = 1 s.Looped = true s:play() end)
end)

AddCmd("No Character","unchar","Reset the player's character back to their own",function(msg)
    for _,plr in pairs,getPlayers(msg) do
        if plr then
        plr.CharacterAppearance = "http://www.roblox.com/asset/CharacterFetch.ashx?userId="..plr.userId
        plr:LoadCharacter()
        end
    end
end)

AddCmd("AFK","afk","Make tablets saying you are afk",function(msg)
    Output(p.Name.." is AFK","Really red")
    Output(p.Name.." is AFK","Really red")
    Output(p.Name.." is AFK","Really red")
    Output(p.Name.." is AFK","Really red")
    Output(p.Name.." is AFK","Really red")
    Output(p.Name.." is AFK","Really red")
    Output(p.Name.." is AFK","Really red")
    Output(p.Name.." is AFK","Really red")
    Output(p.Name.." is AFK","Really red")
end)

AddCmd("God","god","God a player",function(msg)
    for _, plr in pairs(msg) do
        if plr and plr.Character then
            plr.Character.Humanoid.MaxHealth = math.huge
            plr=plr.Name
            Output('Godded player '..plr..'','Lime green')
        end
    end
end)

AddCmd("Walk Speed","ws","Set someone's walkspeed",function(plr,msg)
    local Split = msg:find(Splitkey)
    local PreSplit = msg:sub(1, Split - 1)
    local Plrs = getPlayers(PreSplit)
    local AfterSplit = msg:sub(tonumber(Split + 1))
    for _,plr in pairs(Plrs) do
        plr.Character.Humanoid.WalkSpeed = AfterSplit
    end
end)

AddCmd("Stun","stun","Stun a player",function(msg)
    for _,plr in pairs(msg) do
        if plr and plr.Character then
            plr.Character.Humanoid.PlatformStand = true
        end
    end
end)

AddCmd("UnStun","unstun","Unstun a player",function(msg)
    for _,plr in pairs(msg) do
        if plr and plr.Character then
            plr.Character.Humanoid.PlatformStand = false
        end
    end
end)

AddCmd("FF","ff","Give a player a forcefield",function(msg)
    for _, plr in pairs(msg) do
        if plr and plr.Character then
            Instance.new('ForceField',plr.Character)
        end
    end
end)

AddCmd('Cmds','cmds','Show all commands',function(msg)
ShowCommands()
end)

AddCmd('Dismiss','dt','Dismiss the tablets',function(msg)
    Dismiss()
end)

AddCmd('Respawn','respawn','Respawn a player',function(msg)
    for _,plr in pairs(msg) do
        if plr then
            plr:LoadCharacter()
        end
    end
end)

AddCmd("Y Axis Settings","axis:y","Set the Y axis CFrame",function(msg)
    Output("Click the Y axis you want.","Institutional white")
    Output("UpDown","Lime green",function() Dismiss() Settings.Axis_Y = "Straight" end)
    Output("Waves","Cyan",function() Dismiss() Settings.Axis_Y = "On" end)
    Output("None","Really red",function() Dismiss() Settings.Axis_Y = "Off" end)
end)

p.Chatted:connect(function(m)
for i,v in pairs(Cmds) do
if v["Say"]..bet1 == m:sub(1, #v["Say"]+#bet1) then
v["Function"](getPlayers(m:sub(#v["Say"]+#bet1+1)), m:sub(#v["Say"]+#bet1+1))
end
end
end)

wait(1)
Output('Welcome to SkidAdmin Administration, '..p.Name..'!','Lime green')
Output('The suffix is '..bet1,'Royal purple')
Output('Show Commands','Cyan',function() ShowCommands() end)
Output('Dismiss','Really red',function() Dismiss() end)