サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル アニメ・ゲーム ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 今回は趣をガラっと変えて、「お宝探しゲーム」な感じなのを作ってみました。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"お宝探し"} 作者{"メロン"} // 今回は趣をガラっと変えて、「お宝探しゲーム」な感じなのを作ってみました。 Int L= 8 ;// お好きなだけループさせてください。 //------------------------------------------------------------------------------ 音源初期化Function H(Array W){Str A=W(Random(SizeOf(W)))Sub{A}>A<}Str DD={ TR=10@26UseKeyShift(0)n36n38n36,8.n36,16n38,8n36,16n38,16 r-1[16n42,16,,( RandomSelect(60,100,127))]TR=100CH=10l16[16n(RandomSelect(41,43,45,47,1,1,1)),16] UseKeyShift(1)}Int J=60 Str MA={@81l16q50o5[16P=Random(128)H({`c},{c},{e},{g},{r})]} Str MB={v(J)q160@49P=Random(128)[4H({c},{d},{e},{g},{a},{b},{`d},{`e})]}Str Mm={@81l16 q50o6[P=RandomSelect(0,64,127)ccgg H({e-`cr},{re-r},{re-`c},{e-e-`c})`c]}Str Mc={v(J)q160 @49P=Random(128)[4H({c},{d},{e-},{g},{b-},{`d},{`e-})]}Str XM={TR=2MA TR=12MA TR=4o5MB TR=14o6MB TR=5v60@90q100'"ce`g'1}Str Xm={TR=2 Mm TR=12Mm TR=4o5Mc TR=14o6Mc TR=5v60@90 q100'"ce-`g'1}Str XB={TR=3@5@33q50o3l16[4c8gg]}Str K={[DD][XM][XB]}Function Q(Z){ TimeKey(Z)K}[(L)Q(0)Q(3)TimeKey(5)[DD][Xm][XB]Q(7)J=RandomSelect(45,60,85)] TimeKey(0)[DD][XM][XB]Int _B=12 Include(fadeio.h)r-%(384*_B)FadeoutAll(_B) この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)