サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ポップス ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント イントロ/間奏/エンディングに使えれば・・とそんな物を作ってます。 メロ風の部分は乱数で出してます。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"プロジェクト・M"} 作者{"メロン"} // イントロ/間奏/エンディングに使えれば・・とそんな物を作ってます。 // メロ風の部分は乱数で出してます。 そのメロ風の部分の音量を落として、 // ウラメロ風に、薄く曲中に入れてもいいかも・・。 // えっと、ジャンルはロック/ダンス/ポップス、混ぜこぜ・・な感じなので // 「何回も」回していただけると嬉しいです(^^;)。 INT L= 4 ;// 繰り返し回数 //------------------------------------------------------------------------------ 音源初期化 Tempo=128 // 伴奏(うっすら効果)2 Function AT(Str C){Int T = Time; For(Int I=1; I<=16; I++){ TR=I; CH=I;Time=T;C;}} For(Int N=1;N<17;N++){TR=N V($70)} Function FO(M){Str I = {!1}; If(M>1){M--;[(M) I=I+{^1} ] } Str C = { EP.T(127,0,LEN); }C.s({LEN},I); C;}Function FA(M){AT({FO(M)});} Function PC(K, Str CC){ [(K) l8 CC l16 [CC]] } Function RS(Array AR){ Result = AR( Random( SizeOf(AR) ) );} INT KOSU=4; Int PX=1; // 使う前にかならずセットする必要がある。 Function TTT(Array Cho){Str X; For(Int N=0;Nl8eeg+g+bb`d`dl4<] TR=3 Include(chord2.h);Int Back=Random(6); [(L) If(Back==0){ @50 l1 q99 Am G F E7 } If(Back==1){ @25 o4 t.N(0,4,8) PC(4,{Am});PC(4,{G});PC(4,{F});PC(4,{E7});}// Am G F E7 If(Back==2){v115 [Am(4.)]Am=4 [G(4.)]G=4 [F(4.)]F=4 [E7(4.)]E7=4 } If(Back==3){ v80@27q90 l8 [4rAm] [4rG] [4rF] [4rE7] } //If(Back==4){ o4 v85 @30 q90 l4.Am l2+8 Am l4.G l2+8 G l4.F l2+8 F l4.E7 l2+8 E7 } If(Back==4){ o3 v95 @31 q90 'a`e'4. 'a`e'2+8 'g`d'4. 'g`d'2+8 'f`c'4. 'f`c'2+8 'eb'4. 'eb'2+8 } If(Back==5){ o4 v90 @30 q90 'a`e'4. 'a`e'2+8 'g`d'4. 'g`d'2+8 'f`c'4. 'f`c'2+8 'eb'4. 'eb'2+8 } ] TR=8Str TX;v115[(L)[3r1] TX=RS({o6l8@118 r`d`dbbg+g+e},{o6l8@118 reeg+g+bb`e},{o7l8@118 r`d`dbbg+g+e},{o7l8@118 reeg+g+bb`e},{});TX] Str H=RS({r16ffr16},{r8ff},{ffr8},{fr8f},{ffrf},{rfrr},{rrfr},{rrrf},{frrr}); Str H2O=RS({@16},{@82},{@25},{@83},{@109},{@110},{@115},{@116}); TR=9 q70 v75 H2O; l16 o(RandomSelect(6,7)); [(L)[4[4H]]] TR=10STR DX=RS({l16[4n48][4n45][4n41]r4 l4},{l16[4n50][4n47][4n43]r4 l4}); Str DD=RS({@1},{@1},{@9},{@17},{@25},{@26},{@33},{@41},{@49}); DD [(L) [3 n36n38 n36[n38,8]r-1[8n42,8]] DX ] Time(Time-TimeBase*4*3) FA(3) /** 001 STANDARD 009 ROOM 017 POWER 025 ELECTRONIC 026 TR-808 033 JAZZ 041 BRUSH 049 ORCHESTRA 057 SFX **/ この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)