########################################
# "Blink"
# -------
#
# A random probably-nonexistant word
# will blink quickly on the screen. Try
# to remember it and type it in to get
# to the next level. As you go on the
# words will get longer (so the game
# can't be "won".)
#
# A very good score is probably around
# 7.
#
# By Jeremy Ruten ("Jeremysr")
# E-mail: jeremy.ruten@gmail.com
# Website: http://bio-gaming.com/jeremy
########################################

@consonants = ("b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "p", "q", "r", "s", "t", "v", "w", "x", "y", "z");
@vowels = ("a", "e", "i", "o", "u");

$lose = 0;
$level = 1;

while ($lose == 0) {
	$word = "";
	for ($x = 0; $x < $level * 2; $x += 2) {
		$word .= $consonants[int(rand(20))];
		$word .= $vowels[int(rand(4))];
	}

	print "Level $level; Press enter when you're ready.";
	$asdf = <STDIN>;

	print "\n\n$word\n\n";

	# Wait...
	for ($x = 0; $x < 1000000 * $level; $x++) { }

	print "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";

	print "What was it? ";
	$guess = <STDIN>;
	chop $guess;

	print "\n";

	if ($guess eq $word) {
		$level++;
	} else {
		$lose = 1;
	}
}

print "Wrong!\n\n";