#TITLE パラソルスター(PC Engine) / TRACK04(ボス)
#ARTIST YASUKO, TURBO MIRA
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT MML coded: 2014/4/26 rev.0


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

/* 調整可 @V0(silent)～127(max) */
/*         melody */  $CH1 = @V104 ; 
/*  counter, back */  $CH2 = @V72 ;
/*           bass */  $CH3 = @V112 ;
/*  melody(delay) */  $CH4 = @V28 @P88 ;
/*          noise */  $CH5 = @V64 ;


/* 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 15,80 6F 6F 6F 6F 6F 59 43 43 43 43 43 3D 1F 1F 1F 1F 20 20 14 11 11 12 12 12 0D 0B 0B 0B 0B 0B 0F 13 13 13 13 13 17 29 29 2A 2A 2A 2A 12 0D 0D 0D 0D 0E 13 15 15 15 15 16 3C 8A 8A 8A 8A 8A 83 5E 5E 5E 5E 5E 5F 9B A7 A7 A7 A7 A7 82 66 66 66 66 66 79 A0 A0 A0 A0 A0 A7 CB CB CB CB CB CB B3 AE AE AE AE AD 9B 89 89 89 89 89 8E 98 97 97 97 97 9F C3 C3 C3 C3 C3 C3 C8 CA CA CA C9 C9 BE B3 B3 B3 B3 B3 C2 DF DF DE DE DE DF E5 E5 E5 E5 E5 E5 DB D6 D6 D6 D6 D6 C7 B8 B8 B8 B8 B8 AE 9B 9B 9B 9B 9B 9B A7 A9 A9 A9 A9 A9 9A 93 93 93 93 93 8C 84 84 84 84 84 7A 60 60 60 60 60 60 79 7D 7D 7D 7D 7D 9A A9 A9 A9 A9 A9 8C /* 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 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 */


/* basic macro */

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


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

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

$T8A{a} = %a%26r%22 ;

$C10 = @13-16 $Ex10 $Lx10 q16 @Q1 ;
$C11 = o6 l16 @X96 df%20r%4rffdfg fdff8.g8 ;
$C12 = fa%20r%4raafga fedc>a4 ;
$C13 = o6 l8 @X127 d$T8A{e}$T8A{f}$T8A{g} a4g%7f%4e%7>a%78 ;
$C14 = b-<$T8A{a}$T8A{g}$T8A{f} e$T8A{d}$T8A{c}$T8A{d} ;
$C15 = >a2.ra ;
$C18 = >a2.r4 ;
$C19 = o6 g$T8A{a}$T8A{b-}$T8A{g} f$T8A{g}$T8A{a}$T8A{f} ;
$C1A = e$T8A{f}$T8A{g}$T8A{e} d$T8A{e}$T8A{f}$T8A{d} ;
$C1B = e2 re16f16ed16c16 ;
$C1C = d16c16d&d2r4 ;
$C1G = f16e16d&d4.r>a4 ;

/* --- Start --- */
$ALL $ALLT $CH1 $C10 /:$LOOP $C11 $C12 /:2 $C13 $C14 $C15 $C13 $C14 $C18 $C19 $C1A $C1B $C1C $C19 $C1A $C1B $C1G :/ :/
;

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

$C40 = @13-15 $Ex10 $Lx10 q16 @Q1 ;
$C41 = r1 ;
$C42 = o4 r2.a4 ; /* 謎の音 */

$ALL $ALLT $CH4 r%38 $C40 /:$LOOP $C41 $C42 /:2 $C13 $C14 $C15 $C13 $C14 $C18 $C19 $C1A $C1B $C1C $C19 $C1A $C1B $C1G :/ :/
;

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

$T8B{a} = %a%20r%28 ;

$C20 = @13-15 $Ex10 $Lx10 q16 @Q1 ;
$C21 = o5 l16 a<d%20r%4rdd>a<de d>a<dd8.e8 ;
$C22 = cf%20r%4rffcef >agfe<c4 ;
$C23 = o4 l16 /:2 a<$T8B{d}dd8>$T8B{a} :/ ;
$C24 = b-<$T8B{f}ff8$T8B{d} c$T8B{g}gg8$T8B{e} ;
$C25 = f$T8B{a}a$T8B{a}de fgab-<c%15d%18c%15>b-a ;
$C29 = o6 l8 e$T8A{f}$T8A{g}$T8A{e} d$T8A{e}$T8A{f}$T8A{d} ;
$C2A = c+$T8A{d}$T8A{e}$T8A{c+} >b-<$T8A{c}$T8A{d}>$T8A{b-} ;
$C2B = l8 <c>$T8A{a}e%18f%18e%19d+%19e%22 <c>$T8A{e}<c> l16 b-a ; /* l8消しちゃらめ */
$C2C = fed>a<defg afga8.f8 ;
$C2D = >b-ab-g<g8$T8A{e} >ag+af<f8$T8A{d} ;
$C2E = >ag+ae<c+8>$T8A{a} b-ab-f<d8$T8A{b-} ;
$C2G = fed>a<defg afgaf4 ;

/* --- Start --- */
$ALL $ALLT $CH2 $C20 /:$LOOP $C21 $C22 /:2 $C23 $C24 $C25 $C23 $C24 $C25 $C29 $C2A $C2B $C2C $C2D $C2E $C2B $C2G  :/ :/
;


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

$Ex30 = @E1, 0,0,  127,6,  64,18,  32,0 ; 

$T3A{a,b,c} = %a%70%a%26%b8%c8 ;
$T3B{a,b,c} = %a%70%a%26%b8%c8 %a%70%a%26%b8%c8 ;

$C30 = @13-16 $Ex30 q16 @Q1 ;
$C31 = o3 d8r2.. ;
$C32 = $T3B{o3f,a,<c} ;
$C33 = o3 $T3B{d,f,a} ;
$C34 = > $T3A{b-,<d,f} $T3A{c,e,g} ;
$C39 = o3 $T3A{g,b-,<d} > $T3A{d,f,a} ;
$C3A = > $T3A{a,<c+,e} > $T3A{b-,<d,f} ;
$C3B = $T3B{o2a,<c,e} ;

/* --- Start --- */
$ALL $ALLT $CH3 $C30 /:$LOOP $C31 $C32 /:2 $C33 $C34 $C32 $C33 $C34 $C32 /:2 $C39 $C3A $C3B $C33 :/ :/ :/
;


/* =-=-=-=-=- 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 $Ex50 @4@N121a; /* 88 */
$NA  = @X72  $Ex51 @4@N117a; /* 8F */
$NG  = @X96  $Ex50 @4@N113a; /* 92 */
$NF  = @X40  $Ex50 @4@N80a;  /* 9C */

$C5X0= $NB$NF$NF$NA$NB$NF$NG$NF ;
$C5X1= $NB$NF$NF$NA$NB$NF$NB8 ;
$C51 = l16 $NB8$NF4$NF8 $NA$NA$NA$NA8.$NA8 ;
$C52 = $C5X0 $NB$NF$NF$NB$NG$NG$NG$NG ;
$C53 = $C5X1 $C5X0 ;
$C54 = $C5X1 $NB$NF$NF$NA$NF%15$NF%15$NF%18$NG8 ;

/* --- Start --- */
$ALL $CH5 /:$LOOP $C51 $C52 /:2 /:2 $C53 $C53 $C54 :/ /:8 $C53 :/ :/ :/
;