サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル アニメ・ゲーム ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント ◆やる気を出したのか何なのか連日の投稿です。 ◆そういえばコミケでMARならぬ「AMR」が出展し(ry ◆オルゴール系の曲です。 ◆んでは聴いてくださいまし。 ◆繰り返し再生対応。 曲データ(サクラから貼り付けます。) 曲名{"good time"} 作者{"MAR"} /* */ /*------------------------------------------------------------------------------------------*/ Function TM(ti){Time(ti:1:0)} TimeSignature(4,4); Function DI(Str W){v_(0) IF(TR==1|TR==3){EP.T(127,40,!2);W} IF(TR==2){EP.T(40,127,!4);>;W;<} EP(127);EP.W(100,128,!32)} Function SHOKI(S1,S2,S3,S3A,S4,S5,S6,S7,S8,S9){ TR=S1;CH=S2;@(S3,S3A);P=S4;REV=S5;CHO=S6;M=S7;V=S8} Function G(STR X){ Int W=Random(8); IF(W==1) { q100'X'^^q40'X' } ELSE{ IF(W==2) { q100'X'^[q40'X'] } ELSE{ IF(W==3) { [q40'X']q100'X'^ } ELSE{ IF(W==4) { q40'X'q100'X'^^ } ELSE{ IF(W==5) { q40'X'q100'X'^q40'X'} ELSE{ IF(W==6) { [4q40'X']} ELSE{ IF(W==7) { p.T(32,64,!16)q100'X'^[q40'X']} ELSE { q100'X'[3q40'X']}}}}}}} } // TR CH @ MSB PAN REV CHO M V SHOKI( 1, 1, 5,000, 40,120, 0, 0,094) EP(127) y66,0 y94,0 y64,127 SHOKI( 2, 2, 5,000, 48,120, 0, 0,086) EP(127) y66,0 y94,0 y64,127 SHOKI( 3, 3, 50,000, 56,120, 0, 0,094) EP(127) y66,0 y94,0 y64,0 SHOKI( 4, 4, 50,000, 64,120, 0, 0,086) EP(127) y66,0 y94,0 y64,0 SHOKI( 5, 5, 5,000, 88,120, 0, 0,094) EP(127) y66,0 y94,0 y64,127 SHOKI( 6, 6, 5,000, 80,120, 0, 0,086) EP(127) y66,0 y94,0 y64,127 Function PA(W,X,Y,Z){Sub{[(W)P(Random(X,Y))r(Z)]};} Function HAM(STR SA){Sub{Key=(MML(Key)+12);SA;Key=(MML(Key)-12)}SA} Function HAM2(STR SA){Sub{Key=(MML(Key)-12);SA;Key=(MML(Key)+12)}SA} Function HAM3(STR SA){Sub{Key=(MML(Key)-12)SA;Key=(MML(Key)+12)}Sub{Key=(MML(Key)+12);SA;Key=(MML(Key)-12)}SA} Function MDL(Str W,Int X,Int Y,Int T){Int Z=MML(v);Sub{[(Y) r(X)Sub{v(MML(v)-T);W}]};v(Z)W} Int FIR={1} /*-----------------------------------------------------------------------------------------*/ TR(10) CH(10) TM(FIR) @17 V(115) REV(70) $a={t(01) 'v_(-40)n38v_(0)n40'}; $b={t(00) n35}; $c={t(00) n42}; $d={t(02) n46}; $f={t(03) v127 n50}; $g={t(02) v127 n48}; $h={t(01) v127 n47}; $i={t(02) v127 n45}; $j={t(01) v127 n43}; $k={t(00) v127 n41}; $x={t(00) n57}; $s={t(01) n49}; v.Random(10) TM(FIR);Rhythm{ } /*Int i = 0;rr FOR(i=81;i<=126;i++){n(i)} */ //Key(1) Str MEL3={ l8;o4;q100 a^^^b^^^ g+^^^a^^^ f+^^^g+^^^ f+^^^e^^^ f+^^^e^^^ d^^^e^^^ f+^^^g+^^^ a^^^g+^^^ a^^^b^^^ a^^^"g+^c+^ a^^^b^^^ g+^^^a^^^ f+^^^g+^^^ f+^^^e^^^ f+^^^e^^^ d^^^e^^^ f+^^^g+^^^ f^^^g+^^^ f+^^^^^^^ e^^^^^^^ d^^^^^^^ c+^^^^^^^ f+^^^^^^^ e^^^^^^^ d^^^^^^^ c+^^^^^^^ d^^^f+^^^ e^^^f+^g+^ a^^^^^^^ b^^^^^^^ } //PlayFrom(27:1:0) TR(5) TM(FIR) v100 t(0) MEL3 TR(6) TM(FIR) v70 t(0) MEL3 Str MEL2={ HAM({ EP(0)l8;o5;q100 [10r1]EP(127) a^^^f+^a^ g+^b^g+^e^ e^^f+e^c+d ^e^f+^g+^a f+^^ef+^af+ e^g+^e^f+^ "b^^^^^f+^ f^^^f+^g+^ c+^e^f+^g+^ e"bef+^e^^ f+^ef+"b^c+^d^e^f+^g+^ ac+ef+^e^f+ e"bef+^e^^ f+^ef+"b^c+^d^e^f+^g+^ a^^^f+^e^ g+^^^e^f+g+ a^^^f+^e^ EP.T(128,60,!1)d^^^e^^^ }) } TR(3) TM(FIR) v80 t(0) MEL2 TR(4) TM(FIR) v70 t(0) MEL2 Str MEL={ l8;Tempo(73);o5; q100 [f+c+f+af+ef+a g+^eag+^e^ b^g+eb^g+^ ac+f+aaeg+"b c+^f+^ag+c+f+ g+^e^c+ef+e: "bef+e"b^e^ d"bg+^`c+^^g+ f+^ef+e^f+^ f+^^^^^^^] "bef+e"b^e^ d^"bdc+^^^ f+g+ac+^`c+^a g+^^e^^^^ def+d^a^g+ f+^ff+g+^^^ f+g+ac+^`c+^a g+^^a^^b^ def+d^a^g+ f+^c+^"b^c+^ d^^^^^"bd c+^^^e^^^ f+^^^^^ef+ g+^^^c+^^^ } TR(1) TM(FIR) v110 t(0) MEL TR(2) TM(FIR) v80 t(0) r64;MEL この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)