get $target in $loc;
if $target > 0 then blastit else fail;
##blastit:
touch $target;
set $target's host to '';
say 'blasts',"[$actor] blasts [$target]";
msg $loc,$target,$target,$second,'says',"[$target] flys backwards!";
msg $loc,$target,$target,$second,'says',"[$target] said 'OUCH!'";
look $loc;
##fail:
if $counter > 0 then end else listall;
##listall:
var $click_cmd to 'blast';
var $desc_intro to "Click on the object you want to $click_cmd:

";
look $loc,list;