var/WorldLoaded=0

Login()
	if(WorldLoaded==0)
		usr << "The world is still loading. Please try again in a few minutes."
		del usr

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)
		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])."
	WorldLoaded=1
obj/var
	Saved_X
	Saved_Y
	Saved_Z