While True Loop Bugs? Always Times Out - Help Needed

So my script when ran always says something along the lines of this - "MainScript timed out before resuming thread". If anyone knows any tricks to fix this please do answer. By the way, my while true loops do have waits at the end of them so that is not the problem.

--Made by iiMeltex


local roundtime = 60 * 3
local finaletime = 1* 60
local intermissiontime = 15

local serverstorage = game:GetService("ServerStorage")
local replicatedstorage = game:GetService("ReplicatedStorage")
local debris = game:GetService("Debris")
local maps = serverstorage:WaitForChild("Maps")
local mapholder = game.Workspace:WaitForChild("Mapholder")

local event = replicatedstorage:WaitForChild("RemoteEvent")
local statustag = replicatedstorage:WaitForChild("StatusTag")
local timertag = replicatedstorage:WaitForChild("TimerTag")


function awardpoints(player, points)
	if player and points then
		local leaderstats = player.FindFirstChild("leaderstats")
		if leaderstats then
			local pointsvalue = leaderstats:FindFirstChild("Points")
			if pointsvalue then
				pointsvalue.Value = pointsvalue.Value + points 
			end
		end
	end
end
	
	
function newcharacter(deadplayer, character)	
	local humanoid = character:FindFirstChild("Humanoid")
	if humanoid then
		humanoid.Died:connect(function()
			humanoid.WalkSpeed = 16
			humanoid.UnequipTools()
			local backpack = deadplayer:FindFirstChild("Backpack")
			if backpack then
				backpack:ClearAllChildren()
			end
			
			local tag = humanoid:FindFirstChild("creator")
			if tag and tag.Value and tag.Value.Parent  == game.Players then
				if tag.Value == hunter and deadplayer == hunter then
					local wrongdoer = tag.Value
					if wrongdoer.Character  and wrongdoer.Character.Parent then
						local wrongdoerhumanoid  = wrongdoer.Character:FindFirstChild("Humanoid")
						if wrongdoerhumanoid then
							wrongdoerhumanoid.Health = 0
						end
					end
				end	
			end
		end)
	end
end
	
	
function playeradded(player)
	local leaderstats = Instance.new("Model")
	leaderstats.Name = "leaderstats"
	leaderstats.Parent = player
	
	local wins = Instance.new("IntValue")
	wins.Name = "Wins"
	wins.Parent = leaderstats
	
	local points = Instance.new("IntValue")
	points.Name = "Points"
	points.Parent = leaderstats
	

	player.CharacterAdded:connect(function(character)
		newcharacter(player, character)
	end)
	if player.Character and player.Character.Parent then
		newcharacter(player, player.character)
	end
end


game.Players.PlayerAdded:connect(playeradded)


for _, player in pairs(game.Players:GetPlayers()) do
	playeradded(player)
end
	
	
while true do	
	while true do
		wait(4)
		contestants = {}
		for _,player in pairs(game.Players:GetPlayers()) do
			if player and player.Character then
				local humanoid = player.Character:WaitForChild("Humanoid")
				if humanoid and humanoid.Health > 0 then
					table.insert(contestants, player)
				end
			end
		end	
		if #contestants >= 3 then
			break
		else	
			statustag.Value = "Waiting For More Players"
			timertag.Value = -1
		end
	end
	
	--load a random map
	statustag.Value = "Loading A Random Map"
	timertag.Value = -1
	mapholder:ClearAllChildren()
	wait(2)
	local allmaps = maps:GetChildren()
	local newmap = allmaps[math.random(1, #allmaps)]:clone()
	newmap.Parent = game.Workspace.Mapholder
	wait(2)
	
	
	statustag.Value = "Match"
	timertag.Value = roundtime
	
	
	--choose hunter
	hunter = contestants[math.random(1, #contestants)]
	
	
	--blur
	
	
	--teleport all contestants
	local spawnsmodel = newmap:WaitForChild("Spawns")
	local spawns = spawnsmodel:GetChildren()
	for _,player in pairs(contestants) do 
		if player and player.Character and #spawns > 0 then
			local torso = player.Character:WaitForChild("Torso")
			local humanoid = player.Character:WaitForChild("Humanoid")
			local spawnindex = math.random(1, #spawns)
			local spawn = spawns[spawnindex]
			if spawn and torso and humanoid then
				humanoid.Health = 100
				humanoid.WalkSpeed = 16
				table.remove(spawns, spawnindex)
				torso.CFrame = CFrame.new(spawn.Position + Vector3.new(0, 3, 0))
				
				local matchtag = Instance.new("StringValue")
				matchtag.Name = "Matchtag"
				matchtag.Parent = player.Character
				
				local backpack = player.FindFirstChild("Backpack")
				if backpack then
					if player == hunter then
						local sword = serverstorage:WaitForChild("Bamboo Katana"):clone()
						sword.Parent = backpack
						local humanoid = player.Character.Humanoid
						humanoid.WalkSpeed = 18
						event:FireClient(player, "Class", "Hunter")
						
					else
						local flashlight = serverstorage:WaitForChild("Flashlight"):clone()
						flashlight.Parent = backpack
						event:FireClient(player, "Class", "Hunted")
					end	
				end
			end
		end
	end
	spawnsmodel:remove()
	
	
	--focus
	
	
	local localtimer = roundtime
	while localtimer > 0 do
		wait(1)
		localtimer = localtimer - 1
		timertag.Value = localtimer
		
		activecontestants = {}
		hunteractive = false
		for _,player in pairs(contestants) do 
			if player then
				local character = player.Character
				if character then
					local matchtag = character:FindFirstChild("Matchtag")
					local humanoid = character:FindFirstChild("Humanoid")
					if matchtag and humanoid and humanoid.Health > 0 then
						if player == hunter then	
							hunteractive = true	
						end				
						table.insert(activecontestants, player)
					end 
				end
			end
		end
		if #activecontestants <= 1 or not hunteractive then
			break
		end
	end 
	
	
	for _,player in pairs(activecontestants) do
		local character = player.Character		
		local matchtag = character:FindFirstChild("Matchtag")
		local humanoid = character:FindFirstChild("Humanoid")
		if player and matchtag and humanoid and humanoid.Health > 0 then
			local backpack = player.FindFirstChild("Backpack")
			local pistol = serverstorage:WaitForChild("Pistol"):clone()
			pistol.Parent = backpack
		end
	end
		
	statustag.Value = "Finale"
	timertag.Value = finaletime	
	
	
	local localtimer = finaletime
	while localtimer > 0 do
		if #activecontestants <= 1 or not hunteractive then
			break
		end		
		wait(1)
		localtimer = localtimer - 1
		timertag.Value = localtimer		
		
		activecontestants = {}
		hunteractive = false
		for _,player in pairs(contestants) do 
			if player then
				local character = player.Character
				if character then
					local matchtag = character:FindFirstChild("Matchtag")
					local humanoid = character:FindFirstChild("Humanoid")
					if matchtag and humanoid and humanoid.Health > 0 then
						if player == hunter then	
							hunteractive = true	
						end				
						table.insert(activecontestants, player)
					end 
				end
			end
		end
	end
	
	
	local gameresults = "PlayersWin"
	if hunteractive then
		if #activecontestants >= 2 then
			event:FireAllClients("Results", "HuntedWin")
		else
			gameresults = "HunterWin"
			event:FireAllClients("Results", "HunterWin")
		end
	else
		event:FireAllClients("Results", "HuntedWin")
	end	
	
	
	for _,player in pairs(activecontestants) do
		if player then
			if gameresults == "HunterWin" and player == hunter then
				awardpoints(player, 10)
			elseif gameresults ~= "HunterWin" and player ~= hunter then
				awardpoints(player, 4)
			end
		end
	end
	
	
	local lobbyspawns = {}
	for _, v in pairs(game.Workspace:WaitForChild("Lobby"):WaitForChild("SpawnPoints"):GetAllChildren()) do
		if v and v.Name == "SpawnLocation" then
			table.insert(lobbyspawns, v)
		end	
	end
	
	for _,player in pairs(activecontestants) do
		if player then
			awardpoints(player, 1)
			if player.Character then
				local humanoid = player.Character:FindFirstChild("Humannoid")
				if humanoid and humanoid.Health > 0 then
					humanoid:UnequipTools()
				end
			end
			local randomspawn = lobbyspawns[math.random(1, #lobbyspawns)]
			player.Character:MoveTo(randomspawn.Position)
			local backpack = player:FindFirstChlid("Backpack")
			if backpack then
				backpack:ClearAllChildren()
			end
		end
	end
	
		
	
	statustag.Value = "Intermission"
	timertag.Value = intermissiontime
	local localtimer = intermissiontime
	while localtimer > 0 do
		wait(1)
		localtimer = localtimer - 1
		timertag.Value = localtimer
	end
	wait(0.01)
end