# Make sure AI doesn't try to 'move' if it has no available moves left
	print "Checking available AI moves\n";
	my @availMovers;
	foreach my $key ( keys %p2ships ) {
		my $shipRef = $p2ships{$key};
		if ( ! defined $p2ships{$key} ) {
			next;
		} elsif ( ${$shipRef}{mc}  == 1 ) {
			next;
		} else {
			push(@availMovers, $key);
		}
	}