@verb #2385:"add" any at/to this rdo #2385
@program #2385:"add" any at/to this
if (args[1] == "con")
  if ($command_utils:yes_or_no("Are you sure you want to add something bad about " + this:title() + "?"))
    what = $command_utils:read()
    this.con_desc = setadd(this.con_desc, what + " (" + player.name + " (" + tostr(player) + "))")
    this:tell(player.name + " (" + tostr(player) + ") has just added something bad to your list.")
  endif
elseif (args[1] == "pro")
  what = $command_utils:read()
  this.pro_desc = setadd(this.pro_desc, what + " (" + player.name + " (" + tostr(player) + "))")
  this:tell(player.name + " (" + tostr(player) + ") has just added something good to your list.")
endif
"Last modified by Slackeur (#55) on Mon Dec 28 18:24:56 1998 MST."
.