if second of hit then dohit;

##dohit: runsub dodangle;

##dodangle:
print "[$init_obj] winces as [$second] pokes into [$target], 'sorry'";