#TITLE ふぁみこんむかし話 新・鬼ヶ島 / タイトルBGM
#ARTIST Koji Kondo (Nintendo)
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT 2014/2/15 rev.1 色々見直し


/* $LOOP = 0; リピートありません */


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

$ExA1a = @E1, 0, 0,  0, 22, 127,  96, 127, 48,  0, 0       ; /* _／￣＼ 頭-長音 */
$ExA1b = @E1, 0, 0, 64, 10, 127, 108, 127, 48,  0, 0       ; /* ／￣＼  続-長音 */
$ExA1c = @E1, 0, 0,  0, 20, 127,   4, 127,  1, 40, 1, 0, 0 ; /* _／￣|  頭-8分 */
$ExA1d = @E1, 0, 0, 64, 10, 127,  14, 127,  1, 40, 1, 0, 0 ; /* ／￣|   続-8分 */
$ExA1e = @E1, 0, 0, 64, 11, 127,   1, 127,  1,  0, 0       ; /* ／￣|   続-16分 */

$ExA1f = @E1, 0, 0,  0, 20, 127,  20, 127,  1, 40, 1, 0, 0 ; /* _／￣|  頭-8分 */
$ExA1g = @E1, 0, 0, 48, 10, 127,  30, 127,  1, 40, 1, 0, 0 ; /* ／￣|   続-8分 */
$ExA1h = @E1, 0, 0,  0, 20, 127,  98, 127, 48,  0, 0       ; /* _／￣＼ 頭-長音 */
$ExA1i = @E1, 0, 0, 48, 10, 127, 108, 127, 48,  0, 0       ; /* ／￣＼  続-長音 */
$ExA1j = @E1, 0, 0, 48, 10, 127,   9, 127,  1, 40, 1, 0, 0 ; /* ／￣|   続-16分 */

$ExA1k = @E1, 0, 0,  0, 16,  96,   2,   0,  0              ; /* _／＼ 連1 */
$ExA1l = @E1, 0, 0, 16, 15, 112,   2,   0,  0              ; /* ／＼  連2 */
$ExA1m = @E1, 0, 0, 32, 15, 127,   2,   0,  0              ; /* ／＼  連3 */
$ExA1n = @E1, 0, 0, 48,  9, 127,   6, 127,  2,  0, 0       ; /* ／＼  連45 */

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

$FD01{n,o,p} = $ExA1g %n %o $ExA1i %p2.;
$FD02{n,o,p} = $ExA1f %n $ExA1g %o $ExA1i %p2.;

t150 @13-5 @V127 o5 l16 q16 @Q0 $LxA1
$ExA1a e1 $ExA1c1 d8 $ExA1d1 e8 $ExA1e1 gab $ExA1b <d1
$ExA1c >b8< $ExA1d d8 $ExA1b @Q1 e2&e8&e48 d4&d&d24 @Q0 $ExA1e >b<d>ba $ExA1b b1
$ExA1c <d8 $ExA1d e8g8 $ExA1b @Q1 a2&a8&a48 g4&g&g24 @Q0 $ExA1e aged
$ExA1b @Q1 e2&e8&e48 @Q0 $ExA1e @V88 ged @V127 $ExA1b @Q1 e4&e&e24 @Q0 $ExA1e ged
$ExA1b e1 r>

t90 l8 $LxA3a /* @13-5 @V127 o5 q16 @Q0 */
r1r1r1r2.
$FD01{d,e,e} $FD02{g,a,e} $FD02{e,g,f+}
$ExA1k <d%20 $ExA1l e%19 $ExA1m d%19 $ExA1n >b%19 a%19 $ExA1i b2.
$FD02{<e,d,e} $ExA1f d $ExA1j >b16<d16 $ExA1i @Q1 >b4. @Q0 $ExA1j a16g16 $ExA1i e2
$ExA1h g2 ar $ExA1n f+%20g%19f+%19e%19d%19 $ExA1i e1
;


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

$ExB1 = @E1, 0, 0, 32, 14, 32, 2, 64, 30, 127, 30, 127, 30, 64, 2, 32, 0; /* ─￣─ */

$SQ00 = 
e1 d8e8gab <d1> b8<d8 e2&e8&e48 d4&d&d24 >b<d>ba b1
<d8e8g8 a2&a8&a48 g4&g&g24 aged e2&e8&e48 ged e4&e&e24 ged&
;

t150 @13-2 @V18 o5 l16 q16 $ExB1
r8 $SQ00 e2...&
t90 e8.
;


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

$ExB2 = @E1, 0, 0, 127, 8, 100,  1;  /* |─、*/
$ExB3 = @E1, 0, 0, 127, 8, 100, 28;  /* |─n */
$ExB4 = @E1, 0, 0, 127, 8, 100, 14;  /* |─n FO用 */
$LxB1 = @L8, 34, -3, 0, 99, 0 @D-3;
$LxB2 = @L4, 21, -3, 0, 99, 0 ;

$SQ11{n,o,p,q,r} = %n4 q3 %o %p q16 %q4 %r4;

t162 @13-2 @V18 o5 l16 q16 $LxB1
r16 $ExB1
$SQ00 e1 >>

t90 @V36 l8 $LxB2 @D0 /* @13-2 o4 q16 */

$ExB3 e4 q3 b<d $ExB2 q16 e4r4 $ExB3
$SQ11{>c,g,<d,e,r} $SQ11{>d,g,a,<f+,r} $SQ11{>g,<d,g,b,>b}
$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<

e4 q3 b<d $ExB2 q16 e4r4
@V26 $ExB4 >c4 q4 g<d q16 e4r4
@V18 q15 >d4 q3 ga q15 <f+4r4
q13 >g4 q1 <dg q13 b4>b4

e4 q1 b<d @V16q13 e4r4
@V14 >c4 q1 g<d @V12q13 e4r4
@V10 >d4 q1 ga @V8q13 <f+4r4
@V6 >g4 q1 <dg @V3q13 b4>b4
;


/* =-=-=- TRI -=-=-= */

$ExC1 = @E1, 0, 127, 127, 0; /* |￣| */

$TR01{n,o} = %n. %n16 r16 %o. r8;
$TR02 = $TR01{e,e} $TR01{c,c} $TR01{d,d} $TR01{g,b};

t150
/:9 r1 :/

t90 @13-4 @V80 o4 l4 q8 $ExC1
/:2 $TR02 :/
$TR01{c,c} $TR01{g,e} $TR01{b,b}

$TR02

e.e16r16 @V72 e.r8 @V64 c.c16r16 @V56 c.r8
@V48 d.d16r16 @V38 d.r8 @V24 g.g16r16 @V8 b.r8
;