#!/usr/bin/perl
#######################
# A two player tic-tac-toe game. Each square is an image that will change to
# display an X or O when clicked on by the appropriate player. When X or Y
# controls three squares in a row, that player is named the winner.
#######################
use warnings;
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
my $debug eq "yes"; #Use 'yes' for debugging.
print "Content-type: text/html\n\n";
my $lastplayer = param("whichplayer");
my @winner = ("$lastplayer","$lastplayer","$lastplayer");
my $a1= param("a1") || ("blank");
my $a2= param("a2") || ("blank");
my $a3= param("a3") || ("blank");
my $b1= param("b1") || ("blank");
my $b2= param("b2") || ("blank");
my $b3= param("b3") || ("blank");
my $c1= param("c1") || ("blank");
my $c2= param("c2") || ("blank");
my $c3= param("c3") || ("blank");
if ($debug eq "yes")
{
print "Previous player = $lastplayer
";
}
my $who = newplayer(param("whichplayer"));
my $somebodywins;
&winner($somebodywins);
# if ($somebodywins eq @_)
# {
# print "$lastplayer is the winner!";
# print qq
# (
#
#
# Tic-Tac-Toe
#
#
#
# Current player: $who
#
#
#
#
#
# );
# }
#
#
# else
# {
print qq
(
Tic-Tac-Toe
Current player: $who
);
# }
print "
\n";
sub newplayer
{
my ($who)=@_;
if ($who eq "o")
{
return "x";
}
elsif ($who eq "x")
{
return "o";
}
return "x";
};
sub whowas
{
my ($who)=@_;
print "inside whowas, who holds the value $who
";
if ($who eq "o")
{
return "x";
}
elsif ($who eq "x")
{
return "o";
}
return "blank";
};
sub winner
{
my ($somebodywins) = @_;
my @win1=($a1,$a2,$a3);
my @win2=($b1,$b2,$b3);
my @win3=($c1,$c2,$c3);
my @win4=($a1,$b2,$c3);
my @win5=($c1,$b2,$a3);
my @win6=($a1,$b1,$c1);
my @win7=($a2,$b2,$c2);
my @win8=($a3,$b3,$c3);
if
(
$winner[0] eq $win1[0] && $winner[1] eq $win1[1] && $winner[2] eq $win1[2] ||
$winner[0] eq $win2[0] && $winner[1] eq $win2[1] && $winner[2] eq $win2[2] ||
$winner[0] eq $win3[0] && $winner[1] eq $win3[1] && $winner[2] eq $win3[2] ||
$winner[0] eq $win4[0] && $winner[1] eq $win4[1] && $winner[2] eq $win4[2] ||
$winner[0] eq $win5[0] && $winner[1] eq $win5[1] && $winner[2] eq $win5[2] ||
$winner[0] eq $win6[0] && $winner[1] eq $win6[1] && $winner[2] eq $win6[2] ||
$winner[0] eq $win7[0] && $winner[1] eq $win7[1] && $winner[2] eq $win7[2] ||
$winner[0] eq $win8[0] && $winner[1] eq $win8[1] && $winner[2] eq $win8[2]
)
{
print ("$lastplayer is the winner!");
return "yes";
}
}
if ($debug eq "yes")
{
# print "Previous player = $lastplayer
";
print "Did anybody win yet? - $somebodywins
";
print "
Parameters passed :
\n";
foreach my $name ( param )
{
print $name , " => '" , param($name), "'
\n";
}
}