sub damage {
    my ($self, $hits) = @_;