code:
;-------------------------------------------------
;各種打招呼
;注意！ここのセリフは基本的に颜绘が付きます！！
;颜绘に変化を付けたい場合にはセリフの前でEMOTION_PLUSを用いる事で変えられます。
;例）恥じらった顔にさせたい場合には CALL EMOTION_PLUS, "害羞", TARGET
;-------------------------------------------------
@KOJO_GREETING_K53, ARGS
#DIM MEMO_LINECOUNT
;イベント発生中の角色
#DIM ACTOR
;イベント発生中の角色の默认のCALLNAME
#DIMS CALLNAME_ACTOR

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝拘束"

;朝のＨイベントでのセリフ。下の"打招呼"だけ書いてあれば十分だと思います
;ここでCALL SETFLAG, "地の文スキップ"すると地の文、経験表示、本来なら続いて表示される下のCASE "打招呼"の台詞、を全てすっ飛ばせます(上級者向け)
;詳しくは@EVENT_NEWDAYの注釈などを見てください
CASE "朝袭"
	SELECTCASE CSTR:朝袭
	CASE "朝逆正常位"

	CASE "朝舐陰"

	CASE "朝足交"

	CASE "朝の新妻PLAY"

	CASE "朝乳交"

	CASE "朝騎乗位"

	CASE "朝Ａ騎乗位"

	CASE "朝接吻"

	CASE "朝添い寝"

	CASE "朝口交", "朝六九式"

	ENDSELECT
;朝のＨイベント終了後にする打招呼
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝逆正常位"
		PRINTFORMW 「まったく、これだけシゲキを与えてやれば起きるだろうと思って頑張っていたんだがねぇ」
		PRINTFORMW 「こうなっては今さらだ、もう一睡眠したまえ。%CNAME("一人称")%はまだ続きがしたいんだ！」
		PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%を押し倒そうと迫ってくる……
	CASE "朝舐陰"
		PRINTFORMW 「むふふ、してやったぞぉ。見たまえ%CNAME("二人称")%の床を！」
		PRINTFORMW 「%CNAME("二人称")%の股座から滴る愛の胖次ゲア大陸が領土を拡大しているぞ！ あっはっはっは！」
		PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%が眠っていた床のシーツを指差して高笑いしている……
	CASE "朝足交"
		PRINTFORMW 「いやはや、やっと起きてくれたかい。%CNAME("二人称")%というヤツはホントに睡眠が深い」
		PRINTFORMW 「これ以上%CNAME("二人称")%を踏み続けたら、%CNAME("一人称")%の方が罪悪感で起き上がれなくなるところだった」
	CASE "朝の新妻PLAY"
		PRINTFORMW 「いやぁ、%CNAME("二人称")%はつくづく%CNAME("一人称")%の信頼を裏切らない\@ TALENT:MASTER:男性 ? 男 # 女 \@だよ」
		PRINTFORMW 「裸圍裙の美女と朝食、迷わず前者を取るんだから。徹底し過ぎててある種人类じゃないとさえ思えるよ」
		PRINTFORMW 「朝食と午後のティー領帯ム以外に美食の保証がない国で育った%CNAME("一人称")%には、%CNAME("二人称")%の決断は真似できないな」
		PRINTFORMW 「さっ、たっぷり焦がした目玉焼きだ。心ゆくまで堪能したまえ！」
		PRINTFORMW %CALLNAME:MASTER%の目の前に、闇夜に浮かんだ満月が差し出された……
	CASE "朝乳交"
		PRINTFORMW 「あぁー、疲惫。%CNAME("二人称")%、わざと起きなかったなんてことはないだろうね？」
		PRINTFORMW 「朝っぱらからこんな特殊な上下運動をしたせいで、すっかり息があがってしまったよ。まったく」
		PRINTFORMW 「……ま、勝手にやったのは%CNAME("一人称")%だけどね。うん」
		PRINTFORMW %CALLNAME:TARGET%はくたびれたように溜め息を吐き出した。
	CASE "朝接吻"
		PRINTFORMW 「ふぅー、まったく。王子様の接吻がほしいのは%CNAME("一人称")%なんだけどねぇ」
		PRINTFORMW 「%CNAME("二人称")%、ちょっと甲斐性がないにも程があるよ？ ん？」
		PRINTFORMW %CALLNAME:TARGET%は不満たっぷりの顔だ……
	CASE "朝添い寝"
		PRINTFORMW 「んん……なんだい、こういうときに限ってさっさと起きるんだから%CNAME("二人称")%は……」
		PRINTFORMW 「ほら、もう一度寝た寝た。今日の予定は全部中止したまえ。女仆には%CNAME("一人称")%から言っておくから」
		PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%が起きようとするのを抑えてくる……
	CASE "朝口交", "朝六九式"
		PRINTFORMW 「むふふ……%CNAME("二人称")%はホントに面白色ヤツだよねぇ……」
		PRINTFORMW 「キチンと一発抜いてやるとちゃーんと睁開眼睛んだから。そういうオモチャかい？ ん？」
		PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の阴茎をつんつんとつついてくる……
	CASE "朝騎乗位", "朝Ａ騎乗位"
		PRINTFORMW 「ふ、ぅ……朝の運動にはちょっと激しすぎたかなぁ……」
		PRINTFORMW 「悪いが退いてくれないかい？ 代わりに%CNAME("一人称")%が寝るから。さあ」
		PRINTFORMW %CALLNAME:TARGET%はしっしっと手を振り、床を奪おうとしている……
	ENDSELECT

	;何か発言してたらここまで
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1

	IF COND("体育")
		PRINTFORMW 「さぁさ、気張れよ%CNAME("主人")%君！ 今日は体育の日だ！」
		PRINTFORMW 「性交は体力勝負だ！ コレの成績が悪いとあっては%CNAME("二人称")%への評価も改めなくてはならないよ！」
		PRINTFORMW %CALLNAME:TARGET%は手を叩いて%CALLNAME:MASTER%を急かしている……
	ELSE
		PRINTFORMW 「やあやあ、目が覚めたかい？ この国には“早起きは三文の徳”という言葉があるそうじゃないか」
		PRINTFORMW 「果たして%CNAME("二人称")%が三文ぽっちで起きるのかと心配になってね。見に来てよかったよ」
	ENDIF
CASE "登校"
	IF DAYEV("試験当日")
		CALL EMOTION_PLUS, "重置/縦長目/半開"
		PRINTFORMW 「おぉ～、試験当日というなんと心の踊らない響きよ」
		PRINTFORMW 「随意落書きして帰ってやろうか、まったく」
	ELSEIF DAYEV("試験返却日")
		IF CFLAG:予想点 <= 30
			CALL EMOTION_PLUS, "重置/眯眯眼/嘟嘴"
			PRINTFORMW 「んー、参ったなあ。今回ばかりは赤点かもしれない」
			PRINTFORMW 「追試だけは勘弁願いたいんだが……いやぁ、参ったなあ～ほんとに……」
		ELSE
			CALL EMOTION_PLUS, "重置/眯眯眼"
			PRINTFORMW 「今日が試験結果の発表か……ま、追試なら免れたことだろう」
			PRINTFORMW 「チラッとだけ見て、さっさと%CNAME("主人")%と遊ぼうかなっと」
		ENDIF
	ELSEIF COND("朝袭相手")
		CALL EMOTION_PLUS, "重置/笑颜"
		PRINTFORMW 「ん～♪ 今日は朝の運動もバッチリしたし、良い日になりそうだねぇ～」
	ELSEIF COND("体育")
		CALL EMOTION_PLUS, "重置/斜眼/無口系"
		PRINTFORMW 「はーあ。どうにも干劲が出ないんだよなぁ、体育の時間って奴は」
		PRINTFORMW 「運動なら%CNAME("主人")%君と勝手にするから帰らしてくれないもんかなぁ」
	ELSEIF COND("水泳")
		CALL EMOTION_PLUS, "重置/闭眼"
		PRINTFORMW 「さぁて、今日も%CNAME("一人称")%の悩ましいボディラインを見せつける日が来たねぇ」
	ELSE

	ENDIF
CASE "一番乗り"
	IF RAND:2
		PRINTFORMW 「お、今日は誰也不在みたいだよ%CNAME("二人称")%」
		PRINTFORMW 「さ、さ。今がチャンスだ。ブービートラップを仕掛けるなら今のうちだよ」
		PRINTFORMW %CALLNAME:TARGET%是たずらっぽく笑着いる……
	ELSE
		PRINTFORMW 「んん？ なんだ誰也不在のか……もう少し時間を潰すべきだったかな」
		PRINTFORMW 「海外には“洗練された遅刻”という言葉があってね。会食の場に早くに来るのは%CNAME("二人称")%の女仆を急かすことを意味する」
		PRINTFORMW 「%CNAME("二人称")%の女仆を気遣ってやるのなら、%CNAME("一人称")%らは15分程度遅れてくるのが望ましいという考え方だね」
		PRINTFORMW 「ま、%CNAME("二人称")%の女仆がそこまで%CNAME("二人称")%を尊重している雰囲気は感じないが。あっはっはっは！」
		PRINTFORMW %CALLNAME:TARGET%は高笑いをしながら悠々と自分の席に腰を下ろした。
	ENDIF
CASE "ただいま"
	PRINTFORMW 「おぉい！ 帰ったよ%CNAME("二人称")%！ おかえりの接吻はどうしたー？ おーい」
	PRINTFORMW 玄関先で%CALLNAME:TARGET%が呼んでいる……
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		PRINTFORMW 「おぉ、帰ってきたか%CNAME("二人称")%。さ、さ。ただいまの接吻をしようか。ん」
		PRINTFORMW %CALLNAME:TARGET%は腕を広げている……
	ELSE
		IF CHARA_NUM("室内の邪魔者") == 0
			PRINTFORMW 「んん？ 相変わらずの重役出勤だね%CNAME("二人称")%。待ちくたびれてしまったよ」
			PRINTFORM %CALLNAME:TARGET%
			SIF ITEM:撮影機材 >= 1
				PRINTFORM 部の撮影機材を勝手に回しながら
			IF (ITEM:腕型振動棒 >= 1) + (ITEM:馬型振動棒 >= 1) + (ITEM:極太振動棒 >= 1)
				PRINTFORM 粗大的振動棒大上段に構えている
			ELSEIF (ITEM:振動棒套装 >= 1) + (ITEM:肛用振動棒 >= 1)
				PRINTFORM 振動棒両手に持って構えている
			ELSEIF ITEM:假阳具 >= 1
				PRINTFORM 假陽具履いて仁王立ちをしている
			ELSEIF ITEM:拘束具 >= 1
				PRINTFORM 投げ縄を作って振り回して遊んでいる
			ELSEIF ITEM:浣腸 >= 1
				PRINTFORM 浣腸器を腰に構えて押し引きしている
			ELSE
				IF ITEM:撮影機材 >= 1
					PRINTFORM 一人摆POSEをして闲を潰している
				ELSE
					PRINTFORM 床を這って部室を隅々まで探っている
				ENDIF
			ENDIF
			PRINTFORMW ところだった……
		ELSEIF COND("同伴中", MASTER) && RAND:3 == 0
			PRINTFORMW 「んん？ なんだ%CNAME("二人称")%、今日は他の者と同伴かい」
			PRINTFORMW 「流石は学園きってのお貴族様だ。連れ合いには困らないみたいだね。うんうん」
			PRINTFORMW %CALLNAME:TARGET%は感心するように頷いている……
		ELSEIF RAND:2
			IF CFLAG:茶 == 0
				PRINTFORMW 「おぉ、ようやく来たかい%CNAME("二人称")%……さ、早く%CNAME("一人称")%に茶でも淹れてくれたまえよ」
				PRINTFORMW 「%CNAME("一人称")%の心の乾きまで潤してくれるような、とびっきりの愛が入ったヤツをね！」
				PRINTFORMW %CALLNAME:TARGET%の目は期待でキラキラと輝いている……
			ELSE
				PRINTFORMW 「む？ %CNAME("二人称")%か。悪いが先に楽しんでいるよ」
				PRINTFORMW 「おぉ、若き貴族と使用人とティー領帯ムを愉しめる大日本学園生活に乾杯！」
				PRINTFORMW %CALLNAME:TARGET%は高々と飲み物を掲げた。
				CALL SETFLAG_DAILY, "茶"
			ENDIF
		ELSE
			PRINTFORMW 「おぉ、来た来た。\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%様のお出ましだよ」
			PRINTFORMW 「さ、今日は誰と玩遊戲？ ん？」
			PRINTFORMW %CALLNAME:TARGET%のアツい視線を感じる……
		ENDIF
	ENDIF

CASE "入室打招呼"
	IF CFLAG:呼び出された
		PRINTFORMW 「やあやあ、%CNAME("主人")%君是るかい？ ラブコールに応えるべく馳せ参じたよ！」
		PRINTFORMW %CALLNAME:TARGET%は大げさに手を広げてやってきた……
	;你が現在的partnerにＨ的悪戯をしている最中に入室した（partnerへの呼びかけはCNAME("partner")で出来る）
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
		PRINTFORMW 「おや、や？ なんだい%CNAME("二人称")%、%CNAME("一人称")%への挑発のつもりかいそれは」
		PRINTFORMW 「いいだろう、乗ってやる！ %CNAME("二人称")%！ そこを代わりたまえ！」
		PRINTFORMW %CALLNAME:TARGET%は今にも飛びかからんばかりの勢いだ……
	ELSE
		PRINTFORMW 「やあやあ、みんな集まっているみたいだね。洗練された遅刻は無事完遂……」
		PRINTFORMW 「いや、少し早いほうか？ むむむ……」
		PRINTFORMW %CALLNAME:TARGET%は首を捻りながら入室してきた……
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「やあやあ、諸君！ どうやら時間バッチリだね。うんうん」
	ELSEIF CFLAG:呼び出された
		PRINTFORMW 「そおら、%CNAME("主人")%君？ 酱と来てやったぞ～？」
	ELSE
		PRINTFORMW 「やあ、諸君。今日もご心情麗しゅう。ははは」
	ENDIF
;簡易入室打招呼に対する返し。WAITの使用は一回が望ましい
;誰が入室してきた人はCOND("入室打招呼中")がONなのでFIND_COND("入室打招呼中")で検索可能
;また、入ってきた人数はCHARA_NUM("入室打招呼中")で調べられる
CASE "打招呼返し"
	;打招呼してきた人の中から一人選ぶ
	ACTOR = FIND_COND("入室打招呼中")
	;選ばれた角色の默认のCALLNAME。この角色への呼びかけはCNAME(CALLNAME_ACTOR) で出来る
	CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

	;ここでは括弧に『』を使う

	;打招呼してきた人に老师が混じっている
	IF FIND_COND("教員", "入室打招呼中")
		PRINTFORMW 『おや、これはこれは老师殿。お先にお邪魔しておりますよ』
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 『む？ 良い領帯ミングで来たね。みんな集まっているよ』
	ELSE
		PRINTFORMW 『やあ、いらっしゃい。まだみんな集まって是ないよ』
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		PRINTFORMW 「そおら、来たよ%CNAME("主人")%。いったいなんの用だい？ 茶のお誘いかね？」
		PRINTFORMW %CALLNAME:TARGET%は茶の用意がないかと伺っている……
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		PRINTFORMW 「や、ちょいと戻ってきてみたよ。失礼。はは」
	ELSE
		PRINTFORMW 「やぁやぁ、ちょいとお邪魔するよ。ははは」
	ENDIF
CASE "抜け出された"
	IF TALENT:恋慕
		CALL EMOTION_PLUS, "憤怒", TARGET
		PRINTFORMW 「おぉい！ 釣った魚に餌もやらずにどこへ行く！ こぉのお貴族様め！」
		PRINTFORMW %CALLNAME:TARGET%のブーイングが飛んできている……
	ELSE
		PRINTFORMW 「%TEXTR(@"ん？ なんだ、しけこむのか。しけこむつもりか！/おぉ、\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%が腰を上げたぞ！")%」
		PRINTFORMW %CALLNAME:TARGET%は好き勝手に野次を飛ばしている……
	ENDIF
CASE "便当"
	IF CEVENT("初めての便当") == 0
		PRINTFORMW 「やあやあ！ 待たせたね、チャレンジャー！」
		PRINTFORMW 昼食時に%CALLNAME:MASTER%の前に現れた弁当係初任は、緊張も責任感もない笑顔を振りまいていた。
		PRINTFORMW 「英国出身者にヒルメシをたかるとかいう命知らずも珍しいからね。%CNAME("一人称")%もいつになく張り切ってしまった」
		PRINTFORMW 「さ、刮目したまえ！ これが%CNAME("一人称")%のアイサイ・ベントーだ！」
		PRINTFORMW 勢いよく差し出された弁当の中身は――カリカリに焼かれた胖次を使った三明治だった。
		PRINTFORMW 「ウナギ果凍でも期待したかい？ あいにく%CNAME("一人称")%はアレは嫌いだ。お望みとあらば振る舞っても構わないけどね」
		PRINTFORMW 「カラダが資本の%CNAME("主人")%様のカラダを壊したとあっては、%CNAME("一人称")%らの部活動にも支障が出るというもの」
		PRINTFORMW 「不死身の%CNAME("主人")%様には杞憂だったかな？ まぁいい、とにかく普通の三明治だ。慢慢地堪能してくれたまえ」
		PRINTFORMW 言われた街道%CALLNAME:MASTER%は三明治をひとつ手に取り、口に運んでみた……
		PRINTL
		PRINTFORMW ――！？
		PRINTFORMW 想像を裏切る、脂っこい魚の感触が舌を襲ってくる……！
		PRINTL
		PRINTFORMW 「ん？ どうした、ハトがビーンズでもかっくらったみたいな顔をして」
		PRINTFORMW 「ウナギ果凍は確かに嫌いだが、ウナギが嫌いというわけではない。そいつは俗に言うウナギ三明治だよ」
		PRINTFORMW 「クドいほどの油分は挟んだ胖次で良い塩梅になっている……と、思うんだが。どうだろう？」
		PRINTFORMW ……言われてみれば、面食らいこそしたが味は悪くない……
		PRINTFORMW 「まったく、何を驚くことがあるんだか。この国のチェーン店にだってエビバーガーくらい平然と並んでいるじゃないか」
		PRINTFORMW 「それにこの国にはさしみバーガー店なるものも在るとか聞いたことがあるよ。%CNAME("一人称")%はそれに倣っただけさ」
		PRINTFORMW 自信満々な%CALLNAME:TARGET%の視線を浴び的同时、%CALLNAME:MASTER%はひとときの珍味の味わった……
		CALL SET_CEVENT, "初めての便当", TARGET
	ELSE
		IF RAND:5 == 0
			PRINTFORMW 「ふむ……もしかしたら%CNAME("一人称")%には料理の才能があるのかもなぁ……」
			PRINTFORMW %CALLNAME:TARGET%は薄っすら横目で%CALLNAME:MASTER%からの褒め言葉を待っている……
		ELSE
			PRINTFORMW 「うんうん、今日も無事に昼食を終えられたね。よかったよかった」
			PRINTFORMW %CALLNAME:TARGET%は不穏な言葉を呟きながらうんうん頷いている……
		ENDIF
	ENDIF
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"
	IF TALENT:恋慕
		CALL EMOTION_PLUS, "心情差", TARGET
		PRINTFORMW 「おぉい、見せつけてくれるじゃないか？ \@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%め」
		PRINTFORMW %CALLNAME:TARGET%は溜め息を付きながら%CALLNAME:MASTER%に背を向けた……
	ELSE
		CALL EMOTION_PLUS, "惊嚇", TARGET
		PRINTFORMW 「%TEXTR(@"な、なんだぁ%CNAME("二人称")%！？ ずいぶんお盛んだね！？/おぉい、予告も没有かい！？ 大したパフォーマーだね%CNAME("二人称")%！")%」
		PRINTFORMW %CALLNAME:TARGET%は惊讶と共にさっと身を引いた。
	ENDIF
ENDSELECT

;-------------------------------------------------
;メイン画面での台詞。いわゆる一言イベント強化版
;ちなみに画面随机属性しても同じセリフを喋ります
;選択肢に挟まれた場所で出力するのでWAITの使用は禁止
;动画ーションの関係上、１ターンに何度も呼ばれたりするのでフラグ操作をする場合には
;IF CFLAG:KOJO_DAILY済 == 0
;で分岐させるのが良いでしょう
;-------------------------------------------------
@KOJO_DAILY_K53, ARGS
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「というわけで、改めて。%NAME:TARGET%だ、よろしく頼むよ。はっはっは！」
	PRINTFORML %CALLNAME:TARGET%は大きく手を広げながら悠々と部に加わった……
CASE "浑身是汗"
	IF DEVENT("浑身是汗：初回") == 0
		PRINTFORML 「はーあ、ほんっとにムカつく……この国の暑さだけは一生の敵だ。いつか%CNAME("一人称")%はこの湿気に殺されるよ……」
		PRINTFORML 「なによりね、%CNAME("一人称")%はこんなに苦しい思いをして胸罩透けにまで至っているんだ。見えるだろ？」
		PRINTFORML 「なのにこの学園の男連中は%CNAME("一人称")%の胸を遠巻きに盗み見るだけだ！ まったく根性ナシ共め！」
		PRINTFORML 「%CNAME("一人称")%の胸を見たけりゃ直に足を運べ！ いつでも門は開かれている！ ビザなんか要らないんだー！」
		PRINTFORML %CALLNAME:TARGET%は衣服を破らんばかりの勢いだ……
		CALL SET_DEVENT, "浑身是汗：初回"
	ELSEIF RAND:3 == 0
		PRINTFORML 「あーあ、今日も大日本は国民から分泌された仄かな塩分の香りが充満しているね……」
		PRINTFORML 「このまま国民の汗と涙で味噌汤でも作るかい？ あっはっはっは！ ……はーあ」
	ELSEIF RAND:2
		PRINTFORML 「ふーっ、ホントにこの国の湿気というヤツはクソったれだねぇ……」
		PRINTFORML 「なあなあ、今日一日は淋浴ルームを貸し切っても構わないだろぉ？」
	ELSE
		PRINTFORML 「なんだっけ。この国じゃあ罪人を蒸して処刑するとかいう昔話があったろう、たしか」
		PRINTFORML 「間違いない、きっとこのクソったれな湿気を皮肉った物語だ……はーあ……」
	ENDIF
CASE "刚睡醒"
	PRINTFORML 「ふぁあ……なんだ、いたのか……なにか恶作剧でもしたかい……？」
	PRINTFORML %CALLNAME:TARGET%は気だるげに%CALLNAME:MASTER%を見ている……
CASE "Cosplay中"
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORML 「やれやれ、%CNAME("一人称")%もできれば鑑賞する側に回りたかったものだが……致し方ない」
		PRINTFORML %CALLNAME:TARGET%は溜め息をつきながらも、しっかりと自分のCosplay姿を見せつけている……
	ELSE
		PRINTFORML 「ふふふ……これでも自分のプロ薬水に恥じるところは無い。どうだい？ \@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%」
		PRINTFORML %CALLNAME:TARGET%は自身に満ちた表情をしている……
	ENDIF
CASE "点心の感想"
	;今日の点心を用意したのは自分
	IF COND("点心当番")
		SELECTCASE TEXTS("点心")
		CASE "短蛋糕"
			PRINTFORML 「そら、短蛋糕を用意したよ。本場は“サクサク”するほうの短蛋糕が王道だけども」
			PRINTFORML 「ま、%CNAME("一人称")%はこっちの方が好きだな。歯ごたえが欲しかったらスコーンでいいかなって」
		CASE "スコーン"
			PRINTFORML 「そら、スコーンを用意したよ。ジャムとクロテッド阴蒂ームも好きなだけ使ってくれ」
			PRINTFORML 「食べたら酱と“運動”はしておこうか。なにぶんこいつはカ萝莉ーの怪物だからね。はっはっは」
		CASE "三明治"
			PRINTFORML 「そぉら、三明治をしこたま用意してきたよ！ 喜欢的东西を選んでくれたまえ」
			PRINTFORML 「あ、たまご三明治は残しておいてくれよ！ %CNAME("一人称")%はこれに目がないんだ。いいね！」
		ENDSELECT
	;今日の点心は誰かの亲手自制
	ELSEIF COND("亲手自制点心")
		;今日の点心当番の人の亲手自制を初めて食べた
		IF DEVENT(@"%TEXTS("点心当番")%の亲手自制") == 0
			;点心当番が[料理擅長]
			IF COND("点心の作り手が料理擅長")
				PRINTFORML 「おぉぉ……いや、まったく素晴らしい。これを作ったのは誰だい？」
				PRINTFORML 「ほぉ、%TEXTS("点心当番")%……覚えておこうか……なーんて」
				PRINTFORML %CALLNAME:TARGET%はシェフを夸奖貴族ごっこを楽しんでいる……
			ELSE
				PRINTFORML 「ほー、大したものだね。うん、马い马い」
				PRINTFORML %CALLNAME:TARGET%の点心を食べる手は忙しなく進んでいる……
			ENDIF
		ELSE
			PRINTFORML 「うんうん、今日も結構なおてまえというヤツだね」
			PRINTFORML %CALLNAME:TARGET%は%TEXTS("点心当番")%の%TEXTS("点心")%に舌鼓を打っている……
		ENDIF
	;点心が亲手自制でない
	ELSE
		PRINTFORML 「ほー、%TEXTS("点心")%か。好きなのかい、%TEXTS("点心当番")%？」
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K53
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML 「ふふふ……今日という記念日に乾杯だね」
	PRINTFORML %CALLNAME:TARGET%は心から満足そうな顔で神情陶醉的……
CASE "约会的约定"
	IF RAND:2
		PRINTFORML 「おお、憂鬱な週末よ。%CNAME("二人称")%との再会はまた今度になりそうだよ。ふふふ」
	ELSE
		PRINTFORML 「いやぁ、困ったなぁ。こんなに気持ちが逸っていては、洗練された遅刻をこなせそうもない」
		PRINTFORML 「日本の恋愛コミックに“待った？”のミームが浸透しているわけだ。ふふふ……」
	ENDIF
;これは悪魔や天使や驱魔人のみ
CASE "契約成立"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K53, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
;你にお願いされて、自分の力で巨根になってあげた(悪魔と天使のみ)
CASE "巨根化契約成立"
	PRINTFORML
CASE "短小化契約成立"
	PRINTFORML
CASE "摆脱"
	IF CFLAG:躁动难忍
		PRINTFORML 「ふふふ……%CNAME("二人称")%のお誘いを心待ちにしていたよ」
		PRINTFORML 「さ、これ以上は焦らさないでくれ。%CNAME("一人称")%も何をしでかすかわからないよ……」
	ELSE
		PRINTFORML 「さて、いよいよ%CNAME("一人称")%らの時間が始圆圈わけだね」
		PRINTFORML 「期待させてもらうよ、\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%。ふふふ……」
	ENDIF
;你と一緒に、主人公的房間に移動した
CASE "主人公的房間に連れ込まれた"
	IF DEVENT("主人公的房間に連れ込まれた：初回") == 0
		PRINTFORML 「へえ？ ここが%CNAME("二人称")%的房間かい。ふぅん……」
		PRINTFORML 「学園きってのお貴族様的房間にしては……ああいや、なんでもないよ」
		PRINTFORML 「お貴族様呼ばわりし過ぎてるせいか、たまに%CNAME("二人称")%がフツーの学生であることを忘れてしまうんだよねえ」
		CALL SET_DEVENT, "主人公的房間に連れ込まれた：初回"
	ELSEIF CFLAG:躁动难忍
		PRINTFORML 「ふふふ……まさか暢気にトランプでもしようと思って連れてきたわけじゃあるまいね」
		PRINTFORML 「今の%CNAME("一人称")%はもっと過激な決闘に飢えているんだ。わかるよね……？」
	ELSE
		PRINTFORML 「さて、と。どんなもて无をしてくれるんだい？ お菓子？ 游戏？」
		PRINTFORML %CALLNAME:TARGET%は楽しそうに%CALLNAME:MASTER%の出方を伺っている……
	ENDIF
;你と一緒に、partner的房間に移動した
CASE "自室に招待"
	IF CFLAG:躁动难忍
		PRINTFORML 「むっふっふ、無防備にもついてきてしまったね%CNAME("二人称")%……」
		PRINTFORML 進入房間なり%CALLNAME:TARGET%は%CALLNAME:MASTER%に縋り付いてきた。
		PRINTFORML 「ここまで来て逃げようものなら、憤怒こそしないが黙って根に持つからね。ふふふふふ」
	ELSE
		PRINTFORML 「さて、好きなようにしてくれて構わないよ。おと无く床の上で縮こまっててもよし」
		PRINTFORML 「部屋中這いつくばって%CNAME("一人称")%の卑猥なグッズを漁り散らしたって怒らないよ。ふふふ」
	ENDIF
;partnerが既に居る部屋に、你が移動した
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML 「む？ おいおい、アポ没有で客を連れてくるとは見上げた根性だな！」
		PRINTFORML 「言っとくけど何も出さないよ。話も通さなかった%CNAME("主人")%君の責任だからね！」
	ELSE
		PRINTFORML 「おや？ %CNAME("二人称")%の方から来てくれるとは光栄だねえ」
		PRINTFORML 「いいよ、楽にしてくれたまえ。何も用意してないけど。あはは」
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML 「さてさて、お邪魔するよ%CNAME("助手")%。%CNAME("一人称")%は大人しくしてるから安心したまえ」
	PRINTFORML 「何かしでかすのは例によって%CNAME("主人")%君の方だから。ははは」
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML 「や、回来了よ。失礼……」
CASE "オナバレ"
	PRINTFORML 「%CNAME("二人称")%、せめて気付かないフリをするくらいの気遣いはしたまえよ！ まったく」
	PRINTFORML %CALLNAME:TARGET%は頬を膨らませている……
CASE "露脐装超短裙胖次チラ"
	PRINTFORML 「これだから日本の露脐装超短裙文化は……恭しく和服で身を包んでいた文化があったなんて嘘のようだね！」
	PRINTFORML 「……ま、火種はウチの国だから強く批判もできないけどね」
CASE "低腰臀圍"
	PRINTFORML 「おいおい、さっきから%CNAME("一人称")%のお尻に熱を感じるんだが、誰のせいだね？」
	PRINTFORML 「ま、喜んでくれるなら幸いだけど……どうにも愉しまれてると思うと負けん気が顔を出す。我ながら難儀な性分だ」
CASE "掀起裙子"
	PRINTFORML 「まったく、悪徳貴族め。%CNAME("一人称")%の秘境を覗いたとあっては%CNAME("一人称")%のファンも黙ってないよ」
	PRINTFORML %CALLNAME:TARGET%は厚顔無恥といった様子で何か言っている……
CASE "检查内褲"
	IF COND("合意：检查内褲")
		PRINTFORML 「やれやれ、こうも定期的に格子されたんじゃあ内衣の洗濯もサボれやしない……」
		PRINTFORML 「……いやいや、冗談。冗談だよ？ 酱と洗ってるから。裏っ返して使ったりなんか不会。ホント」
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		PRINTFORML 「んもう、やめてくれたまえよ。%CNAME("一人称")%の股座は堪え性がないんだ」
		PRINTFORML 「見られただけであっという間に臨戦態勢に……あ、ヤバい」
		PRINTFORML %CALLNAME:TARGET%はそわそわしている……
	ENDIF
CASE "拜托処理性欲", "进行性処理"
	PRINTFORML 「ふう。これで今日のお勤めは終了かな？」
	PRINTFORML 「追加発注は早めに頼むよ。生半可な待ったじゃあ%CNAME("一人称")%は止まらないからね」
CASE "帮忙消除性欲"
	PRINTFORML 「むっふっふ。\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%直々の奉仕は嬉しいねえ」
	PRINTFORML 「今後ともよろしく頼むよ……なーんて、圆圈で悪徳貴族みたいな物言いかな？ あっはっはっは！」
CASE "清洁口交"
	PRINTFORML 「え゛ッほ！ え゛ッほ！ あ゛ぁ～、イガイガする。何か口直しはないかい？」
	PRINTFORML 「あ、おかわりという意味ではないよ。小水もゴメンだ。いいね」
CASE "買東西"
	;買ってきた道具などで分岐
	IF COND("巨大振動棒購入") && DEVENT("巨大振動棒感想") == 0
		PRINTFORML 「っはー。これはまた御大層なエッフェル塔だねぇ……あ、いや。別におフランスがどうのなんて含んだ意味はないぞ」
		IF TALENT:MASTER:男性
			PRINTFORML 「い移開にせよ、%CNAME("二人称")%も大冒険が好きだね。実際にコイツで冒険するのは%CNAME("一人称")%なんだろうが」
		ELSE
			PRINTFORML 「ともあれ%CNAME("二人称")%の嗜好が再確認できたよ。ミス・%CNAME("主人")%もやはり熟練の女というわけだ」
		ENDIF
		CALL SET_DEVENT, "巨大振動棒感想"
	ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 4
			PRINTFORML 「ほぉほぉ、これは圧巻。日本の叡智が選り取り見取りだな。一つくらい借りても構わないかい？」
		CASEELSE
			PRINTFORML 「人の買ったものをじろじろ見るのもはしたないとは思うけど、%CNAME("二人称")%の戦利品を鑑賞するのはやめられないねえ」
		ENDSELECT
		PRINTFORML %CALLNAME:TARGET%は%CALLNAME:MASTER%が買ったものを興味深そうに手にとっている……
	ENDIF
CASE "隐秘摄影失敗"
	IF DEVENT("隐秘摄影失敗：初回") == 0
		PRINTFORML 「やれやれ、サバトの長にしてはお粗末な隐秘摄影だな。ビアトリクス・ポターの父の方がまだ擅長かったかもしれないよ」
		PRINTFORML 「彼は娘と芸術と写真をこよなく愛し、娘の日記は盗み見るわ、娘の行き遅れに貢献するわと八面六臂の大活躍をしていたらしいね」
		PRINTFORML 「\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%も彼を見習って、もっと本気になるべきだね。あっはっはっは！」
		PRINTFORML 「――あ、ちなみにビアトリクス父が娘の結婚に反対したことは事実だが、隐秘摄影がどうのは%CNAME("一人称")%の出任せだから信じないように」
		CALL SET_DEVENT, "隐秘摄影失敗：初回"
	ELSE
		PRINTFORML 「甜甜。ル布ト・ポターへの道はまだまだ遠いねえ……あっはっはっは！」
	ENDIF
CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORML 「まったく、%CNAME("二人称")%の隠そうともしない意地汚さには呆れを街道越して感心さえ覚えるよ」
		PRINTFORM 「ここにいるのは皆身内だからまだいいけどね。
		IF COND("豐腴")
			PRINTFORML この腰回りを晒してしまうのは我ながら不甲斐ない……」
		ELSEIF TALENT:小尻
			PRINTFORML せいぜいこの寒酸的尻が%CNAME("一人称")%の弱点かなぁ」
		ELSE
			PRINTFORML 自分のプロ薬水にも特に恥じるところはないし」
		ENDIF
	;まさかの野外
	ELSEIF PLACE("野外")
		PRINTFORML 「たまーに、%CNAME("二人称")%のことが心配になる。いつかつまらないことでお縄にかかるんじゃないかってね」
		PRINTFORML 「一応この場を誰かに見られたら%CNAME("一人称")%は強要された側だとしらを切っておくよ。後の面倒は女仆君によろしくね」
	;不在個室
	ELSEIF PLACE("個室") == 0
		PRINTFORML 「いいのかい、こんな邪魔の入りそうなところで脱がして？ 誰か入ってきたら情緒にもヒビが入りかねない」
		PRINTFORML 「%CNAME("一人称")%が安易なスリルに燃える領帯プではないことはなんとなくわかっているだろう？ ……ま、いいけどね」
	;個室で二人きり
	ELSE
		PRINTFORML 「ふふふ……さ、好きなだけ鑑賞するといい。%CNAME("一人称")%が飽きる前にね」
		PRINTFORML 「飽きたら容赦なく服を着るし、我慢できなくなったらこっちから迫ることにする。いいね？」
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		IF DEVENT("Ｈ目的で呼び出された：情人旅館初回") == 0
			PRINTFORML 「ふふふ……こうして情人旅館に来るのも久々だねえ」
			PRINTFORML 「何せココに来るほどの関係になる相手も久々で……いや、ただの独り言だ」
			PRINTFORML %CALLNAME:TARGET%は口笛を吹きだした……
			CALL SET_DEVENT, "Ｈ目的で呼び出された：情人旅館初回"
		ELSE
			PRINTFORML 「やあ、お待たせ。淋浴はもう浴びたのかい？」
			PRINTFORML 「%CNAME("一人称")%もゆっくり浴びたいところだけど……時間是ただけるのかい？ ふふふ」
		ENDIF
	;做爱房
	ELSE
		IF DEVENT("Ｈ目的で呼び出された：做爱房初回") == 0
			PRINTFORML 「ふぅん？ 面白色ね、学園にわざわざ情事専用的房間を設けるとは。発想が庶民のそれではない」
			PRINTFORML 「わざわざ情事専用の宿泊施設を作る日本人的な発想でもある。%CNAME("二人称")%はやはり大物だね。ふふふ」
			PRINTFORML %CALLNAME:TARGET%は何やら開心地笑着いる……
			CALL SET_DEVENT, "Ｈ目的で呼び出された：做爱房初回"
		ELSE
			PRINTFORML 「ふふふ……ここに来ると否が応でも子宮が疼く。すまないね、下品な女で」
			PRINTFORML %CALLNAME:TARGET%はうっとりと身震いしている……
		ENDIF
	ENDIF
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;標語の反応。書いたらコメントアウトを外してください
IF CFLAG:標語実践
	IF STRCOUNT(SAVESTR:標語, "注意口渴")
		IF DEVENT("標語茶") == 0
			PRINTFORML 「ほー？ まったく含蓄のある標語が書かれているね。%CNAME("一人称")%が来日したばかりの頃もねぇ……」
			PRINTFORML 「この国の蒸し暑さを舐めてかかり、視界は霞むわ耳は遠くなるわ……ううん、思い出しただけでノドが渇いてきた」
			CALL SET_DEVENT, "標語茶"
		ENDIF
	ELSEIF STRCOUNT(SAVESTR:標語, "体操服")
		SELECTCASE SAVESTR:標語
		CASE "体操服はやっぱり布鲁马"
			IF DEVENT("標語布鲁马") == 0
				PRINTFORML 「ほう、\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%は布鲁马派かね。結構結構」
				PRINTFORML 「%CNAME("一人称")%としては世界的にクソったれなこの国の夏場で運動するなら、これくらいの面積が最適だと思うんだよ」
				PRINTFORML 「ま、おかげでこの学園の思春期女子達の支持は得られずじまいだ。代わりに男子諸君の評価は上々」
				PRINTFORML 「……でもないんだよな、案外。なぜだろう？」
				CALL SET_DEVENT, "標語布鲁马"
			ENDIF
		CASE "体操服はやっぱり运动短褲"
			IF DEVENT("標語运动短褲") == 0
				PRINTFORML 「ほう……ほう？ %CNAME("二人称")%ならてっきり布鲁马一択だと思っていたのだが」
				PRINTFORML 「これもひとつのフェチズムの形か……いや、%CNAME("一人称")%の考えすぎかしらん」
				CALL SET_DEVENT, "標語运动短褲"
			ENDIF
		CASE "体操服はやっぱり紧身短褲"
			IF DEVENT("標語紧身短褲") == 0
				PRINTFORML 「ほー、なるほど紧身短褲か……いや、実は%CNAME("一人称")%もコイツは結構悪くないと思っている」
				PRINTFORML 「内腿を程よく締め付ける感触が心地よくて……血流でも良くなってるのかな？ 知らないけど」
				PRINTFORML 「惜しむらくは夏場に闷热的が気になるせいで評価はあと一歩というところだ……いやまったく」
				CALL SET_DEVENT, "標語紧身短褲"
			ENDIF
		CASE "体操服はやっぱり运动衫"
			IF DEVENT("標語运动衫")
				PRINTFORML 「……运动衫だってぇ？ %CNAME("二人称")%、気は確かかい？ \@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%君！」
				IF COND("夏")
					PRINTFORML 「せめて冗談は夏以外に言ってくれたまえよ……%CNAME("二人称")%は%CNAME("一人称")%を蒸し殺す気かい？」
					PRINTFORML %CALLNAME:TARGET%はこれみよがしに大号的溜め息をついた。
				ELSE
					PRINTFORML 「誇るべき我らがサバトの長が运动衫などと……そういうフェチズムも存在するのかな？ ふむ……」
					PRINTFORML %CALLNAME:TARGET%は考え込んでしまった……
				ENDIF
				CALL SET_DEVENT, "標語运动衫"
			ENDIF
		;各分岐を細かく埋めずに、上の分岐を消して望みの体操服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ELSEIF STRCOUNT(SAVESTR:標語, "学生服")
		SELECTCASE SAVESTR:標語
		CASE "学生服は露脐装超短裙に限る"
			IF DEVENT("標語露脐装超短裙") == 0
				PRINTFORML 「ふむふむ、露脐装超短裙ねえ……まったく不思議だよねえ……」
				PRINTFORML 「いやなに。過去に迷你裙を流行らせたのは、実はウチの国のデザイナーらしいんだよ。知ってたかい？」
				PRINTFORML 「そのブームが世界に広まった結果、今や迷你裙と言えば日本の青年を指すくらいの定番となってるわけだ」
				PRINTFORML 「%CNAME("一人称")%としても、迷你裙は日本のものだという印象は拭いきれないよ。正直ね」
				CALL SET_DEVENT, "標語露脐装超短裙"
			ENDIF
		CASE "学生服は超短迷你に限る"
			IF DEVENT("標語超短迷你")
				PRINTFORML 「はああ、超短迷你と来たか……いやまったく、時として日本の追従精神には舌を巻く」
				PRINTFORML 「この国に露脐装超短裙ブームを持ち込んだのは我が国の女優であることは知ってるかい？」
				PRINTFORML 「彼女が来日した際に見せた露脐装超短裙の丈は膝上30cm程だと言われているわけだけど」
				PRINTFORML 「日本のバブル期当時の女性らが身につけていた露脐装超短裙の丈は膝上35cmまではあったというウワサを聞いたよ」
				PRINTFORML 「日本人が世界の扇情的な装いを知れば、得てして貪欲に吸収され、改造されてしまうものだねえ。いやはや……」
				CALL SET_DEVENT, "標語超短迷你"
			ENDIF
		;各分岐を細かく埋めずに、上の分岐を消して望みの学生服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ENDIF
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
	PRINTFORML 「ところで%CNAME("二人称")%、紅茶や咖啡はどのようにして飲む？ 砂糖アリアリ？ ミルクは後入れ？」
	PRINTFORML 「いやなに、今後%CNAME("二人称")%とは飲む機会も増えるだろうから、早めに知っておいたほうがいいと思ってね」
	PRINTFORML 「ウチの国の連中は130年の議論の末に先入れ派の勝利に落ち着いたらしいが……ま、話半分に聞いておけばいいよ」
	PRINTFORML 「なんせ議論と同じくらいジョーク好きの民だ。この結論もジョークらしいよ。%CNAME("一人称")%は当時を生きてないから知らないけど」
	PRINTFORML 「ちなみに%CNAME("一人称")%は直髪派だ。覚えておいてくれたまえ、\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%」
	CALL SET_DEVENT, "質問１"
ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
	PRINTFORML 「そういえば%CNAME("二人称")%、学生服は水手派？ 西装外衣派？」
	PRINTFORML 「いやなに、ウチの国じゃあ当然水手服なんて見かけないから、%CNAME("一人称")%としても西装外衣が馴带污迹的深い」
	PRINTFORML 「迷いはしたが、なんだかんだ言って結局この装いに落ち着いてしまった」
	PRINTFORML 「あの涼しげな感じは、夏の間だけ宗旨変えしたくなるほどの魅力はあるんだがね……」
	CALL SET_DEVENT, "質問２"
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
	PRINTFORML 「お？ 今度は%CNAME("一人称")%の番かい。はっはっは」
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF FLAG:二人きり
	;二人きりでの何かする前のセリフ
	IF CFLAG:调戏数 == 0 && CFLAG:刚睡醒 == 0
		PRINTFORML 「ねー、%CNAME("二人称")%。せっかく二人きりなんだから、何かもて无はないのかい？」
		IF RAND:2
			PRINTFORML 「ほら、チューだけでもいいからさぁ。むーっ」
			PRINTFORML %CALLNAME:TARGET%は唇を窄め、腕を広げ、脚をバタつかせている……
		ELSE
			PRINTFORML 「ほら、今なら%CNAME("一人称")%の胸も触り放題だよ？ ……や、いつも触り放題か。あっはっはっは！」
			PRINTFORML %CALLNAME:TARGET%は%TEXTS("胸部")%を好き放題揺らして笑着いる……
		ENDIF
	ELSE
		PRINTFORML 「ほら、やりたいことがあるなら今のうちにもっとしておこうよ」
		PRINTFORML 「%CNAME("二人称")%との大事な二人きりの時間なんだ。さあ……」
	ENDIF
ELSEIF STATE("酔酒")
	IF RAND:2
		PRINTFORML 「おぉ～い、愛しの%CNAME("主人")%君や～い。ここに無防備に酔った女性がいるんだが、どうだい？ ふははは」
	ELSE
		PRINTFORML 「んん～？ なんだか寂しそうな\@ TALENT:MASTER:男性 ? 紳士 # 淑女 \@がいるなぁ」
		PRINTFORML 「%CNAME("一人称")%がお供して差し上げようじゃないかぁ。さ、さ。遠慮是らないよ？」
	ENDIF
	PRINTFORML %CALLNAME:TARGET%はわざとらしく%CALLNAME:MASTER%に迫っている……
ELSEIF COND("夜")
	IF RAND:4 == 0
		PRINTFORML 「あーあ、このまま後は眠るだけというのもうら寂しいね……」
		PRINTFORML 「%CNAME("二人称")%、せっかくだし何か手頃な夜ふかしを提供してくれたまえよ」
		PRINTFORML 「無論性交でもなんでもいいさ。%CNAME("一人称")%の中の寂しさを取り払っておくれ……よよよ」
	ELSEIF RAND:3 == 0
		PRINTFORML 「ふーむ……たまには%CNAME("二人称")%なんか放っておいて、夜の国に飛び出したい気持ちがあるねえ……」
		PRINTFORML 「と、言ったら%CNAME("二人称")%は怒るかい？ ふふ、安心したまえ。%CNAME("一人称")%是つでも%CNAME("二人称")%の味方さ」
		PRINTFORML 「……ま、貞淑であらんとすることに興味はないけどね。あっはっはっは！」
	;敢えて上記二種とは確率をなんとなく離しておく
	ELSE
		PRINTFORML 「ふむ……今日もいい夜だ。恶作剧心が騒ぎ出す」
		PRINTFORML %CALLNAME:TARGET%は不敵に微笑んでいる……
	ENDIF
ELSE
	IF COND("夏")
		PRINTFORML 「あー、日差しが鬱陶しい。%CNAME("二人称")%、暗幕を二重に用意する気はないかい？」
		PRINTFORML %CALLNAME:TARGET%は半ば本気の雰囲気だ……
	ELSE
		PRINTFORML 「ふむ……少しカラダがうずうずしてるな……%CNAME("二人称")%、ちょいと運動に付き合う気はないかい？」
		PRINTFORML 「ないなら一人で外に行って、ちょいと個人的に発散してくるけど」
		PRINTFORML わざとか素なのか、言葉が足りない気がする……
	ENDIF
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K53
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	PRINTFORML 「……くー……んが……」
ELSEIF RAND:2
	PRINTFORML 「……やぁん、もぉ……」
ELSE
	PRINTFORML 「……だれぇ……？」
ENDIF

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;ARGSの各CASEでの分岐において、ARGSの文字列後半に ：地の文前 を追加する事で地の文前に喋らせることもできる。
;また、そこでTFLAG:地の文スキップ = 1 とすると、本来出て来る地の文を飛ばすこともできる
;CASE "掀起裙子"の地の文の前に喋らせたりスキップさせたい場合にはCASE "掀起裙子：地の文前"を用意すればよい
;例）CASE "掀起裙子：地の文前"
;		PRINTW 試しにスキップ
;		TFLAG:地の文スキップ = 1
;-------------------------------------------------
@KOJO_DAILYCOM_K53, ARGS
;打招呼
#DIMS GREETING
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨。TFLAG:地の文スキップ = 1とすると地の文をスキップ出来ます
CASE "Ｈ目的で呼び出された"
	;台詞を書いたらRETURN 0 を消してください
	IF PLACE("情人旅館")
		PRINTFORMW 『ん、今日はホテルを取ってくれるのかい？』
		PRINTFORMW 『いいとも、よろこんで。片刻后待っていてくれたまえよ』
	;做爱房
	ELSE
		PRINTFORMW 『ん、今からかい？ わかった、ゆっくり待っていてくれたまえ』
	ENDIF
CASE "学園での日常"
	IF TALENT:恋慕 == 0 && CEVENT("学園：日常１") == 0
		PRINTFORMW 『そういやさ、最近アイツ見ないよな……』
		PRINTFORMW 『あぁ、アイツね……そういやどうしたんだろうな』
		PRINTFORMW 『まあ、平和でいいけどさ……』『あぁ、そうだな……』
		PRINTL
		CALL EMOTION_PLUS, "夸奖", TARGET
		PRINTFORMW 「やあやあ！ 你たち%CNAME("一人称")%のことを呼んだかい！」
		PRINTFORMW 『い、いや……呼んでねっすけど……』
		CALL SET_CEVENT, "学園：日常１"
	ELSEIF CHECK_SKIRT("超短迷你") && EQUIP:胖次 && CEVENT("学園：超短迷你１") == 0
		PRINTFORMW 『わ、裙短っ。梅普尔桑もやっぱそういうの履君だ……』
		CALL EMOTION_PLUS, "無口系", TARGET
		PRINTFORMW 「む？ 日本の女学生にそう言われるのはなんだか意外だね」
		PRINTFORMW 『え、なに。こっちの女子そういうイメージなの？』
		PRINTFORMW 「無論だ。……まあ、この国に露脐装超短裙ブームを持ち込んだのもウチの国なんだけどね」
		PRINTFORMW 『へ？ そうなの？』
		PRINTFORMW 「そうだよ。90年代に我が国の女優が来日してね……」
		CALL SET_CEVENT, "学園：超短迷你１"
	ELSEIF CFLAG:便当 && CEVENT("学園：便当１") == 0
		CALL EMOTION_PLUS, "夸奖", TARGET
		PRINTFORMW 「ふっふふ～ん♪ 今日のお昼は楽しみだねぇ……」
		PRINTFORMW 『あれ、梅普尔桑。それ便当？ 珍しいね』
		PRINTFORMW 「あぁ、気付いてしまったかい？ むふふ、何を隠そうこれはアイサイ・ベントーというヤツだよ！」
		PRINTFORMW 『アイサイ……ってことは何？ また恋人できたの？』
		PRINTFORMW 「またという言い方はやめたまえ。今回ばかりはホンキだよ！ 見たまえこのケツイのアカシを！」
		PRINTFORMW 梅普尔は勢いよく弁当箱の蓋を開け放った！
		PRINTFORMW 『んん……？ あ、なぁんだ。何かと思ったら三明治イッ……チ……？』
		PRINTFORMW 挟まれた具を覗き込むと、同班同学は固まってしまった……
		CALL SET_CEVENT, "学園：便当１"
	ELSEIF COND("陰毛") && COND("陰毛") <= 3 && CEVENT("学園：白虎１") == 0
		CALL EMOTION_PLUS, "憤怒", TARGET
		PRINTFORMW 「……んん？」
		PRINTFORMW 「おおい、誰だね！ こんなところに陰毛を落としていった輩は！」
		PRINTFORMW 梅普尔が声を给と空気が一変し、クラス中のどよめく視線が彼女に集まった……
		PRINTFORMW 『ちょ、ちょっと梅普尔酱っ。大声でなんてこと言ってるのっ』
		PRINTFORMW 同班同学が駆け寄って小声で止めようとするも、梅普尔は構わず捲し立てる。
		PRINTFORMW 「まったく、嘆かわしいことだね。你ら青年にはもっとムダ毛処理に関心を持ってもらいたい」
		PRINTFORMW 「見たまえこの情けない縮れ毛を。コレの持ち主は手入れもせずに伸ばしっぱ无にしているのは明らかだ」
		PRINTFORMW 「体毛を整えることは衛生面の改善にも繋がるし、partnerのカラダを煩わしくチクチク刺激させずに済むんだ」
		PRINTFORMW 「股下ボーボーでチンカスだらけの男を好む女性が、你ら一般男性の前に都合良く転がり出てくるなんてエロ同人じゃあるまいし――」
		PRINTFORMW 『わ、わかったわかった。わかったから、ね？ もう良いでしょ、梅普尔酱』
		PRINTFORMW 『それにほら、その……毛が、誰のものかなんてわかんないんだしさ』
		PRINTFORMW 「どう見たって男のじゃないか。見ればなんとなくわかるだろう、ほれ」
		PRINTFORMW 『いやーっ！ こっち近づけないでー！』
		PRINTFORMW 梅普尔と同班同学がキャイキャイと騒ぎ立てる中、クラスの男子達は気まずそうに目を伏せていた……
		CALL SET_CEVENT, "学園：白虎１"
	ELSEIF CFLAG:Ｖ已中出 && CEVENT("学園：中出し１") == 0
		PRINTFORMW 『ねえ、まだー？』
		CALL EMOTION_PLUS, "红潮恍惚", TARGET
		PRINTFORMW 「もう少し待ってくれたまえ！ まだちょっと垂れてくるんだ！」
		PRINTFORMW 『そこまで言わなくていーい！』
		PRINTFORMW 「なんだい、この国の女学生は校内で生理用品を投げ合うくらいには開放型だと聞いていたんだけどねえ」
		PRINTFORMW 『それは女子校でしょー！』
		PRINTFORMW 「ああ、そう。まあいい、全部垂れ流すから待っててくれ」
		PRINTFORMW 『だから言わなくていーい！』
		PRINTFORMW （なんだい、%CNAME("一人称")%だって精液漏れを生理と偽る程度の良識はあるんだけどねえ）
		PRINTFORMW 小さく独り言を漏らし的同时、%CALLNAME:TARGET%は暢気に精液を掻き出していた……
		CALL SET_CEVENT, "学園：中出し１"
	ELSEIF COND("身嗜み：Ｖ拡張") && CEVENT("学園：Ｖ振動棒１") == 0
		PRINTFORMW 『……なあ。今日のアイツ、なんか色っぽくね……？』
		PRINTFORMW 『あ、你もそう思ってた……？ 黙って座ってるだけなのに、なんか……な』
		PRINTFORMW 『おいオマエら正気かよ？ アイツだぞ？』
		PRINTFORMW 『わかってっけどさぁ……なんか違うんだよ、今日のアイツ……』
		PRINTFORMW 『だよなぁ……なんだろうなぁ……俺らがおかしくなったのか……？』
		PRINTL
		CALL EMOTION_PLUS, "斜眼/躁动难忍", TARGET
		PRINTFORMW （ふふふ……素晴らしい娯楽を提供してくれたねえ、\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%）
		PRINTFORMW %CALLNAME:TARGET%はクラスの男たちの視線と、膣に仕込まれた振動棒の振動に密かに身震いをしていた……
		CALL SET_CEVENT, "学園：Ｖ振動棒１"
	ENDIF
CASE "お仕事"

CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"

	;地の文の前の台詞がある場合はここに書く
	SELECTCASE SAVESTR:現在位置
	CASE "阵雨"
		PRINTFORMW 「おぉーい、%CNAME("主人")%クーン。悪いがちょっとエス外套してくれないかねー」
	ENDSELECT

	;地の文を出す
	CALL DAILY_MESSAGE, "归途"

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		IF CEVENT("相合傘：初回") == 0
			PRINTFORMW 「それにしてもこの国の雨は大げさに降るねえ。ウチの国は基本雲がかかっているのは確かではあるんだけど」
			PRINTFORMW 「雨の降り方に関しては対して大げさじゃないんだ。だからいちいち傘を持ち出すのも面倒でね」
			PRINTFORMW 「なもんで、雨の日にはもっぱら风衣外套を着るんだ。無論%CNAME("一人称")%もそうしていた」
			PRINTFORMW 「が、この国の気候が相手では些か心許無い。おかげですっかり风衣外套の世話にはならなくなってしまったよ。ははは」
			CALL SET_CEVENT, "相合傘：初回"
		ELSEIF RAND:2
			PRINTFORMW 「いやぁ、どうにも傘は好きになれなくてね。ほら、語源からして“かさばる”というだろう？……違うか」
		ELSE
			PRINTFORMW 「ふふ……悪くないひとときだ。ね、腕を組んでも構わないだろう？」
		ENDIF
	CASE "内衣選び", "泳装選び"
		PRINTFORMW 「おぉい！ %CNAME("二人称")%もコッチ来了まえよ！」
		PRINTFORMW 「%CNAME("二人称")%のために選んでやってるようなものなんだから、ほら！」
		PRINTFORMW %CALLNAME:TARGET%は周りの目も気にせず、大声で%CALLNAME:MASTER%を呼んでいる……
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏", "買食物", "物色游戏"
		PRINTFORMW 「ほらほら、もっとくっつきたまえよ%CNAME("二人称")%」
		PRINTFORMW 「%CNAME("一人称")%は周りに見せつけたくて仕方がないんだ。構わないだろう？」
	CASE "检查新刊", "站着读书"
		IF CEVENT("站着读书：初回") == 0
			PRINTFORMW 「……ん、読めるのかって？ 今さらだな%CNAME("二人称")%」
			PRINTFORMW 「もうイギリスよりも日本暮らしの方が長いんだ。国語の点数だって同班同学に負けてないよ」
			PRINTFORMW 「ま、それでもやはり日本語は強敵だけどね。特に淫語や罵倒語は巧妙に秘するようなニュアンスで、圆圈で暗号带污迹的た……」
			PRINTFORMW %CALLNAME:TARGET%の長話が始まった……
		ENDIF
	CASE "繞道"
		PRINTFORMW 「ふふ……%CNAME("一人称")%らは闲を作れる人类だということが再確認できるねえ、%CNAME("主人")%君」
		IF COND("成績：赤点", MASTER)
			PRINTFORMW 「日々の生活はもちろんのこと、学業に関しても問題はなく……」
			PRINTFORMW 「……ん？ なんだい%CNAME("二人称")%、その顔色は」
		ENDIF
	CASE "直帰"
		IF CEVENT("直帰：初回") == 0
			PRINTFORMW 「……世は並べて事も无……」
			PRINTFORMW 「というのは、元はイギリスの詩人、ロバート・胸罩ウニングの言葉だ。聞いたことはあるかな？」
			PRINTFORMW 「これを書いたロバートは、何も日本の歌人みたく归途の空を眺めながら何気なく歌ったわけではない。たぶんね」
			PRINTFORMW 「あくまでこれは自己的長編詩劇“ピッパが通る”の一節で有、短歌というわけではないのだが……」
			PRINTFORMW 「それにしても上田敏氏の和訳の見事なこと。口ず桑でいてとても心地が良い。%CNAME("一人称")%も気に入ってるよ」
			PRINTFORMW 「ま、上田氏の和訳は正確には“すべて世は事も无”らしいが。そこはそれ、好みの差ということで」
		ELSEIF COND("成績：学年上位", MASTER) + COND("成績：優秀", MASTER)
			PRINTFORMW 「へえ？ %CNAME("二人称")%、そんなに学業の成績が優秀なのかい」
			IF COND("成績：学年上位") + COND("成績：優秀")
				PRINTFORMW 「ふふふ。%CNAME("一人称")%の傍らに立つ者として申し分ないね。嬉しいよ」
			ELSE
				PRINTFORMW 「%CNAME("一人称")%の方は最近身が入ってなくてねえ。ちょいと助けてもらってもいいかい？」
			ENDIF
		ELSEIF COND("成績：赤点", MASTER)
			PRINTFORMW 「……ところで%CNAME("二人称")%、最近学業に励んでる様子が見受けられないんだが、どうなんだい？」
			PRINTFORMW 「あ、いま目を逸らしたね？ 流石に%CNAME("一人称")%も見逃せないよ。フリでもいいから頑張りたまえ」
		ELSE
			PRINTFORMW 「ふふ……世は並べて事も无、と」
			SIF RAND:5 == 0
				PRINTFORMW 「日本人はこれの前の言葉を改髪するのが好きだよねえ。%CNAME("一人称")%はやはり“泥棒は影に在り”が好きかな」
		ENDIF
	CASE "圣诞节前夕"
		PRINTFORMW 「We Wish You a Merry Christmas……ふふ、意味はもちろんわかるよね？」
		IF TALENT:恋慕
			PRINTFORMW %CALLNAME:TARGET%は悄悄的%CALLNAME:MASTER%に寄り添った……
			PRINTFORMW 「%CNAME("二人称")%だけの誘いを待っているよ」
		ELSE
			PRINTFORMW 「せっかくだし、今年は%CNAME("一人称")%と一夜を過ごしてみないかい？」
			PRINTFORMW 「ふふ……せいぜい愉快な年末にしてあげよう。いつでも連絡をくれたまえ」
		ENDIF
	CASEELSE

	ENDSELECT

;归途イベントの後になんとなく情人旅館に行こっかとなった際のセリフです
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "放課後Ｈ的邀请"
	IF TALENT:恋慕
		PRINTFORMW 「ふふ……なあ、今日はもう少し遅れて帰ろうよ……」
	ELSE
		PRINTFORMW 「さて、このまま返回のも味気ないと思わないかい？ \@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%」
	ENDIF

;お浴室に一緒に入ろうと誘われた場合。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "一緒にお浴室"
	IF PENIS(MASTER)
		IF TALENT:MASTER:阴茎 >= 2
			PRINTFORMW 「いやしかしね、日本人のモノは小さくて硬いとかいう評判が定着しているが」
			PRINTFORMW 「やはり所詮は個人差の世界だね。%CNAME("二人称")%のはまったく健壮的よ。ふふふ」
		ELSEIF TALENT:MASTER:阴茎 == 0
			PRINTFORMW 「……ふ、ふふふ……」
			PRINTFORMW 「いや、失礼……ふふ……いや、ホントに笑っちゃうんだぁ……ははは」
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の阴茎を見るなり笑いを堪えている……
		ELSE
			PRINTFORMW 「さて、なんなら代わりに%CNAME("一人称")%のカラダを洗ってくれるかい？ %CNAME("二人称")%」
			PRINTFORMW 「下手くそなやり方でなければ、好きなように洗って構わないよ。どうだい？」
			PRINTFORMW %CALLNAME:TARGET%は挑衅的目で%CALLNAME:MASTER%を見ている……
		ENDIF
	ELSE
		IF TALENT:MASTER:巨乳
			PRINTFORMW 「ほほう、大した発育の良さだ……流石はミス・%CNAME("主人")%と言うべきか」
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の胸を興味深そうに揉みしだいている……
		ELSEIF TALENT:MASTER:貧乳
			PRINTFORMW 「いやはや、噂街道日本女性の慎ましやかなこと……いや、これはこれで愛らしいね」
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の胸を撫で回して悦に浸っている……
		ELSE
			PRINTFORMW 「さて、ミス・%CNAME("主人")%？ 良ければ日頃の労をねぎらうためにカラダを洗って差し上げようじゃないか」
			PRINTFORMW %CALLNAME:TARGET%は笑颜と%CALLNAME:MASTER%に迫ってくる……
		ENDIF
	ENDIF

;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "休憩"
	;台詞を書いたらRETURN 0を消してください
	;RETURN 0
	IF PLACE("自宅")
		IF COND("夜")
			;欲求不満の限界
			IF BASE:欲求不満 >= 100
				PRINTFORMW 「おいおい%CNAME("二人称")%、ホンキで寝るつもりかい？」
				PRINTFORMW 「……ま、好きにすればいいよ。さすがの%CNAME("一人称")%も睡眠を妨げようというのは忍びないからね」
				PRINTFORMW %CALLNAME:TARGET%は溜め息混じりに背を向けた……
				PRINTFORML ……那么要怎么做呢？
				CALL PRINT_SELECT, "推倒在床上！/晚安"
				IF RESULT == 0
					PRINTFORMW 「おぉ、っとぉ？」
					PRINTFORMW 「なんだいもう……最初からそう言いたまえよ」
					PRINTFORMW %CALLNAME:TARGET%は開心地%CALLNAME:MASTER%と唇を重ねた……
					TFLAG:床イン = 1
				ELSE
					PRINTFORMW 「……休息」
					PRINTFORMW %CALLNAME:TARGET%は少し寂しそうだ……
				ENDIF
			ELSE
				PRINTFORMW 「む。%CNAME("二人称")%もそろそろ休息かい」
				PRINTFORMW 「では%CNAME("一人称")%もそうするか……また明日ね、%CNAME("主人")%」
			ENDIF
		ELSE
			PRINTFORMW 「今日は何も予定はないのかい？」
			PRINTFORMW 「そうか……では何か游戏でもしようかな……うーん」
			PRINTFORMW %CALLNAME:TARGET%は闲つぶしを探し始めた……
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		PRINTFORMW 「ふぅむ……今日の午後はゆっくり過ごすとするか」
		PRINTFORMW 「%CNAME("主人")%、茶のおかわりを頼んでもいいかい？」
	;場所移動後
	ELSE
		PRINTFORMW 「なni↘！ %CNAME("二人称")%、ここまで来て返回つもりかい！」
		PRINTFORMW 「芸人でも无、上げて落とすなんてしなくていいんだよ！ こら、待ちたまえ！」
	ENDIF

CASE "清洁口交：お誘い"
	PRINTFORMW 「こぉら%CNAME("二人称")%、待ちたまえよ。なんだねこのだらしない%TEXTS("气味")%は」
	PRINTFORMW 「ほら、少しじっとしていたまえ……」
CASE "清洁口交：射精後"
	PRINTFORMW 「んっ……ふふふ……だらしないぞ、%CNAME("主人")%君……？」
CASE "清洁口交：断った"
	PRINTFORMW 「……ふぅん？ 他ならぬ%CNAME("二人称")%がそういうなら別に構わないがね……」
CASE "清洁口交よりＶ性処理"
	PRINTFORMW 「ふふふ……そうかいそうかい。いいだろう、すぐに準備して给よ……」
CASE "清洁口交よりＡ性処理"
	PRINTFORMW 「やや、尻かい？ まったく、しょうがないヤツだな%CNAME("二人称")%は……」
;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;口上を書いた場合はRETURN 0を消してください
	;RETURN 0
	PRINTFORM 「さて？ \@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%。
	;場所で分岐させる？
	SELECTCASE SAVESTR:現在位置
	;MASTERの性別に対応した廁所に呼び出される
	CASE "男子廁所"
		PRINTFORMW 男子廁所に女を連れ込んだ姿を見られたとあっては一大事だよ」
	CASE "女子廁所"
		PRINTFORMW %CNAME("一人称")%らの密会を知られたとあっては明日から女生徒達の注目の的だ」
	;体育のある日限定
	CASE "体育倉庫"
		PRINTFORMW 老师がうっかり使いをここに寄越さないとも限らないよ」
	;体育か水泳のある日限定
	CASE "更衣室"
		PRINTFORMW ここなら授業の節目まで猶予があるかもしれないね」
	;房顶or人迹罕至的教学楼后侧or部室
	CASEELSE
		PRINTFORMW 他に誰がサボりにやってくるかもわからないからね」
	ENDSELECT
	PRINTFORMW 「い移開にせよ、手早く済ませるとしようじゃないか」
	;何か発言してたらここまで
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1

	;PLAYで分岐させる？
	SELECTCASE NAMES("性処理")
	CASE "手淫"
		PRINTFORMW 「さ、%CNAME("二人称")%のモノを出したまえ。この手でさっくり済ませてあげよう」
	CASE "口交"
		PRINTFORMW 「さ、脱ぎたまえ。ホンキで吸い尽くして给よ……ふふ」
	CASE "乳交"
		PRINTFORMW 「ほら、もっと近寄って……そうだ、%CNAME("一人称")%の胸で挟んで给からね……」
	CASE "Ｖ性交"
		PRINTFORMW 「ほぉら、おいで……%CNAME("一人称")%の方はもう準備ができてるよ……」
	CASE "Ａ性交"
		PRINTFORMW 「ほら、今日は特別にこっちを使っていいから……さ、おいで」
	CASE "尿道挿入"
		PRINTFORMW 「ふふ……今日はココを使ってみようか？ %CNAME("二人称")%だけの特別だよ」
	CASE "乳頭奸"
		PRINTFORMW 「ほら、%CNAME("二人称")%の大好きだ胸部だ……好きにぶち込んでくれて構わないんだよ……」
	CASE "奉仕舐陰"
		PRINTFORMW 「さ、脚を開いて。%CNAME("一人称")%が徹底的に可愛がって给からね……ふふ」
	ENDSELECT

	;何か発言してたらここまで
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1

	;避孕套を使う場合
	; IF TEQUIP:PLAYER:避孕套
	; 	PRINTFORMW
	; ELSE
	; 	PRINTFORMW
	; ENDIF
CASE "性処理：後"
	;口上を書いた場合はRETURN 0を消してください
	;RETURN 0

	;PLAYで分岐させる？
	SELECTCASE NAMES("性処理")
	CASE "手淫"
		PRINTFORMW 「むふふ……たっぷり手を汚してくれたねえ。ちょっとした乳搾り体験のようだ」
	CASE "口交"
		PRINTFORMW 「ん……ふふ……っ、どうだい？ 英国の二枚舌には敵わないだろう。はっはっは」
	CASE "乳交"
		PRINTFORMW 「おっほ、出た出た。胸で手早くイかされている様を見るのは愉快だね。ははは」
	CASE "Ｖ性交"
		CALL PRINT_STRW, @"「んっふ……_UH_ たっぷり出してくれたかい？ お疲れ様、%CNAME("主人")%君」"
	CASE "Ａ性交"
		CALL PRINT_STRW, "「あぁぁっ_UH_ っくぅ……まったく、尻で手早く済ませるというのは刺激的な体験だね」"
	CASE "尿道挿入"
		CALL PRINT_STRW, "「あ、あぁっ_UH_ っく……ふぅ、まったく……なんとも濃密な体験だね、こいつは」"
	CASE "乳頭奸"
		CALL PRINT_STRW, "「おほほ_UH_ おっ……あぁ、終わったねぇ。まったく刺激的なサボタージュだったよ。ふふふ」"
	CASE "奉仕舐陰"
		PRINTFORMW 「んっ……ふふ、ひくひくしているね。可爱%CNAME("主人")%」
	ENDSELECT
	IF COND("予鈴")
		PRINTFORMW 「っと、いけない。どうやらのんびり余韻に浸ってる闲はなさそうだ」
		PRINTFORMW 「悪いが%CNAME("一人称")%は先に行くよ。後のことはよろしく！」
	ELSEIF COND("授業中")
		PRINTFORMW 「では、しめやかに授業へ返回としよう。ボロは出さないよう……お互いにね」
	ELSE
		PRINTFORMW 「さて、そろそろ返回としようか。また後でね、%CNAME("主人")%君」
	ENDIF
	;何か発言してたらここまで
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1

	;避孕套を使う場合
	; IF TEQUIP:PLAYER:避孕套
	; 	PRINTFORMW
	; ELSE
	; 	PRINTFORMW
	; ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"

;この角色が点心当番で、その時間帯で部室に最初からいる時のセリフ
CASE "点心を用意した"
	;本日の点心はこの角色の亲手自制
	IF COND("亲手自制点心")

	ELSE

	ENDIF
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = こんばんは
	ELSEIF COND("昼")
		GREETING = こんにちは
	ELSE
		GREETING = おはよう
	ENDIF

	SELECTCASE STR:日常イベント名
	CASE "打招呼ハグ"
		PRINTFORMW 「やあやあ、これはどうも。嬉しいよ、%CNAME("主人")%君」
	CASE "打招呼接吻"
		PRINTFORMW 「んっ……ふふ、どうも。%CNAME("主人")%君」
	CASE "打招呼口交", "打招呼舐陰"
		PRINTFORMW 「わっ……ふふふ……なかなか元気な打招呼じゃないか、%CNAME("主人")%君」
	CASEELSE
		;你に先に打招呼をされた
		IF CFLAG:打招呼した == 0
			PRINTFORMW 「む。%GREETING%%CNAME("主人")%君」
		ELSE
			PRINTFORMW 「やあ、%GREETING%%CNAME("主人")%君」
		ENDIF
	ENDSELECT
CASE "叫醒"
	PRINTFORMW 「んん～……なんだい、無粋な……少しは気を利かせてくれたまえよ……」
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	PRINTFORMW 「んん～……いかん。柄にもなくハメを外し過ぎたか……」
	PRINTFORMW 「すまないが部屋に戻らせてもらうよ……ふぁ～あ……」
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW 「ふぅ……もう十分裸体は堪能したろ？」
	PRINTFORMW 「これ以上見たかったら%CNAME("一人称")%を床にでも邀请ことだね」
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW 「ふぅー……ちょいと失礼するよ、%CNAME("主人")%君」
	PRINTFORMW 「ちょいと服が煩わしくなってきてしまった。ふふふ」
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW 「あぁ～最高にきもちぃ～。恥も外聞もクソっくらえだぁ～」
CASE "Talk"
	SELECTCASE STR:日常イベント名
	;これはCSTR:点心 に亲手自制属性のものが設定されている時のみ
	CASE "夸奖点心"
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K53, %ARGS%, %STR:日常イベント名%
		[ENDIF]
	CASE "夸奖"
		PRINTFORMW 「むふふ。なんだい、急におだてて。言われるまでもないよ」
	CASE "甜言蜜语"
		IF TALENT:恋慕
			PRINTFORMW 「あぁ……ふふ。%CNAME("二人称")%の言葉は魔法のようだね」
			PRINTFORMW 「もっとその耽美な言葉を聞かせておくれよ、%CNAME("主人")%君」
		ELSEIF CALCF("甜言蜜语成功")
			PRINTFORMW 「……ほほう？ なかなかやるね、\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%」
			PRINTFORMW 「今のはけっこう心をくすぐられたよ。ふふ……また言ってほしいな」
		ELSE
			PRINTFORMW 「ふぅん？ そのチャレンジ精神は買ってあげよう」
			PRINTFORMW 「が、まだまだだね。もっと精進したまえ」
		ENDIF
	CASEELSE
		IF RAND:2 && CEVENT("Talk：探偵クイズ正解") == 0
			PRINTFORMW 「さて。ここで探偵クイズだ、%CNAME("主人")%君」
			PRINTFORMW 「次のうち、イギリス出身の探偵ではないのはどれ？」
			CALL PRINT_SELECT, "シャーロック・ホームズ/棕色神父/エルキュール・ポアロ/ミス・マープル/全員イギリス人"
			SELECTCASE RESULT
			CASE 0
				PRINTFORMW 「おいおい、%CNAME("二人称")%？ ホンキでそう言ってるなら、ずいぶんと申し訳ないことをしたね」
				PRINTFORMW 「今度一緒に図書館にでも行こうか？ ホームズシリーズくらい置いてあるだろう」
				PRINTFORMW 「%CNAME("二人称")%に推理小説の世界、その元祖を教えてあげようじゃないか」
			CASE 1
				PRINTFORMW 「残念。この四人の中では毛色が違うように見えるが、少なくともイギリス人であるのは確かだ」
				PRINTFORMW 「余談だが、“木を隠すなら森の中”という言葉は当然知っているよね？」
				PRINTFORMW 「諸説あるが、この言葉を初めに使ったのは棕色神父だというウワサもある」
				PRINTFORMW 「短編集一作目、棕色神父の童心“折れた剣”だ。興味があったら読んでみたまえ」
			CASE 2
				PRINTFORMW 「うんうん、正解だ。作者のアガサ・メアリ・クラリッサ・阴蒂スティ氏はれっきとしたイギリス人だが」
				PRINTFORMW 「当のエルキュール・ポアロはベルギー出身、第一次世界大戦中にイギリスに亡命してきた」
				PRINTFORMW 「那之后、旧友のアーサー・ヘイスティングズ大尉と再会し、共にス領帯ルズ荘の怪事件に臨んだというわけだね」
				PRINTFORMW 「原作はもちろん、テレビドラマ“名探偵ポワロ”シリーズの存在も欠かせない。機会があれば一緒に見ようか？」
				CALL SET_CEVENT, "Talk：探偵クイズ正解"
			CASE 3
				PRINTFORMW 「残念、ミス・マープルはロンドン近郊の片田舎出身……つまりイギリス人だ」
				PRINTFORMW 「エルキュール・ポアロと同じく、彼女もアガサ・阴蒂スティ氏の生み出した人物として有名だね」
				PRINTFORMW 「モデルは阴蒂スティ氏の祖母というウワサだが、果たしてお祖母様は辛辣なのか温厚なのか、どちらだろうね？」
				PRINTL
				PRINTFORMW 「……ちなみにミス・マープルは%CNAME("一人称")%のご先祖様だ、と言ったら信じるかい？ ふふふ」
				PRINTFORMW 「無論冗談だ、名前が似てるだけだよ。%CNAME("一人称")%みたいなヤツが子孫なんて、世界中からヒンシュクを買っちまう」
				PRINTFORMW 「いつになくつまらないジョークを言ってしまったね。どうか忘れてくれたまえ」
			CASEELSE
				PRINTFORMW 「おっと残念、酱とイギリス出身でない探偵がいるよ」
				PRINTFORMW 「そうだね……ヒントをあげようか。“作者は確かにイギリス人だけど”……」
				PRINTFORMW 「これでわかったかな？ それじゃ、また今度挑戦してくれたまえ」
			ENDSELECT
		ELSEIF CEVENT("Talk：心霊クイズ正解") == 0
			PRINTFORMW 「さて、人外集うこの学園ならではのクイズといこうか」
			PRINTFORMW 「次のうち、心霊スポットでないのはどれ？」
			CALL PRINT_SELECT, "バー阴蒂ー・スクエア50番地/ブリッ阴蒂ング・ホール/ロンドン塔/ボーリー牧師館/すべて心霊スポット"
			SELECTCASE RESULT
			CASE 0
				PRINTFORMW 「残念。知らない人が聞けばただの住所だろうけど、その筋では有名なホラースポットなんだよ」
				PRINTFORMW 「時は1859年、結婚を目前にここへ越してきたトーマス・マイヤーズ氏は、まもなく婚約者に振られてしまう」
				PRINTFORMW 「ショックを受けた彼は家中にろうそくを灯し、屋根裏部屋に引きこもるようになり、やがて死んでしまった」
				PRINTFORMW 「そして那之后、新たにそ的房間へやってきた住人達は次々と怪死していった、という哈娜シなわけだが……」
				PRINTFORMW 「とりわけその事例や幽霊の正体など、今じゃ様々な説が飛び交っていてね。興味があるなら自己調べてくれ」
			CASE 1
				PRINTFORMW 「残念、外れだ。流石にイングランド王家のエピソードまでは詳しくないかな？」
				PRINTFORMW 「かつてヘンリー8世の妃だったアン・ブーリンが生まれた場所……それがブリッ阴蒂ング・ホールだ」
				PRINTFORMW 「ヘンリー8世は周囲の反対を押し切り、強引な離婚をしてまで農家出身のアン・ブーリンと結婚」
				PRINTFORMW 「しかし那之后、彼女は反逆、姦通、近親相姦、及び魔女の容疑で斬首されたという」
				PRINTFORMW 「執行日は5月19日。それ以来、毎年この日のブリッ阴蒂ング・ホールには首无アンの幽霊がロンドン塔からやってくるとか」
				PRINTFORMW 「“1000日のアン”に聞き覚えはないかな？ 彼女が首を斬られるまでの人生を描いた歴史映画だ」
				PRINTFORMW 「興味があればホール共々調べてみるといい。いや%CNAME("二人称")%のことだ、気になるのはアン王妃の方かな？」
			CASE 2
				PRINTFORMW 「いやぁ、虽然很可惜違うな。ここは特にポピュラーなスポットなんだけどね……」
				PRINTFORMW 「ロンドン塔といえばその昔、監獄や処刑場として用いられたことで有名だ」
				PRINTFORMW 「無論処刑された人々の中には王侯貴族も数多くいるし、眉唾物のエピソードには事欠かない」
				PRINTFORMW 「の、で。ぶっちゃけて言えば英国先祖達の同窓会館みたいなものだ。特定のエピソードがないのも逆につまらんね」
				PRINTFORMW 「ま、手っ取り早く幽霊を見たけりゃ行ってごらん。%CNAME("二人称")%なら女の霊くらいサッ阴蒂見つけられるだろ」
			CASE 3
				PRINTFORMW 「残念。%CNAME("主人")%君には牧師館というのは馴带污迹的がなかったかな？」
				PRINTFORMW 「ボーリー牧師館とは、1863年に建設された牧師達の住宅だったのだが……これがまた凄まじいホットスポットでね」
				PRINTFORMW 「謎のベルの音にささやき声、修道女や馬車の幽霊――観測された怪奇現象は実に2000件近くにも及ぶとのウワサだ」
				PRINTFORMW 「曰く、そこにはかつて修道館が有、禁じられた恋に燃え上がる男女が駆け落ちをしていたというらしい」
				PRINTFORMW 「二人は悲運にも処刑され、その無念と共に幽霊となって牧師館に現れていたのだ……という哈娜シらしいが」
				PRINTFORMW 「1939年には焼失、5年後には撤去されてしまった。真相は闇の中だね」
			CASEELSE
				PRINTFORMW 「ふふ、正解だよ。今の答えが逆張りでないのなら、%CNAME("二人称")%もなかなかの好き者桑だね」
				PRINTFORMW 「イギリス人というヤツは茶とジョークと考察と、ついでにオカルトも好きな連中の集まりでね」
				PRINTFORMW 「幽霊に住民票を出す国としても有名だ。ま、この国も动画角色に住民票を出してるだろ？ それとおんなじさ」
				CALL SET_CEVENT, "Talk：心霊クイズ正解"
			ENDSELECT
		ELSEIF CEVENT("Talk：ネタ切れ") == 0
			PRINTFORMW 「……ん？ なんだい、その点心を心待ちにするような子犬の目は」
			PRINTFORMW 「クイズならもうないよ。%CNAME("一人称")%もそこまで雑学博士じゃあないんだ」
			PRINTFORMW 「今後何か思いつかないこともないかもだけど……ま、期待はしないでくれたまえ。普通にめんどくさい」
			CALL SET_CEVENT, "Talk：ネタ切れ"
		ELSE
			PRINTFORMW 「……なんだか%CNAME("一人称")%ばかり話しているんじゃないかと気付きだしてきた」
			PRINTFORMW 「%CNAME("二人称")%、たまには何か話してくれたまえよ。聞き手ばかりに回るのはズルいぞ」
		ENDIF
	ENDSELECT
;TFLAG:取引拒否 = 1とすることで、你のたわごとを却下できます
CASE "Ｈ的約定"
	;台詞を書いたら下のRETURN 0を消してください
	;RETURN 0
	;この角色自身が前回赤点で、それどころではない（学生以外は、この分岐には来ません）
	IF COND("成績：赤点")
		PRINTFORMW 「いやぁ、すまないね。今日に限っては%CNAME("二人称")%の戯言に付き合っている闲はない」
		PRINTFORMW 「そういうのは今度の試験が滞りなく終わったらにしてくれたまえよ」
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			PRINTFORMW 「ほう？ そいつは結構なことだが……しかし%CNAME("二人称")%には些かカンタン過ぎる游戏じゃないかい？」
			PRINTFORMW 「せめてハードルは上げさせてもらわないと、%CNAME("一人称")%としても面白くはない」
			PRINTFORMW 「トップ10だ。この学園の並み居る猛者たちを薙ぎ倒すことで、%CNAME("一人称")%への愛を示してみたまえよ。ふふふ」
		;そうでない場合には平均点を結構上回る程度でＯＫです
		ELSEIF COND("成績：赤点", MASTER)
			PRINTFORMW 「…………」
			PRINTFORMW 「あっはっはっはっはっは！ 面白色冗談を言うねえ！ 流石は\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%だ！」
			PRINTFORMW 「いいだろう。底辺からの逆転劇は日本の創作にはつきものだ。せいぜいちょっとしたドラマを見せてくれたまえよ」
			PRINTFORMW 「大丈夫、日本の創作みたいに『一番以外は認めない！』なんて無体なことを言うつもりはないから。人並みに頑張ってね」
		ELSE
			PRINTFORMW 「お、なんだい。%CNAME("二人称")%にしてはやたらカワイイことを言うじゃないか」
			PRINTFORMW 「いいだろう。%CNAME("二人称")%が%CNAME("一人称")%のために一途に頑張る姿に心を躍らせるのも悪くない」
			PRINTFORMW 「今度の試験、楽しみにしているからね。ふふふ……」
		ENDIF
	ENDIF
CASE "拭汗"
	PRINTFORMW 「おぉぉ、愛すべき%CNAME("主人")%よ……%CNAME("二人称")%の愛の献身に感謝を……」
	PRINTFORMW 「ほら、もっと小心地拭いておくれ……大丈夫だ、多少の過激な奉仕は許すさ……」
CASE "淋浴独り言"
	;PRINTFORMW
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		PRINTFORMW 「やれやれ……日本に大怪盗は动画の世界にしか存在しないね」
		PRINTFORMW 「次からはもう少し証拠隠滅に力を入れたまえよ、我らが怪盗\@ TALENT:MASTER:男性 ? 紳士 # 淑女 \@君？」
	ELSE
		PRINTFORMW 「お、なんだ%CNAME("二人称")%かい。来ていたなら声くらいかけても良かったんだよ」
		PRINTFORMW 「というか、%CNAME("二人称")%なら現場に押しかけるくらいはすると思っていたんだけど……ふむ……」
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW 「や。これ見よがしに置いてあったが、これでいいのかい？ \@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%」
		PRINTFORMW 「放っておいたらこの衣装が君の声で恨み節を唱えだすんじゃないかと思ってね。%CNAME("一人称")%の優しさに感謝したまえ」
	ELSE
		PRINTFORMW 「や。おなじみ梅普尔のリクエストコーナーだ」
		PRINTFORMW 「今日もキマってるだろう？ せっかく着てやったんだから%CNAME("一人称")%が満足するまで夸奖ように」
	ENDIF

CASE "淋浴後换装失敗"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW 「……うん？ なんだいその顔」
		PRINTFORMW 「%CNAME("二人称")%の用意した衣装なら置いたままにしてあるから、勝手に回収しておいてくれたまえよ」
	ELSE
		PRINTFORMW 「おぉい、何度も余計な服を置いておかないでくれないか。普通に邪魔なんだけど」
	ENDIF

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K53
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "一起学习"
		IF TALENT:MASTER:聰慧
			PRINTFORMW 「いやぁ、さすが学園きってのお貴族様だね。きちんと教養も抑えている」
			PRINTFORMW 「ハーレムの一員として、%CNAME("一人称")%も哈娜が高いよ」
		ELSEIF TALENT:MASTER:笨蛋
			PRINTFORMW 「……いやね。この国には“バカな子ほどカワイイ”と“カワイイは正義”なるスラングがあることは知っているけども」
			PRINTFORMW 「%CNAME("二人称")%が件の\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%じゃなかったら、少なくとも%CNAME("一人称")%は知らんぷりするよ」
		ELSE
			PRINTFORMW 「いやぁ、ヤリサーの長から真面目に勉強に誘われるとはなんのジョークかと思ったよ」
			PRINTFORMW 「なんだか変わっているよね。%CNAME("二人称")%が、というより、この部の雰囲気が」
		ENDIF
	CASE "托一托胸部"
		PRINTFORMW 「おっほほ。%CNAME("二人称")%もやっぱり好きだねえ」
		SIF TALENT:巨乳
			PRINTFORMW 「好きなだけ堪能していいよ。うんざりするほど重量感たっぷりな%CNAME("一人称")%の胸をね」
	CASE "按摩"
		IF COND("欲求不満") && RAND:3 == 0
			CALL PRINT_STRW, @"「おっほ_UH_ すばらしい手付きだ……あぁ、もっと強くしてくれ……」"
			PRINTFORMW %CALLNAME:TARGET%は恍惚の息を漏らしながら続きをせがんでくる……
		ELSEIF RAND:2
			PRINTFORMW 「んっふ……%CNAME("主人")%直々のマッサージなんて、至福の極みだねぇ……」
			PRINTFORMW %CALLNAME:TARGET%は完全に脱力しきり、%CALLNAME:MASTER%の手に身を委ねている……
		ELSE
			PRINTFORMW 「あいててて。ちょっとやりすぎだよ%CNAME("二人称")%。もっと労ってくれたまえ……そうそう……」
		ENDIF
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「ふふ……このままいつまで続けようか……？」
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の手に悄悄的自分の手を伸ばした……
		ELSEIF RAND:2
			PRINTFORML 「おぉ……素晴らしい。%CNAME("二人称")%から仕掛けてくれるなんて」
			PRINTFORMW %CALLNAME:TARGET%は口を付けられた部位を指でなぞり、不敵に微笑んだ。
		ELSE
			PRINTFORML 「ん……ふふ……ちゅ……」
			PRINTFORMW %CALLNAME:TARGET%は目を細め、%CALLNAME:MASTER%と舌を絡ませ合う……
		ENDIF
	CASE "膝枕"
		IF TALENT:MASTER:男性
			PRINTFORMW 「いやね。日本には“逆張り”という言葉があるのは知っているが」
			PRINTFORMW 「まさかこういう意味でも使われるとは思わなかったなぁ。いやホント」
		ELSE
			PRINTFORMW 「ふふふ……素晴らしい。%CNAME("二人称")%の膝もなかなかの逸品だね」
			PRINTFORMW 「んー……あ、このまま寝入ってヨダレを垂らしてしまったらごめんよ……」
		ENDIF
	CASE "泡茶"
		PRINTFORMW 「おぉ、気が利くね。どうも有がとう」
	;CALL SET_CEVENT, "飲酒拒否"でお酒を飲まないようにできる。
	;このフラグはCALL DEL_CEVENT, "飲酒拒否"で消すことができる
	CASE "勸酒"
		PRINTFORMW 「お、酒かい？ そうかそうか、嬉しいねえ」
		PRINTFORMW %CALLNAME:MASTER%から杯を受け取ると、%CALLNAME:TARGET%は躊躇いなくクイっといった。
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "摸頭"
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「んん？ これはなんの真似だい？」
			PRINTFORMW %CALLNAME:TARGET%は不思議そうな目で頭に乗せられた手を見上げている……
		ELSEIF TALENT:恋慕
			CALL PRINT_STRW, "「ふふふ_UH_ ん～_UH_」"
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の手にすり寄っている……
		ELSE
			PRINTFORMW 「む。またかい……%CNAME("二人称")%もおかしなやつだ」
			PRINTFORMW %CALLNAME:TARGET%は怪訝そうな顔をしながらも、黙って%CALLNAME:MASTER%の手を受け入れている……
		ENDIF
	;胸元にチップを差し込まれます。兔女郎制服限定
	CASE "给小费"
		PRINTFORMW 「ん～♪ センキウ、\@ TALENT:MASTER:男性 ? ミスター # ミス \@」
		PRINTFORMW %CALLNAME:TARGET%は胸を揺らしてみせた……
	;送禮貰った感想です。何を貰ったか含め、好きに書いてください
	CASE "送一份小礼物"
		PRINTFORMW 「ん？ 小物の送禮かい？ ほぉ……いや、なんにせよ嬉しいねえ」
		PRINTFORMW 「有がとう%CNAME("主人")%。大事に使わせてもらうよ」
	CASE "送一份普通的礼物"
		IF CEVENT("送禮：ボード游戏")
			PRINTFORMW 「ほぉ、これは……ボード游戏の木製セットじゃないか」
			PRINTFORMW 「いやぁ、%CNAME("二人称")%のどこからこんなセンスが出てくるのか……ふふ」
			PRINTFORMW 「有がたく受け取るよ。機会があれば一緒に遊ぼうね」
			CALL SET_CEVENT, "送禮：ボード游戏"
		ELSEIF CEVENT("送禮：ビデオ游戏")
			PRINTFORMW 「お、今度はビデオ游戏かい。いいね、%CNAME("一人称")%も嫌いじゃないよ。有がとう」
			PRINTFORMW 「……ところで昔から気になっていたんだけどね。%CNAME("二人称")%らの国ではなんで“テレビ游戏”と言うんだい？」
			CALL SET_CEVENT, "送禮：ビデオ游戏"
		ELSE
			PRINTFORMW 「お、また游戏かい？ %CNAME("二人称")%からの送禮は无聊しないねえ」
			PRINTFORMW 「有がとう、%CNAME("主人")%。今度一緒に遊ぼうね」
		ENDIF
	CASE "送一份高价的礼物"
		PRINTFORMW 「あっはっは！ なんだいこのラベルは！ コイツは飲む宝石ってヤツだよ%CNAME("二人称")%！」
		PRINTFORMW 「いいだろう、他ならぬ%CNAME("主人")%様の贈り物だ。せいぜい下品に楽しむことにするよ。あーっはっはっは！」
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K53
	WAIT
CASE "被拒绝了学习的邀请"
	PRINTFORMW 「ん、なんだ乗り気じゃないかい。すまないね、邪魔をした」
CASE "勉強前に胖次要求"
	PRINTFORMW 「ははは、%CNAME("二人称")%らしい要求だ。もちろん構わないよ？」
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW 「おぉい、%CNAME("二人称")%！ これから入浴するつもりなんだけど、%CNAME("二人称")%もどうだい」
	CASE "Ｈ的邀请", "推倒"
		IF COND("欲求不満") >= 3
			PRINTFORMW 「%CNAME("二人称")%。%CNAME("一人称")%もね、そろそろ我慢の限界ってヤツなんだ。んん？」
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%に迫り、圧をかけている……
		ELSE
			PRINTFORMW 「なんだい、これ見よがしに無防備にしくさって」
			PRINTFORMW 「知ってるよ。誘い受けってやつだろ？ ふっふっふ……」
		ENDIF
	CASE "邀请学习"
		;胖次を要求した
		IF CHOSE_DEVENT("勉強前に胖次要求")
			PRINTFORMW 「うんうん、流石は%CNAME("主人")%だ。身の入り方が違うね」
			PRINTFORMW 「今まさに頭の中が胖次でいっぱいな\@ TALENT:MASTER:男性 ? 男性 # 女性 \@だとは思えないよ。あっはっは！」
		ELSE
			PRINTFORMW 「……ふぁ～あ……%CNAME("二人称")%、そろそろ休憩しないかい？」
			PRINTFORMW 「……なに？ もう{RAND:2 + 2}回目だって？ いいじゃないか、疲惫んだよぉ」
		ENDIF
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW 「ふふふ……どうだい、%CNAME("一人称")%らのショーは。気に入ってもらえたかな？」
		ELSE
			PRINTFORMW 「そぉら、%CNAME("二人称")%の愛しのアンダーウェアが呼んでるよ？ ふふふ」
		ENDIF
	CASE "清洁口交"
		PRINTFORMW 「まったく、相変わらずだらしない阴茎だ……ふふ。%CNAME("一人称")%が整えてあげよう」
	CASE "口淫"
		PRINTFORMW 「さ、動君じゃないよ。代わりに好きなだけ声をあげたまえ。んっ……」
	CASE "亲脸頬", "接吻"
		PRINTFORMW 「ふふ、すまないね。%CNAME("二人称")%の呆けた顔ときたら、挑発的でいけない」
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		IF RAND:2
			PRINTFORMW 「そぉら、よっと。ふふ……カラダが空いてるみたいだったのでね。構わないだろ？」
		ELSE
			PRINTFORMW 「まったく、%CNAME("二人称")%を見ていると黙っていられないな……ふふふ」
		ENDIF
	CASE "抚摸", "手淫"
		PRINTFORMW 「よぉしよし……ふふ、今どきの日本男児はヨシヨシに弱いと聞いたよ？」
	CASE "膝枕"
		PRINTFORMW 「どうだい？ %CNAME("一人称")%の膝の寝心地は」
		SIF TALENT:巨乳
			PRINTFORMW 「屋根もついてて便利だろう？ ふふふ」
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		PRINTFORMW 「%SAVESTR:茶%だよ。ちょいと一息つこうか、%CNAME("主人")%」
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW 「……なぁ%CNAME("二人称")%、元気かい？」
			PRINTFORMW 「いや、\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%ともあろうものがノーリアクションだと心配でね」
		ELSE
			PRINTFORMW 「ふぁ～あ、无聊だ……今日は\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%も店じまいかな……？」
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW 「なーあー、%CNAME("主人")%君～。遊ぼうよ～」
	PRINTFORMW 「性交でもなんでもいいからさぁ～。%CNAME("一人称")%泣いちゃうぞ～？」
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW 「お、なんだ。%CNAME("二人称")%も%TEXTR("大仕事でも済ませて/旧友と握手でもして")%きたかい？」
		ELSE
			PRINTFORMW 「ふぅー……いやはや、待たせたね」
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORM 「さてと、
		IF RAND:2
			PRINTFORMW 自然の呼び声に応えに行くとするかな」
		ELSE
			PRINTFORMW %TEXTR("ナンバーワン/庭に水やり")%でもしにいくか……」
		ENDIF
	ENDIF
CASE "廁所詮索"
	IF COND("身嗜み：自慰禁止")
		PRINTFORMW 「おぉい、あまり野暮なことを聞かないでおくれよぉ……」
		IF CEVENT("廁所詮索：自慰禁止初回") == 0
			PRINTFORMW 「いやね、元々一人玩耍は得意でもないつもりだったけどね」
			PRINTFORMW 「いざやっちゃダメだと言われると、なんだかミョーに切ない気分になってさぁ……」
			PRINTFORMW 「あぁいや、酱と言いつけは守ってるよ。ほんと」
			CALL SET_CEVENT, "廁所詮索：自慰禁止初回"
		ENDIF
		PRINTFORMW %CALLNAME:TARGET%はこれ見よがしに切ない顔をしている……
	ELSEIF COND("身嗜み：尿道拡張") && COND("身嗜み：Ｖ拡張") && COND("身嗜み：Ａ拡張")
		PRINTFORMW 「あぁ……ふっふっふ……いや、ちょっと手間取っていた」
		PRINTFORMW 「なんせフル装備だ。廁所で身動きを取るのにも一苦労なんだよ。ははは」
	ELSEIF COND("身嗜み：尿道拡張")
		PRINTFORMW 「いや、まあ廁所なんだがね」
		PRINTFORMW 「参ったもんだよ、尿が出ると尿道が酷く熱を持って……うーむ」
	ELSEIF COND("身嗜み：Ｖ拡張")
		PRINTFORMW 「いやぁーそれがねえ。まあ廁所なんだけど、結構大変なんだよ。」
		PRINTFORMW 「おしっこするとつい気が緩んで、ついでに振動棒も落としそうになる」
		PRINTFORMW 「そうなったら流石に事だろ？ ははは」
	ELSEIF COND("身嗜み：Ａ拡張")
		PRINTFORMW 「あぁ、まぁおしっこなんだけどー」
		PRINTFORMW 「錯覚なのかな。ついついクソもひり出そうとして踏ん張ってしまった。いやはや」
		PRINTFORMW 「大丈夫、塞子はささったままだよ。ついでにクソで汚してもいない。……はずだ、たぶん」
	ELSEIF COND("Ｖ不潔")
		PRINTFORMW 「ん、まぁ廁所だけどねえ……いやちょっとかゆくってさあ……」
		SIF COND("身嗜み：陰毛") == 7
			PRINTFORMW 「それに毛も伸ばし放題にしてるから、ますます熟成するものもあって……」
		PRINTFORMW 「あぁいや、%CNAME("二人称")%には野暮なことだったかな。すまないねえ……」
	ELSEIF COND("身嗜み：Ａ準備")
		PRINTFORMW 「あぁ、お尻の格子さ。%CNAME("二人称")%の言いつけ街道ね」
		PRINTFORMW 「いつでも気兼ねなく使えるようにしてあるからね。気軽に声をかけてくれたまえよ」
	ELSEIF COND("身嗜み：陰毛") == 7
		PRINTFORMW 「あぁ、陰毛をねえ。ちょいと気にかけていたんだよ」
		PRINTFORMW 「放置すると、思ったより内衣にスペースを開けてくれるもんだねえ……」
	ELSE
		PRINTFORMW 「んぁ？ 廁所だけど？」
		PRINTFORMW 「なんだい%CNAME("二人称")%、察しが悪いんだな」
		PRINTFORMW %CALLNAME:TARGET%は呆れたように肩を竦めた。
	ENDIF
;これは你と角色が両方男性の際に限り起きます
CASE "連れション"
	PRINTFORMW
;これは你と角色が両方男性でない際に限り起きます
CASE "廁所で井戸端会議"
	IF RAND:7 == 0
		PRINTFORMW 「あぁ！？ なんだこりゃ、紙が無いぞ！」
		PRINTFORMW 「おい、%CNAME("二人称")%！ そっちに紙は無いかい！ ちょっとこっちに分けてくれ！」
	ELSEIF COND("身嗜み：尿道拡張") && COND("身嗜み：Ｖ拡張") && COND("身嗜み：Ａ拡張") && RAND:2
		PRINTFORMW 「ちょっと待っててくれー！ すぐに出るからー！」
		CALL PRINT_STRW, @"「%TEXTR("あ、ふぅん……っ/おっ……ほぉっ/んっ……ふぅっ")%_UH_」"
		PRINTFORMW 何かを嵌め込むような異音と共に、%CALLNAME:TARGET%の嬌声が響いた……
	ELSE
		PRINTFORMW 「ふふふ……日本の女生徒の諜報活動は女子廁所がホットスポットだと聞いたよ」
		PRINTFORMW 「ささ、なにか有力な情報はないかい？ 言い値で買って给よ？ 気が向いたらね」
	ENDIF
;你に廁所を覗かれた！
CASE "廁所ハプニング"
	PRINTFORMW 「…………」
	PRINTFORMW 「いや、%CNAME("二人称")%。マジかい？」
;廁所ハプニングから派生するＨイベント
CASE "廁所Ｈ"
	SELECTCASE STR:日常イベント名
	CASE "廁所イベント：見せつけくぱぁ"
		PRINTFORMW 「ふふふ……毒を食らわば皿まで、というしね」
		PRINTFORMW 「ここまで来たらどこまで見られても一緒だ……そうだろ？」
	CASE "廁所イベント：相互自慰"
		PRINTFORMW 「んっ……ふふ……とんだサプライズ变成了ものだね、%CNAME("主人")%君……？」
	CASE "廁所イベント：口交"
		PRINTFORMW 「んぶっ……ん……く……ふぁ……」
		PRINTFORMW 「いやぁ、結果的に%CNAME("一人称")%が%CNAME("二人称")%の排尿を邪魔する形になってしまったね？ ははは」
	CASE "廁所イベント：Ｖ性交"
		PRINTFORMW 「あぁ……もう一度廁所しなくちゃならなくなった。ふふふ」
	CASE "廁所イベント：Ａ性交"
		PRINTFORMW 「あ、ふぅ……もう一仕事増えてしまった……」
	ENDSELECT
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K53
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「おいおい、言っておくけどイギリスには三顧の礼みたいな言葉はないからね」
			PRINTFORMW 「……いや、どうだったかな。忘れちまった……まあいいや。しっしっ」
		ELSE
			PRINTFORMW 「おっと、これは%CNAME("二人称")%勘違いをさせてしまった%CNAME("一人称")%のセキニンかな？」
			PRINTFORMW 「悪いがノーアポはご勘弁願いたい。紳士淑女のキホンのキだよ」
		ENDIF
	ELSE
		IF CHECK_STAIN(STAIN:Ｖ, "Ｖ恥垢")
			PRINTFORMW 「やれやれ、ずいぶんと“鼻の利く”こと……」
			PRINTFORMW 「いや、なんでもない。そんなに嗅ぎたきゃ好きなだけ堪能したまえ」
			PRINTFORMW 「%CNAME("一人称")%も%CNAME("二人称")%と同じで、人类の都合は気にしない領帯プだ……ふふふ」
		ELSE
			PRINTFORMW 「おや……水漏れ点検の時間かな？ ふふふ」
			PRINTFORMW 「ほら、今日の%CNAME("一人称")%の調子はどうだい……？」
		ENDIF
	ENDIF
CASE "检查菊穴"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K53
		WAIT
	ELSE
		PRINTFORMW 「ふふ……%CNAME("二人称")%はこちらの方が好みかな？」
		PRINTFORMW 「ついうっかりぷぅっと言ってしまったらごめんよ。ははは」

	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K53
		WAIT
	ELSEIF COND("合意：检查内褲") == 0
	;梅普尔でここを見る方法もなさそうなので放置
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K53, %ARGS%：合意没有
		[ENDIF]
	ELSE
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF RAND:2
				PRINTFORMW 「おぉい、いつまで続ける気だい？ %CNAME("主人")%君」
				PRINTFORMW 「これ以上は%CNAME("一人称")%も我慢が効かなくなってしまうよ」
			ELSE
				PRINTFORMW 「まったく、熱心で念入りなことだ……そろそろ楽にさせてくれないかなぁ？」
			ENDIF
		ELSEIF RAND:2
			PRINTFORMW 「ふふ。\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%のルーティーンの時間だね」
		ELSE
			PRINTFORMW 「ふふふ……今日も元気だね、\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%？」
		ENDIF
		PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の熱い視線を楽しそうに受け止めている……
	ENDIF
CASE "撫摸股間"
	;初めて
	IF DEVENT(ARGS) == 0
		CALL PRINT_STRW, "「おぉっ_UH_」"
		PRINTFORMW %CALLNAME:MASTER%の手が触れた途端に%CALLNAME:TARGET%は腰が砕け、楽しそうに破顔した。
		PRINTFORMW 「ふふふ……%CNAME("一人称")%で玩遊戲かい？ %CNAME("主人")%君」
	;阴部を直に弄る場合
	ELSEIF CHECK_CLO("Ｖ露出")
		CALL PRINT_STRW, @"「%TEXTR("んふっ……んっ……あんっ/あはっ……ん、んっ……/あ、ふ……ん……あぁんっ")%_UH_」"
		PRINTFORMW %TEXTS("阴部：感触")%の音が響く度、%CALLNAME:TARGET%は恍惚に身を捩らせている……
	;连褲襪越し
	ELSEIF CHECK_CLO("连褲襪露出")
		CALL PRINT_STRW, @"「ふふっ_UH_ どうだい、%CNAME("一人称")%の连褲襪姿は……んっ_UH_ 気に入ってもらえてるかな……？」"
		PRINTFORMW %CALLNAME:MASTER%の手つきに合わせ、%CALLNAME:TARGET%は腰を揺らしている……
	;布鲁马越し
	ELSEIF CHECK_CLO("布鲁马露出")
		CALL PRINT_STRW, "「あはっ_UH_ おいおい、大事な体操着だよ？ 汚されちゃあ困るなあ……_UH_」"
		PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の腕にしなだれ、くすくすと笑着いる……
	;泳装越し(比基尼や競泳泳装や死库水など)
	ELSEIF CHECK_CLO("泳装ボトム露出")
		CALL PRINT_STRW, @"「んっ_UH_ いいぞ%CNAME("主人")%君、もっと好きなように触ってくれて……ふふふ_UH_」"
		PRINTFORMW %CALLNAME:TARGET%は体中の力を抜き、%CALLNAME:MASTER%を邀请ような視線を向けている……
	;胖次越し
	ELSEIF CHECK_CLO("胖次露出")
		CALL PRINT_STRW, @"「んふっ……_UH_ %CNAME("二人称")%のその情熱は%CNAME("一人称")%に？ それとも、胖次かい？ ふふふっ……_UH_」"
		PRINTFORMW %CALLNAME:TARGET%は恍惚の表情で%CALLNAME:MASTER%の愛撫する様を眺めている……
	;其他休闲褲やなんか布越し
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K53
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		IF RAND:2
			PRINTFORMW 「おぉい、いつまで続ける気だい？ あんまり見られると、%CNAME("一人称")%も股の締まりが悪くなってきてしまう……」
			PRINTFORMW 「……ふふ、それが目的かい？」
		ELSE
			PRINTFORMW 「あぁ……目ヂカラというのはホントに存在するものだね」
			PRINTFORMW 「%CNAME("二人称")%のアツい視線のせいか、ハダの感覚が敏感になってきた気がするんだ……」
		ENDIF
	ELSE
		IF RAND:2
			PRINTFORMW 「ふふふ……そんなに%CNAME("一人称")%の悩ましげな股間が気になるかい？」
			PRINTFORMW 「ほら、%CNAME("二人称")%の哈娜がひくひくしているよ。……ウソだけど」
		ELSE
			PRINTFORMW 「哈娜の下が伸びたツラ、というのは見ていてホントに佑香イだね」
			PRINTFORMW 「その原因が自分のカラダとあっては……ますます佑香イだ。ふふふ……」
		ENDIF
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「そぉら、寄ってらっしゃい見てらっしゃい。なーんてね」
			PRINTFORMW 「遠からんものは音に聞け、近くば寄って目にも見よ……いや、音で聞いてどうするってね。ははは」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「おいおい、そんなに哈娜の下を伸ばすな。%CNAME("二人称")%ってヤツはホントに正直者だな……ははは」
		ELSE
			IF RAND:2
				PRINTFORMW 「わかってるわかってる、%CNAME("二人称")%の望みはコレだろ？」
			ELSE
				PRINTFORMW 「そぉーら、こっちこっち。%CNAME("二人称")%の大好きな股下大冒険の時間だぞぉ～」
			ENDIF
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW 「んあぁ……？ 邪魔だよ、退け退け」
			PRINTFORMW %CALLNAME:TARGET%は困倦眼で%CALLNAME:MASTER%を蹴り払ってくる……
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K53
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「おっほぉ！ これが本場の掀起裙子かい」
			PRINTFORMW 「不思議と誰も%CNAME("一人称")%に仕掛けようとしてくれなくてね。地味に初体験なんだよ。はっはっは」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「うぉぉ、なんだなんだ。撒き餌に群がるコイみたいな真似をしくさって」
		ELSE
			IF COND("打招呼前")
				IF RAND:2
					PRINTFORMW 「おぉう、こいつはご打招呼だ。悪いが上の口とも話してやってくれないか？」
				ELSE
					PRINTFORMW 「おいおい、そりゃあ%CNAME("一人称")%の下の口も饒舌なほうだけどねぇ」
				ENDIF
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					PRINTFORMW 「あーあー、見てしまったねえ%CNAME("主人")%君……」
					PRINTFORMW 「このことは内密に頼むよ。日本じゃあ無修正はご法度なんだろ？ ははは」
				ELSE
					IF RAND:2
						PRINTFORMW 「おっと、%CNAME("主人")%様がおいでなすった」
						PRINTFORMW 「どうだろう、今日の%CNAME("一人称")%のは。お気に召してくれたかい？」
					ELSE
						PRINTFORMW 「あぁん、もう……%CNAME("二人称")%に隠し事はできないね」
						PRINTFORMW 「一度くらいポケット代わりにして送禮でも仕込んであげようか？ ふっふっふ」
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		PRINTFORMW 「あっはっはっは！ この国にはナベに衣類をぶち込むと聞いたことはあるが、ホントなんだねえ！」
		IF COND("胖次ドーピング")
			PRINTFORMW 「それでどうだい、%CNAME("一人称")%の胖次の味は？ マズかったらごめんよ、ダシは英国育ちだからね」
		ELSE
			PRINTFORMW 「どれ、お味はどんなもんだい？ ウチの故郷のメシよりマシなら%CNAME("一人称")%も挑戦してやろうか？」
		ENDIF
	ELSE
		IF RAND:2
			PRINTFORMW 「うーん、%TEXTR("いい天気だ/元気だ")%ね、%CNAME("主人")%君？」
		ELSE
			PRINTFORMW 「我らが%CNAME("主人")%は今日も健啖、世は並べて事も无、と」
		ENDIF
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW 「おっとぉ？ ちょいと無防備だったかな。いや失敬失敬……はっはっは」
	CASEELSE
		PRINTFORMW 「どうだい？ %CNAME("一人称")%の裙の下からは青春の甘酸っぱい香りはするかな？」
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW 「おいこら、%CNAME("一人称")%はブルセラもやってないし撮影許可を出した覚えもないぞ。しっしっ」
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW 「ふふ……こいつは些か大胆地過ぎるかもしれないな、%CNAME("主人")%君？」
	CASEELSE
		PRINTFORMW 「やれやれ。コイツが%CNAME("二人称")%のオカズになるかと思うと、着るたび意識してしまうかもなぁ……ふふふ」
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW 「おいこら。流石に文字街道の汚点を記録されると心中穏やかでない。悪いが出口てくれたまえ」
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW 「ふふ……この境界線こそが芸術だね、%CNAME("主人")%君？」
	CASEELSE
		PRINTFORMW 「ふふ……%CNAME("二人称")%が興味あるのは%CNAME("一人称")%じゃあなくて胖次のほうかしらん？」
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW 「おいこら、流石に気持ち悪いぞ。退きたまえ、\@ TALENT:MASTER:男性 ? ミスター # ミス \@・バカヤロー」
	CASE "阴部の見せつけ撮影"
		PRINTFORMW 「ふふ……あぁ、どうしよう……このままイってしまってもいいかい、%CNAME("主人")%君……？」
	CASEELSE
		PRINTFORMW 「やれやれ……%CNAME("二人称")%は%CNAME("一人称")%のワレメにキチンと名前をつけて保存するんだろうねえ……」
	ENDSELECT
CASE "性処理を頼んだ際の反応"
	;干劲がある場合
	IF COND("干劲性処理")
		PRINTFORMW 「これはこれは……お声掛けいただけて光栄の至りだよ、\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%」
		SELECTCASE STR:PLAY内容
		CASE "口交"
			PRINTFORMW 「では、%CNAME("一人称")%のこのうんざりするほど開朗なお口でもってご奉仕差し上げよう」
		CASE "乳交", "乳頭奸"
			PRINTFORMW 「さあ、こっちへおいで。%CNAME("一人称")%のこの呆れるほど育ち盛りな胸を使わせて给よ……」
		CASE "Ｖ性交"
			PRINTFORMW 「では今日は、%CNAME("一人称")%のよく滑る下の口と語らいの時を楽しもうじゃないか……ふふ」
		CASE "Ａ性交", "尿道性交"
			PRINTFORMW 「それでは今日は特別に、%CNAME("一人称")%の“秘穴”を使わせてあげようかい？ ふふふ……」
		ENDSELECT
	;何かしながらで良いならして给よって場合。何をしながらなのかは SAVESTR:夢中 で参照できる。
	ELSEIF COND("进行性処理")
		PRINTFORMW 「んん？ なんだいよりによってこんなときに……」
		SELECTCASE STR:PLAY内容
		CASE "手淫"
			PRINTFORMW 「ほら、こっちこっち。ちょちょいと抜いてやるから。さあ」
		CASE "Ｖ性交", "Ａ性交", "尿道性交"
			PRINTFORMW 「悪いけど手が離せないんだ。穴ならどれでも好きなのを貸してやるから、勝手によろしく」
		ENDSELECT
	ENDIF
CASE "見抜きを頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "胖次見抜き"
		PRINTFORMW 「おや、見抜きかい？ %CNAME("二人称")%にしては謙虚な気もするが……ま、そういう嗜好もあるということか」
	ENDSELECT
;これは見抜きされる(胖次を見せている)側の立場のセリフ。連れ見抜き参加者はPARTNER()で参照できる
CASE "連れ見抜き"
	;表情を変える場合はここで出来る
	;CALL EMOTION_PLUS, "害羞", TARGET
	;PARTNER()の使用例
	;PRINTFORMW 「……%CNAME(CALLNAME:PARTNER() )%にそういう目で見られると、ちょっと恥ずかしいですね」
	CALL EMOTION_PLUS, "躁动难忍", TARGET
	PRINTFORMW 「ふふふ……オーディエンスが多いと、%CNAME("一人称")%もいつもより興奮してしまうね……」
;これは見抜きする(你に誘われて自家発電する)側の立場のセリフ。胖次を見せている角色はPARTNER()で参照できる
CASE "連れ見抜きに誘われた"
	;表情を変える場合はここで出来る
	;CALL EMOTION_PLUS, "夸奖", TARGET
	CALL EMOTION_PLUS, "躁动难忍", TARGET
	PRINTFORMW 「あぁ、これは良い見世物だ……ごめんよ、タダで楽しんでしまって……ふふ……」

CASE "性処理の内容変更を頼んだ際の反応"
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"
			PRINTFORMW 「おや、%CNAME("一人称")%のうんざりするほどやかましい口が恋しいかい？」
		CASE "乳交", "乳頭奸"
			PRINTFORMW 「おいおい、%CNAME("一人称")%の呆れるほど母性たっぷりなお胸が恋しいのかい？」
		CASE "Ｖ性交"
			PRINTFORMW 「なぁんだ、%CNAME("一人称")%のよだれまみれな下の口に用があるのかい？」
		CASE "Ａ性交"
			PRINTFORMW 「なんと、%CNAME("一人称")%の無法な裏口に用があるってのかい？」
		CASE "尿道性交"
			PRINTFORMW 「なんと、%CNAME("一人称")%の排水溝に興味があるとはね……」
		ENDSELECT
		PRINTFORMW 「ふふふ……いいだろう。\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%の望みのままに」
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"
			PRINTFORMW 「はあ？ 手かい？ なんでよりによってめんどくさい方を……」
			PRINTFORMW 「わかったわかった、さっさと出したまえ。やって给から」
		CASE "Ｖ性交", "Ａ性交", "尿道性交"
			PRINTFORMW 「ん？ どこの穴だって？ まぁどこでもいいけどさ……」
		ENDSELECT
	ENDIF
CASE "拜托処理性欲"
	SELECTCASE NAMES("性処理")
	CASE "口交"
		PRINTFORMW 「んっ……んく……ふぁ……」
		PRINTFORMW %CALLNAME:TARGET%は舌に乗せた精液を%CALLNAME:MASTER%に見せつけてから飲み込み、妖艶に微笑んだ。
		PRINTFORMW 「今日も快調だね、\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%？」
	CASE "乳交", "乳頭奸"
		PRINTFORMW 「おほっ、出た出た。たっぷり汚してくれたねえ、%CNAME("主人")%君……ふふふ」
		PRINTFORMW %CALLNAME:TARGET%は乳房にかかった精液を指ですくい取り、糸を引く様を満足そうに眺めている……
	CASE "Ｖ性交", "Ａ性交", "尿道性交"
		CALL PRINT_STRW, "「あぁっ……_UH_ ふふ……まったくお熱いね、コイツは……_UH_」"
		PRINTFORMW %CALLNAME:TARGET%は中に吐き出された精液の感触を楽しむように腰を揺らしている……
	ENDSELECT
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
	;これは見抜きされる(胖次を見せている)側の立場のセリフ。連れ見抜き参加者がいる場合はPARTNER()で参照できる
	CASE "胖次見抜き"
		;連れ見抜きされた場合
		IF PARTNER()
			PRINTFORMW 「おぉ～、仲良く射精したねぇ。ふふふ……いや失敬、面白くてつい」
			PRINTFORMW 「楽しんでもらえたなら幸いだ。また声をかけてくれたまえよ、諸君」
			PRINTFORMW 吐精の沉浸在余韻里%CALLNAME:MASTER%と%CNAME(CALLNAME:PARTNER() )%に、%CALLNAME:TARGET%はひらひらと手を振った。
		ELSE
			PRINTFORMW 「おっ……よしよし、酱と射精してくれたね」
			PRINTFORMW 「こんなことで良ければまたいつでも声をかけてくれよ、%CNAME("主人")%君」
		ENDIF
	CASE "手淫", "Ｖ性交", "Ａ性交", "尿道性交"
		PRINTFORMW 「ん。済んだかい？ %CNAME("主人")%君」
		PRINTFORMW 「じゃ、%CNAME("一人称")%は引き続き忙しいから」
	ENDSELECT

;TFLAG:指令中止 = 1 とすることで口上側から性欲解消を拒否できる
CASE "性欲解消を申し出た際の反応"
	PRINTFORMW 「おぉ！ %CNAME("二人称")%からそんな申し出をしてくれるなんて嬉しいねえ」
	SELECTCASE STR:PLAY要望
	CASE "舐陰"
		PRINTFORMW 「さ、さ。こっちに来てくれ。%CNAME("一人称")%の下の口が%CNAME("二人称")%に打招呼したがってるんだよ……ふふふ」
	CASE "舐陰莖"
		PRINTFORMW 「それじゃあちょいと屈んでくれないか？ %CNAME("一人称")%のムスコが%CNAME("二人称")%と会いたがっててね。ふふふ……」
	CASE "口交"
		PRINTFORMW 「じゃあ%CNAME("二人称")%、ちょいと下を脱いでくれないかい？ %CNAME("二人称")%の水烟が吸いたいところだったんだよ」
	CASE "Ｖ性交"
		;避孕套没有の生性交を希望
		IF COND("女性主導生性交")
			PRINTFORMW 「ならせっかくだ、ちょいとハメを外そうかな。ふふ……ホンキの避孕套没有ナマ性交だ」
		ELSE
			PRINTFORMW 「それじゃ遠慮なく。さ、こっちにおいで……心ゆくまで楽しもうじゃないか。ふふ」
		ENDIF

	CASE "Ａ性交"
		PRINTFORMW 「じゃあ今日は、そうだな……ふふ、後ろを使いたい気分なんだ。構わないだろ？」
	CASE "尿道性交"
		PRINTFORMW 「ふふふ……コッチの小小的穴……ココを任せられるのは%CNAME("二人称")%くらいだからね……」
	ENDSELECT
;STR:PLAY要望 が本来したいPLAY。STR:PLAY内容 が你がやりたいと言って交渉中のPLAY
;ここの中で STR:PLAY内容 を変更する事で提案を蹴る事も出来る。什麼也不做場合は你の提案が通る
CASE "性欲解消の内容変更を頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "舐陰"
		PRINTFORMW 「おやおや、殊勝な心がけだね。それじゃあ申し出街道、%CNAME("一人称")%の下の口に接吻をお願いしようか……」
	CASE "舐陰莖"
		PRINTFORMW 「おや、なんと。ふふ……献身的で嬉しいよ、%CNAME("主人")%君……」
	CASE "Ｖ性交"
		PRINTFORMW 「おいおい、それって%CNAME("二人称")%が楽しみたいだけじゃないのかい？」
		;今日は避孕套没有の生性交がＯＫな日
		IF COND("女性主導生性交")
			PRINTFORMW 「ふふふ……いいだろう。それなら今日はホンキで楽しもうじゃないか。無論。ナマでね」
		ELSE
			PRINTFORMW 「まったく、仕方のないヤツだ……せいぜい満足させてくれたまえよ？」
		ENDIF

	CASE "Ａ性交"
		PRINTFORMW 「おいおい、下手に出ておいて結局それかい。英国人も顔負けの二枚舌だね……」
		PRINTFORMW 「ま、断る理由はとくにないけどね。ふふふ」
	CASE "尿道性交"
		PRINTFORMW 「はっはっは！ 結局それが目的かい、%CNAME("二人称")%！ 大した根性の持ち主だね」
		PRINTFORMW 「構わないよ。この穴は%CNAME("二人称")%が開発した特別性だからね……ふふふ……」
	ENDSELECT
;性欲解消PLAY後の台詞
CASE "帮忙消除性欲"
	SELECTCASE NAMES("性処理")
	CASE "舐陰"
		;絶頂後の放尿を你が口で受け止めた場合(この角色が[絶頂失禁体質]＆聖水経験＆高い尿意の時に、你に飲尿経験と受虐属性が有ると選択肢出現)
		IF COND("飲尿フラグ", PLAYER)
			CALL PRINT_STRW, "「あはっ_UH_ これは……しまったね。ついガマンができなくなってしまった……诶嘿嘿……_UH_」"
		ELSE
			CALL PRINT_STRW, "「んっ_UH_ くぅ……_UH_ はぁ……」"
			PRINTFORMW 「ふふ、ステキな舌技だったよ……また“おしゃべり”をしようね……」
		ENDIF
	CASE "舐陰莖"
		CALL PRINT_STRW, "「くぅ……っ……_UH_ あぁ、相変わらずヤミツキになる感覚だ……_UH_」"
		PRINTFORMW 「ふふふ。よく頑張ったね、%CNAME("主人")%君……」
	CASE "口交"
		CALL PRINT_STRW, "「んふ～_UH_ んく……ぷはぁ_UH_」"
		PRINTFORMW 「いやぁ、佳肴大人。今日もイキのいい精子だったね」
	CASE "Ｖ性交", "Ａ性交", "尿道性交"
		;挿入行為の後に口交も続けて行った場合
		IF STR:PLAY要望 == "口交"
			CALL PRINT_STRW, @"「はぁ……ふぅ……お疲れ様、%CNAME("主人")%君_UH_」"
			PRINTFORMW 「さ、阴茎を出して。キレイにして给よ……チップ代わりだ」
		ELSE
			SELECTCASE NAMES("性処理")
			CASE "Ｖ性交"
				CALL PRINT_STRW, @"「あぁ……ふふ……_UH_ やっぱり%CNAME("二人称")%との性交はシゲキ的で良いね……_UH_」"
				PRINTFORMW 「今回はひとまずここまでにしておこう。また次もよろしく頼むよ」
			CASE "Ａ性交"
				CALL PRINT_STRW, @"「あぁっ……_UH_ まったく、お尻がアツくてしょうがないよ……ふふふ……_UH_」"
			CASE "尿道性交"
				CALL PRINT_STRW, @"「あはぁっ_UH_ なんてことだ……使えば使うほどヤミツキになる穴だね、こいつは……_UH_」"
			ENDSELECT
		ENDIF
	ENDSELECT
;主人公のスマホに一緒にお昼食べようよと邀请際に送る連絡文です
;ここで TFLAG:地の文スキップ = 0 とすると下の"お昼ご飯のお誘い"での地の文をカットできる
CASE "お昼ご飯のお誘い"
	IF RAND:2
		PRINTFORMW 『今日は一緒にランチでもどうだい？ \@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%』
	ELSE
		PRINTFORMW 『%CNAME("一人称")%のおヒルごはんの誘いを受けてくれないかい？ 愛しの%CNAME("二人称")%君』
	ENDIF
;実際に二人昼食をとっている時です
CASE "一緒にお昼ご飯"
	IF CEVENT("一緒にお昼ご飯：初回") == 0
		PRINTFORMW 「人类の記憶に強く作用する五感は、嗅覚、味覚、触覚、視覚、聴覚の順だ……というウワサがあるね」
		PRINTFORMW 「端的に言えばメシの記憶は残りやすいってことだ。%CNAME("一人称")%も故郷のメシのことは未だに忘れられない」
		PRINTFORMW 「あそこのメシがなんでああもクソマズいかと聞かれたら、それは分厚い本にまでなるくらいだから一概には言えないけど」
		PRINTFORMW 「たまにね。肉の香りを嗅ぐと混乱するんだ。うんざりするほど芳しい肉汁とソースの香りが……」
		PRINTFORMW 「下処理をサボったキドニー餡餅に出くわしたときの記憶と喧嘩して、なんだかよくわからなくなる」
		PRINTFORMW 「いまイギリスに帰ってそこいらのメシ屋に入ったら、%CNAME("一人称")%はどうなるんだろうねえ……」
		PRINTFORMW %CALLNAME:TARGET%は複雑な憂いを帯びた顔のまま、粛々とお昼時を過ごしていた……
		CALL SET_CEVENT, "一緒にお昼ご飯：初回"
	ELSEIF RAND:3 == 0 && TALENT:巨乳
		PRINTFORMW 「しかしね。英国人はカニバリストだと揶揄されたくらいにはイギリスは畜産で有名だったわけだけど」
		PRINTFORMW 「なんだかんだ言って%CNAME("一人称")%も肉は好きだね。こうしてよく肥えた様を見ればわかるだろ？」
		PRINTFORMW 「ま、%CNAME("一人称")%をここまで肥えさせたのは母国ではなくこの国のメシだけどね！ あっはっは！」
		PRINTFORMW %CALLNAME:TARGET%は食堂の他の客のことも構わず、乳房を揺らしながら笑い声をあげた。
	ELSEIF RAND:2
		PRINTFORMW 「それにしても日本人は毎日のように寿司やさしみばかり食べるみたいなイメージ、なかなか消えないよねえ」
		PRINTFORMW 「动画で“デース！”という英国角色が出てくるのと同じ理屈なんだろうかね。よく知らないけど」
		PRINTFORMW 「ちなみにどこぞのヒーローコミック雑誌じゃあ、日本人は寿司じゃなくて毎日拉麵を食ってるらしいよ？」
	ELSE
		PRINTFORMW 「ふふふ……やっぱりオムライスはたまらないねえ。これこそ常日頃生卵をかっ喰らう日本人の狂気の結晶だ」
		PRINTFORMW 「ちなみに%CNAME("一人称")%は番茄酱はかけない派だ。可能な限りこのたまごの感触に浸っていたいんだ……」
	ENDIF
;部室で二人きりの時に坐在旁邊際のセリフです
CASE "二人きり：坐在旁邊"
	IF TALENT:恋慕
		IF RAND:2
			PRINTFORMW 「や。ちょいと%CNAME("二人称")%の温度が恋しくなってしまった。許しておくれ」
		ELSE
			PRINTFORMW 「もう……たまには%CNAME("二人称")%からさっと横に来てくれたまえよ。寂しくて死んでしまいそうだ……」
		ENDIF
	ELSE
		PRINTFORMW 「や。%TEXTR(@"なんだか寂しそうだね、/ちょいととまり木にでもなってくれないかい？ ")%%CNAME("主人")%君」
	ENDIF
;部室で二人きりの時にＨに邀请際のセリフです
CASE "Ｈに邀请"
	IF TALENT:恋慕
		PRINTFORMW 「なぁ……%CNAME("二人称")%と二人いるとガマンができなくなるんだ。いいだろう……？」
	ELSE
		PRINTFORMW 「鬼の居ぬ間に、という言葉があるよね。まぁ誰が鬼とは言わないが……どうだい？」
	ENDIF
CASE "二人きり：Ｈの誘いに胖次条件で回应"
	IF TALENT:恋慕
		PRINTFORMW 「こぉのバカモノめ。今さらそんなワンクッションを挟まなきゃいけない仲かい」
		PRINTFORMW 「ほんっと、いつまでも変わらないヤツ……ふふ……」
	ELSE
		PRINTFORMW 「おっと、こちらが下手に出なければならない状態になってしまった……ふふ」
		PRINTFORMW 「いいだろう。お安い御用、というヤツだ」
	ENDIF
CASE "二人きり：Ｈの誘いに回应"
	IF TALENT:恋慕
		PRINTFORMW 「あぁ、%CNAME("主人")%……！」
		PRINTFORMW %CALLNAME:TARGET%は感極まったように%CALLNAME:MASTER%に抱きついた……
	ELSE
		PRINTFORMW 「鬼の居ぬ間に、という言葉があるよね。まぁ誰が鬼とは言わないが……どうだい？」
	ENDIF
CASE "二人きり：Ｈの誘いを断った"
	IF TALENT:恋慕
		PRINTFORMW 「あぁ、そうかい……すまないね」
		PRINTFORMW %CALLNAME:TARGET%は静かに落胆している……
	ELSE
		PRINTFORMW 「なんだい……つれないヤツめ」
		PRINTFORMW 「まぁいい、またこんど声をかけさせてもらうよ」
	ENDIF
ENDSELECT

;-------------------------------------------------
;自撮りにメッセージを添えます　一言くらい
;加筆の際には RETURN 0 を消去し、MAIL_BODY を埋めて使ってください
;地の文も必要であれば適宜変更してください
;-------------------------------------------------
@SELFY_MAIL_K53, ARGS
#DIMS MAIL_BODY

MAIL_BODY =
;メッセージ本文
SELECTCASE ARGS
CASE "ヌード自撮り"
	RETURN 0
	MAIL_BODY =
CASE "阴部自撮り", "阴茎自撮り"
	RETURN 0
	MAIL_BODY =
CASE "胸部自撮り"
	RETURN 0
	MAIL_BODY =
CASE "今年の泳装自撮り"
	RETURN 0
	MAIL_BODY =
CASE "学校指定の泳装自撮り"
	RETURN 0
	MAIL_BODY =
CASE "体操服自撮り"
	RETURN 0
	MAIL_BODY =
CASE "胸罩自撮り" ,"胖次自撮り"
	RETURN 0
	MAIL_BODY =
CASEELSE
	RETURN 0
	MAIL_BODY =
ENDSELECT

;地の文
PRINTFORMW 消息中附有「%MAIL_BODY%」的照片…

;-------------------------------------------------
;约会の際のセリフ
;システム側の地の文や反応を出力させたくない場合には TFLAG:地の文スキップ = 1 としてください
;约会回数は EXP:约会経験 が+1ずつされます。初回のセリフは IF EXP:约会経験 == 0 で分岐するのが良いでしょう
;素質で分岐させる場合にはTALENT:恋慕での分岐がおすすめです
;-------------------------------------------------
@KOJO_DATE_K53, ARGS

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	IF TALENT:恋慕
		PRINTFORMW 「なぁなぁ、%CNAME("主人")%君……今度の週末は%CNAME("二人称")%と過ごしたいんだ……ダメかな？」
	ELSE
		PRINTFORMW 「時に%CNAME("主人")%、週末の予定は空いて是ないかい？」
	ENDIF
CASE "约会のお誘い：結果"
	;约会決定！
	;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
	IF COND("约会的约定")
		PRINTFORMW 「やりぃ！ %CNAME("二人称")%ならそう言ってくれると信じていたよ」
		PRINTFORM 「それじゃあ次の周日はよろしく頼むよ
		IF RAND:3
			PRINTFORMW アデュー！」
		ELSE
			PRINTFORMW 。」
		ENDIF
	;你に保留されてしまった
	ELSE
		PRINTFORMW 「えぇい、そうやって曖昧に返しやがってぇ」
		PRINTFORMW 「ふんだっ。期待せずに待っているよっ」
	ENDIF
;你から週末约会に誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "约会に誘われた"
	PRINTFORMW 「おぉ？ %CNAME("二人称")%から约会のお誘いを受けるとはねえ」
	PRINTFORMW 「ふふ……いいだろう、断る理由はない。今度の週末、楽しみにしているよ」
;你に便当を作ってきてと頼まれた
CASE "便当を頼まれた"
	PRINTFORMW 「なに？ ベントー？ %CNAME("一人称")%のかい？」
	PRINTFORMW 「いやぁ、せっかくのハレの日に英国人の手料理を望むとは面白色ヤツめ……」
	PRINTFORMW 「くっくっく……よかろう。%CNAME("二人称")%の期待に応えてみせようじゃないか」
	;これのコメントアウトを取下と、便当を作ってあげません
	;CALL DEL_CEVENT, "约会の便当"
;你から约会当日にいきなり誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		PRINTFORMW 『なに？ 今から约会だって？』
		PRINTFORMW 『おいおい、%CNAME("一人称")%が休日の予定を作らない人类でよかったね。酱と行くから片刻后待っててくれ』
	ELSE
		PRINTFORMW 「ん？ 约会？ 今からかい？」
		PRINTFORMW 「なんだいまったく、急かすようなマネをして……ちょっと待っててくれたまえ。たっぷり時間をかけて準備する」
	ENDIF

;约会するにあたり、特殊な条件で着替えたりしたい時に使ってください。台詞没有で換装操作のみするのが推奨です
CASE "约会衣装に更衣"

;地の文はpartnerが遅れて現れる展開になっています
;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "待ち合わせ"
	IF COND("同居中") == 0
		PRINTFORMW 「や。待たせたね、\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%」
	ELSE
		PRINTFORMW 「ふー、やっと準備ができた……さ、エス外套をお願いしようか？」
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "约会本番"
	SELECTCASE SAVESTR:约会
	CASE "去买泳衣"
		PRINTFORMW 「ほうほう、泳装……つまり、Cosplay性交の衣装を選びに行くということだね？」
	CASE "散歩"
		PRINTFORMW 「ふぅん？ 特に目的は没有、か。いやはや、そういうプランを決断できるのもある種の勇気だね」
	CASE "尋訪美食"
		PRINTFORMW 「尋訪美食か、良い判断だね%CNAME("主人")%君。なんせ%CNAME("一人称")%の最低ラインは英国製だからね！ あっはっはっは！」
	CASE "逛街"
		PRINTFORMW 「それにしてもこの国の中古ショップはどれも状態が良すぎる！ ウチの国じゃあホントにどうしようもないレベルまで使い倒すからね……」
	CASE "去水族馆"
		PRINTFORMW 「ほお、水族館。いいねえ、さしみの国の実力を見せてもらおうか。……関係ないかな？ ははは」
	CASE "去游乐园"
		PRINTFORMW 「遊園地かぁ……アレが忘れられないんだよ。件の遊園地がトーキョーに無いと知ったときの衝撃がさ……」
	CASE "去电影院"
		PRINTFORMW 「お、映画かぁ。せいぜい佑香イなヤツを頼むよ。つまらなかったら途中で返回から、頑張って引き止めるように」
	CASE "去图书馆"
		PRINTFORMW 「さてさて、世界最大級の大英図書館を知る%CNAME("一人称")%を満足させられるかなぁ？」
	CASE "赏花"
		PRINTFORMW 「いやぁ、%CNAME("二人称")%とウツクシイひとときを過ごすのを楽しみにしていたんだ。最高の花見だよ」
	CASE "去游泳"
		SIF TALENT:巨乳
			PRINTFORMW 「ふっふっふ。%CNAME("一人称")%のこの浮き袋の性能を見せつけるときが来たみたいだねえ……」
	CASE "爬山"
		PRINTFORMW 「ようし、山だぁ！ 我が国ではとんと味わえない大冒険に出発といこうじゃないか！」
	CASE "赏红叶"
		PRINTFORMW 「初めて紅葉狩りと聞いたときはもっとエキサイティングなイベントかと思っていたんだよねえ。はっはっは」
	CASE "滑雪"
		PRINTFORMW 「うぅむ、滑雪かぁ……流石に造詣が深くない。比較するとメダリストもそこまで多くない国出身だしなぁ……」
	CASEELSE
		PRINTFORMW
	ENDSELECT

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1
CASE "约会中の買食物"
	SELECTCASE SAVESTR:约会
	CASE "去电影院"
		;何を買ったかはSTR:選択したもの で分岐可能
		SELECTCASE STR:選択したもの
		CASE "爆米花"
			PRINTFORMW 「んむ、どうも。映画がつまらなかったら%CNAME("二人称")%に向かってコイツを投げることにしよっと」
		CASE "吉事果"
			PRINTFORMW 「おぉ、吉事果かい。そしたら喉が渇くから飲み物も大号的サイズで……廁所に行きたくなるんだ、コレが」
		CASE "热狗"
			PRINTFORMW 「割とまあまあガッツリしたものを選んだね%CNAME("二人称")%！ ま、%CNAME("一人称")%も热狗は好きだけど」
		ENDSELECT
	ENDSELECT
CASE "手をつなぐ"
	PRINTFORMW 「ふふふ……%CNAME("二人称")%くらいだよ。手を繋いで歩く相手なんて」
CASE "手をつながない"
	PRINTFORMW 「おぉい、こんなときにシャイな日本人を演じなくてもいいんじゃないかー？」
;泳装を買いに行った時です
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	IF COND("Ｈ的泳装選択可能") && RAND:2
		PRINTFORMW 「さて、%CNAME("二人称")%の欲望がどんな形か、見せてもらうじゃないか？ ふふふ……」
	ELSEIF RAND:2 && TALENT:巨乳
		PRINTFORMW 「うぅん、迷ってしまうねぇ……この%CNAME("一人称")%の溢れる乳房に耐えうる泳装は果たしてどれか。ふふふ」
	ELSE
		PRINTFORMW 「さ、%CNAME("二人称")%のセンスを試させてもらおうか？ \@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%」
	ENDIF
;泳装を買いに行って、結果的に選んだ泳装に対するセリフです
;もしも去年も泳装を選んでいたなら、CSTR:今年の泳装 に記録されているので比較する事が出来る
CASE "泳装決定"
	SELECTCASE SWIM(STR:選んだ泳装, "種類")
	CASE "Micro比基尼"
		PRINTFORMW 「あっはっは、やってくれるねえ！ こんなに際どい布地のものを……」
		SIF TALENT:巨乳
			PRINTFORMW 「もしポロっといってしまったら、酱と%CNAME("二人称")%が助けてくれよ？」
	CASE "比基尼"
		PRINTFORMW 「うむ。なかなか無難なものを用意したね。もっと際どいのをカクゴしてたけども」
	CASE "競泳泳装"
		PRINTFORMW 「ほう、なかなか通な選択だ。カラダのラインがより引き立って……ふふ。やるねえ%CNAME("二人称")%」
	CASE "高開衩連衣裙"
		PRINTFORMW 「おいおい%CNAME("二人称")%、コイツは%CNAME("一人称")%への挑戦かい？ それともハミ毛をご所望とか？」
	CASE "連体泳装"
		PRINTFORMW 「お……なんだ、カワイイのを選んだね。コイツは……意外に新鮮で、嬉しいかもしれないな。ははは」
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW 「うんうん、信頼と安心の%CNAME("主人")%チョイスだね。良いとも、好きなだけ目の保養になってあげよう」
	ENDSELECT

;泳池などで泳装姿に着替え、待ち合わせ場所に集合した時です
CASE "泳装に着替えた"
	;どの泳装に着替えたか？
	SELECTCASE SWIM(CSTR:今年の泳装, "種類")
	CASE "比基尼"
		PRINTFORMW 「どうだい、教科書街道の泳装美女だろ？ 心ゆくまで堪能してくれたまえ。ふふふ」
	CASE "Micro比基尼"
		SIF TALENT:巨乳
			PRINTFORMW 「わはは、こりゃあ凄い。%CNAME("一人称")%の乳房が紙一重の平衡で支えられているぞ！」
		PRINTFORMW 「%CNAME("二人称")%、どうか出口ないでいてくれたまえよ。いつ何が起きてもいいようにね」
	CASE "連体泳装"
		PRINTFORMW 「ふふ、なんだか気持ちが高揚してるな……%CNAME("二人称")%、ぜひとも%CNAME("一人称")%をカワイイって言ってくれないか？」
	CASE "競泳泳装"
		PRINTFORMW 「むふふ……この締め付け具合が%CNAME("一人称")%を艶やかにしている実感を強くしてくれるね……」
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW 「ふぅ……なんだかアツい気がするねえ。衆人環視に身を焦がされてるのかな？　はっはっは」
	ENDSELECT

;草丛口交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "到暗处去……"
	IF TALENT:恋慕
		PRINTFORMW 「ふふ……%CNAME("二人称")%にそう言われるのを待っていたよ……」
	ELSE
		PRINTFORMW 「おいおい、繞道にしちゃあ少しばかり過激だね？ ふふふ」
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;映画館などで横並びに座った状態での手交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "请求偷偷手交"
	PRINTFORMW 「ふ～んふふ～んふふ～ん……♪」
CASE "接吻"
	IF RAND:2
		PRINTFORMW 「んっ……っとっと。こいつはしてやられた。はは」
	ELSE
		PRINTFORMW 「おぉう……なんとも情熱的な香料だ。これこそ约会だね」
	ENDIF
CASE "摸屁股"
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW 「おぉう？ 约会中に性騷擾かい%CNAME("二人称")%？ やっぱり堪え性がないヤツだね」
	ENDIF
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问"
	PRINTFORMW 「ん？ なんだ%CNAME("二人称")%、取ってつけたように取り繕った气息がするぞ」
CASE "专心看电影"
	PRINTFORMW （……廁所行きたいな）
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;文化祭イベント
;ここでは"约会相手ではなく出し物をしている人"が喋ります。
;本来の约会相手はPARTNER()に角色番号が入ってます。呼びかける場合にはCNAME("partner")を使ってください
CASE "乐队演奏", "演劇", "占卜館", "恐怖屋敷", "烦悩相談室", "PaFuPaFu屋", "女仆咖啡厅", "執事咖啡厅", "西式料理店"

;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "帰り際"
	PRINTFORMW 「あぁ、今日はなかなか楽しかったねぇ。\@ TALENT:MASTER:男性 ? ミスター # ミス \@・%CNAME("主人")%」
	IF TALENT:恋慕
		PRINTFORMW 「それで……この後は予定はあるのかい？ できることならもう少しだけ、%CNAME("二人称")%と一緒にいたいんだ……」
	ELSE
		PRINTFORMW 「さて、このまま帰っちまうかい？ %CNAME("二人称")%が望むならトーゼン延長も受け付けるよ」
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			PRINTFORMW 「あぁ……%CNAME("主人")%君！ そう言ってくれて嬉しいよ……！」
			PRINTFORMW 「さ、エス外套してくれないかい？ 夢うつつな気分で擅長く歩ける気がしないんだ……」
		ELSE
			PRINTFORMW 「ふふ、流石は%CNAME("主人")%君だ。そう来なくっちゃ」
			PRINTFORMW 「さ、今日は心ゆくまで時間をドブに捨てようじゃないか」
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW 「あぁ……すまないね。要らぬ期待を押し付けてしまったようだ……」
			PRINTFORMW 「それじゃあまたの機会にしよう……お疲れ様、%CNAME("主人")%」
		ELSE
			PRINTFORMW 「おや、そうかい。疲れてしまったかな？」
			PRINTFORMW 「それじゃあ返回とするか。今日はお疲れ、%CNAME("主人")%君」
		ENDIF
	ENDIF
ENDSELECT

path: ERB/EVENT_K/53 メイプル/EVENT_K53_DAILY.ERB


code:
;-------------------------------------------------
;英国淑女の占卜館
;基本的なイベントはここに格納されています
;-------------------------------------------------

;-------------------------------------------------
;本日開店中です
;-------------------------------------------------
@K53_LONG
IF CEVENT("占い：初回") == 0
	CALL MEMO_DRESS, "帰宅時の格好"
	CALL SET_COSTUME, "V领毛衣/黒"
	CALL SET_CEVENT, "占い：初回"
	PRINTL
	PRINTFORMW とある空き教室、光を暗幕に遮られたそこには、並べられた机と椅子の向かい側に座って不敵に笑う%CALLNAME:TARGET%が待っていた。
	PRINTL
	STR:1 = 「むっふっふっふ……ようこそ、英国淑女の占卜館へ」#F目陰/萌え袖
	STR:2 = 「さあ%CNAME("主人")%君、まずはソコに座りたまえ」#F重置/眯眯眼/斜眉/無口系/萌え袖
	CALL DIALOGUE_FRAME_NAMEW, TARGET

	PRINTFORMW 言われるままに向かいの椅子に座ると、%CALLNAME:TARGET%はさっとカードを取り出した。
	PRINTL
	STR:1 = 「面倒な前置きはなにもない。%CNAME("二人称")%はこの中から一枚のカードを引く」#F重置/斜眼/斜眉/扇子白
	STR:2 = 「カードによって%CNAME("二人称")%の金運、恋愛運、健康運、仕事運に些か良いことがあるよ。とてもわかりやすいだろう？」
	CALL DIALOGUE_FRAME_NAMEW, TARGET

	PRINTFORMW %CALLNAME:MASTER%は言われた街道カードを一枚引こうと手を伸ばすと、ふいに%CALLNAME:TARGET%に手で制された。
	PRINTL
	STR:1 = 「一回につき、$3000だ」#F重置/眯眯眼/萌え袖
	CALL DIALOGUE_FRAME_NAMEW, TARGET

	CALL PRINT_SELECT, "高くない？/お金取るの？"
	IF RESULT == 0
		PRINTL
		STR:1 = 「なんだい%CNAME("二人称")%！ 毎日哈娜ほじっててもカネが湧いてくる身分のクセして！」#F重置/憤怒眉/嘟嘴/对话框憤怒
		STR:2 = 「ケチくさいこと言ってないでさっさと出したまえよ、ほら」#F重置/斜眼/小口
	ELSE
		PRINTL
		STR:1 = 「取るともそりゃあ。こっちだっていろいろと準備がだね……」#F重置/斜眼/小口
		STR:2 = 「コホン。とにかく$3000だ。カワイイ部員のための投資と思ってよろしく頼むよ」#F重置/闭眼/へ字
	ENDIF
	SIF CEVENT("褒めた")
		STR:3 = 「言っておくが、さっき褒めたからってまけてやるつもりはないからね」#F重置/闭眼/左斜眼/斜眉/嘲笑/萌え袖
	CALL DIALOGUE_FRAME_NAMEW, TARGET

	PRINTFORMW %CALLNAME:TARGET%は袖に埋もれた手を差し出して%CALLNAME:MASTER%を待っている……
	PRINTL
	CALL PRINT_SELECT, "就這樣吧/再想想吧"
	IF RESULT == 0
		IF MONEY < 3000
			PRINTL
			STR:1 = 「――ん？ おいおい、もしかして持ち合わせがないんじゃないかい？」#F重置/斜眼/斜眉/無口系
			STR:2 = 「呆れたヤツだな……いったい何に注ぎ込んでるっていうんだ……やれやれ」#F重置/斜眼/斜眉/半開
			STR:3 = 「わかったよ、今回はタダにしてやる。これも部員同士のよしみだ」#F重置/闭眼/斜眉/半開
		ELSE
			STR:1 = 「よしきた！ 毎度有！」#F重置/左笑颜/对话框開心
			STR:2 = 「では、%CNAME("二人称")%の手でカードを引いてくれたまえ。思い切って、クイッと」
		ENDIF
		CALL DIALOGUE_FRAME_NAMEW, TARGET
		GOTO DEBUGCHECK
	ELSE
		PRINTL
		STR:1 = 「なぁんだ、やらないのか……」#F重置/斜眼/斜眉/へ字
		STR:2 = 「じゃ、いいよ。アメでも食って帰っちまいたまえ」
		CALL DIALOGUE_FRAME_NAMEW, TARGET

		PRINTFORMW そう言うと%CALLNAME:TARGET%は本当に糖玉を寄越して、大げさにそっぽを向いてしまった。
		PRINTFORMW おいしかった。
		BASE:MASTER:精力 = MIN(BASE:MASTER:精力 + 1, MAXBASE:MASTER:精力)
		PRINTL
		PRINTFORMW 精力+1
		GOTO END
	ENDIF
ENDIF

SELECTCASE RAND:3
CASE 0
	STR:1 = 「むっ。ひょっほまっへ……」#F重置/〇〇/斜眉/冰
	STR:2 = 「ふーっ……点心領帯ムをジャマされっちまった。なかなか間の悪い\@ TALENT:MASTER:男性 ? 男性 # 女性 \@だね%CNAME("二人称")%は」#F重置/闭眼/困扰眉/小口
	STR:3 = 「まあいい、やってくかい？ 例によって$3000だよ」#F重置/斜眼/斜眉/無口系/扇子白
	CALL DIALOGUE_FRAME_NAMEW, TARGET

	CALL PRINT_SELECT, "就這樣吧/再想想吧"
	IF RESULT == 0
		PRINTL
		IF MONEY < 3000
			STR:1 = 「おぉい、文没有かい。冰食うジャマだけしにきやがって」#F重置/眯眯眼/憤怒眉/半開
			STR:2 = 「そぉら、帰った帰った。構ってほしけりゃ%CNAME("二人称")%の肉棒を冰棒にでも変えてからくるんだな」#F重置/眯眯眼/憤怒眉/冰
			STR:3 = 「……本気でやるなよ？」#F重置/闭眼/左垂眼/困扰眉/冰
			CALL DIALOGUE_FRAME_NAMEW, TARGET
			PRINTL
			PRINTFORMW 半ば本気で釘を差された。
			GOTO END
		ELSE
			STR:1 = 「よしきた。冰が溶けないうちにさっさと頼むよ」#F重置/眯眯眼/斜眉/扇子白
			CALL DIALOGUE_FRAME_NAMEW, TARGET
			GOTO DEBUGCHECK
		ENDIF
	ELSE
		PRINTL
		STR:1 = 「なンだい、冷やかしか。無駄に慌てさせてくれる……」#F重置/斜眼/斜眉/半開
		STR:2 = 「んじゃー溶けないウチに失礼するよ、と……」#F重置/眯眯眼/斜眉/へ字/冰
		STR:3 = 「あぁ、ほひはっはらまらあるふぁら」
		CALL DIALOGUE_FRAME_NAMEW, TARGET

		PRINTFORMW %CALLNAME:TARGET%の指差した先には、色とりどりの冰が収められたクーラーBOXがあった。
		PRINTFORMW 一個だけもらって返回ことにした……
		PRINTL
		BASE:MASTER:精力 = MIN(BASE:MASTER:精力 + 1, MAXBASE:MASTER:精力)
		PRINTFORMW 精力+1
		GOTO END
	ENDIF
CASE 1
	STR:1 = 「んが……んむ……」#F重置/闭眼/斜眉/半開/对话框睡眠
	STR:2 = 「……んん？」#F重置/斜眼/斜眉/半開/对话框・・・
	STR:3 = 「あぁ、やばい。営業中だった……」#F重置/〇〇/斜眉/半開
	CALL DIALOGUE_FRAME_NAMEW, TARGET

	PRINTFORMW %CALLNAME:TARGET%は自己的両頬を胖次と叩いて頭を振った。
	PRINTL
	STR:1 = 「いやぁ失敬。いい感じに閑古鳥が鳴いてたもんでね……」#F重置/眯眯眼/斜眉/对话框困倦
	STR:2 = 「それじゃ、例によって$3000だ。やってくかい？」#F重置/眯眯眼/斜眉/对话框困倦/扇子白
	CALL DIALOGUE_FRAME_NAMEW, TARGET

	CALL PRINT_SELECT, "就這樣吧/再想想吧"
	IF RESULT == 0
		PRINTL
		IF MONEY < 3000
			STR:1 = 「んあぁ？ なんだよ、カネがないじゃないか……困倦たヤツめ……」#F重置/眯眯眼/憤怒眉/半開/对话框困倦
			STR:2 = 「あぁもう、じゃあさっさと帰ってくれ……%CNAME("一人称")%はもう一睡眠するから……」#F重置/眯眯眼/斜眉/半開/对话框睡眠
			CALL DIALOGUE_FRAME_NAMEW, TARGET
			PRINTL
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%を追い払うなり、あっという間に机に突っ伏してしまった……
			GOTO END
		ELSE
			STR:1 = 「よぉし、いいねえ。%CNAME("一人称")%もいい感じに目が覚めてきた」#F重置/眯眯眼/斜眉/对话框兴奋/扇子白
			STR:2 = 「ささ、一枚引いておくれ、%CNAME("主人")%君」#F重置/斜眼/斜眉/扇子白
			CALL DIALOGUE_FRAME_NAMEW, TARGET
			PRINTL
			PRINTFORMW 差し出された金を前に、%CALLNAME:TARGET%は元気变成了ようだ……
			GOTO DEBUGCHECK
		ENDIF
	ELSE
		STR:1 = 「あーっそ」#F重置/眯眯眼/斜眉/半開
		STR:2 = 「じゃいいや。%CNAME("一人称")%はまた寝るから……ふぁあ……」#F重置/眯眯眼/斜眉/へ字/对话框困倦/萌え袖
		CALL DIALOGUE_FRAME_NAMEW, TARGET

		PRINTFORMW 気だるげに手を振ったあと、%CALLNAME:TARGET%は再び寝息を立てはじめた……
		GOTO END
	ENDIF
CASEELSE
	STR:1 = 「やあやあ、%CNAME("主人")%君。ようこそ愛しの%NAME:TARGET%の館へ」#F重置/笑颜/萌え袖
	STR:2 = 「今日も%CNAME("一人称")%が%CNAME("二人称")%の運勢を占って差し上げようじゃないか」#F重置/笑颜/左普通眼/萌え袖
	STR:3 = 「例によって$3000だよ」#F重置/眯眯眼/萌え袖
	CALL DIALOGUE_FRAME_NAMEW, TARGET

	CALL PRINT_SELECT, "就這樣吧/再想想吧"
	IF RESULT == 0
		PRINTL
		IF MONEY < 3000
			STR:1 = 「おいおい、なんだよ。おカネがないじゃないか。いったい何し来了んだい？」#F重置/垂眼/斜眉/△
			STR:2 = 「タダじゃあ何もしてやれないな。%CNAME("二人称")%相手と是え――いや、%CNAME("二人称")%だからこそね」#F重置/眯眯眼/斜眉/無口系
			STR:3 = 「ま、アメくらいは食って帰っていいよ。今度からは気をつけてくれたまえ」#F重置/斜眼/斜眉/無口系
			CALL DIALOGUE_FRAME_NAMEW, TARGET

			PRINTFORMW %CALLNAME:TARGET%から糖玉をもらって、%CALLNAME:MASTER%は教室を後にした……
			PRINTL
			BASE:MASTER:精力 = MIN(BASE:MASTER:精力 + 1, MAXBASE:MASTER:精力)
			PRINTFORMW 精力+1
			GOTO END
		ELSE
			STR:1 = 「うむ、確かに」#F重置/闭眼/萌え袖
			STR:2 = 「ではお好みのカードを引いてくれたまえ」#F重置/斜眼/萌え袖
			GOTO DEBUGCHECK
		ENDIF
	ELSE
		STR:1 = 「なんだ、冷やかしか……悪いが%CNAME("二人称")%をココに置いておくつもりはないよ」#F重置/眯眯眼/斜眉/嘟嘴
		STR:2 = 「ほら、ココにおいしいアメがあるよ。コイツで満足して帰っておくれ」#F重置/眯眯眼/斜眉/へ字/萌え袖
		CALL DIALOGUE_FRAME_NAMEW, TARGET

		PRINTFORMW %CALLNAME:TARGET%から糖玉をもらい、%CALLNAME:MASTER%は教室から追い出された……
		PRINTL
		BASE:MASTER:精力 = MIN(BASE:MASTER:精力 + 1, MAXBASE:MASTER:精力)
		PRINTFORMW 精力+1
		GOTO END
	ENDIF
ENDSELECT

$DEBUGCHECK
PRINTL
[IF_DEBUG]
	GOTO DEBUGCARD
[ENDIF]
GOTO DRAWCARD

$DEBUGCARD
PRINTFORML デバッグモードでは好きなカードを引くことができます。
PRINTFORML 要用哪个标语呢？
CALL PRINT_SELECT, "大当たり/金運/恋愛運/健康運/仕事運/随机"
IF RESULT == 0
	GOTO JACKPOT
ELSEIF RESULT == 1
	GOTO KIN
ELSEIF RESULT == 2
	GOTO RENAI
ELSEIF RESULT == 3
	GOTO KENKOU
ELSEIF RESULT == 4
	GOTO SIGOTO
ELSE
	GOTO DRAWCARD
ENDIF

$DRAWCARD
PRINTL
PRINTFORMW %CALLNAME:MASTER%はカードを一枚引いた……！
PRINTL
IF RAND:2
	STR:1 = 「%TEXTR("ほう、これはこれは……/ふっふっふ……そうかそうか……/ふむふむ、なるほど……/へっへっへ……こりゃいかんですな～")%」#F目陰/萌え袖
	CALL DIALOGUE_FRAME_NAMEW, TARGET
ELSE
	STR:1 = 「%TEXTR(@"な、なんてことだ……！ これは……！！/そ、そんな……まさかこいつは……！？/なっ、う、嘘だろう……こんなことが……！？/なんてこった……%CNAME("二人称")%ってヤツは……！")%」#F重置/〇〇/憤怒眉/半開/对话框惊讶
	CALL DIALOGUE_FRAME_NAMEW, TARGET
ENDIF
PRINTL
IF RAND:10 == 0
	$JACKPOT
	STR:1 = 「おめでとう！ ジョーカーのカード、こいつは大当たりだよ%CNAME("主人")%君！」#F重置/〇〇/ワ/对话框開心
	STR:2 = 「見事このカードを引き当てた%CNAME("二人称")%には賞金$30000に加え、ウナギの赤ワイン煮と牡蠣を3ダース」
	STR:3 = 「そしてイギリス史がイヤって言うほどよくわかる秘蔵の本と、ついでに%CNAME("一人称")%の無償の愛を送禮だ！」
	CALL DIALOGUE_FRAME_NAMEW, TARGET

	PRINTFORMW ド施虐狂サと景品を渡され、ついでに熱烈なキッスをもらった。
	PRINTFORMW よくわからないが、大戦果だ……！
	PRINTL
	MONEY += 30000
	PRINTFORMW %CALLNAME:MASTER%的所持金：%MONEY_C(MONEY)%
	BASE:MASTER:精力 = MIN(BASE:MASTER:精力 + 50, MAXBASE:MASTER:精力)
	PRINTFORMW 精力+50
	CFLAG:MASTER:勉強時間 += 3
	PRINTFORMW 勉強時間+3
	CFLAG:好感度 += 100
	PRINTFORMW 好感度+100
ELSE
	IF RAND:4 == 0
		$KIN
		STR:1 = 「ダイヤのカード……金運かぁ。よかったね、%CNAME("主人")%君。一番無難で良い感じの当たりだよ」#F重置/斜眼/斜眉/無口系
		STR:2 = 「この先、お金絡みで%CNAME("二人称")%に良いことがあるよ。おめでとう」
		STR:3 = 「じゃ、今日の占いはここまでだ。お疲れ様。回頭见。さよなら」
		CALL DIALOGUE_FRAME_NAMEW, TARGET

		PRINTFORMW 簡素な占い結果の報告と共に、%CALLNAME:MASTER%はさっさと部屋の外に追い出された……
		PRINTL
		PRINTFORMW ……扉を開けた先の床に、いつの間にかこれみよがしに$5000が落ちていた。
		PRINTL
		STR:1 = 「%TEXTR("さぁてと、ちょいと一睡眠でもしちまおっかなぁ～？/うぅ～ん、今日もいっぱい働いて疲惫よねぇ～/ふぁ～あ、今日も大繁盛だったなぁ～っと……")%」#F重置/闭眼/斜眉/半開/对话框困倦/萌え袖
		CALL DIALOGUE_FRAME_NAMEW, TARGET

		PRINTFORMW %CALLNAME:TARGET%もこれみよがしに知らんぷりをしている……
		PRINTFORMW %TEXTR("仕方ないので/せっかくなので/拾ったほうが良さそうなので/一応")%もらっておくことにした……
		PRINTL
		MONEY += 5000
		PRINTFORMW %CALLNAME:MASTER%的所持金：%MONEY_C(MONEY)%
	ELSEIF RAND:3 == 0
		$RENAI
		STR:1 = 「爱心のカード！ 恋愛運じゃないか。さすがは%CNAME("主人")%だ、持ってるねぇ」#F重置/笑颜/斜眉/微笑/萌え袖
		STR:2 = 「そうだね、いま身近にいる女性との恋に進展があるだろう。いやぁ良かったねえ%CNAME("主人")%君」
		CALL DIALOGUE_FRAME_NAMEW, TARGET

		PRINTFORMW 我が事のように開心地言う%CALLNAME:TARGET%の目はなんだか情熱的だ……
		PRINTL
		STR:1 = 「なんなら今週末に约会にでも誘えば、もっと進展が望めるかもしれないねえ……」#F重置/闭眼/左斜眼/斜眉/微笑/萌え袖
		IF COND("约会的约定")
			STR:2 = 「って、あぁそうだ。そもそも约会的约定はとうにしていたっけか」#F重置/〇〇/斜眉/無口系
			STR:3 = 「いやいや、忘れてないぞ。だって約束をしてから全然時間も経ってないじゃないか」
			STR:4 = 「ハハハハハ。心配するなよ%CNAME("主人")%君！ 当日に遅刻ぐらいはするだろうが、流石にすっぽかしゃあしないって」#F重置/〇〇/斜眉/ワ/对话框兴奋
			CALL DIALOGUE_FRAME_NAMEW, TARGET

			PRINTFORMW 改めて週末の约会的约定を再確認したのだった……
			PRINTL
			CFLAG:好感度 += 30
			PRINTFORMW 好感度+30
		ELSEIF FIND_COND("约会的约定")
			STR:2 = 「……と思ったが、なんだい%CNAME("二人称")%。もしかして既に先約があるな？」#F重置/斜眼/斜眉/無口系
			STR:3 = 「はー、大した\@ TALENT:MASTER:男性 ? 男性 # 女性 \@だね%CNAME("二人称")%は。まだまだ周一だってのに手の早いこと早いこと」#F重置/〇〇/斜眉/ワ
			STR:4 = 「流石に我らが%CNAME("主人")%殿に不義理をさせるワケに是かないな。今日はコレくらいでカンベンしてやろう」#F重置/眯眯眼/斜眉
			CALL DIALOGUE_FRAME_NAMEW, TARGET

			PRINTFORMW %CALLNAME:TARGET%は横から%CALLNAME:MASTER%の顎に悄悄的手を添え、頬にチュウをした……
			PRINTL
			CFLAG:好感度 += 25
			PRINTFORMW 好感度+25
		ELSE
			CALL DIALOGUE_FRAME_NAMEW, TARGET

			CALL PRINT_SELECT, @"%CALLNAME:TARGET%を邀请去约会/そろそろ返回"
			IF RESULT == 0
				PRINTL
				STR:1 = 「おおっ！？ それは本当かい、%CNAME("主人")%君！」#F重置/笑颜/斜眉/ワ/对话框開心
				STR:2 = 「いやぁ、こうも運命的なお誘いをされちゃあ%CNAME("一人称")%も断れないなあ！」
				STR:3 = 「良いだろう、今度の周日日に。楽しみにしているよ、愛しの%CNAME("主人")%君！」#F重置/笑颜/左普通眼/微笑/对话框爱心/萌え袖
				CALL DIALOGUE_FRAME_NAMEW, TARGET
				PRINTL
				PRINTFORMW そういうわけで、%CALLNAME:TARGET%と周日日に约会をすること变成了……
				CALL SETFLAG, "约会的约定", TARGET
				PRINTL
				CFLAG:好感度 += 30
				PRINTFORMW 好感度+30
			ELSE
				PRINTL
				STR:1 = 「あッ、キサマ！ ハシゴ取下つもりか！」#F重置/〇〇/憤怒眉/半開/对话框惊讶
				STR:2 = 「逃がすか！ せめてこの場でチューくらいはしてけコノヤロー！」
				CALL DIALOGUE_FRAME_NAMEW, TARGET

				PRINTFORMW %CALLNAME:TARGET%に飛びかかられ、熱烈に唇を奪われてしまった……
				PRINTL
				CFLAG:好感度 += 25
				PRINTFORMW 好感度+25
			ENDIF
		ENDIF
	ELSEIF RAND:2
		$KENKOU
		STR:1 = 「クラブのカード……こいつは健康運だね。うんうん、良いことだ。不死身の%CNAME("二人称")%にピッタリ」#F重置/眯眯眼/萌え袖
		STR:2 = 「ココ最近疲れているようなら、ちょいと元気になれるようなことがあるかもしれないね」
		STR:3 = 「占いは以上だ。さて……%CNAME("一人称")%はちょいとお腹が空いたからご飯でも食べることにするよ」#F重置/眯眯眼
		CALL DIALOGUE_FRAME_NAMEW, TARGET

		PRINTFORMW そう言うと%CALLNAME:TARGET%は、机の中から異様に大号的重箱を取り出した……！
		PRINTFORMW 蓋を開けると、濃厚に焼き上がったタレと、旨味を予感させる香りが部屋中に立ち上る……
		PRINTFORMW これは……鰻魚盒飯だ……！！
		PRINTL
		STR:1 = 「うーん、困ったなぁー。宅配で注文したんだがサイズを見誤ってしまった」#F重置/闭眼/嘟嘴/萌え袖
		STR:2 = 「さすがの%CNAME("一人称")%もこんなにいっぱい食べられない。こまったなー、どうしよう」
		STR:3 = 「――チラ」#F重置/闭眼/左斜眼/萌え袖
		CALL DIALOGUE_FRAME_NAMEW, TARGET

		PRINTFORMW 一緒に食べることにした……
		PRINTL
		BASE:MASTER:精力 = MIN(BASE:MASTER:精力 + 30, MAXBASE:MASTER:精力)
		BASE:精力 = MIN(BASE:精力 + 30, MAXBASE:精力)
		PRINTFORMW 精力+30（二人とも）
	ELSE
		$SIGOTO
		STR:1 = 「スペードのカード。うん、仕事運のカードだね」#F重置/闭眼/無口系/萌え袖
		STR:2 = 「学生の仕事といったら勉強だ。つまり、%CNAME("二人称")%の今後の学業に吉アリということだね」
		STR:3 = 「良いことじゃあないか。%CNAME("二人称")%の成績が良くなるのなら%CNAME("一人称")%も部員として哈娜が高い」#F重置/眯眯眼/斜眉/ワ/萌え袖
		STR:4 = 「じゃ、今後とも頑張ってくれたまえよ、%CNAME("主人")%君」
		CALL DIALOGUE_FRAME_NAMEW, TARGET

		PRINTFORMW ――%CALLNAME:MASTER%が占いを終えて部室に戻ってくると、なぜか自分宛てに参考書が置いてあった。
		PRINTFORMW 思ったよりわかりやすく、参考变成了……
		PRINTL
		CFLAG:MASTER:勉強時間 += 1
		PRINTFORMW 勉強時間+1
	ENDIF
ENDIF

$END
CALL SET_CEVENT, "占い終了"
[IF_DEBUG]
	CALL DEL_CEVENT, "占い終了"
	CALL PRINT_STRW, "黄色_※デバッグモードのため、一日に何回でも占いをすることができます。"
[ENDIF]
CALL SET_MEMO_DRESS, "帰宅時の格好"

;このERBの書き方きたない（確信）

path: ERB/EVENT_K/53 メイプル/EVENT_K53_LONG.ERB

license: unknown