/*
	ʃXNvg@I

	őI 6 

	y͏z
	\0 : I
	\100`: ID
	\200`: I𕶎𐔒l

	$str700`: I𕶎

*/


////////////////////////////////
// }Ni萔j`
#MACRO
// gpϐԍ
SELCNT		300		// I
m_i			10		// [vJE^
m_pos		11		// ZYʒu
m_size		20		// tHgTCY
m_act		21		// tH[JXԂ̃Zԍ(-1)
m_ec		30		// IR[h(Iꂽԍ)
m_sel		40		// ZʒuEIʒuݒ肷INo
m_reset		50		// \Zbg(0: 1:\ 2:Zbg(ĕ`)s)
m_strpos	60		// IY炵
m_wait		100		// ͑҂(0:`揈 1:͑҂)

// ̑
SSIZE		24		// tHgTCY
MARGIN		60		// ZԂ̃sNZ


////////////////////////////////
// XNvg}
#INCLUDE
	motion.h	// eIuWFNg[V̒`


////////////////////////////////
// \ߓǂł摜
#PRELOAD
	$str920		// Z摜


////////////////////////////////
// IuWFNg`
#DEFINE
	PLANE	pl[6]		// \pv[iő5j
	BUTTON	fr1[6]		// I{^IZʏ펞摜
	STRING	str[6]		// I
	IMAGE	uf			// [U[tHg
	IMAGE	focus[6]	// tH[JXIZ
	IMAGE	push[6]		// IZ


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

// {v[
#OBJECT	SIZE2		PRI		DISP
pl		$str920:0	55000	0

#OBJECT	VRAM
pl[0]	1024,0
pl[1]	1024,100
pl[2]	1024,200
pl[3]	1024,300
pl[4]	1024,400
pl[5]	1024,500

// {^
#OBJECT	FILE	ID.0	PRI		DISP	ENABLE
fr1		$str920	100		10000	0		0

#OBJECT	FILE	ID.0	PRI		DISP	ENABLE
focus	$str920	102		11000	0		0

#OBJECT	FILE	ID.0	PRI		DISP	ENABLE
push	$str920	103		12000	0		0

#OBJECT		PL
fr1[0]		pl[0]
focus[0]	pl[0]
push[0]		pl[0]
fr1[1]		pl[1]
focus[1]	pl[1]
push[1]		pl[1]
fr1[2]		pl[2]
focus[2]	pl[2]
push[2]		pl[2]
fr1[3]		pl[3]
focus[3]	pl[3]
push[3]		pl[3]
fr1[4]		pl[4]
focus[4]	pl[4]
push[4]		pl[4]
fr1[5]		pl[5]
focus[5]	pl[5]
push[5]		pl[5]

// I
#OBJECT	SIZE2		PRI		DISP
str		$str920:0	60000	0

#OBJECT		VRAM
str[0]		0,2424
str[1]		0,2524
str[2]		0,2624
str[3]		0,2724
str[4]		0,2824
str[5]		0,2924

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


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

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


///////////////////////////////////
// XNvgJn
#START
	// L[͂ɂ鉉oXLbvOFF
	keyskip off

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

	// I񃌃CAEgݒ
	call STRLAYOUT

	// IZbg
	// I(fselect)sꂱ̃XNvgs\0ɑIĂ܂
	// ܂ϐ$str700ȍ~ɑI񂪓Ă܂B
	// i700Ƃladv.xmlŐݒ肳Ă܂j
	\SELCNT = \0

	// ZbgԂ
	\m_reset = 0

	// IʒuYVtg
	\m_strpos = 2

	// tHgTCY
	\m_size = SSIZE

	// tH[JXĂZԍZbgϐitH[JXĂȂj
	\m_act = -1

	// ZTCY̎擾̂߁AUdecode
	decode

	// [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

	// Iݒ胋[v
	\m_i = 0	// [vJE^
	next SETSEL


///////////////////////////////////
// Zbgiĕ`js
#RESET
	str clear		// INA
	\m_wait = 0		// ͑҂Ԃł͂Ȃ̂0ݒ
	\m_size = SSIZE	// tHgTCY
	\m_act = -1		// tH[JXZ
	\m_reset = 2	// Zbgiŏ̕\osȂłɕ\j
	wait 1

	// Iݒ胋[v
	\m_i = 0	// [vJE^
	next SETSEL


///////////////////////////////////
// Zݒ胋[viI̐[vj
#SETSEL
	\m_sel = \m_i	// SELPOS/SELSTR ǂ̃Z邩ݒ肷ϐɔԍZbg
	call SELPOS		// Zʒu𒲐
	call SELSTR		// Iʒu

	// JE^+1
	\m_i++
	if( \SELCNT <= \m_i )	// Iꍇ
		wait 1
		\m_i = 0	// ̕\ł[vŝŁAJE^0ɖ߂
		next DISP	// \ֈڍs
	endif
	next SETSEL


///////////////////////////////////
// \
#DISP
	if( \m_reset == 2 )
		// Zbg̏ꍇ͉o
		
		// ZẺ]EZbgĕ\
		str[\m_i] disp 1
		str[\m_i] rot 0 0 0
		str[\m_i] blend 255
		pl[\m_i] disp 1
		pl[\m_i] rot 0 0 0
		pl[\m_i] blend 255

		// tH[JXEԉ摜͔\
		focus[\m_i] disp 0
		push[\m_i] disp 0

		// `
		str[\m_i] draw -1
		
	endif
	if( \m_reset == 0 )
		// \

		// ZE\
		str[\m_i] disp 1
		str[\m_i] draw -1
		pl[\m_i] disp 1

		// 𒆐S45x]ēɂĂ
		str[\m_i] rot 45 0 0
		str[\m_i] blend 0
		pl[\m_i] rot 45 0 0
		pl[\m_i] blend 0
		wait 1

		// tF[hCȂ]ɖ߂
		str[\m_i] fade 30 0 255
		str[\m_i] mrot 30 0 0 0
		pl[\m_i] fade 30 0 255
		pl[\m_i] mrot 30 0 0 0

		wait 15
	endif

	// [v
	\m_i++
	if( \SELCNT > \m_i )	next DISP

	next DISP_END


///////////////////////////////////
// \Ȉ
#DISP_END
	wait	// \oI܂ő҂

	// 񎞂͈ԏ̃ZɃJ[\ړ
	if( \m_reset == 0 )	automove fr1[0]

	// \ÎŁAZbgԂ1
	\m_reset = 1

	// {^L
	call ENABLE_BUTTON

	// ͑҂ԃtOZbg
	\m_wait = 1

	// ͑҂
	next WAIT


///////////////////////////////////
// ͑҂
#WAIT


///////////////////////////////////
// ȈI
#EXIT
	// {^
	fr1 enable 0

	// Ƃ҂
	wait 16

	// tF[hAEg
	pl fade 16 255 0
	str fade 16 255 0
	wait

	// J[\IǑ̈ʒuɈړ
	restoremove

	// I
	exit \m_ec
	next SLEEP


///////////////////////////////////
// Î烋[v
#SLEEP



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

#fr1.FOCUS
	// tH[JXZԍޔ
	\m_act = @

	// tH[JX摜(UNFOCUSł̓쓙)܂Ă\̂ŋ~
	focus[@] stop

	// tH[JXZ摜ɔ킹
	focus[@] disp 1
	focus[@] fade 10 0 255
	
	// tHgTCY傫
	\m_size = SSIZE+3
	\m_sel = @		// SELSTRZԍ
	call SELSTR

	// Iĕ`
	str[\m_sel] disp 1
	str[\m_sel] draw -1


#fr1.UNFOCUS
	// tH[JXZԍZbg
	\m_act = -1

	// tH[JX摜(FOCUSł̓쓙)܂Ă\̂ŋ~
	focus[@] stop

	// tH[JX摜tF[hAEg
	focus[@] fade 10 255 0

	// tHgTCYɖ߂
	\m_size = SSIZE
	\m_sel = @		// SELSTRZԍ
	call SELSTR

	// Iĕ`
	str[\m_sel] disp 1
	str[\m_sel] draw -1


#fr1.PUSH_L
	// IꂽZԍ
	\m_ec = @

	// ԉ摜tF[hCiォ킹j
	push[@] disp 1
	push[@] fade 8 0 255

	// {^𖳌
	fr1 enable 0

	// I
	next EXIT


///////////////////////////////////
// 񃌃CAEg
#STRLAYOUT
	str reset					// ܂̓ftHgݒŃZbg
	str layout vdraw 1			// VRAM(pv[)ɕ`悷ꍇ1
	str layout size SSIZE		// tHgTCY
	str layout margin 0 0 0 0	// \̈̃}[W(,,E,)
	str layout frame 0			// XN[Xs[hiXN[j


///////////////////////////////////
// Zʒuݒ
#SELPOS
	// Ƃ肠Z\
	fr1[\m_sel] disp 1

	// Z̈ʒuvZ
	\m_pos = (\SELCNT * MARGIN) / 2
	\m_pos = 200 - \m_pos
	\m_pos = \m_pos + \m_sel * MARGIN

	// Zv[̃x[XʒuZ̒Sɂ
	// oŉ]g
	pl[\m_sel] getsize 850 851
	pl[\m_sel] base $850/2 $851/2

	// x[Xʒuݒ肵̂ŁAɍ킹ĕ\ʒuݒ
	pl[\m_sel] pos 800/2 \m_pos+$851/2

	// L[ꂽȂǂɓJ[\̈ʒuݒ
	fr1[\m_sel] keypos 1 100 0


///////////////////////////////////
// Iʒuݒ
#SELSTR
	// tHgTCYύX
	str[\m_sel] layout size \m_size

	// ̈ʒuvZiZ̎̌vZƓj
	\m_pos = (\SELCNT * MARGIN) / 2
	\m_pos = 200 - \m_pos
	\m_pos = \m_pos + \m_sel * MARGIN

	// v[̃x[XʒuZ̒Sɂ
	// oŉ]g
	str[\m_sel] getsize 850 851
	str[\m_sel] base $850/2 $851/2

	// x[Xʒuݒ肵̂ŁAɍ킹ĕ\ʒuݒ
	str[\m_sel] pos 800/2 \m_pos+\m_strpos+$851/2

	// I$str799Ɏ擾
	// ݒ肷str߂ł͕ϐԍwɉZgȂ(+700Ƃw肪oȂ)
	// 799ԂƗpɎgp
	strvar get 799 \m_sel+700
	// Đݒ
	str[\m_sel] str \pc$str799


///////////////////////////////////
// {^L
#ENABLE_BUTTON
	if( \SELCNT >= 1 )	fr1[0] enable 1
	if( \SELCNT >= 2 )	fr1[1] enable 1
	if( \SELCNT >= 3 )	fr1[2] enable 1
	if( \SELCNT >= 4 )	fr1[3] enable 1
	if( \SELCNT >= 5 )	fr1[4] enable 1
	if( \SELCNT >= 6 )	fr1[5] enable 1



/////////////////////////////////////////////////////////////////
// ȉ̓VXeĂ΂

///////////////////////////////////
// \Zbg
#SEL_RESET
	fr1 enable 0
	\m_wait = 0
	next RESET

///////////////////////////////////
// {^LEݒ
// in : \0	0Ȃ疳 1ȂL
#SEL_ENABLE
	if( \m_wait )
		if( \0 )
			call ENABLE_BUTTON
		else
			fr1 enable 0
		endif
	endif

///////////////////////////////////
// I𒆂ɗJꂽɌĂ΂
#SEL_ENTER_HIST
	pl stop		// o~
	str stop

