if (UHT(u, 'cnob', 'afac', 'I00V', 0, 0, 0) == 3) then
call RI(u, 'cnob', 'afac', 'I00V', 0, 0, 'I00U')
endif

function UHT takes unit u, integer i1, integer i2, integer i3, integer i4, integer i5, integer i6 returns integer
local integer n = 0
if (UnitHasItemOfTypeBJ(u, i1) == true) then
set n = n + 1
endif
if (UnitHasItemOfTypeBJ(u, i2) == true) then
set n = n + 1
endif
if (UnitHasItemOfTypeBJ(u, i3) == true) then
set n = n + 1
endif
if (UnitHasItemOfTypeBJ(u, i4) == true) then
set n = n + 1
endif
if (UnitHasItemOfTypeBJ(u, i5) == true) then
set n = n + 1
endif
if (UnitHasItemOfTypeBJ(u, i6) == true) then
set n = n + 1
endif
return n
endfunction

function RI takes unit u, integer s1, integer s2, integer s3, integer s4, integer s5, integer s6 returns nothing
local effect e
if (s1 != 0) then
call RemoveItem(GetItemOfTypeFromUnitBJ(u, s1))
endif
if (s2 != 0) then
call RemoveItem(GetItemOfTypeFromUnitBJ(u, s2))
endif
if (s3 != 0) then
call RemoveItem(GetItemOfTypeFromUnitBJ(u, s3))
endif
if (s4 != 0) then
call RemoveItem(GetItemOfTypeFromUnitBJ(u, s4))
endif
if (s5 != 0) then
call RemoveItem(GetItemOfTypeFromUnitBJ(u, s5))
endif
call UnitAddItemById(u, s6)
set e = AddSpecialEffectTargetUnitBJ( "origin", u, "Abilities\\Spells\\Items\\AIem\\AIemTarget.mdl" )
endfunction