#TITLE ドラゴンクエストⅡ悪霊の神々 / 広野を行く
#ARTIST すぎやまこういち
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code：047-0880-6 / MML coded: 2014/06/07 rev.0


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

/* All part 1 */  $ALL1 = t112.8 ;
/*  Tone part */  $ALLT = ;
/*     Repeat */  $LOOP = 64 ; 

/* Volume @V0～127 */
/* 2A03 Sqr_0 */  $Sqr0 = @V104 ;
/* 2A03 Sqr_1 */  $Sqr1 = @V112 ;
/* 2A03 Tri   */  $Tri  = @V127 ;


/* Wav13 ==================================================================== */

#WAV13 0,80 85 85 85 85 85 87 8C 94 93 93 93 93 95 A1 A1 A1 A1 A1 A0 A2 AC AE AD AD AD AC B2 B7 B9 B9 B8 B8 B8 BB C4 C4 C3 C3 C2 C2 CA CD CE CD CD CC CB D4 D7 D6 D6 D5 D4 D6 DB E0 DF DE DD DD DE E8 E7 E6 E5 E5 E4 E3 E3 E2 E1 E0 DF DF D7 D1 D0 CF CF CE CD C8 C0 BF BE BE BD BD B4 AF AF AE AE AE AD A4 9F 9F 9F 9E 9E 9A 96 90 90 8F 8F 8F 8D 81 81 81 81 81 81 7D 75 73 73 73 73 73 6B 65 65 65 65 65 64 60 57 57 58 58 58 57 4B 4A 4A 4A 4B 4B 49 40 3D 3D 3E 3E 3F 3A 33 31 31 31 32 33 31 24 24 25 26 26 27 1E 19 18 19 1A 1A 1B 12 0C 0D 0E 0F 10 10 11 12 13 13 14 15 17 27 29 2A 2A 2A 2B 31 3A 3E 3E 3F 3F 40 48 4E 52 52 52 53 53 58 64 64 64 64 65 66 6E 74 75 75 75 75 75 /* 2A03(Tri) */

#WAV13 1,80 F6 FE FF FE FD FC FB FA F9 F8 F7 F6 F5 F4 F3 F3 F2 F1 F0 EF EE ED EC EB EA EA E6 AA 67 60 60 61 61 61 61 62 62 62 62 63 63 63 63 63 64 64 64 64 65 65 65 65 65 66 66 66 66 66 67 67 67 67 67 68 68 68 68 68 68 69 69 69 69 69 69 6A 6A 6A 6A 6A 6A 6B 6B 6B 6B 6B 6B 6C 6C 6C 6C 6C 6C 6C 6D 6D 6D 6D 6D 6D 6D 6E 6E 6E 6E 6E 6E 6E 6F 6F 6F 6F 6F 6F 6F 6F 6F 70 70 70 70 70 70 70 70 71 71 71 71 71 71 71 71 71 72 72 72 72 72 72 72 72 72 72 73 73 73 73 73 73 73 73 73 73 74 74 74 74 74 74 74 74 74 74 74 74 75 75 75 75 75 75 75 75 75 75 75 75 76 76 76 76 76 76 76 76 76 76 76 76 76 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 78 78 78 78 78 78 78 78 78 78 78 78 /* 2A03(Sqr12.5%) */

#WAV13 4,80 DE DD DD DC DB DA DA D9 D9 D8 D7 D7 D6 D5 D4 D4 D3 D2 D2 D2 D1 D0 D0 CF CE CE CD CC CC CB CA CA CA C9 C8 C8 C7 C7 C6 C6 C5 C4 C4 C4 C3 C3 C2 C2 C1 C0 C0 BF BF BE BE BE BD BD BC BC BB BB BA BA B9 B9 B8 B8 B8 B7 B7 B6 B6 B6 B5 B5 B4 B4 B3 B3 B3 B2 B2 B2 B1 B1 B0 B0 B0 AF AF AE AE AE AE AD AD AC AC AC AB AB AB AA AA AA AA A9 A1 29 22 22 23 24 25 25 26 26 27 28 28 29 2A 2A 2B 2C 2D 2D 2E 2F 2F 2F 30 31 31 32 33 33 34 35 35 36 36 36 37 38 38 39 39 3A 3B 3B 3C 3C 3C 3D 3D 3E 3E 3F 40 40 41 41 42 42 43 43 43 44 44 45 45 46 46 47 47 48 48 48 48 49 49 4A 4A 4B 4B 4C 4C 4C 4D 4D 4D 4E 4E 4F 4F 4F 50 50 51 51 51 51 52 52 52 53 53 54 54 54 55 55 55 56 56 56 /* 2A03(Sqr50%) */


/* Macro ==================================================================== */

$Ex0 = @E1,0,0,127,0 ;


/* Sqr_0 ==================================================================== */

$SQ48A{a} = @X120 %a%3 & @X104 %a%3 & @X96 %a%3 & @X88 %a%3 & @X16 %a%36 & ; /* FDEB2 */

$S00 = q16 @Q0 $Ex0 @13-1 ;
$S01 = o5 $SQ48A{d} $SQ48A{a} $SQ48A{f} $SQ48A{a} $SQ48A{d} $SQ48A{b} $SQ48A{g} $SQ48A{b} ;
$S02 = $SQ48A{d} < $SQ48A{c} > $SQ48A{a} < $SQ48A{c} > $SQ48A{d} $SQ48A{b-} $SQ48A{f} $SQ48A{b-} ; 
$S03 = $SQ48A{e} < $SQ48A{c} > $SQ48A{a} < $SQ48A{c} > $SQ48A{d} $SQ48A{a} $SQ48A{f+} $SQ48A{a} ;
$S04 = $SQ48A{d} $SQ48A{a} $SQ48A{f+} $SQ48A{a} $SQ48A{g} $SQ48A{b-} $SQ48A{a} < $SQ48A{c} ;
$S05 = > $SQ48A{d} < $SQ48A{c} > $SQ48A{a} < $SQ48A{c} > $SQ48A{d} $SQ48A{b} $SQ48A{g} $SQ48A{b} ; 
$S06 = $SQ48A{d} $SQ48A{b} $SQ48A{g} $SQ48A{b} $SQ48A{d} $SQ48A{b-} $SQ48A{a-} $SQ48A{b-} ; 
$S07 = $SQ48A{c+} $SQ48A{a} $SQ48A{e} $SQ48A{a} $SQ48A{d} $SQ48A{a} $SQ48A{e} $SQ48A{a} ; 
$S08 = $SQ48A{c+} $SQ48A{a} $SQ48A{e} $SQ48A{a} > $SQ48A{b} < $SQ48A{a} $SQ48A{c+} $SQ48A{a} ; 

/* *** play *** */

$ALL1 $ALLT $Sqr0 $S00 /:$LOOP $S01 $S02 $S03 $S04 $S05 $S06 $S07 $S08 :/ a%1
;


/* Sqr_1 ==================================================================== */

$SQ48B{a} = @13-4 @X48 %a%6 & @13-1 @X16 %a%42 & ;
$SQ96B{a} = @13-4 @X48 %a%6 & @13-1 @X16 %a%90 & ;

$S10 = q16 @Q0 $Ex0 r%3 ;
$S11 = o7 $SQ96B{d} $SQ96B{a} $SQ96B{g} g%192 & $SQ48B{f} $SQ48B{e} $SQ96B{d} $SQ48B{c} > $SQ48B{b-} ;
$S13 = < $SQ48B{c} > $SQ48B{a} < $SQ96B{e} $SQ96B{d} d%480 & ;
$S15 = $SQ96B{a} < $SQ96B{c} > $SQ96B{b} b%192 & $SQ48B{g} $SQ48B{f} $SQ96B{e} $SQ48B{f} $SQ48B{g} ;
$S17 = $SQ96B{a} a%672 & ;

/* *** play *** */

$ALL1 $ALLT $Sqr1 $S10 /:$LOOP $S11 $S13 $S15 $S17 :/ a%1
;


/* Tri ====================================================================== */

$T00 = @13-0 $Ex0 q16 @Q0 l8 o6 ;
$T01 = d4&a4&g2.&f&e&d4&c&>b-&<c&>a&<e4&d1.&a4&<c4&>b2.&g&f&e4&f&g&a1&a1& ;

/* *** play *** */

$ALL1 $ALLT $Tri $T00 /:$LOOP $T01 :/ a%1
;