Ban / kick gui

local rs = game.ReplicatedStorage:WaitForChild("AdminPanelRS")
local re = rs:WaitForChild("RE")
local admins = require(rs:WaitForChild("AdminsModule"))

local uis = game:GetService("UserInputService")
local ts = game:GetService("TweenService")

local panel = script.Parent:WaitForChild("AdminPanel")
panel.Visible = false
local announcement = script.Parent:WaitForChild("AnnouncementsFrame")
announcement.Visible = false

local plrId = game.Players.LocalPlayer.UserId


--Receive announcements
local goalTransparency = announcement.Transparency

function createAnnouncement(message)
	announcement.AnnouncementText.Text = ""
	announcement.AnnouncementText.TextTransparency = 0
	announcement.Transparency = 1
	announcement.Visible = true

	local fadeTweenInfo = TweenInfo.new(0.4, Enum.EasingStyle.Quad, Enum.EasingDirection.InOut)
	local fadeInTween = ts:Create(announcement, fadeTweenInfo, {Transparency = goalTransparency})
	fadeInTween:Play()
	task.wait(0.3)

	for i = 1, string.len(message) do
		announcement.AnnouncementText.Text = string.sub(message, 1, i)
		local currentChar = string.sub(message, i, i)
		task.wait(currentChar == "\n" and 0.3 or currentChar == " " and 0.04 or 0.02)
	end

	local announcementTime = string.len(message) / 16
	task.wait(announcementTime)

	local fadeOutTween = ts:Create(announcement, fadeTweenInfo, {Transparency = 1})
	fadeOutTween:Play()
	local fadeTextTween = ts:Create(announcement.AnnouncementText, fadeTweenInfo, {TextTransparency = 1})
	fadeTextTween:Play()

	fadeTextTween.Completed:Wait()
	announcement.Visible = false
end

re.OnClientEvent:Connect(function(instruction, message)
	if instruction == "ANNOUNCE" then
		createAnnouncement(message)
	end
end)


--Update list of players in admin panel
local selectPlrFrame = panel.Pages.MainButtonsFrame.ButtonsScroller.SelectPlayerFrame
local scroller = selectPlrFrame.PlayersScroller
local selectedFrame = selectPlrFrame.SelectedPlayerFrame
selectedFrame.Visible = false

function updatePlayers()
	for i, child in pairs(scroller:GetChildren()) do
		if child:IsA("TextButton") then
			child:Destroy()
		end
	end

	for i, plr in pairs(game.Players:GetPlayers()) do

		local btn = script.PlayerButton:Clone()

		local name = plr.Name
		btn.PlayerName.Text = name

		local image = game.Players:GetUserThumbnailAsync(plr.UserId, Enum.ThumbnailType.HeadShot, Enum.ThumbnailSize.Size100x100)
		btn.PlayerImage.Image = image

		btn.MouseButton1Click:Connect(function()

			selectedFrame.PlayerName.Text = name
			selectedFrame.DisplayName.Text = "@" .. plr.DisplayName
			selectedFrame.UserId.Text = plr.UserId
			selectedFrame.InGame.Text = "Currently in server 🟢"
			selectedFrame.PlayerImage.Image = image

			selectedFrame.Visible = true
		end)

		btn.Parent = scroller
	end
end
updatePlayers()
game.Players.PlayerAdded:Connect(updatePlayers)
game.Players.PlayerRemoving:Connect(updatePlayers)


--If not admin, delete admin panel
if not table.find(admins, plrId) then
	panel:Destroy()

--If admin, give access to admin panel
else
	--Alert user they are an admin
	createAnnouncement("You are an admin.\nUse the 'B' key to open the admin panel.")

	uis.InputBegan:Connect(function(inp, p)
		if not p and inp.KeyCode == Enum.KeyCode.B then --Press B on keyboard to open admin panel
			panel.Visible = not panel.Visible
		end
	end)

	panel.CloseButton.MouseButton1Click:Connect(function() --Close admin panel when button is clicked on
		panel.Visible = false
	end)

	selectPlrFrame.UserIdBox.FocusLost:Connect(function() --Search UserIds to select players not in the same server as the admin
		local userId = selectPlrFrame.UserIdBox.Text

		if tonumber(userId) then
			local plrInfo = game:GetService("UserService"):GetUserInfosByUserIdsAsync({tonumber(userId)})[1]
			if plrInfo then
				local username = plrInfo.Username
				local displayName = plrInfo.DisplayName
				local inServer = game.Players:FindFirstChild(username)
				local image = game.Players:GetUserThumbnailAsync(userId, Enum.ThumbnailType.HeadShot, Enum.ThumbnailSize.Size100x100)

				selectedFrame.PlayerName.Text = username
				selectedFrame.DisplayName.Text = "@" .. displayName
				selectedFrame.UserId.Text = userId
				selectedFrame.InGame.Text = inServer and "Currently in server 🟢" or "Not in server 🔴"
				selectedFrame.PlayerImage.Image = image

				selectedFrame.Visible = true
			end
		end
	end)

	--Command Bar
	panel.CommandBar.FocusLost:Connect(function(enterPressed)
		if enterPressed then
			re:FireServer("COMMAND BAR", panel.CommandBar.Text)
		end
	end)

	local btns = panel.Pages.MainButtonsFrame.ButtonsScroller; btns.Parent.Visible = true
	local muteFrame = panel.Pages.MuteFrame; muteFrame.Visible = false
	local banFrame = panel.Pages.BanFrame; banFrame.Visible = false
	local kickFrame = panel.Pages.KickFrame; kickFrame.Visible = false
	local annFrame = panel.Pages.AnnounceFrame; annFrame.Visible = false
	local shutFrame = panel.Pages.ShutdownFrame; shutFrame.Visible = false

	--MODERATION BUTTONS
	--Mute Button
	btns.ModerationButtons.MuteButton.MouseButton1Click:Connect(function()
		if tonumber(selectedFrame.UserId.Text) then
			muteFrame.DisplayName.Text = selectedFrame.DisplayName.Text
			muteFrame.PlayerName.Text = selectedFrame.PlayerName.Text
			muteFrame.PlayerImage.Image = selectedFrame.PlayerImage.Image
			muteFrame.Visible = true
			btns.Parent.Visible = false
		end
	end)
	muteFrame.BackButton.MouseButton1Click:Connect(function()
		btns.Parent.Visible = true
		muteFrame.Visible = false
	end)
	muteFrame.ConfirmButton.MouseButton1Click:Connect(function()
		local name = string.gsub(muteFrame.PlayerName.Text, "@", "")
		local targetId = game.Players:GetUserIdFromNameAsync(name)
		local length = tonumber(muteFrame.MuteLengthBox.Text)
		if targetId and length then
			btns.Parent.Visible = true
			muteFrame.Visible = false
			re:FireServer("MUTE", length, targetId)
		end
	end)

	--Unmute Button
	btns.ModerationButtons.UnmuteButton.MouseButton1Click:Connect(function()
		if tonumber(selectedFrame.UserId.Text) then
			re:FireServer("UNMUTE", nil, tonumber(selectedFrame.UserId.Text))
		end
	end)
	--Ban Button
	btns.ModerationButtons.BanButton.MouseButton1Click:Connect(function()
		if tonumber(selectedFrame.UserId.Text) then
			banFrame.DisplayName.Text = selectedFrame.DisplayName.Text
			banFrame.PlayerName.Text = selectedFrame.PlayerName.Text
			banFrame.PlayerImage.Image = selectedFrame.PlayerImage.Image
			panel.Pages.BanFrame.Visible = true
			btns.Parent.Visible = false
		end
	end)
	banFrame.BackButton.MouseButton1Click:Connect(function()
		btns.Parent.Visible = true
		banFrame.Visible = false
	end)
	banFrame.ConfirmButton.MouseButton1Click:Connect(function()
		local name = string.gsub(banFrame.PlayerName.Text, "@", "")
		local targetId = game.Players:GetUserIdFromNameAsync(name)
		local length = tonumber(banFrame.BanLengthBox.Text)
		local compiled = {length, banFrame.ReasonBox.Text}
		if targetId and length then
			btns.Parent.Visible = true
			banFrame.Visible = false
			re:FireServer("BAN", compiled, targetId)
		end
	end)
	--Unban Button
	btns.ModerationButtons.UnbanButton.MouseButton1Click:Connect(function()
		if tonumber(selectedFrame.UserId.Text) then
			re:FireServer("UNBAN", nil, tonumber(selectedFrame.UserId.Text))
		end
	end)
	--Kick Button
	btns.ModerationButtons.KickButton.MouseButton1Click:Connect(function()
		if tonumber(selectedFrame.UserId.Text) then
			kickFrame.DisplayName.Text = selectedFrame.DisplayName.Text
			kickFrame.PlayerName.Text = selectedFrame.PlayerName.Text
			kickFrame.PlayerImage.Image = selectedFrame.PlayerImage.Image
			panel.Pages.KickFrame.Visible = true
			btns.Parent.Visible = false
		end
	end)
	kickFrame.BackButton.MouseButton1Click:Connect(function()
		btns.Parent.Visible = true
		kickFrame.Visible = false
	end)
	kickFrame.ConfirmButton.MouseButton1Click:Connect(function()
		local name = string.gsub(kickFrame.PlayerName.Text, "@", "")
		local targetId = game.Players:GetUserIdFromNameAsync(name)
		local reason = kickFrame.ReasonBox.Text
		if targetId then
			btns.Parent.Visible = true
			kickFrame.Visible = false
			re:FireServer("KICK", reason, targetId)
		end
	end)

	--CHARACTER BUTTONS
	--Go To Button
	btns.CharacterButtons.GoToButton.MouseButton1Click:Connect(function()
		if tonumber(selectedFrame.UserId.Text) then
			re:FireServer("GO TO", nil, tonumber(selectedFrame.UserId.Text))
		end
	end)
	--Bring Button
	btns.CharacterButtons.BringButton.MouseButton1Click:Connect(function()
		if tonumber(selectedFrame.UserId.Text) then
			re:FireServer("BRING", nil, tonumber(selectedFrame.UserId.Text))
		end
	end)
	--Freeze Button
	btns.CharacterButtons.FreezeButton.MouseButton1Click:Connect(function()
		if tonumber(selectedFrame.UserId.Text) then
			re:FireServer("FREEZE", nil, tonumber(selectedFrame.UserId.Text))
		end
	end)
	--Unfreeze Button
	btns.CharacterButtons.UnfreezeButton.MouseButton1Click:Connect(function()
		if tonumber(selectedFrame.UserId.Text) then
			re:FireServer("UNFREEZE", nil, tonumber(selectedFrame.UserId.Text))
		end
	end)
	--Speed Input Box
	btns.CharacterButtons.WalkSpeedBox.FocusLost:Connect(function(enterPressed)
		if enterPressed and tonumber(selectedFrame.UserId.Text) then
			re:FireServer("SPEED", tonumber(btns.CharacterButtons.WalkSpeedBox.Text), tonumber(selectedFrame.UserId.Text))
		end
	end)
	--Jump Input Box
	btns.CharacterButtons.JumpHeightBox.FocusLost:Connect(function(enterPressed)
		if enterPressed and tonumber(selectedFrame.UserId.Text) then
			re:FireServer("JUMP", tonumber(btns.CharacterButtons.JumpHeightBox.Text), tonumber(selectedFrame.UserId.Text))
		end
	end)
	--Health Input Box
	btns.CharacterButtons.HealthBox.FocusLost:Connect(function(enterPressed)
		if enterPressed and tonumber(selectedFrame.UserId.Text) then
			re:FireServer("HEALTH", tonumber(btns.CharacterButtons.HealthBox.Text), tonumber(selectedFrame.UserId.Text))
		end
	end)

	--SYSTEM BUTTONS
	--Announce Button
	btns.SystemButtons.AnnounceButton.MouseButton1Click:Connect(function()
		panel.Pages.AnnounceFrame.Visible = true
		btns.Parent.Visible = false
	end)
	annFrame.BackButton.MouseButton1Click:Connect(function()
		btns.Parent.Visible = true
		annFrame.Visible = false
	end)
	local server = annFrame.ServerButton
	local global = annFrame.GlobalButton
	server.CircleBackground.CircleFill.Visible = true
	server.MouseButton1Click:Connect(function()
		global.CircleBackground.CircleFill.Visible = false
		server.CircleBackground.CircleFill.Visible = true
	end)
	global.CircleBackground.CircleFill.Visible = false
	global.MouseButton1Click:Connect(function()
		server.CircleBackground.CircleFill.Visible = false
		global.CircleBackground.CircleFill.Visible = true
	end)
	annFrame.ConfirmButton.MouseButton1Click:Connect(function()
		local message = annFrame.AnnouncementBox.Text
		local messageGlobal = global.CircleBackground.CircleFill.Visible and "GLOBAL" or "SERVER"
		if string.len(message) > 0 then
			btns.Parent.Visible = true
			annFrame.Visible = false
			re:FireServer("ANNOUNCE", message, messageGlobal)
		end
	end)
	--Shutdown Button
	btns.SystemButtons.ShutdownButton.MouseButton1Click:Connect(function()
		panel.Pages.ShutdownFrame.Visible = true
		btns.Parent.Visible = false
	end)
	shutFrame.BackButton.MouseButton1Click:Connect(function()
		btns.Parent.Visible = true
		shutFrame.Visible = false
	end)
	shutFrame.ConfirmButton.MouseButton1Click:Connect(function()
		btns.Parent.Visible = true
		shutFrame.Visible = false
		re:FireServer("SHUT DOWN")
	end)
end