サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ジャズ・フュージョン ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント コンパイルに20〜30秒ぐらいかかります(^^;)。 その間、PCが止まった感じになってしまいます。 DL していただかないと、聴けないかも知れません。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.34b) //------------------------------------------------------------------------------ 曲名{"Run.Run.Run."} 作者{"メロン"} // コンパイルに20〜30秒ぐらいかかります(^^;)。 // その間、PCが止まった感じになってしまいます。 // DL していただかないと、聴けないかも知れません。 //------------------------------------------------------------------------------ 音源初期化 Tempo=140 Int L= 3 ;// Array SS=(0,0,0,0,0,0,99,88,99,119,99,99,99) Array SS2=(0,0,99,88,99,119,99,99,99) Function Z(Array X){Result=RandomSelect(X)}Int N; [16CH=(N+1);V($77);N++]N=0; Function RS(Array AR,D){ Result= AR(Random(SizeOf(AR))); } Array XX Array SC =({"a},{"b},{c},{d},{e},{f},{g},{a},{b},{`c},{`d},{`e},{`f},{`g}); Array SC1=({"a},{"b16c16},{c},{d},{e},{f},{g},{a},{b16a16},{`c},{`d},{`e},{`f},{`g}); Array SC2=({"a"b},{"bc},{cd},{de},{ef},{fg},{ga},{ab},{b`c},{`c`d},{`d`e},{`e`f},{`f`g},{`g`b}); Function SA(Array X){Array SS;Int T1;Int T2;Int T3; 【(SizeOf(X)*SizeOf(X)) T1=Random(SizeOf(X)); T2=Random(SizeOf(X)); SS(0)=X(T1); SS(1)=X(T2); X(T1)=SS(1); X(T2)=SS(0);】 Result=X;} Function FF(UD,Array A){Int N; Str X; Int I=Random(3,SizeOf(A)-3); [4 X=X+A(I+UD*N);N++;Result=X;] } Str X1;Str X2;Str X3;Str X4;Str X5;Str X6;Str X7;Str X8; Str Y1;Str Y2;Str Y3;Str Y4;Str Y5;Str Y6;Str Y7;Str Y8; [2 X1=X1+RS(SC1);] [2 X2=X2+RS(SC1);] [2 X3=X3+RS(SC1);] [2 X4=X4+RS(SC1);] [2 X5=X5+RS(SC1);] [2 X6=X6+RS(SC1);] [2 X7=X7+RS(SC1);] [2 X8=X8+RS(SC1);] Y1=Y1+RS(SC2); Y2=Y2+RS(SC2); Y3=Y3+RS(SC2); Y4=Y4+RS(SC2); Str Q1;Str Q2;Str Q3;Str Q4; [4 Q1=Q1+FF(Z(-1,1),SC)] [4 Q2=Q2+FF(Z(-1,1),SC)] [4 Q3=Q3+FF(Z(-1,1),SC)] [4 Q4=Q4+FF(Z(-1,1),SC)] TR=1 q95 [(L)v100 M=50 @67 l8 [rdadeba+ba4.f8+2 rb`caffef16 d16+1 >[red+ed:ar4]arf16e16f1 [r drdcda] r4 r4+16 v-20 @12M=0 l16 [de-fgab^a]`d1 [3r1] r2+16+8 v+20< //// [2 @67 v.N(SA(SS2),SA(SS2),SA(SS2),SA(SS2),SA(SS2)) l16 Q1 v.N(SA(SS),SA(SS),SA(SS),SA(SS),SA(SS)) l8 X1 v.N(SA(SS),SA(SS),SA(SS),SA(SS),SA(SS)) l8 X2 v.N(SA(SS),SA(SS),SA(SS),SA(SS),SA(SS)) l8 X3 v.N(SA(SS),SA(SS),SA(SS),SA(SS),SA(SS)) l8 X4 v.N(SA(SS2),SA(SS2),SA(SS2),SA(SS2),SA(SS2)) l16 Q2 v.N(SA(SS),SA(SS),SA(SS),SA(SS),SA(SS)) l8 X5 v.N(SA(SS),SA(SS),SA(SS),SA(SS),SA(SS)) l8 X6 v.N(SA(SS),SA(SS),SA(SS),SA(SS),SA(SS)) l8 X7 v.N(SA(SS),SA(SS),SA(SS),SA(SS),SA(SS)) l8 X8 v.N(SA(SS2),SA(SS2),SA(SS2),SA(SS2),SA(SS2)) l16 Q3 v.N(SA(SS2),SA(SS2),SA(SS2),SA(SS2),SA(SS2)) l16 Q4 ] //// ] TR=2 P=64-30 o3@33 [(L)q80 l4 [5 dafg aefg a>cde bafd abfb<]dddd l16q65v+20[6 drd"a drda rfrf cdra]v-20 [12r1] ] TR=3 [(L) o4 q95 @25 @17 P=64+30P.N(0,64-25,64+25,127) l8 [26 [dfa`d]] o5 [6 d 'dfg'4 'dfg'8 f'da`d'4 'da`d'8] [12 [dfa`d]] ] TR=10 [(L) [29 [n36n37]r-1[8n42,8] ] [3 [n36n37]r-1[8n42,8] ] [12 [n36n37]r-1[8n42,8] ] ] Array X0; [32 X0(N)=0; N++] Array XA1 =(46,37, 41,45,48,41,45,48, 49,51,53,57,59,69,82,X0,X0,X0,X0); Array XA2 =(46,37, 41,45,48,41,45,48, 49,51,53,57,59,69,82,X0,X0); TR=100 CH=10 Function QQQ(Array X){ Str AA; [16 AA=AA+{n(} +#STR( Z(X)) +{),16}] AA } [(L) [7 [3r1] QQQ(XA1) r-1 QQQ(XA1) r-1 QQQ(XA1)] [4 QQQ(XA2) r-1 QQQ(XA2) r-1 QQQ(XA2) r-1 QQQ(XA2)] [3 [3r1] QQQ(XA1) r-1 QQQ(XA1) r-1 QQQ(XA1)] ] //////////------- TR=11q95 [(L)v100 t9 M=50 @49 l8 [rdadeba+ba4.f8+2 rb`caffef16 d16+1 >[red+ed:ar4]arf16e16f1 [r drdcda] r2+16 t-9 v-20 v0 @12M=0 l16 [de-fgab^a]`d1 [3r1] r2+16+8 < //// t4 [2 @67 v.N(SA(SS2),SA(SS2),SA(SS2),SA(SS2),SA(SS2)) l16 Q1 v.N(SA(SS),SA(SS),SA(SS),SA(SS),SA(SS)) l8 X1 v.N(SA(SS),SA(SS),SA(SS),SA(SS),SA(SS)) l8 X2 v.N(SA(SS),SA(SS),SA(SS),SA(SS),SA(SS)) l8 X3 v.N(SA(SS),SA(SS),SA(SS),SA(SS),SA(SS)) l8 X4 v.N(SA(SS2),SA(SS2),SA(SS2),SA(SS2),SA(SS2)) l16 Q2 v.N(SA(SS),SA(SS),SA(SS),SA(SS),SA(SS)) l8 X5 v.N(SA(SS),SA(SS),SA(SS),SA(SS),SA(SS)) l8 X6 v.N(SA(SS),SA(SS),SA(SS),SA(SS),SA(SS)) l8 X7 v.N(SA(SS),SA(SS),SA(SS),SA(SS),SA(SS)) l8 X8 v.N(SA(SS2),SA(SS2),SA(SS2),SA(SS2),SA(SS2)) l16 Q3 v.N(SA(SS2),SA(SS2),SA(SS2),SA(SS2),SA(SS2)) l16 Q4 ] t-4 //// ] TR=44CH=10 Int M2= 32 ; // Int B= 8 ; // Str Xa={n(Z(36,38,42,46,X0))} [(L) r16l(B)[(M2)[(B)Xa r-(B)Xa]] [12r1] r-16 ] Include(fadeio.h);Time(Time-TimeBase*4*10)FadeoutAll(10) この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)