snake.c

/*
does not support gbdk-2020 yet. I will likely reprogram from scratch rather than fixing this - if I ever get the time.
Feel free to use the code in anyway you like.
*/

#include <gb/gb.h>

// sprite data
unsigned char sprite_data[] =
{
  0x00,0xFF,0x00,0xFF,0x00,0xFF,0x00,0xFF,
  0x00,0xFF,0x00,0xFF,0x00,0xFF,0x00,0xFF,
  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  0x3F,0xFF,0x7F,0xFF,0xFF,0xFF,0xFF,0xFF,
  0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
  0xFC,0xFF,0xFE,0xFF,0xFF,0xFF,0xFF,0xFF,
  0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
  0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
  0xFF,0xFF,0xFF,0xFF,0xFE,0xFF,0xFC,0xFF,
  0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
  0xFF,0xFF,0xFF,0xFF,0x7F,0xFF,0x3F,0xFF,
  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00
};
// mapdata
unsigned char snake_map[] =
{
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01
};

// splash screen

const unsigned char TileData[] = {
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x01,0x01,0x01,0x07,0x07,0x07,0x07,
0x00,0x00,0x00,0x00,0x07,0x07,0x7F,0x7F,0xFF,0xFF,0xFE,0xFE,0xF0,0xF0,0xE0,0xE0,
0x00,0x00,0x00,0x00,0xFC,0xFC,0xFF,0xFF,0xFF,0xFF,0x03,0x03,0x01,0x01,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0xC0,0xC0,0xF8,0xF8,0xFF,0xFF,0x7F,0x7F,0x0F,0x0F,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x80,0xF0,0xF0,0xFE,0xFE,
0x07,0x07,0x07,0x07,0x07,0x07,0x07,0x07,0x03,0x03,0x01,0x01,0x00,0x00,0x00,0x00,
0xE0,0xE0,0xE0,0xE0,0xF8,0xF8,0xFC,0xFC,0xFF,0xFF,0xFF,0xFF,0x7F,0x7F,0x3F,0x3F,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xC0,0xC0,0xFC,0xFC,0xFF,0xFF,0xFF,0xFF,
0x01,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xF8,0xF8,0xFF,0xFF,
0xDF,0xDF,0x3F,0x3F,0x0F,0x0F,0x07,0x07,0x03,0x03,0x01,0x01,0x00,0x00,0xC0,0xC0,
0x00,0x00,0x80,0x80,0xC0,0xC0,0xE0,0xE0,0xF0,0xF0,0xF0,0xF0,0xF0,0xF0,0x70,0x70,
0x0F,0x0F,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xFF,0xFF,0xBF,0xBF,0x01,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xFF,0xFF,0xFF,0xFF,0x7F,0x7F,0x07,0x07,0x01,0x01,0x00,0x00,0x00,0x00,0x00,0x00,
0xF0,0xF0,0xFE,0xFE,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x7F,0x7F,0x7F,0x7F,
0x70,0x70,0x30,0x30,0x60,0x60,0xC0,0xC0,0xC0,0xC0,0xE0,0xE0,0xE0,0xE0,0xFF,0xFF,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xFF,0xFF,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x80,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x07,0x07,0x07,0x07,0x0F,0x0F,0x1F,0x1F,
0x00,0x00,0x0F,0x0F,0x7F,0x7F,0xF8,0xF8,0xE0,0xE0,0xC0,0xC0,0x80,0x80,0x00,0x00,
0x00,0x00,0xE0,0xE0,0x83,0x83,0x00,0x00,0x00,0x00,0x00,0x00,0x2A,0x2A,0xFF,0xFF,
0x7F,0x7F,0x7F,0x7F,0xFF,0xFF,0xFF,0xFF,0x3F,0x3F,0x17,0x17,0x7F,0x7F,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xF3,0xF3,
0xC0,0xC0,0xE0,0xE0,0xF0,0xF0,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,
0x1F,0x1F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,
0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x80,0x40,0x40,0xA0,0xA0,0xD4,0xD4,0xFA,0xFA,
0xFF,0xFF,0xFF,0xFF,0x7F,0x7F,0x1F,0x1F,0x07,0x07,0x01,0x01,0x00,0x00,0x00,0x00,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x7F,0x7F,0x1F,0x1F,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xF0,0xF0,0xC0,0xC0,0x06,0x06,0x1F,0x1F,0x3F,0x3F,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x7F,0x7F,0x3F,0x3F,0x1F,0x1F,0x1F,0x1F,0x1F,0x1F,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xF0,0xF0,0xF0,0xF0,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x0F,0x0F,0x07,0x07,0xC3,0xC3,0xE3,0xE3,0xE3,0xE3,
0xF3,0xF3,0xF3,0xF3,0xF3,0xF3,0xF3,0xF3,0xF3,0xF3,0xF3,0xF3,0xF3,0xF3,0xF3,0xF3,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xF9,0xF9,0xF1,0xF1,0xE1,0xE1,0xC3,0xC3,0x87,0x87,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFE,0xFE,0xFE,0xFE,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xC0,0xC0,0x80,0x80,0x0E,0x0E,0x3F,0x3F,0x3F,0x3F,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x7F,0x7F,0x3F,0x3F,0x1F,0x1F,0x8F,0x8F,0x8F,0x8F,
0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,
0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,
0xFD,0xFD,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xA0,0xA0,0xE0,0xE0,0xE0,0xE0,0xF8,0xF8,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFE,0xFE,
0x0F,0x0F,0x07,0x07,0x07,0x07,0x01,0x01,0x01,0x01,0x00,0x00,0x00,0x00,0x01,0x01,
0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,
0x7F,0x7F,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0x1F,0x1F,0x1F,0x1F,0x9F,0x9F,0x9F,0x9F,0x9F,0x9F,0x9F,0x9F,0x9F,0x9F,0x9F,0x9F,
0xFF,0xFF,0xE0,0xE0,0xC0,0xC0,0x87,0x87,0x8F,0x8F,0x9F,0x9F,0x8F,0x8F,0x87,0x87,
0xE3,0xE3,0x03,0x03,0x03,0x03,0xC3,0xC3,0xE3,0xE3,0xF3,0xF3,0xE3,0xE3,0x03,0x03,
0xF2,0xF2,0xF0,0xF0,0xF0,0xF0,0xF0,0xF0,0xF1,0xF1,0xF3,0xF3,0xF3,0xF3,0xF3,0xF3,
0x1F,0x1F,0x3F,0x3F,0x3F,0x3F,0x1F,0x1F,0x07,0x07,0xC3,0xC3,0xE1,0xE1,0xF0,0xF0,
0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFF,0xFF,
0x7F,0x7F,0x7F,0x7F,0x00,0x00,0x00,0x00,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x0F,0x0F,
0xCF,0xCF,0xCF,0xCF,0x0F,0x0F,0x0F,0x0F,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0x7F,0x7F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3E,0x3E,0x3A,0x3A,0x38,0x38,0x38,0x38,
0xFC,0xFC,0xE0,0xE0,0x84,0x84,0x00,0x00,0x80,0x80,0x03,0x03,0x03,0x03,0x07,0x07,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x3E,0x3E,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0x41,0x41,0x03,0x03,0x03,0x03,0x4F,0x4F,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFC,0xFC,0xFC,0xFC,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0x9F,0x9F,0x9F,0x9F,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xC0,0xC0,0xE0,0xE0,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0x03,0x03,0x33,0x33,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xF3,0xF3,0xF3,0xF3,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xF8,0xF8,0xFC,0xFC,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0x80,0x80,0xC0,0xC0,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0x0F,0x0F,0x1F,0x1F,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0x1C,0x1C,0x1F,0x1F,0x0F,0x0F,0x0F,0x0F,0x0E,0x0E,0x07,0x07,0x07,0x07,0x00,0x00,
0x0F,0x0F,0xDF,0xDF,0x7F,0x7F,0x7F,0x7F,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x00,0x00,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x00,0x00,
0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xF0,0xF0,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x03,0x03,
0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x00,0x00,0x00,0x00,
0x10,0x10,0x01,0x01,0x00,0x00,0x38,0x38,0x11,0x11,0x11,0x11,0xF0,0xF0,0x00,0x00,
0x00,0x00,0xE7,0xE7,0x12,0x12,0xF2,0xF2,0x12,0x12,0x12,0x12,0xEE,0xEE,0x00,0x00,
0x00,0x00,0xE3,0xE3,0xA4,0xA4,0xA7,0xA7,0xA4,0xA4,0xA4,0xA4,0xB3,0xB3,0x00,0x00,
0x00,0x00,0x80,0x80,0x40,0x40,0xC0,0xC0,0x00,0x00,0x00,0x00,0xC0,0xC0,0x00,0x00,
0x00,0x00,0x1F,0x1F,0x0A,0x0A,0x0A,0x0A,0x0A,0x0A,0x0A,0x0A,0x1A,0x1A,0x00,0x00,
0x00,0x00,0x8E,0x8E,0x91,0x91,0x91,0x91,0x91,0x91,0x91,0x91,0xCE,0xCE,0x00,0x00,
0x01,0x01,0x0F,0x0F,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x0F,0x0F,0x00,0x00,
0x00,0x00,0x1C,0x1C,0x22,0x22,0x3E,0x3E,0x20,0x20,0x20,0x20,0x9E,0x9E,0x00,0x00,
0x88,0x88,0x08,0x08,0x70,0x70,0x40,0x40,0x00,0x00,0x60,0x60,0x60,0x60,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xE7,0xE7,0xCF,0xCF,0xCF,0xCF,0x9F,0x9F,0x9F,0x9F,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFE,0xFE,0x9F,0x9F,0x9F,0x9F,0x0F,0x0F,0x6F,0x6F,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x7F,0x7F,0x3F,0x3F,0x3F,0x3F,0x9F,0x9F,0x9F,0x9F,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xDD,0xDD,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xF1,0xF1,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xF9,0xF9,0xFD,0xFD,0xFD,0xFD,0xFD,0xFD,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFC,0xFC,0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x1F,0x1F,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x9F,0x9F,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xCF,0xCF,0xEF,0xEF,0xEF,0xEF,0xEF,0xEF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xE7,0xE7,0xF7,0xF7,0xF7,0xF7,0xF7,0xF7,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFB,0xFB,0xFF,0xFF,0xFF,0xFF,0xF3,0xF3,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xF8,0xF8,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFE,0xFE,0xFF,0xFF,0xFF,0xFF,0xFC,0xFC,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFE,0xFE,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x7D,0x7D,
0x9F,0x9F,0x9E,0x9E,0x9E,0x9E,0xCE,0xCE,0xCE,0xCE,0xE7,0xE7,0xFF,0xFF,0xFF,0xFF,
0x6F,0x6F,0x67,0x67,0x07,0x07,0x67,0x67,0x67,0x67,0xFE,0xFE,0xFF,0xFF,0xFF,0xFF,
0x9F,0x9F,0x9F,0x9F,0x9F,0x9F,0x3F,0x3F,0x3F,0x3F,0x7F,0x7F,0xFF,0xFF,0xFF,0xFF,
0xDD,0xDD,0xD5,0xD5,0xD5,0xD5,0xE3,0xE3,0xFB,0xFB,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFE,0xFE,0xE0,0xE0,0xDE,0xDE,0xDE,0xDE,0xE2,0xE2,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFD,0xFD,0xFD,0xFD,0xFD,0xFD,0xFD,0xFD,0xF8,0xF8,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFC,0xFC,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x7F,0x7F,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFE,0xFE,0xFD,0xFD,0xFD,0xFD,0xFE,0xFE,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0x1F,0x1F,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xF7,0xF7,0xF7,0xF7,0xF7,0xF7,0xF7,0xF7,0x0F,0x0F,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xEF,0xEF,0xEF,0xEF,0xEF,0xEF,0xEF,0xEF,0xC7,0xC7,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xF7,0xF7,0xF7,0xF7,0xF7,0xF7,0xF7,0xF7,0xE3,0xE3,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFB,0xFB,0xFB,0xFB,0xFB,0xFB,0xFB,0xFB,0xF1,0xF1,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xF7,0xF7,0xFB,0xFB,0xFE,0xFE,0xFF,0xFF,0xF8,0xF8,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0x7E,0x7E,0xFC,0xFC,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFB,0xFB,0xFB,0xFB,0xFB,0xFB,0xFB,0xFB,0x7C,0x7C,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xDC,0xDC,0xDD,0xDD,0xDD,0xDD,0xDD,0xDD,0x3D,0x3D,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xEF,0xEF,0xEF,0xEF,0xEF,0xEF,0xEF,0xEF,0xEF,0xEF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xE7,0xE7,0xCE,0xCE,0xCE,0xCE,0x9E,0x9E,0x9E,0x9E,0x9E,0x9E,
0xFF,0xFF,0xFF,0xFF,0xFE,0xFE,0x0F,0x0F,0x67,0x67,0x67,0x67,0x67,0x67,0x0F,0x0F,
0xFF,0xFF,0xFF,0xFF,0x7F,0x7F,0x3F,0x3F,0x3F,0x3F,0x9F,0x9F,0x9F,0x9F,0x9F,0x9F,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xE3,0xE3,0xDF,0xDF,0xEF,0xEF,0xFB,0xFB,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xF1,0xF1,0xEF,0xEF,0xDF,0xDF,0xDF,0xDF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xEC,0xEC,0xE7,0xE7,0xEF,0xEF,0xEF,0xEF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFC,0xFC,0x77,0x77,0xF7,0xF7,0xF7,0xF7,
0xFF,0xFF,0xFE,0xFE,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xBF,0xBF,0xBF,0xBF,0xBF,0xBF,
0xFF,0xFF,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,
0xFF,0xFF,0x3F,0x3F,0xBF,0xBF,0xBF,0xBF,0xBF,0xBF,0xBF,0xBF,0xBF,0xBF,0xBF,0xBF,
0xFF,0xFF,0xDF,0xDF,0xFF,0xFF,0xFF,0xFF,0x9F,0x9F,0xDF,0xDF,0xDF,0xDF,0xDF,0xDF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x67,0x67,0x3B,0x3B,0x7B,0x7B,0x7B,0x7B,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xC5,0xC5,0xB9,0xB9,0xBD,0xBD,0xBD,0xBD,
0x9E,0x9E,0x9E,0x9E,0xCE,0xCE,0xCE,0xCE,0xE7,0xE7,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0x67,0x67,0x67,0x67,0x67,0x67,0x0F,0x0F,0xFE,0xFE,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0x9F,0x9F,0x9F,0x9F,0x3F,0x3F,0x3F,0x3F,0x7F,0x7F,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFD,0xFD,0xE3,0xE3,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xEF,0xEF,0xF1,0xF1,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xEF,0xEF,0xEF,0xEF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xF7,0xF7,0xF8,0xF8,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xBF,0xBF,0x7E,0x7E,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0x7F,0x7F,0x3F,0x3F,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xBF,0xBF,0x1F,0x1F,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xDF,0xDF,0x8F,0x8F,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0x7B,0x7B,0x7B,0x7B,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xB9,0xB9,0xC5,0xC5,0xFD,0xFD,0xC7,0xC7,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x39,0x39,0x3C,0x3C,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xC0,0xC0,0xF3,0xF3,0xC6,0xC6,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x8F,0x8F,0xCC,0xCC,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x30,0x30,0x7C,0x7C,0x30,0x30,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x60,0x60,0x00,0x00,0x00,0x00,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x1E,0x1E,0x1B,0x1B,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x39,0x39,0x6D,0x6D,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xB3,0xB3,0xB3,0xB3,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x8E,0x8E,0xDB,0xDB,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x03,0x03,0x03,0x03,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x18,0x18,0x18,0x18,0x18,0x18,0x19,0x19,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xE3,0xE3,0xB6,0xB6,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x0C,0x0C,0x9F,0x9F,0xCC,0xCC,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x18,0x18,0x00,0x00,0x00,0x00,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x07,0x07,0x07,0x07,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xCE,0xCE,0xDB,0xDB,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x7D,0x7D,0x7D,0x7D,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xB0,0xB0,0xB0,0xB0,
0x18,0x18,0x3C,0x3C,0x38,0x38,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xC3,0xC3,0xC6,0xC6,0xF3,0xF3,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xCC,0xCC,0xCC,0xCC,0xCC,0xCC,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x30,0x30,0x30,0x30,0x3C,0x3C,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x60,0x60,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x1B,0x1B,0x1B,0x1B,0x1E,0x1E,0x18,0x18,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x3D,0x3D,0x6D,0x6D,0x3C,0x3C,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xB1,0xB1,0xB3,0xB3,0xF3,0xF3,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x9F,0x9F,0xDB,0xDB,0x8E,0x8E,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x30,0x30,0x30,0x30,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x01,0x01,0x03,0x03,0x03,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x19,0x19,0x19,0x19,0x18,0x18,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xF6,0xF6,0xB6,0xB6,0xE3,0xE3,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x0C,0x0C,0xCC,0xCC,0x8F,0x8F,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x18,0x18,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x07,0x07,0x07,0x07,0x07,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xDF,0xDF,0xDB,0xDB,0xCE,0xCE,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x6D,0x6D,0x6D,0x6D,0x6C,0x6C,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xB0,0xB0,0xB0,0xB0,0xF0,0xF0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00
};

// splash map
const unsigned char MapData[] = {
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x01,0x02,0x03,0x04,0x05,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x06,0x07,0x08,0x09,0x0A,0x0B,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x0C,0x0D,0x0E,0x0F,0x10,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x11,0x12,0x00,0x00,
0x00,0x13,0x14,0x15,0x16,0x17,0x17,0x17,0x17,0x17,0x17,0x18,0x17,0x17,0x17,0x17,0x17,0x19,0x00,0x00,
0x00,0x1A,0x1B,0x1C,0x1D,0x17,0x1E,0x1F,0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,0x17,0x28,0x00,0x00,
0x00,0x29,0x2A,0x2B,0x2C,0x17,0x2D,0x2E,0x2F,0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x17,0x28,0x00,0x00,
0x00,0x37,0x38,0x39,0x3A,0x17,0x3B,0x17,0x3C,0x3D,0x3E,0x3F,0x40,0x2E,0x41,0x42,0x17,0x28,0x00,0x00,
0x00,0x43,0x44,0x45,0x45,0x45,0x45,0x45,0x45,0x45,0x45,0x45,0x45,0x45,0x45,0x45,0x45,0x46,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x47,0x00,0x00,0x00,0x00,0x00,0x48,0x00,0x00,0x47,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x49,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F,0x50,0x51,0x00,0x52,0x00,0x00,0x00,0x00,
0x53,0x53,0x53,0x53,0x53,0x53,0x53,0x53,0x53,0x53,0x53,0x53,0x53,0x53,0x53,0x53,0x53,0x53,0x53,0x53,
0x17,0x54,0x55,0x56,0x57,0x58,0x59,0x5A,0x17,0x17,0x5B,0x5C,0x5D,0x5E,0x5F,0x60,0x61,0x62,0x63,0x5C,
0x17,0x64,0x65,0x66,0x67,0x68,0x69,0x6A,0x6B,0x6C,0x6D,0x6E,0x6F,0x70,0x71,0x72,0x73,0x74,0x75,0x76,
0x17,0x77,0x78,0x79,0x7A,0x7B,0x7C,0x7D,0x7E,0x7F,0x80,0x81,0x82,0x83,0x17,0x17,0x17,0x17,0x17,0x17,
0x17,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x17,0x17,0x17,0x17,0x17,0x17,
0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0x99,0x9C,0x9D,0x9E,0x9F,0xA0,0xA1,0xA2,0xA3,
0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAC,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6
};

void rot_arrayR(UINT8 * array, UINT8 size) {
  UINT8 c; // might only be able to be 128 squares long /:
  UINT8 temp1 = array[0];
  UINT8 temp2;
  for (c = 0; c < size; c++) {
    if (c - 1 > size) {
      array[0] = array[size-1];
    }
    
    if (c > 0) {
      temp2 = array[c];
      array[c] = temp1;
      temp1 = temp2;
    }
  }
}

typedef struct snakebit {
  UINT8 x;
  UINT8 y;
} Snakebit;

// random numbers
// lcg
UINT8 X_seed = 221;

UINT8 random_UINT8() {
  X_seed = (13 * X_seed + 1) % 256;
  return X_seed;
}

#define INIT_SPEED      5

UWORD seed;
UINT8 green_tile = 0x00;
UINT8 white_tile = 0x01;
UINT8 wait4 = INIT_SPEED;
UINT8 d;
UINT8 direction = 0;
UINT8 head = 0;
UINT8 tail = 0;
UINT8 snakesize = 1; //  seems to be limited to 59 for some reason 
UINT8 growth = 0;
UINT8 arraylochead = 0;
UINT8 arrayloctail = 0;
UINT8 flash = 0;
Snakebit kill;
Snakebit next;
Snakebit food;
UINT8 arrayi[255];
UINT8 snakex[255];
UINT8 snakey[255];
UINT8 gettile;
UINT8 faster = 0;
UINT8 gamemode = 0;
UINT8 RST = 0;
UINT8 pause = 0;
UINT8 flicker = 0;
UINT8 t = 0;

UINT8 distiles[11] = {0x49, 0x47, 0x4A, 0x4B, 0x4C, 0x4D, 0x4E, 0x4F, 0x50, 0x48, 0x51};
UINT8 tilesx[11] = {0x05, 0x06, 0x06, 0x07, 0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x0C, 0x0D};
UINT8 tilesy[11] = {0x0A, 0x09, 0x0A, 0x0A, 0x0A, 0x0A, 0x0A, 0x0A, 0x0A, 0x09, 0x0A};

void reset_game() {
  HIDE_BKG;
  set_bkg_tiles(0,0, 20, 18, &snake_map);
  wait_vbl_done();

  snakesize = 1;
  head = 0;
  tail = 0;
  growth = 0;
  arrayloctail = 0;
  arraylochead = 0;
  flash = 0;
  direction = 0;
  snakex[0] = 10;
  snakey[0] = 9;
  arrayi[0] = 0;
  wait4 = INIT_SPEED;
  faster = 0;

  while (1) {
    food.x = random_UINT8() / 14; // so it doesn't spawn on the snake
    food.y = random_UINT8() / 15;
    if (food.x != snakex[0] || food.y != snakey[0]) {
      break;
    }
  }
  RST = 0;
  wait_vbl_done();
  SHOW_BKG;
}

void main() {
  set_bkg_data(0,183, TileData);
  set_bkg_tiles(0,0, 20, 18, MapData);
  SHOW_BKG;
  DISPLAY_ON;

  while (1) {
    for (d = 0; d < wait4; d++) {
      wait_vbl_done();
    }
    
    if (joypad() & J_A) {
    waitpadup();
    gamemode = 1;
    break;
  }
  if (joypad() & J_B) {
    waitpadup();
    gamemode = 0;
    break;
    }
    
    flicker++;
    if (flicker > 5) {
      for (t = 0; t < 11; t++) {
        set_bkg_tiles(tilesx[t], tilesy[t], 1,1, &distiles[t]);
      }
    }
    else if (flicker < 5) {
      for (t = 0; t < 11; t++) {
        set_bkg_tiles(tilesx[t], tilesy[t], 1,1, &green_tile);
      }
    }
    if (flicker == 10) {
      flicker = 0;
    }
    

  }
  HIDE_BKG;

  snakex[0] = 10;
  snakey[0] = 9;
  arrayi[0] = 0; 

  while (1) {
    food.x = random_UINT8() / 14; // so it doesn't spawn on the snake
    food.y = random_UINT8() / 15;
    if (food.x != snakex[0] || food.y != snakey[0]) {
      break;
    }
  }

  set_bkg_data(0,6, sprite_data);
  set_bkg_tiles(0,0, 20,18, snake_map);
  SHOW_BKG;

  while (1) {
    
    if (joypad() & J_A) {
    	wait4 = INIT_SPEED; // for debugging
    }

    if (joypad() & J_START) {
      waitpadup();
      pause = 1;
    }
    while (pause) {
      if (joypad() & J_START) {
        waitpadup();
        pause = 0;
      }
      wait_vbl_done();
    }

    for (d = 0; d < wait4; d++) {
      wait_vbl_done();
    }

    kill.x = snakex[tail];
    kill.y = snakey[tail];
    next.x = snakex[head];
    next.y = snakey[head];

    rot_arrayR(arrayi, snakesize);

    if (growth) {
      faster++;
      if (faster == 6) {
          if (wait4 > 2) {
            wait4--;
            faster = 0;
          }
      }
      arrayloctail++;
      snakesize++;
      arrayi[arrayloctail] = arrayloctail;
      snakex[arrayloctail] = kill.x;
      snakey[arrayloctail] = kill.y;
      growth = 0;
      while(1) {
        food.x = random_UINT8() / 14;
        food.y = random_UINT8() / 15;
        get_bkg_tiles(food.x, food.y, 1,1, &gettile); // this should stop food spawning on the snake
        if (gettile != 0x00) {
          break;
        }
        

      }
    }

    if (joypad() & J_LEFT && direction != 1) {
      direction = 0;
    }
    if (joypad() & J_RIGHT && direction != 0) {
      direction = 1;
    }
    if (joypad() & J_UP && direction != 3) {
      direction = 2;
    }
    if (joypad() & J_DOWN && direction != 2) {
      direction = 3;
    }

    switch(direction) {
      case 0:  {
        if (next.x - 1 > 19) {
          if (gamemode) {
            RST = 1;
          }
          else
          {
            snakex[tail] = 19;
          }
          
        }
        else
        {
          snakex[tail] = next.x - 1;
        }
        snakey[tail] = next.y;
        break;
      }
      case 1: {
        if (next.x + 1 > 19) {
          if (gamemode) {
            RST = 1;
          }
          else
          {
            snakex[tail] = 0;
          }
          
        }
        else
        {
          snakex[tail] = next.x + 1;
        }
        
        snakey[tail] = next.y;
        break;
      }

      case 2: {
        if (next.y - 1 > 17) {
          if (gamemode) {
            RST = 1;
          }
          else
          {
            snakey[tail] = 17;
          }
          
        }
        else
        {
          snakey[tail] = next.y - 1;
        }
        
        snakex[tail] = next.x;
        break;
      }
      case 3: {
        if (next.y + 1 > 17) {
          if (gamemode) {
            RST = 1;
          }
          else
          {
            snakey[tail] = 0;
          }
          
        }
        else
        {
          snakey[tail] = next.y + 1;
        }
        
        snakex[tail] = next.x;
        break;
      }
    }

    if (RST == 0) {
        if (food.x == snakex[tail] && food.y == snakey[tail]) {
           growth = 1;
        }

        get_bkg_tiles(snakex[tail], snakey[tail], 1,1, &gettile);
        if (gettile == 0x00 && food.x != snakex[tail] && food.y != snakey[tail]) {
          reset_game();
        }

        flash++;
        if (flash % 3 == 0) {
          set_bkg_tiles(food.x, food.y, 1,1, &white_tile);
        }
        else
        {
          set_bkg_tiles(food.x, food.y, 1,1, &green_tile);
        }

        set_bkg_tiles(kill.x, kill.y, 1,1, &white_tile);
        set_bkg_tiles(snakex[tail], snakey[tail], 1,1, &green_tile);
       
        head = arrayi[arraylochead];
        tail = arrayi[arrayloctail];
        }
        else
        {
          reset_game();
        }

        if (joypad() & J_SELECT) {
          reset();
        }
  } // while 1
}