@verb #2570:"move_to_pop" this none this rxdo #2570
@program #2570:"move_to_pop" this none this
if (!this:Connected())
  return
endif
if (#8045:connected())
  if (this.location == #8045.location)
    return
  endif
  this:send_moveto(#8045.location)
  if (this.location == #8045.location)
    return
  endif
endif
places = {}
for x in (setremove(connected_players(), this))
  if (x.location:isa($editor))
    continue
  endif
  if (z = listiassoc(x.location, places))
    places[z][2] = places[z][2] + 1
  else
    places = {@places, {x.location, 1}}
  endif
endfor
places = $list_utils:sort(places, $list_utils:slice(places, 2))
places = $list_utils:reverse(places)
for x in (places)
  if (x[1] == this.location)
    return
  endif
  if (`x[1]:acceptable(this) ! ANY')
    this:send_moveto(x[1])
    "    if (this.location == x[1])"
    return
    "    endif"
  endif
endfor
if (this.location != this.home)
  this:send_moveto(this.home)
endif
"Last modified by Lao-Tzu (#8084) on Tue Sep 26 10:04:51 2000 MDT."
.