サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 今回は''トランスのつもり''です。単純なコードの繰り返しでも結構面白くなるもんですね。後重くてコンパイルできない人は次回MP3出します。 曲データ(サクラから貼り付けます。) // THX DL ----------------------------------------------------------------------------------------- // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.372)[ 08 / 07 / 08 (TUE) ] [ TRANCE ]W-Temp 2008 //------------------------------------------------------------------------------------------------- //トランスのつもりです。もうテンプレ変えないと心に誓った。(近いうちその誓約は破られるでしょう。) Include(gs.h)ResetGS;r4;Include(delay.h)TrackSync;INT RNS=0INT SET=(RNS*-1)System.MeasureShift=2System.vMax=150 TrackName={"Evolving WATER"}Copyright={"West"}MetaText{"*PR* Myblog→ " katasumi_7019@yahoo,co,jp " *Access here!*} //------------------------------------------------------------------------------------------------- Tempo=154FUNCTION XE(tx){Time(tx:1:0)}FUNCTION MP(STR X){Sub{>X<}X}FUNCTION MM(STR Y){Sub{}Y} Function GS_R(D){Int TH=CH;Int C;If(TH==10){C=$00}ELSE{If(TH<10){C=TH}ELSE{C=TH-1}}C=$10+C;SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(C),$15,(D)},$F7} FUNCTION MB(STR Z){Sub{>Z<}Sub{}Z}FUNCTION DP(PN){XE=-2GS_R(PN)r8}TR=9DP=2TR=10DP=1TR=11DP=2 FUNCTION LAC(TCn,Vn,Qn,Pn,Mn,Vo1,Vo2,On){TR=TCn;CH=TCn;XE=0l16v(Vn)q(Qn)P=Pn;M(Mn*10)IF(Mn==12){M=127}@(Vo1,Vo2,0)o(On)p64} //B(TC, v , q , P , M, @ ,V2, o)M/C(TC, v , q , P , M, @ ,V2, o)SYN(TC, v , q , P , M, @ ,V2, o) LAC(01,150,100,000,00,082,02,03)LAC(03,090,080,064,00,008,00,05)LAC(06,127,080,020,00,081,01,07) LAC(02,150,100,127,00,082,01,03)LAC(04,110,099,000,00,053,00,04)LAC(07,127,080,064,00,082,02,06) /*C(00,000,000,000,00,000,00,0*/LAC(05,090,080,000,00,026,00,05)LAC(08,140,080,090,00,082,00,05) //D(TC, v , q , P , M, @ ,V2, o)MSE(TC, v , q , P , M, @ ,V2, o)/SE(TC, v , q , P , M, @ ,V2, o) LAC(09,127,080,000,00,025,00,05)LAC(12,150,100,000,00,039,09,02)LAC(15,127,100,000,00,125,00,05) LAC(10,127,080,000,00,026,00,03)LAC(13,150,080,000,00,008,01,05)LAC(16,127,100,127,00,125,00,05) LAC(11,127,080,000,00,025,00,03)LAC(14,150,080,000,00,082,01,05)FUNCTION PL(TIME,STR T1, STR T2,STR T3,STR T4,STR T5,STR T6,STR T7,STR T8,STR T9,STR T10,STR T11,STR T12,STR T13,STR T14, STR T15,STR T16){STR I={XE=TIME+RNS}TR=1I;T1;TR=2I;T2;TR=3I;T3;TR=4I;T4;TR=5I;T5;TR=6I;T6;TR=7I;T7 TR=8I;T8;TR=9I;T9;TR=10I;T10;TR=11I;T11;TR=12I;T12;TR=13I;T13;TR=14I;T14;TR=15I;T15;TR=16I;T16} //BASS--------------------------------------------------------------------------------------------- STR VC1={[8r1]MM({l16})}STR VC2={v140l16IF(12==CH) {v.T(0,90,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)}[4[16"d"dMB({dd})]]}STR V21={l16[4[16"d"dMB({dd})]]} STR VC3={v140l16[4[4[4"d"d:MB({dd})]MB({ec})]]}STR VC4={MidiDelay({V21},3,!8)}STR VC5={MB({[4[[4"grgg]: [4"f#rf#f#]]["araa]["brbb]]})}STR VC6={MP({[4[8rr"g"g][8rr"f#"f#]]})}STR VC7={q99l1v130MM({'g'^^^^^^^^^^^^^^})l16} //MELO1-------------------------------------------------------------------------------------------- STR MD1={l16v105MidiDelayS({[8[rr'"dd'rrr'"dd'r[4'"dd']'"ee'r:'"dd'r]'"f#f#'r]})} STR M21={[3EP.T(40,70,!1^1,50,60,!1^1)[4dddddrdrdddddrddr]]EP.T(40,100,!1^1^1^1)[4dddddrdrdddddrddr]} STR MD0={[3EP.T(40,70,!1^1,50,60,!1^1)[4dddddrdrdddddrddr]]EP=100[3r1]r2dddrdddr} //CHORD-------------------------------------------------------------------------------------------- STR CH0={l2P.W(127,64,!2)MP({'ge'^'f#d'^'ge'^'af#d''bg'})}STR CH1={q100[4CH0]}STR CH2={[CH0]l1'"gg"ee'^^^^^^^} STR CH3={}STR CH4={} //SYNTH-------------------------------------------------------------------------------------------- STR SY={IF(6==CH){@81,1}IF(7==CH){@39,9}IF(8==CH){@39}}STR SYT={l4v60@51[4>f#^^gf#^b^f#^^gf#^^^<]l16} STR SY1={v100l16SY;MidiDelay({[4[[3'"geg'r:r]][[3'"f#df#'r:r]][[3'"geg'r:r]]:[3'"aaf#'r:r][4'"bgb'r]][2'"aaf#'rr]'"bgb'rr2},4,!8)} STR SY2={v80l16SY;MidiDelay({[4[[3'"geg'r:r]][[3'"f#df#'r:r]][[3'"geg'r:r]][3'"aaf#'r:r][4'"bgb'r]]},4,!8)} STR SY3={FOR(Int W=0;W<4;W++){v80l16SY;MidiDelay({[[3'"geg'r:r]][[3'"f#df#'r:r]][[3'"geg'r:r]][3'"aaf#'r:r][4'"bgb'r]},10+W,!8)}} STR SY4={>v100l16SY;MidiDelay({[3'"geg'r:r]},8,!8)r2<}STR SY5={l16>;SY2;<} //KICK&SNARE--------------------------------------------------------------------------------------- STR BD={p.T(60,30,!16)'n27n32n35'p64}STR SD={BR=40p60'n27n28n32n35'}STR SD2={BR=40p60'n27n32n35n36'}STR BS1={v.T(0,127,!1^1^1^1^1^1^1^1) [16BD;rrrBD;rrr]v127[8BD;rrrSD2;rrrBD;rrr:SD2;rrr][3SD2]r}STR BS2={[4[[4BD:rrrSD;rrr]:BD;BD;BD;SD;rSD;r]rrrSD;rrr]} STR BS3={[15[BD;rrr][5BD]rBD;r[4BD;rrr]]r2rrrrSD;rrr}STR BS4={[64BD;rrr]}STR BS5={[32BD;rrr]v((MML(v))-20)[32BD;rrr]v127} STR BS6={[4[6BD;rrr][4BD]BD;rBD;r[4BD;rrr][4BD]BD;rBD;rMidiDelay({BD;BD;BD;r},3,!16)BD;BD;rBD]} //HIHAT-------------------------------------------------------------------------------------------- STR XX={n42n44}STR XA={p64'XX'}STR XB={p64'n49XX'}STR XC={p90'n46n51n53'}STR XC1={BR=20[8r1]v.T(0,127,!1^1^1^1^1^1^1^1) [32rrXC;XC]}STR XC2={v127[64rrXC;XC]}STR XC3={[64n51n42XC;XC]}STR XC4={v110[16[4n51n42XC:r]XC]} STR XC5={MidiDelay({[8[4n51r'XC':r]'XC'n51^'XC'rn51^'XC''XC'n51^'XC'rn51'XC'r'XC']},2,!16)} STR XC6={[62n51^XC;r]r2}STR XC7={[32XA;^XC;XC]BR=30p.T(64,0,!1^1^1^1^1^1^1^1)[32n51^['n46n51n53']]p64} STR XCE={[8[4n51r'XC':r]'XC'n51^'XC'rn51^'XC''XC'n51^'XC'rn51'XC'r'XC']MidiDelay({XB},10,!4)} //PER---------------------------------------------------------------------------------------------- STR BW1={[8r1]l1REV=127[XB;rrr]}STR BW2={l4[7XB;rrr][XB]l8[3XB]rl4[29r]XB;rl16}STR BW3={v127;MidiDelay( {XB},16,!4)}STR BW4={v.T(0,127,!1)[15r1][16n28]}STR BW5={[14r1]v.T(100,127,!1^1)[32n28]}STR BW6={ XB[15r][7r1]XB[15r][3r1][XB[15r]][XB[7r]][3XB;rrr]rrrrXB}STR BW7={[14r1]v.T(100,150,!1^1)[32n28]}STR BW8={v90[16[16n82]]} //TR=13 14----------------------------------------------------------------------------------------- STR VX={["a"a"a"arr:c"arrdrerf#r]d"arrdrerf#r}STR VX0={l16[8VX]}STR VX1={v110S{MidiDelay({VX0},8,!32)}S{}>VX0<} STR VX2= {v110;FOR(Int R=1;R<9;R++){S{MidiDelay({VX},A,!A)}S{}>VX<}q100v110}STR VX3={ q.T(100,10,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)VX2;q70}STR VX4={q.T(10,100,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)} STR VX5={EP.onCycle(!4,20,40,20,30,40,50,40,20,30,60,40,50,60,70,75,80)[4[8"gg]:[8"f#f#]][4"f#f#][8r]EP=100} STR VX6={EP.T(127,20,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)VX0;EP=110} //TR=15 16----------------------------------------------------------------------------------------- STR CY0={@125l16BR=10v.T(90,0,!1^1^1^1)[32p.T(127,0,!8)'eb'8][r1]@124BR=30p.T(0,127,!1^1)v.T(100,127,!1^1)'"e"be'1^1 v120@127,3MidiDelay({''},16,!8)[15r][3r1]@81,1BR=80V.T(70,110,!1^1^1^1,100,0,!1^1^1^1)p.T(0,120,!1^1^1^1^1^1^1^1^1)[96``f]p64} STR CY1={V=100[12r1]l1V.T(20,127,!1^1^1^1,126,0,!1)@126,7'`````c'^^^^}STR CY2={@125BR=10p.T(127,0,!1^1^1^1) v.T(100,30,!1^1^1^1)'ea'1^1^1^1}STR CY3={[12r1]BR=30p.T(0,127,!1^1^1^1)'``a``e'1^1^1^1}STR CY4={@125BR=10p.T(127,0,!1^1^1^1) v.T(100,30,!1^1^1^1)'ea'1^1^1^1}STR CY5={V=100p64l16@125BR=10p.T(127,0,!1^1^1^1)MidiDelay({'ea'},32,!8)} STR CY6={[12r1]@121q.T(0,100,!1^1^1^1)p.T(64,64,!1^164,80,!1^1)MP({[64'<<>>']})}STR CY7={@125l16BR=10v.T(90,0,!1^1^1^1) [32p.T(127,0,!8)'eb'8][r1]@124BR=30p.T(0,127,!1^1)v.T(100,127,!1^1)'"e"be'1^1v120@127,3MidiDelay({''},16,!8)[15r][3r1] @127BR=60V.T(40,110,!1^1^1^1,110,127,!1^1^1^1)l1'`````c'^^^^^^^l16} //(TIME, TR1, BAS, MEL, CHO, MEL, SYN, SYN, SYN, TR9,TR10,TR11, BAS, ELE, ELE,TR15,TR16) PL( SET, , , , CH1, , , , , , XC1, BW1, , , , CY0, CY0)//INTRO PL( 016, VC1, VC1, MD0, CH2, MD0, , , , BS1, XC2, BW2, , , , CY1, CY1)//INTRO PL( 032, VC2, VC2, M21, CH3, M21, , , , BS2, XC3, BW3, VC2, , , CY2, CY2)//F1 PL( 048, VC2, VC2, MD1, CH3, MD1, , , , BS2, XC3, BW4, V21, , , , )//F2 PL( 064, VC2, VC2, MD1, CH3, MD1, , , , BS3, XC3, BW4, V21, , , CY3, CY3)//F3 PL( 080, VC3, VC3, , CH3, , , , , BS2, XC3, BW3, VC3, VX1, VX1, CY2, CY2)//F4 PL( 096, VC3, VC3, , CH3, , , , , BS2, XC3, BW3, VC3, VX2, VX2, , )//F5 PL( 112, VC4, VC4, , CH1, , , , , BS2, XC3, BW5, VC4, VX3, VX3, CY1, CY1)//F6 PL( 128, VC4, VC4, , CH1, , SYT, SYT, SYT, BS4, XC4, BW5, VC4, VX4, VX4, CY1, CY1)//F7 PL( 144, , , , CH4, , SY1, SY1, SY1, ,v110, BW6, , VX5, VX5, CY4, CY4)//FBR8 PL( 160, VC5, VC5, , , , SY2, SY2, SY2, BS2, XC3, BW3, , , , CY5, CY5)//S1 PL( 176, VC5, VC5, , , , SY3, SY3, SY3, BS5, XC5, BW3, , q99, q99, CY6, CY6)//S2 PL( 192, VC6, VC6, , , , , , , BS6, XC6, BW7, , VX6, VX6, CY6, CY6)//S3 PL( 208, VC7, VC7, , CH3, , , , , , XC7, BW3, , , , CY7, CY7)//S4 PL( 224, , , , , , SY4, SY4, SY4, p64, p64, p64, , , , , )//ST PL( 225, VC5, VC5, , , , SY5, SY5, SY5, BS2, XC3, BW3, , , , CY5, CY5)//S5 PL( 241, VC5, VC5, , , , SY5, SY5, SY5, BS5, XC6, BW7, , , , CY6, CY6)//S6 PL( 257, VC2, VC2, M21, CH3, M21, SY4, SY4, SY4, BS2, XC3, BW3, VC2, , , , )//S7 PL( 273, VC2, VC2, MD1, CH3, MD1, SY4, SY4, SY4, BS2, XC3, BW7, V21, , , , )//S8 PL( 289, VC4, VC4, , CH1, , SYT, SYT, SYT, BS4, XC6, BW7, VC4, VX4, VX4, CY1, CY1)//E1 PL( 305, , , , , , , , , BS6, XCE, BW8, , , , , )End //(TIME, TR1, BAS, MEL, CHO, MEL, SYN, SYN, SYN, TR9,TR10,TR11, BAS, ELE, ELE,TR15,TR16) この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)