#1/usr/local/bin/perl

print "Sup?\n";

$first = "drinkhall.txt";

print "loading hall files... ";

open (HALLF, $first) or die "whoops, problem with $first";

@currhall = <HALLF>;

print "done!\n";


print "initializing sonar... ";
@sonars = (0, 0, 0, 0);
@lastSonars = (0, 0, 0, 0);

@twoSonarsAgo = (0, 0, 0, 0);


getSonars();

getSonars();

getSonars();


@avgSonars = (0, 0, 0, 0);


print "done!\n";


#print "Sonars: ";

#for $val (@sonars) {

#	print "$val, ";

#}

#print "\nLast Sonars: ";

#for $val (@lastsonars) {

#	print "$val, ";

#}

print "\n";

print "Normalizing sonar inputs... ";

#(if not inf) avg the last three sonar readings

for (i=0; i < 4; i++)
{

	@avgSonars[i] = (@twoSonarsAgo[i] + @lastSonars[i] + @twoSonarsAgo[i])/3

}


sub getSonars {
	
	@twoSonarsAgo = @lastSonars;

	@lastsonars = @sonars;

	@sonars[0] = getLSonar();

	@sonars[1] = getRSonar();

	@sonars[2] = getFSonar();

	@sonars[3] = getASonar();

}



sub getLSonar {
	
return int(rand(30)) + 1;

}


sub getRSonar {
	
return int(rand(30)) + 1;

}


sub getFSonar {
	
return int(rand(30)) + 1;

}


sub getASonar {
	
return int(rand(30)) + 1;

}