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


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

/* All part 1 */  $ALL1 = t90.2 ;
/*  Tone part */  $ALLT = ;
/*     Repeat */  $LOOP = 96 ; 

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


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

#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 ==================================================================== */

/* 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(+4) B(+4) A(+5) 9(+5) 8(+8) 9(+2) A(+2) B(+2) C(+4) B(+2) A(+2) 9(+9～10) 8(+8) ... */
$ExS1 =
  @E1,0,0,  80,2,80,0,  120,2,120,0,  104,2,104,0,  96,4,96,5,  88,4,88,0,  80,5,80,0,  72,5,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,10,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,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,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,10,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,8,64,0 ;


/* Sqr ====================================================================== */

$S00 = q16 @Q0 l8 $ExS1 @13-4 ;
$S01 = o6 defga4d4 b-4agfge4 fgab-<c4>b-a g4.f16g16e2 ;
$S11 = o5 dc+def2 g4ab-<d4c>b- ab-<cde4f4 >b-4<d2c+4 ;

/* *** play *** */

$ALL1 $ALLT $Sqr0 $S00 /:$LOOP $S01 :/
;

$ALL1 $ALLT $Sqr1 $S00 /:$LOOP $S11 :/
;