#TITLE ふぁみこんむかし話 新・鬼ヶ島 / 第二章 ～いえのなか（よる）～
#ARTIST Koji Kondo (Nintendo)
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT 2014/1/18 rev.0


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

$ExA4a= @E1, 0, 0, 32, 2, 64, 10, 127,  0;                /* ／￣| A2改良 */
$ExA4b= @E1, 0, 0, 32, 2, 64, 10, 127, 96, 127, 96, 0, 4; /* ／￣＼ 長音用(R僅) */
$LxA3 = @L28, 21, -3, 96, 99, 0;

$FD00 =
$ExA4a ref+gab<de g4.af+4e16f+16e16d16
>b4<dec+4>ba $ExA4b b2r2
;
$FD01 =
$ExA4a <e4.gf+4ed> b4.ag4e4 <c4.d16c16>b4a4 $ExA4b b2r2
$ExA4a <e4.gf+4ga b4.<dc+4>ba <d4fge4dc $ExA4b d2r2>>
;

t100 @13-5 @V127 o5 l8 q16 @Q1 $LxA3
/:$LOOP
$FD00 $FD00 $FD01
$FD00 $FD01
:/
;


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

$ExB3 = @E1, 0, 0, 127, 8, 96, 34; /* |─n */
$ExB5 = @E1, 0, 36, 0, 0;          /* |＼ */
$LxB4a= @L3,  26, -3,  5, 99, 0; /* B3改良 */
$LxB4b= @L20, 19, -3, 18, 99, 0;

$SQ00 =
$ExB5 $LxB4a eb<e>b da<d>a cg<c>g da<d>a
g<dgd> a<eae> b<f+b<d+ $ExB3 $LxB4b b4r4>>
;
$SQ01 =
$ExB5 $LxB4a /:2 ggggaaaa bbbb / bbbb <cccccccc >bbbbbbbb :/
<c+c+c+c+ ddddeeee >a<df+a< $ExB3 $LxB4b d4r4>>
;

t100 @13-2 @V40 o5 l8 q16 @Q1
/:$LOOP
$SQ00 $SQ00 $SQ01
$SQ00 $SQ01
:/
;


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

$SQ11 =
$ExB5 eeeef+f+f+f+ gggggggg aaaaaaaa ggggffff
eeeef+f+f+f+ ggggaaaa b-b-b-b-<cccc $ExB3 >f+4a4<d4r4>
;

t100 @13-2 @V40 o5 l8 q16 @Q1
/:$LOOP
r1r1r1r1 r1r1r1r1 $SQ11
r1r1r1r1 $SQ11
:/
;


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

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

$TR00=
cccccccc ddddeeee eeeee-e-e-e- eeeedddd
cccccccc ddddeeee ffffgggg r1
;

t100 @13-4 @V80 o5 l8 q5 @Q1 $ExC1
/:$LOOP
r1r1r1r1 r1r1r1r1 $TR00
r1r1r1r1 $TR00
:/
;