2da
@verb #7351:"@addkey @add-key" any none none rdo #9921
@program #7351:"@addkey @add-key" any none none
if (!this:controlled_by(player))
  player:tell(E_PERM)
  return E_PERM
endif
if ($command_utils:object_match_failed(key = player:my_match_object(dobjstr), dobjstr))
  return
endif
if ($command_utils:yes_or_no(tostr("Add ", $string_utils:nn(key), " as a key to ", this:title(), "?")))
  apt = listiassoc(this.apt, $MCA.rooms)
  $MCA.rooms[apt] = setadd($MCA.rooms[apt], key)
  return player:tell($string_utils:nn(key), " added. Please ask Lao or Jay to remove it if needed.")
else
  return player:tell("No new key added.")
endif
"Last modified by MOOApartmentProjie (#9921) on Wed Nov 11 20:01:43 1998 EST."
.

0