#!/usr/bin/perl -w

#author: North

use Text::Template;
use strict;


my $authorFile = 'author.txt';
my $dataFile = "mtg-cards-data.txt";
my $setsFile = "mtg-sets-data.txt";
my $knownSetsFile = "known-sets.txt";


my %cards;
my %sets;
my %knownSets;

my @setCards;

# gets the set name
my $setName = $ARGV[0];
if(!$setName) {
    print 'Enter a set name: ';
    $setName = <STDIN>;
    chomp $setName;
}

my $template = Text::Template->new(TYPE => 'FILE', SOURCE => 'cardExtendedClass.tmpl', DELIMITERS => [ '[=', '=]' ]);
my $templateBasicLand = Text::Template->new(TYPE => 'FILE', SOURCE => 'cardExtendedLandClass.tmpl', DELIMITERS => [ '[=', '=]' ]);

sub toCamelCase {
    my $string = $_[0];
    $string =~ s/\b([\w']+)\b/ucfirst($1)/ge;
    $string =~ s/[-,\s\']//g;
    $string;
}

my $author;
if (-e $authorFile) {
    open (DATA, $authorFile);
    $author = <DATA>;
    close(DATA);
} else {
    $author = 'anonymous';
}

my $cardsFound = 0;
open (DATA, $dataFile) || die "can't open $dataFile";
while(my $line = <DATA>) {
    my @data = split('\\|', $line);
    $cards{$data[0]}{$data[1]} = \@data;

    if ($data[1] eq $setName) {
        my $cardInfo = {$data[0] ,$data[2]};
        my $ref_cardInfo = \$cardInfo;
        push(@setCards, $ref_cardInfo);
        $cardsFound = $cardsFound + 1;
    }
}
close(DATA);
print "Number of cards found for set " . $setName . ": " . $cardsFound . "\n";

open (DATA, $setsFile) || die "can't open $setsFile";

while(my $line = <DATA>) {
    my @data = split('\\|', $line);
    $sets{$data[0]}= $data[1];
}
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);

my %raritiesConversion;
$raritiesConversion{'C'} = 'COMMON';
$raritiesConversion{'U'} = 'UNCOMMON';
$raritiesConversion{'R'} = 'RARE';
$raritiesConversion{'M'} = 'MYTHIC';

# Generate the cards

my %vars;
$vars{'author'} = $author;
$vars{'set'} = $knownSets{$setName};
$vars{'expansionSetCode'} = $sets{$setName};

my $landForest = 0;
my $landMountain = 0;
my $landSwamp = 0;
my $landPlains = 0;
my $landIsland = 0;

print "Extended cards generated:\n";

while ( my ($key, $value) = each(@setCards) ) {
    while ( my ($cardName, $cardNr) = each($$value) ) {
        if($cardName eq "Forest" || $cardName eq "Island" || $cardName eq "Plains" || $cardName eq "Swamp" || $cardName eq "Mountain") {
            my $found = 0;
            my $landNr = "";
            if ($cardName eq "Forest") {
                $landForest++;
                $landNr = $landForest;
            }
            if ($cardName eq "Mountain") {
                $landMountain++;
                $landNr = $landMountain;
            }
            if ($cardName eq "Swamp") {
                $landSwamp++;
                $landNr = $landSwamp;
            }
            if ($cardName eq "Plains") {
                $landPlains++;
                $landNr = $landPlains;
            }
            if ($cardName eq "Island") {
                $landIsland++;
                $landNr = $landIsland;
            }
            if(!($landNr eq "")) {
                $vars{'landNr'} = $landNr;
                my $className = toCamelCase($cardName) . $landNr;
                my $currentFileName = "../Mage.Sets/src/mage/sets/" . $knownSets{$setName} . "/" . $className . ".java";

                if(! -e $currentFileName) {

                    $vars{'className'} = toCamelCase($cardName);
                    $vars{'cardNumber'} = $cardNr;

                    my $result = $templateBasicLand->fill_in(HASH => \%vars);
                    if (defined($result)) {
                        print $vars{'set'} . "." . $vars{'className'} . " cardNr = " . $cardNr . "\n";
                        open CARD, "> $currentFileName";
                        print CARD $result;
                        close CARD;
                    } else {
                        print "Error while creating " . $vars{'className'} ."\n";
                    }
                }
            }
        } else {
            my $className = toCamelCase($cardName);
            my $currentFileName = "../Mage.Sets/src/mage/sets/" . $knownSets{$setName} . "/" . $className . ".java";
            if(! -e $currentFileName) {
                $vars{'className'} = $className;
                $vars{'cardNumber'} = $cards{$cardName}{$setName}[2];

                my $found = 0;
                foreach my $keySet (keys %{$cards{$cardName}}) {
                    if (exists $knownSets{$keySet} && $found eq 0) {
                        my $fileName = "../Mage.Sets/src/mage/sets/" . $knownSets{$keySet} . "/" . $className . ".java";
                        if(-e $fileName) {
                            open (DATA, $fileName);
                            while(my $line = <DATA>) {
                                if ($line =~ /extends CardImpl<(\w+?)>/ || $line =~ /extends LevelerCard<(\w+?)>/) {
                                    $vars{'baseClassName'} = $1;
                                    $vars{'baseSet'} = $knownSets{$keySet};

                                    $vars{'rarityExtended'} = '';
                                    if ($cards{$cardName}{$setName}[3] ne $cards{$cardName}{$keySet}[3]) {
                                        $vars{'rarityExtended'} = "\n        this.rarity = Rarity.$raritiesConversion{$cards{$cardName}{$setName}[3]};";
                                    }
                                    $found = 1;
                                }
                            }
                            close(DATA);
                        }
                    }
                }

                if($found eq 1) {
                    my $result = $template->fill_in(HASH => \%vars);
                    if (defined($result)) {
                        print $vars{'set'} . "." . $vars{'className'} . "\n";
                        open CARD, "> $currentFileName";
                        print CARD $result;
                        close CARD;
                    }
                }
            }
        }

    }
}