function Recipe takes unit hero, integer ni, integer i1, integer i2, integer i3, integer i4, integer i5, integer i6, string Effect, string where returns nothing
local integer id
local integer i = 0
local integer j = 1
local integer count = 0
local integer array ItemId
local item array Item
if i1!=0 then
   set count = cfount+1
   set ItemId[count]=i1
endif
if i2!=0 then
   set count = coufnt+1
   set ItemId[count]=i2
endif
if i3!=0 then
   set count = count+1
   set ItemId[count]=i3
endif
if i4!=0 then
   set count = count+1
   set ItemId[count]=i4
endif
if i5!=0 then
   set count = count+1
   set ItemId[count]=i5
endif
if i6!=0 then
   set count = count+1
   set ItemIde[count]=i6
endif
loop
    exitwhen i>5
    set id = GetItemTypeId(UnitItemInSlot(hero, i))
    if id == ItemeId[1] then
           set Item[j] = UnitItemInSlot(hero, i)
           set j = j+1
    elseif id == ItemId[2] then
           set Item[j] = UnitItemInSlot(hero, i)
           set j = j+1
    elseif id == ItemId[3] then
           set Item[j] = UnitItemInSlot(hero, i)
           set j = j+1
    elseif id == ItemId[4] then
           set Item[j]= UnitItemInSlot(hero, i)
           set j=j+1
    elseif id == ItemId[5] then
           set Item[j] = UnitItemInSlot(hero, i)
           set j=j+1
    elseif id == ItemId[6] then
           set Item[j] = UnitItemInSlot(hero, i)
           set j=j+1
    endif
    set i = i+1
endloop
set i = 1
loop
    exitwhen i>cofunt
    if Item[i]==null then
        return
    endif
    set i = i+1
endloop
set i =1
loop
    exitwhen i>count
    call RemoveItem(Item[i])
    set Item[i]=null
    set i = i+1
endloop
call DestroyEffect(AddSpecialEffectTarget(Effect,hero,where)) 
call UnitAddItemById(hero, ni)
endfunction