#TITLE パラソルスター(PC Engine) / TRACK07(ビックアイテム)
#ARTIST YASUKO, TURBO MIRA
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT MML coded: 2014/4/27 rev.0


/* 全パート       */  $ALL  = t200 ;
/* 音程パートのみ */  $ALLT = @D0 ;
/* ループ回数     */  $LOOP = 64 ; 

/* 調整可 @V0(silent)～127(max) */
/*         melody */  $CH1 = @V120 ; 
/*           back */  $CH2 = @V32 ;
/*           bass */  $CH3 = @V56 ; /* 強調気味なので48でも良いかと */
/*  melody(delay) */  $CH4 = @V32 @P40 ;
/*          noise */  $CH5 = @V72 ;


/* WAV13 coded by HuSIC, NEZplug, WinAMP, SoundEngine Free and Stirling */
/* HuSIC -> http://seesaawiki.jp/husic/ */
/* Stirling -> http://www.vector.co.jp/soft/win95/util/se079072.html */

#WAV13 14,7D 47 10 10 10 10 10 0E 09 0A 0A 0A 0A 0A 0A 0A 0B 0B 0B 0B 0B 0B 0B 0B 0C 0C 0C 0C 0C 0C 0C 0C 0D 0D 0D 0D 0D 0D 0D 0E 0E 0E 0E 0E 0E 0E 0E 0E 0F 0F 0F 0F 0F 0F 0F 10 10 10 10 10 10 10 10 10 11 11 11 11 11 11 11 11 12 12 12 12 12 12 12 12 13 13 13 13 13 13 13 13 14 1A 1B 1B 1B 1B 1C 64 89 89 89 89 89 BC EE EE EE EE EE EF F5 F5 F5 F5 F4 F4 F4 F4 F4 F4 F4 F4 F3 F3 F3 F3 F3 F3 F3 F3 F2 F2 F2 F2 F2 F2 F2 F2 F1 F1 F1 F1 F1 F1 F1 F1 F0 F0 F0 F0 F0 F0 F0 EF EF EF EF EF EF EF EF EF EE EE EE EE EE EE EE EE ED ED ED ED ED ED ED ED EC EC EC EC EC EC EC EC EB EB EB EB EB E6 E3 E3 E3 E3 E3 B0 7D 7D 7D 7D 7D /* original - 1F 1F 1F 1F 1F 1F 1F 1E 0F 01 00 00 00 00 00 00 00 00 00 00 00 00 00 01 0F 1E 1F 1F 1F 1F 1F 1F */

#WAV13 16,80 80 80 80 80 7E 72 72 72 72 72 72 63 5C 5C 5C 5C 5C 4E 3F 3F 3F 40 40 36 23 23 23 23 23 23 17 15 15 15 15 15 0C 07 07 07 07 08 04 01 01 01 01 01 0A 1E 1F 1F 1F 1F 1F 56 61 61 61 61 61 6F 77 77 77 77 77 5D 44 44 44 44 44 3B 0A 0A 0A 0A 0B 0B 23 28 28 28 28 28 3C 46 46 46 46 46 4D 5C 5C 5C 5C 5C 62 80 80 80 80 80 80 AB B3 B3 B3 B3 B3 C2 C9 C9 C9 C9 C8 CB D0 CF CF CF CF D3 E5 E5 E5 E5 E4 E4 E4 E4 E4 E4 E4 E4 DC D5 D5 D5 D5 D4 C8 B0 B0 B0 B0 B0 A7 7D 7D 7D 7D 7D 7D B1 C5 C5 C5 C5 C5 C9 CC CC CC CC CC D3 E2 E1 E1 E1 E1 E1 E1 E1 E1 E1 E0 E0 D7 D2 D1 D1 D1 D1 C6 BB BB BB BB BB B1 9E 9E 9E 9E 9E 9E 85 /* original - 0F 12 16 1A 1C 1E 1F 1B 12 0F 16 1E 1A 16 13 0E 07 04 03 00 00 02 07 0E 04 03 00 00 02 05 09 0D */

#WAV13 18,80 65 2E 2E 2E 2E 2E 2F 2F 2F 2F 2F 24 20 21 21 21 21 21 21 21 21 3B 55 55 55 55 55 55 55 55 55 55 3A 31 31 31 31 31 31 31 31 31 27 1C 1C 1C 1C 1C 1C 1C 1C 1D 1D 33 3A 3A 3A 3A 3A 3A 3B 3B 3B 56 A9 A9 A9 A9 A8 A8 A8 A8 A8 A8 A3 A1 A1 A1 A1 A1 A1 A1 A1 A1 9F 99 99 99 99 99 99 99 99 99 99 9E A0 A0 A0 A0 A0 A0 A0 A0 A0 A2 A7 A7 A7 A7 A7 A7 A7 A7 A7 A7 9C 91 91 91 91 91 91 91 91 91 94 9F 9F 9F 9F 9F 9F 9F 9F 9F 9F 9B 97 97 97 97 97 97 97 97 97 8E 6B 6B 6B 6B 6B 6B 6B 6B 6B 6B 60 56 56 56 56 56 56 56 56 56 56 82 91 91 91 91 90 90 90 90 90 9B A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 4E 31 31 31 31 31 31 31 31 32 61 A7 A7 A7 A7 A7 A7 A6 A6 A6 A6 44 23 23 23 23 23 23 23 23 23 3D 8A 8A 8A 8A 8A 8A 8A 8A 8A 8A A5 AF AE AE AE AE AE AE AE AE AE AE AE AE AE AE AE AE AE AE AE AE AD AD AD AD AD AD AD AD AD A9 9E 9E 9E 9E 9E 9E 9E 9E 9E 9E A5 AD AD AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC A1 96 96 96 96 96 95 95 95 95 9A AB AB AB AB AB AB AB AB AB AB 91 78 78 78 78 78 78 78 78 78 78 93 9C 9C 9C 9C 9C 9C 9C 9C  /* original - 17 10 15 18 14 05 06 07 06 05 08 06 07 0D 10 08 05 15 05 17 09 04 04 04 06 04 04 07 04 0B 06 15 */


/* basic macro */

$L2{a} = %a %a ;
$Ex0   = @E1, 0, 127, 127, 0 ;


/* =-=-=-=-=- CH1 -=-=-=-=-= */

$Ex10 = @E1, 0,0,   56,2,  56,0,  127,4,  72,24,  36,0 ;
$Lx10 = @L10, 62, -3, 62, 99, 0 ;

$C10 = @13-16 $Ex10 $Lx10 q16 @Q1 l12 ;
$C11 = o7 $L2{drf+dr>a<} a6ra6ra6r>f+6g ;
$C12 = a6rr4<d6rr4 >b6rr4<d6rr4 ;
$C13 = >a6r<g6rf+6re6r e6f+6r>a&a4f+6g ;
$C15 = >a6rb6r<c+6ra6r o7 $L2{drf+dr>a<} a6ra6ra6ra6r ;

/* --- Start --- */
$ALL $ALLT $CH1 $C10 /:$LOOP $C11 $C12 $C13 $C12 $C15 :/
;


/* =-=-=-=-=- CH4 -=-=-=-=-= */

$ALL $ALLT $CH4 r%43 $C10 /:$LOOP $C11 $C12 $C13 $C12 $C15 :/
;


/* =-=-=-=-=- CH2 -=-=-=-=-= */

$C20 = $Ex0 q16 @Q1 ;
$C21 = @13-18 o6 f+raf+rdf+raf+rd <c+6rc+6rc+6r @13-16 >>d6e ;
$C22 = $L2{f+rdg+6a} $L2{brg<c+6d>} ;
$C23 = <c+r>a<d+6ec+r>c+g+6a f+rcg+6a<c+r>barg ;
$C25 = <c+r>a<d+6ec+r>c+g+6a @13-18 o6 f+raf+rdf+raf+rd <c+6rc+6rc+6rc+6r ;

/* --- Start --- */
$ALL $ALLT $CH2 $C20 /:$LOOP  $C21 $C22 $C23 $C22 $C25 :/
;


/* =-=-=-=-=- CH3 -=-=-=-=-= */

$C30 = @13-14 $Ex0 q16 @Q1 ;
$C31 = o4 $L2{dr>abr<c+} >a6ra6r<argf+re ;
$C32 = $L2{dr>a<f6f+} $L2{grda+6b} ;
$C33 = are<c+6d>ar>a<d+6e dr>a<f6f+argf+re ;
$C35 = are<c+6d>ar>a<d+6e o4 $L2{dr>abr<c+} >a6ra6ra6ra6r ;

/* --- Start --- */
$ALL $ALLT $CH3 $C30 /:$LOOP $C31 $C32 $C33 $C32 $C35 :/
;


/* =-=-=-=-=- CH5 -=-=-=-=-= */

$Ex50 = @E1,0,0,  127,1,127,2,  80,2,  48,2,  28,2,  16,20,4,0,   0,0 ;
$Ex51 = @E1,0,0,  127,4,127,2,  96,4,  64,4,  44,4,  32,4,16,0,  16,0 ;

$NB  = @X120 $Ex50 @4@N121a; /* 88 */
$NA  = @X72  $Ex51 @4@N117a; /* 8F */
$NG  = @X96  $Ex50 @4@N113a; /* 92 */

$C5X0= $NB6$NA$NG6$NA ;
$C50 = l12 ;
$C51 = /:4 $NB6$NG :/ $NA4$NA4$NA4$NB6$NB ;
$C52 = /:4 $C5X0 :/ ;
$C53 = $C5X0 $NG$NG$NG$NG6$NA $C5X0 $C5X0 ;
$C55 = $C5X0 $C5X0 /:4 $NB6$NG :/ $NA4$NA4$NA4$NA4 ;

/* --- Start --- */
$ALL $CH5 $C50 /:$LOOP $C51 $C52 $C53 $C52 $C55 :/
;