loop
        exitwhen x > 5
        if a[x] > 0 then
            set v = 0
            set d = 0
            loop
                exitwhen d > 5
                if v < count[x] then
                    if items[d] == a[x] then // если нашли нужный предмет, увеличиваем счетчик v
                        set v = v + 1
                        set g = g + 1
                        set drop[g] = d
                    endif
                endif
                set d = d + 1
            endloop
            if v < count[x] then //если насчитали меньше, чем надо -> выход
                return false
            endif
        endif
        set x = x + 1
    endloop

function Trig_PickItem_Actions takes nothing returns nothing
    local unit u = GetTriggerUnit()
    local integer id = UIS_Check(u)
    local item f = null
    if id > -1 then
        set f = CreateItem(id,GetUnitX(u)+10,GetUnitY(u))
        call UnitAddItem(u,f)
    call AddSpecialEffectTargetUnitBJ( "origin", GetTriggerUnit(), "Abilities\\Spells\\Undead\\AnimateDead\\AnimateDeadTarget.mdl" ) // создание эффекта
    call DestroyEffectBJ( GetLastCreatedEffectBJ() ) // удаление эффекта
        set f = null
    endif
    set u = null
endfunction