@verb #4860:"@addkey" any at/to this rdo #2322
@program #4860:"@addkey" any at/to this
if (player == this.owner)
  own = this.owner
  adding = args[1]
  player:tell("Hello, ", player:title(), "!")
  if (this.key == 0)
    this.key = adding
    player:tell("Okay... Added ", adding, " to the key list.")
  elseif (this.key != 0)
    playerloc = player.location
    if (adding in playerloc.key || playerloc.key == adding)
      player:tell(adding, "is already a key for ", this.name)
    else
      this.key = {@this.key, adding}
      player:tell("Okay... Added ", adding, " to the key list.")
    endif
  endif
elseif (player != this.owner)
  player:tell("Sorry only the owner of the room may add keys to here")
endif
"Last modified by Roosterman (#2322) on Tue Feb  8 13:29:40 2000 MST."
.