my $attack = $row->{attack}->[$area]
or return '<td colspan=4 class="hurt">';
- my $tagbase = '';
- $tagbase .= '<td class="unit hurt-g">' . '▽' x !!($attack->{anti} & 1);
- $tagbase .= '<td class="unit hurt-a">' . '△' x !!($attack->{anti} & 2);
- $tagbase .= '<td class="val hurt';
+ my $out = '';
+ $out .= '<td class="unit hurt-g">' . '▽' x !!($attack->{anti} & 1);
+ $out .= '<td class="unit hurt-a">' . '△' x !!($attack->{anti} & 2);
+ $out .= '<td class="val hurt';
if (ref $attack and $attack->{type}) {
if ($attack->{type} eq 'explosive') {
- $tagbase .= ' unit-l';
+ $out .= ' unit-l';
}
elsif ($attack->{type} eq 'implosive') {
- $tagbase .= ' unit-s';
+ $out .= ' unit-s';
}
}
- $tagbase .= '">';
+ $out .= '">';
my $upattack = $row->{upgraded}->{attack}->[$area];
my $maxdamage =
($damage, $maxdamage) = ($damage->[0], $upattack->{damage} // $damage->[-1])
if ref $damage;
- my $out = showrange($damage, $maxdamage);
+ $out .= "<small>$attack->{count}× </small>" if $attack->{count} > 1;
+ $out .= showrange($damage, $maxdamage);
$out .= sprintf('<span class="unit-splash" title="%s">%s</span>',
$attack->{splash} eq 'line' ? ('linear', '×') : ('splash', '+')
) if $attack->{splash};
$out .= showrange($damage, $maxdamage);
}
- return $tagbase . $out;
+ return $out;
}
sub showmagic {