サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント <<<<<<<<<<PROGRESSIVE HOUSE>>>>>>>>>> special thanxxxxxxxxxxxxxxxxxxxx it's peak time tune!!! smoke-machine in a breakdown!! http://pmr.ueuo.com/ 曲データ(サクラから貼り付けます。) // New Release!! INT TEMPO_EST = 129 ; PlayFrom.SysEx(on)PlayFrom.CtrlChg(on)PlayFrom.RPN_NRPN(on) TrackName={Arukas}Copyright={Pitchebend Master Records}System.MeasureShift(3)Tempo=1000Include(delay.h)ResetGS; 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 DL(ti){Time(ti:1:0)}STR INS={InstrumentName}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 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} STR LC={"cceg`c}STR LD={"ddf#a`d}STR LDS={"d#d#ga#`d#}STR LE={"eegb`e}STR LF={"ffa`c`f}STR LG={"gga#`d`g}STR LA={"aa`c#`e`a}STR LAS={"a#a#`d`f`a#}STR LB={"bb`f#`b} STR WC={r'LC'}STR WD={r'LD'}STR WDS={r'LDS'}STR WE={r'LE'}STR WF={r'LF'}STR WG={r'LG'}STR WA={r'LA'}STR WAS={r'LAS'}STR WB={r'LB'} //------( TR , CH , @ , @2 , @3 , Key, P , CHO, REV, v , VAR, M ) Autoexec( 001, 001, 012, 000, 000, 000, 000, 000, 000, 100, 105, 000) Autoexec( 002, 002, 082, 001, 000, 000, 064, 000, 000, 120, 093, 000) Autoexec( 003, 003, 082, 001, 000, 000, 010, 000, 000, 120, 100, 000) Autoexec( 004, 004, 082, 001, 000, 000, 117, 000, 000, 120, 100, 000) Autoexec( 005, 005, 039, 001, 000, 000, 064, 000, 000, 127, 100, 010) Autoexec( 006, 006, 081, 000, 000, 000, 054, 000, 000, 127, 100, 020) Autoexec( 007, 007, 039, 000, 000, 000, 074, 000, 000, 127, 100, 000) Autoexec( 008, 008, 012, 000, 000, 000, 127, 000, 000, 100, 105, 020) Autoexec( 009, 009, 012, 000, 000, 000, 064, 000, 000, 127, 100, 000) Autoexec( 010, 010, 025, 000, 000, 000, 064, 000, 000, 127, 100, )DL(-2)GSRY(1)r8 Autoexec( 011, 011, 025, 000, 000, 000, 064, 000, 000, 127, 090, )DL(-2)GSRY(2)r8 Autoexec( 012, 012, 082, 000, 000, 000, 064, 000, 000, 127, 100, ) Autoexec( 013, 013, 119, 009, 000, 000, 020, 000, 000, 127, 100, ) Autoexec( 014, 014, 056, 000, 000, 000, 107, 000, 000, 127, 090, ) Autoexec( 015, 015, 115, 000, 000, 000, 000, 000, 000, 127, 100, ) Autoexec( 016, 016, 091, 000, 000, 000, 127, 000, 000, 127, 100, ) //------( TR , CH , @ , Key, P , P2 , P3 , CHO, REV, v , VAR, M ) //-------------------------------------------------------------------------------------------------------------------------------------------------------------------// DL=0Tempo=TEMPO_EST;INT HAZ=1INT ST1=17INT ST2=33INT ST3=49INT ST4=65INT DN0=81INT BK1=97INT BGN=129INT ST5=145INT BN2=161INT ST6=177INT BK2=193 INT BN3=201INT ST7=217INT END=233 //------------------------------------------------------------------------------TR=001&008;--------------------------------------------------------------------------// STR SLA={@49,8BR=6If(CH==1){p%=100}If(CH==8){p%=-100}}STR SLB={@81,1BR=6If(CH==1){p%=120}If(CH==8){p%=-120}} STR SLH={SLA;l4SUB{<[b^^^a^b^g^^^^^:ga]`d`e>}l8g^^^f#^^e^^^^^^^^e^^^d^^e^^^^^^^^;g^^^f#^^g^^^^a^b^g^^^f#^^e^^^^^^^^} STR SL1={SLA;SUB{l4"b^^^^^^^g^^^a^^db^^^^^^^b^^^^^^^}l1`e^^^^^`gl2`e`g}STR SL2={SLB;EP=55SUB{l8[e^^^d^^"a^^^^^^^^c^^^d^^e^^^^^^^^]}l4[b^^^a^b^g^^^^^:ga]`d`e} STR SL3={SLA;SUB{l4`b^^^^^^^`a^^^`g^`f#^`g^^^^^^^`e^^^`g^`b^}`e^^^^^^^`d^^^`e^`d^`e^^^^^^^`c^^^b^^^} STR SLNG={l16DL=ST3;SL2>SL2SLHSLHSLH<}TR=1SLNG;TR=8SLNG; //------------------------------------------------------------------------------TR=002&003&004;----------------------------------------------------------------------// STR RTA={BR=6If(CH==2){@82,8}If(CH==3){p%=200@82,1}If(CH==4){p%=-200@82,1}}STR RTB={BR=6If(CH==2){@81,8}If(CH==3){p%=200@81,1}If(CH==4){p%=-200@81,1}} STR RTC={BR=6If(CH==2){@81,1}If(CH==3){p%=200@82,1}If(CH==4){p%=-200@82,1}}STR RTD={BR=6If(CH==2){@109,0}If(CH==3){p%=200@82,1}If(CH==4){p%=-200@82,1}} STR RTE={BR=6If(CH==2){@82,8}If(CH==3){p%=280@82,0}If(CH==4){p%=-280@82,0}}STR RTH={RTC;EP.T(10,127,!1^1^1^1^1^1^1^1)[3rrerrerrerrf#rrgr]FOR(INT A=0;A<12;A++){MidiDelay({rrerrerrerrf#rrgr},A,!8)}} STR RTI={RTC;MidiDelay({[8rrerrerrerrf#rrgr]},2,!8)}STR RTJ={RTD;EP=70MidiDelay({[8rrrrrerrerrrrrrr]},2,!8)EP=127} STR RTK={RTD;EP=70FOR(INT A=0;A<8;A++){MidiDelay({rrrrrerrerrrrrrr},A/2+2,!8)}EP=127}STR RTL={RTD;MidiDelay({[8rrrrrerrerrrrrrr]},2,!8)} STR RTN={RTD;FOR(INT A=0;A<8;A++){MidiDelay({rrrrrerrerrrrrrr},A/2+2,!8)}}STR RT1={RTA;MidiDelay({[8rrerrerrerrf#rrgr]},2,!8)} STR RT2={RTB;MidiDelay({[8rrerrerrerrf#rrgr]},2,!8)}STR RT3={RTB;MidiDelay({[rrerrerrerrf#rrgr;rrerrerrbrrarrdr;rrcrrcrrdrrdrrdr;rrerrerrerrdrr"br]},2,!8)} STR RT4={RTA;If(CH==3){p%.T(200,800,!1^1^1^1^1^1^1^1)}If(CH==4){p%.T(-200,-800,!1^1^1^1^1^1^1^1)}MidiDelay({[8rrerrerrerrf#rrgr]},2,!8)} STR RT5={RTA;q.T(100,200,!1^1^1^1^1^1^1^1)MidiDelay({[rrerrerrerrf#rrgr;rrerrerrbrrarrdr;rrcrrcrrdrrdrrdr;rrerrerrerrdrr"br]},2,!8)q=100} STR RT6={RTE;MidiDelay({[8rrerrerrerrf#rrgr]},2,!8)}STR RT7={RTE;MidiDelay({[rrerrerrerrf#rrgr;rrerrerrbrrarrdr;rrcrrcrrdrrdrrdr;rrerrerrerrdrr"br]},2,!8)} STR RT8={RTE;q.T(30,200,!1^1^1^1^1^1^1^1)MidiDelay({[8rrerrerrerrf#rrgr]},2,!8)q=100} STR RRF={l16DL=HAZ;RTJ;RTK;DL=ST1;RTH;DL=ST2;v=127RTI[RT1]RT4;RTH;DL=DN0;EP.T(70,20,!1^1^1^1^1^1^1^1,20,70,!1^1^1^1^1^1^1^1)MidiDelay({[16rrrrrerrerrrrrrr]},2,!8) DL=BK1;EP.T(50,110,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)RT2[RT3]V=110RT5; DL=BGN;V=110[RT6]RTH;DL=BN2[4RT7]DL=BK2;RT8;DL=BN3;RTL;RTN;}TR=2RRF;TR=3RRF;TR=4RRF; //------------------------------------------------------------------------------TR=005&006&007;----------------------------------------------------------------------// STR BSA={BR=6If(CH==5){@82,1}If(CH==6){@82,8p%=100}If(CH==7){@82,8p%=-100}}STR BSB={@82,1If(CH==6){@81,8P=54p%=100}If(CH==7){@82,8P=74p%=-100}} STR BSC={BR=6If(CH==5){@82,1}If(CH==6){@40,0P=54p%=100}If(CH==7){@40,0P=74p%=-100}} STR BSD={BR=6If(CH==5){@81,1}If(CH==6){@39,0P=0p%=100}If(CH==7){@39,0P=127p%=-100}} STR BSE={BR=6If(CH==5){@91,0}If(CH==6){@81,8P=0p%=100}If(CH==7){@90,0P=127p%=-100}} STR BS={l16BR=24[12r]BSD`e^^&&eBSC}STR BSH={l8BSB[e^^^d^^"a^^^^^^^^c^^^d^^e^^^^^^^^]}STR BSI={BSA;EP.T(0,100,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)l1^1^1^1^1^1^1^2e^EP=127} STR BSJ={l8BSE[e^^^d^^"a^^^^^^^^c^^^d^^"a^^^^^^^^]}STR BS1={l8BSA[e^^^d^^"a^^^^^^^^c^^^d^^e^^^^^^^^]} STR BS2={l16[BSC;ee"e^"e^rr"e^r"e^r"e^;rr"e^r"e^r"e^rrBSD;"e"e"be;BSC;rr"e^"e^rr"e^r"e^r"e^;rr"e^r"e^rBSD;"e^r"e^rrr;BSC]} //STR BS2={l16BSC[ee"e^"e^rr"e^r"e^r"e^;rr"e^r"e^r"e^r"e^r"be;rr"e^"e^rr"e^r"e^r"e^;rr"e^r"e^r"e^r"e^rrr]} STR BS3={l16BSB[ee"e^"e^rr"e^r"e^r"e^;rr"e^r"e^r"e^r"e^r"be;rr"e^"e^rr"e^r"e^r"e^;rr"e^r"e^r"e^r"e^rrr]} STR BS4={l16[BSC;ee"e^"e^rr"e^r"e^r"e^;rr"e^r"e^r"e^rrBSD;"e"e"be;BSC;rr"e^"e^rr"e^r"e^r"e^;rr"e^r"e^r:BSD;"e^r"e^rrr;BSC]BSD;"e^r"eBR=24`e^^&&eBSC} STR BS5={BSA;EP.T(90,127,!1^1^1^1^1^1^1^1)l1e^^^^^^^} STR BASS={l16<>>@126,8l1BR=20p.T(127,0,!1^1^1^1)'c'^^^<<<} STR BG5={@126,8l2EP=50BR=40p.T(127,0,!1^1^1)'ceg'^^^^^^EP=127}STR BG6={@126,7l2BR=100p=127EP.T(50,90,!1)a^^^rrrrp=64} STR BG7={@123,1l1EP.T(70,127,!1^1^1^1^1^1^1^1)BR=50p.T(65,127,!1^1^1^1^1^1^1^1)'cde'^^^^^^^} STR BGMM={DL=ST1+8BG;BG2;DL=ST4;BG;BG5;DL=ST4+8BG;BG2;DL=DN0[BG]BG5;DL=BK1-4BG3;DL=BK1+14BG;BG6;DL=BK1+24BG;BG1;DL=ST5;BG;BG4;DL=ST5+8BG;BG1;DL=BN2+6BG;BG6;DL=BK2;BG;V=110BG7;}TR=15BGMM;TR=16BGMM; この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)