#!/usr/bin/perl
use lib '.';
require "pagelib.pl";
header();
head();

$dir = "images/golems";
if(!opendir(DIR,$dir)) {
    print "Internal error locating images!<br>\n";
}
@files = readdir(DIR);
foreach(@files) { push @images,$1 if(/(\w+\d+)\.jpg/i); }
%used = ();

print qq`
<br><br>
<B><font size=+1>Rock Golems</font></B><br>
<br>
In a recent <a href="http://www.brikwars.com/">BrikWars</a> game, I wanted something
to strike fear into the hearts of our opponents. Or their minifigs at least. After
obsessing about a cool head design I thought up at work, I set out to build it that
night after I got home. I thought the result was pretty cool, but sadly I desperately
lacked the pieces needed to build more of them in flat grey. Hence, I built 4 different
color schemes which seemed to work pretty well:
`;

show_images('grey_golem1',
	    'grey_golem2',
	    'tan_golem1',
	    'tan_golem2',
	    'brown_golem1',
	    'brown_golem2',
	    'black_golem1',
	    'black_golem2',
	    'tan_golem3',
	    'grey_golem3',
	    );

foot();

sub show_images {
    my(@pics) = @_;
    my($i) = 0;
    print "<table width=100\%><tr>\n";
    foreach(@pics) {
	next if($used{$_});
	$used{$_} = 1;
	if(!($i++%4)) {
	    print "</tr>\n<tr>\n";
	}
	print "<td align=center><a href=\"$dir/$_.jpg\"><img src=\"$dir/$_\_th.jpg\" border=0></a></td>\n";
    }
    print "</tr></table>\n";
}