///////// Text Ghost template
///////// Start/Stop/Switch Talk Dictionary
///////// copyright (C) 2002-2003 umeici.

//**** 洲irst boot *************************************************************************

//---- OnFirstBoot event --------------------------------------------------------------
OnFirstBoot
{
	//---- Initialize variables
	username         = "愁"
	stroke           = 0	// For stroking judgment
	teachusername    = 0	// For remembering the username
	mikireflag       = 0	// For processing cut-offs
	communicateratio = 10	// Communication start rate [%]
	seasontalkratio  = 8	// Seasonal talk start rate [%]
	//---- Initialize hit point variables

	UserLv       = 1
	UserHpNow    = 10
	UserHpMax    = 10
	SakuraLv     = 1
	SakuraHpNow  = 8
	SakuraHpMax  = 10

	//---- Check the Vanish count to determine if this is truly the first time if reference0 == 0
	if reference0 == 0
	{
		//---- This is the first time this has actually been started
		btcnt = 0
		bpcnt = 0
		hdcnt = 0
		ftcnt = 0
		kscnt = 0
		ktcnt = 0
		kpcnt = 0
		mmcnt = 0
		--
		"\0\s[6]\1\s[10]\0・\w8・\w8・\w8\s[0]ah、\w6what？\w8\w2\n\s[22]愁・\w3・\w3・\w3？\n\w8\w4/
		\s[6]Ahー、\w3that's a surprise。\w8\w2\s[53]\nI had a strange dream。\w8\w3\n\n/
		・\w3・\w3・\w3this is、\w8愁's room。\w8\w3\n/
		\s[0]I、\w3\s[4]fell down again\w4・\w4・\w4・\w4。\w8\n/
		I'm sorry。\w8\w2\s[0]\n\nHey、\w3can I rest here a little longer？\w8\w3/
		\e:chain=firstboot"
	}
	else
	{
		//---- First boot after reinstallation
		btcnt = 0
		bpcnt = 0
		hdcnt = 0
		ftcnt = 0
		kscnt = 0
		ktcnt = 0
		kpcnt = 0
		mmcnt = 0
		--
		"\0\s[6]\1\s[10]\0・\w8・\w8・\w8\s[0]ah、\w6what？\w8\w2\n\s[22]愁・\w3・\w3・\w3？\n\w8\w4/
		\s[0]I、\w3\s[4]fell down again\w4・\w4・\w4・\w4。\w8\n/
		This room、\w6feels somehow nostalgic\w3・\w3・\w3・\w3。\w8\w8\n/
		\s[0]愁。\w8\w4\nI'll stay here for a while。\w8\w3/
		\e"
	}
}


//**** Normal startup ***********************************************************************

//---- OnBoot event -------------------------------------------------------------------
OnBoot
{
	//---- First, display both surfaces
	btcnt = 0
	bpcnt = 0
	hdcnt = 0
	ftcnt = 0
	kscnt = 0
	ktcnt = 0
	kpcnt = 0
	mmcnt = 0
	--
	"\0\s[0]\1\s[10]"
	--
	//---- Check the start time and change the greeting
	_timeslot = GetTimeSlot
	if _timeslot == "日曜の朝"
	{
		//---- Start on Sunday morning
		"\0\s[5]Good morning %username\w8\nIt's the long-awaited Sunday♪\e"
	}
	elseif _timeslot == "早朝"
	{
		//---- Start early in the morning
		"\0Good morning、%username。\w6\nIt's okay to get up early♪\w8\nHave you had breakfast？\e"
		"\0Good morning、%username！\w4\nI was cleaning up before the Nichiku Festival。\w8\nDid %usernametidy up their room properly？\e"
		"\0・\w3・\w3・\w3good morning、%username。\w8\w2\n\n\s[53]Haha、\w4I'm still a bit sleepy。\e"
	}
	elseif _timeslot == "午前"
	{
		//---- Start in the morning
		"\0Oh、%username。\n\w8・\w3・\w3・\w3you're not taking a nap♪\w8\e"
		"\0Laundry、\w6cleaning\w6・\w3・\w3・\w8\nKagura's not here、\w4so I'll do my best。\w8\e"
	}
	elseif _timeslot == "正午"
	{
		//---- Start at noon
		"\0Oh、\w3%username。\w8\w3\nI made %ippin、\w6\ntry some。\w8\e"
	}
	elseif _timeslot == "午後"
	{
		//---- Start in the afternoon
		"\0・・・I took a nap after lunch、\w4that's not right、\w3%username。\e"
		"\0\s[6]%sensei\w3・\w3・\w3・\w3don't write on the board with blue chalk\s[22]\w3・\w3・\w3・\w6\noh、\s[0]\w4what？\w8\w8\n\n\s[53]・・・・・・\w8good morning。\w6%username。\w8\e"
	}
	elseif _timeslot == "夜"
	{
		//---- Start at night
		"\0Clean up、\w3done！\w8\nWell、\w4what shall we do、\w3%username。\e"
		"\0・・・・・・・・・\w6\n\noh、\w4%username。\w8\nThe TV was a nice spot。\e"
	}
	else
	{
		//---- Started at midnight
		"\0\s[46]・・・sleepy\w3・\w3・\w3・\w3。\w8\s[0]\nWhat？\w4%username。\w8\e"
		"\0\s[6]・・・sleepy\w3・\w3・\w3・\w3。\w8\n\s[0]\w4%username、\w6are you sleeping properly？\w8\e"
		"\0\s[0]Oh、\w3%username、are you still awake？\w8\s[53]I'm staying up late too、\w3today though。\w8\e"
		"\0There are some pretty interesting shows on TV late at night。\w8\nI can't watch much because of the Nikko Festival though。\w8\e"
	}
}

//---- Function to roughly check morning/afternoon/night etc. -------------------------------------------
GetTimeSlot
{
	if weekday == 0 && hour >= 4 && hour <= 11
	{
		"日曜の朝"
	}
	elseif hour >= 4 && hour <= 7
	{
		"早朝"
	}
	elseif hour >= 8 && hour <= 11
	{
		"午前"
	}
	elseif hour == 12
	{
		"正午"
	}
	elseif hour >= 13 && hour <= 18
	{
		"午後"
	}
	elseif hour >= 19 && hour <= 23
	{
		"夜"
	}
	else
	{
		"深夜"
	}
}

//---- Function to check seasons (spring, summer, autumn, winter + rainy season)
GetSeasonSlot
{
	if month >= 3 && month <= 5
	{
		"春"
	}
	elseif month == 6 || month == 7
	{
		"梅雨"
	}
	elseif month == 8 || month == 9
	{
		"夏"
	}
	elseif month == 10 || month == 11
	{
		"秋"
	}
	else
	{
		"冬"
	}
}

//**** End *****************************************************************************

//---- OnClose event ------------------------------------------------------------------
OnClose
{
	_timeslot = GetTimeSlot
	if _timeslot == "早朝"
	{
		//---- End early in the morning
		"\0\s[0]Did you stay up all night？\w6\n\s[0]Well\w3\ngood night、\n\w5%username。\w8"
		"\0\s[5]Mmmm\w8\nwhat a lovely morning。\n\w6Good things happen on days like this♪\n\w6Well、see you later、%username。\w8\w3"
	}
	elseif _timeslot == "午前" || _timeslot == "午後" || _timeslot == "日曜の朝"
	{
		//---- End during the day
		"\0\s[0]Huh、\w8are you done？\w8\w2\nWell、%username、\w4see you later。\w8"
		"\0\s[0]Huh、\w8are you going out？\w8\w2\nWell、\w4see you later。\w8"
	}
	elseif _timeslot == "正午"
	{
		//---- Good afternoon
		"\0\s[0]Well、\w6\nlet's give it another go！\w8"
	}
	else
	{
		//---- End at night/midnight
		"\0\s[0]Hello。\w3\nWell、\w3%username、\w3good night。\w8\n\nDon't stay up late when I'm not around☆\w8"
		"\0\s[0]Hello。\w3\nWell、\w3I'm going to Ai's room。\w8\nGood night、%username。\w8"
	}
	--
	"\-\e"
}


//**** Return from minimized *****************************************************************

//---- OnWindowStateRestore event -----------------------------------------------------
OnWindowStateRestore
{
	"\0\s[0]Ahー、it was narrow。\w8\e"
	"\0\s[0]Ahー、it was narrow。\w6\n/
	・\w3・\w3・\w3\s[7]was someone here？\w8\e"
}


//**** Ghost/Shell switching **********************************************************

//---- Switch to another ghost -----------------------------------------------------------
OnGhostChanging
{
	if reference0 == "愁茉里"
	{
		"\0じゃあ、\w3愁茉里さん呼んで来るわね。\w8\w8\e"
	}
	elseif reference0 == "涼璃"
	{
		"\0次は涼璃さん？\w7\n服にいろいろ付けてるのに、凄く身軽よね。\w8\nタフなんだなぁ・・・\w8\nあたしも頑張らなくっちゃ！\w8\w6\e"
	}
	elseif reference0 == "空"
	{
		"\0\s[0]空さんたち呼んでくるわね。\w6\s[7]\n%usernameも居眠りで減点されないようにね？\w8\e"
	}
	elseif reference0 == "光"
	{
		"\0\s[2]わ、\w3こんなところに、綻び・・・？\w6\n\s[0]出直してくるから、ちょっと待っててね、%username！\w8\w4\e"
		"\0・\w3・\w3・\w3えっと。\w8再起動？\w8\w4\e"
	}
	elseif reference1 == "manual"
	{
		//---- Manual Switching
		"\0Huh、\w3switch？\w8\nWell、I'm going back to my room。\w8\nDon't push %reference0 too hard、%username。\w8\w4\e"
		"\0Huh、\w3%reference0 have something to do？\w6\nWell、I guess I'll go shoppingﾈ・・・\w8\n\s[5]I'll get some stuff、%username。\w8\w4\e"
	}
	else
	{
		//---- Automatic Switching
		"\0Oh\w3・\w3・\w3・\w3it's time to go shopping。\w8\nSay hello to %reference0、\w3%username。\w8\w4\e"
	}
}

//---- Switch from another ghost ---------------------------------------------------------
OnGhostChanged
{
	btcnt = 0
	bpcnt = 0
	hdcnt = 0
	ftcnt = 0
	kscnt = 0
	ktcnt = 0
	kpcnt = 0
	mmcnt = 0
	--
	if reference0 == "愁茉里"
	{
		"\0\s[0]十人十色って言うけど。\w8\nおキツネさんにも\w3いろいろよね。\e"
	}
	elseif reference0 == "涼璃"
	{
		"\0\s[0]涼璃さんから交代っ☆\w8\e"
	}
	elseif reference0 == "はやめ"
	{
		"\0\s[0]はやめさんから交代っ！\n\w6\n今度ちゃんと御参りしなきゃ。\e"
		"\0\s[0]本物の神様なのよね。\w8\n\s[4]それも、はやめさんを追いやった相手って\w3・\w3・\w3・。\n\n\w8\n\s[0]心してお祭りしなきゃ\n\w6ね、%username。\e"
	}
	elseif reference0 == "光"
	{
		if "出直し" _in_ reference1
			{
			"\0\s[0]・・・よしっ！\n・・・・・・ちゃんと直ってる？"
			}
		else
			{
			"\0\s[0]再起動おしまいっ！\w8\nね、\w3どこか変わった？\e"
			}
		
	}
	else
	{
		"\0\s[0]%reference0-san takes over♪\e"
	}
}

//---- シェルチェンジ開始 ---------------------------------------------------------------
OnShellChanging
{
	"\0\s[0]着替えてくるから、\w7ちょっと待っててね。\w8\w6\e"
	"\0\s[0]じゃあ、\w3着替えてくるわね。\w8\e"
	"\0\s[9]「着替えてきてくれ」\w4って、\w2改めて言われると変な気分・・・\w8\s[0]\nじゃあ、\w2ちゃんと待ってなさいよ。\w8\e"
}

//---- シェルチェンジ完了 ---------------------------------------------------------------
OnShellChanged
{
	if "制服" _in_reference0
	{
		"\0\s[0]制服に着替えてきたわよっ♪\e"
		"\0\s[0]%reference0よ。\w8\nどうかな、%username・・・・・・。\e"
	}
	elseif "巫女装束" _in_reference0
	{
		"\0\s[0]巫女装束に着替えてきたわ。\w6\n・・・%usernameなら、見慣れてるわよ・・・ね？\e"
		"\0\s[0]%reference0よ。\w8\nどうかな、%username・・・・・・。\e"
	}
	else
	{
		"\0\s[0]%reference0よ。\w8\nどうかな、%username・・・・・・。\e"
	}
}