X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/ca987f558f793b296a159060a2fbe3f8f164eb67..1fcc0d8d5a8c54a917c862ffea4bd41a723360ad:/sc.plp diff --git a/sc.plp b/sc.plp index 7ae2805..b14e04f 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; } @@ -211,22 +250,68 @@ sub showrange { 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}; } - my $units = do 'sc-units.inc.pl'; - die "Cannot open unit data: $_\n" for $! || $@ || (); + sub showunitcols { + my ($row) = @_; + local $_ = $row; + $_->{hp} += $_->{shield} if $_->{shield}; + my $suitchar = ''; + if ($_->{suit}) { + $suitchar = [qw/? s m l/]->[$_->{suit}]; + } + + return ( + '' . ($_->{min} // ''), + '' . ($_->{gas} || ''), + !defined $_->{build} ? '' : sprintf('%s%.0f', + !!$_->{base} && '+', + $_->{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', + ), + ), + '' . $_->{hp} // '', + '' . ( + $_->{shield} ? sprintf('%.0f%%', 100 * $_->{shield} / $_->{hp}) : ' ' + ), + '' . showrange($_, 'armor'), + showattack($_, 'ground'), + showattack($_, 'air'), + '' . showrange($_, 'attack', 'range'), + '' . sprintf( + $_->{detect} ? '%s' : '%s', + showrange($_, 'sight') + ), + '' . showrange($_, 'speed'), + '' . showmagic($_), + "\n" + ); + } + + 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,75 +325,43 @@ 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}]; print( '', sprintf('%s', $cat ne $_->{cat} ? ('h', $cat = $_->{cat}) : ('d', ' ')), '' . $_->{name}, - '' . ($_->{min} || '0'), - '' . ($_->{gas} || ''), - '' . sprintf('%.0f', $_->{build} || '0'), - sprintf('%s', $sizechar, ucfirst $sizechar), - '' . join('', - $_->{unit} ? $_->{unit} == .5 ? '½' : $_->{unit} : ' ', - defined $_->{organic} && sprintf( - '%s', - $_->{organic} ? 'o' : 'u', - $_->{race} . ($_->{organic} ? 'o' : ''), - $_->{organic} ? 'o' : 'm' - ), - ), - '' . $_->{hp}, - '' . ($_->{shield} ? $_->{shield}.'%' : ' '), - '' . showrange($_, 'armor'), - showattack($_, 'ground'), - showattack($_, 'air'), - '' . showrange($_, 'attack', 'range'), - '' . sprintf( - $_->{detect} ? '%s' : '%s', - showrange($_, 'sight') - ), - '' . showrange($_, 'speed'), - '' . showmagic($_), - "\n" + showunitcols($_), ); for my $alt (grep { $_->{alt} } @{ $_->{special} }) { print( - '' . $alt->{alt}, - showattack($alt, 'ground'), - showattack($alt, 'air'), - '' . showrange($alt, 'attack', 'range'), - '' . sprintf( - $alt->{detect} ? '%s' : '%s', - showrange($alt, 'sight') - ), - '' . showrange($alt, 'speed'), - '', - "\n", + '' . $alt->{alt}, + showunitcols($alt), ); } } :> - +

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 +372,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 +392,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 +403,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; -} -:>
+