#!/usr/bin/perl
# You may need to change the above line to  #!/usr/local/bin/perl
###############################################################
# Hangman 1.3
# By J.R. Greer  jrg@albedo.net
# ftp://ftp.albedo.net/pub/games/html/
# http://www.albedo.net/pub/cgi-games.html
# 
# game based on code by  Nik Swoboda  nswoboda@cs.indiana.edu
# http://blackcat.brynmawr.edu/~nswoboda/prog-html.html
#
# cgi_receive routine loosely based on code developed at the 
# National Center for Supercomputing Applications (NCSA) at 
# the University of Illinois at Urbana-Champaign.
# 
# (c) 1997,1998 all rights reserved
#
# The program is placed under the GNU Public License (GPL)
# You may copy freely or modify the code in anyway as long
# as the above information stays intact. 
#
#################################################################
# Configuration

# The Directory where the .gif files are  ie: /game/hangman/image/
$GIF_DIR = "/game/image/";

# The cgi-bin dir and the name of the cgi ie: /cgi-bin/hangman.pl
$CGI_BIN = "/cgi-bin/hangman.1.3.pl";

# the URL to go back to leave the game  ie: http://www.albedo.net/
$HOMEP = "http://www.albedo.net/pub/cgi-games.html";

# The location of the word file
$DATAFILE = "/usr/local/etc/httpd/cgi-bin/data/hangman.words";

# If the Clue stays on the screen
$CLUE=1;

$bgcolour="white";
$textcolour="#000010";
$linkcolour="blue";
$vlinkcolour="#FF00FF";
$alinkcolour="#FFFF00";

# use background
$BG=0;
$BGGIF="/game/image/bg.gif";

##################################################################
###################################################################
#  Do not edit below this line
###################################################################
&cgi_receive;
   if ($FINPUT{'word'}) {
     &p_head;
     $type = $FINPUT{'clue'};
     $FINPUT{'word'} =~ y/a-x,y,z/c-z,a,b/;              ### un-encrypt word
     if ($FINPUT{'done'} eq 'done')               ### guessed the word
	{ if ($FINPUT{'word'} eq $FINPUT{'new'})  ### get it right?
           {
             print "<DIV ALIGN=CENTER><FONT SIZE=+4 COLOR=\"#3333ff\">";
             print "You were right.</FONT><BR>";
             print "<FONT SIZE=+4 COLOR=\"#ff3333\">";
             print "You Won!!!</FONT><BR>";
             print "<img src=\"",$GIF_DIR,"hangw.gif\" height=150 width=150 alt=\"\"><BR>";
           }
           else {
               print "<DIV ALIGN=CENTER><FONT SIZE=+4 COLOR=\"#cc6633\">";
               print "You were WRONG!</FONT><BR>";
               print "<img src=\",$GIF_DIR,hang6.gif\" height=150 width=150 alt=\"\n O \n \\\|/\n \| \n/ \\\"><BR>";                
               print "It was really <B>",$FINPUT{'word'},".</B>";
               }
          print "<BR>Play another game of <a href=\"",$CGI_BIN,"\">Hangman</A>";
          print " | go <A HREF=\"$HOMEP\">back</a> to the homepage";
          print "</DIV></BODY></HTML>\n";
          exit;
          return;
       }
     
     chop($FINPUT{'st'});                       # kill newline 
     $FINPUT{'st'} =~ s/\s//g;                  # Kill spaces
     $FINPUT{'st'} =~ s/^(.)(.*)/$1/;           # strip all but 1st char  
     $guess = $FINPUT{'st'}.' '.$FINPUT{'guess'};
     $guess =~ y/A-Z/a-z/;                      # lower case
     @sofar = split(/\s+/,$guess);              # make guess into an array 
     $gue = @sofar;                             # get number of letters
     $num = length($FINPUT{'word'});
     ### make the real word into an array buy splitting on space or nil
     @rword = split(/ */,$FINPUT{'word'}); 
     print "<DIV ALIGN=CENTER><FONT SIZE=+3 color=\"#336699\">";
     $gotten = 0;
     $TEST = "";
     LET: for ($i=0;$i<$num;$i++) {             # match letters 
            $temp = $rword[$i];
	    for ($g=0;$g<$gue;$g++) { 
              if ($sofar[$g] eq $temp) { 
                print $temp;
		if ($TEST !~ /$temp/) {         # is there dupe letters 
                  $gotten = $gotten +1;         # no up count
                }
                $TEST= "$TEST$temp";		# build autotest string    
                next LET;
	      }
	    }
            print "_ ";                         # if no match print this
            $TEST = "$TEST _";
	  }
     print "</FONT></DIV><BR>";
############################################
######  Test if they got it right  
     if ($TEST eq $FINPUT{'word'}) {
        print "<DIV ALIGN=CENTER><FONT SIZE=+3 COLOR=\"#ff3333\">";
        print "You Won!!!</FONT><BR>";
        print "<img src=\"",$GIF_DIR,"hangw.gif\"><BR>";
        print "Play another game of <a href=\"",$CGI_BIN,"\">Hangman</A>";
        print " | go <A HREF=\"$HOMEP\">back</a> to the homepage</DIV>";
        print "</BODY></HTML>";
        exit;
     }
############################################
##### Print new page
     print "<DIV ALIGN=CENTER>";
     print "<img src=\"",$GIF_DIR,"hang",($gue-$gotten),".gif\" height=150 width=150 alt=\"\"><BR>";
     if (($gue-$gotten) < 6) {                  # still guesses left
       $FINPUT{'word'} =~ y/a,b,c-z/y,z,a-y/;          # encrypt word
       if ((6-($gue-$gotten)) == 1) {           # lets make it 
         print "You have 1 guess left!";        # look nice
         }
        else {
         print "You have ",(6-($gue-$gotten))," guesses left!";
         }
       ########   Print clue
       if ($CLUE==1){
          print "<BR><font color=\"#0033ff\">hint : <B>$type</B></FONT>";
       }
       print "</DIV><P><DIV ALIGN=CENTER>"; 
       print "\n<form method=\"post\" action=\"",$CGI_BIN,"\">";
       print "<INPUT type=\"hidden\" name=\"guess\" value=\"$guess\">";
       print "<INPUT type=\"hidden\" name=\"word\" value=\"$FINPUT{'word'}\">";
       ### add clue to form
       if ($CLUE == 1){
          print "<input type=\"hidden\" name=\"clue\" value=\"$type\">";   
       }
    &buttons;
       print "</form>\n";
       print "Or if you are daring type in what you think that the word is.<p>"; 
       print "<form method=\"post\" action=\"",$CGI_BIN,"\">";
       print "<INPUT name=\"new\" size=12> &nbsp; "; 
       print "<input type=\"hidden\" name=\"done\" value=\"done\">"; 
       print "<input type=\"hidden\" name=\"word\" value=\"$FINPUT{'word'}\">";
       print "<input type=\"submit\" value=\"Guess It\">\n";
       print "</form> </DIV></BODY></html>\n";

       }
     ### You are Hung!!
     else{                                      
       print "<DIV ALIGN=CENTER><FONT SIZE=+3 COLOR=\"#ff3333\">";
       print "Game over.</FONT><BR><FONT SIZE=+2 COLOR=\"#3333cc\">";
       print "The correct answer is <B>$FINPUT{'word'}</B>.</FONT><BR>";
       print "Play another game of <a href=\"",$CGI_BIN,"\">Hangman</A>";
       print " | go <A HREF=\"$HOMEP\">back</a> to the homepage</DIV>";
       print "</BODY></HTML>";
       exit;
       }
     }
else {
    ########################################################
    # First time through the program  generate the data
    ########################################################
    &p_head;
    # read word file
    open (WF, $DATAFILE) || die "file not found";
     @word_list=<WF>;
    close (WF);
    srand(time ^ $$);$num = rand(@word_list); 
    ($word, $type) = split(/,/, $word_list[$num]);
    print "<DIV ALIGN=CENTER><FONT SIZE=+3 color=\"#336699\">";
    $num = length($word);
       for ($i=1;$i<=$num;$i++)
	 { print '_ ';	  
         }
    $word =~ y/a,b,c-z/y,z,a-y/;                     # encrypt word
    print "</FONT></DIV>\n<p><DIV ALIGN=CENTER>";
    print "<img src=\"",$GIF_DIR,"hang0.gif\" height=150 width=150 alt=\"\"><BR>";
    print "Guess your first letter of the above unknown word.<BR>";
    print "<font color=\"#0033ff\">hint : <B>",$type,"</B></FONT>";
    print "<form method=\"post\" action=\"",$CGI_BIN,"\">";
    print "<input type=\"hidden\" name=\"guess\" value=\"\">";
    if ($CLUE==1){
        print "<input type=\"hidden\" name=\"clue\" value=\"$type\">";
    }
    print "<input type=\"hidden\" name=\"word\" value=\"$word\">";
    &buttons;
    print "</form>\n";
    print "Or if you are daring type in what you think that the word is.<BR>";
    print "<form method=\"post\" action=\"",$CGI_BIN,"\">";
    print "<input name=\"new\" size=12> &nbsp; ";
    print "<input type=\"hidden\" name=\"done\" value=\"done\">";
    print "<input type=\"hidden\" name=\"word\" value=\"$word\">";
    print "<input type=\"hidden\" name=\"clue\" value=\"$type\">";
    print "<input type=\"submit\" value=\"Guess It\">\n";
    print "</form> </html>\n";
    }
#####################################################
# Print a nice colourful header as well as HTML head 
sub p_head {
     print "Content-type: text/html\n\n";
     print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Draft//EN\">";
     print "<HTML>\n";
     print "<HEAD><title> Hangman </title></HEAD>\n";
     print "<BODY bgcolor=\"$bgcolour\" ";
     if ($BG==1){ 
       print "background=\"$BGGIF\" ";
     }
     print "text=\"$textcolour\" link=\"$linkcolour\" "; 
     print "vlink=\"$vlinkcolour\" link=\"$alinkcolour\">";
     print "<DIV ALIGN=CENTER>";
     print "<FONT COLOR=\"#ff3333\" SIZE=+5>H</FONT>";
     print "<FONT COLOR=\"#cc6633\" SIZE=+5>a</FONT>";
     print "<FONT COLOR=\"#999900\" SIZE=+5>n</FONT>";
     print "<FONT COLOR=\"#33cc33\" SIZE=+5>g</FONT>";
     print "<FONT COLOR=\"#339999\" SIZE=+5>m</FONT>";
     print "<FONT COLOR=\"#3366cc\" SIZE=+5>a</FONT>";
     print "<FONT COLOR=\"#0033ff\" SIZE=+5>n</FONT>";
     print " &nbsp  ver 1.3</DIV>\n";
     }
#####################################################
## print the A-Z buttons
sub buttons {
     print "<BR>";
    if ($guess !~ /a/) { print "<input type=\"submit\" name=\"st\" value=\" A \">";}
    if ($guess !~ /b/) { print "<input type=\"submit\" name=\"st\" value=\" B \">";}
    if ($guess !~ /c/) { print "<input type=\"submit\" name=\"st\" value=\" C \">";}
    if ($guess !~ /d/) { print "<input type=\"submit\" name=\"st\" value=\" D \">";}
    if ($guess !~ /e/) { print "<input type=\"submit\" name=\"st\" value=\" E \">";}
    if ($guess !~ /f/) { print "<input type=\"submit\" name=\"st\" value=\" F \">";}
    if ($guess !~ /g/) { print "<input type=\"submit\" name=\"st\" value=\" G \">";}
    if ($guess !~ /h/) { print "<input type=\"submit\" name=\"st\" value=\" H \">";}
    if ($guess !~ /i/) { print "<input type=\"submit\" name=\"st\" value=\" I \">";}
    if ($guess !~ /j/) { print "<input type=\"submit\" name=\"st\" value=\" J \">";}
    if ($guess !~ /k/) { print "<input type=\"submit\" name=\"st\" value=\" K \">";}
    if ($guess !~ /l/) { print "<input type=\"submit\" name=\"st\" value=\" L \">";}
    if ($guess !~ /m/) { print "<input type=\"submit\" name=\"st\" value=\" M \">";}
    if ($guess !~ /n/) { print "<input type=\"submit\" name=\"st\" value=\" N \">";}
    if ($guess !~ /o/) { print "<input type=\"submit\" name=\"st\" value=\" O \">";}
    if ($guess !~ /p/) { print "<input type=\"submit\" name=\"st\" value=\" P \">";}
    if ($guess !~ /q/) { print "<input type=\"submit\" name=\"st\" value=\" Q \">";}
    if ($guess !~ /r/) { print "<input type=\"submit\" name=\"st\" value=\" R \">";}
    if ($guess !~ /s/) { print "<input type=\"submit\" name=\"st\" value=\" S \">";}
    if ($guess !~ /t/) { print "<input type=\"submit\" name=\"st\" value=\" T \">";}
    if ($guess !~ /u/) { print "<input type=\"submit\" name=\"st\" value=\" U \">";}
    if ($guess !~ /v/) { print "<input type=\"submit\" name=\"st\" value=\" V \">";}
    if ($guess !~ /w/) { print "<input type=\"submit\" name=\"st\" value=\" W \">";}
    if ($guess !~ /x/) { print "<input type=\"submit\" name=\"st\" value=\" X \">";}
    if ($guess !~ /y/) { print "<input type=\"submit\" name=\"st\" value=\" Y \">";}
    if ($guess !~ /z/) { print "<input type=\"submit\" name=\"st\" value=\" Z \">";}    
     }
#####################################################################
##  receive & Decode the html data
sub cgi_receive {
  if ($ENV{'REQUEST_METHOD'} eq "POST") {
    read(STDIN, $incoming, $ENV{'CONTENT_LENGTH'});
  }
  else {
    $incoming = $ENV{'QUERY_STRING'};           # this should never happen
  }
  @pairs = split(/&/, $incoming);
  foreach (@pairs) {
    ($name, $value) = split(/=/, $_);
    $name  =~ tr/+/ /;
    $value =~ tr/+/ /;
    $name  =~ s/%([A-F0-9][A-F0-9])/pack("C", hex($1))/gie;
    $value =~ s/%([A-F0-9][A-F0-9])/pack("C", hex($1))/gie;
    $value =~ s/;/$$/g;                         # Strip out semicolons
    $value =~ s/&(\S{1,6})$$/&\1;/g;
    $value =~ s/$$/ /g;
    $value =~ s/\|/ /g;
    $value =~ s/^!/ /g;
    # $value =~ s/[\/;\[\]<\>&\t]/_/g;    #Sanitize! 
    next if ($value eq "");
    if ($name =~ /^assign-dynamic/) {
      $name = $value;
      $value = "on";
    }
    $FINPUT{$name} .= ", " if ($FINPUT{$name});
    $FINPUT{$name} .= $value;
  }
}