@verb #3657:"advance" this none this rxdo #8219
@program #3657:"advance" this none this
caller != this && raise(E_PERM)
"Find the exit that goes in the way we want."
for exit in (this.location:exits())
  if (exit.name == this.orientation)
    exit:move(this)
    return 1
  endif
endfor
return 0
"Last modified by Avenger (#8219) on Sun Sep 29 14:29:38 2002 MDT."
.