Convert MapWriter block color file for use with AnvilMapper

convert_colors.pl

#!/usr/bin/perl
use strict;

open(IN, "<", $ARGV[0]);
my @fields;

while(<IN>) {
	@fields = split(' ', $_);
	if ($fields[1] ne '*') {
		if ($fields[0] eq 'biome') {
			$fields[1] = unpack("H2",(pack "c", $fields[1]));
		} elsif ($fields[0] eq 'blocktype' || $fields[0] eq 'block') {
			$fields[1] = substr((reverse unpack("h4",(pack "i", $fields[1]))),1,3);
		}
	}
	print join(' ', @fields) . "\n";
}