#TITLE Battle2/サイキックウォー (星をみるひと, FC) 修正
#ARTIST unknown
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT MML coded 1/28/2024 rev.1


/* Ini ====================================================================== */

$TEMPO = t149.12 ; /* T*60.09*60/round(L*60.09) , T=140time L=56.332sec */
                   /* %1=4.191ms , 1frame=%3.97 */
$RANGE = x0      ; /* linear dynamic range */
$NS    = ns0     ; /* note shift */
$LOOP  = 20      ; /* repeat */

$VSa = @V120 ; /* 2A03 SQR */
$VSb = @V120 ; /* 2A03 SQR */
$VTc = @V88  ; /* 2A03 TRI */

$DT0 = @D0   ; /* tune default */


/* Wave ===================================================================== */

#WAV13 0,80 86 86 86 86 86 86 86 86 86 86 86 87 96 96 96 96 96 96 96 96 96 95 95 95 9E A5 A5 A5 A5 A5 A5 A4 A4 A4 A4 A4 A5 B2 B3 B3 B3 B2 B2 B2 B2 B2 B1 B1 B1 B6 C0 C0 C0 BF BF BF BF BE BE BE BD BD CA CC CC CB CB CB CA CA CA C9 C9 C9 CC D7 D7 D6 D6 D6 D5 D5 D5 D4 D4 D3 D3 DD E1 E1 E0 E0 DF DF DF DE DE DD DD DE EA EA EA E9 E9 E8 E8 E7 E7 E6 E6 E6 ED F3 F2 F2 F1 F1 F0 F0 EF EF EE EE EE ED ED EC EC EB EB EA EA E9 E9 E9 E8 E2 D9 D9 D9 D8 D8 D7 D7 D7 D6 D6 D6 D5 C9 C6 C6 C6 C6 C5 C5 C5 C4 C4 C4 C4 C0 B5 B4 B4 B4 B4 B3 B3 B3 B3 B2 B2 B2 A7 A3 A3 A3 A2 A2 A2 A2 A2 A2 A2 A1 9F 92 92 92 92 92 92 91 91 91 91 91 91 88 81 81 81 81 81 81 81 81 81 81 81 80 72 72 72 72 72 72 72 72 72 72 72 72 6C 62 62 62 62 63 63 63 63 63 63 63 63 55 53 53 54 54 54 54 54 54 55 55 55 50 44 45 45 45 45 46 46 46 46 47 47 47 3A 36 36 37 37 37 38 38 38 39 39 39 37 28 28 29 29 2A 2A 2A 2B 2B 2B 2C 2C 21 1B 1B 1B 1C 1C 1D 1D 1D 1E 1E 1F 1E 0E 0D 0E 0E 0F 0F 10 10 11 11 12 12 0A 00 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 08 09 09 0A 0A 0B 0B 0C 12 20 20 21 21 21 22 22 23 23 23 24 24 33 37 38 38 38 39 39 39 39 3A 3A 3A 3E 4D 4D 4E 4E 4E 4E 4E 4F 4F 4F 4F 50 5B 62 62 62 62 62 62 62 62 63 63 63 65 74 74 74 75 75 75 75 75 75 75 75 75 /* 2A03 Tri */

#WAV13 1,80 F8 FF FF FF FE FE FD FD FC FC FB FA FA F9 F9 F8 F8 F7 F7 F6 F6 F5 F5 F4 F4 F3 F3 F3 F2 F2 F1 F1 F0 F0 EF EF EE EE ED ED EC EC EC EB EB EA EA E9 E9 E6 76 61 61 61 61 61 61 61 61 62 62 62 62 62 62 62 62 63 63 63 63 63 63 63 63 64 64 64 64 64 64 64 64 65 65 65 65 65 65 65 65 65 66 66 66 66 66 66 66 66 66 66 67 67 67 67 67 67 67 67 67 68 68 68 68 68 68 68 68 68 68 69 69 69 69 69 69 69 69 69 69 6A 6A 6A 6A 6A 6A 6A 6A 6A 6A 6A 6B 6B 6B 6B 6B 6B 6B 6B 6B 6B 6B 6B 6C 6C 6C 6C 6C 6C 6C 6C 6C 6C 6C 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 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 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 79 79 79 79 79 79 79 79 /* 2A03 Sqr 12.50 */

#WAV13 6,80 B9 B9 B9 B8 B8 B8 B8 B7 B7 B7 B7 B6 B6 B6 B6 B6 B5 B5 B5 B5 B4 B4 B4 B4 B4 B3 B3 B3 B3 B2 B2 B2 B2 B2 B1 B1 B1 B1 B1 B0 B0 B0 B0 B0 AF AF AF AF AF AE AE AE AE AE AD AD AD AD AD AD AC AC AC AC AC AB AB AB AB AB AA AA AA AA AA AA A9 A9 A9 A9 A9 A9 A8 A8 A8 A8 A8 A8 A7 A7 A7 A7 A7 A7 A6 A6 A6 A6 A6 A6 A5 A5 A5 A5 A5 A5 A5 A4 A4 A4 A4 A4 A4 A3 A3 A3 A3 A3 A3 A3 A2 A2 A2 A2 A2 A2 A2 A1 A1 A1 A1 A1 A1 A1 A1 A0 A0 A0 A0 A0 A0 A0 9F 9F 9F 9F 9F 9F 9F 9F 9E 9E 9E 9E 9E 9E 9E 9D 9D 9D 9D 9D 9D 9D 9D 9D 9C 9C 9C 9C 9C 9C 9C 9C 9B 9B 9B 9B 9B 9B 9B 9B 9B 9A 9A 9A 9A 9A 9A 9A 9A 9A 99 99 99 99 99 99 99 99 99 99 98 98 98 98 98 98 98 98 98 98 97 97 97 97 97 97 97 97 97 97 96 96 96 96 96 96 96 96 96 96 96 95 95 95 95 95 95 95 95 95 95 95 94 94 94 94 94 94 94 94 94 94 94 94 93 93 93 93 93 93 93 93 93 93 93 93 93 92 92 92 92 92 92 92 92 92 92 92 92 92 91 91 91 91 91 91 91 91 91 91 91 91 91 91 90 90 90 90 43 09 09 0A 0A 0B 0B 0C 0C 0D 0D 0E 0E 0F 0F 10 10 11 11 12 12 13 13 13 14 14 15 15 16 16 17 17 17 18 18 19 19 1A 1A 1A 1B 1B 1C 1C 1D 1D 1D 1E 1E 1F 1F 1F 20 20 21 21 21 22 22 23 23 23 24 24 25 25 25 26 26 26 27 27 28 28 28 29 29 29 2A 2A 2B 2B 2B 2C 2C 2C 2D 2D 2D 2E 2E 2E 2F 2F 2F 30 30 30 31 31 4C /* 2A03 Sqr 75.00 */


/* Extra ==================================================================== */

$TEMPO;

$Ex0   = @E1,0,0,127,0 ;
$ExSE0 = @X127 @E1,0,0, 120,1,120,0, 112,1,112,0, 96,1,96,0, 88,1,88,0, 72,1,72,0, 64,1,64,0, 48,1,48,0, 40,1,40,0, 24,1,24,0, 16,1,16,0, 8,8, 0,0 ;


/* SQRa ===================================================================== */

$Aa{a,b,c} = @13-6 @X64 %a%%b @13-1 $ExSE0 %a%%c $Ex0 ;
$Ab12{a}   = @13-6 @X64 %a%4 @13-1 $ExSE0 %a%8 $Ex0 ;

$a00  = q16 @Q0 $Ex0 ;
$a01  = r%768 ;
$a03  = o6 $Aa{c,32,16} $Ab12{d} $Ab12{e-} $Ab12{f} $Ab12{f+} $Aa{g,176,16} $Aa{f+,32,16} $Aa{d,32,16} $Aa{f,322,62} ;
$a05  = $Aa{c,32,16} $Ab12{d} $Ab12{f+} $Ab12{g} $Ab12{a} $Aa{b-,176,16} $Aa{a,32,16} $Aa{f+,32,16} ;
$a06  = $Aa{g+,322,62} ;
$a10  = $Aa{g+,322,14} $Aa{g+,32,16} ;
$a11  = o5 /: /: $Aa{g,80,16} $Aa{a-,80,16} :/ /:4 $Aa{a,32,16} $Aa{b-,32,16} :/ :/ ;
$a27  = o6 $Aa{g,176,16} $Aa{c,48,16} $Aa{e-,48,16} $Aa{g,48,16} $Aa{f,176,16} $Aa{d-,176,16} ;
$a29  = o6 $Aa{e-,176,16} $Aa{c,48,16} >$Aa{a-,48,16} <$Aa{c,48,16} ;
$a30  = $Aa{f,176,16} $Aa{d,176,16} ;
$a34  = $Aa{d,364,20} r%384 ;

$RANGE $NS $VSa $DT0 $a00
$a01
/:$LOOP /: $a03 $a05 $a06 $a03 $a05 $a10 $a11 :/
$a27 $a29 $a30 $a27 $a29 $a34 :/
;


/* SQRb ===================================================================== */

/* envelopes is shared with SQRa */
$Ba24{a}    = @13-6 @X64 %a%8 @13-1 $ExSE0 %a%16 $Ex0 ;
$Bb{a,b,c}  = @13-6 @X64 %a%%b r%%c ;

$b00  = q16 @Q0 $Ex0 ;
$b01  = r%768 ;
$b03  = o5 l8 r $Aa{g,32,16} rr $Aa{g,32,16} rrr ;
$b04  = $Aa{b-,32,16} rr $Aa{b-,32,16} rr $Aa{b-,32,16} r ;
$b06a = o6 $Aa{d,32,16} rr $Aa{d,32,16} rr ;
$b06b = $Aa{d,32,16} r ;
$b10b = rr ;
$b11  = l16 /: $Ba24{a-} $Ba24{g} r $Ba24{f} / $Aa{d-,32,16} :/ $Bb{d-,132,12} ;
$b12  = /: $Ba24{b-} $Ba24{a} r $Ba24{g} / $Aa{e-,32,16} :/ $Bb{e-,132,12} ;
$b27  = o6 $Aa{e-,176,16} >$Aa{g,48,16} <$Aa{c,48,16} $Aa{e-,48,16} $Aa{d-,176,16} $Aa{a-,176,16} ;
$b29  = o6 $Aa{c,176,16} >$Aa{a-,48,16} $Aa{f,48,16} $Aa{a-,48,16} ;
$b30  = <$Aa{c,176,16} >$Aa{b,80,16} $Ba24{g} $Ba24{b} <$Ba24{c} $Ba24{d} ;
$b34  = <$Bb{c,132,12} >$Ba24{b} $Ba24{a-} $Aa{b,80,16} $Aa{g,80,16} r%384 ;

$RANGE $NS $VSb $DT0 $b00
$b01
/:$LOOP /: /: $b03 $b04 $b03 $b06a / $b06b :/ $b10b $b11 $b12 $b11 $b12 :/
$b27 $b29 $b30 $b27 $b29 $b34 :/
;


/* TRIc ===================================================================== */

$c00 = @Q0 $Ex0 @13-0 ;
$c01 = o4 l8 q10 /:8 cc+ :/ ;
$c03 = o4 l8 q10 /:4 /:4 ce- :/ /:4 cc+ :/ :/ ;
$c12 = o3 l16 q6 /: a-a-rrrra-a-a-a-rrrra-a- b-b-rrrrb-b-b-b-rrrrb-b- :/ ;
$c27 = l8 q10 /: o4 /:8 c<c> :/ >/:6 a-<a-> :/ g<g>g<g> :/ ;
$c35 = o4 l16 q6 /:4 ccrc :/ ;

$RANGE $NS $VTc $DT0 $c00
$c01
/:$LOOP /: $c03 $c12 :/ $c27 $c35 :/
;