//_得体の知れない設定（INT HOGE={0}の、数字を変更してください）。
INT HOGE=０
//_得体の知れない設定（繰り返す回数の設定）。
~{くりかＳ}={[２}

/*
1.お笑いのための粉の準備
2.うどん粉の無駄遣い
3.うどん粉で粉だらけになりし者の末路
4.あまりにもあんまりだ
それ以外:全部

*/



/*
製品名：短いことはいいことだ
製造年月日：長い年月
ジャンル：詰め合わせ

本製品を使用して、アレルギー症状や耳の損傷または、
伝わりきれないくらいの感動を覚えた等の精神疾患があらわれた場合、
ただちに使用を中止して、医師と相談してください。

コピー・改変・転載・商用利用可能
ありとあらゆる教育目的・強制への使用は不許可。

なお、いやがる人に無理やり聞かせたり、大音量で鳴らしたり等の迷惑行為は、
傷害罪に問われ、刑事罰の対象となります。

調整機材：VSC、MicrosoftGSwavetable
*/




//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
読む(gs.h);
読む(delay.h);
作者{"世界合唱撲滅教団　矢部ソーダ"}



STR AA={
TrackName={"お笑いのための粉の準備"};             //タイトル
TimeSignature=4,4;           //拍子記号の設定
Tempo(120);                  //テンポの設定
System.MeasureShift = 1;     //(弄らないこと)
ResetGS;      //音源初期化命令
TR=10 GS_RHYTHM(1)
TR=11 GS_RHYTHM(2)
r2
TrackSync;                   //全てのトラックを同期する

くりかＳ
REV(0)
CHO(0)
TR=10
v80 l16
BR(3)
p%=-8191

音色(StandardSet)
た1-8ろ8
た1-4たたむろ
た1-8ろ8
た1-2たたたたっ「たと」「たむ」「たろ」




TR=1
REV(0)
CHO(0)
q99 v53 o6 l16
音色(OverdrivenGuitar)
[2
'e"a'rr'e"a'rr'e"a'rr'e"a'^r'e"a'rrr
'e"a'rr'e"a'rr'e"a'rr'e"a'^r'e"a'r'e"a'r
]



TR=2
REV(60)
CHO(0)
q80 v60 o7 l16
//音色(GuitarHarmonics)音色=(SquareLead),1
音色(ElectricPiano1)
"a^a^"a"a^"a^"a"a^"g"ac"a
"a^a^"a"a^"a^"a"a^"g"ac"a
"a^a^"a"a^"a^"a"a^"g"ac"a
"a^a^"a"a^"a^"a"a^"g"acd


TR=3
REV(40)
CHO(0)
q99 v90 o4 l16
音色(OverdrivenGuitar)音色(CleanGuitar)音色(MutedGuitar)
[2
SUB{
Key(-5)
arrgrrarr`crrarrr
arrgrrarr`crrargr
Key(0)
}
arrgrrarr`crrarrr
arrgrrarr`crrargr
]

]

}












STR BB={
TrackName={"うどん粉の無駄遣い"};             //タイトル
TimeSignature=4,4;           //拍子記号の設定
Tempo(135);                  //テンポの設定
System.MeasureShift = 1;     //(弄らないこと)
ResetGS;      //音源初期化命令
TR=10 GS_RHYTHM(1)
TR=11 GS_RHYTHM(2)
r2
TrackSync;                   //全てのトラックを同期する
//------------------------------------------------------------------------------

//960
くりかＳ

TR=10
REV(0)
CHO(0)
v77 l16
音色(JazzSet)
BR(4)
p%(-8191)
SUB{
~{き}={n(MuteTriangle),,,40}
~{きん}={n(OpenTriangle),8,,40}
きっっききんっききんっききんきん
きっきききんききっきっききんんん
きっっききんっききんっききんきん
きっきききんききっきっききんきん
}

「ずぱ」ったっずったずっずたずっずたず
ずったっずったずっずたずたたずず
ずったっずったずっずたずっずたず
ずったっずったずたたったたたたた




TR=11
REV(0)
CHO(0)
v79 l16
BR(7)
p%(8191)
~{ぽ}={n(OpenHighConga),}
~{ぺ}={n(MuteHighConga),}

ぽぺぽんぽぺんぽぽぺぽんぽぺんぽ
ぽんぺぽんぺぽんぽぺぽんぽぺんぽ
ぽぺぽんぽぺんぽぽぺぽんぽぺんぽ
ぽんぺぽんぺぽんぽぺぽんぽぺんぽ




TR=1
REV(0)
CHO(0)
q85 v120 o4 l16
EP=110
ビブラート
音色(TenorSax)
aa`a,,108arararaargg^g
aa`a,,108arararag^gabg
aa`a,,108arararaargg^g
aa`a,,108arararag^gab`d





TR=2
REV(0)
CHO(0)
q99 v127 o3 l16
//音色=(SynthBass1),1
音色(SlapBass2)音色(SlapBass1)音色(AcousticBass)
a^`a^aa^g^ag^gabg
a^`a^aa^g^ag^gabg
a^`a^aa^g^ag^gabg
a^`a^aa^g^ag^gabg




TR=3
REV(0)
CHO(0)
q70 v60 o6 l16
音色(SynthStrings2)
'ae'1
'ae'1
'ae'1
'd"a'2'f"b'2




TR=4
REV(40)
CHO(0)
q99 v110 o3 l16
音色(GuitarHarmonics)音色=(DistortionGuitar),2
EP.W(127,0,!1+1)
a^`a`ea2.
a^`a`ea2.
a^`a`ea2.
a^`a`ea2.



TR=5
REV(40)
CHO(0)
q99 v127 o3 l16
音色(GuitarHarmonics)
EP.W(0,127,!1)
a^`a`ea2.
a^`a`ea2.
a^`a`ea2.
a^`a`ea2.

/*
TR=4
REV(0)
CHO(0)
q99 v70 o5 l16
音色(OverdrivenGuitar)
'ae'rr'ae''ae'rrr'ae'rr'ae''ae'r'gd'r
'ae'rr'ae''ae'rrr'ae'rr'ae''bf'r'gd'r
'ae'rr'ae''ae'rrr'ae'rr'ae''ae'r'gd'r
'ae'rr'ae''ae'rrr'ae'rr'ae''bf'r'gd'r

TR=5
REV(0)
CHO(0)
q99 v70 o5 l16
音色(CleanGuitar)
'ae'rr'ae''ae'rrr'ae'rr'ae''ae'r'gd'r
'ae'rr'ae''ae'rrr'ae'rr'ae''bf'r'gd'r
'ae'rr'ae''ae'rrr'ae'rr'ae''ae'r'gd'r
'ae'rr'ae''ae'rrr'ae'rr'ae''bf'r'gd'r



TR=6
q99 v95 o6 l16
音色(OrchestraHit)
a1
r1
a1
r2v85fdefga`c
*/

TR=7
REV(0)
CHO(0)
音色(TremoloStrings)
q97 v100 o6 l16
ar`a`earrrr2
a^ra^ra^ra^rg^^r
ar`a`earrrr2
a^ra^ra^rgargab`d



TR=8
REV(0)
CHO(0)
q99 v110 o4 l16
音色(BaritoneSax)
arrgrrarc`crrarrr
arrgrrarc`crrargr
arrgrrarc`crrarrr
arrgrrarc`crrargr




]


}





STR CC={
TrackName={"うどん粉で粉だらけ成りし者の末路"};             //タイトル
TimeSignature=4,4;           //拍子記号の設定
Tempo(135);                  //テンポの設定
System.MeasureShift = 1;     //(弄らないこと)
ResetGS;      //音源初期化命令
TR=10 GS_RHYTHM(1)
TR=11 GS_RHYTHM(2)
r2
TrackSync;                   //全てのトラックを同期する
//------------------------------------------------------------------------------


くりかＳ
TR=10
REV(0)
CHO(0)
v80 l16
音色(JazzSet)音色(PowerSet)
BR(0)
p%(8191)
~{か}={n(Slap),}
かっかかっかかっかかっかかっかっ
ずったっずずたずっずたっずったっ
かっかかっかかっかかっかかっかっ
ずったっずずたずっずたっずったっ

かっかかっかかっかかっかかっかっ
ずったっずずたずっずたっずったっ
かっかかっかかっかかっかかっかっ
ずったっずずたずっずたっずったっ





TR=1
REV(0)
CHO(0)
q99 v90 o6 l16
音色=(SquareLead),0
SUB{Key(-5)
a#1
a1
a#1-8`c8
a^^^^rg^^^^^^^^r

a#1
a1
g#1
g^^^^^^ra^ra#^r`c^

Key(0)
}
a#1
a1
a#1-8`c8
a^^^^rg^^^^^^^^r

a#1
a1
g#1
g^^^^^^ra^ra#^r`c^



/*
TR=2
REV(0)
CHO(0)
q99 o3 v120 l4
音色(FretlessBass)
a#dga#
acd#a
a#dga#
acd#a

a#dga#
acd#a
g#cd#g#
gcd#g
*/


TR=3
REV(0)
CHO(0)
音色(RockOrgan)
q99 v90 o5 l16
'a+gd#'1
'afd'1
'a+gd#'1
'afd'1

'a+gd#'1
'afd'1
'g#d#c'1
'gd#c'1


TR=4
REV(0)
CHO(0)
q99 v111 o4 l16
音色(SynthBass2)
g1
f1
g1
f1

g1
f1
d#1
d1


TR=5
REV(0)
CHO(0)
q99 v127 o3 l16
音色(BassLead)音色(SynthBass1)
a#rd#ra#a#d#a#ra#d#ra#a#d#d#
ardraada^addddg++g++
a#rd#ra#a#d#a#ra#d#ra#a#d#d#
ardraada^addddg++g++

a#rd#ra#a#d#a#ra#d#ra#a#d#d#
ardraada^addddgg
g#rdrg#rdg#rg#ddg#g#dd
grcrggcg^gccccgg
]
}








STR DD={
TrackName={"あまりにもあんまりだ！"};             //タイトル
TimeSignature=4,4;           //拍子記号の設定
Tempo(135);                  //テンポの設定
System.MeasureShift = 1;     //(弄らないこと)
ResetGS; r2      //音源初期化命令
TrackSync;                   //全てのトラックを同期する
//------------------------------------------------------------------------------


くりかＳ
//_キリスト教徒とパイプオルガンは関係ないようだ
TR=1
REV(40)
CHO(21)
q99 o5 v89 l16
音色(RockOrgan)音色(DrawbarOrgan)音色(ChurchOrgan)
EP.T(76,127,!1+1+1+1+1+1+1)
'"b"g--"d#'1
'd#"b"f-'1
'af#d#'1
'gd#"b'1
'f#d#"b'1
'f#d#-"a-'1
'd#"b"f-'1
'd#"b--"f---'1

EP.T(127,76,!1+1+1+1+1+1+1)
'f#d#"a#'1
'f#d#"a#'1
'f#--d#--"a#--'1
'f#--d#--"a#--'1
'f#d#"a#'1
'f#d#"a#'1
'f#--d#--"a#--'1
'f#--d#--"a#--'1



//_狂気をお手軽に出せる
TR=2
REV(68)
CHO(0)
音色(SoundTrack)
q99 o5 v69 l16
'"f"a'1
'"b"c#'1
'f#"a#'1
'd+"f+'1
'df#'1
'"bc#'1
'"ac'1
'"g--"a-'1

'd"a'1
'd"a'1
'c"g'1
'c"g'1
'd++++"a++++'1
'd++++"a+++'1
'c++++"g+++'1
'c++++"g+++'1


//_合唱の声は、なぜ、あんなにきもいんだろう？
TR=3
REV(27)
CHO(0)
音色(SynthStrings1)音色(ChoirAahs)
q99 v80 o4 l16
ビブラート
e1
d1
g1
f1
a1
d1
f1
d1

c#1
c#1
c1
c1
c#1
c#1
c1
c1



//_悪趣味な笑い声エフェクトつき（封印中）
/*
TR=4
REV(98)
CHO(40)
音色=(Applause),1
q99 v127 o3 l16
r1
r1
`c1
^1
r1
r1
``c1
^1

r1
r1
r1
r1
r1
`g1
^1
r1

TR=5
REV(98)
CHO(40)
音色=(Applause),1
q99 v99 o3 l16
r%30r1
r1
`c1
^1
r1
r1
``c1
^1

r1
r1
r1
r1
r1
`g1
^1
r1-%30

TR=6
REV(98)
CHO(40)
音色=(Applause),1
q99 v71 o3 l16
r%60r1
r1
`c1
^1
r1
r1
``c1
^1

r1
r1
r1
r1
r1
`g1
^1
r1-%60
*/


//_ざわざわが表現できない
TR=7
REV(3)
CHO(1)
v27 o2 q99 l16
音色(Applause)
M(127)
'"cg"b'1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1


//_グロウル系らしい
TR=8
REV(0)
CHO(44)
v44 o4 q99 l16
BR(24) p%(-8191)
音色=(Seashore),5
M(127)
'"cg"b'1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1
]
}






















//_<強引に解決する何か>

//_<強引に解決する何か>
STR ZZ={
System.MeasureShift = 1;     //(弄らないこと)
r1 ResetGS; r4      //音源初期化命令
TrackSync;                   //全てのトラックを同期する


TR(1) TrackKey(0) Key(0) REV(40) CHO(0) VAR(0) p%(0) EP(127) V(100) t(0) M(0) v127 @(1,0)
TR(2) TrackKey(0) Key(0) REV(40) CHO(0) VAR(0) p%(0) EP(127) V(100) t(0) M(0) v127 @(1,0)
TR(3) TrackKey(0) Key(0) REV(40) CHO(0) VAR(0) p%(0) EP(127) V(100) t(0) M(0) v127 @(1,0)
TR(4) TrackKey(0) Key(0) REV(40) CHO(0) VAR(0) p%(0) EP(127) V(100) t(0) M(0) v127 @(1,0)
TR(5) TrackKey(0) Key(0) REV(40) CHO(0) VAR(0) p%(0) EP(127) V(100) t(0) M(0) v127 @(1,0)
TR(6) TrackKey(0) Key(0) REV(40) CHO(0) VAR(0) p%(0) EP(127) V(100) t(0) M(0) v127 @(1,0)
TR(7) TrackKey(0) Key(0) REV(40) CHO(0) VAR(0) p%(0) EP(127) V(100) t(0) M(0) v127 @(1,0)
TR(8) TrackKey(0) Key(0) REV(40) CHO(0) VAR(0) p%(0) EP(127) V(100) t(0) M(0) v127 @(1,0)
TR(9) TrackKey(0) Key(0) REV(40) CHO(0) VAR(0) p%(0) EP(127) V(100) t(0) M(0) v127 @(1,0)
TR(10) TrackKey(0) Key(0) REV(40) CHO(0) VAR(0) p%(0) EP(127) V(100) t(0) M(0) v127 音色(StandardSet)
TR(11) TrackKey(0) Key(0) REV(40) CHO(0) VAR(0) p%(0) EP(127) V(100) t(0) M(0) v127 @(1,0)
TR(12) TrackKey(0) Key(0) REV(40) CHO(0) VAR(0) p%(0) EP(127) V(100) t(0) M(0) v127 @(1,0)
TR(13) TrackKey(0) Key(0) REV(40) CHO(0) VAR(0) p%(0) EP(127) V(100) t(0) M(0) v127 @(1,0)
TR(14) TrackKey(0) Key(0) REV(40) CHO(0) VAR(0) p%(0) EP(127) V(100) t(0) M(0) v127 @(1,0)
TR(15) TrackKey(0) Key(0) REV(40) CHO(0) VAR(0) p%(0) EP(127) V(100) t(0) M(0) v127 @(1,0)
TR(16) TrackKey(0) Key(0) REV(40) CHO(0) VAR(0) p%(0) EP(127) V(100) t(0) M(0) v127 @(1,0)
TR=10 GS_RHYTHM(1)
TR=11 GS_RHYTHM(2)
r4 TrackSync;
}


//_＜enzin＞
SWITCH(HOGE){
CASE(1){ZZ AA}
CASE(2){ZZ BB}
CASE(3){ZZ CC}
CASE(4){ZZ DD}
DEFAULT{ZZ AA ZZ BB ZZ CC ZZ DD }
}