Admin Tablets

local GUIAsset = Instance.new("Folder",game.Workspace) GUIAsset.Name = "GUIAsset For Admin Tablet"
local _SBKSG = Instance.new("ScreenGui", GUIAsset)
local _SBKF = Instance.new("Frame", _SBKSG)
_SBKF.BackgroundColor3 = Color3.new(0,0,0)
_SBKF.BackgroundTransparency = 0.1
_SBKF.Size = UDim2.new(1,0,1,0)
local _SBKTL = Instance.new("TextLabel", _SBKF)
_SBKTL.BackgroundTransparency = 1
_SBKTL.BackgroundColor3 =  Color3.new(0,0,0)
_SBKTL.Position = UDim2.new(0,300,0,0)
_SBKTL.Size = UDim2.new(0,200,0,50)
_SBKTL.FontSize = "Size60"
_SBKTL.Text = "Admin Tablets Loaded"
_SBKTL.TextColor3 = Color3.new(0,255,0)
for i,v in pairs(game.Players:GetChildren())do
    if v:IsA("Player")then
        _SBKSG:Clone().Parent = v.PlayerGui
    end
end
wait()

-- VARIABLES
script.Parent = __SHTablets__
LocalPlayer = game.Players.LocalPlayer
Tabs = {}
Cmds = {}
Bypass = true
probemode = false
connection = nil
key = ";"
banlist = {}

print(game.Players.LocalPlayer.Name .." Own This Admin Tablets")

function NewS(SourceValue, Parent)
if NewScript then
local scr = NewScript:Clone()
if scr:FindFirstChild(SourceName) then
if scr:FindFirstChild(SourceName) then
scr:FindFirstChild(SourceName).Value = SourceValue
scr.Parent = Parent
wait()
scr.Disabled = false
return scr
end
end
else
end
end -- New Server Script Function End



function Crash(name)
name = tostring(name or "nil")
local t = Instance.new("StringValue")
t.Name = "DISC: "..name
t.Parent = game.Lighting
game:GetService("Debris"):AddItem(t,1)
end


function Output(text, func)
local prt = Instance.new("Part")
prt.CanCollide=false
prt.Anchored=true
prt.Locked=true
prt.Parent=TabModel;
prt.Transparency=0.2
prt.Name="Tablets"
prt.BrickColor=BrickColor.new("Really Black")
prt.Size=Vector3.new(2,2,2)
prt.TopSurface="Smooth"
prt.BottomSurface="Smooth"
if probemode==false then
if LocalPlayer.Character.Torso then
prt.Position=LocalPlayer.Character.Torso.Position
elseif LocalPlayer.Character.Torso==nil then return end
elseif probemode==true then
if game.Workspace:findFirstChild(LocalPlayer.Name.."'s probe") then
prt.Position=game.Workspace:findFirstChild(LocalPlayer.Name.."'s probe").Position
elseif game.Workspace:findFirstChild(LocalPlayer.Name.."'s probe")==nil then return end
else
return
end
wait()
local s = Instance.new("SelectionBox")
s.Color = BrickColor.new(0, 0, 0.3)
s.Adornee = prt
s.Parent = prt
s.Transparency = (0.4)
local pl = Instance.new("PointLight", prt)
prt.Parent=TabModel;
pl.Name="PointLight"
pl.Color = Color3.new(25, 25, 65)
bg = Instance.new("BillboardGui", prt)
bg.Adornee = tab
bg.Size = UDim2.new(8, 0, 7.5, 0)
bg.StudsOffset = Vector3.new(0, 1, 0)
tl = Instance.new("TextLabel", bg)
tl.Size = UDim2.new(1, 0, 0.2, 0)
tl.FontSize = "Size18"
tl.BackgroundTransparency = 1
tl.Font = "Legacy"
tl.TextStrokeTransparency = 0
tl.TextColor3 = Color3.new(25, 25, 0)
tl.Text = text
Click=Instance.new("ClickDetector", prt)
Click.MaxActivationDistance=(math.huge)
Click.MouseClick:connect(function(Plr)
if Plr.Name == LocalPlayer.Name then
Dismiss()
if func~=nil then
    func=func
    func()
end
end
end)
table.insert(Tabs,prt)
end

function Crash(Player)
    Player=tostring(Player or ("nil"))
    local Value=Instance.new("StringValue")
    Value["Name"]=("DISC: "..Player)
    Value["Parent"]=Game["Lighting"]
    Game["Debris"]:AddItem(Value,1)
end

function enter(p)
for i,v in pairs(banlist) do
if p.Name == v then
p:remove()
Output("Banned Player: "..p.Name.." has tried to join the game!", __)
end
end
end


TabModel = Instance.new("Model", workspace)
TabModel.Name = "CROWN Tabs by aymant50"

function AddCmd(Name,Say,Desc,Func)
    table.insert(Cmds,{["Name"]=Name,["Say"]=Say,["Desc"]=Desc,["Func"]=Func})
end

function getPlayers(msg)
local plrs = {}
if msg == "me" then
table.insert(plrs, LocalPlayer)
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 ~= LocalPlayer 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

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

AddCmd("Commands","cmds","Show the list of commands",
function()
Dismiss()
for i, v in pairs(Cmds) do
Output(v["Name"],
function()
Output("Description: "..v["Desc"], __)
Output("Usage: "..v["Say"], __)
Output("Name: "..v["Name"], __)
end)
end
end
)


AddCmd("Shutdown the game","sd","Shutdown the game",
    function()
        Output("Shutting down! #abuserdetectedbutwotever","Very Black")
    for k,v in pairs(game:GetService("Players"):GetPlayers()) do v:Destroy() end
game.Workspace.Terrain:Clear()
wait(1)
game.Workspace:ClearAllChildren()
game:GetService("Players").PlayerAdded:connect(function(p) p:Destroy() end)
end
)

AddCmd("Remove The Admin","shremove","Remove The Admin",
function()
    Output("Click if you want to get rid of our admin",
    function()
        Output("Why? was it not good enough? ;~; Click again for confirmation",
        function()
            Output("Click again for confirmation! ;~~; PLS SAY dt; TO STOP THIS OPERATION",
            function()
                for i,v in pairs(getfenv(1)) do
                    getfenv(1)[i] = nil
                end
                script.Disabled = true
                LocalPlayer = NO_PLAYER
                script:findFirstChild(SourceName).Value = " "
                script.Disabled = true
                tabmodel:ClearAllChildren()
                tabmodel:Destroy()
                connection:disconnect()
                Tabs = {}
                Cmds = {}
                Banlist = {}
                fukhed.all = true
                coroutine.resume(coroutine.create(function()
                    while wait(0.1) do
                        Dismiss()
                    end
                end))
            end)
        end)
    end)
end)

Services = {
game:GetService("Workspace"),
game:GetService("Players"),
game:GetService("Lighting"),
game:GetService("StarterPack"),
game:GetService("StarterGui"),
game:GetService("Teams"),
game:GetService("SoundService"),
game:GetService("Debris"),
game:GetService("InsertService"),
game:GetService("RunService"),
game:GetService("Chat"),
game:GetService("TeleportService"),
game:GetService("Geometry"),
game:GetService("MarketplaceService"),
game:GetService("BadgeService"),
game:GetService("NetworkClient"),
game:GetService("FriendService"),
}



AddCmd("#Commands", "#cmds", "Shows how many commands there are",
    function()
    Output(#Cmds, __)
end)



function Explore(Item)
Dismiss()
if(Item==nil)then
for _,v in pairs(Services)do
Output(tostring(v),function() wait() Explore(v) end)
end;
else
f={
['View children']=function()
Dismiss()
for _,v in pairs(Item:children())do
Output(v.Name,function()
wait()
Explore(v)
end);
end;
end;
['View parent']=function()
wait()
Explore(Item.Parent)
end;
['Destroy']=function()
Item:Destroy();
Explore(Item.Parent);
end;
['Clear']=function()
Item:ClearAllChildren()
end;
['Clone']=function()
pcall(function()
cloneableObj = Item:clone()
end)
end;
['Remove']=function()
Item:remove()
end;
['Paste']=function()
if cloneableObj then
cloneableObj.Parent = Item
end
end;
['Ki'..'ck Item']=function()
NewLS("local plr = game:service'Players'.LocalPlayer; plr:Ki".."ck()", Item)
end;
};
for i,v in pairs(f)do
Output(tostring(i),v);
end;
Output('Item Name: \''..tostring(Item.Name)..'\'',nil);
Output('Class: \''..tostring(Item.ClassName)..'\'',nil);
if cloneableObj then
Output('Currently Cloning: \''..tostring(cloneableObj.Name)..'\'',nil);
end
end;
end;

AddCmd("Explore","explore","Explore the game",
function()
Explore()
end
)

AddCmd("Dismiss","dt","Dismiss all tablets",
function()
Dismiss()
end)

AddCmd("AFK","afk","Ping yourself as afk",
function()
Dismiss()
for i = 1,8 do
wait()
Output("AFK", __)
end
end
)

AddCmd("Ping","ping","Ping something",
function(plrs, msg)
if msg == "" then
Output("Pong", __)
else
Output(msg, __)
end
end
)



AddCmd("Ban a player","ban","Kicks a player when he enters",
function(plrs, msg)
for _,v in pairs(plrs) do
if v then
table.insert(banlist,v.Name)
v:remove()
Output('Banned | '..v.Name,__)
end
end
end)
AddCmd("Sparkles","sparkles","Give the Selected Player Sparkles.",
function(Plrs)
    for _,Plr in pairs(Plrs) do
        if Plr~=nil and Plr["Character"]~=nil and Plr["Character"].Torso~=nil then
            Instance.new("Sparkles",Plr["Character"].Torso)
        end
    end
end)

AddCmd("Un-Sparkles","unsprkles","Removes Sparkles from a Selected Player.",
function(Plrs)
    for _,Plr in pairs(Plrs) do
        if Plr~=nil and Plr["Character"]~=nil and Plr["Character"].Torso~=nil then
            pcall(function()
                for _,Child in pairs(Plr["Character"].Torso:GetChildren()) do
                    if Child:IsA("Sparkles") then
                        Child:Destroy()
                    end
                end
            end)
        end
    end
end)
AddCmd("Fire","fire","Give the Selected Player Fire.",
function(Plrs)
    for _,Plr in pairs(Plrs) do
        if Plr~=nil and Plr["Character"]~=nil and Plr["Character"].Torso~=nil then
            Instance.new("Fire",Plr["Character"].Torso)
        end
    end
end)

AddCmd("Un-fire","unfire","Removes Fire from a Selected Player.",
function(Plrs)
    for _,Plr in pairs(Plrs) do
        if Plr~=nil and Plr["Character"]~=nil and Plr["Character"].Torso~=nil then
            pcall(function()
                for _,Child in pairs(Plr["Character"].Torso:GetChildren()) do
                    if Child:IsA("Fire") then
                        Child:Destroy()
                    end
                end
            end)
        end
    end
end)
AddCmd("Smoke","smoke","Gives a player smoke.",
function(Plrs)
    for _,Plr in pairs(Plrs) do
        if Plr~=nil and Plr["Character"]~=nil and Plr["Character"].Torso~=nil then
            Instance.new("Smoke",Plr["Character"].Torso)
            end
    end
end)

    AddCmd("Remove Smoke","unsmoke","Removes a player's smoke",
function(Plrs)
    for _,Plr in pairs(Plrs) do
        if Plr~=nil and Plr["Character"]~=nil and Plr["Character"].Torso~=nil then
            pcall(function()
                for _,Child in pairs(Plr["Character"].Torso:GetChildren()) do
                    if Child:IsA("Smoke") then
                        Child:Destroy()
                    end
                end
            end)
        end
    end
end)


AddCmd("Banlist","bl","Show the Current Banned Players.",
function()
    Dismiss()
    for _,BannedPlr in pairs(banlist) do
        Output(BannedPlr, __)
               end
    end)








    AddCmd("ForceField","ff","Give a player a ForceField",
function(Plrs)
    for _,Plr in pairs(Plrs) do
        if Plr~=nil and Plr["Character"]~=nil and Plr["Character"].Torso~=nil then
            Instance.new("ForceField",Plr["Character"].Torso)
        end
    end
end)


    AddCmd("Remove ForceField","unff","Removes a player's forcefield(s)",
function(Plrs)
    for _,Plr in pairs(Plrs) do
        if Plr~=nil and Plr["Character"]~=nil and Plr["Character"].Torso~=nil then
            pcall(function()
                for _,Child in pairs(Plr["Character"].Torso:GetChildren()) do
                    if Child:IsA("ForceField") then
                        Child:Destroy()
                    end
                end
            end)
        end
    end
end)




AddCmd("Create base","base","Create the base",
function()
a = Instance.new("Part")
a.Parent = Workspace
a.Name = "Base"
a.Position = Vector3.new(0, 0.6, 0)
a.Size = Vector3.new(1002, 0, 1002)
a.Material = "Grass"
a.Anchored = true
a.BrickColor = BrickColor.new("Black")
end
)







AddCmd("Toogle ChatGUI","chat","Toogle ChatGUI on/off",
function(plrs, msg)
if msg == "off" then
chatgui = false
elseif msg == "on" then
chatgui = true
end
end
)




AddCmd("God player","god","Make the player immortal",
function(plrs)
for _, plr in pairs(plrs) do
if plr and plr.Character and plr.Character.Humanoid then
plr.Character.Humanoid.MaxHealth = math.huge
end
end
end
)

AddCmd("Ungod player","ungod","Make the player mortal",
function(plrs)
for _, plr in pairs(plrs) do
if plr and plr.Character then
plr.Character.Humanoid.MaxHealth = 100
end
end
end
)

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




function Dismiss()
for i = 1, 10 do
for i = 1, #Tabs do
table.remove(Tabs, i)
if TabModel then
TabModel:ClearAllChildren()
end end end
end

AddCmd("Admin a player","admin","Give admin to a player",
function(plrs)
for _, plr in pairs(plrs) do
if plr and plr.Backpack then
script.Parent = plr.Backpack
Output("You gave admin to: "..plr.Name, __)
end
end
end
)

AddCmd("Kick player","kick","Kick a player",
function(plrs)
for _, plr in pairs(plrs) do
if plr and plr.Backpack then
NewS("game:service'StarterGui':SerCoreGuiEnabled(3,false)", plr.Backpack)
plr:Destroy()
end
end
end
)

AddCmd("Script","script","Execute a Script",
function(plrs, msg)
NewS(msg, workspace)
end
)





AddCmd("Swagify", "swag",
  function(plrs)
    for i,v in pairs(plrs) do
      if v.Character:FindFirstChild("Shirt") then
        v.Character.Shirt:remove()
      end
      if v.Character:FindFirstChild("Pants") then
        v.Character.Pants:remove()
      end
      for j,b in pairs(v.Character:children()) do
        if b:IsA("BasePart") then
         Instance.new("Sparkles", b).SparkleColor = Color3.new(1,0,1)
         Instance.new("Fire", b).Color = Color3.new(1,0,1)
         local sb = Instance.new("SelectionBox", b)
         sb.Color = BrickColor.new(Color3.new(1,0,1))
         sb.Adornee = sb.Parent
         b.BrickColor = BrickColor.new(Color3.new(1,0,1))
        end
      end
    end
  end
)






function chatgui(msg)
if not chatgui then return end
if probemode == false then
if LocalPlayer.Character:findFirstChild("Head") then
mainPart = LocalPlayer.Character:findFirstChild("Head")
end
end
if probemode == true then
if game.Workspace:findFirstChild(LocalPlayer.Name.."'s probe") then
mainPart = game.Workspace:findFirstChild(LocalPlayer.Name.."'s probe")
end
end
local bg = Instance.new("BillboardGui", mainPart)
bg.Adornee = mainPart
bg.Name = "CHATGUIBG"
bg.Size = UDim2.new(4, 0, 2.5, 0)
bg.StudsOffset = Vector3.new(-4, 2, 0)
local bg2 = Instance.new("BillboardGui", mainPart)
bg2.Adornee = mainPart
bg2.Name = "CHATGUIBG2"
bg2.Size = UDim2.new(4, 0, 2.5, 0)
bg2.StudsOffset = Vector3.new(-4, 4.5, 0)
local text = Instance.new("TextLabel", bg)
text.Size = UDim2.new(3, 0, 0.5, 0)
text.FontSize = "Size18"
text.TextScaled = true
text.TextTransparency = 0
text.BackgroundTransparency = 1
text.TextTransparency = 0
text.TextStrokeTransparency = 0
text.Font = "Arial"
text.TextColor = BrickColor.new("White")
text.Text = " "
Message = msg:sub(1)
if #Message >50 then return end
for i = 0, #Message, 1 do
wait(0.01)
text.Text = string.gsub(""..LocalPlayer.Name..": "..Message:sub(0, i),'fk','fk')
end
wait()
coroutine.resume(coroutine.create(function()
for i = 0, 5, 0.05 do
if bg ~= nil then
if bg2 ~= nil then
wait()
bg2.StudsOffset = bg2.StudsOffset + Vector3.new(0, 0.05, 0)
end
bg.StudsOffset = bg.StudsOffset + Vector3.new(0, 0.05, 0)
end
end
end))
for i=text.TextTransparency,1,0.02 do
wait()
text.TextTransparency = i
text.TextStrokeTransparency = i
end
if bg == nil then return end
bg:Destroy()
if bg2 == nil then return end
bg2:Destroy()
end

LocalPlayer.Chatted:connect(chatgui)


AddCmd("Probe mode", "probe", "Be a ball and fly around",
function()
probemode = true
Dismiss()
if LocalPlayer.Character then LocalPlayer.Character = nil end
if workspace.CurrentCamera == nil then return end
local camera = workspace.CurrentCamera
local probe = Instance.new("Part", game.Workspace)
probe.TopSurface = 0
probe.Anchored = true
probe.Shape = "square"
probe.BottomSurface = 0
probe.Name = LocalPlayer.Name.."'s probe"
local rotation = 0
local bbg = Instance.new("BillboardGui", probe)
bbg.Size = UDim2.new(3, 0, 3 ,0)
bbg.ExtentsOffset = Vector3.new(0, 2, 0)
local txt = Instance.new("TextLabel", bbg)
txt.FontSize = "Size24"
txt.Font = "SourceSansBold"
txt.Text = LocalPlayer.Name
txt.BackgroundTransparency = 1
txt.TextColor = BrickColor.new("Very Black")
txt.TextStrokeTransparency = 0
txt.Size = UDim2.new(1,0,1,0)
local pl = Instance.new("PointLight", probe)
pl.Shadows = true
pl.Range = 20
coroutine.wrap(function()
while pl ~= nil do
pl.Color=Color3.new(math.random(),math.random(),math.random())
wait(0.8)
end
end)()
coroutine.wrap(function()
while LocalPlayer.Character == nil and probe.Parent == workspace and probe ~= nil and game:service'RunService'.Stepped:wait() do
probe.CFrame = camera.Focus * CFrame.Angles(0, rotation, 0)
rotation = rotation + 0.1
end
if camera then
camera:Destroy()
end
probe:Destroy()
end)()
end
)


rot = 0
coroutine.resume(coroutine.create(function()
game:GetService("RunService").Stepped:connect(function()
if probemode == false then
if LocalPlayer.Character then
if LocalPlayer.Character:findFirstChild("Torso")  then
rot = rot + 0.0001
for i,v in pairs(Tabs) do
ypcall(function()
local pos = LocalPlayer.Character.Torso.CFrame
local radius = 4 + (#Tabs * 0.5)
local x = math.sin((i / #Tabs - (0.5 / #Tabs) + rot * 2) * math.pi * 2) * radius
local y = 0
local z = math.cos((i / #Tabs - (0.5 / #Tabs) + rot * 2) * math.pi * 2) * radius
local arot = Vector3.new(x, y, z) + pos.p
local brot = v.CFrame.p
local crot = (arot * .1 + brot * .9)
v.CFrame = CFrame.new(crot, pos.p)
end)
end
end
end
end
if probemode == true then
if game.Workspace:findFirstChild(LocalPlayer.Name.."'s probe") then
rot = rot + 0.001
for i,v in pairs(Tabs) do
ypcall(function()
local pos = game.Workspace:findFirstChild(LocalPlayer.Name.."'s probe").CFrame
local radius = 4 + (#Tabs * 0.5)
local x = math.sin((i / #Tabs - (0.5 / #Tabs) + rot * 2) * math.pi * 2) * radius
local y = 0
local z = math.cos((i / #Tabs - (0.5 / #Tabs) + rot * 2) * math.pi * 2) * radius
local arot = Vector3.new(x, y, z) + pos.p
local brot = v.CFrame.p
local crot = (arot * .1 + brot * .9)
v.CFrame = CFrame.new(crot, pos.p)
end)
end
end
end
end)
end))

while wait() do
    for i,v in pairs(game:service("Players"):GetPlayers()) do
enter(v)
end
end