サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ヒーリング・ニューエイジ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント シンプルなループBGM。 ゆったりと聞いてもらえるとうれしいです。 曲データ(サクラから貼り付けます。) //********************* TW-MUSIC専用。 TrackName={"For"} Copyright={"R*3"} /* ----【 注意 】---------------------------- ■ TW-MUSIC2で聴いてください。 それ以外の音源だと微妙です。 ------------------------------------------ ----【 コメント 】------------------------ ダウンロードありがとうございます。 遊びで作ってみたらそれなりに聞ける曲になったので投稿。 シンプルなループBGMです。ゆったりと聞いてもらえるとうれしいです。 ちなみに、この曲ちょっとした違いながら4種類あります。 下の「Int Music = 1」のところをいじれば4種類とも聞けます。 10/21 R*3 ■ R*3のホームページ : http://rrr3.nobody.jp/ ------------------------------------------ */ Int Music = 1 // 1〜4に変えるといろいろなパターンが聞けます。 お勧めは1と4。 Include(delay.h); Str O={ce}Str X={gb}Str R={d}Str E={f+a} Tempo=180 Tempo=1000 Function GR(_D){ INT _TCH = Channel; INT _CH; IF(_TCH=10){_CH = $00;} Else{IF(_TCH<10){_CH=_TCH;} Else{_CH=_TCH-1;}} _CH=$10+_CH; SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(_CH),$15,(_D)},$F7; } ResetGM;r1 ResetGS;r1 TrackSync Tempo=180 // r-2 GR(0) r2 TR=1 r-2 GR(0) r2 l8 M=20 v80 V=100 q99 If(Music=1){@25 REV=60} If(Music=2){@25 REV=60} If(Music=3){@1 REV=100} If(Music=4){@25 REV=100} [8 Sub{ o5 v-5[2'X'^^^ v-15 'X'^v+10'X'v+10'X' ^v-5'X'^v-10'X'v+5 'X'^v+10'X'^v-5] v+5 } Sub{ o5 [2'O'^^^ ^ ^v+20'O'v-5'O' ^ ^ ^ ^ ^ ^ ^ ^ v-15 ] } o4 [2v+25 c ^^^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ v-25] Sub{ o5 [2'E'^^^ v-15 'E'^v+10'E'v+10'E' ^v-5'E'^v-10'E'v+5 'E'^'E'^v+5] } Sub{ o5 [2'R'^^^ ^ ^v+15'R'v-5'R' ^ ^ ^ ^ ^ ^ ^ ^v-10] } o3 [2v+25 b ^^^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^v-25] ] TR=2 r-2 GR(0) r2 q100 V.W(110,127,!1) If(Music=1){@40 REV=60 } If(Music=2){@40 REV=60} If(Music=3){@35 REV=60} l8 v127 V=127 If(Music=4){@2 REV=60} [8 o3 [2 c ^^^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ]///*EP.T(60,90,!8)*/c^^^ EP=127 o2 [2 b ^^^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ] ] TR=3 r-2 GR(0) r2 If(Music=1){@90 } If(Music=2){@90 } If(Music=3){@94 } l8 v127 l1+1+1+1 EP=120 If(Music=4){EP=0} q100 o4 v30 REV=20 V.W(90,120,!1+1.,115,105,!1.) P.W(40,88,!1,88,400,!1,40,88,!1,88,40,!1,) [8 ' o4 v+10 c> v+5 b v-10>ev+8f+v-13b' ' o3 v+10b> >a> v-10dv+8f+av-8 ' ] /* TR=4 r-2 GR(0) r2 @40 REV=100 l8 v127 o3 [8 b^^^ b^>cd^cd^^^"bc^^"a この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)