ＳＨオルゴール・サンプル曲

戻る


　ＳＨオルゴール用サンプル曲です。全て私が作曲したオリジナル曲です。これらの曲の著作権は私 A.Hiramatsu が所持しています。

・「更ける夜」

　Ｈ８オルゴールでおなじみの曲です。なお、Ｈ８版でちょっと気に入らなかった部分を直しているのでほんの少し曲が違います。
100 TONE 0,4,255,120,200,4,6
200 TEMPO 96
1000 PLAY "@0L6","@0L6","@0L6","@0L6"
1010 *LOOP
1020 PLAY "O4C2..<G6>"    ,"O4G1"     ,"O5C2G4G4"  ,"O5C<G>CE>C<GBG"
1030 PLAY "C1"            ,"F2RAB>C<" ,"C1"        ,"FCFGA>C<BA"
1040 PLAY "D4.<A&2>"      ,"A2RFG"    ,"D2F2"      ,"FCFGAFBA"
1050 PLAY "D4.<G&2>"      ,"G2B4G4"   ,"D2G2"      ,"GDGAB2"
1060 PLAY "C4.<BA4G4>"    ,"G1"       ,"E2G2"      ,">C<G>E<G>E<GEB"
1070 PLAY "C4.GG#4A4"     ,"F1"       ,"F1"        ,"AFCFA>C<BA"
1080 PLAY ">D4.<A&4"      ,"F2G2"     ,"G2F4<F4>"  ,"BGFGBG>FE-"
1090 PLAY "C4.<G>C2"      ,"G4.FEE-E4",">C4<G4B2"  ,"EE-EFG2"
1100 PLAY "C4.<BA4G4>"    ,"G1"       ,"E2G2"      ,"C<G>E<G>E<GEB"
1110 PLAY "C4.<GG#4A4>"   ,"A1"       ,"F1"        ,"AFCFA>C<BA"
1120 PLAY "D4.<AG2>"      ,"G1"       ,"G2FGFD"    ,"BGFGBG>D<B"
1130 PLAY "CEGEC2"        ,"R2G2"     ,"G4C4C2"    ,">C<GFGE2"
1140 PLAY "O4C<GEG>C<G>FD","O4G1"     ,"O5E4.G&2"  ,"O6C4.C<BAGF"
1150 PLAY "C<G>CE4C4E"    ,"R2E4D4"   ,"E2C4<B4"   ,"G1"
1160 PLAY "<AEA>CD<G#AB"  ,"E1"       ,">C4.CD2"   ,"A4.AGFED"
1170 PLAY "AEA>CAGFE"     ,"E1"       ,"C1"        ,"E1"
1180 PLAY "C<FA>CDEFC"    ,"F2D2"     ,"C2F2"      ,"A4.B>C<BAG"
1190 PLAY "<B4G#>CC4E"    ,"E4.EA4E4" ,"<B4.B>E4C4","E<B>EG#>C2<"
1200 PLAY "<FCA>C<GD>D<G>","A2G2"     ,"C4.CC<GBG" ,"FDEFE4D4"
1210 PLAY "C<GFG>C2"      ,"G1"       ,"C1"        ,"C1"
1220 GOTO *LOOP

　参考までに、Ｈ８オルゴール版のデータの最初の部分の抜粋がこれ↓です。この数値の羅列データと比べるとＭＭＬは飛躍的にわかりやすくなっていると思います。
DATTOP
TEMPO	.DATA.B	96		; TEMPO
BARDIV	.DATA.B	8		; TICKS/BAR
BARS	.DATA.B	20		; BARS/SONG
	.DATA.B	0		; FILLER

SONG	.DATA.B	48,55,60,60	; c4  g4  c5  c5 ; 1
	.DATA.B	0 ,0 ,0 ,55	; r   r   r   g4
	.DATA.B	0 ,0 ,0 ,60	; r   r   r   c5
	.DATA.B	0 ,0 ,0 ,64	; r   r   r   e5 
	.DATA.B	0 ,0 ,67,72	; r   r   g5  c6
	.DATA.B	0 ,0 ,0 ,67	; r   r   r   g5
	.DATA.B	0 ,0 ,67,71	; r   r   g5  b5
	.DATA.B	43,0 ,0 ,67	; g3  r   r   g5


・「われらが栄光の大海軍」

　私のオリジナル自作ゲーム「嗚呼！掃海」シリーズの共通テーマ曲です。ＭＳＸ版の曲データはちょっと出てこない（必死に探せば出てくると思うのですがその気力がありません）ので、Ｐ／ＥＣＥ版のＭＭＬをＳＨオルゴール用に直しました。以下の曲はすべてＰ／ＥＣＥ版がベースです。
10 TEMPO 136
20 TONE 2,2,255,3,192,20,128
30 TONE 7,7,255,64,128,40,2
1000 PLAY "@2V224Q12L6","@3V216Q16L6","@4V208Q16L6","@4V208Q16L6","@7V240L6Q4"
1010 *LOOP
1020 PLAY "O2CCCCRCC8C8C","O5C2<G2","O4E2E2","O5G2C2","O6R2CR4."
1030 PLAY "CCCCRCC8C8C",">F2&6FED","D2&6DC<B","B-1","R2FR4."
1040 PLAY "CCCCRCC8C8C","E2<G2",">C2E2","G2F4E4","R2ER4."
1050 PLAY "CCCCRCC8C8C","B-1","G1","F8E8D4.&4E4","R2FR4."
1060 PLAY "CCCCRCC8C8C",">C2<G2","E2E2","G2C2","R2CR4."
1070 PLAY "CCCCRCC8C8C",">F2&6FED","D2&6DC<B","B-1","R2FR4."
1080 PLAY "CCCCRCC8C8C","E2<G2",">C2E2","G2C4E4","R2ER4."
1090 PLAY "CCCCRCC8C8C",">D1","B-1","F8E8F4.&4G4","R2FR4."
1100 PLAY "FFFFRFF8F8F","F2&6FED","A2&6AGF","A4F4G4A4","Q1C4C4C4C4"
1110 PLAY "CCCCRCC8C8C","C1","E1","G4.E4CDE","C4C4C4C4"
1120 PLAY "<B-B-B-B-RB-B-8B-8B-","<B-2&6B-GB-","D2&6DC<B->","F4D4E4F4","D4D4D4D4"
1130 PLAY ">CCCCRCC8C8C",">C1","E1","E4.C4EFG","C4C4C4C4"
1140 PLAY "FFFFRFF8F8F","F2&6FED","A2&6AGF","A4F4G4A4","C4C4C4C4"
1150 PLAY "CCCCRCC8C8C","C1","E1","G4.E4CFG","C4C4C4C4"
1160 PLAY "<B-B-B-B-RB-B-8B-8B-","F2&6FEF","D2&6DCD","B-DFB-B-FGB-","D4D4D4D4"
1170 PLAY "GGGGRGG8G8G","G1","D1",">D<GB>DD<GB>D<","<B4B4B4B4>"
1180 PLAY ">FFFFRFF8F8F","A2&6FGA","C2&6<A>CF","ACFAA>C<BA","C4C4C4C4"
1190 PLAY "CCCCRCC8C8C","G.E8C2E4","C.C8G2C4","GCE>C4<CDE","C4C4C4C4"
1200 PLAY "DDDDRDD8D8D","F2&6FED","A2&6AGF","FDEFFDEC","C4C4C4C4"
1210 PLAY "CCDDE-E-EE","E4F4G4G#4","E4F4G4G#4","CCDDEEFF","C4C4C4C4"
1220 PLAY "FFFFRFF8F8F","A2&6FGA",">C2&6<AB>C","ACFAA>C<BA","C4C4C4C4"
1230 PLAY "CCCCRCC8C8C","G.E8>C2<C4","E.<G8G2E4","GCE>C4<GAB","C4C4C4C4"
1240 PLAY "DDDDRDD8D8D","D2&6F#EF#","F#2&6CDF#","ADF#AAF#GA","C4C4C4C4"
1250 PLAY "GGGGRGG8G8G","G1","G2B2","<G>DBG<G>DBG","DDD8D8D8D8DDDD"
1260 PLAY "GGGGRGG8G8G","G1",">D2F2","<G>DBG<G>DBG","DDD8D8D8D8DDDD"
1270 PLAY "GGGGRGG8G8G","G1","G2B2","<G>DBG<G>DBG","FFF8F8F8F8FFFF"
1280 PLAY "GGGGRGGG","G1",">D2F2","GGAABB>DD<","GGGGGGG8G8G8G8"
1290 GOTO *LOOP


・「兵学校の三羽烏」

　これは「嗚呼！掃海２／２＋」の中で使われている曲です。
100 TONE 1,1,255,160,240,6,50
110 TONE 2,2,160,120,220,1,60
120 TONE 3,3,240,100,240,8,60
200 TEMPO 96
1000 PLAY "@1V216L7","@2V200O5L7","@0V176O4L4","@0V176O4L4","@0V176O4L4","@3V192O5L7"
1010 PLAY "O2A4E4A4E4","R5EA5B>C5<BA5B","CCCC","EEEE","AAAA","R1"
1020 PLAY "A4E4A4E4",">C5<A>EEFE2","CCCC","EEEE","AAAA","R2EEEER7E"
1030 PLAY ">D4<A4>D4<A4","R5DD5EF5DA5F","DD<BB>","FFFF","AAGG","R1"
1040 PLAY ">E4<B4>E4<B4","B5BBBAB4>C5<B","DDDD","G#G#G#G#","BBBB","R2EF#G#AB>C"
1050 PLAY "A4E4A4E4","A4&5FE5EF5C","CCCC","EEEE","AAAA","R4<AR7AR4ER7C"
1060 PLAY ">E4<B4A2","E5EC5<BA2","<B>DC2","EG#E2","ABA2","ER7EG#G#G#A2"