//[11.1.18]


//_繰り返し回数（[2の、数字を変更してください）。
~{くりかＳ}={ [2 }

//_得体の知れない設定（INT HOGE={2}の、数字を変更してください）。
INT HOGE={0}
/*
1:早くスタートボタン押してってば
2:みみず食う
3:棚からぼたもち、しかし、腐ってた。
4:メンヘル玉子
5:さあ選べ
0:全部
*/



/*
製造年月日：上部に記載
ジャンル：帯に短し　たすきに短し　繰り返しBGM詰め合わせ　お損用

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

コピー・改変・転載・商用利用可能
ありとあらゆる教育目的・強制への使用は不許可。
転載する場合は、無断・有断問わず、この条件を明記すること。

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

調整機材：VSC
推奨機材：VSCまたはYAMAHA XG WDM SoftSynthesizer
*/

読む(gs.h);読む(delay.h);


//_PUSH_START_QUICKLY
STR A={
TrackName={"早くスタートボタン押してってば"};             //タイトル
Copyright={"世界強制撲滅教団　矢部ソーダ"};             //著作権表示
TimeSignature=4,4;           //拍子記号の設定
System.MeasureShift = 1;     //(弄らないこと)
ResetGS; r2      //音源初期化命令
TrackSync;                   //全てのトラックを同期する
//------------------------------------------------------------------------------
Tempo(120);                  //テンポの設定

くりかＳ
TR=10
REV(5)
CHO(0)
VAR(0)
v127 l16
@11
ずっずったっずずったずったっずず
ずっずったっずずったずったったた
ずずずったっずずったず32ず32ったっDIV{ずずず}8
ずずずったっずずったず32ず32ったっDIV{たたた}8

ずっずったっずずったずったっずず
ずっずったっずずったずったったた
ずずずったっずずったず32ず32ったっDIV{ずずず}8
ずずずったっずずったず32ず32ったっDIV{たたた}8


TR=1
REV(88)
CHO(21)
VAR(0)
q89 v110 o6 l16
音色(ElectricPiano1)
gaaaaaaaraaaaaa#a#
aaaaaaaaraaaraa+a+
gaaaaaaaraaaaaa#a#
aaaaaaaaraaaraa+a+

TrackKey(-2)
gaaaaaaaraaaaaa#a#
aaaaaaaaraaaraa+a+
gaaaaaaaraaaaaa#a#
aaaaaaaaraaaraa+a+
TrackKey(0)




TR=2
REV(0)
CHO(15)
VAR(0)
q99 v98 o5 l16
音色(RockOrgan)
EP.W(67,127,!16)
'afdc'1-8rr
'afdc'1-8rr
'afdc'1-8rr
'afdc'1-8rr

TrackKey(-2)
'afdc'1-8rr
'afdc'1-8rr
'afdc'1-8rr
'afdc'1-8rr
TrackKey(0)




TR=3
REV(0)
CHO(0)
VAR(0)
q99 v68 o6 l16
音色(Strings2)
'afdc'1-8rr
'afdc'1-8rr
'afdc'1-8rr
'afdc'1-8rr

TrackKey(-2)
'afdc'1-8rr
'afdc'1-8rr
'afdc'1-8rr
'afdc'1-8rr
TrackKey(0)




TR=4
REV(0)
CHO(0)
VAR(0)
q97 v111 o3 l16
//EP.W(127,0,!4)
音色(CleanGuitar)音色(FingerBass)音色(SlapBass2)音色(SynthBass1)
d^d^a^dd^ad^d^fa
d^d^a^dd^ad^a^dd
d^d^a^dd^ad^d^fa
d^d^a^dd^ad^a^dd

TrackKey(-2)
d^d^a^dd^ad^d^fa
d^d^a^dd^ad^a^dd
d^d^a^dd^ad^d^fa
d^d^a^dd^ad^a^dd
TrackKey(0)
]}


//_EAT_WORMS
STR B={
//------------------------------------------------------------------------------
TrackName={"みみず食う"};             //タイトル
Copyright={"世界強制撲滅教団　矢部ソーダ"};             //著作権表示
TimeSignature=4,4;           //拍子記号の設定
System.MeasureShift = 1;     //(弄らないこと)
ResetGS; r2      //音源初期化命令
TrackSync;                   //全てのトラックを同期する
//------------------------------------------------------------------------------

Tempo(75);                  //テンポの設定

くりかＳ
TR=1
REV(58)
CHO(11)
VAR(0)
//音色(CleanGuitar)音色(RockOrgan)//音色=(SynthBass1),1
//音色(ElectricPiano2)音色(FingerBass)
音色(AcousticBass)
//EP.W(127,0,!2)
q99 v127 o3 l16
g^c^egf^"a#^dfe^c^egf^d^f^
e^g^c^f^"a#^dfe^g^`c^a#^g^d^





TR=2
//音色(ElectricPiano1)
REV(68)
CHO(1)
VAR(0)
音色(CelestaStrings)
q99 v90 o5 l16
g^e^egf^a^`c^b^`d^b^`cba^e^
g^f^e^fedc"a#^"a^e^g^f^a^`c^



TR=3
REV(68)
CHO(0)
VAR(0)
音色(SynthStrings2)
q99 v46 o6 l16
'gec'4.'fd"a#'4.'bge'4.'afd'4.
'gec'4.'fd"a#'4.'ec"g'4.'"afd'4.




TR=4
//音色(TubularBells)音色(CleanGuitar)音色(Koto)音色(Banjo)
REV(45)
CHO(0)
VAR(0)
音色(ElectricPiano2)
q99 v38 o6 l16
c^g^eg"a#^f^dfc-^g^e^"a#^f^d^
c^g^eg"a#^f^dfc^g^eg"a#^f^d^



TR=5
REV(0)
CHO(0)
VAR(0)
音色(ElectricPiano1)
q99 v66 o7 l16
'gec'4.'fd"a#'4.'bge'4.'afd'4.
'gec'4.'fd"a#'4.'ec"g'4.'"afd'4.


]}



//_IMITATION_PENNIES_FROM_HEAVEN
STR C={
TrackName={"棚からぼたもち、しかし、腐ってた。"};             //タイトル
Copyright={"世界強制撲滅教団　矢部ソーダ"};             //著作権表示
TimeSignature=4,4;           //拍子記号の設定
System.MeasureShift = 1;     //(弄らないこと)
ResetGS;r2      //音源初期化命令
TrackSync;                   //全てのトラックを同期する
//------------------------------------------------------------------------------


Tempo(75);                  //テンポの設定

くりかＳ
TR=1
q89 v98 o6 l16
音色(ElectricPiano2)音色(TangoAccordion)音色(ElectricPiano1)
MidiDelay({
arrrgrd^rrrr
arrrgr`crargf
errrdr"arrrdr
errrdrgrfred

arrrgrd^rrrr
arrrgr`crragf
errrdr"arrrdr
errrdrgrrfed


arrrgrcrergr
erfred"a4cr
arrrgr`cra+rag
`er`fr`e`da4gr

arrrgrdrfrgr
erfrerfrerdc
d4rr`d4`cr
a2.

},3,!16)


TR=2
q69 v78 o5 l16
音色(ElectricPiano2)音色(CalliopeLead)
//MidiDelay({
"a^'afd'r'afd'^"g^'gec'r'gec'^
"a^'afd'r'afd'^"g^'gec'r'gec'^
"e^'gec'r'gec'^"d^'fd"a'r'fd"a'^
"e^'gec'r'gec'^"d^'fd"a'r'fd"a'^

"a^'afd'r'afd'^"g^'gec'r'gec'^
"a^'afd'r'afd'^"g^'gec'r'gec'^
"g^'gec'r'gec'^"f^'fd"a'r'fd"a'^
"e^'gec'r'gec'^"d^'fd"a'r'fd"a'^


"a^'afd'r'afd'^"f^'afd'r'afd'^
"e^'ec"a'r'ec"a'^"e^'ec"a'r'ec"a'^
"a^'afd'r'afd'^"a^'afd'r'afd'^
"e^'ec"a'r'ec"a'^"e^'ec"a'r'ec"a'^

"a^'afd'r'afd'^"a^'afd'r'afd'^
"e^'ec"a'r'ec"a'^"e^'ec"a'r'ec"a'^
"f^'afd'r'afd'^"a^'afd'r'afd'^
"e^'ec"a'r'ec"a'^"e^'ec"a'r'ec"a'^
//},3,!16)


]}


//_MENTAL_HEALTH_TAMAKO
STR D={
//------------------------------------------------------------------------------
曲名{"メンヘル玉子"}
作者{"世界強制撲滅教団　矢部ソーダ"}
コメント{""}
//------------------------------------------------------------------------------
TimeSignature=4,4;           //拍子記号の設定
System.MeasureShift = 1;     //(弄らないこと)
ResetGS;
TR=10 GS_RHYTHM(1)
TR=11 GS_RHYTHM(2)
r2      //音源初期化命令
TrackSync;                   //全てのトラックを同期する
//------------------------------------------------------------------------------


Tempo(105);                  //テンポの設定
くりかＳ
TR=1
VAR(48)
REV(69)
CHO(33)
q99 v69 o5 l16
EP.W(78,127,!16)
音色(6)
//MidiDelay({
"adfafd"begbge
"adfafd"begbge
"adfafd"begbge
"adfafd"begbge

"adfafd"begbge
"adfafd"begbge
"adfafd"begbge
"adfafd"begbge

Key(-2)
"adfafd"begbge
"adfafd"b----e----g----b----g----e----
"adfafd"begbge
"adfafd"b----e----g----b----g----e----
Key(0)
"adfafd"begbge
"adfafd"b----e----g----b----g----e----
"adfafd"begbge
//},8,!16)
/*MidiDelay({*/ 'begc'8 /*},8,!16)*/
crgrbrr4

//MidiDelay({
r2.
^4."g"ar"a"br
//},8,!16)





TR=2
VAR(44)
REV(44)
CHO(33)
q99 v48 o5 l16
//EP.W(78,127,!16)
音色(6)
MidiDelay({
"adfafd"begbge
"adfafd"begbge
"adfafd"begbge
"adfafd"begbge

"adfafd"begbge
"adfafd"begbge
"adfafd"begbge
"adfafd"begbge

Key(-2)
"adfafd"begbge
"adfafd"b----e----g----b----g----e----
"adfafd"begbge
"adfafd"b----e----g----b----g----e----
Key(0)
"adfafd"begbge
"adfafd"b----e----g----b----g----e----
"adfafd"begbge
},8,!16)
MidiDelay({'bgc'8},8,!16)
crgrbrr4

MidiDelay({
r2.
^4."g"ar"a"br
},8,!16)


TR=3
VAR(69)
REV(44)
CHO(33)
q99 v78 o6 l16
音色(6)
MidiDelay({
[4r2.]

aaaaaaa^^agf
d#d#d#d#d#d#d#^g^b-^
aaaaaaa^^agf
d#d#d#d#d#d#d#^d#^f^

ggggggg^^gfd#
c#c#c#c#c#c#c#^f^g#^
ggggggg^^gfd#
c#c#c#c#c#c#c#^g^a#^
},8,!16)

MidiDelayS(a2.)
[5r2.]




TR=４
VAR(69)
REV(44)
CHO(33)
q99 v69 o6 l16
音色(5)
//MidiDelay({
[4r2.]

aaaaaaa^^agf
d#d#d#d#d#d#d#^g^b-^
aaaaaaa^^agf
d#d#d#d#d#d#d#^d#^f^

ggggggg^^gfd#
c#c#c#c#c#c#c#^f^g#^
ggggggg^^gfd#
c#c#c#c#c#c#c#^g^a#^
//},8,!16)

//MidiDelayS(
a2.
//)
[5r2.]



TR=5
VAR(0)
REV(44)
CHO(33)
q99 v33 o4 l16
音色(ChoirAahs)
'ad'2.
^4.'gc'4.
'ad'4.'be'4.
'ad'4.'gc'4.

'ad'4.'be'4.
'ad'4.'gc'4.
'ad'4.'be'4.
'ad'4.'gc'4.

'gc'4.'ad'4.
'gc'4.'f"b-'4.
'gc'4.'ad'4.
'gc'4.'f"b-'4.

'ad'4.'be'4.
'ad'4.'gc'4.
'ad'4.'be'4.
r2.

r2.+2.

]}

//_CHOOSE
STR E={
//------------------------------------------------------------------------------
曲名{"さあ選べ"}
作者{"世界強制撲滅教団　矢部ソーダ"}
コメント{""}
//------------------------------------------------------------------------------
TimeSignature=4,4;           //拍子記号の設定
System.MeasureShift = 1;     //(弄らないこと)
ResetGS;
TR=10 GS_RHYTHM(1)
TR=11 GS_RHYTHM(2)
r2      //音源初期化命令
TrackSync;                   //全てのトラックを同期する
//------------------------------------------------------------------------------


Tempo(60);                  //テンポの設定
くりかＳ

TR=1
REV(23)
CHO(0)
q99 v77 o4 l16
音色(NylonGuitar)
c"g"gc"g"gc"gc"gc"g
c"g"gc"g"gc"gc"gc"g
"a+"f"f"a+"f"f"a+"f"a#"f"a#"f
"a+"f"f"a+"f"f"a+"f"a#"f"a#"f

c"g"gc"g"gc"gc"gc"g
c"g"gc"g"gc"gc"gc"g
"a+"f"f"a+"f"f"a+"f"a#"f"a#"f
"a+"f"f"a+"f"f"a+"f"a#"f"b"g


"g#"d#"d#"g#"d#"d#"g#"d#"g#"d#"g#"d#
"g#"d#"d#"g#"d#"d#"g#"d#"g#"d#"g#"d#
"a+"f"f"a+"f"f"a+"f"a#"f"a#"f
"a+"f"f"a+"f"f"a+"f"a#"f"a#"f

"g#"d#"d#"g#"d#"d#"g#"d#"g#"d#"g#"d#
"g#"d#"d#"g#"d#"d#"g#"d#"g#"d#"g#"d#
"a+"f"f"a+"f"f"a+"f"a#"f"a#"f
"a+"f"f"a+"f"f"a+"f"a#"f"b"g



TR=2
REV(0)
CHO(0)
q96 v74 o6 l16
音色(Piccolo)
'gec'rr'gec''gec'^'gec'^'gec'^'gec'^
'gec'rr'gec''gec'^'gec'^'gec'^'gec'^
'fd"a#'rr'fd"a#''fd"a#'^'fd"a#'^'fd"a#'^'fd"a#'^
'fd"a#'rr'fd"a#''fd"a#'^'fd"a#'^'fd"a#'^'fd"a#'^

'gec'rr'gec''gec'^'gec'^'gec'^'gec'^
'gec'rr'gec''gec'^'gec'^'gec'^'gec''gec'
'fd"a#'rr'fd"a#''fd"a#'^'fd"a#'^'fd"a#'^'fd"a#'^
'fd"a#'rr'fd"a#''fd"a#'^'fd"a#'^'fd"a#'^'fd"a#'^


'd#c"g#'rr'd#c"g#''d#c"g#'^'d#c"g#'^'d#c"g#'^'d#c"g#'^
'd#c"g#'rr'd#c"g#''d#c"g#'^'d#c"g#'^'d#c"g#'^'d#c"g#'^
'fd"a#'rr'fd"a#''fd"a#'^'fd"a#'^'fd"a#'^'fd"a#'^
'fd"a#'rr'fd"a#''fd"a#'^'fd"a#'^'fd"a#'^'fd"a#'^

'd#c"g#'rr'd#c"g#''d#c"g#'^'d#c"g#'^'d#c"g#'^'d#c"g#'^
'd#c"g#'rr'd#c"g#''d#c"g#'^'d#c"g#'^'d#c"g#'^'d#c"g#''d#c"g#'
'fd"a#'rr'fd"a#''fd"a#'^'fd"a#'^'fd"a#'^'fd"a#'^
'fd"a#'rr'fd"a#''fd"a#'^'fd"a#'^'fd"a#'^'fd"a#'^


TR=3
REV(66)
CHO.T(0,54,!2.,54,0,!2.)

q99 v98 o5 l16
音色(SoundTrack)
[2 CHO.T(0,50,!2.,85,0,!2.)
'gec'1-8
'gec'2'gec'8
CHO.T(0,12,!2.,12,0,!2.)
'fd"a#'1-8
'fd"a#'2'fd"a#'8]

[2CHO.T(0,50,!2.,50,0,!2.)
'd#c"g#'1-8
'd#c"g#'2'd#c"g#'8
CHO.T(0,12,!2.,12,0,!2.)
'fd"a#'1-8
'fd"a#'2'fd"a#'8]


TR=4
REV(68)
CHO(45)
q99 v96 o3 l16
音色(SquareLead)音色(BassLead)音色(SynthStrings1)
[2c2.
c2.
"a+2.
"a+2.]

[2"g+2.
"g+2.
"a+2.
"a+2.]

]}





STR RESET={
System.MeasureShift = 1;     //(弄らないこと)
ResetGS; r2      //音源初期化命令
TrackSync;                   //全てのトラックを同期する
}




//_ハツ
SWITCH(HOGE){
CASE(1){A}
CASE(2){B}
CASE(3){C}
CASE(4){D}
CASE(5){E}
DEFAULT{A RESET B RESET C RESET D RESET E}
}