From: Mischa POSLAWSKY Date: Fri, 26 Mar 2010 00:10:34 +0000 (+0000) Subject: sc: adjust styling to better fit this site X-Git-Tag: v1.3~18 X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/864eed9b3a51a0a7c0f21f7cf1fdf78c4b937676 sc: adjust styling to better fit this site --- diff --git a/sc.plp b/sc.plp index 7ae2805..cd07f24 100644 --- a/sc.plp +++ b/sc.plp @@ -1,7 +1,7 @@ <(common.inc.plp)><: Html({ - title => 'starcraft unit cheat sheets', + title => 'starcraft unit cheat sheet', version => 'v1.0', description => [ 'Reference of StarCraft unit properties,' @@ -16,7 +16,7 @@ Html({ }); :> -

StarCraft unit cheat sheet

+

StarCraft units

Unit properties as seen or measured in Brood War @@ -25,15 +25,15 @@ Unit properties as seen or measured in Brood War <: @@ -240,7 +254,7 @@ sub showrange { my ($race, $cat) = ('', ''); for (@rows) { $race = $_->{race}, - printf '

%1$s

'."\n", $race + printf '

%s

'."\n", $race, ucfirst $race if $grouped and $race ne $_->{race}; $_->{cat} = $_->{race} if not $grouped; my $sizechar = [qw/? s m l/]->[$_->{size}]; @@ -296,9 +310,10 @@ sub showrange { +

Legend

-
+
cost
minerals+gas required to create one unit
build @@ -339,7 +354,7 @@ sub showrange {
relative speed of movement (when in full motion, startup speed ignored)
specials
special abilities -
parentheses () indicated that it needs to be researched first +
parentheses () indicate that it needs to be researched first
hover for description
range is maximum range required to activate
cost is percentage of total energy lost @@ -350,28 +365,5 @@ When two values are given (1-2), second value indicates attribute after all possible upgrades.

-<: exit :> -

Magic

- -
    <: -for (@$units) { - print '
  • ', $_->{name}; - print '
    '; -# my $units = {qw/protoss W zerg B terran R/}->{$_->{race}} x int($_->{unit} + .5); -# my $cost = int(($_->{min} + $_->{gas}) / 50 - $_->{unit}) || ''; - my $units = {qw/protoss W zerg B terran R/}->{$_->{race}} x int($_->{gas} / 50) || ''; - my $cost = int($_->{min} / 50) || 0; - my @desc; - push @desc, "Flying" if $_->{flying}; - push @desc, "Cloaking" if $_->{cloak}; - push @desc, "First Strike" if $_->{range} and $_->{range} >= 4; - my $att = $_->{attack}->{ground}; - push @desc, "Trample" if $att and $att->{splash}; - $att = $att->{damage} if $att; - $att = $att->[0] if ref $att eq "ARRAY"; - $att = int($att / 5); - my $def = int($_->{hp} / 45); - printf "%s
    %s
    %s/%s", $cost . $units, join(",", @desc), $att, $def; -} -:>
+