#TITLE 戦闘 (ドラゴンクエスト, FC) 再
#ARTIST Koichi Sugiyama
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT MML coded 03/24/2024 rev.1


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

                   /* TEMPO = T*60.09*60/round(L*60.09) */
$TEMPO = t120.18 ; /* T=40time, L=19.970sec, %1=5.200msec, 1frame=%3.20 */

$RANGE = x0      ; /* linear dynamic range */
$NS    = ns0     ; /* note shift */
$LOOP  = 54      ; /* repeat */

$VSa = @V120     ; /* 2A03 SQR */
$VTc = @V90      ; /* 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 2,80 F3 F7 F6 F6 F5 F5 F4 F4 F3 F3 F2 F2 F1 F1 F0 F0 F0 EF EF EE EE ED ED EC EC EB EB EB EA EA E9 E9 E8 E8 E7 E7 E7 E6 E6 E5 E5 E4 E4 E4 E3 E3 E2 E2 E2 E1 E1 E0 E0 DF DF DF DE DE DE DD DD DC DC DC DB DB DA DA DA D9 D9 D9 D8 D8 D7 D7 D7 D6 D6 D6 D5 D5 D5 D4 D4 D4 D3 D3 D2 D2 D2 D1 D1 D1 D0 D0 D0 CF CF CE 63 47 47 48 48 48 48 48 49 49 49 49 4A 4A 4A 4A 4B 4B 4B 4B 4B 4C 4C 4C 4C 4D 4D 4D 4D 4D 4E 4E 4E 4E 4E 4F 4F 4F 4F 4F 50 50 50 50 50 51 51 51 51 51 52 52 52 52 52 53 53 53 53 53 54 54 54 54 54 54 55 55 55 55 55 56 56 56 56 56 56 57 57 57 57 57 57 58 58 58 58 58 58 59 59 59 59 59 59 5A 5A 5A 5A 5A 5A 5B 5B 5B 5B 5B 5B 5B 5C 5C 5C 5C 5C 5C 5D 5D 5D 5D 5D 5D 5D 5E 5E 5E 5E 5E 5E 5E 5F 5F 5F 5F 5F 5F 5F 60 60 60 60 60 60 60 60 61 61 61 61 61 61 61 61 62 62 62 62 62 62 62 63 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 67 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 6C 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 71 /* 2A03 Sqr 25.00 */


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

$xVF = @E1,0,0, 120,0 ;

/* EF(127step) */
$xEF = @E1,0,0, 120,8,120,0, 112,9,112,0, 104,8,104,0, 96,9,96,0, 88,8,88,0, 80,9,80,0, 72,8,72,0, 64,9,64,0, 56,8,56,0, 48,9,48,0, 40,8,40,0, 32,9,32,0, 24,8,24,0, 16,9,16,0, 8,8,8,0, 0,0 ;

/* VF(64step) + EF(73step) */
$xE001 = @E1,0,0, 120,64,120,0, 72,5,72,0, 64,9,64,0, 56,8,56,0, 48,9,48,0, 40,8,40,0, 32,9,32,0, 24,8,24,0, 16,9,16,0, 8,8,8,0, 0,0 ;


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

$Aa192{a,b} = $xE001 %a%160 $xEF %b ;

$a00 = q16 @Q0 ;
$a01 = $TEMPO @13-2 o5 $xEF l64 /: cega+<c+ega+<c+>a+gec>a+ge :/ c4. c16c+16d16e16 ;
$a02 = l48 $Aa192{f,gg+aa+} $Aa192{b,f+gg+a} $Aa192{b-,ff+gg+} $Aa192{a,g+aa+b} ;
$a04 = $Aa192{<c,>f+gg+a} $Aa192{b-,f+gg+a} $Aa192{b-,ff+gg+} $Aa192{a,d+eff+} ;
$a06 = $Aa192{g,<c+dd+e} $Aa192{f,cc+dd+} $Aa192{e,>b<cc+d} $Aa192{d+,>b<cc+d} ;
$a08 = $Aa192{e-,>a+b<cc+} $Aa192{d,>aa+b<c} $Aa192{c+,>a+b<cc+} $Aa192{d,d+eff+} ;
$a10 = l12 gdgg-e-g- fdfed-e e-c>ag- e-cc+>e gb-<c+e ;

$RANGE $NS $VSa $DT0 $a00
$a01 /:$LOOP $a02 $a04 $a06 $a08 $a10 :/
;

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

$c00 = @Q0 $xVF @13-0 ;
$c01 = o4 q16 l64 /: c&e&g&a+&<c+&e&g&a+&<c+&>a+&g&e&c&>a+&g&e& :/ c%38r%106 c16&c+16&d16&e16 ;
$c02 = l16 q8 o4 fa-<crrrdr >fa-brrr<dr >gb-<d-rrrer >e-g-arrr<cr ;
$c04 = >g<ce-rrrgr >e-g<d-rrrer >g-b-<drrrg-r >dg-arrr<dr ;
$c06 = >gb-<drrrer >gb<drrrfr >cgb-rrr<d-r >fg-arrr<cr ;
$c08 = >>b-<fa-rrr<e-r >>b-<fa-rrr<dr >>a<egrrrb-r d g-arrr<dr ;
$c10 = q16 b-%13r%19 g%13r%19 b-%13r%19 a%13r%19 g-%13r%19 a%13r%19 a-%13r%19 f%13r%19 a-%13r%19 g%13r%19 e%13r%19 g%13r%19 ;
$c11 = g-%13r%19 a%13r%19 g-%13r%19 e-%13r%19 c%13r%19 >a%13r%19 b-%13r%19 d-%13r%19 e%13r%19 g%13r%19 b-%13r%19 <c+%13r%19 ;

$RANGE $NS $VTc $DT0 $c00
$c01 /:$LOOP $c02 $c04 $c06 $c08 $c10 $c11 :/
;