sc: indicate buildings by size "B"

[sheet.git] / sc.plp

diff --git a/sc.plp b/sc.plp
index 59ef95cfe84d9d4f4470d0ff9b17b06bc8578e50..88459de209db7ebfea664984b1d962dec2c8a44e 100644 (file)
--- a/sc.plp
+++ b/sc.plp
@@ -180,7 +180,10 @@ sub showval {
                local $_ = $row;
                $_->{hp} += $_->{shield} if $_->{shield};
                my $suitchar = '';
                local $_ = $row;
                $_->{hp} += $_->{shield} if $_->{shield};
                my $suitchar = '';

-               if ($_->{suit}) {
+               if ($_->{attr}->{structure}) {
+                       $suitchar = 'b';
+               }
+               elsif ($_->{suit}) {

                        $suitchar = [qw/? s m l/]->[$_->{suit}];
                }
                elsif ($_->{cargo} > 0) {
                        $suitchar = [qw/? s m l/]->[$_->{suit}];
                }
                elsif ($_->{cargo} > 0) {