-- Kịch bản máy chủ
local VoiceChatService = game:GetService("VoiceChatService")
local TeleportService = game:GetService("TeleportService")
local Players = game:GetService("Players")

local TARGET_PLACE_ID = 1234567890 -- ID địa điểm đích

--[[
	Trạng thái máy chủ toàn vũ trụ đã được stub.
	Trên thực tế, dữ liệu này có thể được lưu trữ và cập nhật bằng cách sử dụng MemoryStore
	hoặc một hệ thống backend khác.

	Hình dạng ví dụ:
	ActiveServers = {
		{
			serverId = "abc",
			accessCode = "reserved-server-code",
			groupUserCounts = {
				groupA = 12,
				groupB = 5
			}
		},
		{
			serverId = "def",
			accessCode = "reserved-server-code",
			groupUserCounts = {
				groupB = 8
			}
		}
	}
]]
local ActiveServers = {}

local function teleportPlayerToBestServer(player)
	local success, chatGroups = pcall(function()
		return VoiceChatService:GetChatGroupsAsync({ player })
	end)

	if not success or not chatGroups then
		warn("Không thể lấy nhóm trò chuyện cho người chơi:", player.UserId)
		return
	end

	-- Thu thập tất cả ID nhóm trò chuyện mà người chơi đủ điều kiện
	local playerGroupIds = {}
	for _, group in ipairs(chatGroups) do
		for _, groupId in ipairs(group) do
			playerGroupIds[groupId] = true
		end
	end

	local bestServer = nil
	local bestUserCount = 0

	-- Chọn máy chủ có số lượng người dùng tương thích cao nhất
	for _, server in ipairs(ActiveServers) do
		local compatibleUserCount = 0

		for groupId, userCount in pairs(server.groupUserCounts) do
			if playerGroupIds[groupId] then
				compatibleUserCount += userCount
			end
		end

		if compatibleUserCount > bestUserCount then
			bestUserCount = compatibleUserCount
			bestServer = server
		end
	end

	if not bestServer then
		warn("Không tìm thấy máy chủ phù hợp cho người chơi:", player.UserId)
		return
	end

	local ok, err = pcall(function()
		TeleportService:TeleportToPrivateServer(
			TARGET_PLACE_ID,
			bestServer.accessCode,
			{ player }
		)
	end)

	if not ok then
		warn("Di chuyển thất bại:", err)
	end
end

Players.PlayerAdded:Connect(teleportPlayerToBestServer)

local VoiceChatService = game:GetService("VoiceChatService")
local Players = game:GetService("Players")
local players = Players:GetPlayers()

local success, chatGroups = pcall(function()
	return VoiceChatService:GetChatGroupsAsync(players)
end)

if not success then
	warn("Không thể lấy nhóm trò chuyện")
	return
end

for _, group in ipairs(chatGroups) do
	-- Mỗi nhóm chứa các chuỗi ID nhóm trò chuyện.
	-- Người chơi có cùng ID nhóm có thể trò chuyện với nhau.
	for _, groupId in ipairs(group) do
		print("ID nhóm trò chuyện:", groupId)
	end
end

local Players = game:GetService("Players")
local VoiceChatService = game:GetService("VoiceChatService")

local localPlayer = Players.LocalPlayer
local success, enabled = pcall(function()
	return VoiceChatService:IsVoiceEnabledForUserIdAsync(localPlayer.UserId)
end)
if success and enabled then
	print("Giọng nói đã được bật!")
end