X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b274dda92ace617497bf5866832b46629ba79209..8ad63ee2484b0c1f344e6f8ff5fbd4ccbd963e1b:/sc.plp diff --git a/sc.plp b/sc.plp index 26c8a97..76974c9 100644 --- a/sc.plp +++ b/sc.plp @@ -259,44 +259,24 @@ sub showrange { } @$specials; } - my $units = do $datafile; - die "Cannot open unit data: $_\n" for $@ || $! || (); - my $grouped = !exists $get{order}; - if (exists $get{order}) { - $get{order} ||= ''; - if ($get{order} eq 'size') { - $_->{order} = $_->{unit}*8 + $_->{suit} + $_->{hp}/512 + $_->{min}/8192 for @$units; - } - elsif ($get{order} eq 'cost') { - $_->{order} = $_->{gas}*1.5 + $_->{min} + $_->{unit}/8 + $_->{build}/256/8 for @$units; - } - else { - $units->[$_]->{order} = $_ for 0 .. $#$units; + sub showunitcols { + my ($row) = @_; + local $_ = $row; + my $suitchar = ''; + if ($_->{suit}) { + $suitchar = [qw/? s m l/]->[$_->{suit}]; } - } - my @rows = $grouped ? @$units : sort {$a->{order} <=> $b->{order}} @$units; - my ($race, $cat) = ('', ''); - for (@rows) { - $race = $_->{race}, - printf '