function InvX_RestoreUnit takes gamecache g, string mission, string key, player p, real x, real y, real f returns unit
 local unit u=RestoreUnit(g,mission,key,p,x,y,f)
 local integer i=0
 local integer j
 local integer id
 local integer N=6
 local integer cp=GetStoredInteger(g,mission,key+"InvX_Page")
 local integer tp
 local integer sl=GetStoredInteger(g,mission,key+"InvX_TotalSlots")
 local item it
 local string k
 local integer t
 local boolean renb=GetAttachedBoolean(u,"InvX_ForgetAutoEquip")
    loop
        exitwhen i>=N
        call RemoveItem(UnitItemInSlot(u,i))
        set i=i+1
    endloop
    call InvX_EnhanceInventory(u,sl)
    call InvX_RestoreEquipment(g,mission,key,InvX(),u)
    call InvX_Goto(u,0,cp)
    set N=InvX_GetN( u,sl)
    set tp=GetAttachedInt(u,"InvX_TotalPages")
    set j=0    
    call InvX_DisableEvents(u,true)
    call AttachBoolean(u,"InvX_ForgetAutoEquip",true)
    loop
        exitwhen j>=tp
        set i=0
        set t=0
        loop
            exitwhen i>=N
            set k="InvX"+I2S(j)+";"+I2S(i)
            set id=GetStoredInteger(g,mission,key+k)

            if id!=0 and not(InvX_IsItemIdDummy(id)) then
                set t=t+1
                set it=InvX_RestoreItem(g,mission,key+k,0,0)
                call SetItemVisible(it,false)
              //  call SetItemCharges(it,GetStoredInteger(g,mission,key+k+"c"))
                if j==cp then
                    call InvX_SilentAddItemSlot(u,it,i)
                else
                    call AttachObject(u,k,it)
                endif
                call InvX_CheckGet(u,it,false,false,false,false)
                if GetStoredBoolean(g,mission,key+k+";Equiped") then
                    call InvX_Equip(u,it,GetStoredString(g,mission,key+k+";EquipSlot"),false,false)
                endif
            endif
            set i=i+1
        endloop
        call InvX_SetPageCount(u,j,t)
        set j=j+1
    endloop
    call InvX_DisableEvents(u,false)
    if not(renb) then
        call AttachBoolean(u,"InvX_ForgetAutoEquip",false)
    endif
    set bj_lastCreatedUnit=u

 set u=null
 return u
endfunction