get $target,$rel,$second in $loc;
if $second > 0 then usewith 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 'use',"[$actor] uses [$target]";
rem look $loc;

##usewith:runsub isitme;
say 'use',"[$init_obj] uses [$target] $rel [$second]";

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

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