;title=Castlevania 3: Clockwork
;ported/arranged by gocha
;requirements: Carol's AddMusic (with ADSR support)
;
; CotM̃AWł͂Ȃ`̌Ȃ͋̕CdB
; C炵MIX5 WIPɂMMLč\Ȃ̂ŁA
; 낢ƑZŒuĂ܂BȂ͂Ă܂B
; 
; ŋ߂͗eʂ]T̂ł܂܂߂ɍĂ܂B
; x܂gȂĂ܂B܂ł̊KB
; 
; 2008-11-04: first version.

; ADSR
"X=$ED"

#0	;$F0
	$EF $DF $00 $00
	$F1 $02 $1E $01
	$F2 $D8 $29 $29

	r4
	/

	w230 t52

	@14 q7E y10
	X $6E $80
	v255

	o2 l4
	g4. $E8 $18 $A0 ^8 v255 ad
	gb-ad gb-ag+<
	l16 q7F
	g>dgc+^^de-d<b-g+af+d>
	l4 q7E
	[g4. $E8 $18 $A0 ^8 v255 af+ gb-ad
	gab->c c+4. $E8 $18 $A0 ^8 v255 d<]1 d
	*1 d

	l8 o2
	(3)[e-e-e-e-e-e-e-e- ddddd]1 ddd
	(3)1 a> l16 f+e-c<a l8
	(3)1 ddd
	c+c+c+c+c+c+c+c+
	dddddd l16 deff+

	l4 gggggg gggg>
	l16 f+e-c<af+a>c $E8 $0C $A0 ^ v255

#5	r4
	/

	@13 q6F y10
	X $6F $80
	v255

	o2 l4
	g4. $E8 $18 $A0 ^8 v255 ad
	gb-ad gb-ag+<
	l16
	g>dgc+^^de-d<b-g+af+d>
	l4
	[g4. $E8 $18 $A0 ^8 v255 af+ gb-ad
	gab->c c+4. $E8 $18 $A0 ^8 v255 d<]1 d
	*1 d

	l8 o2
	(3)[e-e-e-e-e-e-e-e- ddddd]1 ddd
	(3)1 a> l16 f+e-c<a l8
	(3)1 ddd
	c+c+c+c+c+c+c+c+
	dddddd l16 deff+

	l4 gggggg gggg>
	l16 f+e-c<af+a>c $E8 $0C $A0 ^ v255

#1	r4
	/

	@4 q7B y10
	X $6F $40

	o5 l16
	b-f+agdc<b-gegb->c+<a>ce-f+
	@6 q7F
	X $6F $40
	d $E8 $0C $D0 ^4 v255 <g>dge<a>eac<a>ce-
	l8
	d $E8 $0C $D0 ^ v255
	f $E8 $0C $D0 ^ v255
	e $E8 $0C $D0 ^ v255
	e- $E8 $0C $D0 ^ v255
	l16 <
	dgdg $E8 $0C $D0 ^^ v255 g>e-d<b-g+af+d

	(0)[r2]4

	gdb-dad>c<db-dgdge-ge-
	e<b->c+egegb-agdaf+df+a
	@4 q7D y11
	X $6F $40
	o4
	d<ab->cd<b->cde-dc<b-g+a>dc
	$E8 $0C $D0 ^ v255
	<b-agf+gab->c<g>e-<g>d<f+>c<f+

	b-g>d<g>c<g>e-<g>d<g>g<g>f<g>e-<g>

	g $E8 $0C $D0 ^8. v255 c+egb-
	a $E8 $0C $D0 ^4  v255 f+da

	@4 q7C y11
	X $6F $40
	o4 l16
	d4 $E8 $18 $A0 ^8 v255
	gab->cd^d^g^ <
	c^g^f+^c^g^f+^ cde-f+
	d4 $E8 $18 $A0 ^8 v255 <
	d4 $E8 $18 $A0 ^8 v255 g^>d^
	c<g>cg^gagf+^^a q7D f+e-c<a

	@6 q7E o3
	X $7C $6A
	$DE $30 $0D $7F
	b-4.b-4e-8b-8>c8<
	a2.^da>d<
	b-4.b-4e8b-8>c+8<
	a4^da>d^^<
	$DF

	@6 q7E
	X $6F $40
	o3 a^deff+

	o3
	g2^2^4 $E8 $18 $A0 ^8 v255 g8>
	q7D b-2d4a4 q7E f+e-c<af+a>ce-

#2	r4
	/

	@6 q7B y13
	X $6F $60

	o6 l16
	r
	d<a>c<b-f+agdc+egb-ce-f+a
	gf+gab-ab->dc+<a>c+ee-ce-
	; delay goes to #6
	@4 q7D y11
	X $5F $40
	o3 l8
	g>gd>d<g>c+<g>c<<
	l16
	gc+gc+^^de-db-g+af+d

	@6 q7B y13
	X $6F $60
	; delay comes back from #6
	o5
	rrd<ab->cd<b->cde-dc<b-g+a>dc
	$E8 $0C $D0 ^ v255
	<b-agf+gab->c<g>e-<g>d<f+>c<f+
	b-r>drcre-rdr<b-r>cr<ar
	gc+egb-gb->c+d8. $E8 $18 $A0 ^^4 v255>

	d<ab->cd<b->cde-dc<b-g+a>dc
	$E8 $0C $D0 ^ v255
	<b-agf+gab->c<g>e-<g>d<f+>
	; delay goes to #6

	@6 q7F y10
	X $6F $40
	o4 l16
	gdb-dad>c<db-dgdge-ge-
	e<b->c+egegb-agd>d<ad>da>

	o6 l16 q7E
	d4 $E8 $18 $A0 ^8 v255 <<
	d4 $E8 $18 $A0 ^8 v255 <g^>d^>
	(4)[c^g^f+^c^g^f+^cde-f+]1
	(5)[d4 $E8 $18 $A0 ^8 v255 <
	gab->cd^d^g^]1 c<g>cg^gagf+^^a>e-c<af+
	(5)1 (4)1
	e4 $E8 $18 $A0 ^8 v255 <
	gab->cc+^e^g^ agdagdagdaf+ddeff+

	o5 l16
	(6)[gf+gab-ab->cd<b->cd
	e-c<af+>e-c<af+]1 d>c<b-a
	(6)1 df+a>c

#3	r4
	/

	@6 q7F y9
	X $6F $40

	o6 l16 $DE $30 $0D $7F
	d<a>c<b-f+agdc+egb-ce-f+a
	gf+gab-ab->dc+<a>c+ee-ce-f+
	g2. $E8 $18 $A0 ^4 v255
	<gdgc+^^de-dd $E8 $0C $D0 ^^ v255 d^

	o5
	d<ab->cd<b->cde-dc<b-g+a>dc
	$E8 $0C $D0 ^ v255
	<b-agf+gab->c<g>e-<g>d<f+>c<f+
	b-r>drcre-rdr<b-r>cr<ar
	gc+egb-gb->c+d8. $E8 $18 $A0 ^8 v255 df+a>

	d<ab->cd<b->cde-dc<b-g+a>dc
	$E8 $0C $D0 ^ v255
	<b-agf+gab->c<g>e-<g>d<f+>c<f+
	b-r>drcre-rdrgrfre-r
	e8. v224 ^ v255
	g8. v224 ^ v255
	g8. v224 ^ v255
	f+df+a<

	o5
	(1)[gab->cd2<g^>d^]1 (2)[c2r8c8g8f+8]1
	(1) c2.f+e-c<a
	(1) (2)
	gab->cc+2<b-^>c+^d2.deff+

	g2. f+2. g2. f+4
	f+e-c<af+a>ce-

; ʉADSR߂ĂĕsȂ
; v؂ă`lƏĂ܂I
#4	r4
	/

	(0)40

	@6 q78
	o5 l16 y7
	(7)[X $6F $A0 gf+gab-ab->cd<b->cd
	e-c<af+>e-c<af+]1 d>c<b-a
	(7)1 df+;a>c

#6	r4
	/

	(0)4

	@6 q7B y13
	X $6F $60
	o6 l16
	f+
	g2. $E8 $18 $B0 ^4 v255 ;l
	<gdgc+^^de-dd $E8 $0C $D0 ^^ v255 d^

	(0)11 r4..

	@6 q7B y13
	X $6F $60
	o6 c<f+
	b-r>drcre-rdrgrfre-r
	e8. v224 ^ v255
	g8. v224 ^ v255
	g8. v224 ^ v255
	f+d< y10 e-^ y13 ;f+a<

	o5
	(1)[gab->cd2<g^>d^]1 (2)[c2r8c8g8f+8]1
	(1) c2.f+e-c<a
	(1) (2)
	gab->cc+2<b-^>c+^d2.de^;ff+

	g2. f+2. g2. f+4
	^f+e-c<af+a;>ce-
