@verb #9090:"dig" any at/to any rdo #7446
@program #9090:"dig" any at/to any
if (!(player in this.ppl))
  return
elseif (this:uhuh())
  return
endif
cow = {"n", "e", "s", "w", "u", "d"}
if (!dobjstr)
  return player:tell("Usage: Dig <direction> to <room>")
endif
kee = dobjstr[1]
if (!(kee in cow))
  return player:tell("Valid Exits are: North, East, South, West, Up, Down")
endif
woo = kee in cow
toroom = toint(iobjstr)
if (toroom < 1 || toroom > length(this.rooms[this.zone]))
  return player:tell("Invalid room.")
endif
if (this:loc(player) == 0)
  return player:tell("You cannot dig an exit from the connection room.")
endif
la = this.rooms[this.zone][this:loc(player)]
la[5][woo] = toint(iobjstr)
this.rooms[this.zone][this:loc(player)] = la
player:tell("Exit `", dobjstr, "' now leads to room # ", iobjstr, " .")
"Last modified by Dax (#789) on Tue May  3 14:09:37 2005 MDT."
.