#TITLE パラソルスター(PC Engine) / TRACK00(ステージ1～7)
#ARTIST YASUKO, TURBO MIRA
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT MML coded: 2014/4/19 rev.1 再調整


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

/* 調整可 @V0(silent)～127(max) */
/*         melody */  $CH1 = @V72 ; 
/*  counter, back */  $CH2 = @V72 ;
/*     bass, back */  $CH3 = @V127 ;
/*  melody(delay) */  $CH4 = @V12 @P48 ; /* オリジナルは @P64 */
/*          noise */  $CH5 = @V56 ;


/* 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 10,7D 7D 7D 7D 7D 55 07 07 07 07 07 06 00 00 00 00 00 00 00 01 01 01 01 01 01 01 02 02 02 02 02 02 02 03 03 03 03 03 03 03 03 04 04 04 04 04 04 04 05 05 05 05 05 05 05 06 06 06 06 06 06 06 06 07 07 07 07 07 07 07 08 08 08 08 08 08 08 09 09 09 09 09 09 09 09 0A 0A 0A 0A 0A 0A 0A 0A 10 13 13 13 13 13 46 8A 8A 89 89 89 9C F8 F8 F8 F7 F7 F7 FE FF FF FE FE FE FE FE FE FE FE FD FD FD FD FD FD FD FC FC FC FC FC FC FC FB FB FB FB FB FB FB FA FA FA FA FA FA FA F9 F9 F9 F9 F9 F9 F9 F9 F8 F8 F8 F8 F8 F8 F8 F7 F7 F7 F7 F7 F7 F7 F7 F6 F6 F6 F6 F6 F6 F6 F5 F5 F5 F5 F5 F5 F5 F5 F4 F4 F4 F4 F0 EC EC EC EC EB C6 /* 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 11,7E 5D 5D 5D 5D 5D 5D 78 7D 7D 7D 7D 7D 9D AD AD AD AD AD 91 6D 6D 6D 6D 6D 65 3D 3D 3D 3D 3E 3E 1C 16 16 16 16 16 0C 07 07 07 07 07 05 00 00 00 00 00 02 08 08 09 09 09 09 1D 21 21 21 21 22 0F 02 02 02 02 03 05 0B 0B 0B 0B 0B 21 8B 8B 8B 8B 8B 8B 63 5B 5B 5B 5B 5B 83 AB AB AB AB AB 93 63 63 63 63 63 6E A3 A3 A3 A3 A3 A3 C3 D3 D2 D2 D2 D2 C2 B2 B2 B2 B2 B2 A5 8A 8A 8A 8A 8A 8C 9A 9A 9A 9A 9A 9A BA C9 C9 C9 C9 C9 CD D1 D1 D1 D1 D1 C8 B8 B8 B8 B8 B8 B8 E0 E8 E8 E8 E7 E7 EC EF EF EF EF EF E6 DE DE DE DE DE D9 BE BE BE BE BE BE A3 9E 9D 9D 9D 9D A8 AD AD AD AD AD A1 95 95 95 95 95 92 85 85 85 85 85 /* original - 09 11 17 1C 1E 1F 1E 1B 1F 1E 0E 14 0A 13 0B 05 09 0E 0C 06 05 08 02 01 03 07 0B 09 0C 0E 13 0F */

#WAV13 12,80 80 80 80 80 7B 72 72 72 72 72 6E 5C 5C 5C 5C 5C 5C 44 3F 3F 3F 3F 3F 31 22 22 22 22 22 1E 14 14 14 14 14 12 06 06 06 06 07 07 01 00 00 00 00 00 0F 1E 1E 1E 1E 1E 34 60 60 60 61 61 64 77 77 77 77 77 77 54 43 43 44 44 44 26 09 09 09 0A 0A 14 27 27 27 28 28 28 41 45 45 45 45 46 54 5C 5C 5C 5C 5C 6E 80 80 80 80 80 92 B4 B4 B4 B4 B4 B3 C6 C9 C9 C9 C9 C9 CE D0 D0 D0 D0 D0 DB E6 E6 E5 E5 E5 E5 E5 E5 E5 E5 E4 E4 D8 D5 D5 D5 D5 D5 BD B0 B0 B0 B0 B0 9A 7D 7D 7D 7D 7D 89 C6 C6 C6 C6 C6 C6 CC CD CD CD CC CC DB E2 E2 E2 E2 E2 E2 E2 E1 E1 E1 E1 DF D2 D2 D2 D2 D2 D2 BF BC BC BB BB BB AB 9E 9E 9E 9E 9E 94 /* 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 */


/* basic macro */

$Ex0   = @E1, 0, 127, 127, 0 ;
$Lx0   = @L0, 0, 0, 0, 0, 0 ;


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

$C1X = @13-10 @X80  ;
$C1Y = @13-11 @X127 ;
$C1Z = @13-10 @X72  ;

$Ex10 = @E1, 0,0,   56,11,  127,0 ;
$Ex11 = @E1, 0,0,  127,6,  64,18,  32,0 ; 
$Ex12 = @E1, 0,0,   56,2,  56,0,  127,4,  72,24,  36,0 ;
$Lx10 = @L8, 42, -3, 36, 99, 0 ;

$C10 = $C1X @Q1 $Lx0 o5 l4 r16 $Ex10 q16rd-c>b<cd-c>b<cd- q9e-8 $Lx10 <q16cd- ;

$C11 = $C1X o6 l8 q9e-fcd-e-fcd- q8e-4 <q16c4>a-4 q9cd- ;
$C12 = e-fcd-e-fcd- q11e-. q16d-32e-32d- q9c q16d-4 >q9b-<c ;
$C13 = q16d- q9e->b-<c q16d-4 q9cd- q16e- q9fcd- q16e-4 q9de- ;
$C14 = q16fgde-fga-b- b-4.r16 @Q0 $Ex0 a32&b-32 $Ex11 @Q1 <e-16>e-16 >q9e-< cd- ;

$C15 = e-fcd-e-fcd- q8e-4<c4 q16>a-4 $C1Z q9cd- ;
$C16 = e-fcd-e-fcd- q16e-. @Q0 $Ex0 q16d-32&e-32 $Ex11 @Q1 d- q8c q11d-. $C1X $Ex10 q16f16 q9>b-<c ;
$C17 = d-e->b-<d- q16 d-4 q9 cd-e-fcd- q16e-4 q9de- ;
$C18 = q16 fga-b-a-gfg a-2.r8 $C1Y $Ex12 a-32a32b-32b32 ;

$C19 = <c2>a-2b-2r q9b-<cd- q16d-2r q9d-c>b- q16a-4. <q9c q16c2 ;
$C1B = e-2c2 f2 q9 rfe-d- q16d- q9cc>b- q16b- q9a-a-g q16a-2r4 $C1X $Ex10 q9cd- ;

/* --- Start --- */
$ALL $CH1 $C10 /:$LOOP $C11 $C12 $C13 $C14 $C15 $C16 $C17 $C18 $C19 $C1B :/
;


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

/* --- Start --- */
$ALL $CH4 r8. $C10 /:$LOOP $C11 $C12 $C13 $C14 $C15 $C16 $C17 $C18 $C19 $C1B :/
;




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

$C2X = @13-11 @X96 ;
$C2Y = @13-10 @X72 ;
$C2Z = @13-10 @X80 ;

$C20 = $C2X @Q1 $Lx0 o4 l4 r16 $Ex12 q16rb-aa-ab-aa-ab- q9g8r $Lx10 q16b- ;

$C21 = $C2X o5 l8 $Ex12 q8 /:12 re- :/ rfrfrfrf ;
$C23 = rgrfre-re- re-re-ra-re- ;
$C24 = rfrdrfra- $C2Y $Ex11 rg l16 q16f+gre-<g>ggr a-rb-r ;

$C25 = l8 <q8c>a-a-b-<c>a-a-b- <q16c16>a-16e-<e-4c16>b16<c16e-16 $C2Z q9a-b- ;
$C26 = <cd->a-b-<cd->a-b- <q16c. @Q0 $Ex0 >q16b-32&<c32> $Ex11 @Q1 q8b-a q11b-. r16 r $C2Y $Ex10 >q9a- ;
$C27 = q11g4. q16f q9e-ga-b- <q11c4. >q16b- q9a-e-fa- ;
$C28 = $Ex10 <q16d4>b-<cd->>b-<cd- $Ex11 l16 e-e-a-r<c>b-ra- rre-<e->f<f>g<g ;

$C29 = l16 r8e-d-a-<a->cr c8>e-efee-8 r8<fe-e-<e->d-8 >r8gra-rb-r ;
$C2A = b-8<d-cc<c>>b-8 b-rb-ra-rgr e-8<e-d->a-<a-c8 cr>e-efee-r ;
$C2B = a-e-<ce-a-re-r >g-e-<ce-a-rg-r >fd-<fa-<d-r>b-r fr $C2X $Ex12 d-rcr>b-r ;
$C2C = b-8a-ra-rgr g8fre-rd-r cr $C2Y $Ex10 < e-r>e- q7d-8c8 q16d-8.&d-4 ;

/* --- Start --- */
$ALL $CH2 /*@V0*/ $C20 /:$LOOP $C21 $C23 $C24 $C25 $C26 $C27 $C28 $C29 $C2A $C2B $C2C :/
;


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

$C3X = @X127 ; /* bass */
$C3Y = @X88  ; /* counter, back */

$E3a{v,w,x,y}   = $C3X q16 %v q9 $C3Y %w $C3X q16 %x $C3Y q9 %y ;
$E3b{v,w,x,y}   = /:%y $C3X q16 %v $C3Y q9 %w $C3X q16 %x $C3Y q9 %w :/ ;
$E3c{v,w,x,y,z} = $C3X q16 %v $C3Y %w16 %x16 $C3X %y $C3Y q9%z ;

$C30 = @13-12 $C3X @Q1 o3 l4 $Ex12 q16 a%28b-%20 e-&e-16 /:8 e- :/ e-2<e- ;

$C31 = o5 l8 $Lx10 $E3b{>>a-,<<c,>>e-,6} $E3a{>>b-,<<d-,>>f,<<d-} $E3a{>>d-,<<d-,>>f,<<d-} ;
$C33 = $E3a{>>e-,<<d-,>>g,<<d-} $E3a{>>b-,<<d-,>>e-,<<d-} $E3a{>>a-,<<c,>>e-,<<c} $E3a{>c,<e-,>>a-,<<c} ;
$C34 = $E3a{>>>b-,<<<d,>>d,<b-} $E3a{>f,<<d,>>b-,<<f} $C3X >>e- $C3Y <<e- q16d16 q9e- >q16b-16 q9e-> $C3X e-fg ;
$C38 = $E3a{>>>b-,<<<d,>>d,<b-} $E3a{>e-,<<d-,>>g,<<e-} l16 $C3X q16>>>a-a-< q9c8 $C3Y <q16e- q9d-8 q16c $C3X >a-re-<e->f<f>g<g ;

$C39 = l8 $E3c{>a-,<<c,>b-,q9>e-,<a-} $E3a{>a-,<<c,>c,<c} $E3c{>>b-,<<d-,c,>>g,<b-} $E3a{>e-,<<d-,>>g,<<d-} ;
$C3B = $E3c{>>e-,<b-,a-,>g,<g} $E3a{>b-,<<d-,>>e-,<<d-} $E3c{>>a-,<<c,>b-,>e-,<a-} $E3a{>a-,<<c,>>e-,<<c} ;
$C3C = $E3a{>>a-,<<c,>>b-,<<c} $E3a{>>b,<<c,>c,<e-} /:2 $E3a{>d-,<f,>>a-,<<d-} :/ $E3a{>e-,<c,>>a-,<<c} $E3a{>>e-,<<d-,>>g,<<d-} ;
$C3D = $C3X >>q16a- $C3Y <<q9c >q16c16 >q7b-a- $C3X <q16e-8.&e-4 ;

/* --- Start --- */
$ALL $CH3 $C30 /:$LOOP $C31 $C33 $C34 $C31 $C33 $C38 $C39 $C3B $C3C $C3D :/
;


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

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

$NB = @X120 @4@N121a; /* 88 */
$NA = @X80  @4@N118a; /* 8F */
$NG = @X48  @4@N114a; /* 92 */
$NF = @X56  @4@N110a; /* 9C */

$C5A = $Ex50 $NB $Ex51 $NA ;
$C5B = /:2 $Ex50 $NB $Ex51 / $NA16$NA16 :/ $NA ;

$C50 = l8 $Ex50 $NB. $NB%26$NF%22 /:3 $Ex51 $NA $Ex50 / $NF $NB.$NF16 $Ex51 $NA $Ex50 $NF $NB$NB16$NF16 :/ $NF4. $Ex51 $NA24$NA24$NA24 $Ex50 $NB4 ;

$C51 = /:29 $C5A :/ $NA16$NA$NA16 $NA16 $Ex50 $NB16$NB $Ex51 $NA$NA ;
$C55 = /:2 /:6 $C5A :/ $Ex50 $NB16$NG16$NG16 $Ex51 $NA16 $C5A :/ $C5A ; 
$C57 = /:12 $C5A :/ $NA16$NA$NA16 $Ex50 $NB$NB $Ex51 $NA$NA ;

$C59 = /:8 $C5B :/ ;
$C5B = /:14 $C5A :/ $Ex50 $NB16 $Ex51 $NA $NG16$NG16$NG16 $Ex50 $NB ;

/* --- Start --- */
$ALL $CH5 $C50 /:$LOOP $C51 $C55 $C57 $C59 $C5B :/
;