package AlienInit;

use strict;
use warnings;

sub getUsername {
    
    my $name = "";
    while($name eq "") {
        print "May I have your name please? ";
        chomp($name = <>);
    }
    
    print "Thank you $name.\n";
    
    return $name;
}

sub getInventory {

    my ($diff, %inventory);
    while(1) {
        print "Please enter a difficulty level: easy or hard? ";
        chomp($diff = <>);
        
        if ($diff eq "easy"){
            $inventory{wood} = 120;
            $inventory{food} = 50;
            last;
        } elsif ($diff eq "hard"){
            $inventory{wood} = 75;
            $inventory{food} = 20;
            last;
        } else {
            next;
        }
        
        print "You chose $diff.\n";
    }
    
    return ($diff, %inventory);
}

1;