- printf("\n- %-22s (%3sx%3s, %d objects)",
- $_->{id}, $_->{width}, $_->{height}, scalar @{ $_->{objects} },
+ printf("\n- %-22s%4s:%3s+%2s%3s %3sx%-3s%s",
+ $_->{id} || $_->{name},
+ @$_{qw/size bsize growth/},
+ $variant eq 'single' && "x$_->{peas}",
+ @$_{qw/width height/},
+ join(';', map {" $_"} grep {$_}
+ @{$_->{objects}} && sprintf('%2d object%s (%s)',
+ scalar @{$_->{objects}}, @{$_->{objects}} != 1 && 's',
+ objsummary($_->{objects}),
+ ),
+ @{$_->{sprite}} && sprintf('sprite %d',
+ scalar @{$_->{sprite}},
+ ),
+ ),