if $second > 0 then pokewith else chkone;
##pokewith:
$with = "with [$second]";
runsub unhostit;
##chkone:
if $target > 0 then unhostit else fail;
##unhostit:
clear $target,all;
say 'ring',"[$actor] rings [$target] $with";
look $loc;

runsub noisy/3;
##noisy_not:
##fail:
var $click_cmd to 'ring';
var $desc_intro to 'Click on the object you want to ring:

';
look $loc,list;