if second of hit then dohit;

##dohit: runsub howhurt;

##howhurt:
var $one to (shoots, throws, swings, twirls, stabs, thrusts, slashes);
var $two to (quickly, steadily, forcefully, rapidly);
print "[$init_obj] $one [$actor] $two at [$target]";