サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない （ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。） ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ポップス ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 （パソコン内蔵音源、GS音源、GM音源など） 公開 公開する 削除する （公開を中止して削除するときには、この項目を変更します。） コメント 今回は比較的、誰にもなじみ易い感じかと思います。 それで、ちょっと遊べるようにしてみました。 曲データ（サクラから貼り付けます。） //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"さわやかな秋"} 作者{"メロン"} Tempo= 130 Int Tx= 1 ;// 音色番号 1,5,9,11,12,107,108,25,26,27,106,109 0 ならランダム Int SSS= 0 ;// 0:伴奏しない 1:伴奏する Int L= 16 ;// ビート 3 6 8 12 16 // 今回は比較的、誰にもなじみ易い感じかと思います。 // それで、ちょっと遊べるようにしてみました。 // オルゴールのつもりで作りはじめたら・・こんなになってしまいました（笑）。 //------------------------------------------------------------------------------ 音源初期化 Function RS2(Array AR){Result = AR( Random( SizeOf(AR) ) );} Function RS(Array AR){Str A = AR( Random( SizeOf(AR) ) );A;} Function Fx(Str A,D){ Str R; If(A=={"a}){R = RS2({"a},{"a},{"b})} If(A=={"b}){R = RS2({"b},{"b},{c},{"a})} If(A=={c}){R = RS2({c},{c},{"b},{d})} If(A=={d}){R = RS2({d},{d},{c},{e})} If(A=={e}){R = RS2({e},{e},{d},{f})} If(A=={f}){R = RS2({f},{f},{e},{g})} If(A=={g}){R = RS2({g},{g},{f},{a})} If(A=={a}){R = RS2({a},{a},{g},{b})} If(A=={b}){R = RS2({b},{b},{a},{`c})} If(A=={`c}){R = RS2({`c},{`c},{b},{`d})} If(A=={`d}){R = RS2({`d},{`d},{`c},{`e})} If(A=={`e}){R = RS2({`e},{`e},{`d})} Result = R; } Int TT Str To={c} Str Tn Str K Str Z00={TimeKeyFlag(,,0,0,0,0,0,0,0) } Str Zmm={TimeKeyFlag(,,-1,-3,0,0,-1) } Str Z77={TimeKeyFlag(,,1,-1,0,0,0) } Str Ev={v.Random(50)} Str Q={ TR=1 P=32 @(TT) o6 l(L) y64,66 [(L) K=Fx(To) If(K=={a}){K={g}} If(K=={f}){K={e}} If(K=={d}){K={c}} If(K=={`d}){K={`c}} Ev RS(K,{r})] If(SSS==1){ TR=2 Ev @5'ceg'1 TR=4 Ev @49 V=67 q100 'ceg'1 TR=5 Ev l16 @26@5 @(TT) q100 y64,66 P.N(127,97,75,52,0) Div{ceg`c}4`e2. TR=3 Ev @33o3 l(L/2) [(L/2) RS({c},{e},{g},{`c})] TR=10 Ev UseKeyShift(0) [n36n38]r-1[(L)n42,(L)] UseKeyShift(1) } TR=8 Ev P=85 @(TT) o7 l(L/2) y64,66 [(L/2) RS({r},{d},{"b},{c},{e},{g},{b},{`c})] TR=9 Ev P=85 @(TT) o5 l2 y64,66 [2 RS({c},{e},{g},{`c},{d},{`d})] } Str Z={Z00 Q} Str Zm={Zmm Q} Str Z7={Z77 Q} [3 [2 IF(Tx<1){TT=RandomSelect(1,5,9,11,12,107,108,25,26,27,106,109)}Else{TT=Tx} TimeKey(0) Zm RS({TimeKey(5) Zm},{TimeKey(-2) Z},{TimeKey(5) Z},{TimeKey(-4) Z}) RS({TimeKey(2) Z7},{TimeKey(0) Zm},{TimeKey(5) Z},{TimeKey(-4) Z7}) TimeKey(-5) Z7 ] [1 IF(Tx<1){TT=RandomSelect(1,5,9,11,12,107,108,25,26,27,106,109)}Else{TT=Tx} TimeKey(0) Z RS({TimeKey(-3) Zm},{TimeKey(4) Zm}) RS({TimeKey(5) Z},{TimeKey(5) Zm},{TimeKey(2) Z7},{TimeKey(-4) Z7}) TimeKey(-5) Z7 ] ] [2 IF(Tx<1){TT=RandomSelect(1,5,9,11,12,107,108,25,26,27,106,109)}Else{TT=Tx} TimeKey(0) Zm RS({TimeKey(5) Zm},{TimeKey(-2) Z},{TimeKey(5) Z},{TimeKey(-4) Z}) :RS({TimeKey(2) Z7},{TimeKey(0) Zm}) TimeKey(-5) Z7 ] TimeKey(-5) Z7 TempoChange(80,!1+1+1) TimeKey(0) Zm TimeKey(-5) Z7 TimeKey(0) Zm TR=1 > c+4 c1 TR=3 c+4 c1 TR=4 'c+e+g+'4 EP.T(122,5,!1+1)'ceg'1 この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか？ いいえ。よく分かりません はい。著作権に問題ありません （←選択）