function sitem takes unit u returns nothing
local item it   = null
local integer i = 1
local integer n = GetPlayerId(GetOwningPlayer(u)) + 1
local integer h = udg_Load[udg_LoadCount]
   loop
        exitwhen i > h
        set udg_LoadCount = udg_LoadCount + 1
        set it = CreateItem( udg_SaveItem[udg_Load[udg_LoadCount]], GetUnitX(u), GetUnitY(u))
        call UnitAddItem(u, it)
        set i = i + 1
        set it = null
    endloop
set it = null
endfunction

function CG_SaveItem takes item it returns integer
    local integer i = 1
    loop
        exitwhen i > udg_ItemCount
        if udg_SaveItem[i] == GetItemTypeId(it) then
            return i
        endif
        set i = i + 1
    endloop
    return 0
endfunction