X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/ca987f558f793b296a159060a2fbe3f8f164eb67..b274dda92ace617497bf5866832b46629ba79209:/sc.plp diff --git a/sc.plp b/sc.plp index 7ae2805..26c8a97 100644 --- a/sc.plp +++ b/sc.plp @@ -1,7 +1,12 @@ <(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 sheets', + title => 'starcraft unit cheat sheet', version => 'v1.0', description => [ 'Reference of StarCraft unit properties,' @@ -13,10 +18,11 @@ Html({ reference software attributes properties '], stylesheet => [qw'light'], + data => [$datafile], }); :> -

StarCraft unit cheat sheet

+

StarCraft units

Unit properties as seen or measured in Brood War @@ -25,15 +31,16 @@ Unit properties as seen or measured in Brood War <: @@ -126,8 +159,8 @@ sub coltoggle { <:= coltoggle('name', '') :> - min - gas + min + gas <:= coltoggle(qw'build cost') :> <:= coltoggle(qw'size size') :> HP @@ -140,7 +173,6 @@ sub coltoggle { speed specials - <: sub showrange { my ($row, @elements) = @_; @@ -166,16 +198,18 @@ sub showrange { } } - if ($elements[0] eq 'attack' and $elements[1] ne 'range' and $elements[2] eq 'cmp') {{ - my $type = $row->{$elements[0]}->{$elements[1]}->{type} or next; + if ($elements[0] eq 'attack' and $elements[1] ne 'range' and $elements[2] eq 'dps') {{ + 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; } elsif ($type eq 'implosive') { $min /= 4; } - $min = int($min + .5); # round halves up }} + $_ = int($_ + .5) for $min, $max; # round halves up return $min == $max ? $min : "$min-$max"; } @@ -183,6 +217,11 @@ sub showrange { sub showattack { my ($row, $area) = @_; local $_ = $row->{attack}->{$area}; + if (not ref $_) { + # reference to another area + $area = $_; + $_ = $row->{attack}->{$area}; + } return '' unless $_; @@ -199,7 +238,7 @@ sub showrange { my $out = showrange($row, 'attack', $area, 'damage'); $out .= '+' if $_->{splash}; - $out .= '' . showrange($row, 'attack', $area, 'cmp'); + $out .= '' . showrange($row, 'attack', $area, 'dps'); return $tagbase . $out; } @@ -220,13 +259,13 @@ sub showrange { } @$specials; } - my $units = do 'sc-units.inc.pl'; - die "Cannot open unit data: $_\n" for $! || $@ || (); + my $units = do $datafile; + die "Cannot open unit data: $_\n" for $@ || $! || (); my $grouped = !exists $get{order}; if (exists $get{order}) { $get{order} ||= ''; if ($get{order} eq 'size') { - $_->{order} = $_->{unit}*8 + $_->{size} + $_->{hp}/512 + $_->{min}/8192 for @$units; + $_->{order} = $_->{unit}*8 + $_->{suit} + $_->{hp}/512 + $_->{min}/8192 for @$units; } elsif ($get{order} eq 'cost') { $_->{order} = $_->{gas}*1.5 + $_->{min} + $_->{unit}/8 + $_->{build}/256/8 for @$units; @@ -240,29 +279,35 @@ 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}]; + $_->{hp} += $_->{shield}; + my $suitchar = [qw/? s m l/]->[$_->{suit}]; print( '', sprintf('%s', $cat ne $_->{cat} ? ('h', $cat = $_->{cat}) : ('d', ' ')), '' . $_->{name}, '' . ($_->{min} || '0'), '' . ($_->{gas} || ''), - '' . sprintf('%.0f', $_->{build} || '0'), - sprintf('%s', $sizechar, ucfirst $sizechar), + sprintf('%s%.0f', + !!$_->{base} && '+', + $_->{build} || '0', + ), + sprintf('%s', $suitchar, ucfirst $suitchar), '' . join('', $_->{unit} ? $_->{unit} == .5 ? '½' : $_->{unit} : ' ', defined $_->{organic} && sprintf( - '%s', + '%s', $_->{organic} ? 'o' : 'u', - $_->{race} . ($_->{organic} ? 'o' : ''), - $_->{organic} ? 'o' : 'm' + $_->{organic} ? 'organic' : 'mechanic', + $_->{organic} ? 'o' : 'm', ), ), '' . $_->{hp}, - '' . ($_->{shield} ? $_->{shield}.'%' : ' '), + '' . ( + $_->{shield} ? sprintf('%.0f%%', 100 * $_->{shield} / $_->{hp}) : ' ' + ), '' . showrange($_, 'armor'), showattack($_, 'ground'), showattack($_, 'air'), @@ -293,22 +338,25 @@ sub showrange { } } :> - +

Legend

-
+
cost
minerals+gas required to create one unit +
includes total expenses if based on existing units
build
relative time needed to create at least one unit +
excludes construction of dependencies such as buildings + and +parent units
size -
Small, +
affected by Small, Medium, or Large unit damage
number of command points taken per unit -
organic/mechanic unit +
organic/mechanic unit
HP
total number of hitpoints (including shields)
shield @@ -319,7 +367,7 @@ sub showrange {
base unit armor
can be increased by upto 3 at various facilities
each point decreases damage per hit by one, upto a minimum of ½ -
reduction applies to initial damage, before size penalties (so a large plasma hit of 12 to 4 armor deals 2 damage, not ½) +
reduction applies to initial damage, before size penalties (so a plasma hit of 12 to 4 armor large deals 2 damage, not ½)
ground/air
damage done per single attack against ground/air units
2nd column indicates relative amount of damage done in @@ -339,7 +387,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 +398,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; -} -:>
+