@verb #9090:"@addroom @modroom" any any any rdo #7446
@program #9090:"@addroom @modroom" any any any
if (verb == "@modroom")
  room = toint(argstr)
  if (room < 1 || room > length(this.rooms[this.zone]))
    return player:tell("Invalid Room.")
  endif
else
  room = 0
endif
if (!(player in this.ppl))
  return 0
endif
if (this:uhuh())
  return
endif
player:tell("What is the name of the room?")
name = $cmd_utils:read("in the name")
doing = 1
hs = {}
while (doing)
  player:tell()
  player:tell("Hiding spots:")
  player:tell("[1] Behind Something (a door, etc.)")
  player:tell("[2] On top of something (a roof, etc.")
  player:tell("[3] Inside something (a car, etc.)")
  player:tell("[0] Finished")
  wa = $cmd_utils:Read("in your selection")
  hee = toint(wa)
  if (hee == 0)
    doing = 0
    player:tell("Ok, finished.")
  elseif (!(hee in {1, 2, 3}))
    player:tell("Invalid.")
  else
    tohide = $cmd_utils:read("in the name of the hiding spot (ie. hide behind DOOR)")
    hs = listappend(hs, {hee, tohide})
  endif
endwhile
if (verb == "@modroom")
  this.rooms[this.zone][room] = {room.name, this.rooms[this.zone][room][3], hs, this.rooms[this.zone][room][5], this.rooms[this.zone][room][6], this.rooms[this.zone][room][7], this.rooms[this.zone][room][8]}
  return player:tell("Room Modified. ( ", room, " )")
else
  this.rooms[this.zone] = listappend(this.rooms[this.zone], {length(this.rooms) + 1, name, {"No Description Yet"}, hs, {0, 0, 0, 0, 0, 0}, 0, 0, 0})
endif
player:tell("Room Added. ( ", length(this.rooms[this.zone]), " )")
"Last modified by Dax (#789) on Tue May  3 14:09:37 2005 MDT."
.