#TITLE 星のカービィ～夢の泉の物語～ / 白黒面の平地の面
#ARTIST Jun Ishikawa (& Hirokazu Ando)
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code：02666791 / MML coded: 2014/3/28 rev.0
#COMMENT 正題：白黒（ＧＡＭＥ　ＢＯＹ）面の平地の面


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

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


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


/* basic macro */

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


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

$T16a{a}  = %a%13 r%11 ;  /* 0.048 */ 
$T16b{a}  = %a%8 r%16 ;   /* 0.031 */
$T8a{a}   = %a%18 r%30 ;  /* 0.065 */
$T8b{a}   = %a%13 r%35 ;  /* 0.048 */ 
$T8c{a}   = %a%37 r%11 ;  /* 0.13  */
$T8d{a}   = %a%33 r%15 ;  /* 0.115 */
$T8Pa{a}  = %a%33 r%39 ;  /* 0.115 */
$T8Pb{a}  = %a%62 r%10 ;  /* 0.213 */
$T8Pc{a}  = %a%57 r%15 ;  /* 0.195 */
$T4a{a}   = %a%67 r%29 ;  /* 0.23  */
$T4b{a}   = %a%86 r%10 ;  /* 0.297 */
$T4c{a}   = %a%81 r%15 ;  /* 0.28  */
$T4d{a}   = %a%76 r%20 ;  /* 0.265 */
$T2Pa{a}  = %a%262 r%26 ; /* 0.91  */
$T2Pb{a}  = %a%249 r%39 ; /* 0.86  */

$TR01 = o5 $T16a{f+} $T16a{f+} r16 $T16a{f+} $T8a{f+} $T8a{f+} $T8a{f+} << $T16b{c+} $T16b{c+} $T16b{c+} r16 >>> f+24&g+24&a+24& ;
$TR02 = > $T4a{b} r2. $T4a{b} r2. < $T4a{c+} r2. < r8 $T8b{f+} $T8b{f+} $T8b{f+} $T8b{f+} r8 < $T8Pa{f+} $T16a{f+} ;
$TR03 = $T2Pa{b} $T8Pb{b} < $T16a{d+} $T8c{f+} $T8a{b} $T8a{a+} $T8a{g+} $T4b{f+} $T8Pb{d+} $T16a{f+};
$TR04 = $T4c{e} $T8Pb{c+} $T16a{d+} $T4c{c+} $T8Pb{d+} $T16a{c+} > $T2Pb{b} ;
$TR05 = $T8Pa{f+} $T16a{f+} ;
$TR06 = r4 $T8Pc{b} $T16a{b} < $T16a{c+} r16 $T4d{d+} > $T16a{b} r16 < $T8d{c+} > $T8d{b} ;
$TR07 = >>> $T4a{b} r2. $T4a{b} r2. ;
$TR08 = o4 q9 /:3 eb<ge gege >a<eae aeae >da<f+d f+df+d >g<dgd gdgd > :/ ;
$TR09 = eb<e>b <e>b<e>b a<eae aeae >f+rf+<c+ >f+rf+<c+ f+ r8. < q16 $T8Pa{f+} $T16a{f+} ;

/* --- Start --- */
$ALL $VTRI @13-4 @Q0 @X127 $Ex0 l16 q16
/* A */
$TR01 $TR02
/:$LOOP
  /* B */
  /:2 $TR03 $TR04 / $TR05 :/ $TR06 $TR07
  /* C */
  $TR08 $TR09
:/
/* --- End --- */
;


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

/* A B */
$S16a{a} = %a%16 r%8  ;                    /* 0.054 */
$S16b{a} = %a%8  r%16 ;                    /* 0.031 (=$T16b) */
$S16c{a} = %a%13 r%11 ;                    /* 0.048 */ 
$S16d{a} = %a%18 r%6 ;                     /* 0.065 */
$S8a{a}  = %a%20 r%28 ;                    /* 0.069 */
$S8b{a}  = %a%18 r%30 ;                    /* 0.065 (=$T8a) */
$S8b2{a} = %a%18 r%30 %a%18 r%30 ;
$S8c4{a,b,c} = %a%48 %b /:3 %c%18 r%30 :/;
$S8c8{a,b,c} = %a%48 %b /:7 %c%18 r%30 :/;
$S8Pa{a}  = %a%33 r%39 ;                   /* 0.115 (=$T8Pa) */

/* C */
/*$ExS0a = @E1, 0,0,  96,2,96,0,  120,2,120,0,  84,2,84,0,  60,10,60,0,  72,11,72,0,  84,10,84,0,  96,10,96,0,  108,11,108,0,  120,0,120,0 ;*/ /* 8a756789a */
  $ExS0a = @E1, 0,0,  96,1,96,1,  120,2,120,1,  84,1,84,1,  60, 8,60,1,  72,10,72,1,  84, 9,84,1,  96, 9,96,1,  108,10,108,1,  120,0,120,0 ;
/*$ExS0b = @E1, 0,0,  96,2,96,0,  120,2,120,0,  84,2,84,0,  60,10,60,0,  72,5,72,0,  36,10,36,0,  24,4,24,0,  12,4,12,0,  0,0 ;*/ /* 8a7563210 */
  $ExS0b = @E1, 0,0,  96,1,96,1,  120,2,120,1,  84,1,84,1,  60, 8,60,1,  72,4,72,1,  36, 9,36,1,  24,3,24,1,  12,3,12,1,  0,0 ;
/*$ENS8Pb{a} = @E1, 0,0,  48,2,48,0,  96,2,96,0,  120,2,120,0,  84,2,84,0,  60,10,60,0,  72,7,72,0,  36,0,36,0 %a8. ;*/ /* 48a7563 */
  $ENS8Pb{a} = @E1, 0,0,  48,1,48,1,  96,1,96,1,  120,2,120,1,  84,1,84,1,  60, 8,60,1,  72,6,72,1,  36,0,36,0 %a8. ;
/*$ENS16b{a} = @E1, 0,0,  48,2,48,0,  96,2,96,0,  120,2,120,0,  36,0,36,0 %a16 ;*/ /* 48a3 */
  $ENS16b{a} = @E1, 0,0,  48,1,48,1,  96,1,96,1,  120,2,120,1,  36,0,36,0 %a16 ;
/*$ENS2{a}   = @E1, 0,0,  36,2,36,0,  84,2,84,0,  108,2,108,0,  72,2,72,0,  48,11,48,0,  60,10,60,0,  72,10,72,0,  84,11,84,0,  96,10,96,0,  108,10,108,0,  24,11,24,0,  12,0 %a2 ;*/ /* 379645678921 */
  $ENS2{a}   = @E1, 0,0,  36,1,36,1,  84,1,84,1,  108,2,108,1,  72,1,72,1,  48, 9,48,1,  60, 9,60,1,  72, 9,72,1,  84,10,84,1,  96, 9,96,1,  108, 9,108,1,  24,10,24,1,  12,0 %a2 ;
/*$ENS4{a}   = @E1, 0,0,  36,2,36,0,  84,2,84,0,  108,2,108,0,  72,2,72,0,  48,11,48,0,  60,10,60,0,  72,4,72,0,  24,0  %a4 ;*/ /* 37964562 */
  $ENS4{a}   = @E1, 0,0,  36,1,36,1,  84,2,84,1,  108,1,108,1,  72,1,72,1,  48, 9,48,1,  60, 9,60,1,  72,3,72,1,  24,0  %a4 ;
/*$ENS8P{a}  = @E1, 0,0,  36,2,36,0,  84,2,84,0,  108,2,108,0,  72,2,72,0,  48,11,48,0,  60,6,60,0,  24,0  %a8. ;*/ /* 3796452 */
  $ENS8P{a}  = @E1, 0,0,  36,1,36,1,  84,1,84,1,  108,2,108,1,  72,1,72,1,  48, 9,48,1,  60,5,60,1,  24,0  %a8. ;
/*$ENS16{a}  = @E1, 0,0,  36,2,36,0,  84,2,84,0,  108,2,108,0,  24,0  %a16 ;*/ /* 3792 */
  $ENS16{a}  = @E1, 0,0,  36,1,36,1,  84,1,84,1,  108,2,108,1,  24,0  %a16 ;
/*$ENS2b{a}  = @E1, 0,0,  36,2,36,0,  84,2,84,0,  108,2,108,0,  72,2,72,0,  48,11,48,0,  60,10,60,0,  72,4,72,0,  24,10,24,0,  12,5,12,0,  0,0  %a2 ;*/ /* 3796456210 */
  $ENS2b{a}  = @E1, 0,0,  36,1,36,1,  84,1,84,1,  108,2,108,1,  72,1,72,1,  48, 9,48,1,  60, 9,60,1,  72,3,72,1,  24, 9,24,1,  12,4,12,1,  0,0  %a2 ;

$SQ11 = @13-2 o3 @X72 $S16a{f+} $S16a{f+} r16 $S16a{f+} $S8a{f+} $S8a{f+} $S8a{f+} <<< $S16b{f+} $S16b{f+} $S16b{f+} r16 >>> @X80 f+24&g+24&a+24 ;
$SQ12 = @X56 << $S8c8{r,,d+} $S8c8{r,,d+} $S8c8{r,,e} @13-1 @X64 r8 < $S8b2{e} $S8b2{f+} r4. ; /* 調 @X64追加 */
$SQ13 = @13-2 o4 @X56 $Ex0 ; /* 修 @X72→56 */
$SQ14 = $S8c8{f+,<,d+} $S8c8{>f+,<,d+} $S8c4{>g+,,b} ;
$SQ15 = $S8c4{f+,,a+} $S8c8{f+,<,d+} > ;
$SQ16 = $S8c4{g,<,d+} /:8 $S16c{>b} $S16c{<d+} :/ ;
$SQ17 = $S8Pa{e} $S16d{e} r4 $S8b{f+} $S8b{f+} r4 > $S8c8{r,,d+} $S8c8{r,,d+};
$SQ18 = @13-0 o5 @X96 $ExS0a /:2 g4g8.g<c+4>b8.<c+ / d4c+8.d>g4g8.a :/ d2 $ExS0b f+4 @13-2 @X72 $ENS8P{g} $ENS16b{a} ; /* 調 @X85→96 , @X72追加 */
$SQ19 = /:2 $ENS4{g} $ENS8P{g} $ENS16{g} < $ENS4{c+} > $ENS8P{b} < $ENS16{c+} / $ENS4{d} $ENS8P{c+} $ENS16{d} > $ENS4{g} $ENS8P{g} $ENS16{a} :/ ;
$SQ1A = > $ENS2{a+} $ENS2b{a+} ;

/* --- Start --- */
$ALL $VSQ1 @Q0 $Ex0 l16 q16
/* A */
$SQ11 $SQ12
/:$LOOP
  /* B */
  $SQ13 $SQ14 $SQ15 $SQ14 $SQ16 $SQ17
  /* C */
  $SQ18 $SQ19 $SQ1A
:/
/* --- End --- */
;


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

/* マクロは共通 */

$SQ01 = @13-2 o6 @X72 r2 r8 $S16c{e} $S16c{e} $S16c{e} r16 r8 ;
$SQ02 = @X56 >> $S8c8{r,,f+} $S8c8{r,,f+} $S8c8{r,,g+} @13-1 @X64 r8 < $S8b2{g+} $S8b{g+} $S8b{a+} r4. ; /* 調 @X64追加 */
$SQ03 = @13-2 o3 @X56 $Ex0 ; /* 修 @X72→56 */
$SQ04 = $S8c8{b,<,f+} $S8c8{>b,<,f+} $S8c4{c+,,g+} ;
$SQ05 = $S8c4{c+,,f+} $S8c8{>b,<,f+} > ;
$SQ06 = $S8c4{d+,,a+} $S8c4{g+,<,g+} $S8c4{>f+,<,f+} ;
$SQ07 = > $S8Pa{g+} $S16d{g+} r4 $S8b{a+} $S8b{a+} r4 $S8c8{r,,f+} $S8c8{r,,f+};
$SQ08 = @13-0 o6 @X96 $ExS0a /:2 d4c+8.de4d8.e / f+4e8.f+>b4b8.<c+ :/ f+2 $ExS0b b4 @13-2 @X72 $ENS8P{b} < $ENS16b{c+} ; /* 調 @X85→96 , @X72追加 */
$SQ09 = /:2 $ENS4{d} $ENS8P{c+} $ENS16{d} $ENS4{e} $ENS8P{d} $ENS16{e} / $ENS4{f+} $ENS8P{e} $ENS16{f+} > $ENS4{b} $ENS8P{b} < $ENS16{c+} :/ ;
$SQ0A = $ENS2{c+} $ENS2b{f+} ;

/* --- Start --- */
$ALL $VSQ0 @Q0 $Ex0 l16 q16
/* A */
$SQ01 $SQ02
/:$LOOP
  /* B */
  $SQ03 $SQ04 $SQ05 $SQ04 $SQ06 $SQ07
  /* C */
  $SQ08 $SQ09 $SQ0A
:/
/* --- End --- */
;


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

$ExNAd8   = @E1, 0,0,  80,11,  8,0,  0,0  d8   ; /* $ExNxyz x=Volume y=tone z=note */
$ExNBe8   = @E1, 0,0,  88,10,  8,0,  0,0  e8   ;
$ExN5d8   = @E1, 0,0,  40,4,   8,0,  0,0  d8   ;
$ExN5dp8  = @E1, 0,0,  40,4,   8,0,  0,0  d+8  ;
$ExN9e16  = @E1, 0,0,  72,4,  16,0,  0,0  e16  ;
$ExN7dp16 = @E1, 0,0,  56,4,  16,0,  0,0  d+16 ;
$ExN5dp16 = @E1, 0,0,  40,4,   8,0,  0,0  d+16 ;
$ExN5e16  = @E1, 0,0,  40,4,   8,0,  0,0  e16  ;

$N01 = r1r1r1r1 r8 /:4 $ExNAd8 :/ r4. ; 
$N02 = /:3 $ExNBe8 $ExN7dp16 $ExN7dp16 :/ $ExN9e16 $ExN5dp16 $ExN5e16 $ExN5dp16 ;
$N03 = /:2 $ExN5dp8 $ExN5e16 $ExN5e16 :/ $ExN5e16 r16 $ExN5e16 r16 r4 ;
$N04 = /:2 $ExN5dp8 $ExN5e16 $ExN5e16 :/ $ExN5dp8 r4. ;

/* --- Start --- */
$ALL $VNOI @7 q16 @Q0 o0 
/* A */
$N01
/:$LOOP
  /* B */
  /:8 $N02 :/ $N03 $N02 $N02
  /* C */
  /:7 $N02 :/ $N04
:/
/* --- End --- */
;