サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ヒーリング・ニューエイジ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 砂粒が音楽でしゃべり出すとこんな感じかなぁ・・と(笑)。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"砂粒のつぶやき"} 作者{"メロン"} // 砂粒が音楽でしゃべり出すとこんな感じかなぁ・・と(笑)。 //------------------------------------------------------------------------------ 音源初期化 拍子4,4 Tempo = 144 Function RS(Array AR){Str A=AR(Random(SizeOf(AR)));A;}Int AA;Int AB;Int AC;Str QQ={ EP.T(127,127,!2,127,30,!2);AA=RandomSelect(0,128)If(AA==0){AB=0;AC=127}ELSE{AB=127;AC=0} P.T(AB,AC,!1)}Int L=14Function K(){TimeKey(,,RandomSelect(0,5,-5,-7,-4,4)); [4r1]} Include(unison.h);Str Q={ RS({"a},{"b},{c},{d},{e},{f+},{g},{g+},{a},{b},{`c},{`e})} Str CC={RS({"a},{"b},{c},{e},{f+},{a},{b},{`c},{`e})}Str G={@49 l1q95 [4QQ RS({v0}, {v100})RS({"a},{"b},{c},{d},{e},{f+},{a},{g},{b},{r})]} [(L) UseKeyShift(on)TR=0K TR=13@49l8o6 [4RS({v0},{v100})[4CC RS(CC,{r},{r},{r})]] TR=1 l16q95M=0 @5[4RS(,,{V=0})[16 RS(,,,,{v0}) P=Random(128) OctaveUnison(Q)v100]V=100] TR=2o4q99@5l1[4'ace']TR=4@81o4l16q50[4"ace"ace"ac]TR=14@82o5l16q50[4["cc`c]"cc]TR=3o2@39 q30[4[4RS({a8,80[`a16]},{l16a,60[3`a,60]},{a8,65`a8,65},{r16a8.,90},{r16`a8.,90})]] TR=33CH=10l164@17UseKeyShift(0)r1+1 RS({r4},{[n49,8]})RS({r4},{[8n38,32]})UseKeyShift(1) TR=10@25[4 ['n36n59''n38n27']r-1[4RS({n42,8},{[n42,16]})n46,8]]TR=22CH=10l16[4[16 n(RandomSelect(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,38,46,41,42,43,45,47,48,49,50,51))]] TR=5@56V=122o6RS({v0},{v122})[4['"ace'16]r1-8]TR=6 @119 UseKeyShift(off)o5[(4)RS({[4"c8 r16"c16]},{["c4c4]})]TR=7o7V=86G TR=8o5V=90 G ]Function _FA(B){Include(fadeio.h);Time(Time-TimeBase*4*B)FadeoutAll(B);}_FA(8); この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)