function PolledWait takes real duration returns nothing
    local timer t
    local real  timeRemaining
    if (duration > 0) then
        set t = CreateTimer()
        call TimerStart(t, duration, false, null)
        loop
            set timeRemaining = TimerGetRemaining(t)
            exitwhen timeRemaining <= 0
            // If we have a bit of time left, skip past 10% of the remaining
            // duration instead of checking every interval, to minimize the
            // polling on long waits.
            if (timeRemaining > bj_POLLED_WAIT_SKIP_THRESHOLD) then
                call TriggerSleepAction(0.1 * timeRemaining)
            else
                call TriggerSleepAction(bj_POLLED_WAIT_INTERVAL)
            endif
        endloop
        call DestroyTimer(t)
    endif

function Wait takes real duration returns nothing
    local timer t
    local real  i
    local real y
    if duration>0 then
    set y=duration-0.1
    set t=CreateTimer()
    call TimerStart(t,y,false,null)
    loop
    set i=TimerGetRemaining(t)
    exitwhen i<=0
    call TriggerSleepAction(0)
    endloop
    call DestroyTimer(t)
    endif
    set t=null
endfunction

function UHI takes unit u, integer ii returns boolean
return GetItemTypeId(UnitItemInSlot(u,0x00))==ii or GetItemTypeId(UnitItemInSlot(u,0x01))==ii or GetItemTypeId(UnitItemInSlot(u,0x02))==ii or GetItemTypeId(UnitItemInSlot(u,0x03))==ii or GetItemTypeId(UnitItemInSlot(u,0x04))==ii or GetItemTypeId(UnitItemInSlot(u,0x05))==ii
endfunction

function UCI takes unit u, integer ii returns integer
    local integer ic=0
    if GetItemTypeId(UnitItemInSlot(u,0x00))==ii then
    set ic=ic+1
    endif
    if GetItemTypeId(UnitItemInSlot(u,0x01))==ii then
    set ic=ic+1
    endif
    if GetItemTypeId(UnitItemInSlot(u,0x02))==ii then
    set ic=ic+1
    endif
    if GetItemTypeId(UnitItemInSlot(u,0x03))==ii then
    set ic=ic+1
    endif
    if GetItemTypeId(UnitItemInSlot(u,0x04))==ii then
    set ic=ic+1
    endif 
    if GetItemTypeId(UnitItemInSlot(u,0x05))==ii then
    set ic=ic+1
    endif    
    return ic
endfunction

function UHI takes unit u, integer ii returns boolean
local integer ix=0
loop
exitwhen ix>5
if GetItemTypeId(UnitItemInSlot(u, ix))==ii then
return true
endif
set ix=ix+1
endloop
return false
endfunction
//
function UCI takes unit u, integer ii returns integer
local integer ix=0
local integer ic=0
loop
exitwhen ix>5
if GetItemTypeId(UnitItemInSlot(u,ix))==ii then
set ic=ic+1
endif
set ix=ix+1
endloop
return ic
endfunction
//
function UIS takes unit u, integer ii returns integer
local integer ix=0
loop
exitwhen ix>5
if GetItemTypeId(UnitItemInSlot(u, ix))==ii then
return ix
endif
set ix=ix+1
endloop
return 0
endfunction