get $target in $loc;
if $target > 0 then copyit else fail;

##chklock:
if $pw like $target's pwd then copyit else fail;

##copyit:
copy $target;
say 'copy',"[$actor] copies [$target]";
msg $loc,$actor,0,0,'force',"force:look $loc";

##fail:
if $counter > 0 then end else listall;
##listall:
var $click_cmd to 'copy';
var $desc_intro to "Click on the object you want to $click_cmd:
";
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";