サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ロック ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 自動作曲ロック(ポップス?)です。当然インストです(笑)。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.34b) //------------------------------------------------------------------------------ 曲名{"ポポロ"} 作者{"メロン"} /** 自動作曲ロック(ポップス?)です。当然インストです(笑)。 自動なのは、一応、メロディー部分のみです。 ・コンパイルに5秒程度かかります。 ・たまに曲中で「もたり」ます。 ・まれにエラーでコンパイル不能になります。 **/ //------------------------------------------------------------------------------ 音源初期化 Function RS(Array AR,D){ Result= AR(Random(SizeOf(AR))); }Int D; [16CH=(D+1);V(110);D++] Function RS2(Array AR,D){ Str X= AR(Random(SizeOf(AR))); X} Function A2S(Array X){ Int N; Str B[(SizeOf(X)) B = B + X(N); N++;] Result = B;} Function OU3(Str S){ Sub{}Sub{S}>S<}Array SC=({"g},{"a},{"b},{c},{d},{e},{g},{a},{b}); Function Note_UD1(Str Note, Int Mode=0){Int Flg=0; Int N; Array HH2 =({""c},{""d},{""e},{""f},{""g},{""a},{""b},{"c},{"d},{"e},{"f},{"g},{"a},{"b},{c},{d},{e},{f},{g},{a},{b},{`c},{`d},{`e},{`f},{`g},{`a},{`b},{``c},{``d},{``e},{``f},{``g},{``a},{``b},{```c}); For(N=1; N < SizeOf(HH2) - 1; N++){ IF(Note==HH2(N)){ Flg=0; Exit; }Else{ Flg=1; } } If(Flg==1){ Print({"範囲外のノートが渡されました。"}); End; } Result=HH2(N + Mode);} Function Rins(Kazu, UD, Str BaseNote,Odd){Int N; Str RinX; Array Ans; Ans(0)=BaseNote; [(Kazu)IF(Random(100)>Odd){RinX=Note_UD1(BaseNote,UD); BaseNote=RinX; Ans(N+1)=RinX; N++;} Else{RinX = RS({^},{^},{^},{^},{^},{^},{^},{^},{^},{^},{^},{^},{r}); Ans(N+1)=RinX; N++;}] Result=Ans;} Array Y0=(-1,-1,-1,0,1,1,1); Array YY; Array EE; Str Z; [50 EE=Rins(Random(1,6),RandomSelect(-1,1), RS({c},{d},{e},{g}),50); YY=(YY,EE); EE=Rins(Random(15,19),RandomSelect(Y0), RS({f},{g},{a},{b},{`c}),50); YY=(YY,EE); EE=Rins(Random(1,6),RandomSelect(-1,1), RS({b},{`c},{`d},{`e},{`f}),50); YY=(YY,EE);] Array YY2; Array EE2; Str Z2; [50 EE2=Rins( Random(5,8),RandomSelect(Y0), RS({c},{d},{e},{g}),90 ); YY2=(YY2,EE2); EE2=Rins( Random(1,4),RandomSelect(Y0), RS({f},{g},{a},{b},{`c}),90 ); YY2=(YY2,EE2); EE2=Rins( Random(6,8),RandomSelect(-1,1), RS({b},{`c},{`d},{`e},{`f}),90 ); YY2=(YY2,EE2); ] Array YY3; Array EE3; Str Z3; [50 EE3=Rins( Random(1,4),RandomSelect(Y0), RS({c},{d},{e},{g}),90 ); YY3=(YY3,EE3); EE3=Rins( Random(5,8),RandomSelect(Y0), RS({f},{g},{a},{b},{`c}),90 ); YY3=(YY3,EE3); EE3=Rins( Random(7,10),RandomSelect(-1,1), RS({b},{`c},{`d},{`e},{`f}),90 ); YY3=(YY3,EE3); ] Int NN; [(16*4) Z=Z+YY(NN); NN++; ]// NN=0; [(16*4) Z2=Z2+YY2(NN); NN++; ]// NN=0; [(16*4) Z3=Z3+YY3(NN); NN++; ]// //---- TR=2 @33o3 [l8 [4 [8c][8"a]:[8f][8"g] ] [4f][4"g] cdefgb-4. l4 [4 [4f][4e][4"a][4c] ] ] l8 [ [8c][8"a]:[8f][8"g] ] TR=3@80 @31o4q95 l0 [ [4 q50[ceg8] ceg4 ceg8 q90 ceg4. q50["ace8]"ace4 "ace8 q90 "ace4. : q50[fa`c8] fa`c4 fa`c8 q90 fa`c4. q50[r8"g"bdf8] ["g"bdf16]q95"g"bdf4.] fa`c2 "g"bdf2 ceg`c2 aceb-`c2 [4 fa`c1 egb1 "ace1 cegb-1] ] [ q50[ceg8] ceg4 ceg8 q90 ceg4. q50["ace8]"ace4 "ace8 q90 "ace4. q50[fa`c8] fa`c4 fa`c8 q90 fa`c4. q50[r8"g"bdf8] ["g"bdf16]q95"g"bdf4.] TR=10@17[ [4 [3 [n36n38]r-1[8n42,8] ] n49,1 r-1 [n36n38]r-1 [16 l16 RS2({n41},{n45},{n48},{n51},{n59}); l4]] [4 [3 [n36n39]r-1[8n82,8] ] [n36n38]r-1[16 l16 RS2({n41},{n45},{n48},{n78},{n79}); l4] ]] [ [4[n36n38]r-1[8n42,8] ] ] TR=11 P=64+25 @30 o4 OU3(l16 [ [4Z] [Z2][Z3] ] [Z]); TR=12 Function GX(Note=60, L=2, H=-1, D=64){Int T=MML(l);l(D) FOR(Int N=0;N この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)