#TITLE ふぁみこんむかし話 新・鬼ヶ島 / 第五章 ～おにのもんばん～
#ARTIST Koji Kondo (Nintendo)
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT 2014/1/19 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 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 -=-=-= */

$ExA3 = @E1, 0, 60,  0, 0;                                  /* |＼ */
$ExA4c= @E1, 0,  0, 32, 2, 64, 10, 127, 104, 127, 64, 0, 0; /* ／￣＼ 長音用(R無) */
$LxA2a= @L36, 40, -3, 192, 99, 0;

$X{n1,n2} = /:2 %n1 %n1 r %n2 %n2 r :/ %n1 r %n2 r;

$FD01 = $ExA3 /:1 /:3 $X{c,e-} :/ g4.g4.g4 g4.g4.g4 :/;

t180 @13-5 @V127 o5 q16 @Q1 $LxA2a
/:$LOOP
l8 $FD01 $FD01
l4 $ExA4c /:2 c.d.e-.f.e-8d8c8r8 c.>b.g4&g2.r4< :/
/:3 c.d.e-.g.f8r8e-8r8 :/ e-2.d8c8d1
l8 $FD01
:/
;


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

$ExB3 = @E1, 0,  0, 127, 8, 96, 34; /* |─n */
$ExB5 = @E1, 0, 48,   0, 0;         /* |＼ */
$ExB5f= @E1, 0, 36,   0, 0;
$LxB3 = @L3, 36, -3, 5, 99, 0;

$Y{n1} = /:4 %n1 rr :/ %n1 r %n1 r;

$SQ01 =
$ExB5 l8 q16 $X{e-,g} $X{f,a} $X{e-,a-}
$ExB3 l4 <c.c. q3 c q16 c.>b. q3 b
;
$SQ02 =
l8 q16 $ExB5 < $Y{c} > $Y{b} $Y{b-} $Y{a}
$Y{e-} $Y{d} $Y{e-} l4 $ExB3 d.e-.f.d. $ExB5f e-f8r8
;

t180 @13-2 @V32 o4 @Q1 $LxB3
/:$LOOP
$SQ01 $SQ01 $SQ02 $SQ01
:/
;


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

$SQ11 =
$ExB5 l8 q16 $X{g,<c>} $X{a,<c>} $X{a-,<c>} <
$ExB3 l4 d.d. q3 d q16 d.d. q3 d>
;
$SQ12 =
l8 q16 $ExB5 $Y{g} $Y{g} $Y{f} $Y{f} 
< $Y{c} > $Y{b} < $Y{c} l4 $ExB3 >b.<c.d.>b. $ExB5f <cd8r8>
;

t180 @13-2 @V32 o4 @Q1
/:$LOOP
$SQ11 $SQ11 $SQ12 $SQ11
:/
;


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

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

$Z{n1} = /:16 %n1 :/;

$TR00 = $Z{c} $Z{f} $Z{a-} /:2 >g<dg>g<dg>g<g :/;
$TR01 = $Z{c} > $Z{b} $Z{b-} $Z{a} < /:2 $Z{a-} $Z{g} :/;

t180 @13-4 @V80 o4 l8 q7 @Q1 $ExC1
/:$LOOP
$TR00 $TR00 $TR01 $TR00
:/
;