-- THIS SCRIPT GOES IN STARTERGUI --

local CrashPlayer = true
-- When set to true, it crashs the player's game and bans them.
-- When set to false, it only bans them

local ReadingTime = 10
-- Number of seconds before their ban/crash takes effect (If set too low,
-- They won't see the GUI)

local Banned_Players = {"palkia989","mark1023","BLOCKE26","dudedoug","IlllthespammerIlll","ithatguylol123","baylen11","lthatguylawl","GODSVGAMES","X545X545X","CopiedGamesX","StalkingStalkerXDl","5861948","ryansasuke619","Coolperson400","theman98223","al0517","Robloxdestroyer9000","TurboAlin13","legendaryZeus","kennyisme1234","xzcfe","yourbro12","tkymasters","Ithatgirllawl","whitedragon506","jenee","14ninj4","ItaliaDave","tkymasters2","INVEIGLEMENT","EDOUY12345","KIKIX11230","TINVU","12duckie1234","iloveparis1","JamesLynn","coolmacandcheese","vinnie757","obetoguy1","walky565","epicninja0214","sammy507605","sonic53803","damienfu","litlerobert","waterstarter123","zardmasterr","HtmlCoder","dawd","trev4321","Jaffie23","Isis1coco2"}
-- Players in this table will be banned/crashed and banned from the game

local Banned_Groups = {}
-- Group IDs in this table will be banned/crashed and banned from the game

local Description = "You have been banned from this game please do not return!"
-- The message shown under the "B L A C K   O U T" title

local BannedPlayersMessage = "You are on a list of people who are denied access to this game"
-- The ban reason if a person is on the Banned List

local GroupBanMessage = "The group ID [GROUPID] is denied access to this game for breaking set rules"
-- The ban reason if a person is in a banned group. GROUPID will change into the
-- banned groups's ID

-----------------------------------------------------------------------------------
function CheckBan(player)
	for i,v in pairs(Banned_Players) do
		if v:lower() == player.Name:lower() then
			return true, 0
		end
	end

	for i,v in pairs(Banned_Groups) do
		if player:IsInGroup(v) then
			return true, v
		end
	end

	return false, nil
end
-----------------------------------------------------------------------------------
repeat
	wait(3 + math.random() / 2)
until game.Players.LocalPlayer and game.Players.LocalPlayer.Character and game.Players.LocalPlayer.Character:FindFirstChild("Head")
-- The reason behind all these repeat checks, is to let the player have a chance to
-- load the game, instead of just instantly banning.

local Player = game.Players.LocalPlayer

if workspace:FindFirstChild("GUIBANLIST") then
	if workspace.GUIBANLIST:FindFirstChild(Player.Name) then
		Player:Destroy()
	end
end

-- Player.Character = nil
-- Prevent them from being killed/kill others

local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "Banned"

local MainFrame = Instance.new("Frame", ScreenGui)
MainFrame.BackgroundColor3 = BrickColor.new("Really black").Color
MainFrame.BorderSizePixel = 0
MainFrame.Position = UDim2.new(0, 0, -.004, 0)
MainFrame.Size = UDim2.new(1, 0, 1, 0)

local Title = Instance.new("TextLabel", MainFrame)
Title.BackgroundColor3 = BrickColor.White().Color
Title.BackgroundTransparency = 0.95
Title.BorderColor3 = BrickColor.new("Really black").Color
Title.BorderSizePixel = 0
Title.Name = "Title"
Title.Size = UDim2.new(1, 0, 0.3, 0)
Title.Font = "ArialBold"
Title.Text = "YOUR BANNED"
Title.TextColor3 = BrickColor.White().Color
Title.TextScaled = true

local Minordesc = Instance.new("TextLabel", MainFrame)
Minordesc.BackgroundColor3 = BrickColor.White().Color
Minordesc.BackgroundTransparency = 0.95
Minordesc.BorderColor3 = BrickColor.new("Really black").Color
Minordesc.BorderSizePixel = 0
Minordesc.Name = "Minordesc"
Minordesc.Position = UDim2.new(0, 0, 0.3, 0)
Minordesc.Size = UDim2.new(1, 0, 0.05, 0)
Minordesc.Font = "ArialBold"
Minordesc.Text = Description
Minordesc.TextColor3 = BrickColor.White().Color
Minordesc.TextScaled = true

local BaninfoFrame = Instance.new("Frame", MainFrame)
BaninfoFrame.Name = "Baninfo"
BaninfoFrame.BackgroundColor3 = BrickColor.White().Color
BaninfoFrame.BackgroundTransparency = 0.95
BaninfoFrame.BorderSizePixel = 0
BaninfoFrame.Position = UDim2.new(0.2, 0, 0.5, 0)
BaninfoFrame.Size = UDim2.new(0.6, 0, 0.2, 0)

local BanReasonTitle = Instance.new("TextLabel", BaninfoFrame)
BanReasonTitle.Name = "BanReasonTitle"
BanReasonTitle.BackgroundTransparency = 1
BanReasonTitle.BorderSizePixel = 0
BanReasonTitle.Size = UDim2.new(1, 0, 0.2, 0)
BanReasonTitle.Font = "ArialBold"
BanReasonTitle.Text = "Ban Reason"
BanReasonTitle.TextColor3 = BrickColor.White().Color
BanReasonTitle.TextScaled = true
BanReasonTitle.TextYAlignment = "Bottom"

local Minordesc = Instance.new("TextLabel", BaninfoFrame)
Minordesc.Name = "Minordesc"
Minordesc.BackgroundTransparency = 1
Minordesc.BorderSizePixel = 0
Minordesc.Position = UDim2.new(0, 0, 0.3, 0)
Minordesc.Size = UDim2.new(1, 0, 0.125, 0)
Minordesc.Font = "ArialBold"
Minordesc.Text = " YOU HAVE BEEN REPORTED "
Minordesc.TextColor3 = BrickColor.White().Color
Minordesc.TextScaled = true
Minordesc.TextXAlignment = "Left"
Minordesc.TextYAlignment = "Center"

local BanReason = Instance.new("TextLabel", BaninfoFrame)
BanReason.Name = "BanReason"
BanReason.BackgroundTransparency = .98
BanReason.BorderSizePixel = 1
BanReason.Position = UDim2.new(0.4, 0, 0.4, 0)
BanReason.Size = UDim2.new(0.6, 0, 0.6, 0)
BanReason.Font = "ArialBold"
BanReason.Text = ""
BanReason.TextColor3 = BrickColor.White().Color
BanReason.TextScaled = true
BanReason.TextYAlignment = "Center"

local IsPlayerBanned, ExtraInformation = CheckBan(Player)
if IsPlayerBanned == true then
	if ExtraInformation == 0 then
		BanReason.Text = BannedPlayersMessage
	else
		BanReason.Text = string.gsub(GroupBanMessage, "GROUPID", ExtraInformation)
	end

	ScreenGui.Parent = Player.PlayerGui
	wait(ReadingTime)
	if CrashPlayer then
		print("Crashing")

		for i = 1, 10000, 1 do
			local Spam = Instance.new("Frame", ScreenGui)
			Spam.Size = UDim2.new(1, 1, 1, 1)
			wait()
		end

		if workspace:FindFirstChild("GUIBANLIST") then
			local BannedPlayerTag = Instance.new("BoolValue", workspace.GUIBANLIST)
			BannedPlayerTag.Name = Player.Name
			BannedPlayerTag.Value = true
		else
			local GuiBanList = Instance.new("BoolValue", workspace)
			GuiBanList.Name = "GUIBANLIST"
			GuiBanList.Value = true

			local BannedPlayerTag = Instance.new("BoolValue", workspace.GUIBANLIST)
			BannedPlayerTag.Name = Player.Name
			BannedPlayerTag.Value = true
		end

		Instance.new("ManualSurfaceJointInstance", ScreenGui)
		Player:Destroy()
	else
		print("Banning")

		if workspace:FindFirstChild("GUIBANLIST") then
			local BannedPlayerTag = Instance.new("BoolValue", workspace.GUIBANLIST)
			BannedPlayerTag.Name = Player.Name
			BannedPlayerTag.Value = true
		else
			local GuiBanList = Instance.new("BoolValue", workspace)
			GuiBanList.Name = "GUIBANLIST"
			GuiBanList.Value = true

			local BannedPlayerTag = Instance.new("BoolValue", workspace.GUIBANLIST)
			BannedPlayerTag.Name = Player.Name
			BannedPlayerTag.Value = true
		end

		Player:Destroy()
	end
else
	ScreenGui:Destroy()
end