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

Merge pull request #2747 from spjspj/master

Browse source 
spjspj - Prints out all known cards into a .dck type format
This commit is contained in:
spjspj 2017-01-07 01:43:16 +11:00 committed by GitHub
commit 5c966fce77
1 changed files with 101 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

101
Utils/gen_all_files_in_dck.pl Normal file
View file

@ -0,0 +1,101 @@
#!/usr/bin/perl -w
##
# File: gen_all_files_in_dck.pl
# Author: spjspj
# Purpose: Print all cards in .dck format
##
use strict;
use Scalar::Util qw(looks_like_number);
my $dataFile = "mtg-cards-data.txt";
my $setsFile = "mtg-sets-data.txt";
my $knownSetsFile = "known-sets.txt";
my %sets;
my %knownSets;
my @setCards;
my %nameSetNumber;
my %setNumber;
sub toCamelCase
{
my $string = $_[0];
$string =~ s/\b([\w']+)\b/ucfirst($1)/ge;
$string =~ s/[-,\s\']//g;
return $string;
}
open (DATA, $setsFile) || die "can't open $setsFile";
while(my $line = <DATA>)
{
my @data = split('\\|', $line);
$sets{$data[0]} = $data[1];
$sets{toCamelCase($data[0])} = $data[1];
}
close(DATA);
my $dir_listing = "dir \/a \/b \/s ..\\Mage.Sets\\ | find \".java\" |";
open (DIR_LISTING, "$dir_listing");
my %setsForJavafile;
my $totalCards = 0;
while (<DIR_LISTING>)
{
chomp;
my $file = $_;
my $name = "";
my $cardNum = "";
open (JAVA_FILE, "$file");
my $fileKey = $file;
$fileKey =~ s/^.*[\/\\]//;
if ($file !~ m/\.java$/)
{
next;
}
while (<JAVA_FILE>)
{
chomp;
# Eg: Card Name
#cards.add(new SetCardInfo("Bonds of Quicksilver", 102, Rarity.COMMON, mage.cards.b.BondsOfQuicksilver.class));
my $line = $_;
# Eg: Set Trigraph
#super("Commander 2016 Edition", "C16", ExpansionSet.buildDate(2016, 11, 11), SetType.SUPPLEMENTAL);
$line =~ s/\\\"/'/img;
if ($line =~ m/super\("[^"]*?", "([^"]*?)", ExpansionSet.buildDate.*/img)
{
my $trigraph = $1;
my $f = $fileKey;
$f =~ s/ Edition//;
$f =~ s/\.java//;
$f = toCamelCase($f);
$setsForJavafile {$f} = $trigraph;
}
if ($line =~ m/SetCardInfo\("([^"]+)",([^,]+),/img)
{
$name = $1;
$cardNum = $2;
$cardNum =~ s/[^a-z0-9]//img;
my $f = $fileKey;
$f =~ s/ Edition//;
$f =~ s/\.java//;
$f = toCamelCase($f);
$totalCards++;
if ($cardNum !~ m/\d\d\d\d/)
{
print ("1 [$setsForJavafile{$f}:$cardNum] $name\n");
}
}
}
close (JAVA_FILE);
}
print ("Found a total of $totalCards\n");