#!/usr/athena/bin/perl

$score = 0;
print("\n\n\nWhich Test?\n");
print("1) Nerd Test\n");
print("2) Male Purity Test(100)\n");
print("3) Female Purity Test(100)\n");
print("\n?>");
$answer = (<STDIN>);
chop($answer);
if($answer eq "1")
{
	open(TEST, "/afs/athena/user/m/a/macoiley/humor/Tests/nerd.purity");
}
elsif($answer eq "2")
{
	open(TEST, "/afs/athena/user/m/a/macoiley/humor/Tests/purity100.male");
}
elsif($answer eq "3")
{
	open(TEST, "/afs/athena/user/m/a/macoiley/humor/Tests/purity100.female");
}
system("stty -echo");
$ans = $answer;
while(<TEST>)
{
	if($_ =~ /\d\)/)
	{
		if($prev =~ /\?/){
		print($prev);
		$answer = (<STDIN>);
		chop($answer);
		if($answer =~ "y"){ $score++;}
		$prev = "";}
	}
$prev .= $_;

}
if($prev =~ /\?/){
		print($prev);
		$answer = (<STDIN>);
		chop($answer);
		if($answer =~ "y"){ $score++;}
		$prev = "";}
print("Foo. $score\n");
($score = 100-$score) unless $ans == 1;
print("Score: $score\n");