sc: lotv version (unit list copied from hots data)

[sheet.git] / sc.plp

diff --git a/sc.plp b/sc.plp
index 78eebc43bc8fa648c3f768ba8a4b818d6e16a895..78c1a2d84fcdabb787fe1d9273568c75bc2654fd 100644 (file)
--- a/sc.plp
+++ b/sc.plp
@@ -5,19 +5,25 @@ my %scvers = (
        bw => {
                name => 'Brood War',
                title => 'starcraft',
        bw => {
                name => 'Brood War',
                title => 'starcraft',

-               game => 'StarCraft',
+               game => 'StarCraft BW',

                major => 1,
        },
        hots => {
                name => 'Heart of the Swarm',
                major => 1,
        },
        hots => {
                name => 'Heart of the Swarm',

-               title => 'starcraft2',
-               game => 'StarCraft II',
+               title => 'starcraft2 hots',
+               game => 'StarCraft II HotS',
+               major => 2,
+       },
+       lotv => {
+               name => 'Legacy of the Void',
+               title => 'starcraft2 lotv',
+               game => 'StarCraft II LotV',

                major => 2,
        },
 );
 
 $Request ||= 'bw';
                major => 2,
        },
 );
 
 $Request ||= 'bw';

-$Request = 'hots' if $Request eq '2';
+$Request = 'lotv' if $Request eq '2';

 my %scver = %{ $scvers{$Request} }
        or Abort("Requested version $Request not available", '404 unknown');
 
 my %scver = %{ $scvers{$Request} }
        or Abort("Requested version $Request not available", '404 unknown');
 


@@ -36,7 +42,8 @@ Html({
                starcraft game unit statistics stats comparison table sheet cheat
                reference software attributes properties patch attribute multiplayer
                ',
                starcraft game unit statistics stats comparison table sheet cheat
                reference software attributes properties patch attribute multiplayer
                ',

-               $scver{major} < 2 ? qw' bw broodwar brood war ' : qw' starcraft2 hots ',
+               $scver{major} < 2 ? qw' bw broodwar brood war ' :
+               qw' starcraft2 lotv hots wol ',

        ],
        stylesheet => [qw'light'],
        raw => '<link rel="stylesheet" type="text/css" media="all" href="/sc.css?1.1" title="light">',
        ],
        stylesheet => [qw'light'],
        raw => '<link rel="stylesheet" type="text/css" media="all" href="/sc.css?1.1" title="light">',


@@ -51,8 +58,9 @@ my $patch = shift @{$units}
        or Abort("Cannot open unit data: metadata not found", 501);
 
 say "<p>Unit properties as seen or measured in $scver{name}\n$patch.";
        or Abort("Cannot open unit data: metadata not found", 501);
 
 say "<p>Unit properties as seen or measured in $scver{name}\n$patch.";

-say "Also see the $_ table." for join(', ',
-       (showlink('StarCraft 2: HotS', '/sc/hots'))    x ($Request ne 'hots'),
+say "Also see the $_ tables." for join(' and ',
+       (showlink('StarCraft 2: LotV', '/sc/lotv'))    x ($Request ne 'lotv'),
+       (showlink(             'HotS', '/sc/hots'))    x ($Request ne 'hots'),

        (showlink('original SC: Brood War', '/sc/bw')) x ($Request ne 'bw'),
 );
 say "</p>\n";
        (showlink('original SC: Brood War', '/sc/bw')) x ($Request ne 'bw'),
 );
 say "</p>\n";