@verb #9090:"rename" any any any rdo #7446
@program #9090:"rename" 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 name.")
name = $cmd_utils:Read("in the name")
this.rooms[this.zone][toint(argstr)][2] = name
player:tell("Name set.")
"Last modified by Dax (#789) on Tue May  3 14:12:33 2005 MDT."
.