#!/usr/bin/perl -w

use strict;
use diagnostics;
use AnyDBM_File;
use Fcntl;

sub print_results;
sub create_wordbank;
sub enter_challenge;
sub lowercase;

my ($letter, @letters, $display, @display, $word, @word, $wrong_letter
+s, $clue, $mode, $continue, $guess, $correct_guess);

my $dbfile = "wordbank";
tie (my %wordbank, "AnyDBM_File", $dbfile, O_CREAT|O_RDWR, 0600) or di
+e "
+Can't open $dbfile: $!\n";
&create_wordbank unless keys %wordbank;

print "\nWelcome to Hangman!! Would you care to have a dance with deat
+h?\n";
print "\n1. Single Player";
print "\n2. Challenge Mode";
print "\n3. Quit\n";
print "\nYour choice: ";
$mode = <STDIN>;
chomp($mode);

if ($mode ne "1" and $mode ne "2") { exit; }
else { $continue = "y"; }

while ($continue eq "y") {

    my ($max_key, $random_number);    

    if ($mode eq "2" ) {
        &enter_challenge;
    }
    else {
        
        $max_key = (keys(%wordbank)/2);
        $random_number = (rand($max_key)%$max_key) + 1;
        
        $word = $wordbank{$random_number,1};
        $clue = $wordbank{$random_number,2};
    }

    $wrong_letters = 0;
    @letters = ();
    @word = split(//, $word);
    $display = $word;
    $display =~ s/[a-zA-Z]/-/g;
    @display = split(//, $display);
    $correct_guess = 0;

    &print_results;

    while ($wrong_letters < 6 and $correct_guess == 0) {
        
        my ($index, $correct_letter) = (0, 0);

        print "\nLetter, please.";
        print "\nLetter: ";
        $letter = <STDIN>;
        chomp($letter);
        
        $letter = lowercase($letter);

        if (join("", @letters) =~ $letter) {
            print "---------------------------------------------------
+-------";
            print "\nYou already guessed that letter.\n";
            print "---------------------------------------------------
+-------";
            next;
        }

        push(@letters, $letter);

        foreach (@word) {
            if ( lowercase($_) eq $letter ) { 
                $display[$index] = $_;
                $correct_letter = 1;
            }
            $index +=1;
        }

        $display = join("", @display);
        if ($display !~ m/-/) {
            &print_results;
            last; 
        }

        if ($correct_letter == 0) { 
            $wrong_letters += 1;
            print "\nYou guessed wrong! The noose is getting tighter.\
+n"
        }
        else { print "\nYou guessed right! Still, you can't escape the
+ inevitable.\n"; }
        &print_results;
    }
    
    print "\nGame over.\n";
    if ($wrong_letters != 6) {
        print "Congratulations. You slipped the hangman's noose.";
    }
    else {
        print "Sorry. Looks like the crows will be feasting today.";
    }
    print "\nWould you like to play again?\n";
    
    $continue = <STDIN>;
    chomp($continue);
}

untie %wordbank;

sub print_results {
    
    print "\n\n-------------------------------------------------------
+---";
    print "\nClue: $clue";
    print "\nWord: $display";

    print "\nGuess list: [".join(",", @letters)."]";
        
    print "\n\n";
        print "__________\n";
        print "          |\n";
        print "          |";
    
    print "\n";
    if ($wrong_letters > 0 && $wrong_letters < 6) { print "          "
+.chr(2).""; }
    elsif ($wrong_letters == 6) { print "          ".chr(233).""; };
    
    print "\n";
    if ($wrong_letters == 2) { print "          ".chr(30).""; }
    if ($wrong_letters == 3) { print "         /".chr(30).""; }
    if ($wrong_letters >= 4) { print "         /".chr(30)."\\"; }
    
    print "\n";
    if ($wrong_letters == 5) { print "         /"; }
    if ($wrong_letters == 6) { print "         / \\"; }
    
    print "\n";
        print "_______________\n";
        print "_______________";
        print "\n\n";

    print "----------------------------------------------------------"
+;

    if ($correct_guess != 1 and $wrong_letters < 6) {
            print "\n\nCare to wager a guess? Just hit 'Enter' if you 
+don't know.";
            print "\nGuess: ";
            $guess = <STDIN>;
            chomp($guess);
        print "\nGuess: $guess\n";
    }

    if (lowercase($guess) eq lowercase($word)) {
        $correct_guess = 1;
    }
    else { print "\nIncorrect guess. You'll soon be mine.\n"; }
}

sub create_wordbank {
    $wordbank{1,1} = "Larry Wall";
    $wordbank{1,2} = "Creator of Perl.";
    $wordbank{2,1} = "Camel";
    $wordbank{2,2} = "On the cover of 'Programming Perl'.";
}

sub enter_challenge {
    my $x;

    print "\n\n-------------------------------------------------------
+---";
    print "\nPlease enter a word or phrase:\n";
    $word = <STDIN>;
    chomp($word);
    print "\nPlease enter a clue.\n";
    $clue = <STDIN>;
    chomp($clue);
    print "\----------------------------------------------------------
+\n\n";

    $x = (keys(%wordbank)/2) + 1;
    $wordbank{$x,1} = $word;
    $wordbank{$x,2} = $clue;
}

sub lowercase {
    my $temp = $_[0];
    $temp =~ tr/[A-Z]/[a-z]/;
    return $temp;
}