get $target;
if $target > 0 then unlockit else fail;
##unlockit:
set $target's pwd to '';
say 'act',"[$actor] unlocks [$target] like a janitor.";
##fail:
var $click_cmd to 'lockpick';
var $desc_intro to 'Click on an object to unlock it:

';
look $loc,list;
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";