#TITLE ドラゴンクエストⅡ悪霊の神々 / 果てしなき世界
#ARTIST すぎやまこういち
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code：068-9284-1 / MML coded: 2014/06/07 rev.0


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

/* All part 1 */  $ALL1 = t105.2 ;
/*  Tone part */  $ALLT = ;
/*     Repeat */  $LOOP = 28 ; 

/* Volume @V0～127 */
/* 2A03 Sqr_0 */  $Sqr0 = @V104 ;
/* 2A03 Sqr_1 */  $Sqr1 = @V96  ;
/* 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 2,80 F4 F5 F5 F4 F4 F3 F2 F1 F0 EF EE ED EC EC EB EA EA E9 E8 E7 E6 E5 E5 E4 E3 E2 E1 E0 E0 E0 DF DE DD DC DC DB DA D9 D9 D8 D7 D7 D6 D6 D5 D4 D4 D3 D2 D1 D1 D0 CF CC A2 4E 47 47 48 48 49 49 4A 4A 4A 4B 4B 4B 4C 4C 4D 4D 4D 4E 4E 4F 4F 50 50 50 50 51 51 51 52 52 53 53 53 54 54 54 54 55 55 56 56 56 57 57 57 58 58 58 58 59 59 59 5A 5A 5A 5A 5B 5B 5B 5C 5C 5C 5C 5D 5D 5D 5D 5E 5E 5E 5F 5F 5F 5F 5F 60 60 60 60 61 61 61 61 62 62 62 62 62 63 63 63 63 64 64 64 64 65 65 65 65 65 65 66 66 66 66 67 67 67 67 67 67 68 68 68 68 68 69 69 69 69 69 69 69 6A 6A 6A 6A 6A 6B 6B 6B 6B 6B 6B 6B 6C 6C 6C 6C 6C 6C 6D 6D 6D 6D 6D 6D 6D 6D 6E 6E 6E 6E 6E 6E 6E 6F 6F 6F 6F 6F /* 2A03(Sqr25%) */

#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 ;

/* Vol(n/60.09) : A(1) F(+1) D(+1) C(+2) B(+2) A(+3) 9(+3) 8(+4) 9(+1) A(+1) B(+1) C(+2) B(+1) A(+1) 9(+4) 8(+4) ... */
/* Vol(n/127)   : A(2) F(+2) D(+2) C(+3) B(+3) A(+5) 9(+5) 8(+8) 9(+2) A(+2) B(+2) C(+4) B(+2) A(+2) 9(+9) 8(+8～9) ... */
$ExS1 =
  @E1,0,0,  80,2,80,0,  120,2,120,0,  104,3,104,0,  96,3,96,0,  88,5,88,0,  80,5,80,0,  72,5,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,8,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,8,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,8,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,9,64,0 ;

/* Vol(n/60.09) : X(3) F(+1) E(+1) D(+1) C(+1) B(+1) A(+1) 9(+1) 8(+2) 9(+1) A(+1) B(+2) A(+1) 9(+1) 8(+2) ... */
/* Vol(n/127)   : X(6) F(+2) E(+2) D(+2) C(+2) B(+2) A(+2) 9(+2) 8(+5) 9(+2) A(+2) B(+4) A(+2) 9(+2) 8(+5) ... */
$ExS2 =
  @E1,0,0,  120,8,120,0,  112,2,112,0,  104,2,104,0,  96,2,96,0,  88,2,88,0,  80,2,80,0,  72,2,72,0,  64,5,64,0,
  72,2,72,0,  80,2,80,0,  88,4,88,0,  80,2,80,0,  72,2,72,0,  64,5,64,0,
  72,2,72,0,  80,2,80,0,  88,4,88,0,  80,2,80,0,  72,2,72,0,  64,5,64,0,
  72,2,72,0,  80,2,80,0,  88,4,88,0,  80,2,80,0,  72,2,72,0,  64,5,64,0,
  72,2,72,0,  80,2,80,0,  88,4,88,0,  80,2,80,0,  72,2,72,0,  64,5,64,0,
  72,2,72,0,  80,2,80,0,  88,4,88,0,  80,2,80,0,  72,2,72,0,  64,5,64,0,
  72,2,72,0,  80,2,80,0,  88,4,88,0,  80,2,80,0,  72,2,72,0,  64,5,64,0,
  72,2,72,0,  80,2,80,0,  88,4,88,0,  80,2,80,0,  72,2,72,0,  64,5,64,0,
  72,2,72,0,  80,2,80,0,  88,4,88,0,  80,2,80,0,  72,2,72,0,  64,5,64,0,
  72,2,72,0,  80,2,80,0,  88,4,88,0,  80,2,80,0,  72,2,72,0,  64,5,64,0,
  72,2,72,0,  80,2,80,0,  88,4,88,0,  80,2,80,0,  72,2,72,0,  64,5,64,0 ;


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

$SQ_E{a,b,c} = %a%%b & $Ex0 @13-1 @X16 %a%%c $ExS1 @13-4 @X127 ;
$SQ_R{a,b,c} = %a%%b r%%c ;

$S00 = l16 q16 @Q0 $ExS1 @13-4 @X127 ;
$S01 = /:2 o5 ab-ab- < $SQ_E{c,136,8} c8 $SQ_E{d,24,24} $SQ_E{c,24,24} > b4 < g2. ;
$S02 = > gaga b-2 b-12 < c12 > b-12 / a4 < f2. :/ a $SQ_E{g,24,24} $SQ_E{f,120,48} < $SQ_E{f,24,48} e-8. ; 
$S03 = /:2 d > fab- < d4. a8 $SQ_E{g,14,34} $SQ_E{f,32,16} e $SQ_E{f,32,16} e8c > a8&a2 / ;
$S04 = r8 < $SQ_E{d,23,25} > f2g8f8 a8. $SQ_E{b-,48,24} < c8&c2 :/ ;
$S05 = < $SQ_E{d,48,48} > d2 f4 f1 ;

/* *** play *** */

$ALL1 $ALLT $Sqr0 $S00 /:$LOOP $S01 $S02 $S03 $S04 $S05 :/
;


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

$At8A{a}      = $Ex0 @13-4 @X80 %a%3 & @X96 %a%3 & @X104 %a%2 ; /* ACD */
$SQ96A{a,b,c} = $At8A{%a} & @13-2 @X120 %a%3 & @X112 %a%3 & @13-1 @X16 %a%34  %b  $At8A{%c} & $ExS2 @13-2 @X127 %c%40 ; /* ACD/FE/2 ACD/FEDC.. */
$SQ48B{a}     = $At8A{%a} & $ExS2 @13-2 @X127 %a%16 & $Ex0 @13-1 @X16 %a%24 ; /* ACD/FEDCBA/2 */
$SQ96C{a}     = $At8A{%a} & $ExS2 @13-2 @X127 %a%88 ; /* ACD/FEDC.. */
$SQ48C{a}     = $At8A{%a} & $ExS2 @13-2 @X127 %a%40 ; /* ACD/FEDC.. */
$SQ24C{a}     = $At8A{%a} & $ExS2 @13-2 @X127 %a%16 ; /* ACD/FEDCBA */
$SQ96D{a}     = $At8A{%a} & $ExS2 @13-2 @X127 %a%40 & $Ex0 @13-1 @X16 %a%48 ; /* ACD/FEDC../2 */

$S10  = q16 @Q0 ;
$S11  = o5 /:2 /:2 $SQ96A{c,,f} > $SQ96A{a,<,f} :/  /:2 $SQ96A{d,,g} > $SQ96A{b,<,g} :/ ;
$S12a = /:2 $SQ96A{d-,,g} > $SQ96A{b-,<,g} :/ / /:2 $SQ96A{c,,f} > $SQ96A{a,<,f} :/ :/ ;
$S12b = $SQ96A{c,,c} > $SQ96A{a,<,c} r8 $SQ48B{a} & a%24 $SQ48C{a} & a%24 ;
$S13  = /:2 r%48 $SQ96D{f} $SQ96D{a} $SQ96D{f} $SQ96D{a} $SQ96D{e} $SQ96D{g} $SQ96D{e} / $SQ96D{g} ;
$S14a = $SQ96D{b-} $SQ96D{d} $SQ96D{d} $SQ48C{d} ;
$S14b = $SQ24C{e} $SQ24C{c} $SQ24C{e} $SQ24C{f} $SQ24C{d} $SQ24C{f} $SQ96C{g} $SQ48C{g} $SQ48B{e} $SQ48B{c} :/ ;
$S15  = $SQ48C{g} $SQ96D{b-} > $SQ96C{b-} & b-%96 $SQ96C{b-} r8 < $SQ24C{d} $SQ48B{c} > $SQ24C{b-} < $SQ96C{c} & c%144 ;

/* *** play *** */

$ALL1 $ALLT $Sqr1 $S10 /:$LOOP $S11 $S12a $S12b $S13 $S14a $S14b $S15 :/
;


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

$TR96A{a,b} = %a%16 r%32 %b%48 & ;
$TR96B{a,b} = %a%22 r%26 %b%48 & ;
$TR48B{a} = %a%24 r%24 ;

$T00  = @13-0 $Ex0 q16 @Q0 ;
$T01  = o4 /:2 /:2 $TR96A{f,a} $TR96A{>f,<a} :/ /:2 $TR96A{f,b} $TR96A{>f,<b} :/ ;
$T02  = /:2 $TR96A{f,b-} $TR96A{>f,<b-} :/ $TR96A{f,a} $TR96A{>f,<a} / $TR96A{f,a} $TR96A{>f,<a} :/ > $TR48B{f} << $TR48B{f} c%24 & f%24 & > f%48 & ;
$T03  = /:2 /:2 $TR96B{b-,<d} $TR96B{>>b-,<<f} > :/ /:2 $TR96B{a,<c} $TR96B{>>a,<<e} > :/ / ;
$T04  = $TR96B{g,<f} $TR96B{>>g,<b-} /:2 $TR96B{c,b-} :/ > f%72 & g%72 & a%96 & << e%48 $TR48B{c} > $TR48B{a} :/ ;
$T05  = g%48 r%48 f%96 & c%192 & > f%48 & < b-%24 & a%24 r%24 g%24 & a%96 & > $TR48B{f} $TR48B{f} < $TR48B{c} ;

/* *** play *** */

$ALL1 $ALLT $Tri $T00 /:$LOOP $T01 $T02 $T03 $T04 $T05 :/
;