#!/usr/bin/perl
use lib '/home/dave/perl/maze_def';
use MD;
require "../cgi-lib.pl";
ReadParse(*params);
print "Content-Type: text/html\n\n";
$monsters = MD::get_monster_stats();
$ranks = MD::get_ranks();
$mdip = MD::get_ip();

print "<style>table tr td { border-top: #bbbbbb 1px solid; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: x-small; } body { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: x-small; }</style>\n";
print "<table cellspacing=0 cellpadding=3 style=\"font-family: Verdana, Arial, Helvetica, sans-serif; font-size: x-small;\">\n";
print "<tr>\n";
print "<th colspan=2>Monster</th>\n";
foreach my $rank (sort { $ranks->{$b}{id} <=> $ranks->{$a}{id} } (keys %{$ranks})) {
    print "<th colspan=2>$ranks->{$rank}{name}</th>\n";
}
print "</tr>\n";
foreach my $mid (sort { $a <=> $b; } (keys %{$monsters})) {
    print "<tr style=\"tr td { border-bottom: 1px solid; }\">\n";
    print "<td>$mid</td>\n";
    if($params{noimg}) {
	print "<td></td>\n";
    } else {
	print "<td><img src=\"http://$mdip/images/Monsters/monster$mid.png\"></td>\n";
    }
    foreach my $rank (sort { $ranks->{$b}{id} <=> $ranks->{$a}{id} } (keys %{$ranks})) {
	print "<td style=\"border-left: 1px solid;\">";
	unless($params{noimg}) {
	    print "<img src=\"http://$mdip/Images/speed.png\"> ";
	}
	if($monsters->{$mid}{$rank}{spd} =~ /[1-9]/) {
	    print sprintf("%.2f",$monsters->{$mid}{$rank}{spd});
	} else {
	    $need{$mid} = 1;
	    print "?";
	}
	print "</td>\n";
	print "<td style=\"\">";
	unless($params{noimg}) {
	    print "<img src=\"http://$mdip/Images/heart.png\"> ";
	}
	print "$monsters->{$mid}{$rank}{hp}</td>\n";
    }
    print "</tr>\n";
}
print "</table>\n";
if(keys %need) {
    print "<br><br>\n";
    print "<table><tr><th>Stats Needed:</th></tr>";
    foreach my $mid (sort {$a <=> $b} (keys %need)) {
	print "<tr><td>$mid <img src=\"http://$mdip/images/Monsters/monster$mid\.png\"></td></tr>\n";
    }
    print "</table>\n";
}
print "<br><br>\n";
if(keys %need) {
    print "Total With Stats: ".(scalar(keys %{$monsters}) - scalar(keys %need))."<br>\n";
    print "Total Missing: ".(scalar(keys %need))."<br>\n";
}
print "Total Monsters: ".(scalar(keys %{$monsters}))."<br>\n";