サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント はい 曲データ(サクラから貼り付けます。) // THX DL <DRUM'N BASS> 08 06 26(THU) Temp=Type.B ResetGS;r4;Tempo=185TrackName={"Computer Virus"}Copyright={"WE5T"}MetaText={"*PR* Myblog→ " katasumi_7019@yahoo,co,jp " *Access here!*"} Include(gs.h)Include(delay.h)System.MeasureShift=2System.vMax=150FUNCTION MP(STR X){Sub{X}>X<}FUNCTION MM(STR X){Sub{X}}FUNCTION MB(STR X){Sub{X}Sub{}>X<}Int RNS=0Int SET=RNS*-1 FUNCTION XE(ST){Time(ST:1:0)}Function GS_R(D){Int TH=CH;Int C;If(TH==10){C=$00}ELSE{If(TH<10){C=TH}ELSE{C=TH-1}}C=$10+C;SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(C),$15,(D)},$F7} Function DRUM_PART(PART_NUMBER){XE(-2)GS_R(PART_NUMBER)r8}Function TC(TNCN){TR=TNCN;CH=TNCN}TC=9DRUM_PART=1TC=10DRUM_PART=2TC=11DRUM_PART=1 FUNCTION SRS(TN,CN,VA,QA,VR,PA,MA,CA,RA,VO,VO2,NT){TR(TN)XE=0l16;CH(CN)v(VA)q(QA)VAR(VR)P(PA)M(MA)CHO(CA)REV(RA)@(VO,VO2,0)o(NT)p(64)} FUNCTION PLAYING(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}TR=1I;T1;TR=2I;T2;TR=3I;T3;TR=4I;T4;TR=5I;T5;TR=6I;T6;TR=7I;T7;TR=8I;T8;TR=9I;T9;TR=10I;T10;TR=11I;T11;TR=12I;T12;TR=13I;T13;TR=14I;T14;TR=15I;T15;TR=16I;T16} //-(TR ,CH , v , q ,VAR, P , M ,CHO,REV, @ ,MSB, o )------SES(TR ,CH , v , q ,VAR, P , M ,CHO,REV, @ ,MSB, o )----// SRS(001,001,100,080,000,000,000,000,000,081,001,004)/*BS*/SRS(009,009,150,080,090,000,000,000,000,025,000,006)/*KS*/ SRS(002,002,150,080,000,064,000,000,000,039,008,002)/*BS*/SRS(010,010,127,080,100,127,000,000,000,025,000,001)/*HI*/ SRS(003,003,150,080,000,064,000,000,000,039,000,002)/*BS*/SRS(011,011,100,080,000,064,000,000,000,025,000,001)/*PA*/ SRS(004,004,085,120,000,064,000,000,000,035,000,001)/*BG*/SRS(012,012,120,080,000,064,000,000,000,001,000,009)/*SE*/ SRS(005,005,085,120,000,064,000,000,000,036,000,001)/*BG*/SRS(013,013,120,080,000,040,000,000,000,031,008,005)/*GU*/ SRS(006,006,100,080,000,000,000,000,000,081,001,001)/*SY*/SRS(014,014,120,080,000,080,000,000,000,031,000,004)/*GU*/ SRS(007,007,100,080,000,127,000,000,127,063,000,001)/*SY*/SRS(015,015,120,080,000,064,000,000,000,001,000,001)/*SE*/ SRS(008,008,110,080,090,064,000,000,064,082,000,001)/*SY*/SRS(016,016,120,080,000,064,000,000,000,001,000,004)/*SE*/ //-(TR ,CH , v , q ,VAR, P , M ,CHO,REV, @ ,MSB, o )------SES(TR ,CH , v , q ,VAR, P , M ,CHO,REV, @ ,MSB, o )----// //TR=01 02 03 --------------------------------------------------------------------------------------------------------------------------------- STR IF2={IF(1==CH){@81,1}IF(2==CH){@39,8}IF(3==CH){@39}}STR VC0={p.W(70,50,!8)l8[8g#rgf#rfer]} STR VCA={t11l8v127MidiDelay({[4r1p.W(70,50,!8)g#rgf#rfer[7r]p.W(70,50,!16)g#g#rgf#rfer]},1,!8)} STR VCB={t11l8v127MidiDelay({[4r1p.W(70,50,!16)g#rgf#rfer:[7r]p.W(70,50,!16)g#g#rgf#rfer]},1,!8)r1^1}STR IFV={IF(1==CH){@114}IF(2==CH){@88}} STR VC1={IF2;VCA}STR VC2={IF2;VCB}STR VC3={IFV;VCA;IF2}STR VC4={IFV;VCB;IF2} //TR=04 05 ------------------------------------------------------------------------------------------------------------------------------------ STR QL0={MP({[8`d1`d#2`c#2]})}STR QLT={MP({[4`d1`d#2`c#2]})}STR QL1={v120MP({[8b1&a#^^^&a^^^&g#^^^&g^^^]})} STR QL2={MP({[8v.T(120,120,!1,120,150,!1)b1&a#^^^&a^^^&g#^^^&g^^^v90]})} //TR=06 07 08 --------------------------------------------------------------------------------------------------------------------------------- STR CY0={[6r1]>>>[bbrbbbrb][`b`br`b`b`br`b:>]<<<<}STR CY1={>>>[4MP({b^^^&`b^^^&b^^^rrrrr2^4rrbrbrrr`b^^^&b^^^rrrrr1})]<<<} STR CY2={>>MP({[4b^^^&`b^^^&b^^^rrrrr2^4rrb^:brrr`b^^^&b^^^rrrrr1]b1`g2p.T(64,64,!4,64,30,!4)`b2p64})<<}STR CIF={>IF(8==CH){@126,3}} STR CY3={CIF;CY1<}STR CY4={CIF;CY2<}STR CY5={p.W(80,40,!16)CY3}STR CY6={p.W(80,40,!16)CY4} STR GDC={>>>>p.T(64,64,!1^1^1^1^1^1^1^1^1^1^1^1,64,0,!1^1^1^1)v127@82[8arargf#eararagf#ergrgrf#edgrgrgf#edr]v100@81,1p64;<<<<} //TR=09 --------------------------------------------------------------------------------------------------------------------------------------- STR DD={n27n32n35n36}STR BD={@25'DD'}STR SD={BR=10p127@25'n38n40DD'}STR SD2={@33'n38n40DD'}STR BS1={v150[4[3BD;rrrSD;rrrrrBD;rSD;rrr]BD;rrrSD;rBD;rrrBD;rSD;rrr]} STR BS2={S{[4r1][4BD;rrr[5BD]rBD;rrrrr]}MidiDelay({[4BD]SD[3BD]},5,!2)r2r1^1^1^1^1p.T(40,60,!1^1)v.T(90,127,!1^1)[8SD;SD;BD;SD]}STR BST={[8BD[9r]BD[5r]]} STR BS3={BD;rrr'n38n40n57DD'rrrBD;rrrSD;rrr[15BD;rrrSD;rrrrrBD;rSD;rrr]}STR BS4={[15BD;rrrSD;rrrrrBD;rSD;rrr]r1} //TR=10 --------------------------------------------------------------------------------------------------------------------------------------- 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]} STR XC0={BR=50p.T(50,0,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)Sub{[8[4rrXB:r]XB]}Sub{[16rrrrXC;rrr]}Sub{[8[3n46r:rr]n46n46rn46rr]}[8[8XA:r]XA]p64}STR XC2={MidiDelay({'n57'},32,!16)} //TR=11 --------------------------------------------------------------------------------------------------------------------------------------- STR BX={v80'n62n64'}STR BV={'n28n61n63'}STR ZS1={v50[15BX;rrrBV;r[3BX;r]BV;rBX;r]r2v127BD;SD;BD;rSD;BD;rSD;l16v50} STR ZS0={BR=60p.T(127,0,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)[8BX;rrrBV;r[3BX;r]BV;rBX;r]p64}STR ZS3={v50[15BX;rrrBV;r[3BX;r]BV;rBX;r]v127v.T(20,100,!1)[16SD]v50} STR ZS4={v100BR=20p.T(127,0,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)[16[rrrrBV;rrr]]v50p64} //TR=12 --------------------------------------------------------------------------------------------------------------------------------------- STR BX1={@125,1BR=10p.T(127,0,!1^1^1^1^1^1^1^1)MidiDelay({'b`d'4},16,!4)}STR BX2={@81,1p.T(0,127,!1)[cefa>]<<} //TR=13 14 ------------------------------------------------------------------------------------------------------------------------------------ STR A={IF(14==CH){V.W(40,90,!2)}Else{V.W(90,70,!2)}}STR SA1={l4M=127MP({[A;d^^^^f&e^d#^dc#^c#&&c^d^^^^a&g#^g^f#f^e&d#^]})}STR SA2={MidiDelay({dddd},3,!2)} STR SAT={l4M=127MP({A;d^^^^f&e^d#^dc#^c#&c^d^^^^a&g#^g^f#f^e&d#^})}STR SA3={MidiDelayTap({b&`b&b&`b},16,!4)}STR SA4={[SA1]} //TR=15 --------------------------------------------------------------------------------------------------------------------------------------- STR CD1={@81,1BR=40p.T(0,127,!1^1^1^1^1^1^1^1)[32'``c``b'rrr]}STR CD2={v70@80[8p.T(127,127,!2,127,60,!2)````c1p127r1]} STR CD3={}STR FSA={[>>V.T(40,110,!1^1,109,41,!1^1,40,110,!1^1,109,41,!1^1)S{@98d1^1^1^1^1r1^1^1}>@51r1^1^1e1^1^1^1^1<<<]} //TR=16 --------------------------------------------------------------------------------------------------------------------------------------- STR VG1={@126,8p.T(127,80,!2,79,0,!2)'`a`e'1p64r1^1^1BR=30p.T(0,127,!1^1^1^1)@127'`c`d`e'1^1^1^1^1} STR FSB={[V.T(110,41,!1^1,40,109,!1^1,110,41,!1^1,40,115,!1^1)S{@81,1d#1^1^1^1^1r1^1^1}>@19r1^1^1f1^1^1^1^1<]} //PLAYING(TIME, TR1, TR2, TR3, TR4, TR5, TR6, TR7, TR8, TR9,TR10,TR11,TR12,TR13,TR14,TR15,TR16) PLAYING( SET, , , , QL0, QL0, , , , , XC1, , , SA1, SA1, , )//Intro1 PLAYING( 016, , , , QLT, QLT, , , , BST, XC0, ZS0, , SAT, SAT, , )//Intro2 PLAYING( 024, VC0, VC0, VC0, , , CY0, CY0, CY0, BS2, , , BX1, SA2, SA2, CD1, VG1)//Break PLAYING( 032, VC1, VC1, VC1, QL1, QL1, CY1, CY1, CY1, BS1, XC1, ZS1, , , , , )//FI1 PLAYING( 048, VC2, VC2, VC2, QL1, QL1, CY2, CY2, CY2, BS1, XC1, ZS1, , , , , )//FI2 PLAYING( 064, VC1, VC1, VC1, QL1, QL1, CY1, CY1, CY1, BS1, XC1, ZS1, BX2, SA3, SA3, CD2, )//FI3 PLAYING( 080, VC2, VC2, VC2, QL1, QL1, CY2, CY2, CY2, BS1, XC1, ZS1, , , , CD2, )//FI4 PLAYING( 096, VC1, VC1, VC1, QL1, QL1, CY3, CY3, CY3, BS3, XC1, ZS1, BX2, , , CD3, )//FI5 PLAYING( 112, VC2, VC2, VC2, QL1, QL1, CY4, CY4, CY4, BS1, XC1, ZS1, BX2, SA3, SA3, CD3, )//FI6 PLAYING( 128, VC3, VC3, VC3, QL1, QL1, CY5, CY5, CY5, BS3, XC1, , BX2, , , CD2, )//FI7 PLAYING( 144, VC4, VC4, VC4, QL1, QL1, CY6, CY6, CY6, BS4, XC1, ZS1, BX2, , , CD3, )//FI8 PLAYING( 160, VC1, VC1, VC1, QL2, QL2, , , , BS4, XC1, , BX2, , , CD2, )//FI9 PLAYING( 176, , , , QL2, QL2, , , , BS1, XC1, ZS1, BX2, , , , )//FI10 PLAYING( 192, , , , , , GDC, , , , , , , , , FSA, FSB)//BREAK PLAYING( 208, VC0, VC0, VC0, , , CY0, CY0, CY0, BS2, , , BX1, SA2, SA2, CD1, VG1)//BREAK PLAYING( 216, VC1, VC1, VC1, QL1, QL1, CY1, CY1, CY1, BS1, XC1, ZS1, , , , , )//SE1 PLAYING( 232, VC2, VC2, VC2, QL1, QL1, CY2, CY2, CY2, BS1, XC1, ZS1, , , , , )//SE2 PLAYING( 248, VC1, VC1, VC1, QL1, QL1, CY1, CY1, CY1, BS1, XC1, ZS1, BX2, SA3, SA3, CD2, )//SE3 PLAYING( 264, VC2, VC2, VC2, QL1, QL1, CY2, CY2, CY2, BS1, XC1, ZS1, , , , CD2, )//SE4 PLAYING( 280, VC1, VC1, VC1, QL1, QL1, CY3, CY3, CY3, BS3, XC1, ZS1, BX2, , , CD3, )//SE5 PLAYING( 296, VC2, VC2, VC2, QL1, QL1, CY4, CY4, CY4, BS1, XC1, ZS1, BX2, SA3, SA3, CD3, )//SE6 PLAYING( 312, VC3, VC3, VC3, QL1, QL1, CY5, CY5, CY5, BS3, XC1, , BX2, , , CD2, )//SE7 PLAYING( 328, VC4, VC4, VC4, QL1, QL1, CY6, CY6, CY6, BS4, XC1, ZS1, BX2, , , CD3, )//SE8 PLAYING( 344, VC1, VC1, VC1, QL2, QL2, , , , BS4, XC1, , BX2, , , CD2, )//SE9 PLAYING( 360, , , , QL2, QL2, , , , BS4, XC1, , BX2, , , , )//SE10 PLAYING( 376, , , , QL0, QL0, , , , BS1, XC1, ZS4, , SA1, SA1, , )//EN PLAYING( 392, , , , QL0, QL0, , , , BS1, XC1, ZS4, , SA1, SA1, , )//EN PLAYING( 408, , , , , , , , , , XC2, , , , , , )//CYM //PLAYING(TIME, TR1, TR2, TR3, TR4, TR5, TR6, TR7, TR8, TR9,TR10,TR11,TR12,TR13,TR14,TR15,TR16) この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)