#TITLE 信長の野望・武将風雲録(OPN) / 特殊野戦場
#ARTIST Yoko Kanno
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code：- / MML coded: 2014/12/29 rev.0 


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

/* All part 1 */  $ALL1  = t92.18 ; /* (40time/26.036sec)*60sec %1=6.780ms */
/* All part 2 */  $ALL2  = x2     ; /* 96dB dynamic range */
/*  Tone part */  $ALLT  = ns0    ;
/*     Repeat */  $LOOP  = 48     ;

/* Volume @V0～127 (default=121) */
/* YM2203 FM_a  */  $FMa  = @V121 ;
/* YM2203 FM_b  */  $FMb  = @V121 ;
/* YM2203 FM_c  */  $FMc  = @V121 ;
/* YM2203 SSG_a */  $SSGa = @V121 ;


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

/* --FM-- */

#OPN@1 {
  5,  7,
 12, 11,  1,  8,  2, 29,  1,  1,  0,  0,
 15,  5,  0,  9,  2,  0,  0,  1,  0,  0,
 16,  1,  0, 10,  2,  6,  1,  2,  0,  0,
 18,  2,  0,  9,  1,  0,  0,  1,  0,  0,
 15 }

#OPN@2 {
  5,  7,
 15,  3,  0, 14,  1, 26,  2,  1,  0,  0,
 18,  3,  0, 15, 15,  0,  2,  1,  0,  0,
 18,  3,  0, 14, 15,  0,  2,  1,  0,  0,
 18,  3,  0,  5, 15,  0,  2,  1,  0,  0,
 15 }

$V0F = @X118 ; /* 127-15 +6 */
$V12 = @X115 ; /* 127-18 +6 */
$V99 = @X0   ; /* Silent */

/* --SSG-- */

#WAV13 0,80 F2 F7 F9 FA FA F9 F8 F7 F6 F5 F4 F3 F2 F1 F0 EF EE EC EB EA E9 E8 E7 E6 E5 E4 E4 E3 E1 E0 E0 DF DE DD DD DC DB DB DA D9 D8 D8 D7 D6 D6 D5 D5 D4 D3 D3 D2 D1 D1 D0 D0 CF CF CE CE CD CD CC CB CB CA CA C9 C9 C9 C8 C8 C7 C7 C6 C6 C5 C5 C4 C4 C4 C3 C3 C2 C2 C1 C1 C1 C0 C0 C0 BF BF BE BE BE BD BD BC BC A3 0D 09 06 05 05 05 06 07 08 0A 0B 0C 0D 0E 0F 10 11 12 14 15 16 17 18 19 1A 1A 1B 1C 1D 1E 1F 20 21 21 22 23 23 24 25 25 26 27 28 29 29 2A 2A 2B 2B 2C 2D 2D 2E 2F 2F 30 30 31 31 32 32 33 33 34 35 35 35 36 36 37 37 38 38 38 39 3A 3A 3A 3B 3B 3C 3C 3C 3D 3D 3E 3E 3F 3F 3F 40 40 40 41 41 42 42 43 43 43

$W0C = @X118 ; /* 127-(15-12)x4-3 +6 */


/* FM_a ===================================================================== */

$fa0{a} = %ar%a%a%a%a;
$fa1{a} = %ar%a%a%a%a %ar%a%a%a%a;
$fa2{a} = %ar%a%a%a%a %a%a%a%a%a%a;

$ALL1 $ALL2 $ALLT $FMa @14-1 @Q0 l24 $V0F
/:$LOOP
o4 q8 /:5 $fa1{g} $fa2{g} :/
$fa1{a} $fa2{f} $fa1{a-} $fa2{a-} $fa1{a-} $fa1{a-} $fa1{a-} < $fa1{d-} $fa2{d-} $fa1{c}
:/;


/* FM_b ===================================================================== */

$ALL1 $ALL2 $ALLT $FMb @14-1 @Q0 l24 $V12
/:$LOOP
o4 q8 /:5 $fa1{b-} $fa2{b-} :/
< $fa1{d} > $fa2{a} < $fa1{c} $fa2{c} $fa1{c} $fa1{d-} $fa1{d-} $fa1{f} $fa2{f} $fa0{f} $fa0{e} 
:/;


/* FM_c ===================================================================== */
/* ★ リリース部分でLFOを無効にした（バグ対策） */

$L0 = @L0,0;
$LF0 = @L10,27,-0,0,0,0;

$ALL1 $ALL2 $ALLT $FMc @14-2 q16 l24 $L0
/:$LOOP
o4 r2 r4 r6r $V12 $LF0 @Q0 b-&
@Q4 <e- $L0 r6r $LF0 /* ★ */ @Q0 >b-& @Q2 <d4&d12. @Q6 >b-12 @Q4 g12. e- b-12 g2.&g6&g @Q1 b-
@Q4 <e- $L0 r6r $LF0 /* ★ */ @Q1 >b-& @Q2 <d4&d12. @Q3 >b-12 g12. @Q1 e- @Q3 b-12 
@Q2 g6 @Q4 a12 b-12. @Q3 g @Q6 <e-12 @Q2 d4&d12 @Q3 >b-12 @Q5 <d12
@Q6 f4 @Q2 d2&d6 @Q5 f12 @Q7 a-4 @Q8 f4&f6 @Q5 c12 @Q3 >a-12. f @Q4 <c12
@Q13 >a-4&a-12 @Q5 <c12 @Q6 f12 @Q11 a-4 @Q2 f4&f6 @Q5 d-12 @Q3 >a-12. b- @Q5 <c12
@Q4 d-12. @Q2 e- @Q8 f12 @Q2 g12. @Q3 a- @Q7 b-12 @Q2 b4&b6 @Q10 b12 @Q2 <c2 $L0 /* ★ */ $V99
:/;


/* SSG_a ==================================================================== */

$LS0 = @L12,27,-0,100,0,0;

$ALL1 $ALL2 $ALLT $SSGa @13-0 q16 @E1,0,0,127,0 $W0C l24 $LS0
/:$LOOP
o5 r2 r4 r6r $V12 @Q0 b-&
@Q3 <e- r6r @Q0 >b-& <d4&d12. @Q2 >b-12 @Q3 g12. e- b-12 @Q4 g2.&g6&g @Q2 b- 
@Q3 <e- r6r @Q2 >b- @Q0 <d4&d12. @Q3 >b-12 @Q1 g12. @Q3 e- @Q6 b-12
@Q4 g6 a12 b-12. g @Q6 <e-12 @Q2 d4&d12 @Q4 >b-12 <d12
@Q7 f4 @Q2 d2&d6 @Q6 f12 @Q7 a-4 @Q10 f4&f6 @Q6 c12 @Q4 >a-12. @Q5 f @Q5 <c12
@Q19 >a-4&a-12 @Q7 <c12 @Q9 f12 @Q11 a-4 @Q2 f4&f6 @Q7 d-12 @Q3 >a-12. @Q5 b-&<c12
@Q3 d-12. e- @Q7 f12 @Q3 g12. @Q4 a- @Q8 b-12 @Q2 b4&b6 @Q9 b12 @Q2 <c2
:/;