proc
    SaveTurfs()
        var/savefile/File=new("Turfs.sav")
        var/list/Turfers=new
        for(var/turf/house/H in world)
            H.TurfLocatedx=H.x
            H.TurfLocatedy=H.y
            H.TurfLocatedz=H.z
            Turfers+=H
        File[""]<<Turfers
    LoadTurfs()
        var/savefile/File=new("Turfs.sav")
        var/list/Turfers=new
        File[""]>>Turfers
        if(!Turfers)return
        for(var/turf/house/H in world)if(H.loc)del(H)
        for(var/turf/house/H in Turfers)
            H.loc=locate(H.TurfLocatedx,H.TurfLocatedy,H.TurfLocatedz)
turf
    house
        var TurfLocatedx,TurfLocatedy,TurfLocatedz
world
    New()         
        LoadTurfs()
    Del()     
        SaveTurfs()