From f26396feedff3a291ee865cc28666fd2b882da33 Mon Sep 17 00:00:00 2001
From: spjspj <spjspj4@gmail.com>
Date: Thu, 10 Nov 2016 15:56:32 +1100
Subject: [PATCH] spjspj - New perl script to show new cards implemented

---
 Utils/find_new_cards.pl | 26 +++++++++++++++++++++++---
 1 file changed, 23 insertions(+), 3 deletions(-)

diff --git a/Utils/find_new_cards.pl b/Utils/find_new_cards.pl
index 1659baad66..544344c713 100644
--- a/Utils/find_new_cards.pl
+++ b/Utils/find_new_cards.pl
@@ -45,13 +45,35 @@ print ("Choose your preferred tag: ");
 my $cmd = <STDIN>;
 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
 {
     my $line = $_ [0];
-    if($line =~ m/Mage.Sets.*[\/\\]([^\/\\]+)\.java/img)
+    if ($line =~ m/Mage.Sets.*[\/\\]([^\/\\]+)\.java/img)
     {
         my $class_name = $1;
         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/\d//g;
         return $card_name;
@@ -87,7 +109,6 @@ if (exists ($new_order{$cmd}))
             if ($line =~ m/sets.*mage.cards\/[a-z]\//img)
             {
                 $new_cards {get_name_of_card_from_class($line)} ++;
-                #print (get_name_of_card_from_class($line),"++\n");
             }
             $use_next_line = 0;
         }
@@ -96,7 +117,6 @@ if (exists ($new_order{$cmd}))
             if ($past_line =~ m/sets.*mage.cards\/[a-z]\//img)
             {
                 $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;