@verb #12:"@join" any none none rdo #55
@program #12:"@join" any none none
"Moves the player to the location of the requested player or object."
set_task_perms(callers() ? caller_perms() | player)
victim = $string_utils:match_local_player(dobjstr)
if (valid(dobj) && !valid(victim))
  victim = dobj
elseif ($command_utils:player_match_failed(victim, dobjstr))
  return
endif
"Lets be a pain in the neck and refuse to @join when using one exit will do. -- Dax"
for exit in (`player.location:exits() ! ANY => {}')
  if (`exit:isa($exit) ! ANY => 0' && exit.dest == victim.location)
    player:sub_tell("%1 is in the next room!  Use the '%2' exit, instead of teleporting.  Thanks for not polluting!", victim, exit)
    return
  endif
endfor
dest = player.location
places = victim.location:isa($editor) ? {@$list_utils:reverse($object_utils:locations(origin = {#-1, @victim.location.original}[1 + (victim in victim.location.active)])), origin} | $list_utils:reverse($object_utils:locations(victim))
for place in (places)
  if ($object_utils:isa(place, $room))
    dest = place
  endif
endfor
dest == victim.location || player:sub_tell("%1 is in %2, moving you to %3.", victim, victim.location, dest)
prepstr = victim
"This hack is to store the victim for potential use in later verbs."
dobjstr = tostr(dobj = this)
iobjstr = tostr(iobj = dest)
player:_move_obj(dobj, iobjstr)
"Last modified by whiz (#3135) on Tue May  8 15:32:18 2001 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.