#include <PA9.h>       // Include for PA_Lib
 
#include "gfx/all_gfx.c"
#include "gfx/all_gfx.h"
 
u8 line = 0;
 
void Empezar(void){
	PA_OutputSimpleText(1, 0, line, "Se iniciara el Homebrew");
	line++;
}
void Creditos(void){
	PA_OutputSimpleText(1, 0, line, "Se iniciaran los creditos");
	line++;
}
void Finalizar(void){
	PA_OutputSimpleText(1, 0, line, "Se apagara la consola");
	line++;
}
 
 
int main(int argc, char ** argv)
{
	PA_Init();
	PA_InitVBL();
	PA_InitText(1, 0);
	PA_SetTextCol(1, 31, 0, 0); // pone color al texto, color: rojo
	// para activar las funciones API
	PA_Init8bitBg(0, 3);
	PAPI_Init(0);
	// Funciones API activadas
 
	// Crear el menu de inicio
 
	// Crear el boton
	PAPI_CreateButton(0, 20, 10, 59, 30, &Empezar, "Empezar", 1, 1); // Avajo la esplicacion
	/*PAPI_CreateButton(0, 20, 20, 32, 32, &Test, "Test", 1, 1);
	(0, 20, 20, 32, 32, &Test, "Test", 1, 1);+
   0= screen	20= X posicion, 20= Y posicion  32= X size 32= Y size
	*/
	// Esplicacion terminada
	// Boton creado
	// Otro boton
	PAPI_CreateButton(0, 20, 45, 59, 30, &Creditos, "Creditos", 1, 1); 
	// Boton terminado
	//tercer boton de el menu de inicio
	PAPI_CreateButton(0, 85, 10, 59, 30, &Finalizar, "Finalizar", 1, 1);
	// Boton terminado
 
	// Menu de inicio terminado.
 /*
***************************************************
 Algo nuebo, pondremos un teclado virtual
***************************************************
 */
 	PA_InitText(1, 0); 
	PA_InitKeyboard(2);
	PA_KeyboardIn(20, 95);
 
 
	s32 nletter = 0; 
	char letter = 0;
 /*
**************************************************
 Teclado casi terminado, continua avajo
**************************************************
 */
	// Bucle infinito
	while (1){
	   // De aqui para avajo, terminará el teclado virtual
 /**************************************************************************/
 		if (Pad.Newpress.A) PA_SetKeyboardColor(0, 1); // Azul y Rojo
		if (Pad.Newpress.B) PA_SetKeyboardColor(1, 0); // Rojo y Azul
		if (Pad.Newpress.X) PA_SetKeyboardColor(2, 1); // Verde y Rojo
		if (Pad.Newpress.Y) PA_SetKeyboardColor(0, 2); // Azul y Verde
 
		letter = PA_CheckKeyboard();
 
		if (letter > 31) {
			text[nletter] = letter;
			nletter++;
		}
		else if(letter == PA_TAB){
			u8 i;
			for (i = 0; i < 4; i++){ 
				text[nletter] = ' ';
				nletter++;
			}
 
		}
		else if ((letter == PA_BACKSPACE)&&nletter) {
			nletter--;
			text[nletter] = ' ';
		}
		else if (letter == '\n'){ 
			text[nletter] = letter;
			nletter++;
		}
 
		PA_OutputSimpleText(1, 20, 11, text); // la posicion de donde empieza el texto
 
 /*************************************************************************/
  // De aqui para arriva, termina el teclado virtual
		PAPI_CheckButton();
		PA_WaitForVBL();
	}
 
	return 0;
}