サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント ☆★☆はやい曲が大好きな人、ノリたい人にお奨めです!!☆★☆ いろいろ考えたんですが、受験を考慮して、旧掲示板に投稿した曲の再投稿と新曲を2週間ごとに交互に投稿して行く事にしました。 第一弾は旧掲示板の全盛期の頃のでつ。 曲データ(サクラから貼り付けます。) // 一年近く前の曲引っ張り出してきました。 // ■旧掲示板投稿:2004/03/01 20:00:29 INT BGM_REVOLUTION = 80 //効果音の音量設定(耳が痛くなる場合は数値を下げてみてください)(0~127) INT TEMPO_EST = 156 //156 //テンポ(変更可能) TrackName={AGGRESSIVE★DANCE}Copyright={H゛}System.MeasureShift(3)ResetGS;Tempo=1000;Include(delay.h) Function Autoexec(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){ TR=X1;DL(0)CH=X2;@(X3,XA,XB)Key=X4;P=X5;CHO=X6;REV=X7;v=(X8)q=(X9)M=(XC)} Function DivX(INT RUNDLL,INT RUNDLL32,INT REGEDIT){Time(RUNDLL:RUNDLL32:REGEDIT)} Function DDS(n1) { l%1 r*-3 y99( 1)r* y98( 32)r* y6(n1)r* } Function SEUP(DJ1,DJ2,DJ3){STR DERT1= "r" + DJ3;Sub{Sub{For(INT A= DJ1AUS2A=A-2){ DDS(A)DERT2 } }}} Function DL(ti){Time(ti:1:0)} Function OEM(TTD){y99(1)y98(32)y6(TTD)} Function OEM2(BBS){FilterResonance=BBS} Function PAN(ER1,ER2){If(ER2 == 0){P.T(000,127,ER1)}If(ER2 == 1){P.T(127,000,ER1)}} Function Review(STR OIN,Revalue,ReNo){STR REPO= "r" + Revalue;Sub{[(ReNo);OIN;REPO]}} Function SetTimeout(STR SetTval,SetTr){STR SetAs= "r" + SetTr;Sub{SetAs;SetTval}} Function SetINTerval(STR SetIval,SetIr,SetIno){STR SetIAs="r" + SetIr;Sub{[(SetIno);SetIAs;SetIval]}} 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=12;SA;Key=0}SA}Function HAM2(STR SA){Sub{Key=12;SA;Key=0}Sub{Key=-12;SA;Key=0}SA} STR INS={InstrumentName} //------( TR , CH , @ , @2 , @3 , Key, P , CHO, REV, v , VAR, M )INS={InstrumentName} Autoexec( 001, 001, 081, 001, 000, 000, 064, 030, 040, 127, 090, 020)INS={"MAIN"} Autoexec( 002, 002, 100, 000, 000, 000, 000, 040, 040, 110, 090, 040)INS={"SYNTH"} Autoexec( 003, 003, 047, 000, 000, 000, 127, 040, 040, 110, 090, 040)INS={"SYNTH"} Autoexec( 004, 004, 089, 000, 000, 000, 064, 040, 040, 115, 090, 060)INS={"SYNTH"} Autoexec( 005, 005, 039, 000, 000, 000, 064, 000, 000, 127, 090, 040)INS={"BASS"} Autoexec( 006, 006, 082, 000, 000, 000, 032, 040, 030, 070, 103, 030)INS={"CHORD"} Autoexec( 007, 007, 039, 000, 000, 000, 000, 030, 040, 070, 090, 040)INS={"HIGH"} Autoexec( 008, 008, 039, 001, 000, 000, 127, 030, 040, 070, 090, 040)INS={"HIGH"} Autoexec( 009, 009, 081, 001, 000, 000, 074, 030, 040, 127, 090, 020)INS={"URA_MERO"} Autoexec( 010, 010, 025, 000, 000, 000, 064, 030, 040, 127, 100, )INS={"KICK"}DL(-2)GSRY(1)r8 Autoexec( 011, 011, 026, 000, 000, 000, 064, 000, 000, 127, 090, )INS={"HIGH_HAT"}DL(-2)GSRY(2)r8 Autoexec( 012, 012, 025, 000, 000, 000, 064, 000, 000, 127, 090, )INS={"SYMBAL"}DL(-2)GSRY(1)r8 Autoexec( 013, 013, 119, 000, 000, 000, ___, 020, 040, 127, 090, )INS={"MAIN"} Autoexec( 014, 014, 119, 009, 000, 000, ___, 020, 040, 127, 090, )INS={"MAIN"} Autoexec( 015, 015, 120, 000, 000, 000, 044, 030, 050, 127, 100, )INS={"MAIN"} Autoexec( 016, 016, 080, 000, 000, 000, 084, 030, 050, 080, 120, )INS={"BGSOUND"} //------( TR , CH , @ , Key, P , P2 , P3 , CHO, REV, v , VAR, M )INS={InstrumentName} //-------------------------------------------------------------------------------------------------------------------------------------------------------------------// DL=0Tempo=TEMPO_EST;INT HAZ=1INT BGN=10INT ME1=18INT ME2=34INT SB1=42INT RF1=50INT ME3=58INT ME4=74INT SB2=82 INT NK1=90INT RF2=98INT ME5=107INT SB3=115INT END=134 //------------------------------------------------------------------------------TR=001;------------------------------------------------------------------------------// STR MA1={[e^^^g^^^a^g^f#^ge^[15r]]c^e^g^ec^ce^g^e^d^^^d^ef#^f#f#^g^f#^;c^e^g^ec^ce^g^e^f#^^rf#^ga^aa^g^f#^ [e^^^g^^^a^g^f#^ge^[15r]]c^e^g^ec^ce^g^e^d^^^d^ef#^f#f#^g^f#^;c^e^g^ec^ce^g^e^d^f#rd^f#a^[7r]} STR MA2={rrerg^f#^e^er"b^e^;rrerg^f#^ee^eg^e^;rrerg^f#^e^er"b^e^;rrerg^f#^eeerg^b^; rrerg^f#^e^er"b^e^;rrerg^f#^ee^eg^e^;rrerg^f#^e^er"b^e^;rrf#rf#rf#f#d#d#rd#b^a^} STR MA3={g^g^b^ga^^rr`e^`d^^^`c^b^a^g^ab^bb^;g^g^b^ga^^rre^^^d^f#a^^a^b^ag^ab^; g^g^b^ga^^rr`e^`d^^^`c^b^a^g^ab^bb^;g^g^b^ga^^`d^b^`d^`dr`dr`d`dr`dr`er`eSUB{rBR=12p.T(64,0,!16)}`e^^^p=64} TR=001DL=ME1;V=110;>l16MA1;MA2;MA3;DL=ME3;MA1;MA2;MA3;DL=ME5;MA2;MA3;TrackKey=5MA3;`dr`dr`d`dr`dr`er`eSUB{rBR=12p.T(64,0,!16)}`e^^^p=64 `dr`dr`dr`d`dr`d`dr`dr`dr;`dr`dr`d`dr`drHAM({`er`eSUB{rBR=12p.T(64,0,!16)}`e^^^p=64}) //------------------------------------------------------------------------------TR=002&003&004;----------------------------------------------------------------------// STR EST1={@22,0If(CH==3){@88,0}}STR EST2={@081,1If(CH==3){@081,8}} STR HJA={[MidiDelay({c`ceccrccrcrcc^c^},1,!1)[16r]MidiDelay({d`ddddrddrdrdd^d^},1,!1)[16r]]} STR RFJ={HAM2({e^^^g^^^af#d"bf#^g^rr[3g^]af#d"bf#^g^;rrerg^e^bb^a^aadergrarbb^bbababb; e^^^g^^^af#d"bf#^g^rr[3g^]af#d"bf#^g^;rrergrerbb^a^abdergrf#rde^})} STR SYNTH={l16DL=HAZ;EST2;HJA;DL=BGN;EST1;RFJ;DL=RF1;RFJ;DL=RF2;RFJ;DL=END;TrackKey=5RFJ;DL=END+8 HAM2({e^^^g^^^l4Div{`a`f#`daf#d}l16f#^g^rr[3g^]l4Div{`a`f#`daf#d}l16f#^g^;rrerg^e^bb^a^aadergrarbb^bbababb; e^^^g^^^l4Div{`a`f#`daf#d}l16f#^g^rr[3g^]l4Div{`a`f#`daf#d}l16f#^g^;rrergrerbb^a^abdergrf#rde^DL=END+16e^^^[12r]ergrf#rde^})Tempo=30} STR HJB={[16r]MidiDelay({["ccrccr]crcr},2,!2)[16r]MidiDelay({["ddrddr]drdr},2,!2)} STR FG1={HAM({c^^^c^^^[4d]d^d^rr[3e^]dddd[d^];rrcrc^c^dd^d^ddderereree^eeedddd; c^^^c^^^[4d]d^d^rr[3e^]dddd[d^];rrcrcrcrdd^d^ddd[3er]ee^})[12r]} STR SYNTH2={l16[QD]}STR BS3={[QC][QD][QE][QD][4QC]<[3QB]>[4r]} STR BS4={[3[QC][QD]<[QB]>[QE]][QC][QD][16r]} TR=005DL=HAZ;@081,1;<'LD'^} STR JI3={'LC'^'LD'^'LE'^'LD'^'LC'^^^<'LB'^^>r}STR JI4={[3'LC'^'LD'^<'LB'^>'LE'^]'LC'^'LD'^rrrr} TR=006DL=BGN;EP.W(70,100,!1)[JI1][JI2]JI1;JI3;JI4[JI1]DL=ME3+8;JI2;JI1;JI3;JI4[4JI1]DL=ME5;JI1;JI3;JI4;TrackKey=5JI4; DL=END[JI1]['LC'^r'LD''LE'^r'LD''LC'^'LD'^'LE'^^^]'LE'^^'LD' //------------------------------------------------------------------------------TR=007&008;--------------------------------------------------------------------------// STR WC={r'"cceg`c'}STR WD={r'"ddf#a`d'}STR WDS={r'"d#d#ga#`d#'}STR WE={r'"eegb`e'}STR WF={r'"ffa`c`f'}STR WG={r'"ggb`d`g'}STR WA={r'"aa`c#`e`a'}STR WAS={r'"a#a#`d`f`a#'}STR WB={r'"bb`f#`b'} STR PS1={[WC][WD][WE][WD][WC][WD][4WE]}STR PS2={[7WE]WD[7WC][WD]}STR PS3={[WC][WD][WE][WD][4WC]<[3WB]>rr} STR PS4={[3[WC][WD][][WE]][WC][4WD][WE]} STR HIGH={DL=BGN;l8[PS1][PS2]PS1;PS3;PS4[PS1]DL=ME4;PS1;PS3;PS4;DL=RF2[PS1]DL=ME5+4PS3;DL=SB3+8TrackKey=5PS4;DL=END[PS1] [[WC]rrWD[WE]rrWD[WC][WD][4WE]][3WE]WD}TR=007HIGH;TR=008HIGH //------------------------------------------------------------------------------TR=009;------------------------------------------------------------------------------// STR BHJ={SUB{e^e^g^ef#^}c^c^c^cd^^}STR KP1={rrcrc^c^d^drd^d^;rrere^e^dd^dd^d^;rrcrc^c^d^drd^d^;rrere^e^eeerd^d^;rrcrc^c^d^drd^d^;rrere^e^dd^dd^d^;rrcrc^c^c^crc^c^;} STR KP2={BHJ;rrd^"b^^^"b^"b^"b^e^ee^ee^BHJ;rrc^^^"b^"b"b^^"b^"g^"a"b^^"b^BHJ;rrd^"b^^^"b^"b^"b^e^ee^ee^BHJ[3d^]"br"br"b"br"br"gr"g"g^^^} TR=009DL=ME2;l16KP1;DL=SB1;KP2;DL=SB2;KP2;DL=ME5;KP1;DL=SB3;KP2;DL=SB3+8;TrackKey=5KP2;"br"br"b"br"br"gr"g"g^^^ "br"br"br"b"br"b"br"br"br;"br"br"b"br"br"gr"g"g^^^ //------------------------------------------------------------------------------TR=010;------------------------------------------------------------------------------// STR O1={'n27n32n33n35n36'};STR O2={'n27n32n33n35n36n40'}STR O3={'n27n32n33n35n36n49'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]} STR DM2={O1;rrrO2;rrr}STR DM3={[3O1;rrrO2;rrrO1;rrrO2;rrO2]O1;rrrO2;rrr}STR DM4={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrrO2;rO1;r} STR DM5={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;O2;r[2O1]r[2O1]}STR DM6={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrr[2O2;r]} STR DM7={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrrO2;r[2O2]}STR DM8={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]} STR DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']} TR=010DL=HAZ;l16V=127BR=20p%=2000[4[16r][4rrn78r]]DL=HAZ+4l16DM3;[3O2]rO2;r[O2][3n51rrr][2n51r]DL=BGN;DM4;DM5[DM4;DM6] DM4;DM9;DL=SB1;DM4;DM9;DM4;DM5;DL=ME4;DM4;DM9;DL=SB2;DM4;DM9[DM4;DM5][3n51rrr][2n51r]DL=SB3+8DM4;DM9;O3[7r]['n28n39'r][4'n28n39'] O3[15r]O3[7r]['n28n39'r][4'n28n39']DL=END;DM4;DM5[DM2;rrrrO2;rrr][DM2]O1;rrrO2;rrrO1;rrrO2;rO1;r[DM2;rrrrO2;rrr][DM2]O1;rrrO2;rrrO1;O2;r[2O1]r[2O1] [DM2][O1;r]O2;r[O2] //------------------------------------------------------------------------------TR=011;------------------------------------------------------------------------------// STR GR={n42};STR GA={n44};STR GB={n46};STR TA={n54};STR MT={n51};STR DR={n40};STR PL1={P.onCycle(!8,32,127);}; STR GP1={[2GR;GA;GB;r][2GR;GA;GB;GR;]};STR GP2={[3GR;rGB;r]GR;r[2GB]}STR GP3={[3[2GR]GB;r][2GR][2GB]} STR GP4={[4GR]GB[3GR]rGB;GR;rGB;rrr}TR=011DL=HAZ;V=127l16PL1[4GP2][4GP3]DL=BGN@025BR=20p%=2000[31GP2]DL=SB1[7GP3] DL=RF1[31GP2]DL=SB2[7GP3]DL=NK1[16GP2]DL=ME5+4[3GP2]DL=SB3[7GP3]DL=SB3+8[7GP3]DL=END[8GP2][[[GR;rGB;r]rrrrGR;rGB;r][7GR;rGB;r]GR;r[2GB]]GP2; //------------------------------------------------------------------------------TR=012;------------------------------------------------------------------------------// STR PD1={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49};[48r][3n51rrr][2n51r]}STR PD2={n49[53r][2n51rn59r]n51r;n49rn57[3r]n49rrrn57[37r][3n51rrr][2n51r]} STR PD3={[2n51[9r][2n51[5r]][4r][2n51[5r]]n57[5r]n49[5r]n57[5r]n49[3r]n57[3r]]} TR=012DL=HAZ;l16PD1;DL=BGN;PD1;DL=ME2;PD1;DL=SB1;PD1;DL=RF1;PD1;DL=ME4;PD1;DL=SB2;PD1;DL=NK1[PD1]DL=ME5;PD1;DL=SB3+8PD1; DL=END;PD1; //------------------------------------------------------------------------------TR=013;------------------------------------------------------------------------------// 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 TAMW={V=127DL=0P.onCycle(!8,0,22,106,127,106,22)P=45EP=90@103e^^^^^bae^^^^^gf#[e^^^f#^^^]q=100[@81,1PAN(!1,0)KT5@80,0PK1@81,1PAN(!1,1)KT6@80,0PK1] P=64[3KT8]PK1<@80,0[4KT1]DL=BGN+3KT9;DL=BGN+7KT9;DL=ME1+1KT9;DL=ME1+3KT9;DL=ME1+9KT9;DL=ME1+11KT9;DL=ME1+15KT10; DL=ME2+3KT10;DL=ME2+7;>@81,1PAN(!1,1)KT6<@80,0DL=SB1+3PK1;KT10;DL=SB1+7;>@81,1PAN(!1,0)KT6<@80,0PK1;DL=RF1+3KT9;DL=RF1+7KT9; DL=ME3+9KT9;DL=ME3+11KT9;DL=ME3+15KT10;DL=ME4+3KT10;DL=ME4+7;>@81,1PAN(!1,1);KT6;<@80,0PK1;DL=NK1+3KT9;DL=NK1+7KT9; DL=RF2+3KT9;DL=RF2+7KT9;DL=ME5+7;>@81,1PAN(!1,1);KT6;DL=SB3+15;PAN(!1,0);KT6;DL=SB3+16;PAN(!1,1);KT6;DL=SB3+18;PAN(!1,1);KT6<@80,0PK1; DL=END+3KT9;DL=END+7KT9;DL=END+11KT9;DL=END+15KT9>@81,1PAN(!1,0)DL=END+16KT6; この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)
'LD'^} STR JI3={'LC'^'LD'^'LE'^'LD'^'LC'^^^<'LB'^^>r}STR JI4={[3'LC'^'LD'^<'LB'^>'LE'^]'LC'^'LD'^rrrr} TR=006DL=BGN;EP.W(70,100,!1)[JI1][JI2]JI1;JI3;JI4[JI1]DL=ME3+8;JI2;JI1;JI3;JI4[4JI1]DL=ME5;JI1;JI3;JI4;TrackKey=5JI4; DL=END[JI1]['LC'^r'LD''LE'^r'LD''LC'^'LD'^'LE'^^^]'LE'^^'LD' //------------------------------------------------------------------------------TR=007&008;--------------------------------------------------------------------------// STR WC={r'"cceg`c'}STR WD={r'"ddf#a`d'}STR WDS={r'"d#d#ga#`d#'}STR WE={r'"eegb`e'}STR WF={r'"ffa`c`f'}STR WG={r'"ggb`d`g'}STR WA={r'"aa`c#`e`a'}STR WAS={r'"a#a#`d`f`a#'}STR WB={r'"bb`f#`b'} STR PS1={[WC][WD][WE][WD][WC][WD][4WE]}STR PS2={[7WE]WD[7WC][WD]}STR PS3={[WC][WD][WE][WD][4WC]<[3WB]>rr} STR PS4={[3[WC][WD][][WE]][WC][4WD][WE]} STR HIGH={DL=BGN;l8[PS1][PS2]PS1;PS3;PS4[PS1]DL=ME4;PS1;PS3;PS4;DL=RF2[PS1]DL=ME5+4PS3;DL=SB3+8TrackKey=5PS4;DL=END[PS1] [[WC]rrWD[WE]rrWD[WC][WD][4WE]][3WE]WD}TR=007HIGH;TR=008HIGH //------------------------------------------------------------------------------TR=009;------------------------------------------------------------------------------// STR BHJ={SUB{e^e^g^ef#^}c^c^c^cd^^}STR KP1={rrcrc^c^d^drd^d^;rrere^e^dd^dd^d^;rrcrc^c^d^drd^d^;rrere^e^eeerd^d^;rrcrc^c^d^drd^d^;rrere^e^dd^dd^d^;rrcrc^c^c^crc^c^;} STR KP2={BHJ;rrd^"b^^^"b^"b^"b^e^ee^ee^BHJ;rrc^^^"b^"b"b^^"b^"g^"a"b^^"b^BHJ;rrd^"b^^^"b^"b^"b^e^ee^ee^BHJ[3d^]"br"br"b"br"br"gr"g"g^^^} TR=009DL=ME2;l16KP1;DL=SB1;KP2;DL=SB2;KP2;DL=ME5;KP1;DL=SB3;KP2;DL=SB3+8;TrackKey=5KP2;"br"br"b"br"br"gr"g"g^^^ "br"br"br"b"br"b"br"br"br;"br"br"b"br"br"gr"g"g^^^ //------------------------------------------------------------------------------TR=010;------------------------------------------------------------------------------// STR O1={'n27n32n33n35n36'};STR O2={'n27n32n33n35n36n40'}STR O3={'n27n32n33n35n36n49'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]} STR DM2={O1;rrrO2;rrr}STR DM3={[3O1;rrrO2;rrrO1;rrrO2;rrO2]O1;rrrO2;rrr}STR DM4={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrrO2;rO1;r} STR DM5={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;O2;r[2O1]r[2O1]}STR DM6={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrr[2O2;r]} STR DM7={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrrO2;r[2O2]}STR DM8={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]} STR DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']} TR=010DL=HAZ;l16V=127BR=20p%=2000[4[16r][4rrn78r]]DL=HAZ+4l16DM3;[3O2]rO2;r[O2][3n51rrr][2n51r]DL=BGN;DM4;DM5[DM4;DM6] DM4;DM9;DL=SB1;DM4;DM9;DM4;DM5;DL=ME4;DM4;DM9;DL=SB2;DM4;DM9[DM4;DM5][3n51rrr][2n51r]DL=SB3+8DM4;DM9;O3[7r]['n28n39'r][4'n28n39'] O3[15r]O3[7r]['n28n39'r][4'n28n39']DL=END;DM4;DM5[DM2;rrrrO2;rrr][DM2]O1;rrrO2;rrrO1;rrrO2;rO1;r[DM2;rrrrO2;rrr][DM2]O1;rrrO2;rrrO1;O2;r[2O1]r[2O1] [DM2][O1;r]O2;r[O2] //------------------------------------------------------------------------------TR=011;------------------------------------------------------------------------------// STR GR={n42};STR GA={n44};STR GB={n46};STR TA={n54};STR MT={n51};STR DR={n40};STR PL1={P.onCycle(!8,32,127);}; STR GP1={[2GR;GA;GB;r][2GR;GA;GB;GR;]};STR GP2={[3GR;rGB;r]GR;r[2GB]}STR GP3={[3[2GR]GB;r][2GR][2GB]} STR GP4={[4GR]GB[3GR]rGB;GR;rGB;rrr}TR=011DL=HAZ;V=127l16PL1[4GP2][4GP3]DL=BGN@025BR=20p%=2000[31GP2]DL=SB1[7GP3] DL=RF1[31GP2]DL=SB2[7GP3]DL=NK1[16GP2]DL=ME5+4[3GP2]DL=SB3[7GP3]DL=SB3+8[7GP3]DL=END[8GP2][[[GR;rGB;r]rrrrGR;rGB;r][7GR;rGB;r]GR;r[2GB]]GP2; //------------------------------------------------------------------------------TR=012;------------------------------------------------------------------------------// STR PD1={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49};[48r][3n51rrr][2n51r]}STR PD2={n49[53r][2n51rn59r]n51r;n49rn57[3r]n49rrrn57[37r][3n51rrr][2n51r]} STR PD3={[2n51[9r][2n51[5r]][4r][2n51[5r]]n57[5r]n49[5r]n57[5r]n49[3r]n57[3r]]} TR=012DL=HAZ;l16PD1;DL=BGN;PD1;DL=ME2;PD1;DL=SB1;PD1;DL=RF1;PD1;DL=ME4;PD1;DL=SB2;PD1;DL=NK1[PD1]DL=ME5;PD1;DL=SB3+8PD1; DL=END;PD1; //------------------------------------------------------------------------------TR=013;------------------------------------------------------------------------------// 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 TAMW={V=127DL=0P.onCycle(!8,0,22,106,127,106,22)P=45EP=90@103e^^^^^bae^^^^^gf#[e^^^f#^^^]q=100[@81,1PAN(!1,0)KT5@80,0PK1@81,1PAN(!1,1)KT6@80,0PK1] P=64[3KT8]PK1<@80,0[4KT1]DL=BGN+3KT9;DL=BGN+7KT9;DL=ME1+1KT9;DL=ME1+3KT9;DL=ME1+9KT9;DL=ME1+11KT9;DL=ME1+15KT10; DL=ME2+3KT10;DL=ME2+7;>@81,1PAN(!1,1)KT6<@80,0DL=SB1+3PK1;KT10;DL=SB1+7;>@81,1PAN(!1,0)KT6<@80,0PK1;DL=RF1+3KT9;DL=RF1+7KT9; DL=ME3+9KT9;DL=ME3+11KT9;DL=ME3+15KT10;DL=ME4+3KT10;DL=ME4+7;>@81,1PAN(!1,1);KT6;<@80,0PK1;DL=NK1+3KT9;DL=NK1+7KT9; DL=RF2+3KT9;DL=RF2+7KT9;DL=ME5+7;>@81,1PAN(!1,1);KT6;DL=SB3+15;PAN(!1,0);KT6;DL=SB3+16;PAN(!1,1);KT6;DL=SB3+18;PAN(!1,1);KT6<@80,0PK1; DL=END+3KT9;DL=END+7KT9;DL=END+11KT9;DL=END+15KT9>@81,1PAN(!1,0)DL=END+16KT6;