25a
@verb #6319:"@moveto" any any any rdo #6319
@program #6319:"@moveto" any any any
if (player != this)
  boot_player(player)
endif
if (valid(dobj))
  find = {dobj}
else
  find = $room_db:find_all(argstr)
endif
if (length(find) > 1)
  for r in (find)
    this:tell("  ", r:nn())
  endfor
  return
endif
if (path = `$room_db:path_between(this.location, find[1], this) ! ANY')
  this.brief = 1
  for exit in (path)
    exit:move(this)
    suspend(2)
  endfor
  this.brief = 0
else
  this:moveto(find[1])
endif
"Last modified by Raptor (#6319) on Mon Dec 13 20:48:41 1999 MST."
.

0