-- REMARQUE : Si votre gestionnaire accorde des avantages persistants (monnaie, objets), utilisez
-- DataStoreService:UpdateAsync() sur l'ID de demande de transfert pour éviter
-- de doubler la remise lorsque le même reçu est remis à plusieurs serveurs.

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

-- Gérer les reçus de l'expéditeur (le joueur qui a envoyé des Robux)
MarketplaceService:BindReceiptHandler(
	Enum.ReceiptType.RobuxTransferSender,
	function(receiptInfo)
		local player = Players:GetPlayerByUserId(receiptInfo.PlayerId)
		if not player then
			-- Le joueur n'est pas sur ce serveur ; différer afin que le reçu soit
			-- remis à quel que soit le serveur dans lequel il se trouve actuellement
			return Enum.ReceiptDecision.NotProcessedYet
		end

		print(
			`{player.Name} a envoyé {receiptInfo.CurrencySpent} Robux`
				.. ` (TransferRequestId: {receiptInfo.TransferRequestId})`
		)

		-- Accorder toute reconnaissance côté expéditeur ou mettre à jour l'interface utilisateur ici

		return Enum.ReceiptDecision.Processed
	end
)

-- Gérer les reçus du destinataire (le joueur qui a reçu des 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} a reçu {receiptInfo.CurrencySpent} Robux`
				.. ` (TransferRequestId: {receiptInfo.TransferRequestId})`
		)

		-- Accorder tous les avantages côté destinataire ou mettre à jour l'interface utilisateur ici

		return Enum.ReceiptDecision.Processed
	end
)

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

-- Remplacez par l'ID du produit développeur qui accorde 100 pièces
local COINS_PRODUCT_ID = 123456789
local COINS_PER_PURCHASE = 100

local purchaseHistoryStore = DataStoreService:GetDataStore("PurchaseHistory")

-- Passer un tableau de filtres lie ce gestionnaire uniquement aux ID de produits listés.
-- Omettez le filtre pour enregistrer un gestionnaire général qui se déclenche pour tout
-- reçu de produit développeur non réclamé par un gestionnaire filtré.
MarketplaceService:BindReceiptHandler(
	Enum.ReceiptType.DeveloperProduct,
	function(receiptInfo)
		local player = Players:GetPlayerByUserId(receiptInfo.PlayerId)
		if not player then
			-- L'acheteur n'est pas sur ce serveur ; différer pour que le reçu soit
			-- redélivré plus tard ou la prochaine fois qu'il rejoint un serveur
			return Enum.ReceiptDecision.NotProcessedYet
		end

		-- Accorder le produit exactement une fois, même si le même reçu est
		-- livré plus d'une fois, en se basant sur PurchaseId. Le rappel
		-- enregistre vrai uniquement lorsque le bénéfice est durablement accordé, donc
		-- UpdateAsync résout à vrai précisément lorsque ce reçu est terminé.
		local success, granted = pcall(function()
			return purchaseHistoryStore:UpdateAsync(receiptInfo.PurchaseId, function(alreadyGranted)
				if alreadyGranted then
					-- Une livraison précédente a déjà accordé cet achat ; ne pas
					-- l'accorder à nouveau, mais garder le reçu résolu
					return true
				end

				local leaderstats = player:FindFirstChild("leaderstats")
				local coins = leaderstats and leaderstats:FindFirstChild("Coins")
				if not coins then
					-- Les statistiques du joueur ne sont pas encore prêtes. Retourner nil pour annuler
					-- l'écriture afin que rien ne soit enregistré comme accordé et que le
					-- reçu soit redélivré plus tard
					return nil
				end

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

		if not success or granted ~= true then
			-- Une erreur de magasin de données s'est produite ou le bénéfice n'a pas été accordé ; laisser
			-- le reçu non résolu afin qu'il soit redélivré plus tard
			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 = "Remise Roblox Plus",
}

local productInfo = MarketplaceService:GetProductInfoAsync(PASS_ID, Enum.InfoType.GamePass)
print(string.format("Prix Original: %d", productInfo.UserBasePriceInRobux))

for _, discount in ipairs(productInfo.PriceDiscountDetails) do
	local displayName = DiscountTypeDisplay[discount.Type] or "Autre Remise"
	print(string.format("%s (%d%%): -%d", displayName, discount.Percent, discount.AmountInRobux))
end

print(string.format("Vous Payez: %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 jours - %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("Échec de la récupération des informations pour le produit:", productId, info)
	end

	remaining -= 1
end

-- Lancer tous les appels simultanément permet au moteur de les regrouper en
-- moins de requêtes HTTP automatiquement.
for _, productId in productIds do
	task.spawn(fetch, productId)
end

-- Attendre que toutes les requêtes soient terminées.
while remaining > 0 do
	task.wait()
end

-- Tous les résultats sont maintenant disponibles.
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. Vérifier la fidélité (par exemple, abonné pendant > 60 jours)
        local threeMonths = 60 * 24 * 60 * 60
        if details.StartTime and (os.time() - details.StartTime.UnixTimestamp) > threeMonths then
            print("Attribution du skin 'Vétéran d'Abonnement de 3 Mois' !")
        end

        -- 2. Vérifier l'attribution
        if details.IsOriginExperience then
            print("Attribution confirmée : L'utilisateur s'est abonné via cette expérience.")
        else
            print("L'utilisateur s'est abonné ailleurs (site Web ou une autre expérience).")
        end
    end
end)

-- Obtenir le MarketplaceService
local MarketplaceService = game:GetService("MarketplaceService")

-- Définir une fonction pour récupérer les niveaux de prix pour une liste d'utilisateurs
local function getPriceLevels(userIds)
    local success, result = pcall(function()
        return MarketplaceService:GetUsersPriceLevelsAsync(userIds)
    end)

    if success then
        -- Mapper chaque PriceLevelInfo à une table de correspondance UserId -> PriceLevel
        local lookup = {}
        for _, info in ipairs(result) do
            lookup[info.UserId] = info.PriceLevel
        end 
        return lookup
    else
        warn("Erreur lors de l'obtention des niveaux de prix:", result)
        return nil
    end
end

-- Exemple utilisant des ID de remplacement
local user1Id = 123456789
local user2Id = 987654321

-- Appeler la fonction et stocker le résultat
local priceLevels = getPriceLevels({user1Id, user2Id})
-- Si cela réussit, afficher le niveau de chaque utilisateur
if priceLevels then
    print("Niveau de prix pour l'utilisateur 1:", priceLevels[user1Id])
    print("Niveau de prix pour l'utilisateur 2:", priceLevels[user2Id])
else
    print("Échec de la récupération des niveaux de prix.")
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(`Erreur lors de la vérification de l'historique des abonnements : {err}`)
		return
	end

	if next(subscriptionHistory) then
		-- L'utilisateur a un historique d'abonnement au cours des 12 derniers mois.
		-- Imprimez les détails de chaque entrée de paiement de l'historique d'abonnement.
		print(`Le joueur {player.Name} s'est abonné à {SUBSCRIPTION_ID} auparavant :`)

		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(`Le joueur {player.Name} ne s'est jamais abonné à {SUBSCRIPTION_ID} auparavant.`)
	end
end

-- Appeler checkSubscriptionHistory pour tous les joueurs déjà dans le jeu
for _, player in ipairs(Players:GetPlayers()) do
	checkSubscriptionHistory(player)
end

-- Appeler checkSubscriptionHistory pour tous les futurs joueurs
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()
		-- renvoie IsRenewing et IsSubscribed
		subStatus = MarketplaceService:GetUserSubscriptionStatusAsync(player, subscriptionID)
	end)

	if not success then
		warn("Erreur lors de la vérification si le joueur a un abonnement : " .. tostring(message))
		return
	end

	if subStatus["IsSubscribed"] then
		print(player.Name .. " est abonné avec " .. subscriptionID)
		-- Donner au joueur les permissions associées à l'abonnement
	end
end

Players.PlayerAdded:Connect(checkSubStatus)

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

local player = Players.LocalPlayer

MarketplaceService:OpenShop(player)

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

-- L'objet que nous vérifions : 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(`Erreur lors de la vérification si {player.Name} possède {ASSET_NAME}: {errorMessage}`)
		return
	end

	if doesPlayerOwnAsset then
		print(`{player.Name} possède {ASSET_NAME}`)
	else
		print(`{player.Name} ne possède pas {ASSET_NAME}`)
	end
end

Players.PlayerAdded:Connect(onPlayerAdded)

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

-- Le bundle que nous vérifions : 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("L'appel à PlayerOwnsBundleAsync a échoué : ", doesPlayerOwnBundle)
		return
	end

	if doesPlayerOwnBundle then
		print(player.Name .. " possède " .. BUNDLE_NAME)
	else
		print(player.Name .. " ne possède pas " .. 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

-- Écoutez le RemoteEvent se déclencher depuis un client et ensuite déclenchez l'invite d'achat en gros
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
		-- Trouver l'option de la durée la plus courte
		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 -- Changez ceci avec l'ID de votre produit développeur

-- Fonction pour inciter à l'achat du produit développeur
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

-- Écoutez le RemoteEvent se déclencher depuis un Client et ensuite déclenchez l'invite d'achat
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)

-- Accorder la récompense et téléporter le joueur abonné dans la zone exclusive
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

-- Détecter les parties du personnage touchant le téléporteur
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
		-- Le joueur a déjà Roblox Plus ; accorder la récompense immédiatement
		grantRewardAndTeleport(player)
	else
		-- Demander l'abonnement Roblox Plus, limité à une fois toutes les quelques secondes
		if not showModal then
			return
		end
		showModal = false
		task.delay(5, function()
			showModal = true
		end)
		MarketplaceService:PromptRobloxSubscriptionPurchase(player)
	end
end)

-- Détecter les parties du personnage quittant le téléporteur
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)

-- Accorder la récompense lorsque le serveur confirme un changement d'abonnement
-- Connecter le changement HasRobloxSubscription pour chaque joueur
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")

-- Exemple : transférer des Robux lorsqu'un joueur déclenche un RemoteEvent
local transferEvent = game.ReplicatedStorage:WaitForChild("RequestTransfer")

transferEvent.OnServerEvent:Connect(function(sender, receiverUserId, amount)
	-- Valider les entrées
	if not sender or not sender:IsA("Player") then
		return
	end

	if typeof(receiverUserId) ~= "number" or receiverUserId <= 0 then
		warn("receiverUserId invalide")
		return
	end

	if typeof(amount) ~= "number" or amount <= 0 then
		warn("montant invalide")
		return
	end

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

	if success then
		print(`Transfert initié avec TransferRequestId : {result}`)
	else
		warn(`Échec du transfert : {result}`)
	end
end)

-- Obtenez le MarketplaceService
  local MarketplaceService = game:GetService("MarketplaceService")

-- Créez le tableau de produits que vous souhaitez classer
local productIdentifiers = {
    {InfoType = Enum.InfoType.GamePass, Id = 123},
    {InfoType = Enum.InfoType.Product, Id = 456},
    {InfoType = Enum.InfoType.Product, Id = 789}
}

-- Appelez dans un appel protégé pour gérer les erreurs gracieusement
local success, rankedProducts = pcall(function()
    return MarketplaceService:RankProductsAsync(productIdentifiers)
end)

if not success then
    error("Échec du classement des produits")
end

-- Chargez les articles retournés dans le magasin.
for i, rankedItem in ipairs(rankedProducts) do
    local productIdentifier = rankedItem.ProductIdentifier
    local productInfo = rankedItem.ProductInfo
    -- ...
    -- Logique pour ajouter des produits dans le magasin
end

-- Obtenez le MarketplaceService
local MarketplaceService = game:GetService("MarketplaceService")

-- Créez un tableau de types de produits à inclure. Dans ce cas, les passes de jeu et les produits développeurs
local productTypes = {Enum.InfoType.GamePass, Enum.InfoType.Product}

-- Appelez dans un appel protégé pour gérer les erreurs gracieusement
local success, topRankedItems = pcall(function()
    return MarketplaceService:RecommendTopProductsAsync(productTypes)
end)

if not success then
    error("Échec du classement des produits")
end

-- Chargez les articles retournés dans le magasin. Assurez-vous de filtrer les articles non éligibles de topRankedItems tels que les produits développeurs que l'utilisateur ne peut plus acheter
for i, rankedItem in ipairs(topRankedItems) do
    local productIdentifier = rankedItem.ProductIdentifier
    local productInfo = rankedItem.ProductInfo
    -- ...
    -- Logique pour ajouter des produits dans le magasin
end