globals
    integer array it
endglobals

set it[x] = GetItemTypeId(<твой предмет>)

globals
    item array it=null
endglobals
//...
function Save takes item sit returns nothing
    local integer i=0
    loop
        exitwhen i>8191
        if it[i]==null then
            set it[i]=sit
            call SetItemPosition(sit,GetRectMaxX(bj_mapInitialPlayableArea), GetRectMaxY(bj_mapInitialPlayableArea))//Переносим предмет в правый верхний угол
        return
        endif
    endloop
endfunction

function Get takes integer i, real x, real y returns nothing
    call SetItemPosition(it[i],x,y)//возвращаем предмет в точку с координатами x,y
    set it[i]=null
endfunction