サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 何か最近少しずつ2ちゃんねるでも受けが良くなってきてて嬉しいのですが・・。今回は一気に方向転換してアグレッシブなノリの曲を作ってみました。ユーロビート専門ですが、どちらかというと今回はイタロディスコっぽいです。 曲データ(サクラから貼り付けます。) // だいぶイタロディスコに影響受けてます。というか、展開からしてもうユーロビートじゃないわけですが・・・ INT TEMPO_EST = 126 ; //テンポ設定 PlayFrom.SysEx(on)PlayFrom.CtrlChg(on)PlayFrom.RPN_NRPN(on) TrackName={MAKING LOVE TONIGHT}Copyright={KZ-5 Technology}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 )INS={InstrumentName} Autoexec( 001, 001, 067, 000, 000, 000, 064, 030, 040, 127, 090, 000)INS={"MAIN"} Autoexec( 002, 002, 082, 000, 000, 000, 064, 040, 020, 090, 093, 000)INS={"RIFF_SYNTH"} Autoexec( 003, 003, 062, 000, 000, 000, 000, 040, 020, 090, 100, 000)INS={"RIFF_SYNTH"} Autoexec( 004, 004, 063, 000, 000, 000, 127, 040, 020, 090, 100, 000)INS={"RIFF_SYNTH"} Autoexec( 005, 005, 039, 001, 000, 000, 054, 020, 020, 127, 090, 010)INS={"BASS"} Autoexec( 006, 006, 088, 000, 000, 000, 074, 020, 020, 127, 090, 020)INS={"BASS"} Autoexec( 007, 007, 007, 000, 000, 000, 100, 040, 030, 127, 070, 000)INS={"SYNTH"} Autoexec( 008, 008, 067, 000, 000, 000, 020, 040, 030, 110, 090, 020)INS={"ULA_MERO"} Autoexec( 009, 009, 067, 000, 000, 000, 107, 040, 030, 110, 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, 025, 000, 000, 000, 064, 030, 000, 127, 090, )INS={"HI_HAT"}DL(-2)GSRY(2)r8 Autoexec( 012, 012, 026, 000, 000, 000, 064, 030, 000, 127, 090, )INS={"SYMBAL"}DL(-2)GSRY(1)r8 Autoexec( 013, 013, 119, 009, 000, 000, ___, 020, 000, 127, 090, )INS={"TAM"} Autoexec( 014, 014, 029, 000, 000, 000, 020, 040, 030, 120, 070, )INS={"SYNTH"} Autoexec( 015, 015, 119, 000, 000, 000, ___, 020, 000, 127, 090, )INS={"TAM"} Autoexec( 016, 016, 091, 000, 000, 000, 084, 060, 030, 127, 100, )INS={"BGSOUND"} //------( TR , CH , @ , Key, P , P2 , P3 , CHO, REV, v , VAR, M )INS={InstrumentName} //-------------------------------------------------------------------------------------------------------------------------------------------------------------------// DL=0Tempo=TEMPO_EST;INT HAZ=5INT BGN=29INT ME1=37INT ME2=45INT SB1=53INT RF1=61INT ME3=69INT ME4=77INT SB2=85 INT NK1=101INT NK2=109INT NK3=117INT RF2=125INT NK4=133INT ME5=141INT NK5=149INT SB3=157INT RF3=181INT NK6=189INT NK7=197 //------------------------------------------------------------------------------TR=001;------------------------------------------------------------------------------// STR MN1={/*[[`c^^a#rr`c^rr:`d#^^ra#r]rrrrrr`d#^^a#rr`d#^rr`g^rr`g^`f^r`g^r:`f^rra#^^rrr]`a#^^rrrrrrr*/[[`g^`gr`g^`g#`gr:`c^^`d#r`fr][7r]:[`a#^`a#r`a#^``c`a#r:`d#^^`gr`g#r][7r]][`a#^`a#r`a#^:``c`a#r`d#^^`gr`g#r]``c``d^[7r]} STR MN2={>[`c^`crg#^g#r`cr`d#^^^`cr:[`d^`d#`d^rrr]`d^`dra#^a#r`dr`f^^^`dr[`d#^`f`d#^rrr]][`d^`ca#^rrr]`d^`dra#^a#r`dr`f^^^`dr[`d#^`f`g^rrr]<} STR MN3={>[[`d#^`d#r`d#^`d`c^rg^`c^`d#^:[`g`f^`f^^:`d#^]`d^]:[`g`f^:`f^^`d#^]`g#^^`g^]`a#`f^`f^^a#^`a#^^^`g^^^<}STR MN4={>[4MidiDelay({`d#^`d#r`d#^`d`c^},4,!2)[23r]]<} TR=1l16DL=ME1;V=120MN1;MN2;MN3;DL=ME3;MN1;MN2;MN3;MN4;DL=NK4;MN4;DL=ME5;MN2;DL=SB3[MN3]MN4; //------------------------------------------------------------------------------TR=002&003&004;----------------------------------------------------------------------// STR RT={If(CH==3){l128rl16}If(CH==4){l64rl16}}STR RTH={RT;[SUB{gggggrgg}`c`c`c`ca#ra#`c[8r]]SUB{[gggggrg:rg^a#`c^^^^]g}[`c`c`c`ca#ra#:r`c^`d`d#^^^^]`c[8r]} STR RT1={RT[SUB{[gggggrg:rg^a#`c^^^^]g[8r][4a#]grgra#^`c`d#^^^^[5`d]r`d#`d[8r]}[`c`c`c`ca#ra#:r`c^`d`d#^^^^]`c[8r][4`d#]a#ra#r`d#^`f`g^^^^[5`f]r`g`f[8r]]} STR RRF={l16DL=HAZ-4RTH;DL=HAZ+16[RTH]DL=BGN;HAM({RT1;DL=RF1;RT1})DL=NK1[RTH]DL=RF2;HAM({RT1;DL=RF3;RT1})DL=NK6[RTH]}TR=2;>RRF;TR=3RRF;TR=4RRF; //------------------------------------------------------------------------------TR=005;------------------------------------------------------------------------------// FUNCTION BSS(STR LB){[LB>LB<]l16'LB'^>LB<'LB'^LB>'LB'^ULMR; //------------------------------------------------------------------------------TR=010;------------------------------------------------------------------------------// STR O1={'n27n32n33n35n36'}STR O2={'n27n32n33n35n36n38'}STR O3={'n27n32n33n35n36n49'}STR O4={'n27n32n33n35n36n28'}STR O5={'n27n32n33n35n36n51n57'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]}STR DM2={O1;rrrO2;rrr} STR DJ1={[3DM2]O1;O2;rrO2;rrr}STR DJ2={DJ1[3DM2]SUB{r[7n38]}DM2}STR DJ3={DJ1[DM2]SUB{[4n38]l32[8n38]l16[8n38]}l16[DM2]}STR DJ4={DJ1[DM2]EP.T(40,127,!1)[8n38]l32[16n38]l16}STR DJ5={[9r][7n38]} TR=10l16DL=HAZ-4@17[[12r]O2;rrr][16r][4n38]l32[8n38]l16[8n38]BR=20p%=3000V=127DJ2;DJ4;DJ2;DJ3[8O3[15r]]DL=HAZ+19DJ5;DL=HAZ+20@17DJ3;DL=BGN@17BR=20p%=3000V=127SUB{[O3[31r]O5[31r]]}DJ2;DJ3[3DJ2]DJ4;SUB{[4O3[31r]O5[31r]]}[DJ2;DJ3] DL=ME3[3DJ2]DJ4;SUB{[4O3[31r]O5[31r]]}[DJ2;DJ3]DL=NK1[8O3[15r]]DL=NK1+3DJ5;DL=NK1+4DJ3;DJ2;DJ3;DJ2;DJ4;DL=RF2;SUB{[4O3[31r]O5[31r]]}[DJ2;DJ3][DJ2;DJ4]DL=SB3;SUB{[8O3[31r]O5[31r]]}[4DJ2;DJ3][8O3[15r]]DL=NK6+3DJ5;DL=NK6+4DJ3; //------------------------------------------------------------------------------TR=011;------------------------------------------------------------------------------// STR GR={n42}STR GA={n44}STR GB={n46}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]} TR=11l16DL=HAZ+4@26BR=20p%=1000P=127[12GP5]DL=BGN@26BR=20p%=1000P=127V=127[24GP5][8GP1][24GP5][16GP1]DL=NK1[32GP5]DL=NK4[8GP1][16GP5][24GP1][8GP5][16GP1] //------------------------------------------------------------------------------TR=012;------------------------------------------------------------------------------// 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={@25SUB{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={@9BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}STR PD10={@25[3O2;r:[O1]]O2;rl32[8O1]l16}STR PD11={@17[6O1]O2[3O1]O2[5O1]@33}STR PD12={@26[O2]l32[4O2]l16[O2][O1]O2;r[O1]l32[4O1]l16[O1]@17} TR=12l16DL=HAZ-4@25P=0BR=20p%=-2000[64n44][256n42][64n44][64n42]DL=BGN@25P=0BR=20p%=-2000[384n42][8GP3][384n42][16GP3]DL=NK1[64n44][64n42]DL=NK2[384n42]DL=NK4[8GP3][256n42]DL=SB3[24GP3][384n42] //------------------------------------------------------------------------------TR=013&015;--------------------------------------------------------------------------// STR PG1={P.onCycle(!8,0,22,106,127,106,22)}STR DW1={[10r]ggdd"g"g}STR DW2={[8r]grgrgd"a#"g}STR DW3={[10r]grdd"gr}STR DW4={[8r]gggggrgr}STR DW5={gggrdddrgfdc"a#"a"f"d} STR TAM={l16[3c^'ceg`c'ca#ga#'ceg`c'^c'ceg`c'ca#ga#g] この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)