X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/1765f080901b6e821b148a4d6ad7b49aee5da03f..1b57f59204dcd2185286dffc630a9f88bf1f55d9:/sc.plp diff --git a/sc.plp b/sc.plp index df78b8e..d8e89de 100644 --- a/sc.plp +++ b/sc.plp @@ -55,13 +55,14 @@ print "Also see the $_ table.\n" for join(', ', print "

\n\n"; sub addupgrade { - my ($ref, $increase) = @_; + my ($ref, $increase, $org) = @_; if (ref $increase eq 'HASH') { - addupgrade(\${$ref}->{$_}, $increase->{$_}) for keys %{$increase}; + addupgrade(\${$ref}->{$_}, $increase->{$_}, $org->{$_}) for keys %{$increase}; } elsif (ref $increase eq 'ARRAY') { - addupgrade(\${$ref}->[$_], $increase->[$_]) for 0 .. $#{$increase}; + addupgrade(\${$ref}->[$_], $increase->[$_], $org->[$_]) for 0 .. $#{$increase}; } + ${$ref} //= $org; ${$ref} += $increase if $increase =~ /^-?[0-9.]+/; } @@ -69,7 +70,15 @@ for my $unit (@{$units}) { for my $upgrade (@{ $unit->{upgrade} }) { while (my ($col, $increase) = each %{$upgrade}) { defined $unit->{$col} or next; - addupgrade(\( $unit->{upgraded}->{$col} //= $unit->{$col} ), $increase); + addupgrade(\$unit->{upgraded}->{$col}, $increase, $unit->{$col}); + } + } + for my $special (@{ $unit->{special} }) { + for my $upgrade (@{ $special->{upgrade} }) { + while (my ($col, $increase) = each %{$upgrade}) { + defined $special->{$col} or next; + addupgrade(\$special->{upgraded}->{$col}, $increase, $special->{$col}); + } } } } @@ -86,10 +95,11 @@ sub coltoggle { <:= coltoggle('name', '') :> - min - gas + cost + gas <:= coltoggle(qw'build cost') :> - <:= coltoggle(qw'size size') :> + <:= coltoggle(qw'size size') :> + attr HP shield ⛨ @@ -104,56 +114,92 @@ sub coltoggle { sub showrange { my ($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 || '-' if !$max or $min == $max; return "$min-$max"; } +sub showrangeint { + $_ &&= int($_ + .5) for @_; # round halves up + return showrange(@_); +} + + sub showcost { + my ($row, $unit) = @_; + return join(' ', + sprintf('cost %s%%', join '-', + map { $_ && sprintf '%.0f', 100 * $row->{cost} / $_ } grep { defined $_ } + $unit->{energy}, + $unit->{upgraded}->{energy}, + $unit->{capacity}, + $unit->{upgraded}->{capacity}, + ), + !defined $row->{maint} ? () : sprintf('+%s%%/s', join '-', + map { sprintf '%.1f', 100 * $row->{maint} / $_ } grep $_, + $unit->{capacity}, + $unit->{upgraded}->{capacity}, + ), + ); + } + sub showattack { my ($row, $area) = @_; my $attack = $row->{attack}->[$area] - or return ''; + or return ''; my $upattack = $row->{upgraded}->{attack}->[$area]; my $damage = $attack->{damage}; my $maxdamage = $upattack->{damage} // $damage; - $damage = $damage->[0] if ref $damage; - $maxdamage = $maxdamage->[-1] if ref $maxdamage; + $maxdamage += ($upattack->{upgrade} // $attack->{upgrade}) * 3; my $out = ''; - $out .= "$attack->{count}× " if $attack->{count} > 1; + $out .= sprintf '¤ ', showcost($attack, $row) + if $attack->{cost}; + $out .= sprintf('%s× ', + showrangeint($attack->{count}, $upattack->{count}), + ) if $attack->{count} > 1; $out .= '*' if $attack->{type} eq 'explosive'; $out .= '~' if $attack->{type} eq 'implosive'; + if (my @bonus = sort grep { !/^-/ } keys %{ $attack->{bonus} }) { $out .= sprintf('≥', (map { - $_ =~ /^light/ ? 'unit-s' : + $_ eq 'light' ? 'unit-s' : $_ eq 'armored' ? 'unit-l' : $_ eq 'organic' ? 'unit-o' : - $_ =~ /^massive/ ? 'unit-h' : + $_ eq 'massive' ? 'unit-h' : $_ eq 'shields' ? 'unit-shield' : '', - } join '_', keys %{ $attack->{bonus} }), + } join '_', @bonus), join(', ', map {( sprintf('+%s vs %s', - (map { - ref $_ ? showrange($_->[0], $_->[-1]) : $_ - } $attack->{bonus}->{$_}), + showrangeint( + $attack->{bonus}->{$_}, + $attack->{bonus}->{$_} + $attack->{bonus}->{"-$_"} * 3, + ), $_, ), - )} keys %{ $attack->{bonus} }), - ) if $attack->{bonus}; + )} @bonus), + ); + } + $out .= '•' + if $attack->{type} eq 'projectile'; $out .= sprintf '', $attack->{name} if $attack->{name}; - $out .= showrange($damage, $maxdamage); + $out .= showrangeint($damage, $maxdamage); $out .= '' if $attack->{name}; $out .= sprintf('%s', - $attack->{splash} eq 'line' ? ('linear', '×') : ('splash', '+') + $attack->{splash} eq 'line' ? ('linear', '+') : ('splash', '⁜') ) if $attack->{splash}; $out .= ''; - if ($attack->{cooldown}) { + if ($attack->{dps}) { + # precalculated dps, do not touch + $out .= showrangeint($attack->{dps}->[0], + $upattack->{dps}->[-1] // $attack->{dps}->[-1] + ); + } + elsif ($attack->{cooldown}) { if (my $type = $attack->{type}) { if ($type eq 'explosive') { $damage /= 2; @@ -165,17 +211,21 @@ sub showrange { $damage *= ($attack->{count} // 1) / $attack->{cooldown}; if (my $bonus = $upattack->{bonus} // $attack->{bonus}) { $maxdamage += $_ for max( - map { ref $_ ? $_->[-1] : $_ } values %{$bonus} + map { $bonus->{$_} + $bonus->{"-$_"} * 3 } + grep { !/^-/ } keys %{$bonus} ); } $maxdamage *= ($upattack->{count} // $attack->{count} // 1) / ($upattack->{cooldown} // $attack->{cooldown}); - $out .= showrange($damage, $maxdamage); + $out .= showrangeint($damage, $maxdamage); } $out .= '' . '▽' x !!($attack->{anti} & 1); $out .= '' . '△' x !!($attack->{anti} & 2); + $out .= '' . + showrangeint($attack->{range}, $upattack->{range}); + return $out; } @@ -188,15 +238,12 @@ sub showrange { join('', $_->{name}, $_->{desc} ? ": $_->{desc}" : '', - $_->{range} || $_->{cost} ? sprintf(' (%s)', join ', ', + (map { $_ && " ($_)" } join ', ', + #TODO: apply upgrades $_->{range} ? "range $_->{range}" : (), - $_->{cost} ? sprintf('cost %.0f%%%s', - 100 * $_->{cost} / $row->{energy}, - defined $_->{maint} && sprintf('+%.1f%%/s', - 100 * $_->{maint} / $row->{energy}, - ), - ) : (), - ) : '', + $_->{cost} ? showcost($_, $row) : + $_->{cooldown} ? "cooldown $_->{cooldown}s" : (), + ), ), sprintf($_->{build} ? '(%s)' : '%s', $_->{abbr}), } grep { defined $_->{abbr} } @{$specials}; @@ -206,25 +253,6 @@ sub showrange { my ($row) = @_; local $_ = $row; $_->{hp} += $_->{shield} if $_->{shield}; - my $suitchar = ''; - if ($_->{attr}->{structure}) { - $suitchar = 'b'; - } - elsif ($_->{suit}) { - $suitchar = [qw/? s m l/]->[$_->{suit}]; - } - elsif ($_->{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 ($_->{attr} and $_->{attr}->{light}) { - $suitchar = 's'; - } - elsif ($_->{attr} and $_->{attr}->{armored}) { - $suitchar = 'l'; - } return ( '' . ($_->{min} // ''), @@ -233,13 +261,21 @@ sub showrange { !!$_->{base} && '+', $_->{build} || '0', ), - !$suitchar ? '' : sprintf('%s%s', - $suitchar, ucfirst $suitchar, - $_->{attr}->{massive} - && '⚓', + sprintf('%s', + $_-> {cargo} < 0 ? ('supply', T => 'transport') : + $_->{upgraded}->{cargo} < 0 ? ('supply magic-opt', T => 'optional transport') : + $_->{attr}->{flying} ? ('air', F => '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}), ), - '' . ( - defined $_->{unit} && $_->{unit} == .5 ? '½' : $_->{unit} + sprintf('%s', + defined $_->{pop} && $_->{pop} < 0 && ' unit-supply', + defined $_->{pop} && $_->{pop} == .5 ? '½' : $_->{pop}, ), '' . join('', grep { $_ } (defined $_->{organic} ? !$_->{organic} : $_->{attr}->{mech}) @@ -254,29 +290,42 @@ sub showrange { && 'A', $_->{attr}->{light} && 'L', + $_->{suit} && sprintf( + '%s', + map { @{$_} } [ + [qw( x ? unknown )], + [qw( s S small )], + [qw( m M medium )], + [qw( l L large )], + ]->[ $_->{suit} ], + ), + $_->{attr}->{massive} + && '⚓', ), '' . $_->{hp} // '', $_->{shield} ? sprintf('%.0f%%{shield} / $_->{hp} ) : '' . - showrange($_->{armor}, $_->{upgraded}->{armor}), + showrangeint($_->{armor}, $_->{upgraded}->{armor}), showattack($_, 0), - '' . - showrange(map { $_->{attack}->[0]->{range} } $_, $_->{upgraded}), '' . sprintf( $_->{detect} ? '%s' : '%s', - showrange($_->{sight}, $_->{upgraded}->{sight}) + showrangeint($_->{sight}, $_->{upgraded}->{sight}) ), '' . - showrange($_->{speed}, $_->{upgraded}->{speed}), + showrange( + map { $_ && sprintf '%.1f', $_ } + $_->{speed}, $_->{upgraded}->{speed} + ), $_->{attr}->{jump} && qq'↕', - $_->{attr}->{flying} - && qq'↑', '' . showmagic($_), !$_->{attack}->[1] ? () : ( - '', showattack($_, 1), '' + '', showattack($_, 1), '' + ), + !$_->{attack}->[2] ? () : ( + '', showattack($_, 2), '' ), "\n" ); @@ -288,19 +337,19 @@ sub showrange { $get{order} ||= ''; if ($get{order} eq 'size') { $_->{order} = ( - $_->{unit}*16 + ($_->{size} // $_->{suit}) + $_->{cargo}/8 + $_->{pop}*16 + ($_->{size} // $_->{suit}) + $_->{cargo}/8 + $_->{hp}/512 + $_->{min}/8192 ) for @$units; } elsif ($get{order} eq 'cost') { $_->{order} = ( - $_->{gas}*1.5 + $_->{min} + $_->{unit}/8 + $_->{build}/256/8 + $_->{gas}*1.5 + $_->{min} + $_->{pop}/8 + $_->{build}/256/8 ) for @$units; } elsif ($get{order} eq 'attack') { $_->{order} = $_->{hp} / 1024 + $_->{shield} / 1008 + max( map { - ((map { ref $_ ? $_->[-1] : $_ } $_->{damage})[0]) + ($_->{damage} + $_->{upgrade} * 3) * ($_->{count} // 1) / ($_->{cooldown} // 1) * ($_->{splash} ? 1.01 : 1) * ($_->{type} eq 'implosive' ? .96 : 1) @@ -356,19 +405,9 @@ sub showrange {
excludes construction of dependencies such as buildings and +parent units
size -
<: -if ($scver{major} > 1) { - :>transports can fit 8 Small, - 4 Medium, - 2 Large, - or a single Huge unit -
massive ⚓ units - cannot be lifted or slowed and can break force fields<: -} else { - :>affected by Small, - Medium, or - Large unit damage<: -} :> +
Transports can fit upto + 8 + non-Flying units
number of command points taken per unit
<: if ($scver{major} > 1) { @@ -378,9 +417,14 @@ if ($scver{major} > 1) { ψ(ps)ionic, Light, and Armored - attributes<: + attributes +
massive ⚓ units + cannot be lifted or slowed and can break force fields<: } else { - :>organic/mechanic unit<: + :>organic/mechanic unit +
affected by Small, + Medium, or + Large unit damage<: } :>
HP
total number of hitpoints (including shields) @@ -398,12 +442,14 @@ if ($scver{major} > 1) {
damage given per single hit
dps indicates relative amount of damage done in 1 second of in-game time -
splash damage hits all objects nearby + - or in a straight line ×. +
splash damage hits all objects nearby ⁜ + or in a straight line +.
<: if ($scver{major} > 1) { :>does not include ≥bonus damage - dealt to susceptible unit types<: + dealt to susceptible unit types +
•projectile shots are negated by + Point Defense Drones<: } else { :>*explosive damage does only 50% damage to small units, 75% to medium, 100% to large @@ -413,18 +459,18 @@ if ($scver{major} > 1) {
targets ▽ ground and/or △ air
range -
maximum range of weapon (note siege tank also has a minimum range) +
maximum range of weapon (note Sieged Tank also has a minimum range)
sight
range in which the unit detects other units
emphasis indicates ability to detect cloaked units
speed
relative speed of movement (when in full motion, startup speed ignored)
specials -
special abilities are usually casted manually, but some are always active
parentheses () indicate that it needs to be researched first +
passive abilities are always enabled
hover for description
range is maximum range required to activate -
cost is percentage of total energy lost +
cost is energy loss percentage on spawn and when fully charged