サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント ☆★☆はやい曲が大好きな人、ノリたい人にお奨めです!!☆★☆ ちょうど一年ぐらい前に投稿した2曲の再投稿です。一部聴きやすいように改訂しましたが、ほぼ原曲そのままの内容です。まだメロディにSquare使ってた頃なので、自分的には懐かしいです。 曲データ(サクラから貼り付けます。) /* 曲名 旧掲示板への投稿日時 ID ■JUST FEELING 2004/02/16 19:31:08 2460 ■SKY RUNNER 2004/03/22 14:42:33 2804 いずれも旧曲掲示板の全盛期である去年の2月〜3月頃に投稿した曲です。 原曲からあまり手は加えていませんが、少しBPMを落としたり、リフの音を変えたりしてあります。 */ INT PLAY_SONG = 0 ;// 0でJUST FEELING、その他の数字を入れるとSKY RUNNERを演奏します。 If(PLAY_SONG==0){ INT TEMPO_EST = 150 ; TrackName={JUST FEELING}Copyright={H゛}System.MeasureShift(3)ResetGS;Tempo=1000;Include(delay.h) PlayFrom.SysEx(on)PlayFrom.CtrlChg(on)PlayFrom.RPN_NRPN(on) 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 GT){Sub{Key=12;GT;Key=0}GT}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"}//temp:@006,008;@006,016;@018,032;@017,016;@017,008; Autoexec( 002, 002, 100, 000, 000, 000, 064, 040, 040, 100, 150, 040)INS={"SYNTH"} Autoexec( 003, 003, 047, 000, 000, 000, 032, 040, 040, 100, 150, 040)INS={"SYNTH"} Autoexec( 004, 004, 089, 000, 000, 000, 096, 040, 040, 080, 090, 060)INS={"SYNTH"} Autoexec( 005, 005, 039, 000, 000, 000, 064, 000, 000, 100, 060, 040)INS={"HIGH_SYNTH"} Autoexec( 006, 006, 053, 000, 000, 000, 032, 040, 030, 070, 103, 030)INS={"HIGH_SYNTH"} Autoexec( 007, 007, 081, 008, 000, 000, ___, 050, 030, 080, 090, 000)INS={"BASS"} Autoexec( 008, 008, 039, 000, 000, 000, 000, 030, 040, 045, 090, 040)INS={"CHORD"} Autoexec( 009, 009, 039, 001, 000, 000, 127, 030, 040, 045, 090, 040)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={"SYMNBOL"}DL(-2)GSRY(1)r8 Autoexec( 013, 013, 119, 000, 000, 000, ___, 020, 000, 127, 090, )INS={"MAIN"} Autoexec( 014, 014, 127, 001, 000, 000, 032, 030, 040, 127, 090, )INS={"MAIN"} Autoexec( 015, 015, 120, 000, 000, 000, 044, 030, 050, 127, 100, )INS={"MAIN"} Autoexec( 016, 016, 126, 008, 000, 000, 084, 030, 050, 127, 100, )INS={"BGSOUND"} //------( TR , CH , @ , Key, P , P2 , P3 , CHO, REV, v , VAR, M )INS={InstrumentName} //-------------------------------------------------------------------------------------------------------------------------------------------------------------------// DL=208;Tempo=10000000;DL=100000;Tempo=10; DL=0;Tempo=TEMPO_EST;INT BGN={16}INT ME1={24}INT ME2={40}INT SB1={56}INT RF1={64}INT ME3={72}INT ME4={88}INT SB2={104} INT NK1={120}INT NK2={128}INT ME5={136}INT RF2={152}INT ME6={160}INT SB3={176}INT END={192} STR FI={v.T(30,70,!1^1^1^1)}STR FJ={v.T(40,110,!1^1^1^1^1^1)}STR FO={EP.T(127,0,!1^1^1^1^1^1)} //------------------------------------------------------------------------------TR=001;------------------------------------------------------------------------------// STR AA1={EP=127;g^^f^fg^a^^g^ga^a#^^`c^^a#^f^gf^r;f^g^^a^^a#^f^fa#^rf^g^aa#^^a#^a#^^^a^^^; g^^f^fg^a^^g^ga^a#^^`c^^a#^f^gf^r;f^g^^a^^a#^f^fa#^rf^g^aa#^^`c^a#^^^`c^^r;} STR AA2={EP=080;`d^^`c^^a#^a^^f^^d^a^^a^^aaaa#ag^r;fg`d^^`c^^a#^a^^f^^d^f^^f^^f^f^^g^^rr; `d^^`c^^a#^a^^f^^d^a^^a^^aaaa#ag^r;fg`d^^`c^^a#^a^^f^^d^f^^d^^f^f^^g^rEP=127} STR AA3={`d^a#`c^^`f^`c^aa#^^`c^`d^a#`c^^`f^`a`a#`a`g^^rr;`d^a#`c^^`f^`c^aa#^^`c^a#^^a#^a#`c^`d^`d`f^^`d#^`d^^^^^^^^^^^} STR AA4={`d^a#`c^^`f^`c^aa#^^`c^`d^a#`c^^`f^`a`a#`a`g^^rr;`d^a#`c^^`f^`c^aa#^^`c^a#^^a#^a#`c^`d^`d`f^^rr `d^a#`c^^`f^`c^aa#^^`c^`d^a#`c^^`f^`a`a#`a`g^^rr;`d^a#`c^^`f^`c^aa#^^`c^a#^^a#^a#`c^`d^`d`f^^`d#^`d^^^^^^^^^^^} TR=001;l8;DL=ME1;>AA1;HAM2({AA2})fgAA3;DL=ME3;AA1;HAM2({AA2})fgAA4;DL=ME5;AA1;DL=ME6;HAM2({AA2})DL=SB3;AA4; //------------------------------------------------------------------------------TR=002&003&004;----------------------------------------------------------------------// STR BL1={`d`ca#grgfg`d`ca#gr`d`f`d;`d`ca#grgfgfgaa#ra#af;`d`ca#grgfg`d`ca#gr`d`f`d;`d`ca#grgfga#afdrdf^} STR RST={If(CH==3){l256rl8}If(CH==4){l128rl8}} STR RRF={DL=0;DL=BGN;EP=100;RST;@115,000;If(CH==3){@100,000;}If(CH==4){@049,008}RST;BL1;DL=RF1;BL1;DL=RF2;BL1; DL=END;BL1;EP.T(100,0,!1^1^1^1^1^1)BL1;}TR=002;q=20;>;DL=0;EP.onCycle(!4,50,100,70,70)P.onCycle(!8,0,16,32,96,112,127,112,96,32,16)FJ[3ST1][8VG][4VDS] DL=BGN;v=90[2ST1]DL=ME2;ST2;ST3;[2ST1]DL=SB2[2ST3][4ST1]DL=RF2[2ST1]ST2[2ST3][2ST1]SUB{[64r]EP=0;}v.T(90,0,!1^1^1^1)[2ST1] //------------------------------------------------------------------------------TR=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'"gga#`d`g'} STR WA={r'"aa`c#`e`a'}STR WAS={r'"a#a#`d`f`a#'}STR WB={r'"bb`f#`b'}STR GT1={[8WG][4WDS][4WF]} STR GT2={[4WG][4WD][4WDS][4WAS][4WDS][2WD][2WG][4WDS][4WF]}STR GT3={[4WDS][4WF][4WD][2WG][2WF][4WDS][8WF][4WG];[4WDS][4WF][4WD][2WG][2WF][4WDS][8WF][8r]} STR GT4={[2WDS][2WF][2WD][2WG][2WDS][2WF][4WG];[2WDS][2WF][2WD][2WG][4WDS][4WF]} STR HGH={DL=BGN;l8[2GT1][2GT2]GT3;GT4[2GT1]DL=SB2[2GT4]DL=RF2[2GT1]GT3[2GT4][2GT1]FO[2GT1]}TR=008;HGH;TR=009;HGH; //------------------------------------------------------------------------------TR=010;------------------------------------------------------------------------------// STR O1={'n27n32n33n35n36'};STR O2={'n27n32n33n35n36n40'}STR O3={'n27n32n33n35n36n57'}STR DM1={O1;rrr} STR DM2={Sub{[2rrrrn40rr[2n51r'n40n59']rrr]}[7O1;rrr][2O1;r]}STR DM3={[3O1;rrrO2;rrr]O1;rrrO2;rO1;r}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]} TR=010;DL=3;l16;BR=15;p%=4000;EP=50;[14r]n36r[2DM3]EP=60;[3DM2]DL=BGN;BR=15;p%=4000;EP=070;DM4;DM8;DL=ME1[2DM4;DM6]DL=ME2; DM4;DM6;DM4;DM3;[2O1;rrrO2;rrr]DL=SB1;DM4;DM6;DL=RF1;DM4;DM8;DL=ME3;DL=ME4;DM4;DM6;DM4;DM3;[2O1;rrrO2;rrr]DL=SB2[2DM4;DM6] DL=NK1+8DM4;DM3;[2O1;rrrO2;rrr]DL=ME5+8[8[2DM1][4r]n49rrr]DL=RF2;DM4;DM8;DM4;DM6;DM4;DM3;[2O1;rrrO2;rrr]DL=SB3[2DM4;DM6] DM4;DM8;EP.T(70,0,!1^1^1^1^1^1)DM4;DM8; //------------------------------------------------------------------------------TR=011;------------------------------------------------------------------------------// STR GR={n42};STR GA={n44};STR GB={'n51n46'};STR TA={n54};STR MT={n51};STR DR={n40};STR PL1={P.onCycle(!8,32,100);}; 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=011;DL=4;P=127;BR=24;p%=2000;PL1;EP=070;l16[4GP2][7GP4][4GR]GB[3GR]DL=BGN [24GP2]DL=ME2[15GP2]DL=SB1[8GP3]DL=RF1[8GP2]DL=ME3+8[23GP2]DL=SB2[16GP3]DL=NK2[8GP2]DL=RF2[8GP2]DL=ME6[15GP2]DL=SB3[16GP3] [8GP2]EP.T(70,0,!1^1^1^1^1^1)[8GP2] //------------------------------------------------------------------------------TR=012;------------------------------------------------------------------------------// STR PD1={SUB{n49}[112r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49};[112r][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=012;l16;DL=0;EP.T(10,60,!1^1^1^1)PD3;EP=090;Sub{n49[61r]n49r[2n57r]}[4n55[9r]n59r[2n51r]n55[9r]n51r[2n59r]]DL=BGN; EP=090;PD2;DL=RF1;PD2;DL=ME3;PD1;DL=SB1;PD1;DL=NK1;PD3;DL=ME5;[2PD3]DL=RF2;PD2;DL=END;PD2;FO;PD2; //------------------------------------------------------------------------------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} TR=013;DL=ME2; P.W(0,127,!2,127,0,!2)KOP;KI1;@103;DL=RF2-1;DL=ME6;P.W(0,127,!2,127,0,!2)KOP; DL=SB2@103;DL=SB3@103; //------------------------------------------------------------------------------TR=016;------------------------------------------------------------------------------// TR=016;l1@123,004 BR=24;P=096;EP.T(0,60,!1^1^1^1)>SUB{[6r]p%.T(0,-8192,!1)}f^^^^^^^DL=SB1-1l4@128,002V=127EP=127rrrl8<`cg DL=NK1;l1@123,004EP=60SUB{[6r]p%.T(0,-8192,!1)}p%=0f^^^^^^^DL=RF2-1;@019 l4>p%.T(8192,-8192,!1)EP=100g^^^DL=SB3-1l4@128,002V=127EP=127rrrl8<`cg //------------------------------------------------------------------------------TR=017;------------------------------------------------------------------------------// STR JI1={g^^g^gg^d^^d^dd^d#^^d#^^d#^a#^a#a#^r;d^d#^^d#^^d#^d^dg^^g^d#^fg^^g^g^^^f^^^; g^^g^gg^d^^d^dd^d#^^d#^^d#^a#^a#a#^r;d^d#^^d#^^d#^d^dg^^g^d#^d#d#^^d#^f^^^f^^^;} STR JI2={d#^^d#^^d#^f^^f^^d#^d^^d^^ffgggf^r;ffd#^^d#^^d#^f^^f^^d#^d^^d^^d^g^^"a#^^^r; d#^^d#^^d#^f^^f^^d#^d^^d^^ffgggf^r;ffd#^^d#^^d#^f^^f^^d#^d^^d^^d^g^^g^^^r;}STR JI3={ d#^d#f^^f^d^dg^^g^d#^d#f^^f^gggg^dc"a#;d#^d#f^^f^d^dg^^g^d#^d#d#^^d#^f^ff^^f^g^^^^^^^^^^^} STR JI4={d#^d#f^^f^d^dg^^g^d#^d#f^^f^gggg^dc"a#;d#^d#f^^f^d^dg^^g^d#^d#d#^^d#^f^ff^^rr d#^d#f^^f^d^dg^^g^d#^d#f^^f^gggg^dc"a#;d#^d#f^^f^d^dg^^g^d#^d#d#^^d#^f^ff^^f^g^^^^^^^^^^^} TR=017;CH=001;l8;DL=ME1;EP=100;US2A=A-2){ DDS(A)DERT2 } }}} Function DL(ti){Time(ti:1:0)}STR INS={InstrumentName} 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=12SA;Key=0}SA}Function HAM2(STR SA){Sub{Key=-12;SA;Key=0}SA} //------( 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, 064, 040, 040, 110, 100, 040)INS={"BELL_SYNTH"} Autoexec( 003, 003, 103, 000, 000, 000, 032, 040, 040, 100, 100, 040)INS={"BELL_SYNTH"} Autoexec( 004, 004, 089, 000, 000, 000, 096, 040, 040, 100, 080, 060)INS={"BELL_SYNTH"} Autoexec( 005, 005, 039, 001, 000, 000, 064, 020, 020, 110, 100, 040)INS={"BASS"} Autoexec( 006, 006, 103, 000, 000, 000, 032, 040, 030, 080, 103, 060)INS={"CHORD"} Autoexec( 007, 007, 012, 000, 000, 000, 096, 050, 030, 080, 100, 000)INS={"CHORD"} Autoexec( 008, 008, 039, 000, 000, 000, 005, 030, 040, 050, 090, 040)INS={"HIGH"} Autoexec( 009, 009, 039, 001, 000, 000, 122, 030, 040, 050, 090, 040)INS={"HIHG"} 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, 030, 000, 127, 090, )INS={"HI_HAT"}DL(-2)GSRY(2)r8 Autoexec( 012, 012, 026, 000, 000, 000, 000, 030, 000, 127, 090, )INS={"HI_HAT"}DL(-2)GSRY(1)r8 Autoexec( 013, 013, 119, 009, 000, 000, ___, 020, 000, 127, 090, )INS={"TAM"} Autoexec( 014, 014, 081, 008, 000, 000, ___, 030, 040, 127, 090, )INS={"SYNTH"} Autoexec( 015, 015, 081, 001, 000, 000, 074, 030, 050, 110, 090, )INS={"URA_MERO"} Autoexec( 016, 016, 126, 008, 000, 000, 084, 030, 050, 127, 100, )INS={"BGSOUND"} //------( TR , CH , @ , Key, P , P2 , P3 , CHO, REV, v , VAR, M )INS={InstrumentName} //-------------------------------------------------------------------------------------------------------------------------------------------------------------------// DL=0;Tempo=TEMPO_EST;INT HAZ=0;INT BGN=16;INT ME1=32;INT ME2=48;INT ME3=56;INT SB1=72;INT RF1=88;INT ME4=104; INT ME5=120;INT SB2=128;INT NK1=144;INT ME6=160;INT ME7=176;INT SB3=184;INT END=200; //------------------------------------------------------------------------------TR=001;------------------------------------------------------------------------------// STR MK1={EP.T(80,120,!1)b^^`c^^`d^EP.T(90,127,!2)b^^rEP=90a^g^EP.T(90,120,!1)b^^`c^^`d^EP.T(90,120,!2)b^^r;EP=90a^g^EP.W(100,127,!2)a^^g^^a^^g^^a^b^a^^g^^a^d^^^^^rr; EP.T(80,120,!1)b^^`c^^`d^EP.T(90,120,!2)b^^rEP=90a^g^EP.T(90,120,!1)b^^EP=110`c^^EP.W(100,127,!2)`d^`g^^`e^^^r;`c^^`d^^`e^`c^^`e^^`g^`f#^^`g^^`a^`a^^r} STR MK2={EP.W(100,127,!1)`d^`c^b^^`d^^^^^^^rEP.W(80,100,!1)HAM2({a^g^a^^g^^^^^^^ra^b^a^^g^^^^^^^ra^b^a^^b^^`c^^^^^^^rr})} STR MK3={MK1;^^^^}STR MK4={HAM2({[[b^bbab^^rr`d^`c^b^]`c^`c`cb`c^^rr`d^`c^b^`c^`c`cb`c^^rr`c^`d^`c^]b^^EP.T(100,120,!2,110,70,!1^1)g^^^^^^^^^^^^})} TR=001l8DL=ME1;If(EURO=XG){@16,0}>V=127MK1;MK2;MK3;MK4;DL=ME4;MK1;MK2;EP.W(100,110,!2)MK4;DL=ME6-1[4r][EP.W(100,127,!1)`d^`c^MidiDelay({b^^`d^^^^^^^r},7,!1)[48r]]MK2; EP.W(100,110,!2)MK4;DL=END;b^^EP.T(100,120,!2,110,70,!1^1)l4g^^^^^^^^^^^^^^^^DL=END+32Tempo=1000; //------------------------------------------------------------------------------TR=002&003&004;----------------------------------------------------------------------// STR KM={@9If(EURO==XG){@101}If(CH==3){@104}If(CH==4){@103}}STR DQ={SUB{g^g^^}b^a^^} STR LF1={rrDQ;gagaa^bb^^^DQ;gagaa^`db^^^DQ;gagaa^bb^^^DQ;dl16gdf#gadgabgab`d^`d^l8 rrDQ;gagaa^bb^^^DQ;gagaa^`db^^^DQ;gagaa^bb^^^DQ;dg^gg^ga^} STR SYNTH={l8If(EURO==XG){M=0}DL=BGN-1@83EP=70g^^^a^^^DL=BGN;KM;EP=127LF1;DL=RF1;LF1;DL=END;LF1;SUB{[32r]EP.T(127,0,!1^1^1^1^1^1^1^1)}LF1;} TR=2;>HAM({SYNTH})TR=3P=32HAM({SYNTH})P=000TR=4;P=96HAM({SYNTH}) //------------------------------------------------------------------------------TR=005;------------------------------------------------------------------------------// STR DSG={"grg"g[6r]"grg"g^"f#"ere"e[6r]"ere"e^"d"crc"c[6r]"crc"c^"d"d#rd#"d#}STR DSG2={@39,8"grg"g[6r]"grg"g^"f#"ere"e[6r]"ere"e^"d"crc"c[6r]"crc"c^"d"drd"d[6r]"drd"d^"e} STR BS1={[8"gg][8"ee][8"cc][7"d#d#]"ff}STR BS2={[8"gg][8"ee][8"cc][7"dd]"ee} TR=005@039,8l8<NHCO //------------------------------------------------------------------------------TR=008&009;--------------------------------------------------------------------------// 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 QW1={[8WG][8WE][8WC][7WDS]WF}STR QW2={[8WG][8WE][8WC][7WD]WE} STR SYU={DL=BGN;l8[QW1]DL=SB1[4QW1]DL=ME5;QW2[QW1]DL=NK1+8QW2;DL=SB3[4QW1]SUB{[32r]EP.T(127,0,!1^1^1^1^1^1^1^1)}[QW1]} TR=8If(EURO=XG){@81,0}SYU;TR=9If(EURO=XG){@9,0}SYU //------------------------------------------------------------------------------TR=010;------------------------------------------------------------------------------// STR O1={'n27n32n33n35n36'}STR O2={'n27n32n33n35n36n40n38'}STR O3={'n27n32n33n35n36n57'}STR DM1={O1;rrr} STR DM2={Sub{[2rrrrn40rr[2n51r'n40n59']rrr]}[7O1;rrr][2O1;r]}STR DM3={[3O1;rrrO2;rrr]O1;rrrO2;rO1;r}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={rrrrO2;rrr} TR=010l16BR=24DL=HAZ+4p.T(70,0,!1^1^1^1)EP.T(10,100,!1^1^1^1)P.T(0,127,!1^1,127,0,!1^1)[64n51]DL=HAZ+8@26p%=0P=64[3DM3] DL=BGN@25BR=20p%.onCycle(!4,2000,3000)EP=80If(EURO=XG){@17EP=100}DM6;DM7;DM6;DM8[DM6;DM7]DM6;DM5;DM6;DM7;DM6;DM8;DL=SB1[DM6;DM7;DM6;DM8]DL=ME4[O3[127r]] DL=ME4+8@26DM6;DM8@25If(EURO=XG){@17}DM6;DM8;DM6;DM7;DM6;DM8[4[O1;rrr][11r]rn57rrrn49rrrn57rrr]DM6;DM7;DM6;DM7[DM6;DM8][DM6;DM7;DM6;DM8]SUB{[32r]EP.T(80,0,!1^1^1^1^1^1^1^1)}DM6;DM7;DM6;DM8 //------------------------------------------------------------------------------TR=011;------------------------------------------------------------------------------// STR GR={n42};STR GA={n44};STR GB={'n46n51'};STR TA={n54};STR MT={n51};STR DR={n40};STR PL1={P.onCycle(!8,32,127)}STR PL2={P.onCycle(!8,96,0)} 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={GR;r[GB]} STR GP5={[GR;r]GB;r[GR]rGB;GR;rGB;rGR;GB} STR HIHT={DL=HAZ+7l8EP=90[n49rr][n49]DL=HAZ+8l16[7GP3]DL=BGN;EP=60[55GP2][3n49rrr]n49r[n49][16GP3][16GP2]DL=ME4+8[15GP2][3n49rrr]n49r[n49][16GP3] [4MidiDelay({GP5},2,!2)[16r]][8GP5][23GP2][3n49rrr]n49r[n49][16GP3][16GP2]SUB{[32r]EP.T(60,0,!1^1^1^1^1^1^1^1)}[16GP2]} TR=011DL=HAZ;PL1;BR=24p=127HIHT;TR=012DL=HAZ;P=0BR=24p=50HIHT //------------------------------------------------------------------------------TR=013;------------------------------------------------------------------------------// 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)p%.T(0,-8192,!1)HAM({[16e]})p%=0} TR=013l16DL=HAZ+7BR=24EP.T(20,127,!1)DS8;PG1[MXG][MXE][MXC]MXDS;DL=BGN[CP1]DL=ME2;CP2; DL=SB1[4CP1]DL=ME4+8[CP2][CP1]DL=NK1+8CP2;DL=SB3[4CP1] //------------------------------------------------------------------------------TR=015;------------------------------------------------------------------------------// STR LU1={rrrrEP.W(90,120,!1)"b^"b^"g^^"b^^^^^^^r"e^"e^"e^^"e^^^^^^^r"e^"e^"c^^"c^^^^^^^r"c^"c^"d^^"d^^"d^^^^^^rrr} STR LU2={EP.T(80,120,!1)"g^^"g^^"g^EP.T(90,127,!2)"g^^rEP=90"g^"f#^EP.T(90,120,!1)"e^^"e^^"e^EP.T(90,120,!2)"e^^r;EP=90"e^"d^EP.W(100,127,!2)"c^^"c^^"c^^"c^^"c^"e^"d^^"d^^"d^"d^^^^^rr; EP.T(80,120,!1)"g^^"g^^"g^EP.T(90,120,!2)"g^^rEP=90"g^"f#^EP.T(90,120,!1)"e^^EP=110"e^^EP.W(100,127,!2)"e^"e^^"e^^^r;"c^^"c^^"e^"c^^"c^^"e^"d^^"f#^^"f#^"f#^^^^^r} TR=015l8DL=ME2-1If(EURO=XG){@16,0}>LU1;LU2;DL=ME7-1LU1; //------------------------------------------------------------------------------TR=016;------------------------------------------------------------------------------// STR BG1={'gd"g'^^^^^^^}TR=016DL=BGN@123,2l1If(EURO=XG){V=0}[BG1]DL=ME4[BG1]DL=NK1[BG1]DL=END[BG1]SUB{[32r]EP.T(127,0,!1^1^1^1^1^1^1^1)}[BG1]} この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)