X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/7914537c1fda7796579fee5f8b9bb8791d93d546..f7fa44273f72202f99ac370372908cb0cae7d420:/sc.plp diff --git a/sc.plp b/sc.plp index b20e51d..042719a 100644 --- a/sc.plp +++ b/sc.plp @@ -1,28 +1,37 @@ <(common.inc.plp)><: use List::Util qw(max sum); -my %scver = ( - id => 'bw', - name => 'Brood War', - title => 'starcraft', - game => 'StarCraft', - major => 1, -); - -if ($Request and $Request eq '2') { - %scver = ( - id => 'hots', +my %scvers = ( + bw => { + name => 'Brood War', + title => 'starcraft', + game => 'StarCraft BW', + major => 1, + }, + hots => { name => 'Heart of the Swarm', - title => 'starcraft2', - game => 'StarCraft II', + title => 'starcraft2 hots', + game => 'StarCraft II HotS', major => 2, - ); -} -my $datafile = "sc-units-$scver{id}.inc.pl"; + }, + lotv => { + name => 'Legacy of the Void', + title => 'starcraft2 lotv', + game => 'StarCraft II LotV', + major => 2, + }, +); + +$Request ||= 'bw'; +$Request = 'lotv' if $Request eq '2'; +my %scver = %{ $scvers{$Request} // {} } + or Html(), Abort("Requested version $Request not available", '404 request not found'); + +my $datafile = "sc-units-$Request.inc.pl"; Html({ title => "$scver{title} unit cheat sheet", - version => '1.1', + version => '1.2', description => [ "Reference of $scver{game} unit properties," . " comparing various statistics of all the units in $scver{name}" @@ -31,12 +40,13 @@ Html({ keywords => [ qw' starcraft game unit statistics stats comparison table sheet cheat - reference software attributes properties + reference software attributes properties patch attribute multiplayer ', - $scver{major} < 2 ? qw' bw broodwar brood war ' : qw' starcraft2 hots ', + $scver{major} < 2 ? qw' bw broodwar brood war ' : + qw' starcraft2 lotv hots wol ', ], - stylesheet => [qw'light'], - raw => '', + stylesheet => [qw( light dark )], + raw => '', data => [$datafile], }); @@ -48,9 +58,10 @@ my $patch = shift @{$units} or Abort("Cannot open unit data: metadata not found", 501); say "

Unit properties as seen or measured in $scver{name}\n$patch."; -say "Also see the $_ table." for join(', ', - (showlink('StarCraft 2: HotS', '/sc/2')) x ($scver{major} < 2), - (showlink('original SC: Brood War', '/sc')) x ($scver{major} > 1), +say "Also see the $_ tables." for join(' and ', + (showlink('StarCraft 2: LotV', '/sc/lotv')) x ($Request ne 'lotv'), + (showlink( 'HotS', '/sc/hots')) x ($Request ne 'hots'), + (showlink('original SC: Brood War', '/sc/bw')) x ($Request ne 'bw'), ); say "

\n"; @@ -92,12 +103,12 @@ sub coltoggle { :> - - - - + + + + - + @@ -253,16 +264,24 @@ sub showrangeint { $_->{hp} += $_->{shield} if $_->{shield}; return ( - '
<:= coltoggle(exists $get{order} ? 'race' : 'source' => '') :><:= coltoggle(name => 'name') :><:= coltoggle(cost => 'cost') :>gasbuild<:= coltoggle(name => 'name') :><:= coltoggle(cost => 'cost') :>gas<:= coltoggle(build => 'build') :> <:= coltoggle(qw'size size') :>attrattr <:= coltoggle(HP => 'hp') :> shield ⛨' . ($_->{min} // ''), - '' . ($_->{gas} || ''), - !defined $_->{build} ? '' : sprintf('%s%.0f', - !!$_->{base} && '+', - $_->{build} || '0', + '' . ($_->{min} // ''), + '' . ($_->{gas} || ''), + defined $_->{transform} ? sprintf('%.0f', + $_->{transform}, + ) : + !defined $_->{build} ? '' : sprintf('%s%.0f', + defined $_->{warp} && qq(title="$_->{build} without warpgate"), + !!$_->{base} && sprintf( + '+', + 'from '.join('+', @{ $_->{base} }), + ), + $_->{warp} // $_->{build} || '0', ), sprintf('%s', $_-> {cargo} < 0 ? ('supply', T => 'transport') : $_->{upgraded}->{cargo} < 0 ? ('supply magic-opt', T => 'optional transport') : - $_->{attr}->{flying} ? ('air', F => 'flying') : + $_-> {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} ], @@ -271,7 +290,7 @@ sub showrangeint { ), defined $_->{size} && sprintf('⌀%.1f ', $_->{size}), ), - sprintf('%s', + sprintf('%s', defined $_->{pop} && $_->{pop} < 0 && ' unit-supply', defined $_->{pop} && $_->{pop} == .5 ? '½' : $_->{pop}, ), @@ -300,7 +319,8 @@ sub showrangeint { $_->{attr}->{massive} && '⚓', ), - '' . $_->{hp} // '', + $_->{hp} < 0 ? '∞' : + '' . showrangeint($_->{hp}, $_->{upgraded}->{hp}), $_->{shield} ? sprintf('%.0f%%{shield} / $_->{hp} ) : '↕', '' . showmagic($_), !$_->{attack}->[1] ? () : ( - '
', showattack($_, 1), '' + '
', showattack($_, 1), '' ), !$_->{attack}->[2] ? () : ( - '
', showattack($_, 2), '' + '
', showattack($_, 2), '' ), "\n" ); @@ -356,6 +376,15 @@ sub showrangeint { $_->{gas}*1.5 + $_->{min} + $_->{pop}/8 + $_->{build}/256/8 ) for @rows; } + elsif ($get{order} eq 'build') { + my %unittime = map { ($_->{name} => $_->{warp} // $_->{build}) } @rows; + $unittime{Templar} = $unittime{'High Templar'}; + $_->{order} = ( + ($_->{warp} // $_->{build}) + + ($_->{gas}*1.5 + $_->{min} + $_->{pop}/8)/1024 + + ($_->{base} ? ($unittime{$_->{base}->[0]} // 100) + 1 : 0) + ) for @rows; + } elsif ($get{order} eq 'size') { $_->{order} = ( $_->{pop}*16 + ($_->{size} // $_->{suit}) + $_->{cargo}/8 @@ -418,7 +447,8 @@ sub showrangeint {
cost -
minerals and gas required to create one unit +
minerals and + gas required to create one unit
includes total expenses if based on existing units
build
relative time needed to create at least one unit