42c
@verb #7165:"@join*1" any none none rdo #7165
@program #7165:"@join*1" any none none
"Moves the player to the location of the requested player or object."
set_task_perms(valid(caller_perms()) ? 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
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 = players()[random($)]
dobjstr = tostr(dobj = this)
iobjstr = tostr(iobj = dest)
player:_move_obj(dobj, iobjstr)
"Last modified by manta (#7165) on Tue Sep  8 23:38:50 1998 EDT."
.

0