#!/usr/bin/perl
# (c) 2005, Ward Cunningham
# Made available under EPL 1.0
# http://www.opensource.org/licenses/eclipse-1.0.txt

use strict;
print "Content-type: text/html\n\n";

print <<"";
<center><h1>L-C-R Game</h1>
<table cellspacing=0 cellpadding=2>

my @chips = map (3, 1 .. ($ENV{QUERY_STRING} || 3));
my $chips = 0;

play: for (1..100) {
	print "<tr>\n";
	for my $p(0 .. ($#chips)) {
		print "<td align=center bgcolor=#aaffaa> ";
		my $dice = ($chips[$p] < 3) ? $chips[$p] : 3;
		my ($l, $r) = (($p-1)%@chips, ($p+1)%@chips);
		for (1 .. $dice) {
			my @faces = ('L', 'R', 'C', '*', '*', '*');
			for ($faces[int(rand()*@faces)]) {
				print;
				$chips[$p]-- if /[LRC]/;
				$chips[$l]++ if /L/;
				$chips[$r]++ if /R/;
				$chips++ if /C/;
			}
		}
		print "<td bgcolor=#ccffcc>", map ("$_ ", @chips), " <td width=30> $chips \n";
		last play if grep ($_, @chips) == 1;
	}
}

my $more = @chips+1;
print <<"";
</table><br><br>
<table width=400>
<tr><td><font color=gray>
Each refresh plays one game of <a href=http://dicegames.com/l-c-r.html>l-c-r</a>.
Columns show each player's roll followed by all player's chips and the center pot after that roll.
Try <a href=lcr.cgi?$more>more</a> players.
View the <a href=lcr.txt>source</a>.
Try my variant, <a href=lcrs.cgi>l-c-r-s</a>, where S splits the pot.
</table>