#!/usr/bin/perl
require "../cgi-lib.pl";
ReadParse(*params);
print "Content-Type: text/html\n\n";
print "<table border=1>\n";
for($r=0;$r<1000;$r++) {
    print "<tr>";
    @obstacles = ();
    if($params{r} eq "d20") {
	$done = 0;
	while(!$done) {
	    $zone = int (rand 20);
	    if($zone >= 10 || $obstacles[$zone] == 1) { # || $zone == 4 || $zone == 5) {
		$done = 1;
	    } elsif($zone == 4 || $zone == 5) {
		#reroll!
	    } else {
		$obstacles[$zone] = 1;
	    }
	}
    } elsif($params{r} eq "d10") {
	$roll = int(rand 10) - 5;
	for($i=0;$i<$roll;$i++) {
	    $done = 0;
	    while(!$done) {
		$zone = int (rand 10);
		next if($obstacles[$zone] || $zone == 4 || $zone == 5);
		$obstacles[$zone] = 1;
		$done = 1;
	    }
	}
    }
    for($i=0;$i<10;$i++) {
	print "<td bgcolor=#BBAA44>";
        if($obstacles[$i]) {
	    print "<img src=\"http://www.uci.agh.edu.pl/img/boulder.gif\">\n";
	    $total[$i]++;
	}
	else { print "<img src=\"/~dave/images/spacer.gif\" width=24 height=24>\n"; }
	print "</td>\n";
    }
    print "</tr>\n";
}
print "<tr>\n";
for($i=0;$i<10;$i++) {
    print "<td>$total[$i]</td>\n";
}
print "</tr>\n";
print "</table>\n";