function DeleteItem takes unit u,integer id returns nothing
    local integer i = 0
    local item Item
    loop
    exitwhen i >= 6
    set Item = UnitItemInSlot(u,i)
    if GetItemTypeId(Item) == id then
    call RemoveItem(Item)
    set i = 6
    else
    set i = i + 1
    endif
    endloop
    set Item = null
    set u = null
endfunction

function CheckItem takes unit u,integer id,integer q returns boolean
    local integer s = 0
    local integer i = 0
    local item Item
    loop
      exitwhen i == 6
         set Item = UnitItemInSlot(u,i)
         if GetItemTypeId(Item) == id then
           set s = s + 1
         endif
      set i = i + 1
    endloop
    set Item = null
    set u = null
    if s == q then
    return true
    else
    return false
    endif
endfunction

function Items takes unit u,integer q,integer id1,integer id2,integer id3,integer id4,integer id5,integer id6,integer c returns nothing
    local integer i = 0
    local integer a = 0
    local integer ide = 0
    local integer array id
    local item Item = null
    local boolean array b
    local boolean b2 = true
    set id[0] = id1
    set id[1] = id2
    set id[2] = id3
    set id[3] = id4
    set id[4] = id5
    set id[5] = id6
    loop
      exitwhen i == q - 1
         if id[i] == id[i+1] then
         set a = a + 1
         set ide = id[i]
         endif
      set i = i + 1
    endloop
    if a != 0 then 
    set b2 = CheckItem(u,ide,a+1)
    endif
    set i = 0
    loop
      exitwhen i == 6
         set Item = UnitItemInSlot(u,i)
         set a = 0
         loop
         exitwhen a==q
         if Item != null and GetItemTypeId(Item) == id[a] then
         set b[a] = true
         endif
         set a = a + 1
         endloop
      set i = i + 1
    endloop
    set a = 0
    set i = 0
    loop
      exitwhen i == q
         if b[i] == true then
         set a = a + 1
         endif
      set i = i + 1
    endloop
    if a == q and b2==true then
    set i = 0
    loop
    exitwhen i == q
    call DeleteItem(u,id[i])
    set i = i + 1
    endloop
    set Item = CreateItem(c, GetUnitX(u), GetUnitY(u))
    call UnitAddItem(u,Item)
    endif
    set u = null
    set Item = null
endfunction