X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/8ad63ee2484b0c1f344e6f8ff5fbd4ccbd963e1b..c09dbeb9c62930fc46ec793d4f18eda815cd8c34:/sc.plp
diff --git a/sc.plp b/sc.plp
index 76974c9..0534c04 100644
--- a/sc.plp
+++ b/sc.plp
@@ -1,152 +1,53 @@
<(common.inc.plp)><:
-my $datafile = 'sc-units.inc.pl';
+my %scver = (
+ id => 'bw',
+ name => 'Brood War',
+ title => 'starcraft',
+ game => 'StarCraft',
+ major => 1,
+);
+
if ($ENV{PATH_INFO} and $ENV{PATH_INFO} eq '/2') {
- $datafile = 'sc2-units.inc.pl';
+ %scver = (
+ id => 'hots',
+ name => 'Heart of the Swarm',
+ title => 'starcraft2',
+ game => 'StarCraft II',
+ major => 2,
+ );
}
+my $datafile = "sc-units-$scver{id}.inc.pl";
Html({
- title => 'starcraft unit cheat sheet',
- version => 'v1.0',
+ title => "$scver{title} unit cheat sheet",
+ version => 'v1.1',
description => [
- 'Reference of StarCraft unit properties,'
- . ' comparing various statistics of all the units in Brood War'
+ "Reference of $scver{game} unit properties,"
+ . " comparing various statistics of all the units in $scver{name}"
. ' including costs, damage, defense, speed, ranges, and abilities.',
],
- keywords => [qw'
+ keywords => [
+ qw'
starcraft game unit statistics stats comparison table sheet cheat
reference software attributes properties
- '],
+ ',
+ $scver{major} < 2 ? qw' bw broodwar brood war ' : qw' starcraft2 hots ',
+ ],
stylesheet => [qw'light'],
+ raw => ' ',
data => [$datafile],
});
-:>
-
StarCraft units
-
-
-Unit properties as seen or measured in Brood War
-versionâ¥1.08 .
-
-
-
-
-<:
sub coltoggle {
my ($name, $id) = @_;
return sprintf(
@@ -162,7 +63,7 @@ sub coltoggle {
<:= coltoggle(qw'build cost') :>
- <:= coltoggle(qw'size size') :>
+ <:= coltoggle(qw'size size') :>
HP
shield
armor
@@ -175,6 +76,12 @@ sub coltoggle {
<:
sub showrange {
+ my ($min, $max) = @_;
+ $_ = int($_ + .5) for $min, $max; # round halves up
+ return $min == $max ? $min : "$min-$max";
+}
+
+sub showval {
my ($row, @elements) = @_;
my ($min, $max);
@@ -209,36 +116,40 @@ sub showrange {
$min /= 4;
}
}}
- $_ = int($_ + .5) for $min, $max; # round halves up
-
- return $min == $max ? $min : "$min-$max";
+ return showrange($min, $max);
}
sub showattack {
my ($row, $area) = @_;
- local $_ = $row->{attack}->{$area};
- if (not ref $_) {
+ my $attack = $row->{attack}->{$area};
+ if (not ref $attack) {
# reference to another area
- $area = $_;
- $_ = $row->{attack}->{$area};
+ $area = $attack;
+ $attack = $row->{attack}->{$area};
}
- return '' unless $_;
+ return ' ' unless $attack;
my $tagbase = ' ';
- my $out = showrange($row, 'attack', $area, 'damage');
- $out .= '+ ' if $_->{splash};
- $out .= ' ' . showrange($row, 'attack', $area, 'dps');
+ my $out = showval($row, 'attack', $area, 'damage');
+ $out .= '+ ' if $attack->{splash};
+ $attack->{dps} = $attack->{cooldown} && [
+ map { 24 * $_ / $attack->{cooldown} * ($attack->{count} // 1) }
+ map { ref $_ ? @{$_} : $_ }
+ $attack->{damage}
+ #TODO: upgrade (zergling)
+ ];
+ $out .= ' ' . showval($row, 'attack', $area, 'dps');
return $tagbase . $out;
}
@@ -246,26 +157,42 @@ sub showrange {
my ($row) = @_;
my $specials = $row->{special} or return '';
return join ' ', map {
- sprintf '%s ',
+ sprintf '%s ',
+ $_->{duration} < 0 && ' class="magic-perma"',
join('',
$_->{name},
$_->{desc} ? ": $_->{desc}" : '',
- $_->{range} ? sprintf(' (%s)', join ', ',
- "range $_->{range}",
-# "cost $_->{cost}",
+ $_->{range} || $_->{cost} ? sprintf(' (%s)', join ', ',
+ $_->{range} ? "range $_->{range}" : (),
+ $_->{cost} ? sprintf('cost %.0f%%',
+ 100 * $_->{cost} / $row->{energy}
+ ) : (),
) : '',
),
- $_->{abbr},
- } @$specials;
+ sprintf($_->{build} ? '(%s)' : '%s', $_->{abbr}),
+ } grep { defined $_->{abbr} } @{$specials};
}
sub showunitcols {
my ($row) = @_;
local $_ = $row;
+ $_->{hp} += $_->{shield} if $_->{shield};
my $suitchar = '';
if ($_->{suit}) {
$suitchar = [qw/? s m l/]->[$_->{suit}];
}
+ elsif ($_->{cargo} > 0) {
+ $suitchar = [qw/? s m l l h h h h/]->[abs $_->{cargo}];
+ }
+ elsif ($_->{size}) {
+ $suitchar = [qw/s m l h h h/]->[$_->{size}];
+ }
+ elsif ($_->{attr} and $_->{attr}->{light}) {
+ $suitchar = 's';
+ }
+ elsif ($_->{attr} and $_->{attr}->{armored}) {
+ $suitchar = 'l';
+ }
return (
' ' . ($_->{min} // ''),
@@ -275,37 +202,45 @@ sub showrange {
$_->{build} || '0',
),
!$suitchar ? ' ' : sprintf(' %s', $suitchar, ucfirst $suitchar),
- ' ' . join('',
- defined $_->{unit} && $_->{unit} == .5 ? '½' : $_->{unit},
- defined $_->{organic} && sprintf(
- '%s ',
- $_->{organic} ? 'o' : 'u',
- $_->{organic} ? 'organic' : 'mechanic',
- $_->{organic} ? 'o' : 'm',
- ),
+ ' ' . (
+ defined $_->{unit} && $_->{unit} == .5 ? '½' : $_->{unit}
+ ),
+ ' ' . join('', grep { $_ }
+ (defined $_->{organic} || $_->{attr}->{organic})
+ && 'o ',
+ (defined $_->{organic} ? !$_->{organic} : $_->{attr}->{mech})
+ && 'm ',
+ $_->{attr}->{psionic}
+ && 'Ï ',
+ ),
+ ' ' . join('', grep { $_ }
+ $_->{attr}->{armored}
+ && 'A ',
+ $_->{attr}->{light}
+ && 'L ',
),
' ' . $_->{hp} // '',
' ' . (
$_->{shield} ? sprintf('%.0f%%', 100 * $_->{shield} / $_->{hp}) : ' '
),
- ' ' . showrange($_, 'armor'),
+ ' ' . showval($_, 'armor'),
showattack($_, 'ground'),
showattack($_, 'air'),
- ' ' . showrange($_, 'attack', 'range'),
+ ' ' . showval($_, 'attack', 'range'),
' ' . sprintf(
$_->{detect} ? '%s ' : '%s',
- showrange($_, 'sight')
+ showval($_, 'sight')
),
- ' ' . showrange($_, 'speed'),
+ ' ' . showval($_, 'speed'),
+ $_->{attr}->{massive} && 'â ',
' ' . showmagic($_),
"\n"
);
}
- my $units = do $datafile;
- die "Cannot open unit data: $_\n" for $@ || $! || ();
- my $grouped = !exists $get{order};
+ my $grouped = 1; # race headers
if (exists $get{order}) {
+ $grouped = 0;
$get{order} ||= '';
if ($get{order} eq 'size') {
$_->{order} = $_->{unit}*8 + $_->{suit} + $_->{hp}/512 + $_->{min}/8192 for @$units;
@@ -317,26 +252,32 @@ sub showrange {
$units->[$_]->{order} = $_ for 0 .. $#$units;
}
}
- my @rows = $grouped ? @$units : sort {$a->{order} <=> $b->{order}} @$units;
+ my @rows = @{$units};
+ @rows = sort {$a->{order} <=> $b->{order}} @rows unless $grouped;
my ($race, $cat) = ('', '');
for (@rows) {
- $race = $_->{race},
- printf ' %s '."\n", $race, ucfirst $race
- if $grouped and $race ne $_->{race};
- $_->{cat} = $_->{race} if not $grouped;
- $_->{hp} += $_->{shield};
+ if ($grouped) {
+ printf '%s '."\n",
+ $race = $_->{race}, ucfirst $race
+ unless $race eq $_->{race};
+ }
+ else {
+ $_->{cat} = $_->{race};
+ }
+
print(
'',
- sprintf('%s', $cat ne $_->{cat} ? ('h', $cat = $_->{cat}) : ('d', ' ')),
- '' . $_->{name},
+ ' ', $cat ne $_->{cat} && ($cat = $_->{cat}),
+ ' ', $_->{name},
showunitcols($_),
);
- for my $alt (grep { $_->{alt} } @{ $_->{special} }) {
+ for my $subrow (@{ $_->{special} }) {
+ $subrow->{alt} or next;
print(
- ' ' . $alt->{alt},
- showunitcols($alt),
+ ' ', $subrow->{alt},
+ showunitcols($subrow),
);
}
}
@@ -355,9 +296,17 @@ sub showrange {
excludes construction of dependencies such as buildings
and + parent units
size
- affected by S mall,
+ <:
+if ($scver{major} > 1) {
+ :>transports can fit 8 S mall,
+ 4 M edium,
+ 2 L arge,
+ or a single H uge unit<:
+} else {
+ :>affected by S mall,
M edium,
- or L arge unit damage
+ or L arge unit damage<:
+} :>
number of command points taken per unit
o rganic/m echanic unit
HP
@@ -374,8 +323,7 @@ sub showrange {
ground/air
damage done per single attack against ground/air units
2nd column indicates relative amount of damage done in
- a certain
- amount of time
+ 1 second of fastest game time
splash damage+ hits nearby objects as well
explosive damage does only
50% damage to small units, 75% to medium, 100% to large
@@ -389,7 +337,7 @@ sub showrange {
speed
relative speed of movement (when in full motion, startup speed ignored)
specials
- special abilities
+ special abilities are usually casted manually, but some are always active
parentheses () indicate that it needs to be researched first
hover for description
range is maximum range required to activate