@verb #9090:"desc" any any any rdo #7446
@program #9090:"desc" any any any
if (this:uhuh())
  return
endif
if (!(player in this.ppl))
  return 0
endif
room = toint(argstr)
if (toint(argstr) > length(this.rooms[this.zone]) || toint(argstr) < 1)
  return player:tell("Invalid.")
endif
player:tell("Type in the description.")
desc = $cmd_utils:read_lines()
this.rooms[this.zone][toint(argstr)][3] = desc
player:tell("Description set.")
"Last modified by Dax (#789) on Tue May  3 14:12:33 2005 MDT."
.