/*
	ʃXNvgTv
	Z[u[h

	Oݒ肳ϐ
	$800@Z[uE[hʃ^Cv 0:Z[u 1:[h
	$801@Z[uE[hʃ[h 0:[ĥ 1:Z[u[h
	$802@݂̃y[W
	$803@őy[W

	Z[uf[^iV[XNvgŐݒ肳j
	$0@@Q[ԁij
	$1@@Q[ԁij

*/

#INCLUDE
	motion.h


///////////////////////////////////////
// ǂ݃t@C` (C[Ŵ)
#PRELOAD
	sys_sl_base				// Z[uE[hʊ{摜
	sys_sl_font_pnow		// ݂̃y[Wԍ
	sys_sl_font_pmax		// őy[Wԍ
	sys_sl_font_date		// Z[uiAԁjptHg
	sys_sl_panel			// Z[upl摜
	sys_sl_font_gdate_ex	// Q[
	sys_sl_font_gdate_n		// Q[
	sys_sl_font_gdate_w		// Q[j
	sys_userfont			// Z[u͗p[U[tHg


///////////////////////////////////////
// IuWFNg쐬
#DEFINE
	CPLANE		topmask		// zCgAEgp̐^ȃv[
	CIMAGE		basemask	// XNvgԂ̂Ȃp摜x[XC[Wp

	PLANE		pl			// \pv[

	IMAGE		img_bg		// wi摜

	IMAGE		img_quick	// pZ[ü摜
	BUTTON		btn_quick	// pZ[üFp{^
	IMAGE		img_quick_w	// pZ[u[jO摜

	BUTTON		btn_sys[7]		// VXe{^
	BUTTON		btn_mode[2]		// [hؑփ{^

	IMAGE		img_syshlp[7]	// VXe{^wv摜
	IMAGE		img_modehlp[2]	// [hؑփ{^wv摜

	IMAGE		img_page_n[2]	// ݃y[Wԍ
	IMAGE		img_page_m[2]	// őy[Wԍ
	SAVEPANEL	data[6]			// f[^pl
	BUTTON		btn_data[6]		// f[^{^
	IMAGE		dfont_n			// tHg|Q[
	IMAGE		dfont_w			// tHg|Q[j
	IMAGE		dfont_ex		// tHg|Q[
	IMAGE		dfont_r			// tHg|Z[uԁiAԁj


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

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

// XNvgԂ̂Ȃp摜x[XC[Wp
#OBJECT		COLOR		SIZE	PRI		DISP	PL
basemask	0xffffffff	800,600	1000	0		pl


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

// wi
#OBJECT		FILE		ID.0	ID.1	PRI	PL	DISP
img_bg		sys_sl_base	0		1		40	pl	0

// pZ[un
#OBJECT		FILE		ID.0	ID.1	PRI	PL
img_quick	sys_sl_base	20		21		50	pl

#OBJECT		FILE		ID.0	PRI	PL	ENABLE
btn_quick	sys_sl_base	1401	300	pl	0

#OBJECT		FILE		ID.0	PRI	PL
img_quick_w	sys_sl_base	1400	350	pl

// VXe{^n
#OBJECT		FILE			PRI	PL	DISP
btn_sys		sys_sl_base		60	pl	0
btn_mode	sys_sl_base		70	pl	0

#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
btn_sys[5]	105		205		305		405
btn_sys[6]	106		206		306		406

btn_mode[0]	110		210		310		410
btn_mode[1]	111		211		311		411

// {^wvn
#OBJECT		FILE		PRI	PL	DISP
img_syshlp	sys_sl_base	80	pl	0
img_modehlp	sys_sl_base	90	pl	0

#OBJECT			ID.0	ID.1
img_syshlp[0]	500
img_syshlp[1]	501
img_syshlp[2]	502
img_syshlp[3]	503
img_syshlp[4]	504
img_syshlp[5]	505		515		// ID1̓[hʗp
img_syshlp[6]	506

img_modehlp[0]	507
img_modehlp[1]	508

// tHgn
#OBJECT		FILE				PRI		PL	DISP
img_page_n	sys_sl_font_pnow	100		pl	0
img_page_m	sys_sl_font_pnow	105		pl	0

dfont_n		sys_sl_font_gdate_n
dfont_w		sys_sl_font_gdate_w
dfont_ex	sys_sl_font_gdate_ex
dfont_r		sys_sl_font_date

#OBJECT			POS2
img_page_n[0]	sys_sl_base:1303
img_page_n[1]	sys_sl_base:1302
img_page_m[0]	sys_sl_base:1301
img_page_m[1]	sys_sl_base:1300

// f[^pl
#OBJECT	FILE			PL	DISP	PRI
data	sys_sl_panel	pl	0		200

#OBJECT	POS2
data[0]	sys_sl_base:1100
data[1]	sys_sl_base:1101
data[2]	sys_sl_base:1102
data[3]	sys_sl_base:1103
data[4]	sys_sl_base:1104
data[5]	sys_sl_base:1105

// f[^{^
#OBJECT		FILE		PRI	ENABLE	DISP
btn_data	sys_sl_base	220	0		0

#OBJECT		ID.0
btn_data[0]	1200
btn_data[1]	1201
btn_data[2]	1202
btn_data[3]	1203
btn_data[4]	1204
btn_data[5]	1205



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

#OBJECT		KEYBLOCK	// (block,x,y)
btn_sys[0]	0,0,0
btn_sys[1]	0,1,0
btn_sys[2]	0,2,0
btn_sys[3]	0,3,0
btn_sys[4]	0,4,0

btn_data[0]	1,0,0
btn_data[1]	1,0,1
btn_data[2]	1,0,2
btn_data[3]	1,1,0
btn_data[4]	1,1,1
btn_data[5]	1,1,2

btn_sys[5]	2,2,0
btn_sys[6]	2,3,0
btn_mode[0]	2,0,0
btn_mode[1]	2,1,0



///////////////////////////
// X^[g
#START
	// ʍ\̐ݒ
	\100 = 6	// Pʂ̃Z[upl̐
	\101 = 3	// NCbNZ[u̐

	// L[͂ɂ鉉oXLbvOFF
	keyskip off
	wait

	// ŐVZ[uf[^̔ԍ擾
	call GET_NEWDATA

	// ŐVf[^y[W̔ԍZo  ݂̃y[WƂ
	if( \110 >= 0 )
		// Py[Wڂ̐擪ɂpf[^̂ŁApf[^Ă܂
		$802 = (\110+\101) / \100
	else
		$802 = 0
	endif

	// ŐVf[^y[W̉Ԗڂ̃pliNJ[\ړpj
	if( \110 == -1 )
		\109 = -1	// ŐV
	else
		\109 = (\110+\101) % \100
	endif

	// ̌vZł̓y[Wԍ0`Ȃ̂ŁA1𑫂1`ɂ
	$802++

	// ^CgʂĂ΂ꂽꍇ͐^v[ŕ
	if( $801 == 0 )
		// ^Cgʂ̏
		topmask disp 1	// ^v[\
		baseimg			// ̃x[XC[W폜
	else
		// V[̏
		// ʂȂ̂œɂȂɂȂ
	endif

	// J[\{^ȊȌꏊɂɖL[ꂽꍇ
	// ړ{^̐ݒ
	btn_data[0] noact 1		// ̃f[^pl

	// f[^plݒֈڍs
	next INITPANEL


///////////////////////////
// f[^pl
#INITPANEL
	// plEBhE
	data ptype NORM 0	// f[^ppl
	data ptype NORM 1	// f[^Lppl
	data ptype NORM 2	// tH[JXpJ[\

	// tp
	data ptype NORM 3	// tLEjL
	data ptype NORM 13	// tLEj
	data ptype NORM 4	// tEjipj

	// TlC
	data ptype NORM 5	// TlCg
	data ptype SIMAGE 10 0x100	// TlC

	// ŐV}[N
	data ptype NORM 6	// ʏf[^p
	data ptype NORM 7	// pf[^p

	// Q[
	data ptype NUM_O2 50 dfont_n FLAG.1	// 
	data ptype NUM_O2 51 dfont_n FLAG.2	// 
	data ptype NUM_O2 52 dfont_w FLAG.3	// j

	data ptype SSTR 12 0x200 14 11 0xffffffff 3 0xff404040 2 3	// Z[ũeLXg

	// Z[uN
	data ptype NUM_O2 100 dfont_r DATE_Y:1000
	data ptype NUM_O2 101 dfont_r DATE_Y:100
	data ptype NUM_O2 102 dfont_r DATE_Y:10
	data ptype NUM_O2 103 dfont_r DATE_Y:1

	// Z[u
	data ptype NUM_O2 110 dfont_r DATE_M:10
	data ptype NUM_O2 111 dfont_r DATE_M:1

	// Z[u
	data ptype NUM_O2 120 dfont_r DATE_D:10
	data ptype NUM_O2 121 dfont_r DATE_D:1

	// Z[u
	data ptype NUM_O2 130 dfont_r DATE_H:10
	data ptype NUM_O2 131 dfont_r DATE_H:1

	// Z[u
	data ptype NUM_O2 140 dfont_r DATE_N:10
	data ptype NUM_O2 141 dfont_r DATE_N:1

	// [U[tHgݒ
	data userfont 12 sys_userfont 0x8740 1
	data userfont 12 sys_userfont 0x8741 2
	data userfont 12 sys_userfont 0x8742 3
	data userfont 12 sys_userfont 0x8743 4
	data userfont 12 sys_userfont 0x8744 5
	data userfont 12 sys_userfont 0x8744 6
	data userfont 12 sys_userfont 0x8744 7
	data userfont 12 sys_userfont 0x8744 8
	data userfont 12 sys_userfont 0x8744 9

	// wi̐ݒֈڍs
	next SETBG


///////////////////////////
// wiZbg
#SETBG
	// $800 : Z[u̎>0 [h̎>1
	img_bg setid $800		// wi
	img_quick setid $800	// pf[^̈pl
	img_syshlp[5] setid $800	// wv

	// f[^ݒֈڍs
	next SETDATA


///////////////////////////
// f[^plݒ
#SETDATA
	wait 1

	// y[W
	img_page_n[0] setid $802/10		// ݂̃y[WiPÖʁj
	img_page_n[1] setid $802%10		// ݂̃y[WiP̈ʁj
	img_page_m[0] setid $803/10		// őy[WiPÖʁj
	img_page_m[1] setid $803%10		// őy[WiP̈ʁj

	// uNCbNZ[uvpl\邩ǂ`FbN
	if( $802 == 1 )
		// Py[Wڂpf[^̈EBhE\
		img_quick disp 1
	else
		// Q[Wڈȍ~Ȃpf[^̈EBhE\
		img_quick disp 0
	endif

	\108 = 0	// [vJE^
	next SETDATA_2	// plʐݒ


///////////////////////////
// Z[uf[^݂邩mFȂplZbg郋[v
#SETDATA_2
	// Py[W͈̔͂𒴂烋[v𔲂
	if( \108 >= \100 )	next BTNINIT	// {^ݒֈڍs

	// Z[uf[^ԍ ((y[WNo-1) * Py[W̃f[^ + y[W̃f[^No)
	\120 = ($802-1) * \100 + \108

	// pZ[u`FbN
	// f[^ԍpZ[ȕꍇ͂pZ[uƂ
	if( \120 < \101 )
		// pf[^̏ꍇ
		\120 += 5000	// pf[^5000n܂̂5000𑫂
	else
		// ʏf[^̏ꍇ
		\120 -= \101	// pf[^ZĂԂȂ̂ŁA̕Z
	endif

	// Z[uf[^݂邩`FbN
	saveexist \120 850
	\(200+\108) = $850	// \200`ɑݏԂZbg

	// Z[uf[^L薳Ɋւ炸f[^ZbgȂSAVEPANEL͉摜\Ȃ
	// ŃZbg
	data[\108] setsave \120 0x03 0

	if( \(200+\108) == 0 )
		// f[^ꍇ
		call SETDATA_NODATA
	else
		// f[^ꍇ
		call SETDATA_EXIST
	endif

	// JE^i܂ă[v擪
	\108++
	next SETDATA_2


///////////////////////////
// f[^plZbg(f[^Ȃ)
#SETDATA_NODATA
	// f[^pEBhE\
	data[\108] dispid 1 0

	// ̑\
	data[\108] dispid 0 [1-150]


///////////////////////////
// f[^plZbg(f[^L)
#SETDATA_EXIST
	data[\108] dispid 0 0	// f[^pEBhE͔\
	data[\108] dispid 0 2	// J[\\ɂĂ

	// \
	data[\108] dispid 1 1 5	10 12	// f[^LEBhEƃTlCƕ
	data[\108] dispid 1 [100-150]	// Z[uiAԁj

	// ŐVԃ`FbN
	data[\108] dispid 0 6 7		// Ƃ肠ŐV}[N\ɐݒ
	if( \110 == \120 )
		// ʏf[^̍ŐVf[^̏ꍇ́wŐVx}[N\
		data[\108] dispid 1 6
	endif
	if( \111 == \120 )
		// pf[^̍ŐVf[^̏ꍇ͂pf[^pwŐVx}[N\
		data[\108] dispid 1 7
	endif

	// Q[tɂĕ\̂ύX
	data[\108] getflag 0 850
	if( $850 >= 100 )
		// 100ȏȂƂ
		$850 -= 100		// 100l摜IDƂ
		// ݒ
		data[\108] ptype NUM_O2 53 dfont_ex $850
		data[\108] dispid 1 53	// ĕ\

		// ʏtp͔̂̂\ɂ
		data[\108] dispid 0 3 13
		data[\108] dispid 0 [50-52]
	else
		// ʏt̏ꍇ
		data[\108] dispid 1 3			//   i j 摜\
		data[\108] dispid 1 [50-52]		// t\

		// tp͔̂̂\ɂ
		data[\108] dispid 0 4 13	// tpƗjȂ\p\
		data[\108] dispid 0 53		// t
	endif

	// ptypeɂݒ̕ύXs߁AēxZ[uf[^ݒ肵čXV
	data[\108] setsave \120 0x03 0



///////////////////////////
// {^
#BTNINIT
	wait 1

	// {^L
	
	// VXen{^
	btn_sys enable 1
	btn_sys setid 0		// [h؂ւɃ{^FFɂȂ܂܂ɂȂ肷̂
						// Ń{^Fɖ߂Ă

	// f[^{^
	btn_data enable 1

	// ߂Eiރ{^
	if( $802 == 1 )
		// Py[Wڂ̎
		btn_sys[1] setid 1		// w߂x𖳌F
		btn_sys[1] enable 0		// Ė
		btn_sys[2] setid 1
		btn_sys[2] enable 0
	endif

	if( $802 == $803 )
		// ŏIy[W̎
		btn_sys[3] setid 1
		btn_sys[3] enable 0
		btn_sys[4] setid 1
		btn_sys[4] enable 0
	endif

	if( ($803==99) || ($800==1) )
		// y[WǉoȂꍇ̓y[Wǉ{^\
		btn_sys[0] setid 1
		btn_sys[0] enable 0
	endif

	// Z[uE[h؂ւ{^L
	btn_mode enable 1

	// pf[^ӏ\p̈攻𖳌
	btn_quick enable 0

	// VXen{^\
	btn_sys disp 1

	// {^\
	btn_mode disp 1

	if( $800 == 0 )
		// Z[u̎
		btn_mode[0] disp 1	// w[hʂցx{^\
		btn_mode[1] disp 0	// wZ[uʂցx{^͔\
		btn_mode[1] enable 0	// Z[u
		if( $803 == 1 )
			// 擪y[W̏ꍇ
			btn_quick enable 1	// pf[^ӏ\ׁÄ攻L
		endif
	endif
	if( $800 == 1 )
		// [h̎
		btn_mode[0] disp 0	// w[hʂցx{^͔\
		btn_mode[0] enable 0	// [h
		
		if( $801 == 0 )
			// ^Cgʂ̏ꍇ
			btn_mode[1]	setid 1	// wZ[uʂցx{^̓O[\
			btn_mode[1] enable 0	// Z[u
		else
			// Q[̏ꍇ
			btn_mode[1] disp 1	// wZ[uʂցx{^\
		endif
	endif

	// wv\
	img_syshlp disp 0
	img_modehlp disp 0

	// pf[^ӏ\
	img_quick_w disp 0

	// wi\
	img_bg disp 1

	// pl\
	data disp 1

	// y[Wԍ\
	img_page_n disp 1
	img_page_m disp 1


	// \o
	if( \107 == 0 )	// (XNvg)Ă΂ꂽ΂̂Ƃ
		pl disp 1			// v[\
		if( $801 == 0 )
			// ^Cgʂ̏
			topmask fade 16 255 0	// ^v[tF[hAEg
		else
			// V[̏
			pl fade 16 0 255		// \pv[tF[hC
		endif
		if( \109 >= 0 )
			// ŐVf[^ꍇ͂̃plɃJ[\ړ
			automove btn_data[\109]
		endif
	endif

	// sς݃tO𗧂Ă
	\107 = 1

	// ͑҂ֈڍs
	next WAIT


///////////////////////////
// ͑҂
#WAIT
	// ENbNŖ߂
	if(_CLICK_R_ != 0 )	next EXIT

	// L[{[h[Page Up]  }EXzC[[]
	if( _PAGE_U_ != 0 )
		if( $802 > 1 )	// 擪y[WȊȌꍇ
			// Py[W߂
			$802--
			next SETDATA
		endif
	endif

	// L[{[h[Page Down]  }EXzC[[]
	if( _PAGE_D_ != 0 )
		if( $802 < $803 )	// ŏIy[WȊȌꍇ
			// Py[Wi
			$802++
			next SETDATA
		endif
	endif



///////////////////////////
// Z[uʂ
#GO_SAVE
	$800 = 0	// Z[u[hɕύX
	next SETBG	// wiݒiZ[uE[hύXjֈڍs


///////////////////////////
// [hʂ
#GO_LOAD
	$800 = 1	// [h[h֕ύX
	next SETBG	// wiݒiZ[uE[hύXjֈڍs


///////////////////////////
// y[Wǉ
#ADDPAGE
	if( $803 < 99 )
		$803++
		// őy[WXV
		img_page_m[0] setid $803/10
		img_page_m[1] setid $803%10
	endif

	// {^ֈڍs
	next BTNINIT


///////////////////////////
// XNvgIi߂{^j
#EXIT
	// SẴ{^𖳌
	call DISABLE_ALLBTN

	if( $801 == 0 )
		// ^Cgʂ̏
		topmask fade 16 0 255	// ^v[tF[hAEg
	else
		// V[̏
		pl fade 16 255 0		// \pv[tF[hC
	endif
	wait

	// ^Cgʂ̏ꍇ͔摜x[XC[Wɐݒ
	if( $801 == 0 )	baseimg basemask

	// I
	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_ALLBTN		// ׂẴ{^𖳌
		endfes		// _CAOXNvgI
		next QUIT2	// Q[I
	endif
	if( _EXITCODE_ == 0 )
		endfes		// _CAOXNvgI
		resetactive	// {^ăANeBu
		next WAIT	// ͑҂֖߂
	endif


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


///////////////////////////
// ㏑mF
#CONFIRM
	$860 = 1
	execfes conf
	wait 1
	next CONFIRM_WAIT


///////////////////////////
// ㏑mF҂
#CONFIRM_WAIT
	if( _EXITCODE_ == 1 )
		// w͂xI΂ꂽꍇ
		endfes			// _CAOXNvgI
		next SAVEDATA	// Z[u
	endif
	if( _EXITCODE_ == 0 )
		// wxI΂ꂽꍇ
		endfes			// _CAOXNvgI
		resetactive		// {^ăANeBu
		next WAIT		// ͑҂
	endif


///////////////////////////
// f[^Z[u
#SAVEDATA
	// Z[us
	// \130 ̓Z[uf[^ԍ
	// _SAVEOBJ_ ̓Z[up̓ϐłB
	datasave \130 _SAVEOBJ_

	// ŐVZ[uf[^ԍ擾
	call GET_NEWDATA

	next SETDATA	// f[^ݒֈڍs


///////////////////////////
// f[^[h
#LOADDATA
	// SẴ{^𖳌...
	call DISABLE_ALLBTN

	// tF[hAEg
	pl fade 30 255 0
	wait

	// [hsR[h([hf[^ԍ)w肵ďI
	exit \130
	next SLEEP



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



///////////////////////////
// {^

// VXen{^
#btn_sys.FOCUS
	@ setid 2				// tH[JXFɕύX
	img_syshlp[@] disp 1	// wv\

#btn_sys.UNFOCUS
	@ setid 0				// ̐FɕύX
	img_syshlp[@] disp 0	// wv

#btn_sys.PUSH_L
	@ setid 3				// FɕύX

	if( @ == 0 )
		// y[Wǉ
		next ADDPAGE
	endif
	if( @ == 1 )
		// 擪y[Wɖ߂
		$802 = 1
		next SETDATA
	endif
	if( @ == 2 )
		// Py[W߂
		$802--
		next SETDATA
	endif
	if( @ == 3 )
		// Py[Wi
		$802++
		next SETDATA
	endif
	if( @ == 4 )
		// ŏIy[Wɐi
		$802 = $803
		next SETDATA
	endif
	if( @ == 5 )
		// ߂
		next EXIT
	endif
	if( @ == 6 )
		// Q[I
		next QUIT
	endif


// Z[uE[h؂ւ{^
#btn_mode.FOCUS
	@ setid 2
	img_modehlp[@] disp 1

#btn_mode.UNFOCUS
	@ setid 0
	img_modehlp[@] disp 0

#btn_mode.PUSH_L
	@ setid 3
	$800 = 1 - $800		// Z[ũ[hւ
	next SETBG


// f[^pl{^
#btn_data.FOCUS
	data[@] dispid 1 2

#btn_data.UNFOCUS
	data[@] dispid 0 2

#btn_data.PUSH_L
	// \130 = f[^ԍ
	\130 = ($802-1)*\100 + @

	// f[^ԍpZ[ȕꍇ͂pZ[uƂ
	if( \130 < \101 )
		// pf[^̏ꍇ
		\130 += 5000	// pf[^5000n܂̂5000𑫂
	else
		// ʏf[^̏ꍇ
		\130 -= \101	// pf[^ZĂԂȂ̂ŁA̕Z
	endif

	if( $800 == 0 )
		// Z[u[h̏ꍇ
		if( \(200+@) )
			// Z[uf[^ɑ݂Ăꍇ
			next CONFIRM	// ㏑mF
		else
			// Z[uf[^plIꂽꍇ
			next SAVEDATA	// Z[u
		endif
	else
		// [h[h̏ꍇ
		if( \(200+@) )
			// Z[uf[^ɑ݂Ăꍇ
			next LOADDATA	// [h
		endif
	endif


// pf[^GAp{^
#btn_quick.FOCUS
	img_quick_w disp 1	// Ӄpl\

#btn_quick.UNFOCUS
	img_quick_w disp 0	// Ӄpl




///////////////////////////
// ŐVZ[uf[^ԍ擾
#GET_NEWDATA
	// ʏZ[uf[^̍ŐV
	newsave 850 0 999
	\110 = $850		// ŐVZ[uf[^Noޔ

	// NCbNZ[uf[^̍ŐV
	newsave 851 5000 5000+\101-1
	\111 = $850		// ŐVpZ[uf[^Noޔ


///////////////////////////
// {^SĖ
#DISABLE_ALLBTN
	btn_sys enable 0
	btn_mode enable 0
	btn_data enable 0
	btn_quick enable 0



