CREATE PROCEDURE save_purchase (IN buyer_id INT, 
                                IN game_name VARCHAR(25),
                                OUT result VARCHAR(255))
save_purchase:BEGIN
DECLARE game_key VARCHAR(12) DEFAULT NULL;
-- На случай непредвиденной ошибки
DECLARE EXIT HANDLER FOR SQLEXCEPTION
BEGIN
    SET result := 'Непредвиденная ошибка.\nНе удалось оформить покупку, повторите позже.';
    ROLLBACK;
END;

-- Проверка, не куплена ли уже эта игра
IF EXISTS ( SELECT NULL
            FROM buy
            JOIN key_in_game USING (key_games)
            JOIN game USING (id_games)
            WHERE game_name = game.name
              AND buyer_id = buy.ID_buyer ) THEN
    SET result := 'Вы уже купили эту игру';
    LEAVE save_purchase;
END IF;
-- Проверка, достаточно ли средств
IF ( SELECT cash
     FROM buyer
     WHERE buyer_id = buyer.ID_buyer ) < ( SELECT price
                                           FROM game
                                           WHERE game_name = game.name ) THEN
    SET result := 'Недостаточно средств для покупки игры';
    LEAVE save_purchase;
END IF;

START TRANSACTION;
-- Выбираем произвольный ключ
SELECT key_in_game.key_games INTO game_key
FROM key_in_game
JOIN game USING (id_games)
WHERE game_name = game.name
  AND !status LIMIT 1;
-- Удалось ли найти свободный ключ
IF game_key IS NULL THEN 
    SET result := 'Игры нет в наличии';
    LEAVE save_purchase;
END IF;
-- Пробуем оформить приобретение
UPDATE key_in_game
SET status = 1
WHERE key_in_game.key_games = game_key
  AND !status;
-- Кто-то вклинился и уже купил этот ключ
IF !ROW_COUNT() THEN
    SET result := 'Не удалось оформить покупку, повторите позже.';
    ROLLBACK;
    LEAVE save_purchase;
END IF;
-- Вносим сведения о покупке
INSERT INTO buy (date_buyer, id_buyer, key_games)
VALUES (CURRENT_DATE, buyer_id, game_key);
-- При записи возникла ошибка
IF !ROW_COUNT() THEN
    SET result := 'Не удалось оформить покупку, повторите позже.';
    ROLLBACK;
    LEAVE save_purchase;
END IF;
-- Обновляем баланс
UPDATE buyer
CROSS JOIN game
SET buyer.cash = buyer.cash - game.price
WHERE buyer_id = buyer.ID_buyer
  AND game_name = game.name;
-- При обновлении возникла ошибка
IF !ROW_COUNT() THEN
    SET result := 'Не удалось оформить покупку, повторите позже.';
    ROLLBACK;
    LEAVE save_purchase;
END IF;
-- Всё прошло нормально
COMMIT;
-- Формируем отчёт о покупке
SELECT CONCAT( 'Покупка оформлена успешно.\n',
               'Приобретена игра "', game_name, '".\n',
               'Номер лицензии: ', game_key, '\n', 
               'Остаток средств на счёте: ', cash ) INTO result
FROM buyer
WHERE buyer_id = buyer.ID_buyer;

END