サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 去年のクリスマスソングです。投稿後まもなく旧曲掲示板が終了してしまいました。 中身は到って普通で、平和な路線のユーロビートです。 曲データ(サクラから貼り付けます。) // ユーロビートとしては普通な仕上がりだと思います // ■MP3⇒http://windows2010.hp.infoseek.co.jp/NO.152.mp3 INT TEMPO_EST = 153 ; //テンポ設定 STR MODE1 = GS ; TrackName={LOVE IN CHRISTMAS NIGHT}Copyright={H゛}System.MeasureShift(3)Tempo=1000Include(delay.h)ResetGS;PlayFrom.SysEx(on)PlayFrom.CtrlChg(on)PlayFrom.RPN_NRPN(on) 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 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, 072, 000, 000, 000, 064, 030, 040, 127, 090, 000)INS={"MAIN"} Autoexec( 002, 002, 099, 001, 000, 000, 064, 040, 020, 100, 093, 000)INS={"BELL_SYNTH"}If(MODE1==TWM){v=110} Autoexec( 003, 003, 101, 000, 000, 000, 000, 040, 020, 070, 070, 000)INS={"BELL_SYNTH"}If(MODE1==TWM){v=90} Autoexec( 004, 004, 103, 000, 000, 000, 127, 040, 020, 100, 100, 000)INS={"BELL_SYNTH"}If(MODE1==TWM){v=110} Autoexec( 005, 005, 039, 001, 000, 000, 030, 020, 020, 127, 090, 010)INS={"BASS"} Autoexec( 006, 006, 049, 000, 000, 000, 032, 040, 030, 080, 103, 020)INS={"CHORD"}If(MODE1==TWM){V=110} Autoexec( 007, 007, 088, 000, 000, 000, 080, 040, 030, 110, 090, 000)INS={"BASS"} Autoexec( 008, 008, 072, 000, 000, 000, 020, 040, 040, 110, 090, 030)INS={"ULA_MERO"} Autoexec( 009, 009, 072, 000, 000, 000, 107, 040, 040, 110, 090, 030)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, 006, 000, 000, 000, ___, 040, 030, 127, 090, )INS={"BGN"} Autoexec( 015, 015, 047, 000, 000, 000, 096, 030, 050, 110, 100, )INS={"BGM"} Autoexec( 016, 016, 091, 000, 000, 000, 084, 030, 050, 127, 100, )INS={"BGSOUND"} //------( TR , CH , @ , Key, P , P2 , P3 , CHO, REV, v , VAR, M )INS={InstrumentName} //-------------------------------------------------------------------------------------------------------------------------------------------------------------------// DL=0Tempo=TEMPO_EST;INT HAZ=2INT BGN=19INT ME1=27INT ME2=43INT SB1=51INT RF1=67INT ME3=75INT ME4=83INT SB2=91INT RF2=108 INT NK1=116INT NK2=124INT ME5=133INT SB3=141INT END=157FUNCTION 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)} //------------------------------------------------------------------------------TR=001;------------------------------------------------------------------------------// STR DJ1={[a^^ag^d^ggab^agaf#^^f#f#^ef#^g^eref#ga^^e^^a^g^^e^^g^:f#^^f#f#^ed^^rddef#^]dd^ef#af#`d^^rf#f#ga^}STR DJ2={ggeg^abgf#f#df#^ga^g^^^rbbbag^f#^d^"be^^^rgggf#f#^g^a^rgg^a^b^ba^^rg^a^} STR DJ3={[bb`cb^gb`c`d^rddef#^ggag^d^r:ggag^d^e^^^rrbbb`cb^a^grg`cb^a^ggab^`ca^rga]b^ag^f#^de^^^rggggg^a^b^rgg^a^b^ga^rddef#^l4g^^^^l8} STR DJ4={a^^ag^d^ggab^agaf#^^f#f#^ef#^g^eref#ga^^e^^a^g^^e^^g^dd^ef#af#`d^^rf#f#ga^} TR=1>DL=HAZ-2l16EP.T(40,120,!1)[16g]l8DL=ME1;V=110If(MODE1==TWM){V=120}EP.W(100,120,!4)DJ1;DJ2;V=100If(MODE1==TWM){V=110}HAM2({DJ3})V=110If(MODE1==TWM){V=120}DL=ME3;DJ4;DJ2;V=100If(MODE1==TWM){V=110}HAM2({DJ3})V=110If(MODE1==TWM){V=120}DL=ME5;DJ2;V=100If(MODE1==TWM){V=110}HAM2({DJ3}) //------------------------------------------------------------------------------TR=002&003&004;----------------------------------------------------------------------// STR RTA={@99,1If(CH==3){@101,0}If(CH==4){@103,0}}STR RTB={@82,1If(CH==3){@82,0}If(CH==4){@82,8}} STR RT1={l8RTA;EP=127ggag^d^^b^ag^af#dggag^d^^b^ag^gab`c`c`d`c^g^^`c`c`d`c^ga^b^ag^^d^g^^a^^rr}STR RT2={RTA;EP=70"bdgb^^^^^^^^^^^^"e"g"bb^^^^^^^^^^^^"acea^^^^^^^^^^^^df#a`d^^^^f#^^g^^a^} STR RT3={l16RTB;rrrr[l16EP=90'ec'^^^[12r]'f#d'^^^[8r]EP=110:e"beabgabrrEP=90'bg'^^^rrl8EP=110agrf#rdr"ber]gegabgbbrrEP=100'bg'^^^'bg'r'af#'^^^} STR RRF={l8>HAM2({DL=HAZ[RT2]DL=BGN;RT1[RT2]RT3;DL=RF1;RT1;RT2;DL=RF2;RT1;DL=NK2;RT2;DL=ME5;RT3;DL=END[RT1:REC;If(MODE1==TWM){REC2}]})}TR=2HAM2({RRF})TR=3RRF;TR=4RRF; //------------------------------------------------------------------------------TR=005;------------------------------------------------------------------------------// STR BSH={q=100l4V=90If(MODE1==TWM){V=100}g^^^^^^^e^^^^^^^a^^^g^^^f#^^^l8d^^e^^f#^q=90V=100If(MODE1==TWM){V=110}}STR BS1={[8g`g][8e`e][4a`a][4g`g][4f#`f#]d^^e^^f#^}STR BS2={[8g`g][8e`e][4a`a][4g`g][4f#`f#]d^^e^^f#^} STR BS3={[[4c`c]:[4d`d][4e`e][4g`g]][4"bb][4c`c]d^^^rrrr}STR BS4={[[4g`g][4f#`f#][4e`e][4d`d][4c`c]:[4"bb][4c`c][d#`d#][d`d]]["bb][e`e][4c`c][4d`d]} STR BS5={>l16c^^^c^^^"g^"b^c^c^d^^^d^^^"a^c^d^d^e^^^e^^^"b^d^e^e^l8"gg"f#f#"ee"dd<[4c`c][4"bb][4c`c]d^^^rrrr}STR BS6={q=100l4>c^^^d^^^e^^^g^^^c^^^"b^^^c^^^d^rrl8ULMR; //------------------------------------------------------------------------------TR=010;------------------------------------------------------------------------------// STR O1={'n27n32n33n35n36'}STR O2={'n27n32n33n35n36n40'}STR O3={'n27n32n33n35n36n49'}STR O4={'n27n32n33n35n36n28'}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]} TR=10l16DL=HAZ+8@26[[7DM1]:[O1;r]][4O1]DM8;DL=BGN@25If(MODE1==TWM){@27,7}BR=20p%=2000DM6;DM9;DM6;DM5;DM6;DM8;DM7;DM9[DM7;DM8]DM6;DM9;DL=ME3;DM6;DM8@26DM18@25If(MODE1==TWM){@27,7}[7DM1][O1;r][4DM1]O3;DL=SB2[DM7;DM8] DL=RF2[4[7DM1]:[O1;r]][4O1]@26DM7;DM9;DM7;DM8@25If(MODE1==TWM){@27,7}DL=SB3[DM7;DM8][DM6;DM9:REC] //------------------------------------------------------------------------------TR=011;------------------------------------------------------------------------------// STR GR={n42}STR GA={n44}STR GB={'n83n51n46'}STR TA={n54}STR MT={n51}STR DR={'n38n40n82n85'}STR PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,100)}}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-2EP.T(40,127,!1)@26[16GR]GB;rrMidiDelay({n84},3,!4)DL=HAZ;EP=90[4GP2][3GP3]GP7[7GP3]EP=127DL=BGN@26PL1[3[7GP3]GP2][7GP3]DL=SB1[[7GP8]:GP1]GP7;DL=RF1[7GP3]GP2; DL=ME3[7GP3]GP2[4GP2][3GP3]GP7;DL=SB2[[7GP8]:GP1]GP7;DL=RF2[12GP2][3GP3]GP7[7GP8]GP7;DL=SB3[[7GP8]:GP1]GP7[[7GP3]GP2:REC] //------------------------------------------------------------------------------TR=012;------------------------------------------------------------------------------// 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={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]} 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={@9BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64} TR=12l16DL=HAZ[PD3]DL=BGN-1PD4;DL=BGN@25PD3;DL=ME1+7PD1;DL=ME2+3PD5;DL=SB1[3PD3]DL=ME3+7PD1;DL=ME4+7PD9;DL=SB2[PD3]DL=SB2+16PD4;DL=RF2[3PD3]DL=NK2+8PD8;DL=ME5[3PD3][PD3:REC] //------------------------------------------------------------------------------TR=013;------------------------------------------------------------------------------// STR PG1={P.onCycle(!8,0,22,106,127,106,22)}STR DK1={rrrrrrrr`gr`erage"g}STR DK2={`g`g`d`daaee"g"gr"g"gr"gr}STR DK3={l32`a`a`a`a`f`f`f`faaaaeeeel16} TR=13l16@47,0`d`cbagf#ed<`cbagf#edc}STR HP2={>@11,0l8HAM2({b^^^^^^ab^^^a^^l16bal8g^^^^^^^f#^^^g^^l16cdl8a^^^^^^^g#^^^a^^l16dal8`d^^^^^^^})l16HP1<}TR=15l16DL=BGN-1HP1;DL=NK2;HP2; //------------------------------------------------------------------------------TR=016;------------------------------------------------------------------------------// STR BG1={@126,7l2BR=100p=127PAN(!1^1,1)EP.T(120,127,!1)a^^^rrrrp=64}STR BG2={@126,7l2BR=100p=127PAN(!1^1,0)EP.T(120,127,!1)a^^^rrrrp=64} STR BG3={@125,5l4EP.T(100,127,!1)PAN(!1,1)d^^^}STR BG4={@126,8BR=40P=96EP=100p.T(100,0,!1^1)'gfe'^^^^^^^p=64EP=127}STR BG5={@20,0BR=40P=96EP=90p.T(127,0,!1^1)'g"g'^^^p=64EP=127} TR=16DL=HAZ-1BG3;DL=HAZ+8BG4;DL=BGN-1BG3;DL=BGN+6BG1;DL=ME1+8BG4;DL=RF1+6BG1;DL=SB2-1BG3;DL=RF2+6BG1;DL=NK1+6BG2;DL=NK2;BG4;DL=NK2+7BG1;DL=SB3-1BG3;DL=END+6BG1; この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)
ULMR; //------------------------------------------------------------------------------TR=010;------------------------------------------------------------------------------// STR O1={'n27n32n33n35n36'}STR O2={'n27n32n33n35n36n40'}STR O3={'n27n32n33n35n36n49'}STR O4={'n27n32n33n35n36n28'}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]} TR=10l16DL=HAZ+8@26[[7DM1]:[O1;r]][4O1]DM8;DL=BGN@25If(MODE1==TWM){@27,7}BR=20p%=2000DM6;DM9;DM6;DM5;DM6;DM8;DM7;DM9[DM7;DM8]DM6;DM9;DL=ME3;DM6;DM8@26DM18@25If(MODE1==TWM){@27,7}[7DM1][O1;r][4DM1]O3;DL=SB2[DM7;DM8] DL=RF2[4[7DM1]:[O1;r]][4O1]@26DM7;DM9;DM7;DM8@25If(MODE1==TWM){@27,7}DL=SB3[DM7;DM8][DM6;DM9:REC] //------------------------------------------------------------------------------TR=011;------------------------------------------------------------------------------// STR GR={n42}STR GA={n44}STR GB={'n83n51n46'}STR TA={n54}STR MT={n51}STR DR={'n38n40n82n85'}STR PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,100)}}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-2EP.T(40,127,!1)@26[16GR]GB;rrMidiDelay({n84},3,!4)DL=HAZ;EP=90[4GP2][3GP3]GP7[7GP3]EP=127DL=BGN@26PL1[3[7GP3]GP2][7GP3]DL=SB1[[7GP8]:GP1]GP7;DL=RF1[7GP3]GP2; DL=ME3[7GP3]GP2[4GP2][3GP3]GP7;DL=SB2[[7GP8]:GP1]GP7;DL=RF2[12GP2][3GP3]GP7[7GP8]GP7;DL=SB3[[7GP8]:GP1]GP7[[7GP3]GP2:REC] //------------------------------------------------------------------------------TR=012;------------------------------------------------------------------------------// 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={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]} 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={@9BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64} TR=12l16DL=HAZ[PD3]DL=BGN-1PD4;DL=BGN@25PD3;DL=ME1+7PD1;DL=ME2+3PD5;DL=SB1[3PD3]DL=ME3+7PD1;DL=ME4+7PD9;DL=SB2[PD3]DL=SB2+16PD4;DL=RF2[3PD3]DL=NK2+8PD8;DL=ME5[3PD3][PD3:REC] //------------------------------------------------------------------------------TR=013;------------------------------------------------------------------------------// STR PG1={P.onCycle(!8,0,22,106,127,106,22)}STR DK1={rrrrrrrr`gr`erage"g}STR DK2={`g`g`d`daaee"g"gr"g"gr"gr}STR DK3={l32`a`a`a`a`f`f`f`faaaaeeeel16} TR=13l16@47,0`d`cbagf#ed<`cbagf#edc}STR HP2={>@11,0l8HAM2({b^^^^^^ab^^^a^^l16bal8g^^^^^^^f#^^^g^^l16cdl8a^^^^^^^g#^^^a^^l16dal8`d^^^^^^^})l16HP1<}TR=15l16DL=BGN-1HP1;DL=NK2;HP2; //------------------------------------------------------------------------------TR=016;------------------------------------------------------------------------------// STR BG1={@126,7l2BR=100p=127PAN(!1^1,1)EP.T(120,127,!1)a^^^rrrrp=64}STR BG2={@126,7l2BR=100p=127PAN(!1^1,0)EP.T(120,127,!1)a^^^rrrrp=64} STR BG3={@125,5l4EP.T(100,127,!1)PAN(!1,1)d^^^}STR BG4={@126,8BR=40P=96EP=100p.T(100,0,!1^1)'gfe'^^^^^^^p=64EP=127}STR BG5={@20,0BR=40P=96EP=90p.T(127,0,!1^1)'g"g'^^^p=64EP=127} TR=16DL=HAZ-1BG3;DL=HAZ+8BG4;DL=BGN-1BG3;DL=BGN+6BG1;DL=ME1+8BG4;DL=RF1+6BG1;DL=SB2-1BG3;DL=RF2+6BG1;DL=NK1+6BG2;DL=NK2;BG4;DL=NK2+7BG1;DL=SB3-1BG3;DL=END+6BG1;