/*
	ʃXNvgTv
	V[z[h
*/

#INCLUDE
	motion.h


///////////////////////////////////////
// ǂ݃t@C` (C[Ŵ)
#PRELOAD
	sys_scenemode	// C摜
	sys_scene_ch	// LI{^
	sys_scene_t0	// TlC
	sys_scene_t1
	sys_scene_t2


///////////////////////////////////////
// IuWFNg쐬
#DEFINE
	CPLANE		topmask			// zCgIN/OUTp̐^v[
	CIMAGE		bg_white		// ʂƂ̐؂ւ̍ۂɔʂŌq߂̔摜

	PLANE		pl				// \pv[

	IMAGE		img_bg			// wi摜
	BUTTON		btn_ch[3]		// L؂ւ{^
	BUTTON		btn_thumb[9]	// TlC{^

	SCROLL2		scrl			// XN[o[
	IMAGE		img_scrl_base	// XN[o[̉͈̓C摜

	IMAGE		img_cursor		// J[\摜
	BUTTON		btn_sys[5]		// VXen{^
	IMAGE		img_help		// wv͉摜

	IMAGE		img_now[3]		// B - ݒl
	IMAGE		img_max[3]		// B - ől


///////////////////////////////////////
// IuWFNg

// ^v[
#OBJECT		COLOR		PRI		SIZE	DISP
topmask		0xffffffff	20000	800,600	1

// ^摜
#OBJECT		COLOR		PRI		SIZE	DISP	PL
bg_white	0xffffffff	1000	800,600	0		pl

// \pv[
#OBJECT	SIZE	VRAM	PRI		DISP
pl		800,600	0,0		5000	0

// wi
#OBJECT		FILE		ID.0	PRI	DISP
img_bg		sys_scenemode	0		10	1

// LI{^
#OBJECT	FILE		PRI	ENABLE	DISP
btn_ch	sys_scene_ch	60	0		1

#OBJECT		ID.0	ID.1	ID.2	ID.3	POS2
btn_ch[0]	100		200		300		400		sys_scenemode:1000
btn_ch[1]	101		201		301		401		sys_scenemode:1001
btn_ch[2]	102		202		302		402		sys_scenemode:1002

// TlC{^
// ID.0͖J ID.1͊JԂƂiID.1͌Őݒj
#OBJECT		ID.0	PL	PRI	ENABLE	DISP
btn_thumb	100		pl	200	0		0

#OBJECT			POS2
btn_thumb[0]	sys_scenemode:2000
btn_thumb[1]	sys_scenemode:2001
btn_thumb[2]	sys_scenemode:2002
btn_thumb[3]	sys_scenemode:2003
btn_thumb[4]	sys_scenemode:2004
btn_thumb[5]	sys_scenemode:2005
btn_thumb[6]	sys_scenemode:2006
btn_thumb[7]	sys_scenemode:2007
btn_thumb[8]	sys_scenemode:2008

// VXen{^
#OBJECT	FILE		PRI	PL	ENABLE	DISP
btn_sys	sys_scenemode	50	pl	0		1

#OBJECT		ID.0	ID.1	ID.2	ID.3
btn_sys[0]	100		200		300		400
btn_sys[1]	101		201		301		401
btn_sys[2]	102		202		302		402
btn_sys[3]	103		203		303		403
btn_sys[4]	104		204		304		404

// wv͉摜
#OBJECT		FILE		ID.0	PRI	PL	DISP
img_help	sys_scenemode	510		100	pl	0

// XN[o[̉͈̓C摜
#OBJECT			FILE		ID.0	DISP	PL	PRI
img_scrl_base	sys_scenemode	11		0		pl	500

// XN[o[
#OBJECT		FILE				PRI		DISP	POS2			PL	ENABLE
scrl		sys_exmode_scroll	600		0		sys_scenemode:10	pl	0

// TlCJ[\
#OBJECT		FILE		ID.0	PRI	PL	DISP
img_cursor	sys_scene_t0	10000	300	pl	0

// Bl
#OBJECT		FILE				PRI	PL	DISP
img_now		sys_sl_font_pnow	80	pl	0
img_max		sys_sl_font_pmax	85	pl	0

#OBJECT		POS2
img_now[0]	sys_scenemode:1510
img_now[1]	sys_scenemode:1511
img_now[2]	sys_scenemode:1512
img_max[0]	sys_scenemode:1500
img_max[1]	sys_scenemode:1501
img_max[2]	sys_scenemode:1502




// L[{[hEWCpbh͐ݒ
#KEYBLOCK	3	//(w,h)	,,,E
0				1,3		-1,2,-1,1
1				3,3		-1,2,0,-1
2				3,1		1,-1,0,-1

#OBJECT			KEYBLOCK	// (block,x,y)
btn_ch[0]		0,0,0
btn_ch[1]		0,0,1
btn_ch[2]		0,0,2
btn_thumb[0]	1,0,0
btn_thumb[1]	1,1,0
btn_thumb[2]	1,2,0
btn_thumb[3]	1,0,1
btn_thumb[4]	1,1,1
btn_thumb[5]	1,2,1
btn_thumb[6]	1,0,2
btn_thumb[7]	1,1,2
btn_thumb[8]	1,2,2
btn_sys[0]		2,0,0
btn_sys[1]		2,1,0
btn_sys[2]		2,2,0
btn_sys[3]		2,3,0
btn_sys[4]		2,4,0



////////////////////////////////
// XNvgX^[g
#START
	////////////////////////////////
	// eݒ
	\100 = 3	// LiL{^j
	\101 = 3	// TlCPs̐
	\102 = 3	// TlC̍s

	\110 = 3	// LP̉zg
	\111 = 3	// LQ̉zg
	\112 = 1	// LR̉zg
	////////////////////////////////


	// L[͂ɂ鉉oXLbvOFF
	keyskip off
	wait

	// J[\{^ȊȌꏊɂɖL[ꂽꍇ
	// ړ{^̐ݒ
	btn_ch[0] noact

	// SL킹Ă̂bfg
	\120 = \110 + \111 + \112

	// IĂLԍ
	\130 = 0

	// TlC{^ƃXN[o[֘At
	btn_thumb attach scrl

	// zo^𐔂
	\0 = 0	// [vJE^
	next REGCOUNT


////////////////////////////////
// S̉zo^𐔂
#REGCOUNT
	if( \0 >= \100 )	next DISP_REGCOUNT	// Io^\

	// L̃`FbN[v
	\1 = 0	// [vJE^
	next REGCOUNT_CH

////////////////////////////////
// L̉zo^𐔂
#REGCOUNT_CH
	if( \1 >= \(110+\0) )
		\0++
		next REGCOUNT	// I烋[v𔲂
	endif

	// o^󋵂Ăϐ̃CfbNX
	// $900 ȍ~ɓĂ
	// (LNo) * 10 + (Ԗڂ̉zg) + 900
	\2 = \0 * 10 + \1 + 900

	// o^擾
	if( $(\2) )	\121++	// o^Ăo^+1

	\1++
	next REGCOUNT_CH


////////////////////////////////
// zo^\
#DISP_REGCOUNT
	////////////////////////////////
	// ݂̉zg
	\10 = \121 / 100		// 100̈
	\11 = (\121%100) / 10	// 10̈
	\12 = \121 % 10			// 1̈
	
	// 100̈ʂ̕\
	if( \10 > 0 )
		// 100̈ʂ1ȏȂ\
		img_now[2] settbl 0 \10	// e[u0(ID.0)
		img_now[2] disp 1
	endif

	// 10̈ʂ\
	if( (\10 > 0) || (\11 > 0) )
		// 100̈ʂ\Ă邩A10̈ʂ1ȏȂ\
		img_now[1] settbl 0 \11
		img_now[1] disp 1
	endif

	// 1̈ʂ\
	img_now[0] settbl 0 \12
	img_now[0] disp 1

	// settbl ł͕\摜̍XVsȂ
	// setid 0 sƂōXV
	img_now setid 0

	////////////////////////////////
	// őglɕ\
	\20 = \120 / 100
	\21 = (\120%100) / 10
	\22 = \120 % 10
	
	if( \20 > 0 )
		img_max[2] settbl 0 \20
		img_max[2] disp 1
	endif

	if( (\20 > 0) || (\21 > 0) )
		img_max[1] settbl 0 \21
		img_max[1] disp 1
	endif

	img_max[0] settbl 0 \22
	img_max[0] disp 1

	img_max setid 0

	// TlCݒ菈
	next SET_THUMBNAIL


////////////////////////////////
//TlCZbg
#SET_THUMBNAIL
	// TlC[h
	if( \130 == 0 )	btn_thumb load sys_scene_t0		// LP̂Ƃ
	if( \130 == 1 )	btn_thumb load sys_scene_t1		// LQ̂Ƃ
	if( \130 == 2 )	btn_thumb load sys_scene_t2		// LR̂Ƃ

	// IĂL̃TlCZbg
	\123 = \(110+\130)

	// TlC\OɑSẴTlC\ɃZbg
	btn_thumb disp 0

	// TlC\
	next DISP_THUMBNAIL


////////////////////////////////
//TlC\
#DISP_THUMBNAIL
	// TlC\[v
	\0 = 0	// [vJE^
	next THUMBNAIL_LOOP


////////////////////////////////
//TlC\[v
#THUMBNAIL_LOOP
	// Pʕ烋[vI
	if( \0 >= \101 * \102 )	next DISP	// \
	
	if( \150+\0 < \123 )	// L̘gȂXV

		// o^󋵂Ăϐ̃CfbNX
		// $900 ȍ~ɓĂ
		// (LNo) * 10 + (Ԗڂ̉zg) + 900
		\1 = \130 * 10 + \0 + 900
	
		// o^󋵂\200`̕ϐ
		\(200+\0) = $(\1)

		// o^Ă鎞(ID.1)̃TlC摜ύX
		btn_thumb[\0] settbl 1 \150+\0

		// \IDZbg
		btn_thumb[\0] setid (\(200+\0)!=0)	// \(200+\0)!=0 ́A\(200+\0)0Ȃ0AȊOȂ1ɂȂ

		// TlC\
		btn_thumb[\0] disp 1
	else
		// o^𒴂Ăo^-1ɐݒ(g)
		\(200+\0) = -1

		// TlC\
		btn_thumb[\0] disp 0
	endif

	\0++

	next THUMBNAIL_LOOP


////////////////////////////////
// ̑̕\
#DISP
	// L̑SgPʂɕ\o镪𒴂Ăꍇ̓XN[o[gp
	if( \123 > \101 * \102 )
		\160 = 1	// XN[o[gptOON
	else
		\160 = 0	// XN[o[gptOOFF
	endif
	scrl disp \160				// XN[o[\͔\
	img_scrl_base disp \160		// XN[o[̕\Ԃɍ킹āẢ͈͉摜ݒ

	// XN[o[̐ݒ
	\140 = (\123+(\101-1)) / \101	// švZ
	scrl page 0 \140 \102			// XN[o[̉͈͂ݒ

	// IĂLnCCg\
	btn_ch setid 0	// Ƃ肠SẴL{^ZbgāEEE
	btn_ch[\130] setid 2	// IĂL{^nCCg\

	// [SCENE]{^Ԃɂ
	btn_sys[1] setid 3

	// N̂ݎs
	// XN[o[ȂǂŃTlCύX͏Ȃ
	if( \500 == 0 )
		pl disp 1				// \pv[\
		topmask fade 30 255 0	// ɔ킹Ăv[tF[hAEg
		wait

		// ʂ̐؂ւɍʂɂȂȂ悤ɕ~Ăx[XC[W
		// Zbgij
		baseimg
	endif
	\500 = 1	// 灪̏sȂ悤ɂ

	/*
		wait
		wait闝ŔA}EXzC[ŃXN[
		#SEL_WAIT  #DISP_THUMBNAIL  #THUMBNAIL_LOOP  #DISP  #ENABLE_THUMBNAIL  #SEL_WAIT
		ƏJڂ邪AwaitȂƃ}EXzC[Ȃǂ͔̓ɗp_SCRL_D_Ȃǂ
		ϐZbgȂB
		ZbgȂ#SEL_WAITɖ߂ɁA܂͂ꂽƌ딻fāAēx͏
		sĂ܂܂B
		waitimɂ1t[ȏo߂jƂœ͏񂪃ZbĝŁA
		ɓ삷悤ɂȂ܂B
	*/
	wait


	// e{^L
	btn_ch enable 1		// L؂ւ{^
	btn_sys enable 1	// VXen{^
	scrl enable 1		// XN[o[

	btn_sys[1] enable 0	// [SCENE]{^

	// TlCL[v
	\0 = 0
	next ENABLE_THUMBNAIL


////////////////////////////////
// TlCL[v
#ENABLE_THUMBNAIL
	// Pʕ\g𒴂烋[vI
	if( \0 >= \101 * \102 )
		react
		next SEL_WAIT	// ͑҂
	endif

	if( \(200+\0) >= 0 )
		// gȂL
		btn_thumb[\0] enable 1
	else
		// gȂȂ疳
		btn_thumb[\0] enable 0
	endif

	\0++

	next ENABLE_THUMBNAIL


////////////////////////////////
// ͑҂[v
#SEL_WAIT
	// ENbNꂽI
	if( _CLICK_R_!=0 )		next EXIT

	// }EXzC[  PageUp ꂽ̏
	if( _SCRL_U_!=0 || _PAGE_U_!=0 )
		if( \151 > 0 )	// \Jnʒuԏ(0)Ŗ
			// Ps߂
			\151--
			scrl pos \151	// XN[o[̈ʒuݒ
			\150 = \151	* \101	// TlC\JnNo
			next DISP_THUMBNAIL	// TlC\XV
		endif
	endif

	// }EXzC[  PageDown ꂽ̏
	if( _SCRL_D_!=0 || _PAGE_D_!=0 )
		if( \151 < \140-\102 )	// \Jnʒuԉ(s-1y[W̍s)Ŗ
			// Psi
			\151++
			scrl pos \151	// XN[o[̈ʒuݒ
			\150 = \151	* \101	// TlC\JnNo
			next DISP_THUMBNAIL	// TlC\XV
		endif
	endif


///////////////////////////
// SẴ{^𖳌
#DISABLE_BUTTON
	btn_ch enable 0		// L؂ւ{^
	btn_thumb enable 0	// TlC{^
	scrl enable 0		// XN[o[
	btn_sys enable 0	// VXen{^


///////////////////////////
// CG[hI
#EXIT
	// SẴ{^𖳌
	call DISABLE_BUTTON

	// zCgAEg
	topmask disp 1
	topmask fade 30 0 255
	wait
	
	// ʐ؂ւɉʂȂ̂h߁Ax[XC[Wݒ
	baseimg bg_white

	// Ii^Cgɖ߂j
	exit -2
	next SLEEP


///////////////////////////
// Q[IiI{^j
#QUIT
	// ImF_CAOs
	$860 = 0
	execfes conf
	next QUIT_WAIT


///////////////////////////
// Q[ImF҂
#QUIT_WAIT
	if( _EXITCODE_ == 1 )
		call DISABLE_BUTTON		// ׂẴ{^𖳌
		endfes		// _CAOXNvgI
		next QUIT2	// Q[I
	endif
	if( _EXITCODE_ == 0 )
		endfes			// _CAOXNvgI
		resetactive		// {^ăANeBu
		next SEL_WAIT	// ͑҂֖߂
	endif


///////////////////////////
// Q[I2
#QUIT2
	// tF[hAEgăQ[I
	pl fade 30 255 0
	wait
	exit -3
	next SLEEP


///////////////////////////
// XNvgI̋󃋁[v
#SLEEP



////////////////////////////////////////////////////////////
// [hύXe

///////////////////////////
// zĐ
#GO_SCENEPLAY
	// {^SĖ
	call DISABLE_BUTTON
	wait 1

	// zCgAEg
	topmask fade 30 0 255
	wait

	// v[\
	pl disp 0

	// փtF[hij
	topmask fade 30 255 0
	wait

	// IR[hwzĐxɐݒ肵ďI
	exit 20
	next SLEEP



///////////////////////////
// CG[h
#GO_CG
	// SẴ{^𖳌
	call DISABLE_BUTTON
	wait

	// zCgAEg
	topmask fade 30 0 255
	wait

	// ʐ؂ւɉʂȂ̂h߁Ax[XC[Wݒ
	baseimg bg_white
	wait

	// IR[hwCG[hֈڍsxɐݒ肵ďI
	exit 10
	next SLEEP


///////////////////////////
// y[h
#GO_MUSIC
	// éwzցx(#GO_SCENE)ƓłB

	call DISABLE_BUTTON
	wait 1
	topmask fade 30 0 255
	wait
	baseimg bg_white
	wait
	exit 12		// wy[hֈڍsxR[h
	next SLEEP


////////////////////////////////////////////////////////////
// {^܂̏

///////////////////////////
// VXen{^
#btn_sys.FOCUS
	// tH[JXp摜ɐ؂ւ
	@ setid 2
	
	// wv\
	img_help settbl 0 500+@		// ID.0 āEEE
	img_help setid 0			// ID.0 ɕύX
	img_help disp 1				// wv\

#btn_sys.UNFOCUS
	// tH[JXp摜猳ɖ߂
	@ setid 0
	
	// wv
	img_help disp 0

#btn_sys.PUSH_L
	// ꂽ̉摜ɕύX
	@ setid 3
	if( @ == 0 )	next GO_CG		// [CG]{^
	if( @ == 2 )	next GO_MUSIC	// [MUSIC]{^
	if( @ == 3 )	next EXIT	// ߂{^
	if( @ == 4 )	next QUIT	// I{^


///////////////////////////
// LύX{^
#btn_ch.FOCUS
	// ݑI𒆂̃LłȂ΃tH[JXp摜ɕύX
	if( \130 != @ )	@ setid 2

	// wv\
	img_help settbl 0 510		// ID.0 āEEE
	img_help setid 0			// ID.0 ɕύX
	img_help disp 1				// wv\

#btn_ch.UNFOCUS
	// ݑI𒆂̃LłȂ΃tH[JXp摜猳ɖ߂
	if( \130 != @ )	@ setid 0

	// wv
	img_help disp 0

#btn_ch.PUSH_L
	// ݑI𒆂̃LłȂΏiI𒆂NbNĂ͖j
	if( \130 != @ )
		\130 = @	// VLNoZbg

		// XN[o[̈ʒu
		\150 = 0	// \TlC̐擪No
		\151 = 0	// XN[o[̈ʒuisj
		scrl pos 0	// XN[o[ʒuZbg

		// TlCύX
		next SET_THUMBNAIL
	endif


///////////////////////////
// TlC{^
#btn_thumb.FOCUS
	if( \(200+@) != -1 )	// gꍇ
		// J[\\
		img_cursor disp 1			// \
		@ getpos 850 851		// TlC̈ʒu擾
		img_cursor pos $850 $851	// J[\̈ʒuTlCɍ킹
	else					// gȂꍇ
		// J[\
		img_cursor disp 0
	endif

	// wv\
	img_help settbl 0 512		// ID.0 āEEE
	img_help setid 0			// ID.0 ɕύX
	img_help disp 1				// wv\

#btn_thumb.UNFOCUS
	// J[\
	img_cursor disp 0

	// wv
	img_help disp 0

#btn_thumb.PUSH_L
	if( \(200+@) > 0 )	// o^Ăꍇ
		// ĐV[(rc_???)ݒ
		strvar 200 rc_%1d%02d \130 \150+@
	
		// zĐ
		next GO_SCENEPLAY
	endif


///////////////////////////
// XN[o[
#scrl.SCRL_P
	scrl getpos 850		// XN[o[̌ݒl擾
	\150 = $850	* \101	// TlC\JnNo
	\151 = $850			// ݂̍s
	next DISP_THUMBNAIL	// TlCXV



