get $target in $loc;
if $target > 0 then unhostit else fail;
##unhostit:
clear $target,all;
say 'push',"[$actor] punches [$target]";
look $loc;
msg $loc,$actor,0,0,'force',"force:look $loc";

runsub noisy/3;
##noisy:
msg 0,$actor,0,0,"act","You hear the a gentle thud";
##fail:
var $click_cmd to 'punch';
var $desc_intro to 'Click on the object you want to punch:

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