TOPIC: [DR]Get good death picker

function GAMEMODE:SortPlayers( freezePlayers )

	local pool = {}
	for k, v in pairs( player.GetAll() ) do
		if v:Team() == TEAM_DEATH then pool[#pool+1] = v end
		
		v:SetTeam(TEAM_SPECTATOR)
	end

	local pool2 = {}
	for k, v in RandomPairs( player.GetAll() ) do
		local need = self:DoWeNeedDeath()
		local stop = false
		
		if need then
			if not table.HasValue(pool, v) then
			
				v:SetTeam(TEAM_DEATH)
				
			else
			
				pool2[#pool2+1] = v
				stop = true
				
			end
		else
		
			v:SetTeam(TEAM_RUNNER)
			
		end
	end

	if #pool2 > 0 then
	
		for k, v in RandomPairs( pool2 ) do
		
			if not IsValid(v) then continue end
			local need = self:DoWeNeedDeath()

			if need then
			
				v:SetTeam(TEAM_DEATH)
				v:PrintMessage( HUD_PRINTCONSOLE, "Sorry! We need more deaths." )
				
			else
			
				v:SetTeam(TEAM_RUNNER)
				
			end
		end
	end

	if freezePlayers then
	
		for k, v in pairs( player.GetAll() ) do
			v:Spawn(true)
			v:Freeze()
		end
		
	else
	
		for k, v in pairs( player.GetAll() ) do
			v:Spawn()
		end
	
	end

end