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

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

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

曲　名

作　者名前: パスワード:

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

ジャンル

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

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

コメント
（再編集版）なんとなく勢いで完成、、、イライラしたときに大音量で聞いてみて（ヘッドホン推奨）

曲データ（サクラから貼り付けます。）
曲名{"Cat dog"} 作者{"saku"} //前半はdogな感じ、後半はCatなイメージで聞いてみてください。 //　　　（注：リバーブに対応してないと若干ノイズが入りますm(_ _)m 音源初期化 //_----------------------------------------------------------------------------- //------------------------------------------------------------------------------ Array STune = (0,0,0,0,0,0); Str Sa;Str Sb;Str Sc;Str Sd;Str Se;Str Sf;Array St Str D;Str DM;Str U;Str UM; Function Mut(Str MStr){ Int Nowq=MML(q); q%4 MStr;q(Nowq) } Function StT(Int Hiki,Int Zure){ St(0)=Hiki;St(1)=Hiki+Zure*1; St(2)=Zure*2+Hiki;St(3)=Zure*3+Hiki;St(4)=Zure*4+Hiki;St(5)=Zure*5+Hiki; Print("ST= "+St)} #Form={ Sa={n(40 + STune(0) + #?1)} Sb={n(45 + STune(1) + #?2)} Sc={n(50 + STune(2) + #?3)} Sd={n(55 + STune(3) + #?4)} Se={n(59 + STune(4) + #?5)} Sf={n(64 + STune(5) + #?6)} } Function Stroke(SSa,SSb,SSc,SSd,SSe,SSf){ D={t_.N(St(0),St(1),St(2),St(3),St(4),St(5));'Sa Sb Sc Sd Se Sf t_(0)'} U={t_.N(St(5),St(4),St(3),St(2),St(1),St(0));'Sa Sb Sc Sd Se Sf t_(0)'} DM={t_.N(St(0),St(1),St(2),St(3),St(4),St(5));Mut({'Sa Sb Sc Sd Se Sf t_(0)'})} UM={t_.N(St(5),St(4),St(3),St(2),St(1),St(0));Mut({'Sa Sb Sc Sd Se Sf t_(0)'})} IF(SSa=1){ D.s({Sa},{Mut({Sa})});U.s({Sa},{Mut({Sa})}); }ELSE{ } IF(SSa=2){ D.s({Sa},{});U.s({Sa},{}); }ELSE{ } IF(SSb=1){ D.s({Sb},{Mut({Sb})});U.s({Sb},{Mut({Sb})}); }ELSE{ } IF(SSb=2){ D.s({Sb},{});U.s({Sb},{}); }ELSE{ } IF(SSc=1){ D.s({Sc},{Mut({Sc})});U.s({Sc},{Mut({Sc})}); }ELSE{ } IF(SSc=2){ D.s({Sc},{});U.s({Sc},{}); }ELSE{ } IF(SSd=1){ D.s({Sd},{Mut({Sd})});U.s({Sd},{Mut({Sd})}); }ELSE{ } IF(SSd=2){ D.s({Sd},{});U.s({Sd},{}); }ELSE{ } IF(SSe=1){ D.s({Se},{Mut({Se})});U.s({Se},{Mut({Se})}); }ELSE{ } IF(SSe=2){ D.s({Se},{});U.s({Se},{}); }ELSE{ } IF(SSf=1){ D.s({Sf},{Mut({Sf})});U.s({Sf},{Mut({Sf})}); }ELSE{ } IF(SSf=2){ D.s({Sf},{});U.s({Sf},{}); }ELSE{ } } //（コード設定） #Eadd9={#Form(0,2,2,1,0,2);Stroke(0,0,0,0,0,0);} #Cadd9={#Form(0,3,2,0,3,0);Stroke(0,0,0,0,0,0);} #D#add9={#Form(1,1,1,3,4,1);Stroke(2,0,0,0,0,2);} #Dadd9={#Form(0,0,0,2,3,0);Stroke(2,0,0,0,0,0);} #Dadd901={#Form(0,0,0,2,3,2);Stroke(2,0,0,0,0,0);} #Aadd9={#Form(0,0,2,2,0,0);Stroke(2,2,0,0,0,0);} #Aadd901={#Form(0,0,2,2,2,0);Stroke(2,2,0,0,0,0);} #Aadd902={#Form(0,0,2,2,3,0);Stroke(2,2,0,0,0,0);} #A#add9={#Form(1,1,3,3,1,1);Stroke(2,2,0,0,0,0);} #A#add901={#Form(1,1,3,3,1,1);Stroke(2,2,0,0,2,2);} #A#add902={#Form(1,1,3,3,1,1);Stroke(2,2,0,0,0,2);} #Badd9={#Form(2,2,4,4,2,2);Stroke(2,2,0,0,0,0);} #Badd901={#Form(3,3,5,5,3,3);Stroke(2,2,0,0,0,0);} #Badd902={#Form(4,4,6,6,4,4);Stroke(2,2,0,0,0,0);} #Badd903={#Form(5,5,7,7,5,5);Stroke(2,2,0,0,0,0);} #Badd904={#Form(6,6,8,8,6,6);Stroke(2,2,0,0,0,0);} #Badd905={#Form(7,7,9,9,7,7);Stroke(2,2,0,0,0,0);} #Gadd9={#Form(3,0,0,2,3,3);Stroke(0,2,0,0,0,0);} #Fadd9={#Form(0,0,3,2,1,3);Stroke(2,2,0,0,0,0);} #Fadd901={#Form(0,0,3,2,0,3);Stroke(2,2,0,0,0,0);} #CM7={#Form(0,3,2,0,0,0);Stroke(0,0,0,0,0,0);} #CM701={#Form(0,3,2,0,1,0);Stroke(0,0,0,0,0,0);} #CM702={#Form(0,3,2,0,3,0);Stroke(0,0,0,0,0,0);} #CM703={#Form(0,3,2,0,0,1);Stroke(0,0,0,0,0,0);} #CM704={#Form(0,3,2,0,0,3);Stroke(0,0,0,0,0,0);} #EM7={#Form(0,2,1,1,0,0);Stroke(0,0,0,0,0,0);} #FM7={#Form(0,3,3,2,1,0);Stroke(2,0,0,0,0,0);} #DM7={#Form(0,0,0,2,2,2);Stroke(2,0,0,0,0,0);} #AM7={#Form(0,0,2,1,2,0);Stroke(2,2,0,0,0,0);} #AM701={#Form(0,0,2,1,0,0);Stroke(2,2,0,0,0,0);} #AM702={#Form(0,0,2,1,3,0);Stroke(2,2,0,0,0,0);} #GM7={#Form(3,2,0,0,0,2);Stroke(0,0,0,0,0,0);} #E#M7={#Form(0,1,1,3,3,3);Stroke(2,0,0,0,0,0);} #G7sus4={#Form(3,3,0,0,1,1);Stroke(2,2,0,0,0,0);} #D={#Form(0,0,0,2,3,2);Stroke(2,0,0,0,0,0);} #C={#Form(0,3,2,0,1,0);Stroke(0,0,0,0,0,0);} #E={#Form(0,2,2,1,0,0);Stroke(2,2,0,0,0,0);} #E01={#Form(0,2,2,1,2,0);Stroke(2,2,0,0,0,0);} #A={#Form(0,0,2,2,2,0);Stroke(2,0,0,0,0,0);} #G={#Form(3,2,0,0,0,3);Stroke(0,0,0,0,0,0);} #R={#Form(0,0,0,0,3,2);Stroke(0,0,0,0,0,0);} #Q={#Form(5,7,7,6,5,5);Stroke(0,0,0,0,0,0);} #W={#Form(3,5,2,0,0,0);Stroke(0,0,0,0,0,0);} //（パターン設定） Str Pat1={v88Se^v83Sd^v78Sc^q300v88Se^v83Sd^v88q250Sc^Se^Sc^} Str Pat2={q600D;^q3000^q600D;U;^D;^q3000^q600D;U;^D;^q170; D;U;} Str Pat3={v78Se^v73Sd^v78Sc^q300v78Se^v73Sd^v78q250Sc^Se^Sc^} //_----------------------------------------------------------------------------- //_----------------------------------------------------------------------------- Tempo(167) StT(-2,1) q200;h1 //_------------------------------------------------------------------------------------------ トラック１音色(OverdrivenGuitar)l8 o4 v120 q120　REV(80) [q120>f#0"b f#0"b f#0"b e0"b e0"b e0"b f#0"b f#0"b f#0"b e0"b e0"b e0"b f#0"b f#0"b e0"b e0"b<] 音色(OverdrivenGuitar)v120 q130 [4 #E; D;U;D; #Aadd9; U;D; #A; U;D;U; ] q150 [8 [#Aadd9; q250D;^D;^q150D;U;D; #Aadd901;q250D;^q150 #Aadd9;U; #Aadd901;D; #Aadd902;q250U;^ #Aadd901;q150D; #Aadd9;U; #Aadd901;D;] [#E;q250D;^q150D;q250U;^D;^ #E01;D;^ #E;q150D;q250U; #E01;D;^ #E;q150U; #E01;q250D;^] ] [#Aadd9; q250D;^D;^q150D;U;D; #Aadd901;q250D;^q150 #Aadd9;U; #Aadd901;D; #Aadd902;q250U;^ #Aadd901;q150D; #Aadd9;U; #Aadd901;D;] #E;q250D;^q150D;q250U;^D;^ #E01;D;^ #E;q150D;q250U; #E01;D;^ #E;q150U; #E01;q250D;^ #E;q250D;^q150D;q250U;^D;^ #E01;D;^ #E;q150D;q250U; #E01;D;^ #E;q150U; #E01;q110D;D;rrrr //_------------------------------------------------------------------------------------------ トラック２　音色(PickBass)l8 o3 q140 REV(080) [4rrrrrrrr] v100[4 eee"b"b`c#"b"a] v120[32 eq200^q150eq200e^q150"b"bq200c#^q150"b"bq200c#^q150"bc#"b] //_------------------------------------------------------------------------------------------ トラック３　音色(Sci_Fi)l8 方向右 v127 o5 [16rrrrrrrr rrrrrrrr] [v118aa`d`dv105aa`d`dv90aa`d`dv80aa`d`d ] [v118g#g#`c#`c#v105g#g#`c#`c#v90g#g#`c#`c# v80g#g#`c#`c#] [12rrrrrrrr rrrrrrrr]音色(SquareLead) [ [v115方向右aa`d`dv90方向左aa`d`dv80方向右aa`d`dv70方向左aa`d`d ] [v115方向右g#g#`c#`c#v90方向左g#g#`c#`c#v80方向右g#g#`c#`c# v70方向左g#g#`c#`c#] ] //_------------------------------------------------------------------------------------------ トラック４　音色(DistortionGuitar)l8 o5 REV(080) [12rrrrrrrr rrrrrrrr] [ [ v70 q200 #Dadd9;D;^D;D;^ #Dadd901;D;^D;^ #Dadd9;D;^ #Dadd901;D; #Dadd9;D;^ #Dadd901;D;^] [ v70 q200 #Aadd9;D;^D;D;^ #Aadd901;D;^D;^ #Aadd9;D;^ #Aadd901;D; #Aadd9;D;^ #Aadd901;D;^] ] [8rrrrrrrr rrrrrrrr] [ [ v70 q200 #Dadd9;D;^D;D;^ #Dadd901;D;^D;^ #Dadd9;D;^ #Dadd901;D; #Dadd9;D;^ #Dadd901;D;^] [ v70 q200 #Aadd9;D;^D;D;^ #Aadd901;D;^D;^ #Aadd9;D;^ #Aadd901;D; #Aadd9;D;^ #Aadd901;D;^] ] //_------------------------------------------------------------------------------------------ トラック５音色(GuitarHarmonics)　o4 l8 REV(080) 方向左 [8rrrrrrrr rrrrrrrr] [24 v127 `c#b`c#a^bab] [8rrrrrrrr rrrrrrrr]音色(Hamonica)o5方向前 [16 v127 `c#b`c#a^bab]rrrr //_------------------------------------------------------------------------------------------ トラック６　音色(Koto)v95 q120　l8 o5 REV(080) [12rrrrrrrr rrrrrrrr] [ [4 方向左df#dg#^方向右e^^] [4方向左c#ec#f#^方向右e^^] ] [8rrrrrrrr rrrrrrrr]音色(Sci_Fi)o6 [v76 [4 方向左df#dg#^方向右e^^] [4方向左c#ec#f#^方向右e^^] ] //_------------------------------------------------------------------------------------------ トラック7　音色(DistortionGuitar)v95 q120　l8 o5 REV(080)　 [12rrrrrrrr rrrrrrrr] [ [4 方向左df#dg#^方向右e^^] [4方向左c#ec#f#^方向右e^^] ] [8rrrrrrrr rrrrrrrr]音色(Shanai)o6 [v76 [4 方向右df#dg#^方向左e^^] [4方向右c#ec#f#^方向左e^^] ] //_------------------------------------------------------------------------------------------ トラック10; チャンネル10; ~{ど}={n(Kick1),} ~{た}={n(Snare1),} ~{つ}={n(ClosedHiHat),} ~{ち}={n(OpenHiHat),} ~{ぱ}={n(CrashCymbal1),} ~{か}={n(HandClap),} ~{ちゃ}={n(Sticks),} ~{てゃ}={n(Snare2),} 時間(1:1:0); 音色(StandardSet) 音量70 音符8 Key(0) REV(80) [rrrrrrrr] v70つつつつつつつつv110たv70つv110たv70つv110たv70つv100た16た16た16た16 l16 [4v110「どv80つ」っv80つっv110「た」っv80つv110た「ど」っv90「たv60ぱ」っv90たたたた] [16v110「どv80ぱ」っv80つっv110「たv80つ」っつv110たv80つっv110どっv80つっv110「たv70ぱ」v110っっっどっ「たv70ぱ」っv80つv110たどっ「たv80ぱ」っv90たたたた] [8rrrrrrrr rrrrrrrr] [11v110「どv80ぱ」っv80つっv110「たv80つ」っつv110たv80つっv110どっv80つっv110「たv70ぱ」v110っっっどっ「たv70ぱ」っv80つv110たどっ「たv80ぱ」っv90たたたた] v110「どv80ぱ」っv80つっv110「たv80つ」っつv110たv80つっv110どっv80つっv110「たv70ぱ」v110っっっどっ「たv70ぱ」っv80つv110たどっ「たv80ぱ」っv120たたたた

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

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