#!/usr/bin/perl

use CGI;
use CGI::Carp(fatalsToBrowser);
$cgi = new CGI;
$me = $cgi->script_name;
for($cgi->param()) { $F{$_} = $cgi->param($_); }

$DEBUG = 1;
$F{stage} ||= 'intro';
$F{issue} ||= '0310';
#$F{issue} ||= `date '+%y%m'`;
$F{imgname} ||= 'bball';
$F{gametitle} ||= 'Baseball';

require "init.pl";
require "func.pl";

&printTop unless $F{stage} eq 'last';

# print a question
if($F{stage} =~ /\d+/) {
  if(defined $F{answer}) {
    if($F{answer} eq $ans_key[$F{stage}-1]) { &correctAnswer; }
    else { &wrongAnswer; }
  } printQuestion($F{stage});

# print success screen; ($F{answerlist} must be eq '0021201212'
} elsif($F{stage} eq 'last') {
  if(not goodAnswers($F{answerlist})) { $F{stage} = 'intro'; $bgcolor='#ffffff'; $style_w = ''; $wally = 1; }
  &printTop;
  &printIntro if $wally;
  &youWin;

# print intro screen
#} elsif($F{stage} eq 'intro') {
} else {
  &printIntro;
}


print "</td></tr></table>\n";
print "</form>\n" unless $F{stage} eq '11';
&html_bot;