#!/usr/bin/perl -w

#Author: Rutilio

use strict;
use Getopt::Long;
use File::Basename;

my $USAGE =
qq{mws2nd.pl -i <input_file> [-o <output file>] [-m <mythic_symbol>] [-n <number>]

Where:
input_file:    MWS spoiler file name.
ouput_file:    Netdraft output file name (Optional). Default <input_file>.nd
mythic_symbol: Spoiler mythic identifier (Optional). If it contains mythic cards, rares will be duplicated. Default M.
number:        How many times rares will be duplicated (Optional). Default 2.

Example: perl mws2nd.pl -i Conflux.txt -m M -n 2  
};

my $MWS_SPOILER;
my $ND_FILE;
my $index = -1;
my $input;
my $output;
my $m_symbol = 'M';
my $number   = '2';

GetOptions(
	"i=s" => \$input,
	"o=s" => \$output,
	"m=s" => \$m_symbol,
	"n=i" => \$number
) or die $USAGE;

if (!defined $input) {
	print $USAGE;
	exit(1);
}

if (!defined $output) {
	$output = (fileparse($input,'\..*'))[0] . '.nd';
}

open $MWS_SPOILER, '<', $input  or die "Unable to open file: $input";
open $ND_FILE,     '>', $output or die "Unable to create file: $output";

write_nd_file($ND_FILE, read_mws_spoiler($MWS_SPOILER), $m_symbol, 'R',
	$number);

close $MWS_SPOILER;
close $ND_FILE;

exit(0);

#MWS Format example:
# Card Name:	Aerie Mystics
# Card Color:	W
# Mana Cost:	4W
# Type & Class:	Creature - Bird Cleric
# Pow/Tou:	3/3
# Card Text:	Flying  %1%G%U, %T: Creatures you control gain shroud until end of turn.
# Flavor Text:
# Artist:
# Rarity:		U
# Card #:		1/145
sub read_mws_spoiler {
	my ($MWS_FH) = @_;
	my @card_list;

	while (my $line = <$MWS_FH>) {
		chop $line;
		if ($line =~ /^Card Name:\s+(.+)$/) {
			$index++;
			$card_list[$index]{name} = $1;
		}
		elsif ($line =~ /^Card Color:\s+(.+)$/) {
			$card_list[$index]{color} = $1;
		}
		elsif ($line =~ /^Mana Cost:\s+(.+)$/) {
			$card_list[$index]{cost} = $1;
		}
		elsif ($line =~ /^Type & Class:\s+(.+)$/) {
			$card_list[$index]{type} = $1;
		}
		elsif ($line =~ /^Pow\/Tou:\s+(.+)$/) {
			$card_list[$index]{pow_tou} = $1;
		}
		elsif ($line =~ /^Card Text:\s+(.+)$/) {
			$card_list[$index]{text} = $1;
		}
		elsif ($line =~ /^Rarity:\s+(.+)$/) {
			$card_list[$index]{rarity} = $1;
		}
	}
	return \@card_list;
}

sub write_nd_file {
	my ($ND_FH, $card_list, $mythic_symbol, $duplicate_symbol, $times) = @_;

	my $has_mythics = has_mythics($card_list, $mythic_symbol);

	binmode $ND_FH;
	write_nd_header($ND_FH);

	foreach my $card (@{$card_list}) {
		my $counter = 0;
		do {
			write_nd_field($ND_FH, $card->{name}, 1);
			write_nd_field(
				$ND_FH,
				get_nd_rarity(
					$card->{rarity}, $mythic_symbol, $duplicate_symbol
				),
				0
			);
			write_nd_field($ND_FH, get_nd_color($card->{color}), 0);
			write_nd_field($ND_FH, $card->{cost},                1);
			write_nd_field($ND_FH, $card->{type},                1);
			write_nd_field($ND_FH, get_nd_text($card->{text}),   1);
			write_nd_field($ND_FH, $card->{pow_tou},             1);
		  } while ($has_mythics == 1
			and $card->{rarity} eq $duplicate_symbol
			and ++$counter < $times);
	}
	write_nd_tail($ND_FILE);
}

sub has_mythics {
	my ($list, $symbol) = @_;

	foreach my $card (@{$list}) {
		return 1 if ($card->{rarity} eq $symbol);
	}
	return 0;
}

sub write_nd_header {
	my ($ND_FH) = @_;
	print {$ND_FH} "\1\0\3\0\12\0";
	return;
}

sub write_nd_field {
	my ($ND_FH, $field_value, $is_string) = @_;
	$field_value = (defined $field_value ? $field_value : '');
	my $length = $is_string ? length($field_value) + 1 : length($field_value);
	print {$ND_FH} chr($length & 0xFF), chr($length >> 8);
	print {$ND_FH} "$field_value";
	if ($is_string == 1) {
		print {$ND_FH} "\0";
	}
	return;
}

sub write_nd_tail {
	my ($ND_FH) = @_;
	print {$ND_FH} "\3\0END\1\0.\1\0.\0\0\0\0\0\0\0\0";
	return;
}

sub get_nd_rarity {
	my ($rarity, $mythic, $duplicate) = @_;
	$rarity =~ s/R/+/;
	$rarity =~ s/U/=/;
	$rarity =~ s/C/-/;
	if ($duplicate eq 'R') {
		$rarity =~ s/$mythic/+/;
	}
	elsif ($duplicate eq 'U') {
		$rarity =~ s/$mythic/=/;
	}
	else {
		$rarity =~ s/$mythic/-/;
	}
	return $rarity;
}

sub get_nd_text {
	my ($text) = @_;
	return $text unless (defined $text);
	$text =~ s/\%//g;
	$text =~ s/\s{2}/\n/g;
	return $text;
}

sub get_nd_color {
	my ($color) = @_;
	$color =~ s/Gld/M/;
	$color =~ s/Art/A/;
	$color =~ s/Lnd/L/;
	return $color;
}