X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/ca987f558f793b296a159060a2fbe3f8f164eb67..c5df9b21d316da6e6a82feff54be042f503f381d:/sc.plp
diff --git a/sc.plp b/sc.plp
index 7ae2805..23d29ec 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,16 @@ Unit properties as seen or measured in Brood War
<:
@@ -126,8 +142,8 @@ sub coltoggle {
|
<:= coltoggle('name', '') :> |
- |
- |
+ |
+ |
<:= coltoggle(qw'build cost') :> |
<:= coltoggle(qw'size size') :> |
HP |
@@ -140,7 +156,6 @@ sub coltoggle {
speed |
specials |
-
<:
sub showrange {
my ($row, @elements) = @_;
@@ -240,7 +255,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}];
@@ -255,10 +270,10 @@ sub showrange {
' | ' . join('',
$_->{unit} ? $_->{unit} == .5 ? '½' : $_->{unit} : ' ',
defined $_->{organic} && sprintf(
- '',
+ '%s',
$_->{organic} ? 'o' : 'u',
- $_->{race} . ($_->{organic} ? 'o' : ''),
- $_->{organic} ? 'o' : 'm'
+ $_->{organic} ? 'organic' : 'mechanic',
+ $_->{organic} ? 'o' : 'm',
),
),
' | ' . $_->{hp},
@@ -293,12 +308,12 @@ 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;
-}
-:>
+