proc/Save_Objects()
	var/foundobjects=0
	if(fexists("Saves/Itemsave"))
		var/savefile/F=new("Saves/Itemsave")
		F.dir.Remove()
	var/savefile/F=new("Saves/Itemsave")
	var/list/L=new
	for(var/obj/A in world) if(A.Savable&&A.z)
		foundobjects+=1
		A.Saved_X=A.x
		A.Saved_Y=A.y
		A.Saved_Z=A.z
		L+=A
	F["SavedItems"]<<L
	world<<"<small>Server: Items saved ([foundobjects] Items)"
proc/Load_Objects()
	world<<"<small>Server: Loading Items..."
	var/amount=0
	if(fexists("Saves/Itemsave"))
		var/savefile/F=new("Saves/Itemsave")
		var/list/L=new
		F["SavedItems"]>>L
		for(var/obj/A in L)
			amount+=1
			A.loc=locate(A.Saved_X,A.Saved_Y,A.Saved_Z)
	world<<"<small>Server: Items Loaded ([amount])."
obj/var
	Saved_X
	Saved_Y
	Saved_Z