@verb #8438:"@go*to" any none none rdo #8438
@program #8438:"@go*to" any none none
if (!args)
  return player:tell("Syntax: ", verb, " <place>")
endif
room = 0
if (index(argstr, "#"))
  room = toobj(argstr)
  if (!room:isa($room))
    return player:tell(argstr, " isn't a room.")
  endif
else
  if (argstr == "home")
    room = player.home
  else
    room = player:match_object(tostr("@", argstr))
    if (room == $failed_match)
      return player:tell("There is no such place known.")
    elseif (room == $ambiguous_match)
      return player:tell("There is more than one room that matches \"", argstr, "\"")
    endif
  endif
endif
if (!room:accept(player))
  return room:isa(#3310) ? 0 | player:tell(room:title(), " rejected ", player:title(), "!")
else
  player.location:sub_announce(player:verb_or_property("msg_odepart"), room:title())
  player:moveto(room)
  player.location:sub_announce(player:verb_or_property("msg_oarrive"), player.location:title())
  return
endif
"Last modified by Dax (#789) on Thu Nov  8 11:53:56 2001 MST."
.