proc/save_items()
    var/items[0]
    for(var/obj/Items/I in world)
        I.lastx=I.x
        I.lasty=I.y
        I.lastz=I.z
        items.Add(I)
        var/savefile/F=new("houses/items/items.sav")
        F["items"]<<items
proc/load_items()
    if(fexists("houses/items/items.sav"))
        var/savefile/F=new("houses/items/items.sav")
        var/items[0]
        F["items"]>>items
        for(var/obj/Items/I in items)
            I.loc=locate(I.lastx,I.lasty,I.lastz)

obj/var
    lastx = ""
    lasty = ""
    lastz = ""