//TESH.scrollpos=0
 //TESH.alwaysfold=0
//This system takes multiple items and combines them to make 1 item
//It is advised that you do not touch ANYTHING below as it could cause SERIOUS instability with your map.
//You can remove this green text though.
//But you may use a few functions within the system to your pleasing >:D
library ItemRecipe initializer init
   globals
       public integer array    ItemTypes
       public integer          ItemTypesAmount
   endglobals
   
   function GetItemAmount takes unit u, integer i returns integer
       // function GetItemAmount takes unit, item type returns integer amount
       // this function is used to get the amount of an item that a unit has
       // example:
       // Say a unit has 3 potions in it's inventory. One potion with 1 stack, and the other two potions with 2 stacks.
       // so:
       //Potion 1:1
       //Potion 2:2
       //Potion 3:2
       // 1+2+2=5
       // it takes all that and adds it up to make 5. The unit has 5 potions.
       //(Note: Items with 0 stacks count as 1)
       local integer R = 0
       local integer I = 0
       local integer ic
       local item    t
       loop
           exitwhen I > 5
           set I = I + 1
           set t = UnitItemInSlot( u, I - 1 )
           if GetItemTypeId( t ) == i then
               set ic = GetItemCharges( t )
               if ic == 0 then
                   set R = R + 1
               else
                   set R = R + ic
               endif
           endif
       endloop
       set t = null
       return R
   endfunction
   
   function RemoveItemAmount takes unit u, integer i, integer a returns nothing
       // function RemoveItemAmount takes unit, item type, amount removed returns nothing
       // this will remove any amount of an item from a unit's inventory.
       // if a unit has 5 potions and you remove 2, you will have 3 remaining.
       local integer I = 0
       local integer R = a
       local integer ic
       local item    t
       loop
           exitwhen I > 5 or R < 1
           set I = I + 1
           set t = UnitItemInSlot( u, I - 1 )
           if GetItemTypeId( t ) == i then
               set ic = GetItemCharges( t )
               if ic == 0 then
                   set R = R - 1
                   call RemoveItem( t )
               elseif ic < R then
                   set R = R - ic
                   call RemoveItem( t )
               else
                   call SetItemCharges( t, ic - R )
                   if ic - R == 0 then
                       call RemoveItem( t )
                   endif
                   set R = 0
               endif
           endif
       endloop
       set t = null
   endfunction
   
   function GetItemTypes takes unit u returns nothing
       //This function will get all the item types a unit has in it's inventory and will return the amount (ItemTypesAmount)
       //It also saves the item type in a array that you can loop through (ItemTypes[])
       //If a unit has two of the same item the function will ignore the other item
       local integer I = 0
       local integer i
       local item    t
       local integer it
       set ItemTypesAmount = 0
       loop
           exitwhen I > 5
           set I = I + 1
           set t = UnitItemInSlot( u, I - 1 )
           set it = GetItemTypeId( t )
           set ItemTypes[I] = 0
           set i = I
           loop
               exitwhen i < 1
               set i = i - 1
               if it == ItemTypes[i] then
                   set i = -1
               endif
           endloop
           if i != -1 then
               set ItemTypesAmount = ItemTypesAmount + 1
               set ItemTypes[ItemTypesAmount] = it
           endif
       endloop
       set t = null
   endfunction
   
   private function Pickup takes nothing returns nothing
       local unit    u = GetTriggerUnit( )
       local integer i = 0
       local integer ii
       local integer iii
       local integer in
       local integer ti
       call GetItemTypes( u )
       loop
           set i = i + 1
           exitwhen udg_Recipe_ItemAmount_1[i] == 0
           set in = 1
           if udg_Recipe_ItemAmount_2[i] > 0 then
               set in = 2
               if udg_Recipe_ItemAmount_3[i] > 0 then
                   set in = 3
                   if udg_Recipe_ItemAmount_4[i] > 0 then
                       set in = 4
                       if udg_Recipe_ItemAmount_5[i] > 0 then
                           set in = 5
                           if udg_Recipe_ItemAmount_6[i] > 0 then
                               set in = 6
                           endif
                       endif
                   endif
               endif
           endif
           set iii = 0
           set ii = 0
           if ItemTypesAmount >= in then
               loop
                   set ii = ii + 1
                   exitwhen ii > ItemTypesAmount
                   set ti = GetItemAmount( u, ItemTypes[ii] )
                   if udg_Recipe_ItemType_1[i] == ItemTypes[ii] and ti >= udg_Recipe_ItemAmount_1[i] then
                       set iii = iii + 1
                   elseif udg_Recipe_ItemType_2[i] == ItemTypes[ii] and ti >= udg_Recipe_ItemAmount_2[i] then
                       set iii = iii + 1
                   elseif udg_Recipe_ItemType_3[i] == ItemTypes[ii] and ti >= udg_Recipe_ItemAmount_3[i] then
                       set iii = iii + 1
                   elseif udg_Recipe_ItemType_4[i] == ItemTypes[ii] and ti >= udg_Recipe_ItemAmount_4[i] then
                       set iii = iii + 1
                   elseif udg_Recipe_ItemType_5[i] == ItemTypes[ii] and ti >= udg_Recipe_ItemAmount_5[i] then
                       set iii = iii + 1
                   elseif udg_Recipe_ItemType_6[i] == ItemTypes[ii] and ti >= udg_Recipe_ItemAmount_6[i] then
                       set iii = iii + 1
                   endif
               endloop
           endif
           if iii >= in then
               call RemoveItemAmount( u, udg_Recipe_ItemType_1[i], udg_Recipe_ItemAmount_1[i] )
               call RemoveItemAmount( u, udg_Recipe_ItemType_2[i], udg_Recipe_ItemAmount_2[i] )
               call RemoveItemAmount( u, udg_Recipe_ItemType_3[i], udg_Recipe_ItemAmount_3[i] )
               call RemoveItemAmount( u, udg_Recipe_ItemType_4[i], udg_Recipe_ItemAmount_4[i] )
               call RemoveItemAmount( u, udg_Recipe_ItemType_5[i], udg_Recipe_ItemAmount_5[i] )
               call RemoveItemAmount( u, udg_Recipe_ItemType_6[i], udg_Recipe_ItemAmount_6[i] )
               call UnitAddItem( u, CreateItem( udg_Recipe_ItemMade[i], 0, 0 ) )
               call DestroyEffect( AddSpecialEffectTarget( udg_Recipe_Effect, u, "origin" ) )
           endif
       endloop
       set u = null
   endfunction
   
   private function init takes nothing returns nothing
       local trigger t = CreateTrigger( )
       call TriggerRegisterAnyUnitEventBJ( t, EVENT_PLAYER_UNIT_PICKUP_ITEM )
       // Don't even be like "OH YOU HAVE A BJ!!!! 1/5"
       // This is a friendly bj that only gets fired once :p
       call TriggerAddAction( t, function Pickup )
       set t = null
   endfunction
endlibrary