#!/usr/bin/perl

use strict;
use warnings;

use AlienInit;



my $maxRNG = 6;
my $RNG = int(rand($maxRNG)+1);

my $name = AlienInit::getUsername();
my ($diff, %inventory) = AlienInit::getInventory();

print "You have crash landed on a strange alien planet and must find a way to get back to earth.\n";

print "\n";
print "You have:\n";
foreach my $item (sort keys %inventory) {
    print "    $inventory{$item} $item\n";
}
print "You can:\n";
if($inventory{wood} >= 10){
    print "BUILD a HUT with 10 wood\n";
}