#TITLE 星のカービィ～夢の泉の物語～ / ボス
#ARTIST Hirokazu Ando (& Jun Ishikawa)
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code：02666570 / MML coded: 2014/3/29 rev.1 DPCMデータ差し替え，ノイズ作り直し，バランス再調整等


$ALL  = t152  ;
$ALLT = @D-12 ; /* ピッチ少し下げ */
$LOOP = 64    ; /* 好きなだけ */

$VSQ0 = @V108 ; /* 調整可 @V0(silent)～127(max)                 */ 
$VSQ1 = @V104 ; /* 現状のピークは-1.0db程度（主音量127の場合） */
$VTRI = @V76  ;
$VNOI = @V24  ;
$VPCM = @V76  ;


/* 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 1,80 FF FF FD FC FB FA F9 F8 F6 F5 F4 F3 F2 F1 F0 EF EE ED EC EB EA E9 E8 E7 E6 E5 E4 E3 E2 E1 E0 DF DE DD DC DB DA DA D9 D8 D7 D6 D5 D5 D4 D3 D2 D1 D1 C2 44 40 41 41 42 42 43 44 44 45 45 46 46 47 47 48 48 49 4A 4A 4B 4B 4C 4C 4D 4D 4D 4E 4E 4F 4F 50 50 51 51 52 52 52 53 53 54 54 55 55 55 56 56 57 57 57 58 58 58 59 59 5A 5A 5A 5B 5B 5B 5C 5C 5C 5D 5D 5D 5E 5E 5E 5F 5F 5F 60 60 60 60 61 61 61 62 62 62 62 63 63 63 64 64 64 64 65 65 65 65 66 66 66 66 67 67 67 67 68 68 68 68 68 69 69 69 69 6A 6A 6A 6A 6A 6B 6B 6B 6B 6B 6C 6C 6C 6C 6C 6D 6D 6D 6D 6D 6E 6E 6E 6E 6E 6E 6F 6F 6F 6F 6F 6F 70 70 70 70 70 /* FC(1:3) */

#WAV13 2,80 FF FE FD FC FB F9 F8 F7 F6 F5 F4 F3 F1 F0 EF EE ED EC EB EA E9 E8 E7 E6 E5 E4 E3 E2 E1 E0 DF DF DE DD DC DB DA D9 D8 D8 D7 D6 D5 D4 D3 D3 D2 D1 D0 D0 CF CE CD CD CC CB CA CA C9 C8 C8 C7 C6 C6 C5 C4 C4 C3 C2 C2 C1 C0 C0 BF BF BE BD BD BC BC BB BA BA B9 B9 B8 B8 B7 B7 B6 B6 B5 B5 B4 B4 B3 B3 B2 8D 01 01 02 03 04 05 06 08 09 0A 0B 0C 0D 0E 0F 10 11 13 14 15 16 17 18 19 1A 1B 1B 1C 1D 1E 1F 20 21 22 23 24 25 25 26 27 28 29 2A 2A 2B 2C 2D 2E 2E 2F 30 31 31 32 33 34 34 35 36 37 37 38 39 39 3A 3B 3B 3C 3D 3D 3E 3E 3F 40 40 41 41 42 43 43 44 44 45 45 46 47 47 48 48 49 49 4A 4A 4B 4B 4C 4C 4D 4D 6A /* FC(1:1) */

#WAV13 3,80 BD BC BC BB BB BA BA B9 B9 B8 B8 B7 B7 B6 B6 B6 B5 B5 B4 B4 B3 B3 B2 B2 B2 B1 B1 B0 B0 B0 AF AF AE AE AE AD AD AC AC AC AB AB AB AA AA AA A9 A9 A9 A8 A8 A7 A7 A7 A7 A6 A6 A6 A5 A5 A5 A4 A4 A4 A3 A3 A3 A2 A2 A2 A2 A1 A1 A1 A1 A0 A0 A0 9F 9F 9F 9F 9E 9E 9E 9E 9D 9D 9D 9D 9C 9C 9C 9C 9B 9B 9B 9B 9A 9A 9A 9A 9A 99 99 99 99 98 98 98 98 98 97 97 97 97 97 96 96 96 96 96 95 95 95 95 95 95 94 94 94 94 94 93 93 93 93 93 93 93 92 92 92 92 92 92 91 91 8E 12 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 11 12 13 14 15 15 16 17 18 19 1A 1B 1B 1C 1D 1E 1F 20 20 21 22 23 24 24 25 26 27 27 28 29 29 50 /* FC(3:1) */

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

/* WAV9 coded by http://gocha.s151.xrea.com/onlinetool/DPCMConverter.swf */

/* B */
#WAV9 0,63,0,aZqmaZqWZVmWZVlWVVVVVVVVVVVVVVWpVVVVVdVYlmVZlmVZVVVVVVVVVVUVzY7cVGmy6KjFHldXVaUVrWRJcofIEyJECMqzi/7/3bt3t1bSVKpSqTJTKlUhRIgQRBRQWGDrVm+5bmXP0ro//fTv93u327YqTYqKkikpU0pVSlUpVaKCKAQRBEEggratfS3bNdWrmVtZW1trvfv27zu73VbakpVKKVIlpUoqUypTqpSqGiBVVVVVVVVVVVVVVVVVVQ==

/* S */
#WAV9 1,63,0,BaFRQ6CjpVHPCVCjA6Cjo8OjI4ejc+tp7emptbPdA+ujo7WjY7Wjo7WjqerhUbX9HwBYzcyqqdrHUeetz9/k/KqfXiYxY1iAAoAOhJdzWQgUBSbox/////89Ch4ZJxoKSCTCMBA4XIX/8f7z0SdVV9nT2XlYRSGUyEBFxaWdBmrRwLPz+v6z7w85k6GwlLBGkkaVIouJO7A8x7+W3dCyajV9+rTilJJFpIpKGqYSFfnjeGnu8B59KXX2cGXcIaaWRpqmwUhRz4mTLloN36GXLdrxxbMtMcuTxXCQNciDRUsel+VmrdF6xvLwSHP0WFNVHauqLEmbOKLlOHGyxThNp2lrzbMlW2WyKsupSpaFZsykJafkZkttjao2a9SyHNlR03RWWlVVZVmyLHG4TJNmWaZV2mmWNWuTaqljVSXLpmxKlmVcpizL1FRNq6ZN0yZr0tRyGsdWqqaq0pJlWaZsmrJqaqmVWlmVVVO10cqqUlW1VKuyqkqtLFmyLMuqrKqqlVZV06qqqo6qqoplyaWcqlpplVZWVVVVVVVVVVVVVVVVVVVVVVVN1VRVU1VVVaWWqg==

/* K */
#WAV9 2,63,0,3ZQAAvj//7QEAAAA/P///wAAAP7/AwCA/////wMAwP//AwAA+P//BwD4//8DAAAA/P//AAD///8AAAD8/w8AAP7///8DAAD4fwAAgP///x8AwP//FQAAAP7//wAA/v//DwAAAP7/AwDf/r9VAAAA//8fAPRXVVVVVVVVVVVVVVVV

/* P */
#WAV9 3,63,0,/wGAH4A/AP8B/wP4B+APwH8A/wD+A/gP8D/A/4D/A/gD8D/g/wD+APwP+B+APwD/A/4H+B/AfwD/AfwH8B/AfwD/AfwH8AeA/8D/AfAD+D/wPwB/AP4H/A/Af4D/Af4A8Af43z8AVFVVVVVVVVVVVVU=



/* basic macro */

$L2{a} = %a %a;
$L3{a} = %a %a %a;
$L4{a} = /:4 %a :/;
$Ex0   = @E1, 0, 127, 127, 0 ; /* |￣| */


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

/* --- for A --- */
$SA{a} = @X127 %a%16 &@X32 %a%8 ; /* 16大 */
$SB{a} = @X88 %a%16 r%8 ;         /* 16中 */
$SC{a} = @X64 %a%16 r%8 ;         /* 16小 */

/* --- for B --- */
$SE{a} = @13-2 @X48 %a%8 &@13-1 @X40 %a%4 &@13-0@X32 %a%4 r%8 ;  /* 調32→40, 24→32 */
$SF{a} = @13-2 @X48 %a%4 &@X24 %a%12 r%8 ;  /* メロ */
$SG    =
  /:2
    $SE{e-} $SE{c}  $SF{g} $SE{e-} $SE{c}  $SF{a} $SE{e-} $SE{c}
    $SF{b-} $SE{e-} $SE{c} $SF{a}  $SE{e-} $SE{c} $SF{g}  $SE{e-}
  :/
;

/* --- forC --- */
$SH{a} = @X68 %a%3 &@X52 %a%9 r%12 ; /* 調64→68, 48→52 */
$SH2{a}= @X56 %a%3 &@X42 %a%9 r%12 ; /* 調 */
$SI    = /:3 $SH{b} $SH{f} $SH{d} :/ ; 
$SJ    = >$SH{g} < $SH{b} $SH{a+} $SH{b} $SH{g} > $SH{g} < $SH{b} ;

/* --- Start --- */
$ALL $ALLT @13-2 q16 @Q0 $Ex0 $VSQ0

/* --- A --- */
o4 @X56 g%24 d%16 r%8> $SA{g} /:3 $SA{g} $SB{g} $SC{g} :/ r%96<<
/:2 $L2{@X64 b-%4 &@X48 b-%12 r%8} r%96 :/ r%96

/:$LOOP 
  /* --- B --- */
  /:2 $SG ns-2 $SG ns0 :/ 

  /* --- C --- */
  /:2
    ns0 $SI $SJ ns2 $SI $SJ / ns3 $SI $SJ ns4 $SI $SJ
  :/
  ns-1 $SI $SJ
  ns0  $SI $SH{f} $SH{a} <$SH{c} >$SH{b} <@13-2 $SH2{g} $SH2{d} >$SH2{g} 
:/
;


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

/* --- for A --- */
$ExS1 = @E1, 0, 0, 127, 36,   0, 0 ;               /* |＼ */
$ExS2 = @E1, 0, 0, 127,  8, 108, 0, 56, 48, 0, 0 ; /* |''- 16   */
$ExS20= @E1, 0, 0,  88,  8,  72, 0, 28, 48, 0, 0 ; /* |''_ 16弱 */
$ExS3 = @E1, 0, 0, 127, 20,  80, 0, 56, 48, 0, 0 ; /* |''-  8   */
$ExS4 = @E1, 0, 0, 127,  4, 120, 0, 56, 48, 0, 0 ; /* |''- 24   */

/* --- for B --- */
$ExS5a= @E1, 0, 0, 127, 17,  72, 0, 48, 48, 0, 0 ; /* |＼- 8大  */
$ExS5b= @E1, 0, 0, 127, 19,  72, 0, 28, 48, 0, 0 ; /* |＼_ 8    */
$ExS5c= @E1, 0, 0, 127, 17,  40, 0, 24, 48, 0, 0 ; /* |＼_ 8弱  */
$ExS5d= @E1, 0, 0, 127, 17,  40, 4, 48,  0, 0, 0 ; /* |＼- 8弱2 */
$ExS6a= @E1, 0, 0, 127,  4,  80, 0, 28, 48, 0, 0 ; /* |_  16弱  */
$ExS6b= @E1, 0, 0, 127,  8,  80, 0, 28, 48, 0, 0 ; /* |_  16弱2 */

/* --- for C --- */
$ExS7a= @E1, 0, 0, 127,  8,  96, 0, 40, 48, 0, 0 ; /* |_  16    */
$ExS7b= @E1, 0, 0, 127,  4,  96, 0, 40, 48, 0, 0 ; /* |_  24    */

/* --- for All --- */
$TA{a} = @13-2 %a%4 &@13-3 %a%20 ;      /* 16   */
$TB{a} = @13-2 %a%4 &@13-3 %a%12 r%8 ;  /* 16短 */
$TD{a} = @13-2 %a%4 &@13-3 %a%12 ;      /* 24   */
$TE{a} = @13-2 %a%4 &@13-3 %a%44 ;      /* 8    */
$TF{a} = @13-2 %a%4 &@13-3 %a%28 r%16 ; /* 8短  */

/* --- for A --- */
$T00 =
  $ExS1 o4 @X88 @13-2 g%5 &@13-3 g%19 @13-2 d%5 &@13-3 d%11 r%8>
  $ExS2 @X127 $TA{g} /:3 @X127 $TA{g} @X88 $TB{g} @X64 $TB{g} :/ @X127 $TA{g+} $TA{a} $ExS4 $TD{b-} $TD{a} $TD{a-} 
  /:2 < @13-2 $Ex0 $L2{@X72 b%4 &@X56 b%12 r%8} > @13-3 $ExS2 @X127 $TA{g} $TA{g}&g%8 r%16 $TA{g} :/
  $ExS3 $TE{g} < $ExS20 $TA{d} > $ExS2 $TA{g} 
;

/* --- for B --- */
$T01 =
  o3 @X127 $ExS5a $TE{c} < @X100 $ExS5c $TF{g}   /* 調96→100 */
   > @X127 $ExS5b $TE{g} <       $ExS6a $TA{g}   @X100 $ExS5d $TE{c}
   > @X127 $ExS5b $TE{c} < @X100 $ExS5c $TB{g} > @X127 $ExS5b $TE{g}
;
$T02 =  < $ExS5c $TE{g} ;
$T03 =  < $ExS6b $TA{c} > $TA{b} ;
$T04 =    $ExS6b $TA{b} < $TA{c} ;
$T05 =    $ExS6b $TA{b} r%24 ;

/* --- for C --- */
$T06 =
  $ExS7a /:3 @X92  $TB{g} > @X114 $TA{g}   @X84  $TB{g} / < :/  /* 調112→114, 88→92, 80→84, 64→68 */
             @X114 $TA{g} < @X92  $TB{g} > @X114 $TA{g} < 
             @X92  $TB{g} > @X114 $TA{g}   @X68  $TB{g}   @X112 $TA{a-} <
;
$T07 =
  $ExS7a /:3 @X100 $TB{g} > @X120 $TA{g}   @X92  $TB{g} / < :/  /* 調96→100, 88→92, 76→80 */
             @X120 $TA{g} < @X100 $TB{g} > @X120 $TA{g} <
             @X100 $TB{g} > @X120 $TA{g}   @X80  $TB{g}   @X120 $TA{a-} <
;
$T08 =
  $ExS7a /:3 @X110 $TA{b} > @X127 $TA{b}         $TA{b} / < :/  /* 調104→110 */
                   $TA{b} < @X110 $TA{b}   @X127 $TA{c} < @X110 $TA{c}
          >> @X127 $TA{f+} $TD{a+} $ExS7b $TD{a} $TD{g+} <
;
$T09 =
  $ExS7a @X110 /:3 $TA{g} >       $TA{g}         $TA{g} / < :/  /* 調104→110 */
                   $TA{g} <       $TA{g} >       $TA{g+} <      $TA{g+}
           >       $TA{g+} > $TD{a} $TD{a+} $ExS7b $TD{b}
;

/* --- Start --- */
$ALL $ALLT q16 @Q0 $Ex0 $VSQ1

/* --- A --- */
$T00

/:$LOOP 
  /* --- B --- */
        $T01 $T02 $T01 $T03
  ns-2  $T01 $T02 $T01 $T04
  ns0   $T01 $T02 $T01 $T03
  ns-2  $T01 $T03 $T01 $T05
  ns0 <

  /* --- C --- */
  $T06 ns2 $T06 ns3  $T07 ns0 $T08
  $T06 ns2 $T06 ns-1 $T06 ns0 $T09
:/
;


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

$TR00 = $L2{<c>ce-c <c>fcc gccf <c>ce-c} ;

/* --- Start --- */
$ALL $ALLT @13-4 l16 @Q0 $Ex0 $VTRI

/* --- A --- */
o5 r1 ff r4 ff r2

/:$LOOP
  /* --- B --- */
  q11 $L2{$TR00 ns-2 $TR00 ns0} >

  /* --- C --- */
  q8 /:2 $L4{<dd>gg} $L4{<ee>aa} / $L4{<ff>b-b-} $L3{<f+f+>bb} <f+b-aa-> :/
  $L4{<c+c+>f+f+} $L2{<dd>gg} <dd>g<g >b<e-dd-
:/
;


/* =-=-=- NOI -=-=-= */

$ExN0 = @E1, 0,0,  120,7,   64,2,  64,0,  32,0 ;  /* da862   */
$ExN1 = @E1, 0,0,  120,13,  32,0,   0,0 ;         /* da86420 */
$ExN2 = @E1, 0,0,    0,4,    0,0,  32,48,  0,0 ;  /* 02      */
$ExN3 = @E1, 0,0,   56,4,   32,0,   0,0 ;         /* 520     */
$ExN4 = @E1, 0,0,  112,8,   48,2,  48,0,   0,0 ;  /* b8640   */
$ExN5 = @E1, 0,0,   80,8,   24,0,   0,0 ;         /* 85310   */
$ExN6 = @E1, 0,0,   96,8,   40,2,  40,0,   0,0 ;  /* a7530   */

/* --- Start --- */
$ALL @7 o0 l16 q16 $VNOI @D0 /* 無影響だが一応戻す */

/* --- A --- */
r1 /:2 $ExN0 d+d+ c $ExN1 c8 $ExN2 c :/
$ExN3 drc+c+

/:$LOOP
  /* --- B --- */
  /:32 $ExN4 d $ExN5 c+c+d :/

  /* --- C --- */
  $ExN6 /:32 e c+dc+ :/
:/
;


/* =-=-=- PCM -=-=-= */

$B    = @E1,0,0,360,0 @9-0 e ;
$S    = @E1,0,0,384,0 @9-1 e ;
$SS   = @E1,0,0,360,0 @9-1 e32e32 ;
$SSS  = @E1,0,0,360,0 @9-1 e32e32e ;
$K    = @E1,0,0,256,0 @9-2 e ;
$K2   = @E1,0,0,256,0 @9-2 d ;
$K2KK = @E1,0,0,256,0 @9-2 d24d24d24 ;
$P    = @E1,0,0,384,0 @9-3 e ;

/* --- Start --- */
$ALL o1 l16 $VPCM

/* --- A --- */
/:11 $S :/ r $S$Sr$S $S$S$B$B r$B$S$S $B$Br$B $SSS$B$S

/:$LOOP
  /* --- B --- */
  /:4 
    /:3 $B$K$P$B $Sr$K2$K2 :/
    /
    $K2$K$P$K $S$P $K2KK
  :/
  $K$P$S$B $SS$B$K2$B

  /* --- C --- */
  /:4
    $Br$K$B $Sr$K2r  $Br$Kr  $S$B$K2$P
    $Br$Kr  $Sr$K2$B $B$B$Kr $S$B$S$S
  :/
:/
;