X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/108d13f833e9daeff4ea1552e2e1bee1e0ed8c22..e1d820a92fe13e0c1c4fe1716efdb5f713af75ae:/sc.plp diff --git a/sc.plp b/sc.plp index b5d81ec..78eebc4 100644 --- a/sc.plp +++ b/sc.plp @@ -1,24 +1,27 @@ <(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', + major => 1, + }, + hots => { name => 'Heart of the Swarm', title => 'starcraft2', game => 'StarCraft II', major => 2, - ); -} -my $datafile = "sc-units-$scver{id}.inc.pl"; + }, +); + +$Request ||= 'bw'; +$Request = 'hots' if $Request eq '2'; +my %scver = %{ $scvers{$Request} } + or Abort("Requested version $Request not available", '404 unknown'); + +my $datafile = "sc-units-$Request.inc.pl"; Html({ title => "$scver{title} unit cheat sheet", @@ -31,7 +34,7 @@ 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 ', ], @@ -43,14 +46,14 @@ Html({ say "

$scver{game} units

\n"; my $units = do $datafile; -die "Cannot open unit data: $_\n" for $@ || $! || (); +Abort("Cannot open unit data", 501, $_) for $@ || $! || (); my $patch = shift @{$units} - or die "Cannot open unit data: metadata not found\n"; + 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(', ', - ('StarCraft 2: HotS') x ($scver{major} < 2), - ('original SC: Brood War') x ($scver{major} > 1), + (showlink('StarCraft 2: HotS', '/sc/hots')) x ($Request ne 'hots'), + (showlink('original SC: Brood War', '/sc/bw')) x ($Request ne 'bw'), ); say "

\n"; @@ -85,29 +88,27 @@ for my $unit (@{$units}) { sub coltoggle { my ($name, $id, $nolink) = @_; - return sprintf( - (defined $get{order} ? $get{order} eq $id : !$id) ? '%2$s ▼' - : $nolink ? '%2$s' : '%s', - $id && "order=$id", $name - ); + return "$name ▼" if defined $get{order} ? $get{order} eq $id : !$id; + return $name if $nolink; + return showlink($name, '?'.($id && "order=$id")); } :> - - - + + + - + - + - - + + - + <: @@ -257,9 +258,13 @@ sub showrangeint { return ( '
<:= coltoggle('name', '') :>cost<:= coltoggle(exists $get{order} ? 'race' : 'source' => '') :><:= coltoggle(name => 'name') :><:= coltoggle(cost => 'cost') :> gas<:= coltoggle(qw'build cost') :><:= coltoggle(build => 'build') :> <:= coltoggle(qw'size size') :> attrHP<:= coltoggle(HP => 'hp') :> shield ⛨attack<:= coltoggle(qw'dps attack 1') :><:= coltoggle(attack => 'attack') :>dps range sightspeed<:= coltoggle(speed => 'speed') :> specials
' . ($_->{min} // ''), '' . ($_->{gas} || ''), - !defined $_->{build} ? '' : sprintf('%s%.0f', - !!$_->{base} && '+', - $_->{build} || '0', + !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') : @@ -340,38 +345,60 @@ sub showrangeint { ); } + my @rows = @{$units}; my $grouped = 1; # race headers if (exists $get{order}) { $grouped = 0; $get{order} ||= ''; - if ($get{order} eq 'size') { + if ($get{order} eq 'name') { + @rows = sort {$a->{name} cmp $b->{name}} @rows; + } + elsif ($get{order} eq 'hp') { $_->{order} = ( - $_->{pop}*16 + ($_->{size} // $_->{suit}) + $_->{cargo}/8 - + $_->{hp}/512 + $_->{min}/8192 - ) for @$units; + $_->{hp}*1.01 + $_->{armor} + $_->{shield} + $_->{size}/1024, + ) for @rows; } elsif ($get{order} eq 'cost') { $_->{order} = ( $_->{gas}*1.5 + $_->{min} + $_->{pop}/8 + $_->{build}/256/8 - ) for @$units; + ) 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 + + $_->{hp}/512 + $_->{min}/8192 + ) for @rows; } elsif ($get{order} eq 'attack') { $_->{order} = $_->{hp} / 1024 + $_->{shield} / 1008 + max( map { - ($_->{damage} + $_->{upgrade} * 3) - * ($_->{count} // 1) / ($_->{cooldown} // 1) + ($_->{dps} ? $_->{dps}->[-1] : + ($_->{damage} + $_->{upgrade} * 3) + * ($_->{count} // 1) / ($_->{cooldown} // 1) + ) * ($_->{splash} ? 1.01 : 1) * ($_->{type} eq 'implosive' ? .96 : 1) * ($_->{type} eq 'explosive' ? .98 : 1) } @{ $_->{attack} } - ) for @$units; + ) for @rows; } - else { - $units->[$_]->{order} = $_ for 0 .. $#$units; + elsif ($get{order} eq 'speed') { + $_->{order} = ( + ($_->{upgraded}->{speed} // $_->{speed}*1.01) + + $_->{sight}/1024 + $_->{detect}/2048 + ) for @rows; } + @rows = sort {$a->{order} <=> $b->{order}} @rows if exists $rows[0]->{order}; } - my @rows = @{$units}; - @rows = sort {$a->{order} <=> $b->{order}} @rows unless $grouped; my ($race, $cat) = ('', ''); for (@rows) {