//-----------------------------------------------
// No names
// (C)Yax
//-----------------------------------------------
ResetGM();
TrackName = {"No names"}
Copyright = {"Yax"}
r4
TrackSync;
Function ARP(Int D, Int L, Str S) {
Int LNG = L
Int STP = 0
Int TEMP = 0
Str X = ""
Str RS = ""
Str NS = ""
Int J = 0
Array NAR = ()
For(Int I = 1; I <= 100; I++ ){
X = MID(S,I,1)
J = ASC(X)
IF (X == "") {
EXIT
}
IF ( J >= 97 ) {
IF ( J <= 103 ) {
IF ( NS != "" ) {
NS = Replace(NS,{@-},{-@},off)
NS = Replace(NS,{@+},{+@},off)
NS = Replace(NS,{@#},{#@},off)
NS = Replace(NS,{@*},{*@},off)
NAR = (NAR,NS)
NS = ""
}
X = X + "@"
}
}
NS = NS + X
}
IF ( NS != "" ) {
NS = Replace(NS,{@-},{-@},off)
NS = Replace(NS,{@+},{+@},off)
NS = Replace(NS,{@#},{#@},off)
NS = Replace(NS,{@+},{*@},off)
NAR = (NAR,NS)
NS = ""
}
For(Int I=0;I<SizeOf(NAR);I++){
TEMP = L - STP
RS = "r%" + #STR(STP)
NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
Sub{ RS NS }
STP = STP+D
}
r%(L)
}
Function DANDO(B, E, LEN, STP) {
Int _STEP = 24
Int _DIFF = 0
Int _CNT = 0
Int _TMP = 0
Int _LAP = 0
IF( STP != 0 ) {
_STEP = STP
}
_CNT = LEN/_STEP
_DIFF = (E - B)/_CNT
_TMP = B
Tempo = %(B)
For(Int I = 1; I < _CNT; I++ ){
r%(_STEP)
_TMP = _TMP + _DIFF
Tempo = %(_TMP)
_LAP = _LAP + _STEP
}
r%(LEN-_LAP)
Tempo = %(E)
r-%(LEN)
}
// 全体の調整
TR(1) V(110) REV(30) CHO(10) @2
TR(2) V(108) REV(40) CHO(10) @2
Tempo=90
Key(0)
//------------------------------------
// Track 1 :
//------------------------------------
TR(1) CH(1) P(74)
l8 v90
o3
q90
v(MML(v)-17)
'f+1<f+1>'
'e1<e1>'
'd1<d1>'
'e1<e1>'
'f+1<f+1>'
'e1<e1>'
'd1<d1>'
q100 'e1<e1>' r-2. Tempo=48 r2 Tempo=30 r4 Tempo=110
v(MML(v)+17)
[2
q90
[2
y64,1; f+a>d2< y64,0;
y64,1; f+b>e2< y64,0;
y64,1; f+>c+f+2< y64,0;
y64,1; eb>e2< y64,0;
y64,1; da>d2< y64,0;
y64,1; eb>e2< y64,0;
y64,1; f+>c+f+2< y64,0;
y64,1; g+b>e2< y64,0;
]
[2
y64,1; a4.>e4c+< y64,0;
y64,1; d4>d4c+<b y64,0;
y64,1; a4.>c+<f+g y64,0;
y64,1; g+4b4e4 y64,0;
y64,1; d4.f+4a y64,0;
y64,1; e4b4ag+ y64,0;
y64,1; f+4.a4d y64,0;
y64,1; e4g+4b4 y64,0;
]
:
y64,1; da>df+ v(MML(v)-10) a> v(MML(v)-10) f+1^4. y64,0;< v(MML(v)+20)
v(MML(v)-40)
a2.
g+2.
e2.
f2.
>
'f+2.<a2.>'
'f+2.<g+2.>'
'g+2.<e2.>'
'g+2.<f2.>'
v(MML(v)+10)
'f+2.<a2. f+2.>'
'f+2.<b2. g+2.>'
'g+2.<e2. g+2.>'
'g+2.<f2. g+2.>'
v(MML(v)+10)
'f+2.<a2. f+2.<a2.>>'
'f+2.<b2. g+2.<b2.>>'
'g+2.<e2. g+2.<e2.>>'
'g+2.<f2. g+2.<f2.>>'
v(MML(v)+10)
<
v(MML(v)-10)
'a1^1f+1^1e1^1c+1^1<f+1^1'
v(MML(v)+20)
]
y64,1; da>df+ v(MML(v)-10) a> v(MML(v)-10) f+1^4. y64,0;< v(MML(v)+20)
v(MML(v)-10)
y64,1; '<a1f+1<f+1>>'
v(MML(v)-10)
y64,1; '<a1d1^1<d1>>'
v(MML(v)-10)
y64,1; '<g+1e1^1<e1>>'
v(MML(v)-10)
y64,1; '<a1f1^1<f1>>'
v(MML(v)+30)
[4
[2
y64,1; v(MML(v)+10)'<f+1^1<f+1^1>>' v(MML(v)-10) r-1^1
>rr'f+<a>' v(MML(v)-10)e d v(MML(v)+10)'g+e'v(MML(v)-10)f+e v(MML(v)+10)'ae'v(MML(v)-10)g+f+v(MML(v)+10)'g+e' v(MML(v)-10)f+edg+< v(MML(v)+10) y64,0;
y64,1; v(MML(v)+10) '<f+1^1<f+1^1>>' v(MML(v)-10) r-1^1
>rr'f+<a>'v(MML(v)-10)e d v(MML(v)+10)'g+e'v(MML(v)-10)f+e v(MML(v)+10)'ae'v(MML(v)-10)g+f+v(MML(v)+10)'bg+' v(MML(v)-10)ag+f+e< v(MML(v)+10) y64,0;
y64,1; v(MML(v)+10) '<d1^1<d1^1>>' v(MML(v)-10) r-1^1
>rr'f+d'v(MML(v)-10)e d v(MML(v)+10)'g+d'v(MML(v)-10)f+e v(MML(v)+10)'af+'v(MML(v)-10)g+f+v(MML(v)+10)'g+d' v(MML(v)-10)f+ef+g+ < v(MML(v)+10) y64,0;
:
y64,1; v(MML(v)+10) '<e1^1<e1^1>>' v(MML(v)-10) r-1^1
>rr'e<b>'v(MML(v)-10)f+ g+v(MML(v)+10)'f+d'v(MML(v)-10)g+a v(MML(v)+10)'g+e'v(MML(v)-10)a>c+<b 'ad'g+'ae'e < v(MML(v)+10) y64,0;
]
y64,1; v(MML(v)+10) '<e1^1<e1^1>>' v(MML(v)-10) r-1^1
>rr'e<b>'v(MML(v)-10)f+ g+v(MML(v)+10)'f+d'v(MML(v)-10)g+a v(MML(v)+10)'g+e'v(MML(v)-10)a>c+<b 'ad'g+ab < v(MML(v)+10) y64,0;
]
v(MML(v)-10) <
[2
'f+1<f+1>'
'e1<e1>'
'd1<d1>'
:
'e1<e1>'
]
'e1.<e1.>'
y64,1; <f+>c+a>c+g+1. y64,0;
v(MML(v)-15)
'<f+1.<f+1.'
r2
//------------------------------------
// Track 2 :
//------------------------------------
TR(2) CH(2) P(54)
l8 v98
o6 q88
v(MML(v)-20)
ARP(1,!1,{a>ef+<})
ARP(0,!1,{a>df+<})
ARP(1,!1,{g+>c+f+<})
ARP(0,!1,{g+b>de<})
ARP(1,!1,{a>ef+<}) r-^2 v(MML(v)-20) >a^2< v(MML(v)+20)
ARP(0,!1,{a>df+<}) r-^2 v(MML(v)-20) >b^2 r-4 g+4< v(MML(v)+20)
ARP(1,!1,{g+>c+f+<}) r-^2 v(MML(v)-20) >a^2< v(MML(v)+20)
ARP(8,!1,{g+b>de<}) r-2. v(MML(v)-20) r>g+8.b4.^16<
v(MML(v)+40)
[2
EP(110)
o5
y64,1; rr'g+e'd'af+'d y64,0;
y64,1; rr'ae'e'bf+'e y64,0;
y64,1; '>c+<a'f+'bf+'f+'ae'c+ y64,0;
y64,1; 'bg+'d'af+'d'g+e'<b> y64,0;
y64,1; 'g+e'def+>dc+< y64,0;
y64,1; 'be'g+ef+g+e y64,0;
y64,1; [2 'f+c+'<a>] 'g+e'<b> y64,0;
y64,1; [2 'g+e'c+] 'ae'c+ y64,0;
y64,1; rr'g+e'd'af+'d y64,0;
y64,1; rr'ae'e'bf+'e y64,0;
y64,1; 'ae'f+g+ abg+ y64,0;
y64,1; 'bg+'>f+e 'd<g+>'c+'d<a' y64,0;
y64,1; 'bg+'eg+b>ed y64,0;
y64,1; 'c+<a>'de 'e<b>'f+g+ y64,0;
y64,1; 'g+e''a4e4''f+4c+4'c+ y64,0;
'e2.<b2.>'
EP(115)
y64,1; 'e2c+2'dc+ y64,0;
y64,1; 'd2<b2>'c+<b y64,0;
y64,1; 'a4f+4'>'a4.d4.' f+ y64,0;
y64,1; 'g+2e2'e4 y64,0;
y64,1; 'f+4.d4.'f+ed y64,0;
y64,1; 'e2c+2'dc+< y64,0;
y64,1; v(MML(v)-18) ARP(3,!2.,{df+b}) y64,0; r-4 f+4
y64,1; v(MML(v)+9) ARP(1,!2.,{<b>eg+}) v(MML(v)+9) y64,0; r-4. b4.
>
y64,1; 'e2c+2'dc+ y64,0;
y64,1; 'f+2d2'ef+ y64,0;
y64,1; 'g+4c+4''a4d4''b4e4' y64,0;
y64,1; 'b2f+2'ag+ y64,0;
y64,1; 'a4.f+4.'ag+f+ y64,0;
y64,1; 'g+4e4'>'d4<a4'>c+<b y64,0;
'>c+2.<a2.'
'b2.g+2.'<
:
DANDO(110,40,!1^1,!8) ARP(4,!1^1,{b>c+f+}) v(MML(v)-10) r-1 g+1 r-2 v(MML(v)-10) a2 r-4 v(MML(v)-10) b4
v(MML(v)+30)
EP(120)
Tempo=110
v(MML(v)-15)
[2
y64,1; f+c+def+4 y64,0;
y64,1; f+def+g+4 y64,0;
y64,1; g+eff+g+4 y64,0;
:
y64,1; g+ff+g+ba y64,0;
]
y64,1; g+ff+g+ab y64,0;
v(MML(v)+8)
[2
y64,1; f+c+def+4 y64,0; r-2. a4f+g+a4
y64,1; f+def+g+4 y64,0; r-2. a4g+ab4
y64,1; g+eff+g+4 y64,0; r-2. b4g+ab4
:
y64,1; g+ff+g+ba y64,0; r-2. b4ab>dc+<
]
DANDO(110,80,!2.,!8) y64,1; g+ff+g+ab y64,0; r-2. b4ab>c+d<
Tempo=80
v(MML(v)-7)
ARP(!32,!1^1,{<a>c+eg+}) r-1 v(MML(v)-15) a1 r-2 v(MML(v)-15) b2 v(MML(v)+30)
Tempo=110
v(MML(v)+14)
]
DANDO(110,40,!1^1,!8) ARP(4,!1^1,{b>c+f+}) v(MML(v)-10) r-1 g+1 r-2 v(MML(v)-10) a2 r-4 v(MML(v)-10) b4
Tempo=70
EP.onTime(110,90,!1^1^1^1)
r4. ARP(1,!2^8,{f+a>c+<})
r4. ARP(0,!2^8,{ea>d<})
r4. ARP(1,!2^8,{eg+b})
Tempo=50
r4. ARP(2,!2^8,{fab>c+d})
Tempo=138
[8 r1]
v(MML(v)+30)
EP(127)
v(MML(v)-10)
y64,1; c+1e2..e16d16 c+1f+2.<a4 y64,0;
y64,1; b1>e2..e16d16 c+2b4.a+16a16'g+1c+1' y64,0;
v(MML(v)+5) <
y64,1; rrrc+f+g+4.'a4f+4'g+f+4c+4. y64,0;
y64,1; rrrc+f+g+4.'a4f+4'g+b4ag+e y64,0;
y64,1; 'f+d'ef+g+ 'af+'g+ab '>c+<a'ba'b4g+4' ag+d y64,0;
y64,1; 'ec+'de'f+4d4'ef+'g+4e4' f+g+'a4f+4' g+f+e y64,0;
y64,1; r'>c+<a''>d<b''>ec+<'r'a4f+4''b4g+4' bag+ag+f+e y64,0;
y64,1; 'f+4.c+4.''>c+4.<a4.''a4f+4' 'b4g+4'ba bag+e y64,0;
y64,1; 'f+d'ef+g+ 'af+'g+ab '>c+2<a2' >c+<ba>e y64,0;
y64,1; 'c+2<a2>'c+<ba>e 'c+2<g+2'bag+e y64,0;
y64,1; rrrc+f+'g+4.e4.' 'af+'g+f+'be'ag+'f+d'g+ y64,0;
y64,1; 'af+'>c+<ba>'ec+'dc+d c+<bab 'ae'g+f+e y64,0;
y64,1; 'f+d'a>'c+<a>''c+4<a4>''c+<e>''c+<e>''c+2.<e2.>'e4d+16d16 y64,0;
y64,1; 'c+2..<g+2..'b16a16'g+1e1' r-2 v(MML(v)-10)'>e2<b2'v(MML(v)+10) y64,0;
y64,1; r'>c+<a''>d<b''>ec+<'r'a4f+4''b4g+4' b>bag+f+ed< y64,0;
y64,1; '>c+<c+''f+4c+4''>c+4.<a4.''a4f+4' 'b4g+4'b>c+< bag+a y64,0;
y64,1; 'f+d'ef+g+ 'af+'g+ab '>c+4.<a4.' a>c+<ba>e y64,0;
y64,1; 'c+2<a2>'c+<ba>e 'c+2<g+2'b>c+de y64,0;
EP.onTime(127,80,!1^1)
y64,1; f+c+e<b> d<a>c+<g+ bag+f+ ag+ba y64,0;
EP.onTime(80,127,!1^1)
y64,1; g+f+ea g+f+ba g+>c+<ba >dc+<ba y64,0;
EP.onTime(80,127,!1^1)
y64,1; [2 'g+d' v(MML(v)-10)dv(MML(v)+10)] [2 'af+'v(MML(v)-10)ev(MML(v)+10)] [2 'bf+'v(MML(v)-10)f+v(MML(v)+10)] [2 'ae'v(MML(v)-10)ev(MML(v)+10)] y64,0;
EP(127)
y64,1; '>c+<a'a '>c+<f+'f+ 'bg+'g+ 'be'e '>c+<a'a >c+<b ag+ae y64,0;
y64,1; 'f+c+'>c+<a>f+4c+'a^2c+^2'ag+f+ed y64,0;
y64,1; 'c+<a'f+4'f+4c+4' ef+'g+4e4' f+g+'a4f+4' 'g+e'ab y64,0;
EP.onTime(90,127,!1)
y64,1; [4 '>c+<f+'][3 '>c+12<f+12'][4 '>c+16<f+16'] '>c+2<f+2' r '>e4.<a4.' y64,0;
y64,1; '>c+2<a2' DANDO(138,110,!1,!8)'>c+<a'ba>e c+<abg+ af+eg+ y64,0;
v(MML(v)+5)
v(MML(v)-20)<
[2
ARP(1,!1,{a>ef+<})
ARP(0,!1,{a>df+<})
ARP(1,!1,{g+>c+f+<})
:
ARP(0,!1,{g+b>de<})
>
DANDO(110,80,!1^1^1^1)
]
y64,1; ARP(0,!1.,{g+b>de<}) y64,0;
<
DANDO(80,50,!1^1)
v(MML(v)-12)
y64,1; ARP(!32,!1^1,{a>c+eg+}) r-1 v(MML(v)-15) a1 r-2 v(MML(v)-15) b2 v(MML(v)+30) y64,0;