@verb #1994:"@vexit" none at/to any rdo #6118
@program #1994:"@vexit" none at/to any
if (!this:controlled_by(player))
  return player:tell("Umm. . .no.")
endif
player:tell("Adding vitural link. . .")
room = toobj(iobjstr)
if (!room:isa($room))
  return player:tell(iobj, " is not a valid room.")
endif
link = `this.dests[length(this.exits) + 1] ! ANY => 0'
if (!link)
  return player:tell("No free exits.")
else
  for x in [1..length(this.exits)]
    exit = this.exits[x]
    if (listiassoc(link, exit, 1))
      link = this.dests[(link in this.dests) + 1]
    endif
  endfor
endif
short = !index(link, "-") ? link[1] | link[1] + link[index(link, "-") + 1]
link = {{link, short}, room}
suspend(2)
this.exits = {@this.exits, link}
this:announce("With a cute little pop a new door appears leading to ", $string_utils:nn(room), ".")
return player:tell("Virutal exit created via ", link[1][1], " to ", $string_utils:nn(room), ".")
"Last modified by Jay (#8438) on Tue Dec 21 09:11:12 1999 MST."
.