#TITLE ふぁみこんむかし話 新・鬼ヶ島 / 第三章 ～あさ～
#ARTIST Koji Kondo (Nintendo)
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT 2014/1/18 rev.0


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


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

$ExA4c= @E1, 0, 0, 32, 2, 64, 10, 127, 96, 127, 96, 0, 0; /* ／￣＼ 長音用(R無) */
$LxA4a= @L28, 21, -3, 80, 99, 0;

t90 @13-5 @V127 o6 l8 q16 @Q1 $ExA4c $LxA4a
/:$LOOP
/:2 e.d16e4re e16.d16.c16 d.g16 / d2.
c.>b16<c4rc c16.>b16.<c16 >b.<c16 $ExA4c d2. :/
d2ga b-.a16b-2ag a.g16f2fg
a-.g16a-2gf g.f16e2.
d.c16d4 r>a a16.b16.<c16 c4.>b&b2<
:/
;


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

$ExB5 = @E1, 0, 36, 0, 0; /* |＼ */
$LxB4a= @L3, 26, -3,  5, 99, 0;

t90 @13-2 @V40 o6 l16 q16 @Q1 $ExB5 $LxB4a
/:$LOOP
/:4 eree :/ /:4 drdd :/ /:4 crcc :/ >/:4 brbb :/
</:4 ecee :/ /:4 d>b<dd :/ /:4 d>b-<dd :/ /:4 c>a<cc :/
/:28 c8 :/ >g<cdfdfgb
:/
;


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

t90 @13-2 @V40 o5 l16 q16 @Q1 $ExB5
/:$LOOP
/:7 grgg :/ l8 gg
/:8 e- :/ /:8 f :/
l16 /:8 grgg :/ /:8 frff :/
/:4 e-re-e- :/ /:4 eree :/ /:4 e-re-e- :/ frfffrff >b<efafab<d>
:/
;


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

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

$T0 = l8 q15;
$T1 = l16 q8;

t90 @13-4 @V80 o4 l8 @Q1 $ExC1
/:$LOOP
/:2 $T0 c. $T1 g<cr>gr :/ > /:2 $T0 b. $T1 <gbrgr> :/
/:2 $T0 a-. $T1 <e-a-re-r> :/ $T0 g. $T1 <dgrdr> $T0 g. $T1 <cdrgr<
/:4 $T0 c. $T1 c :/ > /:4 $T0 b. $T1 b :/ /:4 $T0 b-. $T1 b- :/ /:4 $T0 a. $T1 a :/
/:4 $T0 a-. $T1 a- :/  /:2 /:4 $T0 g. $T1 g :/ / /:4 $T0 f+. $T1 f+ :/ :/ 
:/
;