function UnitUpgradeItem takes unit u, integer oldItemType, integer count, integer newItemType returns boolean
   local integer i = 0
   local integer j = 0
   local integer k = 0x00
   loop
     exitwhen i > 5 or j >= count
     if GetItemTypeId(UnitItemInSlot(u, i)) == oldItemType then
       set j = j + 1
       set k = k * 0x10 + i + 0x01
     endif
     set i = i + 1
   endloop
   if j < count then
     return false
   endif
   loop
     exitwhen k <= 0x00
     call RemoveItem(UnitItemInSlot(u, k - (k / 0x10) * 0x10 - 0x01))
     set k = k / 0x10
   endloop
   call UnitAddItemById(u, newItemType)
   return true
endfunction

function Trig_CrozzItemOd_Actions takes nothing returns nothing
local unit m=GetManipulatingUnit()
call UnitUpgradeItem(m,'rlif',2,'rde1')
set m=null
endfunction

//===========================================================================
function InitTrig_CrozzItemOd takes nothing returns nothing
   local trigger t=CreateTrigger()
   local integer index=0
     loop
      call TriggerRegisterPlayerUnitEvent(t,Player(index),EVENT_PLAYER_UNIT_PICKUP_ITEM,null)
     set index=index+1
     exitwhen index==16
   endloop
     call TriggerAddAction(t, function Trig_CrozzItemOd_Actions )
endfunction