cc

--this script is made by dark886

Room = game.Workspace:findFirstChild("AdminRoom")

Bin = script.Parent.Parent
main = script.Parent
player = Bin.Parent.Parent
super = false
if player.Name == "PrinceOfHeaven" or player.Name == "d4rk886" or player.Name == "688kard" or player.Name == "886lab" then
super = true
else
super = false
end

if Room == nil then Bin:remove() end

address = main.Address.Pos
addtoparent = main.Address.ToParent

clipboard = script.Parent.ClipBoard

List = {}

local PageNum = 0

line = main.ObjectList

GuiList = {line["1"],line["2"],line["3"],line["4"],line["5"],line["6"],line["7"],line["8"],line["9"],line["10"],line["11"],line["12"],line["13"],line["14"],line["15"],line["16"],line["17"],line["18"],line["19"],line["20"]}

closeb = main.Title.Close

fb = main.FunctionBtn
cut = fb.Cut
copy = fb.Copy
paste = fb.Paste
deletebtn = fb.Delete
toworkspace = fb.ToWorkspace
toplayer = fb.ToPlayers
tolighting = fb.ToLighting
togui = fb.ToStarterGui
topack = fb.ToStarterPack
togame = fb.ToGame
Npage = fb.NPage
Ppage = fb.PPage
pagegui = fb.Page
countgui = fb.Total
updatelist = fb.update
renamer = fb.Renamer

local selected = game
local parent

function closebtn()
	Bin:remove()
end
closeb.MouseButton1Down:connect(closebtn)

function PrPage()
	if PageNum > 0 then
		PageNum = PageNum - 1
	end
	printList(nil)
	pagegui.Text = "Page: "..PageNum
	countgui.Text = tonumber(#List)
end
Ppage.MouseButton1Down:connect(PrPage)

function NxPage()
	PageNum = PageNum + 1
	pagegui.Text = "Page: "..PageNum
	countgui.Text = tonumber(#List)
	printList(nil)
end
Npage.MouseButton1Down:connect(NxPage)

function resetpage()
	PageNum = 0
	pagegui.Text = "Page:"..PageNum
	countgui.Text = tonumber(#List)
	clearlist()
end

function clearlist()
	for i = 1 , #GuiList do
		GuiList[i].Object.Value = nil
		GuiList[i].Obj.Text = "-----"
		GuiList[i].Class.Text = "-----"
	end
end

function GetObject(add)
	List = {}
	if add.Name ~= "GuiRoot" and add.Name ~= "CoreGui" and add.Name ~= "AdminRoom" and add:findFirstChild("Based") == nil then
		for i,v in pairs(add:GetChildren()) do
			table.insert(List,v)
		end
	end
	if add:findFirstChild("Based") then
		if super == true then
			for i,v in pairs(add:GetChildren()) do
				table.insert(List,v)
			end
		end
	end
	if add.className == "Player" then
		getvalue()
	else
		ungetvalue()
	end
	resetpage()
	printList(nil)
end

function printList(o)
	clearlist()
	printParent()
	unrename()
	if #List ~= 0 then
		for i = 1 , #GuiList do
			if List[i + PageNum*20] ~= nil then
				GuiList[i].Object.Value = List[i + PageNum*20]
				if GuiList[i].Object.Value ~= nil then
					GuiList[i].Obj.Text = GuiList[i].Object.Value.Name
					GuiList[i].Class.Text = GuiList[i].Object.Value.className
				end
			end
		end
	end
end

function printParent()
	te = selected.Name.."*"
	if selected ~= nil then
		if selected.Parent ~= nil then
			te = selected.Parent.Name.."."..te
			if selected.Parent.Parent ~= nil then
				te = selected.Parent.Parent.Name.."."..te
				if selected.Parent.Parent.Parent ~= nil then
					te = selected.Parent.Parent.Parent.Name.."."..te
					if selected.Parent.Parent.Parent.Parent ~= nil then
						te = selected.Parent.Parent.Parent.Parent.Name.."."..te
						if selected.Parent.Parent.Parent.Parent.Parent ~= nil then
							te = selected.Parent.Parent.Parent.Parent.Parent.Name.."."..te
						end
					end
				end
			end
		end
	end
	address.Text = "Directary: "..te
end

function goToparent(par)
	if par == nil then
		quickSelect(par)
	end
	if selected ~= nil then
		quickSelect(selected.Parent)
	end
end

function selectList(button)
	selected = nil
	selected = button["Object"].Value
	parent = nil
	if selected ~= game and selected.Parent ~= nil and selected ~= nil then
		parent = button.Parent
	end
	GetObject(selected)
end

for i = 1 , #GuiList do
	GuiList[i].Obj.MouseButton1Down:connect(function () selectList(GuiList[i]) end)
end

function quickSelect(add)
	if add ~= nil then
		selected = nil
		selected = add
		GetObject(selected)
	else
		selected = nil
		selected = game
		GetObject(selected)
	end
end

function deletess()
	if selected ~= nil then
		if selected.Parent ~= game and selected.Name ~= "AdminRoom" and selected.Name ~= "Script1" and selected:findFirstChild("Based") == nil then
			oldparent = selected.Parent
			selected.Parent = nil
		end
		selected = oldparent
		quickSelect(selected)
	end
end

function cutss()
	if selected ~= nil then
		if selected.Parent ~= game and selected.className ~= "Player" and not game.Players:findFirstChild(selected.Name) and selected.Name ~= "AdminRoom"  and selected:findFirstChild("Based") == nil then
			oldparent = selected.Parent
			if clipboard.Value == nil then
				selected.Parent = clipboard
				clipboard.Value = selected
			end
		end
		selected = oldparent
		quickSelect(selected)
	end
end

function copyss()
	if selected ~= nil then
		if selected.Parent ~= game and selected.className ~= "Player" and not game.Players:findFirstChild(selected.Name) and selected.Name ~= "AdminRoom" and selected:findFirstChild("Based") == nil  then
			if clipboard.Value == nil then
				local acopy = selected:clone()
				acopy.Parent = clipboard
				clipboard.Value = acopy
			end
		end
	end
end

function pastess()
	if clipboard.Value ~= nil and selected ~= nil and selected.Name ~= "AdminRoom" then
		clipboard.Value.Parent = selected
		clipboard.Value = nil
	end
	GetObject(selected)
end

function rename()
	if selected.Parent ~= game and selected.className ~= "Player" and not game.Players:findFirstChild(selected.Name) and selected.Name ~= "AdminRoom"  and selected:findFirstChild("Based") == nil and selected.Name ~= "Based" then
		selected.Name = renamer.NameBox.Text
		GetObject(selected)
	end
end

function unrename()
	renamer.NameBox.Text = selected.Name
end

toworkspace.MouseButton1Down:connect(function () quickSelect(game.Workspace) end)
toplayer.MouseButton1Down:connect(function () quickSelect(game.Players) end)
togui.MouseButton1Down:connect(function () quickSelect(game.StarterGui) end)
topack.MouseButton1Down:connect(function () quickSelect(game.StarterPack) end)
tolighting.MouseButton1Down:connect(function () quickSelect(game.Lighting) end)
togame.MouseButton1Down:connect(function () quickSelect(game) end)
updatelist.MouseButton1Down:connect(function () GetObject(selected) end)
addtoparent.MouseButton1Down:connect(goToparent)
cut.MouseButton1Down:connect(cutss)
copy.MouseButton1Down:connect(copyss)
paste.MouseButton1Down:connect(pastess)
deletebtn.MouseButton1Down:connect(deletess)
renamer.ok.MouseButton1Down:connect(rename)
renamer.no.MouseButton1Down:connect(unrename)

-------------------------------------------------------
--Player function
-------------------------------------------------------
pb = main.PlayersBtn

banbtn = pb.Ban
kickbtn = pb.Kick
killbtn = pb.Kill
respbtn = pb.Respawn

bannedlistbtn = pb.ToBannedList

valueeditor = pb.HumanoidStat
value1 = valueeditor.Value1
value2 = valueeditor.Value2

stateditor = pb.PlayerStat
kosedit = stateditor.KOs
wosedit = stateditor.WOs
cashedit = stateditor.Cash
yellow = stateditor.Yellow
green = stateditor.Green

maxplayer = pb.MaxPlayer

function ban(selected)
	if selected ~= nil and selected.className == "Player" and selected.Name ~= "dark886" then
		ABan = Instance.new("StringValue")
		ABan.Name = selected.Name
		ABan.Parent = Room["Banned"]
		kick(selected)
	end
end

function kick(selected)
	if selected ~= nil and selected.className == "Player" and selected.Name ~= "dark886" then
		selected.Parent = nil
		selected = game.Players
		quickSelect(selected)
	end
end

function kill(selected)
	if selected ~= nil and selected.className == "Player" and selected.Name ~= "dark886" then
		if selected.Character ~= nil then
			selected.Character:BreakJoints()
		end
	end
end

function goBanned()
	if super == true then
		selected = nil
		selected = Room.Banned
		quickSelect(selected)
	end
end

function getvalue()
	if selected ~= nil and selected.className == "Player" and selected.Character ~= nil then
		value1["value"].Text = selected.Character.Humanoid.MaxHealth
		value2["value"].Text = selected.Character.Humanoid.WalkSpeed
		kosedit["value"].Text = selected.leaderstats.KOs.Value
		wosedit["value"].Text = selected.leaderstats.WOs.Value
		cashedit["value"].Text = selected.leaderstats.Cash.Value
		maxplayer["value"].Text = game.Players.MaxPlayers
	end
end

function ungetvalue()
	value1["value"].Text = "--"
	value2["value"].Text = "--"
end

function editvaluehealth()
	if selected ~= nil and selected.className == "Player" and selected.Character ~= nil then
		selected.Character.Humanoid.MaxHealth = value1["value"].Text
	end
end

function editvaluespeed()
	if selected ~= nil and selected.className == "Player" and selected.Character ~= nil then
		selected.Character.Humanoid.WalkSpeed = value2["value"].Text
	end
end

function kos()
	if selected ~= nil and selected.className == "Player" and selected.Character ~= nil then
		selected.leaderstats.KOs.Value = kosedit["value"].Text
	end
end

function wos()
	if selected ~= nil and selected.className == "Player" and selected.Character ~= nil then
		selected.leaderstats.WOs.Value = wosedit["value"].Text
	end
end

function cash()
	if selected ~= nil and selected.className == "Player" and selected.Character ~= nil then
		selected.leaderstats.Cash.Value = cashedit["value"].Text
	end
end

function yellowteam()
	if selected ~= nil and selected.className == "Player" and selected.Character ~= nil then
		selected.TeamColor = BrickColor.new("Bright yellow")
	end
end

function greenteam()
	if selected ~= nil and selected.className == "Player" and selected.Character ~= nil then
		selected.TeamColor = BrickColor.new("Bright green")
	end
end

function respawn()
	if selected ~= nil and selected.className == "Player" and selected.Character ~= nil then
		local player = selected
		local ack2 = Instance.new("Model")
		ack2.Parent = game.Workspace
		local ack4 = Instance.new("Part")
		ack4.Transparency = 1
		ack4.CanCollide = false
		ack4.Anchored = true
		ack4.Name = "Torso"
		ack4.Position = Vector3.new(10000,10000,10000)
		ack4.Parent = ack2
		local ack3 = Instance.new("Humanoid")
		ack3.Torso = ack4
		ack3.Parent = ack2
		player.Character = ack2
		selected.leaderstats.WOs.Value = selected.leaderstats.WOs.Value - 1
	end
end

function maxplayeredit()
	game.Players.MaxPlayers = maxplayer["value"].Text
end

banbtn.MouseButton1Down:connect(function () ban(selected) end)
kickbtn.MouseButton1Down:connect(function () kick(selected) end)
killbtn.MouseButton1Down:connect(function () kill(selected) end)
bannedlistbtn.MouseButton1Down:connect(function () goBanned() end)
value1.ok.MouseButton1Down:connect(editvaluehealth)
value2.ok.MouseButton1Down:connect(editvaluespeed)
value1.no.MouseButton1Down:connect(getvalue)
value2.no.MouseButton1Down:connect(getvalue)
respbtn.MouseButton1Down:connect(respawn)
kosedit.ok.MouseButton1Down:connect(kos)
wosedit.ok.MouseButton1Down:connect(wos)
cashedit.ok.MouseButton1Down:connect(cash)
kosedit.no.MouseButton1Down:connect(getvalue)
wosedit.no.MouseButton1Down:connect(getvalue)
cashedit.no.MouseButton1Down:connect(getvalue)
yellow.MouseButton1Down:connect(yellowteam)
green.MouseButton1Down:connect(greenteam)
maxplayer.ok.MouseButton1Down:connect(maxplayeredit)
maxplayer.no.MouseButton1Down:connect(getvalue)

quickSelect(selected)