#include	 "global.h"

unsigned char sound[39][700];

SoundIL	soundIL;

int		sound_function(void);
void	sound_function_end(void);
void	sound_play(int flag);
void	sound_playx(int flag);
void	sound_stop();

/*void	sound_setup(void);*/

void	sound_play(int flag)
{
	if(bgm_check())	bgm_stop();
	
	bgm_play(sound[flag],PLAY_LOOP);
}

void	sound_playx(int flag)
{
	if(bgm_check())	bgm_stop();

	bgm_play(sound[flag],PLAY_SINGLE);
}


int sound_function(void)
{
	/*サウンド関係のセットアップ*/
	if(open_sound_il(&soundIL) != E_FS_SUCCESS)
	{
		text_screen_init();
		text_put_string(0,0,"Sound_ILがありません！！");
		key_wait();
		return 1;
	}
	
	sounddrv_init();
	sound_open();

/*	sound_setup();*/
	/* 1面の曲パターン */

	parse_mml(sound[9],
					"#3 T120 O4 L4 V15"
					"cdefgab>c2"
					,0);
	parse_mml(sound[19],
					"#3 T120 O4 L4 V15"
					"c"
					,0);
	parse_mml(sound[29],
					"#3 T120 O4 L4 V15"
					"d"
					,0);
	parse_mml(sound[3],
					"#3 T120 O4 L4 V15"
					"e"
					,0);
	parse_mml(sound[4],
					"#3 T120 O4 L4 V15"
					"f"
					,0);
	parse_mml(sound[5],
					"#3 T120 O4 L4 V15"
					"g"
					,0);
	parse_mml(sound[6],
					"#3 T120 O4 L4 V15"
					"a"
					,0);
	parse_mml(sound[7],
					"#3 T120 O4 L4 V15"
					"b"
					,0);
	parse_mml(sound[8],
					"#3 T120 O4 L4 V15"
					">c2"
					,0);

	parse_mml(sound[0],
					/*おきなわ*/
					"#0 @80 T70 O4 L24 V14"
					"rrgbr>c<brgbr>cdr<b>drfgrf<br>dcrefrgrrefr<b>crr<grb>crecr<g"/* 1 */
					"frgbr>drrc<grefrgbr>dcr<g>crr"/* 2 */
					"crefrgrrbgrferr<br>dcrecr<g"/* 3 */
					"frgbr>drrc<grefrgbr>dcr<g>cef"/* 4 */
					"grfercrrgfrc<br>c<gr>dcr<gerc"/* 5 */
					"frgbr>drrefrgfredr<b>cr<g>cdf"/* 6 */
					"grfercrrbgrf>cr<gfredrc<brg"/* 7 */
					"frgbr>dergbr>cdrc<br>dcr<g>crr"/* 8 */

/*					"#1 @0 T70 O3 L24 V13"
					"<gr>g<gr>g<gr>g<gr>g<gr>g<ar>g<b-r>g<br>gcrgcrgcrgcrgcrgcrgcrgcrg"
					"<fr>f<gr>dcrg<gr>c<fr>f<gr>dcrgcr<g>"
					"crgcrgcrgcrgcrgcrgcrgcrg"
					"<fr>f<gr>dcrg<gr>c<fr>f<gr>dcrgc<gb"
					">crccrccrccrccrccrccrccrc"
					"<fr>f<gr>dcrg<gr>c<fr>f<gr>dcr<g>crc"
					"crccrcerccrcerc<br>c<gr>cedc"
					"<fr>f<gr>dcrg<gr>c<fr>f<gr>dcr<g>crr"
*/
					"#2 @73 T70 O4 L24 V15"
					"<brrrrrbrrrrrbrr>crrdrrgrrrrrrrrrrrrrrrrrrrrrrrrre"
					"drdgrbrrgercdrdgrbgrecrr"
					"rrrrrrrrrrrrrrrrrrrrrrre"
					"drdgrbrrgercdrdgrbgrecrr"
					">>rrgf+^24grrgf+^24grrgf+^24gf+^24gf+^24g<<"
					"drdgrbrrgercdrdgrbgrecrr"
					">>rrgf+^24grrgf+^24grrgf+^24gf+^24gf+^24g<<"
					"drdgrbrrgercdrdgrbgrecrr"

/*					"#3 T70 O10 V14 L24"
					"crccrccrccrccrccrccrccrccrccrccrccrccrccrccrccrc"
					"crccrccrccrccrccrccrccrc"
					"crccrccrccrccrccrccrccrc"
					"crccrccrccrccrccrccrccrc"
					"crccrccrccrccrccrccrccrc"
					"crccrccrccrccrccrccrccrc"
					"crccrccrccrccrccrccrccrc"
					"crccrccrccrccrccrccrccrr"
*/
						,0);
	parse_mml(sound[31],"t120"
					/* 1 */
					"#0 T70 O4 L24 V13"
					"rrgbr>c<brgbr>cdr<b>drfgrf<br>dcrefrgrrefr<b>crr<grb>crecr<g"/* 1 */
					"#2 T70 O4 L24 V15"
					"<brrrrrbrrrrrbrr>crrdrrgrrrrrrrrrrrrrrrrrrrrrrrrre"
					,0);
	parse_mml(sound[32],"t120"
					/* 2 */
					"#0 T70 O4 L24 V13"
					"frgbr>drrc<grefrgbr>dcr<g>crr"/* 2 */
					"#2 T70 O4 L24 V15"
					"drdgrbrrgercdrdgrbgrecrr"
					,0);
	parse_mml(sound[33],"t120"
		 		/* 3 */
					"#0 T70 O4 L24 V13"
					">crefrgrrbgrferr<br>dcrecr<g"/* 3 */
					"#2 T70 O4 L24 V15"
					"rrrrrrrrrrrrrrrrrrrrrrre"
					,0);									
	parse_mml(sound[34],"t120"
					/* 4 */
					"#0 T70 O4 L24 V13"
					"frgbr>drrc<grefrgbr>dcr<g>cef"/* 4 */
					"#2 T70 O4 L24 V15"
					"drdgrbrrgercdrdgrbgrecrr"
					,0);
	parse_mml(sound[35],"t120"
					/* 5 */
					"#0 T70 O4 L24 V13"
					"grfercrrgfrc<br>c<gr>dcr<gerc"/* 5 */
					"#2 T70 O4 L24 V15"
					">>rrgf+^24grrgf+^24grrgf+^24gf+^24gf+^24g<<"
					,0);
	parse_mml(sound[36],"t120"
					/* 6 */
					"#0 T70 O4 L24 V13"
					"frgbr>drrefrgfredr<b>cr<g>cdf"/* 6 */
					"#2 T70 O4 L24 V15"
					"drdgrbrrgercdrdgrbgrecrr"
					,0);
	parse_mml(sound[37],"t120"
					/* 7 */
					"#0 T70 O4 L24 V13"
					"grfercrrbgrf>cr<gfredrc<brg"/* 7 */
					"#2 T70 O4 L24 V15"
					">>rrgf+^24grrgf+^24grrgf+^24gf+^24gf+^24g<<"
					,0);
	parse_mml(sound[38],"t120"
					/* 8 */
					"#0 T70 O4 L24 V13"
					"frgbr>dergbr>cdrc<br>dcr<g>crr"/* 8 */
					"#2 T70 O4 L24 V15"
					"drdgrbrrgercdrdgrbgrecrr"
					,0);


		/* ２面 */
	parse_mml(sound[10],

				"#0 T120 O6 V15 L16"
				"ece8e<b>e8e<eg+b>er<e24f+24g+24arab>crerfrare8rr"
				"ddfrccer<bb>erc<bar"
				"arab>crerfrare8rr"
				"ee-ef+gf+gabrf+berer"
				"<ar>cre8rrdrfra8rr"
				"eref+g+eb8arab>c<aer"
				"<ar>cre8rrdrfra8rr"
				"eace<a>cg+c<b>e<g+barar"

/*				"#1 T120 O2 V10 L16"
				"ar>a8<g+g+>g+8e<b>g+ebre24f+24g+24<a>aea<a>aeadafa<a>a>c<e"
				"ddrdccrc<bbrea>ec<b"
				"a>a<ea<a>aeadafa<a>a>c<d"
				"e<b8>ede8<bfg+b>dereg+"
				"a<ararara>d<frfrfrf"
				"e>e>e<e>eeg+e<<a>a>e<a>c<cae"
				"a<ararara>d<frfrfrf"
				">>c<<a>a<a>e<a>c<ag+ebg+ar>a8"
*/
				"#2 T120 O4 V15 L16"
				"ereree-ererdfe<b>b24a24g+24a8>e8c8e8d8f8e24d24c24e8"
				"d24e24f24a8c24d24e24g8<b24>c24d24e8<aebe"
				"a8>e8c8e8d8f8e24d24c24er"
				"ere8^16dc<beb>e24f24e-24e<e>e24d24<b24"
				"ae>c<a>e<a>c<e>d<a>f<dadf<a>"
				"e<b>g+e<bg+be>e<a>c<ea>ce<a"
				"ae>c<a>e<a>c<e>d<a>fdadf<a"
				"a8>e24c24<a24e8>e8<beg+ea24r24^24>ar"

				,0);

	parse_mml(sound[20],

		/* ４面 */
				"#0 T140 O5 V15 @3"
				"e8^16r16e8^16r16f+2e8^16r16e8^16r16f+2"
				"e4f+4g4f+4"
				"e4f+8e8c2"
				"<b4g4b4>c4"
				"<b8^16r16b8g8f+4^8^16r16>"
				"e8^16r16e8^16r16f+2e8^16r16e8^16r16f+2"
				"<a4b4>c4e4"
				"f+8e8c2^4<b1"

				"#1 T140 O6 V15 @1"
				"r1r1r1r1r1r1"
				"e8^16r16e8^16r16f+2e8^16r16e8^16r16f+2"
				"<a4b4>c4e4"
				"f+8e8c2^4<b1"

				,0);
	parse_mml(sound[11],
				"#0 T140 O5 V15 @3"
				"e8^16r16e8^16r16f+2e8^16r16e8^16r16f+2"
				,0);
	parse_mml(sound[12],
				"#0 T140 O5 V15 @3"
				"e4f+4g4f+4"
				,0);
	parse_mml(sound[13],
				"#0 T140 O5 V15 @3"
				"e4f+8e8c2"
				,0);
	parse_mml(sound[14],
				"#0 T140 O5 V15 @3"
				"<b4g4b4>c4"
				,0);
	parse_mml(sound[15],
				"#0 T140 O5 V15 @3"
				"<b8^16r16b8g8f+4^8^16r16>"
				,0);
	parse_mml(sound[16],
				"#0 T140 O5 V15 @3"
				"e8^16r16e8^16r16f+2e8^16r16e8^16r16f+2"
				"#1 T140 O6 V15 @1"
				"e8^16r16e8^16r16f+2e8^16r16e8^16r16f+2"
				,0);
	parse_mml(sound[17],
				"#0 T140 O5 V15 @3"
				"<a4b4>c4e4"
				"#1 T140 O6 V15 @1"
				"<a4b4>c4e4"
				,0);
	parse_mml(sound[18],
				"#0 T140 O5 V15 @3"
				"f+8e8c2^4<b1"
				"#1 T140 O6 V15 @1"
				"f+8e8c2^4<b1"
				,0);


	parse_mml(sound[30],

		/* クラシック２ */
				"#0 T110 O5 V15"
				"<g4>c4d4e4"
				"f2d4"
				"e4c4d4"
				"c8<b8a8g8a8b8>"
				"c4d4e4"
				"f4d8c16d16e4"
				"c8<b16>c16d4<b4>"
				"c4r2"

				"#1 T110 O3 L4 V13"
				"r>e<b>c"
				"O3" ">d<ab"
				">c<af+"
				"ggf"
				"e<b>c"
				"d<g>c"
				"<afg"
				"O3" "<c>cr"

				,0);
	parse_mml(sound[21],
				"#0 T110 O5 V15"
				"<g4>c4d4e4"
				"#1 T110 O3 L4 V13"
				"r>e<b>c"
				,0);
	parse_mml(sound[22],
				"#0 T110 O5 V15"
				"f2d4"
				"#1 T110 O3 L4 V13"
				"O3" ">d<ab"
				,0);
	parse_mml(sound[23],
				"#0 T110 O5 V15"
				"e4c4d4"
				"#1 T110 O3 L4 V13"
				">c<af+"
				,0);
	parse_mml(sound[24],
				"#0 T110 O5 V15"
				"c8<b8a8g8a8b8>"
				"#1 T110 O3 L4 V13"
				"ggf"
				,0);
	parse_mml(sound[25],
				"#0 T110 O5 V15"
				"c4d4e4"
				"#1 T110 O3 L4 V13"
				"e<b>c"
				,0);
	parse_mml(sound[26],
				"#0 T110 O5 V15"
				"f4d8c16d16e4"
				"#1 T110 O3 L4 V13"
				"d<g>c"
				,0);
	parse_mml(sound[27],
				"#0 T110 O5 V15"
				"c8<b16>c16d4<b4>"
				"#1 T110 O3 L4 V13"
				"<afg"
				,0);
	parse_mml(sound[28],
				"#0 T110 O5 V15"
				"c4r2"
				"#1 T110 O3 L4 V13"
				"O3" "<c>cr"
				,0);



	return	0;
}
void sound_function_end(void)
{
	sound_close();
	sounddrv_release();
}

void	sound_stop()
{
	if(bgm_check())	bgm_stop();
}