Main Script Always Time Out After Thread Problems.?

this is my code.. for some reason every time i test it, it always times out before resuming ... any help is welcome. :)

--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