@verb #13:"@lock" any with/using any rdo #55
@program #13:"@lock" any with/using any
set_task_perms(player)
if (!valid(dobj = player:my_match_object(dobjstr)))
  dobj = player.location:match_exit(dobjstr)
  if (typeof(dobj) == WAIF && dobj.class == $vexit)
    "We can lock those!"
  else
    $command_utils:object_match_failed(dobj, dobjstr)
    return
  endif
endif
key = $lock_utils:parse_keyexp(iobjstr, player)
if (typeof(key) == $STR)
  player:sub_tell($lock_utils:msg_malformed_key(), key)
else
  try
    r = dobj:_set_key(key)
    player:sub_tell($lock_utils:msg_locked(), dobj, $lock_utils:unparse_key(key))
  except (E_PERM)
    player:tell("You don't have permission to lock ", dobj:title())
  except (E_PROPNF)
    player:tell("Sorry, ", dobj:title(), " is not a @lockable object.")
  except (ANY)
    player:tell(`r ! E_VARNF => "unknown error, please report to a wizard."')
  endtry
endif
"Last modified by Dax (#789) on Tue May  3 13:43:06 2005 MDT."
.