/*
■☆trick or GABBA☆
　作成：さくらもどき

詳細
【推奨環境】ヘッドホン
【推奨音源】MP3，TWM2
【無断転用】可
【　編曲　】可
【ジャンル】GOTHIC GABBA
作成環境
【   OS   】WindoowsXP HomeEdition
【　音源　】TWM2、SoundFont
【出力環境】MDR-CD100	（ヘッドホン）
		RH-300	（ヘッドホン）
		HP-NC80	（ヘッドホン）
		UA-101		（オーディオI/O）
　◆ＭＥＭＯ
ガバしなくちゃいたずらするぞ！

というわけで（何）、DLありがとうございます。
M3参加者の方はお疲れ様でした～
後半、考えないでしゃべっててすいませんでした（汗

Ｍ３に行ってついつい創作欲が刺激されたので、急遽こんなものを作ってみました。
最高にジャンクな音楽を！！って感じのガバです。
・・・というよりは、中世黒ミサ的な感じか？

作成時間１時間という手抜き具合ですが聞いて頂ければ嬉しいです。
ひろちゃんさん、IRCありがとうございましたーおやすみですー
*/

Str PD={r32 y64,0 r32 y64,127 r-16}
Str PF={r32 y64,0 r-32}


曲名{"☆trick or GABBA☆"}
作者{"sakuramodki"}
ResetGS
CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7;

拍子4,4
テンポ(155)
調#()

Function L1(int){Result=(!1 * int)}	//数小節分の長さを返す
Function R1(int){[(int)r*1]}		//数小節分の休符
Function X(int){Sub{[(int)r-1]?}}	//数小節戻ってから再生(デバッグ用)
Key=5

TR=1 q100 @82 l8 o3 V=100 CHO=120
R1(8)
//すうぃぃぃっっっぃぃぃいいいいいんぐぅぅぅぅぅぅぅぅううううううう
[
 [6 "a6a12]["g+6g+12]
 [8 "f6f12]
 [8 "g6g12]
 [8 "g+6g+12]
]

[4
 [6 "a6a12]:["a6g12]
][g6g12]

[4
 [6 "f6f12]["f6g12]
]

[
 [6 "a6a12]["g+6g+12]
 [8 "f6f12]
 [8 "g6g12]
 [8 "g+6g+12]
]

[4
 [6 "a6a12]:["a6g12]
][g6g12]




Str Hoge={
[
 [4
  e6r12a6r12	g+6a24b24`c6b12
 :a6b12g+6a12	f6g+12e6f12
 ]>c6d24c24<b6`c24b24a6b24a24g+6a24g+24
]
R1(8)
V.T(30,127,L1(8))
[8 e6r12a6r12	g+6a24b24`c6b12]

[
 [4
  e6r12a6r12	g+6a24b24`c6b12
 :a6b12g+6a12	f6g+12e6f12
 ]>c6d24c24<b6`c24b24a6b24a24g+6a24g+24
]


}

TR=2 q50 @82,90,1 l8 o5 V=120
R1(8)
Hoge

TR=4 q100 h=-!24 @41 l8 o6 V=120
R1(8)
Hoge


TR=5 q100 @1 l8 o5 V=120
[3
 Sub{<<
 "a0a1 "a0a2. "g+0g+4
 "f0f1 "f0f2. "f0f4
 "g0g1 "g0g2. "g0g4
 "g+0g+1 "g+0g+2. "g+0g+4
 >>}
 
 [4
  e6r12a6r12	g+6a24b24`c6b12
 :a6b12g+6a12	f6g+12e6f12
 ]>c6d24c24<b6`c24b24a6b24a24g+6a24g+24
]


TR=6 q60 @82 l12 o7 V=100 v90 P=120
R1(8)
R1(8)
[
 r1	ccc crc crc c^r
 r1r1
]

[4
 r1	ccc crc crc c^r
]

[4
 r1	ccc crc crc c^r
]

[8
 r1	ccc crc crc c^r
]


UseKeyShift=off 調-()
TR=10 o3 l8 q40 @12,7 V=107 CHO=127 BR(36)
V.T( 30 , 100 , L1(4) )
p.T(0,64,L1(7))
 Sub{v.T(0,30,L1(8)) [4 [4 g+6f+12]g+12[f+12][3 f+6f+12] ] }
v100 [7 [c4][c6c12] ][2 c6[c24]]
p.T(64,128,!4.,128,64,!8)[24 c48]

[
 Sub{v80 [8 r4d+4r6d+12d+6d+12]}
 Sub{v50 [4 [4 g+6f+12]g+12[f+12][3 f+6f+12] ] }
 v100  [
        [3
	   [c4][c6c12]
	  ]
        :[c4][[3c12]]
	 ]
	:[3 c6:[c24]][16 c48]
]

Sub{ p.T(127,0,!8,90,127,!4,90,127,!4,127,64,!4.) c6c12 c6[c24] c6[c24] [6 c24] }　//Assocからコピペ
r1


//---------------------------------
Sub{v80 [8 r4d+4r6d+12d+6d+12]}
Sub{v50 [4 [4 g+6f+12]g+12[f+12][3 f+6f+12] ] }
v100  [
       [3
	   [c4][c6c12]
	 ]
       :[c4][[3c12]]
	]
Sub{ p.T(127,0,!8,90,127,!4,90,127,!4,127,64,!4.) c6c12 c6[c24] c6[c24] [6 c24] }　//Assocからコピペ
r1
//---------------------------------
Sub{v80 [8 r4d+4r6d+12d+6d+12]}
Sub{v50 [4 [4 g+6f+12]g+12[f+12][3 f+6f+12] ] }
v100  [
       [3
	   [c4][c6c12]
	 ]
       :[c4][[3c12]]
	]
Sub{ p.T(127,0,!8,90,127,!4,90,127,!4,127,64,!4.) c6c12 c6[c24] c6[c24] [6 c24] }　//Assocからコピペ
r1


[
 Sub{v80 [8 r4d+4r6d+12d+6d+12]}
 Sub{v50 [4 [4 g+6f+12]g+12[f+12][3 f+6f+12] ] }
 v100  [
        [3
	   [c4][c6c12]
	  ]
        :[c4][[3c12]]
	 ]
	:[3 c6:[c24]][16 c48]
]

Sub{ p.T(127,0,!8,90,127,!4,90,127,!4,127,64,!4.) c6c12 c6[c24] c6[c24] [6 c24] }　//Assocからコピペ
r1

//---------------------------------
Sub{v80 [8 r4d+4r6d+12d+6d+12]}
Sub{v50 [4 [4 g+6f+12]g+12[f+12][3 f+6f+12] ] }
v100  [
       [3
	   [c4][c6c12]
	 ]
       :[c4][[3c12]]
	]
Sub{ p.T(127,0,!8,90,127,!4,90,127,!4,127,64,!4.) c6c12 c6[c24] c6[c24] [6 c24] }　//Assocからコピペ
r1