github/mage
1
0
Fork 0
mirror of https://github.com/correl/mage.git synced 2024-12-24 03:00:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix a couple of the perl scripts to work properly with the cards.f.FirstLetter style card class reorg

Browse source
This commit is contained in:
Mark Langen 2017-04-09 23:39:52 -06:00
parent f119965f46
commit 1ce32eb24e
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Utils/gen-list-implemented-cards-for-set.pl
View file

@ -67,7 +67,7 @@ my $toPrint = '';
foreach my $card (sort cardSort @setCards) {
my $className = toCamelCase(@{$card}[0]);
my $currentFileName = "../Mage.Sets/src/mage/sets/" . $knownSets{$setName} . "/" . $className . ".java";
my $currentFileName = "../Mage.Sets/src/mage/cards/" . lc(substr($className, 0, 1)) . "/" . $className . ".java";
if (-e $currentFileName) {
if ($toPrint) {
$toPrint .= "\n";

2
Utils/gen-list-unimplemented-cards-for-set.pl
View file

@ -94,7 +94,7 @@ foreach my $card (sort cardSort @setCards) {
$cardNames {@{$card}[0]} = 1;
my $currentFileName = "../Mage.Sets/src/mage/sets/" . $knownSets{$setName} . "/" . $className . ".java";
my $currentFileName = "../Mage.Sets/src/mage/cards/" . lc(substr($className, 0, 1)) . "/" . $className . ".java";
if(! -e $currentFileName) {
$cardNames {@{$card}[0]} = 0;
if ($toPrint) {