///////// 文　ゴーストテンプレート
///////// コミュニケート辞書
///////// copyright (C) 2002 umeici.

//**** こちらから話しかける *************************************************************

/*StartCommunicate
{
	//---- まず話しかける相手を決める
	if ghostexcount > 0
	{
		// res_reference[0] に話しかける相手の名前を格納
		res_reference[0] = ghostexlist[RAND(ghostexcount)]
	}

	//---- 話しかける
	if res_reference[0] == "なる"
	{
		//---- 奈留へ話しかけ
		"\0\s[0]元気ですか、奈留さん。\e"
	}
	elseif res_reference[0] == "さくら"
	{
		//---- さくらへ話しかけ
		"\0\s[0]どもー。\e"
	}
	elseif res_reference[0] != ""
	{
		//---- 誰かへ話しかけ
		"\0\s[0]こんにちは、%(res_reference[0])。\e"
	}
	else
	{
		//---- 誰もいない　この場合はランダムトークを行う
		RandomTalk
	}
}*/


//**** 話しかけられたので返事する *******************************************************

//---- OnCommunicateイベント ------------------------------------------------------------
OnCommunicateAYALILITH
{
	if reference[2] == 'ECHO/1.0' {
		if '\![vanishbymyself]' !_in_ reference[3] {
			//---拡張コミュニケート(受信)
			res_securitylevel = 'External'
			res_reference[0] = reference[0]
			reference[3]
		}
	}
	elseif reference[2] == 'JPRadish' {
		_funcname = "JPRadish_%(reference[3])_%(reference[0])"
		if ISFUNC(_funcname) {
			_script = TOSTR(EVAL(_funcname))
			if STRLEN(_script) {
				_script
				return
			}
		}
		_funcname = "JPRadish_%(reference[3])"
		if ISFUNC(_funcname) {
			_script = TOSTR(EVAL(_funcname))
			if STRLEN(_script) {
				_script
				return
			}
		}
	}
	else {
		if reference[0] == "user" || reference[0] == "User" {
			//---- ユーザーからの話しかけ
			ReplyToUser
		}
		else {
			//---- ゴーストからの話しかけ
			ReplyToGhost
		}
	}
}

//---- ユーザーからの話しかけ -----------------------------------------------------------
ReplyToUser
{
	if "名前" _in_ reference[1] && "覚えて" _in_ reference[1]
	{
		//---- ユーザー名入力開始
		"\0\s[0]いいよ、なんていう名前なの、%username？\e"
		teachusername = 1
	}
	else
	{
		//---- ユーザー名入力開始以外
		if teachusername == 1
		{
			//---- 直前が「名前覚えて」だったので名前を覚える
			username = reference[1]
			"\0\s[0]%username、ね。わかりました。\e"
			teachusername = 0
		}
		else
		{
			//---- 名前覚え以外のさまざまな会話への返事
			TalkToUser
		}
	}
}

//---- ユーザーへの返事（名前覚え以外） -------------------------------------------------
TalkToUser
{
}

//---- ゴーストからの話しかけ -----------------------------------------------------------
ReplyToGhost
{
}

//---- 大根 -----------------------------------------------------------
JPRadish_紹介_Emily
{
	"\u\s[10]\h\s[7]…\w5…\w5ちょっと変わった人\w5…\w5…\w5ねぇ。\w9\w9\u\s[12]端的に言い当ててるわね。\w9\n天使なのに妙な研究所建ててみたり、\w5悪魔とっつかまえて助手にしてみたり。\w9\w9\h\s[65]\n\n言い返せない\w5…\w5…\w9\w9\u\n\n\s[19]まぁ、\w5それが悪いなんて誰も言ってないんだし、\w5天使にも一人や二人変わり者がいてもいいわよ。\w9\w9\h\s[8]\n\nうーん、\w5ほめられてる\w5…\w5…\w5のかな？"
	
	res_reference[0] = reference[0]
	res_reference[1] = 'JPRadish'
	res_reference[2] = '紹介の返信'
}

JPRadish_初めまして
{
	"\u\s[10]\h\s[5]はじめまして。\w9\nデバッグ担当です。\w9\w9\u\s[12]はじめまして。\w5エンバグ担当です。\w9\w9\h\s[8]\n\n…\w5…\w5そうだったっけ？\w9\w9\u\n\nこういうのをマッチポンプっていうのよね。\w9\w9\h\s[4]\n\nなんかちがう気がする\w5…\w5…。"
	
	res_reference[0] = reference[0]
	res_reference[1] = 'JPRadish'
	res_reference[2] = '初めましての返信'
}

JPRadish_売り文句
{
	if '蚊取り線香' == reference[4] {
		if 'エンバグ' _in_ reference[1] {
			"\u\s[10]\h\s[4]…\w5…\w5蚊取り線香なんかなくても、\w5自分でデバッグしますから\w5…\w5…\w9\w9\u\s[12]実はちょっと欲しいと思ってたりするでしょ。\w9\w9\h\s[7]\n\nいりません！！"
			
			res_reference[0] = reference[0]
			res_reference[1] = 'JPRadish'
			res_reference[2] = '購入拒否'
			res_reference[3] = reference[4]
			res_reference[4] = '不要'
		}
	}
}