get $target in $loc;
if $target > 0 then doit else fail;
##doit:
say 'stroke',"[$actor] gently strokes [$target]";
look $loc;
##fail:
var $click_cmd to 'stroke';
var $desc_intro to 'Click on the object you want to stroke:

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