#TITLE OTOCKY(FDS) / ボス出現～ボス
#ARTIST ?
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT 2014/2/21 rev.0


$ALL  = t150 ;
$LOOP = 32; /* 好きなだけリピート */


/* WAV13 coded by ppmck, NSFplug, WinAMP, SoundEngine Free and Stirling */

#WAV13 0,80 FF FF FD FC FB FA F9 F7 F6 F5 F4 F3 F2 F1 F0 EF EE ED EC EA E9 E8 E7 E6 CF 60 5E 5E 5F 5F 5F 60 60 60 61 61 61 61 62 62 62 63 63 63 63 64 64 64 64 65 65 65 66 66 66 66 66 67 67 67 67 68 68 68 68 69 69 69 69 69 6A 6A 6A 6A 6A 6B 6B 6B 6B 6B 6C 6C 6C 6C 6C 6D 6D 6D 6D 6D 6D 6E 6E 6E 6E 6E 6E 6F 6F 6F 6F 6F 6F 70 70 70 70 70 70 70 71 71 71 71 71 71 71 72 72 72 72 72 72 72 72 73 73 73 73 73 73 73 73 74 74 74 74 74 74 74 74 74 75 75 75 75 75 75 75 75 75 75 76 76 76 76 76 76 76 76 76 76 76 76 77 77 77 77 77 77 77 77 77 77 77 77 78 78 78 78 78 78 78 78 78 78 78 78 78 79 79 79 79 79 79 79 79 79 79 /* FC(1:7) */

#WAV13 4,80 89 89 89 89 8E 99 99 99 99 98 99 A8 A8 A8 A7 A7 A7 B3 B6 B5 B5 B4 B4 BA C2 C2 C1 C0 C0 C2 CE CD CC CC CB CB D7 D8 D7 D6 D5 D4 DD E1 E0 E0 DF DE E1 EA E9 E8 E7 E6 E7 F2 F1 F0 EF EE ED EC EB EA E9 E8 E7 DF D7 D6 D5 D4 D4 D0 C4 C3 C2 C2 C1 C0 B3 B1 B0 B0 AF AF A5 9F 9F 9E 9E 9E 98 8E 8E 8E 8E 8D 8C 7E 7D 7D 7D 7E 7D 71 6E 6E 6E 6E 6E 66 5E 5F 5F 5F 60 5D 50 50 50 51 51 51 43 41 42 43 43 44 38 33 34 35 36 36 31 26 27 28 28 29 28 19 19 1A 1B 1C 1D 0E 0C 0E 0F 10 11 08 00 01 02 03 05 06 07 08 09 0A 0B 0D 1F 22 23 23 24 25 33 3A 3A 3B 3C 3C 43 50 50 51 51 52 54 64 65 65 65 66 75 78 78 78 78 78 78 /* FC(TRI) */


/* macro */

$L4{a} = /:4 %a :/;

$ExS1 = @E1, 0,   0, 127, 40, 0, 0  ; /* |＼ */
$Ex0  = @E1, 0, 127, 127,  0        ; /* |￣| */

$A{a,s,d,f,g,h} = %a%12 %s%12 %d%12 %f%12 %g%12 %h%12 ; /* 最初は短い（早い） */
$B{a,s,d,f,g,h} = %a%16 %s%12 %d%12 %f%16 %g%12 %h%12 ;
$C{a,s,d,f,g,h} = %a%16 %s%16 %d%12 %f%16 %g%16 %h%12 ;
$D{a,s,d,f,g,h} = %a%16 %s%16 %d%16 %f%16 %g%16 %h%16 ; /* 少しずつ長くなって */
$E{a,s,d,f,g,h} = %a%20 %s%16 %d%16 %f%20 %g%16 %h%16 ;
$F{a,s,d,f,g,h} = %a%20 %s%20 %d%16 %f%20 %g%20 %h%16 ;
$G{a,s,d,f,g,h} = %a%20 %s%20 %d%20 %f%20 %g%20 %h%20 ; /* この長さのままボスBGMへ */


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

$S01 = $G{>a+,<c+,  f, a+,  f, c+} ;
$S02 = $G{> b,< d,  f,  b,  f,  d} ;
$S03 = $G{> b,< d,  f,  a,  f,  d} ;
$S04 = $G{> b,< d,  f,  g,  f,  d} ;

$ALL @13-5 @V80 o5 q16 @Q0 $ExS1
$A{ f+, a+,<c+, f+, c+,>a+}   /* %72x2 */
$A{  g,  b,< d,  g,  d,> b}
$B{ g+,< c, d+, g+, d+,  c}   /* %80x2 */
$B{> a,<c+,  e,  a,  e, c+}
$C{>a+,< d,  f, a+,  f,  d}   /* %88x2 */
$C{> b,<d+, f+,  b, f+, d+}
$D{  c,  e,  g,< c,> g,  e}   /* %96x2 */
$D{ c+,  f, g+,<c+,>g+,  f}
$E{  d, f+,  a,< d,> a, f+}   /* %104x2 */
$E{ d+,  g, a+,<d+,>a+,  g}
$F{  e, g+,  b,< e,> b, g+}   /* %112x2 */
$F{  f,  a,< c,  f,  c,> a}
/:10
  $G{ f+, a+,<c+, f+, c+,>a+} /* %120x10 */
:/
r%40 r%40 r%16>
/:$LOOP
  /:4 $L4{$S01} $L4{$S02} :/
  /:2 $L4{$S02} $L4{$S03} $L4{$S04} $L4{$S03} :/
:/
;


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

$S11 = $G{>f+, a+,<c+, f+, c+,>>a+}<< ;
$S12 = $G{  g,  b,< d,  g,  d,>  b}   ;
$S13 = $G{  g,  b,< d,  f,  d,>  b}   ;
$S14 = $G{  g,  b,< d,  e,  d,>  b}   ;

$ALL @13-5 @V80 o6 q16 @Q0 $ExS1
r%72 r%72
r%80 r%80
r%88 r%88
r%96 r%96
$E{ f+,  a,<c+, f+, c+,> a}   /* %104x2 */
$E{  g, a+,< d,  g,  d,>a+}
$F{ g+,  b,<d+, g+, d+,> b}   /* %112x2 */
$F{  a,< c,  e,  a,  e,  c}
/:10
  $G{>a+,<c+,  f, a+,  f, c+} /* %120x10 */
:/
r%40 r%40 r%16 >>
/:$LOOP
  /:4 $L4{$S11} > $L4{$S12} / < :/
  /:2 $L4{$S12} $L4{$S13} $L4{$S14} $L4{$S13} :/ <
:/
;


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

$TR00{a}           = %a%240& %a%240& ;
$TR01{a,s,d,f}     = %a%240& %a%120&              %s%40& %d%40& %f%40& ;
$TR02{a,s,d,f,g,h} = %a%240& %a%40& %s%40& %d%40& %f%40& %g%40& %h%40& ;

$ALL @13-4 @V127 o4 q16 @Q0 $Ex0
$A{  f+,& a+,&<c+,& f+,& c+,&>a+}   /* %72x2 */
$A{&  g,&  b,&< d,&  g,&  d,&> b}
$B{& g+,&< c,& d+,& g+,& d+,&  c}   /* %80x2 */
$B{&> a,&<c+,&  e,&  a,&  e,& c+}
$C{&>a+,&< d,&  f,& a+,&  f,&  d}   /* %88x2 */
$C{&> b,&<d+,& f+,&  b,& f+,& d+}
$D{&  c,&  e,&  g,&< c,&> g,&  e}   /* %96x2 */
$D{& c+,&  f,& g+,&<c+,&>g+,&  f}
$E{&  d,& f+,&  a,&< d,&> a,& f+}   /* %104x2 */
$E{& d+,&  g,& a+,&<d+,&>a+,&  g}
$F{&  e,& g+,&  b,&< e,&> b,& g+}   /* %112x2 */
$F{&  f,&  a,&< c,&  f,&  c,&> a}
/:10
  $G{& f+,& a+,&<c+,& f+,& c+,&>a+} /* %120x10 */
:/
&a+%60 r%20 r%16
>
/:$LOOP
  /:4 $TR01{c+,d,d+,e} / $TR01{f,e,d+,d} :/ $TR00{f}
  /:2 $TR01{g,a,b,g} $TR01{a,a,b,<c} $TR02{d,c,>b,a,b,g} $TR00{a} :/
:/
;