#!/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-S 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', 'S', 'C', '*');
			for ($faces[int(rand()*@faces)]) {
				print;
				$chips[$p]-- if /[LRC]/;
				$chips[$l]++ if /L/;
				$chips[$r]++ if /R/;
				$chips++ if /C/;
				do {my $h = int (($chips+1)/2); $chips[$p]+=$h; $chips-=$h} if /S/;
			}
		}
		my $color = $chips >= (2 * @chips) ? '#ffffaa' : 'ffffff';
		print "<td bgcolor=#ccffcc>", map ("$_ ", @chips), " <td width=30 bgcolor=$color> $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 inspired by <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=lcrs.cgi?$more>more</a> players.
View the <a href=lcrs.txt>source</a>.
<br><br>
This variation adds S for split-the-pot. 
We play this as if dice are rolled and played one at a time. 
Unlike the unmodified game, the pot can now both grow and shrink. 
We highlight the pot whenever it holds 2/3 of the original chips.
</table>