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