サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ポップス ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント あこーすてぃっくぎたー多め。 曲データ(サクラから貼り付けます。) // ============================================================================= Include(delay.h); // ============================================================================= Function DoMain() { Track(00) CH(01); TrackName = {"傍にいてくれる君に気ままなラブソング"} Copyright = {"Music by AK-i(エーケイアイ)"} MetaText = {""} RESET; Tempo(126) TimeSignature = 4,4 KeyFlag-(); GStringo=(4,4,5,5,5,6); Array CD_Em =( 0, 2, 2, 0, 0, 0); Array CD_C =( 3, 3, 5, 5, 5, 3); Array CD_D =( 2, 5, 4, 2, 3, 2); Array CD_D_2 =( 5, 5, 7, 7, 7, 5); Array CD_G =( 3, 5, 5, 4, 3, 3); Array CD_Em_2 =(-1, 2, 2, 4, 5, 3); Array CD_Bm =( 2, 2, 4, 4, 3, 2); Array CD_Am7_2 =( 5, 7, 5, 5, 5, 5); Array CD_BfM7 =( 1, 1, 3, 2, 3, 1); Array CD_Am7 =( 0, 0, 2, 0, 1, 0); Array CD_Gm7 =( 3, 5, 3, 3, 3, 3); Array CD_F =( 1, 3, 3, 2, 1, 1); Track(04); // [MAIN] ======================================================= CH(04); Time(9:1:00); @(83) P(60) V(96) REV(30) CHO(20) M(0) q(98) o6 r4c8d4b8a8b8 a8g8^4r8e4f8 f4e8g8^8f8e8d8 ^2.r4 o6 r4c8d4b8a8b8 a8g8^4r8e4f8 f4e8g8^8f8e8d8 ^2.r4 g4g4b4g8f8 e2.r4 f4f4a4g8f8 e2.d8e8 g4f8g8d4r4 g4f8g8d4r4 f4e8f8g8b8a8a8 ^2.r4 a16a16g16a16^8g8f8e8f8a8 g2f8e8f8g8 e2.r8f8 f8e8d2^8r8 a16a16g16a16^8g8f8e8f8a8 g2f8e8f8g8 e2.r8f8 f8e8d8d2^8^2r2 Track(01); // [GUITER] ===================================================== CH(01); Time(1:1:00); @(01) P(30) V(90) REV(120) CHO(40) q(98) #PP1={ SetStrokeTimeNote( 0, 0, 0, 0, 0, 0); SetStrokeUseString(1,0,0,1,1,1) DoStroke( 2, 0); SetStrokeUseString(0,1,0,1,1,1) DoStroke( 2, 0); }; #PP2={ SetStrokeTimeNote( 0, 0, 0, 0, 0, 0); SetStrokeUseString(1,0,0,1,1,1) DoStroke( 4, 0); SetStrokeUseString(0,0,0,1,1,1) DoStroke( 4, 0); SetStrokeUseString(0,0,1,1,0,1) DoStroke( 4, 0); SetStrokeUseString(0,0,0,1,1,1) DoStroke( 4, 0); }; #PP3={ SetStrokeTimeNote( 0, 0, 0, 0, 0, 0);v63 l4 DoPicking(1) l8 DoPicking(4) DoPicking(3) }; #PP4={ SetStrokeTimeNote( 0, 0, 0, 0, 0, 0); SetStrokeUseString(1,0,0,1,1,1) DoStroke( 4, 0); SetStrokeUseString(0,0,0,1,1,1) DoStroke( 4, 0); SetStrokeUseString(0,0,1,1,0,1) DoStroke( 4, 0); SetStrokeUseString(0,0,0,1,1,1) DoStroke( 2, 0); }; // ********************* SetCord(CD_G); #PP1 SetCord(CD_Bm); #PP1 SetCord(CD_F); #PP1 SetCord(CD_Em); #PP2 SetCord(CD_C); #PP1 SetCord(CD_G); #PP1 SetCord(CD_Am7); #PP1 SetCord(CD_D); #PP2 // ********************* A [ SetCord(CD_G); #PP3 SetCord(CD_Bm); #PP3 SetCord(CD_F); #PP3 SetCord(CD_Em); #PP3 SetCord(CD_C); #PP3 SetCord(CD_G); #PP3 SetCord(CD_Am7); #PP3 SetCord(CD_D); #PP3 ] // ********************* B SetCord(CD_G); #PP1 SetCord(CD_Bm); #PP2 SetCord(CD_F); #PP1 SetCord(CD_Em); #PP2 SetCord(CD_C); #PP1 SetCord(CD_G); #PP2 SetCord(CD_Am7); #PP1 SetCord(CD_D); #PP2 // ********************* C [ SetCord(CD_G); #PP3 SetCord(CD_Bm); #PP3 SetCord(CD_F); #PP3 SetCord(CD_Em); #PP3 SetCord(CD_C); #PP3 SetCord(CD_G); #PP3 SetCord(CD_Am7); #PP3 SetCord(CD_D); #PP3 ] // ********************* SetCord(CD_G); #PP1 SetCord(CD_Bm); #PP2 SetCord(CD_F); #PP1 SetCord(CD_Em); #PP2 SetCord(CD_C); #PP1 SetCord(CD_G); #PP2 SetCord(CD_Am7); #PP1 SetCord(CD_D); #PP4 Track(03); // [GUITER] ===================================================== CH(03); Time(1:1:00); @(26) P(90) CHO(40) q(60) V(71) REV(118) M(112) #CP1={ SetStrokeTimeNote( 0, 2, 4, 6, 8,10); SetStrokeUseString(1,1,1,1,1,1) DoStroke( 4, 0); SetStrokeUseString(0,1,1,1,1,0) DoStroke( 8, 0); SetStrokeUseString(1,1,1,1,0,0) DoStroke( 4, 1); SetStrokeUseString(0,1,1,1,1,0) DoStroke( 8, 1); SetStrokeUseString(0,1,1,1,0,0) DoStroke( 8, 0); SetStrokeUseString(0,0,1,1,1,0) DoStroke( 8, 1); }; #CP2={ SetStrokeTimeNote( 0, 2, 4, 6, 8,10); SetStrokeUseString(1,1,1,1,1,1) DoStroke( 4, 0); SetStrokeUseString(0,1,1,1,1,0) DoStroke( 8, 0); SetStrokeUseString(1,1,1,1,0,0) DoStroke( 4, 1); }; #CP3={ SetStrokeTimeNote( 0, 2, 4, 6, 8,10); SetStrokeUseString(0,1,1,1,1,0) DoStroke( 8, 1); SetStrokeUseString(0,1,1,1,0,0) DoStroke( 8, 0); SetStrokeUseString(0,0,1,1,1,0) DoStroke( 8, 1); }; #CP4={ SetStrokeTimeNote( 0, 2, 4, 6, 8,10); SetStrokeUseString(1,1,1,1,1,1) DoStroke( 4, 0); SetStrokeUseString(1,1,1,1,0,0) DoStroke( 4, 1); }; #CP5={ SetStrokeTimeNote( 0, 2, 4, 6, 8,10); SetStrokeUseString(1,1,1,1,1,0) DoStroke( 4, 0); SetStrokeUseString(1,1,1,1,0,0) DoStroke( 4, 1); }; #CP6_1={ SetStrokeTimeNote( 0, 2, 4, 6, 8,10); SetStrokeUseString(1,1,1,1,1,1) DoStroke(16, 0); SetStrokeUseString(0,1,1,1,1,0) DoStroke(16, 1); SetStrokeUseString(1,1,1,1,0,0) DoStroke(16, 0); SetStrokeUseString(0,1,1,1,1,0) DoStroke(16, 1); r8 SetStrokeUseString(0,1,1,1,0,0) DoStroke(16, 0); SetStrokeUseString(0,0,1,1,1,0) DoStroke(16, 1); r4 SetStrokeUseString(0,1,1,1,0,0) DoStroke( 8, 0); SetStrokeUseString(0,0,1,1,1,0) DoStroke(16, 0); }; #CP6_2={ SetStrokeTimeNote( 0, 2, 4, 6, 8,10); SetStrokeUseString(0,1,1,1,1,1) DoStroke( 4, 1);r16 SetStrokeUseString(1,1,1,1,0,0) DoStroke( 8, 0); SetStrokeUseString(0,1,1,1,1,0) DoStroke(16, 0); SetStrokeUseString(0,1,1,1,1,1) DoStroke( 4, 1);r16 SetStrokeUseString(0,0,1,1,1,0) DoStroke( 4, 0); }; #CP6_3={ SetStrokeTimeNote( 0, 2, 4, 6, 8,10); SetStrokeUseString(0,1,1,1,1,1) DoStroke( 4, 1);r16 SetStrokeUseString(0,1,1,1,1,0) DoStroke( 8, 1); SetStrokeUseString(1,1,1,1,0,0) DoStroke( 8, 0); SetStrokeUseString(0,1,1,1,1,0) DoStroke( 8, 1); SetStrokeUseString(0,1,1,1,0,0) DoStroke( 8, 0); SetStrokeUseString(0,0,1,1,1,0) DoStroke( 8, 1); SetStrokeUseString(0,1,1,1,0,0) DoStroke( 8, 0); }; #CP7={ SetStrokeTimeNote( 0, 2, 4, 6, 8,10); SetStrokeUseString(0,1,1,1,1,1) DoStroke( 8, 0); SetStrokeUseString(1,1,1,1,0,0) DoStroke( 8, 1); SetStrokeUseString(0,1,1,1,1,0) DoStroke( 8, 0); SetStrokeUseString(1,1,1,1,0,0) DoStroke( 8, 1); SetStrokeUseString(0,1,1,1,1,0) DoStroke( 8, 0); SetStrokeUseString(0,1,1,1,0,0) DoStroke( 8, 0); SetStrokeUseString(0,0,1,1,1,0) DoStroke( 8, 0); SetStrokeUseString(0,1,1,1,1,1) DoStroke( 8, 0); }; #CP8={ SetStrokeTimeNote( 0, 2, 4, 6, 8,10); SetStrokeUseString(0,1,1,1,1,1) DoStroke( 8, 0); SetStrokeUseString(1,1,1,1,0,0) DoStroke( 8, 1); SetStrokeUseString(0,1,1,1,1,0) DoStroke( 8, 0); SetStrokeUseString(1,1,1,1,0,0) DoStroke( 8, 1); SetStrokeUseString(0,1,1,1,1,0) DoStroke( 8, 0); SetStrokeUseString(0,1,1,1,0,0) DoStroke( 8, 0); SetStrokeUseString(0,1,1,1,1,1) DoStroke(16, 0); SetStrokeUseString(0,1,1,1,0,0) DoStroke(16, 1); SetStrokeUseString(0,1,1,1,1,1) DoStroke( 8, 0); }; #CP9={ SetStrokeTimeNote( 0, 4, 8,12,16,20); SetStrokeUseString(1,1,1,1,1,1) DoStroke(1, 1); l8 DoPickingDelay(6) l8 DoPickingDelay(5) l8 DoPickingDelay(4) l8 DoPickingDelay(3) r4 SetStrokeUseString(0,1,1,1,0,0) DoStroke(8, 1); q(162) SetStrokeUseString(1,1,1,1,1,1) DoStroke(1, 1); }; SetSoundVolumeNote(98,104,94,97,112,116); q(116); // ********************* SetCord(CD_G); #CP1 SetCord(CD_Bm); #CP1 SetCord(CD_F); #CP1 SetCord(CD_Em); #CP1 SetCord(CD_C); #CP1 SetCord(CD_G); #CP1 SetCord(CD_Am7); #CP1 SetCord(CD_D); #CP1 // ********************* A [ SetCord(CD_G); #CP2 SetCord(CD_Bm); #CP3 SetCord(CD_F); #CP4 SetCord(CD_Em); #CP5 SetCord(CD_C); #CP2 SetCord(CD_G); #CP3 SetCord(CD_Am7); #CP4 SetCord(CD_D); #CP5 ] // ********************* B SetCord(CD_G); #CP1 SetCord(CD_Bm); #CP1 SetCord(CD_F); #CP1 SetCord(CD_Em); #CP1 SetCord(CD_C); #CP1 SetCord(CD_G); #CP1 SetCord(CD_Am7); #CP1 SetCord(CD_D); #CP1 // ********************* C [ SetCord(CD_G); #CP2 SetCord(CD_Bm); #CP3 SetCord(CD_F); #CP4 SetCord(CD_Em); #CP5 SetCord(CD_C); #CP2 SetCord(CD_G); #CP3 SetCord(CD_Am7); #CP4 SetCord(CD_D); #CP5 ] // ********************* SetCord(CD_G); #CP6_1 SetCord(CD_Bm); #CP6_2 SetCord(CD_F); #CP6_1 SetCord(CD_Em); #CP6_2 SetCord(CD_C); #CP6_1 SetCord(CD_G); #CP6_3 SetCord(CD_Am7); #CP7 SetCord(CD_D); #CP8 SetCord(CD_G); #CP9 Track(10); // [Drums] ===================================================== CH(10) Time(1:1:00); @(StandardSet); V(120); $p{n(HandClap),} $b{n(Kick1),} $s{n(Snare1),} $h{n(PedalHiHat),} $k{n(OpenHiHat),} $z{n41,} #BassDr_16A ={Rythm{ v120 b4r4b8b8r4 | v120 b8b8r4r8b8r4 }} #BassDr_16B ={Rythm{ v120 b8b8r4b8b8r4 | v120 b8b8r4r8b8r4 }} #SnarDr_16A ={Rythm{ [v120 r4s4r4s4] }} #SnarDr_16B ={Rythm{ [v120 r4s4r4:s4]s8s8 }} #SnarDr_16C ={Rythm{ [v120 r4s8s8r4s4] }} #SnarDr_16D ={Rythm{ [v120 r4s8s8r4:s4]s8s16s16 }} #SnarDr_16E ={Rythm{ [v120 r4s4r4:s4]s8s16s16 }} #SnarDr_16F ={Rythm{ v120 r1 [4s8]v120[8s16] }} #SnarDr_16G ={Rythm{ v120 r4s8s8r4s4 [4s8]v120[8s16]}} #HiHat__16A ={Rythm{ [[4v120h8v80h16v100h16]]}} #HiHat__16B ={Rythm{ [[2v120h8h8v120k4]]}} [3 Sub{ #HiHat__16A }Sub{ #SnarDr_16B } #BassDr_16A ] Sub{ #HiHat__16A }Sub{ #SnarDr_16E } #BassDr_16A [7 Sub{ #HiHat__16A }Sub{ #SnarDr_16A } #BassDr_16A ] Sub{ #HiHat__16A }Sub{ #SnarDr_16B } #BassDr_16A [3 Sub{ #HiHat__16B }Sub{ #SnarDr_16C } #BassDr_16B ] Sub{ #HiHat__16B }Sub{ #SnarDr_16G } #BassDr_16B [3 Sub{ #HiHat__16A }Sub{ #SnarDr_16B } #BassDr_16A ] Sub{ #HiHat__16A }Sub{ #SnarDr_16E } #BassDr_16A } // ========================================================================== // Array GStringo=(4,4,5,5,5,6); Array GStringh=(4,9,2,7,11,4); Array SpecifiedCord=(0,0,0,0,0,0); Array SystemSoundTimeNote = ( 0, 4, 8,12,16,20); Array SystemSoundUseString = ( 1, 1, 1, 1, 1, 1); Array SystemSoundVolumeNote = (60,60,60,60,60,60); Array EXCEPTION = (); EXCEPTION(0) = ("(EXCEPTION REPORT) >>>>"); EXCEPTION(1) = (" EXCEPTION DoPicking [ 引数に不適切な値 ]"); EXCEPTION(2) = (" EXCEPTION DoStroke [ 引数に不適切な値 ]"); Function SetCord(Array Cord){ SpecifiedCord = Cord; } Function SetSoundVolumeNote(Array SoundVolumeNote){ SystemSoundVolumeNote = SoundVolumeNote; } Function SetStrokeTimeNote(Array SoundTimeNote){ SystemSoundTimeNote = SoundTimeNote; } Function SetStrokeUseString(Array SoundUseString){ SystemSoundUseString = SoundUseString; } Function DoStroke(Int SoundLength,Int Direction){ Int TempVolume = MML(v); Int System = 0; v.onNote(SystemSoundVolumeNote); t.onNote(SystemSoundTimeNote); ' IF(Direction==0){ System++; IF(SystemSoundUseString(0)==1){DoPicking(1);} IF(SystemSoundUseString(1)==1){DoPicking(2);} IF(SystemSoundUseString(2)==1){DoPicking(3);} IF(SystemSoundUseString(3)==1){DoPicking(4);} IF(SystemSoundUseString(4)==1){DoPicking(5);} IF(SystemSoundUseString(5)==1){DoPicking(6);} } IF(Direction==1){ System++; IF(SystemSoundUseString(5)==1){DoPicking(6);} IF(SystemSoundUseString(4)==1){DoPicking(5);} IF(SystemSoundUseString(3)==1){DoPicking(4);} IF(SystemSoundUseString(2)==1){DoPicking(3);} IF(SystemSoundUseString(1)==1){DoPicking(2);} IF(SystemSoundUseString(0)==1){DoPicking(1);} } IF(System==0){ Print(EXCEPTION(0)); Print(EXCEPTION(2) +" -> "+ Direction); } '(SoundLength) t.onNote(0); v.onNote(TempVolume); } Function DoPicking(Int StringNumber){ IF(StringNumber == 0){ Print(EXCEPTION(0)); Print(EXCEPTION(1) +" -> "+ StringNumber); } Int Oct=GStringo(StringNumber-1); Int SysHangar = SpecifiedCord(StringNumber-1) + GStringh(StringNumber-1); IF(SysHangar >= 12){Oct++;} IF(SpecifiedCord(StringNumber-1) == -1){ r; }ELSE{ o(Oct);GetNoteName(SysHangar); } } Function DoPickingDelay(Int StringNumber){ IF(StringNumber == 0){ Print(EXCEPTION(0)); Print(EXCEPTION(1) +" -> "+ StringNumber); } Int Oct=GStringo(StringNumber-1); Int SysHangar = SpecifiedCord(StringNumber-1) + GStringh(StringNumber-1); IF(SysHangar >= 12){Oct++;} IF(SpecifiedCord(StringNumber-1) == -1){ r; }ELSE{ Str ARG = GetNoteNameStr(SysHangar); o(Oct);MidiDelayS(ARG); } } Function GetNoteName(Int FN){ If(FN>=12){FN = FN % 12;} If(FN==0) {c*} If(FN==1) {c+} If(FN==2) {d*} If(FN==3) {d+} If(FN==4) {e*} If(FN==5) {f*} If(FN==6) {f+} If(FN==7) {g*} If(FN==8) {g+} If(FN==9) {a*} If(FN==10){a+} If(FN==11){b*} Result=Returnstr; } Function GetNoteNameStr(Int FN){ If(FN>=12){FN = FN -12;} If(FN==0) {Result="c*";} If(FN==1) {Result="c+";} If(FN==2) {Result="d*";} If(FN==3) {Result="d+";} If(FN==4) {Result="e*";} If(FN==5) {Result="f*";} If(FN==6) {Result="f+";} If(FN==7) {Result="g*";} If(FN==8) {Result="g+";} If(FN==9) {Result="a*";} If(FN==10){Result="a+";} If(FN==11){Result="b*";} } Function RESET(){ System.MeasureShift(1); IF(SoundType==0){ ResetGM; } IF(SoundType==1){ ResetGS; } IF(SoundType==2){ ResetXG; } } // ========================================================================== // DoMain(); この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)