サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 メール連絡すれば可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ヒーリング・ニューエイジ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 今回も乱数出しです〜(笑)。考えることがほとんどアルゴリズムなので、やけに早くできてしまいます(笑)。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"旅立ち"} 作者{"メロン"} // 今回も乱数出しです〜(笑)。考えることがほとんどアルゴリズムなので、 // やけに早くできてしまいます(笑)。 // むむっ、適当なジャンルが見つからない・・。 Int L= 3 ;// 気の済むまで繰り返し可(笑)。 //------------------------------------------------------------------------------ 音源初期化 拍子4,4 テンポ(120) 調#(g) // C Include(fadeio.h);Function X(Array AR){Str A=AR(Random(SizeOf(AR)));A}Array Z=({`c},{b}, {c},{e},{a},{g},{r},{r},{r});Array Q=({d},{e},{f},{a},{`c},{`d},{r},{r},{r});Array K=({e}, {g},{b},{d},{`d},{a},{"b},{r},{r},{r},{r},{r},{r}) Function AT(Str C){Int T = Time; For(Int I=1; I<=16; I++){TR=I; CH=I;Time=T;C;}} 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)});} [(L)TR=1y64,127P=64-32@54l8[[4[8y64,127X(Z)]y64,0]:[4[8y64,127X(Q)]y64,0]] [4[8y64,127X(K) ]y64,0]TR=2y64,127P=64+32@54l8[[4[8y64,127X(Z)]y64,0]:[4[8y64,127X(Q)]y64,0]][4[8y64,127 X(K)]y64,0]TR=3q95@90[['"a`ce'1+1]:['`d"af'1+1]]['egb'1+1]TR=4q95@33o3l4.[[4aae4]:[4dda4]] [4egb4]TR=10[8[n35]n59,2 [n35,8]rn59,2 r-1+1v-50 [[n37][n37,8]r8n37,8]v+50]] Time(Time-TimeBase*4*8) FA(8) この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)