@verb #7407:"@T*eleport @port t*eleport @go" any any any rdo #7407
@program #7407:"@T*eleport @port t*eleport @go" any any any
if (player != this)
  raise(E_PERM, "Uh, I doubt it.")
endif
old_loc = this.location
if (tostr(toobj(args[1])) != args[1])
  rooms = $room_db:find_all(argstr)
  if (length(rooms) > 1)
    player:tell("More than one room matches \"" + argstr + "\"")
    return $ambiguous_match
  elseif (rooms == {})
    player:tell("\"" + argstr + "\" doesn't exist.")
    return $failed_match
  else
    if (this:moveto(@rooms) == 0)
      old_loc:sub_announce_all_but({this}, $code_utils:verb_or_property(this, "odepart_msg"), this.location:title())
      this.location:sub_announce_all_but({this}, $code_utils:verb_or_property(this, "oarrive_msg"), old_loc:title())
      return 1
    else
      player:tell("Move failed.")
      return 0
    endif
  endif
else
  room = toobj(args[1])
  if (this:moveto(room) == 0)
    old_loc:sub_announce_all_but({this}, $code_utils:verb_or_property(this, "odepart_msg"), this.location:title())
    this.location:sub_announce_all_but({this}, $code_utils:verb_or_property(this, "oarrive_msg"), old_loc:title())
    return 1
  else
    player:tell("Move failed.")
    return 0
  endif
endif
"Last modified by Dax (#789) on Tue Jun  2 21:21:44 1998 EDT."
.