function F2F2 takes integer pF3,integer pF4,integer pF5,integer pF6,integer pF7,integer b, unit a returns nothing
        if((pF3==0)or(UnitHasItemOfTypeBJ(a, pF3) == true))and((pF4==0)or(UnitHasItemOfTypeBJ(a, pF4) == true))and((pF5==0)or(UnitHasItemOfTypeBJ(a, pF5) == true))and((pF6==0)or(UnitHasItemOfTypeBJ(a, pF6) == true))and(b!=2) then
        call RemoveItem( GetItemOfTypeFromUnitBJ(a, pF3) )
        call RemoveItem( GetItemOfTypeFromUnitBJ(a, pF4) )
        call RemoveItem( GetItemOfTypeFromUnitBJ(a, pF5) )
        call RemoveItem( GetItemOfTypeFromUnitBJ(a, pF6) )
        if b==1 then
        call AddSpecialEffectTargetUnitBJ( "origin", a, "Abilities\\Spells\\Items\\AIlm\\AIlmTarget.mdl" )
        endif
        call UnitAddItemByIdSwapped( pF7, a )
        endif
        if (pF3!=0)and(b==2) then
                call SimError(GetOwningPlayer(a), "Этот рецепт нельзя купить")
        call RemoveItem( GetItemOfTypeFromUnitBJ(a, pF3) )
        endif
endfunction

function Trig_itemscan_Actions takes nothing returns nothing
    local unit a = GetTriggerUnit()
    call F2F2('I00I',0,0,0,0,2, a)
    call F2F2('I00A',0,0,0,0,2, a)
    call F2F2('I00H',0,0,0,0,2, a)
    call F2F2('I00B',0,0,0,0,2, a)
    call F2F2('I00F',0,0,0,0,2, a)
    call F2F2('I00L',0,0,0,0,2, a)
    call F2F2('I00N',0,0,0,0,2, a)
    call F2F2('I00G',0,0,0,0,2, a)
    call F2F2('I00M',0,0,0,0,2, a)
    call F2F2('I009',0,0,0,'I004',0, a)
    call F2F2('I003',0,0,0,'I00E',0, a)
    call F2F2('I00J',0,0,0,'I00K',0, a)
    call F2F2('engs','dthb',0,0,'cnhn',1, a)
    call F2F2('rde2','rwiz',0,0,'jpnt',1, a)
    call F2F2('mgtk','ratf','I00E',0,'k3m1',1, a)
    call F2F2('mgtk','cnhn','stwa',0,'amrc',1, a)
    call F2F2('bspd','ward','skrt','engs','shwd',1, a)
    call F2F2('I004','rde1','rlif','bgst','ward',1, a)
    call F2F2('bgst','ratf','oslo',0,'rat9',1, a)
    call F2F2('belv','skrt','bspd',0,'kpin',1, a)
    call F2F2('ward','ratf','skrt',0,'penr',1, a)
    call F2F2('shwd','oslo',0,0,'gopr',1, a)
    call F2F2('modt','ckng',0,0,'I008',1, a)
    call F2F2('pmna','rhth','dsum',0,'bfhr',1, a)
    call F2F2('I00K','jpnt','mgtk',0,'kymn',1, a)
endfunction

//===========================================================================
function InitTrig_itemscan takes nothing returns nothing
    set gg_trg_itemscan = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_itemscan, EVENT_PLAYER_UNIT_PICKUP_ITEM )
    call TriggerAddAction( gg_trg_itemscan, function Trig_itemscan_Actions )
endfunction