-- Функция для обработки использования подарочного пакета с ID 4510023
function I4510023_GiftBag(MapID, InstanceID, TypeID, TargetID)
    local r = math.random(5300)
    local temp = 0
    local index = 1
    local tbl = {
        {4220101, 1, 6, 100}, {4220201, 1, 6, 100}, {4220401, 1, 6, 100},
        {4220501, 1, 6, 100}, {4220601, 1, 6, 100}, {4220801, 1, 6, 100},
        {4220901, 1, 6, 100}, {4221001, 1, 6, 100}, {4221101, 1, 6, 100},
        {4221201, 1, 6, 100}, {4221205, 1, 6, 100}, {4221301, 1, 6, 100},
        {4221401, 1, 6, 100}, {4221501, 1, 6, 100}, {4221601, 1, 6, 100},
        {4221701, 1, 6, 100}, {4221801, 1, 6, 100}, {4221901, 1, 6, 100},
        {4222001, 1, 6, 100}, {4222101, 1, 6, 100}, {4222201, 1, 6, 100},
        {4222301, 1, 6, 100}, {4222502, 1, 6, 100}, {6010102, 1, 6, 100},
        {6010202, 1, 6, 100}, {6010212, 1, 6, 100}, {6010302, 1, 6, 100},
        {6010402, 1, 6, 100}, {6010502, 1, 6, 100}, {6010602, 1, 6, 100},
        {6010612, 1, 6, 100}, {6010702, 1, 6, 100}, {6010802, 1, 6, 100},
        {6010902, 1, 6, 100}, {6011002, 1, 6, 100}, {6011102, 1, 6, 100},
        {6011202, 1, 6, 100}, {6011212, 1, 6, 100}, {6011302, 1, 6, 100},
        {6011402, 1, 6, 100}, {6011502, 1, 6, 100}, {6011602, 1, 6, 100},
        {6011702, 1, 6, 100}, {6011802, 1, 6, 100}, {6011902, 1, 6, 100},
        {6012002, 1, 6, 100}, {6012102, 1, 6, 100}, {6012202, 1, 6, 100},
        {6012302, 1, 6, 100}, {4221401, 1, 6, 100}, {5100071, 1, 6, 100},
        {5100068, 1, 6, 100}, {5100065, 1, 6, 100}
    }

    for i = 1, #tbl do
        temp = temp + tbl[i][4]
        if temp >= r then
            index = i
            break
        end
    end

    role.AddRoleItem(MapID, InstanceID, TargetID, tbl[index][1], tbl[index][2], tbl[index][3], 8, 420)
end

-- Функция для проверки возможности использования подарочного пакета с ID 4510023
function I4510023_CanUseGiftBag(MapID, InstanceID, TypeID, TargetID)
    local bRet, bIgnore = 0, false
    local FreeSize = role.GetBagFreeSize(TargetID)
    if FreeSize < 1 then
        bRet = 40
    end
    return bRet, bIgnore
end

-- Регистрация событий для подарочного пакета с ID 4510023
aux.RegisterItemEvent(4510023, 1, "I4510023_GiftBag")
aux.RegisterItemEvent(4510023, 0, "I4510023_CanUseGiftBag")