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

spjspj - Util to track down duplicate ID/Sets for cards

Browse source
This commit is contained in:
spjspj 2016-10-02 17:33:04 +11:00
parent b8632f0249
commit c933baf995
1 changed files with 114 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

122
Utils/gen_list_duplicate_collector_ids.pl
View file

@ -1,6 +1,10 @@
#!/usr/bin/perl -w
#author: spjspj
##
# File: gen_list_duplicate_collector_ids.pl
# Author: spjspj
# Purpose: To open all card java files and work out if any have duplicate cardNumber / expansionSetCode
##
use strict;
use Scalar::Util qw(looks_like_number);
@ -16,7 +20,30 @@ my @setCards;
my %nameSetNumber;
my %setNumber;
open (DATA, $setsFile) || die "can't open $setsFile";
while(my $line = <DATA>)
{
my @data = split('\\|', $line);
$sets{$data[0]}= $data[1];
}
close(DATA);
sub toCamelCase
{
my $string = $_[0];
$string =~ s/\b([\w']+)\b/ucfirst($1)/ge;
$string =~ s/[-,\s\']//g;
$string;
}
open (DATA, $dataFile) || die "can't open $dataFile";
open (FILES_TO_CHECK, ">files_to_check.bat");
my $edit_str = "find \"super(ownerId\" ";
print FILES_TO_CHECK "\@echo off\n";
print FILES_TO_CHECK "find \"super(ownerId\" ";
print ("Looking at data in $dataFile\n");
while (<DATA>)
{
@ -40,24 +67,103 @@ while (<DATA>)
$nameSetNumber {$line . $addDay} ++;
my $sn = "$set.$number$addDay";
my $sn = "$set...$number$addDay";
if (!defined ($setNumber {$sn}))
{
$setNumber {$sn} = $name;
}
}
elsif ($setNumber {$sn} ne $name)
{
print ("Problem -> '$name' has the same collectorID/Set Name as ::: $setNumber{$sn} ($sn)\n");
$sn =~ s/\.\.\..*//;
my $trigraph = lc($sn);
$trigraph =~ s/[^a-z]//img;
print FILES_TO_CHECK " ..\\Mage.Sets\\src\\mage\\sets\\" , $trigraph, "\\", toCamelCase($name), ".java";
$edit_str .= " ..\\Mage.Sets\\src\\mage\\sets\\" . $trigraph. "\\". toCamelCase($name). ".java ";
}
}
close(DATA);
print ("Finished with data in $dataFile\n");
print ("Possible problem java files are here: .\\files_to_check.bat\n(\n$edit_str\n)\n");
print FILES_TO_CHECK "\n";
close (FILES_TO_CHECK);
my $key;
foreach $key (sort keys (%nameSetNumber))
my $dir_listing = "dir \/a \/b \/s ..\\Mage.Sets\\src\\mage\\sets\\ | find \".java\" |";
my %find_info;
my %files_from_key;
open (DIR_LISTING, "$dir_listing");
while (<DIR_LISTING>)
{
if ($nameSetNumber {$key} > 1)
chomp;
my $file = $_;
# Example:
# super(ownerId, 133, "Witch Hunt", Rarity.RARE, new CardType[]{CardType.ENCHANTMENT}, "{4}{R}");
# or
# super(ownerId);
# this.cardNumber = "100";
# this.expansionSetCode = "C13";
# or
# super(ownerId, 99, "Brine Elemental", Rarity.UNCOMMON, new CardType[]{CardType.CREATURE}, "{4}{U}{U}");
# this.expansionSetCode = "C14";
my $name = "";
my $setId = "";
my $cardNum = "";
my $class = "";
my $day = "";
open (JAVA_FILE, "$file");
while (<JAVA_FILE>)
{
#print ("$key >> $nameSetNumber{$key} may be a duplicate!\n");
chomp;
my $line = $_;
if ($line =~ m/super\(ownerId,([^,]+),([^"]+)?"([^"]+)?"/)
{
$name = $3;
$cardNum = $1;
$cardNum =~ s/[^a-z0-9]//img;
$cardNum =~ s/ //img;
}
elsif ($line =~ m/expansionSetCode = "([^"]+)"/)
{
$setId = $1;
}
elsif ($line =~ m/super\(ownerId,([^,]+)/)
{
$cardNum = $1;
}
elsif ($line =~ m/cardNumber =(.*);/)
{
$cardNum = $1;
}
elsif ($line =~ m/^public class (.*) extends/)
{
$class = $1;
}
elsif ($line =~ m/(MeldCondition)/)
{
$day = "_day";
}
elsif ($line =~ m/(nightCard)/)
{
$day = "_night";
}
}
$name =~ s/[^a-z0-9]//img;
$setId =~ s/[^a-z0-9]//img;
$cardNum =~ s/[^a-z0-9]//img;
$class =~ s/[^a-z0-9]//img;
my $val = "$name($class),$setId,$cardNum.$day";
my $key = "$setId,$cardNum.$day";
if (!defined ($find_info {$key}))
{
$find_info {$key} = $val;
$files_from_key {$key} = $file;
}
elsif ($key ne ",.")
{
print ("$name($class in file:$file) $val\n Has the same key $key as\n$find_info{$key} val=$val (from key=$key) in file: $files_from_key{$key}\n");
}
close (JAVA_FILE);
}