2ec
@verb #8:"@lock_for_open" this with/using any rdo #55
@program #8:"@lock_for_open" this with/using any
player:isa($guardian) || set_task_perms(player)
key = $lock_utils:parse_keyexp(iobjstr, player)
if (typeof(key) == $STR)
  player:sub_tell($lock_utils:msg_malformed_key(), key)
else
  res = `this.open_key = key ! ANY'
  if (typeof(res) == $ERR)
    player:tell(res, ".")
  else
    player:sub_tell($lock_utils:msg_locked_open(), this, $lock_utils:unparse_key(key))
  endif
endif
"Last modified by Dax (#789) on Sun Jul 21 14:55:17 2002 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Tue May  3 13:45:55 2005 MDT."
.

0