サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル アニメ・ゲーム ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 作ったのに投稿してなかった物が又発見…。壮大な感じを出そうと思って作ったら微妙な完成度になっちゃってたので、今少しだけ手加えて投稿します。あまり作ったことの無い雰囲気ですが何気にうまくいきました。 曲データ(サクラから貼り付けます。) TrackName={"----------大空----------"}Copyright={"∴ab"}MetaText={""}INT KEY=0Key(KEY) Tempo(110)Time(1:1:0)Include(gs.h);TimeSignature=4,3;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 MRI={} STR MR0={[l64"a"a#^^^^^^^^^^^^^^l8d#^a#^g#gfd#f^:"a#^^^^^^^^^rr]a#^^^^^^^rra#`c} STR MR1={SUB{l8ペダル"c#"f"g#c#"g#"f放すペダル"d#"g"a#d#"a#"g放すペダル"c"d#"gc"g"d#放すペダル"f"a#c#fc#"a#放すペダル"c#"f"g#c#"g#"f放すペダル"d#"g"a#d#"a#"g放すペダル"f"g#cfg#`c`f^^^^^放す}`c#^a#^`c#^`c^^^^r`c^g#^`c^a#^^ra#`c`c#^a#^`c#^`c^a#^g#^a#^^^^^^^^^^r} STR MR2={SUB{l8ペダル"c#"f"g#c#"g#"f放すペダル"d#"g"a#d#"a#"g放すペダル"c"d#"gc"g"d#放すペダル"f"a#c#fc#"a#放すペダル"c#"f"g#c#"g#"f放すペダル"d#"g"a#d#"a#"g放すペダル/*"f"g#cfg#`c`f^^^^^*/"f"a#cfa#`c'`f"acf'^^^^^放す}`c#^a#^`c#^`c^^^^r`c^g#^`c^a#^^ra#`c`c#^a#^`c#^`c^a#^g#^a#^^^^^^^^^^r} // TR CH @ V q REV CHO M P // HT(001,001,001,100,090,020,050,050,064)l8TR3([MRI;MR0:MR1]MR2) STR STI={l8[8rrrrrr]} STR BS0={V(80)l8@(40)q(99)<<["a#^^^^^"g#^^^^^"g^^^^^"f^^^^^]>>} STR BS1={V(80)l8@(40)q(99)<<[6c#][6d#][6c][6f][6c#][6d#][6f]f^^^^^>>} // TR CH @ V q REV CHO M P // HT(016,016,040,080,099,030,050,020,064)l8TR2([STI;BS0;BS1]) STR ST0={V(50)['"a#ga#'^^^^^'"g#g#d#'^^^^^'"gd#g'^^^^^'"fdf'^^^^^]} STR ST1={V(45)['c#fg#`c#'^^^^^'d#ga#`d#'^^^^^:/*'cd#g`c'*/'d#`d#cg'^^^^^'fa#`c`f'^^^^^]TempoChange(110,70,!4+4+4)'fa#c`f'^^^^^/*'fg#`c`f'*/'fa"ac`f'^^^^^} HT(015,015,050,050,099,030,050,020,027)l8TR1(@(50)l8q(99)[4STI]ST0;ST1) この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)