#!/usr/bin/perl
#
# This file just writes an array stored inside itself as binary data.
# Purpose is to get around the EVC resource compiler's inability to take
# hex data a byte at a time.

use strict;


# edit the 0x values in this array to change the resource
my @data = (
            0xFF, 0xFF, 0xFF,		# empty cells
            0xAF, 0xAF, 0x00,		# bonus 1
            0x00, 0xAF, 0xAF,
            0xAF, 0x00, 0xAF,
            0xAF, 0xAF, 0xAF,
            0xFF, 0xFF, 0x99,		# tile background
            0x00, 0x00, 0x00,		# black
            0xFF, 0xFF, 0xFF,		# white
            0x00, 0x00, 0x00,		# player 1
            0xFF, 0x00, 0x00,
            0x00, 0x00, 0xFF,
            0x00, 0xFF, 0x00,
            );

# Leave this alone!
foreach my $byt (@data) {
    print pack "c", $byt;
}