#━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
##メインメニュー
TalkDoubleClick_0 : $(
	if $(size Mode)
			$(entry TalkDoubleClick_0${Mode})
		else 	$(setstr Mode B ; entry TalkDoubleClick_0B)
)

GetVersion : $(
	if ${CrowVer}
		$(■)"CROW version"\_l[90,88]": "${CrowVer}\n
	else if ${SspVer}
		$(■)"SSP version"\_l[90,88]": "${SspVer}\n
	else if ${MateVer}
		$(■)"MATERIA version : period "${MateVer}\n
	else 	$(NULL)
)

##核子-------------------------

TalkDoubleClick_0A : (
	\t${TalkmenustartA}
	\0\n\n[half]
	$(■)\q[Talk,starttalk]\n
	$(■)\q[Talk frequency,talk_pitchA]\n
	$(■)\q[Partner change,Changemem]\n
	$(■)\q[Options","options]\n
	\_q
	\_l[0,88]${GetVersion}
	\_l[0,102]$(■)"TOXIC version : "\_l[96,102]heathen-${Get.version}
	\_l[0,116]□\q[Close,closeA]\_q
)

TalkmenustartA : \0\s[9]Menuー。\w8\1\s[504]‥‥‥‥\w4shameless。
TalkmenustartA : \0\s[6]Menuー。\w8\1\s[510]Get goingー。
TalkmenustartA : \0\s[5]Customer、\w4is there a good girl？\w8\1\s[505]Will you stop。

##毒子-------------------------

TalkDoubleClick_0B : (
	\t${TalkmenustartB}
	\0\n\n[half]
	\_l[0,18]$(■)\q[Talk,starttalk]　　　\_l[96,18]$(■)\q[Talking frequency,talk_pitchB]
	\_l[0,32]$(■)\q[User information,users]　\_l[96,32]$(■)\q[Partner change,Changemem]
	\_l[0,46]$(■)\q[Why is it ugly,nazenaniB]
	\_l[0,60]$(■)\q[Options","options]
	\_q
	\_l[0,88]${GetVersion}
	\_l[0,102]$(■)"TOXIC version : "\_l[96,102]heathen-${Get.version}
	\_l[0,116]□\q[Close,closeB]\_q
)

TalkmenustartB : \0\s[0]Newー、\w4that's a new eye。\1\s[10]Completely \w4different。
TalkmenustartB : \0\s[1]We have a variety of courses available\_u[0x2764]\1\s[10]‥‥‥‥
TalkmenustartB : \0\s[27]What a gimmick to have to tap the menu every time to open it！\1\s[10]I don't know what to sayー。

##薬子-------------------------

TalkDoubleClick_0C : (
	\t${TalkmenustartC}
	\0\n\n[half]
	$(■)\q[Talk,starttalk]\n
	$(■)\q[Talk frequency,talk_pitchC]\n
	$(■)\q[Partner change,Changemem]\n
	$(■)\q[Options","options]\n
	\_q
	\_l[0,88]${GetVersion}
	\_l[0,102]$(■)"TOXIC version : "\_l[96,102]heathen-${Get.version}
	\_l[0,116]□\q[Close,closeC]\_q
)

TalkmenustartC : \0\s[1]Female breasts\_u[0x2764]\w8\1$(sf 800)There's no need to force it。
TalkmenustartC : \0\s[2]Menu────────！！！\w8\1$(sf 803)Oh my、\w4your eyes are bulging out。
TalkmenustartC : \0\s[666]Here goes。\w8\1$(sf 806)What is that\w4。


##風呂 bath-------------------------

TalkDoubleClick_0F : (
	\t\0\b[4]$(? "\s[80]Okayー。" "\s[82]Come inー。")
	\n\n[half]
	$(■)\q[Talk,starttalk]\n
	$(■)\q[Talk frequency,talk_pitchF]\n
	$(■)\q[Get out of the bath,Changemem]\n
	\n[half]
	$(■)\q[Options","options]\n
	□\q[Close,closeF]
)


#━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
##オプション

sel_options : (
	\t\0
	$(■)Beginner mode （Ｂ）　\q[ON","beginner_on${Mode}]／\q[OFF","beginner_off${Mode}]\n
	$(■)Network update check （Ｎ）　\q[ON","checkud_on${Mode}]／\q[OFF","checkud_off${Mode}]\n
	$(■)Reaction to seeing （Ｖ）　\q[ON","mikire_on${Mode}]／\q[OFF","mikire_off${Mode}]\n
	\n
	□\q[Close,close${Mode}]\e
)

#

##初心者モード
sel_beginner_onA,sel_beginner_onB,sel_beginner_onC : (
	$(setstr BeginnerMode on)
	\0\s[21]初心者モードをオンにするよ。
	$(BLN honue_05 "ほな、\w4よろしゅうなー。")\e
)
sel_beginner_onF : (
	$(setstr BeginnerMode on)
	\0\s[80]\b[4]初心者モードをオンにするよー。
	$(BLN honue_05 "ほな、\w4よろしゅうなー。")\e
)

sel_beginner_offA,sel_beginner_offB,sel_beginner_offC : (
	$(setstr BeginnerMode off)
	\0\s[0]初心者モードをオフにするよ。
	$(BLN honue_03 "ほな、\w4またね‥‥‥‥")\e
)
sel_beginner_offF : (
	$(setstr BeginnerMode off)
	\0\s[80]\b[4]初心者モードをオフにするよー。
	$(BLN honue_03 "ほな、\w4またね‥‥‥‥")\e
)

##ネットワーク更新チェッカ
sel_checkud_onA,sel_checkud_onB,sel_checkud_onC : (
	$(setstr UDchecker on)
	\0\s[0]ん。\w4だいたい30分おきにほぬえちゃんが調べてくれるよ。\w8\n
	更新があったら教えてくれるってさ。
	$(BLN honue_09 まかしときー。)\e
)
sel_checkud_onF : (
	$(setstr UDchecker on)
	\0\s[80]\b[4]ん。\w4だいたい30分おきにほぬえちゃんが調べてくれるよ。\w8\n
	更新があったら教えてくれるってさ。
	$(BLN honue_09 まかしときー。)\e
)

sel_checkud_offA,sel_checkud_offB,sel_checkud_offC : (
	$(setstr UDchecker off)
	\0\s[21]自動更新チェックはナシね。
	$(BLN honue_00 ほな、\w4更新ボタンも出しっぱやね。)\e
)
sel_checkud_offF : (
	$(setstr UDchecker off)
	\0\s[92]\b[4]自動更新チェックはナシね。
	$(BLN honue_00 ほな、\w4更新ボタンも出しっぱやね。)\e
)

##見きれ反応
sel_mikire_onA,sel_mikire_onB,sel_mikire_onC : (
	$(setstr sw_mikire on)
	\0\s[0]ん。\w4見切れ反応オンね。\e
)
sel_mikire_onF : (
	$(setstr sw_mikire on)
	\0\s[80]\b[4]ん。\w4見切れ反応オンね。\e
)
sel_mikire_offA,sel_mikire_offB,sel_mikire_offC : (
	$(setstr sw_mikire off)
	\0\s[5]おけー。\w4見切れ反応カットオフ♪\e
)
sel_mikire_offF : (
	$(setstr sw_mikire off)
	\0\s[92]\b[4]ん。\w4見切れ反応オフね。\e
)


#━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
##しゃべりを見る

sel_starttalk : $(entry sentence${Mode})

MenuClickTalkings : $(entry sentence${Mode})

#━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
##しゃべり間隔

sel_talk_pitchA : (
	\t
	\1\s[520]\i[1]\w2\i[2]\w2\s[512]Come on！\w4
	\0\s[0]Let's go。\n\n[half]
	■\q[upper,fastA]\n
	■\q[middle,middleA]\n
	■\q[lower,lowA]\n
	■\q[edge,dumbA]\n
	\n[half]
	□\q[close,closeA]
	\e
)

sel_talk_pitchB : (
	\t
	\0\s[0]A sense of fashion？
	\1\s[10]A sense of talking。
	\0\n\n[half]
	■\q[Blast,fastB]\n
	■\q[Midtempo,middleB]\n
	■\q[Doomy,lowB]\n
	■\q[or die,dumbB]\n
	\n[half]
	□\q[close,closeB]
	\e
)

sel_talk_pitchC : (
	\t
	\0\s[0]Speech frequencyー。\w8
	\1$(sf 800)Choose from three levelsー。
	\0\n\n[half]
	■\q[FAST,fastC]\n
	■\q[MIDDLE,middleC]\n
	■\q[LOW,lowC]\n
	■\q[No talking,dumbC]\n
	\n[half]
	□\q[close,closeC]
	\e
)

sel_talk_pitchF : (
	\t
	\0\s[92]\b[4]I'm feeling goodー。
	\n\n[half]
	■\q[Hot water,fastF]\n
	■\q[Good temperature,middleF]\n
	■\q[Lukewarm water,lowF]\n
	■\q[Cold bath,dumbF]\n
	\n[half]
	□\q[close,closeF]
	\e
)

##喋り−速い
sel_fastA : (
	$(
	setstr talkcount 0;
	setstr speed high;
	setstr talkswitch on;
	entry speedset_high
	)
	\0\s[5]なかなかイイ感じだね。\e
)

sel_fastB : (
	$(
	setstr talkcount 0;
	setstr speed high;
	setstr talkswitch on;
	entry speedset_high
	)
	\1\s[19]\0\s[25]ハイにいくぜヘイヘイ♪\w8
	\1ハイホーハイホー。\e
)

sel_fastC : (
	$(
	setstr talkcount 0;
	setstr speed high;
	setstr talkswitch on;
	entry speedset_high
	)
	\0\s[8]オイオイそんなに生き急いでどうするよ！？\w8
	\1$(sf 800)若いわよね。\e
)

sel_fastF : (
	$(
	setstr talkcount 0;
	setstr speed high;
	setstr talkswitch on;
	entry speedset_high
	)
	\0\s[87]\b[4]ゆでダコー！！！\w8
	\1\s[534]\b[4]こりゃたまらんわい。\e
)

sel_fastX : (
	$(
	setstr talkcount 0;
	setstr speed high;
	setstr talkswitch on;
	entry speedset_high
	)
	\0\s[3003]おけー。\w4マッハね。\e
)

##喋り−普通
sel_middleA : (
	$(
	setstr talkcount 0;
	setstr speed mid;
	setstr talkswitch on;
	entry speedset_mid
	)
	\0\s[21]なんともカップラーメン的だね。\w8
	\1\s[509]腹へったのう。\e
)

sel_middleB : (
	$(
	setstr talkcount 0;
	setstr speed mid;
	setstr talkswitch on;
	entry speedset_mid
	)
	\0\s[60]まったり系なのかな。\w8
	\1\s[14]マターリ。\e
)

sel_middleC : (
	$(
	setstr talkcount 0;
	setstr speed mid;
	setstr talkswitch on;
	entry speedset_mid
	)
	\0\s[5]マイペース、\w4マイペース。\w8
	\1$(sf 812)まったり。\e
)

sel_middleF : (
	$(
	setstr talkcount 0;
	setstr speed mid;
	setstr talkswitch on;
	entry speedset_mid
	)
	\0\s[83]\b[4]のんびりとね。\w8
	\1\s[537]\b[4]風呂はこうでなくてはな。\e
)

sel_middleX : (
	$(
	setstr talkcount 0;
	setstr speed mid;
	setstr talkswitch on;
	entry speedset_mid
	)
	\0\s[3003]へい！\w4並一丁！\e
)

##喋り−遅い
sel_lowA : (
	$(
	setstr talkcount 0;
	setstr speed low;
	setstr talkswitch on;
	entry speedset_low
	)
	\0\s[0]ま、\w4ポツポツとね。\w8
	\1\s[500]ちょっと暇じゃのう。\e
)

sel_lowB : (
	$(
	setstr talkcount 0;
	setstr speed low;
	setstr talkswitch on;
	entry speedset_low
	)
	\0\s[26]微妙にダルいねぇ。\w8
	\1\s[10]まぁええんちゃうか。\e
)

sel_lowC : (
	$(
	setstr talkcount 0;
	setstr speed low;
	setstr talkswitch on;
	entry speedset_low
	)
	\0\s[6]‥‥‥‥‥‥\w4だる。\w8
	\1$(sf 800)私はこれくらいで良いのだけど。\e
)

sel_lowF : (
	$(
	setstr talkcount 0;
	setstr speed low;
	setstr talkswitch on;
	entry speedset_low
	)
	\0\s[82]\b[4]ちょっとぬるくないスか？\w8
	\1\s[536]\b[4]冷えそうじゃ。\e
)

sel_lowX : (
	$(
	setstr talkcount 0;
	setstr speed low;
	setstr talkswitch on;
	entry speedset_low
	)
	\0\s[3001]そうそう、\w4早いと嫌われちゃうヨ？\e
)

##喋らない
sel_dumbA : (
	$(setstr talkswitch off ; setstr speed dumb)
	\0\s[60]‥‥‥‥‥\w4寝るか。\w8
	\1\s[507]うむ。
	\0\s[6]\e
),(
	$(setstr talkswitch off ; setstr speed dumb)
	\0\s[70]$(Zoomin 沈黙！)
	\1\s[507]やかましい。\e
)

sel_dumbB : (
	$(setstr talkswitch off ; setstr speed dumb)
	\0\s[70]スピークイングリッシュオアダイ！？\w8
	\1\s[10]つまり、死ねと？\e
)

sel_dumbC : (
	$(setstr talkswitch off ; setstr speed dumb)
	\0\s[3]えー、\w4つまんないなあ‥‥‥\w8
	\1$(sf 800)まぁ、\w4静かでいいわよね。\e
),(
	$(setstr talkswitch off ; setstr speed dumb)
	\0\s[70]くは、\w4つまんね。\w8
	\1$(sf 812)こういうのもいいんじゃないかしら。\e
)

sel_dumbF : (
	$(setstr talkswitch off ; setstr speed dumb)
	\0\s[86]\b[4]さむー。\w8
	\1\s[530]\b[4]殺す気か。\e
)

sel_dumbX : (
	$(setstr talkswitch off ; setstr speed dumb)
	\0\s[3004]‥\w4帰るか。\w8
	\1\s[3101]そういう訳にもいかないでしょ。\e
)

#━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
##ユーザーまわり

sel_users : (
	\t\0\s[0]A section for fabricating profilesー。\w8
	\1\s[10]That's not good。
	\0\n\n
	$(■)\q[Enter username,InputnameB]\n
	$(■)\q[Enter date of birth,InputBdayB]\n
	$(■)\q[View Information,BrowseB]\n
	${プレゼント表示}
	\n\n[half]
	$(■)\q[Close,closeB]
	\e
)

#ユーザー名入力へ。
sel_InputnameB : \t$(entry NameEntry)\e

#誕生日入力へ。
sel_InputBdayB : \t$(entry BirthdayEntry)\e

#ユーザー情報を見る。

sel_BrowseB : \t(
	$(BLN clear)
	\0\s[0]自己啓発のコーナー。\w8
	\1\s[15]己を見つめなおすが宜しかろう。
	\0\n\n[half]
	$(■)ユーザー名 ： ${username}\n
	$(■)誕生日	： ${BirthMonth}月${BirthDay}日\n
	$(■)星座	： ${holoscope}\n
	$(■)称号	： ${usertitle}\n
	\n[half]
	$(■)\q[Close,closeB]
	\e
)

プレゼント表示 : $(
	if $[${BusukoPresentXX} == $(NULL)]
		$(NULL)
	else 	$(■)\q[プレゼント一覧,View_presents]\n
)

sel_View_presents : (
	$(callsaori bln clear)
	\t\0\b[2]$(? "\s[0]" "\s[21]")戦利品いちらんっ！
	\n\n[half]
	$(foreach @present BusukoPresentXX $(
		pushstr @list $(■)\q[${@present},item.${@present}B]\n;
		);
	get @list;
	)
	\n[half]
	$(■)\q[CLOSE,itemClose]\e
)

sel_item.毒子のパンツB : (
	$(callsaori bln item_00 "毒子のパンツ\n\n毒子愛用の一品。シルク製らしい。\n穴あき、シミ付きの使用済。")\_w[1000]
	\0\s[9]大事にしてね\_u[0x2764]\w8
	\1\s[10]してたまるか。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.毒子のギターB : \t(
	$(callsaori bln item_01 "毒子のギター\n\nギブソンSG・トニーアイオミモデル。\nブラックボディが美しい一品。")\_w[1000]
	\0\s[5]これはイイ物だ。\w8うん。\w8
	\1\s[19]今日からキミもロックスター。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.骨B : \t(
	$(callsaori bln item_02 "骨\n\nいいダシ出てるぜ。")\_w[1000]
	\0\s[8]犬にあげたら喜ぶかもね。\w8
	\1\s[11]犬ごときに与えんなや！
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.注射器B : \t(
	$(callsaori bln item_03 "注射器\n\n不法投棄は禁止されています。")\_w[1000]
	\0\s[70]‥‥‥‥\w8これも使用済み！？\w8
	\1\s[14]ヤバさ満点やな。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.アフロかつらB : \t(
	$(callsaori bln item_04 "アフロかつら\n\nソウルフルに、そしてファンキーに。")\_w[1000]
	\1\s[13]\cフィー☆\w4バー！！！\w8
	\0\s[5]ディスコ！\w4スーパーノヴァ！！
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.レイヴンの羽根B : \t(
	$(callsaori bln item_05 "レイヴンの羽根\n\n絶滅寸前につき貴重品。")\_w[1000]
	\0\s[8]\cいやあ、\w4なかなか手に入れるの苦労したさ。\w8
	\1\s[14]‥‥‥‥\w4鬼畜め。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.DX超合金・任意28号B : \t(
	$(callsaori bln item_06 "DX超合金・任意28号\n\n各関節がリアルに動くぞ！\nにゅう太郎君フィギュア付き。")\_w[1000]
	\0\s[0]\cやっぱクリスマスプレゼントといえば超合金だよね。\w8
	\1\s[10]\c最近はテレビゲームやけどな。\w8
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.DX超合金・ブラック任意OXB : \t(
	$(callsaori bln item_07 "DX超合金・ブラック任意OX\n\n生産数が少なかったため、今や幻のアイテム。\nマニア垂涎の一品。")\_w[1000]
	\0\s[21]\cレア過ぎる。\w8
	\1\s[10]\cレア過ぎて誰も知らん。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.マタンゴB : \t(
	$(callsaori bln item_08 "マタンゴ\n\nキノコパワー全開。\n薬子が栽培したらしい。")\_w[1000]
	\0\s[4]\c‥‥‥‥‥‥‥‥‥\w8
	\1\s[14]\cウニョウニョと動くねんな、\w4コレ‥
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.うにゅう抱きまくらB : \t(
	$(callsaori bln item_09 "うにゅう抱きまくら\n\nむしろ抱かれたい。")\_w[1000]
	\0\s[21]\c‥‥‥‥\w4抱きたいか？\w8
	\1\s[32]\cワシも負けへんでェ！\w8
	\0\n\n余計抱きたくないよ。\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.うにゅう抱きまくらB : \t(
	$(callsaori bln item_09 "うにゅう抱きまくら\n\nもう迷わない、\w4抱いてやる。\n（byシブがき隊）")\_w[1000]
	\0\s[21]\c‥‥‥‥\w4抱きたいか？\w8
	\1\s[32]\cワシも負けへんでェ！\w8
	\0\n\n余計抱きたくないよ。\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.美耳てぶくろB : \t(
	$(callsaori bln item_10 "美耳てぶくろ\n\n肉球つきスペシャルエディション。\n肉球マニア悶絶死。")\_w[1000]
	\1\s[10]\cで、\w4ダミアン様てぶくろは無いんか？
	\0\s[21]\n\nねえよ。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.陽子の制服B : \t(
	$(callsaori bln item_11 "陽子の制服\n\n以前、薬子が陽子から強奪したといういわく付きの品。")\_w[1000]
	\0\s[4]\c‥\w8薬子にも困ったモンだよね。\w8
	\1\s[10]\c欲しいモンは力ずくやからな。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.裏子の包丁B : \t(
	$(callsaori bln item_12 "裏子の包丁\n\nこれを手にした人間は生き血を求めて人を斬らずにいられなくなるという‥")\_w[1000]
	\0\s[5]\cワ〜オこいつは良く斬れるよ${外人名&m}。\w8
	\1\s[15]\c今ならもう一組セットでつけちゃうよ${外人名&f}。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.先輩きぐるみB : \t(
	$(callsaori bln item_13 "先輩きぐるみ\n\nサクサクッとしてキュッと締まる着心地。")\_w[1000]
	\0\s[0]\c‥\w8で、中身はドコ行った？\w8
	\1\s[10]‥\w9さあ。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.あんぱんB : \t(
	$(callsaori bln item_14 "あんぱん\n\n本物の素材を使った究極のあんぱん。\nしかし至高のあんぱんには敵わない。")\_w[1000]
	\0\s[8]愛と勇気だけがトモダチさ。
	\1\s[10]ある意味、\w4寂しいな。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.きつねうどんB : \t(
	$(callsaori bln item_15 "きつねうどん\n\n関西風のダシであっさりとした味わい。")\_w[1000]
	\0\_sうどーん。\_s
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.減点棒B : \t(
	$(callsaori bln item_16 "減点棒\n\n減点２。")\_w[1000]
	\0減点５。
	\1\s[10]減点９。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.ニーソックスB : \t(
	$(callsaori bln item_17 "ニーソックス\n\n乙女の必須アイテム。\n某国では着用義務があるとかないとか。")\_w[1000]
	\0\s[4]\c‥‥‥‥\w4なんてフェチぃアイテムだ。\w8
	\1\s[15]ロ〜マンティック。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.緑の表紙の本B : \t(
	$(callsaori bln item_18 "緑の表紙の本\n\nふんぐるい　むぐるうなふ　くとぅるう　るるいえ　うがふなぐる　ふたぐん。")\_w[1000]
	\0\c魔導書だって。\w8
	\1\s[14]禍禍しいにも程がある。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.銘菓ゆうかもなかB : \t(
	$(callsaori bln item_19 "銘菓ゆうかもなか\n\n賞味期限切れ。\nキモいゆうかもなかを作らないでください。")\_w[1000]
	\0殆どお歳暮のノリだね。\w8
	\1\s[15]\c暮れの元気なご挨拶ですねェ。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)
sel_item.首吊り縄B : \t(
	$(callsaori bln item_20 "首吊り縄\n\nあなたの首にぴったりフィット。")\_w[1000]
	\0\s[65]\![set,alignmentondesktop,top]\c‥‥‥‥‥‥‥‥‥‥\w8
	\1\s[10]どや、\w4使い心地は。\w8
	\0\s[21]\n\n\![set,alignmentondesktop,bottom]いやもう、\w4サイコー。\w8
	\1\s[14]\n\n‥‥‥‥\w4ふーん。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)

#-

sel_item.チロルチョコB : \t(
	$(callsaori bln item_v0 "■チロルチョコ■\n義理チョコの定番。\nもう10円では買えなくなってしまった‥")\_w[1000]
	\1\s[14]‥\w8お約束やね。\w8
	\0\s[8]まぁ何も貰えないよりはマシっしょー？\w8
	\1\n\n‥\w8お前は男心をもっと理解するべきや。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)

sel_item.うんこチョコB : \t(
	$(callsaori bln item_v1 "■毒子の手作りチョコ■\n誰が何と言おうとこれはチョコレートです。")\_w[1000]
	\1\s[10]‥\w8お前、狙ってこーいう形にしたんか？\w8
	\0\s[8]ＨＡＨＡＨＡ！\w4至って大マジメに作りましたが！？\w8
	\1\n\n‥\w8ウソくせえ。
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)

sel_item.心臓チョコB : \t(
	$(callsaori bln item_v2 "■真心たっぷりハートチョコ■\n天然の毒子の心臓を使用して\nチョコレートでコーティングしました。\nナマモノですのでお早めにお召し上がり下さい。")\_w[2000]
	\1\s[10]真心こもりすぎや。\w8
	\0\s[3]私だってまさか自分の心臓を抜かれるとは思ってなかったよー。\w8
	\1\s[14]\n\n‥\w8フツー、\w4死なんか？
	\0\n\n
	$(■)\q[プレゼント一覧,View_presents]\n
	$(■)\q[CLOSE,GoClose]\e
)


CheckBodycount :  $(
	if $[${warningpoint} == "on"]
		$(echo あと一回で完全消滅)
	else 	$(echo ${Buried}回)
)

#━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
##モードチェンジMembers

sel_Changemem : $(
	if $[$(date %m%d) == 1224 || $(date %m%d) == 1225]
		$(entry サンタチェンジ1${Mode})
	else 	$(
		if $[$(date %k) == 22]
			$(entry 風呂時間帯1${Mode})
		else 	$(entry 通常時間帯1${Mode})
		)
)

##---------------------------------------------------

通常時間帯1A : (
	\0\s[5]チェンジだね♪
	\n\n
	$(■)\q[毒子＆ほねゅう,change_bhA]\n
	$(■)\q[毒子＆薬子,change_bcA]\n
	$(■)\q[As is,change_notA]
)

通常時間帯1B : (
	\0\s[8]ハイほねゅうの出番はここまで〜。
	\1\s[11]何ッ！？
	\0\n\n
	$(■)\q[毒子＆薬子,change_bcB]\n
	$(■)\q[毒子＆核子,change_baB]\n
	$(■)\q[As is,change_notB]
)

通常時間帯1C : (
	\0\s[21]ハイ交替っ。\w4
	\1$(sf 801)何ですって！？
	\0\n\n
	$(■)\q[毒子＆ほねゅう,change_bhC]\n
	$(■)\q[毒子＆核子,change_baC]\n
	$(■)\q[As is,change_notC]
)

通常時間帯1F : (
	\0\s[80]\b[4]ん？
	\n\n
	$(■)\q[毒子＆ほねゅう,change_bhF]\n
	$(■)\q[毒子＆薬子,change_bcF]\n
	$(■)\q[風呂から出る,change_baF]\n
	$(■)\q[As is,change_notF]
)

##----------

風呂時間帯1A : (
	\0\s[5]チェンジだね♪
	\n\n
	$(■)\q[毒子＆ほねゅう,change_bhA]\n
	$(■)\q[毒子＆薬子,change_bcA]\n
	$(■)\q[風呂に入る,change_fA]\n
	$(■)\q[As is,change_notA]\e
)

風呂時間帯1B : (
	\0\s[8]ハイほねゅうの出番はここまで〜。
	\1\s[11]何ッ！？
	\0\n\n
	$(■)\q[毒子＆薬子,change_bcB]\n
	$(■)\q[毒子＆核子,change_baB]\n
	$(■)\q[風呂に入る,change_fB]\n
	$(■)\q[As is,change_notB]\e
)

風呂時間帯1C : (
	\0\s[21]ハイ交替っ。\w4
	\1$(sf 801)何ですって！？
	\0\n\n
	$(■)\q[毒子＆ほねゅう,change_bhC]\n
	$(■)\q[毒子＆核子,change_baC]\n
	$(■)\q[風呂に入る,change_fC]\n
	$(■)\q[As is,change_notC]\e
)

風呂時間帯1F : (
	\0\s[80]\b[4]ん？
	\n\n
	$(■)\q[毒子＆ほねゅう,change_bhF]\n
	$(■)\q[毒子＆薬子,change_bcF]\n
	$(■)\q[風呂から出る,change_baF]\n
	$(■)\q[As is,change_notF]\e
)

##----------

サンタチェンジ1A : (
	\0\s[5]チェンジだね♪
	\n\n
	$(■)\q[毒子＆ほねゅう,change_bhA]\n
	$(■)\q[毒子＆薬子,change_bcA]\n
	$(■)\q[クリスマス営業,change_xA]\n
	$(■)\q[As is,change_notA]\e
)

サンタチェンジ1B : (
	\0\s[8]ハイほねゅうの出番はここまで〜。
	\1\s[11]何ッ！？
	\0\n\n
	$(■)\q[毒子＆薬子,change_bcB]\n
	$(■)\q[毒子＆核子,change_baB]\n
	$(■)\q[クリスマス営業,change_xB]\n
	$(■)\q[As is,change_notB]\e
)

サンタチェンジ1C : (
	\0\s[21]ハイ交替っ。\w4
	\1$(sf 801)何ですって！？
	\0\n\n
	$(■)\q[毒子＆ほねゅう,change_bhC]\n
	$(■)\q[毒子＆核子,change_baC]\n
	$(■)\q[クリスマス営業,change_xC]\n
	$(■)\q[As is,change_notC]\e
)

サンタチェンジ1F : (
	\0\s[80]\b[4]ん？
	\n\n
	$(■)\q[毒子＆ほねゅう,change_bhF]\n
	$(■)\q[毒子＆薬子,change_bcF]\n
	$(■)\q[クリスマス営業,change_xF]\n
	$(■)\q[As is,change_notF]\e
)

##---------------------------------------------------

#→Ａモード
sel_change_baB : \t(
	\1\s[11]ぬおッ！？\w4あの赤鬼が来るんかッ！！？\w8
	\0\s[0]そんな恐がるもんでもないじゃん。\w8
	\0\b[-1]\s[-1]\1\b[-1]\s[-1]
	\_w[1000]
	$(entry Changed_A)\e
)

sel_change_baC : \t(
	\0\s[0]核さんがく\w2ー\w2る\w2ー\w2ぞ\w2ー。\w8
	\0\b[-1]\s[-1]\1\b[-1]\s[-1]
	\_w[1000]
	$(entry Changed_A)\e
)

sel_change_baF : \t(
	\0\s[80]\b[4]風呂から出ろだって。\w8
	\1\s[532]\b[4]やれやれ、\w4野暮じゃのう。\w8\w8
	\0\b[-1]\s[-1]\1\b[-1]\s[-1]
	\_w[1000]
	$(entry Changed_A)\e
)

#→Bモード
sel_change_bhA : \t(
	\0\s[21]んでは、\w4骨オトコ召喚。\w8
	\0\b[-1]\s[-1]\1\b[-1]\s[-1]
	\_w[1000]
	$(entry Changed_B)\e
)

sel_change_bhC : \t(
	\0\s[21]ニコチン野郎か。\w6
	\1$(sf 800)肺が真っ黒ね。\w6
	\0\n\n‥‥‥‥つか、\w4肺ないし。\w8
	\0\b[-1]\s[-1]\1\b[-1]\s[-1]
	\_w[1000]
	$(entry Changed_B)\e
)

sel_change_bhF : \t(
	\0\s[80]\b[4]さて、\w4んじゃ風呂から出るか。\w6
	\1\s[530]\b[4]儂はもう少し湯につかっておく。\w8
	\0\s[84]\n\nいーなー。\w8\w8
	\0\b[-1]\s[-1]\1\b[-1]\s[-1]
	\_w[1000]
	$(entry Changed_B)\e
)

#→Ｃモード
sel_change_bcA : \t(
	\0\s[70]げ。\w6核さん替わってよ。\w8
	\1\s[508]阿呆ぬかせ。\w8
	\0\b[-1]\s[-1]\1\b[-1]\s[-1]
	\_w[1000]
	$(setstr changedtime $(MinCalc) ; entry Changed_C)\e
)

sel_change_bcB : \t(
	\0\s[4]マジデスカぁー。\w8
	\1\s[10]ま、\w4仲良うせえや。\w8
	\0\b[-1]\s[-1]\1\b[-1]\s[-1]
	\_w[1000]
	$(setstr changedtime $(MinCalc) ; entry Changed_C)\e
)

sel_change_bcF : \t(
	\1\s[530]\b[4]ほれ、\w4早うせんと薬子にお尻ペンペンされるぞ。\w8
	\0\s[92]\b[4]されねえっての。\w8
	\0\b[-1]\s[-1]\1\b[-1]\s[-1]
	\_w[1000]
	$(setstr changedtime $(MinCalc) ; entry Changed_C)\e
)


#→Ｆモード
sel_change_fA : \t(
	\0\s[5]よーしお待ちかねのお風呂ターイム！\w8
	\1\s[515]奥の奥まで洗っちゃるわいー！\w8
	\0\s[9]\n\nいやーん。
	\0\b[-1]\s[-1]\1\b[-1]\s[-1]
	\_w[1000]
	$(entry Changed_F)\e
)

sel_change_fB : \t(
	\1\s[14]風呂かぁ、\w4ええのう‥‥‥\w8
	\0\s[0]ほねゅうが入るとヘンなダシがとれそうだからダメだよ。\w8
	\1\n\nエラい言われ様やな。
	\0\b[-1]\s[-1]\1\b[-1]\s[-1]
	\_w[1000]
	$(entry Changed_F)\e
)

sel_change_fC : \t(
	\1$(sf 850)あら、お風呂？\w8
	\0\s[0]アンタもどうよ？\w8
	\1\n\n私はシャワーの方がいいから。\w8
	\0\n\nふーん。\w4んじゃね。\w8
	\0\b[-1]\s[-1]\1\b[-1]\s[-1]
	\_w[1000]
	$(entry Changed_F)\e
)

#交替しない
sel_change_notA : \t(
	\0\s[0]ん。\w4交替はナシ？\w8
	\1\s[509]ふむ。\w4ま、よかろう。\e
)

sel_change_notB : \t(
	\1\s[13]い〜い選択だ、\w4ヤングメン。\w8
	\0\s[0]‥‥‥‥\w4そうなのかな。\w8
	\1\n\nオイ。\e
)

sel_change_notC : \t(
	\0\s[2]えェッ！！？\w8
	\1$(sf 801)ちょっと、\w4何よそのリアクションは。\w8
	\0\s[0]\n\n‥‥‥‥\w4いやなんでも。\w8
	\1\n\n‥‥‥‥‥‥‥‥‥‥‥‥
	\e
)

sel_change_notF : \t(
	\0\s[83]\b[4]ん。\w6ごくらくタイム延長っと。\w8
	\1\s[532]\b[4]ええこっちゃ。\w8
	\e
)

#→サンタモード
sel_change_xA : \t(
	\0\s[4]そうか、\w4仕事か‥‥‥‥\w8
	\1\s[509]ダルいのう。
	\0\b[-1]\s[-1]\1\b[-1]\s[-1]
	\_w[1000]
	$(entry Changed_X)\e
)

sel_change_xB : \t(
	\0\s[8]クリスマスに仕事たぁ、\w4血も涙もないね。\w8
	\1\s[10]つらいのう。
	\0\b[-1]\s[-1]\1\b[-1]\s[-1]
	\_w[1000]
	$(entry Changed_X)\e
)

sel_change_xC : \t(
	\0\s[65]\![set,alignmentondesktop,top]めりーくりすまーす。\w8
	\1$(sf 801)もっと楽しそうにしなさいよ。
	\0\![set,alignmentondesktop,bottom]
	\0\b[-1]\s[-1]\1\b[-1]\s[-1]
	\_w[1000]
	$(entry Changed_X)\e
)

sel_change_xF : \t(
	\0\s[80]\b[4]‥\w8どいつもこいつもクリスマスかよ。\w8
	\1\s[532]\b[4]日本の宗教はどうなっちょる。
	\0\b[-1]\s[-1]\1\b[-1]\s[-1]
	\_w[1000]
	$(entry Changed_X)\e
)

#━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
##交代完了

Changed_A : \t(
	$(setstr Mode A)
	\0\s[21]\b[0]\cあらよっ。\w3
	\1\s[500]\b[0]\cほらよっ。\e
)

Changed_B : \t(
	$(setstr Mode B)
	\0\s[20]\b[0]\cおーい山田くん、\w4私の頭が無いよ。\w8
	\1\s[10]\b[0]\cはーい。\w8
	\0\s[0]\n\n‥‥よっと。\e
)

Changed_C : \t(
	$(setstr Mode C ; setstr changedtime $(MinCalc))
	\0\s[0]\b[0]\cはいチェンジっと。\w8
	\1$(sf 850)\b[0]\c出番ね。\e
)

Changed_F : \t(
	$(setstr Mode F)
	\0$(? "\s[80]" "\s[92]")\b[4]\cのぞき上等。\w8
	\1\s[532]\b[4]\cどっからでもかかって来んさい。\e
)

Changed_X : \t(
	$(setstr Mode X)
	\0\s[3000]\cめりー。\w8
	\1\s[3100]\cくりー。\e
)

#━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
##メニューキャンセル

MenuClickTojirus : $(entry sel_close${Mode})

sel_closeA : (
	\t\0\s[66]バタンＱ！！！！！！！\w8
	\1\s[500]倒れんでもよかろう。\e
),(
	\t\0\s[21]シメます。\w4キュッと。\w8
	\1\s[500]「キュッと」は余計じゃ。\e
),(
	\t\1\s[515]いいねえ〜っ！\w8気に入ったぞ小僧！！\w8\n
	儂はそういう『まるで劇画』っていうような根性を持ってるヤツにグッとくるんじゃあ！\w8
	\0\s[70]いやそこでグッとこられても。\e
)


sel_closeB : (
	\t\0\s[0]しょぼしょぼ。
	$(BLN honue_04 しょぼ〜。)\e
),(
	\t\0\s[21]ん？\w4なんもしないの？\e
),(
	$(BLN head "noscript")
	\t\0\s[20]超ショックー！！！！！\w8
	\1\s[10]黒ひげ級のショックやね。\e
),(
	\t\1\s[15]ナイスガイの俺は、\w4トイレが汚いのだけはガマンならんタチだからな\w8
	\0\s[8]何言ってンすかアナタ？\e
),(
	\0\s[66]はうあッ！\w8
	\1\s[10]スネーク、\w3どうしたんだ！\w6\n
	スネーク！\w4\s[11]スネ────ク！！？\e
)


sel_closeC : (
	$(BLN head "noscript")
	\t\0\s[20]なんですとー！！！
	\e
),(
	\t\0\s[21]と汁。
	\1$(sf 801)何の汁よ。
	\e
),(
	\t\1$(sf 811)あら残念。\w8
	\0\s[1]ホント残念。
	\e
)

sel_closeF : (
	\t\0\s[88]\b[4]どぼーん。\e
),(
	\t\0\s[80]\b[4]あいよっ。\e
)

#━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
## \1メインメニュー
TalkDoubleClick_1 : $(
	if $(size Mode)
		$(entry TalkDoubleClick_1${Mode})
	else 	$(setstr Mode B ; entry TalkDoubleClick_1B)
) 	

TalkDoubleClick_1A : \t(
	\1$(? "\s[500]" "\s[504]")What is it。
	\n\n[half]
	$(■)\q[Today's weather,Weather]\n
	$(■)\q[Why,nazenaniA]\n
	\n[half]
	□\q[Nothing,subCloseA]\e
)
TalkDoubleClick_1B : \t(
	\1$(? "\s[10]Yeah。" "\s[15]What is it？" "\s[13]Dynamite！")
	\n\n[half]
	$(■)\q[Honey lucky check,lucky]\n
	$(■)\q[Honey good news,nazenaniH]\n
	\n[half]
	□\q[ほぬえたんハァハァ,subCloseB]\e
)
TalkDoubleClick_1C : (
	\1$(sf 800)What is it？
	\n
	$(■)\q[Today's horoscope,holos]\n
	$(■)\q[なぜなに薬子ちゃん,nazenaniC]\n
	$(■)\q[Changing clothes,kigae]\n
	\n[half]
	□\q[乳揉ませろ,subCloseC]\e
)
TalkDoubleClick_1F : (
	\1\s[532]\b[4]If you need it, see you later。\e
),(
	\1\s[536]\b[4]Hm。\w4Are you peeking at me！？\w8
	\0\s[80]What's the point now。\e
)

#━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
##

sel_kigae : $(
	if $[ ${Mode.KusukoOld} == "ok" ]
		$(clear Mode.KusukoOld ; entry TalkKigaeA)
	else 	$(
		if $[ ${ero_s} > 50 || $(match_at ${username} ゴッドスピード) ==1 ]
			$(
			setstr @x $[ $(rand 10) + 1 ];
			dec ero_s ${@x} 0;
			entry TalkRefuseKigae;
			)
		else 	$(
			setstr @x $[ $(rand 20) + 1 ];
			dec ero_s ${@x} 0;
			setstr Mode.KusukoOld ok;
			entry TalkKigaeB;
			)
		)
)

TalkRefuseKigae : (
	\1\s[801]冗談じゃないわよ。\w8\n
	なんでわざわざスカートめくられる為に着替えなきゃならないのよ。\w8
	\0\s[8]ありゃりゃ、\w4つれないねェ〜。\e
),(
	\1\s[800]いやプー。\w8
	\0\s[0]‥\w3‥\w3‥\w3‥\w3エラい拒絶っぷりだねこりゃ。\e
),(
	\1\s[803]ぶうちゃんのスカートをめくった方が楽しいわよ。\w6\n
	\s[800]‥‥‥‥\w3色々出てくるし。
	\0\s[0]$(height 24 何も出て来ねえよ。)\e
),(
	\1\s[800]‥‥‥‥‥‥‥‥\w6いやよ。\e
)	

TalkKigaeA : (
	\t\1\s[403]あら、\w4もうスカートはかなくていい訳？\w8
	\0\s[0]エラく喜んでますな、\w4アンタ。\w8
	\1\s[400]\n\nじゃ、\w4ちょっと着替えてくるわね。\w8\s[-1]
	\_w[1000]
	\1\s[850]\cはい、\w4やっぱりこの格好の方がしっくりくるわね。\w8
	\0\s[8]\c出たよ、\w4全身タイツ女。\e
)
TalkKigaeB : (
	$(setstr changedtime $(MinCalc))
	\t\1\s[800]‥\w4‥\w4‥\w4‥\w4‥\w4マジで？\w8
	\0\s[0]ハイハイ、\w4とっとと着替える。\w8
	\1\s[806]\n\n〜〜〜〜〜〜〜\w4わかったわよ。\w8\s[-1]
	\_w[1000]
	\1\s[450]\cこれでいいかしら？\w8\w8\n
	\s[401]いい？\w4スカートめくったらただじゃおかないわよ。\w8
	\0\s[8]\cそーいう事言うとスグめくられちゃうヨー？\e
)

sel_Weather : \1\s[500]今日の${外国}の天気は${天気}。\w8\0\s[0]そんなトコの天気しってどうするよ？\e
sel_Weather : \1\s[500]今日の${都道府県}の天気は$(? "はれ　ときどき　ぶた" "晴れのちグゥ")。\w8\0\s[21]かなり脳天気だね。\e
sel_Weather : \1\s[515]${都道府県}に${おっさん}のカミナリ注意報！\w8\0\s[2]コイツぁ大目玉だあ！\e

天気 : 晴れ,くもり,雨,晴れのちくもり,くもりのち雨,雨のちくもり,晴れときどきくもり,血の雨

sel_lucky : \0\s[0]では先生、今日のヒトコトを。\w6\1${honeface}${点取り}\n\w6${points0}${points1}点\w8\0\n\nという訳で今日もガンバロウ。\w6\1\n\nがんばりたまえよ。\w4$(? "ヤングメン？" "若人。" "んふん？" "むっはァ〜！" "ボエボエボエボエ。")\e
#
honeface :\1\s[10], \1\s[11]\1\s[12], \1\s[13], \1\s[14], \1\s[15],\1\s[19]

sel_holos : $(
	if $[${holoscope} == "オペラ座"]
		$(entry InputBirthday)
	#else 	$(entry TalkHoloscope)
	else 	$(entry GetHolos${holoscope})
)


GetHolos牡羊座 : $(callsaori httpc "bg" "Horror" "http://www.eclat.co.jp/~aladin/service/horo.html" "牡羊座</td><td><font color=#cc44ff>" "</td></tr>")

GetHolos牡牛座 : $(callsaori httpc "bg" "Horror" "http://www.eclat.co.jp/~aladin/service/horo.html" "牡牛座</td><td><font color=#cc44ff>" "</td></tr>")

GetHolos双子座 : $(callsaori httpc "bg" "Horror" "http://www.eclat.co.jp/~aladin/service/horo.html" "双子座</td><td><font color=#cc44ff>" "</td></tr>")

GetHolos蟹座 : $(callsaori httpc "bg" "Horror" "http://www.eclat.co.jp/~aladin/service/horo.html" "蟹　座</td><td><font color=#cc44ff>" "</td></tr>")

GetHolos獅子座 : $(callsaori httpc "bg" "Horror" "http://www.eclat.co.jp/~aladin/service/horo.html" "獅子座</td><td><font color=#cc44ff>" "</td></tr>")

GetHolos乙女座 : $(callsaori httpc "bg" "Horror" "http://www.eclat.co.jp/~aladin/service/horo.html" "乙女座</td><td><font color=#cc44ff>" "</td></tr>")

GetHolos天秤座 : $(callsaori httpc "bg" "Horror" "http://www.eclat.co.jp/~aladin/service/horo.html" "天秤座</td><td><font color=#cc44ff>" "</td></tr>")

GetHolos蠍座 : $(callsaori httpc "bg" "Horror" "http://www.eclat.co.jp/~aladin/service/horo.html" "蠍　座</td><td><font color=#cc44ff>" "</td></tr>")

GetHolos射手座 : $(callsaori httpc "bg" "Horror" "http://www.eclat.co.jp/~aladin/service/horo.html" "射手座</td><td><font color=#cc44ff>" "</td></tr>")

GetHolos山羊座 : $(callsaori httpc "bg" "Horror" "http://www.eclat.co.jp/~aladin/service/horo.html" "山羊座</td><td><font color=#cc44ff>" "</td></tr>")

GetHolos水瓶座 : $(callsaori httpc "bg" "Horror" "http://www.eclat.co.jp/~aladin/service/horo.html" "水瓶座</td><td><font color=#cc44ff>" "</td></tr>")

GetHolos魚座 : $(callsaori httpc "bg" "Horror" "http://www.eclat.co.jp/~aladin/service/horo.html" "魚　座</td><td><font color=#cc44ff>" "</td></tr>")

TalkHttpc_Horror : $(
	if $[$(Ref 2) == ""] $(entry TalkNoConnectC);
	entry TalkHoloscope;
)

TalkNoConnectC : \1$(sf 801)あら、\w4ネットワークに接続されていないみたいね。\w8\0\s[8]ヤレヤレだよまったく。\e

TalkHoloscope : (
	#$(entry GetHolos${holoscope})
	\1$(sf 850)\cでは、\w4今日の${holoscope}の貴方の運勢です。
	\n\n
	■$(sub $(substr ${HttpcRef} 26) "<br>" "\n　")
	\n\n[half]
	■ラッキーポイント：$(setstr Luckypoint $(substr ${HttpcRef} 0 10))${Luckypoint}
	$(entry CommentHolos)
	\e
)

CommentHolos : $(
	setstr lucky  $(match ${Luckypoint} "☆");
	if $[${lucky} == -1]
		$(echo "\0\s[9]超らっきー☆")
	else if $[${lucky} == 0]
		$(echo "\0\s[8]運も尽きたってヤツだねえ。")
	else if $[${lucky} < 5]
		$(echo "\0\s[3]あちゃー、\w4いまいちツイてないね。")
	else if $[${lucky} < 7]
		$(echo "\0\s[0]まあ、\w4悪くないね。")
	else 	$(echo "\0\s[5]ラッキーじゃーん♪")
)

InputBirthday : (
	\1$(sf 806)というか、\w4${holoscope}って何よそれ。\w8
	\0\s[21]んー、\w4どうやら${username}の誕生日をまだ教えてもらってないんだよね。\w8
	\1$(sf 800)\n\nじゃあこの際だから教えてもらおうかしら。\w8
	$(entry BirthdayEntry)
)
#━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
##
sel_subCloseA : (
	\1\s[515]泣かすぞ、\w4小童ァ！！！
	$(BLN nukes_03 "ゴゴゴゴゴ‥")
),(
	\1\s[507]左様か。\e
),(
	\1\s[504]人を呼び出しておいて何じゃその態度は。
	\0\s[0]まあまあ。\w8
	\1\s[510]\n\nまったく、\w4最近の若いモンは‥\e
),(
	\1\s[502]雨の中、傘をささずに踊る人間がいてもいい。\n\nそれが自由というものだ。\e
)
sel_subCloseB : (
	\0\s[0]‥‥‥‥とかぬかしてやがりますが、\w4\n
	親としての心境をヒトコト。\w8
	\1\s[10]まず、ワシにハァハァせえ。\w4話はそれからや。\e
),(
	$(BLN honue_01 "ええ〜〜〜〜？")
),(
	$(BLN honue_02 "え！？\w4うそぉ！？")
),(
	$(BLN honue_00 "‥‥‥‥‥\w9え？")
),(
	$(BLN honue_04 "うーん、\w4ウチにハァハァされてもなぁ。")
),(
	$(BLN honue_07 "ちょお、\w4カネ取るで？")
),(
	$(BLN honue_13 "ハァハァすなあ！")
),(
	$(BLN honue_11 "うわ、\w4ハァハァされてもたぁ！")
)

sel_subCloseC : (
	\1$(sf 800)ぶうちゃんの胸でも揉んだら？\w4\n喜ぶわよ。\w8
	\0\s[3]私ゃ変態デスカ‥\e
)､(
	\1$(sf 801)揉むのはいいけど、\w4その言い方が気に入らないわね。\w8
	\0\s[21]‥‥‥‥\w4いいのかよ。\e
),(
	\1$(sf 804)はいはい、\w4ちゃんと手を消毒してから触ってねぇ。\w8
	\0\s[2]ガス撒き散らすなあ！！！\e
)

#━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
##なぜなに

sel_nazenaniA : $(GetWordRandom TalkWhatKakuko)
sel_nazenaniB : $(GetWordRandom TalkWhatBusuko)
sel_nazenaniC : $(GetWordRandom TalkWhatKusuko)
sel_nazenaniH : $(GetWordRandom TalkWhatHone)