-- Define variables

local RepilcatedStorage = game:GetService("ReplicatedStorage")
local ServerStorage = game:GetService("ServerStorage")
local MapsFolder = ServerStorage:WaitForChild("Maps")
local Status = RepilcatedStorage:WaitForChild("Status")
local GameLength = 60
local reward = 100
-- Game Loop

while true do
	Status.Value = "Waiting for enough players"

	repeat wait(1) until game.Players.NumPlayers >= 2

	Status.Value = "Intermission"
	wait(5)
	local plrs = {}

	for i, player in pairs(game.Players:GetPlayers()) do
		if player then
			table.insert(plrs,player) --Add each player to plrs table
		end
	end

	wait(2)
	local AvailableMaps = MapsFolder:GetChildren()
	local ChosenMap = AvailableMaps[math.random(1,#AvailableMaps)]

	Status.Value = ChosenMap.Name.." Chosen"
	local ClonedMap = ChosenMap:Clone()
	ClonedMap.Parent = workspace

	--Teleport players to the map

	local SpawnPoints = ClonedMap:FindFirstChild("SpawnPoints")
	if not SpawnPoints then
		print("Spawnpoints not found!")
	end
	local AvailableSpawnPoints = SpawnPoints:GetChildren()
	for i, player in pairs(plrs) do
		if player then
			local character = player.Character
			if character then
				-- Teleport them

				character:FindFirstChild("HumanoidRootPart").CFrame = AvailableSpawnPoints[1] .CFrame + Vector3.new(0,10,0)
				table.remove(AvailableSpawnPoints, 1)

				-- Give them a sword

				local Sword = ServerStorage.Sword:Clone()
				Sword.Parent = player.BackPack

				local GameTag = Instance.new("BoolValue")
				GameTag.Name = "GameTag"
				GameTag.Parent = player.Character
			else
				-- There is no character
				if not player then
					table.remove(plrs,1)
				end
			end
		end
	end

	Status.Value = "Get Ready to Play!"
	wait(2)

	for i = GameLength,0,-1 do

		for x, player in pairs(plrs) do
			if player then

				local character = player.Character

				if not character then
					-- Left the game
					table.remove(plrs, x)
				else
					if character:FindFirstChild("GameTag") then
						--They	are still alive
						print(player.Name.." is still in the game!")
					else
						-- They are dead
						table.remove(plrs,x)
						print(player.Name.." has been removed!")

					end
				end

			else
				table.remove(plrs,x)
				print(player.Name.." has been removed!")


			end
		end

		Status.Value = "There are "..i.." seconds remaining, and "..#plrs.." players left"

		if #plrs == 1 then
			-- Last Person Standing
			Status.Value = "The winner is "..plrs[1].Name
			plrs[1].leaderstats.Bucks.Value = plrs[1].leaderstats.Bucks.Value + reward
			break
		elseif #plrs == 0 then
			Status.Value = "Nobody won!"
		elseif i == 0 then
			Status.Value = "Time up!"
			break
		end

		wait(1)
	end

	print("End of game")

	wait(2)

	for i, player in pairs(game.Players:GetPlayers()) do
		character = player.Character

		if not character then
			-- Ignore them
		else
			if character:FindFirstChild("GameTag") then
				character.GameTag:Destroy()
			end

			if player.BackPack:FindFirstChild("Sword") then
				player.BackPack.Sword:Destroy()
			end


			if character:FindFirstChild("Sword") then
				character.Sword:Destroy()
			end

		end

		player:LoadCharacter()
	end

	ClonedMap:Destroy()

	Status.Value "Game Ended"

	wait(2)
end