External/mage
1
0
Fork 1
mirror of https://github.com/magefree/mage.git synced 2025-12-20 02:30:08 -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

60
Utils/gen-card.pl
View file

@ -5,7 +5,6 @@
use Text::Template;
use strict;
my $authorFile = 'author.txt';
my $dataFile = 'mtg-cards-data.txt';
my $setsFile = 'mtg-sets-data.txt';
@ -32,7 +31,7 @@ sub fixCost {
my $author;
if (-e $authorFile) {
open (DATA, $authorFile) || die "can't open $authorFile : $!";
open(DATA, $authorFile) || die "can't open $authorFile : $!";
$author = <DATA>;
chomp $author;
close(DATA);
@ -40,32 +39,32 @@ if (-e $authorFile) {
$author = 'anonymous';
}
open (DATA, $dataFile) || die "can't open $dataFile : $!";
while(my $line = <DATA>) {
open(DATA, $dataFile) || die "can't open $dataFile : $!";
while (my $line = <DATA>) {
my @data = split('\\|', $line);
$cards{$data[0]}{$data[1]} = \@data;
$cards{$data[0]}{$data[1]}{$data[2]} = \@data;
}
close(DATA);
open (DATA, $setsFile) || die "can't open $setsFile : $!";
while(my $line = <DATA>) {
open(DATA, $setsFile) || die "can't open $setsFile : $!";
while (my $line = <DATA>) {
my @data = split('\\|', $line);
$sets{$data[0]}= $data[1];
$sets{$data[0]} = $data[1];
#print "$data[0]--$data[1]\n"
}
close(DATA);
open (DATA, $knownSetsFile) || die "can't open $knownSetsFile : $!";
while(my $line = <DATA>) {
open(DATA, $knownSetsFile) || die "can't open $knownSetsFile : $!";
while (my $line = <DATA>) {
my @data = split('\\|', $line);
$knownSets{$data[0]}= $data[1];
$knownSets{$data[0]} = $data[1];
}
close(DATA);
open (DATA, $keywordsFile) || die "can't open $keywordsFile : $!";
while(my $line = <DATA>) {
open(DATA, $keywordsFile) || die "can't open $keywordsFile : $!";
while (my $line = <DATA>) {
my @data = split('\\|', $line);
$keywords{toCamelCase($data[0])}= $data[1];
$keywords{toCamelCase($data[0])} = $data[1];
}
close(DATA);
@ -97,12 +96,11 @@ if (!$cardName) {
chomp $cardName;
}
if (!exists $cards{$cardName}) {
my $possible;
foreach $possible (sort keys (%cards)) {
foreach $possible (sort keys(%cards)) {
if ($possible =~ m/$cardName/img && $cardName =~ m/..../) {
print ("Did you mean $possible?\n");
print("Did you mean $possible?\n");
}
}
die "Card name doesn't exist: $cardName\n";
@ -123,8 +121,8 @@ if (index($cardName, $splitDelimiter) != -1) {
# Check if card is already implemented
my $fileName = "../Mage.Sets/src/mage/cards/".lc(substr($cardName, 0, 1))."/".toCamelCase($cardName).".java";
if(-e $fileName) {
my $fileName = "../Mage.Sets/src/mage/cards/" . lc(substr($cardName, 0, 1)) . "/" . toCamelCase($cardName) . ".java";
if (-e $fileName) {
die "$cardName is already implemented.\n$fileName\n";
}
@ -135,9 +133,18 @@ $vars{'cardNameFirstLetter'} = lc substr($cardName, 0, 1);
my @card;
foreach my $setName (keys %{$cards{$originalName}}) {
my $setFileName = "../Mage.Sets/src/mage/sets/".$knownSets{$setName}.".java";
@card = @{${cards{$originalName}{$setName}}};
my $line = " cards.add(new SetCardInfo(\"".$card[0]."\", ".$card[2].", Rarity.".$raritiesConversion{$card[3]}.", mage.cards.".$vars{'cardNameFirstLetter'}.".".$vars{'className'}.".class));\n";
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";
@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" . $printingString . "));\n";
print $line;
@ARGV = ($setFileName);
$^I = '.bak';
my $last;
@ -167,13 +174,14 @@ foreach my $setName (keys %{$cards{$originalName}}) {
print $line;
}
# 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;
}
}
unlink $setFileName.".bak";
unlink $setFileName . ".bak";
print "$setFileName\n";
}
}
# Generate the card
@ -282,8 +290,8 @@ foreach my $ability (@abilities) {
if ($1 =~ m/(^.*\s.*)/g) {
$vars{'abilities'} .= "\n TargetPermanent auraTarget = new TargetPermanent(filter);";
} else {
$vars{'abilities'} .= "\n TargetPermanent auraTarget = new Target". toCamelCase($1) . "Permanent();";
$vars{'abilitiesImports'} .= "\nimport mage.target.common.Target". toCamelCase($1) . "Permanent;";
$vars{'abilities'} .= "\n TargetPermanent auraTarget = new Target" . toCamelCase($1) . "Permanent();";
$vars{'abilitiesImports'} .= "\nimport mage.target.common.Target" . toCamelCase($1) . "Permanent;";
}
$vars{'abilities'} .= "\n this.getSpellAbility().addTarget(auraTarget);";
$vars{'abilities'} .= "\n this.getSpellAbility().addEffect(new AttachEffect(Outcome.BoostCreature));";