サクラトップ > 掲示板トップ > 投稿フォーム

サクラ曲掲示板 Part 5 - 投稿フォーム - 875

曲の投稿にはユーザー登録が必要です。

曲　名

作　者名前: パスワード:

転　載
（ゲームのBGMなど使いたい場合、許可するかどうかを指定。
サクラ本体への収録はあらかじめご承諾ください。）
ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する

ジャンル

音　源
（パソコン内蔵音源、GS音源、GM音源など）

公開
（公開を中止して削除するときには、この項目を変更します。）

コメント
また少し路線を変えて作ってみました。ベースのパターンやパーカスの入れ方など、基本部分が少しいつもと違う感じです。

曲データ（サクラから貼り付けます。）
// テンポ130の割にはノリやすいと思います｡そろそろ第2期に入ります｡ INT TEMPO_EST = 130 ; //テンポ設定 PlayFrom.SysEx(on)PlayFrom.CtrlChg(on)PlayFrom.RPN_NRPN(on) TrackName={BEAT OF KZ-5 TECHNOLOGY}Copyright={KZ-5 Technology}System.MeasureShift(3)Tempo=1000Include(delay.h)ResetGS; Function Autoexec(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(0)CH=X2;@(X3,XA,XB)Key=X4;P=X5;CHO=X6;REV=X7;v=(X8)q=(X9)M=(XC)}Function DL(ti){Time(ti:1:0)}STR INS={InstrumentName}Function PAN(ER1,ER2){If(ER2==0){P.T(000,127,ER1)}If(ER2==1){P.T(127,000,ER1)}} Function Review(STR OIN,Revalue,ReNo){STR REPO="r"+Revalue;Sub{[(ReNo);OIN;REPO]}}Function GSRY(_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;} Function HAM(STR SA){Sub{Key=12SA;Key=0}SA}Function HAM2(STR SA){Sub{Key=-12SA;Key=0}SA}Function HAM3(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12SA;Key=0}SA} STR LC={"cceg`c}STR LD={"ddf#a`d}STR LDS={"d#d#ga#`d#}STR LE={"eegb`e}STR LF={"ffa`c`f}STR LFS={"f#f#b`c#`f#}STR LG={"gga#`d`g}STR LA={"aa`c#`e`a}STR LAS={"a#a#`d`f`a#}STR LB={"bb`f#`b} STR WC={r'LC'}STR WD={r'LD'}STR WDS={r'LDS'}STR WE={r'LE'}STR WF={r'LF'}STR WG={r'LG'}STR WA={r'LA'}STR WAS={r'LAS'}STR WB={r'LB'} //------( TR , CH , @ , @2 , @3 , Key, P , CHO, REV, v , VAR, M )INS={InstrumentName} Autoexec( 001, 001, 066, 000, 000, 000, 064, 030, 040, 127, 098, 000)INS={"MAIN"} Autoexec( 002, 002, 082, 000, 000, 000, 064, 040, 020, 100, 093, 050)INS={"SYNTH"} Autoexec( 003, 003, 063, 000, 000, 000, 010, 040, 020, 100, 100, 050)INS={"SYNTH"} Autoexec( 004, 004, 067, 000, 000, 000, 117, 040, 020, 100, 100, 050)INS={"SYNTH"} Autoexec( 005, 005, 039, 000, 000, 000, 044, 020, 020, 127, 090, 000)INS={"BASS"} Autoexec( 006, 006, 028, 000, 000, 000, 020, 040, 030, 120, 070, 000)INS={"GUITER"} Autoexec( 007, 007, 039, 008, 000, 000, 084, 020, 020, 127, 090, 000)INS={"HIGH"} Autoexec( 008, 008, 081, 000, 000, 000, 000, 030, 020, 110, 100, 020)INS={"ULA_MERO"} Autoexec( 009, 009, 081, 000, 000, 000, 127, 030, 020, 110, 100, 020)INS={"URA_MERO"} Autoexec( 010, 010, 025, 000, 000, 000, 064, 030, 040, 127, 100, )INS={"KICK"}DL(-2)GSRY(1)r8 Autoexec( 011, 011, 025, 000, 000, 000, 064, 030, 000, 127, 090, )INS={"HI_HAT"}DL(-2)GSRY(2)r8 Autoexec( 012, 012, 026, 000, 000, 000, 064, 030, 000, 127, 090, )INS={"SYMBAL"}DL(-2)GSRY(1)r8 Autoexec( 013, 013, 119, 009, 000, 000, ___, 020, 000, 127, 090, )INS={"TAM"} Autoexec( 014, 014, 001, 000, 000, 000, 100, 040, 020, 127, 090, )INS={"PIANO"} Autoexec( 015, 015, 012, 000, 000, 000, ___, 040, 020, 127, 090, 050)INS={"CHORD"} Autoexec( 016, 016, 091, 000, 000, 000, 024, 030, 020, 127, 100, )INS={"BGSOUND"} //------( TR , CH , @ , Key, P , P2 , P3 , CHO, REV, v , VAR, M )INS={InstrumentName} //-------------------------------------------------------------------------------------------------------------------------------------------------------------------// DL=0Tempo=TEMPO_EST;INT HAZ=1INT BGN=17INT ME1=25INT ME2=33INT SB1=41INT RF1=57INT ME3=65INT ME4=73INT SB2=81INT NK1=97INT NK2=105 INT ME5=113INT SB3=121INT ED1=137INT ED2=145INT ED3=153INT END=161 //------------------------------------------------------------------------------TR=001;------------------------------------------------------------------------------// STR MN1={V=110[f#^^f#^r"b^d^"b^d^e^f#^^g^re^^^d^c#^d^;e^^c#^r"a^e^c#^d^e^:e^^f#^rf#^^r"b^d^"b^]f#^^e^rf#^^^^rrrrr}STR MN2={V=110[l8b^^^^l16a^g^f#^f#^^g^re^^^:c#^d^e^l8a^^^^l16g^f#^e^e^^d#^rf#^^^d^e^d^]c#^e^a^b^^a^rb^^f#^f#a^b^`d^f#^`c#^b^^^^rrrrr} STR MN3={V=127[[`d^^^`d^^`d`dr`e^^^^^`c#^^^b^a^^^f#^a^f#^:`e^^^`e^^`e`er`f#^^^^^`d^^^`c#^b^^^^^rrrr]:l8a^f#^a^`c#`c#^b^^^^rrl16]l8a^f#^e^f#b^^^^^rrl16} TR=1l16>M.W(0,40,!1)DL=ME1;HAM2({MN1;MN2;MN3;DL=ME3;MN1;MN2;MN3;DL=ME5;MN2;MN3;}) //------------------------------------------------------------------------------TR=002&003&004;----------------------------------------------------------------------// STR RTH={EP=127l16e^^rf#^^ra^^r`c#^^r}STR RTI={EP=100l8[g^^^^^b^a^^^^gf#g:a^^^^^`c#^b^^^^agf#]a^^f#^^a^b^^`d^^`e^}STR RT1={EP=127[l8`d^^^^rl16`e^`d^`c#r`dr`c#brara^f#a^f#^l8`e^^^^rl16`e^`d^`c#r`dr`er`f#:`f#^`f#^`f#`er`dr]`f#^^^[5r]} STR RRF={l16DL=HAZ-1RTH;DL=HAZ+8RTI;DL=BGN;HAM({RT1;DL=RF1;RT1;})DL=NK2;RTI;DL=ED1;HAM({RT1})DL=ED3;RTI;DL=END;RTH;}TR=2;>RRF;TR=3RRF;TR=4RRF; //------------------------------------------------------------------------------TR=005&007;--------------------------------------------------------------------------// STR BS1={[ere^"b^deree^"b^d^;ara^e^f#araa^e^f#^;f#rf#^c#^ef#rf#f#^c#^f#^;brb^f#^abrbb^`d^b^]}STR BS2={BS1} STR BS3={[ere^"b^deree^"b^d^;ara^e^f#araa^e^f#^:f#rf#^c#^ef#rf#f#^c#^f#^;brb^f#^abrbb^`d^b^][brb^f#^a:brbb^`d^b^]b^^^^^^^^}STR BS4={BS1} STR BASS={l16<<DL=BGN;BS1;BS2;BS3[BS4]BS1;BS2;BS3[BS4][BS1]BS3;DL=SB3+8BS4[3BS1]}TR=5BASS;TR=7BASS; //------------------------------------------------------------------------------TR=006;------------------------------------------------------------------------------// STR CO1={EP=110[[4eeb`e][4aa`e`a][4f#f#`c#`f#][4bb`f#`b]]}STR CO2={EP=110[[4eeb`e][4aa`e`a]:[4f#f#`c#`f#][4bb`f#`b]][6bb`f#`b][8r]}STR CO4={EP=120[[4eeb`e][4aa`e`a][4f#f#`c#`f#][4bb`f#`b]]} TR=6l16<DL=HAZ+8CO1;DL=BGN[CO1]CO2[CO4][CO1]CO2;DL=SB2[CO4][CO1]CO2[CO4][3CO1] //------------------------------------------------------------------------------TR=008&009;--------------------------------------------------------------------------// STR UL2={[EP.T(70,127,!4)'`dg'^^^^^^^^^EP=110`e^`c#^a^`c#^^`c#^ra^^^rrrrrr:EP.T(70,127,!4)'`c#f#'^^^^^^^^^EP=110`c#^a^f#^b^^b^r`d^^^rrrrrr]`d^^`c#^r`d^^rrrrrrr`f#^`d^`e^`d^^^^rrrrr} STR UL3={EP=110[[SUB{`f#^^^`f#^^`f#`f#r`g^^^^^`e^^^`d^`c#^^^}b^^^b^^bbr`c#^^^^^a^^^g^f#^^^EP=120d^e^d^:EP=110SUB{`a^^^`a^^`a`ar`b^^^^^`f#^^^`e^`d^^^^^}`c#^^^`c#^^`c#`c#r`d^^^^^b^^^a^f#^^^^^rrrrEP=120]:l8f#^d^f#^f#f#^d^^^^rrl16]l8f#^d^c#^d'f#d'^^^^^rrl16} STR ULMR={l16DL=ME2;UL2;UL3;DL=ME4;UL2;UL3;DL=ME5;UL2;UL3;}TR=8ULMR;TR=9;>ULMR; //------------------------------------------------------------------------------TR=010;------------------------------------------------------------------------------// STR O1={'n27n32n33n35n36'}STR O2={'n27n32n33n35n36'}STR O3={'n27n32n33n35n36n49'}STR O4={'n27n32n33n35n36n57'}STR O5={'n27n32n33n35n36n51n59'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]} STR DM2={O1;rrrO2;rrr}STR DM3={O1;rrrO2;rrrO1;rrrO2;rrO2}STR DM4={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrrO2;rO1;r} STR DM5={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;O2;r[2O1]r[2O1]}STR DM6={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrr[2O2;r]} STR DM7={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrrO2;r[2O2]}STR DM8={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]} STR DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}STR DM10={[4[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM11={[3O1;rrrO2;rrrO1;rrrO2;rrr][O2;r[O1]][O2;r][O2]rr} STR DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}STR DM13={[6DM2]O3[7r][n54rrr]}STR DM14={[7O1;rrr][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr} STR DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM16={[3O1;rrrO2;rrrO1;rrrO2;rrr]rrr['n39n28'r:rr]O1;r[4O1]} STR DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}STR DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]} STR DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]}STR DM20={[O1;r]O4;r[O1;O4]O4;rO1;r[O4]}STR DM21={[[[3n27r:r]n28r:r[n27r:r]]:[3n27:r]n27][n28r][n28]}STR DP1={SUB{[4rr['n82n85']]}[n68][n67r][[n67]r]n68rn68r}STR DM0={[3l32[5O1]rl16O1]l32[8O1]l16} TR=10l16DL=HAZ-1@33DM0@25[16DP1]DL=HAZ+8DM6;DM5;DL=BGN@25SUB{[23DP1]}DM6;DM5;DM7;DM5;DM7;DM13;SUB{[24DP1]}[3DM6;DM5]DL=ME3;SUB{[15DP1]}DM7;DM5;DM7;DM13;SUB{[32DP1]}[4DM6;DM5]DL=ME5;SUB{[7DP1]}DM7;DM13;DL=SB3[24DP1]DL=SB3+4DM5[4DM6;DM5]DL=END@33DM0[16r] //------------------------------------------------------------------------------TR=011;------------------------------------------------------------------------------// STR GR={'n42n85'}STR GA={n44}STR GB={'n51n46'}STR TA={n54}STR MT={n51}STR DR={'n38n40n82n85'}STR PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}STR PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}} STR GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}STR GP2={[3GR;rGB;r]GR;r[2GB]}STR GP3={[3[GR]GB;r][2GR][2GB]}STR GP4={[GR]GB;GR}STR GP5={[3GP4][GR][GB]}STR GP6={[GR][TA]}STR GP7={[GP6][GR]TA;GR;GP6}STR GP8={[3[GR]GB;GR][2GR][2GB]} TR=11l16DL=HAZ@26[128n42][7GP1]DL=BGN@26[8GP8]SUB{[128n42]}[8GP7][7GP8]DL=SB1[16GP1][8GP8]DL=ME3;SUB{[128n42]}[8GP7][7GP8]DL=SB2[16GP1][8GP8][8GP1][7GP8]DL=SB3[4GP2][4GP3][8GP1][16GP8][8GP1] //------------------------------------------------------------------------------TR=012;------------------------------------------------------------------------------// STR PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}STR PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}STR PD2={@26EP.T(20,127,!1^1^1)[48DR]}STR PD3={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}STR PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}} STR PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}STR PD5={@26[3DR;r][5DR]r[4DR]}STR PD6={@26[4DR;r][3DR]r[4DR]}STR PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0} STR PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}STR PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}STR PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}STR PD11={BR=20p.T(127,32,!1)[16n51]p=64}STR PD12={@26[4O2][4O1][O2][6O1]@17} STR PD13={[4[n36r]n40r:[[n36]r]n40rn36r][n36]r[n40]r[4n40]}STR SN={'n40n38'}STR SNA={rrrrSN;rrr}STR SN1={[7SNA][SN]r[5SN]}STR SN2={[7SNA]l32[8SN]l16[4SN]}STR SN3={[7SNA]rrrrSN;r[SN]}STR SN4={[6SNA]EP.T(40,127,!1)[8SN]l32[16SN]l16} TR=12l16DL=HAZ@17SUB{[PD13]}[PD3]DL=BGN@17V=127BR=20p%=4000SUB{PD3}SN1;SN2;DL=ME2;SN3;SN4;DL=SB1;SUB{[3PD3]}SN3;SN2;SN3;SN4;SN1;SN2;DL=SB2;SUB{[3PD3]}SN3;SN2;SN3;SN4;DL=NK2;SUB{PD3}SN1;SN2;SN3;SN4;DL=SB3;SUB{[5PD3]}DL=SB3+8SN3;SN4;SN1;SN2; //------------------------------------------------------------------------------TR=013;------------------------------------------------------------------------------// STR PG1={P.onCycle(!8,0,22,106,127,106,22)}STR DS1={`g`g`e`e`c`caaffeecc"a"a}STR DS2={`g`g`g`g`gr`gr"g"gddgg`f`f}STR DS3={[8r]`d`dggdd"g"g}STR DS4={[8r]`gr`gr`g`g`g`g} TR=13l16<DL=HAZ;PG1;DL=HAZ+3DS3;DL=HAZ+7DS4;DL=HAZ+11DS3;DL=HAZ+15DS1;DL=BGN+3DS1;DL=BGN+7DS2;DL=ME1+3DS3;DL=ME1+7DS4;DL=ME2+3DS3;DL=ME2+7DS1;DL=SB1+3DS3;DL=SB1+7DS4;DL=SB1+11DS3;DL=SB1+15DS2;DL=RF1+3DS1;DL=RF1+7DS2; DL=ME3+3DS3;DL=ME3+7DS4;DL=ME4+3DS3;DL=ME4+7DS1;DL=SB2+3DS3;DL=SB2+7DS4;DL=SB2+11DS3;DL=SB2+15DS2;DL=NK1+3DS1;DL=NK1+7DS2;DL=NK2+3DS1;DL=NK2+7DS2;DL=ME5+3DS3;DL=ME5+7DS1;DL=SB3+3DS3;DL=SB3+7DS4;DL=SB3+11DS3;DL=SB3+15DS2;DL=ED1+3DS1;DL=ED1+7DS2;DL=ED2+3DS3;DL=ED2+7DS4;DL=ED3+3DS3;DL=ED3+7DS1; //------------------------------------------------------------------------------TR=014;-------------------------------------------------------------------------------// FUNCTION PIA(STR SWEET){l8[Play(,,,,,,,,,,,,,,MID(SWEET,1,2))l16:['SWEET'r]]r['SWEET'^^]'SWEET'^}FUNCTION PIB(STR SWEAT){l8[Play(,,,,,,,,,,,,,,MID(SWEAT,1,2))l16:['SWEAT'r]]r}FUNCTION PIC(STR SWAT){['SWAT'^^]'SWAT'^}FUNCTION PID(STR SWEET,STR FF1){l8[<FF1>l16:['SWEET'r]]r['SWEET'^^]'SWEET'^}FUNCTION PIE(STR SWEET,STR FF1){l8[<FF1>l16:['SWEET'r]]r} STR PA1={EP=110[PIA=LE;PIA=LA;PID(LFS,{f#})PIA=LB]}STR PA2={EP=110[PIA=LE;PIA=LA:PID(LFS,{f#})PIA=LB]PIA=LB;PIB=LB[8r]}STR PA3={EP=120[PIA=LE;PIA=LA;PID(LFS,{f#})PIA=LB]} TR=14l16DL=HAZ;<[PA1]>DL=BGN[PA1]PA2[PA3]PA1;DL=SB2[PA3][PA1]PA2;DL=SB3+8PA3;PA1[PA1] //------------------------------------------------------------------------------TR=015;-------------------------------------------------------------------------------// STR BR1={EP=100['ge"g'^^^'aec#"a'^^^'aec#"f#'^^^'bf#d"b'^^^]}STR BR2={EP=110['ge"g'^^^'aec#"a'^^^'aec#"f#'^^^'bf#d"b'^^^]} TR=15l4>DL=HAZ+8P.W(64,0,!8,64,127,!4,127,0,!4,0,127,!4,127,0,!4)BR1;DL=ME1;BR1;DL=SB1[BR2]DL=ME3;BR1;DL=SB2[BR2]DL=NK2;BR1;DL=SB3[BR2]DL=ED3;BR1; //------------------------------------------------------------------------------TR=016;------------------------------------------------------------------------------// STR BGH={>l16@4['`dbg'^ef#gb^'`dbg'^^'`dbg'r`e^`dr`c#r`dr`c#brar[4'f#a`c#']f#ab['`c#af#'^:af#f#af#]f#af#af#ab`f#`e`d`e`d`c#`d`e:'`f#`db'^^['`f#`db']r'`f#`db'r]`f#`e`d`c#`d`c#ba<}TR=16DL=HAZ;BGH;DL=NK1;BGH;DL=ED2;BGH;

この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか？
（←選択）

サクラトップ > 掲示板トップ > 投稿フォーム