//	爆音仕様にチューンアップ!

INT EST=160PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={MAKE-OR-BREAK BET (ENERGY MIX)}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,103,01,0,K,064,4,2,127,09,3)WIN(07,07,039,00,0,K,117,1,2,127,10,0)WIN(13,13,119,09,0,0,___,5,0,127,09,0)
WIN(02,02,063,00,0,K,064,2,2,100,09,0)WIN(08,08,103,01,0,K,000,3,2,100,09,2)WIN(14,14,012,08,0,K,100,2,2,127,10,0)
WIN(03,03,082,00,0,K,000,2,2,100,10,0)WIN(09,09,103,01,0,K,127,3,2,100,09,2)WIN(15,15,003,00,0,K,080,2,2,127,10,0)
WIN(04,04,082,00,0,K,127,2,2,110,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,082,00,0,K,010,2,2,127,09,0)WIN(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,031,00,0,K,032,1,2,100,10,0)WIN(12,12,026,00,0,0,064,3,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP;
INT HAZ=1INT BGN=17INT ME1=25INT ME2=33INT SB1=41INT RF1=57INT ME3=65INT ME4=73INT SB2=81INT NK1=97INT RF2=105INT NK2=113INT NK3=121
INT SB3=129INT ME5=145INT SB4=153INT END=169
/*1*/STR MNH={[d^e^f#^^e^^MidiDelay({af#^^^^^},4,!2)[15r]]}STR MN1={V=110["b"bd^e^df#^^"bc#dc#"b^:f#^d^e^c#d^dddc#c#^r]f#f#ee...(続く)...