External/mage
1
0
Fork 1
mirror of https://github.com/magefree/mage.git synced 2025-12-20 10:40:06 -08:00
Code Issues Projects Releases Packages Wiki Activity Actions

update gen-card.pl to support adding multiple versions of a card to a set

Browse source
This commit is contained in:
theelk801 2025-05-10 19:55:55 -04:00
parent f07cc4a7f2
commit a9f9407fc2
1 changed files with 74 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Utils/gen-card.pl
View file

@ -5,7 +5,6 @@
use Text::Template; use Text::Template;
use strict; use strict;
my $authorFile = 'author.txt'; my $authorFile = 'author.txt';
my $dataFile = 'mtg-cards-data.txt'; my $dataFile = 'mtg-cards-data.txt';
my $setsFile = 'mtg-sets-data.txt'; my $setsFile = 'mtg-sets-data.txt';
@ -43,7 +42,7 @@ if (-e $authorFile) {
open(DATA, $dataFile) || die "can't open $dataFile : $!"; open(DATA, $dataFile) || die "can't open $dataFile : $!";
while (my $line = <DATA>) { while (my $line = <DATA>) {
my @data = split('\\|', $line); my @data = split('\\|', $line);
$cards{$data[0]}{$data[1]} = \@data; $cards{$data[0]}{$data[1]}{$data[2]} = \@data;
} }
close(DATA); close(DATA);
@ -97,7 +96,6 @@ if (!$cardName) {
chomp $cardName; chomp $cardName;
} }
if (!exists $cards{$cardName}) { if (!exists $cards{$cardName}) {
my $possible; my $possible;
foreach $possible (sort keys(%cards)) { foreach $possible (sort keys(%cards)) {
@ -135,9 +133,18 @@ $vars{'cardNameFirstLetter'} = lc substr($cardName, 0, 1);
my @card; my @card;
foreach my $setName (keys %{$cards{$originalName}}) { foreach my $setName (keys %{$cards{$originalName}}) {
my $keyCount = keys %{$cards{$originalName}{$setName}};
my $printingString;
if (($keyCount) > 1) {
$printingString = ", NON_FULL_USE_VARIOUS";
} else {
$printingString = "";
}
foreach my $cardNumber (sort keys %{$cards{$originalName}{$setName}}) {
my $setFileName = "../Mage.Sets/src/mage/sets/" . $knownSets{$setName} . ".java"; my $setFileName = "../Mage.Sets/src/mage/sets/" . $knownSets{$setName} . ".java";
@card = @{${cards{$originalName}{$setName}}}; @card = @{${cards {$originalName}{ $setName }{$cardNumber}}};
my $line = " cards.add(new SetCardInfo(\"".$card[0]."\", ".$card[2].", Rarity.".$raritiesConversion{$card[3]}.", mage.cards.".$vars{'cardNameFirstLetter'}.".".$vars{'className'}.".class));\n"; my $line = " cards.add(new SetCardInfo(\"" . $card[0] . "\", " . $card[2] . ", Rarity." . $raritiesConversion{$card[3]} . ", mage.cards." . $vars{'cardNameFirstLetter'} . "." . $vars{'className'} . ".class" . $printingString . "));\n";
print $line;
@ARGV = ($setFileName); @ARGV = ($setFileName);
$^I = '.bak'; $^I = '.bak';
my $last; my $last;
@ -167,7 +174,7 @@ foreach my $setName (keys %{$cards{$originalName}}) {
print $line; print $line;
} }
# print card line in the middle # print card line in the middle
if (defined($lastName) && defined($currName) && ($cardName cmp $lastName) > 0 && ($currName cmp $cardName) > 0) { if (defined($lastName) && defined($currName) && ($cardName cmp $lastName) > -1 && ($currName cmp $cardName) > 0) {
print $line; print $line;
} }
} }
@ -175,6 +182,7 @@ foreach my $setName (keys %{$cards{$originalName}}) {
unlink $setFileName . ".bak"; unlink $setFileName . ".bak";
print "$setFileName\n"; print "$setFileName\n";
} }
}
# Generate the card # Generate the card
my $result; my $result;