#!/usr/local/bin/perl
use CGI qw/:standard/;
print header();
$script="";
$prevaxis = -1;
for($turns=0;$turns<40;) {
    $axis = int(rand(3));
    $times = int(rand(3))+1;
    $layer = int(rand(4));
    if($axis != $prevaxis) {
	%prevlayers = ();
    }
    if(!exists($prevlayers{$layer})) {
	if($turns) {
	    $script .= " ";
	}
	if($layer%2) {
	    $script .= "M";
	}
	$script .= substr("RLUDFB", $axis*2+$layer/2, 1);
	if($times > 1) {
	    $script .= substr("012'", $times, 1);
	}
	$prevlayers{$layer} = 1;
	$prevaxis = $axis;
	$turns++;
    }
}
print "<applet code=\"RevengePlayer.class\" archive=\"revengeplayer.jar\" width=\"300\" height=\"300\">\n";
print "  <param name=\"scriptLanguage\" value=\"SupersetENG\">\n";
print "  <param name=\"script\" value=\"$script\">\n";
print "</applet><p>\n";
print "<a href=\"index.cgi\">scramble</a><p>\n";
print "<a href=\"scramble.txt\">source code </a>\n";