X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/e7d0872468d9ff54c39ac8a7e64f283ba093c7aa..e487749bf1899655bb0c7b7fe9c2d4cbff3b8021:/sc.plp diff --git a/sc.plp b/sc.plp index 13248fb..cf2155f 100644 --- a/sc.plp +++ b/sc.plp @@ -178,7 +178,13 @@ sub showval { local $_ = $row; $_->{hp} += $_->{shield} if $_->{shield}; my $suitchar = ''; - if ($_->{suit}) { + if ($_->{cargo} > 0) { + $suitchar = [qw/? s m l l h h h h/]->[abs $_->{cargo}]; + } + elsif ($_->{size}) { + $suitchar = [qw/s m l h h h/]->[$_->{size}]; + } + elsif ($_->{suit}) { $suitchar = [qw/? s m l/]->[$_->{suit}]; } @@ -275,9 +281,17 @@ sub showval {