サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント ((へ (へ´ω`)へ < そんなに変わったわけではないですが、クリスマスバージョンです。 そういえばフル版でサクラにこれ投稿するの初めてかもですね。 曲データ(サクラから貼り付けます。) INT EST=156PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={thebbs.jp -X'mas Style-}/*'*/Copyright={H゛}System.MeasureShift=3Tempo=1000Include(delay.h)ResetGS; FUNCTION WIN(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(0)CH=X2;@(X3,XA,XB)TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)} FUNCTION DL(ti){Time(ti:1:0)}FUNCTION PAN(ER1,ER2){If(ER2==0){P.T(0,127,ER1)}If(ER2==1){P.T(127,0,ER1)}}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}FUNCTION REC(FF=127){EP.T(FF,0,!1^1^1^1^1^1)}FUNCTION REC2(FF=100){V.T(FF,0,!1^1^1^1^1^1)}FUNCTION IP(DW=1){DL(-2)GSRY(DW)r8}INT K=0DL=0Tempo=EST; //-(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M) WIN(01,01,011,00,0,K,064,4,2,120,09,0)WIN(07,07,088,00,0,K,084,1,2,110,09,0)WIN(13,13,119,08,0,0,___,5,0,127,09,0) WIN(02,02,100,00,0,K,064,2,2,090,09,0)WIN(08,08,012,00,0,K,000,3,2,100,09,2)WIN(14,14,082,01,0,K,080,2,2,117,09,0) WIN(03,03,089,00,0,K,000,2,2,090,10,0)WIN(09,09,012,00,0,K,127,3,2,100,09,2)WIN(15,15,005,08,0,K,096,2,2,127,10,0) WIN(04,04,104,00,0,K,127,2,2,090,10,0)WIN(10,10,025,00,0,0,064,3,1,127,10,0)WIN(16,16,091,00,0,0,084,2,1,127,10,0) WIN(05,05,039,01,0,K,044,1,2,110,09,0)WIN(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--// WIN(06,06,082,01,0,K,032,1,2,080,10,0)WIN(12,12,026,00,0,0,064,3,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP; INT HAZ=2INT BGN=20INT ME1=28INT ME2=36INT SB1=44INT RF1=60INT ME3=68INT ME4=76INT SB2=84INT NK1=100INT RF2=108INT ME5=116INT ME6=124 INT SB3=132INT END=156 /*1*/STR MN={ca^a^a^a^gggf^^r}STR MN1={EP=100[ca^a^a^a^gggf^^r:cf^f^f^f^edef^^r]da#^a#^a#^a#^`c`c`cf^^rr}STR MN2={EP=110[frdrfrarg^^f^:ffefrdrfrargfgf^^rr]ffef^fef^fefefg^^r} STR MN3={EP=127[[ca^a#^`c^f^:f^^g^^r]fffg^^r;c[a^a#^`c^^r]a#^`c^`d^`d^:`d`c`d`c^^r]r`d`d`d`c^^} STR MN4={[EP=127ca^a#^`c^f^MidiDelay({f^^g},7,!2)[19r]][ca^a#^`c^f^:f^^g^^r]fffg^^r;c[a^a#^`c^^r][a#^`c^`d^`d^`d`c`d`c^^rr]l4a#^`c^`d^`d^l8[r`d`c`d]r`d`d`d`c^^} TR=1l8>V=110DL=HAZ-1[7r]HAM2({MN3;MN;V=127DL=ME1-1[7r]MN1;MN2;MN3;DL=ME3-1[7r]MN1;MN2;MN3;DL=SB3-1[7r]MN4;MN}) STR SSH={Lyric={"It's a Very Big Special Bulletin Board."}[8r]Lyric={""}} STR SS1={l8[6r]l4Lyric={"It's a Very Big Special Bulletin Board."}[8r]Lyric={"And, Many People living in THEBBS."}[8r] Lyric={"You must not forget the ESSEY function."}[8r]Lyric={"And, CHAT and the FAVOLITES function."}[8r]Lyric={""}l8rrl4} STR SS2={Lyric={"Goodbye...Trivial past life."}[6r]Lyric={"Hereafter, "}rrLyric={"Let's spend BBS and happy time."}[8r] Lyric={"I'm too shameful to say in public."}[6r]Lyric={"However, "}rrLyric={"We're THEBBS & ZUIHITSU user."}[7r]Lyric={""}r} STR SS3={l8[6r]Lyric={"thebbs.jp, "}l4[8r]Lyric={"thebbs, It's a Beautiful world."}[8r]Lyric={"thebbs...bbs..."}[8r]l8rrl4Lyric={"Now, Let's writin' in THEBBS."}l8[14r]l4 Lyric={"thebbs.jp, "}[8r]Lyric={"You can spend Satisfactory time."}[8r]Lyric={"thebbs...bbs..."}[8r]l8rrl4Lyric={"Many people're waiting for you."}[7r]Lyric={""}} STR SS4={l8[6r]l4[Lyric={"thebbs.jp........"}[14r]Lyric={""}rr] Lyric={"thebbs.jp, "}l4[8r]Lyric={"thebbs, It's a Beautiful world."}[8r]Lyric={"thebbs...bbs..."}[8r]l8rrl4Lyric={"Now, Let's writin' in THEBBS."}[8r] Lyric={"Many people're waiting for you."}[8r]Lyric={"Now, Let's writin' in...."}[8r]Lyric={"THEBB...THEBB...THEBBS."}[7r]} TR=1l4DL=HAZ-1SS3;SSH;DL=ME1-1SS1;SS2;DL=SB1-1SS3;DL=ME3-1SS1;SS2;DL=SB2-1SS3;DL=SB3-1SS4;SSH; /*2&3&4*/STR RT1={EP=110SUB{[frffffffff^fe^f^frffffefgfedc"a#"a"gdrffffffff^fe^f^:c"g"a#cecdeeered^e^]eeeecccc"a#"a#"a#"a#"g"g"g"g}[craaaaaaaa^ag^a^craaaaga`ca#agfedc"a#ra#a#a#a#a#a#a#a#^a#a^a#^:ecega#gaa#`c`cr`ca#^`c^]`c`ca#a#aaggffeeddcc} STR RT3={[96r]l4EP.T(40,100,!1)SUB{a#^`c^}g^a^rrrrl16}STR RT4={M=100[[64r][12r]EP=110'`cg'^^^[10r]EP=120SUB{^^^^}c^^&&`c^^[16r]:l8EP=90SUB{`d`c`d`c^^}fffe^^rrl16]l8[8r]l16M=0} STR RT5={[128r]M=100[64r][12r]EP=110'`cg'^^^[10r]EP=120SUB{^^^^}c^^&&`c^^[16r]l8[8r]l16M=0} STR RRF={l16DL=BGN;HAM({RT1;DL=ME2;RT3;RT4;DL=RF1;RT1;DL=ME4;RT3;RT4;DL=RF2;RT1;DL=ME6;RT3;RT5;})}TR=2;>RRF;TR=3RRF;TR=4RRF; /*5*/STR BS={BR=12rrrr`c^^&&c}STR BSH={q=100"f&&^^^f^^^"f^^^^^rrq.onCycle(!8,70,100)}STR BS1={[["ff][c`c]["dd]["aa][4"a#a#][4c`c]]}STR BS2={[[8"ff][4"a#a#][c`c]:["ff]]"f^^^} STR BS3={[3[4"a#a#]["aa][d`d]]["gg]["aa]["a#a#]c^c^}STR BS4A={[[4"ff]["a#a#][c`c]][4"ff][4"dd][4"a#a#][4c`c]}STR BS4B={[[4"ff]["a#a#][c`c]][4"ff][4"dd][4"a#a#]rcccc^^r}STR BS4={BS4A;BS4B}STR BS5={[3"f^][5"ff][3"a#^]"a#a#[c`c]["ff][8"ff][4"a#a#][c`c]"f^^^}STR BSE={[4"a#a#][4c`c]l4["a#^^^]l8[4r`c]rcccc^^r} STR BASS={l8<ULMR; /*10*/STR OA={n27n32n33n35n36}STR O1={'OA'}STR O2={'n39n28OA'}STR O3={'n49OA'}STR O4={'n57OA'}STR O5={'n51n59OA'}STR O6={'n38n40OA'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]} STR DM2={O1;rrrO2;rrr}STR DM3={DM2;O1;rrrO2;rrO2}STR DM4={[7DN2]O1;rrrO2;rO1;r}STR DM5={[7DM2]O1;O2;r[2O1]r[2O1]}STR DM6={[7DM2]O1;rrr[2O2;r]}STR DM7={[7DM2]O1;rrrO2;r[2O2]}STR DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]} STR DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}STR DM10={[7DM2][3O1]r[4O1]}STR DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}STR DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}STR DM13={[6DM2]O3[7r][n54rrr]}STR DM14={[7DM1][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={[6DM2]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={[6DM2]SUB{O3}[4O1;r]rrrr[4O1]}STR DM21={[4DM2]SUB{O3[7r]O5[7r]O4[7r]O3}DM2;O1;rrO1;O2;rO1;r[4O1;r]rrrrO6;rrr} STR DD={[26r][O1]O6;rrr}STR DDH={l8SUB{[n51;r]rrn46rrrrr[n54]n53r}n73;rrn73n74rn73rrrn73rn74rn73rl16}STR DDI={SUB{[3DDH]}O3[29r]O1;r[O3;rrr][22r]O1;r[7DM1][O1;r][4DM1]SUB{O3}[4O1;r]rrrr[4O1]} STR DD1={DM6;DM13}STR DD2={DM7;DM20}STR DD3={DM7;DM21}STR DD4={[DM6:DM5]DM20}STR DD5={[[3O5;rrr]O6;rrr:[DM2]]DM2;O1;rrr[O2;r]DM20}STR DD4E={[DM6;DM5][3DM2]O1;O2;r[2O1]r[2O1]O3[15r]O5[15r][DM2]rrSUB{O3}[4O1;r]O1;rO6;rrr} TR=10l16DL=HAZ;BR=20p%=1000[4DDH]DDI;DD;DL=BGN;BR=20p%=1000DD1;DD2;DD3;DD4;DD1;DD5[4DDH]DD4;DD1;DDI;DD2;DD3;DD4E;DD;DL=END;REC2[4DDH] /*11*/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]} STR GG={@26[6GB;r[GR]]DR;r[GR]rrrr@25}STR GGI={PL1[4GP2][GP3]GP1;l8[4GB]l16[GB;r[GR]]}STR GG1={[7GP3]GP8}STR GG2={[[3GP3]:GP1]l8[4GB][GR][GB]l16}STR GG3={[3GP3]GP1[GP3]GP1;l8[4GB]l16[GB;r[GR]]}STR GG4={[7GP1]GP8}STR GG5={[[16r]GP3][3GP3]GP1}STR GGE={GP3;GP1;l4[[GR]GB;GR]l16GP2;GP1;} TR=11l16DL=HAZ;BR=20p%=-2000DL=HAZ+8GGI;GG;DL=BGN;PL1;BR=20p%=-2000GG1;GG2;GG3[GG4]GG1;GG5;GGI[GG4]GG1;GGI;GG2;GG3[GG4]GGE;GG; /*12*/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={@33SUB{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} TR=12l16DL=HAZ[PD3]DL=BGN;PD3;DL=BGN+7PD4;DL=SB1[3PD3]DL=RF1+7PD4;DL=SB2-1PD4;DL=ME4[5PD3]DL=NK1+7PD4;DL=RF2+7PD4;DL=SB3[PD3] /*13*/STR PP={BR=24p.W(127,0,!16)}STR PG1={P.onCycle(!8,0,22,106,127,106,22)}STR DS1={br`br`gr`e`c`cargrdr}STR DS2={[8r][4`c]grgg}STR DS3={[8r]d`dd`drd`dd}STR DS4={gr`drbrggrg`dggg`dg}STR DS5={`d`dr`dararfrfrcrcc}STR DS6={[10r]`ar`ergr}STR DS7={[12r]`eaer}STR DS8={p.T(127,0,!1)BR=20[16e]rp=64PP}STR DS9={[`d#][a#][g][d#][8r]}STR DS10={[8`g]`c`cgrcr"gr} STR DS11={[rrrr`dafd]}STR DS12={[4`g][4`d]ggrgrgrg}STR DS13={[8r][`dr]`dad"a}STR DS14={[3`g]rgggr`gr`ggrg`g`g}STR DS15={`g`gr`d`drggrddr["gr]}STR DS16={[8r]`gr`crgrcr}STR DS17={eeeeddddgrrrerrr}STR DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]} TR=13l16@11,0l4EP=100P.onCycle(!2,20,107)[a^f^a^`c^a#^f^:a#^`c^]`d^`c^l16:['SWEET'r]]r['SWEET'^^]'SWEET'^}FUNCTION PIE(STR SWEET,STR FF1){l8[l16:['SWEET'r]]r} STR FT={>y64=127EP=127`ca#gfec"a#"g"c"e"gDiv{"c"e"g}c^^^'LC'^^^]'LF'^y64=127"f"g"acy64=0'LF'^'LD'^^^^"d'LD'^<'LAS'^^^['LAS'^]>q=100'LC'^^^^^^^} STR FTA={l8EP=100cfacacfa;cfacf^rr}STR FT1={EP=100[[['af'^]:['fc'^]]['`ca'^]EP=120a#fa#`c`d`e`f`g:`f^`e^`c^a#^]`a^`a^`g^^^}STR FT2={EP=90[[cfacacfa]dfa#da#dfa#[3'`ca']:'af'^^'af'^]'af'^^rr} STR FT3={EP=90["a#df"a#f"a#df;"ace"afedc:"a#df"a#f"a#df;"aced^^d^]"g"a"a#"g"a#cd"a#c"c"e"gc^^r}STR FT4={l16EP=100[PIA=LF;PIE(LAS,{"a#})>PIC=LC<]PIA=LF;PIA=LD;PID(LAS,{"a#})>PIA=LCPIA=LCPIA=LC>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<p=64}STR BG3={@80,0P=70l4rrrBR=120p.T(127,0,!6)`gp=64}STR BG4={l4<@128,3P=70BR=12rrp.T(64,64,!4,70,127,!4)'a"a`a'^r>p=64} STR BG5={@80,0l4rrrl8[BR=70p.T(127,0,!10)`g]p=64}STR BG6={l4<@128,3P=70p.T(64,64,!4,70,127,!2)'"a'^^r>p=64}STR BG7={@126,7l2BR=100p=127PAN(!1^1^4,1)EP.T(120,127,!1)a^^^rrrrp=64} STR BG8={@126,7l2BR=100p=127PAN(!1^1^4,0)EP.T(120,127,!1)a^^^rrrrp=64}STR BG9={>>@123,5l32P=70BR=36p.T(64,32,!1)[24`e]<>`ca#gfec"a#"g この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)
l16:['SWEET'r]]r['SWEET'^^]'SWEET'^}FUNCTION PIE(STR SWEET,STR FF1){l8[l16:['SWEET'r]]r} STR FT={>y64=127EP=127`ca#gfec"a#"g"c"e"gDiv{"c"e"g}c^^^'LC'^^^]'LF'^y64=127"f"g"acy64=0'LF'^'LD'^^^^"d'LD'^<'LAS'^^^['LAS'^]>q=100'LC'^^^^^^^} STR FTA={l8EP=100cfacacfa;cfacf^rr}STR FT1={EP=100[[['af'^]:['fc'^]]['`ca'^]EP=120a#fa#`c`d`e`f`g:`f^`e^`c^a#^]`a^`a^`g^^^}STR FT2={EP=90[[cfacacfa]dfa#da#dfa#[3'`ca']:'af'^^'af'^]'af'^^rr} STR FT3={EP=90["a#df"a#f"a#df;"ace"afedc:"a#df"a#f"a#df;"aced^^d^]"g"a"a#"g"a#cd"a#c"c"e"gc^^r}STR FT4={l16EP=100[PIA=LF;PIE(LAS,{"a#})>PIC=LC<]PIA=LF;PIA=LD;PID(LAS,{"a#})>PIA=LCPIA=LCPIA=LC>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<p=64}STR BG3={@80,0P=70l4rrrBR=120p.T(127,0,!6)`gp=64}STR BG4={l4<@128,3P=70BR=12rrp.T(64,64,!4,70,127,!4)'a"a`a'^r>p=64} STR BG5={@80,0l4rrrl8[BR=70p.T(127,0,!10)`g]p=64}STR BG6={l4<@128,3P=70p.T(64,64,!4,70,127,!2)'"a'^^r>p=64}STR BG7={@126,7l2BR=100p=127PAN(!1^1^4,1)EP.T(120,127,!1)a^^^rrrrp=64} STR BG8={@126,7l2BR=100p=127PAN(!1^1^4,0)EP.T(120,127,!1)a^^^rrrrp=64}STR BG9={>>@123,5l32P=70BR=36p.T(64,32,!1)[24`e]<>`ca#gfec"a#"g
p=64}STR BG3={@80,0P=70l4rrrBR=120p.T(127,0,!6)`gp=64}STR BG4={l4<@128,3P=70BR=12rrp.T(64,64,!4,70,127,!4)'a"a`a'^r>p=64} STR BG5={@80,0l4rrrl8[BR=70p.T(127,0,!10)`g]p=64}STR BG6={l4<@128,3P=70p.T(64,64,!4,70,127,!2)'"a'^^r>p=64}STR BG7={@126,7l2BR=100p=127PAN(!1^1^4,1)EP.T(120,127,!1)a^^^rrrrp=64} STR BG8={@126,7l2BR=100p=127PAN(!1^1^4,0)EP.T(120,127,!1)a^^^rrrrp=64}STR BG9={>>@123,5l32P=70BR=36p.T(64,32,!1)[24`e]<
>`ca#gfec"a#"g