github/mage
1
0
Fork 0
mirror of https://github.com/correl/mage.git synced 2024-11-28 11:09:54 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fixed bug in Perl script.

Browse source
This commit is contained in:
LevelX2 2014-02-19 19:48:33 +01:00
parent 39e51cbf6c
commit 11618e64ba
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -28,6 +28,7 @@ while(my $line = <DATA>) {
my @data = split('\\|', $line);
if ($data[1] eq $setName) {
push(@setCards, \@data);
}
}
close(DATA);
@ -63,6 +64,7 @@ sub toCamelCase {
my $cardsFound = 0;
my $cardsImplemented = 0;
my $toPrint = '';
foreach my $card (sort cardSort @setCards) {
my $className = toCamelCase(@{$card}[0]);
my $currentFileName = "../Mage.Sets/src/mage/sets/" . $knownSets{$setName} . "/" . $className . ".java";
@ -73,8 +75,9 @@ foreach my $card (sort cardSort @setCards) {
$toPrint .= "@{$card}[2]|@{$card}[0]";
$cardsImplemented++;
}
$cardsFound = $cardsFound + 1;
$cardsFound++;
}
print "Number of cards found for set " . $setName . ": " . $cardsFound . "\n";
print "Number of implemented cards: " . $cardsImplemented . "\n";

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

@ -73,6 +73,7 @@ foreach my $card (sort cardSort @setCards) {
$toPrint .= "@{$card}[2]|@{$card}[0]";
}
}
open CARD, "> " . lc($sets{$setName}) ."_unimplemented.txt";
print CARD $toPrint;
close CARD;