@verb #2250:"join" any none none rdo #7788
@program #2250:"join" any none none
if (player == this)
  who = $su:match_player(dobjstr)
  if (valid(who))
    this.location:announce_all(this:title(), " leaves.")
    this:moveto(who.location)
    this.location:announce_all(this:title(), " arrives.")
  else
    player:tell("Not a player.")
  endif
endif
.