#TITLE ドラゴンクエストⅡ悪霊の神々 / 魔の塔
#ARTIST すぎやまこういち
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code：080-8213-8 / MML coded: 2014/06/04 rev.0


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

/* All part 1 */  $ALL1 = t100.2 ;
/*  Tone part */  $ALLT = ;
/*     Repeat */  $LOOP = 36 ; 

/* Volume @V0～127 */
/* 2A03 Sqr_0 */  $Sqr0 = @V112 ;
/* 2A03 Sqr_1 */  $Sqr1 = @V112 ;
/* 2A03 Noi   */  $Noi  = @V64  ;


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

#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) : X(2) 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(+1) 8(+4)  ... */
/* Vol(n/127): X(4) D(+2) C(+5) B(+4) A(+6) 9(+6) 8(+9) 9(+2) A(+2) B(+2) C(+4) B(+2) A(+2) 9(+2) 8(+9～10)  ... */
$ExS1 =
  @E1,0,0,  104,6,104,0,  96,5,96,0,  88,4,88,0,  80,6,80,0,  72,6,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,10,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,10,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,10,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,10,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,10,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,10,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,10,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,10,64,0 ;

/* Vol(n/60) : F(2) E(+1) C(+1) B(+1) A(+1) 8(+1) 7(+1) A(+1) 8(+1) 7(+1) 6(+1) 7(+3) 9(+1) 8(+1) 7(+1) 6(+1) */
/* Vol(n/127): F(4) E(+2) C(+2) B(+3) A(+2) 8(+2) 7(+2) A(+2) 8(+2) 7(+2) 6(+2) 7(+7) 9(+2) 8(+2) 7(+2) 6(+2) */
$ExS2 =
  @E1,0,0,  120,4,120,0,  112,2,112,0,  96,2,96,0,  88,3,88,0,  80,2,80,0,  64,2,64,0,  56,2,56,0,
  80,2,80,0,  64,2,64,0,  56,2,56,0,  48,2,48,0,  56,7,56,0,  72,2,72,0,   64,2,64,0,  56,2,56,0,  48,9,48,0 ;

/* Vol(n/60.09) : C(1) 9(+1) 6(+1) 4(+1) 3(+1) 2(+1) 1(*) */
/* Vol(n/127)   : C(2) 9(+2) 6(+2) 4(+2) 3(+2) 2(+2) 1(*) */
$ExN1 =
  @E1,0,0,  96,2,96,0,  72,2,72,0,  48,2,48,0,  32,2,32,0,  24,2,24,0,  16,2,16,0,  8,199,8,0  ;


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

$At5A{a}  = $Ex0 @13-2 @X120 %a%3 & @X112 %a%2 ; /* FE */
$SQ48A{a} = $At5A{%a} & $ExS1 @13-4 @X127 %a%19 & $Ex0 @13-1 @X16 %a%24 ; /* FE/DCBA/2 */
$SQ72A{a} = $At5A{%a} & $ExS1 @13-4 @X127 %a%19 & $Ex0 @13-1 @X16 %a%48 ; /* FE/DCBA/2 */
$SQ24B{a} = $At5A{%a} & $ExS1 @13-4 @X127 %a%19 ; /* FE/DCBA */
$SQ48B{a} = $At5A{%a} & $ExS1 @13-4 @X127 %a%43 ; /* FE/DCBA989 */
$SQ72B{a} = $At5A{%a} & $ExS1 @13-4 @X127 %a%67 ; /* FE/DCBA989.. */

$S10 = q16 @Q0 ;
$S11 = o3 $SQ48A{g} < $SQ48B{e} $SQ48A{f} < $SQ48B{e} > $SQ48B{e} $SQ48A{f} > $SQ24B{g} < $SQ24B{e} $SQ48A{f} ;
$S12 = > $SQ24B{g} < $SQ24B{e} $SQ48A{f} < $SQ48B{e} >> $SQ48A{g} < $SQ48B{e} $SQ48A{f} > $SQ24B{g} < $SQ24B{e} $SQ48A{f} ;
$S13 = > $SQ48B{g} & g%336 ;
$S14 = & g%384 ;
$S15 = << $SQ72B{f+} $SQ72A{e} $SQ48B{a} /:2 $SQ24B{f+} $SQ24B{g} :/ $SQ48B{f+} $SQ48B{f} ;
$S16 = $SQ72B{e} $SQ72A{d} $SQ48B{g} $SQ48B{e} & e%96 $SQ48B{d+} ;
$S17 = $SQ24B{d} > $SQ48A{g} < $SQ24B{d} > $SQ48B{g} << $SQ48B{c} > $SQ48A{a+} $SQ48A{d+} > $SQ48A{a+} $SQ48A{d+} ;
$S18 = $SQ48A{d} < $SQ48A{d} $SQ48A{g} $SQ48A{d} $SQ48A{a} $SQ48A{d} & d%48 $SQ48A{d} ;

/* *** play *** */

$ALL1 $ALLT $Sqr1 $S10 /:$LOOP /:2 $S11 $S12 $S13 $S14 :/ $S15 $S16 $S17 $S18 :/
;

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

$SQ96C{a} = $ExS2 @13-4 @X127 %a%48 & $Ex0 @13-1 @X16 %a%48 ; /* FECBA..9876/2 */

$S00 = q16 @Q0 ;
$S01 = o6 r%144 $SQ96C{d+} r%144 ;
$S02 = r%96 $SQ96C{d+} r%192 ;
$S03 = >> $SQ48B{g} & g%336 ;
$S04 = & g%384 ;
$S05 = < $SQ72B{a+} $SQ72A{g+} < $SQ48B{c+} > /:2 $SQ24B{a+} $SQ24B{b} :/ $SQ48B{a+} $SQ48B{a} ;
$S06 = $SQ72B{g+} $SQ72A{f+} $SQ48B{b} $SQ48B{g+} & g+%96 $SQ48B{g} ;
$S07 = $SQ24B{f+} > $SQ48A{b} < $SQ24B{f+} > $SQ48B{b} << $SQ48B{e}  $SQ48A{d} > $SQ48A{g} $SQ48A{d} > $SQ48A{g} ;
$S08 = $SQ48A{f+} < $SQ48A{f+} $SQ48A{b} $SQ48A{f+} < $SQ48A{c+} > $SQ48A{f+} & f+%48 $SQ48A{f+} ;

/* *** play *** */

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


/* Noi ====================================================================== */

$N00 = $ExN1 @7 q16 @Q0 o0 ;
$N01 = /:8 f%24 :/ r%48 f%48 f%48 r%48 ;
$N02 = f%24 f%24 r%24 /:5 f%24 :/ r%48 f%48 f%48 r%48 ;

/* *** play *** */

$ALL1 $Noi $N00 /:$LOOP /:6 $N01 $N02 :/ :/
;