サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ロック ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント メロンとしてはちょっと珍しめの、若向きバンド風・・なものを作ってみました。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"青春と男と女とハンカチと"} 作者{"メロン"} // メロンとしてはちょっと珍しめの、若向きバンド風・・なものを作ってみました。 // 年に数作ぐらいはこんなのやります(笑)。 //------------------------------------------------------------------------------ 音源初期化 Tempo=160 Function RS(Array R){Str A=R(Random(SizeOf(R)))A}Int K Function H(Str X){[4RS({[l16q30X] q95l8X} ,{q95l8X [q30l16X]}, {[3q30l16X]r16})]} Str C={'ceg'} Str F={'cfa'} Str G7={'"g"bdf'} Str Am={'"ace'} Str Dm={'dfa'} Str D7={'df+a`c'} Str E7={'"g+"bde'} Str Cz={H(C)} Str Fz={H(F)} Str G7z={H(G7)} Str Amz={H(Am)} Str Dmz={H(Dm)}Str E7z={H(E7)} Str D7z={H(D7)} Array Cx={c},{e},{g},{`c},{`e},{`g} Array Fx={c},{f},{a},{`c},{`f},{`a} Array G7x={"b},{d},{f},{g},{b},{`f},{`d} Array Amx={c},{e},{a},{`c},{`e},{"a} Array Dmx={d},{f},{a},{`d},{`f},{`a} Array E7x={"b},{d},{e},{g+},{b},{`e},{`d} Array D7x={d},{f+},{a},{`c},{`d},{`f+},{`a} Str Cc={l4.C '"beg' l4C l1} Str Fc={l4.F 'eac' l4F l1} Str G7c={l4.G7 '"g"bd+f' l4G7 l1} Str Amc={l4.Am '"a++ce' l4Am l1} Str Dmc={l4.Dm 'adfb' l4Dm l1} Str E7c={l4.E7 '"g"bd+f' l4E7 l1} Str D7c={l4.D7 'df+a`c-' l4D7 l1} Function Q(Len, Array Z){ [(Len) IF(Random(2)==0){l(Len)RS(Z)}Else{l(Len*2)[RS(Z)]}]} Str Min2={r-8M=77q95v100@74l8>c4@74 dcdedcf4.g4a8e4c1g1l8a2+8eea`c1`d2a2gagag2r8l4<} Str In={IF(K==0){TR=10 [4n31]K=1TrackSync} [8 TR=10 @17 ['n36n35''n36n38']r-1[8n42,8] TR=100CH=10 [4n49] ] TR=1 q95M=177@31 Min2 TR=11 o4 p%555 q95M=177@31 v120 Min2 TR=2P=96@31 o4 l1 Cz Fz Cz G7z Amz Fz Dmz G7z TR=4 P=96q95 @19o6 l1 Cc Fc Cc G7c Amc Fc Dmc G7c TR=13P=32 @1 o6 Q(8,Cx) Q(8,Fx) Q(8,Cx) Q(8,G7x) Q(8,Amx) Q(8,Fx) Q(8,Dmx) Q(8,G7x) TR=3 @37@33o3q99 Q(4,Cx) Q(4,Fx) Q(4,Cx) Q(4,G7x) Q(4,Amx) Q(4,Fx) Q(4,Dmx) Q(4,G7x)} Str MM={l4 V=115 r2-8 c4d e2`c2 bagd efec d2 ed c2a2 defg4. r8dag+ g2 r `c `c4.+8 b4.g+4 aa`c8a4. d4.f+4.g4+1} Function Qz(D){ [Q(D,Cx)]Q(D,Fx) Q(D,Cx) Q(D,G7x) Q(D,Amx) Q(D,Fx) Q(D,Dmx) Q(D,G7x) Q(D,E7x) Q(D,Amx) Q(D,D7x) Q(D,G7x) } Str Main_A={ TR=1 q95M=177@31 MM TR=11 o4 p%555 q95M=177@31 v120 MM TR=2P=96@31 o4 l1 [Cz] Fz Cz G7z Amz Fz Dmz G7z TR=4 P=96q95 @19o6 l1 [Cc] Fc Cc G7c Amc Fc Dmc G7c E7c Amc D7c G7c TR=13P=32 @1 o6 Qz(8) TR=3 @37@33o3q99 Qz(4) [11 TR=10 @17 ['n36n35''n36n38']r-1[8n42,8] TR=100CH=10 [4n49] ] TR=10 [4n36]r-1[8n42,8] [16n38,16]TR=100[n49,1]} Str Fm={TimeKeyFlag(,,-1,-1,0,0,-1,0,0)}Str FM={TimeKeyFlag()} [In] [Main_A] Fm In Main_A FM In Main_A [Fm In FM In] Int _B=12 Include(fadeio.h)r-%(384*_B)FadeoutAll(_B) この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)