/*
	EBhE

	\10		Oɓo^Ăő啶͐
	\11		ݕ\͔̕ԍ

	\30		͂̏ɃJ[\Ăꍇ͂̔ԍ  ĂȂꍇ-1
	\40		͂ꂽ͂̔ԍ  ĂȂꍇ-1


*/

////////////////////////////////
// XNvg}
#INCLUDE
	motion.h		// eIuWFNg[V̒`
	btncode.h		// VXeփR}h𑗐Mׂ̃Tu[`W


////////////////////////////////
// \ߓǂł摜
#PRELOAD
	$str910			// {摜
	sys_log_name	// O摜


////////////////////////////////
// IuWFNg`
#DEFINE
	PLANE	pl			// \pv[
	IMAGE	bg			// wiiEBhEj
	IMAGE	frame		// EBhEt[
	LOGSTRING	log		// 𕶏͕\
	IMAGE	scrl_base	// XN[o[n
	SCROLL2	scrl		// XN[o[
	BUTTON	btn[5]		// {^
	IMAGE	help[5]		// o[wv
	IMAGE	name[4]		// O摜
	BUTTON	line[4]		// es̃{^
	IMAGE	uf			// [U[tHg


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

// {v[
#OBJECT	SIZE		VRAM	DISP	PRI
pl		1280,720	0,0		0		40000

// wiEBhEƃEBhEt[
#OBJECT	FILE	ID.0	PRI		DISP	PL
bg		$str910	0		0		1		pl
frame	$str910	10		1		1		pl

// p
#OBJECT	VRAM	POS2			SIZE2			PRI		DISP	COUNT
log		0,2304	$str910:1000	$str910:1000	40200	1		4

// XN[o[n
#OBJECT		FILE	ID.0	PRI		DISP	PL
scrl_base	$str910	20		10		1		pl

// XN[o[
#OBJECT		FILE				PRI		DISP	POS2		PL
scrl		sys_log_scroll		1000	1		$str910:21	pl

// {^
#OBJECT	FILE	PL	DISP	PRI	ENABLE
btn		$str910	pl	1		100	0

#OBJECT	ID.0	ID.1	ID.2	ID.3
btn[0]	500		550		600		650
btn[1]	501		551		601		651
btn[2]	502		552		602		652
btn[3]	503		553		603		653
btn[4]	504		554		604		654

// {^̃wv
#OBJECT	FILE	PL	DISP	PRI
help	$str910	pl	0		200

#OBJECT	ID.0
help[0]	700
help[1]	701
help[2]	702
help[3]	703
help[4]	704

// O摜
#OBJECT	DISP	PRI		FILE			PL
name	0		300		sys_log_name	pl

#OBJECT	POS2
name[0]	$str910:1100
name[1]	$str910:1101
name[2]	$str910:1102
name[3]	$str910:1103

// e͂̃{^iĐpj
#OBJECT	FILE	DISP	PRI	ENABLE
line	$str910	0		400	0

#OBJECT	ID.0
line[0]	1200
line[1]	1201
line[2]	1202
line[3]	1203

// [U[tHg
#OBJECT	FILE			IDN
uf		sys_userfont	-1


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

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

btn[0]		1,0,0
btn[1]		1,0,1
btn[2]		1,0,2
btn[3]		1,0,3
btn[4]		1,0,4


////////////////////////////////
// XNvgX^[g
#START
	// L[͂ɂ鉉oXLbvOFF
	keyskip off

	// {^ɃJ[\ƂɃL[삪sꂽ̈ړ{^
	line[0] noact

	// ̓{^ƃXN[o[֘At
	line attach scrl

	// OIuWFNgZbg
	// OJꂱ̃XNvgs\0ɃOIuWFNgZbgĂ܂
	// LOGSTRINGIuWFNgɃZbg邱ƂŃO\sƂo܂B
	log setlog \0
	wait 1

	// ̓CAEgݒ
	call STRLAYOUT

	// EBhEsxݒ
	call WNDALPHA

	wait 1

	// ŏɕ\閼Oݒ
	call SETNAME

	\30 = -1

	// Oɓo^Ăő啶͐擾
	log max 850
	\10 = $850

	// ݂̃Oʒu擾
	log getpos 850
	\11 = $850

	// [U[tHgݒ
	log userfontobj	uf
	log userfont 0x8740 1
	log userfont 0x8741 2
	log userfont 0x8742 3
	log userfont 0x8743 4
	log userfont 0x8744 5
	log userfont 0x8745 6
	log userfont 0x8746 7
	log userfont 0x8747 8
	log userfont 0x8748 9

	// XN[o[ݒ
	scrl page 0 \10 4	// ő僉CƂPy[W̃C
	scrl pos \11		// ݂̈ʒu

	// XN[o[\
	scrl disp 1

	// {^̗LEݒ
	call CHECK_BTN

	// tF[hC
	pl disp 1
	pl fade 8 0 255
	wait

	// O͕\
	log disp 1

	// XN[o[ƕ̓{^L
	scrl enable 1
	line enable 1

	next WAIT


////////////////////////////////
// ͑҂iC[vj
#WAIT
	if( \509 )
		// ݒ肪ύXɂȂꍇ͐ݒKp
		\509 = 0
		call STRLAYOUT
		call WNDALPHA
		log draw	// Oĕ`
	endif

	// ENbNŏI
	if( _CLICK_R_ != 0 )	next EXIT

	if( _SCRL_U_ != 0 )		next UP			// L[ / zC[
	if( _SCRL_D_ != 0 )		next DOWN		// L[ / zC[
	if( _PAGE_U_ != 0 )		next P_UP		// PageUpL[
	if( _PAGE_D_ != 0 )		next P_DOWN		// PageDownL[


////////////////////////////////
// I
#EXIT
	// O͂ƖO
	log disp 0
	name disp 0

	// e{^
	scrl enable 0
	btn enable 0
	line enable 0

	// tF[hAEg
	pl fade 8 255 0
	wait

	// I
	exit 0
	next SLEEP


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



////////////////////////////////
// Ps߂
#UP
	// ꎞIɃ{^𖳌
	btn enable 0
	line enable 0
	scrl enable 0
	wait 1

	// ͂̏ɃJ[\Ăꍇ́A̓̕J[ɖ߂
	if( \30 != -1 )	log blockcolor \30 0

	// Ps߂
	log rev

	// ݈ʒu擾
	log getpos 850
	\11 = $850

	// XN[o[̈ʒuݒ
	scrl pos \11

	// Oݒ
	call SETNAME

	// {^L
	call CHECK_BTN
	line enable 1
	scrl enable 1

	next WAIT


////////////////////////////////
// Psi
// ̗ #UP ƓȂ̂ŁAe͂
#DOWN
	btn enable 0
	line enable 0
	scrl enable 0
	wait 1
	if( \30 != -1 )	log blockcolor \30 0
	log next	// Psi
	log getpos 850
	\11 = $850
	scrl pos \11
	call SETNAME
	call CHECK_BTN
	line enable 1
	scrl enable 1
	next WAIT


////////////////////////////////
// Py[W߂
// ̗ #UP ƓȂ̂ŁAe͂
#P_UP
	btn enable 0
	line enable 0
	scrl enable 0
	wait 1
	log page -1		// Py[W߂
	log getpos 850
	\11 = $850
	scrl pos \11
	call SETNAME
	call CHECK_BTN
	line enable 1
	scrl enable 1
	next WAIT


////////////////////////////////
// Py[Wi
// ̗ #UP ƓȂ̂ŁAe͂
#P_DOWN
	btn enable 0
	line enable 0
	scrl enable 0
	wait 1
	log page 1		// Py[Wi
	log getpos 850
	\11 = $850
	scrl pos \11
	call SETNAME
	call CHECK_BTN
	line enable 1
	scrl enable 1
	next WAIT


////////////////////////////////
// XN[o[ꂽ
#scrl.SCRL_P
	next SCRL_P	// XN[o[ֈڍs


////////////////////////////////
// XN[o[ꂽ̏
#SCRL_P
	// ݂̈ʒu擾
	scrl getpos 850
	if( \11 != $850 )	// H
		// ÖʒuXVčĕ`
		log pos $850
		log draw

		// Vʒuۑ
		\11 = $850

		// O̐ݒƃ{^`FbN
		call SETNAME
		call CHECK_BTN
	endif
	next WAIT


////////////////////////////////
// EBhEsxݒ
#WNDALPHA
	// ̏̓bZ[WEBhÊ̂Ɠ
	getconf 850 wndcolor
	$850 = ($850>>24) * 255 / 100
	bg blend $850


////////////////////////////////
// ̓CAEgݒ
#STRLAYOUT
	\0 = 0
	log reset
	log layout vdraw 1		// VRAM(pv[)ɕ`悷ꍇ1
	log layout size 18 20 22 25 28	//tHgTCY(SS,S,M,L,LL)
	log layout rsize 8	//rTCY
	log layout margin 0 10 48 0	// \̈̃}[W(,,E,)
	log layout frame 0		// XN[Xs[h
	log layout move 0 10	// ԊuE,c
	log layout ruby 0		// r̈ʒuir镶̑΁j
	log layout color 255 255 255  0 0 0  255 255 255	// F ,e,rF
	log layout indent 1	//JMJbRtƂ̂Qsڈȍ~̃Cfg̗LE

	// {CX̃J[ݒ
	log layout color   255 255 255  0 0 0  255 255 255	// ʏ
	log layout acolor  255 255 255  0 0 0  255 255 255	// tH[JX
	log layout pcolor  255 255 255  0 0 0  255 255 255	// 

	// {CXL莞̃J[ݒ
	log layout vcolor  123 244 255  0 0 0  123 244 255	// ʏ
	log layout vacolor 255 113 113  0 0 0  255 113 113	// tH[JX
	log layout vpcolor 255 113 113  0 0 0  255 113 113	// 


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

// {^
#btn.FOCUS
	@ setid 2
	help[@] disp 1

#btn.UNFOCUS
	@ setid 0
	help[@] disp 0

#btn.PUSH_L
	@ setid 3
	if( @ == 0 )	next P_UP
	if( @ == 1 )	next UP
	if( @ == 2 )	next DOWN
	if( @ == 3 )	next P_DOWN
	if( @ == 4 )	next EXIT


// ̓{^
#line.FOCUS
	// J[\͂̐FtH[JXF֕ύX
	log blockcolor @ 1
	\30 = @
	\40 = -1


#line.UNFOCUS
	// J[\ꂽ͂̐FʏF֕ύX
	log blockcolor @ 0
	\30 = -1
	\40 = -1

#line.PUSH_L
	\40 = @
	next PLAY_PCM	// Đ

#line.RELEASE_L
	if( \40 != -1 )	log blockcolor \40 1	// tH[JXFɖ߂


////////////////////////////////
// {^LE
#CHECK_BTN
	btn enable 1
	btn setid 0
	if( \11 == 0 )	// O̐擪̏ꍇ
		btn[1] enable 0
		btn[1] setid 1
		btn[0] enable 0
		btn[0] setid 1
	endif
	if( \10-\11 <= 4 )	// OI[̏ꍇ
		btn[3] enable 0
		btn[3] setid 1
		btn[2] enable 0
		btn[2] setid 1
	endif


////////////////////////////////
// Đ
#PLAY_PCM
	// ͂̐FFɕύX
	log blockcolor \40 2

	// O̕͏擾
	\0 = 1010
	\1 = 850
	log lineinfo \11+\40 \0 \1

	// ɊÂĐ
	call _SYS_LOG_PLAYVOICE

	next WAIT


////////////////////////////////
// Oݒ
#SETNAME
	// ݂̈ʒu
	log getpos 850

	// Ƃ肠OSĔ\
	name disp 0

	// Ps
	\0 = $850
	\1 = 851
	call _SYS_LOG_GETNAMEID		// s̖OID擾
	if( $851 != -1 )
		// Oꍇ
		name[0] disp 1
		name[0] settbl 0 $851
		name[0] setid 0
	endif

	// Qs
	\0 = $850+1
	\1 = 851
	call _SYS_LOG_GETNAMEID
	if( $851 != -1 )
		name[1] disp 1
		name[1] settbl 0 $851
		name[1] setid 0
	endif

	// Rs
	\0 = $850+2
	\1 = 851
	call _SYS_LOG_GETNAMEID
	if( $851 != -1 )
		name[2] disp 1
		name[2] settbl 0 $851
		name[2] setid 0
	endif

	// Ss
	\0 = $850+3
	\1 = 851
	call _SYS_LOG_GETNAMEID
	if( $851 != -1 )
		name[3] disp 1
		name[3] settbl 0 $851
		name[3] setid 0
	endif



////////////////////////////////
// ݒ肪ύXɂȂɃVXeĂ΂wb_
#LOG_CHANGECONFIG
	\509 = 1	// ύXtOON


////////////////////////////////
// Oł鎞ɃVXeĂ΂wb_
#LOG_DESTROY
	log setlog 0



