X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/0b17bd18ae642a22d7c9fd5411d85ab08f36b61d..e3dac38771fe8c06e4c19c42403f7fb9b7f09da8:/sc.plp diff --git a/sc.plp b/sc.plp index 4fc00ba..c8be6c7 100644 --- a/sc.plp +++ b/sc.plp @@ -48,6 +48,31 @@ my $patch = shift @{$units} print "
Unit properties as seen or measured in $scver{name}\n$patch.\n
\n\n"; +for my $unit (@{$units}) { + for my $upgrade (@{ $unit->{upgrade} // $unit->{update} // [] }) { + while (my ($col, $increase) = each %{$upgrade}) { + defined $unit->{$col} or next; + + if (ref $increase eq 'ARRAY') { + for my $incrow (0 .. $#{$increase}) { + while (my ($inccol, $subinc) = each %{ $increase->[$incrow] }) { + $unit->{upgraded}->{$col}->[$incrow]->{$inccol} + //= ref $unit->{$col}->[$incrow]->{$inccol} + ? $unit->{$col}->[$incrow]->{$inccol}->[-1] + : $unit->{$col}->[$incrow]->{$inccol}; + $unit->{upgraded}->{$col}->[$incrow]->{$inccol} + += ref $subinc ? $subinc->[-1] : $subinc; + } + } + } + elsif ($increase =~ /^-?[0-9.]+/) { + $unit->{upgraded}->{$col} //= $unit->{$col}; + $unit->{upgraded}->{$col} += $increase; + } + } + } +} + sub coltoggle { my ($name, $id) = @_; return sprintf( @@ -77,47 +102,10 @@ sub coltoggle { <: sub showrange { my ($min, $max) = @_; - $_ = int($_ + .5) for $min, $max; # round halves up - return $min == $max ? $min : "$min-$max"; -} - -sub showval { - my ($row, @elements) = @_; - my ($min, $max); - - my $value = $row; - $value = ref $value eq 'HASH' ? $value->{$_} - : ref $value eq 'ARRAY' && $value->[$_] or last for @elements; - if (ref $value eq 'ARRAY') { - $min = $value->[0]; - $max = $value->[-1]; - } - else { - $min = $max = $value; - } - defined $min or return ''; - - if ($row->{upgrade}) { - for (@{ $row->{upgrade} }) { - my $increase = $_ or next; - $increase = ref $increase eq 'HASH' ? $increase->{$_} - : ref $increase eq 'ARRAY' && $increase->[$_] or last for @elements; - $increase = $increase->[-1] if ref $increase eq 'ARRAY'; - $max += $increase if $increase; - } - } - - if ($elements[0] eq 'attack' and $elements[2] eq 'dps') {{ - my $attack = $row->{ $elements[0] }->[ $elements[1] ]; - my $type = $attack->{type} or next; - if ($type eq 'explosive') { - $min /= 2; - } - elsif ($type eq 'implosive') { - $min /= 4; - } - }} - return showrange($min, $max); + return '' if not defined $min; + $_ &&= int($_ + .5) for $min, $max; # round halves up + return $min if not defined $max or $min == $max; + return "$min-$max"; } sub showattack { @@ -125,32 +113,48 @@ sub showval { my $attack = $row->{attack}->[$area] or return '