proc
    MapSave()
        var/foundobjects=0 //This increases by 1 as it loops through the turfs so it can show the amount
        //to the world when its done.
        var/savefile/F=new("MapSave")
        var/list/L=new/list //The list that will contain the saved things.
        for(var/turf/build/A)
            if(prob(1)) sleep(1) //throw an occasional sleep in there for every 100 or so items
            //just so it doesnt completely freeze...
            var/obj/B=new/obj //Since I dont even -think- you can save turfs, since it wont let you 
            //restore a turfs location on the mapload() proc, I turn them into obj's, then have those
            //it objects save the turfs critical information such as its type, and its location, so it 
            //can use that info to restore a turf of that type at that location when the map is loaded.
            B.saved_x=A.x
            B.saved_y=A.y
            B.saved_z=A.z
            B.savetype=A.type //This stores the type of turf to be restored in mapload
            B.owner=A.owner //This stores the key of the person who created the turf, well, actually 
            //not the key, but its A.owner==usr
            L.Add(B) //Add it to the list...
            foundobjects+=1
        F["Objects"]<<L //Put the list and everything in it into the MapSave savefile...
        world<<"Map saved<br>[foundobjects] saved (65000 limit before map corruption)."