//---- 名前を教える -------------------------------------------------------------------
OnInputUsername
{
	inputted_name = reference0
	if inputted_name == ""
	{
		"\0\s[2]入力ミスかな？\w5\nもう一回、お願い。\![open,inputbox,OnInputUsername,-1]\e"
	}
	else
	{
		"/
		\0\s[0]呼び方は、どうしますか？\n\n[half]/
		\![*]\q[%(MENUITEM('さん')),Oninputted_name1]\n/
		\![*]\q[%(MENUITEM('君')),Oninputted_name2]\n/
		\![*]\q[%(MENUITEM('様')),Oninputted_name3]\n/
		\![*]\q[%(MENUITEM('呼び捨てでいいよ')),Oninputted_name4]\e"
	}
}

//さん
Oninputted_name1
{
	"/
	\0\s[0]「%inputted_nameさん」でいい？\n\n[half]/
	\![*]\q[%(MENUITEM('いいよ')),Oninputted_name1_determination]\n/
	\![*]\q[%(MENUITEM('まちがい')),ChoiceUsernameEntry]\n/
	\![*]\q[%(MENUITEM('やっぱり、いいや')),ChoiceNameinputstop]\e"
}

Oninputted_name1_determination
{
	username = "%inputted_nameさん"
	"\0\s[5]じゃあこれから、\w5%usernameって呼ぶね。\w8\1\s[10]・\w3・\w3・\w3よろしく。\e"
}


//君
Oninputted_name2
{
	"/
	\0\s[0]「%inputted_name君」でいい？\n\n[half]/
	\![*]\q[%(MENUITEM('いいよ')),Oninputted_name2_determination]\n/
	\![*]\q[%(MENUITEM('まちがい')),ChoiceUsernameEntry]\n/
	\![*]\q[%(MENUITEM('やっぱり、いいや')),ChoiceNameinputstop]\e"
}

Oninputted_name2_determination
{
	username = "%inputted_name君"
	"\0\s[5]じゃあこれから、\w5%usernameって呼ぶね。\w8\1\s[10]・\w3・\w3・\w3よろしく。\e"
}


//様
Oninputted_name3
{
	"/
	\0\s[0]「%inputted_name様」でいい？\n\n[half]/
	\![*]\q[%(MENUITEM('いいよ')),Oninputted_name3_determination]\n/
	\![*]\q[%(MENUITEM('まちがい')),ChoiceUsernameEntry]\n/
	\![*]\q[%(MENUITEM('やっぱり、いいや')),ChoiceNameinputstop]\e"
}

Oninputted_name3_determination
{
	username = "%inputted_name様"
	"\0\s[5]じゃあこれから、\w5%usernameって呼ぶね。\w8\1\s[10]・\w3・\w3・\w3よろしく。\e"
}

//呼び捨て
Oninputted_name4
{
	"/
	\0\s[0]「%inputted_name」でいい？\n\n[half]/
	\![*]\q[%(MENUITEM('いいよ')),Oninputted_name4_determination]\n/
	\![*]\q[%(MENUITEM('まちがい')),ChoiceUsernameEntry]\n/
	\![*]\q[%(MENUITEM('やっぱり、いいや')),ChoiceNameinputstop]\e"
}

Oninputted_name4_determination
{
	username = "%inputted_name"
	"\0\s[5]じゃあこれから、\w5%usernameって呼ぶね。\w8\1\s[10]・\w3・\w3・\w3よろしく。\e"
}


ChoiceNameinputstop
{
	"\0\s[8]えー、後回し？\e"
}