//
//"ガダンス(自動インプロ・バージョン)"
//copyright Hiroyasu Furukawa(furnotiz3n),2018

Tempo = 118;

//
トラック2
Channel(2);
Voice(73);
Chorus(80);

Array SFT=(0,0,0,0,0);
Array SFU=(0,0,0,0,0);
Array SFP=(0,0,0,0,0);
Array SFQ=(0,0,0,0,0);
Array SFR=(0,0,0,0,0);
Array SFS=(0,0,0,0,0);
Array PHA=(89,89,89,89,90,94,89,89,85,84,82);
Array PHB=(89,89,89,89,90,94,89,89,85,84,82);

Int i=0;
Int j=0;
Int LAST=0;

[5
SFT(j)=RandomSelect(-5,-4,-3,-2,2,3,4,5,6,7);
SFU(j)=RandomSelect(-5,-4,-3,-2,2,3,4,5,6,7);
SFP(j)=RandomSelect(0,1,2,3,4,5,6,7,8,9,10);
SFQ(j)=RandomSelect(0,1,2,3,4,5,6,7,8,9,10);
SFR(j)=RandomSelect(0,1,2,3,4,5,6,7,8,9,10);
SFS(j)=RandomSelect(0,1,2,3,4,5,6,7,8,9,10);
j++]

[3 l4 rrrr]
[5
l12 rrn(PHA(0)) 4 n(PHA(1)) n(PHA(2))r n(PHA(3)) n(PHA(4))r  n(PHA(5)) n(PHA(6))r  n(PHA(7)) n(PHA(8))r  n(PHA(9)) n(PHA(10)) 2
l12 rrn(PHB(0)) 4 n(PHB(1)) n(PHB(2))r n(PHB(3)) n(PHB(4))r  n(PHB(5)) n(PHB(6))r  n(PHB(7)) n(PHB(8))r  n(PHB(9)) n(PHB(10)) 4 ^^
l12   n77 n77r  n82 n82r  n84 n84r  n85 n85r  n89
l12       n77r  n82 n82r  n84 n84r  n85 n85r  n94
l12       n77r  n(PHA(10)) n(PHA(10))r  n(PHB(9)) n84r  n85 n85r  n(PHB(1))
l12       n77r  n82 n82r  n84 n84r  n85 n85r  n(PHA(5))

PHA(SFP(i))=PHA(SFP(i))+SFT(i)
PHA(SFQ(i))=PHA(SFQ(i))+SFU(i)
PHB(SFR(i))=PHB(SFR(i))+SFT(i)
PHB(SFS(i))=PHB(SFS(i))+SFU(i)

i=i+1
]

IF (PHA(5)>=PHB(5)){LAST = PHA(5)}Else{LAST = PHB(5)}

Array PHA=(89,89,89,89,90,94,89,89,85,84,82);
Array PHB=(89,89,89,89,90,94,89,89,85,84,82);

l12 rrn(PHA(0)) 4 n(PHA(1)) n(PHA(2))r n(PHA(3)) n(PHA(4))r  n(PHA(5)) n(PHA(6))r  n(PHA(7)) n(PHA(8))r  n(PHA(9)) n(PHA(10)) 2
l12 rrn(PHB(0)) 4 n(PHB(1)) n(PHB(2))r n(PHB(3)) n(PHB(4))r  n(PHB(5)) n(PHB(6))r  n(PHB(7)) n(PHB(8))r  n(PHB(9)) n(PHA(10)) 4 ^^
l12   n77 n77r  n82 n82r  n84 n84r  n85 n85r  n89
l12       n77r  n82 n82r  n84 n84r  n85 n85r  n94
l12       n77r  n82 n82r  n84 n84r  n85 n85r  n89
l12       n77r  n82 n82r  n84 n84r  n85 n85r  n(LAST)

//
トラック3
Channel(3);
Voice(107);

EP(108)
l4 rrr
l12 rrv(108)q(50)o4a#
[100
l12 v(84)q(80)o4a#^ v(105)a# v(78)q(50)a# r v(108)q(50)a#
]

//
トラック4
Channel(4);
Voice(59);
EP(108)
l4 rrrr
[50
l4 rrv(114)q(110)'o2a#o3a#'^
]

//
トラック9
Channel(9);
Voice(117);

l12 rrr o5frr 'o5fo6g'r<o5g rro4f
l12 o4cr'o4co6g' rro4f o4cr'o4fo6g' rr'o6g'
l12 o4cr'o4co6g' rro4f o4cr'o4fo6g' o6gr'o4co6g'

[6
l12 rro6g gr<g >grg rr<c rr'o4go6g' o6gr<g >grg rr<g
l12 rro6g gr<g >grg rr<c rr'o4go6g' o6gr'o4go6g' o6grg rr<g
l12 o3cr'o3co6g' o6gro4f o3cr'o4fo6g' o4fr'o3co6g'
l12 o3cr'o3co6g' o6gro4f o3cr'o4fo6g' o4fr'o3co6g'
l12 o3cr'o3co6g' o6gro4f rr'o4fo6g' o4fr'o3co6g'
l12 o3cr'o3co6g' o6gro4f o3cr'o4fo6g' o6gr'o3co6g'
]

//
トラック10
Channel(10);

Int KNP;
Int KNQ;

EP(127)
l4 rrrr
[200
KNP=RandomSelect(90,60);
KNQ=RandomSelect(95,65);
l12 v(KNP)o5g#^ v(KNQ)o5g#
]