- !$suitchar ? '<td>' : sprintf('<td class="unit unit-%s">%s%s',
- $suitchar, ucfirst $suitchar,
- $_->{attr}->{massive}
- && '<span class="unit-massive" title="massive">⚓</span>',
+ sprintf('<td class="unit unit-%s" title="%4$s%3$s">%s',
+ $_-> {cargo} < 0 ? ('supply', T => 'transport') :
+ $_->{upgraded}->{cargo} < 0 ? ('supply magic-opt', T => 'optional transport') :
+ $_-> {attr}->{flying} ? ('air', F => 'flying') :
+ $_->{upgraded}->{attr}->{flying} ? ('air magic-opt', F => 'potentially flying') :
+ $_->{attr}->{structure} ? ('x', B => 'building') :
+ (
+ [qw( x s m l l h h h h )]->[ $_->{cargo} ],
+ $_->{cargo} || '-',
+ $_->{cargo} ? 'transportable' : 'untransportable',
+ ),
+ defined $_->{size} && sprintf('⌀%.1f ', $_->{size}),