-- LƯU Ý: Nếu trình xử lý của bạn cấp những 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
-- cấp đôi khi cùng một biên nhận được gửi đến nhiều máy chủ.

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

-- Xử lý biên nhận 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 nhận
			-- đượ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 hoặc cập nhật UI nào ở phía người gửi tại đây

		return Enum.ReceiptDecision.Processed
	end
)

-- Xử lý biên nhận 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 ở phía người nhận hoặc cập nhật UI tại đây

		return Enum.ReceiptDecision.Processed
	end
)

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 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 vòng 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 đã ở 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 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ý hay không: " .. tostring(message))
		return
	end

	if subStatus["IsSubscribed"] then
		print(player.Name .. " đã đăng ký với " .. subscriptionID)
		-- Cấp quyền hạ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")

-- Món đồ 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 được gửi từ một khách hàng và sau đó kích hoạt yêu cầu 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 nhà phát triển của bạn

-- Hàm để yêu cầu mua sản phẩm nhà 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 để gửi từ Khách hàng và sau đó kích hoạt thông báo 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)

-- Cung 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; cung cấp phần thưởng ngay lập tức
		grantRewardAndTeleport(player)
	else
		-- Nhắc nhở đăng ký Roblox Plus, chỉ thực hiện 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)

-- Cung 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 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 tạo với TransferRequestId: {result}`)
	else
		warn(`Giao dịch không thành công: {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 function gamepassPurchaseFinished(...)
	-- In ra tất cả các chi tiết của thông báo, ví dụ:
	-- PromptGamePassPurchaseFinished PlayerName 123456 false
	print("PromptGamePassPurchaseFinished", ...)
end

MarketplaceService.PromptGamePassPurchaseFinished:Connect(gamepassPurchaseFinished)