サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ヒーリング・ニューエイジ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 「小川のせせらぎ」イメージの BGM な感じの曲です。 乱数仕様のメロ/コード進行なので毎回変わりますが、毎回同じに聴こえます(笑)。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"春の小川"} 作者{"メロン"} // 「小川のせせらぎ」イメージの BGM な感じの曲です。 // 乱数仕様のメロ/コード進行なので毎回変わりますが、毎回同じに聴こえます(笑)。 //------------------------------------------------------------------------------ 音源初期化 Array R1={r}Function RS(Array AR){Str A = AR( Random( SizeOf(AR) ) );A;} Int Pat=0 Str K={y64,0y64,66} Str XM={ If(Pat==0){ TR=1 l8 [8 RS({f16r16},{f16g16},{c},{d},{e},{g},{a},R1)] TR=2@50q100v77 'cegb'1 TR=3@33o3 ccc8g8r8c8 TR=4l16 K[16RS({c},{d},{e},{g},{a})] TR=5 @25 l8v70 q50[8 RS({'cegb'},{r})] TR=10UseKeyShift(0) [n36n38]r-1[8n42,8]UseKeyShift(1) } If(Pat==1){ TR=1 l8 [8 RS({f16r16},{f16g16},{c},{d},{e},{g},{a},R1)] TR=2@50q100v77 @49q80[4'ceg'8r8]q100 TR=3@33o3 r8cdeg8 TR=4l16 K[16RS({c},{d},{e},{g},{a},{r})] TR=5 @25 l8v70 q80 'cegb'4.'cegb'8 r8 'cegb'8 r4 TR=10UseKeyShift(0) [n36,8][3r8n36,8]r-1r2n38,2r-1[n42,8n46,8[n42,8]]UseKeyShift(1) } } Str Xm={ If(Pat==0){ TR=1 l8 [8 RS({c},{d},{e-},{g},{b-},R1)] TR=2@50q100v77 'ce-gb-'1 TR=3@33o3 ccc8g8r8c8 TR=4l16 K[16RS({c},{d},{e-},{g},{a},{r})] TR=5 @25 l8v70 q50[8 RS({'ce-gb-'},{r})] TR=10UseKeyShift(0) [n36n38]r-1[8n42,8]UseKeyShift(1) } If(Pat==1){ TR=1 l8 [8 RS({c},{d},{e-},{g},{b-},R1)] TR=2@50q100v77 @49q80[4'ce-g'8r8]q100 TR=3@33o3 r8cdeg8 TR=4l16 K[16RS({c},{d},{e-},{g},{a},{r})] TR=5 @25 l8v70 q80 'ce-gb-'4.'ce-gb-'8 r8 'ce-gb-'8 r4 TR=10UseKeyShift(0) [n36,8][3r8n36,8]r-1r2n38,2r-1[n42,8n46,8[n42,8]]UseKeyShift(1) } } Str X7={ If(Pat==0){ TR=1 l8 [8 RS({f16r16},{f16g16},{c},{d-},{d},{d+},{e},{g},{b-},{f+},{a-},R1)] TR=2@50q100v77 'cegb-'1 TR=3@33o3 ccc8g8r8c8 TR=4l16 K[16RS({c},{d-},{d},{d+},{e},{g},{b-},{r})] TR=5 @25 l8v70 q50[8 RS({'cegb-'},{r})] TR=10UseKeyShift(0) [n36n38]r-1[8n42,8]UseKeyShift(1) } If(Pat==1){ TR=1 l8 [8 RS({f16r16},{f16g16},{c},{d-},{d},{d+},{e},{g},{b-},{f+},{a-},R1)] TR=2@50q100v77 @49q80[4'cegb-'8r8] TR=3@33o3 r8cdeg8 TR=4l16 K[16RS({c},{d},{e},{g},{b-},{r})] TR=5 @25 l8v70 q80 'cegb-'4.'cegb-'8 r8 'cegb-'8 r4 TR=10UseKeyShift(0) [n36,8][3r8n36,8]r-1r2n38,2r-1[n42,8n46,8[n42,8]] UseKeyShift(1) } } Str Xd={ If(Pat==0){ TR=1 l8 [8 RS({c},{d},{e-},{g-},{a},{f},{a-},R1)] TR=2@50q100v77 'ce-g-a'1 TR=3@33o3 ccc8g8r8c8 TR=4l16 K[16RS({c},{d},{e-},{g-},{a},{r})] TR=5 @25 l8v70 q50[8 RS({'ce-g-a'},{r})] TR=10UseKeyShift(0) [n36n38]r-1[8n42,8]UseKeyShift(1) } If(Pat==1){ TR=1 l8 [8 RS({c},{d},{e-},{g-},{a},{f},{a-},R1)] TR=2@50q100v77 @49q80[4'ce-g-a'8r8] TR=3@33o3 r8cdeg8 TR=4l16 K[16RS({c},{d},{e-},{g-},{a},{r})] TR=5 @25 l8v70 q80 'ce-g-a'4.'ce-g-a'8 r8 'ce-g-a'8 r4 TR=10UseKeyShift(0) [n36,8][3r8n36,8]r-1r2n38,2r-1[n42,8n46,8[n42,8]] UseKeyShift(1) } } TR=1o6 TR=4P=32o4v66@49 @9o7 TR=1 l8 y64,66@12 Str Min1={RS({TimeKey(-3)Xm},{TimeKey(0)XM}) RS({TimeKey(2)Xm},{TimeKey(2)XM}, {TimeKey(-6)X7}) TimeKey(0)Xd TimeKey(4)X7} Str Min2={TimeKey(4)X7 TimeKey(-3) RS({X7},{Xm}) TimeKey(2)Xm TimeKey(-5)X7} Str Maj1={RS({TimeKey(4)Xm},{TimeKey(0)Xm}) RS({TimeKey(-3)Xm},{TimeKey(0)XM}) RS({TimeKey(5)Xm},{TimeKey(5)XM},{TimeKey(1)X7},{TimeKey(1)XM},{TimeKey(-2)X7}, {TimeKey(-4)XM}) TimeKey(-5)X7} Str Maj2={TimeKey(5)XM TimeKey(-2)Xd TimeKey(2)Xm RS({TimeKey(1)X7},{TimeKey(-5)Xm})} Str Maj3={RS({TimeKey(0)XM},{TimeKey(0)Xm}) TimeKey(5)Xd TimeKey(-3)Xm TimeKey(-5)X7} TR=2@25 'cegb'2 ['d-fa-b'8]r8 'gbfd'8 TR=3@33o3 c2r8f8 TR=10n36,8'n36n49'2n38,8'n36n49' TrackSync [4 Pat=0 If(Random(2)==0){R1={r},{r},{r},{r},{r},{r}}Else{R1={r}} [RS({Maj1},{Maj2},{Maj3})] Pat=1 If(Random(2)==0){R1={r},{r},{r},{r},{r},{r}}Else{R1={r}} Min1 If(Random(2)==0){R1={r},{r},{r},{r},{r},{r}}Else{R1={r}} Min2 ] Int _B=9 Include(fadeio.h)r-%(384*_B)FadeoutAll(_B) この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)