Tempo 180

Int RANDON=1
Int KYOKUTANNISURU=0	// ※めちゃくちゃへたくそに演奏するなの

System.TimeBase=10368

Int CYMINIT=1

Function Cymbal() {
	Int CC
	IF(CYMINIT=0) {
		CC=CrashCymbal1
		CYMINIT=1
	} ELSE {
		CC=CrashCymbal2
		CYMINIT=0
	}
	Result=CC
}

Function RandV(Int MIN, Int MAX) {
	Str MML="v"
	IF(KYOKUTANNISURU=1) {
		MIN=64
	}

	IF(RANDON=1) {
		MML=MML+Random(MIN,MAX)
//		Print(MML)
	} ELSE {
		MML=MML+MAX
	}
	MML
}

Str RMML
Function RandR(Int MIN, Int MAX) {
	Str MML
	IF(RANDON=1) {
		MML=MML+"r"
		RMML=RMML+"r"
		Int VALUE=Random(0,10)
		IF(VALUE<5) {
			MML=MML+"-"
		} ELSE {
			RMML=RMML+"-"
		}
		Str RAND=Random(MIN,MAX)
		MML=MML+RAND
		RMML=RMML+RAND
//		Print(MML)
		MML
	}
}

Function SyncR() {
	Str MML=RMML
	RMML=""
//	Print(MML)
	MML
}

TR(10)
	Voice(1)
	$k{Sub{RandR(999,1728) RandV(124,127) n(Sticks),16}r} //37
	$B{Sub{RandR(999,1728) RandV(124,127) n(Kick2),16}r}//35
	$b{Sub{RandR(999,1728) RandV(124,127) n(Kick1),16}r}//36
	$S{Sub{RandR(999,1728) RandV(120,127) n(Snare2),16}r}//40
	$s{Sub{RandR(999,1728) RandV(120,127) n(Snare1),16}r}//38
	$L{Sub{RandR(999,1728) RandV(123,127) n(LowTom2),16}r}//41
	$l{Sub{RandR(999,1728) RandV(123,127) n(LowTom1),16}r}//43
	$M{Sub{RandR(999,1728) RandV(123,127) n(MidTom2),16}r}//45
	$m{Sub{RandR(999,1728) RandV(123,127) n(MidTom1),16}r}//47
	$T{Sub{RandR(999,1728) RandV(123,127) n(HighTom2),16}r}//48
	$t{Sub{RandR(999,1728) RandV(123,127) n(HighTom1),16}r}//50
	$p{Sub{RandR(999,1728) RandV(110,127) n(PedalHiHat),16}r}//44
	$h{Sub{RandR(999,1728) RandV(115,127) n(ClosedHiHat),16}r}//42
	$o{Sub{RandR(999,1728) RandV(120,127) n(OpenHiHat),16}r}//46
	$r{Sub{RandR(999,1728) RandV( 85,100) n(RideCymbal1),16}r}//51
	$R{Sub{RandR(999,1728) RandV(120,127) n(RideBell),16}r}//53
	$i{Sub{RandR(999,1728) RandV( 85,95)  n(MuteHighConga),16}r}//62
	$I{Sub{RandR(999,1728) RandV(120,127) n(OpenHighConga),16}r}//63
	$c{Sub{RandR(999,1728) RandV(120,127) n(Cymbal()),16}r}//49
	$C...(続く)...