github/mage
1
0
Fork 0
mirror of https://github.com/correl/mage.git synced 2025-02-26 11:02:31 +00:00
Code Issues Projects Releases Packages Wiki Activity

spjspj - New perl script to show new cards implemented

Browse source
This commit is contained in:
spjspj 2016-11-10 15:56:32 +11:00
parent 291ce8b419
commit f26396feed
1 changed files with 23 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
Utils/find_new_cards.pl
View file

@ -45,13 +45,35 @@ print ("Choose your preferred tag: ");
my $cmd = <STDIN>; my $cmd = <STDIN>;
chomp $cmd; chomp $cmd;
my %cn_classes;
sub read_all_card_names
{
print ("find \"cards.add\" ../Mage.Sets/src/mage/sets/*.java\n");
print ("find \"add\" ..\\Mage.Sets\\src\\mage\\sets\\*.java\n");
my $all_cards = `find \"add\" ..\\Mage.Sets\\src\\mage\\sets\\*.java`;
my @cards = split /\n/, $all_cards;
my $card;
foreach $card (sort @cards)
{
if ($card =~ m/.*SetCardInfo."([^"]+)".*\.([^\.]+).class/)
{
$cn_classes {$2} = $1;
}
}
}
read_all_card_names();
sub get_name_of_card_from_class sub get_name_of_card_from_class
{ {
my $line = $_ [0]; my $line = $_ [0];
if($line =~ m/Mage.Sets.*[\/\\]([^\/\\]+)\.java/img) if ($line =~ m/Mage.Sets.*[\/\\]([^\/\\]+)\.java/img)
{ {
my $class_name = $1; my $class_name = $1;
my $card_name = $class_name; my $card_name = $class_name;
if (exists ($cn_classes {$card_name}))
{
return ($cn_classes {$card_name});
}
$card_name =~ s/(.)([A-Z])/$1 $2/g; $card_name =~ s/(.)([A-Z])/$1 $2/g;
$card_name =~ s/\d//g; $card_name =~ s/\d//g;
return $card_name; return $card_name;
@ -87,7 +109,6 @@ if (exists ($new_order{$cmd}))
if ($line =~ m/sets.*mage.cards\/[a-z]\//img) if ($line =~ m/sets.*mage.cards\/[a-z]\//img)
{ {
$new_cards {get_name_of_card_from_class($line)} ++; $new_cards {get_name_of_card_from_class($line)} ++;
#print (get_name_of_card_from_class($line),"++\n");
} }
$use_next_line = 0; $use_next_line = 0;
} }
@ -96,7 +117,6 @@ if (exists ($new_order{$cmd}))
if ($past_line =~ m/sets.*mage.cards\/[a-z]\//img) if ($past_line =~ m/sets.*mage.cards\/[a-z]\//img)
{ {
$new_cards {get_name_of_card_from_class($past_line)} --; $new_cards {get_name_of_card_from_class($past_line)} --;
#print (">>> Minus - $past_line ---", get_name_of_card_from_class($past_line),"--\n");
} }
} }
$past_line = $line; $past_line = $line;