X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/821b50f7daca45dfbfcee9d91036074f9bf69045..4cd7a16bb62318837752001e0d9a38b38bef3926:/sc.plp diff --git a/sc.plp b/sc.plp index c7aec30..c969185 100644 --- a/sc.plp +++ b/sc.plp @@ -31,7 +31,7 @@ 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}" @@ -45,8 +45,8 @@ Html({ $scver{major} < 2 ? qw' bw broodwar brood war ' : qw' starcraft2 lotv hots wol ', ], - stylesheet => [qw'light'], - raw => '', + stylesheet => [qw( light dark )], + raw => '', data => [$datafile], }); @@ -103,12 +103,12 @@ sub coltoggle { :>
<:= coltoggle(exists $get{order} ? 'race' : 'source' => '') :> | -<:= coltoggle(name => 'name') :> | -<:= coltoggle(cost => 'cost') :> | -gas | +<:= coltoggle(name => 'name') :> | +<:= coltoggle(cost => 'cost') :> | +gas | <:= coltoggle(build => 'build') :> | <:= coltoggle(qw'size size') :> | -attr | +attr | <:= coltoggle(HP => 'hp') :> | shield | ⨠| @@ -264,8 +264,8 @@ sub showrangeint { $_->{hp} += $_->{shield} if $_->{shield}; return ( - '' . ($_->{min} // ''), - ' | ' . ($_->{gas} || ''), + ' | ' . ($_->{min} // ''), + ' | ' . ($_->{gas} || ''), defined $_->{transform} ? sprintf(' | %.0f', $_->{transform}, ) : @@ -290,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}, ), @@ -349,10 +349,10 @@ sub showrangeint { && qq'â', ' | ' . showmagic($_), !$_->{attack}->[1] ? () : ( - ' | |||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
', showattack($_, 1), ' | ' + ' | |||||||||||||||||||||||
', showattack($_, 1), ' | ' ), !$_->{attack}->[2] ? () : ( - ' | |||||||||||||||||||||||
', showattack($_, 2), ' | ' + ' | |||||||||||||||||||||||
', showattack($_, 2), ' | '
),
"\n"
);
@@ -447,7 +447,8 @@ sub showrangeint {
|