#!/usr/bin/perl
require "../cgi-lib.pl";
require "/home/dave/roll.pl";
ReadParse(*params);
print "Content-Type: text/html\n\n";

print "<style>body { font-family: arial; font-size: 10pt; }\ntable { font-family: arial; font-size: 10pt; }</style>\n";
$r1 = verify_roll($params{roll1});
$r2 = verify_roll($params{roll2});
$iters = $params{iters};
$iters =~ s/\D+//g;
if($iters > 100000) { $iters = 100000; }
elsif($iters < 0) { $iters = 1; }
elsif($iters == 0) { $iters = 10000; }

if(length($r1) && length($r2)) {
    $win1=0;
    $win2=0;
    $ties=0;
    #$iters = 10000;
    for($i=0;$i<$iters;$i++) {
	$roll1 = roll($r1);
	$roll2 = roll($r2);
	if($roll1 > $roll2) { $win1++; }
	elsif($roll2 > $roll1) { $win2++; }
	else { $ties++; }
    }
    print "Compared $iters rolls:<br>\n";
    print "<table border=1 cellspacing=1>\n";
    print "<tr><th>Roll</th><th># Wins</th><th>% Wins</th></tr>\n";
    print "<tr><td>$r1</td><td>$win1</td><td>".(100*$win1/$iters)."\%</td></tr>\n";
    print "<tr><td>- Ties -</td><td>$ties</td><td>".(100*$ties/$iters)."\%</td></tr>\n";
    print "<tr><td>$r2</td><td>$win2</td><td>".(100*$win2/$iters)."\%</td></tr>\n";
    print "</table>\n"
}

print "<form>\n";
print "<input type=text name=roll1 value=\"$params{roll1}\">Roll 1<br>\n";
print "<input type=text name=roll2 value=\"$params{roll2}\">Roll 2<br>\n";
print "<input type=text name=iters value=\"$params{iters}\"># of Rolls<br>\n";
print "<input type=submit value=\"Compare\"><br>\n";
print "</form>\n";