#include <string.h>
#include <stdio.h>
#include <inttypes.h>
#include "highscore.h"
#include "../../config.h"
#include "../../scrolltext/scrolltext.h"
#include "../../joystick/joystick.h"
#include "../../compat/eeprom.h"

// global array for the high score
uint16_t tetris_highscore[TETRIS_HISCORE_END] EEMEM;

// global array for the champion's initials
uint16_t tetris_highscore_name[TETRIS_HISCORE_END] EEMEM;


uint16_t tetris_highscore_inputName(void)
{
#ifdef SCROLLTEXT_SUPPORT
	char pszNick[4], pszTmp[26];
	unsigned int nOffset;
	uint8_t nPos = 0, nBlink = 0, nDone = 0, nHadfire = 0;

	strncpy(pszNick, "AAA", sizeof(pszNick));
	while (!nDone)
	{
		// we need our own blink interval
		nBlink = (nBlink + 1) % 4;

		// determine start position on screen depending on active character
		switch (nPos)
		{
		case 0:
			nOffset = 15;
			break;
		case 1:
			nOffset = 19;
			break;
		default:
			nOffset = 23;
			break;
		}

		// construct command for scrolltext and execute
		snprintf(pszTmp, sizeof(pszTmp), "x%u+p1#%c#x%u+p1#%c#x%up1#%c",
				nOffset     , (!nBlink && nPos == 0) ? ' ' : pszNick[0],
				nOffset -  8, (!nBlink && nPos == 1) ? ' ' : pszNick[1],
				nOffset - 15, (!nBlink && nPos == 2) ? ' ' : pszNick[2]);
		scrolltext(pszTmp);

		// up and down control current char
		if (JOYISUP)
		{
			pszNick[nPos]++;
			if (pszNick[nPos] == '`')
			{
				pszNick[nPos] = 'A';
			}
			else if (pszNick[nPos] == '[')
			{
				pszNick[nPos] = '_';
			}
		}
		else if (JOYISDOWN)
		{
			pszNick[nPos]--;
			if (pszNick[nPos] == '@')
			{
				pszNick[nPos] = '_';
			}
			else if (pszNick[nPos] == '^')
			{
				pszNick[nPos] = 'Z';
			}
		}
		// left and right control char selections
		else if (JOYISLEFT && nPos > 0)
		{
			nPos--;
		}
		else if (JOYISRIGHT && nPos < 2)
		{
			nPos++;
		}

		// fire switches to next char or exits
		if (JOYISFIRE && !nHadfire)
		{
			nHadfire = 1;
			switch (nPos)
			{
			case 0:
				nPos = 1;
				break;
			case 1:
				nPos = 2;
				break;
			case 2:
				nDone = 1;
				break;
			}
		}

		if (nHadfire && !JOYISFIRE)
		{
			nHadfire = 0;
		}
	}

	// return result
	return (pszNick[0] - 65) << 10 | (pszNick[1] - 65) << 5 | (pszNick[2] - 65);
#else
	return (0);
#endif
}


uint16_t tetris_highscore_retrieveHighscore(tetris_highscore_index_t nIndex)
{
	uint16_t nHighscore = 0;
	nHighscore = eeprom_read_word(&tetris_highscore[nIndex]);

	// a score of 65535 is most likely caused by uninitialized EEPROM addresses
	if (nHighscore == 65535)
	{
		nHighscore = 0;
	}

	return nHighscore;
}


void tetris_highscore_saveHighscore(tetris_highscore_index_t nIndex,
                                    uint16_t nHighscore)
{
	if (nHighscore > tetris_highscore_retrieveHighscore(nIndex))
	{
		eeprom_write_word(&tetris_highscore[nIndex], nHighscore);
	}
}


uint16_t tetris_highscore_retrieveHighscoreName(tetris_highscore_index_t nIdx)
{
	uint16_t nHighscoreName = 0;
	nHighscoreName = eeprom_read_word(&tetris_highscore_name[nIdx]);

	// a score of 65535 is most likely caused by uninitialized EEPROM addresses
	if (nHighscoreName == 65535)
	{
		nHighscoreName = 0;
	}

	return nHighscoreName;
}


void tetris_highscore_saveHighscoreName(tetris_highscore_index_t nIndex,
                                        uint16_t nHighscoreName)
{
	eeprom_write_word(&tetris_highscore_name[nIndex], nHighscoreName);
}