get $target in $loc;

if $target > 0 then chklock else fail;
##chklock:
if $pw like $target's pwd then moreit else itslocked;

##moreit:
var $qt to $target's qty;
add 10 to $qt;
set $target's qty to $qt;
say 'msg',"there are now $qt of [$target] thanks to [$actor]";
msg $loc,$actor,0,0,'force',"force:look $loc";

##itslocked:
say 'lessfailed',"[$actor] could not increase [$target] because it's locked";

##fail:
var $click_cmd to 'more';
var $desc_intro to 'Click on the object you want to increase:

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