#TITLE ふぁみこんむかし話 新・鬼ヶ島 / 第一章 ～いえのなか～
#ARTIST Koji Kondo (Nintendo)
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT 2014/2/15 rev.1 色々見直し


$LOOP = 32; /* 好きなだけリピート */


#WAV13 2,80 F0 F0 EE EE EC EC EA EA E9 E9 E7 E7 E5 E5 E4 E3 E2 E2 E1 E0 DF DE DD DD DC DB DA DA D9 D8 D7 D7 D6 D5 D5 D4 D3 D2 D2 D1 D0 D0 CF CE CE CD CC CC CB CB CA C9 C9 C8 C8 C7 C6 C6 C5 C4 C4 C3 C3 C2 C2 C1 C1 C0 C0 BF BF BD BE BC BD BB BD BA BC B9 BB B8 BA AA 18 10 12 11 14 13 16 15 18 17 19 19 1B 1B 1C 1C 1E 1E 20 20 21 21 23 23 24 25 26 26 27 28 29 29 2A 2B 2B 2C 2D 2D 2E 2F 30 30 31 32 32 33 33 34 35 35 36 37 37 38 38 39 3A 3A 3B 3B 3C 3D 3D 3E 3E 3F 3F 40 40 41 41 42 42 43 43 44 44 45 45 46 46 48 47 49 /* FC_Sqr(1:1) */

#WAV13 4,80 81 82 8C 93 91 93 90 99 A3 9F A2 9F A6 AF AE AF AD B0 B9 BD BB BB BA C3 CA C7 C8 C5 CC D5 D2 D3 D1 D6 DE DE DD DC DD E5 E9 E6 E7 E5 EC F3 F0 F0 EE EE EC EC EA EB E6 DD D9 D9 D8 D7 CE C7 C9 C6 C8 BF B6 B8 B5 B7 B0 A6 A6 A5 A6 A2 99 95 96 95 95 8C 84 86 84 87 7E 75 77 75 77 71 67 66 67 67 66 5C 56 59 57 59 50 47 4A 48 4C 43 39 3B 3A 3C 38 2E 2B 2D 2D 2D 23 1C 1F 1E 21 18 0D 12 10 14 0C 02 03 03 05 06 07 08 08 0A 0B 17 21 1E 22 20 2B 36 35 38 35 3D 49 4B 4B 4B 4E 59 5F 5D 60 5E 69 72 6F 72 6F 78 82 81 /* FC_Tri */

#WAV13 5,80 87 8C 92 97 9C A1 A5 AA AD B1 B5 B7 BA BD BF C1 C3 C5 C7 C8 C9 CA CB CB CB CC CC CD CD CC CC CB CB CA CA C8 C7 C5 C4 C2 C1 C0 BE BC BA B8 B5 B2 B0 AD AB A9 A7 A5 A3 A1 9E 9B 98 96 94 92 90 8E 8C 8B 8A 89 88 88 87 87 87 86 86 86 86 86 86 87 88 88 89 8A 8B 8D 90 92 94 96 97 99 9B 9C 9E A0 A2 A4 A6 A8 AA AC AD AE B0 B1 B3 B4 B5 B5 B6 B6 B7 B8 B8 B8 B7 B7 B7 B6 B6 B5 B4 B4 B3 B1 AF AE AC AA A8 A6 A3 A1 9F 9B 98 95 91 8D 8A 85 7F 7A 75 6F 6A 66 61 5A 54 4F 49 44 3F 39 32 2E 29 24 20 1C 18 15 12 0F 0C 0A 08 06 04 03 02 01 00 00 00 00 01 01 01 02 03 04 06 08 0A 0C 0E 11 14 17 1A 1D 21 25 28 2C 32 38 3D 42 48 4D 53 5A 61 67 6D 74 7A /* FDS(ShinOni_A) */


/* =-=-=- FDS -=-=-= */

$ExA1g = @E1, 0, 0, 48, 10, 127,  30, 127,  1, 40, 1, 0, 0 ; /* ／￣|   8分 */
$ExA1h2= @E1, 0, 0,  0, 20, 127,  98, 127, 64,  0, 0       ; /* _／￣＼ 頭-長音 */
$ExA1i2= @E1, 0, 0, 48, 10, 127, 108, 127, 64,  0, 2       ; /* ／￣＼  続-長音 */
$ExA1j = @E1, 0, 0, 48, 10, 127,   9, 127,  1, 40, 1, 0, 0 ; /* ／￣|   続-16分 */
$ExA1n = @E1, 0, 0, 48,  9, 127,   6, 127,  1, 40, 1, 0, 0 ; /* ／＼    連2345 */
$ExA1o = @E1, 0, 0, 48,  9, 127,   7, 127,  1, 40, 1, 0, 0 ; /* ／＼    連1 */

$LxA3a = @L30, 21, -3,  80, 99, 0;

$FD01{n,o,p} = $ExA1g %n %o $ExA1i2 %p2r4;
$FD02{n,o,p,q,r,s,t} = $ExA1o %n%20 $ExA1n %o%19 %p%19 %q%19 %r%19 $ExA1i2 %s2 @Q1 %t4 @Q0;

t90 @13-5 @V127 o5 l8 q16 @Q0 $LxA3a
r1r1r1r2.
/:$LOOP
  /:2
    $FD01{d,e,e} $FD01{g,a,e} $FD01{e,g,f+} $FD02{<d,e,d,>b,a,b,r}
    $FD01{<e,d,e} $ExA1g d $ExA1j >b16<d16 $ExA1i2 @Q1 >b4. $ExA1j @Q0 a16g16 $ExA1i2 e2
    $ExA1h2 @Q1 g2 @Q0 ar $FD02{f+,g,f+,e,d,e,r}
    /
    r4 r1 r1 r2.
  :/
  $FD01{g,g,g} $FD02{f,g,f,d,f,d,r}
  $FD01{d,d,c} $FD02{c,d,c,>b-,<c,d,r}
  $FD01{g,g,g} $FD02{b-,<c,>b-,g,b-,f,d}
  $FD01{g,g,g} $FD02{a-,b-,a-,g,f,g,a}
:/
;


/* =-=-=- SQR -=-=-= */

$ExB2 = @E1, 0, 0, 127, 8, 100,  1 ; /* |─、*/
$ExB3 = @E1, 0, 0, 127, 8, 100, 28 ; /* |─n */
$LxB2 = @L4, 21, -3, 0, 99, 0;

$SQ11{n,o,p,q,r} = %n4 q3 %o %p q16 %q4 %r4;
$SQ12 = $ExB3 e4 q3 b<d $ExB2 q16 e4r4 $ExB3;
$SQ13 = $SQ11{>c,g,<d,e,r} $SQ11{>d,g,a,<f+,r} $SQ11{>g,<d,g,b,>b};

t90 @13-2 @V36 o4 l8 q16 $LxB2
$SQ12 $SQ13
/:$LOOP
  /:2
    $SQ11{e,b,<d,e,r}
    $SQ11{>c,g,<d,e,r} $SQ11{>d,g,a,<f+,r}
    q3 >g<dga q16 b4>b4
    $SQ11{<c,g,<d,e,r} $SQ11{>>g,<d,a,b,r}
    q3 >b<dea br q16 >>b4<
    $SQ12
    /
    $SQ13
  :/
  /:2
    $SQ11{>e-,b-,<d,e-,r} $SQ11{>b-,<d,f,b-,r}
    /
    $SQ11{>a-,<c,e-,a-,r} $SQ11{>g,<c,d,g,r}
  :/
  $SQ11{>b,<d,g,b,r} $SQ11{c,g,<c,d,r} >>
:/
;