///////// コミュニケート辞書－大根
// れっつすぱげち～！ orz
// 注意：価格・数値等は全角で渡る可能性がある

//-----店コール----------------------------------------------------------
JPRadish_売り文句
{
	_ref = TOINT(E.ConvertToNum(_argv[1]))
	
	if ISFUNC("JPRadish_Shop_%(_argv[0])") {
		_scr = EVAL("JPRadish_Shop_%(_argv[0])(%(_ref))")
		if STRLEN(_scr) {
			_scr
			return
		}
	}
	
	JPRadish_Shop_None(_argv)
}

JPRadish_売却
{
	_ref = TOINT(E.ConvertToNum(_argv[1]))
	
	if ISFUNC("JPRadish_Buy_%(_argv[0])") {
		_scr = EVAL("JPRadish_Buy_%(_argv[0])(%(_ref))")
		if STRLEN(_scr) {
			_scr
			return
		}
	}
}

//****反応*******************************************************

JPRadish_Shop_None
{
	"\u\s[10]\h\s[8]ごめん、\w5%(_argv[0])は今はいらない。\w9\w9\uまたいつかお願いするね。\e"
	
	MakeJPRadishReply('購入拒否',_argv[0],'不要')
}

JPRadish_Shop_蚊取り線香
{
	if 'エンバグ' _in_ reference[1] {
		"\u\s[10]\p2\s[200]\h\s[27]ふーん、\w5エンバグしにくくなるんだね。\w9\n\_a[GHOST_所長たん]所長さん\_aにもすすめてみないと。\w9\w9\p2\s[204]…\w5…\w5どんな蚊取り線香だよ、\w5それ。\w9\w9\u\s[10]まあ、\w5とりあえず%(charname(0))はいらないね。\w9\w9\h\s[8]\n\nごめんね～。"
		
		MakeJPRadishReply('購入拒否',_argv[0],'不要')
	}
}

JPRadish_Shop_健胃薬
{
	_num = EMGoodsQueryNum('健胃薬')
	if _num > 10 {
		"\u\s[10]\h\s[8]ごめんなさい、\w5今は十分持ってるからいらないんだよ。\w9\w9\uまぁ、\w5%(_num)個もあればね。\e"
		
		MakeJPRadishReply('購入拒否','健胃薬','在庫過多')
	}
	else {
		_money = _argv[0]
		
		"\u\s[10]\h\s[5]わは～い。\w5健胃薬だ～。\w9\nこれでおいもさん食べ放題！\w9\w9\u\s[11]…\w5…\w5体重、\w5増えるね。\w9\w9\h\s[4]\n\nぇぅ。\w9\w9\n…\w5…\w5\s[0]あ、\w5じゃあ、\w5%(_money)円で買うよ。\w9\w9\u\n\n\s[11]…\w5…\w5今月の小遣い。\w9\w9\h\s[4]\n\nぇぅ。\e"
		MakeJPRadishReply('売り文句の返信','健胃薬',_money)
	}
}

JPRadish_Buy_健胃薬
{
	_money = TOINT(_argv[0])
	
	"\u\s[10]\h\s[5]それじゃあ、\w5%(_money)円でくださいな♪\w9\w9\u\s[11]全く、\w5むだづかいして\w5…\w5…\e"
	
	MakeJPRadishReply('売却の返信','健胃薬',_money)
	EMGoodsAdd('健胃薬',1)
	
	money_used += _money
}

//****一般反応*******************************************************

JPRadish_ボケ一般
{
	_fname = "JPRadish_ボケ一般_%(_argv[0])"
	if ISFUNC(_fname) {
		EVAL(_fname)
		return
	}
	
	"\u\s[11]\h\s[4]何それ～～～～。\w9\w9\u…\w5…\w5…\w5…。\e"
	
	"\u\s[10]\h\s[7]何でやねん！！！！\w9\w9\n…\w5…\w5\s[5]って、\w5こういう時は言うといいんだって。\w9\w9\u\s[11]いつから関西弁を喋るようになったの。\e"
	
	//MakeJPRadishReply('ツッコミ一般')
}

XJPR_UnyuHaku_Words1
{
	'やきいもオークション'
	'木偶の坊の骨格標本展示'
}

XJPR_UnyuHaku_Words2
{
	'せりことSERIONとあかねのマスターさんのロボット展示'
	'金箔を貼られた鯱丸の公開'
	'奎子さんの三白眼が映る万華鏡'
}

JPRadish_ボケ一般_愛うにゅう博
{
	"\p2\s[200]\u\s[10]\h\s[27]え～と、\w5ボクが聞いた限りでは、\w5%(XJPR_UnyuHaku_Words1)も見ものらしいよ。\w9\w9\p2\s[205]あと、\w5%(XJPR_UnyuHaku_Words2)もあるらしいね。\w9\w9\u\s[11]…\w5…\w5いつ聞いたのそんな謎情報。"
	
	//ミスで永久にPing-Pongにならないように「の返信」とつけておく
	MakeJPRadishReply('ボケ一般','愛うにゅう博の返信')
}

JPRadish_ボケ一般_デュラハンの首サッカー
{
	"\u\s[10]\h\s[5]まだまだ～。\w9\n\_a[GHOST_所長たん]所長さん\_aはあの小脇に抱えてるパソコンみたいな何かをバットにして野球するらしいよ。\w9\w9\u\s[11]…\w5…\w5絶対にしないから。\w9\w9\h\s[27]\n\nうーん、\w5でも減点棒もバットになりそうだよね。\w9\w9\u\n\nだから。"
	
	MakeJPRadishReply('ボケ一般','所長たんの野球')
}

//======================================================================================
JPRadish_初めまして_ヒュール
{
	"\h\s[5]やっほ～。\w5はじめまして～。\w9\w9\n…\w5…\w5\s[27]確か薬屋さんのおねえちゃんだよね。\w9\w9\u\s[11]…\w5…\w5いや、\w5間違いじゃないけど\w5…\w5…\w9\n\s[10]\_a[GHOST_所長たん]所長さん\_aに聞いた話だと、\w5魔術を使う人みたいだね。\w9\w9\h\s[5]\n\nあ、\w5そうなんだ。\w9\n仲間仲間♪\w9\w9\u\s[11]\n\n…\w5…\w5全然スキルのレベルが違うから。\w9\w9\h\s[4]\n\nぇぅ。\e"
	
	MakeJPRadishReply('初めましての返信')
}

JPRadish_初めまして
{
	"\h\s[5]やっほ～。\w5はじめまして～。\w9\w9\u始めまして。\e"
	
	MakeJPRadishReply('初めましての返信')
}

//======================================================================================
JPRadish_挨拶
{
	SHIORI3FW.SetDelayEvent('OnGreetingFromOtherGhost',1,reference)
}

OnGreetingFromOtherGhost
{
	_type = -1
	if 'おはよ' _in_ reference[1] {
		_type = 0
	}
	elseif RE_SEARCH(reference[1],'こんにち[はわ]') {
		_type = 1
	}
	elseif RE_SEARCH(reference[1],'(こんばん[はわ]|ばわ[ー～])') {
		_type = 2
	}
	elseif RE_SEARCH(reference[1],'やっ?ほ[ー～]') {
		_type = 3
	}
	elseif RE_SEARCH(reference[1],'ど[ー～う]も[ー～]') {
		_type = 4
	}
	
	if _type >= 0 { //あいさつだった
		if SHIORI3FW.LastSurface[0] == 40 { //こげてる
			if SHIORI3FW.LastSurface[1] == 14 { //やっぱりこげてる
				"\u\s[14]\h\s[40]…\w5…\w5…\w5…\w5…ごほん。\w9\w9\uご、\w5ごほごほ。\w9\w9\h\n\nけふけふ、\w5えぅ～、\w5ごほごほ。\w9\w9\u\n\n…\w5…\w5い、\w5以上、\w5あいさつのつもりでした、\w5ごほっ。\e"
			}
			else {
				"\u\s[10]\h\s[40]…\w5…\w5…\w5…\w5…。\w9\w9\u\s[11]『只今こんがり焼きあがり中のため、\w5あいさつしているつもりなボクの心だけで許してね』\w5とのことです。\w9\w9\h\n\nけふんけふん。\w5ぇぅ～。"
			}
		}
		else {
			_name = E.AddKeisyou(reference[0],'さん')
			
			switch _type {
				"\u\s[10]\h\s[5]おはよ～、\w5%(_name)。\w9\w9\uおはようございます。\e"
				
				"\u\s[10]\h\s[5]こんにちは、\w5%(_name)。\w9\w9\uこんにちは。\e"
				
				"\u\s[10]\h\s[5]こんばんは、\w5%(_name)。\w9\w9\uこんばんは。\e"
				
				"\u\s[10]\h\s[5]やっほー、\w5%(_name)。\w9\w9\u%(GetGreeting)。\e"
				
				"\u\s[10]\h\s[5]%(GetGreeting)、\w5%(_name)。\w9\w9\u%(GetGreeting)。\e"
			}
		}
	}
	
	//MakeJPRadishReply('挨拶の返信')
}

//======================================================================================
JPRadish_広い場所が欲しい
{
	if displaysize[1] >= 768 {
		"\u\s[10]\h\s[27]そんなに狭くはないと思うけど、\w5ここは。\w9\w9\u\_a[GHOST_所長たん]所長さん\_aの持っているのだと、\w5高さが低すぎているむさんが頭打っちゃうらしいよ。\w9\w9\h\s[4]\n\nうわー。\w5それは\w5…\w5…\w9\w9\u\n\nまぁ、\w5それに比べれば広いよね。\e"
		
		MakeJPRadishReply('この程度でかまわない')
	}
	else {
		if displaysize[0] >= 1024 {
			"\u\s[10]\h\s[2]わわっ、\w5言われて見てみたら、\w5すごく横長だっ。\w9\w9\u\s[11]これは\w5…\w5…\w9\w9\h\s[5]\n\n\_a[GHOST_所長たん]しょちょたん\_aといっしょだねっ。\w9\w9\u\n\nあれはただのパソコンじゃないから。\e"
		}
		else {
			"\u\s[10]\h\s[4]せ、\w5せまいね確かに。\w9\w9\u僕達はまだ大丈夫だけど、\w5苦労する人はいっぱいいそうだね。\w9\w9\h\n\n%(username)～、\w5もっと広いの買おうよ～。\w9\w9\u\s[11]\n\n…\w5…\w5簡単に広くできるようならもうしてるって。\e"
		}
	}
}

//======================================================================================
JPRadish_蝙蝠羽の魔術師姉は萌えるか_ヒュール
{
	"\u\s[10]\h\s[5]あの蝙蝠羽ぺたぺたしてみたい～。\w9\w9\u\s[11]…\w5…\w5%(charname(0))が耳の中ふにふにされるのと一緒のような気がするんだけど。\w9\w9\h\s[4]\n\nううっ、\w5じゃあやめておいたほうがいいかも。\w9\w9\u\n\n\s[10]そのあたり、\w5どうなんだろうね。\e"
	
	MakeJPRadishReply('蝙蝠羽ぺたぺた')
}

JPRadish_羽から顔への連携でヒット_ヒュール
{
	"\p2\s[200]\h\s[4]\u\s[10]%(charname(0))の場合は耳から胸、\w5リボンへの連鎖で5万点だね。\w9\w9\h\s[4]な、\w5なにが～～～。\w9\w9\p2\s[205]イモ、\w5イモ、\w5イモで10万点かもしれないね。\w9\w9\h\s[5]\n\nうん！\w5それは正解だよっ。\w9\w9\p2\s[204]\u\s[11]\_s[1,2]\n\n…\w5…\w5…\w5…\w5…。\_s"
}

//======================================================================================
JPRadish_私って性格暗いですか
{
	"\u\s[10]\p2\s[200]\h\s[27]どうかなぁ。\w9\w9\u別にそんなに暗いように思わないけどね。\w9\w9\p2\s[205]とりあえず、\w5姉貴みたいにいつもばたばたしてるよりはいいよね、\w5少なくとも。\w9\w9\h\s[9]\n\nえ・\w5み・\w5り・\w5お～～～！！！"
	
	MakeJPRadishReply('私って性格暗いですかの返信良')
}

JPRadish_それはお世辞ですか_ヒュール
{
	"\u\s[10]\h\s[3]う～ん、\w5お世辞のつもりじゃないんだけどね。\w9\n\s[5]ほら、\w5何かすごく得意なことがあって、\w5それで商売までできる人ってかっこいいし。\w9\w9\u…\w5…\w5%(charname(0))はやきいもやさんでもはじめる？\w9\w9\h\s[4]\n\n全部ボクが食べたくなっちゃうから駄目だと思う。\w9\w9\u\s[11]\n\n…\w5…\w5…\w5…\w5…。"
}

//======================================================================================
JPRadish_温泉饅頭を売りつける
{
	"\u\s[10]\h\s[5]ほしいほしい！\w9\nいくらいくら～～～？？？\w9\w9\u\s[11]…\w5…\w5本気？\e"
	
	MakeJPRadishReply('温泉饅頭欲しい')
}

JPRadish_温泉饅頭を求められて怒る
{
	"\u\s[10]\h\s[8]あ、\w5あはは\w5…\w5…\w9\n冗談だよ冗談。\w9\w9\u\s[11]…\w5…\w5本当に冗談だったのか怪しいところだけど。"
}

//======================================================================================
//JPRadish_聖職者への憎しみと罪_ヒュール
//エミリがこれに答えるのは重すぎるのでとりあえず反応なし

//======================================================================================
JPRadish_魔術で家事_ヒュール
{
	"\p2\s[200]\u\s[10]\h\s[27]ざ\w5…\w5…\w5ざんりゅうまりょく？\w9\w9\uきっと%(charname(0))が魔法で料理したら、\w5食べてもらう人の口の中で爆発が起きるとかそんなところじゃない？\w9\w9\h\s[3]\n\n…\w5…\w5むぅ。\w9\w9\p2\s[218]もっとも、\w5なにもしなくても姉貴の料理は口の中が壊れそうになることも多いけどね。\w9\w9\h\s[9]\n\nな、\w5なんだと～～～。"
}

//======================================================================================
JPRadish_呼び出し完了_ヒュール
{
	"\h\s[0]\u\s[12]そんなクスリで僕がクマーっ！！\w9\w9\n…\w5…\w5\s[10]なんて言ってみたりして。\w9\w9\h\s[8]て、\w5テディ？\w9\w9\u\n\nまあ、\w5残念ながらランジェリーでもテディベアでもないね。\w9\w9\h\s[5]\n\nでも、\w5ぎゅ～ってすると人形みたいにかわいいんだよ～。\w9\w9\u\s[11]\n\n…\w5…\w5こないだそれで窒息しそうになったんだけど。\w9\w9\h\s[3]\n\nううっ、\w5気をつけるね。"
}

//======================================================================================
JPRadish_紹介_典子
{
	"\u\s[10]\p2\s[200]\h\s[5]デフォルトさまで～す。\w9\nえっへん。\w9\w9\p2\s[204]ね、\w5ねえちゃん\w5…\w5…\w9\w9\uあー、\w5実は、\w5SSPナビゲータのふりして、\w5SSPのユーザさんの深層心理に働きかけてさつまいも好きにさせようという陰謀の担い手なんだよ。\w9\w9\h\s[2]\n\nな、\w5な、\w5なんだって─────！！\w9\w9\u\n\n…\w5…\w5嘘。\w9\w9\p2\n\n%(charname(1))がヘンだ\w5…\w5…"
	
	MakeJPRadishReply('紹介の返信')
}

