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

Merge origin/master

Browse source 
Conflicts:
	Mage.Sets/src/mage/cards/t/TanaTheBloodsower.java
	Mage.Sets/src/mage/cards/t/ThrasiosTritonHero.java
This commit is contained in:
LevelX2 2016-11-05 11:55:24 +01:00
commit e4e76c159b
3 changed files with 75 additions and 71 deletions
Download patch file Download diff file Expand all files Collapse all files

116
Utils/gen-simple-cards-by-set.pl
View file

@ -1,58 +1,60 @@
#!/usr/bin/perl -w
#author: North
use strict;
my $dataFile = 'mtg-cards-data.txt';
my $knownSetsFile = "known-sets.txt";
my %knownSets;
my @setCards;
sub toCamelCase {
my $string = $_[0];
$string =~ s/\b([\w']+)\b/ucfirst($1)/ge;
$string =~ s/[-,\s\']//g;
$string;
}
print 'Enter a set name: ';
my $setName = <STDIN>;
chomp $setName;
open (DATA, $dataFile) || die "can't open $dataFile";
while(my $line = <DATA>) {
my @data = split('\\|', $line);
if ($data[1] eq $setName) {
push(@setCards, \@data);
}
}
close(DATA);
open (DATA, $knownSetsFile) || die "can't open $knownSetsFile";
while(my $line = <DATA>) {
my @data = split('\\|', $line);
$knownSets{$data[0]}= $data[1];
}
close(DATA);
if(!exists $knownSets{$setName}) {
die "You must add the set to known-sets.txt\n";
}
my $packageName = $knownSets{$setName};
$setName =~ s/"/\\"/g;
system("./gen-existing-cards-by-set.pl \"$setName\"");
# Generate missing simple cards
print "Simple cards generated: \n";
foreach my $cardName (@setCards) {
my $fileName = "../Mage.Sets/src/mage/sets/" . $packageName . "/" . toCamelCase(${$cardName}[0]) . ".java";
if(!-e $fileName) {
system("./gen-card.pl \"${$cardName}[0]\" true");
}
#!/usr/bin/perl -w
#author: North
use strict;
my $dataFile = 'mtg-cards-data.txt';
my $knownSetsFile = "known-sets.txt";
my %knownSets;
my @setCards;
sub toCamelCase {
my $string = $_[0];
$string =~ s/\b([\w']+)\b/ucfirst($1)/ge;
$string =~ s/[-,\s\']//g;
$string;
}
print 'Enter a set name: ';
my $setName = <STDIN>;
chomp $setName;
open (DATA, $dataFile) || die "can't open $dataFile";
while(my $line = <DATA>) {
my @data = split('\\|', $line);
if ($data[1] eq $setName) {
push(@setCards, \@data);
}
}
close(DATA);
open (DATA, $knownSetsFile) || die "can't open $knownSetsFile";
while(my $line = <DATA>) {
my @data = split('\\|', $line);
$knownSets{$data[0]}= $data[1];
}
close(DATA);
if(!exists $knownSets{$setName}) {
die "You must add the set to known-sets.txt\n";
}
my $packageName = $knownSets{$setName};
$setName =~ s/"/\\"/g;
system("gen-existing-cards-by-set.pl \"$setName\"");
# Generate missing simple cards
print "Simple cards generated: \n";
foreach my $cardName (@setCards) {
print "CardName: ".${$cardName}[0]." \n";
my $fileName = "../Mage.Sets/src/mage/sets/" . $packageName . "/" . toCamelCase(${$cardName}[0]) . ".java";
if(!-e $fileName) {
print "fileName: ".$fileName." \n";
system("gen-card.pl \"${$cardName}[0]\" true");
}
}