#! /usr/bin/perl -w
use strict;

my $enemies = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
my $enemy_color = "#ff0000";
my @minis = (
#     {
#         name => 'Elora',
#         letter => 'E',
#         color => '#000080',
#     },
#     {
#         name => 'Benedicta',
#         letter => 'B',
#         color => '#000080',
#     },
#     {
#         name => 'Filica',
#         letter => 'F',
#         color => '#000080',
#     },
    # {
    #     name => 'Aeleva',
    #     letter => 'A',
    #     color => '#000080',
    # },
#    {
#        name => 'Jin',
#        letter => 'J',
#        color => '#000080',
#    },
    {
        name => 'Gwin',
        letter => 'G',
        color => '#000080',
    },
#     {
#         name => 'Helena',
#         letter => 'H',
#         color => '#ff00ff',
#     },
#     {
#         name => 'Dorcas',
#         letter => 'D',
#         color => '#ff00ff',
#     },
#     {
#         name => 'Kava',
#         letter => 'K',
#         color => '#ff00ff',
#     },
#    {
#        name => 'Finduilas',
#        letter => 'F',
#        color => '#ff00ff',
#    },
    # {
    #     name => 'Miriam',
    #     letter => 'M',
    #     color => '#ff00ff',
    # },
    # {
    #     name => 'Mary',
    #     letter => 'M',
    #     color => '#ff00ff',
    # },
#     {
#         name => 'Barnabas',
#         letter => 'B',
#         color => '#800080',
#     },
#     {
#         name => 'Gwydion',
#         letter => 'G',
#         color => '#800080',
#     },
#     {
#         name => 'Mordecai',
#         letter => 'M',
#         color => '#800080',
#     },
    # {
    #     name => 'Trantor',
    #     letter => 'T',
    #     color => '#800080',
    # },
#    {
#        name => 'Hildy',
#        letter => 'H',
#        color => '#800080',
#    },
    # {
    #     name => 'Guthmund',
    #     letter => 'G',
    #     color => '#800080',
    # },
    # {
    #     name => 'Arol',
    #     letter => 'A',
    #     color => '#800080',
    # },
#     {
#         name => 'Zotin',
#         letter => 'Z',
#         color => '#945fdc',
#     },
#     {
#         name => 'Keryn',
#         letter => 'K',
#         color => '#945fdc',
#     },
#     {
#         name => 'Wolf',
#         letter => 'W',
#         color => '#945fdc',
#     },
#     {
#         name => 'Summon_R',
#         letter => 'R',
#         color => '#945fdc',
#     },
#     {
#         name => 'Donessh',
#         letter => 'D',
#         color => '#945fdc',
#     },
    # {
    #     name => 'Vaddyn',
    #     letter => 'V',
    #     color => '#945fdc',
    # },
#    {
#        name => 'Mardram',
#        letter => 'M',
#        color => '#945fdc',
#    },
    # {
    #     name => 'Adwulf',
    #     letter => 'A',
    #     color => '#945fdc',
    # },
    # {
    #     name => 'Vaddyn_Summon',
    #     letter => 'S',
    #     color => '#945fdc',
    # },
#     {
#         name => 'Zedd',
#         letter => 'Z',
#         color => '#a52a2a',
#     },
#     {
#         name => 'Altraminus',
#         letter => 'A',
#         color => '#2da24a',
#     },
    # {
    #     name => 'Waltham',
    #     letter => 'W',
    #     color => '#2da24a',
    # },
    # {
    #     name => 'Andrei',
    #     letter => 'A',
    #     color => '#2da24a',
    # },
    # {
    #     name => 'Artur',
    #     letter => 'A',
    #     color => '#2da24a',
    # },
    # {
    #     name => 'Artur_Summon',
    #     letter => 'S',
    #     color => '#2da24a',
    # },
    # {
    #     name => 'Linden',
    #     letter => 'L',
    #     color => '#a52a2a',
    # },
    # {
    #     name => 'Eafrid',
    #     letter => 'E',
    #     color => '#a52a2a',
    # },
#     {
#         name => 'Flaming_Sphere',
#         letter => 'F',
#         color => '#ffb500'
#     }
    );


my $template = "template_20x20.svg";

for my $e (split "", $enemies) {
    my $m = {
        name => "Enemy_$e",
        letter => "$e",
        color => $enemy_color,
    };
    push @minis, $m;
}

for my $m (@minis) {
    my $name = ${$m}{name};
    my $l = ${$m}{letter};
    my $color = ${$m}{color};
    print "$l, $color\n";

    open ORIG, "<$template";
    open NEW, ">$name.svg";
    while (my $line = <ORIG>) {
        $line =~ s|>M</tspan>|>$l</tspan>|;
        $line =~ s|#ff00ff|$color|;
        print NEW $line;
    }
    system("inkscape --export-png=$name.png --export-area-drawing $name.svg");
}