#TITLE 信長の野望・戦国群雄伝(OPN) / 信長・メイン
#ARTIST Yoko Kanno
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code：124-4591-6 / MML coded: 2014/08/03 rev.0 / A minor


/* Ini ====================================================================== */

/* All part 1 */  $ALL1  = t84.1   ; /* (72time/51.370sec)*60sec */
/* All part 2 */  $ALL2  = x2      ; /* 96dB dynamic range */
/*  Tone part */  $ALLT  = ns0     ;
/*     Repeat */  $LOOP  = 24      ;

/* Volume @V0～127 */
/* YM2203 FM_0  */  $FM0  = @V116 ; /* 109→116 / Peak -6.2dB (MV=127) */
/* YM2203 FM_1  */  $FM1  = @V116 ;
/* YM2203 FM_2  */  $FM2  = @V116 ;


/* Data ===================================================================== */

#OPN@1 {
     4,  6,
    16,  1,  0,  8,  1, 31,  0,  1,  0,  0,
    16,  2,  0,  8,  1,  0,  0,  1,  0,  0,
    16,  1,  0,  8,  1, 31,  0,  1,  0,  0,
    16,  2,  0,  8,  1,  0,  0,  1,  0,  0,  15 }

#OPN@2 {
     2,  7,
    13, 14,  0,  3,  1, 23,  2,  1,  0,  0,
    13, 14,  0, 10, 15, 40,  2,  7,  0,  0,
    14, 14,  0,  3,  1, 38,  2,  1,  0,  0,
    19,  3,  0, 10,  0,  0,  1,  1,  0,  0,  15 }

#OPN@3 {
     7,  7,
    31,  1,  1, 10,  0, 27,  0,  8,  3,  0,
    19,  2,  1, 10,  1,  0,  0,  3,  7,  0,
    19,  2,  1, 10,  1,  0,  0,  1,  0,  0,
    19,  2,  1, 10,  1,  0,  0,  2,  6,  0,  15 }

#OPN@4 {
     0,  4,
    10,  7,  7,  4,  2, 28,  2,  6,  3,  0,
    15,  6,  6,  4,  1, 58,  2,  5,  3,  0,
    10,  9,  6,  4,  1, 22,  2,  0,  3,  0,
    15,  6,  8,  4, 15,  0,  2,  1,  3,  0,  15 }

#OPN@5 {
     0,  4,
    10,  7,  7,  4,  2, 28,  2,  6,  3,  0,
    15,  6,  6,  4,  1, 58,  2,  5,  3,  0,
    10,  9,  6,  4,  1, 22,  2,  0,  3,  0,
    15,  6,  8,  4, 15,  0,  2,  1,  3,  0,  15 }

#OPN@6 {
     7,  7,
    31,  1,  1, 10,  0, 27,  0,  8,  3,  0,
    19,  2,  1, 10,  1,  0,  0,  3,  7,  0,
    19,  2,  1, 10,  1,  0,  0,  1,  0,  0,
    19,  2,  1, 10,  1,  0,  0,  2,  6,  0,  15 }

/* all +18 */
$V12 = @X127 ; /* -18 */
$V14 = @X125 ; /* -20 */
$V15 = @X124 ; /* -21 */
$V16 = @X123 ; /* -22 */
$V17 = @X122 ; /* -23 */
$V18 = @X121 ; /* -24 */
$V19 = @X120 ; /* -25 */
$V1A = @X119 ; /* -26 */
$V1B = @X118 ; /* -27 */
$V1C = @X117 ; /* -28 */
$V1D = @X116 ; /* -29 */
$V1E = @X115 ; /* -30 */
$V1F = @X114 ; /* -31 */
$V20 = @X113 ; /* -32 */
$V21 = @X112 ; /* -33 */
$V24 = @X109 ; /* -36 */

$M00{a,b,c} = %ar24%a24%a24r24%br24%b24%b24r24r %c %b%b ;


/* FM_0 ===================================================================== */

$ALL1 $ALL2 $ALLT $FM0 q16 @Q0 l12 @D1 /* そのままだと何故か最初の音が出ない！ */
/:$LOOP
@14-1 $V1D /:2 o5 a6<ee4&e6f+ gr24f+24ed4&d6>g a6<e $V19 e4&e6 $V1B a gr24f+24e $V17 d4&d6 $V19 e
$V1D f6<c $V18 c4&c6d c>r24b24a $V19 g4&g6a e6>a<e2&e2. :/
@14-2 $V21 /:4 $M00{e,d,} :/ $V1B d4c4&c6g d4c4&c6d $M00{e,e,} $V1A $M00{e,e,$V19}
:/ ;


/* FM_1 ===================================================================== */

$ALL1 $ALL2 $ALLT $FM1 q16 @Q0 l12 @D1 /* FM_0に合わせて@D1追加 */
/:$LOOP
/:2 @14-3 $V24 o6 r2. r2. r2r6f+ er24d24c>b4&b6<c
d6aa4&a6g fr24e24dc4&c6d @14-4 $V1B /:2 $M00{c,c,} :/ :/
@14-2 $V20 /:4 $M00{c,c,} :/
$V1F > /:2 $M00{a-,a-,} :/ $V1E $M00{b,b,} $V1D $M00{b,b,$V1C}
:/ ;


/* FM_2 ===================================================================== */

$ALL1 $ALL2 $ALLT $FM2 q16 @Q0 l12 @D1 /* FM_0に合わせて@D1追加 */
/:$LOOP
@14-5 $V18 /:2 /:4 a4<e4>e4 :/ /:2 b-4<f4>f4 :/ /:2 a4<e4>e4 :/ :/
@14-6 $V1A b-<fga4&a6b- ar24g24fg2 >g<dga4&a6b- ar24g24fg2
@14-5 $V19 >a-4<e-4>g4 f4<c4f4 > $V16 $M00{e,e,} $V15 $M00{e,e,$V14}
:/ ;