サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント heu 曲データ(サクラから貼り付けます。) Int OR =0 // [没化理由] 細かいことがわからず音割れまくった / 面倒くさくなった [ 説明 ] ロック×サイバー×レゲエ という欲張りなドラムンで 今までのドラムンよりはカッコイイと思います。和音ほぼゼロだけど(ぁ あんまりドラムパターンは変えないほうが良いですね、、 2.曲名未定 [ジャンル] ハウス [没化理由] 「卒業式に流れたら嫌なカノン」の製作に力が入りほったらかし [ 説明 ] 普通にハウス作ろうと思ってエレクトロな音を抜いてみた曲。 いまいち盛り上がりに欠ける( と、思う)。 3.曲名未定 [ジャンル] ミニマル [没化理由] 不明(恐らく風化) [ 説明 ] 影が薄いミニマル。半年くらい前のデータなので、 まだしょぼい頃ですね。 Westからのお願い 法律をはみ出るような利用はしないでください。 それと誰か腕の利く人続きつくってぇぇぇぇ ********************************************************* */ IF(OR==0){ //------------------------------------------------------ Int Ps=1 // 曲番号を入力すべし //------------------------------------------------------ IF(Ps==1) { // 1 Include(gs.h)ResetGS;Include(delay.h)INT RNS=2INT SET=-(RNS)INT R=0System.MeasureShift=2System.vMax=150 TrackName={"Collision"}Copyright={"West"}MetaText{"*PR* Myblog→ " katasumi_7019@yahoo,co,jp " *Access here!*} //------------------------------------------------------------------------------------------------- Tempo=183FUNCTION XE(tx){Time(tx:1:0)}FUNCTION MP(STR X){Sub{>X<}X}FUNCTION MM(STR Y){Sub{}Y} FUNCTION MB(STR Z){Sub{>Z<}Sub{}Z}FUNCTION DP(PN){XE=-2GS_RHYTHM(PN)r8}TR=9DP=1TR=10DP=2TR=11DP=1 FUNCTION LAC(TCn,Vn,Qn,Pn,Mn,Vo1,Vo2,On){TR=TCn;CH=TCn;XE=0l16v(Vn)q(Qn)P=Pn;M(Mn*10)@(Vo1,Vo2,0)o(On)p64} //B(TC, v , q , P , M, @ ,V2, o)M/C(TC, v , q , P , M, @ ,V2, o)SYN(TC, v , q , P , M, @ ,V2, o) LAC(01,110,080,000,00,040,00,03)LAC(03,110,100,000,00,031,08,05)LAC(06,090,090,000,00,082,00,04) LAC(02,110,080,000,00,035,00,03)LAC(04,110,100,000,00,031,00,04)LAC(07,100,090,000,00,082,02,04) /*Z(00,000,000,000,00,000,00Z)*/LAC(05,110,100,000,00,030,00,04)LAC(08,090,090,000,00,081,01,04) //D(TC, v , q , P , M, @ ,V2, o)MSE(TC, v , q , P , M, @ ,V2, o)/SE(TC, v , q , P , M, @ ,V2, o) LAC(09,127,080,000,00,025,00,03)LAC(12,110,080,000,00,125,00,07)LAC(15,110,080,000,00,039,09,05) LAC(10,127,080,000,00,026,00,03)LAC(13,110,080,000,00,008,00,05)LAC(16,110,080,000,00,039,09,03) LAC(11,060,080,000,00,026,00,03)LAC(14,110,080,000,00,115,00,05)FUNCTION PL(T,STR T1, STR T2,STR T3,STR T4,STR T5,STR T6,STR T7,STR T8,STR T9,STR T10,STR T11,STR T12,STR T13,STR T14, STR T15,STR T16){STR I={XE=T+RNS+R}TR=01I;T1;TR=02I;T2;TR=03I;T3;TR=04I;T4;TR=05I;T5;TR=06I;T6;TR=07I;T7 TR=08I;T8;TR=09I;T9;TR=10I;T10;TR=11I;T11;TR=12I;T12;TR=13I;T13;TR=14I;T14;TR=15I;T15;TR=16I;T16} //BASS--------------------------------------------------------------------------------------------- STR VC1={l8MM({[[a^aa^aa^]g#^g#g^gf#^f#^f#f^fe^a^aa^aa^g#^g#g#^g#g#^g^gg^gg^f#^f#f#^f#f#^]})} STR VC2={l8MM({[f^^f^^^^g^^g^^^^a^^a^^^^a#^^a#^^^^b^^b^^b^e^e^e^e^d^dc#^c#c^d^c#^c^^^]})} STR VC3={l4MM({[a^^aa^a^g^^gg^g^b^^bd^d^c^^c^^c^]})}STR VC4={} //MELO--------------------------------------------------------------------------------------------- STR MD1={[t-2l8q100MM({d^d^&fdfd&f^f^&g^&a^d^d^&fdfd&g^g^&f^^^})[4r1]]}STR MD2={l8[[4r1]MM({d^df^^f^ e1})[r1]]}STR MD3={l8[p.W(0,64,!32)a^aa^aa^^^^^^^a#a#a^^a^^a^g#^^^^^^^[4r1]]}STR MD4={} //SYNTH-------------------------------------------------------------------------------------------- STR SY1={[l8q100[4r1]MP({g^gf#rf#rf#f#^f#frfrff^fereree^ed#^^^^})]}STR SY2={[l4MP({df^^dg^^da^^da#^^}) [r1]>>l8S{}MM({d^dc#^c#c^^1})<<]}STR SY3={l8[[4r1][b^&`b^][a#^&`a#^][a^&`a^][g#^&`g#^]]} STR SY4={} //KICK&SNARE--------------------------------------------------------------------------------------- STR BD={BR=8p50'n27n32n35n36'}STR SD={BR=8p127'n27n28n32n35n36n37n40'}STR CD={'n27n35n36n57'} STR BD1={BD;rrr}STR BD2={BD;r}STR BD3={rrBD;r}STR SD1={SD;rrr}STR SD2={SD;r}STR CD1={CD;rrr} STR DR0={CD1;SD1;BD3;SD1}STR DR1={BD1;SD1;BD3;SD1}STR DR2={BD1;SD1[BD2]SD1}STR DR3={BD1;SD;rrBD[BD2]SD1} STR DR4={BD1;SD1;rrSD1;rr}STR DR5={[BD1;SD1]}STR DR6={r4BD1;BD3;SD1}STR DR7={BD1;SD1;BD;SD;BD2;SD;BD2;SD} STR DR8={r2^4SD1}STR DR9={BD1;SD1;BD3;rrSD;r}STR DRA={BD1;SD;r[BD1]SD;r}STR DRB={/*0-8*/[8r1][16BD1] [16BD2][27BD]rSD1}STR DRC={BD1;r4SD1;r4}STR DRD={[3BD2:r][3SD2:BD]}STR DRE={[3SD2:r]SD1;BD1}STR DRF={ l8BD2[5SD2:r]l16/*2*/}STR DRG={/*0-8*/[8r1][16SD1][16SD2][26SD]BD;rSD1} STR BS0={V=127[8DR9:DRA]DR7}STR BS1={S{DRB}[14DR5]}STR BS2={DR0[14DR1]DR3}STR BS3={[4[DRC:DRD]DRE]} STR BS4={S{DRB}BS2}STR BS5={[DR4][13DR3]DR7}STR BS6={[[4DR5][4DR4]]}STR BS7={[8DRF]}STR BS8={S{DRG}[14DR5]} //HIHAT-------------------------------------------------------------------------------------------- STR X={n42n44}STR XA={'n51n55X'}STR XB={'n38n51n55X'}STR XC={'n51n53n55n57X'}STR XC1={V=127[XC;rXA;rXB r[5XA]rXB;rXA;r[7XA;rXA;rXB;r[5XA]rXB;rXA;r]]}STR XC2={S{l4[[15r]n58]}l8[4[13XA;r][3XA]rXA;r]l16} //PER---------------------------------------------------------------------------------------------- STR BW1={[16[4n82n69]rr[3n82n69]]}STR BW2={l8[128n82]l16v60} //TR=12-------------------------------------------------------------------------------------------- STR GT1={@125;l8q100P.onCycle(!8,0,0,0,0,127,64,0,64)V.W(70,127,!8)Sub{[4<<<>>>]} MM({>[4r1^1"a^^"g^^"c^"e1]<})}STR GT2={@73l8REV=127[14r1]} //TR=13-14----------------------------------------------------------------------------------------- STR VX1={l4q60[4[4t0'"aea`c'][4t0'"gegb']]} //TR=15-------------------------------------------------------------------------------------------- STR FR1={@81q100l1BR=10[4p.T(127,30,!1^1)MM({'be'^rr})]p64}STR FR2={@114l8BR=20[14r1]p.T(127,0,!1)grg ggrgrgrgrgrgr}STR FR3={@125l16BR=30[8p.T(127,0,!4)'"a"e'4]} //TR=16-------------------------------------------------------------------------------------------- STR CY1={@126,8BR=30l1q100p.T(0,120,!8)'cde'p64V=110@128,3MP({'"c`c'2^4})r4}STR CY2={V=110@81,1l1 BR=10q100p.T(0,126,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)'ae'^^^^^^^^^^^^^^^}STR CY3={[@128,3l4MP({rr'"c`c'^ rr'"d`d'^rr'"e`e'^rr'"g`g'^})[4r1]]}STR CY4={@128,3l2MP({[4[4r'a`a'][4r'g`g']]})} //(TIME, TR1, TR2, TR3, TR4, TR5, TR6, TR7, TR8,KcSn,HiHt,Perc,TR12,TR13,TR14,TR15,TR16) PL( SET, , , , , , , , , BS0, XC1, BW1, GT1, , , FR1, )//Intro PL( 014, , , , , , , , , BS1, XC1, BW1, GT1, , , FR1, ) PL( 030, , , , , , , , , , , , , , , , CY1) PL( 032, , , , , , , , , BS3, XC2, BW2, GT2, VX1, VX1, FR2, )//Ragga PL( 048, , , , , , , , , BS4, XC2, BW2, GT2, VX1, VX1, FR3, CY2) PL( 064, VC1, VC1, MD1, MD1, MD1, SY1, SY1, SY1, BS2, XC1, BW1, , , , , )//Pat1 PL( 080, VC1, VC1, MD1, MD1, MD1, SY1, SY1, SY1, BS5, XC1, BW1, , , , FR3, ) PL( 096, VC2, VC2, MD2, MD2, MD2, SY2, SY2, SY2, BS6, XC1, BW1, , , , , CY3)//Pat2 PL( 112, VC2, VC2, MD2, MD2, MD2, SY2, SY2, SY2, BS6, XC1, BW1, , , , FR3, CY3) PL( 128, VC3, VC3, MD3, MD3, MD3, SY3, SY3, SY3, BS2, XC1, BW1, , , , FR3, )//Pat3 PL( 144, VC3, VC3, MD3, MD3, MD3, SY3, SY3, SY3, BS5, XC1, BW1, , VX1, , FR3, ) PL( 160, , , , , , , , , BS6, XC1, BW1, GT1, , , FR1, )//Pat4 PL( 176, , , , , , , , , BS7, XC1, BW1, GT1, VX1, , , CY3) PL( 192, , , , , , , , , , , , , , , , CY1)R=2 PL( 192, , , , , , , , , BS3, XC2, BW2, GT2, VX1, VX1, FR2, )//Ragga Break PL( 208, , , , , , , , , BS8, XC2, BW2, , VX1, VX1, FR3, ) } IF(Ps==2) { // 2 Include(gs.h)ResetGS;r4;Include(delay.h)System.MeasureShift=2System.vMax=150TrackName={""} Copyright={"West"}MetaText{"*PR* Myblog→ " katasumi_7019@yahoo,co,jp " *Access here!*} //------------------------------------------------------------------------------------------------- Tempo=137FUNCTION XE(tx){Time(tx:1:0)}FUNCTION MP(STR FR){Sub{>FR<}FR}FUNCTION MM(STR Y){Sub{}Y} FUNCTION MB(STR Z){Sub{>Z<}Sub{}Z}FUNCTION DP(P){XE(-2)GS_RHYTHM(P)r8}TR=9DP=1TR=10DP=2TR=11DP=1 FUNCTION LAC(TCn,Vn,Qn,Pn,Mn,Vo1,Vo2,On){TR=TCn;CH=TCn;XE(0)v(Vn)q(Qn)P=Pn;M(Mn*10)@(Vo1,Vo2)o(On)} //B(TC, v , q , P , M, @ ,V2, o)M/C(TC, v , q , P , M, @ ,V2, o)SYN(TC, v , q , P , M, @ ,V2, o) LAC(01,110,090,064,00,040,00,03)LAC(03,110,100,060,00,025,00,05)LAC(06,127,080,064,00,039,09,03) LAC(02,115,090,064,00,035,09,03)LAC(04,070,099,064,00,049,09,07)LAC(07,127,080,064,00,039,09,03) INT STME=0INT SET=STME*-1INT R=0LAC(05,110,100,063,00,026,00,04)LAC(08,127,080,064,00,039,09,03) //D(TC, v , q , P , M, @ ,V2, o)MSE(TC, v , q , P , M, @ ,V2, o)/SE(TC, v , q , P , M, @ ,V2, o) LAC(09,127,080,064,00,026,00,03)LAC(12,127,080,064,00,039,09,03)LAC(15,127,080,064,00,039,09,03) LAC(10,127,080,064,00,026,00,03)LAC(13,080,080,064,00,003,00,04)LAC(16,127,080,064,00,039,09,03) LAC(11,127,080,064,00,026,00,03)LAC(14,085,080,064,00,004,00,04)FUNCTION PL(T,STR T1,STR T2,STR T3, STR T4,STR T5,STR T6,STR T7,STR T8,STR T9,STR T10,STR T11,STR T12,STR T13,STR T14,STR T15,STR T16){ STR I={XE=T+R+STME}TR=01I;T1;TR=02I;T2;TR=03I;T3;TR=04I;T4;TR=05I;T5;TR=06I;T6;TR=07I;T7;TR=08I;T8; TR=09I;T9;TR=10I;T10;TR=11I;T11;TR=12I;T12;TR=13I;T13;TR=14I;T14;TR=15I;T15;TR=16I;T16} //BASS--------------------------------------------------------------------------------------------- STR VC1={l16[4[3[3d^^]rf^ef^^][3d^^]rg^ga^^]}STR VC2={l16[[[]:[f4f4f^ff^^f^]]: [c4c4c^cc^^c^]][d4d4d^dd^^d^]}STR VC3={[[d4d4d^dd^^d^g4g4g^gg^^g^:a4a4a^aa^^a^f4f4f^ff^^f^] g4g4g^gg^^g^a4a4a^aa^^a^]} //MELO--------------------------------------------------------------------------------------------- STR MD1={l16S{MP({[[a^^g^^d^^2^^^^^^:fga^ag^d^"a1^1^]:gab^b`c^b^`c1^1^]bb`c^^`c^^`d^^1^1})} [[f^^e^^"b^^2^^^^^^:def^fe^"b^"f1^1^]:ddg^ga^g^a1^1^]gga^^a^^b^^1^1}STR MD2={l8S{MP({[[`d^`d^`d^`a `f`g`e^`e`d`c^^:`c^`e^`g^`b`g`a`e^`e`d`c^^]brb`cr`c`d^^^^^^^rr]})}[[b^b^b^`f`d`d`c^`cb a^^: a^b^`c^`g`e`f`c^`cba^^]:grgarab^^^^^^^rr]`dr`d`er`e'`fa'^^^^^^^rr}STR MD3={l8q110>r-1rrrMM({S{[`d`d`cb a#a^^`d`d`cbag#^^`d`d`cb`c`g^`c`c^`d^`c^^^:[`e`e`d`c`d`g^^]`d`d`cb`c`g^^^^^`a`g^^^]`c`c`d`e`f`g^^[`e`e `d`c`d:`g^^]ga^b^`c^`d^`e^`g^`f`e`f`e^^^^^^^}[bbagf'df'^^bbagf'ce'^^bbagab^gg^g^'f#a'^^^:[>cc"b"a"b'"e'^^ <]bbaga'bg'^^^^^f'ge'^^^]aabba`e^^[`c`cbab:`e^^]gg^g^g^g^a^b^`d`c`d'a,,80`c,,127'^^^^^^^})<} //CHORD-------------------------------------------------------------------------------------------- STR CH0={l1''^^^^^^^^^^^^^^^}STR CH1={l8[8'dfa'1^2^4'dfa''ceg']}STR CH2={l1['a`c"a'^'"ffa'^['"aa`c'] '`cgc'^]}STR CH3={q100l1V.T(30,70,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)''^^^^^^^^^^^^^^^} //SYNTH-------------------------------------------------------------------------------------------- STR SY1 //KICK&SNARE--------------------------------------------------------------------------------------- STR BD={'n27n33n32n35n36'}STR SD={'n27n35n36n38n39'}STR CD={'n27n32n35n36n49'}STR BD1={BD;rrr} STR SD1={SD;rrr}STR BD2={BD;r}STR SD2={SD;r}STR CD1={CD;rrr}STR CD2={CD;r}STR BS={BD1;SD1}STR CS={CD1;SD1} STR BS1={p20l16V=127S{[15r1][4CD;rrr]}[S{[16rrr'n40n44'rr'n40n77n76n44'r]}CS[14BS]BD2;rSD;SD2;BD;SD]} STR PED={rrr'n40n44'rr'n40n77n76n44'r}STR BS2={[8r1][7[3n39;n39;rn39][4n39]]BR=20p.T(64,0,!1)[16n39] BR=0S{MidiDelay({n39},16,!8)}p20}STR BS3={[8r1]S{[16PED]}CS[14BS]BD2;rSD;SD2;BD;SD} //HIHAT-------------------------------------------------------------------------------------------- STR XA={V=60n42}STR XB={V=90'n42n44n46n70n82'}STR XC={'n69n70n82'}STR XX={IF(CH==10){p80}Else{p20}} STR XC1={l16BR=5p127XX[[16[XA;rXB:XC]r]]} //TR=12-------------------------------------------------------------------------------------------- //TR=13 14----------------------------------------------------------------------------------------- STR GT1={l16[4[4[3'"ffda'^^]r:'fda'^'ceg''fda'^^]'ca`c`e'^'a`c`e''gb`d'^^]}STR GT2={>GT1<} //TR=15-------------------------------------------------------------------------------------------- STR FR1={@127q100BR=30[8r1]V.T(70,80,!1^1^1^1^1^1^1^1)p.T(0,120,!1^1^1^1^1^1^1^1)'>>>cc#d<<<'1^1^1^1^1^1^1^1} //TR=16-------------------------------------------------------------------------------------------- STR CY1={q100@126,7l1[6r1]V.T(50,100,!1^1)'```````c'^l16} //(TIME, BAS, BAS, MEL, TR4, MEL, TR6, TR7, TR8,KiSn,HiHt,Perc,TR12,TR13,TR14,TR15,TR16)// PL( SET, , , , CH3, , , , , BS1, XC1, XC1, , , , , )// PL( 016, VC1, VC1, , CH0, , , , , BS1, XC1, XC1, , GT1, GT1, , )// PL( 032, VC1, VC1, , CH1, , , , , BS2, XC1, XC1, , GT2, GT2, FR1, )//In en PL( 048, VC2, VC2, MD1, CH2, MD1, , , , BS3, XC1, , , , , , CY1)//A m PL( 064, VC3, VC3, MD2, , MD2, , , , BS1, XC1, XC1, , , , , )//B m PL( 080, , , MD3, , MD3, , , , BS1, XC1, XC1, , , , , )//S } IF(Ps==3) { // 3 // THX DL <MINIMAL TECHNO> 08 05 () Tempo=131TrackName={""}Copyright={"WE5T"}MetaText={"*PR* Myblog→ " katasumi_7019@yahoo,co,jp " *Access here!*"}PlayFrom.RPN_NRPN=1 Include(gs.h)Include(fadeio.h)Include(delay.h)System.MeasureShift=2ResetGS;r4;FUNCTION MP(STR X){S{X}>X<}FUNCTION MM(STR X){S{X}}FUNCTION MB(STR X){MM(MB(X))} FUNCTION XE(T){Time(T:1:0)}XE=0FUNCTION MDS(STR DEL){MidiDelayS(DEL)}FUNCTION FI(num){Fadein(num)}FUNCTION FO(num){Fadeout(num)}STR COH={XE=136r1} FUNCTION SRS(R1,R2,R3,R4,R5,R6,R7,R8,R9,RA,RA2,RA3,RB,RC){TR(R1)CH(R2)v(R3)q(R4)VAR(R5)P(R6)M(R7)CHO(R8)REV(R9)@(RA,RA2,RA3)o(RB)p(RC)XE=0l16} //-(TR ,CH , v , q ,VAR, P , M ,CHO,REV, @ ,MSB,MSB, o , p )---------(TR ,CH , v , q ,VAR, P , M ,CHO,REV, @ ,MSB,MSB, o , p )----// SRS(001,001,080,080,000,064,127,000,000,082,001,000,003,000)/*01*/SRS(009,009,050,080,000,064,000,000,000,004,000,000,004,000)/*09*/ SRS(002,002,080,080,000,064,127,000,000,081,001,000,003,000)/*02*/SRS(010,010,127,080,000,064,000,000,000,057,000,000,001,000)/*10*/ SRS(003,003,080,080,000,064,127,000,000,099,001,000,003,000)/*03*/SRS(011,011,100,080,000,064,000,000,000,081,001,000,003,000)/*11*/ SRS(004,004,075,050,000,064,000,000,000,018,000,000,003,000)/*04*/SRS(012,012,100,080,000,064,000,000,000,081,000,000,003,000)/*12*/ SRS(005,005,050,080,000,064,000,000,000,123,005,000,004,000)/*05*/SRS(013,013,075,080,000,064,000,000,000,081,001,000,003,000)/*13*/ SRS(006,006,075,050,000,064,000,000,000,039,000,000,003,000)/*06*/SRS(014,014,075,080,000,064,000,000,000,033,000,000,003,000)/*14*/ SRS(007,007,090,080,000,064,000,000,000,002,000,000,004,000)/*07*/SRS(015,015,070,040,000,064,000,000,000,125,004,000,004,000)/*15*/ SRS(008,008,070,080,000,064,000,000,000,003,000,000,004,000)/*08*/SRS(016,016,070,080,000,064,000,000,000,081,000,000,004,000)/*16*/ //-(TR ,CH , v , q ,VAR, P , M ,CHO,REV, @ ,MSB,MSB, o , p )---------(TR ,CH , v , q ,VAR, P , M ,CHO,REV, @ ,MSB,MSB, o , p )----// //TR=01 02 03 SQUARE STR PK1={MDS([3ee:er][rer])}STR EFT={IF(1==CH){FI=16[32PK1]}IF(2==CH){FI=32[32PK1]}IF(3==CH){[32PK1]}}STR SEN={p.T(0,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)[16PK1]} STR PK2={MDS([3ee:e&"e][rer])}STR PK3={MDS(eeeerr"a"arrr)}STR PKP={EFT;SEN;p0EFT[32PK2]EFT;COH} //TR=04 05 06 READ STR LYA={[2[4"e&errrr"e&errrr:rrrr]"e&err]}STR LAD={XE=72[5MM(LYA)]COH} //TR=07 08 09 HI PIANO etc STR HP={FO=1[8c"ac`a]}STR HT={FO=1[8c`ac"a]}STR HL={FO=1[8"ac`ac]}STR PEN={XE=112IF(7==CH){[16HP;v90]}IF(8==CH){[16HT;v70]}IF(9==CH){[16HL;v50]}}STR PIN={PEN;COH} //TR=10 D R U M /* B S D*/STR DD={@25'n32n35'}STR SC={@25'n32n35n37'}STR BT={@26'n27n32n35'}STR ST={@26'n27n32n35n37n40'}STR DIN={[32DD;rrr][16DD;rrrSC;rrr]}STR DEN={'n32n25n52'rrrSC;rrr[15DD;rrrSC;rrr]} STR DS={n27n33n35n36}STR BD={'DS'}STR SD={@25'DS;n28'}STR DAT={[16BD;rrrSD;rrr]} /*HI-Hat*/STR CC={@25'n42n44n70'}STR HIT={[32rrCC;r]}STR HID={[16rrp127[CC;p0]p64]} /* P A R*/STR SND={S{[32DD;rrr]}[15r1]r2[8@1n28]} /* S T M*/STR DP1={S{DIN}[8r1]HIT}STR DP2={S{DEN}HIT}STR DP3={S{SND}[8r1]HIT}STR DP4={S{[DEN]}[4HID]}STR DRM={DP1[DP2]DP3[6DP4]COH} //TR=11 12 FADE SE STR SSS={v60[4c&"crr]}STR DDR={XE=48[32SSS]COH} //TR=13 14 KZL STR TAL={[4[3rrd&errrr]rrv.T(90,30,!4^^)[3d&e]v90]}STR TTR={MM([16[3dd&"a:r]drd&"ar])}STR RIS={XE=64[6TAL]XE=128TTR;COH} //TR=16 SE STR FAW={p.T(0,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)[16PK1]}STR FEL={XE=32FAW;XE=96FAW;COH} //---------------------------------------------------------------------------------------------------------------------------------------------------------------- TR=01PKP;TR=02PKP;TR=03PKP;TR=04LAD;TR=05LAD;TR=06LAD;TR=07PIN;TR=08PIN;TR=09PIN;TR=10DRM;TR=11DDR;TR=12DDR;TR=13RIS;TR=14RIS;TR=16FEL } }Else{ INT PLAYIN /* ** おまけ ** ドラムンのドラムパターンを いくつか作りました。 基本的な感じの12+自作3で十五本です。(オリジナル力入れすぎでやんの) ハイハットは作ればキリが無いので、6本だけです。 尚、PLAYINの値を変えないと再生できません。1から15で選んでください。 ※すべてGS用です。まあGMでも聞けますが、、 あと//01.とか書いてあるとこで切り取れます。 トラックリスト ●キック&スネア● 01.スタンダード 02.キック+ 03.レゲエ風 04.変則1 05.変則2 06.変則3 07.五連発 08.ディレイ 09.Westオリジナル ●ハイハット● 10.弱1 11.弱2 12.中1 13.中2 14.弱3 Feel The HELL より抜粋 15.強 Computer Virus より抜粋 */ PLAYIN = ( 0 )//←再生したいトラック番号を入れてください。(上記 1〜15 ); //------------------------------------------------------------------------------ IF(PLAYIN==1){Lyric={"スタンダード"} //01. ResetGS;System.MeasureShift=1 Tempo=180 STR BD={'n27n35n36'} STR SD={BR=10p85'n27n35n36n38n40'} STR BS1={BD;rSD;rrBD;SD;r} TR=10 CH=10 @25 l8 [8BS1] } IF(PLAYIN==2){Lyric={"キック+"} //02. ResetGS;System.MeasureShift=1 Tempo=180 STR BD={'n27n35n36'} STR SD={BR=10p85'n27n35n36n38n40'} STR BS1={BD;rrrSD;rrBD;BD;rBD;rSD;rrr} TR=10 CH=10 @25 l16 [8BS1] } IF(PLAYIN==3){Lyric={"レゲエ風"} //03. ResetGS;System.MeasureShift=1 Tempo=180 STR BD={'n27n35n36'} STR SD={BR=10p85'n27n35n36n38n40'} STR BS1={BD;rrrSD;rrBD;rrrrSD;rrr} TR=10 CH=10 @25 l16 [8BS1] } IF(PLAYIN==4){Lyric={"変則1(四発)"} //04. ResetGS;System.MeasureShift=1 Tempo=180 STR BD={'n27n35n36'} STR SD={BR=10p85'n27n35n36n38n40'} STR BS1={BD;rrrSD;rrrBD;rrrSD;rrr} TR=10 CH=10 @25 l16 [8BS1] } IF(PLAYIN==5){Lyric={"変則2(初発なし)"} //05. ResetGS;System.MeasureShift=1 Tempo=176 STR BD={'n27n35n36'} STR SD={BR=10p85'n27n35n36n38n40'} STR BS1={[rrBD;rSD;rrr]} TR=10 CH=10 @25 l16 [8BS1] } IF(PLAYIN==6){Lyric={"変則3(3発)"} //06. ResetGS;System.MeasureShift=1 Tempo=180 STR BD={'n27n35n36'} STR SD={BR=10p85'n27n35n36n38n40'} STR BS1={BD;rrrSD;rrrrrSD;rrrrr} TR=10 CH=10 @25 l16 [8BS1] } IF(PLAYIN==7){Lyric={"五連発"} //07. ResetGS;System.MeasureShift=1 Tempo=185 STR BD={'n27n35n36'} STR SD={BR=10p85'n27n35n36n38n40'} STR BS1={BD;rrr[4SD;rrrrr]SD;rrr} TR=10 CH=10 @25 l16 [4BS1] } IF(PLAYIN==8){Lyric={"ディレイ"} //08. ResetGS;System.MeasureShift=1 Tempo=185 Include(delay.h) STR BD={p64'n27n35n36'} STR SD={BR=10p127'n27n35n36n38n40'} STR BS1={MidiDelay({BD;rrrSD;rrrrrSD;rrrrr},3,!8)} TR=10 CH=10 @25 l16 [8BS1] } IF(PLAYIN==9){Lyric={"Westオリジナル"} //09. ResetGS;System.MeasureShift=1 Tempo=185 Include(delay.h) STR BD={p64'n27n35n36'} STR SD={BR=10p127'n27n35n36n38n40'} STR BS1={MidiDelay({BD;rrBD;rrSD;rBD;rrrSD;rrBD;BD;rrrSD;rBD;rrrSD;rrrSD;r},3,!8)} TR=10 CH=10 @25 l16 [4BS1] } //---------------------------------------------------------------------------------- IF(PLAYIN==10){ //10. ResetGS;System.MeasureShift=1 Tempo=185 STR CA={'n42n44'} STR CB={'n44n51'} STR XC1={CA;rCA;rCB;rCA;rCA;CA;CA;CA;CB;rCA;r} TR=10 CH=10 @25 l16 v127 [8XC1] } IF(PLAYIN==11){ //11. ResetGS;System.MeasureShift=1 Tempo=185 STR CA={'n42n44'} STR CB={'n44n51'} STR XC1={CA;rCA;rCB;rCA;CA;CA;rCB;rCA;CA;CA;r} TR=10 CH=10 @25 l16 v127 [8XC1] } IF(PLAYIN==12){ //12. ResetGS;System.MeasureShift=1 Tempo=185 STR CA={'n42n44'} STR CB={'n44n51'} STR CC={'n42n44n55n60'} STR CD={'n42n44n61'} STR XC0={CD;rrrCC;rrrrrCD;rCC;rrr} STR XC1={S{XC0}CA;rCA;rCB;rCA;rCA;CA;CA;CA;CB;rCA;r} TR=10 CH=10 @25 l16 v127 [8XC1] } IF(PLAYIN==13){ //13. ResetGS;System.MeasureShift=1 Tempo=185 STR CA={'n42n44'} STR CB={'n44n51'} STR CC={'n42n44n55n61'} STR CD={'n42n44n53n60'} STR XC0={CC;rrrCD;rrrrrCD;rrrrr} STR XC1={S{XC0}CA;rCA;rCB;rCA;CA;CA;rCB;rCA;CA;CA;r} TR=10 CH=10 @25 l16 v127 [8XC1] } IF(PLAYIN==14){ //14. ResetGS;System.MeasureShift=1 Tempo=185 STR HA={'n42n44n70'} STR HT={n51n53} STR HN0={[32HA;r]} STR HN1={[8rrrr[4HT;r]]} STR XC1={S{[HN0]}HN1} TR=10 CH=10 @25 l16 v127 XC1 } IF(PLAYIN==15){ //15. ResetGS;System.MeasureShift=1 Tempo=185 STR XX={n42n44} STR XA={'XX'} STR XB={'n51n59XX'} STR XC={'n51n55XX'} STR XC1={BR=50p50Sub{[16[4rrXB:r]XB]}Sub{[32n51rrrXC;rrr]} Sub{[16[3n51r:rr]n51n51rn51rr]}[16[8XA:r]XA]} TR=10 CH=10 @25 l16 v127 XC1 } //警告装置 IF(PLAYIN!=1^15){End} } この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)