Игровые пропуска и покупки: как игра начинает приносить робуксы

-- Script в ServerScriptService.
local MarketplaceService = game:GetService("MarketplaceService")
local Players = game:GetService("Players")

local PASS_ID = 000000 -- идентификатор из Creator Hub

local function applyPass(player)
    local character = player.Character
    local humanoid = character and character:FindFirstChildOfClass("Humanoid")

    if humanoid then
        humanoid.WalkSpeed = 32
    end
end

local function ownsPass(player)
    -- Запрос уходит наружу и может не ответить: без pcall
    -- один сбой сети уронит вход в игру.
    local ok, owns = pcall(function()
        return MarketplaceService:UserOwnsGamePassAsync(player.UserId, PASS_ID)
    end)

    return ok and owns
end

Players.PlayerAdded:Connect(function(player)
    if not ownsPass(player) then
        return
    end

    player.CharacterAdded:Connect(function()
        task.wait() -- персонаж собирается не мгновенно
        applyPass(player)
    end)

    if player.Character then
        applyPass(player)
    end
end)

-- Покупка прямо во время игры: ждать перезахода игрок не должен.
MarketplaceService.PromptGamePassPurchaseFinished:Connect(function(player, passId, purchased)
    if purchased and passId == PASS_ID then
        applyPass(player)
    end
end)

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

-- Отдельное хранилище только под чеки: по нему видно,
-- что эта покупка уже обработана.
local receipts = DataStoreService:GetDataStore("Receipts_v1")

local PRODUCTS = {
    [000000] = function(player) -- идентификатор товара из Creator Hub
        local coins = player.leaderstats.Coins
        coins.Value += 100
    end,
}

local function handle(info)
    local player = Players:GetPlayerByUserId(info.PlayerId)

    if player == nil then
        -- Игрок вышел — покупку не теряем: платформа
        -- позовёт нас снова, когда он вернётся.
        return Enum.ProductPurchaseDecision.NotProcessedYet
    end

    local grant = PRODUCTS[info.ProductId]

    if grant == nil then
        warn("Неизвестный товар: " .. tostring(info.ProductId))

        return Enum.ProductPurchaseDecision.NotProcessedYet
    end

    local key = info.PurchaseId
    local alreadyDone = false

    -- Одна и та же покупка не должна сработать дважды,
    -- поэтому отметка о ней ставится в том же обновлении.
    local ok = pcall(function()
        receipts:UpdateAsync(key, function(saved)
            if saved then
                alreadyDone = true

                return saved
            end

            return os.time()
        end)
    end)

    if not ok then
        return Enum.ProductPurchaseDecision.NotProcessedYet
    end

    if not alreadyDone then
        local granted = pcall(grant, player)

        if not granted then
            return Enum.ProductPurchaseDecision.NotProcessedYet
        end
    end

    return Enum.ProductPurchaseDecision.PurchaseGranted
end

MarketplaceService.ProcessReceipt = handle