サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ジャズ・フュージョン ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 豪華客船での船旅・・・をイメージしてみました。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"船旅"} 作者{"メロン"} // 豪華客船での船旅・・・をイメージしてみました。 //------------------------------------------------------------------------------ 音源初期化Tempo=120 Function RS2(Array AR){Result = AR( Random( SizeOf(AR) ) );} Function RS(Array AR){Str A = AR( Random( SizeOf(AR) ) );A;} Int Px Str H={q99 M=77y64,0} Str H2={q99 M=0y64,66} Int X Function Z(Int Key, Int Type){ TimeKey(Key) IF(Type==0){TimeKeyFlag(,, 0, 0, 0, 0, 0, 0, 0)} // Maj IF(Type==1){TimeKeyFlag(,,-1,-1, 0, 0,-1, 0, 0)} // Min IF(Type==5){TimeKeyFlag(,,-1,-1, 0, 0,-1, 0,-1)} // Min b5 IF(Type==2){TimeKeyFlag(,, 0,-2, 0, 0,-1,+1,-1)} // Dim IF(Type==7){TimeKeyFlag(,, 0,-1, 0, 0, 0, 0, 0)}} // 7 Str Q1 Str Q2 Str Q3 Str Q4 Str Tone={o4@67o4H} Array SC={c},{d},{e},{f+g},{a},{b},{`c},{`d},{`e},{r},{r} Str A={ TR=1 P=Px l12 Tone [(Random(1,9)) Q1 = Q1 + RS2(SC)] Stretch{Q1}2 [(Random(1,9)) Q2 = Q2 + RS2(SC)] Stretch{Q2}2 [(Random(1,9)) Q3 = Q3 + RS2(SC)] Stretch{Q3}2 [(Random(1,9)) Q4 = Q4 + RS2(SC)] Stretch{Q4}2 TR=11@49o4 q99v90 M=77 Stretch{Q1}2 Stretch{Q2}2 Stretch{Q3}2 Stretch{Q4}2 Q1={} Q2={} Q3={} Q4={} TR=2 @49@90v77q100['cegb`d'1] TR=3 @33o3 RS({q.N(150,40) t.N(0,!8)}, {q80 t0}) [c [3RS({e},{g},{a},{d},{"b},{b})]] TR=10 UseKeyShift(0)@41 [[n36n38]r-1[6n42,12]n42,6n46n42,12] TR=111 CH=10 l12 r4+6 RS({n49},{r},{r},{r},{r},{r},{r}) r1.UseKeyShift(1)} Str CM7={Z(0,0)A} Str Em7={Z(4,1)A} Str Am7={Z(-3,1)A} Str C7={Z(0,7)A} Str DbDim={Z(1,2)A} Str Fpm7b5={Z(6,5)A} Str FM7={Z(5,0)A} Str Fm7={Z(5,1)A} Str Dm7b5={Z(2,5)A} Str DbM7={Z(1,0)A} Str Bb7={Z(-2,7)A} Str AbM7={Z(-4,0)A} Str Ab7={Z(-4,7)A} Str G7={Z(-5,7)A} Str Db7={Z(1,7)A} Str Gm7={Z(-5,1)A} Str E7={Z(4,7)A} Str D7={Z(2,7)A} Str Adim={Z(-3,2)A}Str Ebm7={Z(3,1)A} Str F7={Z(5,7)A} Str B7={Z(-1,7)A} Str Abm7={Z(-4,1)A}Str Edim={Z(4,2)A} Str Cdim={Z(0,2)A} Str Dm7={Z(2,1)A} Str A7={Z(-3,7)A} Str G72={Z(-5,7)A} Str Cm7={Z(0,1)A} Str X1={CM7 DbDim Bb7 G7} Str X2={Am7 D7 DbM7 E7} Str X3={Am7 Adim Fm7 Bb7} Str X4={Em7 Ebm7 DbDim B7} Str X5={CM7 Cdim Abm7 Db7} Str X6={CM7 A7 Dm7 Db7} Str X7={E7 Am7 D7 G72} Str X8={CM7 E7 Am7 G72} Str X9={CM7 Ab7 Db7 G72} Str X10={Cm7 Fm7 Dm7 G72} [12 Px=RandomSelect(0,32,64,96,127)X=Random(10) IF(X==0){X1} IF(X==1){X2} IF(X==1){X3} IF(X==3){X4} IF(X==4){X5} IF(X==5){X6} IF(X==6){X7} IF(X==7){X8} IF(X==8){X9} IF(X==9){X10} Tone = RS2({@1o6H2},{@12o6H2},{@40o5H}, {@41o5H},{@44o4H},{@45o5 q99 M=0 y64,0},{@49o5 H}, {@49o6H},{@53o5H},{@54o5H},{@58o4H}, {@59o5H},{@60o5H},{@62o5H},{@65o5H}, {@66o5H},{@67o4H},{@69o4H},{@70o6H}, {@71o5H},{@71o4H},{@72o6H},{@72o5H}, {@70o6H},{@12o6H2},{@12o6H2}) ]Int N=7Include(fadeio.h)r-%(384*N)FadeoutAll(N) この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)