// NeetLifeGame v1.0
// Song Start 2014/10/30 20:40
// Song Complete 2014/10/31 07:20
// SoundPreComplete 2014/10/31 11:30
// VideoComplete 2014/11/09 15:00:00
// Composition by @nanakochi123456
// Correction by @SOU1
// Youtube/Niconico Upload 2014/11/11
// Copyright 2014 NEET co ltd.
////////////////////////////////////////////////////////////////////////
// このソースの下には、別のミニ曲のMMLがあったりします。。。。
// 「End」 以下をあさってみてくださいね。
////////////////////////////////////////////////////////////////////////

曲名={"30歳ニートが人生詰んだので作ったゲームのテーマ"}
Copyright={"00264 なの NEET株式会社"}

// ループ数の指定 １以上
//
Int LOOP=4

Int TIMIDITY=0

Tempo 120

//--------------------------------------------------------------------------
// Function Define
//--------------------------------------------------------------------------

// 変数ループプレイ
Function LoopPlay(Str Mml) {
	Str _MML
	For (Int i = 0; i < LOOP; i++) {
		_MML=_MML + #STR(Mml)
	}
	_MML
}

// ピアノのペダル
#PEDALON={Sub {r16y64,127}}
#PEDALOFF={r-32 y64,0 r32}

// Expressionの代替
Function EV(Int V) {
	Expression(V)
}

// Expression.onTimeの代替
Function EVT(Int V1, Int V2, Int Len) {
	Sub {
		Expression.onTime(V1,V2,Len)
		r%(Len)
		Expression(V1)
	}
}

// 3和音用 v.onNote

Function VN(Int V1, Int V2, Int V3, Int V4 ,Int V5, Int V6, Int V7, Int V8) {
	v.onNote(V1,V1,V1, V2,V2,V2, V3,V3,V3, V4,V4,V4, V5,V5,V5, V6,V6,V6, V7,V7,V7, V8,V8,V8)
}

// from unison.h オクターブユニゾン
Function OctaveUnison(Str S){
	Sub{ Key=12;  S; Key=0; } S;
}

// オクターブアルペジオ
Function OctaveArpeggio(Str S, Str R, Int Len) {
	Int PTN=24 // ??音符
	Int VMAX=127 // 最大のベロシティー
	Int VMIS=4 // １音ずつ下げるベロシティー値

	Int V=VMAX
	Int Count=Len * PTN / 2 / 384
	Str M
	M=M+#STR("#PEDALON >")
	For (Int i=0; i<Count; i++) {
		M=M+#STR("v")+#STR(V)
		M=M+#STR("'")+#STR(R)+#STR(S)+#STR("'")+#STR(PTN)+#STR("<")
		V=V-VMIS
		M=M+#STR("v")+#STR(V)
		M=M+#STR(S)+#STR(PTN)+#STR(">")
		V=V-VMIS
	}
	M=M+#STR("#PEDALOFF <")
	M=M+#STR("v")+#STR(VMAX)
	M;
}

// シンバルのロテート
Int CYMINIT=0

Function Cymbal() {
	Int CC
	IF(CYMINIT=0) {
		IF(TIMIDITY=1) {
			CC=CrashCymbal1
		} ELSE {
			CC=CrashCymbal2
		}
		CYMINIT=1
	} ELSE {
		IF(TIMIDITY=1) {
			CC=CrashCymbal2
		} ELSE {
			CC=CrashCymbal2
		}
		CYMINIT=0
	}
	Result=CC
}

Int SDINIT=0
Function Snare(Int SDP) {
	Int CC
	IF(CYMINIT<=2) {
		CC=SDP
	} ELSE {
		CC=SDP+3
	}
	SDINIT=SDINIT+1
	IF(SDINIT>=4) {
		SDINIT=0
	}
	Result=CC
}

//--------------------------------------------------------------------------
// Melody
//--------------------------------------------------------------------------

#melody1={
	l12
	r-4
	EV(127)
	e6e12
	EVT(127,100,!2)a2 rab>c<ba
	brgEVT(127,100,!4)e4 refgfe
	EVT(127,100,!2)f2 rfgagf
	EVT(127,100,!2)e2r4 e6e

	EVT(127,100,!2^12)f2^12 r6fed
	erc<EVT(127,100,!4^6)a4^6 rab>c
	<b4^12b>c d4^12ef
	EVT(127,100,!2)e2r4 e6e

	EVT(127,100,!2)a2 rab>c<b>c
	dr<b EVT(127,100,!4)g4 rgabag
	EVT(127,100,!4^12)f4^12fg EVT(127,100,!4^12)a4^12gf
	EVT(127,100,!2)e2r4 e6e

	EVT(127,100,!4^12)a4^12b>c <EVT(127,100,!4^12)b4^12>cd
	EVT(127,100,!4^12)c4^12de EVT(127,100,!4^12)d4^12ef
	erc<EVT(127,100,!4)a4 rb>cdc<b
	EVT(127,100,!2)a2r2
}

#melody11={
	l12
	EV(127)
	[12 r1] r-4
	EVT(127,100,!2) e6e

	EVT(127,100,!4^12)a4^12b>c <EVT(127,100,!4^12)b4^12>cd
	EVT(127,100,!4^12)c4^12de EVT(127,100,!4^12)d4^12ef
	erc<EVT(127,100,!4)a4 rb>cdc<b
	EVT(127,100,!2)a2r2
}

#melody2={
	l12
	r-4
	OctaveUnison(e6e12)
	OctaveArpeggio("a","",!2^12) OctaveUnison(ab>c<ba)
	OctaveUnison(brg) OctaveArpeggio("e","",!4 ^12) OctaveUnison(efgfe)
	OctaveArpeggio("f","",!2^12) OctaveUnison(fgagf)
	OctaveArpeggio("e","",!2) r4 OctaveUnison(e6e)

	OctaveArpeggio("f","",!2.) OctaveUnison(fed)
	OctaveUnison(erc)< OctaveArpeggio("a","",!2) OctaveUnison(ab>c<)
	OctaveArpeggio("b","",!4^12) OctaveUnison(b>c<)> OctaveArpeggio("d","",!4^12) OctaveUnison(ef)
	OctaveArpeggio("e","",!2^4) OctaveUnison(e6e)

	OctaveArpeggio("a","",!2^12) OctaveUnison(ab>c<b>c<)>
	OctaveUnison(dr<b>)< OctaveArpeggio("g","",!4) OctaveUnison(rgabag)
	OctaveArpeggio("f","",!4^12) OctaveUnison(fg) OctaveArpeggio("a","",!4^12) OctaveUnison(gf)
	OctaveArpeggio("e","<g#>",!2)r4 OctaveUnison(e6e)

	OctaveArpeggio("a","ce",!4^12) OctaveUnison(b>c<) OctaveArpeggio("b","df",!4^12)> OctaveUnison(cd)
	OctaveArpeggio("c","<eg>",!4^12) OctaveUnison(de) OctaveArpeggio("d","<fa>",!4^12) OctaveUnison(ef)
	OctaveUnison(erc) <OctaveArpeggio("a","",!4) OctaveUnison(rb>cdc<b)
	OctaveArpeggio("a","ce",!2.)r4
}

#melody3={
	l12
	EVT(127,100,!2^6)a2^6r agf
	gre EVT(127,100,!2)c2r4
	EVT(127,100,!2^6)f2^6r fed
	erc <EVT(127,100,!2)a2r4>

	EVT(127,100,!2^6)a2^6r agf
	gre >EVT(127,100,!4^6)c4^6r <ab>c
	EVT(127,100,!4^12)d4^12c<b> EVT(127,100,!4^12)c4^12<ba
	EVT(127,100,!2)b2r2
}

#melody33={
	[4 r1]

	EVT(127,100,!2^6)a2^6r agf
	gre >EVT(127,100,!4^6)c4^6r <ab>c
	EVT(127,100,!4^12)d4^12c<b> EVT(127,100,!4^12)c4^12<ba
	EVT(127,100,!2)b2r2
}

#melody4={
	l12
	OctaveArpeggio("a","",!2.) OctaveUnison(agf)
	OctaveUnison(gre) OctaveArpeggio("c","",!2)r4
	OctaveArpeggio("f","",!2.) OctaveUnison(fed)
	OctaveUnison(erc) <OctaveArpeggio("a","",!2)r4>

	OctaveArpeggio("a","f",!2.) OctaveUnison(agf)
	OctaveUnison(gre) >OctaveArpeggio("c","<eg>",!2)< OctaveUnison(ab>c<)>
	OctaveArpeggio("d","<fa>",!4^12) OctaveUnison(c<b>) OctaveArpeggio("c","<f>",!4^12) < OctaveUnison(ba)
	OctaveArpeggio("b","eg#",!2)r2
}

#melody5={
	OctaveUnison(arr ed#e f4 err)
}
#melody6={
	OctaveUnison(rrr 'b>g#'rr 'ca'rr)
}

Int TR1TEMP=0

TR(1)
	@(Trombone)
	v127q98
	o4
	[4 r1]
	#melody1

	#TR1LOOP={
		IF(TR1TEMP % 3 = 0) {
			r-4 @3 r4
		}
		IF(TR1TEMP % 3 = 1) {
			r-4 @(Marimba) r4
		}
		IF(TR1TEMP % 3 = 2) {
			r-4 @4 r4
		}
		o5
		#melody2

		IF(TR1TEMP % 3 = 0) {
			r-4 @(Clarinet) r4
			o5
			#melody3
			o5
			#melody1
		}
		IF(TR1TEMP % 3 = 1) {
			r-4  @(Viola) r4
			o5
			#melody3
			r-4  @(Cello) r4
			o4
			#melody1
		}
		IF(TR1TEMP % 3 = 2) {
			@(EnglishHorn)
			o5
			#melody3
			r-4  @(Clarinet) r4
			o5
			#melody1
		}
		TR1TEMP++
		o5
		IF(TR1TEMP % 3 = 0) {
			r-4 @3 r4
		}
		IF(TR1TEMP % 3 = 1) {
			r-4 @(Marimba) r4
		}
		IF(TR1TEMP % 3 = 2) {
			r-4 @4 r4
		}
		#melody4
	}
	LoopPlay(#TR1LOOP)
	r-4 @(Trombone) r4
	#melody1
	@3
	#melody5
	o4
	@(BrassSection)
	#melody6

Int TR2TEMP=0

TR(2)
	@(Trumpet)
	v127q98
	[4 r1]
	[16 r1]

	#TR2LOOP={
		o5
		[16 r1]
		o6
		IF(TR2TEMP % 3 = 0) {
			o6
			@(Trumpet)
			#melody3
			o6
			r-4 @(Flute) r4
			#melody1
		}
		IF(TR2TEMP % 3 = 1) {
			@(Violin)
			o6
			#melody3
			o5
			#melody1
		}
		IF(TR2TEMP % 3 = 2) {
			@(Oboe)
			o5
			#melody3
			r-4 @(Flute) r4
			o5
			#melody1
		}
		TR2TEMP++
		[8 r1]
	}
	LoopPlay(#TR2LOOP)
	o4
	@(Trumpet)
	#melody1
	r1
	o3
	@(BrassSection)
	#melody6

TR(3)
	@(Piccolo)
	v100q98
	[4 r1]
	o7
	#melody11

	#TR3LOOP={
		o5
		[16 r1]
		o7
		#melody33
		o7
		#melody11
		[8 r1]
	}
	LoopPlay(#TR3LOOP)
	o7
	#melody11

//--------------------------------------------------------------------------
// Chord
//--------------------------------------------------------------------------

#ace={'a>ce<'}
#gbd={'gb>d<'}
#acf={'a>cf<'}
#gbe={'g#b>e<'}
#adf={'a>df<'}
#aca={'a>ca<'}
#bdf={'b>df<'}
#gce={'g>ce<'}
#gbf={'gb>f<'}
#gde={'g#>de<'}

#chord_intro={
	l12
	VN(127,90,100,110,127,110) #ace rr [3 #ace ] #ace rr rrr
	VN(127,90,100,110,127,110) #gbd rr [3 #gbd ] #gbd rr rrr
	VN(127,90,100,110,127,110,110) #acf rr [3 #acf ] #acf rr #acf  rr
	v127 #gbe >fe ded cdc <b>c<b
}

#chord1={
	VN(127,90,100,110,127,110) #ace rr [3 #ace ] #ace rr rrr
	VN(127,90,100,110,127,110) #gbd rr [3 #gbd ] #gbd rr rrr
	VN(127,90,100,110,127,110) #acf rr [3 #acf ] #acf rr rrr
	VN(127,90,100,110,127,110) #gbe rr [3 #gbe ] #gbe rr rrr

	VN(127,90,100,110,127,110) #adf rr [3 #adf ] #adf rr rrr
	VN(127,90,100,110,127,110) #ace rr [3 #ace ] #ace rr rrr
	v127 l4 'b>df<' 'a>df<' 'g>df<' 'f>df<'
	l12
	VN(127,90,100,110,127,110) #gbe rr [3 #gbe ] #gbe rr rrr

	VN(127,90,100,110,127,110) #ace rr [3 #ace ] #ace rr rrr
	VN(127,90,100,110,127,110) #gbd rr [3 #gbd ] #gbd rr rrr
	VN(127,90,100,110,127,110) #acf rr [3 #acf ] #acf rr rrr
	VN(127,90,100,110,127,110) #gbe rr [3 #gbe ] #gbe rr rrr

	VN(127,110,100,90,127,110,100,90) #ace rr [3 #ace ] #bdf rr [3 #bdf ]
	VN(127,110,100,90,127,110,100,90) #gce rr [3 #gce ] #adf rr [3 #adf ]
	v127 l4 [2'g#b>e<'] 'g#b>f#<''g#b>g#<'
	l12
	VN(127,90,100,110,127,110) #aca rr [3 #aca ] #aca rr rrr
}

#chord2={
	VN(127,90,100,110,127,110,110) #acf rr [3 #acf ] #gbf rr #gbf rr
	VN(127,90,100,110,127,110,110) #gce rr [3 #gce ] #gce rr #gce rr
	VN(127,90,100,110,127,110,110) #adf rr [3 #adf ] #gde rr #gde rr
	VN(127,90,100,110,127,110,110) #ace rr [3 #ace ] #ace rr rrr
	VN(127,90,100,110,127,110,110) #acf rr [3 #acf ] #gbf rr #gbf rr
	VN(127,90,100,110,127,110,110) #gce rr [3 #gce ] #gce rr #gce rr
	v127 l4 'b>df<' 'a>df<' 'g>df<' 'f>df<'
	l12
	VN(127,90,100,110,127,110) #gbe rr [3 #gbe ] #gbe rr rrr
}

#chord6={
	rrr #gbe rr #acerr
}

TR(4)
	@(Strings1)
	EV(105)
	v90q90
	o4
	#chord_intro

	#chord1
	#TR4LOOP={
		[2 #chord1 #chord2 ]
	}
	LoopPlay(#TR4LOOP)
	#chord1
	r1
	#chord6

TR(5)
	@(Harpsichord)
	EV(90)
	v70q90
	o4
	#chord_intro
	#chord1
	#TR5LOOP={
		[2 #chord1 #chord2 ]
	}
	LoopPlay(#TR5LOOP)
	#chord1
	r1
	#chord6

//--------------------------------------------------------------------------
// Horn
//--------------------------------------------------------------------------

#horn1={
	'c1a1'
	'<b1>g1'
	'<a1>f1'
	'<g#1>e1'
	'<a2>e2' '<g2>d2'
	'<g2>e2' '<a2>f2'
	Sub{<g#1>}e2f#4g#
	'c2.a2.'r4
}

#horn2={
	'<a2>f2' Sub{g1.}<b2>c1
	'd2a2' Sub{e1.}b2 >c1<
	'<a2>f2' Sub{g1.}<b2>c1
	'd1a1''e1b1'
}

Int TR6TEMP=0

TR(6)
	EV(127)
	v90q100
	@(FrenchHorn)
	[4 r1]
	[8 r1]
	o5
	#horn1

	#TR6LOOP={
		IF(TR6TEMP % 3 = 1) {
			@(FrenchHorn)
		} ELSE {
			@5
		}
		[8 r1 ]
		#horn1

		@(FrenchHorn)
		#horn2

		[8 r1 ]
		#horn1
		TR6TEMP++
		IF(TR6TEMP % 3 = 1) {
			@(FrenchHorn)
		} ELSE {
			@5
		}
		#horn2
	}
	@(FrenchHorn)
	LoopPlay(#TR6LOOP)
	[8 r1]
	@(FrenchHorn)
	#horn1

//--------------------------------------------------------------------------
// Bass
//--------------------------------------------------------------------------

#bass_intro={
	l12
	a4^6e a2
	g4^6d g2
	f4^6c f2
	e4d4c4<b4>
}

#bass1={
	a4^6e a2
	g4^6d g2
	f4^6c f2
	e4^6<b> e2

	d4^6<a> d4^12fg
	a4^6e a2
	b4a4g4f4
	e4^6<b> e2

	a4^6e a2
	g4^6d g2
	f4^6c f2
	e4^6<b> e2

	a4^12ea g4^12dg>
	c4^12<g>c d4^12<ad>
	e4d4c4<b4
	a4^6e a2
}

#bass2={
	f4^6f g2>
	c4^6<g> c2<
	b4^6b e2
	a4^6e a2
	f4^6f g2>
	c4^6<g> c2<
	b4a4g4f4
	e4^6<b> e2
}

#bass6={
	rrr err arr rrr
}

TR(7)
	@(Timpani)
	EV(105)
	v110q90
	o4
	#bass_intro
	#bass1
	#TR7LOOP={
		[2 #bass1 #bass2 ]
	}
	LoopPlay(#TR7LOOP)
	#bass1
	r1
	#bass6

TR(8)
	@(Clavi)
	EV(105)
	v85q90
	o3
	#bass_intro
	#bass1
	#TR8LOOP={
		[2 #bass1 #bass2 ]
	}
	LoopPlay(#TR8LOOP)
	r1
	#bass6

TR(9)
	@(FretlessBass)
	EV(105)
	v127
	o3
	#bass_intro
	#bass1
	#TR9LOOP={
		[2 #bass1 #bass2 ]
	}
	LoopPlay(#TR9LOOP)
	#bass1
	r1
	#bass6

//--------------------------------------------------------------------------
// Rythm
//--------------------------------------------------------------------------
TR(10)
	EV(95)
	IF(TIMIDITY=0) {
		@(OrchestraSet)
		$b{n(Kick1),}
		$B{n(Kick2),}
		$s{n(Snare2),}
		$S{n(Snare2),}
		$m{n(Snare2),}
		$M{n(Snare2),}
		$l{n(Snare2),}
		$L{n(Snare2),}
	} ELSE {
		$b{n(30),}
		$B{n(31),}
		$s{n(Snare(32)),}
		$S{n(Snare(33)),}
		$m{n(Snare(34)),}
		$M{n(Snare(35)),}
		$l{n(Snare(36)),}
		$L{n(Snare(37)),}
	}

	$c{n(Cymbal()),}
	#r1={
		v127 Rythm {'b4B4s4S4'}
		v.onNote(50,50,60,60,70,70,80,80,90,90,100,100)
		Rythm {[2 'l24L24'][2 'm24M24'][2 's24S24']}
		v127 Rythm {'b4B4sS4'} v80 Rythm{'s4S4'}
		v127
	}
	#r2={
		[2
			v127
			Rythm{'b12B12s12S12c12'}v100 Rythm{'s12S12'} v70 Rythm{'s12S12'}
			Rythm{'b12B12s12S12'}v80 Rythm{'s12S12'} v60 Rythm{'s12S12'}
			v127
		]
	}
	#r3={
		[2
			v127 Rythm {'b4B4s4S4'}
			v.onNote(50,50,60,60,70,70,80,80,90,90,100,100)
			Rythm {[2 'l24L24'][2 'm24M24'][2 's24S24']}
			v127
		]
	}

	#r_intro={
		[3 #r1]
		#r2
	}

	#rmain1={
		Sub{Rythm{c1}}
		[4 #r1]
		Sub{Rythm{c1}}
		[2 #r1]
		Sub{Rythm{c2c2c1}}
		#r3
		#r1 

		Sub{Rythm{c1}}
		[4 #r1]
		Sub{Rythm{c2c2c2c2c1}}
		[2 #r3 ]
		#r2
		Sub{Rythm{c1}}
		#r1
	}

	#rmain2={
		Sub{Rythm{c1}}
		[2 #r1]
		Sub{Rythm{c1}}
		[2 #r1]
		Sub{Rythm{c1}}
		[2 #r1]
		Sub{Rythm{c2c2c1}}
		#r3
		#r1 
	}
	#rend={
		Rythm{r4'b4B4s4S4c4' 'b4B4s4S4c4'}
	}

	#r_intro

	#rmain1
	#TR10LOOP={
		[2 #rmain1 #rmain2 ]
	}
	LoopPlay(#TR10LOOP)

	#rmain1
	r1
	#rend

End
////////////////////////////////////////////////////////////////////////

曲名={"ニートドくんの絵描き歌"}
Copyright={"00264 なの NEET株式会社"}

Int VOCALOID=1
Int BACK=1

IF(VOCALOID=1) {
	TR(1)
		q100
		v127
		r1
		l8
		g4ge c4cd
		e8.e16 dc d4.r8
		l16
		q90
		e8d#e g8f#g fefg aab>c
		l8
		q100
		d8.d16 c<b> c2
}

IF(BACK=1) {
	TR(2)
		v127
		q25
		o5
		'eg>c<'
		'dfgb'
		q100
		'e4.g4.>c4.<'r8

		v90
		q25
		l4
		'<g>ce'r4
		'<g>ce'r4
		'<g>ce''<g>ce'
		q100
		'<g4.b4.>f4.'r8

		q25
		'<g>ce'r4
		'<a>cf'r4
		'<gb>f''<gb>f'
		q100
		'<c4>c2e2'

	TR(3)
		v127
		o4
		q25
		c<g>
		q100
		c4.r8

		v100
		l4
		q25
		cr
		cr
		cc
		q100
		<g4.>r8
		q25
		cr
		<f>r
		<gg>
		q100
		>c2
}

////////////////////////////////////////////////////////////////////////
// お約束のバイナリー？



は、省略しましたなの；；ぐすぐす；；