/*
	bZ[WEBhE
	tFCXL聕O摜o[W

	$850 $851	: ϐ擾p

	\50			: OIDiĐpO{^̗LEȂǂɎgpj
	\52			: EBhE\A\
	\53			: 1ȂQSaveo

	\60			: EBhEt[̕`ݒ

	\94			: bZ[WEBhEv[XW
	\95			: YW

	\100		: 1Ȃkeywait\s
	\101		: 1Ȃkeywait\

	\110		: bZ[WXs[h

	\120		: tFCXXʒu
	\121		: tFCXYʒu

	\130		: OXʒuitFCXL莞j
	\131		: OYʒuitFCXL莞j
	\132		: OXʒuitFCXj
	\133		: OYʒuitFCXj

	// {^L
	\200		: ǃXLbv
	\201		: I[g
	\202		: 
	\203		: Wv
	\204		: OIɖ߂
	\205		: VXeiݒj
	\206		: Z[u
	\207		: [h
	\208		: EBhEnee
	\209		: pZ[u
	\210		: p[h
	\211		: {CXĐ

	// {^
	\250		: ǃXLbv
	\251		: I[g
	\252		: 
	\253		: Wv
	\254		: OIɖ߂
	\255		: VXeiݒj
	\256		: Z[u
	\257		: [h
	\258		: EBhEnee
	\259		: pZ[u
	\260		: p[h
	\261		: {CXĐ

	\300		: XN[VtǧvZňꎞgp

*/

////////////////////////////////
// }Ni萔j`
#MACRO
	// W
	PX	0
	PY	400
	// r[TCY
	VX	0
	VY	640


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


////////////////////////////////
// \ߓǂł摜
#PRELOAD
	$str900		// {摜
	$str902		// tFCXp}XN摜
	$str903		// O摜


////////////////////////////////
// IuWFNg`
#DEFINE
	PLANE	pl			// {v[

	IMAGE	bg			// x[XiEBhEj摜

	STRING	str			// ͕\
	IMAGE	uf			// [U[tHg

	PLANE	pl_name		// O\pv[
	IMAGE	nameimg		// O摜
	BUTTON	namebtn		// Đp̖Õ{^
	IMAGE	namepos[2]	// Oʒu擾p

	BUTTON	btn[11]		// VXe{^
	IMAGE	help[11]	// eVXe{^̃o[wv

	IMAGE	qsave_ok	// QZ[u Complete GtFNg摜

	IMAGE	keywait		// L[͑҂摜

	PLANE	fpl				// tFCXpv[
	DIFIMAGE	face[3]		// tFCX摜
	IMAGE	fmask			// tFCX}XN



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

// {v[
#OBJECT	SIZE2		VRAM	DISP	PRI
pl		$str900:0	0,0		0		60000

// wiiCEBhEj
#OBJECT	FILE		ID.0	PRI		DISP	PL
bg		$str900		1		0		1		pl

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

#OBJECT	ID.0	ID.1	ID.2	ID.3
btn[0]	1000	1100	1200	1300		// XLbv
btn[1]	1001	1101	1201	1301		// I[g
btn[2]	1002	1102	1202	1302		// 
btn[3]	1003	1103	1203	1303		// Wv
btn[4]	1004	1104	1204	1304		// ȎI
btn[5]	1005	1105	1205	1305		// ݒ
btn[6]	1006	1106	1206	1306		// Z[u
btn[7]	1007	1107	1207	1307		// [h
btn[8]	1008	1108	1208	1308		// EBhE
btn[9]	1009	1109	1209	1309		// NCbNZ[u
btn[10]	1010	1110	1210	1310		// NCbN[h

// o[wv
#OBJECT	FILE	DISP	PRI
help	$str900	0		250

#OBJECT		ID.0	PL
help[0]		1400	pl		// XLbv
help[1]		1401	pl		// I[g
help[2]		1402	pl		// 
help[3]		1403	pl		// Wv
help[4]		1404	pl		// ȎI
help[5]		1405	pl		// ݒ
help[6]		1406	pl		// Z[u
help[7]		1407	pl		// [h
help[8]		1408	pl		// EBhE
help[9]		1409	pl		// NCbNZ[u
help[10]	1410	pl		// NCbN[h

// L[͑҂
#OBJECT	FILE		IDN	DISP	PL	PRI		POS2
keywait	sys_click	-1	0		pl	300		$str900:50

// QZ[u[Complete]摜
#OBJECT		FILE	ID.0	DISP	PL	PRI
qsave_ok	$str900	60		0		pl	200


// 
#OBJECT	VRAM	POS2		SIZE2		PRI		DISP	PARENT
str		0,2304	$str900:10	$str900:10	60300	0		pl

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


// O\v[
#OBJECT	SIZE2		POS2		VRAM	DISP	PRI		PARENT
pl_name	$str900:100	$str900:100	0,300	1		61200	pl

// O摜
#OBJECT	FILE		PRI		DISP	PL		PARENT
nameimg	$str903		180		0		pl_name	pl

// O{^iĐpj
#OBJECT	FILE	ID.0 	PRI		DISP	ENABLE	PL	PARENT
namebtn	$str900	100		190		0		0		pl	pl

// Oʒu擾p
#OBJECT		FILE		ID.0	DISP	PRI
namepos[0]	$str900		100		0		195
namepos[1]	$str900		101		0		196


// tFCXv[
#OBJECT	SIZE2		VRAM	POS2		DISP	PRI		PARENT
fpl		$str900:30	0,500	$str900:30	1		61000	pl

// tFCX摜
#OBJECT	POS2		DISP	PL	PRI
face	$str902:1	0		fpl	150

// tFCX}XN
#OBJECT	FILE	ID.0	DISP	PL	PRI		MASK
fmask	$str902	0		1		fpl	160		4



////////////////////////////////
// XNvgX^[g
#START
	// x[X{^iIɍ쐬ŉʃ{^jƃVXe
	// {^oȂ̂ŁAŏɍ폜Ă܂B
	deletebgbutton

	// L[͂ɂ鉉oXLbvOFF
	keyskip off

	// bZ[Wx擾
	getconf 850 messpd
	\110 = $850

	// Aj[VZbg
	keywait setanm sys_click

	// {^LE
	\200 = 1	// ǃXLbv
	\201 = 1	// I[g
	\202 = 1	// 
	\203 = 1	// Wv
	\204 = 1	// OIɖ߂
	\205 = 1	// VXeiݒj
	\206 = 1	// Z[u
	\207 = 1	// [h
	\208 = 1	// EBhEnee
	\209 = 1	// pZ[u
	\210 = 1	// p[h
	\211 = 1	// {CXĐ

	// {^
	\250 = 0	// ǃXLbv
	\251 = 0	// I[g
	\252 = 0	// 
	\253 = 0	// Wv
	\254 = 0	// OIɖ߂
	\255 = 0	// VXeiݒj
	\256 = 0	// Z[u
	\257 = 0	// [h
	\258 = 0	// EBhEnee
	\259 = 0	// pZ[u
	\260 = 0	// p[h
	\261 = 0	// {CXĐ
	call SETBUTTON

	// ňUdecode
	// ̃^C~OŏɎw肳ꂽ摜Ȃǂ[h
	// #START͂Ȃgetposgetpos2Ől擾łȂ
	// waitłB1t[ȏo߂ȂƎ擾łȂ
	// decode̓t[o߂s킸A܂łɃX^bNĂ鏈sR}h
	decode

	// ͕\ݒ
	call STRLAYOUT

	// EBhEsx
	call WNDALPHA

	// ϐ
	\100 = 0	// keywait\
	\50 = -1	// OID
	\53 = 0		// QZ[u[Complete]\

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

	// tFCX\W擾
	face[0] getpos 850 851
	\120 = $850
	\121 = $851

	// v[W擾
	pl getpos 850 851
	\94 = $850
	\95 = $851

	// Oʒu擾
	namepos[0] getpos2 850 851	// tFCXL莞
	\130 = $850
	\131 = $851
	namepos[1] getpos2 850 851	// tFCX
	\132 = $850
	\133 = $851

	next WAIT	// ͑҂


////////////////////////////////
// ͑҂
#WAIT
	///////////////////////////////////
	// {^
	if( \52 )	// bZ[WEBhE\Ă鎞̂ݏ
		if( _CLICK_L_ == btn[0] ) call _SYS_SKIP		// ǃXLbv
		if( _CLICK_L_ == btn[1] ) call _SYS_AUTO		// I[g[h
		if( _CLICK_L_ == btn[2] ) next GO_LOG			// O\
		if( _CLICK_L_ == btn[3] ) call _SYS_JUMP		// ̑I܂ŃWv
		if( _CLICK_L_ == btn[4] ) call _SYS_RETURN		// ȎIɖ߂
		if( _CLICK_L_ == btn[5] ) next GO_CONFIG		// ݒJ
		if( _CLICK_L_ == btn[6] ) next GO_SAVE			// Z[uʂJ
		if( _CLICK_L_ == btn[7] ) next GO_LOAD			// [hʂJ
		if( _CLICK_L_ == btn[8] ) next GO_WND			// bZ[WEBhE\
		if( _CLICK_L_ == btn[9] ) call _SYS_QSAVE		// QZ[us
		if( _CLICK_L_ == btn[10] ) call _SYS_QLOAD		// Q[hs
		if( _CLICK_L_ == namebtn )	call _SYS_VOICE		// {CXčĐ
	endif

	if( \100 && \52 )
		// keywait\ & bZ[WEBhE\
		if( \101 == 0 )
			// ܂\ĂȂꍇ͕\
			keywait disp 1
			keywait anm 1
			keywait fade 10 0 255
			\101 = 1	// \tO
		endif
	endif


////////////////////////////////
// OJ
#GO_LOG
	call DISABLE_ALL_BUTTON
	call _SYS_LOG
	wait 1
	call SETBUTTON
	next WAIT


////////////////////////////////
// ݒJ
#GO_CONFIG
	call _SYS_CONFIG
	wait 1
	next WAIT


////////////////////////////////
// Z[uʂJ
#GO_SAVE
	call DISABLE_ALL_BUTTON
	wait 1
	call _SYS_SAVE
	wait 120
	next WAIT


////////////////////////////////
// [hʂJ
#GO_LOAD
	call DISABLE_ALL_BUTTON
	wait 1
	call _SYS_LOAD
	wait 120
	next WAIT


////////////////////////////////
// EBhE\E\؂ւ
#GO_WND
	call _SYS_WND
	wait 1
	next WAIT


////////////////////////////////
// pZ[uos
#QSAVE
	\53 = 1		// QZ[uotOON
	\0 = 0
	call DISABLE_ALL_BUTTON
	call _SYS_ENABLESYSBTN	// VXeniL[{[hV[gJbg܂ށjꎞ

	help disp 0

	qsave_ok stop

	qsave_ok disp 1
	qsave_ok pos 0 10
	qsave_ok move 6 0 0
	qsave_ok fade 4 0 255
	wait
	wait 20
	qsave_ok fade 16 255 0
	wait

	\53 = 0		// QZ[uotOOFF

	call SETBUTTON
	call _SYS_ENABLESYSBTN	// VXeniL[{[hV[gJbg܂ށjL
	\0 = 1

	next WAIT


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

#btn.FOCUS
	@ setid 2
	help[@] setid 0
	help[@] disp 1

#btn.UNFOCUS
	@ setid 0
	help disp 0

#btn.PUSH_L
	@ setid 3
	help disp 0


#namebtn.FOCUS
	nameimg setid 1

#namebtn.UNFOCUS
	nameimg setid 0

#namebtn.PUSH_L
	nameimg setid 1



////////////////////////////////
// {^Ԃ̐ݒ
#SETBUTTON
	// O{^̓{CXĐL(\211)AO\ĂĂ(\50)ꍇɗL
	namebtn enable (\211!=0)&&(\50!=-1)

	\0 = 0			// ǃXLbv
	call _SETBUTTON
	\0 = 1			// I[g[h
	call _SETBUTTON
	\0 = 2			// O\
	call _SETBUTTON
	\0 = 3			// ̑I܂ŃWv
	call _SETBUTTON
	\0 = 4			// ȎIɖ߂
	call _SETBUTTON
	\0 = 5			// ݒJ
	call _SETBUTTON
	\0 = 6			// Z[uʂJ
	call _SETBUTTON
	\0 = 7			// [hʂJ
	call _SETBUTTON
	\0 = 8			// bZ[WEBhE\
	call _SETBUTTON
	\0 = 9			// QZ[us
	call _SETBUTTON
	\0 = 10			// Q[hs
	call _SETBUTTON


#_SETBUTTON
	if( \52 )
		// bZ[WEBhE\Ăꍇ
		if( \(200+\0) )
			// {^L̏ꍇ
			if( \(250+\0) )
				// Ԃ̏ꍇ
				btn[\0] setid 3
				btn[\0] enable 1
			else
				// ʏ̏ꍇ
				btn[\0] setid 0
				btn[\0] enable 1
			endif
		else
			// {^̏ꍇ
			btn[\0] setid 1
			btn[\0] enable 0
			help[\0] disp 0
		endif
	else
		// bZ[WEBhE\̏ꍇ  ݒɊւ炸Ń{^
		btn[\0] enable 0
		help[\0] disp 0
	endif


////////////////////////////////
// SẴ{^𖳌
#DISABLE_ALL_BUTTON
	btn enable 0
	btn setid 1
	namebtn enable 0
	help disp 0


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


////////////////////////////////
// EBhE̕sx̐ݒ
#WNDALPHA
	// ݒ肩t[`悷邩擾
	getconf 850 wndframe
	bg disp $850
	\60 = $850		// ݒۑ

	// EBhEFisxj擾
	getconf 850 wndcolor
	$850 = ($850>>24) * 255 / 100	// ̂ݕωꍇ̌vZ
									// l0`100(%)Ȃ̂ŁA0`255ɕϊ
	bg blend $850	// EBhEsxύX


////////////////////////////////
// ݒ肪ύXꂽ̏
#CHANGECONFIG
	// ͕\CAEgĐݒ
	call STRLAYOUT

	// EBhEsxݒ
	call WNDALPHA

	// ͂ĕ`
	str draw \51
	str skip	// XN[XLbv

	help disp 0

	if( \50 != -1 && \52 )
		// O\Ăꍇ͕\
		nameimg disp 1
		pl_name disp 1
	endif

	next WAIT




//////////////////////////////////////////////////////////////
// V[XNvgGW(sscript.kcs)̏󂯎wb_

// ̓Zbg
// in : $str1000	Zbg镶
#MES_SETSTRING
	str apend $str1000

// ͕\
// in : \0	}[N
#MES_DRAW
	if( \52 )
		str disp 1
		str draw \0
		\51 = \0
		if( \50 != -1 )
			nameimg disp 1
			pl_name disp 1
		endif
	endif

// ̓NA
#MES_CLEAR
	str clear
	str disp 0
	nameimg disp 0
	pl_name disp 0
	\50 = -1
	keywait anm 0
	keywait disp 0
	\100 = 0
	namebtn enable 0

	// OʒutFCX̎̈ʒuɖ߂
	pl_name pos \132 \133

	// J[ɖ߂
	str layout color 255 255 255  0 0 0  255 255 255


// }[NZbg
#MES_SETMARK
	str apendmark

// `撆
// out : \0		1Ȃ`撆
#MES_ISDRAW
	str isdraw

// }[Nʒu܂ŕ`撆
// out : \0		1Ȃ`撆
#MES_ISDRAWMARK
	str isdrawmark

// ̓XN[XLbv
#MES_SKIP
	str skip

// OZbg
// in : $str1001	O
//      \0			OID
#MES_SETNAME
	\50 = \0
	if( \0 != -1 )
		nameimg settbl 0 \0
		nameimg settbl 1 \0+1000
		nameimg settbl 2 \0+2000
		nameimg setid 0
	endif
	namebtn enable (\211!=0)&&(\50!=-1)


// EBhE\
// in : \0	0:\  1:\
#MES_SHOW
	\52 = \0

	pl disp \52			// Cv[
	str disp \52		// 
	if( \60 )
		// EBhEt[`悷ꍇ
		bg disp \52
	else
		// EBhEt[`悵Ȃꍇ
		bg disp 0
	endif

	fpl disp \52	// tFCXv[
	face disp \52	// tFCX摜
	fmask disp \52	// tFCX}XN

	btn disp \52	// e{^
	call SETBUTTON	// {^LEĐݒ

	if( \52 )	// \
		if( \50 != -1 )	// O\Ȃ\
			nameimg disp 1
			pl_name disp 1
		else
			nameimg disp 0
			pl_name disp 0
		endif
	else		// \
		help disp 0
		qsave_ok disp 0
		nameimg disp 0
		pl_name disp 0
	endif

	// L[͑҂ACRx
	keywait anm 0
	keywait disp 0
	if( \100 )
		// L[͑҂ACR\̏ꍇ́AxĂĕ\
		\101 = 0
	endif

	// 摜ĕ`
	force_redraw


// L[͑҂ACR\
#MES_WAITINPUT
	if( \52 )
		keywait anm 0
		\101 = 0
	endif
	\100 = \0


// {^LEݒ
// in : \0`\11	{^
#MES_SETSTATE
	\200 = \0	// ǃXLbv
	\201 = \1	// I[g
	\202 = \2	// 
	\203 = \3	// Wv
	\204 = \4	// OIɖ߂
	\205 = \5	// VXeiݒj
	\206 = \6	// Z[u
	\207 = \7	// [h
	\208 = \8	// EBhEnee
	\209 = \10	// pZ[u
	\210 = \11	// p[h
	\211 = \9	// {CXĐ
	if( \53 == 0 ) call SETBUTTON	// QZ[uołȂΑKp

// ݒύX
#MES_CHANGECONFIG
	next CHANGECONFIG

// EBhExύX
// in : \0	sx
#MES_ALPHA
	pl blend \0
	fpl blend \0

// NCbNZ[u}[N\
#MES_COMP_QSAVE
	\53 = 1
	next QSAVE

// {^Ԃɂ
// in : \0	{^No
//      \1	1Ȃ牟
#MES_PUSH
	\(250+\0) = \1
	call SETBUTTON

// bZ[WXN[Xs[h̐ݒ
// in : \0	XN[Xs[h
#MES_SCROLLSPD
	\110 = \0
	call STRLAYOUT
	str skip

// tFCXZbg
// in : \0	tFCXNoi0`2j
//      \1	tFCXIuWFNg
//      \2	XW
//      \3	YW
//      \4	sx
#MES_SETFACE
	face[\0] refex \1
	face[\0] disp (\1!=0)&&(\52)
	face[\0] pos \120+\2 \121+\3
	face[\0] blend \4

// O\ʒuύX
// in : \0	tFCX (0> 1>L)
#MES_NAMEPOS
	debug \0
	if( \0 == 0 )
		pl_name pos \132 \133	// tFCX̎̈ʒu
	else
		pl_name pos \130 \131	// tFCXL̎̈ʒu
	endif

// [hύX
// in : \0	0:ʏ 1:I[g 2:XLbv
#MES_MODE


// I
// in : \0	0:ʏ 1:I
#MES_SELECT



// hbO
#MES_DRAGRELEASE


// EBhEʒuZbg
// in : \0	XW
//		\1	YW
#MES_POS
	\94 = \0
	\95 = \1
	pl pos \94 \95

// EBhEʒu擾
// in : \0	XWZbg
//		\1	YWZbg
#MES_GETPOS
	\0 = \94
	\1 = \95

// XN[Vtg
// in : \0	EBhE\ꏊ 0:W 1:킹 2:㍇킹
//      \1	XVtg
//		\2	YVtg
#MES_SHIFT
	if( \0 == 0 )
		\94 = PX
		\95 = PY
	else
		if( \0 == 1 )
			\94 = PX
			\300 = VY-PY
			\95 = \2-\300
			if( \95 > VY )	\95 = VY
		else
			\94 = PX
			\300 = -(VY-PY)
			if( \2 < \300 )
				\95 = \300
			else
				\95 = \2
			endif
		endif
	endif
	pl pos \94 \95

// ͕\Xs[h{ݒ
// in : \0	\{
#MES_SETMAG


// I[g{\
// in : \0	I[g{
#MES_AUTOMAG


// OFύX
// in : \0	ύX̐F(R)
//		\1	ύX̐F(G)
//		\2	ύX̐F(B)
#MES_SETNAMECOLOR


