get $target,$rel,$second in $loc;
if $second > 0 then flickwith else chkone;
##chkone:
get $target in $loc;
if $target > 0 then doit else fail;
##doit:
clear $actor,all;
set $actor's host to $target;
set $actor's hosthow to 'beside';
say 'flick',"[$actor] flicks [$target]";
rem look $loc;

##flickwith:runsub isitme;
say 'flick',"[$init_obj] flicks [$target] $rel [$second]";

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

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