::proc ::preload_maps {} {
	set start [clock seconds]
	#set t0 [clock clicks -milliseconds]
	set maps [lsort [smm::map::get maps]]
	foreach map $maps {
		#smm::showme "[lindex $map 0]\n"
		#_sleep [::expr ([clock clicks -milliseconds] - $t0) / 10]
		#set t0 [clock clicks -milliseconds]
		smm::map::exists room [lindex $map 0] [lindex $map 1] 0 0}
	smm::showme "scanned [llength $maps] maps in [expr [clock seconds] - $start] seconds\n"}