git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
sc: preliminary starcraft 2 hots data
[sheet.git]
/
sc.plp
diff --git
a/sc.plp
b/sc.plp
index 6b08c9477acb304665a865dc57178ca2f95d5013..26c8a97586244537ca02a52c248d0cf0141a4b83 100644
(file)
--- a/
sc.plp
+++ b/
sc.plp
@@
-1,5
+1,10
@@
<(common.inc.plp)><:
<(common.inc.plp)><:
+my $datafile = 'sc-units.inc.pl';
+if ($ENV{PATH_INFO} and $ENV{PATH_INFO} eq '/2') {
+ $datafile = 'sc2-units.inc.pl';
+}
+
Html({
title => 'starcraft unit cheat sheet',
version => 'v1.0',
Html({
title => 'starcraft unit cheat sheet',
version => 'v1.0',
@@
-13,6
+18,7
@@
Html({
reference software attributes properties
'],
stylesheet => [qw'light'],
reference software attributes properties
'],
stylesheet => [qw'light'],
+ data => [$datafile],
});
:>
});
:>
@@
-193,7
+199,9
@@
sub showrange {
}
if ($elements[0] eq 'attack' and $elements[1] ne 'range' and $elements[2] eq 'dps') {{
}
if ($elements[0] eq 'attack' and $elements[1] ne 'range' and $elements[2] eq 'dps') {{
- my $type = $row->{$elements[0]}->{$elements[1]}->{type} or next;
+ my $attack = $row->{ $elements[0] }->{ $elements[1] };
+ ref $attack or $attack = $row->{ $elements[0] }->{$attack}; # follow
+ my $type = $attack->{type} or next;
if ($type eq 'explosive') {
$min /= 2;
}
if ($type eq 'explosive') {
$min /= 2;
}
@@
-209,6
+217,11
@@
sub showrange {
sub showattack {
my ($row, $area) = @_;
local $_ = $row->{attack}->{$area};
sub showattack {
my ($row, $area) = @_;
local $_ = $row->{attack}->{$area};
+ if (not ref $_) {
+ # reference to another area
+ $area = $_;
+ $_ = $row->{attack}->{$area};
+ }
return '<td colspan="2" class="hurt">' unless $_;
return '<td colspan="2" class="hurt">' unless $_;
@@
-246,7
+259,7
@@
sub showrange {
} @$specials;
}
} @$specials;
}
- my $units = do
'sc-units.inc.pl'
;
+ my $units = do
$datafile
;
die "Cannot open unit data: $_\n" for $@ || $! || ();
my $grouped = !exists $get{order};
if (exists $get{order}) {
die "Cannot open unit data: $_\n" for $@ || $! || ();
my $grouped = !exists $get{order};
if (exists $get{order}) {