サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル アニメ・ゲーム ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント どうも。前回と同じ時期に作った曲でしたが投下し忘れてたものです。暖かな気持ちになるようなBGMを目指しました。…ですけどソースがこんなぐちゃぐちゃだと、曲がどんなに良くても気持ちよく聴けない様な気が^^; 曲データ(サクラから貼り付けます。) TrackName={"----------COLORFUL!----------"}Copyright={"∴ab"}MetaText={""}INT KEY=0Key(KEY) Tempo(145)Include(chord.h);Include(bend.h)Time(1:1:0)Include(gs.h);TimeSignature=4,4;System.MeasureShift = 1;ResetGM; r2 ResetGS; r2TrackSync; FUNCTION HT(AA,AB,AC,AD,AG,AH,AI,AJ,AK,AL){TR=AA;CH=AB;@=AC;V=AD;q=(AG);REV=(AH);CHO=AI;M=AJ;P=AK;} Str Rdm={v.Random(10);q.Random(15);t.Random(2);} Str Pn={r64 y64,127 r-64};Str Pf={r-64 y64,0 r64};Str Pp={Pf;Pn;} Function TR1V(Int Vol){TR 1 V(Vol); TR 2 V(Vol);} Function TR1(Str X){TR 1 Rdm; P 0 BR 12 p%0 FineTune(64); UseKeyShift(on); X;TR 2 Rdm; P 127 BR 12 p%0 FineTune(68); UseKeyShift(on); X;} Function TR2V(Int Vol){TR 3 V(Vol); TR 4 V(Vol);} Function TR2(Str X){TR 3 Rdm; P 0 BR 12 p%0 FineTune(64);UseKeyShift(on); X; TR 4 Rdm; P 127 BR 12 p%0 FineTune(68); UseKeyShift(on); X;} Function TR3V(Int Vol){TR 5 V(Vol); TR 6 V(Vol);} Function TR3(Str X){TR 5 Rdm; P 0 BR 12 p%0 FineTune(64);UseKeyShift(on);X TR 6 Rdm; P 127 BR 12 p%0 FineTune(68);UseKeyShift(on); X} Function TR4V(Int Vol){TR 11 V(Vol); TR 12 V(Vol);} Function TR4(Str X){TR 11 Rdm; P 0 BR 12 p%0 FineTune(64);UseKeyShift(on); X TR 12Rdm; P 127 BR 12 p% 0 FineTune(68);UseKeyShift(on); X} Int TR5R = 16;Function TR5V(Int Vol){TR 7 V(Vol); TR 8 V(Vol-20); TR 9 V(Vol-40);} Function TR5(Str X){TR 7 Rdm; P 64 BR 12 p%0 FineTune(64);UseKeyShift(on); X TR 8 Rdm; P 127 BR 12 p%0 FineTune(68);UseKeyShift(on); r(TR5R) X TR 9 Rdm; P 0 BR 12 p%0 FineTune(60);UseKeyShift(on); r(TR5R/2) X} Int TR6R = 4;Function TR6V(Int Vol){TR 13 V(Vol); TR 14 V(Vol-20); TR 15 V(Vol-40);} Function TR6(Str X){TR 13 Rdm; P 64 BR 12 p%0 FineTune(64);UseKeyShift(on); X TR 14 Rdm; P 127 BR 12 p%0 FineTune(68);UseKeyShift(on); r(TR6R) X TR 15 Rdm; P 0 BR 12 p%0 FineTune(60);UseKeyShift(on); r(TR6R/2) X} STR MR0={Key(0)v(100)@(11)EP.W(127,0,!1+1)[cfag^fefcegf^^^r"adfe^d^c^^^^^^rr:cfag^fefd^ef^^rl16fga^^^d^^^a^^g^^f^g^^^^^^^^^^^^^rrl8]cfag^aa#`c`dagf^^rl16gaa#^^g^^a#^`d^^`c^^a#^l8`c^^^^^^^^^^^r`d`ca#} STR MR1={Key(0)@(50)EP.W(127,80,!1+1)v(60)[8r1]'"gceg'1+1'dfa`d'1+1'"a#dfa#'1'ceg`c'1'fa#`c`f'1'fa`c`f'1} // TR CH @ V q REV CHO M P // HT(001,001,011,110,099,050,050,030,064)EP.W(127,0,!1+1+2)ll8TR1(V(110)l8>[MR0;MR1]) STR RM0={EP.W(127,0,!1+1+1)@(81)v(90)Key(0)q(77)l16[r1r1r1l16rrBR=10p.T(0,64,!16)'cg'r'cg'^^^'cg'r'cg'^^^'cg'rr1r1r1p.T(0,64,!32)['ga#'r]rr:'`cg'^^^^^^^^^q(99)]'`cg'^^^^^^^^^^^^^^^^^^^rrrrrrl8} STR RM1={EP.W(127,0,!1+1+1+1+1)@(72)v(100)Key(0)aaffddfa^affddfe^^^^refg^^^^rfecd^^^l16d^^e^^f^l8g^^^l16a#^^a^^g^l8g^^a^^^^^^rra#^^^g^^^^^^^^^^^l16a#^^a^^g^l8a^^^^^^^`e^^^[l16`f^^`e^^`c^l8`d^^^]l16`g^^`f^^`e^l8`f^^^^^^^^^^^^^^^} HT(004,004,072,110,099,040,050,050,064)l8TR2(V(110)[RM0;RM1]) STR BS0={Key(5)@(34)l8[4c^^^^c^c:"g^^^^"g^"g"f^^^^"f^"f"g^^^^"g^"g]d^^f^^f^;} STR BS1={Key(0)l8[d^df^`df:`d]c^^ce^`ce`cc^ce^`ce`c;"a#^"a#d^a#da#c^ce^`ce`c[f^fa^`fa`f]["g^"gc^gcg]["a^"ad^ada]"a#^"a#f^a#fa#;c^ce^`ce`cf^fa#^`fa#`ff^^^^^^^} HT(007,007,006,127,080,010,050,020,064)v(127)l8TR3(v(127)@(6)<<[BS0;BS1]) STR PN0={Key(5)v(100)l8@(1)[4'ceg'^c'ceg'^^'ceg'c:'"g"bd'^"g'"g"bd'^^'"g"bd'"g'"f"ac'^"f'"f"ac'^^'"f"ac'"f'"g"bd'^"g'"g"bd'^^'"g"bd'"g]'dfa'^e'fa`c'^^'fa`c'f;'a#`d`f'^a#'a#`d`f'^^'a#`d`f'a#;'`c`e`g'^`c'`c`e`g'^^'`c`e`g'`c;'`c`e`g'^^^^^^^} STR PN1={Key(0)<[ペダルdfa`d^af"a放す]放すペダル["gceg^ec"e]放すペダル"a#dfa#^fd"f放すペダルceg`c^ge"g放す[ペダルfa`c`f^`cac放す]["gceg^ec"e][ペダル"adfa^fd"f放す]ペダル"a#dfa#^fd"f放すペダルceg`c^ge"g放すペダル"f"a#cf^a#fc放すペダル"f^^^放すrrrr>} HT(011,011,005,070,099,025,050,020,032)TR4(l8@(5)V(70)[PN0;PN1]) Function Cd(Str X){Str Nn={'c,,50,0e,,60,1g,,70,2`c,,80,3`e,,90,4'};Nn=Nn+X;Nn;}Function Cu(Str X){Str Nn={'`e,,80,0`c,,70,1g,,60,2e,,50,3c,,40,4'};Nn=Nn+X;Nn;} Function Emd(Str X){Str Nn={'"e,,40,0"b,,50,0e,,60,1g,,70,2b,,80,3`e,,90,4'};Nn=Nn+X;Nn;}Function Emu(Str X){Str Nn={'`e,,80,0b,,70,1g,,60,2e,,50,3"b,,40,4"e,,30,5'};Nn=Nn+X;Nn;} Function ASd(Str X){Str Nn={'"a#,,50,0d,,60,1f,,70,2a#,,80,3`d,,90,4'};Nn=Nn+X;;Nn}Function ASu(Str X){Str Nn={'`d,,50,0a#,,60,1f,,70,2d,,80,3"a#,,90,4'};Nn=Nn+X;Nn;} Function ASnd(Str X){Str Nn={'"a#,,50,0c,,60,1f,,70,2a#,,80,3`c,,90,4'};Nn=Nn+X;Nn;}Function ASnu(Str X){Str Nn={'`c,,50,0a#,,60,1f,,70,2c,,80,3"a#,,90,4'};Nn=Nn+X;Nn;} Function Gd(Str X){Str Nn={'"g,,40,0"b,,50,1d,,60,2g,,70,3b,,80,4`g,,90,5'};Nn=Nn+X;Nn;}Function Gu(Str X){Str Nn={'`g,,80,0b,,70,1g,,60,2d,,50,3"b,,40,4"g,,30,5'};Nn=Nn+X;Nn;} Function Fd(Str X){Str Nn={'"f,,40,0c,,50,1f,,60,2a,,70,3`c,,80,4`f,,90,5'};Nn=Nn+X;Nn;}Function Fu(Str X){Str Nn={'`f,,80,0`c,,70,1a,,60,2f,,50,3c,,40,4"f,,30,5'};Nn=Nn+X;Nn;} Function F2d(Str X){Str Nn={'f,,60,0a,,70,1`c,,80,2`f,,90,3'};Nn=Nn+X;Nn;}Function F2u(Str X){Str Nn={'`f,,80,0`c,,70,1a,,60,2f,,50,3'};Nn=Nn+X;Nn;} Function Dmd(Str X){Str Nn={'d,,60,0f,,70,1a,,80,2`d,,90,3'};Nn=Nn+X;Nn;}Function Dmu(Str X){Str Nn={'`d,,60,0a,,70,1f,,80,2d,,90,3'};Nn=Nn+X;Nn;} STR GT0={Key(5)[4ペダル[Cd(4)]c8;Cd(4)Cu(8)放す:ペダル[Gd(4)]"g8;Gd(4)Gu(8)放すペダル[Fd(4)]"f8;Fd(4)Fu(8)放すペダル[Gd(4)]"g8;Gd(4)Gu(8)放す]ペダルDmd(4)放すペダルEmu(8)放すペダルFd(4)Fu(8)Fd(8)Fu(8)放すペダル;ペダル[ASd(4)]"a#8;ASd(4)ASu(8)放す;[ペダル[Cd(4)]:c8;Cd(4)Cu(8)放す]r2放す} STR GT1={Key(0)[ペダル[v(127)Dmd(4)v(50)Dmu(8)]v(127)Dmd(8)v(50)Dmu(8)放す];;[[ペダルv(127)Cd(4)v(50)Cu(8)]v(127)Cd(8)v(50)Cu(8)放す];;[ペダルv(127)ASd(4)v(50)ASu(8)]v(127)ASd(8)v(50)ASu(8)放す[ペダルv(127)Cd(4)v(50)Cu(8)]v(127)Cd(8)v(50)Cu(8)放す;;[[ペダルv(127)F2d(4)v(50)F2u(8)]v(127)F2d(8)v(50)F2u(8)放す] [[ペダルv(127)Cd(4)v(50)Cu(8)]v(127)Cd(8)v(50)Cu(8)放す][[ペダルv(127)Dmd(4)v(50)Dmu(8)]v(127)Dmd(8)v(50)Dmu(8)放す][ペダルv(127)ASd(4)v(50)ASu(8)]v(127)ASd(8)v(50)ASu(8)放す;;[ペダルv(127)Cd(4)v(50)Cu(8)]v(127)Cd(8)v(50)Cu(8)放す;;[ペダルv(127)ASnd(4)v(50)ASnu(8)]v(127)ASnd(8)v(50)ASnu(8)放す;;<ペダルv(127)F2d(1)>} HT(013,013,025,117,080,060,050,040,096)v(127)<[GT0;GT1] STR NU0={[[7r1]:@(126,7)BR(100)p(127)EP.T(80,110,!1+1)'cc#'1]@(126,7)BR(100)p(127)EP.T(80,90,!1+1)'cc#'1+1} STR NU1={[15r1]@(126,7)BR(100)p(127)EP.T(80,90,!1+1)'cc#'1} HT(008,008,120,100,099,040,050,020,064)v(127)[NU0;NU1;] $d{n(Kick2),}$f{n(Kick1),}$t{n38}$s{n(ClosedHiHat),}$i{n(PedalHiHat),}$n{n(OpenHiHat),}$q{n(CrashCymbal1),}$w{n(CrashCymbal2),} STR DR0={Rhythm{{[[4drrrtrdrrr:frtrrr]drtrtr;[4drrrtrdrrr:frtrrr]trtrtt][4trdr]}{[8[13sr]nr[sr]][4nrsr]}l1[qrrrwrrr]q2w2l16}} STR DR1={Rhythm{{[8drdrtrdrrr:frtrdr]trtrtt;[7drdrtrdrrr:frtrdr]trtrtttrrrrrrrrrtrtrtt}{[7[13sr]nr[sr]][8sr]nrrrrrrrsrsrsrsr}l1[qrrrwr:rr]qwl16}} HT(010,010,012,127,080,060,050,000,064)l16[DR0;DR1;] この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)