サクラトップ > 掲示板トップ > 投稿フォーム

サクラ曲掲示板 Part 5 - 投稿フォーム - 3379

曲の投稿にはユーザー登録が必要です。

曲　名

作　者名前: パスワード:

転　載
（ゲームのBGMなど使いたい場合、許可するかどうかを指定。
サクラ本体への収録はあらかじめご承諾ください。）
ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する

ジャンル

音　源
（パソコン内蔵音源、GS音源、GM音源など）

公開
（公開を中止して削除するときには、この項目を変更します。）

コメント
■□■110th Anniversary Songs■□■ 110曲目記念ノンスト。ちょうど誕生日も重なりましたね

曲データ（サクラから貼り付けます。）
/* MS-GS EUROBEAT 110th ANNIVERSARY NON-STOP MEGAMIX VOL.07 ★演奏時間:28分14秒 ★MMLサイズ:101Kb ★MIDIサイズ:2388Mb ★MML投稿予定日:2006.11.20 ★使用＆推奨音源:Microsoft GS Wavetable SW Synth ★トラックリスト: 1.JAPAN 2.COME ON PARAPARA DANCING 3.歓喜した貴婦人のハレルヤ 4.DON'T LET ME DOWN 5.TOO YOUNG TO FALL IN LOVE 6.GRADUATION 7.GIVE ME YOUR SHAKIN' 8.LIKE A FLOW OF RIVER 9.oto.chu.jp ★ソース: なかなか暇が無くて仕上げるのが大変でしたが、何とか期日通り投稿まで持って行く事が出来ました。基本的には今年の4月～7月にかけて投稿したデータで、ほとんどは高校時代(大学入学前の春休み)に作ったものです。前回の100記念には劣るも相変わらず今年は高速なデータが多く、トラック３以外は全部BPM150台後半～160超になってます。自己最多感想数に迫る記録的にヒットしたデータがある反面、ほとんど受けずに終わったものもあり、最近はそれがさらに深刻化して上と下の両極端に分かれてる気がします。サクラではトラック１とトラック８、さくすくではトラック２が主に受けたみたいです。他のデータではあまり良いビジョンを伺う事が出来ませんでした。そんなわけで、全体が満遍なくヒットした100記念の頃とはちょっと差があります。その分緩急がついてノンストとしては面白い状態になってると思います。データサイズが過去最大になっているので、再生し辛い場合は一度MIDIで書き出しちゃってから別のプレーヤーで再生した方がいいかも・・スペックが足りないとドラムがキチンと鳴らなかったりするかもです。 1.JAPAN - 2006/05/08 - NO.253 凄まじいタイトルコールの嵐で覚えやすいメロディーの和風ユーロ。ちょっとネジが外れてしまった感じの勢いでどんどん突っ走ります。微妙にミックスしてノンスト用データっぽく仕上げてあります。 2.COME ON PARAPARA DANCING - 2006/04/13 - NO.252 初期の｢さくすく｣で比較的好調だったパラパラナンバー。かなりハイテクなやり方で仕上げたつもりだったけど、曲調が単調だから単独で聴くと飽き易いデータ。(多分このデータの前後の繋ぎは結構頑張りました。 3.歓喜した貴婦人のハレルヤ - 2006/05/08 - NO.206 これも｢さくすく｣に投稿したデータです。クラシックの有名曲のフレーズを沢山繋げてユーロビートにしてしまいました。今回のノンストの中では一番異質だと思います。 4.DON'T LET ME DOWN - 2006/06/19 - NO.265 凄く地味な展開の正統派ユーロビート。 Bメロで軽く哀愁がかるのが唯一の特徴ですが、良い所も悪い所も無くフツーな感じかと。受けも普通でした。 5.TOO YOUNG TO FALL IN LOVE - 2006/04/10 - NO.255 ピアノを多用したデータは結構久しぶりです。ド哀愁でドラマチックに仕上げてみたのですが、曲掲示板での受けはイマイチでした。メロディに使った音が妙に薄っぺらいのが原因と思われますが、さくすくにはもっと改良したバージョンで投稿し直してたりします。 6.GRADUATION - 2006/05/22 - NO.250 卒業をテーマにした高校生活最後のデータ。メロディ的にも伴奏の入れ方も合唱曲風になってます。さくすくにMP3を、サクラにMIDIを投稿しましたが、どっちも反応は微妙だった記憶が・・・ 7.GIVE ME YOUR SHAKIN' - 2006/06/05 - NO.260 ファイルサイズが600Kbを超えるぐらい頑張って本場の音に近づけようとしたデータ。その割にはあまり受けませんでした。今聴くと理由は分からなくも無いです。凝りすぎるてダメになったデータの典型的な例かと。 8.LIKE A FLOW OF RIVER - 2006/04/25 - NO.256 今年最大のヒット、そして曲掲示板ver5ではETERNAL FIREに続く記録(感想数)を残したデータ。地味すぎる展開だけど、素朴な雰囲気が受けたのでしょうか・・受けた理由がよく分かりません。でも試しに着メロに変換してみた所、凄く綺麗になりました。バランス良いから聴きやすいのかも。 9.oto.chu.jp - 2006/07/30 - NO.247 曲掲示板ver5の曲ID3000記念データ。一応サクラ曲掲示板のテーマソングって事で作ってみました。歌詞まで入れて万全の体制で投稿したのですが、何故かあまり受けず・・このままだと忘れられてしまいかねないので、ラストに入れてみました。 */ //------------------------------------JAPAN FUNCTION DL(ti){Time(ti:1:0)}FUNCTION PAN(ER1,ER2){If(ER2==0){P.T(0,127,ER1)}If(ER2==1){P.T(127,0,ER1)}}FUNCTION GSRY(_D){INT _TCH=Channel;INT _CH;If(_TCH==10){_CH=$00;}Else{If(_TCH<10){_CH=_TCH;}Else{_CH=_TCH-1}}_CH=$10+_CH;SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(_CH),$15,(_D)},$F7;} FUNCTION HAM(STR SA){Sub{Key=12SA;Key=0}SA}FUNCTION HAM2(STR SA){Sub{Key=-12SA;Key=0}SA}FUNCTION HAM3(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12SA;Key=0}SA}FUNCTION REC(FF=127){EP.T(FF,0,!1^1^1^1^1^1)}FUNCTION REC2(FF=100){V.T(FF,0,!1^1^1^1^1^1)}FUNCTION IP(DW=1){DL(-2)GSRY(DW)r8} Function MD(Str S,Int Repeat, Int Delay){Int Temp_v=MML(v);Int Dly=Delay;Int Dec_v=Temp_v/(Repeat+2);Int J=Temp_v+20; J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Sub{r%(Dly)v(J)S}Dly=Dly+Delay;J=J-Dec_v;}v(Temp_v)S} INT K=1INT EST=160INT JP_TIME=0PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1System.MeasureShift=3Tempo=1000Include(delay.h)ResetGS; FUNCTION JPW(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(JP_TIME)CH=X2;@(X3,XA,XB)TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)} //-(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M) JPW(01,01,083,00,0,K,064,4,2,127,09,2)JPW(07,07,039,00,0,K,084,1,2,120,09,0)JPW(13,13,048,00,0,0,___,5,0,127,09,0) JPW(02,02,085,00,0,K,064,2,2,090,09,0)JPW(08,08,083,00,0,K,000,3,2,100,09,2)JPW(14,14,082,01,0,K,___,2,2,127,09,0) JPW(03,03,063,00,0,K,000,2,2,090,10,0)JPW(09,09,083,00,0,K,127,3,2,100,09,2)JPW(15,15,003,00,0,K,080,2,2,120,09,0) JPW(04,04,082,00,0,K,127,2,2,090,10,0)JPW(10,10,025,00,0,0,064,3,1,127,10,0)JPW(16,16,091,00,0,0,084,2,1,127,10,0) JPW(05,05,039,01,0,K,044,2,2,120,09,0)JPW(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--// JPW(06,06,081,00,0,K,032,1,2,080,10,0)JPW(12,12,026,00,0,0,064,3,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP; DL=JP_TIME;Tempo=EST;INT HAZ=JP_TIME+2INT BGN=HAZ+17INT ME1=BGN+8INT ME2=ME1+8INT SB1=ME2+8INT RF1=SB1+10INT ME3=RF1+8INT ME4=ME3+8INT SB2=ME4+8INT RF2=SB2+16INT NK1=RF2+8INT NK2=NK1+8INT NK3=NK2+8 /*1*/STR MNH={EP=100HAM({l16rMidiDelayRev({`d},16,!16)l8})HAM({[MidiDelay({`d^^`d^^rr},4,!2):[8r]]rrrrrrr})HAM({l16rMidiDelayRev({`d},16,!16)l8})HAM({EP=100MidiDelay({`d^^`d^^rr},4,!2)[8r]`d^^`d`dr`dr`e^^^^^^^})} STR MNI={EP=127HAM({l16rMidiDelayRev({`d},16,!16)l8})HAM({`d^^`d^^rrMidiDelay({`c`d`ca^},4,!2)[18r]})HAM({l16rMidiDelayRev({`d},32,!16)l8})HAM({`d^^`d^^rrMidiDelay({`c`d`ca^},4,!2)[18r]})} STR MNJ={EP=127HAM({l16rMidiDelayRev({`d},32,!16)l8})HAM({`d^^`d^^rr})}STR MN1={EP=100[a^a^ga^afdc:d^^rrf^e^dc^"a^^^rrrrr]d^dcdf^g^a`c^`d^^^^rrrr}STR MN2={EP=110[a#^`c^`d^^r`c^a:`c^^^ra#^`c^`d^`f^`e^`e`c^^^r]`c^aa#`c`d^`d`d`d`c#`d`e^aaaaa#`c^} STR MN3={EP=127[`d^^`d^^rr`c`d`ca^aga:a#^a#^a^gg^fefg^a^]a#^`d^`e^`f^`e^`e`c^^rr}STR MN4={EP=127[[`d^^`d^rrr][`d^rr]:`d^^`d^^rr]} TR=1l8>q=95DL=HAZ-1[7r]MNH;DL=HAZ+7[7r]MNI;MNJ;HAM({DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2[MN3]DL=NK3;MN4;}) /*2&3&4*/STR RT1={[SUB{[a#^ff]l8eeeg^l16dddrdra^^^g^^^}[`d^a#a#]l8`c`d`c`d^l16aa`crar`f^^^`e^^^:SUB{[a#^a#a#]l8gggf^l16dddrdrd^^^c^^^}[`d^`d`d]l8`c`d`ca^l16ffgrfra^^^g^^^]SUB{[a#^a#a#]l8aaaa^l16fffrfra^^^}[`d^`d`d]l8`e`e`e`d^l16aa`crar`d^^^rrrr}STR RT2={SUB{[4a#^ff][4rra#^]}[4`d^a#a#][4rr`d^]} STR RT3={EP=127M=127@82,0If(CH==3){@88,0}If(CH==4){@84,0}[SUB{>MD({[[12r]eere][rrrreere]},1,!16)<}HAM({MD({[[12r]bbrb][rrrrbbrb]},1,!16)}):[16r]]>l8p=64rSUB{"b"b"b"b"b^^}eedeg^^l16<} STR RRF={l16DL=BGN;M.W(20,127,!4)HAM({RT1;DL=SB1+8RT2;DL=RF1;RT1;DL=RF2;RT1;})DL=NK3;RT3}TR=2;>RRF;TR=3RRF;TR=4RRF; /*5*/STR BSH={l8q=99c&d^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^l4"a#^^^^^^^"g^^^"a^^^l8q=90q.onCycle(!8,80,100)} STR BS1={[["a#a#][c`c]["aa][d`d]["gg]["aa]:[4d`d]][d`d]d^d^}STR BS2={[[4d`d]["a#a#][d`d]["a#a#][c`c][4d`d]]}STR BS3={[[4"a#a#][4"aa][4"gg]:[4"aa]]a^^^^^^&&"a} STR BS4={[["a#a#][c`c]["aa][d`d]:["gg]["aa][3"dd]"ff][4"a#a#][c`c]c^c^}STR BS5={[[8r]["a#a#][d`d]["a#a#][c`c][4d`d]]}STR BS6={[4"a#a#][4r"a#]} STR BS7={[[["a#a#]"a^^^]["a#a#"a^]:[4d`d]]} STR BASS={l8<<DL=HAZ;BSH;q.onCycle(!8,80,100)BS4;DL=BGN;BS1;BS2;BS3;BS4;BS6;DL=RF1;BS1;BS5;BS3[BS4]BS1;BS2;BS3;BS7;}TR=5BASS;TR=7BASS; /*6*/STR COH={@103,0SUB{`f^^^^^^^`e^^^^^^^`d^^^^^^^`d^^^`c#^^^}HAM2({[d^^^^^^^]a#^^^^^^^g^^^a^^^})@81,0}STR COI={SUB{[`f^`e^`e^`f^:`d^`e^`f^`e`f]`d^^^`e^`g^}HAM2({[a#^`c^a^`d^:g^a^d^^f]a#^^^`c^^^})} STR CO1={SUB{[`f^`e^`e^`f^a#^`c^:`f^`g^]`f^^}HAM2({[a#^`c^a^`d^g^a^:`d^^^]`d^^r})}STR CO2={SUB{f^^^f^f^d^e^f^^^;f^^^a^g^f^g^a^^^}HAM2({[d^^^"a#^d^"a#^c^d^^^]})} STR CO3={SUB{[`d^`g`f`e^`c^:`d^^`f`e^`c#^]`f^^^`e^}HAM2({[a#^^^a^^^g^^^:a^^^]a^rr})}STR CO4={SUB{HAM({[`f^`e^`e^`f^:`d^`e^`f^`e`f]`d^^^`e^`g^})}HAM2({[a#^`c^a^`d^:g^a^d^^f]a#^^^`c^^^})} STR CO5={['`f"a#a#'^]l8[4r'`f"a#a#']l4}STR CO6={[['`fa#"a#'^rr]:['`fa#"a#'r]'`d`ff'^^^]} TR=6DL=HAZ;COH;COI;DL=BGN;CO1;CO2;CO3;CO4;CO5;DL=RF1;CO1;CO2;DL=SB2[CO4]DL=NK1;CO2;CO3;CO6; /*8&9*/STR ULH={EP=110[MidiDelay({a^^a^^rr},4,!2):[8r]]rrrrEP.T(50,100,!2)[4a]EP=110MidiDelay({a#^^a#^^rr},4,!2)[8r]g^^ggrgra^^^^^^^} STR ULI={EP=100[SUB{`f^^`f^^rr}a#^^a#^^rrMidiDelay({aa#af^},4,!2)[19r]]}STR ULJ={EP=100SUB{`f^^`f^^rr}a#^^a#^^rr} STR UL2={EP=100[f^g^a^^rg^e:g^^^rf^g^a^`d^`c^`ca^^^r]g^efgEP=100SUB{`f^`f`f`f`f`f`e^`c#`c#`c#`c#`d`e^}a#^a#a#a#a#a#a^eeeega^} STR UL3={[EP=110SUB{`f^^`f^^rr}a#^^a#^^rrEP=120aa#af^fef:g^g^f^ee^dc#de^f^]EP=115SUB{`d^`f^`g^`a^`g^`g`e^^}g^a#^`c^`d^`c^`ca^^rr} STR UL4={EP=110[['`fa#'^^'`fa'^rrr]['`fa#'^rr]:'`f`d'^^'`f`d'^^rr]} STR ULMR={l8q=95DL=HAZ-2@108,0HAM({d^c^d^e^g^e^d^^^})@83,0DL=HAZ;ULH;ULI;ULJ;DL=ME2;UL2;UL3;DL=ME4;UL2[UL3]DL=NK2;UL2;UL4}TR=8ULMR;TR=9;>ULMR; /*10*/STR OA={n27n32n33n35n36}STR O1={'OA'}STR O2={'n53n39n28OA'}STR O3={'n49OA'}STR O4={'n57OA'}STR O5={'n51n59OA'}STR O6={'n38n40'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]} STR DM2={O1;rrrO2;rrr}STR DM3={DM2;O1;rrrO2;rrO2}STR DM4={[7DN2]O1;rrrO2;rO1;r}STR DM5={[7DM2]O1;O2;r[2O1]r[2O1]}STR DM6={[7DM2]O1;rrr[2O2;r]}STR DM7={[7DM2]O1;rrrO2;r[2O2]}STR DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]} STR DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}STR DM10={[7DM2][3O1]r[4O1]}STR DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}STR DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}STR DM13={[6DM2]O3[7r][n54rrr]}STR DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr} STR DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}STR DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}STR DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]}STR DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]} STR DM20={[7DM2]O1;rrO1;O6;rO1;r}STR DM21={[6DM2]O3[9r]O1;rO6;rrr}STR DM22={[7DM2][O1;r]O6;rrr}STR DDH={O3[63r]@17[7DM1][O1;r][4DM1]O3[7r]O4[7r]@25} STR DD1={DM6;DM13}STR DD2={DM7;DM20}STR DD3={DM6;DM21}STR DD4={SUB{[[12r]O3[13r][O4;r][34r]]}DM22;DM21} STR DD5={[MD({SUB{n49}},8,!8)O3[15r]:[6DM2]][5DM2]O1;rrO1;O6;rO1;r}STR DD6={[[7DM1]:[O1;r]][4O1]DM13}STR DD7={[SUB{O3}[DM1]][4rrO4;r]} TR=10l16DL=HAZ;BR=20p%=1000DDH;DL=HAZ+8DD4;DL=BGN-1[12r]O6;rrrDL=BGN;BR=20p%=1000DD1;DD2;DD3;DD4;DD7;DL=RF1;DD1;DD5;DD3[DD4]DD6;DD2;DD3[[SUB{n49}DM2;O1;rrO1;O2;rO1;r][O4;rrrO1;rrr]:[DM2]][5O1]rO1;rl32[16O1]l16 /*11*/STR GR={'n42n85'}STR GA={n44}STR GB={'n46n53'}STR TA={n54}STR MT={n51}STR DR={'n38n40n82n85'}STR PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}STR PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}} STR GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}STR GP2={[3GR;rGB;r]GR;r[2GB]}STR GP3={[3[GR]GB;r][2GR][2GB]}STR GP4={[GR]GB;GR}STR GP5={[3GP4][GR][GB]}STR GP6={[GR][TA]}STR GP7={[GP6][GR]TA;GR;GP6}STR GP8={[3[GR]GB;GR][2GR][2GB]} STR GGH={BR=20p.T(127,32,!1^1^1^1^1^1^1^1)[7GP3]GP2;BR=20p%=-500}STR GG1={[7GP3]GP8}STR GG2={[7GP3]GP1}STR GG3={[7GP3]@26[8r][GB;r[GR]]@25}STR GG4={[7GP1]GP8}STR GG5={[[16r]:[3GP3]][GP3]GP1}STR GG6={[4GP2][3GP3]GP8} STR GG7={GP3}STR GG8={[7GP3]GP8} TR=11l16DL=HAZ;PL1;EP.T(10,127,!1^1^1^1^1^1^1^1)GGH;DL=HAZ+8GG4;DL=BGN;BR=20p%=-500GG1;GG2;GG3;GG4;GG7;DL=RF1;GG1;GG5;GG3[GG4]GG6;GG2;GG3;GG8; /*12*/STR PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}STR PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}STR PD2={@26EP.T(20,127,!1^1^1)[48DR]}STR PD3={@33SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}STR PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}} STR PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}STR PD5={@26[3DR;r][5DR]r[4DR]}STR PD6={@26[4DR;r][3DR]r[4DR]}STR PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0} STR PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}STR PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}STR PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}STR PD11={BR=20p.T(127,32,!1)[16n51]p=64}STR PD12={@26[4O2][4O1][O2][6O1]@17} TR=12l16DL=HAZ+5PD2;DL=HAZ+8PD3;DL=BGN;PD3;DL=SB1;PD3;DL=RF1;PD3;DL=SB2[3PD3] /*13*/STR PG1={P.onCycle(!8,0,22,106,127,106,22)}STR DS1={br`br`gr`e`c`cargrdr}STR DS2={[8r][4`c]grgg}STR DS3={[8r]d`dd`drd`dd}STR DS4={gr`drbrggrg`dggg`dg}STR DS5={`d`dr`dararfrfrcrcc}STR DS6={[10r]`ar`ergr}STR DS7={[12r]`eaer}STR DS8={p.T(127,0,!1)BR=20[16e]rp=64}STR DS9={[`d#][a#][g][d#][8r]}STR DS10={[8`g]`c`cgrcr"gr} STR DS11={[rrrr`dafd]}STR DS12={[4`g][4`d]ggrgrgrg}STR DS13={[8r][`dr]`dad"a}STR DS14={[3`g]rgggr`gr`ggrg`g`g}STR DS15={`g`gr`d`drggrddr["gr]}STR DS16={[8r]`gr`crgrcr}STR DS17={eeeeddddgrrrerrr}STR DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]} TR=13l16<V=127DL=HAZ-2PG1;HAM({DL=HAZ-1DS8;DL=HAZ+3DS2;DL=HAZ+7DS8;DL=HAZ+11DS6;DL=HAZ+15DS2;DL=BGN+3DS6;DL=BGN+7DS7;DL=ME1+3DS2;DL=ME1+7DS6;DL=ME2+1DS6;DL=ME2+3DS2;DL=ME2+5DS6;DL=ME2+7DS7;DL=SB1+3DS6;DL=SB1+7DS2;DL=RF1+3DS6;DL=RF1+7DS7; DL=ME3+3DS2;DL=ME3+7DS6;DL=ME4+1DS6;DL=ME4+3DS2;DL=ME4+5DS6;DL=ME4+7DS7;DL=SB2+3DS6;DL=SB2+7DS2;DL=SB2+11DS6;DL=SB2+15DS2;DL=RF2+3DS6;DL=RF2+7DS7;DL=NK1+3DS2;DL=NK1+7DS6;DL=NK2+1DS6;DL=NK2+3DS2;DL=NK2+5DS6;DL=NK2+7DS7;DL=NK3+7DS8}) /*14*/STR SP1={v=80@39,8["a#df"a#f"a#df;cegcgceg;"ace"ae"ace;dfadadfa;"g"a#d"gd"g"a#d;"ace"ae"ace:[dfadadfa]]dfadadfad^^^d^^^} STR SP2={v=80@39,0[[dfadadfa]"a#df"a#f"a#df;dfadadfa;"a#df"a#f"a#df;cegcgceg[dfadadfa]]}STR SP3={v=80@81,0[[a#`d`fa#`fa#`d`f][a`c`ea`ea`c`e][ga#`dg`dga#`d]:[a`c`ea`ea`c`e]][16r]} STR SP4={v=90@26,0["a#df"a#f"a#df;cegcgceg;"ace"ae"ace;dfadadfa:"g"a#d"gd"g"a#d;"ace"ae"ace["d"f"a"d"a"d"f"a]]["a#df"a#f"a#df][cegcgceg]}STR SP5={v=80@39,8["a#df"a#f"a#df]} TR=14DL=HAZ;l16P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)EP.onCycle(!8,80,110,80,127)DL=HAZ+8SP4;DL=BGN;SP1;SP2;SP3;SP4;SP5;DL=RF1;SP1;SP2;SP3[SP4]DL=NK1;SP2;SP3; /*15*/STR FTH={l16HAM({[48r]@88,0l16EP=90q=100defgaa#`cM=127`d^^@85,0SUB{aaara}`d`d`dr`drM=0q=90[48r]@75,0EP.T(50,127,!1)l8q=100'ae'^^^^^^^q=90l16})}STR FT1={l8EP=127@62,0SUB{[rr"a#rc^^^rr"ard^^^rr"gr"a^^^rrdrd^^^]}[rr`dr`c^^^rr`cra^^^rra#r`c^^^rrara^^^]} STR FT2={[l8@85,0[EP=120MD({rr'af'^},2,!2)rrrr]MD({rr'fd'^},2,!2)rrrrl16:@39,0M=127HAM({rrSUB{fffrfrf^^^d^^^}aaarara^^^g^^^})M=0]@82,1M=127q=100HAM({dedefgfgaa#aa#`c`d`c`d})M=0q=90}STR FT3={l8M=127HAM({[EP=127[6r]@82,1'`da'^[5r]<@116,0`a`da>[13r]:EP=100@63,0SUB{gg^}`c`c^]})rrrM=0} STR FT4={HAM({[@82,0l8rrq=100EP.T(40,110,!2)'`da#f'^^^q=90EP=127@56,0'`da#f'r@12,0`c`d`ca^@84,0'af''af'^:@85,0EP=100MD({'a#f'^},1,!4)rrMD({'af'^},1,!4)rr@88,0l16EP=127q=100defgaa#`cM=127`d^^@85,0SUB{aaara}`d`d`dr`drM=0q=90l8]@85,0EP=100MD({'a#f'^},3,!4)[6r]@46,0l16>q=100c`cgecec"g"e"g"e"d"c"e"c""g<q=90l8})} TR=15l8DL=HAZ;FTH;FT4;DL=BGN;FT1;FT2;FT3;FT4;DL=RF1;FT1;FT2;FT3[FT4]DL=NK1;FT2;FT3; /*16*/STR BGH={@123,2l4r'cde'^^^^^^}STR BGI={@123,1l1EP=110"c^^^^^EP=127}STR BGJ={l8TrackKey=K@19,0EP=110HAM({>[16r]a#^a#^a^gg^fefg^a^[16r]a#^`d^`e^`f^`e^`e`c^^rr<})EP=127TrackKey=0} STR BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}STR BG2={l4<@128,3P=70p.T(64,64,!4,70,127,!2)'a"a`a'^^r>p=64}STR BG3={@80,0l4rrrBR=120p.T(127,0,!6)`gp=64}STR BG4={>>@123,5l32P=70BR=36p.T(64,32,!2^4)[24`e]<<p=64BR=120p.T(110,0,!6)@80,0l4`gp=64} STR BG5={l1[@127,0BR=48p.T(127,0,!1^1^1)'cde'^^p=64:r]}STR BG6={[[3BG1]:BG3]BG2} TR=16DL=HAZ-2BGH;BGI;DL=HAZ+6BG1;BG2;BGJ;DL=BGN-1BG2;DL=BGN;BG5;DL=BGN+7BG4;DL=ME2+6BG1;BG2;DL=SB1+9BG2;DL=RF1+7BG4;DL=ME3;BGI;DL=ME4+6BG1;BG2;DL=SB2+7BG4;DL=RF2+7BG4;DL=NK2+6BG1;BG2;DL=NK3;BG6; //------------------------------------COME ON PARAPARA DANCING EST=162K=1INT CO_TIME=125-1FUNCTION COW(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(CO_TIME+1)CH=X2;@(X3,XA,XB)o5v=100EP=127V=100l4M=0p%=0TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)} //-(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M) COW(01,01,011,00,0,K,064,4,2,127,09,3)COW(07,07,088,00,0,K,084,1,2,127,09,0)COW(13,13,119,09,0,0,___,5,0,127,09,0) COW(02,02,082,00,0,K,064,2,2,100,09,0)COW(08,08,012,00,0,K,000,3,2,110,09,2)COW(14,14,082,01,0,K,064,2,2,127,09,0) COW(03,03,088,00,0,K,000,2,2,100,10,0)COW(09,09,012,00,0,K,127,3,2,110,09,2)COW(15,15,039,08,0,K,___,2,2,127,09,0) COW(04,04,084,00,0,K,127,2,2,100,10,0)COW(10,10,025,00,0,0,064,3,1,127,10,0)COW(16,16,091,00,0,0,074,2,1,127,10,0) COW(05,05,039,01,0,K,044,2,2,127,09,0)COW(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--// COW(06,06,031,00,0,K,032,1,2,080,10,0)COW(12,12,026,00,0,0,064,3,0,127,09,0) DL=CO_TIME+1Tempo=EST;HAZ=CO_TIME+1BGN=HAZ+16ME1=BGN+8ME2=ME1+8SB1=ME2+8RF1=SB1+8ME3=RF1+8ME4=ME3+8SB2=ME4+8RF2=SB2+16 NK1=RF2+8NK2=NK1+8NK3=NK2+8INT NK4=NK3+8 /*1*/MN1={V=100[eeb^abr:e^egabagea^^d^^a^f#f#f#g^a^r]e^eb`c`d`cbga^^f#^^a^ggggf#f#^r}MN2={V=110g^^g^^^ra^^a^^^rb^g^e^gb^bggeg^re^^e^^^rf#^^f#^^^rggeegaba^^^b^^^r} MN3={V=127[rr`e^b^^ab`e^b^b`e`f#:`g`f#`e`d^`f#r`e^^^^`g^`f#^]`g^`g^`a`g`f#`e^^^^rrrr} TR=1l8DL=HAZ+8q=95HAM({MN3;DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2[MN3]}) /*2&3&4*/STR RR={SUB{p.WR(64,127,!64,0,127,!32,127,0,!32,0,64,!64)}}STR RTA={l4FOR(INT A=0;A<16;A++){BR=A;r}l16}STR RTB={l4FOR(INT A=0;A<16;A++){BR=(16-A)r}l16}STR RTC={l4FOR(INT A=0;A<12;A++){BR=(12-A)r}l16} STR RTH={<<EP=100"ee^"ee^"ee^^"dr"e^^^>>}STR RTI={EP=100M=0[64r][6rrMidiDelay({bb},1,!4)rrrr]EP=110MidiDelay({a^^&&^^^^b},1,!2)[8r]} STR RTJ={EP=100SUB{RTA;RTC}p.W(127,0,!24)[4`g`g`f#r`fr`e`d#r`d`c#r`crbr:ggf#rfred#rdc#rcr"br]>l8p=64rSUB{"b"b"b"b"b^^}eedeg^^l16<} Function MidiDelayCO(Str S,Int Repeat, Int Delay){Int Temp_v=MML(v);Int Dly=Delay;Int Dec_v=Temp_v/(Repeat+2);Int J=Temp_v+20; J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Sub{r%(Dly)v(J)S}Dly=Dly+Delay;J=J-Dec_v;}v(Temp_v)S}RT1={EP=127M=127SUB{>MidiDelayCO({[[eereererf#rf#rf#rf#rggrggrgr:ggrggrer]:ddrddrer]},1,!16)d^^rd^^r<}HAM({MidiDelayCO({[[bbrbbrbrararararbbrbbrbr:`d`dr`d`dr`cr]:ggrggrar]},1,!16)g^^ra^^r})} RT2={EP=110M=127[60r]'`bge'^^^[56r]"bdef#MidiDelayCO({b`d`e`b},2,!4)}RT3={EP=100M=127[[12r]'"bb`g'^^^[12r]'d`a`d'^^^[24r]:cef#gdf#ga][8r]} STR RT4={EP=127M=127[SUB{e^^}`b&&^b:[61r]][47r]SUB{gggrgrg^^^g^^^}`e`e`er`dr`e^^^`d^^^} STR RT5={EP=127M=127MidiDelayCO({[[3['b`be']:bb][6b]][3['b`be']r:r]['b`be']r'b`be'r},1,!16)l8BR=24M=0SUB{`b^^^^^^^}e^^^^^&&^^`el16} RRF={l16BR=24DL=HAZ;RT1;RT4;DL=BGN;HAM;RT1;RT2;RT3;RT4;DL=RF1;RT1;RT2;RT3[RT4]DL=RF2;RT1;RT2;RT3;RTI;RTJ;RT5}TR=2;>RRF;TR=3RRF;TR=4RRF; /*5*/BSH={[[[3e`e]l16d^`d`dl8[e`e]:l16gegabebal8]:l16e^g^gggf#l8]d^^^}BS1={[4[c`c][d`d]:[4e`e]][e`e]e^e^}BS2={[[4e`e][4g`g][4d`d]:[4a`a]][c`c][d`d]} BS3={[[4c`c][4d`d]:[4e`e][4g`g]][4c`c]["bb]"b^^^}BS4={[4[c`c][d`d]:[4e`e]][e`e]e^e^}BS5={>[3[3c^]rr]q=100e^^^^^^^<} BASS={DL=HAZ;l8<<<q.onCycle(!8,60,100)BS1;BS4;DL=BGN;BS1;BS2;BS3;BS4;BS1;BS2;DL=SB2[BS4]BS1;BS2;BS3;DL=NK4;BSH;DL=NK4+8BS5}TR=5BASS;TR=7EP.W(110,30,!8)BASS; /*6*/COH={[12r]BR=24p.T(127,0,!1)'f#"b""b'^^^p=64[16r]}COI={l16<[8[3'`ebg'^ee]:'`daf#'^^'`daf#']gggf#>l4}CO1={SUB{[g^f#^g^^ag^f#^g^^^]}HAM2({[4c^d^e^^^]})}CO2={SUB{[g^^^b^^^a^^^:`d^^^]g^a^}HAM2({[e^^^g^^^d^^^:a^^^]c^d^})} CO3={SUB{[g^^^a^^^:g^^^b^a^]g^^^}HAM2({[c^^^d^^^:e^^^g^^^]c^^^})BR=24p.T(127,0,!1)'f#"b""b'^^^p=64}CO4={SUB{HAM2({[g^f#^g^^ag^f#^:b^^a]b^^^})}HAM2({[4c^d^e^^^]})} TR=6l4DL=HAZ;CO4;CO1;DL=BGN;CO1;CO2;CO3;CO4;CO1;CO2;CO3[CO4]DL=NK1;CO2;CO3;DL=NK3;COH;COI; /*8&9*/UL2={EP=100SUB{`c^^`c^^^r`d^^`d^^^}e^^e^^^rf#^^f#^^^rEP=110g^e^"b^eg^gee"be^rEP=100SUB{g^^g^^^ra^^a^^^}c^^c^^^rd^^d^^^rEP=110eeccef#gf#^^^f#^^^r} UL3={[EP=100rrSUB{b^g^^}g^e^^EP=110egb^g^gb`d:`e`dbb^b^g^^^^b^a^]`e^`e^`dbag^^^^rrrr} ULMR={l8DL=HAZ+8UL3;DL=ME2;UL2;UL3;DL=ME4;UL2[UL3]DL=NK2;UL2;}TR=8ULMR;TR=9;>ULMR; /*10*/OA={n27n32n33n35n36}O1={'OA'}O2={'OA'}O3={'n49OA'}O4={'n57OA'}O5={'n51n59OA'}DM1={O1;rrr}DH1={[7DM1][2O1;r]} DM2={O1;rrrO2;rrr}DM3={DM2;O1;rrrO2;rrO2}DM4={[7DN2]O1;rrrO2;rO1;r}DM5={[7DM2]O1;O2;r[2O1]r[2O1]}DM6={[7DM2]O1;rrr[2O2;r]}DM7={[7DM2]O1;rrrO2;r[2O2]}DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]} DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}DM10={[7DM2][3O1]r[4O1]}DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}DM13={[6DM2]O3[7r][n54rrr]}DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr} DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]}DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]} STR DA={n27n32n33n35n36}DDH={[30'DA'^^^][8r]}DD1={[32'DA'^^^]}DD2={[[15'DA'^^^]:['DA'^]][4'DA']}DD3={[14'DA'^^^]['DA'^['DA']][12'DA'^^^]'n49DA'^^^^^^^rrrr[4'DA']}DD4={[[14'DA'^^^]:[4'DA'^]][5'DA']r'DA'r} TR=10l16DL=HAZ;BR=10p.W(64,32,!16)V=127DD1;DD4;DL=BGN;BR=10p.W(64,32,!16)V=127DD1;DD2;DD3;DD4;DD1;DD2;DL=SB2[DD4]DD1;DD2;DD3;DL=NK4@25DDH[[3O1;r[O1]]l32[8O1]l16][DM2]O3 /*11*/GR={'n42n85'}GA={n44}GB={'n46n51n54'}TA={n54}MT={n51}DR={'n38n40n82n85'}PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}} GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}GP2={[3GR;rGB;r]GR;r[2GB]}GP3={[3[GR]GB;r][2GR][2GB]}GP4={[GR]GB;GR}GP5={[3GP4][GR][GB]}GP6={[GR][TA]}GP7={[GP6][GR]TA;GR;GP6}GP8={[3[GR]GB;GR][2GR][2GB]} GGH={[3GP3]GP2}STR GGI={[7GP3]GP2}GG1={[7GP3]GP8}GG2={[8GP3]}GG3={[7GP3]GP2}GG4={[7GP1]GP2} TR=11l16DL=HAZ@26BR=20p%=3000GG1;GG4;DL=BGN@26BR=20p%=3000PL1;GG1;GG2;GG3;GG4;GG1;GG2;DL=ME4+4GGH[GG4]DL=RF2+4GGH;GG2;GG3;DL=NK3+4GGH;GGI[3GP1]GP8 /*12*/PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}PD2={@26EP.T(20,127,!1^1^1)[48DR]}PD3={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}} PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}PD5={@26[3DR;r][5DR]r[4DR]}PD6={@26[4DR;r][3DR]r[4DR]}PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0} PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}PD11={BR=20p.T(127,32,!1)[16n51]p=64}PD12={@26[4O2][4O1][O2][6O1]@17} STR PA={n38n40n53}STR PPA={SUB{[4n80rn81r]}n79rrn79n78r[[n79]r]n78rn79r}STR PPH={@26SUB{[7PPA]}[8rr:rr'PA'rrr]['PA'r]['PA']@17[6rrrr'PA'rrr][5'PA']r'PA'rEP.T(30,127,!1)l32[16'PA']l16}STR PP1={[16rrrr'PA'rrr]}STR PP2={SUB{[60r]O3}[8rr:rr'PA'rrr]['PA'r]['PA'];[6rrrr'PA'rrr][5'PA']r'PA'rEP.T(30,127,!1)l32[16'PA']l16} STR PP3={SUB{[[12r]O3[15r]O4[31r]O5[3r]]}[8rr:rr'PA'rrr]['PA'r]['PA'];[6rrrr'PA'rrr][5'PA']r'PA'rEP.T(30,127,!1)l32[16'PA']l16}STR PP4={[8rr:rr'PA'rrr]['PA'r]['PA'][7rrrr'PA'rrr]l32EP.T(50,127,!1)[16'PA']l16}STR PP5={[[12r]O3[15r]O4[31r]O5[3r]]}STR PP6={[64r][8rrrr'PA'rrr]} TR=12l16DL=HAZ;SUB{[PD3]}@17BR=20p%=5000q=100V=127PP1;PP4;DL=BGN@17BR=20p%=5000q=100V=127SUB{PD3}PP1;PP2;PP3;SUB{[PD3]}PP4;PP1;PP2;PP5;SUB{[3PD3]}[PP4]PP6;PP2;PP3;DL=NK3;SUB{[PD3]}PPH;PP4[3[3'PA'rrr]rrrr][5'PA']r'PA'rEP.T(30,127,!1)l32[16'PA']l16 /*13*/PG1={P.onCycle(!8,0,22,106,127,106,22)}DS1={br`br`gr`e`c`cargrdr}DS2={[8r][4`c]grgg}DS3={[8r]d`dd`drd`dd}DS4={gr`drbrggrg`dggg`dg}DS5={`d`dr`dararfrfrcrcc}DS6={[10r]`ar`ergr}DS7={[12r]`eaer}DS8={p.T(127,0,!1)BR=20[16e]rp=64}DS9={[`d#][a#][g][d#][8r]}DS10={[8`g]`c`cgrcr"gr} DS11={[rrrr`dafd]}DS12={[4`g][4`d]ggrgrgrg}DS13={[8r][`dr]`dad"a}DS14={[3`g]rgggr`gr`ggrg`g`g}DS15={`g`gr`d`drggrddr["gr]}DS16={[8r]`gr`crgrcr}DS17={eeeeddddgrrrerrr}DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]} TR=13l16<DL=HAZ;PG1;DL=HAZ+7DS2;DL=HAZ+15DS2;DL=BGN+7DS2;DL=ME1+3DS7;DL=ME1+7DS6;DL=ME2+3DS7;DL=SB1+7DS2;DL=RF1+7DS2; DL=ME3+3DS7;DL=ME3+7DS6;DL=ME4+3DS7;DL=SB2+7DS2;DL=SB2+15DS2;DL=RF2+7DS2;DL=NK1+3DS7;DL=NK1+7DS6;DL=NK2+3DS7;DL=NK3+3DS7;DL=NK3+7DS6;DL=NK4+3DS7; /*14*/STR SPH={[29c]rrr}STR SPI={[30c]rr}SP1={[32c]}SP2={SP1}SP3={[29c]rrr}SP4={SP1} TR=14DL=HAZ;V=127l4BR=30p.W(80,0,!16)@80,0q=50SP1;SP4;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3[SP4]SP1;SP2;SP3;DL=NK3;SPH;SPI; /*15*/FTH={v=120@39,8l8<<BSH>>l16}STR FTI={v=90HAM({>[@56,0[[`e`er`e`er`er:`e`er`e`dr`dr]:`g`gr`g`gr`f#r]:@63,0SUB{"b^^r"b^^r}`g^^r`f#^^r]<})}FT1={@39,8v=100[8dererererered"bde]}FT2={@39,8v=100[d[6e:r]d"bde;e[6g:r]d"bdf#;c[6d:r]"a"d"ad:"a[6a:r]d"bdf#]ccrccrcrddrddrdr} FT3={@39,8v=100[[cef#grceg][df#gardf#a]:[egabregb]["bdef#r"bdf#]][cef#grceg]@56,0HAM({v=127'`bf#'[11r]v.T(70,127,!4)[4'`bf#']})}FT4={@39,8v=110[4cef#grceg;df#gardf#a:[egabregb]][16r]} TR=15DL=HAZ;l16<P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)EP.onCycle(!8,100,120,100,127)FT1;FT4;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3[FT4]DL=NK1;FT2;FT3;FTH;FTI; /*16*/BGH={>@128,3l4EP=110['cde'^^^^^^^[8r]]<EP=127}BG1={>[@128,3l4EP=110'cde'^^^^^^^l8<@127,0[11r]'efg'^^^^l4>]<EP=127}BG2={@127,0l8[[rrr'efg'^^^r][16r]]}BG3={>>@128,3l4EP=110['cde'^^^^^^^[8r]]<<EP=127}BG4={>>@81,8l32EP=100P=70BR=36p.T(64,32,!1)[32`e]<<p=64EP=127}BG5={@127,0l8[[27r]'efg'^^^^]} BG6={@82,0l4EP=127[3rrrBR=48p.T(127,0,!4)'`eeb"b']@81,0p.T(0,127,!1)'`eeb"b'^^^} TR=16DL=HAZ;BG1;BG3;DL=BGN;BG1;DL=ME2;BG2;DL=SB1;BG3;DL=RF1;BG1;DL=ME4;BG2;DL=SB2[BG3]DL=RF2;BG1;DL=NK2;BG2;DL=NK3;BGH;BG5;BG6; //------------------------------------歓喜した貴婦人のハレルヤ K=1INT KK_TIME=257-1EST=152FUNCTION KKW(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(KK_TIME+1)CH=X2;@(X3,XA,XB)o5v=100EP=127V=100l4M=0p%=0TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)} //-(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M) KKW(01,01,041,00,0,K,064,4,2,127,09,0)KKW(07,07,088,00,0,K,084,1,2,120,09,0)KKW(13,13,119,09,0,0,___,5,0,127,09,0) KKW(02,02,083,00,0,K,064,2,2,100,09,0)KKW(08,08,042,00,0,K,000,3,2,110,09,2)KKW(14,14,056,00,0,K,050,2,2,127,09,0) KKW(03,03,053,00,0,K,000,2,2,100,10,0)KKW(09,09,043,00,0,K,127,3,2,110,09,2)KKW(15,15,115,00,0,K,___,2,2,127,09,0) KKW(04,04,083,00,0,K,127,2,2,100,10,0)KKW(10,10,025,00,0,0,064,3,1,127,10,0)KKW(16,16,091,00,0,0,084,2,1,127,10,0) KKW(05,05,039,01,0,K,044,2,2,120,09,0)KKW(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--// KKW(06,06,049,00,0,K,032,1,2,080,10,0)KKW(12,12,026,00,0,0,064,3,0,127,09,0) DL=KK_TIME;Tempo=EST;RF1=KK_TIME+3ME3=RF1+12ME4=ME3+8SB2=ME4+8NK1=SB2+17RF2=NK1+8INT ME5=RF2+8INT ME6=ME5+8INT SB3=ME6+8INT END=SB3+16 /*1*/MN1={V=110l16[`g^`g`g`g^`g`g`e^`d^`c^&&^`e`d^`d`d`d^`d`db^a^g^:l8g`c^^gg^^g`c^^gg^&&^`gl16]l8`e`f^^`e`e^^`e`f^^`e`e^^^l16} MN2={V=120l16"f^f^g^`c^a^^f^^^^rrffrffrg^^f^^^r"a^f^g^`d^`c^^a^^^^rraaraarb^^a^^^r;a^aag^a^b^`c^`d^^ra^b^`c^^`cbrarg^^^;`c^^^b^^ag^`c^e^e^g^frd^"grc^^^^rrr} STR MNS={[l8[`d^^aba^r]:a^`f#^a^l16`f#^^`f#`err`d`err`c#`b^^^`a^^^]`f#`f#`g`a`a`g`f#`ed`a`f#`a`d^^^}MN3={V=127MNS} STR MNT={[l8[`d^^aba^r]:l12aa#a`e^^^^^a^rgag`e^^^^^`c#^rl8]l12`f#^`da^^^^^b^^`c#^^^^^^^^^^^l8}MN4={V=127MNT} TR=1l16DL=ME3;M.W(30,80,!2)MN1;MN2;MN4;MN3;DL=SB3;MN4;MN3; /*2&3&4*/STR RT={SUB{br[`er`er`e^`c#b][4rrbr]}er[g#rg#rg#^f#e][4rrer]} RT1={l16EP=127[SUB{br`er`er`e^`c#b`g#^^^rr`g#`f#`er`er`e^`c#b`g#^^^rr}erg#rg#rg#^f#eM.T(30,127,!2)b^^^rrM=0bag#rg#rg#^f#eM.T(30,127,!2)b^^^rrM=0:bag#^abarg#rg#^abarg#r[14r]]} RT2={l12EP=110SUB{g^^ggge^re^rb^rb^rEP.T(80,127,!4)g^^^^r}EP=110HAM({`d^^`d`d`d`e^r`e^r`f#^r`d^r`e^^^^r})l16} RT3={l16SUB{br[`er`er`e^`c#b][7g#rf#r]`er`f#r[16`g#^:rr]b^l8b^^^^^^^b^^r`g#^r'bg#''bg#'^^^^^^rl16}er[g#rg#rg#^f#e][7`er`d#r]`g#r`ar[16`b^:rr]`e^l8`e^^^^^^^`e^^r`b^r`e`e^^^^^^r} RRF={l16DL=RF1-3[14r]RT;DL=RF1-1[14r]RT1;DL=NK1;RT2;DL=RF2-1[14r]RT1;DL=END-1[14r]RT3}TR=2;>RRF;TR=3RRF;TR=4RRF; /*5*/STR BS={[4e`e][4e^]}BSH={l1q=100c#^^^q=90l8}STR BSI={l16[8[3cr`cr]cr`c`c]l8}BS1={[[[3e`e]l16e^`e`el8]:[3"aa]l16"a^aal8[3"bb]l16"b^bbl8]"aa"bbc`ce`e"ff"gg"a^^r}BS2={[[8c`c]:[4"gg][4"g^]]"bb"gg["dd]d^"b^"g^^^} BS3={[8"ff][8"gg]["aa]["ff][c`c]["gg][4"ff]"gg"bbc^^r}BS4={[[[3d`d]l16d^`d`dl8]:[3"aa]l16"a^aal8["aa]"bbc#`c#][3"aa]l16"a^aal8d^"a^"d^^^} BS5={BR=48[3``c&c]rr[4c`c][3`g&"g]rr[4"g^][8c`c]"bb"gg["dd]d^"b^"g^^^}BS6={[[[3d`d]l16d^`d`dl8]:[4"a#a#][4"gg]][6"aa][c#`c#]}BS7={[16r]l12[d^`dr`dr]d`d`drar`d^dddd;d^`dr`dr"b^brbre^`er`er`e^^&&^^el8[4e`e]["aa][e`e]} STR BS8={q=100l4[e^^^]"a^^^"b^^^q=90l8[[3e`e]l16e^`e`el8]"aa"bbc`ce`e"ff"gg"a^^r}STR BS9={[7[3e`e]l16e^`e`el8]e^^^^^^^e^^r"b^ree^^^^^^r} BASS={l8<<DL=RF1-2BS;DL=RF1;BS1;DL=ME3;BS5;BS3;BS6;BS4;DL=NK1;BS7;BS8;BS2;BS3;DL=SB3+8BS4;BS9;}TR=5BASS;TR=7EP.W(110,30,!8)<BASS; /*6*/COH={[8'ceg'^^^]}CO1={SUB{HAM({[g#^^^f#^g#^:e^^^f#^^^]`cb`c`e`a`g#`a^})}HAM2({[e^^^^^^^:"a^^^"b^^^]"a"bce"f"g"a^})}CO2={SUB{[g^^ag^^e:d^^ed^^f]fef^fd"b^}HAM2({[c^^^^^^^:"g^^^"g^^^]"b"g"d^d"b"g^})} CO3={SUB{HAM({a^^^b^`c^b^^^`c^`d^`c^a^`e^`d^`c^^^`d`e`g})}HAM2({f^^^^^^^g^^^^^^^a^f^`c^g^f^^^gb`cr})}CO4={SUB{HAM({[f#^^^e^f#^edc#"b:d^e^]f#df#^})}HAM2({[d^^^^^^^:"a^^^^^"bc#]"a^^^d"a"d^})} CO5={BR=64HAM({l6gggd#^^^^^^^rl4fffd^^&&^``d})l4}CO6={SUB{HAM({[f#^^^e^f#^:ededc#"bc#"a]e^^^a^^^})}HAM2({[d^^^^^^^:"a#^^^"g^^^]"a^^^^^c#^})} STR CO7={SUB{b^g^`d^b^}HAM2({g^e^b^g^})[16r]l16@85,0HAM({[rrrr'egb'^^r]rrrr'ea`c'^^r;rrrr'egb'^^r})@49,0l4} STR CO8={SUB{HAM({g#^^^^^^^^^^^l8[16br]b^^^^^^^b^^rb^rbb^^^^^^l4})}HAM2({e^^^^^^^^^^^l8[16`er]e^^^^^^^e^^re^ree^^^^^^rrrrl4})} TR=6DL=RF1;CO1;CO5;CO2;CO3;CO6;CO4;DL=NK1;CO7;DL=ME5;CO2;CO3;CO6;CO4;CO8; /*8&9*/STR UL1={EP=90l8[[15r]:dg^^dd^^dg^^dd^^^]`c`d^^bg^^`c`d^^bg^^^}UL2={EP=100l16"a^"a^c^d^c^^"a^^^^rr"a"ar"a"ar"b^^"a^^^r"b^"b^f^g^f^^d^^^^rrddrddre^^d^^^r;d^ddc^d^e^f^g^^rd^e^f^^ferdrc^^^;f^^^e^^dc^f^"a^"a^SUB{b^arg^crg^^^^}c^"a#r"g^"cr"g^^^^rrr} UL3={SUB{MNS}[EP=100l8[SUB{`a^^`f#`g`f#^r}f#^^ded^r]:EP=110f#^`d^f#^l16`d^^`d`c#rrb`c#rra`f#^^^`e^^^]`d`d`e`f#`f#`e`c#af#d"adf#^^^} UL4={SUB{MNT}[EP=100l8[SUB{`a^^`f#`g`f#^r}f#^^ded^r]:EP=110l12ef#ea^^^^^e^rc#dc#g^^^^^e^rl8]EP=110l12`d^af#^^^^^g^^a^^^^^^^^^^^l8} ULMR={DL=ME3;UL1;UL2;UL4;UL3;DL=ME5;UL1;UL2;UL4;UL3;}TR=8ULMR;TR=9;>ULMR; /*10*/OA={n27n32n33n35n36}O1={'OA'}O2={'n28n39OA'}O3={'n49OA'}O4={'n57OA'}O5={'n51n59OA'}O6={'n28n40OA'}DM1={O1;rrr}DH1={[7DM1][2O1;r]} DM2={O1;rrrO2;rrr}DM3={DM2;O1;rrrO2;rrO2}DM4={[7DN2]O1;rrrO2;rO1;r}DM5={[7DM2]O1;O2;r[2O1]r[2O1]}DM6={[7DM2]O1;rrr[2O2;r]}DM7={[7DM2]O1;rrrO2;r[2O2]}DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]} DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}DM10={[7DM2][3O1]r[4O1]}DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}DM13={[6DM2]O3[7r][n54rrr]}DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr} DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]}DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]} DM20={[6DM2]O3;rrr[4O1]O4[7r]}DM21={[4DM2]SUB{[O3;rrrO5;rrrO4[7r]]}[DM2:O1;rrO1;O2;rO1;r][3O1]rO2;rO1;r}DM22={[6DM2]O3;rO1;rO5;rO1;rO4;rrrO6;rrr} STR DM23={[5DM2]O1;rrO1;O2;rO1;rO3;rO1;rO5;rO1;rO4;rrrl32[8O1]l16}STR DD={@25[O3[7r]][O3;rrr][O3;r][4O3]}DDH={DM7;DM8}DD1={DM6;DM20}DD2={DM7;DM21}DD3={DM6;DM22}DD4={SUB{[[12r]O3;rrr][32r][[12r]O4;rrr]}DM7;DM23} DD5={[SUB{n49}[3DM1]SUB{n57}O6;rrr[DM2]]DM21}DD6={SUB{[[12r]O3;rrr][32r][[12r]O4;rrr]}DM7;DM20} DD7={l12SUB{[O1;rr[4O1]rrO1;rr]}n49rrrrr[n49rr]n57rrn55rrn49rrrrrl6[n49rrn55rrn57rrrrr]l16@25[4DM1][4O1;r][4O1]l32[8O1]l16} STR DD8={[O3[13r]O1;r:O4[13r]O1;r][3DM1]rrrr[7DM1][O1;r][4DM1]O3;rrr[4O1]O4[7r]}STR DD9={[6DM2][15DM1]O2;rO1;rl8O3;rrrrrrrO4;rrrO5;rr[O3]rrrrrrrl16} TR=10l16DL=RF1-2[DM2][O1;rrO1][O1;r][3O1]rDL=RF1@25BR=20p%=1000DD1;DL=ME3;DD5;DD3;DD6;DD4;DL=NK1@(OrchestraSet)DD7;DD8;DD2;DD3;DL=SB3+8DD4;DD9; /*11*/GR={'n42n85'}GA={n44}GB={'n51n46'}TA={n54}MT={n51}DR={'n38n40n82n85'}PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}} GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}GP2={[3GR;rGB;r]GR;r[2GB]}GP3={[3[GR]GB;r][2GR][2GB]}GP4={[GR]GB;GR}GP5={[3GP4][GR][GB]}GP6={[GR][TA]}GP7={[GP6][GR]TA;GR;GP6}GP8={[3[GR]GB;GR][2GR][2GB]} GGH={@26BR=20p%=5000[7GP3]GP2;BR=20p%=-1000}GGI={@26[4BR=20p.T(127,0,!1,0,127,!1)[GP3]]BR=20p%=-1000} GG1={[7GP3]GP2}GG2={[[3GP3]GP2]}GG3={[7GP3][GB;r[GR]]GB[7r]}GG4={[7GP1][GB;r[GR]]GB[7r]}GG5={[[16r]GP3][3GP3]GP2}GG6={[7GP1]GP3} GG7={l12[12GB^[4GR]]l16[4[GR]GB;r][GB;r[GR]][4GB][4GR]}GG8={[GP3]GP8[4GP2]l8GB;rrrrrrrGB;rrrDR;rr[GB]rrrrrrrl16} TR=11l16DL=RF1-2@26PL1;BR=20p%=-1000GP3;GP8;DL=RF1@26PL1;BR=20p%=-1000GG1;DL=ME3;GG5;GG3;GG6;GG4;DL=NK1;GG7;GG1;GG2;GG3;DL=SB3+8GG4;GG8;Tempo=161[16r][4GP2][4GP3] /*12*/PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}PD2={@26EP.T(20,127,!1^1^1)[48DR]}PD3={@33SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}} PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}PD5={@26[3DR;r][5DR]r[4DR]}PD6={@26[4DR;r][3DR]r[4DR]}PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0} PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}PD11={BR=20p.T(127,32,!1)[16n51]p=64}PD12={@26[4O2][4O1][O2][6O1]@17}STR PD13={@26EP.T(40,127,!1^1)[32DR]} STR PD14={@(OrchestraSet)EP.T(70,127,!4,70,100,!2,60,127,!4)[5DR]r[10DR]}STR PD15={@33n49[7r]n55[7r][7n51rrr][n51r]SUB{[48r][3n51rrr][n51r]}[16n57r:rr]n49rl8n55rrrrrrrn49rrrn55rr[n57]rrrrrrrl16} TR=12l16DL=RF1;PD3;DL=SB2[PD3]DL=NK1-1PD14;DL=RF2;PD3;DL=SB3[PD3]PD15[16r]PD3; /*13*/PG1={P.onCycle(!8,0,22,106,127,106,22)}DS1={br`br`gr`e`c`cargrdr}DS2={[8r][4`c]grgg}DS3={[8r]d`dd`drd`dd}DS4={gr`drbrggrg`dggg`dg}DS5={`d`dr`dararfrfrcrcc}DS6={[10r]`ar`ergr}DS7={[12r]`eaer}DS8={p.T(127,0,!1)BR=20[16e]rp=64}DS9={[`d#][a#][g][d#][8r]}DS10={[8`g]`c`cgrcr"gr} DS11={[rrrr`dafd]}DS12={[4`g][4`d]ggrgrgrg}DS13={[8r][`dr]`dad"a}DS14={[3`g]rgggr`gr`ggrg`g`g}DS15={`g`gr`d`drggrddr["gr]}DS16={[8r]`gr`crgrcr}DS17={eeeeddddgrrrerrr}DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]} TR=13l16<DL=HAZ;PG1;HAM2({DL=RF1+7DS2;DL=ME3+3DS7;DL=ME3+7DS6;DL=ME4+7DS7;DL=SB2+3DS6;DL=SB2+7DS7;DL=SB2+11DS6;DL=SB2+15DS7;DL=NK1-1DS8;DL=NK1+1DS2;DL=NK1+5DS13;DL=NK1+7DS8;DL=RF2+7DS2; DL=ME5+3DS7;DL=ME5+7DS6;DL=ME6+7DS7;DL=SB3+7DS7;DL=SB3+11DS6;DL=SB3+15DS7;DL=END+2DS7;DL=END+6DS6;}) /*14*/SPH={l12<q=150V.T(80,127,!1^1^1^1^1^1^1^1)@1,0P=60SUB{l3<['c#`c#'^^^^^:'b"b'^^^^^'"aa'^^'"f#f#'^^['"g#g#'^^]]>}l6[8g#`c#`e][a`c#`e][a`d`f#]g#`c#`f#;g#`c#`e;g#`c#`d#;f#`c#`d#;eg#`c#>eg#b`c#^^^^^^V=100q=90} SPI={l8>@19,0EP=127d^a^f^^edfedc#e"a^<l16EP=100@47,0HAM({[3a^^r:e^^r"a^^r]})rrr@49,0l6HAM({"ac#d"afd"g#c#d"g#ec#})l16<@48,0[8cccr]>} STR SP={@56,0EP=127l16HAM({>eeereeerg#rf#re^^c#ec#d#eerererf#r"br<})}SP1={l16V=127HAM2({EP=90[14r][M=127@85,0'`g#b'^^^M=0[12r]]})rrrrEP.T(70,127,!2,127,100,!4)@2,0HAM({"bc#"bc#ef#ef#g#^^f#er"br}) HAM2({EP=90[[12r]:M=127@85,0'`g#b'^^^M=0]})@3,0EP=110HAM({arbr`crarbrg#rarfrgrdrSUB{a^^^g#ag#aa^^^^}c^^^"bc"b"a"a^^^^rrr})V=100} SP2={[l16HAM2({[12r]M=127[@85,0'`g`e'^^^:[12r]]M=0}):@1,0l12[18'gd"b']['gd"b'^^]]@2,0l12[24'fd"b']} SP3={@47,0EP=110l16"f^f^g^`c^MidiDelay({a^^f^^^^},7,!4)[16r]"a^f^g^`d^MidiDelay({`c^^a^^^^},7,!4)[16r][8r]>@83,0EP=90M=127SUB{g^a^b^^^}b^`c^`d^^^<[16r]l4M=0EP.T(70,120,!1)'`f`ca'^^^@85,0l16M=30EP=110HAM({SUB{d^^rg^^rc^^^}g^^rb^^r`c^^^^^rr})M=0} SP4={[l8@88,0EP=100M=127HAM({[[6r]'`f#`da'^]})M=0:@46EP=127HAM({SUB{f#^`d^f#^`d^}a^`f#^a^`f#^})@48,0l12EP=127BR=24p.T(127,40,!1)[12'cde']p=64]@83,0l4EP.T(70,120,!1)'af#d'^^^@85,0EP=110l16SUB{f#^^re^^rf#^^^}`d^^r`c#^^r`d^^^rr}SP5={<@41,0EP=127CO5>} STR SP6={[l8@88,0EP=100M=127HAM({[[6r]'`f#`da'^]})M=0:@49EP=110[4'`a#d'r][4'`gc#'r]p=64]@3,0l12HAM2({df#af#f#f#f#f#f#gf#f#geeeeef#eeeee})} STR SP7={l8[16r]@49EP=127HAM({l6SUB{[`d^r]`d^^^^r}[`f#^r]`f#^^^l12a`c#`d`el6SUB{`d^rb^r`e^^^^r}[`f#^r]`g^^^^r})l16@3,0HAM({MidiDelay({ef#gf#errref#gabrrrab`c`d`errr`e`f#`g`a`br},3,!8)})} TR=14l16DL=RF1-1[14r]SP1;SP5;SP2;SP3;SP6;SP4;DL=NK1;SP7;SP1;SP2;SP3;SP6;SP4; /*15*/STR PSH={l16P.onCycle(!16,30,97)EP.T(90,127,!1^1^1^1^1^1^1^1)@6,0[5c#c#c#rc#rc#rc#c#rc#rrrr]dddrdrdrddrdrrrr[c#c#c#rc#rc#rc#c#rc#rrrr]@82,8l1EP.T(40,127,!1^1^1^1)P=80q=100'`c#g#e'^^^q=90} STR PSI={@20,0l8P=90EP=110SUB{>`f`e`d`f`e`d`c#`e`da`d`e`f`e`f`g<}HAM2({d^a^f^^edfedc#e"a^})P=20l12@57,0EP=127HAM({l12afa`c^^c^^fcfa^^l16[4a]l32[12a]rrrr}) @53,0P=100l6HAM({a^^a`f`d`d^^`c#^r})@13,0P=50EP=127HAM3({l16"grgggrargrerererfrar`crarargrl32[8g]})} STR PS1={@39,8EP=80BR=24p.W(64,127,!10)P.onCycle(!4,0,127)l16[31"e^^r]p=64e^&&^"eP=80} STR PS2={[l16@19,0P=80EP=90M=80['`g`e`c'^^'`g`e`c'[12r]]:EP=127@1,0l12HAM2({"g"a"a#cdd#drr"a#rr"g^^^^^[6r]})]EP=110@2,0l12HAM2({"f"g"a"a#cdcrr"arr"f^^^^^^[5r]})M=0} STR PS3={l8<@4,0q=150EP=100[fa`cf`cfa`c][gb`dg`dgb`d]a`c`e`cfa`ca`c`e`g`egb`db;fa`cf`cfa`cq=100SUB{d^g^c^^^}g^b^`c^^^>q=90} STR PS4={[l12@3,0EP=100HAM({[4f#a`dc#a`d]})EP=120:['af#`d'^^[3'af#`d']['af#`d'^^]]]HAM({`d`c#bagf#edc#"b"a"f#SUB{f#^^eeef#^^}`d^^[3`c#]`d^^rrr})}STR PS6={[l12@3,0EP=100HAM({[4f#a`dc#a`d]})EP=120[24r]]} STR PS7={<@3,0RT2>l8[32r]@2,0EP=120[4'egb'r]['ea`c'r]['egb'r]}STR PS8={@39,8EP=80BR=24p.W(64,127,!10)P.onCycle(!4,0,127)l16[27"e^^r]p=64e^&&^"eP=80} TR=15DL=RF1;PS1;DL=ME3;PS2;PS3;PS6;PS4;DL=NK1;PS7;PS1;PS2;PS3;DL=SB3+8PS4;PS8; /*16*/BGH={P=70SUB{BG2}[3[7r]@31,8l4BR=50p.T(127,0,!4)'cg`c'p=64]rrrrBG5} BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}BG2={l4<@128,3P=70p.T(64,64,!4,70,127,!2)'a"a`a'^^r>p=64}BG3={@80,0l4rrrBR=120p.T(127,0,!6)`gp=64} BG4={>>@123,5l32P=70BR=36p.T(64,32,!2^4)[24`e]<<p=64BR=120p.T(110,0,!6)@80,0l4`gp=64}BG5={l4rrrBR=120p.T(110,0,!6)@80,0`gp=64} BG6={@83,0l1P.onCycle(!1^1,20,107)EP=70BR=48p.W(127,0,!1^1)[3`f^]p=64P=70EP=127}STR BG7={l8[[@127,0rrrrr'cde'^^]:[16r]][14r]@31,8l4BR=50p.T(127,0,!4)'cg`c'p=64} STR BG8={@126,8l4BR=40P=96EP=100p.T(127,0,!1^1)'gfe'^^^^^^^p=64EP=127}STR BG9={l8[6r]@128,2P=84MidiDelay({'cde'},6,!8)} STR BG10={l16[3@127,0'cde'^^^^rrr]'cde'^^^l4BR=120p.T(110,0,!6)@80,0`gp=64@48,0l12<[8"b"bb^:"b^]>BR=120p.T(110,0,!8)@80,0`g^p=64l16@82,0TrackKey=K[7"e"e"be]TrackKey=0l4BR=120p.T(110,0,!6)@80,0`gp=64} TR=16DL=RF1-2BG1;BG5;DL=RF1+7BG5[BG8]BG2;DL=ME3+7BG5;DL=ME4;BG6;BG1;BG2;DL=SB2[BG7]DL=NK1-1BG1;BG10;DL=RF2+7BG4;DL=ME5+7BG5;DL=ME6;BG6;BG1;BG2;DL=SB3+8BG7;DL=END+7BG4; l1EP.T(80,127,!1^1)BR=24p.T(32,127,!1^1^1^1^1^1^1^1^1^1^1^1^1)@127,0'cde'^^^^^^^^^^^^rp=64 //------------------------------------DON'T LET ME DOWN INT DL_TIME=370K=1EST=161FUNCTION DLW(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(DL_TIME)CH=X2;@(X3,XA,XB)o5v=100EP=127V=100l4M=0p%=0TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)} //-(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M) DLW(01,01,012,00,0,K,064,4,2,127,09,0)DLW(07,07,039,00,0,K,084,1,2,100,09,0)DLW(13,13,119,00,0,0,___,5,0,117,09,0) DLW(02,02,063,00,0,K,064,2,2,100,09,0)DLW(08,08,012,00,0,K,000,3,2,100,09,2)DLW(14,14,082,01,0,K,___,2,2,117,09,0) DLW(03,03,085,00,0,K,000,2,2,100,10,0)DLW(09,09,012,00,0,K,127,3,2,100,09,2)DLW(15,15,003,00,0,K,080,2,2,110,10,0) DLW(04,04,082,00,0,K,127,2,2,100,10,0)DLW(10,10,025,00,0,0,064,3,1,117,10,0) DLW(05,05,039,01,0,K,044,2,2,100,09,0)DLW(11,11,025,00,0,0,064,3,0,117,09,0) DLW(06,06,049,00,0,K,032,1,2,070,10,0)DLW(12,12,026,00,0,0,064,3,0,117,09,0) DL=DL_TIME;Tempo=EST;HAZ=DL_TIME+3BGN=HAZ+16ME1=BGN+8ME2=ME1+8SB1=ME2+8RF1=SB1+8ME3=RF1+8ME4=ME3+8SB2=ME4+8RF2=SB2+16NK1=RF2+8NK2=NK1+8SB3=NK2+8 /*1*/MN1={V=100["a^e^a^`c^barg^ee^aaga^:a`c`d`e^`c^`d^b^]`e`e`e`d`crb^^^}MN2={V=110a^a`ca`e^ra^a`ca`e^`eg^gbg`d^rg^gbg`d^`d[a^a`ca`g^`f]r`e^^`e^`d`c`e^^^^r} MN3={V=120b`c`d[`e^`e^`d^`d`d`d`gr`e^`c`c`d:`e^`e^`d^bggara^a`c`d]`e^`e^`d`fr`e^^^^^rrr} MN4={V=120b`c`d[`e^`e^`d^`d`d`d`gr`e^`c`c`d:`e^`e^`d^bggara^a`c`d]`e^`e^`d`fr`e^^^^aMN3} TR=1l8DL=HAZ-3[5r]HAM({[3b`c`d`e]b`eb`eMN4})EP=127DL=ME1;HAM({MN1;MN2;MN3;DL=ME3;MN1;MN2;MN4})DL=SB3-1[5r]>q=40MN3<q=90 /*2&3&4*/RT={EP.T(100,127,!1^1)SUB{[b^bbbrb^^^^^^^^r]}HAM({f^fffrf^^^^^^^^re^eeere^^^^^^^^r})}RTH={EP=100[MidiDelay({SUB{`c^`c`c`cr`c^^^^^^^^r}HAM2({a^aaara^^^^^^^^r})},2,!1)[48r]]} RT1={EP=127l16SUB{[a^aaararb^b^b^`c^^^`c`c`cr`cra^^^g^^^:f^fffrfrg^g^g^a^^^c^e^c^e^c^d^c^]a^aaarara^^b^^`c^l8b^^b^^^l16} HAM({[`e^`e`e`er`er`d^`c^b^a^^^eearer`c^^^b^^^:`c^`c`c`cr`cr`d^`c^`d^`e^^^e^a^e^`c^e^b^a^]`c^`c`c`cr`cr`c^^`d^^`e^l8`d^^`e^^^rl16})} RRF={DL=BGN;RT1;DL=RF1;RT1;DL=RF2;RT1;DL=NK2;RTH;DL=NK2+6RT;DL=SB3+8SUB{[a^aaarar][a^aa]a^aaarar}HAM({[`e^`e`e`er`er][`e^`e`e]`e^`e`e`er`er})}TR=2;>RRF;TR=3RRF;TR=4RRF; /*5*/BSH={q=20BS4;q=90}BSI={[["aa]:[12r]]rrrr"fr"fr"gr"gr[8"aa]q=100f^^^^^^^e^^^^^^^q=90} BS1={[3["ff]["gg][4"aa]][4"dd]e^^^^^^&&"e}BS2={[[8"aa][4"dd][4"ee]]}BS3={[8"ff][8"ee][8"dd][4"ee]e^^^^^^&&"e}BS4={[3["ff]["gg][4"aa]][4"dd]e^^^^^^&&"e}BS5={[3"frfr"grg"g"g"ar"a^^^r]drdrddre^^^^^rrr} BASS={l8<<DL=HAZ-2[4"ff][3"f^]DL=HAZ;BS5;BS4;DL=BGN;BS1;BS2;BS3;BS4;BS1;BS2;DL=SB2[BS4][BS1]BSI;BSH[4"ff]"f^"f^[4"f]}TR=5BASS;TR=7BASS; /*6*/CO1={SUB{HAM({[`e^`d^`e^^`d:`c^b^`c^^`d]`c^^^`d^`e^})}HAM2({[3f^g^a^^^]d^^^e^^^})}CO2={SUB{[`e^^^`d^^^`c^^^:b^^^]`d^`e^}HAM2({[a^^^^^^^d^^^e^^^]})} CO3={SUB{HAM({a^^^g^a^b^^^g^^^a^^^`c^^^b^^^`e^^})}HAM2({f^^^^^^^e^^^^^^^d^^^^^^^e^^^e^^r})}CO4={SUB{HAM({[`c^b^`c^^`d:`c^b^`c^^^]`c^^^b^g^})}HAM2({[3f^g^a^^^]d^^^e^^^})} TR=6DL=BGN;CO1;CO2;CO3;CO4;CO1;CO2;CO3[CO4]DL=NK1;CO1;DL=SB3;>CO1< /*8&9*/UL1={EP=100[24r]SUB{a^a^g^g^}`c^`c^b^b^[21r]SUB{aaaaara^^^}`c`c`c`c`crb^^^}UL2={EP=100SUB{`c^`c`c`c`c^r`c^`c`c`c`e^`eb^bbbb^rb^bbb`d^`d;`d^`d`d`d`d^`d`d^`d`d`d`d^`d^b^^b^bbb^^^^}f^ffff^rf^ffff^fg^gggg^rg^gggg^g;f^ffff^ff^fffd^d^e^^e^eee^^^^r} UL3={EP=120[rrrSUB{`c^`c^b^bbb`cra^^^^}a^a^g^ggggre^^^^:`c^`c^b^ge"bcrSUB{c^^^^^}rr]SUB{`a^`a^`a`ar`b^^^^^}`c^`c^`c`crb^^^^^rrr} UL4={EP=120[rrrSUB{`c^`c^b^bbb`cra^^^^}a^a^g^ggggre^^^^:`c^`c^b^ge"bcrSUB{c^^^^^}rr]SUB{`a^`a^`a`ar`b^^^^^}`c^`c^`c`crb^^^^rUL3} ULMR={l8DL=HAZ-1[5r]UL4;DL=ME1;UL1;UL2;UL3;DL=ME3;UL1;UL2;UL4;l8DL=SB3-1[5r]>q=40UL3<q=90}TR=8ULMR;TR=9;>ULMR; /*10*/OA={n27n32n33n35n36}O1={'OA'}O2={'n28n39n55OA'}O3={'n49OA'}O4={'n57OA'}O5={'n51n59OA'}O6={'n38n40OA'}DM1={O1;rrr}DH1={[7DM1][2O1;r]} DM2={O1;rrrO2;rrr}DM3={DM2;O1;rrrO2;rrO2}DM4={[7DN2]O1;rrrO2;rO1;r}DM5={[7DM2]O1;O2;r[2O1]r[2O1]}DM6={[7DM2]O1;rrr[2O2;r]}DM7={[7DM2]O1;rrrO2;r[2O2]}DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]} DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}DM10={[7DM2][3O1]r[4O1]}DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}DM13={[6DM2]O3[7r][n54rrr]}DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr} DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]}DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]} DM20={[6DM2]O3[7r][O1;r][3O1]r}DM21={[6DM2]SUB{[n49rrr][n57rrr]}[DM2]}DM22={[7DM2]O1;rrO1;O2;rO1;r}DM23={[6DM2]O3[9r]O1;rO6;rrr}STR DM24={[6DM2]O3[9r]O4;rO4;rrr}STR DM25={[4DM2]O3[11r][4O1]O4[9r]O1;rO6;rrr} DDH={BR=20p%=8000@33DM7;DM24@25BR=20p%=1000}STR DDI={O3[29r]O1;rO4[15r][4O5;rrr]DM25}DD1={@25DM6;DM20}DD2={SUB{[rrrrn49[15r][n57r][40r]]}DM21;DM22}DD3={DM6;DM23}DD4={@25DM7;DM24} DD5={[O3[15r]O4[15r]][4DM2]O3[15r]O4[15r]}DD6={[[7DM1]:[O1;r]][4O1]DM20}DD7={l8[3[3O1;r][4O1]rO1;rrrr][O1;r][O1]rO1[8r]l16} TR=10l16DL=HAZ-2[O3;rrrO2;rrr][3O3;rrr]O2;DL=HAZ@25BR=20p%=1000DD7;DD4;DL=BGN@25BR=20p%=1000DD1;DD2;DD3;DD4;DD1;DD2;DD5[DD4]DD6;DD1;DDI;DDH[O3[7r]:O4[7r]]EP.T(50,127,!1)[8O1] /*11*/GR={'n42n85'}GA={n44}GB={'n51n46'}TA={n54}MT={n51}DR={'n38n40n82n85'}PL1={If(MODE1==GS){P.onCycle(!8,32,80)}Else{P.onCycle(!8,20,80)}}PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}} GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}GP2={[3GR;rGB;r]GR;r[2GB]}GP3={[3[GR]GB;r][2GR][2GB]}GP4={[GR]GB;GR}GP5={[3GP4][GR][GB]}GP6={[GR][TA]}GP7={[GP6][GR]TA;GR;GP6}GP8={[3[GR]GB;GR][2GR][2GB]} GGH={BR=20p%=8000GG4}GGI={@26BR=20p%=8000[4GP2]@25p%=1000[GP3][32r]@26}GG1={[7GP3]GP1}GG2={[[3GP3]:[4GB;r[GR]]]GP8}GG3={[7GP3][4GB;r[GR]]}GG4={[7GP1]GP3}GG5={[4GP2][3GP2][4GB;r[GR]]}GG6={l8[3[3GB;r][4GR]rGB;rrrr][GB;r][GB]rGB[8r]l16} TR=11l16DL=HAZ-2[GP2]DL=HAZ;BR=20p%=1000@26PL1;GG6;GG4;DL=BGN;BR=20p%=1000@26GG1;GG2;GG3;GG4;GG1;GG2;GG5[GG4]GG5;GG1;GGI;GGH; /*12*/PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}PD2={@26EP.T(20,127,!1^1^1)[48DR]}PD3={@33SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}} PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}PD5={@26[3DR;r][5DR]r[4DR]}PD6={@26[4DR;r][3DR]r[4DR]}PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0} PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}PD11={BR=20p.T(127,32,!1)[16n51]p=64}PD12={@26[4O2][4O1][O2][6O1]@17}PD13={@26EP.T(40,100,!1^1)[24DR]l32[16DR]l16EP=127} TR=12l16DL=HAZ[PD3]DL=BGN-2PD13;DL=BGN;PD3;DL=ME2+7PD4;DL=SB1[PD3]DL=ME4;PD3;DL=ME4+4PD2;DL=SB2[4PD3]DL=NK2;V=100p=64PD3;DL=SB3;BR=20p%=8000PD3;p=64 /*13*/PG1={P.onCycle(!8,0,22,106,127,106,22)}DS1={br`br`gr`e`c`cargrdr}DS2={[8r][4`c]grgg}DS3={[8r]d`dd`drd`dd}DS4={gr`drbrggrg`dggg`dg}DS5={`d`dr`dararfrfrcrcc}DS6={[10r]`ar`ergr}DS7={[12r]`eaer}DS8={p.T(127,0,!1)BR=20[16e]rp=64}DS9={[`d#][a#][g][d#][8r]}DS10={[8`g]`c`cgrcr"gr} DS11={[rrrr`dafd]}DS12={[4`g][4`d]ggrgrgrg}DS13={[8r][`dr]`dad"a}DS14={[3`g]rgggr`gr`ggrg`g`g}DS15={`g`gr`d`drggrddr["gr]}DS16={[8r]`gr`crgrcr}DS17={eeeeddddgrrrerrr}DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]} STR DS18={[8r]`f`dbgec"b"g}TR=13l16<DL=HAZ;PG1@119,8DL=HAZ+3DS7;DL=HAZ+7DS8@119,0DL=HAZ+11DS6@119,9HAM({DL=HAZ+14DS13;DL=HAZ+15DS18})@119,0DL=BGN+3DS6;DL=BGN+7DS13;DL=ME1+3DS2;DL=ME1+7DS6;DL=ME2+3DS2;DL=ME2+7DS6;DL=SB1+3DS7;DL=SB1+7DS8;DL=RF1+3DS6;DL=RF1+7DS13; DL=ME3+3DS2;DL=ME3+7DS6;DL=ME4+3DS2;DL=ME4+7DS6;DL=SB2+3DS7;DL=SB2+7DS8;DL=SB2+11DS7;DL=SB2+15DS8;DL=RF2+3DS6;DL=RF2+7DS13;DL=NK1+3DS6;DL=NK1+7DS13@119,0DL=NK2+3DS6@119,9HAM({DL=NK2+6DS13;DL=NK2+7DS18})@119,8DL=SB3+3DS7;DL=SB3+7DS8@119,0 /*14*/SPH={V=60q=20SP4;V=100q=90}SPI={l8@82,1v=110[4"aa`ca`da`ea]@82,8v=120["aa`ca`da`ea]l16} SP1={>@82,8v=90[3fc"afc"afc;gd"bgd"bgd[aecaecae]][d"a"fd"a"fd"a][16r]<}SP2={@81,1v=80[[4`cae`cae`ca][fd"afd"afd][gecgecge]]} SP3={@4,0v=100[4afbf`cf`df][4geaebe`de][4fdgdad`cd][geaebe`de][16r]}SP4={@39,0v=100[3`caf`caf`ca;`dbg`dbg`db[`cba`cba`ca]][afdafdaf][16r]} TR=14DL=HAZ;l16P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)EP.onCycle(!8,80,110,80,127)DL=HAZ+8SP4;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3[SP4]DL=NK1;SP1;SPI;SPH; /*15*/STR FT={@83,0l4EP.T(90,127,!1^1)SUB{`c^^^b^^^}HAM({f^^^e^^^})}FT1={HAM({l8@62,0EP=110M=127q=70MD({[3SUB{c^rrd^rre^rr}f^rrg^rra^rrrrrr]},1,!4)M=0q=100EP.T(60,100,!1)@83,0'fd'^^^^^^^q=90[8r]})} FT2={HAM({[l8@56,0EP=100rr'`cae'[7r]@63,0'`ca''`ca'^^^^q=100EP.T(50,100,!1)@86,0'fd'^^^^^^^q=90:@85,0q=80EP=110['`ca'^]['bg'^]q=90]>@19,0SUB{aara^^^^}`c`crb^^^^<})} FT3={HAM({l4>EP=70P.onCycle(!4,32,96)@100,0`e^^a`ca`c`g`e^^^b^g^a^^^`ca`c`db^^^`e`d`c`d<P=80})} FT4={HAM({l8EP=110@82,8[rrSUB{`crb^^}frg^^rrrSUB{`cr`c^^}gra^^r:rrSUB{`crb^^}frg^^rrrSUB{`cr`c^^}ara^^r]@86,0q=100EP.T(60,100,!1)'fd'^^^^^^^q=90[5r]EP=127@85,0'gb''gb'^})} TR=15DL=HAZ+8FT4;DL=BGN-2FT;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3[FT4]DL=NK1;FT1;DL=NK2+6FT; /*16*/BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}BG2={l4<@128,3P=70p.T(64,64,!4,70,127,!2)'a"a`a'^^r>p=64}BG3={@80,0l4rrrBR=120p.T(127,0,!6)`gp=64} BG4={@81,0l16P=70BR=24[10r]HAM2({"a&^`a&^"a^})}BG5={@128,0l4P=70rrr'cde'}BG6={@123,3BR=40p.T(128,0,!1^1^1^1)l1'cde'^^^} TR=16DL=HAZ+7BG1;DL=HAZ+14BG1;BG2;DL=BGN;BG6;DL=BGN+6BG1;BG3;DL=ME1+7BG5;DL=ME2+7BG3;DL=SB1+6BG1;BG2;DL=RF1+6BG1;BG3;DL=ME3+7BG5;DL=ME4+7BG3;DL=SB2+6BG1;BG2;DL=SB2+14BG1;BG2;DL=RF2+6BG1;BG3; DL=NK1+6BG1;BG3;DL=NK2+6BG1;BG2;DL=SB3+7BG1>>@126,7l1P=70BR=48p.T(128,32,!1^1^1^1)'cde'^^^<<p=64 //------------------------------------TOO YOUNG TO FALL IN LOVE INT TY_TIME=495-7EST=157K=1FUNCTION TYW(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(TY_TIME+7)CH=X2;@(X3,XA,XB)o5v=100EP=127V=100l4M=0p%=0TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)} //-(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M) TYW(01,01,081,00,0,K,064,4,2,127,09,0)TYW(07,07,035,00,0,K,084,1,2,110,09,0)TYW(13,13,119,00,0,0,___,5,0,127,09,0) TYW(02,02,083,00,0,K,064,2,2,090,09,0)TYW(08,08,081,00,0,K,000,3,2,100,09,2)TYW(14,14,082,00,0,K,040,2,2,110,09,0) TYW(03,03,068,00,0,K,000,2,2,090,10,0)TYW(09,09,081,00,0,K,127,3,2,100,09,2)TYW(15,15,003,00,0,K,096,2,2,090,10,0) TYW(04,04,069,00,0,K,127,2,2,090,10,0)TYW(10,10,025,00,0,0,064,3,1,110,10,0) TYW(05,05,039,01,0,K,044,2,2,110,09,0)TYW(11,11,025,00,0,0,064,3,0,110,09,0) TYW(06,06,049,00,0,K,032,1,2,070,10,0)TYW(12,12,026,00,0,0,064,3,0,120,09,0) DL=TY_TIME+7Tempo=EST;HAZ=TY_TIME+1BGN=HAZ+16ME1=BGN+8ME2=ME1+8SB1=ME2+8RF1=SB1+16ME3=RF1+8ME4=ME3+8SB2=ME4+8RF2=SB2+16NK1=RF2+8NK2=NK1+8NK3=NK2+8 /*1*/STR MN={q=140HAM2({rEP.T(70,90,!2^4)ef#g#ag#ab})}MNH={HAM2({q=130EP=100`cb^a^^`ef^^^^fga^ba^g^^`ee^^^^efg^ag^a^b^`c^`d^`c`g^`f^`e^^^^^^^l16EP=110`e^`f`e`d`cbae^l8})@22,0q=95} MN1={V=100[reae`c^bareae`c`cba:f^^f^fg^e^de^^^r]`e^^b^b`c`d`e^`d`e^^^r}MN2={V=110raaaab`c^rbbbb`c`d^r`c`c`c`c`d`e`d^`e^`e^`d^rraaaafga`c^^rb^a^eeeerdre^^^rr} STR MNN={`cb^a^^`efrf^f`e`d`c`d^`d`d`d^`c`d`f`e^`f`er`dr`c^^^rraab`c^^rraa`db^bbrarg#^eeea^g#a^^^^} MN3={eabMNN}MN4={V=127eab`cb^a^^`efrf^f`e`d`c`d^`d`d`d^`c`d`f`e^`f`er`dr`c^^^rraab`c^^rraa`db^bbrarg#^ef#g#ag#abMNN;} TR=1l8>q=95DL=HAZ+6HAM2({l16@3,0EP=110[3`e^`f`e`d`cba]e^})l8@22,0q=95DL=HAZ+7rrrrrV=110MN3;DL=ME1;MN1;MN2;MN4;DL=ME3;MN1;MN2;MN4;DL=NK3-1V=100@89,0MN;MNH; /*2&3&4*/RT1={SUB{a^^aaarg^ggggrgrf^^f^ff^e^ee^eee;d^^dddrd^ddddrdrg#^^g#^g#g#rb^^^^}HAM({`c^^`c`c`crb^bbb`crbra^^a^ab^`c^`d`e^ab`c`g^^`g`g`gr`f^`f`f`f`fr`fr`e^^`e^`e`fr`e^^^^rrr})} RRF={l8M=50DL=BGN;RT1;DL=RF1;RT1;DL=RF2;RT1}TR=2;>RRF;TR=3RRF;TR=4RRF; /*5*/BS={BR=30`e^^^^^^&&e}STR BSQ={q.onCycle(!8,50,100)}BS1={[4a`a][4g`g][4f`f][4e`e][8d`d]q=90e^^e^eere^^^^^^^BSQ}BS2={[[4a`a][4g`g][4d`d][4e`e]]} BS3={[4f`f][4f#`f#][4g`g][4g#`g#][4f`f][4d`d][4e`e]e^^^^^^^}BS4={[4a`a][4d`d][4g`g][4c`c][4f`f][4"bb][4e:`e]q=90`eq=100`e^^^^^^&&eBSQ} BASS={l8<<<DL=HAZ+6l16[BR=30`e^^^^^^&&e]l8DL=HAZ+7BS;DL=HAZ+8BSQ;BS4;DL=BGN;BSQ;BS1;BS2;BS3[BS4]BS1;BS2;DL=SB2[BS4]BS1;BS2;BS3}TR=5BASS;TR=7BASS; /*6*/CO1={SUB{`c^^^b^`cba^^b`c^`e`g`f^^^`d^^^b^^^g#^ab}HAM2({a^^^g^^^f^^^e^^^d^^^^^^^e^^^e^^^})}CO2={SUB{[`c^^^b^^^:f^^^g^a^]a^^^b^`d^}HAM2({[a^^^g^^^d^^^e^^^]})} CO3={v=80SUB{HAM({`c^^b`c^^`d`e^^`f`e^^`d`c^^b`c^^`db^^ag#^})}HAM2({f^^^f#^^^g^^^g#^^^f^^^d^^^e^^^e^rr})v=70} CO4={v=80SUB{HAM({`c^^^a^^^b^^^g^^^a^^^`c^^^b^^^g#^ab})}HAM2({a^^^d^^^g^^^c^^^f^^^"b^^^e^^^e^^^})v=70} TR=6DL=HAZ+8V=80CO4;V=100DL=BGN;CO1;CO2;CO3[CO4]CO1;CO2;CO3[CO4]DL=NK1;CO2;CO3;CO4; /*8&9*/UL1={EP=110[r"ac"ae^dcr"g"b"g:eedcEP=100SUB{c^^c^cc^"b^"g"b^^^}"a^^"a^"a"a^"g^"e"g^^^r]"b"bcdf^^d^defEP=100SUB{b^bg#^^^}e^ee^^^r} UL2={EP=100rfffdef^rf#f#f#d#ef#^rgggefgg#^g#^g#^e^rrffffdefa^^rg^f^EP=90SUB{bbbbrarg#^^^}ccccrcr"b^^^rr} STR ULL={SUB{cc^c^^c"ar;f^ffedg^ggg^ggg`c^`c`cr`cr`c^^^rraaaa^^rraaag#^g#g#rg#rb^eeee^ee^^^^}ee^e^^ecr;a^aagfd^ddd^ddde^eergre^^^rrffga^^rragfe^eerdr"b^"b"b"be^ee^^^^}UL3={"acdULL} UL4={EP=100"acdSUB{cc^c^^c"ar;f^ffedg^ggg^ggg`c^`c`cr`cr`c^^^rraaaa^^rraaag#^g#g#rg#rb^eeef#f#g#g#}ee^e^^ecr;a^aagfd^ddd^ddde^eergre^^^rrffga^^rragfe^eerdr"b^"g#"g#"g#"b"g#"a"bULL;} ULMR={l8q=95DL=HAZ+7[5r]V=70UL3;V=100DL=ME1;UL1;UL2;UL4;DL=ME3;UL1;UL2;UL4;DL=NK2;V=120UL2;V=100}TR=8ULMR;TR=9;>ULMR; /*10*/OA={n27n32n33n35n36}O1={'OA'}O2={'n39n28OA'}O3={'n49OA'}O4={'n57OA'}O5={'n51n59OA'}O6={'n38n40OA'}DM1={O1;rrr}DH1={[7DM1][2O1;r]} DM2={O1;rrrO2;rrr}DM3={DM2;O1;rrrO2;rrO2}DM4={[7DN2]O1;rrrO2;rO1;r}DM5={[7DM2]O1;O2;r[2O1]r[2O1]}DM6={[7DM2]O1;rrr[2O2;r]}DM7={[7DM2]O1;rrrO2;r[2O2]}DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]} DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}DM10={[7DM2][3O1]r[4O1]}DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}DM13={[6DM2]O3[7r][n54rrr]}DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr} DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]}DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]} DM20={[4DM2]l8O3;rrO1;r[O1]rO5[7r]l16}DM21={[7DM2][O1;r]O6;rrr}DM22={[4DM2]l8O3[3O1]rO1;rO5[8r]l16}DM23={[4DM2]l8O3;r[O1]rO1;rO5;l16[10r]O1;rO2;rrr} STR DM18A={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]]} DDH={O4={O6}@26DM18@9DM18A;O4={'n57OA'}@25O3[7r]O4[7r]}DDI={l8@17[O1;rrO1;O6;rO1;r:rrO1;rO6;rO1;r]O3;rO6[O1;r]O4@25[7O1;r][O1]O3;r[O1]rO1;rO5;l16[10r]O1;rO2;rrr}DD1={DM6;DM20}DD2={DM7;DM21} DD3={SUB{[12r]O3[15r]O4[15r]rrn49rrr['n51n59'rrr]n57}DM7;DM22}DD4={[DM6:DM7]DM23}DD5={O3[63r][7DM1][O1;r]l8O3;rrO1;r[O1]rO5[7r]l16} TR=10l16DL=HAZ+6O3[7r]O4[7r]O3;DL=HAZ+8EP=127p%=1200DDI;DL=BGN;BR=20p%=1200@25DD1;DD2;DD3;DD4;DD1;DD2;DDH;DD4;DD5;DD2;DD3;p%=3200EP=100DDH;EP=127p%=1200 /*11*/GR={'n42n85'}GA={n44}GB={'n51n46'}TA={n54}MT={n51}DR={'n38n40n82n85'}PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}} GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}GP2={[3GR;rGB;r]GR;r[2GB]}GP3={[3[GR]GB;r][2GR][2GB]}GP4={[GR]GB;GR}GP5={[3GP4][GR][GB]}GP6={[GR][TA]}GP7={[GP6][GR]TA;GR;GP6}GP8={[3[GR]GB;GR][2GR][2GB]} GGH={P=64[112n44][16r]PL1}GGI={[4GP2][GP3]l8[GB:[GR]]rGR;rGB[8r]l16}GG1={[6GP3]l8[3GR][GB;r:GR]GB[7r]l16}GG2={[7GP3]GP1}GG3={[6GP3]l8[GB:[GR]]rGR;rGB[8r]l16}GG4={[7GP1]GP3[6GP1]l8[GB:[GR]]rGR;rGB[8r]l16}GG5={[4GP2][GP3]l8[3GR][GB;r:GR]GB[7r]l16} TR=11l16DL=HAZ+6GP2;GP8;DL=HAZ+8BR=20p%=2400GGI;DL=BGN;BR=20p%=1200@25GG1;GG2;GG3;GG4;GG1;GG2;GGH;GG4;GG5;GG2;GG3;BR=20p%=2400GGH; /*12*/PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}PD2={@26EP.T(20,127,!1^1^1)[48DR]}PD3={@33SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[64r]} PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}PD5={@26[3DR;r][5DR]r[4DR]}PD6={@26[4DR;r][3DR]r[4DR]}PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0} PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}PD11={BR=20p.T(127,32,!1)[16n51]p=64}PD12={@26[4O2][4O1][O2][6O1]@17} TR=12l16DL=HAZ+8PD3A;DL=BGN;PD3A;DL=SB1[PD3]PD3A;DL=SB2[PD3]PD3A; /*13*/PG1={P.onCycle(!8,0,22,106,127,106,22)}DS1={br`br`gr`e`c`cargrdr}DS2={[8r][4`c]grgg}DS3={[8r]d`dd`drd`dd}DS4={gr`drbrggrg`dggg`dg}DS5={`d`dr`dararfrfrcrcc}DS6={[10r]`ar`ergr}DS7={[12r]`eaer}DS8={p.T(127,0,!1)BR=20[16e]rp=64}DS9={[`d#][a#][g][d#][8r]}DS10={[8`g]`c`cgrcr"gr} DS11={[rrrr`dafd]}DS12={[4`g][4`d]ggrgrgrg}DS13={[8r][`dr]`dad"a}DS14={[3`g]rgggr`gr`ggrg`g`g}DS15={`g`gr`d`drggrddr["gr]}DS16={[8r]`gr`crgrcr}DS17={eeeeddddgrrrerrr}DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]} TR=13l16<DL=BGN;PG1;DL=BGN+3DS6;DL=BGN+7DS7;DL=ME1+3DS6;DL=ME1+7DS2;DL=ME2+3DS2;DL=ME2+7DS6;DL=SB1+7DS6;DL=SB1+15DS2;DL=RF1+3DS6;DL=RF1+7DS7; DL=ME3+7DS2;DL=ME4+3DS2;DL=ME4+7DS6;DL=SB2+7DS6;DL=SB2+15DS2;DL=RF2+3DS6;DL=RF2+7DS7;DL=NK1+7DS2;DL=NK2+3DS2;DL=NK2+7DS6; /*14*/Function TYMD(Str S,Int Repeat, Int Delay){Int Temp_v=MML(v);Int Dly=Delay;Int Dec_v=Temp_v/(Repeat+2);Int J=Temp_v+20;J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Sub{r%(Dly)v(J)S}Dly=Dly+Delay;J=J-Dec_v;}v(Temp_v)S} SPH={l8>[32r]@100,0EP=110ag^a^b^`c^`d^`c`g^`f^l4`e^^^^^^^<}SP1={HAM({>EP=80@5,0l16[`cab`ca`c`ca][`cgb`cg`c`cg][`cfaba`c`cf][`ceg`cg`c`cg][afgafaaf][`cab`ca`c`ca]<@84,0EP=120l8SUB{g#^^g#^g#g#rb^^^^^}>e^^e^eere^^^^^rr<})} SP2={l8HAM({[@85,0EP=100M=127TYMD({rr'a`e'^rrrrrr'g`e'^rrrr},1,!2)EP.T(60,100,!1)q=100M=30@81,1'f"a'^^^^^^^M=0@103,2EP=120:e"eeb`ebaeq=90]`ebg#e"eeg#`eq=90})} SP3={HAM({l8EP=100@85,0[6r]'f`c'^[6r]'f#`c#'^[6r]@100,0EP=100r`dd`ee`ee`dd^;rEP=90@84,0SUB{fffffffa^^^^^^^}aaaaaaa`c^^^^^^^[9r]>@19,0EP=100q=100M=30ef#g#ag#ab<M=0q=90})} SP4={HAM({[l8EP=110@100,0`cb^a^^`efrrEP=80@82,0SUB{af^^^^}`ea^^^^@100,0EP=110g^gg^gggEP=100@84,0SUB{`e^`f`er`dr`c^^^^}`c^`c`cr`cra^^^^rEP=110@100,0ffff^^rrfff@19,0M=30q=100g#^g#g#rg#rg#^^^^rrrrM=0q=90]})} TR=14DL=BGN;l16SP1;SP2;SP3;SP4;SP1;SP2;SP3;SP4;SP1;SP2;SP3;DL=NK3;V=110SPH;V=100 /*15*/STR LC={"cceg`c}STR LD={"ddfa`d}STR LDS={"d#d#ga#`d#}STR LE={"eegb`e}STR LF={"ffa`c`f}STR LFS={"f#f#a`c#`f#}STR LG={"ggb`e`g}STR LA={"aa`c`e`a}STR LAS={"a#a#`d`f`a#}STR LB={"bb`d`f`b}STR LB2={"bb`d#`f#`b} FUNCTION PIA(STR SWEET){l8[Play(,,,,,,,,,,,,,,,MID(SWEET,1,2))l16:['SWEET'r]]r['SWEET'^^]'SWEET'^}FUNCTION PIB(STR SWEAT){l8[Play(,,,,,,,,,,,,,,MID(SWEAT,1,2))l16:['SWEAT'r]]r}FUNCTION PIC(STR SWAT){['SWAT'^^]'SWAT'^}FUNCTION PID(STR SWEET,STR FF1){l8[<FF1>l16:['SWEET'r]]r['SWEET'^^]'SWEET'^}FUNCTION PIE(STR SWEET,STR FF1){l8[<FF1>l16:['SWEET'r]]r} FT={l8EP.T(100,80,!2,110,127,!2)"e^^^"f#^"g#^}FTH={EP=127l8q=120y64=127"ace'"acea'^^^^y64=0y64=127"f"bc'"f"acf'^^^^y64=0y64=127"g"bd'"g"bdg'^^^^y64=0y64=127ceg'ceg`c'^^^^y64=0y64=127"f"ac'"f"acf'^^^^y64=0y64=127"d"f"a'"d"f"ad'^^^^y64=0y64=127"e"g#"b'"e"g#"be'^^^^y64=0'e"b"g#"e'^^^'g#e"b"g#'^^^} FT1={EP=100PIA=LA;PIA=LG;PIA=LF;PIA=LE[PIA=LD]EP=127l8HAM({eg#abeg#by64=127Div{eg#b}`e^^^^^^^y64=0})}FT2={EP=120HAM({[y64=127"a"eMidiDelay({ea},8,!8)[12r]"f"cMidiDelay({cf},8,!8)[12r]y64=0]})} FT3={>HAM({EP=120"a"bc"ac"a"bc;"bcd"bd"bcd;cdececde;def"be"bd"b;"a"bc"ac"a"bc;"f"g"a"f"a"f"ac;>EP=127"e"g"ber"br"e^^^^^^^r<})<} FT4={>EP=120PIA=LA;PIA=LD;PIA=LG;PIA=LC;PIA=LF<PIA=LB>HAM({l8'e"b'^^['e"b'^]'g#e'^^^^l16g#f#e"beg#b`el8})<} TR=15l16<DL=HAZ+8;V=90FT4;V=100DL=BGN;FT1;FT2;FT3[FT4]FT1;FT2;DL=SB2[FT4]DL=NK1;FT2;FT3; /*16*/BG1={@120,0EP.T(100,127,!1)'cde'^^^}TR=16DL=ME2+7BG1;DL=ME4+7BG1;DL=NK2+7BG1; //------------------------------------GRADUATION INT GR_TIME=617-17EST=156K=2FUNCTION GRW(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(GR_TIME+17)CH=X2;@(X3,XA,XB)o5v=100EP=127V=100l4M=0p%=0TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)} //-(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M) GRW(01,01,083,00,0,K,064,4,2,127,09,0)GRW(07,07,088,00,0,K,084,1,2,120,09,0)GRW(13,13,119,00,0,0,___,5,0,127,09,0) GRW(02,02,099,01,0,K,064,2,2,110,09,0)GRW(08,08,103,02,0,K,000,3,2,105,09,2)GRW(14,14,006,00,0,K,___,2,2,127,09,0) GRW(03,03,100,00,0,K,000,2,2,110,10,0)GRW(09,09,103,02,0,K,127,3,2,105,09,2)GRW(15,15,003,00,0,K,096,2,2,100,10,0) GRW(04,04,103,00,0,K,127,2,2,110,10,0)GRW(10,10,025,00,0,0,064,3,1,127,10,0)GRW(16,16,091,00,0,0,084,2,1,127,10,0) GRW(05,05,039,01,0,K,044,2,2,120,09,0)GRW(11,11,025,00,0,0,064,3,0,127,09,0) GRW(06,06,049,00,0,K,032,1,2,080,10,0)GRW(12,12,026,00,0,0,064,3,0,127,09,0) DL=GR_TIME+17Tempo=EST;HAZ=GR_TIME+1BGN=HAZ+24ME1=BGN+8ME2=ME1+8SB1=ME2+8RF1=SB1+8ME3=RF1+8ME4=ME3+8SB2=ME4+8RF2=SB2+16NK1=RF2+8ME5=NK1+8ME6=ME5+8 /*1*/MN1={EP=110f^d#f^^^^rd#d#fgg#gfd#^^^c#^^c#^c"g#^^^rr;"a#^"g#"a#^^^^rffffd#cc#d#^^^^^^rg#^^^g^^^}MN2={EP=120fgg#g^f^a#^a#a#a#g#g^rd#fgf^d#^g#^g#g#g#gg#^r`c^g#f^g#^`c`c^^ra#^g#^g^^^^^^reeeeefg^} MN3={EP=127[g#^g#a#^`c^`ca#^`d#`c^`ca#g#:g#^g#a#^`c^`ca#^gg#^^^r]a#^^f^^a#^`c`ca#`c^^^r}MN4={EP=127[g#^g#a#^`c^`ca#^`d#`c^`ca#g#:g#^g#a#^`c^`ca#^gg#^^^r]a#^^f^^a#^`c`ca#`c^gg#a#MN3} STR MN5={EP=110f^MidiDelay({d#f^^^^},7,!2)[24r]"a#^MidiDelay({"g#"a#^^^^},7,!2)[24r]}STR MN6={`c^^^^^`c#`c^^`c#`c^^`c#`d#^^^^^^`f`d#^^`f`d#^`c#`c`c#`d#^^^^^`f`g#^^`g`g#^`f`g#`a#>`c^fg#^gg#a#`c^`c#`c^^^^<} MNH={TrackKey=1eab`cb^a^^`efrf^f`e`d`c`d^`d`d`d^`c`d`f`e^`f`er`dr`c^^^rrMD({aab`c^},1,!2)rrrMidiDelay({aa`db^},8,!2)TrackKey=K} TR=1l8>q=98M.W(10,60,!1)HAM({DL=BGN-9[5r]@81,0MNH;DL=ME1;V=100@83,0MN1;MN2;MN3;DL=ME3;MN1;MN2;MN4;DL=ME5;MN5}) /*2&3&4*/RT1={EP=127HAM({[g#c#g#a#^c#`cc#a#`d#^d#`c#`ca#g#a#fa#g#^:fd#fa#fa#g#^fd#f]fg#a#`c^^^^rrr})} RT2={EP=120[60r]>cd#g`c<}RT3={EP=120[28r]>`cg#d#c<[28r]EP=120l16>`ca#g#gfd#c#c/*`cg#gfc"a#"g#"g*/<l8} RRF={l8DL=BGN-8HAM({[[EP.T(20,120,!2)r[7g#]][EP.T(20,120,!4)r[3g#]]EP.T(20,120,!2)r[7g#]]})DL=BGN;RT1;RT2;RT3;DL=RF1;RT1;RT2;RT3;DL=RF2;RT1;DL=ME5;RT2;RT3}TR=2;>RRF;TR=3RRF;TR=4RRF; /*5&7*/BSH={[32r][c#`c#][d#`d#][c`c][f`f][4"a#a#]`c^^^^^^&&c}BS1={[[4c#`c#][4d#`d#]:[8f`f]][4f`f][c`c]c^^^}BS2={[4c#`c#][4d#`d#][4c`c][4f`f][4"a#a#][4d#`d#][4"g#g#][4c`c]} BS3={[4c#`c#][3d#`d#]c#`c#[4c`c][3f`f]d#`d#[8"a#a#][4c`c]q=100`c^^^^^^&&cq=90}BS4={[[c#`c#][d#`d#][c`c][f`f]:[4c#`c#][c`c][f`f]][4"a#a#][4c`c]} BASS={l8<<DL=BGN-8[32c#`c#]DL=BGN;BR=24BS1;BS2;BS3;BS4;BS1;BS2;DL=SB2[BS4]DL=NK1;BS1;BS2;BS3}TR=5BASS;TR=7EP.W(110,30,!8)<BASS; /*6*/CO1={SUB{HAM({[g#^^^a#^g#g:g#^^^`c^a#^]g#^^^g^^^})}HAM2({[c#^^^d#^^^f^^^:f^^^]c^^^})} CO2={SUB{f^^^g^^fg^^^g#^^^f^^^g^^^`c^^^a#^^^}HAM2({c#^^^d#^^^c^^^f^^^"a#^^^d#^^^g#^^^c^^^})} CO3={SUB{HAM({g#^^^a#^g#a#g^^^g#^^^f^^^g#^^^a#^^^>g^g#a#<})}HAM2({c#^^^d#^^c#c^^^f^^d#"a#^^^^^^^c^^^c^^^})} CO4={SUB{HAM({[`c^a#^g^g#^:`c^a#^`d#^`ca#]f^^^g^a#^})}HAM2({[c#^d#^c^f^:c#^^^c^f^]"a#^^^c^^^})} TR=6@49DL=BGN;CO1;CO2;CO3;CO4;CO1;CO2;CO3[CO4][CO1]CO2;CO3; /*8&9*/UL1={EP=100rrrrf^d#f^^^^[20r]rrrr"a#^"g#"a#^^^^[12r]EP=110`c^^^a#^^^}UL2={EP=110c#d#fd#^c#^g^gggfd#^rcccc^c^f^fffd#f^rf^c#"a#^c#^ff^^rd#^c#^c^^^^^^rcccccc#d#^} UL3={[EP=110SUB{f^fg^g#^g#a#^a#g#^}c#^c#d#^f^fg^gf^EP=120g#fd#:f^fg^g#^g#g^d#f^^^r]f^^c#^^f^EP=110SUB{d#d#d#c^^^}gggg^^^r} UL4={rrrrf^MidiDelay({d#f^^^^},7,!2)[20r]rrrr"a#^MidiDelay({"g#"a#^^^^},7,!2)[20r]}STR UL5={EP=110g#^^^^^gg#^^gg#^^gg#^^^^^^a#g#^^a#g#^g#gg#f^^^^^a#`c^^a#`c^`c#`f`g`f^`c`c#^`c#`d#`fSUB{`f^`f`d#^^^^}g#^g#g^^^^} ULH={TrackKey=1SUB{cc^c^^c"ar;f^ffedg^ggg^ggg`c^`c`cr`cr`c^^^rraaaa^^rraaag#^g#g#rg#rb^eeee^ee^^^^}ee^e^^ecr;a^aagfd^ddd^ddde^eergre^^^rrMD({ffga^^},1,!2)rrrMidiDelay({agfe^},8,!2)TrackKey=K} ULMR={l8>q=98M.W(10,60,!1)DL=BGN-8@81,0EP=100ULH;DL=ME1@103,2V=100UL1;UL2;UL3;DL=ME3;UL1;UL2[UL3]DL=ME5;UL4}TR=8ULMR;TR=9;>ULMR; /*10*/OA={n27n32n33n35n36}O1={'OA'}O2={'n39n28n55OA'}O3={'n49OA'}O4={'n57OA'}O5={'n51n59OA'}O6={'n38n40OA'}DM1={O1;rrr}DH1={[7DM1][2O1;r]} DM2={O1;rrrO2;rrr}DM3={DM2;O1;rrrO2;rrO2}DM4={[7DN2]O1;rrrO2;rO1;r}DM5={[7DM2]O1;O2;r[2O1]r[2O1]}DM6={[7DM2]O1;rrr[2O2;r]}DM7={[7DM2]O1;rrrO2;r[2O2]}DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]} DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}DM10={[7DM2][3O1]r[4O1]}DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}DM13={[6DM2]O3[7r][n54rrr]}DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr} DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]}DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]} DM20={[7DM2]O1;rO1;rO6;rrr}DDH={O3[29r]O1;rO4[15r][3DM1]l32[8O1]l16DM13}DD1={DM6;DM13}DD2={DM6;DM20}DD3={DM7;DM9}DD4={DM6;DM13}DD5={@17O3[61r]O1;rO4[63r]@25} TR=10l16DL=BGN-8DDH;DL=BGN@25BR=20p%=3000DD1;DD2;DD3;DD4;DD1;DD2;DDH[DD4]DD5;DD1;DD2;DD3; /*11*/GR={'n42n85'}GA={n44}GB={'n51n46'}TA={n54}MT={n51}DR={'n38n40n82n85'}PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}} GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}GP2={[3GR;rGB;r]GR;r[2GB]}GP3={[3[GR]GB;r][2GR][2GB]}GP4={[GR]GB;GR}GP5={[3GP4][GR][GB]}GP6={[GR][TA]}GP7={[GP6][GR]TA;GR;GP6}GP8={[3[GR]GB;GR][2GR][2GB]} GGH={[4GP2][3GP3][4GB;r[GR]]}GG1={[7GP3]GP2}GG2={[7GP3]GP1}GG3={[7GP3][4GB;r[GR]]}GG4={[7GP1]GP3}GG5={[64r][3GP2][4GB;r[GR]]} TR=11l16DL=BGN-8GGH;DL=BGN;BR=20p%=2000GG1;GG2;GG3;GG4;GG1;GG2;GGH[GG4]DL=NK1;GG1;GG2;GG3; /*12*/PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}PD2={@26EP.T(20,127,!1^1^1)[48DR]}PD3={@33SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}} PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}PD5={@26[3DR;r][5DR]r[4DR]}PD6={@26[4DR;r][3DR]r[4DR]}PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0} PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}PD11={BR=20p.T(127,32,!1)[16n51]p=64}PD12={@26[4O2][4O1][O2][6O1]@17} TR=12l16DL=BGN;PD3;DL=ME2+7PD4;DL=SB1[PD3]DL=ME4+7PD4;DL=SB2[PD3]DL=RF2+4PD2;O3[7r]O4[7r]DL=NK1;PD3;DL=ME6+7PD4; /*13*/PG1={P.onCycle(!8,0,22,106,127,106,22)}DS1={br`br`gr`e`c`cargrdr}DS2={[8r][4`c]grgg}DS3={[8r]d`dd`drd`dd}DS4={gr`drbrggrg`dggg`dg}DS5={`d`dr`dararfrfrcrcc}DS6={[10r]`ar`ergr}DS7={[12r]`eaer}DS8={p.T(127,0,!1)BR=20[16e]rp=64}DS9={[`d#][a#][g][d#][8r]}DS10={[8`g]`c`cgrcr"gr} DS11={[rrrr`dafd]}DS12={[4`g][4`d]ggrgrgrg}DS13={[8r][`dr]`dad"a}DS14={[3`g]rgggr`gr`ggrg`g`g}DS15={`g`gr`d`drggrddr["gr]}DS16={[8r]`gr`crgrcr}DS17={eeeeddddgrrrerrr}DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]} TR=13l16<DL=BGN;PG1;DL=BGN+3DS6;DL=BGN+7DS7;DL=ME1+7DS6;DL=ME2+7DS7;DL=SB1+3DS6;DL=SB1+7DS2;DL=RF1+3DS6;DL=RF1+7DS7; DL=ME3+7DS6;DL=ME4+7DS7;DL=SB2+3DS6;DL=SB2+7DS2;DL=SB2+11DS6;DL=SB2+15DS2;DL=NK1+3DS6;DL=NK1+7DS7;DL=ME5+7DS6;DL=ME6+7DS7; /*14*/SP1={v=127@6,0[g#c#fg#rc#fg#c#frg#rrrr;a#d#ga#rd#ga#d#gra#rrrr:[`cfg#`crfg#`cfg#r`crrrr]]`cfg#`crfg#`cfg#r`crrrr;gcd#grcd#gcd#rgrrrr} SP2={v=110@6,0g#c#fg#rc#fg#c#frg#rrrr;a#d#ga#rd#ga#d#gra#rrrr;gcd#grcd#gcd#rgrrrr;`cfg#`crfg#`cfg#r`crrrr;f"a#d#fr"a#d#f"a#d#rfrrrr;a#d#ga#rd#ga#d#gra#rrrr;`d#g#`c`d#rg#`c`d#g#`cr`d#rrrr;`cga#`crga#`cga#r`crrrr} SP3={>v=90@81,8g#c#fg#rc#fg#c#frg#rrrr;a#d#ga#rd#ga#d#gra#rrrr;gcd#grcd#gcd#rgrrrr;`cfg#`crfg#`cfg#r`crrrr[f"a#d#fr"a#d#f"a#d#rfrrrr]gcd#grcd#gcd#rgrrrr[16r]<} SP4={v=127@6,0[g#c#fg#rc#fg#;a#d#ga#rd#ga#;gcd#grcd#g;`cfg#`crfg#`c:g#c#fg#rc#fg#c#frg#rrrr;gcd#grcd#gfg#r`crrrr]f"a#d#fr"a#d#f"a#d#rfrrrr;gcd#grcd#gcd#rgrrrr} TR=14DL=BGN;l16P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)EP.onCycle(!8,80,110,80,127)SP1;SP2;SP3;SP4;SP1;SP2;SP3[SP4][SP1]SP2;SP3; /*15*/LC={"ccd#g`c}STR LCS={"c#c#fg#`c#}STR LCS2={"c#c#fa#`c#}LD={"ddf#a`d}LDS={"d#d#ga#`d#}LE={"eeg`c`e}LF={"ffg#`c`f}LG={"ggb`d`g}STR LGS={"g#g#`c`d#`g#}LA={"aa`c`e`a}LAS={"a#a#`d`f`a#}STR LAS2={"a#a#`c#`f`a#}LB={"bb`f#`b} FUNCTION GRPIA(STR SWEET){l8[Play(,,,,,,,,,,,,,,,MID(SWEET,1,2))l16:['SWEET'r]]r['SWEET'^^]'SWEET'^}FUNCTION GRPIB(STR SWEAT){l8[Play(,,,,,,,,,,,,,,,MID(SWEAT,1,2))l16:['SWEAT'r]]r}FUNCTION GRPIC(STR SWAT){['SWAT'^^]'SWAT'^}FUNCTION GRPID(STR SWEET,STR FF1){l8[<FF1>l16:['SWEET'r]]r['SWEET'^^]'SWEET'^}FUNCTION GRPIE(STR SWEET,STR FF1){l8[<FF1>l16:['SWEET'r]]r} FTH={EP=110l8q=150y64=127HAM({cd#fg`c`d#`g``c})y64=0q=100} FT1={EP=110[GRPID(LCS,{"c#})GRPID(LDS,{"d#}):[GRPIA=LF]]GRPIA=LF'LC'^^^^^^^y64=127HAM({cd#fg`c`d#`g``c})y64=0} FT2={EP=110q=150l8HAM({fc#g#'`c#g#f'^^^^d#"a#d#a#`d#d#`c#c#;d#cg'`cgd#'^^^^fcf`d#`ff`d#d#;c#"a#f'a#fc#'^^^^fgfgg#a#`c`c#;'`cg#d#'^^^^'a#gd#'^'`cg#d#'^^^^^^^^})l16q=100} //FT2={EP=100GRPID(LCS,{"c#})GRPID(LDS,{"d#})GRPIA=LC;GRPIA=LF<GRPID(LAS,{"a#})>GRPID(LDS,{"d#})<GRPID(LGS,{"g#})>GRPIA=LC} FT3={l8EP=120q=150HAM({'fg#`c#'c#f'fg#`c#'^^'fg#`c#'^;'ga#`d#'d#g'ga#`d#'^^'ga#`d#'^;'d#ga#'cd#'d#ga#'^^'d#ga#'^;'`cg#f'fg#'`cg#f'^^'`cg#f'^;'fc#"a#'^^^^'d#c#"a#'^'fc#"a#'^^^^'g#c#"a#'^^^`cgg#a#g#a#`cDiv{fg#a#}`c^^^^^^^/*'d#g`c'fg#a#`c`c#`d#`c'd#g`c'^^^^^^^*/})q=100l16} //FT3={EP=100GRPID(LCS,{"c#})GRPID(LDS,{"d#})GRPIA=LC;GRPIA=LF[GRPID(LCS2,{"c#})]GRPIA=LC;l8['LC'^]'LC'^^^l16} FT4={EP=110[GRPIE(LCS,{"c#})GRPIC=LDS;GRPIB=LC;GRPIC=LF:GRPID(LCS,{"c#});GRPIB=LC;GRPIC=LF]<GRPID(LAS2,{"a#})>GRPIA=LC} TR=15DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3[FT4][FT1]FT2;FT3; /*16*/BG1={@126,7l2BR=100p=127PAN(!1^1^4,1)EP.T(120,127,!1)a^^^rrrrp=64P=84}BG2={@126,7l2BR=100p=127PAN(!1^1^4,0)EP.T(120,127,!1)a^^^rrrrp=64P=84} BG3={@120,0EP.T(70,127,!1)P=84'cde'^^^}BG4={@125,5l4EP.T(100,127,!1)PAN(!1,1)d^^^}BG5={@126,8BR=40P=84EP=100p.T(127,0,!1^1)'gfe'^^^^^^^p=64EP=127} BG6={@128,2l8P=84rrrrMidiDelay({'cde'},6,!8)} TR=16DL=ME1+7BG4;DL=ME2+6BG2;DL=SB1+7BG6;DL=ME3+7BG4;DL=ME4+6BG2;DL=SB2+7BG4;DL=SB2+15BG6;DL=ME5+7BG4;DL=ME6+6BG2; //------------------------------------GIVE ME YOUR SHAKIN' EST=160K=1INT GY_TIME=729-2FUNCTION GYW(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(GY_TIME+2)CH=X2;@(X3,XA,XB)o5v=100EP=127V=100l4M=0p%=0TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)} //-(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M) GYW(01,01,082,08,0,K,064,4,2,127,09,0)GYW(07,07,039,00,0,K,084,1,2,120,09,0)GYW(13,13,119,00,0,0,___,5,0,127,09,0) GYW(02,02,082,00,0,K,064,2,2,110,09,4)GYW(08,08,082,08,0,K,000,3,2,100,09,2)GYW(14,14,082,01,0,K,___,2,2,127,09,0) GYW(03,03,063,00,0,K,000,2,2,110,10,4)GYW(09,09,082,08,0,K,127,3,2,100,09,2)GYW(15,15,127,04,0,K,096,2,2,127,10,0) GYW(04,04,062,00,0,K,127,2,2,110,10,4)GYW(10,10,025,00,0,0,064,3,1,127,10,0)GYW(16,16,091,00,0,0,084,2,1,127,10,0) GYW(05,05,082,00,0,K,044,2,2,110,09,0)GYW(11,11,025,00,0,0,064,3,0,127,09,0) GYW(06,06,030,00,0,K,032,1,2,080,10,0)GYW(12,12,026,00,0,0,064,3,0,127,09,0) DL=GY_TIME;Tempo=EST;HAZ=GY_TIME+2BGN=HAZ+18ME1=BGN+8ME2=ME1+8SB1=ME2+8RF1=SB1+8ME3=RF1+8ME4=ME3+8SB2=ME4+8RF2=SB2+16ME5=RF2+16ME6=ME5+8NK1=ME6+8NK2=NK1+8 /*1*/MNH={TrackKey=4[g#^g#a#^`c^`cMidiDelay({a#^`d#`c^},6,!2)[19r]]TrackKey=K} MNI={[`f#^`e`f#`e`f#bb]b`f#^`e^`f#`erb`f#`f#`e^`f#`e`e`e[`f#brbrbrb][3`f#^`e^]MidiDelay({`f#`e},8,!4)} MN1={EP=110b`d^`c#^`d^`e^`e`d^`e^`f#^b`d^`c#^`d^`a^`a`g^`f#`g^`f#^^^rrb`c#`d`d^^^rb`c#`d`f#^^`e^^`d^`e^^^^rrr}MN2={EP=120`f#^`g`f#^bab`f#^`g`f#^`c#af#`c#^`d`c#^af#a`c#^`d`c#^^rr`d^gb^^`d^`e^a`c#^^`e^`f#^^`f#`f#`e`e`f#^^^^rrr} MN3={EP=127[[`f#^`e`f#`e`f#br]r`a`a`a`g^^`f#^:`e^^`c#^`d`e]`e^`c#`c#^`d`e^`f#^/*[b^^b^^r`d^`d`c#^a^f#^`f#^b^`d`f#^`e^:`c#`c#`d`e`d`c#a]`a^`a`a^^*/} STR MNA={EP=127[[`f#^`e`f#`e`f#br]r`a`a`a`g^^`f#^:`e^^`c#^`d`e]`e^^^^rr}MN4={MNA;MN3}MN5={EP=110b`d^`c#^`d^`e^`e`d^MidiDelay({`e^`f#^},8,!2)} MN6={@76,0TrackKey=2V=90l16EP.W(80,127,!2,127,70,!2)M.W(20,120,!1)d#^^^^^^^^^^^^^f#ff#^^^^^^^^^^^^^g#f#g#^^^^^^^^^^^^^g#g#a#^^^^^^^g#^^^^^^^a#^^^^^^^^^^^^^a#a#`f#^^^^^^^^^^^^`f#`f`d#a#^^^^^^^^^^^^^g#g#l8EP.T(90,127,!1)a#^^^^^^^M=20TrackKey=K} TR=1l8DL=HAZ;HAM3({@83,0MNH;DL=HAZ+7@82,8[7r]MNI;DL=ME1;q=96q=120MN1;MN2;MN3;DL=ME3;MN1;MN2;MN4;DL=ME5;MN5})>HAM({DL=NK2;MN6})< /*2&3&4*/RT1={l16EP=127M.W(40,120,!4)r[[r`f#`f#^`f#`f#^`f#^^`f#^^`f#^^]r`a`a^`a`a^`g^^`g^^`g^^r`f#`f#^`f#`f#^:`e^^`e^^`e^^]`e^^^^rrr}RT3={@100,0EP=110l8HAM({b^^^^^^ab^^^b^^^`c#^^^^^^`d`c#^^^^^^^`d^^^^^^^`e^^^^^^^`f#^^^^^^^`c#^^^^^^^})} RRF={l16DL=BGN@82,0RT1;DL=ME2;RT3;DL=RF1@82,0RT1;DL=ME4;RT3;DL=RF2@82,0[RT1]DL=ME6;RT3}TR=2RRF; STR RUH={l16EP=127HAM({MidiDelay({SUB{[drrdrrdrrrdrdrdr]<[arrarrarrrararar][grrgrrgrrrgrgrgr][f#rrf#rrf#rrr:f#rf#rf#r]f#rf#^^^>} [brrbrrbrrrbrbrbr][`c#rr`c#rr`c#rrr`c#r`c#r`c#r][`drr`drr`drrr`dr`dr`dr:`err`err`errr`er`er`er]`c#rr`c#rr`c#rrrrrrrrr},3,!32)})} STR RUI={l16EP=127HAM({MidiDelay({SUB{[drrdrrdrrrdrdrdr]<[arrarrarrrararar][grrgrrgrrrgrgrgr][f#rrf#rrf#rrr:f#rf#rf#r]f#rf#^^^>} [brrbrrbrrrbrbrbr][`c#rr`c#rr`c#rrr`c#r`c#r`c#r][`drr`drr`drrr`dr`dr`dr:`err`err`errr`er`er`er]`c#rr`c#rr`c#rrr`c#r`c#^^^},2,!24)})} STR RU1={EP=127M.W(40,120,!2)SUB{RT1}SUB{r[[r`d`d^`d`d^`d^^`d^^`d^^]r:`f#`f#^`f#`f#^`e^^`e^^`e^^r`d`d^`d`d^`c#^^`c#^^`c#^^]}r[[rbb^bb^b^^b^^b^^]r:gg^gg^g^^g^^g^^raa^aa^a^^a^^a^^] SUB{`f#`f#^`f#`f#^`e^^`e^^`e^^r`d`d^`d`d^`c#^^^^}gg^gg^g^^g^^g^^rbb^bb^a^^^^rrr/*[[SUB{`d^`d`d^`d^r}b^bb^b^r]:SUB{`f#^`f#`f#^`e^`e`d^`d`d^`c#^`c#}g^gg^g^ga^aa^a^a]SUB{`f#^`f#`f#^`e^`e`d^`d`c#^^^}g^gg^g^gb^ba^^^rr*/}STR RU2={l8[35r]EP=90[HAM({'f#d'^^^})rrrr]l16} STR RRG={l16DL=HAZ;RUH;RUI;DL=BGN;RU1;RU2;DL=RF1;RU1;RU2;DL=RF2[RU1]RU2;DL=NK1;RUH;RUI}TR=3RRG;TR=4RRG; /*5*/BS={l4"b^^^^^^^l8}BSH={[8"bb][8"aa][8"gg][6"f#f#]"f#^V=127BR=36HAM({``f#&&"f#})V=100}BS1={[[8"bb][4"gg]:[4"aa]]["aa]"a^V=127BR=36HAM({``a&&"a})V=100}BS2={[16"bb][12"gg][4"aa]} BS3={[8"gg][8"f#f#][4"ee][4"f#f#][4"gg]f#^^^^^^&&"f#}BS4={[[8"bb][4"gg][4"aa]]}BS5={l4q=100["b^^^^^^^:"g^^^"a^^^]"g^^^"a^^l8q=90V=127BR=36HAM({``a&&"a})V=100} BASS={l8<<DL=HAZ+8BSH;BS;DL=BGN;BR=36BS1;BS2;BS3;BS4;BS1;BS2;DL=SB2[BS4]BS5;BS1;BS2;BS3;DL=NK2;BSH;BS}TR=5BASS;TR=7BASS; /*6*/STR CO={BR=12EP=110'`b`f#`db'^^^BR=12p.T(64,0,!1)'`b`f#`db'^^^p=64}COH={<EP=120SUB{`d^^^`c#^`d^`e^^^`f#^^^`d^^^`e^^^`d^^^`c#^^^}HAM2({b^^^^^^^a^^^^^^^g^^^^^^^f#^^^f#^^^})>}COI={<EP=120SUB{HAM({`d^^^`c#^`d^`e^^^`f#^^^`d^^^`e^^^`d^^^`c#^^^})}HAM2({b^^^^^^^a^^^^^^^g^^^^^^^f#^^^f#^^^})>} CO1={EP=127SUB{[`d^^^`c#^`d^:b^^^`c#^`e^]`f#^^^`c#^a}HAM2({[b^^^^^^^g^^^:a^^^]a^^r})}CO2={EP=110SUB{`d^^^`c#^`d^`e^^^`f#^^^b^^^`d^^^`e^^^`c#^^^}HAM2({b^^^^^^^^^^^^^^^g^^^^^^^g^^^a^^^})} CO3={EP=110SUB{HAM({b^^^a^b^`c#^^^a^^^b^^^`c#^^^`d^^^`c#^})}HAM2({g^^^^^^^f#^^^^^^^e^^^f#^^^g^^^f#^rr})}CO4={EP=120SUB{HAM({[`d^^^`c#^`d^:b^^^`c#^`e^]`f#^^^`c#^a^})}HAM2({[b^^^^^^^g^^^a^^^]})} TR=6DL=HAZ;COH;COI;CO;DL=BGN;CO1;CO2;CO3;CO4;CO1;CO2;CO3[CO4][CO1]CO2;CO3;COH;COI;CO; /*8&9*/ULH={TrackKey=4[SUB{f^fg^g#^g#}c#^c#d#^f^fMidiDelay({SUB{a#^a#g#^}g^gf^},6,!2)[19r]]TrackKey=K}UL2={EP=110b^bb^f#ef#b^bb^f#f#ef#^f#f#^edef#^f#f#^^rrg^"bd^^g^a^de^^a^b^^bba#b`c#^^^^rrr}UL3={EP=120[[SUB{b^bbbf#f#}`d^`d`d`dbbr]r`f#`f#`f#`e^^`d^:`c#^^a^b`c#]`c#^aa^b`c#^'b`d'^} STR ULA={EP=120[[SUB{b^bbbf#f#}`d^`d`d`dbbr]r`f#`f#`f#`e^^`d^:`c#^^a^b`c#]`c#^^^^rr}UL4={ULA;UL3} STR UL6={[SUB{b^bbb}`d^`d`d`dMidiDelay({SUB{f#f#}bb},12,!4)[25r]]} ULMR={l8DL=HAZ@103,2ULH;EP=120q=96q=120@82,8DL=ME2;UL2;UL3;DL=ME4;UL2;UL4}TR=8ULMR;TR=9;>ULMR; /*10*/OA={n27n32n33n35n36}O1={'OA'}O2={'n38n40OA'}O3={'n49OA'}O4={'n57OA'}O5={'n51n59OA'}DM1={O1;rrr}DH1={[7DM1][2O1;r]} DM2={O1;rrrO2;rrr}DM3={DM2;O1;rrrO2;rrO2}DM4={[7DN2]O1;rrrO2;rO1;r}DM5={[7DM2]O1;O2;r[2O1]r[2O1]}DM6={[7DM2]O1;rrr[2O2;r]}DM7={[7DM2]O1;rrrO2;r[2O2]}DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]} DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}DM10={[7DM2][3O1]r[4O1]}DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}DM13={[6DM2]O3[7r][n54rrr]}DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr} DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]}DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]} DD={EP.T(20,127,!1)[16O1]}DDH={[[7DM1][O1;r]][6DM2]O3[7r]O1;r[O1]r[3O1]}DD1={DM6[6DM2]O3[7r]O1;r[O1]r[3O1]} DD2={DM7[7DM2]O1;rrO1;O2;rO1;r}DD3={DM6;SUB{n49[15r]n55[15r]n57}DM13}DD4={DM7;DM13}DD5={O3[61r]O1;rO4[15r]O5[15r]O3[15r][DM1][O1;r]l32[8O1]l16} DD6={[O3[13r]O1;rO5[15r]]SUB{O4}[7DM1][O1;r][6DM1]O1;r[O1]r[3O1]} TR=10l16DL=HAZ;BR=20p%=1500O3;DL=HAZ+8DDH;O4;DL=BGN-1DD;DL=BGN;BR=20p%=1500DD1;DD2;DD3;DD4;DD1;DD2;DD5[DD4]DD6;DD1;DD2;DD3;O3;DL=NK2;DDH;O3[15r]DD; /*11*/GR={'n42n85'}GA={n44}GB={'n51n46'}TA={n54}MT={n51}DR={'n38n40n82n85'}PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}} GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}GP2={[3GR;rGB;r]GR;r[2GB]}GP3={[3[GR]GB;r][2GR][2GB]}GP4={[GR]GB;GR}GP5={[3GP4][GR][GB]}GP6={[GR][TA]}GP7={[GP6][GR]TA;GR;GP6}GP8={[3[GR]GB;GR][2GR][2GB]} GG1={[7GP3][16r]}GG2={[7GP3]GP8}GG3={[7GP3][4GB;r[GR]]}GG4={[7GP1]GP8} TR=11l16DL=HAZ;PL1;DL=HAZ+12[3GP2]GP8;DL=BGN;BR=20p%=-2000GG1;GG2;GG3;GG4;GG1;GG2;GG3[GG4]DL=RF2+8GG1;GG2;GG3;DL=NK1;GG2;GG3; /*12*/PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}PD2={@26EP.T(20,127,!1^1^1)[48DR]}PD3={@33SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}} PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}PD5={@26[3DR;r][5DR]r[4DR]}PD6={@26[4DR;r][3DR]r[4DR]}PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0} PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}PD11={BR=20p.T(127,32,!1)[16n51]p=64}PD12={@26[4O2][4O1][O2][6O1]@17} TR=12l16DL=HAZ+8PD3;DL=HAZ+15PD4;DL=BGN;PD3;DL=ME1+7PD4;DL=ME2+7PD4;DL=SB1[PD3]DL=ME3+7PD4;DL=ME4+7PD4;DL=SB2[PD3]DL=SB2+7PD4;DL=RF2[PD3]DL=ME5+7PD4;DL=ME6+7PD4; /*13*/PG1={P.onCycle(!8,0,22,106,127,106,22)}DS1={br`br`gr`e`c`cargrdr}DS2={[8r][4`c]grgg}DS3={[8r]d`dd`drd`dd}DS4={gr`drbrggrg`dggg`dg}DS5={`d`dr`dararfrfrcrcc}DS6={[10r]`ar`ergr}DS7={[12r]`eaer}DS8={p.T(127,0,!1)BR=20[16e]rp=64}DS9={[`d#][a#][g][d#][8r]}DS10={[8`g]`c`cgrcr"gr} DS11={[rrrr`dafd]}DS12={[4`g][4`d]ggrgrgrg}DS13={[8r][`dr]`dad"a}DS14={[3`g]rgggr`gr`ggrg`g`g}DS15={`g`gr`d`drggrddr["gr]}DS16={[8r]`gr`crgrcr}DS17={eeeeddddgrrrerrr}DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]} TR=13l16<DL=HAZ;PG1;DL=HAZ+3DS7;DL=HAZ+11DS2;DL=HAZ+15DS7;DL=BGN+7DS7;DL=ME1+7DS8;DL=ME2+3DS6;DL=SB1+3DS6;DL=RF1+7DS7;DL=ME3+7DS8;DL=ME4+3DS6;DL=SB2+3DS6;DL=SB2+7DS8;DL=SB2+11DS6;DL=RF2+7DS7;DL=RF2+15DS7;DL=ME6+7DS8;DL=ME6+3DS6;DL=NK1+3DS7;DL=NK1+11DS2;DL=NK2+7DS7; /*14*/SPH={>>@81,1v=100[16r][`d`c#f#`d`c#f#`df#][16r][`c#bf#`c#bf#`c#f#][16r][`d`c#f#`d`c#f#`df#][16r]`c#bf#`c#bf#`c#f#[8r]<<}SPI={>>@82,8v=100[4`d`c#f#`d`c#f#`df#][4`c#bf#`c#bf#`c#f#][baf#baebf#][`d`c#f#`d`c#f#`df#][4`c#bf#`c#bf#`c#f#]<<}SP1={@82,1v=100[[8bb`f#`b][4ggb`g]:[4aa`c#`a]][aa`c#`a][8r]} SP2={@6,0v=90[16bb`f#`b][12ggb`g][4aa`c#`a]}SP3={>>@81,0v=90[4bf#dbf#dbf#][4af#daf#daf#][bf#dbf#dbf#][`c#af#`c#af#`c#a][`dbg`dbg`db][16r]<<}SP4={>>@82,8v=90[[4`dbf#`dbf#`db][bf#ebf#ebf#][`c#af#`c#af#`c#a]]<<} TR=14DL=HAZ;l16<<P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)EP.onCycle(!8,80,110,80,127)SPH;SPI;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3[SP4]DL=RF2+8SP1;SP2;SP3;SPH;SPI; /*15*/STR FTG={@80,0l4rrl8rEP.T(127,0,!2)P=20[BR=90p.T(100,50,!4)c^:P=10]p=64@127,4P=96}FT1={l16@127,4BR=40[EP.T(110,40,!1^1^1)p.T(127,32,!1^1^1^1)[48c][16r]]}FT2={V=80FT1;V=100} TR=15DL=HAZ+8FT1;DL=BGN-1FTG;DL=BGN;FT1;FT2;DL=SB1[FT1]DL=ME3;FT2;DL=ME4+7FTG;DL=SB2[FT1]DL=RF2[FT1]DL=ME5;FT2;DL=NK1[FT1]DL=NK2+9FTG; /*16*/STR BG={@120,0EP.T(90,127,!2)'cd'^^^}STR BGA={@80,0l4rrl8EP.T(127,0,!2)P=64[BR=90p.T(100,40,!4)c^:P=107]P=64p=64EP=127}STR BGB={@127,0l1[e^:rr]rl4c^^r}STR BGC={@127,0l1[rr:e^]rl4c^^r} BG1={@127,0EP.T(70,127,!1)l4f^^^}BG2={@126,7l2BR=46p=127EP.T(110,127,!1)a^^^rrrrp=64}BG3={@126,7l4BR=46p=127EP.T(110,127,!1)a^^^^^^l4BR=90p.T(100,40,!4)@80,0c^p=64} BG4={@127,0EP.T(70,127,!1)l4f^^^^^BR=90p.T(100,40,!2)@80,0c^p=64} TR=16DL=HAZ-2BG2;DL=HAZ+6BG3;DL=HAZ+15BG1;DL=BGN-1BGA;BGB;DL=ME1+7BG;DL=ME2+6BG4;DL=SB1[BGB]DL=ME3+7BG;DL=ME4+7BGA;DL=SB2[BGB]DL=RF2+7BG;DL=RF2+8BGB;DL=NK1+6BG3;DL=NK2+7BG1;DL=NK2+9BGA; //------------------------------------LIKE A FLOW OF RIVER EST=160K=1INT LF_TIME=859-8FUNCTION LFW(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(LF_TIME+18)CH=X2;@(X3,XA,XB)o5v=100EP=127V=100l4M=0p%=0TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)} //-(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M) LFW(01,01,076,00,0,K,064,4,2,127,09,2)LFW(07,07,039,01,0,K,074,1,2,110,09,0)LFW(13,13,119,00,0,0,___,5,0,127,09,0) LFW(02,02,003,00,0,K,064,2,2,127,10,0)LFW(08,08,076,00,0,K,000,3,2,100,09,3)LFW(14,14,082,01,0,K,096,2,2,127,09,0) LFW(03,03,083,00,0,K,000,2,2,117,10,0)LFW(09,09,076,00,0,K,127,3,2,100,09,3)LFW(15,15,003,00,0,K,___,2,2,110,10,0) LFW(04,04,084,00,0,K,127,2,2,117,10,0)LFW(10,10,025,00,0,0,064,3,1,127,10,0)LFW(16,16,091,00,0,0,084,2,1,127,10,0) LFW(05,05,039,00,0,K,054,2,2,110,09,0)LFW(11,11,025,00,0,0,064,3,0,127,09,0) LFW(06,06,030,00,0,K,032,1,2,080,10,0)LFW(12,12,026,00,0,0,064,3,0,127,09,0) DL=LF_TIME+16Tempo=EST;HAZ=LF_TIME+2BGN=HAZ+18ME1=BGN+8ME2=ME1+8SB1=ME2+8RF1=SB1+8ME3=RF1+8ME4=ME3+8SB2=ME4+8RF2=SB2+16NK1=RF2+8NK2=NK1+8NK3=NK2+8SB3=NK3+8 /*1*/Function LFMD(Str S,Int Repeat, Int Delay){Int Temp_v=MML(v);Int Dly=Delay;Int Dec_v=Temp_v/(Repeat+2);Int J=Temp_v+40; J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Sub{r%(Dly)v(J)S}Dly=Dly+Delay;J=J-Dec_v;}v(Temp_v)S} MNH={V=90l16EP.W(80,127,!2,127,70,!2)M.W(20,120,!1)d#^^^^^^^^^^^^^f#ff#^^^^^^^^^^^^^g#f#g#^^^^^^^^^^^^^g#g#a#^^^^^^^g#^^^^^^^a#^^^^^^^^^^^^^a#a#`f#^^^^^^^^^^^^`f#`f`d#a#^^^^^^^^^^^^^g#g#l8EP.T(90,127,!1)a#^^^^^^^M=20} MNI={V=120MidiDelay({f#^f#f^c#^d#^^^r},3,!1)[20r]MidiDelay({a#^a#g#^f^f#^^^r},3,!1)[20r]}MNJ={V=120f#^f#f^c#^EP.T(100,120,!2)d#^^^^^rr} MN1={V=100[LFMD({f#f#f#f#f^c#d#^^^},1,!1)[5r]]rrrrrff#d#^^^^rff#a#^ffff^d#d^ddddd#f^}MN2={V=110[d#^^f^^f#^:f^^f#^^g#^f#d#rd#^^^a#^a#g#rf#^f^]"b^^c#^^d#^f^ffrg#ra#^^^^rrrr} MN3={V=120f#^f#f^c#^d#^^^rd#ff#"b^^rr"bc#d#f^fffff#g#^;a#^a#g#^f^f#^^^r"bc#d#b^^f#d#^^ba#ra#ra#rg#^^} TR=1l8>q=95HAM({DL=BGN-4[f#^f#f^c#rr]MNJ;DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2[MN3]DL=NK3;MNH;MNI}) /*2&3&4*/RT1={EP=127["d#g#a#d#`d#d#`c#:d#^d#a#d#`d#d#`c#d#]g#a#^ba#^g#^^;[""bd#f#d#:g#d#a#"b^d#f#d#g#d#a#d#]ff#g#a#ra#ra#rg#^^}RT4={>EP=110f#^f#f^c#^d#^^^r[20r]a#^a#g#^f^f#^^^r[20r]<} RTH={V=110[l16If(CH==2){@24,0}[32r]f#^f#^ararb^^^`c#r`c#rMidiDelay({b^^^^^`c#^},7,!2)[8r]]} RRF={l8DL=BGN;HAM({RT1})DL=SB1;RT4;DL=RF1;HAM({RT1})DL=SB2[RT4]DL=RF2;HAM({RT1})DL=SB3;RTH}TR=2;>RRF;TR=3RRF;TR=4RRF; /*5*/BS={BR=24d#^d#d#rd#rd#^^^^^^^&&"d#}BSH={EP.T(70,127,!1^1^1^1^1^1^1^1)q.T(90,100,!1^1^1^1^1^1^1^1)[8d#r][8c#r][4"br][4"g#r][4"a#r]"a#^^^^^^^q=90} BS1={[4d#`d#][4c#`c#][4"bb][4"a#a#][4"g#g#][4"a#a#][4"b:b]"a#r"a#r"a#r"a#BR=24a#&&"a#}BS2={[8d#`d#][8"bb][8"g#g#][8"a#a#]}BS3={[4"bb][4c#`c#][8d#`d#][4"bb][4"g#g#]"a#^"a#"a#r"a#r"a#^^^^rrrr} BS4={[[4d#`d#][4"bb]:[4"g#g#][4"a#a#]][4"g#:g#]"a#r"a#r"a#r"a#a#&&"a#}BS5={[32r][4"g#g#][4"a#a#][4"b:b]"a#r"a#r"a#r"a#BR=24a#&&"a#} BASS={l8<<DL=BGN-2BS;DL=BGN;q.onCycle(!8,70,100)BS1;BS2;BS3;BS4;BS1;BS2;BS3[BS4]BS5;BS2;BS3;BSH;q.onCycle(!8,70,100)BS4}TR=5BASS;TR=7BASS; /*6*/CO={rrEP=127BR=24p.T(127,0,!2)'"a#a#`f'^p=64}COH={l2p.W(63,64,!8)EP.W(110,127,!1^2,127,90,!2)SUB{HAM({f#^^^g#^^^a#^b^'fa#'^^^})}HAM2({d#^^^c#^^^"b^"g#^"a#^^^})l4p=64} CO1={EP=120SUB{HAM({`f#^^^`f^`f#^`d#^^^`c#^a#^b^^`c#`d#^^`f#`d#^^})}HAM2({d#^^^c#^^^"b^^^"a#^^^"g#^^^"a#^^^"b^^})l8rHAM({SUB{a#ra#ra#ra#^^}frfrfrf^^})l4} CO2={EP=110SUB{f#^^^g#^a#^d#^^^f^f#^"b^^^c#^d#^f^^^^^f#g#}HAM2({d#^^^^^^^"b^^^^^^^"g#^^^^^^^"a#^^^^^^^})} CO3={EP=120SUB{HAM({f#^^^g#^f^f#^^^g#^a#^f#^^^d#^^^l8f^ffrfrf^^^^l4})}HAM2({"b^^^c#^^^d#^^^^^^^"b^^^"g#^^^l8"a#^"a#"a#r"a#r"a#^^^^l4})EP=127BR=24p.T(127,0,!2)'"a#a#`f'^p=64} CO4={EP=127SUB{HAM({[f#^^^d#^^^:"b^^^c#^d#f]l8f#^^^^^^frfrfrf^^l4})}HAM2({[d#^^^"b^^^:"g#^^^"a#^^^]l8"a#^^^^^^"a#r"a#r"a#r"a#^^l4})} TR=6l4<DL=BGN;CO1;CO2;CO3;CO4;CO1;CO2;DL=SB2[CO4]CO1;CO2;CO3;COH;CO4; /*8&9*/ULH={l20rIf(CH==9){r}MNH;V=100}ULI={EP=120MidiDelay({SUB{a#^a#g#^f^f#^^^}d#^d#c#^"a#^"b^^^r},3,!1)[20r]MidiDelay({SUB{`d#^`d#`c#^a#^b^^^}f#^f#f^c#^d#^^^r},3,!1)[20r]} ULJ={EP.T(100,120,!2)SUB{a#^a#g#^f^f#^^^^^}d#^d#c#^"a#^EP.T(100,120,!2)"b^^^^^rr}UL1={EP=110[LFMD({d#d#d#d#c#^"a#"a#^^^},1,!1)[5r]]rrrrr"b"b"b^^^^r"b"b"a#^"a#"a#"a#"a#^"a#"a#^"a#"a#"a#"a#"bc#^} UL2={EP=120"b^^c#^^d#^c#^^d#^^f^fd#rd#^^^d#^d#c#r"b^"a#^;"b^^c#^^d#^"g#^^"a#^^"b^EP=110SUB{f^ffrd#rf^^^^}"a#^"a#"a#r"g#r"a#^^^^rrrr} UL3={EP=120SUB{a#^a#g#^f^f#^^^}d#^d#c#^"a#^"b^^^rEP=127f#g#a#d#^^rrd#ff#g#^g#g#g#g#a#`c#^EP=120SUB{`d#^`d#`c#^a#^b^^^}f#^f#f^c#^d#^^^rEP=127g#a#b`f#^^`d#b^^`f#EP=120SUB{`c#r`c#r`c#r`c#^^}`fr`fr`fr`f^^} ULMR={l8DL=BGN-2ULJ;DL=ME1;UL1;UL2;UL3;DL=ME3;UL1;UL2[UL3]DL=NK2;UL2;ULH;DL=SB3;ULI}TR=8ULMR;TR=9;>ULMR; /*10*/OA={n27n32n33n35n36}O1={'OA'}O2={'n28n39OA'}O3={'n49OA'}O4={'n57OA'}O5={'n51n59OA'}O6={'n38n40OA'}DM1={O1;rrr}DH1={[7DM1][2O1;r]} DM2={O1;rrrO2;rrr}DM3={DM2;O1;rrrO2;rrO2}DM4={[7DN2]O1;rrrO2;rO1;r}DM5={[7DM2]O1;O2;r[2O1]r[2O1]}DM6={[7DM2]O1;rrr[2O2;r]}DM7={[7DM2]O1;rrrO2;r[2O2]}DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]} DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}DM10={[7DM2][3O1]r[4O1]}DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}DM13={[6DM2]O3[7r][n54rrr]}DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr} DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]}DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]} DM20={[5DM2]O1;rO2;rO1;r[3O5;rrr]O3[5r]}DM21={[7DM2][O1;r]O6;rrr}DM22={[4DM2]l8O3;rO5[O1;r]O4;rrrrSUB{[O3]}rO1;O6;rl16} STR DMH={@17p%=4000EP.onCycle(!8,127,50,127,127,70,127,127)[O1;r]O6;O1;rO6;rrO1;rO6;rO1;r@25p%=1000EP=127}STR DMI={EP=127l8SUB{O3[7r]O5[7r]O4}[O1;rrO1;O6;rO1;r:rrO1;rO6;rO1;r]l16} DD={O1;rrrO2;r[O5;rrr]O3[9r]SUB{[O3;r]}rrO1;rO6;rrr}DDH={MidiDelay({SUB{n49}},8,!8)O1[15r]DMH;MidiDelay({SUB{n57}},8,!8)O1[15r]DMH;@17p%=4000DMI;EP.T(50,127,!1)[16'n38n40']EP=127@25p%=1000} DD1={DM6;DM20}DD2={DM7;DM21}DD3={DM7;DM22}DD4={DM7;DM20}DD5={DD2;DD4}DD6={[64r]DM20} TR=10l16DL=BGN-4BR=20p%=1000[O1;rrrO2;r[O5;rrr]rr]DD;DL=BGN;BR=20p%=1000DD1;DD2;DD3;DD4;DD1;DD2;DDH;DD5;DD6;DL=NK1;DD2;DD3;DDH;DD2; /*11*/GR={'n42n85'}GA={n44}GB={'n51n46'}TA={n54}MT={n51}DR={'n38n40n82n85'}PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}} GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}GP2={[3GR;rGB;r]GR;r[2GB]}GP3={[3[GR]GB;r][2GR][2GB]}GP4={[GR]GB;GR}GP5={[3GP4][GR][GB]}GP6={[GR][TA]}GP7={[GP6][GR]TA;GR;GP6}GP8={[3[GR]GB;GR][2GR][2GB]} STR GG={SUB{[n61rrr:n60rrr]n60rrn60}SUB{[n64]n63rn62rrn63n64rn63rn64rn62r}[4n80]n81r[6n80]n81r[n80]}STR GGG={l8GB;rGB[GR;r]GB;rrrrrrrl16}GGH={P=64EP.T(60,127,!1^1^1^1^1^1^1^1)[7GP8]GP2;PL1} GG1={[6GP3][4[GR]:GB;r]l8[3GR;r]GB;rrl16}GG2={[7GP3]GP8}GG3={[6GP3]l8GB;rGA[GR;r]GB;r[7GR]l16}GG4={[6GP1][4[GR]:GB;r]l8[3GR;r]GB;rrl16}GG5={[7GP1]GP2;GG4} TR=11l16DL=BGN-2@26BR=20p%=3000GGG@25DL=BGN;PL1;BR=20p%=3000GG1;GG2;GG3;GG4;GG1;GG2;GGH;GG5;GG1;GG2;GG3;DL=NK3;GGH[7GP1]GP2; /*12*/PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}PD2={@26EP.T(20,127,!1^1^1)[48DR]}PD3={@33SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[64r]} PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}PD5={@26[3DR;r][5DR]r[4DR]}PD6={@26[4DR;r][3DR]r[4DR]}PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0} PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}PD11={BR=20p.T(127,32,!1)[16n51]p=64}PD12={@26[4O2][4O1][O2][6O1]@17} PD13={BR=20v=70r[[16r]DMH]p%=5000@17DMI;p%=0EP=127v=127} TR=12l16p%=0DL=BGN;PD3A;DL=SB1[PD3A]DL=SB2[3PD3A]DL=NK3;PD13;DL=SB3;PD3A; /*13*/PG1={P.onCycle(!8,0,22,106,127,106,22)}DS1={br`br`gr`e`c`cargrdr}DS2={[8r][4`c]grgg}DS3={[8r]d`dd`drd`dd}DS4={gr`drbrggrg`dggg`dg}DS5={`d`dr`dararfrfrcrcc}DS6={[10r]`ar`ergr}DS7={[12r]`eaer}DS8={p.T(127,0,!1)BR=20[16e]rp=64}DS9={[`d#][a#][g][d#][8r]}DS10={[8`g]`c`cgrcr"gr} DS11={[rrrr`dafd]}DS12={[4`g][4`d]ggrgrgrg}DS13={[8r][`dr]`dad"a}DS14={[3`g]rgggr`gr`ggrg`g`g}DS15={`g`gr`d`drggrddr["gr]}DS16={[8r]`gr`crgrcr}DS17={eeeeddddgrrrerrr}DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]} TR=13l16<DL=BGN;PG1;DL=BGN+3DS6;DL=ME1+7DS6;DL=ME2+3DS6;DL=ME2+7DS7;DL=SB1+7DS7;DL=RF1+3DS6;DL=ME3+7DS6;DL=ME4+3DS6;DL=ME4+7DS7;DL=SB2+7DS7;DL=SB2+15DS7;DL=RF2+3DS6;DL=NK1+7DS6;DL=NK2+3DS6;DL=NK2+7DS7;DL=SB3+7DS7; /*14*/SP={HAM({l16[16r]EP=127@3,0d#`d#`c#ba#g#f#d#EP=100@85,0q=90l8'`d#a#f#''`d#a#f#'^^})}SPH={q=100HAM({l8EP=120@56,0'`d#a#'[14r]d#'`fa#'[11r]l16EP.T(60,110,!4)[4'`fa#']EP=120l8rr'`f#`d#'[7r]'`g#`c#'[7r]'`fa#'[7r]@82,1M.T(0,127,!1)EP.T(90,127,!1)'`fa#'^^^^^^^M=0})q=90} SP1={EP=80@62,0SUB{a#^^a#a#a#rg#^g#g#g#g#rg#ra#^^a#a#a#r`c#^`c#`c#`c#`c#r`c#r;`d#^^`d#`d#`d#r`f#^`f#`f#`f#`f#r`f#r`d#^^`d#`d#`d#`d#`fr`fr`fr`f^^} `d#^^`d#`d#`d#r`f^`f`f`f`fr`fr`f#^^`f#`f#`f#r`a#^`a#`a#`a#`a#r`a#r;`g#^^`g#`g#`g#r`a#^`a#`a#`a#`a#r`a#r`b^^`b`b`b`b`a#r`a#r`a#r`a#^^} SP2={q=100EP=100@3,0MidiDelay({'a#d#'^},8,!2)[13r]g#MidiDelay({'a#f#'^},8,!2)[13r]g#[LFMD({'"bf#'^},1,!2)rrrrrr]@81,0l4EP.T(70,127,!1)'f"a#'^^^l8@3,0"a#dd#f"a#fg#a#q=90} SP3={EP=100@28,0[["b"b'"bd#f#b'"b]:[c#c#'c#fg#`c#'c#][3d#d#'d#f#a#`d#'d#][c#'c#fg#`c#']]["g#"g#'"g#"bd#g#'"g#]SUB{a#^a#a#ra#r}f^ffrfrq=100EP.T(50,127,!2)@83,0'a#f"a#'^^^^EP=100@85,0q=90HAM({'a#fc#''a#fc#'^^})} SP4={HAM({[[6r]@81,0EP.T(50,120,!2)'d#f#'^^^@56,0'`d#f#''`d#f#'rrr:EP.T(50,120,!2)@82,0'"b"g#'^^@56,0'a#f'r@3"bc#d#f^fffff#g#^]r@3b^f#d#^^bEP=100@63SUB{f#rf#rf#rf^^}a#ra#ra#ra#^^})} TR=14DL=BGN-2SP;DL=BGN;l8SP1;SP2;SP3;SP4;SP1;SP2;SP3[SP4]SP1;SP2;SP3;V=70SPH;V=100SP4; /*15*/FTH={>@13v=120d#a#g#ra#rd#d#ra#g#ra#rg#r;c#a#g#ra#rc#c#ra#g#ra#rfr;"bf#frf#r"bd#rf#frf#rd#r;"a#"f"a#c#d#c#d#"ff^^^^rrr<} FT1={@6v=100d#ff#d#a#d#g#d#;c#d#fc#a#c#g#c#;"bc#d#"bf#"bf"b;"a#"bc#"a#c#c#^c#;"bc#d#"bd#^"bd#;c#d#fc#f^c#f;d#ff#d#a#^g#a#[8r]} FT2={@1v=100[d#g#a#d#a#d#g#a#][c#d#fc#a#c#g#a#]["bd#f#"bf#"bd#f#]["a#"bc#"a#c#"a#"bc#]}FT3={>@2v=110"bc#d#"bd#"bc#d#;c#d#fc#fc#d#f;d#ff#d#f#d#ff#d#ff#d#f#fd#c#;"bc#d#"bd#"bc#d#;"g#"a#"b"g#"b"g#"a#"b[16r]<} FT4={>@4v=100l16[[d#ff#d#a#d#f#a#]["bff#"ba#"bg#a#]:["g#"bd#"g#g#"g#f#g#]["a#d#f"a#f"a#d#f]]["g#"bd#"g#:g#"g#f#g#][20r]l8<} TR=15DL=BGN;l8<P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)EP.onCycle(!8,80,110,80,127)FT1;FT2;FT3;FT4;FT1;FT2;FT3[FT4]FT1;FT2;FT3;FTH;FT4; /*16*/BG={l1EP.T(30,127,!1^1)@123,4c^[4c^]}BG1={>>@123,5l32P=70BR=36p.T(64,32,!2^4)[28`e]<<p=64}BG2={l4<@128,3P=70p.T(64,64,!4,70,127,!2)'a"a`a'^^r>p=64}BG3={@120,0l4'cd'^^^} BG4={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}BG5={l1EP.T(30,127,!1^1)@123,4[7c]}BG6={l1EP.T(30,127,!1^1)@123,4[7c]EP.T(127,0,!1^1)[2c]} TR=16DL=BGN+6BG1;BG2;DL=ME1+7BG3;DL=ME2+7BG4;DL=RF1+6BG1;BG2;DL=ME3+7BG3;DL=ME4;BG5;DL=ME4+7BG4;DL=RF2+6BG1;BG2; //------------------------------------oto.chu.jp EST=162K=1INT OC_TIME=983-12FUNCTION OCW(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(OC_TIME+12)CH=X2;@(X3,XA,XB)o5v=100EP=127V=100l4M=0p%=0TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)} //-(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M) OCW(01,01,024,00,0,K,064,4,2,127,09,0)OCW(07,07,039,08,0,K,000,1,2,127,09,0)OCW(13,13,119,09,0,0,___,5,0,127,09,0) OCW(02,02,081,00,0,K,064,2,2,127,09,7)OCW(08,08,024,00,0,K,000,3,2,100,09,2)OCW(14,14,082,01,0,K,074,2,2,127,09,0) OCW(03,03,081,01,0,K,000,2,2,127,10,7)OCW(09,09,024,00,0,K,127,3,2,100,09,2)OCW(15,15,006,00,0,K,___,2,2,110,10,0) OCW(04,04,082,08,0,K,127,2,2,127,10,7)OCW(10,10,025,00,0,0,064,3,1,127,10,0)OCW(16,16,091,00,0,0,084,2,1,127,10,0) OCW(05,05,088,00,0,K,064,2,2,120,09,0)OCW(11,11,025,00,0,0,064,3,0,127,09,0) OCW(06,06,049,00,0,K,030,1,2,080,10,0)OCW(12,12,026,00,0,0,064,3,0,127,09,0) DL=OC_TIME+12Tempo=EST;HAZ=OC_TIME+4BGN=HAZ+16ME1=BGN+8ME2=ME1+8SB1=ME2+8RF1=SB1+8ME3=RF1+8ME4=ME3+8SB2=ME4+8NK1=SB2+16NK2=NK1+8NK3=NK2+8NK4=NK3+8INT NK5=NK4+8RF2=NK5+8 /*1*/MN1={V=100[l8rf#c#^l16f#^"bc#^^c#^l8f#ef#a^ag#^l8rf#c#^:l16f#^"bc#^^c#^l8f#ef#e^^^r]l16f#^"bf#^^a^l8bab`c#^^^r} MN2={V=100[raaf#l16a^^b^^`c#^l8rbbbl16a^^g#^^f#^l8r:bbal16b^^a^^f#^l8b^b^a^g#f#]bbal16b^^a^^b^l8`c#^a^g#^g^} MN3={V=110[l16f#^f#^ararb^^^`c#r`c#rb^^^^^`c#^^^l8c#ef#l16f#^f#^ararb^b^`c#r`c#r:l8b^af#^f#fe]l8r`e`d#`d`c#^^r} MN4={V=110[l16f#^f#^ararb^^^`c#r`c#rMidiDelay({b^^^^^`c#^},7,!2)[40r]]} TR=1l16DL=HAZ+8q=94HAM({DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2[MN3]DL=RF2+8l16f#^f#^ararb^^^`c#r`c#rMidiDelay({b^^^^^`c#^^^},8,!2)}) /*2&3&4*/RTA={@81,0If(CH==3){@81,1}If(CH==4){@82,8}}RTB={@82,0If(CH==3){@81,0}If(CH==4){@83,0}} RTH={EP=127RTA[[3[8r]f#`c#a`c#g#`c#g`c#][16r]]}RT1={EP=127[RTA[3f#c#g#c#ac#g#c#;f#`c#a`c#g#`c#g`c#]RTB:[`c#^&c#:r]`c#r`c#`c#r`c#^&c#^]c#f#g#af#ab`c#c#^^&g#`c#^c#^} //RT1={EP=127[[f#rf#rerf#^^^f#rerf#^^^:erf#rarbr`c#rbrar]erf#rar:br`c#r`c#r`c#`c#]RTB;ac#bc#`c#r`c#`c#} RT2={[96r]EP.T(30,60,!1)l4SUB{c#^e^f#^g#^}f#^a^b^l16EP=80c#^^&g#`c#^c#^} RT3={BR=24p.T(127,64,!1^1^1^1,64,127,!1^1^1^1)<RT1>p=64}RT4={l8q.T(10,40,!1^1^1^1^1^1^1^1)MidiDelay({RTA[7f#g#ag#ag#ab][3f#^]rr},3,!16)l16q=100} RRF={l16DL=HAZ+8RTH;DL=BGN;HAM({RT1;RT2;DL=RF1;RT1;RT2})DL=NK1;RTH;HAM({RT3})DL=NK5;HAM({RT4;RT1})}TR=2;>RRF;TR=3RRF;TR=4RRF; /*5*/BSQ={q.onCycle(!8,50,100)}BSH={@35[48f#][8d][8e]@88}BSI={BSQ@88,0["f#f#]rrrr["aa]rrrr["bb]rrrr["aa]"g#g#"gg[4"f#f#][4"aa][4"bb][c#`c#][c#^]} BS1={[[4"f#f#][4"aa][4"bb]:["aa]"g#g#"gg][c#`c#][c#^]}BS2={[[6"f#f#]"ee"d#d#:[6"f#f#]"a^"b^]["f#f#]["aa]["bb][c#`c#]} BS3={[[4"aa][4"ee][4"bb]:[3"f#f#]"g#g#]"a^"a^"g#^"g^}BS4={[[4"f#f#][4"aa]:[4"ee]["bb]"aa"g#g#][4"bb]rc#c#c#c#^^r} BS5={@37,0["f#^f#r"f#f#^[3"f#f#^]"d^dr"dd^"d"e^er"ee^"e]@82,1q.T(40,100,!1^1^1^1^1^1^1^1)[28"f#f#][3"f#^]rr@88,0BSQ} TR=5l8<<DL=HAZ+8BSI;DL=BGN;BS1;BS2;BS3;BS4;BS1;BS2;BS3[BS4]BSI;SUB{TempoChange(160,60,!1^1^1^1)[32r]TempoChange(60,160,!1^1^1^1)}BR=12p.T(64,0,!1^1^1^1,0,64,!1^1^1^1)BS1;DL=NK4;BS5;BS1; /*6*/COH={l8@101HAM({SUB{[c#^^^^"br"b^^^^^^^^:"a^^^^^^^"f#^^^"g#^^^]d^^^^^^^e^^^^^^^}[f#^^^^erd#^^^^^^^^:c#^^^^^^^"b^^^c#^^^]f#^^^^^^^g#^^^^^^^})l4@31,0} CO1={SUB{[`c#^^^`e^^^`f#^^^:`e^`g#^]`e^^^}HAM2({[f#^^^a^^^b^^^:a^g#g]`c#^^^})}CO2={SUB{[a^^^a^g#^:a^^^`c#^rr]a^`c#^`f#^`g#^}HAM2({[f#^^^^^ed#:f#^^^^^rr]f#^a^b^`c#^})} CO3={SUB{[`c#^^^b^^`c#`d^^^:a^^b]}HAM2({[a^^^e^^^b^^^:f#^^g#]})l16['af#c#'^"f#"f#][8r]l4}CO4={SUB{HAM({[a^^^`c#^^^:b^^^`e^^^]`d^^^`f#^`g#^})}HAM2({[f#^^^a^^^:e^^^b^ag#]b^^^`c#^^^})} TR=6DL=HAZ+8;<@31,0CO1;DL=BGN;l4CO1;CO2;CO3;CO4;CO1;CO2;CO3[CO4]CO1;BR=12p.T(64,0,!1^1^1^1,0,64,!1^1^1^1)CO1;DL=RF2;CO1; /*7*/STR HT={l2BR=30p.T(64,127,!1^1)P=70@126,7'c#de'^^^^l1rp=64}STR HTH={l4<q=100P.T(0,127,!1,127,0,!1,0,127,!1,127,0,!1)@82,0"f#^^^^^^^"d^^^"e^^^>} STR HT1={P=80HAM({>>l16[@56,0[28r]SUB{g#g#g#g#}`c#`c#`c#`c#:[32r]][28r]SUB{g#g#g#g#}`c#`c#`c#`c#<<})} TR=7DL=SB1;HT1;DL=SB2[HT1]DL=NK2-2HT;DL=NK3[4HTH] /*8&9*/UL2={EP=110[l8reec#l16f#^^c#^^f#^l8reeel16d^^c#^^"b^l8r:ddc#l16d^^c#^^"b^l8c#^c#^"b^"a"g#]f#f#el16f#^^e^^f#^l8EP=100SUB{f#^f#^e^c#^}a^a^g#^g^} UL3={EP=120SUB{MN3}[l16c#^c#^ererf#^^^f#rf#re^^^^^c#^^^l8"a"a"al16"b^"b^"br"brf#^f#^f#rf#r:l8e^d"b^"b"a"g#]l8rag#gf#^^r}UL4={EP=127[l16c#^c#^ererf#^^^f#rf#rMidiDelay({e^^^^^c#^},7,!2)[40r]]} ULMR={l8q=94DL=ME2;UL2;UL3;DL=ME4;UL2[UL3]DL=RF2+8l16c#^c#^ererf#^^^f#rf#rMidiDelay({e^^^^^c#^^^},8,!2)}TR=8ULMR;TR=9;>ULMR; /*10*/OA={n27n32n33n35n36}O1={'OA'}O2={'n38n40OA'}O3={'n49OA'}O4={'n57OA'}O5={'n51n59OA'}DM1={O1;rrr}DH1={[7DM1][2O1;r]} DM2={O1;rrrO2;rrr}DM3={DM2;O1;rrrO2;rrO2}DM4={[7DN2]O1;rrrO2;rO1;r}DM5={[7DM2]O1;O2;r[2O1]r[2O1]}DM6={[7DM2]O1;rrr[2O2;r]}DM7={[7DM2]O1;rrrO2;r[2O2]}DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]} DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}DM10={[7DM2][3O1]r[4O1]}DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}DM13={[6DM2]O3[7r][n54rrr]}DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr} DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]}DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]} DM20={[6DM2]O3[7r][3O1]r[4O1]}DM21={[7DM2][O3;rrr]}DM22={SUB{[32r]rrrrO3[7r]O5[7r]O4;rrr[O3;rrr]}[7DM2][3O1]rO2;rO1;r} DM23={[7DM2][O1;r]SUB{O2}[4O1]}DM24={[6DM2]O3;rrrO5;rrrO4;rrrl32[8O1]l16}DM25={[6DM2]l8r[3O4]O5;rl32[8O1]l16} DDI={[3[O3;rrr][8r]][8r][n48r][n45]n43r[7DM1][O1;r][4DM1]EP.T(50,127,!1)[16O1]}DD1={DM6;DM20}DD2={DM21;DM22}DD3={DM23;DM24}DD4={DM6;DM25} DD5={O3[15r]O5[15r]O4[15r]O3[7r][n48r][n45]n43r[7DM1][O1;r][4DM1]EP.T(50,127,!1)[16O1]}DD6={@17p%=3000O3[47r]EP.T(50,127,!1)[16O1][3O1;rrO1;O2;rr[O1;rO2]rrO1]p%=-3000O1;rrO1;O2;rr[O1;rO2]rrO1@25p%=1000}DD7={p%=2000DD3} TR=10l16DL=HAZ+8BR=20p%=1000DDI;DL=BGN@25BR=20p%=1000DD1;DD2;DD3;DD4;DD1;DD2;DD5[DD4]DDI;p%.T(1000,-8192,!1^1^1^1,-8192,8192,!1^1^1^1)DD1;p%=1000DL=NK4;DD6;DD7;DD1;O3[15r]O4;rrrrrO3[15r] /*11*/GR={'n42n85'}GA={n44}GB={'n51n46'}TA={n54}MT={n51}DR={'n38n40n82n85'}PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}} GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}GP2={[3GR;rGB;r]GR;r[2GB]}GP3={[3[GR]GB;r][2GR][2GB]}GP4={[GR]GB;GR}GP5={[3GP4][GR][GB]}GP6={[GR][TA]}GP7={[GP6][GR]TA;GR;GP6}GP8={[3[GR]GB;GR][2GR][2GB]} GGH={[3GP2][4GB;r[GR]]}GG1={[7GP3]GP8}GG2={[[3GP3]:[[GR]GB;r][GB;r[GR]]]GP2}GG3={[7GP3][4GB;r[GR]]}GG4={[7GP1]GP8} TR=11l16DL=HAZ+12PL1;GGH;DL=BGN@26BR=20p%=1000GG1;GG2;GG3;GG4;GG1;GG2;DL=ME4+4GGH[GG4]DL=NK1+4GGH;p%.T(1000,-8192,!1^1^1^1,-8192,8192,!1^1^1^1)GG1;p%=1000DL=NK4;GG2;p%=4000GG3;p%=1000GG1; /*12*/PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}PD2={@26EP.T(20,127,!1^1^1)[48DR]}PD3={@25P=64SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}PD3A={@25P=64SUB{n49}[48r]SUB{P.onCycle(!16,0,127)[3O1]rO1;r[[O1]r][O1;r]P=64}[3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]} PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}PD5={@26[3DR;r][5DR]r[4DR]}PD6={@26[4DR;r][3DR]r[4DR]}PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0} PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}PD11={BR=20p.T(127,32,!1)[16n51]p=64}PD12={@26[4O2][4O1][O2][6O1]@17} PD13={[8r]P.onCycle(!16,0,127)[O1;r][4O1]P=64}PD14={P.onCycle(!16,0,127)[rrrr[4O1]]P=64}PD15={@25SUB{n49}[48r]SUB{[8r]P.onCycle(!16,0,127)[O1;r][4O1]P=64}[3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]} TR=12l16DL=HAZ+8PD3A;DL=BGN;PD3A;DL=ME1+3PD13;DL=ME2+7PD14;DL=SB1;PD15;PD3A;DL=ME3+3PD13;DL=SB2[PD15]PD3A;BR=12p.T(64,0,!1^1^1^1,0,64,!1^1^1^1)PD3A;DL=NK4[PD3]PD3A; /*13*/PG1={P.onCycle(!8,0,22,106,127,106,22)}DS1={br`br`gr`e`c`cargrdr}DS2={[8r][4`c]grgg}DS3={[8r]d`dd`drd`dd}DS4={gr`drbrggrg`dggg`dg}DS5={`d`dr`dararfrfrcrcc}DS6={[10r]`ar`ergr}DS7={[12r]`eaer}DS8={p.T(127,0,!1)BR=20[16e]rp=64}DS9={[`d#][a#][g][d#][8r]}DS10={[8`g]`c`cgrcr"gr} DS11={[rrrr`dafd]}DS12={[4`g][4`d]ggrgrgrg}DS13={[8r][`dr]`dad"a}DS14={[3`g]rgggr`gr`ggrg`g`g}DS15={`g`gr`d`drggrddr["gr]}DS16={[8r]`gr`crgrcr}DS17={eeeeddddgrrrerrr}DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]} TR=13l16<DL=BGN;PG1;DL=BGN+3DS7;DL=BGN+7DS7;DL=ME1+7DS6;DL=ME2+3DS2;DL=ME2+7DS7;DL=SB1+3DS8;DL=SB1+7PD7;DL=RF1+3DS7;DL=RF1+7DS7;DL=ME3+7DS6;DL=ME4+3DS2;DL=ME4+7DS7;DL=SB2+3DS8;DL=SB2+7PD7;DL=SB2+11DS8;DL=SB2+15PD7; DL=NK2+3DS7;DL=NK2+7DS7;DL=NK4+3DS7;DL=NK4+7DS7;DL=RF2+3DS7;DL=RF2+7DS7; /*14*/SPH={l1@123,3a^^^^^^^}SPI={HAM({>[l8@82,0M=70EP=100q=70[3MD({['f#c#'^]},1,!6)rrrr]:q=100EP.T(70,100,!1)'f#c#'^^^^^^^]<M=0})[8r]}SP1={HAM({>[l8@82,0EP=100q=70M=30[3['`c#g#'^]rrrr]:q=100EP.T(70,100,!1)'`c#g#'^^^^^^^]<M=0})[8r]} SP2={HAM({[l8[@56,0EP=120rr'f#`c#'r:rrrr@63,0EP=80e^^d#^^^^]:[8r]@82,0EP=100M=90q=70'af#'^'f#b'^M=0q=90]rr'a`c#'rrr'b`f#'rEP.T(50,120,!2)@82,0'`c#g#'^^^})} SP3={HAM({[l8@85,0M=30EP=90q=60rrMD({'ae'^},3,!4)rrrr;rrMD({'e"b'^},3,!4)rrrr;rrMD({'bf#'^},3,!4)rrrrq=100:@82,1EP=127l16f#g#f#g#abab`c#`d`c#`d`e`f#`e`f#]@82,0EP=80q=70SUB{f#^e^c#^"b^}a^a^g#^g^q=90})} SP4={q=100HAM({[@83,0l8EP.T(40,120,!4)'f#c#'^@56,0'f#`c#'rrrrrEP.T(50,100,!1)@82,0'ae'^^^^^^^:EP.T(40,120,!4)'e"b'^@56,0'`eb'rrrrrEP.T(50,80,!2)@82,0'bf#'^^^@85,0EP=100q=70'f#a'^'be'^q=100]EP.T(60,120,!4)'bf#'^@56,0'b`f#'rrrrrr@85,0EP=110SUB{g#g#g#g#^^}bbb`c#^^r})q=90} TR=14DL=HAZ+8SPI;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3[SP4]SPI;BR=12p.T(64,0,!1^1^1^1,0,64,!1^1^1^1)SP1;DL=RF2;SP1; /*15*/FTH={v=110@7l8<[4f#"f#f#"f#f#ec#f#r"f#f#"f#ec#ef#]>l16@6}FT1={v=120[[3c#ef#c#f#c#ef#rc#ec#ec#ef#]:[8"ac#]][16r]} FT2={v=100[[4f#a`c#f#`c#f#a`c#:rf#af#af#a`c#][8r]]}FT3={v=100[arf#ef#ef#aref#ef#ef#a[brededebrdededeb]:f#g#f#g#abab`c#`d`c#`d`e`f#`e`f#][16r]}FT4={v=110[7c#ef#c#f#c#ef#rc#ec#ec#ef#][16r]} TR=15DL=BGN;l16P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)EP.onCycle(!8,80,110,80,127)FT1;FT2;FT3;FT4;FT1;FT2;FT3[FT4]DL=NK2;BR=12p.T(64,0,!1^1^1^1,0,64,!1^1^1^1)FT1;DL=RF2;FT1; /*16*/BG={p.T(127,0,!24)`g}BGA={@125,5l4BR=20P=80p.T(0,127,!1)'`c`d'^^^^^^^p=64l8@81,1'f#`f#'^}BGH={l16EP=127@127,4P=70[7MidiDelay({'cde'r'cde'r},2,!4)[12r]]MidiDelay({'cde'r'cde'r},1,!4)rrrrl8@120,0'cde'^^^} BGI={[@128,3l16BR=120P.onCycle(!16,0,127)p.W(120,0,!24)q=70[3[5'`c#f#'][11r]]q=100p=64:P=70l4@120,0'cde'^^^]@80,0P=84[rrrr[4BG]:P=44]} BG1={[@19,0l4EP=100P.onCycle(!1,20,107)[3BR=48p.T(127,32,!1)`c#^^^]:@80,0l16BR=124EP=120P.onCycle(!8,20,107)l16[3BG]rBG;r[[BG]r][BG;r]p=64]l4p.T(127,0,!1)P.T(127,0,!1)BR=32@126,8'cde'^^^p=64} BG2={>@128,3l4P=70EP=110['cde'^^^^^^^:[8r]]<EP=127}BGB={[3rrrr:'f#`f#'^]l4M.T(0,127,!1)>'f#`f#'^^^^^^^^^^^^^<}BG3={>@128,3l4P=70EP=110['cde'^^^^^^^:[8r]]<EP=127} TR=16DL=HAZ+8BGI;DL=BGN;BG1;DL=RF1;BG1;DL=ME4;BGH;DL=NK1;BGI;BG1;DL=NK3;BGA;BGB;DL=NK5;BG3;DL=RF2;BG1;BGA; //------------------------------------LYRIC Function LY(GRFD){[(GRFD)l4Lyric={"｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:"}rLyric={":｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ"}rLyric={"ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*"}rLyric={"*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡."}r Lyric={".*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡"}rLyric={"｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:"}rLyric={":｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ"}rLyric={"ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+"}r Lyric={"+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ"}rLyric={"ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:"}rLyric={":ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡."}rLyric={".:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡"}r Lyric={"｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*"}rLyric={"*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ"}rLyric={"ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+"}rLyric={"+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡."}r Lyric={".+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡"}rLyric={"｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:"}rLyric={":｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ"}rLyric={"ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡.*"}r Lyric={"*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡."}rLyric={".*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:｡"}rLyric={"｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ:"}rLyric={":｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+ﾟ"}r Lyric={"ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ+"}rLyric={"+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:ﾟ"}rLyric={"ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡.:"}rLyric={":ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡."}r Lyric={".:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*｡"}rLyric={"｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ*"}rLyric={"*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+ﾟ"}rLyric={"ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡.+ﾟ*｡.:ﾟ+ﾟ:｡.*ﾟ:｡+"}r]} TR=17CH=16DL=0Lyric={"MS-GS EUROBEAT 110th ANNIVERSARY NON-STOP MEGAMIX VOL.07"}DL=10Lyric={"1.JAPAN - 2006/05/08"} DL=117LY=1DL=125Lyric={"2.COME ON PARAPARA DANCING - 2006/04/13"}DL=251LY=1DL=259Lyric={"3.歓喜した貴婦人のハレルヤ - 2006/05/08"} DL=365LY=1DL=373Lyric={"4.DON’T LET ME DOWN - 2006/06/19"}DL=489LY=1DL=497Lyric={"5.TOO YOUNG TO FALL IN LOVE - 2006/04/10"} DL=617LY=1DL=625Lyric={"6.GRADUATION - 2006/05/22"}DL=729LY=2DL=747Lyric={"7.GIVE ME YOUR SHAKIN’ - 2006/06/05"} DL=855LY=2DL=871Lyric={"8.LIKE A FLOW OF RIVER - 2006/04/25"}DL=975LY=1DL=983Lyric={"9.oto.chu.jp - 2006/07/30"}

この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか？
（←選択）

サクラトップ > 掲示板トップ > 投稿フォーム