if second of hit then dohit;

##dohit: runsub howhurt;

##howhurt:
print "[$init_obj] bites [$target] with [$actor]";
print "[$actor] glistens";