function SimError takes player ForPlayer, string msg returns nothing
    local sound s = CreateSoundFromLabel("InterfaceError",false,false,false,10,10)
    
    if GetLocalPlayer() == ForPlayer then
        call ClearTextMessages()
        call DisplayTimedTextToPlayer(ForPlayer,.52,-1.,2.,"|cffffcc00"+msg+"|r")
        call StartSound(s)
        call KillSoundWhenDone(s)
    endif
    
    set s = null
endfunction

function GetUnitItemSlot takes unit u, integer itemID returns integer
    local integer i = 0
    local item it
    loop
        exitwhen i > 5
        set it = UnitItemInSlot(u,i)
        if GetItemTypeId(it) == itemID then
            return i
        endif
        set it = null
        set i = i + 1
    endloop
    return -1
endfunction

function UnitHasEmptySlot takes unit u returns boolean
    local integer i = 0
    local item it
    loop
        exitwhen i > 5
        set it = UnitItemInSlot(u,i)
        if it == null then
            set it = null
            return true
        endif
        set it = null
        set i = i + 1
    endloop
    return false 
endfunction

function GetUnitItemOfType takes unit u, integer iid returns item
    local integer index = GetUnitItemSlot(u,iid)
    
    if index == -1 then
        return null
    else
        return UnitItemInSlot(u,index)
    endif
endfunction

function CombineItemCharges takes item i1, item i2 returns nothing
    call SetItemCharges(i1,GetItemCharges(i1) + GetItemCharges(i2))
endfunction

function NormToRune takes integer niid returns integer
    local integer i = 0 
    loop
        exitwhen i > udg_TotalItems
        if niid == udg_NormalItem[i] then
            return udg_RuneItem[i]
        endif
        set i = i + 1
    endloop
    return -1
endfunction

function RuneToNorm takes integer riid returns integer
    local integer i = 0 
    loop
        exitwhen i > udg_TotalItems
        if riid == udg_RuneItem[i] then
            return udg_NormalItem[i]
        endif
        set i = i + 1
    endloop
    return -1
endfunction

function GetItemIndex takes integer iid returns integer
    local integer i = 0 
    loop
        exitwhen i > udg_TotalItems
        if iid == udg_RuneItem[i] or iid == udg_NormalItem[i] then
            return i
        endif
        set i = i + 1
    endloop
    return -1
endfunction

function GiveItemToUnit takes item ri, unit u returns boolean
    local integer riid = GetItemTypeId(ri)
    local integer niid = RuneToNorm(riid)
    local item uiis
    if UnitHasEmptySlot(u) then
        call UnitAddItemById(u,niid)
        return true   
    else
        set uiis = GetUnitItemOfType(u,niid)
        if uiis != null and GetItemCharges(uiis) > 0 then
            call CombineItemCharges(uiis,ri)
            set uiis = null
            return true
        endif             
        set uiis = null
    endif
    return false 
endfunction

function Trig_OperateItems_DropTimer takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local item i = LoadItemHandle(udg_ItemHash,GetHandleId(t),0)
    local integer riid = NormToRune(GetItemTypeId(i))
    local item newi = CreateItem(riid,GetWidgetX(i),GetWidgetY(i))
    
    call SetItemCharges(newi,GetItemCharges(i))
    call RemoveItem(i)
    
    call FlushChildHashtable(udg_ItemHash,GetHandleId(t))
    call DestroyTimer(t)
    set t = null
endfunction

function Trig_OperateItems_Actions takes nothing returns nothing
    local unit u
    local item i
    local timer t
    local integer ittype
    
    if GetTriggerEventId() == EVENT_PLAYER_UNIT_PICKUP_ITEM then
        set u = GetManipulatingUnit()
        set i = GetManipulatedItem()
        set t = CreateTimer()
        set ittype = RuneToNorm(GetItemTypeId(i))
        
        if LoadBoolean(udg_ItemHash,GetHandleId(i),0) == false or LoadBoolean(udg_ItemHash,GetHandleId(i),0) == null then
        
            if GiveItemToUnit(i,u) == false then
                call SimError(GetOwningPlayer(u),"Íåêóäà ïîìåñòèòü ïðåäìåò.")
                call SetPlayerState(GetOwningPlayer(u),PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(GetOwningPlayer(u),PLAYE​R_STATE_RESOURCE_GOLD) + udg_ItemCost[GetItemIndex(GetItemTypeId(i))])
                call SetItemVisible(i,false)
                call SaveItemHandle(udg_ItemHash,GetHandleId(t),0,i)
                call TimerStart(t,.01,false,function Trig_OperateItems_DropTimer)
            endif
            call SaveBoolean(udg_ItemHash,GetHandleId(i),0,true)
        else
            call SaveBoolean(udg_ItemHash,GetHandleId(i),0,false)
        endif
        
    elseif GetTriggerEventId() == EVENT_PLAYER_UNIT_SELL_ITEM then
        set u = GetBuyingUnit()
        set i = GetSoldItem()
        
        if LoadBoolean(udg_ItemHash,GetHandleId(i),0) == false or LoadBoolean(udg_ItemHash,GetHandleId(i),0) == null then
            if GiveItemToUnit(i,u) == false then
                call SimError(GetOwningPlayer(u),"Íåêóäà ïîìåñòèòü ïðåäìåò.")
                call SetPlayerState(GetOwningPlayer(u),PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(GetOwningPlayer(u),PLAYE​R_STATE_RESOURCE_GOLD) + udg_ItemCost[GetItemIndex(GetItemTypeId(i))])
            endif
            call SaveBoolean(udg_ItemHash,GetHandleId(i),0,true)
        else
            call SaveBoolean(udg_ItemHash,GetHandleId(i),0,false)
        endif
    elseif GetTriggerEventId() == EVENT_PLAYER_UNIT_DROP_ITEM then
        set u = GetManipulatingUnit()
        set i = GetManipulatedItem()
        set t = CreateTimer()
        set ittype = RuneToNorm(GetItemTypeId(i))
        
        if ittype != -1 then
            call SetItemVisible(i,false)
            call SaveItemHandle(udg_ItemHash,GetHandleId(t),0,i)
            call TimerStart(t,.01,false,function Trig_OperateItems_DropTimer)
        endif
    endif
    
    set t = null
    set u = null
    set i = null
endfunction

//===========================================================================
function InitTrig_OperateItems takes nothing returns nothing
    set gg_trg_OperateItems = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg_OperateItems,EVENT_PLAYER_UNIT_PICKUP_ITEM)
    call TriggerRegisterAnyUnitEventBJ(gg_trg_OperateItems,EVENT_PLAYER_UNIT_SELL_ITEM)
    call TriggerRegisterAnyUnitEventBJ(gg_trg_OperateItems,EVENT_PLAYER_UNIT_DROP_ITEM)
    call TriggerAddAction(gg_trg_OperateItems,function Trig_OperateItems_Actions)
endfunction