task TMusicRoom{

	//ƒ^ƒCƒgƒ‹ƒV[ƒ“I—¹ƒtƒ‰ƒO
	let bEndTitleScene = false;
//SetCommonData("Menu",true);
SetCommonData("Menu",true);
PlayMusic2(bgm,GetCurrentScriptDirectory~"Bgm/pg_title.ogg",GetAreaCommonData("Config","BGMVolume",100),16.6,105.2);
SetCommonData("Perfects",0);
	SetCommonData("Perfects_Bombs",0);
	//ƒ^ƒCƒgƒ‹ƒpƒXÝ’è
	let dir = GetCurrentScriptDirectory();
	let pathTitle = dir ~ "img/NBTitle2.png";
	let pathTitle2 = dir ~ "img/MER_title.png";
	let pathTitle3 = dir ~ "img/NBLogo.png";
	
	let desctxt = "Select the theme you want to listen.";
	
let objTitleImage2 = ObjPrim_Create(OBJ_SPRITE_2D); //2DƒXƒvƒ‰ƒCƒgƒIƒuƒWƒFƒNƒg¶¬
	Obj_SetRenderPriorityI(objTitleImage2, 20); //•`‰æ—Dæ“x‚ðÝ’è
	ObjPrim_SetTexture(objTitleImage2, pathTitle2); //ƒeƒNƒXƒ`ƒƒ‚ðÝ’è
	ObjSprite2D_SetSourceRect(objTitleImage2, 0, 0, 640, 480);
	ObjSprite2D_SetDestRect(objTitleImage2, 0, 0, 640, 480);

let descriptiontext = ObjText_Create();
ObjText_SetText(descriptiontext, desctxt);
			ObjText_SetFontType(descriptiontext,"AR ESSENCE");
			ObjText_SetFontSize(descriptiontext, 22);
			ObjText_SetFontBold(descriptiontext, false);
			ObjText_SetFontColorTop(descriptiontext, 250, 250, 250);
			ObjText_SetFontColorBottom(descriptiontext, 250, 250, 250);
			ObjText_SetFontBorderType(descriptiontext, BORDER_FULL);
			ObjText_SetFontBorderColor(descriptiontext,0, 0, 0);
			ObjText_SetFontBorderWidth(descriptiontext, 2);
			Obj_SetRenderPriorityI(descriptiontext, 30);
			ObjText_SetSidePitch(descriptiontext,-1.8 );
			ObjText_SetLinePitch(descriptiontext,-5);
			ObjRender_SetX(descriptiontext, 30);
			ObjRender_SetY(descriptiontext, 330);


	//ƒƒjƒ…[
	let INDEX_SONG01 = 0; //menu
	let INDEX_SONG02 = 1; //prebattle1
	let INDEX_SONG03 = 2; //boss1
	let INDEX_SONG04 = 3; //boss2
	let INDEX_SONG05 = 4; //prebattle2
	let INDEX_SONG06 = 5; //boss3
	let INDEX_SONG07 = 6; //boss4
	let INDEX_SONG08 = 7; //boss5a
	let INDEX_SONG09 = 8; //boss5b
	let INDEX_SONG10 = 9; //prebattle3
	let INDEX_SONG11 = 10; //boss6
	let INDEX_SONG12 = 11; //boss6l
	let INDEX_SONG13 = 12; //ending
	let INDEX_SONG14 = 13; //staff roll
	let INDEX_SONG15 = 14; //boss7
	let INDEX_SONG16 = 15; //boss8
	let INDEX_SONG17 = 16; //boss8
	let INDEX_SONG18 = 17; //boss8
	

	let selectIndex = 0;//‘I‘ðˆÊ’u
	task TMenuItem(let index, let mx, let my, let text)
	{
		function CreateTextObject(let mx, let my, let text)
		{
			let obj = ObjText_Create();
			ObjText_SetText(obj, text);
			ObjText_SetFontType(obj,"AR ESSENCE");
			ObjText_SetFontSize(obj, 22);
			ObjText_SetFontBold(obj, false);
			ObjText_SetFontColorTop(obj, 155, 155, 155);
			ObjText_SetFontColorBottom(obj, 155, 155, 155);
			ObjText_SetFontBorderType(obj, BORDER_FULL);
			ObjText_SetFontBorderColor(obj,0, 0, 0);
			ObjText_SetFontBorderWidth(obj, 2);
			Obj_SetRenderPriorityI(obj, 30);
			ObjText_SetSidePitch(obj,-1.8 );
			ObjRender_SetX(obj, mx);
			ObjRender_SetY(obj, my);
			return obj;
		}

		let objText = CreateTextObject(mx, my, text);
		let objSelect = CreateTextObject(mx, my, text);
		ObjRender_SetBlendType(objSelect, BLEND_ADD_RGB);
		while(!bEndTitleScene)
		{
			Obj_SetVisible(objSelect, index == selectIndex);
			yield;
		}
		Obj_Delete(objText);
		Obj_Delete(objSelect);
	}

	//ƒƒjƒ…[”z’u
	let mx = 10;
	let my = 10;
	let texts;
	if(GetAreaCommonData("Config","Idioma",1) == 0){
	 texts = ["01. Una Pesadilla Entre Nosotros",
	 "02. Los Juegos de Balas de los Chicos ~ Rival Amenazante",
	 "03. Novatos Atacan el Día",
	 "04. Flechas Millonarias",
	 "05. Memorias Oscuras",
	 "06. Control Negativo ~ Ser de Posesión",
	 "07. Una Cadena Intocable",
	 "08. El Castillo Flotante que se Hunde en el Cielo Oscuro",
	 "09. Negro en Oscuridad ~ Black Positivism",
	 "10. \"Poder,\" Definido por Wornis",
	 "11. La Última Mala Hora Nocturna",
	 "12. Pesadilla de los que no Pueden Dormir ~ Suicide Nightmares",
	 "13. Lucha Contra el Verdadero Hombre Pesadilla",
	 "14. Fin de la vida ~ NIGHTMARE OVERDRIVE",
	 "15. Después de la Pesadilla, Llega un Buen Sueño",
	 "16. Sueño de Día para los Merecidos",
	 "17. Estrella de la Voz Modifica-Ondas",
	 "18. Leyenda del Mago Misterioso ~ Third Mechanism"];
	}
	else{
	 texts = ["01. Humans Against the Music Rebellion",
	 "02. Theory of the World's Creatures",
	 "03. Yaksha's Emotional Nature Disaster ~ Elemental Rise",
	 "04. World of Nature, Elemental Energy ~ Elementic Flowers",
     "05. Player's Score"
     ];
}	
	var countMenu = length(texts);
	ascent(var iText in 0 .. countMenu)
	{
		TMenuItem(iText, mx, my, texts[iText]);
		my += 18;
		mx += 0;
	}

	//ƒL[ó‘Ô‚ªƒŠƒZƒbƒg‚³‚ê‚é‚Ü‚Å‘Ò‹@
	while(GetVirtualKeyState(VK_OK) != KEY_FREE){yield;}

	//ƒƒjƒ…[‘I‘ðˆ—
	let frameKeyHold = 0;//ƒL[‰Ÿ‚µ‚Á‚Ï‚È‚µƒtƒŒ[ƒ€”
	loop
	{
		//Œˆ’è
		if(GetVirtualKeyState(VK_OK) == KEY_PUSH)
		{
            if(selectIndex == INDEX_SONG01)
            {
            	if(GetAreaCommonData("Config","Idioma",1) == 0){
            	ObjText_SetText(descriptiontext,
            		"01. Una Pesadilla Entre Nosotros     
            		[r]              (Compositor: Gusano2314)
            		[r]¿Alguna vez has soñado algo que no te gusta? Usualmente tenemos
            		[r]pesadillas, no siempre pero están ahí. Este tema quiere expresar
            		[r]el comienzo de una aventura para conocer la verdad sobre las
            		[r]\"pesadillas suicidas\"");
                }
                else{
            	ObjText_SetText(descriptiontext,
            		"01. Humans Against the Music Rebellion    
            		[r]              (Composer: Gusano2314)
            		[r]This is the Title Theme.");
                }
                StopMusic;
	ObjSound_Stop(bgm);
                PlayMusic2(bgm,GetCurrentScriptDirectory~"Bgm/pg_title.ogg",GetAreaCommonData("Config","BGMVolume",100),14.4,91.2);
            }

            else if(selectIndex == INDEX_SONG02)
            {
            	if(GetAreaCommonData("Config","Idioma",1) == 0){
            	ObjText_SetText(descriptiontext,
            		"02. Los Juegos de Balas de los Chicos ~ Rival Amenazante 
            		[r]             (Compositor: Miransu Uwabami; Arreglo: Gusano2314)
            		[r]Este es el tema de los primeros niveles.
            		[r]Primero intenté hacer algo juguetón y feliz para los primeros niveles,
            		[r]pero yo no era bueno componiendo, así que Miransu me dió el tema
            		[r]para que lo arreglara. El resultado es muy bueno y combina con 
            		[r]el ambiente.");
                }
                else{
            	ObjText_SetText(descriptiontext,
            		"02. Theory of the World's Creatures
            		[r]             (Composer: Gusano2314)
            		[r]This is the Final Stage Theme.


            		");
                }
                StopMusic;
	ObjSound_Stop(bgm);
                PlayMusic2(bgm,Mprebattle1,GetAreaCommonData("Config","BGMVolume",100),1.6,81.6);
            }

            else if(selectIndex == INDEX_SONG03)
            {
            	if(GetAreaCommonData("Config","Idioma",1) == 0){
            	ObjText_SetText(descriptiontext,
            		"03. Novatos Atacan el Día 
            		[r]             (Compositor: GhoulMage)
            		[r]Este es el tema de Michael Derpy.
            		[r]
            		[r]Mi primer tema para el juego, yay~
            		[r]No es la mejor cosa del mundo, Intenté hacerlo simple
            		[r]y pegadizo. No espero que te guste :/");
                }
                else{
            	ObjText_SetText(descriptiontext,
            		"03. Yaksha's Emotional Nature Disaster ~ Elemental Rise 
            		[r] (Composer: Kaori Mystique, Arrange: Gusano2314)
            		[r]This is Kaori Mystique's theme. 
            	    ");
                }
                StopMusic;
	ObjSound_Stop(bgm);
                PlayMusic2(bgm,Mboss1,GetAreaCommonData("Config","BGMVolume",100),17.5,196.5);
            }

            else if(selectIndex == INDEX_SONG04)
            {
            	if(GetAreaCommonData("Config","Idioma",1) == 0){
            	ObjText_SetText(descriptiontext,
            		"04. Flechas Millonarias
            		[r]             (Compositor: Williatico y Gusano2314)
            		[r]Este es el tema de Marco.
            		[r]Uno de los mejores temas que han sido creados para este juego,
            		[r]¿Por qué? Porque tiene una de las melodías mas complejas en
            		[r]comparación con el resto, tan complejo como la personalidad de
            		[r]Marco ^.^U
            		");
                }
                else{
            	ObjText_SetText(descriptiontext,
            		"04. World of Nature, Elemental Energy ~ Elementic Flowers
            		[r] (Composer: Kaori Mystique, Arrange: Gusano2314)
            		[r]This is the Last Spell Theme.

            		");
                }
                StopMusic;
	ObjSound_Stop(bgm);
                PlayMusic2(bgm,Mlastspell,GetAreaCommonData("Config","BGMVolume",100),71.2,156.8);
            }

            else if(selectIndex == INDEX_SONG05)
            {
            	if(GetAreaCommonData("Config","Idioma",1) == 0){
            	ObjText_SetText(descriptiontext,
            		"05. Memorias Oscuras
            		[r]             (Compositor: Vigor; Arreglo: Gusano2314)
            		[r]Este es el tema de los niveles tardíos.
            		[r]El tema da una sensación de algo serio y oscuro, aunque no
            		[r]toda la ruta sea taaaaan así. Pero va bien con la segunda
            		[r]parte del juego.
            		");
                }
                else{
            	ObjText_SetText(descriptiontext,
            		"05. Player's Score
            		[r] (Composer: ZUN, Kaori Mystique, Arrange: Gusano2314)
.
            		");
                }
                StopMusic;
	ObjSound_Stop(bgm);
                PlayMusic2(bgm,Mscore,GetAreaCommonData("Config","BGMVolume",100),8.8,50.2);
            }
            else if(selectIndex == INDEX_SONG06)
            {
            	if(GetAreaCommonData("Config","Idioma",1) == 0){
            	ObjText_SetText(descriptiontext,
            		"06. Control Negativo ~ Ser de Posesión
            		[r]             (Compositor: GhoulMage)
            		[r]Este es el tema de Dark Matteo.
            		[r]Güeno, este tercer boss ya te dice todo lo que tienes que saber
	                [r]sobre a donde ir. Creo que a pesar de su poder es tonto, y como 
	                [r]*alguien* importante dijo una vez \"Incluso un idiota con mucho 
	                [r]poder no puede hacer mucho daño\"
            		");
                }
                else{
            	ObjText_SetText(descriptiontext,
            		"06. Negative Control ~ Being of Possesion
            		[r] (Composer: GhoulMage)
            		[r]This is Dark Matteo's Theme.
            		[r]Well, this third boss is saying you all you need to know about
            		[r]what and where you go. I think that besides his power he's dumb,
            		[r]and *someone* important said once \"Even an idiot with so many
            		[r]power can't do a lot of damage\"
            		");
                }
                StopMusic;
	ObjSound_Stop(bgm);
                PlayMusic2(bgm,Mboss3,GetAreaCommonData("Config","BGMVolume",100),7.78,99.55);
            }

            else if(selectIndex == INDEX_SONG07)
            {
            	if(GetAreaCommonData("Config","Idioma",1) == 0){
            	ObjText_SetText(descriptiontext,
            		"07. Una Cadena Intocable
            		[r]             (Compositor: GhoulMage)
            		[r]Este es el tema de Sets'sek.
            		[r]No le digais esto a Gusano2314, pero es mi favorita. Está llena de poder,
	                [r]coolness y fancy trumpets. Me encanta.
	                [r]Supongo que Sets'sek no ayudó a rebajar el nivel de poder de la musica.
	                [r]...Gusano debe de tener buenas noches.
            		
            		");
                }
                else{
            	ObjText_SetText(descriptiontext,
            		"07. An Untouchable Chain
            		[r] (Composer: GhoulMage)
            		[r]This is Sets'sek's Theme.
            		[r]Don't tell this to Gusano2314, but this is my favorite. It's full of
            		[r]power, coolness and fancy trumpets. I love it.
            		[r]I suppose Sets'Sek didn't helped to reduce the music's power lever.
            		[r]... Gusano should have a good night.
            		");
                }
                StopMusic;
	ObjSound_Stop(bgm);
                PlayMusic2(bgm,Mboss4,GetAreaCommonData("Config","BGMVolume",100),20.3,152.58);
            }

            else if(selectIndex == INDEX_SONG08)
            {
            	if(GetAreaCommonData("Config","Idioma",1) == 0){
            	ObjText_SetText(descriptiontext,
            		"08. El Castillo Flotante que se Hunde en el Cielo Oscuro
            		[r]             (Compositor: Gusano2314)
            		[r]Este es el tema del quinto nivel.
            		[r]Ya dentro del castillo, el protagonista no tiene idea de lo que puede
            		[r]haber adelante.
            		[r]Este tema no tiene demasiada tensión llena, debido a que lo que se
            		[r]acerca no es totalmente peligroso... Aún.
            		");
                }
                else{
            	ObjText_SetText(descriptiontext,
            		"08. The Floating Castle that Sinks in the Dark Sky
            		[r] (Composer: Gusano2314)
            		[r]This is the Stage 5 Theme.
            		[r]Once inside the castle, the protagonist has no idea of what may be ahead.
            		[r]This theme has not enough full tension, because what is comming isn't
            		[r]totally dangerous... Yet.
            		");
                }
                StopMusic;
	ObjSound_Stop(bgm);
                PlayMusic2(bgm,Mprebattle3,GetAreaCommonData("Config","BGMVolume",100),12.7,63.51);
            }

            else if(selectIndex == INDEX_SONG09)
            {
            	if(GetAreaCommonData("Config","Idioma",1) == 0){
            	ObjText_SetText(descriptiontext,
            		"09. Negro en Oscuridad ~ Black Positivism
            		[r]             (Compositor: Gusano2314)
            		[r]Este es el tema de Lapros.
            		[r]Él es un personaje muy vengativo, su personalidad algo bipolar lo 
            		[r]hace estar a veces calmado y enojado. A Gusano no le importa 
            		[r]realmente las intenciones de éste ya que no vé rivalidad en Lapros. 
            		[r]Bueno, ya saben como va el tema...
            		");
                }
                else{
            	ObjText_SetText(descriptiontext,
            		"09. Negro en Oscuridad ~ Black Positivism
            		[r] (Composer: Gusano2314)
            		[r]This is Lapros' Theme
            		[r]He's a vengative character, his bipolar personality makes him 
            		[r]being sometimes calm and angry. Actually Gusano doesn't care about 
            		[r]his intentions because he doesn't see any rivality on Lapros.
            		[r]Well, you know how goes the song...
            		");
                }
                StopMusic;
	ObjSound_Stop(bgm);
                PlayMusic2(bgm,Mboss5a,GetAreaCommonData("Config","BGMVolume",100),12.8,171.85);
            }

            else if(selectIndex == INDEX_SONG10)
            {
            	if(GetAreaCommonData("Config","Idioma",1) == 0){
            	ObjText_SetText(descriptiontext,
            		"10. \"Poder,\" Definido por Wornis 
            		[r]             (Compositor: Gusano2314)
            		[r]Este es el tema de Gusano Wornis.
            		[r]Gusano es distinto de Lapros, no será el contraste que se necesita,
            		[r]pero no importa, ya que de todas formas son ambos distintos. (lol)
            		[r]La sensación de \"poder\" es completamente subjetiva, y como estamos
            		[r]hablando de una habilidad muy especial, Gusano lo siente de otra forma.
            		");
                }
                else{
            	ObjText_SetText(descriptiontext,
            		"10. \"Power,\" Defined by Wornis
            		[r] (Composer: Gusano2314)
            		[r]This is Gusano Wornis' Theme.
            		[r]Gusano's different than Lapros, he may not be the necesary contrast,
            		[r]but that doesn't matter because anyways they're different. (lol)
            		[r]The sensation of \"power\" is completely subjetive, and since we are
            		[r]talking about a special ability, Gusano feels it in another way.
            		");
                }
                StopMusic;
	ObjSound_Stop(bgm);
                PlayMusic2(bgm,Mboss5b,GetAreaCommonData("Config","BGMVolume",100),22.66,130.67);
            }

			
			//break;
		}
        if(GetVirtualKeyState(VK_CANCEL) == KEY_PUSH)
		{
			StopMusic;
	ObjSound_Stop(bgm);
			TTitleScene();
			break;
		}
		//ƒJ[ƒ\ƒ‹ˆÚ“®
		if(GetVirtualKeyState(VK_UP) == KEY_PUSH)
		{
			selectIndex--;
		}
		else if(GetVirtualKeyState(VK_DOWN) == KEY_PUSH)
		{
			selectIndex++;
		}
		else if(GetVirtualKeyState(VK_UP) == KEY_HOLD)
		{
			frameKeyHold++;
			if(frameKeyHold == 30 || (frameKeyHold > 30 && (frameKeyHold % 10 == 0)))
			{
				selectIndex--;
			}
		}
		else if(GetVirtualKeyState(VK_DOWN) == KEY_HOLD)
		{
			frameKeyHold++;
			if(frameKeyHold == 30 || (frameKeyHold > 30 && (frameKeyHold % 10 == 0)))
			{
				selectIndex++;
			}
		}
		else
		{
			frameKeyHold = 0;
		}

		if(selectIndex < 0) 
		{
			selectIndex = countMenu - 1;
		}
		else
		{
			selectIndex %= countMenu;
		}

		yield;
	}

	bEndTitleScene = true;
	//Obj_Delete(objTitleImage);
	Obj_Delete(objTitleImage2);
	//Obj_Delete(objTitleImage3);
    Obj_Delete(descriptiontext);











}