sc: indicate maintenance cost of specials
authorMischa POSLAWSKY <perl@shiar.org>
Sun, 14 Jun 2015 09:36:08 +0000 (11:36 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Sun, 14 Jun 2015 09:36:08 +0000 (11:36 +0200)
sc.plp

diff --git a/sc.plp b/sc.plp
index 88459de..e1e4fe2 100644 (file)
--- a/sc.plp
+++ b/sc.plp
@@ -166,8 +166,11 @@ sub showval {
                                        $_->{desc} ? ": $_->{desc}" : '',
                                        $_->{range} || $_->{cost} ? sprintf(' (%s)', join ', ',
                                                $_->{range} ? "range $_->{range}" : (),
-                                               $_->{cost} ? sprintf('cost %.0f%%',
-                                                       100 * $_->{cost} / $row->{energy}
+                                               $_->{cost} ? sprintf('cost %.0f%%%s',
+                                                       100 * $_->{cost} / $row->{energy},
+                                                       defined $_->{maint} && sprintf('+%.1f%%/s',
+                                                               100 * $_->{maint} / $row->{energy},
+                                                       ),
                                                ) : (),
                                        ) : '',
                                ),