#TITLE ふぁみこんむかし話 新・鬼ヶ島 / 第六章 ～きかいのもり～
#ARTIST Koji Kondo (Nintendo)
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT 2014/1/21 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 5,80 84 87 89 8B 8D 8F 91 93 94 94 94 95 96 97 99 9B 9D 9F A2 A5 A7 A8 A7 A7 A6 A6 A6 A6 A3 A0 9E 9C 9A 9A 99 99 99 9B 9E A3 A7 AA AD B0 B2 B4 B5 B6 B5 B3 B2 B0 AD AB A9 A6 A3 A1 9E 9C 9A 97 94 92 90 8E 8C 8A 86 82 7F 7A 75 71 6E 6B 69 67 66 65 65 66 69 6B 6E 72 76 7A 7D 7F 82 84 87 89 8C 8E 90 92 95 97 99 9C 9F A1 A4 A7 AA AC AE AF B0 B0 B0 AF AC A7 A3 9F 9B 98 95 92 90 8E 8F 90 92 93 93 94 94 96 98 9A 9A 99 98 97 94 93 91 8E 8C 8A 89 88 88 87 85 84 83 82 81 80 7E 7B 78 76 73 70 6E 6C 6B 6A 68 66 64 62 5F 5C 58 53 4D 47 40 38 31 29 20 18 11 0C 07 04 02 01 01 03 08 0D 13 1B 22 29 32 3B 43 4B 52 57 5D 62 67 6A 6D 70 72 74 77 79 7C /* FDS(ShinOni_B) */


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

$ExA5a = @E1, 0,  0,  0, 16, 127, 2; /* ／￣| */
$ExA5b = @E1, 0,  0, 18, 15, 127, 2;
$ExA5c = @E1, 0,  0, 36, 13, 127, 2;
$ExA5d = @E1, 0,  0, 48, 10, 127, 2;
$ExA5e = @E1, 0,  0, 48, 16, 127, 2;

$FD01{n1,n2} =
/:2 @V96 $ExA5a %n1 @V108 $ExA5b %n1 $ExA5c %n1 $ExA5d %n1
@V127 %n2 r $ExA5e %n2 r :/ ;

t102 @13-5 o5 l16 q16 @Q1
/:$LOOP
$FD01{<g>,e} $FD01{<<c>>,a} $FD01{<<d>>,b}
e $ExA5d @V125 f @V123 f+ @V121 g @V119 g+ @V117 a @V115 a+ @V113 b 
@V111 <c @V109 c+ @V107 d @V105 d+ @V103 e @V101 f @V99 f+ @V97 g>
:/
;


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

$ExB5 = @E1, 0, 40, 0, 0; /* |＼ */

t102 @13-2 @V36 o6 l16 q16 @Q1 $ExB5
/:$LOOP
/:2 eeee>crcr< :/ /:2 aaaa>frfr< :/ /:2 bbbb>grgr< :/
@V24 c> @V36 bb-aa-gg-fee-dd-c>bb-a<<
/* ↑音の重なる部分が強調されてしまうので調整 */
:/
;


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

t102 @13-2 o6 l8 q16 @Q1 $ExB5
/:$LOOP
r1r1r1
@V24 c @V36 deff+gab
/* ↑同上 */
:/
;