-- LƯU Ý: Nếu trình xử lý của bạn cấp lợi ích lâu dài (tiền tệ, vật phẩm), hãy sử dụng
-- DataStoreService:UpdateAsync() trên TransferRequestId để ngăn chặn
-- việc cấp đôi khi cùng một biên lai được gửi đến nhiều máy chủ.

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

-- Xử lý biên lai của người gửi (người chơi đã gửi Robux)
MarketplaceService:BindReceiptHandler(
	Enum.ReceiptType.RobuxTransferSender,
	function(receiptInfo)
		local player = Players:GetPlayerByUserId(receiptInfo.PlayerId)
		if not player then
			-- Người chơi không có trên máy chủ này; hoãn lại để biên lai
			-- được gửi lại đến máy chủ mà họ đang ở
			return Enum.ReceiptDecision.NotProcessedYet
		end

		print(
			`{player.Name} đã gửi {receiptInfo.CurrencySpent} Robux`
				.. ` (TransferRequestId: {receiptInfo.TransferRequestId})`
		)

		-- Cấp bất kỳ xác nhận nào từ phía người gửi hoặc cập nhật UI ở đây

		return Enum.ReceiptDecision.Processed
	end
)

-- Xử lý biên lai của người nhận (người chơi đã nhận Robux)
MarketplaceService:BindReceiptHandler(
	Enum.ReceiptType.RobuxTransferReceiver,
	function(receiptInfo)
		local player = Players:GetPlayerByUserId(receiptInfo.PlayerId)
		if not player then
			return Enum.ReceiptDecision.NotProcessedYet
		end

		print(
			`{player.Name} đã nhận {receiptInfo.CurrencySpent} Robux`
				.. ` (TransferRequestId: {receiptInfo.TransferRequestId})`
		)

		-- Cấp bất kỳ lợi ích nào từ phía người nhận hoặc cập nhật UI ở đây

		return Enum.ReceiptDecision.Processed
	end
)

local MarketplaceService = game:GetService("MarketplaceService")
local DataStoreService = game:GetService("DataStoreService")
local Players = game:GetService("Players")

-- Thay thế bằng ID sản phẩm phát triển cấp 100 đồng
local COINS_PRODUCT_ID = 123456789
local COINS_PER_PURCHASE = 100

local purchaseHistoryStore = DataStoreService:GetDataStore("PurchaseHistory")

-- Việc truyền một mảng bộ lọc chỉ liên kết trình xử lý này với các ID sản phẩm được liệt kê.
-- Bỏ qua bộ lọc để đăng ký một trình xử lý bắt tất cả sẽ kích hoạt cho bất kỳ
-- biên lai sản phẩm phát triển nào không được yêu cầu bởi một trình xử lý đã lọc.
MarketplaceService:BindReceiptHandler(
	Enum.ReceiptType.DeveloperProduct,
	function(receiptInfo)
		local player = Players:GetPlayerByUserId(receiptInfo.PlayerId)
		if not player then
			-- Người mua không có trên máy chủ này; hoãn lại để biên lai
			-- được giao lại sau hoặc lần tiếp theo họ tham gia một máy chủ
			return Enum.ReceiptDecision.NotProcessedYet
		end

		-- Cấp sản phẩm chính xác một lần, ngay cả khi cùng một biên lai
		-- được giao nhiều hơn một lần, bằng cách dựa vào PurchaseId. Callback
		-- ghi lại true chỉ khi lợi ích được cấp một cách bền vững, vì vậy
		-- UpdateAsync sẽ trả về true chính xác khi biên lai này đã hoàn tất.
		local success, granted = pcall(function()
			return purchaseHistoryStore:UpdateAsync(receiptInfo.PurchaseId, function(alreadyGranted)
				if alreadyGranted then
					-- Một lần giao trước đó đã cấp mua này; không
					-- cấp lại, nhưng giữ cho biên lai đã được giải quyết
					return true
				end

				local leaderstats = player:FindFirstChild("leaderstats")
				local coins = leaderstats and leaderstats:FindFirstChild("Coins")
				if not coins then
					-- Thống kê của người chơi chưa sẵn sàng. Trả về nil để hủy
					-- ghi lại để không có gì được ghi nhận là đã cấp và
					-- biên lai sẽ được giao lại sau
					return nil
				end

				coins.Value += COINS_PER_PURCHASE
				return true
			end)
		end)

		if not success or granted ~= true then
			-- Đã xảy ra lỗi lưu trữ dữ liệu hoặc lợi ích không được cấp; để lại
			-- biên lai chưa được giải quyết để nó được giao lại sau
			return Enum.ReceiptDecision.NotProcessedYet
		end

		return Enum.ReceiptDecision.Processed
	end,
	{ COINS_PRODUCT_ID }
)

local MarketplaceService = game:GetService("MarketplaceService")

local developerProducts = MarketplaceService:GetDeveloperProductsAsync():GetCurrentPage()

for _, developerProduct in pairs(developerProducts) do
	for field, value in pairs(developerProduct) do
		print(field .. ": " .. value)
	end
	print(" ")
end

local MarketplaceService = game:GetService("MarketplaceService")

local ASSET_ID = 125378389

local asset = MarketplaceService:GetProductInfoAsync(ASSET_ID)
print(asset.Name .. " :: " .. asset.Description)

local MarketplaceService = game:GetService("MarketplaceService")

local PASS_ID = 12345678
local textLabel = script.Parent

local DiscountTypeDisplay = {
	RobloxPlusSubscription = "Giảm giá Roblox Plus",
}

local productInfo = MarketplaceService:GetProductInfoAsync(PASS_ID, Enum.InfoType.GamePass)
print(string.format("Giá gốc: %d", productInfo.UserBasePriceInRobux))

for _, discount in ipairs(productInfo.PriceDiscountDetails) do
	local displayName = DiscountTypeDisplay[discount.Type] or "Giảm giá khác"
	print(string.format("%s (%d%%): -%d", displayName, discount.Percent, discount.AmountInRobux))
end

print(string.format("Bạn phải trả: %d", productInfo.PriceInRobux))

local MarketplaceService = game:GetService("MarketplaceService")
local info = MarketplaceService:GetProductInfoAsync(105589844216517, Enum.InfoType.Asset)

if info.TimedOptions then
	for _, option in info.TimedOptions do
		local days = option.Duration / 86400
		print(string.format("%d ngày - %d Robux", days, option.Price))
	end
end

local MarketplaceService = game:GetService("MarketplaceService")

local productIds = {123456, 987654, 555777}
local results = {}
local remaining = #productIds

local function fetch(productId)
	local success, info = pcall(function()
		return MarketplaceService:GetProductInfoAsync(productId, Enum.InfoType.Product)
	end)

	if success then
		results[productId] = info
	else
		warn("Không thể lấy thông tin cho sản phẩm:", productId, info)
	end

	remaining -= 1
end

-- Khởi động tất cả các cuộc gọi đồng thời cho phép động cơ nhóm chúng thành
-- ít yêu cầu HTTP hơn tự động.
for _, productId in productIds do
	task.spawn(fetch, productId)
end

-- Chờ tất cả các yêu cầu hoàn thành.
while remaining > 0 do
	task.wait()
end

-- Tất cả kết quả hiện đã có sẵn.
for productId, info in results do
	print(info.Name, "-", info.PriceInRobux, "Robux")
end

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

Players.PlayerAdded:Connect(function(player)
    local success, details = pcall(function()
        return MarketplaceService:GetRobloxSubscriptionDetailsAsync(player)
    end)

    if success and details.IsSubscribed then
        -- 1. Kiểm tra lòng trung thành (vd: Đăng ký > 60 ngày)
        local threeMonths = 60 * 24 * 60 * 60
        if details.StartTime and (os.time() - details.StartTime.UnixTimestamp) > threeMonths then
            print("Trao skin 'Cựu chiến binh Đăng ký 3 tháng'!")
        end

        -- 2. Kiểm tra sự thuộc về
        if details.IsOriginExperience then
            print("Xác nhận sự thuộc về: Người dùng đã đăng ký qua trải nghiệm này.")
        else
            print("Người dùng đã đăng ký ở nơi khác (Website hoặc trải nghiệm khác).")
        end
    end
end)

-- Lấy MarketplaceService
local MarketplaceService = game:GetService("MarketplaceService")

-- Định nghĩa một hàm để lấy cấp độ giá cho danh sách người dùng
local function getPriceLevels(userIds)
    local success, result = pcall(function()
        return MarketplaceService:GetUsersPriceLevelsAsync(userIds)
    end)

    if success then
        -- Ánh xạ từng PriceLevelInfo tới bảng tra cứu UserId -> PriceLevel
        local lookup = {}
        for _, info in ipairs(result) do
            lookup[info.UserId] = info.PriceLevel
        end 
        return lookup
    else
        warn("Lỗi khi lấy cấp độ giá:", result)
        return nil
    end
end

-- Ví dụ sử dụng ID tạm thời
local user1Id = 123456789
local user2Id = 987654321

-- Gọi hàm và lưu kết quả
local priceLevels = getPriceLevels({user1Id, user2Id})
-- Nếu thành công, in ra cấp độ của từng người dùng
if priceLevels then
    print("Cấp độ giá cho Người dùng 1:", priceLevels[user1Id])
    print("Cấp độ giá cho Người dùng 2:", priceLevels[user2Id])
else
    print("Không thể lấy cấp độ giá.")
end

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

local SUBSCRIPTION_ID = "EXP-0"

local function checkSubscriptionHistory(player: Player)
	local subscriptionHistory = {}

	local success, err = pcall(function()
		subscriptionHistory = MarketplaceService:GetUserSubscriptionPaymentHistoryAsync(player, SUBSCRIPTION_ID)
	end)

	if not success then
		warn(`Lỗi khi kiểm tra lịch sử đăng ký: {err}`)
		return
	end

	if next(subscriptionHistory) then
		-- Người dùng có một số lịch sử đăng ký trong 12 tháng qua.
		-- In chi tiết của từng mục thanh toán từ lịch sử đăng ký.
		print(`Người chơi {player.Name} đã đăng ký {SUBSCRIPTION_ID} trước đây:`)

		for entryNum, paymentEntry in subscriptionHistory do
			local paymentStatus = tostring(paymentEntry.PaymentStatus)
			local cycleStartTime = paymentEntry.CycleStartTime:FormatLocalTime("LLL", "en-us")
			local cycleEndTime = paymentEntry.CycleEndTime:FormatLocalTime("LLL", "en-us")
			print(`{entryNum}: {paymentStatus} ({cycleStartTime} - {cycleEndTime})`)
		end
	else
		print(`Người chơi {player.Name} chưa bao giờ đăng ký {SUBSCRIPTION_ID} trước đây.`)
	end
end

-- Gọi checkSubscriptionHistory cho bất kỳ người chơi nào đã có trong trò chơi
for _, player in ipairs(Players:GetPlayers()) do
	checkSubscriptionHistory(player)
end

-- Gọi checkSubscriptionHistory cho tất cả người chơi trong tương lai
Players.PlayerAdded:Connect(checkSubscriptionHistory)

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

local subscriptionID = "EXP-00000"

local function checkSubStatus(player)
	local subStatus = {}
	local success, message = pcall(function()
		-- trả về IsRenewing và IsSubscribed
		subStatus = MarketplaceService:GetUserSubscriptionStatusAsync(player, subscriptionID)
	end)

	if not success then
		warn("Lỗi khi kiểm tra xem người chơi có đăng ký không: " .. tostring(message))
		return
	end

	if subStatus["IsSubscribed"] then
		print(player.Name .. " đã đăng ký với " .. subscriptionID)
		-- Cấp quyền cho người chơi liên quan đến đăng ký
	end
end

Players.PlayerAdded:Connect(checkSubStatus)

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

-- Vật phẩm mà chúng tôi đang kiểm tra: https://www.roblox.com/catalog/30331986/Midnight-Shades
local ASSET_ID = 30331986
local ASSET_NAME = "Midnight Shades"

local function onPlayerAdded(player)
	local success, doesPlayerOwnAsset =
		pcall(MarketplaceService.PlayerOwnsAssetAsync, MarketplaceService, player, ASSET_ID)
	if not success then
		local errorMessage = doesPlayerOwnAsset
		warn(`Lỗi khi kiểm tra xem {player.Name} có sở hữu {ASSET_NAME}: {errorMessage}`)
		return
	end

	if doesPlayerOwnAsset then
		print(`{player.Name} sở hữu {ASSET_NAME}`)
	else
		print(`{player.Name} không sở hữu {ASSET_NAME}`)
	end
end

Players.PlayerAdded:Connect(onPlayerAdded)

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

-- Bộ mà chúng ta đang kiểm tra: https://www.roblox.com/bundles/589/Junkbot
local BUNDLE_ID = 589
local BUNDLE_NAME = "Junkbot"

Players.PlayerAdded:Connect(function(player)
	local success, doesPlayerOwnBundle = pcall(function()
		return MarketplaceService:PlayerOwnsBundleAsync(player, BUNDLE_ID)
	end)

	if success == false then
		print("Gọi PlayerOwnsBundleAsync thất bại: ", doesPlayerOwnBundle)
		return
	end

	if doesPlayerOwnBundle then
		print(player.Name .. " sở hữu " .. BUNDLE_NAME)
	else
		print(player.Name .. " không sở hữu " .. BUNDLE_NAME)
	end
end)

local ReplicatedStorage = game:GetService("ReplicatedStorage")

local promptBulkPurchaseEvent = ReplicatedStorage:WaitForChild("PromptBulkPurchaseEvent")

local part = Instance.new("Part")
part.Parent = workspace

local clickDetector = Instance.new("ClickDetector")
clickDetector.Parent = part

clickDetector.MouseClick:Connect(function()
	promptBulkPurchaseEvent:FireServer({
		{ Type = Enum.MarketplaceProductType.AvatarAsset, Id = "16630147" },
		{ Type = Enum.MarketplaceProductType.AvatarBundle, Id = "182" },
	})
end)

local ReplicatedStorage = game:GetService("ReplicatedStorage")
local MarketplaceService = game:GetService("MarketplaceService")

local promptBulkPurchaseEvent = Instance.new("RemoteEvent")
promptBulkPurchaseEvent.Name = "PromptBulkPurchaseEvent"
promptBulkPurchaseEvent.Parent = ReplicatedStorage

-- Lắng nghe sự kiện RemoteEvent từ một Khách hàng và sau đó kích hoạt lời mời mua số lượng lớn
promptBulkPurchaseEvent.OnServerEvent:Connect(function(player, items)
	MarketplaceService:PromptBulkPurchase(player, items, {})
end)

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

local ASSET_ID = 105589844216517

Players.PlayerAdded:Connect(function(player)
	local info = MarketplaceService:GetProductInfoAsync(ASSET_ID, Enum.InfoType.Asset)

	if info.TimedOptions and #info.TimedOptions > 0 then
		-- Tìm tùy chọn có thời gian ngắn nhất
		local shortest = info.TimedOptions[1]
		for _, option in info.TimedOptions do
			if option.Duration < shortest.Duration then
				shortest = option
			end
		end

		local items = {
			{
				Type = Enum.MarketplaceProductType.AvatarAsset,
				Id = tostring(ASSET_ID),
				PurchaseOptions = {
					{ Type = Enum.PurchaseOption.TimedOption, Value = shortest.Duration },
				},
			}
		}
		MarketplaceService:PromptBulkPurchase(player, items, {})
	end
end)

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

local player = Players.LocalPlayer

local productId = 0000000 -- Thay đổi điều này thành ID sản phẩm phát triển của bạn

-- Hàm để yêu cầu mua sản phẩm phát triển
local function promptPurchase()
	MarketplaceService:PromptProductPurchase(player, productId)
end

promptPurchase()

local ReplicatedStorage = game:GetService("ReplicatedStorage")

local promptPurchaseEvent = ReplicatedStorage:WaitForChild("PromptPurchaseEvent")

local part = Instance.new("Part")
part.Parent = workspace

local clickDetector = Instance.new("ClickDetector")
clickDetector.Parent = part

clickDetector.MouseClick:Connect(function()
	promptPurchaseEvent:FireServer(16630147)
end)

local ReplicatedStorage = game:GetService("ReplicatedStorage")
local MarketplaceService = game:GetService("MarketplaceService")

local promptPurchaseEvent = Instance.new("RemoteEvent")
promptPurchaseEvent.Name = "PromptPurchaseEvent"
promptPurchaseEvent.Parent = ReplicatedStorage

-- Lắng nghe RemoteEvent để kích hoạt từ một Khách hàng và sau đó kích hoạt lời mời mua
promptPurchaseEvent.OnServerEvent:Connect(function(player, id)
	MarketplaceService:PromptPurchase(player, id)
end)

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

local teleporter = script.Parent
local showModal = true

local EXCLUSIVE_AREA_POSITION = Vector3.new(1200, 200, 60)

-- Cấp phần thưởng và dịch chuyển người chơi đăng ký đến khu vực độc quyền
local function grantRewardAndTeleport(player)
	player:RequestStreamAroundAsync(EXCLUSIVE_AREA_POSITION)

	local character = player.Character
	if character and character.Parent then
		local currentPivot = character:GetPivot()
		character:PivotTo(currentPivot * CFrame.new(EXCLUSIVE_AREA_POSITION))
	end
end

-- Phát hiện các phần của nhân vật chạm vào teleporter
teleporter.Touched:Connect(function(otherPart)
	local player = Players:GetPlayerFromCharacter(otherPart.Parent)
	if not player then
		return
	end

	if not player:GetAttribute("CharacterPartsTouching") then
		player:SetAttribute("CharacterPartsTouching", 0)
	end
	player:SetAttribute("CharacterPartsTouching", player:GetAttribute("CharacterPartsTouching") + 1)

	if player.HasRobloxSubscription then
		-- Người chơi đã có Roblox Plus; cấp phần thưởng ngay lập tức
		grantRewardAndTeleport(player)
	else
		-- Yêu cầu đăng ký Roblox Plus, chỉ cho phép một lần mỗi vài giây
		if not showModal then
			return
		end
		showModal = false
		task.delay(5, function()
			showModal = true
		end)
		MarketplaceService:PromptRobloxSubscriptionPurchase(player)
	end
end)

-- Phát hiện các phần của nhân vật rời khỏi teleporter
teleporter.TouchEnded:Connect(function(otherPart)
	local player = Players:GetPlayerFromCharacter(otherPart.Parent)
	if player and player:GetAttribute("CharacterPartsTouching") then
		player:SetAttribute("CharacterPartsTouching", player:GetAttribute("CharacterPartsTouching") - 1)
	end
end)

-- Cấp phần thưởng khi máy chủ xác nhận thay đổi đăng ký
-- Kết nối thay đổi HasRobloxSubscription cho mỗi người chơi
Players.PlayerAdded:Connect(function(player)
	player:GetPropertyChangedSignal("HasRobloxSubscription"):Connect(function()
		if player.HasRobloxSubscription
			and player:GetAttribute("CharacterPartsTouching")
			and player:GetAttribute("CharacterPartsTouching") > 0
		then
			grantRewardAndTeleport(player)
		end
	end)
end)

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

-- Ví dụ: chuyển Robux khi một người chơi kích hoạt một RemoteEvent
local transferEvent = game.ReplicatedStorage:WaitForChild("RequestTransfer")

transferEvent.OnServerEvent:Connect(function(sender, receiverUserId, amount)
	-- Xác thực đầu vào
	if not sender or not sender:IsA("Player") then
		return
	end

	if typeof(receiverUserId) ~= "number" or receiverUserId <= 0 then
		warn("receiverUserId không hợp lệ")
		return
	end

	if typeof(amount) ~= "number" or amount <= 0 then
		warn("số tiền không hợp lệ")
		return
	end

	local success, result = pcall(function()
		return MarketplaceService:PromptRobuxTransferAsync(sender, receiverUserId, amount)
	end)

	if success then
		print(`Giao dịch đã được khởi động với TransferRequestId: {result}`)
	else
		warn(`Giao dịch thất bại: {result}`)
	end
end)

-- Lấy MarketplaceService
  local MarketplaceService = game:GetService("MarketplaceService")

-- Tạo mảng các sản phẩm mà bạn muốn xếp hạng
local productIdentifiers = {
    {InfoType = Enum.InfoType.GamePass, Id = 123},
    {InfoType = Enum.InfoType.Product, Id = 456},
    {InfoType = Enum.InfoType.Product, Id = 789}
}

-- Gọi trong một cuộc gọi bảo vệ để xử lý lỗi một cách nhẹ nhàng
local success, rankedProducts = pcall(function()
    return MarketplaceService:RankProductsAsync(productIdentifiers)
end)

if not success then
    error("Không thể xếp hạng sản phẩm")
end

-- Tải các mục đã trả về vào cửa hàng.
for i, rankedItem in ipairs(rankedProducts) do
    local productIdentifier = rankedItem.ProductIdentifier
    local productInfo = rankedItem.ProductInfo
    -- ...
    -- Logic để thêm sản phẩm vào cửa hàng
end

-- Nhận dịch vụ MarketplaceService
local MarketplaceService = game:GetService("MarketplaceService")

-- Tạo một mảng các loại sản phẩm để bao gồm. Trong trường hợp này cả hai loại là game passes và sản phẩm phát triển
local productTypes = {Enum.InfoType.GamePass, Enum.InfoType.Product}

-- Gọi trong một cuộc gọi bảo vệ để xử lý lỗi một cách thanh lịch
local success, topRankedItems = pcall(function()
    return MarketplaceService:RecommendTopProductsAsync(productTypes)
end)

if not success then
    error("Không thể xếp hạng sản phẩm")
end

-- Tải các mục đã trả về vào cửa hàng. Đảm bảo lọc ra bất kỳ mục không đủ điều kiện nào từ topRankedItems chẳng hạn như sản phẩm phát triển mà người dùng không còn mua được
for i, rankedItem in ipairs(topRankedItems) do
    local productIdentifier = rankedItem.ProductIdentifier
    local productInfo = rankedItem.ProductInfo
    -- ...
    -- Logic để thêm sản phẩm vào cửa hàng
end

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

local PASS_IDS = {1234567, 2345678, 3456789, 4567890}

local function checkPassesForPlayer(player: Player)
	local owned = {}
	local remaining = #PASS_IDS

	local function check(passId)
		local success, ownsPass = pcall(function()
			return MarketplaceService:UserOwnsGamePassAsync(player.UserId, passId)
		end)

		if success and ownsPass then
			table.insert(owned, passId)
		end

		remaining -= 1
	end

	-- Khởi động tất cả các cuộc gọi đồng thời cho phép engine nhóm chúng vào
	-- ít yêu cầu HTTP hơn tự động.
	for _, passId in PASS_IDS do
		task.spawn(check, passId)
	end

	while remaining > 0 do
		task.wait()
	end

	return owned
end

Players.PlayerAdded:Connect(function(player)
	local ownedPasses = checkPassesForPlayer(player)
	print(player.Name, "sở hữu", #ownedPasses, "game pass")
end)