- # reorder by brightness
- $col{arnegame} = [
- map { $col{arnegame}[$_ + 1] }
- qw/ -1 0 5 9 12 3 6 10 13 1 4 7 8 11 14 15 2 /
- ];
+ my %reorder = (
+ arnegame => [ 0,5,9,12 , 3,6,10,13,1 , 4,7,8,11,14,15,2 ],
+ );
+ $reorder{$_} = $reorder{msx2} for qw( msx1 arnejmp );
+ while (my ($name, $order) = each %reorder) {
+ for my $pal ( $col{$name}) {
+ $pal = [ map { $pal->[$_ + 1] =~ s/:|$/:$_/r } -1, @{$order} ];
+ }
+ }