+use utf8;
+use strict;
+
# time in fastest game seconds
my $FPS = 24; # frames per second
# toss shield += .65 per second
# zerg regen += .37 per second
+
[
+'<span title="no known changes as of v1.16.1">versionā„1.08</span>',
# protoss
+use utf8;
+
[
+'patch 2.1.3 BU',
# http://wiki.teamliquid.net/starcraft2/Unit_Statistics
# http://wiki.teamliquid.net/starcraft2/User:Roemy/Unit_Statistics_(detailed)
# http://starcraft.wikia.com/wiki/List_of_StarCraft_II_units
my %scver = (
id => 'bw',
name => 'Brood War',
- patch => '<span title="no known changes as of v1.16.1">versionā„1.08</span>',
title => 'starcraft',
game => 'StarCraft',
major => 1,
%scver = (
id => 'hots',
name => 'Heart of the Swarm',
- patch => 'patch 2.1.3 BU',
title => 'starcraft2',
game => 'StarCraft II',
major => 2,
});
print "<h1>$scver{game} units</h1>\n\n";
-print "<p>Unit properties as seen or measured in $scver{name}\n$scver{patch}.\n</p>\n\n";
+
+my $units = do $datafile;
+die "Cannot open unit data: $_\n" for $@ || $! || ();
+my $patch = shift @{$units}
+ or die "Cannot open unit data: metadata not found\n";
+
+print "<p>Unit properties as seen or measured in $scver{name}\n$patch.\n</p>\n\n";
sub coltoggle {
my ($name, $id) = @_;
);
}
- my $units = do $datafile;
- die "Cannot open unit data: $_\n" for $@ || $! || ();
my $grouped = 1; # race headers
if (exists $get{order}) {
$grouped = 0;