#!/usr/bin/perl

use strict;

my @percents = qw/E90 E80 E70 E60 E50 E40 E30 E20 E10 E0/;
my @actions = qw/Resting Fishing Hunting NotFishing NotHunting
	NotTransformingRocks NotWoodChopping NotGeoInvestigation
	NotMakingLand NotRemovingRoots NotPlantingTrees NotConstructing/;
my $humanpath = "humans";

for my $action (@actions) {
	print "Processing $action";
	my $file = "$humanpath/$action.gif";
	if(not -f $file) {
		print ": $file not found, skipping\n";
		next;
	}
	print " (";
	for my $eb (@percents) {
		my $outputfile = "$humanpath/$eb$action.gif";
		system "convert $file $eb.gif $outputfile";
		#print "[$file $eb.gif $outputfile]";
		print "$eb ";
	}
	print "\b)\n";
}