os.cpu(333)
 
rojo= color.new(255,0,0)
blanco= color.new(0,0,0)
 
font.load("res/fonts/nuevojuego.pgf")
 
 
color= 1
if color== 2 then 
newgame.color= rojo
loadgame.color.color= rojo
extras.color= rojo 
end
if color== 0 then 
newgame.color= blanco
loadgame.color= blanco
extras.color= blanco
 end
 
newgame= {"Nueva partida",color}
loadgame= {"Cargar partida",color}
extras= {"Extras",color}
 
 
 
function letrasmenucolor()
screen.print(270,120,newgame[1],newgame.color)
screen.print(270,100,loadgame[1],loadgame.color)
screen.print(270,80,extras[1],extras.color)
screen.flip()
 
	controls.read()
		newgame.color= color + 1
		loadgame.color= color - 1
		extras.color= color - 1
		screen.flip()
 
	if controls.down() and newgame.color== 2 then
		newgame.color= color - 1
		loadgame.color= color + 1
		extras.color= color - 1
		screen.flip()
 
	elseif controls.up() and newgame.color== 2 then
		newgame.color= color - 1
		loadgame.color= color - 1
		extras.color= color + 1
		screen.flip()	
 
	elseif controls.down() and loadgame.color== 2 then
		newgame.color= color - 1
		loadgame.color= color - 1
		extras.color= color + 1
		screen.flip()
	elseif controls.up() and loadgame.color== 2 then
		newgame.color= color + 1
		loadgame.color= color - 1
		extras.color= color - 1
		screen.flip()
 
	elseif controls.down() and extras.color== 2 then
		newgame.color= color + 1
		cargarpartida.color= color - 1
		extras.color= color - 1
		screen.flip()
	elseif controls.up() and extras.color== 2 then
		newgame.color= color - 1
		loadgame.color= color + 1
		extras.color= color - 1
		screen.flip()
	end
end
 
 
texto = "Bienvenido a Terrachrystalis \n Te espera un gran comienzo"
dofile("RGSplashLib.lua") --libreria splash
 
function textoguay()
	for i=1, texto:len() do
		screen.print(50,50,texto:sub(1,i))
			os.sleep(0.05)
				screen.flip()
end
end
 
textoguay() 
os.sleep(4)
splash("res/splash/bluestartitulo.png",3000,4,"fade")
while true do
 letrasmenucolor() 
 end