function CombinirCond takes nothing returns boolean
     return GetItemCharges(GetManipulatedItem())>0
endfunction
function Combinir takes nothing returns nothing
     local integer il=0
     local integer c=0
     local integer max=50//max Charges
     local item new=GetManipulatedItem()
     local unit u=GetManipulatingUnit()
     local item si
     loop
         exitwhen il>6
         si=UnitItemInSlot(u,il)
         if GetItemTypeId(new)==GetItemTypeId(si) and GetItemCharges(si)+GetItemCharges(new)<=max and si!=new then
             set c=GetItemCharges(si)+GetItemCharges(new)
             call SetItemCharges(si,c)
             call RemoveItem(new)
             set il=7
         endif
         if il<7then
             set il=il+1
         endif
     endloop
     set u=null
     set new=null
     set si=null
endfunction
function InitTrig_Combine takes nothing returns nothing
     set gg_trg_Combine = CreateTrigger()
     call TriggerRegisterAnyUnitEventBJ( gg_trg_Combine, EVENT_PLAYER_UNIT_PICKUP_ITEM )
     call TriggerAddCondition(gg_trg_Combine, Condition(function CombinirCond))
     call TriggerAddAction(gg_trg_Combine,function Combinir)
endfunction