#!/usr/bin/perl
########################################################################
#    MUSH2cdf - Create a Card Definition File from a Dvorak MUSH
#                  listing (Quick and dirty)
#    Version 1.0   Thu 28-11-2001 
#    May be freely distributed and improved upon.
#    Copyright 2001 by Dion Nicolaas.
#
#    History:
#    1.0    28/11/2001    Dion Nicolaas   Started
########################################################################

while (<>) {
    # parse card def
    chomp;
    s/^newcard\s*//;
    if ($_ eq "" or m/^\@dolist/) {
        next;
    }
    $card++;
    # Get around slashes in title: no split
    m/^(.*)\/([ATS])\/(.*)$/;
    $title = $1;
    $typeletter = $2;
    $desc = $3;
    $title =~ s/"/\&quot;/g;
    if ($typeletter eq "A") {
        $parent = "action";
    } elsif ($typeletter eq "T") {
        $parent = "thing";
    } else {
        $parent = "deck";
    }

    $desc =~ s/"/\&quot;/g;
    if ($desc =~ m/^([A-Z][A-Za-z]*)\. /) {
        $category = $1;
        $parent = $category;
    }
    else {
        $category = "";
    }
    $title =~ m/^([A-Za-z0-9]*)/;
    $id = "$1$card";
    if ($parent ne "") {
        $parentfield = "parent: $parent;\n";
    } else {
        $parentfield = "";
    }

    
    print <<EOF;
$id {
    name: "$title";
    text: "$desc";
    $parentfield
    count: 1;
}

EOF
    if ($category ne "") {
        if ($typeletter eq "A") {
            if (!grep m/$category/, @acategories) {
                push @acategories, $category;
            }
        } elsif ($typeletter eq "T") {
            if (!grep m/$category/, @tcategories) {
                push @tcategories, $category;
            }
        }
        else {
            if (!grep m/$category/, @categories) {
                push @categories, $category;
            }
        }
    }
}

print <<EOF;
deck {
    name: "$ARGV";
    card-background-colour: #ffffcc;
    title-colour: #000000;
    text-background-colour: #cccccc;
    text-colour: #000000;    
    bar-background-colour: #666666;
    bar-text-colour: #ffffff;
}

action {
    name: "Action";
    bar-background-colour: #660000;
    parent: deck;
}

thing {
    name: "Thing";
    bar-background-colour: #000066;
    parent: deck;
}

EOF
foreach $category (@categories) {
    print <<EOF;
$category {
    name: "$category";
    parent: deck;
}

EOF
}
foreach $category (@acategories) {
    print <<EOF;
$category {
    name: "$category";
    parent: action;
}

EOF
}
foreach $category (@tcategories) {
    print <<EOF;
$category {
    name: "$category";
    parent: thing;
}

EOF
}