@verb #1994:"_move" this none this rxdo #6118
@program #1994:"_move" this none this
"Moves the player using the VExit system."
caller == this || raise(E_PERM)
{who, dir, where} = args
if (where:accept(who))
  this:sub_announce("%1 leaves for the %2.", who, dir)
  who:moveto(where)
  where:sub_announce("%1 has arrived.", who)
  return 1
else
  who:tell("You can't go that way.")
  return 0
endif
.