sc: indicate hots bonus damage by ">" prefix

diff --git a/sc.plp b/sc.plp
index b06f22ec11f38b5ba190f174a78323f2f7abedfc..4481b920c7f664aa7c88ed4620c64ffdc8cb9c4f 100644 (file)
--- a/sc.plp
+++ b/sc.plp
@@ -124,6 +124,23 @@ sub showrange {
                        if $attack->{type} eq 'explosive';
                $out .= '<span class="unit-s" title="implosive">~</span>'
                        if $attack->{type} eq 'implosive';
                        if $attack->{type} eq 'explosive';
                $out .= '<span class="unit-s" title="implosive">~</span>'
                        if $attack->{type} eq 'implosive';

+               $out .= sprintf('<span class="%s" title="%s">&ge;</span>',
+                       (map {
+                               $_ =~ /^light/ ? 'unit-s' :
+                               $_ eq 'armored' ? 'unit-l' :
+                               $_ eq 'organic' ? 'unit-o' :
+                               $_ =~ /^massive/ ? 'unit-h' :
+                               '',
+                       } join '_', keys %{ $attack->{bonus} }),
+                       join(', ', map {(
+                               sprintf('+%s vs %s',
+                                       (map {
+                                               ref $_ ? showrange($_->[0], $_->[-1]) : $_
+                                       } $attack->{bonus}->{$_}),
+                                       $_,
+                               ),
+                       )} keys %{ $attack->{bonus} }),
+               ) if $attack->{bonus};

                $out .= showrange($damage, $maxdamage);
                $out .= sprintf('<span class="unit-splash" title="%s">%s</span>',
                        $attack->{splash} eq 'line' ? ('linear', '×') : ('splash', '+')
                $out .= showrange($damage, $maxdamage);
                $out .= sprintf('<span class="unit-splash" title="%s">%s</span>',
                        $attack->{splash} eq 'line' ? ('linear', '×') : ('splash', '+')