Первый магазин в своей игре: окно, кнопка и проверка на сервере

-- Единственный список товаров в игре. Клиент его не видит.
return {
    speed_boots = {
        name  = "Быстрые ботинки",
        price = 150,
        grant = function(player)
            local character = player.Character

            if character then
                local humanoid = character:FindFirstChildOfClass("Humanoid")

                if humanoid then
                    humanoid.WalkSpeed = 24
                end
            end
        end,
    },

    lantern = {
        name  = "Фонарь",
        price = 80,
        grant = function(player)
            local tool = game.ServerStorage.Tools.Lantern:Clone()
            tool.Parent = player.Backpack
        end,
    },
}

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

local items = require(ServerStorage.ShopItems)
local buyItem = ReplicatedStorage:WaitForChild("BuyItem")

-- Кто уже в процессе покупки. Без этого один игрок
-- отправляет десять запросов подряд и покупает
-- на все деньги десять раз.
local busy = {}

local function coinsOf(player)
    local stats = player:FindFirstChild("leaderstats")

    return stats and stats:FindFirstChild("Coins") or nil
end

buyItem.OnServerInvoke = function(player, itemId)
    -- 1. Клиент прислал не строку. Такое приходит только
    --    от того, кто лезет руками.
    if type(itemId) ~= "string" then
        return false, "Неизвестный товар"
    end

    -- 2. Товара нет в списке. Название клиент придумать может,
    --    товар — нет.
    local item = items[itemId]

    if item == nil then
        return false, "Неизвестный товар"
    end

    -- 3. Покупка уже идёт.
    if busy[player] then
        return false, "Подожди секунду"
    end

    busy[player] = true

    local coins = coinsOf(player)

    if coins == nil then
        busy[player] = nil

        return false, "Кошелёк не найден"
    end

    -- 4. Цена берётся из списка на сервере, а не из запроса.
    if coins.Value < item.price then
        busy[player] = nil

        return false, "Не хватает монет"
    end

    -- 5. Сначала списываем, потом выдаём. Не наоборот:
    --    упавшая выдача не должна оставлять бесплатный предмет.
    coins.Value -= item.price

    local ok, err = pcall(item.grant, player)

    if not ok then
        -- Выдать не вышло — возвращаем деньги.
        coins.Value += item.price
        warn("Выдача " .. itemId .. " сорвалась: " .. tostring(err))
        busy[player] = nil

        return false, "Не получилось выдать товар"
    end

    busy[player] = nil

    return true, item.name
end

game.Players.PlayerRemoving:Connect(function(player)
    busy[player] = nil
end)

local ReplicatedStorage = game:GetService("ReplicatedStorage")
local buyItem = ReplicatedStorage:WaitForChild("BuyItem")

local gui = script.Parent
local status = gui:WaitForChild("Status")

-- У каждой кнопки в окне лежит атрибут ItemId со строкой
-- вроде "lantern". Больше клиенту знать не нужно.
for _, button in gui.Items:GetChildren() do
    if button:IsA("TextButton") then
        local itemId = button:GetAttribute("ItemId")

        button.Activated:Connect(function()
            button.Active = false
            status.Text = "Покупаем…"

            local ok, result = pcall(function()
                return buyItem:InvokeServer(itemId)
            end)

            if not ok then
                status.Text = "Сервер не ответил"
            elseif result then
                status.Text = "Куплено"
            else
                -- Сервер вторым значением возвращает причину,
                -- и её честно показываем игроку.
                local _, reason = buyItem:InvokeServer(itemId)
                status.Text = reason or "Не получилось"
            end

            task.wait(0.6)
            button.Active = true
        end)
    end
end