code:
;-------------------------------------------------
;各種打招呼
;-------------------------------------------------
@KOJO_GREETING_K30, ARGS
#DIM MEMO_LINECOUNT
;イベント発生中の角色
#DIM ACTOR
;イベント発生中の角色の默认のCALLNAME
#DIMS CALLNAME_ACTOR

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝接吻"
		CALL EMOTION_PLUS, "重置/左闭眼/半目/小口/紅潮２"
		PRINTFORML 「ん、ちゅっ…%TEXTR("おはよう/む、起きたか")%、%CNAME("二人称")%」
		IF TEXTS("曜日") == "日"
			PRINTFORMW 「今日は休日だが%TEXTR("何かする予定はあるか？/どうやって過ごす？")%%TEXTR(@"%CNAME("一人称")%は少し出かけるが…何ならついてきても良いのだぞ？/何も無いならむやみに出かけず家で過ごすのも良いだろうな/%CNAME("一人称")%はゆっくり過ごさせてもらうぞ")%」
		ELSE
			PRINTFORMW 「%TEXTR(@"今日も一日張り切っていこうではないか/目覚めの接吻はどうだ、%CNAME("二人称")%よ/接吻だけで半勃ちか…朝から元気そうで何よりだな")%」
		ENDIF
	CASE "朝口交", "朝六九式"
		CALL EMOTION_PLUS, "重置/半目/小口/紅潮２"
		PRINTFORMW 「んっ…んぐ…ん…ちゅぱっ、ちゅぽっ………む、ようやく起きたか、%CNAME("二人称")%」
		PRINTFORMW 「…残念だが朝はこれだけだぞ？後でたっぷり相手してやる」
	CASE "朝騎乗位"
		CALL EMOTION_PLUS, "重置/ワ/紅潮２/对话框爱心"
		CALL PRINT_STRW, "「んぁっ、良い、良いぞっ…くっ、ああぁッ_H_」"
		CALL PRINT_STRW, @"「はっ、はぁ…おはよう、%CNAME("二人称")%よ。ククッ、朝一の騎乗位は効くな…ぁンッ_H_」"
	ENDSELECT

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

	IF COND("体育")
		PRINTFORMW 「今日は体育があるようだな。ほれ、体育着だ」
	ELSE
		IF RAND:2
			PRINTFORMW 「起きろ、この寝坊助め」
			PRINTFORMW 「まだ朝食を取る時間だけはあるぞ。早いところ食べて準備しろ」
		ELSE
			PRINTFORMW 「起きたか、%CNAME("二人称")%よ」
			IF FINDCHARA(NO, 1) > 0
				PRINTFORMW 「もう%CALLNAME:FINDCHARA(NO, 1)%が朝食来招待，待っているぞ」
			ENDIF
		ENDIF
	ENDIF
CASE "一番乗り"
	PRINTFORMW 「邪魔するぞ…って何だ、誰也不在のか」
CASE "ただいま"
	PRINTFORMW 「帰ったぞ、%CNAME("二人称")%」
	PRINTFORMW 「%TEXTR(@"隅で見ていたが、今日も一日頑張っていたな。どれ、頭を撫でてやろう/今日の夕食は何だ？腹が減ってしょうがない/今、浴室は誰も入ってないか…%CNAME("一人称")%が先に入っても良いか？")%」
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		PRINTFORMW 「帰ったか、%CNAME("二人称")%よ」
		PRINTFORMW 「%TEXTR("隅で見ていたが、今日も一日頑張っていたな。どれ、頭を撫でてやろう/浴室が沸いているぞ。先に入って来てしまえ/疲惫時には甜物に限る。ほれ、アメをやろう")%」
	ELSE
		PRINTFORMW 「来たか、%CNAME("二人称")%よ」
		PRINTFORMW 「%TEXTR(@"授業中に居睡眠するのは感心せんな。%CNAME("一人称")%が隠れて起こしてなければどうなっていたか…/今日はしっかり勉学に励んでいたな。午後もその調子で頑張るのだぞ/悪いが先に寛がせてもらっていた。…茶でも飲むか？")%」
	ENDIF

CASE "入室打招呼"
	SELECTCASE CFLAG:MASTER:PREV_DAILYCATE
	;Talk
	CASE 1
		SELECTCASE CSTR:MASTER:PREV_DAILYCOM
		CASE "甜言蜜语"
			PRINTFORMW 「…%TEXTR("ふむ/ほう")%、奉承の最中だったか」
		CASE "打招呼舐陰", "打招呼口交"
			PRINTFORMW 「…%TEXTR("ふむ/ほう")%、日も高いうちからお盛んだな、えぇ？」
		ENDSELECT
		PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%達をニヤニヤしながら興味深げに見ている。
	;互动
	CASE 2
	;卖个破绽
	CASE 3
	;胖次
	CASE 4
		IF RAND:2
			CALL EMOTION_PLUS, "重置/斜眼２/斜眉"
			PRINTFORMW 「…ああいや、%CNAME("一人称")%の事は気にせず続けるが良い」
			PRINTFORMW 「それとも少し席を外した方が良いか？」
		ELSE
			CALL EMOTION_PLUS, "重置/斜眼２/斜眉/無口系/对话框・・・"
			PRINTFORMW 「あーその、%CNAME("二人称")%よ…」
			PRINTFORMW 「…まぁ良いか。ここでやってるうちは誰も咎めんしな」
		ENDIF
	CASE 6
		IF RAND:2
			CALL EMOTION_PLUS, "重置/斜眼２/斜眉/無口系/对话框・・・"
			PRINTFORMW 「…ああいや、%CNAME("一人称")%の事は気にせず続けるが良い」
			IF TALENT:恋慕
				PRINTFORMW 「無論、後で%CNAME("一人称")%も相手してくれるのだろうな？」
			ELSE
				PRINTFORMW 「それとも少し席を外した方が良いか？」
			ENDIF
		ELSE
			CALL EMOTION_PLUS, "重置/斜眼２/△"
			PRINTFORMW 「あーその、%CNAME("二人称")%よ…」
			IF TALENT:恋慕
				PRINTFORMW 「%CNAME("一人称")%もその…そういう事してやっても良いのだぞ？」
			ELSE
				PRINTFORMW 「…まぁ良いか。ここでやってるうちは誰も咎めんしな」
			ENDIF
		ENDIF
	ENDSELECT

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

	IF CFLAG:呼び出された
		;IF COND("夜")

		;ELSE
			PRINTFORML 「%TEXTR("どうした/何だ/呼んだか/何用だ/只今馳せ参じたぞ")%、%CNAME("二人称")%」
			IF RAND:2
				PRINTFORML 「…%TEXTR("ククッ/全く/はぁ")%、そんなに驚かなくても良いだろうに…%CNAME("二人称")%は可愛いな」
				PRINTFORMW %TEXTR(@"死角から/%CALLNAME:MASTER%の後ろに/扉も窓も通らずに")%音も無く現れた%CALLNAME:TARGET%正在认真地读着标题为クスクスと愉快そうに笑着いる…。
			ELSE
				PRINTFORML 「%CNAME("一人称")%%TEXTR("の事が恋しくなったか？ククッ♪/に何か頼みでもあるのか？/の力が必要と見たぞ/はすぐに駆けつけるぞ、大事な契約者の危機かもしれないからな")%」
				PRINTFORMW 呼び出された%CALLNAME:TARGET%正在认真地读着标题为得意げに微笑んでいる。
			ENDIF
		;ENDIF
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「%TEXTR("…出遅れたか/むぅ、既に皆揃っておるようだな")%」
	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 『%CNAME(CALLNAME_ACTOR)%か。先に寛がせてもらってるぞ』
	ENDIF

CASE "居間に現れた"
	;一度居間から別の場所に行って、居間に帰って来た時
	IF CMOVE("居間")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "抜け出された"
		PRINTFORMW
CASE "便当"
	IF CEVENT("初めての便当") == 0
		CALL EMOTION_PLUS, "重置/飘忽/困扰眉/無口系"
		PRINTFORMW 「さて、約束街道弁当来招待，きたぞ…。%CNAME("二人称")%の口に合えば良いのだが」
		PRINTFORMW %CALLNAME:TARGET%が自信無さげに手渡してきた弁当は…フルーツ三明治だった。
		PRINTFORMW 一口食べてみると、阴蒂ームのほど良い甘さと果物の酸味が絶妙で美味しかった…。
		CALL EMOTION_PLUS, "重置/笑颜４/ヮ"
		PRINTFORMW 「…その反応から察するに、食べられる代物だったと言うことだな」
		PRINTFORMW 「誰かに自分の作ったものを美味しく食べてもらえる…中々嬉しいものだな」
		PRINTFORMW どこか照れくさそうにはにかむ%CALLNAME:TARGET%をおかずに、弁当を食べきった…。
		CALL SET_CEVENT, "初めての便当", TARGET
	ELSE
		CALL EMOTION_PLUS, "重置/笑颜４"
		IF RAND:3 == 0
			PRINTFORMW 「今日の弁当は%TEXTR("アップル餡餅/イチジクのタルト/バタースコッチシナモン餡餅")%だ」
			PRINTFORMW 「…甜点じゃないかと思ったろう？すまない、急に食べたくなってしまったのだ…」
		ELSEIF RAND:2
			PRINTFORMW 「今日の弁当は%TEXTR("カレー風味の/乳酪入りチキン/海鮮ピラフ風")%ライスコロッケだ」
			PRINTFORMW 「父が人类界で一番美味い食べ物だともてはやして、一時期こればかり料理人に作らせていてな…」
		ELSE
			PRINTFORMW 「今日の弁当は%TEXTR("カツ三明治/フルーツ三明治/タマゴ三明治/ＢＬＴ三明治")%だぞ」
			PRINTFORMW そう言って%CALLNAME:TARGET%正在认真地读着标题为弁当箱を３つほど差し出してきた…。
			PRINTFORMW 「…張り切って作り過ぎてしまってな。%CNAME("一人称")%は間食もコレになりそうだ」
		ENDIF
	ENDIF
ENDSELECT

;-------------------------------------------------
;メイン画面での台詞。いわゆる一言イベント強化版
;ちなみに画面随机属性しても同じセリフを喋ります
;選択肢に挟まれた場所で出力するのでWAITの使用は禁止
;-------------------------------------------------
@KOJO_DAILY_K30, ARGS
#DIM MEMO_LINECOUNT
#DIM ACTOR
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「悪魔の%CALLNAME:TARGET%だ。请多関照」
	PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为部員達に握手して回っている。
CASE "浑身是汗"
	CALL EMOTEFACE, "重置/半目/蹙眉/へ字２/对话框汗２/頬汗"
	IF RAND:2
		PRINTFORML 「呼、好热…。衣服都被汗浸透了」
		PRINTFORML %CALLNAME:TARGET%一边不停的擦汗、一边用团扇向胸口扇风。
	ELSE
		PRINTFORML 「%CNAME("一人称")%还不是容易出汗的人…」
		PRINTFORML 筋疲力尽的%CALLNAME:TARGET%无力地擦着汗…。
	ENDIF
CASE "刚睡醒"
	IF CHOSE_DEVENT("睡眠姦接吻")
		CALL EMOTEFACE, "重置/左闭眼２/無口系/紅潮２/对话框爱心/托下巴"
		PRINTFORML 「%TEXTR(@"呜呣…王子的吻…吗/嗯…觉醒地比我想象地要快/%CNAME("二人称")%啊。%CNAME("一人称")%地嘴上怎么有我的味道？库库ッ♪")%」
	ELSEIF CHOSE_DEVENT("睡眠姦口交")
		CALL EMOTEFACE, "重置/斜眼２/困扰眉/ڡ/紅潮２"
		IF RAND:2
			PRINTFORML 「嗯、ぅ…ッ、你的精液真浓…咳咳…」
			IF ABL:精液中毒
				PRINTFORML %CALLNAME:TARGET%在那里抱怨着、脸却放松下来、舌頭好像在品味精液般慢慢搅动…。
			ELSE
				PRINTFORML %CALLNAME:TARGET%熏红了脸轻轻地咳嗽…。
			ENDIF
		ELSE
			PRINTFORML 「…%CNAME("一人称")%睡觉时的嘴巴舒服吗？」
			IF ABL:精液中毒
				PRINTFORML %CALLNAME:TARGET%舔着嘴唇，用火热的目光注视着%CALLNAME:MASTER%…。
			ELSE
				PRINTFORML %CALLNAME:TARGET%用呆滞的目光看着%CALLNAME:MASTER%…。
			ENDIF
		ENDIF
	ELSEIF CHOSE_DEVENT("睡眠姦Ｖ中出し")
		CALL EMOTEFACE, "重置/左闭眼２/微笑６/紅潮２/对话框爱心"
		IF RAND:3 == 0 && ABL:信頼 >= 5 && CEVENT("両親の夢")
			PRINTFORML 「…我梦到自己在%TEXTR(@"父亲死的那天晚上/母亲的葬礼之后")%，被%CNAME("二人称")%抱在怀中」
			PRINTFORML 「梦中的%CNAME("二人称")%呢…一边温柔地安慰哭泣的%CNAME("一人称")%、一边尽力我身体里注入精液…？」
			PRINTFORML 用手指擦掉眼角的泪痕、%CALLNAME:TARGET%一脸得意地靠近%CALLNAME:MASTER%…。
		ELSEIF RAND:2
			PRINTFORML 「嗯…谁的精子啊，感觉子宫好重…。%CNAME("二人称")%、你知道是谁吗？」
			PRINTFORML %CALLNAME:TARGET%故意揉了揉下腹问道…。
		ELSE
			PRINTFORML 「呣、这个是…内裤上地是精液吗」
			PRINTFORML 「库库、%CNAME("一人称")%睡觉时地小穴很舒服吧…%CNAME("二人称")%觉得呢」
			PRINTFORML %CALLNAME:TARGET%优雅地用手指搅动上面精液、向%CALLNAME:MASTER%露出威胁的笑容…。
		ENDIF
	ELSE
		;奥丝卡が夢でうなされているのを一度でも見ると追加
		IF RAND:3 == 0 && CEVENT("両親の夢") + CEVENT("悪夢")
			CALL EMOTEFACE, "重置/左涙目＞＜/蹙眉/哈欠大"
			PRINTFORML 「%TEXTR(@"夢啊…夢、原来是夢…/…啧、又是那个梦吗…/…怎么了%CNAME("二人称")%。%CNAME("一人称")%的脸上有什么东西吗？")%」
			PRINTFORML %CALLNAME:TARGET%的脸颊与眼角，出现了淡淡的泪痕…。
		ELSEIF RAND:2
			CALL EMOTEFACE, "重置/左闭眼２/哈欠小"
			PRINTFORML 「嗯嗯嗯恩…！呃啊啊啊…」
			PRINTFORML 醒来的%CALLNAME:TARGET%挺起了脊背、舒展的身体强调着丰满的胸部。
		ELSE
			CALL EMOTEFACE, "重置/左闭眼２/半目/～/对话框困倦/唇边手"
			PRINTFORML 「呼…呼哇～…咕噜咕噜…」
			PRINTFORML %CALLNAME:TARGET%优雅地用手遮住嘴巴打了个哈欠。
		ENDIF
	ENDIF
CASE "Cosplay中"
	PRINTFORML
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K30
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML （父亲…母亲…我……会幸福的…!）
	PRINTFORML 眼睛里含着泪的%CALLNAME:TARGET%握着%CALLNAME:MASTER%的手祈祷道…。
CASE "约会的约定"
	PRINTFORML （好了，现在開始得准备衣服了…）
;これは悪魔のみ
CASE "契約成立"
	IF RAND:3 == 0
		CALL EMOTEFACE, "重置/小口/托下巴"
		PRINTFORML 「不过、一天就能再生一人还多的魂…」
		PRINTFORML 「…你真幸运没被那些人渣注意到」
	ELSEIF RAND:2
		CALL EMOTEFACE, "重置/左笑颜４/对话框開心"
		PRINTFORML 「库库、这场交易真不错♪　下次继续」
		PRINTFORML %CALLNAME:TARGET%看起来非常高兴，对%CALLNAME:MASTER%露出了笑容。
	ELSE
		CALL EMOTEFACE, "重置/左闭眼２/半目/ڡ２"
		PRINTFORML 「嗯哼、真是优质的魂。那么马上…啊、嗯…」
		IF RAND:2
			PRINTFORML %CALLNAME:MASTER%只见白色的魂白色摇曳的灵魂缠绕在%CALLNAME:TARGET%艳丽的舌頭上被慢慢吞下…。
			PRINTFORML 「…着是什么表情。只是美美地享用了%CNAME("二人称")%交易的魂而已…库库库♪」
		ELSE
			PRINTFORML 「…呼呼、感觉得到吗…%CNAME("二人称")%的魂喝%CNAME("一人称")%融为一体了…」
			PRINTFORML %CALLNAME:TARGET%把双手放在乳沟上，心满意足地呼出了口气…。
		ENDIF
	ENDIF
CASE "摆脱"
	PRINTFORML
CASE "主人公的房間に連れ込まれた"
	IF RAND:2
		PRINTFORML 「どうした、わざわざ%CNAME("一人称")%を連れ込んだりして」
		PRINTFORML 「…ナニをするつもりか気になるなぁ？ククッ♪」
		SIF BASE:欲求不満 >= 75
			PRINTFORML 冗談のように喉を鳴らして笑う%CALLNAME:TARGET%だが、%CALLNAME:MASTER%を捉える眼光は期待に満ち満ちている…。
	ELSE
		PRINTFORML 「スンスン…部屋の前を通るたび感じていたが、やはり%CNAME("二人称")%の气味が濃いな」
		PRINTFORML 「青臭い、精力に満ちた若い雄の气味だ…。ククッ、少なくとも%CNAME("一人称")%は好きな气味だぞ？」
		SIF BASE:欲求不満 >= 75
			PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%にしなだれかかり、マーキングするように腰を纠缠着擦り付けてくる…。
	ENDIF
CASE "自室に招待"
	IF RAND:2
		PRINTFORML 「%CNAME("二人称")%よ。闲ならこのまま%CNAME("一人称")%的房間で過ご桑か？」
		PRINTFORML 「%TEXTR("恥ずかしい話だが、寂しくて/何というか、无聊で")%な…。一人で過ごすのは慣れているはずだったのだが…」
	ELSE
		PRINTFORML 「わざわざ来てもらってすまないな、%CNAME("二人称")%」
		PRINTFORML 「いやなに、単純に%CNAME("二人称")%と二人っきりになりたかっただけだ」
		SIF BASE:欲求不満 >= 75
			PRINTFORML そう言う%CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%に身を寄せ、艶めかしく%CALLNAME:MASTER%の胸や下腹部を撫で続けている…。
	ENDIF
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML 「%TEXTR("む/おお")%、%CNAME("二人称")%と…%CNAME("助手")%か。%TEXTR("二人共よく来たな/二人揃ってどうした？/何か用か？")%」
	ELSE
		PRINTFORML 「%TEXTR("む/おお")%、%TEXTR("よく来たな/どうした/何か用か、")%%CNAME("二人称")%」
	ENDIF
	IF RAND:2
		PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为ロッキングチェアーに鷹揚と腰かけながら%CALLNAME:MASTER%\@ FIND_COND("現在存在", "助手") ? 達を # を \@出迎えた。
	ELSE
		PRINTFORML 床から起き上がった%CALLNAME:TARGET%正在认真地读着标题为優雅に小さく欠伸をしてから%CALLNAME:MASTER%\@ FIND_COND("現在存在", "助手") ? 達に # に \@歩みよった。
	ENDIF
	PRINTFORML 「%TEXTR("折角来てもらったのに、生憎茶も菓子もほぼ切らしていてな…すまない/たいして面白色物は無いが、まぁゆっくりしていってくれ/チェスでもやるか？それか床の上でヤる運動でも良いぞ？")%」
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML
CASE "露脐装超短裙胖次チラ"
	IF RAND:2
		CALL EMOTEFACE, "重置/对话框？"
		PRINTFORML 「どうした%CNAME("二人称")%、そんなにこっちを見て…」
		PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为胖次チラしていたことに気付いていないようだ…。
	ELSE
		CALL EMOTEFACE, "重置/半目/紅潮"
		PRINTFORML 「む、その視線…%CNAME("一人称")%の胖次が見えていたか？」
		PRINTFORML 「まぁこれだけ丈が短ければ、さも有なんむべなるかな…」
	ENDIF
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	PRINTFORML
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

	;	CALL SET_DEVENT, "巨大振動棒感想"
	;ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 4
			PRINTFORML 「これはまた…結構な数を買い込んできたな」
		CASEELSE
			PRINTFORML 「欲しいものは買えたか？」
		ENDSELECT
	;ENDIF
CASE "隐秘摄影失敗"
	PRINTFORML 「何をチラチラと落ち着かないな、と思えば…」
	PRINTFORML 「%CNAME("一人称")%のことはもっと堂々と撮っても良いのだぞ？無論、対価は頂くがな」
CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		IF ABL:露出癖 >= 3
			PRINTFORML 「ククッ…見てる、見てるぞ…♪」
			PRINTFORML 「皆が%CNAME("一人称")%のこの身体を…%CNAME("二人称")%のしもべを细心的な…♪」
		ELSE
			PRINTFORML 「むぅ…%CNAME("二人称")%以外にはあまり進んで見せたくないのだがな」
			PRINTFORML 「まぁ、この集まりは%CNAME("二人称")%が集めたものだし信頼しているから良いが…」
		ENDIF
	;まさかの野外
	ELSEIF PLACE("野外")
		IF ABL:露出癖 >= 3
			PRINTFORML 「ふぅ…この解放感、悪くないな…♪」
			PRINTFORML 「どれ、認識阻害もあるし少し散歩でもするか？クククッ…」
		ELSE
			PRINTFORML 「くぅっ…%CNAME("一人称", "どもり")%も流石にこれは恥ずかしいぞ」
			PRINTFORML 「死ぬわけでもない、契約者の頼みなら従わざるを得ないが…」
		ENDIF
	;不在個室
	ELSEIF PLACE("個室") == 0
		PRINTFORML 「…二人きりと是え、人目があるかもしれないところで裸にさせる…」
		PRINTFORML 「流石、色欲のために悪魔と契約するだけはあるな…褒めているのだぞ？」
	;個室で二人きり
	ELSE
		PRINTFORML 「ククッ…今は二人きりだからな♪」
		PRINTFORML 「%CNAME("一人称")%の身体…%TEXTR(@"存分に/思うがまま/満足行くまで")%%TEXTR(@"鑑賞する/視姦する/目に焼き付ける")%が良い…♪」
	ENDIF
CASE "拜托処理性欲"
	IF RAND:2
		PRINTFORML 「今度は%CNAME("一人称")%の性欲処理も頼もうか…ククッ」
	ELSE
		PRINTFORML 「スッキリしたか？…続きは床で、な♪」
	ENDIF
CASE "进行性処理"
	PRINTFORML 「…む、終わっていたのか？酱と後処理はしておくのだぞー」
CASE "帮忙消除性欲"
	IF RAND:2
		PRINTFORML 「今度は%CNAME("二人称")%の性欲処理をしてやろう、なぁにお互い様だ」
	ELSE
		PRINTFORML 「すまないな、%CNAME("一人称")%のわがままに付き合わせて…助かったぞ」
	ENDIF
CASE "清洁口交"
	IF RAND:2
		PRINTFORML 「どうだ、綺麗になっているだろう？こちらとしても魔力の残滓を回収出来て有がたいしな」
	ELSE
		PRINTFORML 「…あくまでも今のは掃除だからな？…続きは改めて…な♪」
	ENDIF

ENDSELECT

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

;標語の反応。書いたらコメントアウトを外してください
IF CFLAG:標語実践
	IF STRCOUNT(SAVESTR:標語, "注意口渴")
		;IF DEVENT("標語茶") == 0
		;	PRINTFORML
		;	CALL SET_DEVENT, "標語茶"
		;ENDIF
	ELSEIF STRCOUNT(SAVESTR:標語, "体操服")
		SELECTCASE SAVESTR:標語
		CASE "体操服はやっぱり布鲁马"
			;IF DEVENT("標語布鲁马") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語布鲁马"
			;ENDIF
		CASE "体操服はやっぱり运动短褲"

		CASE "体操服はやっぱり紧身短褲"

		CASE "体操服はやっぱり运动衫"
		;各分岐を細かく埋めずに、上の分岐を消して望みの体操服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ELSEIF STRCOUNT(SAVESTR:標語, "学生服")
		SELECTCASE SAVESTR:標語
		CASE "学生服は露脐装超短裙に限る"
			;IF DEVENT("標語露脐装超短裙") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語露脐装超短裙"
			;ENDIF
		CASE "学生服は超短迷你に限る"
		;各分岐を細かく埋めずに、上の分岐を消して望みの学生服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ENDIF
ENDIF

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

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
IF CFLAG:日常事件回数 >= 5 && DEVENT("名前について") == 0
	PRINTFORML 「…%CALLNAME:TARGET%と言う名は男性名ではないかと思っているだろう」
	PRINTFORML 「何というか%CNAME("一人称")%の本名は人类界基準では長い上に発音が難しいらしくてな…」
	PRINTFORML 「昔…１００年ぐらい前か、契約した人类に付けられたあだ名なのだよ」
	PRINTFORML 「確か、当時話題になっていた詩人の名前だったか…？」
	CALL SET_DEVENT, "名前について"
ELSEIF CFLAG:日常事件回数 >= 10 && DEVENT("呼び方について") == 0
	PRINTFORML 「%CNAME("二人称")%、という呼び方が気になるのか？」
	PRINTFORML 「…悪魔が聖書を語るのも可笑しいが、とにかくアレに『汝の隣人を愛せよ』とあるだろう」
	PRINTFORML 「%CNAME("一人称")%は人类と対等な友で有たい。打算など無くな」
	PRINTFORML 「だからその第一歩として、%CNAME("一人称")%はそなたを%CNAME("二人称")%、と呼ぶのだ」
	CALL SET_DEVENT, "呼び方について"
ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("家族について") == 0
	PRINTFORML 「%CNAME("一人称")%的家族についてか…」
	PRINTFORML 「父は強く健壮的家督、母はそんな父を支える美しく聡明な女性だった」
	PRINTFORML 「二人は%CNAME("一人称")%をとても愛してくれたが…母は５０年ほど前、父はつい先日亡くなった…」
	PRINTFORML （…%CNAME("一人称")%は二人にとって誇れる娘だったのだろうか…？）
	CALL SET_DEVENT, "家族について"
ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("家族について") && DEVENT("家族について２") == 0
	PRINTFORML 「両親以外的家族か…正直、あまり話したくないが…」
	PRINTFORML 「…単刀直入に言って、全員欲に溺れた下衆なクズ共だ。同じ血が流れているのが信じがたいほどにな」
	PRINTFORML 「父の死を手を叩いて喜び、父と母の遺産を二束三文で売り支付、権力を傘に召し使いを虐待して…」
	PRINTFORML 「あの時、少しでも情けを掛けた%CNAME("一人称")%が馬鹿だった…！……あ…ああ、すまない。つい熱くなってしまった」
	CALL SET_DEVENT, "家族について２"
ELSEIF CFLAG:日常事件回数 >= 20 && DEVENT("家族について２") && DEVENT("召し使いについて") == 0
	PRINTFORML 「家里的佣人…%CNAME("一人称")%にとっては他の親族よりも家族らしいものだ」
	PRINTFORML 「代々仕える由緒ある家系や単純に働き口を探して就職した者、元人类で父と母の眷属だった者もいたな」
	PRINTFORML 「どれにせよ、家の為、%CNAME("一人称")%や両親の為に身を粉にして働いてくれた大事な家族だ」
	PRINTFORML 「本当は父の葬儀が終わったら全員に闲を出すつもりだったのだが…%CNAME("一人称")%を送り出すために…」
	PRINTFORML 「あのクズ共に玩耍と称して虐待、拷問、强奸されてないかが唯々心配だ…」
	CALL SET_DEVENT, "召し使いについて"
ELSEIF CFLAG:日常事件回数 >= 25 && DEVENT("人类界来了経緯") == 0
	PRINTFORML 「%CNAME("一人称")%が人类界来了経緯でも話そうか」
	PRINTFORML 「クズ共が%CNAME("一人称")%の事を疎んで人类界に追放した、という体で召し使いの皆が協力して送り出してくれたのだ」
	PRINTFORML 「…どうも親族の奴らは%CNAME("一人称")%を追放するのではなく、好事家に性奴隷として売りつけるつもりだったらしいがな」
	PRINTFORML 「良くも悪くも向こうに戻れなくてな…両親の墓に毎日花を添えられない事と、召し使い達に闲を出せなかったのが本当に無念だ…」
	CALL SET_DEVENT, "人类界来了経緯"
;ELSEIF CFLAG:日常事件回数 >= 10 && DEVENT("") == 0
;	PRINTFORML 「」
;	CALL SET_DEVENT, ""
ELSEIF TEXTS("日期対応イベント") == "情人節" && CDAYEV("情人節") == 0
	PRINTFORML 「ああそうだ、今日は情人節？とやらだったな」
	PRINTFORML 「よし、これをやろう」
	PRINTFORM %CALLNAME:TARGET%が差し出したのは…
	IF RAND:3 == 0
		PRINTFORML 綺麗にラッピングされた巧克力だった。
		PRINTFORML …と思ったらラッピング含めた箱そのものが巧克力だった…。
		PRINTFORML 「クク、引っかかったな！…かく言う%CNAME("一人称")%もかつてコレで両親にからかわれたのだがな」
	ELSEIF RAND:2
		PRINTFORML 一見すると普通の巧克力チップ曲奇だった。
		PRINTFORML 「コレはな、食べる以外の方法で破壊すると増える曲奇だ」
		PRINTFORML 「叩くと増えるビスケットとやらを参考にして作ってみたのだが…どうだ？」
	ELSE
		PRINTFORML 青蛙の形をした生きた巧克力だった…。
		PRINTFORML 「クク、こいつは悪魔やそれに類する魔法使の兒童の中では一番人気の巧克力だ」
		PRINTFORML 「就这様食べても良いが、つがいにして専用の水槽に入れておけば勝手に繁殖して一生巧克力には困らなくなるぞ？」
	ENDIF
	PRINTL
	CALL PRINT_STRL, @"黄色_从%CALLNAME:TARGET%那里收到了巧克力！"
	CALL SET_CDAYEV, "情人節"
ENDIF
;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
;	PRINTFORML
ENDIF

;他の角色との掛け合い
SIF RAND:3 == 0
	CALL TaiTaChara_K30

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

;絡む角色を選出しておく
ACTOR = FIND_COND("現在存在")

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF STATE("酔酒")
	PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为%TEXTR(@"ほんのりと紅潮した顔で/ぼんやりと微妙に焦点の合わない目で")%%TEXTR(@"片手に持った鏡を慢慢地回している/鏡に残った酒を口にしている")%。
;ELSEIF COND("夜")

ELSE
	PRINTFORM %CALLNAME:TARGET%将
	IF RAND:3 == 0
		PRINTFORML %TEXTR("闲を持て余した様子で/鷹揚と椅子に腰かけて/ゴキゴキと首を鳴らしながら/鼻歌を歌いながら/无聊そうに")%%TEXTR("手紙を書いて/指先から小さく赤黑色稲妻を迸らせて/口紅を塗り直して/掌に紫色の光球来招待，は握りつぶして")%いる。
	ELSEIF RAND:2
		PRINTFORML %TEXTR("首を傾げながら『ソロモン王の遺産』/クックッと喉を鳴らして笑いながら『悪魔君』/感心しながら『悪魔辞典』/呆れた様子で失笑しながら『これで分かる！悪魔』")%という本を読んでいる。
	ELSE
		PRINTFORM 窓辺で
		IF RAND:2 && COND("夜")
			PRINTFORML 月を見上げ%TEXTR("て微笑んでいる/、目から一筋の涙を零している")%。
		ELSE
			PRINTFORML %TEXTR("コウモリ/カラス/クモ/ネズミ/ヤモリ/ヘビ/青蛙")%%TEXTR("と談笑して/を叱りつけて/に餌をやって/に何やら指示を出して")%いる。
		ENDIF
	ENDIF
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K30
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	PRINTFORML 「%TEXTR("スー………うっ………スー………/ン………むむ………/ぐぅ………ぐぅ………")%」
	PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为時折呻きながらも、安らかな寝息を立てて沉眠著。
ELSEIF RAND:2
	PRINTFORML 「%TEXTR("………父様………/…母様………母様ぁッ………/……一人に………しないで………")%」
	PRINTFORML 眠る%CALLNAME:TARGET%の目から涙がこぼれている…。
	CALL SET_CEVENT, "両親の夢"
ELSE
	PRINTFORML 「%TEXTR(@"………やめ、ろ…この………/このっ……外道共め……/……友よ………許せ……許してくれ……")%」
	PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为汗をかきながら酷くうなされている…。
	CALL SET_CEVENT, "悪夢"
ENDIF

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;-------------------------------------------------
@KOJO_DAILYCOM_K30, ARGS

;打招呼
#DIMS GREETING
#DIM MEMO_LINECOUNT
;イベント発生中の角色
#DIM ACTOR

#DIM CHOICE
#DIMS CHOICES

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

	;地の文の前の台詞がある場合はここに書く
	SELECTCASE SAVESTR:現在位置
	CASE "阵雨"
		PRINTFORMW
	ENDSELECT

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

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		PRINTFORMW
	CASE "内衣選び", "泳装選び"
		PRINTFORMW
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏", "站着读书", "買食物", "物色游戏"
		PRINTFORMW
	CASE "检查新刊"
		PRINTFORMW
	CASE "繞道"
		PRINTFORMW
	CASE "直帰"
		PRINTFORMW
	CASE "圣诞节前夕"
		IF RAND:3 == 0
			PRINTFORML 「…そういえば聖夜祭が近いのだったな。中々に人が多い」
			PRINTFORML 「待て、はぐれないように手を…クク、そうだ…このままエス外套を頼むぞ♪」
			PRINTFORMW （…%CALLNAME:MASTER%の手、暖かいな…♪）
		ELSEIF RAND:2
			PRINTFORML 「全く、大昔の聖人とやらの誕生日如きでこんなに騒ぎ立てるとは…」
			PRINTFORMW 「…などと思っていたのも今は昔、祭りは楽しまなければ損だ！そうだろう、%CNAME("二人称")%！」
		ELSE
			PRINTFORML 「聖夜祭は好きだ。街が煌びやかに飾りたてられ、人々が活気と笑顔に満ちるからな」
			PRINTFORMW 「…何だ？悪魔がこんなことを言うのはおかしいのか…？」
		ENDIF
	CASEELSE
		PRINTFORMW
	ENDSELECT

CASE "放課後Ｈ的邀请"
	SELECTCASE SAVESTR:归途の行動
	CASE "圣诞节前夕"
		IF RAND:2
			PRINTFORML 「ククッ、聖夜祭当日でもないのに中々に盛り上がってしまったな」
			PRINTFORMW 「どうだ…二人きりになれる所でもう少し祭り気分を楽しんでいかないか？%CNAME("二人称")%…♪」
		ELSE
			PRINTFORML 「はぁ…楽しいがすっかり身体が冷えてしまったな」
			PRINTFORMW 「ここは一つ、二人きりの暖めあってから帰りたくはないか？…クククッ♪」
		ENDIF
	CASEELSE
		IF COND("同居中")
			PRINTFORML 「%TEXTR(@"んむ/ふう")%…%TEXTR(@"%CNAME("二人称")%、少し疲惫のではないか？/流石に少し疲惫な")%」
			PRINTFORMW 「%TEXTR(@"適当な場所で『休んで』から帰らないか？クク…♪/ちょうど『休憩』出来る場所も近いからな、少し寄っていきたいのだが…")%」
		ELSE
			PRINTFORML 「%TEXTR(@"/むぅ")%…%TEXTR(@"少し時間が押しているようだな/もう返回のか？%CNAME("二人称")%")%」
			PRINTFORMW 「%TEXTR(@"もう少し…もう少しだけ一緒に行きたいところがあるのだが良いか？/%CNAME("一人称")%はもう少し%CNAME("二人称")%と一緒にいたいのだが…%CNAME("二人称")%はどうだ？")%」
		ENDIF
	ENDSELECT

;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
CASE "休憩"
	IF PLACE("自宅")
		IF COND("夜")
			IF RAND:2 && ABL:露出癖 >=4 && ABL:欲望 >=4 && ABL:受虐属性>= 3
				IF CEVENT("夜の『散歩』：奥丝卡") == 0
					PRINTFORML 「闲そうだな、%CNAME("二人称")%」
					PRINTFORMW 「…どうせ闲なら少し『散歩』に行かないか？」
					PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为、どこか期待するような目でリード付きの项圈を差し出してきた…。
				ELSE
					IF RAND:3
						PRINTFORML 「もう寝るのか、%CNAME("二人称")%よ」
						PRINTFORMW 「…そうだ、寝る前に少し『外で運動』しないか？」
					ELSEIF RAND:2 == 0
						PRINTFORML 「闲か？%CNAME("二人称")%」
						PRINTFORMW 「…『散歩』にでも行かないか？ククッ…♪」
					ELSE
						PRINTFORML 「少し良いか？%CNAME("二人称")%」
						PRINTFORMW 「%CNAME("二人称")%さえ良ければ、また『散歩』に行こうではないか…♪」
					ENDIF
				ENDIF
				PRINTFORMW …怎么办？
				PRINTFORML [0] 『散歩』に出かける
;				PRINTFORML [1] 一人で『散歩』に行かせる
				PRINTFORML [1] 还是算了

				CALL INPUT_SELECT, 3
				CHOICE = RESULT

				SELECTCASE CHOICE
				CASE 0
					PRINTFORML 期待に満ちた顔の%CALLNAME:TARGET%を連れて、『散歩』に行くことにした…。
					PRINTFORMW
					IF RAND:4 == 0
						PRINTFORMW …%CALLNAME:MASTER%は『散歩』の途中で、自分と同じように『ペットと散歩』している飼い主に出会った。
						PRINTFORMW 「…まさかこんなところで同類に出くわすとは…な…♪」
						PRINTFORML 意気投合し、世間話をする%CALLNAME:MASTER%達の%TEXTR(@"横/足元")%で、%CALLNAME:TARGET%と他所のペットは互相用痴態で自慰し始める…。
						CALL PRINT_SELECT, "この場で交尾or躾ける/向こうの飼い主にスワッピングを提案する"
						IF RESULT == 0
							PRINTFORML 「むっ…まさか見せつけるつもりか？ククッ…♪」
							PRINTFORM 想要把%CALLNAME:MASTER%ははしたないペットの%CALLNAME:TARGET%に我慢ならず、
							IF RAND:3 == 0
								PRINTFORMW 轻轻地突き飛ばして仰向けに推倒、体重をかけた突き込みで膣奥まで貫いた…。
							ELSEIF RAND:2
								PRINTFORMW リードを引っ張って跪かせると、背中に覆いかぶさりながら阴部に阴茎を突き立てた…。
							ELSE
								PRINTFORMW 彼女を从后面将抱き寄せて就这様立后背位で犯し始めた…。
							ENDIF
							PRINTFORML %CALLNAME:MASTER%が%CALLNAME:TARGET%とまぐわう様子に中てられたのか、他所の飼い主とペットもまた交尾し始める。
							PRINTFORMW その後も、二人の飼い主は互相用ペットの痴態を見せつけ合うように交尾を続けた…。
						ELSE
							PRINTFORML 「ふん…この男に抱かれろ、と？…%CNAME("二人称")%の頼みなら仕方ないが…」
							PRINTFORML 「おい貴様、%CNAME("一人称")%を抱けること、光栄に思えよ？」
							PRINTFORML %CALLNAME:MASTER%が飼い主に互相用ペットが盛っているので躾け合うことを提案すると、飼い主は飛び上がって喜んだ。
							PRINTFORMW 飼い主是そいそとペットを繋ぐリードを%CALLNAME:MASTER%に渡し、不機厌恶地眉を顰める%CALLNAME:TARGET%を抱き寄せた…。
							PRINTFORMW
							IF RAND:3 == 0
								PRINTFORML 「ん゛あ゛ぁっ♪あがっ、深っ、深ァいっ♪う゛っ、ぎいっ♪」
								PRINTFORML 飼い主は%CALLNAME:TARGET%の上半身を地面に突っ伏させたまま、大きく開脚させた下半身を尻を鷲掴んで持ち上げ、腰を叩きつけている。
								PRINTFORMW 膣の深い部分の弱点をどちゅっ、どちゅっと突き上げられるたびに、%CALLNAME:TARGET%正在认真地读着标题为噛み殺しきれない喘ぎを続けている…。
								PRINTFORML 「お゛ごぉッ♪おッ、堕ちるっ、落ちてしまうぅ～～～ッ♪…か、はっ…♪い゛ひっ、はっ、はぐゥッ…ッ…♪」
								PRINTFORML ゴヂュッ！と一際重く深い突き込みと同時に、%CALLNAME:TARGET%が一瞬全身を跳ね上げて絶頂する。
								PRINTFORMW 脱力し、舌をだらんと滴下去トロ顔を晒す%CALLNAME:TARGET%の浅い呼吸と、その子宮に響くドクドクと響く射精音は完全に同期していた…。
							ELSEIF RAND:2
								PRINTFORML 「う゛っ♪んぐっ♪う、嘘だッ、%CNAME("二人称")%以外のがっ、こんなに気持ちいいなんてッ♪」
								PRINTFORML 飼い主は%CALLNAME:TARGET%との接合部を見せつけるように片足を抱えた立后背位で、%CALLNAME:MASTER%に勝るとも劣らない腰靈活を披露している。
								PRINTFORMW ぬちゅぬちゅと卑猥な音と共に阴茎が長いストロークで出入りするたび、%CALLNAME:TARGET%正在认真地读着标题为望まないはずの嬌声と本気汁を溢れさせている…。
								PRINTFORML 「んぐぁッ♪不要っ、%CNAME("二人称")%じゃない精液ヤだぁッ♪あ゛ッ、イヤなのにッ、%CNAME("一人称")%もっ、イ゛っくゥッ♪」
								PRINTFORMW 膣奥で你以外の男の濃い精液が爆ぜる感覚に身体が屈服した証として、%CALLNAME:TARGET%正在认真地读着标题为情けなくイキションした…。
							ELSE
								PRINTFORML 「ン゛ーッ♪んぶぅっ♪ぶは、接吻、やめ…ッ、ぐっ、んぅううっ♪」
								PRINTFORML ベンチに座った飼い主は、%CALLNAME:TARGET%を対面座位で突き上げながら上下の口を貪っている。
								PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为もがいて逃れようとしているつもりが、無意識に両腕両脚を絡めて%CALLNAME:MASTER%ではない男にしがみつく…。
								PRINTFORML 「あぁっ、やめろっ、離せっ、もうイッ、イ゛かせるなぁぁッ♪」
								PRINTFORMW やがて仰け反りながら絶頂する%CALLNAME:TARGET%と、動きを止めた飼い主の間から、白濁した粘液がボトボトと溢れだした…。
							ENDIF
							PRINTFORML …%CALLNAME:MASTER%も負けじと、同じようなPLAYで宛がわれたペットを激烈地犯し、何度も甘ったるい声を上げさせる。
							PRINTFORMW その後も、二人の飼い主は互相用ペットを屈服させ自分のモノにするかのように、マーキングし続けた…。
						ENDIF
					ELSEIF RAND:3 == 0
						PRINTFORMW …散歩の最中、同時に尿意を催した%CALLNAME:MASTER%と%CALLNAME:TARGET%正在认真地读着标题为、%TEXTR(@"近くの茂み/公衆便所の男子廁所")%で一起去廁所ことにした。
						PRINTFORML 立ったまま胖次を半脱ぎにし、少し間抜けな腰を突き出したガニ股で阴部を広げた%CALLNAME:TARGET%正在认真地读着标题为、%TEXTR(@"你と同じところを狙って/ジョボボボ…と品の無い音を立てて/深く息を吐きながら")%排尿し始めた…。
						PRINTFORMW 「%TEXTR(@"ふぅ……んぁ……/あ゛ぁッ……ん～～～……")%」
						PRINTFORMW …ふと、排尿を終えた%CALLNAME:TARGET%の阴部から、尿ではない液体が垂れ落ちるのを見逃さなかった%CALLNAME:MASTER%。
						IF RAND:2
							PRINTFORML 「…まさか、催したのか？%CNAME("二人称")%」
							PRINTFORMW 視線に気づいたのか、%CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%に向き直ると
							PRINTFORML 「しょうがないな…見られる前に済ませるぞ」
							PRINTFORMW と、若干呆れた様子で、自らほかほかと湯気を立てる阴部を、ムクムクと鎌首をもたげる阴茎に押し当ててきたので
						ELSE
							PRINTFORML 「おっと…！きゅ、急に引っ張るな…！」
							PRINTFORMW ぐいっと%CALLNAME:TARGET%のリードを引きながら腰を抱えて自分の方へ向かい合わせると
							PRINTFORML 「%CNAME("二人称")%…ヤるならせめて綺麗に拭いてから…あっ、くっ、んうぅっ…！」
							PRINTFORMW 排尿直後にも関わらず半勃起的阴茎を、尿と愛液で湿的た阴部にぬぷぷぷ…と押し込み
						ENDIF
						PRINTFORML 「%TEXTR(@"うぅんっ/あうぅッ")%…！%TEXTR(@"んあっ/あぁっ")%♪%TEXTR(@"くはっ/はぁっ")%♪%TEXTR(@"あぁンッ/ンぐぅっ")%♪」
						PRINTFORMW 今度は性欲をスッキリさせるべく、%CALLNAME:TARGET%をガニ股対面立位精液便所として使うことにしたのだった…。
						CALL SIMULATE_TRAIN_COM, 63, 10
					ELSEIF RAND:2
						PRINTFORM …散歩の最中、尿意を催したのか、もじもじと红着脸太ももを擦り合わせる%CALLNAME:TARGET%を
						IF RAND:2
							PRINTFORMW 公衆便所の男子廁所に連れ込んだ…。
							PRINTFORMW 「これに向かってしろと？全く…%CNAME("二人称")%の頼みでなければこんなことしないからな…？」
							PRINTFORML %CALLNAME:MASTER%に促されるがまま、%CALLNAME:TARGET%正在认真地读着标题为渋々ながらも男子用小便器に向かって阴部を曝け出すと、
							PRINTFORML 「んッ、ふぅ……あ゛ぁ……」
							PRINTFORMW だいぶ我慢していたのか、かなりの量の小便が%TEXTR(@"ジョオォォ…と勢いよく/綺麗なアーチを描いて/ホカホカと湯気を立てて")%迸った…。
							PRINTFORML
							PRINTFORML …その様子に我慢出来なくなった%CALLNAME:MASTER%は…
							PRINTFORMW 「ん、っ……何だ？%CNAME("一人称")%の排尿に興奮したのか？」
							PRINTFORML 排尿直後で一息吐いていた%CALLNAME:TARGET%の腰を抱き…
							PRINTFORMW 「一段と立派に勃起よって…%CNAME("二人称")%は度し難い変態っ、だっ、なあっあ゛ァッ♪」
							PRINTFORML 猛り立った阴茎を勢いよく根元まで押し込み、不意打ちアクメをキメさせた…。
							PRINTFORMW
							PRINTFORML 「…%TEXTR(@"くおぉっ/お゛あぁッ")%♪%TEXTR(@"あ、あまり%CNAME("一人称")%を鳴かせるなっ♪他の変態共が来てしまうッ/すまないっ、%CNAME("二人称")%♪感じ過ぎて立ってられんっ/最高ッ♪%CNAME("二人称")%のワイルドチンポ最高だッ")%♪%TEXTR(@"お゛ォンッ/ンあ゛ぁッ")%♪」
							PRINTFORMW %CALLNAME:MASTER%がスッキリするまで、%CALLNAME:TARGET%正在认真地读着标题为リードを引っ張られながらの立后背位で、何度もイキ潮を便器にぶちまけた…。
							CALL SIMULATE_TRAIN_COM, 61, 10
						ELSE
							PRINTFORMW 近くの茂みに連れ込んだ…。
							PRINTFORMW 「犬の真似事を？…本当に良い趣味をしているな、全く…」
							PRINTFORML %CALLNAME:MASTER%に催促され、阴部を剥き出しにした%CALLNAME:TARGET%が四つん這いになり、片足を大きく上げると
							PRINTFORML 「んッ、ふぅ……んはぁ……」
							PRINTFORMW 大きく開かれた阴部から、かなりの量の小便が%TEXTR(@"ジョオォォ…と勢いよく/共に綺麗なアーチを描いて/ホカホカと湯気を立てて")%迸った…。
							PRINTFORML
							PRINTFORML …その様子に我慢出来なくなった%CALLNAME:MASTER%は…
							PRINTFORMW 「ふぅ……スッキリし……どうした？%CNAME("二人称")%？」
							PRINTFORML 排尿直後で脱力する%CALLNAME:TARGET%の脚を抱えると…
							PRINTFORMW 「ま、待て、こんなところで挿入れるつもりか？%CNAME("一人称")%にも心の準備がっ、あっ、はあ゛ぁぁんッ！」
							PRINTFORML 猛り立った阴茎を勢いよく根元まで押し込み、不意打ちアクメをキメさせた…。
							PRINTFORMW
							PRINTFORML 「…%TEXTR(@"お゛ッあぁっ/ん゛くッ")%♪%TEXTR(@"は、恥ずかしいからっ♪こんな声っ、出させるなッ/ほッ、本気でっ♪こんなところで本気の子作りする奴があるかッ/チンポッ♪%CNAME("二人称")%チンポ最高だッ")%♪%TEXTR(@"う゛ぁあッ/ぐぅぅッ")%♪」
							PRINTFORMW %CALLNAME:MASTER%がスッキリするまで、%CALLNAME:TARGET%正在认真地读着标题为交尾同然の野外後背位でたっぷり犯し抜かれた…。
							CALL SIMULATE_TRAIN_COM, 61, 10
						ENDIF
					ELSE
						PRINTFORML 「あっ、ぁっ…ふっ、んっ、はっ、はぁうっ…」
						PRINTFORML 「そろそろ、っ…ぅあっ、イくっ、イく、イッ…くァッ♪」
						PRINTFORMW …%CALLNAME:MASTER%は散歩の最中に%CALLNAME:TARGET%を男子廁所の個室に連れ込み、持ってきた振動棒で自慰させていた。
						PRINTFORML 「好きモノだな、%CNAME("二人称")%は…」などと言っていたとは思えない乱れっぷりを晒す%CALLNAME:TARGET%。
						PRINTFORML %CALLNAME:MASTER%は片手で自分のモノをシコりつつ、その痴態を満足するまでインスタント照相机で撮影し続ける。
						PRINTFORML 最後はすっかりヘロヘロ变成了%CALLNAME:TARGET%にダブル剪刀手させて取った写真に
						CALL PRINT_STR, @"『_H_ここで自慰しました_H_』_L"
						PRINTFORMW という文言を書き加えたものを、%CALLNAME:TARGET%のぐっしょり湿的きった胖次と共に個室の壁に貼り付けて帰った…。
						CALL SIMULATE_TRAIN_COM, 3, 10
					ENDIF
				CASE 1

;				CASE 2
					PRINTFORML 「そ、そうか…邪魔したな」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为%TEXTR(@"どこか拍子抜けした/少し残念そうな/はしたない提案をした自分を恥じるような")%様子で去って行った…。
				ENDSELECT
				CALL SET_CEVENT, "夜の『散歩』：奥丝卡"
			ELSE
				PRINTFORML 「どうした、もう寝るのか？」
				PRINTFORMW 「%TEXTR(@"お休み、良い夢を/酱と歯を磨いてから寝るのだぞ/風邪ひかないようにするのだぞ/そうか、お休み、%CNAME("二人称")%")%」
			ENDIF
		ELSE
			PRINTFORML 「昼から何もせずダラダラと…大した堕落具合だな？」
			PRINTFORMW 「…まぁ良い、%CNAME("一人称")%も付き合おう」
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		PRINTFORMW
	;場所移動後
	ELSE
		PRINTFORMW
	ENDIF

;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;口上を書いた場合はRETURN 0を消してください
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套 && RAND:2
		CALL EMOTION_PLUS, "重置/半目/紅潮/对话框爱心/避孕套"
		PRINTFORML 「%TEXTR("避孕套/避妊具")%を使った方が背徳感が増して燃える、などと聞いたことがあるな」
		PRINTFORML 「クク、%CNAME("二人称")%はどうだ？」
		PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为避孕套を咥えながら挑発的に笑着いる…。
	ELSE
		CALL EMOTION_PLUS, "重置/紅潮/布"
		IF RAND:2
			PRINTFORML 「待たせたな」
			PRINTFORMW 「あまり悠長にしてられないだろう%TEXTR("からな、全力で搾ってやろう/が、少しでも楽しむと良い")%」
		ELSE
			PRINTFORML 「うむ、時間街道」
			PRINTFORMW 「早速搾ってやる%TEXTR(@"が…正直な話%CNAME("一人称")%もちょっと期待していたのでな…楽しむとしようか/からな、%CNAME("二人称")%は楽にしていろ…")%」
		ENDIF
	ENDIF
CASE "性処理：後"
	;避孕套を使う場合
	CALL EMOTION_PLUS, "重置/半目/微笑６/紅潮/精液左頬/精液右頬/頬汗"
	IF TEQUIP:PLAYER:避孕套
		PRINTFORML 「クク…避孕套があるとどれだけ溜まってたのか分かりやすくて良いな」
	ELSE
		PRINTFORML 「よしよし…中出ししてスッキリしたか？」
	ENDIF
	PRINTFORMW 「%TEXTR(@"残りの授業も頑張るのだぞ/続きがしたいなら後でだな/後始末は%CNAME("一人称")%がやっておくから早く行くが良い")%」

CASE "学園での日常"
	IF FIND_COND("诺伊") && RAND:4 == 0
		ACTOR = FIND_COND("诺伊")
		IF COND("部員間Ｈ可能", ACTOR) && COND("部員間Ｈ可能") && COND("相性〇", ACTOR) && (COND("相性◎", ACTOR) || COND("欲求不満") >= 3)
			CALL PRINT_STR, @"「%TEXTR(@"おッ、ふぅっ/…あぁンっ/はっ、はぁッ")%_H_　%TEXTR(@"あ、あっ、%CALLNAME:ACTOR%、%CALLNAME:ACTOR%…ッ/うっ、ふっ、ほっ、おッ/%CALLNAME:ACTOR%っ、少し待っ…うぅんッ")%_H_」_L"
			CALL PRINT_STR, @"『%TEXTR(@"ふっ、ハッ、ハァッ…/んっ、くっ、あっ、ふぅっ/んあっ…ああっ、はっ、ふぅっ…")%_H_　%TEXTR(@"あぁ…良い、良いぞ…/良い声で鳴くな、ここが良いのか…/くぁあっ、し、締圆圈…ッ/")%_H_』_L"
			IF RAND:2
				PRINTFORML %TEXTR(@"誰也不在校舎の房顶/人気の無い校舎裏/手入れが行き届いていない茂みの中")%。
				PRINTFORML %CALLNAME:TARGET%と%CALLNAME:ACTOR%は%TEXTR(@"後背位/対面立位/火车便当位の体位/立后背位")%で、%TEXTR(@"声を抑えるのもそこそこに激烈地交わっていた/快楽に没頭するように黙々とまぐわっていた/恋人同士のような性交をしていた")%…。
			ELSE
				PRINTFORML %TEXTR(@"使われていない教室/誰也不在教室/滅多に人が来ない準備室")%。
				PRINTFORML %CALLNAME:TARGET%と%CALLNAME:ACTOR%は%TEXTR(@"机を床代わりにした正常位/机に腰かけての対面座位/窓際での立后背位")%で、%TEXTR(@"互いに快楽を与え合っていた/熱々情侣のように甜声で交わっていた/激しい性交をしていた")%…。
			ENDIF
			PRINTFORML
			IF CEVENT("一線を越える：诺伊") == 0
				PRINTFORML 何度もお互いにしか通じない話をしているうちに、次第に打ち解けていった二人。
				PRINTFORML やがて抱えた好奇心や欲求不満に突き動かされるまま、玩耍のつもりで肉体関係を結んだが
				PRINTFORML 二人とも与太話だと思っていた『悪魔と堕天使は身体の相性が良い』ことをその身で体験し、玩耍とは思えないほどドハマりしていた…。
				CALL SET_CEVENT, "一線を越える：诺伊"
			ELSE
				IF COND("危険日")
					IF COND("相性◎")
						IF RAND:3 == 0
							CALL PRINT_STR, @"「要去了、だなっ_H_　このままイっていいぞッ_H_」_L"
							CALL PRINT_STR, @"『おまっ_H_　你っ_H_　今日危険日だろ_H_　シャレになってなっ…あぁッ_H_』_L"
							CALL PRINT_STR, @"「それがどうしたっ_H_　危険日悪魔マンコに堕天使精子無責任に吐き出せっ_H_　ほらイけっ_H_」_L"
							PRINTFORML 珍しく攻めの立場变成了%CALLNAME:TARGET%が、湧き上がる生殖欲のまま%CALLNAME:ACTOR%の爆発寸前の陰茎を締め上げた瞬間。
							CALL PRINT_STR, @"「あっダメだ射精るッ_H_　射精ちまうゥ～～～ッ_H_」_L"
							CALL PRINT_STR, @"「イ゛っ、くうぅぅっ_H_　%CALLNAME:ACTOR%の堕天使こってり精液でイくぅぅッ_H_」_L"
							PRINTFORML 二人の嬌声が重なり、悪魔の卵子と混ざりあわんとする堕天使の遺伝子が子宮を満たしていった…。
						ELSEIF RAND:2
							CALL PRINT_STR, @"『ほらっ、もうイくぞ%CALLNAME:TARGET%_H_　中で良いよなっ_H_』_L"
							CALL PRINT_STR, @"「待て、待ってくれっ_H_　デキたら%CALLNAME:MASTER%に申し訳が立たないから_H_　いったん止まってぇ_H_」_L"
							PRINTFORML %CALLNAME:ACTOR%にガッチリ組み敷かれ、巨根と小刻みなピストンで子宮をこじ開けられる%CALLNAME:TARGET%。
							CALL PRINT_STR, @"『逃跑なっ、オラッ_H_　観念して卵子差し出せ淫乱悪魔っ_H_』_L"
							CALL PRINT_STR, @"「ぅああぁぁっ_H_　済まない%CALLNAME:MASTER%ぁっ_H_　浮気堕天使チンポで孕んでしまうぅっ_H_」_L"
							PRINTFORML 容赦なく吐き出される%CALLNAME:ACTOR%の泥のような精液を、%CALLNAME:TARGET%正在认真地读着标题为こじ開けられた子宮で受け止めさせられる。
							PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%への謝罪を叫びながらも、口角は弓なりに反り身体は妊娠の準備を初めてしまっていた…。
						ELSE
							CALL PRINT_STR, @"「ちゅっ、くちゅっ…ちゅぱ…_H_　はぁ、%CALLNAME:ACTOR%、んっ…_H_　ちゅぷ、えろ、れろ…_H_」_L"
							CALL PRINT_STR, @"『れろ、ちゅぷ…ちゅ、ちゅっ…ぷは…_H_　%CALLNAME:TARGET%、そろそろ…！　ウゥッ_H_』_L"
							CALL PRINT_STR, @"「ぉおぉッ_H_　おあ、あぁッ…_H_　…ッ、はぁっ、%CALLNAME:ACTOR%、%CALLNAME:ACTOR%…っ_H_」_L"
							CALL PRINT_STR, @"『んっ…ふぅうっ…_H_　…%CALLNAME:TARGET%…ちゅっ…んふっ、くちゅっ…ちゅぱっ…_H_』_L"
							PRINTFORML これが本来おしゃべりの延長線上であることも、危険日生性交であることも忘れたのかのようにまぐわう二人。
							PRINTFORML 手や口を重ね合わせては名前を呼び合うその姿は、下手な夫婦の営みよりも熱く淫靡であった…。
						ENDIF
					ELSE
						IF RAND:3 == 0
							CALL PRINT_STR, @"『くぉッ…ッ！締め付けが很强…ッ_H_　も、もう射精るぞ…ッ_H__』_L"
							CALL PRINT_STR, @"「%CNAME("一人称")%もっ_H_　%CNAME("一人称")%もイくっ_H_　あっ、んうぅっ_H_」_L"
							PRINTFORML %CALLNAME:TARGET%の危険日の子宮へ单薄的避孕套越しに精液をぶちまけた%CALLNAME:ACTOR%は、半萎え变成了巨根をぬるりと引き拔出。
							CALL PRINT_STR, @"『おっと…やっぱり危険日マンコは締まりが良すぎるな。避孕套が中に残っちまってるぞ_H_』_L"
							CALL PRINT_STR, @"「ッ…_H_　わ、わざわざ言うな…ッ_H_　…仕方ないだろう…その…良すぎる、のだから…_H_」_L"
							CALL PRINT_STR, @"「ほぉ、そうか…ならもっとシてやるよ_H_　こっちもヤり足りなかったしな_H_」_L"
							PRINTFORML 恥ずかしがる%CALLNAME:TARGET%の言葉を受けた%CALLNAME:ACTOR%は、にんまり笑いながら次の避孕套を装着すると
							PRINTFORML ワレメから口を覗かせる用过的避孕套をわざとゆっくり引き抜いてから、再び危険日悪魔マンコを堪能し始めた…。
						ELSEIF RAND:2
							CALL PRINT_STR, @"『ぬっく、うぉぉ…ッ_H_　あ～っ、めっちゃ射精る、ぞっ、うぅぅっ…_H_』_L"
							CALL PRINT_STR, @"「おォっ…は、腹が…_H_　避孕套精液で圧迫される…ぅッ_H_」_L"
							CALL PRINT_STR, @"『ぐうゥっ_H_　くはっ、はぁぁ…_H_　ぅっ、まだ射精る…っ_H_』_L"
							PRINTFORML 楔の如く%CALLNAME:TARGET%の子宮口にめり込んだ%CALLNAME:ACTOR%の巨根から長々と精液が迸り、ブクブクと極薄の避孕套を子宮内で膨らませていく。
							PRINTFORML …たっぷり数分かけてようやく射精が終わり、引き抜かれた避孕套は拳大の水風船のようになっていた…。
							CALL PRINT_STR, @"（…も…もしこんな量を生で注がれていたら…確実に%CALLNAME:ACTOR%との子を…ゴ阴蒂…_H_）_L"
							PRINTFORML そんな考えが頭をよぎった瞬間、%CALLNAME:TARGET%正在认真地读着标题为自己的子宮が%CALLNAME:ACTOR%の種を欲しがって疼くのを感じた…。
						ELSE
							PRINTFORML …二人が用意した避孕套を使い切る勢いでヤり終わった後…。
							CALL PRINT_STR, @"『…ふぃ～、流石にもう出ねぇわ…。おっ、掃除Thank youな、%CALLNAME:TARGET%_H_』_L"
							CALL PRINT_STR, @"「んぶっ、ちゅっ、ぐっ、ごくっ…ぐぽっ、ぐぽっ_H_」_L"
							PRINTFORML じっくり何度も身体の相性が良い相手との危険日避孕套性交を堪能し、%CALLNAME:ACTOR%は満足げだ。
							PRINTFORML そんな%CALLNAME:ACTOR%に爱心の浮かんでいそうな上目遣いで丁寧な清洁口交をする%CALLNAME:TARGET%には、
							PRINTFORML 用过的避孕套十数個が角や尾巴、内衣などに括り付けられ、最後に使った避孕套の口が阴部からプラプラとぶら下がっていた…。
						ENDIF
					ENDIF
				ELSE
					IF RAND:3 == 0
						CALL PRINT_STR, @"『クッ…そろそろ、射精る、ぞ…ッ_H__』_L"
						CALL PRINT_STR, @"「あぁっ_H_　遠慮なく出せっ_H_　%CNAME("一人称")%もイッ…くぅッ_H_」_L"
						PRINTFORML 同時に絶頂し荒い息を吐く二人の結合部から、激しい行為で泡立った白濁液が滾々と溢れ落ちる…。
						PRINTFORML 『あぁっ、ハァーッ…これは流石に老体に堪えるぜ…』
						PRINTFORML 「何を言うか、こんなに%CNAME("一人称")%の中に射精しておいて…」
						PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为わざとらしく脱力する%CALLNAME:ACTOR%と繋がったまま、自身も余韻に身を任せていた…。
					ELSEIF RAND:2
						CALL PRINT_STR, @"『ほらッ、また射精すぞ_H_　受け止めろっ_H_』_L"
						CALL PRINT_STR, @"「ぅおオ゛ぉッ_H_　う゛ァあ゛ぁァ～～～ッ_H_」_L"
						PRINTFORML %CALLNAME:ACTOR%の堕天使精液がどぷどぷと注がれる感覚に、獣のようなヨガり声を上げる%CALLNAME:TARGET%。
						PRINTFORML その子宮は既に使用済み避孕套の如く精液で満たされているが、まだ足りないとばかりに%CALLNAME:ACTOR%の巨根に吸い付いている…。
						CALL PRINT_STR, @"「ほお゛ォッ…_H_　おっ、オオ゛ぅっ…_H_　ンぉ゛…_H_」_L"
						CALL PRINT_STR, @"『ふーぅ……クッ、ハハッ_H_　こんなに飲んでるのにまだ欲しがってやがる_H_』_L"
						CALL PRINT_STR, @"『良いぜ、腹いっぱい注いでやろうじゃねぇか、淫乱魔貴族サマ_H_』_L"
						PRINTFORMW 不敵な笑みを浮かべた%CALLNAME:ACTOR%は、%CALLNAME:TARGET%の膨らんだ下腹部とそこに刻まれた淫紋を一撫ですると、抽挿を再開した…。
					ELSE
						CALL PRINT_STR, @"『%CALLNAME:TARGET%、イくぞっ…うっ、ぐぅっ_H_』_L"
						CALL PRINT_STR, @"「ぅああぁぁッ_H_　ふぁっ、あハッ、ハァッ…_H_　熱い、な…_H_」_L"
						PRINTFORML 射精宣言と同時に%CALLNAME:ACTOR%は腰のみならず全身を密着させ、%CALLNAME:TARGET%の膣奥へ濃い精液をぶちまけた…。
						PRINTFORML 『ハァ、ふぅ……悪い、まだヤり足りねぇわ』
						CALL PRINT_STR, @"「別に%CNAME("一人称")%は構わんが…腰や身体の負担は大丈夫なのか？おじい酱_H_」_L"
						CALL PRINT_STR, @"「ハッ、言ってろ…またアンアン鳴かせてやるからよ、お嬢酱_H_」_L"
						PRINTFORML 互いに軽口を叩く%CALLNAME:TARGET%と%CALLNAME:ACTOR%は、どちらからともなく再び身体を重ね合わせた…。
					ENDIF
				ENDIF
			ENDIF
		ELSE
			PRINTFORML 「%TEXTR(@"そうか/ふむ/ほぅ/むむ/うーむ")%、%TEXTR(@"それは初耳だな/まさか父が…/母がそんなことを…/%CALLNAME:ACTOR%の知識には勝てんな")%」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:ACTOR%と%TEXTR(@"圆圈で兄妹のように/楽しそうに/親しげに")%話している。
		ENDIF
	ELSEIF FIND_COND("乃々") && RAND:3 == 0
		ACTOR = FIND_COND("乃々")
		IF COND("部員間Ｈ可能", ACTOR) && COND("部員間Ｈ可能") && COND("欲求不満") >= 3
			CALL PRINT_STR, @"「…%TEXTR(@"ククク、良いではないか良いではないか/少し%CNAME("一人称")%を慰めてくれればそれで済む話なのだがなぁ/%CNAME("一人称")%はもっと『仲良く』したいのだがな/口ではそう言ってもこっちは正直だぞ")%…_H_」_L"
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为人気の無い場所で%CALLNAME:ACTOR%%TEXTR("に身体を擦りよせて/の身体を撫でまわして/に絡んで")%いる…。
		ELSE
			PRINTFORML 「%TEXTR(@"同じ集いに所属する仲だ、少し手伝ってやろう/全く、何でもかんでも押し付けられすぎていないか？/遠慮するな、堕天使と悪魔は親戚のようなものだからな/クク…%CNAME("二人称")%の話になると手が止圆圈な？ん？")%」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为密かに%CALLNAME:ACTOR%の生徒会としての仕事を手伝っているようだ…。
		ENDIF
	ELSEIF FIND_COND("玛丽") && RAND:2
		ACTOR = FIND_COND("玛丽")
		IF CEVENT("学園：玛丽日常Ｃ", ACTOR)
			IF COND("部員間Ｈ可能", ACTOR) && COND("部員間Ｈ可能")
				PRINTFORML 「%TEXTR(@"んっ…♪ここでは人目があるぞ…？/法王庁の連中が見たら卒倒するのではないか？ククク…/こうして玛丽とまた仲良く出来て嬉しいぞ♪/そうだな…%CNAME("主人")%も誘って…")%」
				PRINTFORMW %CALLNAME:TARGET%と%CALLNAME:ACTOR%は身を寄せ合い仲睦まじく会話している。
			ELSE
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为遠巻きに%CALLNAME:ACTOR%を見つめては、叹气をついている…。
			ENDIF
		ELSE
			PRINTFORMW 授業中、ふと外を見ると%TEXTR("窓枠に腰かけながら/木の枝に腰かけながら/集まったコウモリを足場にしながら")%%TEXTR(@"顎に手を当てて考え事をして/どこかに憂いを帯びた目を向けて/%CALLNAME:ACTOR%がいる辺りを見つめて")%いる%CALLNAME:TARGET%が見えた…。
		ENDIF
	ELSEIF PENIS(PLAYER) && (COND("欲求不満") || TALENT:淫乱)
		IF RAND:2
			PRINTFORML 「%TEXTR(@"…この解答、間違っているな。単純かつよくあるケアレスミスだ/全く、実につまらん授業だな…教師の工夫が足りんぞ/…ん？黒板が見えない？すまんな%CNAME("二人称")%、これでどうだ？/クク、ここで認識阻害を解いたらどうなるだろうなぁ…？")%」
			PRINTFORMW %CALLNAME:MASTER%は授業中にも関わらず、自らに認識阻害をかけた%CALLNAME:TARGET%に%TEXTR("対面座位/背面座位")%で搾り取られてしまった…。
			PRINTL
			PRINTFORML 射精
			PRINTFORML Ｖ経験+3
			PRINTFORML 精液経験+3
			EXP:Ｖ経験 += 1
			EXP:MASTER:射精経験 += 1
			CALL EXCHANGE_SOUL, "絶頂", 2
			PRINTL
		ELSE
			PRINTFORML 「%KOJO_RAND_K30("口交")%」
			PRINTFORML 「%TEXTR(@"どうした？%CNAME("一人称")%に構わず問題を解くが良い/すまんな%CNAME("二人称")%…%CNAME("一人称")%の方が我慢出来なくなってしまって…/クク、ここで認識阻害を解いたらどうなるだろうなぁ…？")%」
			PRINTFORMW %CALLNAME:MASTER%は授業中にも関わらず、自らに認識阻害をかけ机の下に陣取った%CALLNAME:TARGET%にじっくり阴茎をしゃぶられてしまった…。
			PRINTL
			PRINTFORML 射精
			PRINTFORML 口交経験+3
			PRINTFORML 精液経験+1
			PRINTFORML 精飲経験+1
			EXP:口交経験 += 3
			EXP:精飲経験 += 1
			EXP:MASTER:射精経験 += 1
			CALL EXCHANGE_SOUL, "絶頂", 2
			PRINTL
		ENDIF
	ELSE
		;IF RAND:2
			;PRINTFORML
			;PRINTFORMW
		;ELSE
			PRINTFORMW 授業中、ふと気付くと%TEXTR("窓枠に腰かけながら/近くの生徒の机に腰かけながら/視界の端で")%%TEXTR(@"顎に手を当てて考え事をして/黒板と睨み合って/%CALLNAME:MASTER%を見つめて")%いる%CALLNAME:TARGET%が見えた…。
		;ENDIF
	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0

	IF RAND:2 && CEVENT("悪魔のトランク") == 0 && PLACE("partner的房間") && BASE:TARGET:魂 >= 300
		PRINTFORMW 「おい…おい、どうした%CNAME("二人称")%？まさかコレが気になるのか？」
		PRINTFORMW %CALLNAME:TARGET%の心配そうな声と、硬い何かを蹴飛ばす音ではっと我に返る。
		PRINTFORMW …いつの間にか、%CALLNAME:TARGET%との話もそこそこにトランクに気を取られていたようだ…。
		PRINTFORMW 「やはり…かなり軽度だが未だに『開けたくなる呪い』がかかっているか」
		PRINTFORMW 「コイツはな、かつて悪魔が人类を騙し討ちするために作ったトランクだ」
		PRINTFORMW 「開けると始めの何回かは望みの物品が出てくるが、ある時いきなり人食いの魔物が出て来る」
		PRINTFORMW 「とまあ性質の悪い道具だったが、改造されて今では大容量旅行用トランクに生まれ変わった」
		PRINTFORMW 「この鍵の数字6桁を弄る事で、番号に登録した空間にあるものが取り出せるという寸法だ」
		PRINTFORMW 「…実は%CNAME("一人称")%が使ってない番号の中身は把握しきれてなくてな…」
		PRINTFORMW 「どうだ%CNAME("二人称")%よ。一日一回、一緒に開けてみないか？」
		CALL SET_CEVENT, "悪魔のトランク"
	ELSEIF PLACE("部室") && CEVENT("中身：箱庭") && CEVENT("箱庭設置") == 0 && BASE:魂 >= 300
		PRINTFORMW 「あぁ、そういえば…%CNAME("二人称")%よ、少し手を貸してくれぬか」
		PRINTFORMW 何かを思い出しかのように、%CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%に精心丸められた紙を手渡してきた。
		PRINTFORMW 紙を広げてみると、様々な色のボールペンで魔法陣と幾何学模様が幾重にも書かれている。
		PRINTFORMW 「そいつを広げた状態で動かないように抑えていてくれ。で是くぞ…」
		PRINTFORMW %CALLNAME:MASTER%が抑えている二角とは別の角を抑えた%CALLNAME:TARGET%正在认真地读着标题为低くくぐもった声で詠唱を始めた。
		PRINTFORMW 詠唱に合わせ、折れた鉛筆、色々な面数のダイス、メビウスの輪变成了紙テープなどが妖しく光る魔法陣に投げ込まれては消えていく…。
		PRINTFORMW 最後に%CALLNAME:TARGET%の手から白色靄のような魂が零れ落ちると、魔法陣と幾何学模様はみるみる内に箱庭へと変貌した！
		PRINTFORMW 「ふぅーっ…よしよし、%CNAME("二人称")%が手伝ってくれたおかげで擅長くいったようだな」
		PRINTFORMW 「トランクの中の箱庭とこの紙とを接続した。後で額縁にでも入れておこう」
		PRINTFORMW 「ついでにＴＲＰＧモードや軽いアクション游戏なども追加したが…」
		PRINTFORMW 「問題は他の部員が遊んでくれるかどうかだな…」
		CALL SET_CEVENT, "箱庭設置"
	ELSEIF CEVENT("玛丽初会話") && CEVENT("聖女への負い目") == 0 && PLACE("partner的房間") && CHARA_NUM("室内の邪魔者") <= 1 && ABL:信頼 >= 5
		PRINTFORMW 「………なぁ%CNAME("二人称")%…これはちょっとした…独り言だ。…聞き流してくれて構わん」
		PRINTFORML …どうする？
		PRINTFORMW ※長くて重い話ですが、聞き流した場合、再び話すことはないです！
		CALL PRINT_SELECT, "耳を傾ける/聞き流す"
		IF RESULT == 0
			PRINTFORMW 「%CNAME("一人称")%は昔からよく人类界に出ては素性を偽り人と交流してきた」
			PRINTFORMW 「様々な身分、種族の人类と交流したが…最も印象に残ったのは神学校に通う一人の少女だった」
			PRINTFORMW 「温柔的て人懐っこい、まだ幼かった彼女とよく一緒に遊んだ…魔界に帰らなければならなくなった時、酷く泣かれたよ」
			PRINTFORMW 「ずっと友達だから絶対また一緒に遊ぼうね、と約束させられてから帰ったぐらいだった」
			PRINTFORMW 「そして…この時人类界に長く居すぎた為か…%CNAME("一人称")%は魂のエネルギーが尽きかけ、生死の境を彷徨った」
			PRINTFORMW 「%CNAME("一人称")%を救うために父と母は部下達に命じて魂を集めさせ、その部下の一人がある男と契約した」
			PRINTFORMW 「その部下と契約した男は、とある宗教に敬虔な信徒で………%CNAME("一人称")%の友、神学校に通う少女の父だった」
			PRINTFORMW 「部下は男に甘言を囁き、手っ取り早く堕落させ、魂を奪い廃人にした」
			PRINTFORMW 「その男の魂を全て搾りつくしても、契約した分には届かなかった」
			PRINTFORMW 「あの部下…いや、奴はわざと契約不履行になるように男を騙していたのだ。親族からも魂を奪うために…」
			PRINTFORMW 「そして奴が目を付けたのが最初に契約した男の、娘…だった」
			PRINTFORMW 「父と母が奴の目的に気付いて止めようとした時には、もう奴は八つ裂きにされていた」
			PRINTFORMW 「…天から聖槍■■■■■を授かり、聖女となったその娘によって…」
			PRINTFORMW 「彼女は後に…聖玛丽ナ…と呼ばれ、悪魔との闘いに身を投じていった………」
			PRINTFORMW 「………もう、分かっただろう………%CNAME("玛丽")%のことだ………」
			PRINTFORMW 「彼女はきっと%CNAME("一人称")%の事など覚えてないだろう…だがそれで良い…」
			PRINTFORMW 「…%CNAME("一人称")%のせいで、立派だった彼女の父は無残な姿となって死んだ…」
			PRINTFORMW 「…%CNAME("一人称")%のせいで、彼女は死ぬまで悪魔との終わらない闘いに身を投じること变成了…」
			PRINTFORMW 「%CNAME("一人称", "どもり")%の………我の……我の、せいで…ッ……」
			PRINTFORMW 「………グスッ…えぐ、ヒック……うっ、うぅぅぅ～…！　…うわぁぁぁっ……あぁぁんっ………！」
		ELSE
			PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%の言うとおり、彼女の『独り言』を聞き流した…。
		ENDIF
		PRINTFORMW 「………あー、その…独り言は終わりだ。長々とすまなかったな、%CNAME("二人称")%」
		PRINTFORMW 『独り言』を終えた%CALLNAME:TARGET%正在认真地读着标题为未だ陰鬱な表情でそう言ってきた…。
		CALL SET_CEVENT, "聖女への負い目"
	ENDIF

;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"

;この角色が点心当番で、その時間帯で部室に最初からいる時のセリフ
CASE "点心を用意した"
	;本日の点心はこの角色の亲手自制
	IF COND("亲手自制点心")
		SELECTCASE TEXTS("点心")
		CASE "果物のタルト"
			PRINTFORML 「今日の点心は%TEXTS("点心")%を作ったぞ」
			PRINTFORMW 「母がよく作ってくれたからな、これにはそれなりに自信があるぞ」
		CASE "ババロア"
			PRINTFORML 「今日の点心は%TEXTS("点心")%を作ったぞ」
			PRINTFORMW 「好みで橘や草莓のソースをかけて食べるが良い」
		CASE "イナゴ料理"
			IF CEVENT("イナゴ料理") == 0
				PRINTFORML 「ん？これは何だって…領帯グンイナゴの佃煮だが…？」
				PRINTFORMW 「うーむ、魔界では兒童も作る一般的な点心なのだがな…まぁとりあえず食べてみろ、美味しいぞ」
				CALL SET_CEVENT, "イナゴ料理"
			ELSE
				PRINTFORML 「今天是%TEXTR("メツボウ/領帯グン/アバドン")%イナゴの%TEXTR("素油炸/佃煮/甘露煮")%だ」
				PRINTFORMW 「…%TEXTR("まだ慣れないか？/クッ、またかって顔は止めろ…/クク、少しは慣れたか？")%%TEXTR(@"%CNAME("一人称")%としては精がつくから積極的に食べてもらいたいところだな/まぁ無理せず少しずつ食べるが良い/人类界でも昆虫を食べる風習があるのだろう？%CNAME("二人称")%ならイケるはずだ")%」
			ENDIF
		ENDSELECT
	ELSE
		SELECTCASE TEXTS("点心")
		CASE "ビスケット"
			PRINTFORML 「今日の点心は%TEXTS("点心")%だ」
			PRINTFORMW 「%TEXTR("…何？薄っぺらくて硬い方だと思った？残念だったな、メープルシロップをたっぷりかけて食らうが良い/硬くて口の中を怪我するからか、咖啡に漬けてふやかし食べる人種もいるらしいな？")%」
		CASE "シュー阴蒂ーム"
			PRINTFORML 「今日の点心は%TEXTS("点心")%だ」
			PRINTFORMW 「%TEXTR("近所/駅前/少し奮発して隣町")%の蛋糕屋で買ってきたが…口に合うか？」
		CASE "熊型のグミ"
			PRINTFORML 「これは人类界のとある製菓会社の魔界支社が販売している中で、一番人気の%TEXTS("点心")%だ」
			PRINTFORMW 「魔界でウケるよう、こいつらは自立して動くよう作られているからな…気をつけろよ？」
		ENDSELECT
	ENDIF

;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = 晚上好
	ELSEIF COND("昼")
		GREETING = 你好
	ELSE
		GREETING = おはよう
	ENDIF
	SELECTCASE STR:日常イベント名
	CASE "打招呼ハグ"
		IF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/左闭眼２/半目/小口"
			PRINTFORMW 「む…%GREETING%、%CNAME("二人称")%」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为ごく自然に%CALLNAME:MASTER%抱住返してきた。
		ELSEIF COND("易出汗", MASTER)
			CALL EMOTION_PLUS, "重置/闭眼２/困扰眉/呀哒２/对话框汗/頬汗"
			PRINTFORMW 「%GREETING%…なぁ%CNAME("二人称")%。抱きつくのは良いが、まず汗を拭いてからにすべきだぞ」
			PRINTFORMW 呆れた口調で注意しながらも、%CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%抱住返した。
		ELSE
			;你に先に打招呼をされた
			IF RAND:2
				CALL EMOTION_PLUS, "重置/左笑颜４/嘲笑２/布"
			ELSE
				CALL EMOTION_PLUS, "重置/左笑颜４/嘲笑２/布右"
			ENDIF
			IF CFLAG:打招呼した == 0
				IF RAND:2
					PRINTFORMW 「%GREETING%。今日もよろしく、%CNAME("二人称")%」
				ELSE
					PRINTFORMW 「ん、%GREETING%」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为温柔的%CALLNAME:MASTER%抱住返してきた。
				ENDIF
			ELSE
				IF RAND:2
					PRINTFORMW 「%GREETING%。今日もよろしく、%CNAME("二人称")%」
				ELSE
					PRINTFORMW 「ん、%GREETING%」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为温柔的%CALLNAME:MASTER%抱住返してきた。
				ENDIF
			ENDIF
		ENDIF
	CASE "打招呼接吻"
		IF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/小口２/紅潮/对话框！？"
			PRINTFORMW 「ん、む…！ちゅっ…ちゅ……んっ…はぁ……」
			IF TALENT:恋慕
				CALL EMOTION_PLUS, "重置/闭眼２/小口２/紅潮/对话框爱心"
				PRINTFORMW 「ク、ククッ…お返しだ………ちゅっ、ちゅぷ…れろ………」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%に舌を絡めるような口付けを返してきた…。
			ELSE
				CALL EMOTION_PLUS, "重置/斜眼２/飘忽/困扰眉/小口/紅潮/对话框汗２"
				PRINTFORMW 「%CNAME("二人称", "どもり")%よ。打招呼の接吻は頬にするものだと思うのだが…」
				PRINTFORMW そう指摘する%CALLNAME:TARGET%正在认真地读着标题为顔を赤くし、目を泳がせている。
			ENDIF
		ELSE
			IF CFLAG:打招呼した == 0
				IF TALENT:恋慕
					IF BASE:欲求不満 >= 75
						CALL EMOTION_PLUS, "重置/左闭眼２/半目/斜眉/小口/赤面/对话框爱心"
						PRINTFORMW 「ん、ハァッ…はむ、ちゅちゅっ……ちゅぱっ……」
						PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为目を蕩かせながら%CALLNAME:MASTER%の首に腕を回し、貪欲に口付けと愛をむさぼっている。
						PRINTFORMW もはやこれが打招呼だという事を忘れているようだ…。
					ELSE
						CALL EMOTION_PLUS, "重置/半目/斜眉/小口/紅潮２"
						PRINTFORMW 「ちゅっ、ちゅく、んん……はぁ、はふ……んっ、ちゅちゅ…」
						PRINTFORMW 「…%GREETING%…打招呼は毎回これでも良いかもしれんな…」
						PRINTFORMW %CALLNAME:MASTER%との打招呼接吻をじっくり楽しんだ%CALLNAME:TARGET%正在认真地读着标题为小さく呟いた。
					ENDIF
				ELSE
					CALL EMOTION_PLUS, "重置/右闭眼２/半目/微笑６/紅潮２"
					PRINTFORMW 「ちゅ…ちゅう……%GREETING%、%CNAME("二人称")%よ」
					PRINTFORMW 「ああほら、唇に%CNAME("一人称")%のルージュが付いてるぞ」
				ENDIF
			ELSE
				IF TALENT:恋慕
					IF BASE:欲求不満 >= 75
						CALL EMOTION_PLUS, "重置/左闭眼２/半目/斜眉/小口/赤面/对话框爱心"
						PRINTFORMW 「ん、ハァッ…はむ、ちゅちゅっ……ちゅぱっ……」
						PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为目を蕩かせながら%CALLNAME:MASTER%の首に腕を回し、貪欲に口付けと愛をむさぼっている。
						PRINTFORMW もはやこれが打招呼だという事を忘れているようだ…。
					ELSE
						CALL EMOTION_PLUS, "重置/半目/斜眉/小口/紅潮２"
						PRINTFORMW 「ちゅっ、ちゅく、んん……はぁ、はふ……んっ、ちゅちゅ…」
						PRINTFORMW 「…%GREETING%…打招呼は毎回これでも良いかもしれんな…」
						PRINTFORMW %CALLNAME:MASTER%との打招呼接吻をじっくり楽しんだ%CALLNAME:TARGET%正在认真地读着标题为小さく呟いた。
					ENDIF
				ELSE
					CALL EMOTION_PLUS, "重置/右闭眼２/半目/微笑６/紅潮２"
					PRINTFORMW 「ちゅ…ちゅう……%GREETING%、%CNAME("二人称")%よ」
					PRINTFORMW 「ほら、唇に%CNAME("一人称")%のルージュが付いてるぞ」
				ENDIF
			ENDIF
		ENDIF
	CASE "打招呼口交", "打招呼舐陰"
		IF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/闭眼２/蹙眉/へ字/紅潮/对话框・・・"
			PRINTFORMW 「ハァー………%CNAME("二人称")%よ。これが打招呼というのは無理があるのではないか？」
			IF TALENT:恋慕
				PRINTFORMW 「まぁ良い、そうしたかったのならそうさせてやる」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为股間に顔を埋めやすいように轻轻地足を開くと、%CALLNAME:MASTER%の頭を一撫でした…。
			ELSE
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为股間に顔を埋める%CALLNAME:MASTER%を呆れ果てた様子で見ている…。
			ENDIF
		ELSE
			IF CFLAG:打招呼した == 0
				IF TALENT:恋慕
					IF BASE:欲求不満 >= 75
						CALL EMOTION_PLUS, "重置/半目/困扰眉/哈欠小/赤面/对话框汗２"
						PRINTFORMW 「ぁん…こ、こら…ただでさえ躁动难忍しているんだ、そんな熱心に气味を嗅ぐな…」
						PRINTFORMW 「それとも挑逗ているつもりか？だとしたら、くぅッ、効果はてきめんだぞ…！」
						PRINTFORMW 物足りなさそうに身じろぎする%CALLNAME:TARGET%の股間からは濃厚的性臭が漂ってくる…。
					ELSE
						CALL EMOTION_PLUS, "重置/半目/蹙眉/微笑６/紅潮２/对话框汗２"
						PRINTFORMW 「んっ、%GREETING%…なぁその、あまり嗅がないでくれると有がたいのだが」
						PRINTFORMW 「いや、綺麗にはしている。しているんだが、もし%CNAME("二人称")%に臭いなどと言われたら悲しいからな…」
						PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为股間に顔を埋める%CALLNAME:MASTER%の頭をポンポンと叩きながら打招呼を返してきた。
					ENDIF
				ELSE
					CALL EMOTION_PLUS, "重置/半目/困扰眉/小口/紅潮２"
					PRINTFORMW 「んっ、%GREETING%………なぁ%CNAME("二人称")%、やはりこれは堕落し過ぎていると思うぞ」
					PRINTFORMW 「悪魔にここまで言わせるとは業が深いよなぁ…んん？」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为股間に顔を埋める%CALLNAME:MASTER%の頭を轻轻地小突きながら行動を諫めてきた。
				ENDIF
			ELSE
				IF TALENT:恋慕
					IF BASE:欲求不満 >= 75
						CALL EMOTION_PLUS, "重置/半目/困扰眉/哈欠小/赤面/对话框汗２"
						PRINTFORMW 「ぁん…こ、こら…ただでさえ躁动难忍しているんだ、そんな熱心に气味を嗅ぐな…」
						PRINTFORMW 「それとも挑逗ているつもりか？だとしたら、くぅッ、効果はてきめんだぞ…！」
						PRINTFORMW 物足りなさそうに身じろぎする%CALLNAME:TARGET%の股間からは濃厚的性臭が漂ってくる…。
					ELSE
						CALL EMOTION_PLUS, "重置/半目/蹙眉/微笑６/紅潮２/对话框汗２"
						PRINTFORMW 「んっ、%GREETING%…なぁその、あまり嗅がないでくれると有がたいのだが」
						PRINTFORMW 「いや、綺麗にはしている。しているんだが、もし%CNAME("二人称")%に臭いなどと言われたら悲しいからな…」
						PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为股間に顔を埋める%CALLNAME:MASTER%の頭をポンポンと叩きながら打招呼を返してきた。
					ENDIF
				ELSE
					CALL EMOTION_PLUS, "重置/半目/困扰眉/小口/紅潮２"
					PRINTFORMW 「んっ、%GREETING%………なぁ%CNAME("二人称")%、やはりこれは堕落し過ぎていると思うぞ」
					PRINTFORMW 「全く、悪魔にここまで言わせるとは業が深いよなぁ…んん？」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为股間に顔を埋める%CALLNAME:MASTER%の頭を轻轻地小突きながら行動を諫めてきた。
				ENDIF
			ENDIF
		ENDIF
	CASEELSE
		;你に先に打招呼をされた
		IF CFLAG:打招呼した == 0
			CALL EMOTION_PLUS, "重置/左笑颜４/对话框兴奋/布"
			IF RAND:2
				PRINTFORMW 「%GREETING%。気持ちの良い打招呼だ、%CNAME("二人称")%よ」
			ELSE
				PRINTFORMW 「%GREETING%。%CNAME("二人称")%よ、元気そうだな」
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORMW 「%GREETING%。気持ちの良い打招呼だ、%CNAME("二人称")%よ」
			ELSE
				PRINTFORMW 「%GREETING%。%CNAME("二人称")%よ、元気そうだな」
			ENDIF
		ENDIF
	ENDSELECT
CASE "叫醒"
	;奥丝卡が夢でうなされているのを一度でも見ると追加
	IF RAND:2 && CEVENT("両親の夢")||CEVENT("悪夢")
		CALL EMOTION_PLUS, "重置/斜眼２/蹙眉/小口"
		PRINTFORML 「%TEXTR(@"夢か…夢、なのだな…/…チッ、またあの夢か…/…どうした%CNAME("二人称")%よ。%CNAME("一人称")%の顔に何か付いてるのか？")%」
		PRINTFORML %CALLNAME:MASTER%に起こされた%CALLNAME:TARGET%の頬と目元には、うっすらと涙の痕が残っている…。
	ELSE
		CALL EMOTION_PLUS, "重置/闭眼２/困扰眉/～/对话框困倦"
		IF RAND:2
			PRINTFORMW 「んむ…ふわぁ～～～………」
		ELSE
			PRINTFORMW 「ううむ……眠い……」
		ENDIF
	ENDIF
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	CALL EMOTION_PLUS, "重置/左闭眼２/半目/困扰眉/小口/对话框困倦"
	PRINTFORMW 「ふあぁ…眠たくなってきたな…」
	PRINTFORMW 「すまない、先に寝かせてもらうぞ…うっぷ…」
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖", "夸奖点心"
		IF RAND:2
			CALL EMOTION_PLUS, "重置/半目/笑顔２/紅潮/对话框開心"
			PRINTFORMW 「む…よせ、夸奖な。照れるではないか」
			PRINTFORMW そう言ってそっぽを向く%CALLNAME:TARGET%だが、顔がニヤけているのが隠せていない…。
		ELSE
			CALL EMOTION_PLUS, "重置/笑颜４/紅潮/对话框開心"
			PRINTFORMW 「何だ、急に？褒めても何も出ないぞ」
			PRINTFORMW そう言う%CALLNAME:TARGET%正在认真地读着标题为実に開心地笑着いる。
		ENDIF
	CASE "甜言蜜语"
		IF TALENT:恋慕
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/左笑颜４/微笑/紅潮２/对话框爱心"
				PRINTFORMW 「全く、口が減らないなぁ、ん？」
				PRINTFORMW 「本気かどうか、床の上でたっぷり聞かせてもらおうか…ククッ♪」
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/半目/小口/紅潮２/对话框・・・"
				PRINTFORMW 「…………………」
				CALL EMOTION_PLUS, "重置/〇〇/ヮ/紅潮２/对话框惊讶"
				PRINTFORMW 「………あ、ああ、すまない%CNAME("二人称")%」
				PRINTFORMW （しまった…嬉しさのあまりぼうっとしてしまった…）
			ELSE
				CALL EMOTION_PLUS, "重置/左笑颜４/半目/紅潮２/对话框爱心"
				PRINTFORMW 「うん？ああ、%CNAME("一人称")%も愛してるぞ…チュッ…」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为素っ気なく言い的同时、%CALLNAME:MASTER%の頬に口付けして返してきた…。
			ENDIF
		ELSEIF CALCF("甜言蜜语成功")
			IF RAND:2
				CALL EMOTION_PLUS, "重置/半目/ڡ/紅潮２/对话框爱心"
				PRINTFORMW 「む…。やるな、%CNAME("二人称")%よ」
				PRINTFORMW 「なに、今ので少しばかり子宮が疼いてしまっただけだ」
			ELSE
				CALL EMOTION_PLUS, "重置/左笑颜４/半目/紅潮２/对话框爱心"
				PRINTFORMW 「全く、%CNAME("一人称")%は悪魔だぞ？悪魔にそんな事を囁いて大丈夫だとでも？」
				PRINTFORMW 「本気で虜にしたくなってしまうではないか…ククッ♪」
			ENDIF
		ELSE
			CALL EMOTION_PLUS, "重置/半目/蹙眉/無口系/对话框？"
			PRINTFORMW 「何だ？%CNAME("一人称")%を奉承たいのか？」
			PRINTFORMW 「だとしたらまだまだだな。%TEXTR(@"もう少し練習するが良い/…%CNAME("一人称")%と取引すれば少しは教えてやれるぞ？ククッ♪")%」
		ENDIF
	CASEELSE
		IF CEVENT("両親の夢") && DEVENT("家族について") && CEVENT("両親の夢２") == 0 && ABL:信頼 >= 4
			PRINTFORMW 「%CNAME("一人称")%が寝ながら泣いている、か」
			PRINTFORMW 「ああ、両親の夢を見ている。まだ二人が生きていたらという夢だ」
			PRINTFORMW 「どんなに楽しくて幸せでも、最後は必ず二人と別れてしまう…」
			PRINTFORMW 「…%CNAME("一人称")%は何故こんな夢を見るのだろうな。前よりもっと、辛くなるだけなのに…」
			CALL SET_CEVENT, "両親の夢２"
		ELSEIF CEVENT("悪夢") && DEVENT("召し使いについて") && CEVENT("悔恨") == 0 && ABL:信頼 >= 4
			PRINTFORMW 「%CNAME("一人称")%が時折うなされている、か」
			PRINTFORMW 「それは…そうだな、話しても良いが…長くてあまり気持ちの良い話ではないぞ？」
			CALL PRINT_SELECT, "話を聞く/还是算了"
			IF RESULT == 0
				PRINTFORMW 「…%CNAME("一人称")%の両親の召し使いに、とある女悪魔がいた」
				PRINTFORMW 「彼女は元々人类の魔女だったが、何かと引き換えに悪魔变成了そうだ」
				PRINTFORMW 「何より%CNAME("一人称")%の一番の友だった…よく遊んでもらっていたよ」
				PRINTFORMW 「…かつて%CNAME("一人称")%は、そんな大事な友を助けられなかった」
				PRINTFORMW 「元人类の魔女だから。そんな下らない理由で、彼女が親類のクズ共に虐待されていた」
				PRINTFORMW 「輪姦、强奸までされていたのに、それに気づけなかった…」
				PRINTFORMW 「%CNAME("一人称")%がようやくそれに気づいて両親に伝え、クズ共は秘密裏に粛清されたが…」
				PRINTFORMW 「…彼女は元には戻らなかった…気が触れて、夜な夜な男を漁っては吸い殺す淫魔もどきに…」
				PRINTFORMW 「もっと、もっと早く気付けていれば………」
				PRINTFORMW 「………あまり気持ちの良い話ではなかっただろう？」
				PRINTFORMW 「でも…%CNAME("二人称")%に聞いてもらったおかげで心が少し楽变成了…有がとう」
				PRINTFORMW 話し終えた%CALLNAME:TARGET%正在认真地读着标题为どこか憑き物が落ちた顔で微笑んだ…。
				PRINTFORMW ＜＜%CALLNAME:TARGET%の好感度が少し上がった＞＞
				CFLAG:好感度 += 50
			ELSE
				PRINTFORMW 「そうか…ならばやめておこう」
				PRINTFORMW 「ただ…気にしてくれて嬉しかったぞ、%CNAME("二人称")%」
				PRINTFORMW ＜＜%CALLNAME:TARGET%の好感度が少し上がった＞＞
				CFLAG:好感度 += 50
			ENDIF
			CALL SET_CEVENT, "悔恨"

		ELSE
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/半目/对话框電球/托下巴"
				PRINTFORMW 「%CNAME("二人称")%よ、闲なら護身用の魔術でも教えてやろうか？」
				PRINTFORMW 「なぁに、遠慮するな。実戦形式だからちょっと痛いかもしれんが必ず身に付く」
				PRINTFORMW 全力でお断りした…。
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/半目/斜眉/小口/对话框・・・/托下巴"
				PRINTFORMW 「ふーむ………ほうほう………」
				IF RAND:3
					PRINTFORMW 「皆が持っている光る板切れ…スマートフォンという奴か」
					PRINTFORMW 「中々便利な代物のようだが…これは便利過ぎて人类の堕落を加速させそうだな…」
				ELSEIF RAND:2
					PRINTFORMW 「なぁ%CNAME("二人称")%よ、この本の…えーと、ここだ…ここはどういう意味だ？」
				ELSE
					PRINTFORMW 「%CNAME("二人称")%が貸してくれた漫画は面白色な」
					PRINTFORMW 「特にこの、悪魔に対して終わりが無いのが終わり、と言うのが最高に痺れる」
				ENDIF
			ELSE
				IF BASE:魂 >= 1000 && CEVENT("中身：魔界へのポータル")
					CALL EMOTION_PLUS, "重置/陰/大口"
					PRINTFORMW 「クッ、ククッ、クハハッ…！これだけ魂があればそうそう尽きることは無いな…！」
					PRINTFORMW 「それこそ、こっちで暮らしていくのも問題ないぐらいに…！」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为両手に%TEXTR("魔法陣のようなもの/赤黑色稲妻/黑色モヤ/深緑色の茨")%を展開しつつ悪役のように笑着いる…。
					PRINTFORMW （クククッ、そろそろあの計画を実行する時か…！？）
				ELSEIF BASE:魂 >= 600
					CALL EMOTION_PLUS, "重置/闭眼２/呀哒/对话框・・・"
					PRINTFORMW 「―――――――――………。―――――――――――――………！」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为謎の言語で詠唱し的同时、%TEXTR("魔法陣のようなもの/赤黑色稲妻/黑色モヤ/深緑色の茨")%を誰也不在所めがけ自在に飛ばしている。
					CALL EMOTION_PLUS, "重置/笑颜４/笑顔２/对话框開心"
					PRINTFORMW 「ふぅ…見ていたかっ？そなたのおかげでだいぶ力を取り戻したぞ！有がとう%CNAME("二人称")%よ！」
					PRINTFORMW 兒童のようにはしゃぎ的同时、%CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%抱住了。
					PRINTFORMW （…これなら魔界に帰れるか…？しかしまだ…）
				ELSEIF BASE:魂 >= 300
					CALL EMOTION_PLUS, "重置/半目/憤怒眉/呀哒/頬汗"
					PRINTFORMW 「ぬぅうぁっ…！…ぅぐっ、がはっ、はぁはぁっ…」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为両手の間に%TEXTR("魔法陣のようなもの/赤黑色稲妻/黑色モヤ/深緑色の茨")%を大量的圧縮展開するが力尽き、荒い息を吐きながら膝をついた…。
					CALL EMOTION_PLUS, "重置/斜眼２/蹙眉/哈欠小/对话框乱/頬汗"
					PRINTFORMW 「…くっ、３～５人分程度では足りぬのか…。%CNAME("二人称")%よ、すまないがまだまだ魂が必要になりそうだ」
				ELSE
					CALL EMOTION_PLUS, "重置/半目/蹙眉/へ字３/对话框尷尬"
					PRINTFORMW 「うぅむ、これはやはり…」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为渋い顔で指先に%TEXTR("魔法陣のようなもの/赤黑色稲妻/黑色モヤ/深緑色の茨")%を出しては引っ込めている。
					PRINTFORMW 「…慢性的な魂不足でかなり力が落ちているな…と言う訳で%CNAME("二人称")%よ、もっと魂を出せないか？」
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "Ｈ的約定"
	;前回赤点で、それどころではない
	IF COND("成績：赤点", MASTER)
		CALL EMOTION_PLUS, "重置/闭眼２/憤怒眉/へ字３"
		PRINTFORMW 「ダメだ。前回赤点で補修を受けていたのは何処の誰だ？」
		PRINTFORMW 「%TEXTR(@"まぁ…今回頑張れば次からは聞いてやらんこともないぞ？/…これも%CNAME("二人称")%のためだ。悪く思うな/あまり調子に乗っているようだと、褒美ではなく%CNAME("一人称")%の地獄のレッスンが待っているぞ…？")%」
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			CALL EMOTION_PLUS, "重置/左闭眼２/半目/微笑６/托下巴"
			PRINTFORMW 「ふむ…良いだろう。最近頑張っているからな」
			PRINTFORMW 「%TEXTR(@"目指すは頂点…とまで行かなくても上位レベルだ。もし行けたら%CNAME("一人称")%も鼻が高いぞ/よーし、%CNAME("一人称")%は太っ腹だからな…学年上位入りしたら欲しいもの何でも買ってやろう/あんまり目標を低くすると有がたみが薄れるだろうからな…決めた、学年トップ１０入りを果たしたら褒美をやろう")%」
		;そうでない場合には平均点を結構上回る程度でＯＫです
		ELSE
			CALL EMOTION_PLUS, "重置/斜眼２/斜眉/小口"
			PRINTFORMW 「全く、%CNAME("二人称")%は調子が良いな…」
			PRINTFORMW 「良いだろう、%TEXTR(@"それで%CNAME("二人称")%が干劲を出すなら褒美でも何でもくれてやろうではないか/…浮かれて勉強をおろそかにするなよ？")%」
		ENDIF
	ENDIF
CASE "拭汗"
	CALL EMOTION_PLUS, "重置/笑颜４"
	IF RAND:2
		PRINTFORMW 「おお、気が利くな%CNAME("二人称")%」
	ELSE
		PRINTFORMW 「む、拭いてくれるのか？すまないな%CNAME("二人称")%よ」
	ENDIF
	SIF COND("体育")
		PRINTFORMW 「%TEXTR(@"いやぁ、学生達に混じって運動するのも中々乙なものだな…。良い気分転換变成了ぞ/…%CNAME("一人称")%から変な气味はしてないか？どうも自己は分かりづらくてな…/とは言え熱心に拭かれるとその、昂ってしまうからな…程々で頼む")%」
CASE "淋浴独り言"
	;PRINTFORMW
CASE "淋浴"
	PRINTFORMW 「ふぅー、サッパリしたな……」
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		CALL EMOTION_PLUS, "重置/半目/对话框？"
		PRINTFORMW 「で、%CNAME("二人称")%よ、%CNAME("一人称")%の内衣はどうだった？」
		CALL EMOTION_PLUS, "重置/陰"
		PRINTFORMW 「あぁ怒ってない。怒ってないが气味がどうこうとか言ったらどうなるか分からんぞ」
	ELSE
		CALL EMOTION_PLUS, "重置/半目/紅潮/对话框兴奋"
		IF RAND:2
			PRINTFORMW 「む、来ていたのか。%CNAME("二人称")%の事だから乱入してくるものだと思ったが…」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为髪を拭きながら意外そうにそう言ってきた…。
		ELSE
			PRINTFORMW 「…あぁ、丁度良い。%CNAME("二人称")%よ、髪を乾かすのを手伝ってくれまいか」
			PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%の髪にドライヤーと櫛を通してあげた。
			PRINTFORMW ほんのりと香るシャンプーの香りと櫛が通るたびに気持ち良さそうに息をつく%CALLNAME:TARGET%の姿が何とも艶めかしい…。
		ENDIF
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

CASE "淋浴後换装失敗"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K30
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "托一托胸部"
		CALL EMOTION_PLUS, "重置/斜眼２/困扰眉/小口"
		PRINTFORMW 「何だその手…何だその手は？」
		PRINTFORMW 「重そうだから支えてるって…全く、%CNAME("二人称")%は本当に馬鹿だな…」
		PRINTFORMW かく言う%CALLNAME:TARGET%も全く嫌がる様子を見せていない…。
	CASE "按摩"
		IF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/半目/蹙眉/△"
			PRINTFORMW 「確かに%CNAME("二人称")%よりも%CNAME("一人称")%の方が年上だが…マッサージが必要な歳ではないぞ？」
			CALL EMOTION_PLUS, "重置/闭眼２/へ字"
			PRINTFORMW 「まぁ良い、受けてやろう………ん……ふぅっ、くっ…んん、はぁ～………」
			CALL EMOTION_PLUS, "重置/半目/ヮ"
			PRINTFORMW 「…%CNAME("二人称")%はマッサージも擅長なのだな。商売出来るかもしれないぞ？」
		ELSE
			IF RAND:2
				CALL EMOTION_PLUS, "重置/半目/ヮ"
				PRINTFORMW 「脚もやってくれるとは…まぁ%CNAME("二人称")%が触りたいだけかもしれんがな、ククッ♪」
				IF RAND:2
					CALL EMOTION_PLUS, "重置/涙目＞＜/困扰眉/呀哒/对话框！？"
					PRINTFORMW 「…ひぎぃっ？！ちょぉっ、待っ、い゛ッ～～～～～～～～～！！？」
					PRINTFORMW 足ツボを強めに刺激された%CALLNAME:TARGET%正在认真地读着标题为美少女らしからぬ動きで悶絶している…。
				ELSE
					PRINTFORMW 「ま、たっぷり楽しみつつ小心地ほぐしてくれよ？」
					PRINTFORMW 言われるがままに%CALLNAME:TARGET%の太ももやふくらはぎの柔らかさとハリの良さを楽しみ的同时、入念にマッサージした。
				ENDIF
			ELSE
				CALL EMOTION_PLUS, "重置/闭眼２/笑顔２/对话框兴奋"
				PRINTFORMW 「んんっ…うっ、ふっ…はぁぁ…んっ、そこそこ…」
				PRINTFORMW 「そうだ、そこをもう少し強めに…あぁ～、絶妙な力加減だ…♪」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%のマッサージに完全に身を任せている。
			ENDIF
		ENDIF
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF RAND:2
				CALL EMOTION_PLUS, "重置/斜眼２/斜眉/小口"
				PRINTFORMW 「何だ、まだ足りないのか…はむ、ちゅく、ぢゅちゅっ…」
				CALL EMOTION_PLUS, "重置/闭眼２/斜眉/小口/紅潮２/对话框爱心"
				PRINTFORMW 「んちゅっ、んっ、ぷは…%TEXTR(@"良いぞ、お互い満足するまでヤるか/ククッ、%CNAME("一人称")%以外じゃ満足出来ないように躾けてやる")%…♪」
				IF CHARA_NUM("室内の邪魔者") >= 1
					CALL EMOTION_PLUS, "重置/右闭眼２/飘忽/斜眉/小口/爱心眼/紅潮２/对话框爱心"
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为他の部員に飘忽と視線を移してから、見せつけるように濃厚的口付けに没頭していった…。
				ELSE
					PRINTFORMW 誰也不在のを良い事に、%CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%の唇をより深く求め続けた…。
				ENDIF
			ELSE
				CALL EMOTION_PLUS, "重置/闭眼２/小口/紅潮２"
				PRINTFORMW 「んんっ…はふっ、鞭子ゅっ、はっ、ふぅ…クク、%CNAME("二人称")%は接吻が擅長だな」
				CALL EMOTION_PLUS, "重置/半目/微笑６/爱心眼/紅潮２/对话框爱心"
				PRINTFORMW 「こんなに夢中になれるとは…はむ、ちゅうぅ…思わなかったぞ…くちゅっ、ちゅ…じゅるぅっ…」
				PRINTFORMW そう言いながら接吻を続ける%CALLNAME:TARGET%正在认真地读着标题为すっかりメスの顔になっている…。
			ENDIF
		ELSEIF CSTR:PREV_DAILYCOM == "勸酒"
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/左闭眼２/半目/斜眉/小口/紅潮２"
				PRINTFORMW 「ふぅんっ……んっく…ちゅっ……ゴクン……ちゅっ、はぁ……」
				PRINTFORMW 一口分の酒を互相用口内に流しこみ合い、唾液を混ぜ合わせ、舌を絡めながら味わう。
				PRINTFORMW 温くなり粘度が増した酒が少しずつ喉を通るたび、%CALLNAME:TARGET%正在认真地读着标题为酔酒以外の理由で目を蕩かせていった…。
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/半目/ヮ/紅潮２"
				PRINTFORMW 「何だ、そんなに顔を近づけて……なるほど、一口だけ飲ませてくれと？ククク…良いぞ♪」
				PRINTFORMW %CALLNAME:MASTER%の意図を察した%CALLNAME:TARGET%正在认真地读着标题为悪戯っぽく笑うと徐に酒を口に含み、%CALLNAME:MASTER%の接吻に応えてくれた…。
				CALL EMOTION_PLUS, "重置/闭眼２/小口/紅潮２"
				PRINTFORMW 「んふ、ふぁ、はあぁ……酒を口移ししあって飲むのもまた乙なものだな…♪」
			ELSE
				CALL EMOTION_PLUS, "重置/左闭眼２/半目/斜眉/小口/紅潮２"
				PRINTFORMW 「ん…晩酌の時に接吻をねだるとは、%CNAME("二人称")%の物好きめ」
				PRINTFORMW 「ほら、口を…もっと深く…んんっ………」
				PRINTFORMW 重ね合わされた%CALLNAME:TARGET%の唇から人肌に温まりアルコール臭の薄れた酒が流れ込み、%CALLNAME:MASTER%の喉を潤していった…。
			ENDIF
		ELSE
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/笑颜４/小口/紅潮２"
				PRINTFORMW 「ん………ちゅっ……ちゅ………」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为何も言わず接吻を受け入れているが、その目は楽しそうに弓形に反っている。
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/左笑颜４/半目/困扰眉/ヮ/紅潮２"
				PRINTFORMW 「ちゅっ…ちゅ……どうした%CNAME("二人称")%、急に接吻などして…ちゅちゅっ……」
				PRINTFORMW 「………んぷ、はぁ……口紅が付いてしまったな…ほら、拭いてやる」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%の唇に付いた口紅を指で温柔的拭った…。
			ELSE
				CALL EMOTION_PLUS, "重置/半目/斜眉/小口/紅潮２"
				PRINTFORMW 「んちゅっ、ちゅぅぅ…ぷは、はぁ、はむっ…ぢゅるっ、ぢゅうぅぅ…」
				CALL EMOTION_PLUS, "重置/半目/斜眉/小口/紅潮２"
				PRINTFORMW 「ん…はぁ、はぁ…このっ、少し落ち着け…息が続かん…んむっ…んぅっ、じゅちゅっ…」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%に何度も唇を求められ、次第に顔と声が蕩けていった…。
			ENDIF
		ENDIF
	CASE "膝枕"
		IF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/斜眉/へ字３/对话框？"
			PRINTFORMW 「手招きなどして…何だ、%CNAME("二人称")%」
			PRINTFORMW 「膝枕…だと？%CNAME("一人称")%がされる方で…って逆ではないのか？」
			CALL EMOTION_PLUS, "重置/闭眼２/微笑６"
			PRINTFORMW 「まぁ良い、やってくれると言うなら失礼して…」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为困惑しながらも、%CALLNAME:MASTER%の膝に寝転んだ。
		ELSE
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/半目"
				PRINTFORMW 「やってもらってばかりでは落ち着かんな…」
				PRINTFORMW 「%CNAME("二人称")%よ、後で%CNAME("一人称")%もお返しに膝枕してやろう」
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/闭眼２/斜眉/無口系/对话框困倦"
				PRINTFORMW 「………………」
				PRINTFORMW 膝枕されている%CALLNAME:TARGET%正在认真地读着标题为安心した様子でうつらうつらとしている。
				CALL EMOTION_PLUS, "重置/〇〇/半開/对话框惊讶"
				PRINTFORMW 「………ハッ、いかんいかん…睡眠そうになってしまった」
			ELSE
				CALL EMOTION_PLUS, "重置/闭眼２/微笑３"
				PRINTFORMW 「ん…%CNAME("二人称")%の气味は落ち着くな」
				PRINTFORMW 「何というか…父ともこうした思い出が…」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为リラックスした様子で%CALLNAME:MASTER%の太ももに頬擦りしている。
			ENDIF
		ENDIF
	CASE "泡茶"
		IF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/半目/ヮ"
			PRINTFORMW 「ほう、紅茶か。有がたく頂こう」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为紅茶を一口、口の中でゆっくり転がしてから飲み込み、「ふむ」と鼻を鳴らした。
			CALL EMOTION_PLUS, "重置/小口/对话框！"
			PRINTFORMW 「いや、%CNAME("一人称")%も茶にはうるさい方だからな、何か言おうと思ったが…これは中々どうして…」
			PRINTFORMW 「…特にレクチャーも受けてないだろうに、ここまで美味しく淹れられるのは中々だぞ%CNAME("二人称")%」
		ELSE
			IF RAND:4 == 0
				CALL EMOTION_PLUS, "重置/小口/对话框・・・"
				PRINTFORMW 「…咖啡か。…ぅむ、頂こう」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为咖啡を見て一瞬顔を強張らせたが、静々と飲み始めた…。
				PRINTFORMW （…%CNAME("二人称")%が淹れてくれたものは飲みやすくて美味しいな…これなら克服出来るか…？）
			ELSEIF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/ヮ"
				PRINTFORMW 「むむっ、今回は香草茶か」
				PRINTFORMW 「%CNAME("一人称")%はカモミールとローズ臀圍が好みだな」
			ELSEIF RAND:2
				IF RAND:2
					CALL EMOTION_PLUS, "重置/笑颜４/ヮ"
				ELSE
					CALL EMOTION_PLUS, "重置/半目"
				ENDIF
				PRINTFORMW 「今日は気分を変えてっと…」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为紅茶に砂糖とミルクをドバドバと入れて飲み始めた…。
			ELSE
				CALL EMOTION_PLUS, "重置/小口"
				PRINTFORMW 「フルーツティーか。蜂蜜はあるか？」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为フルーツティーに蜂蜜をたっぷり大さじ３杯ほど入れて飲みだした。
				CALL EMOTION_PLUS, "重置/笑颜４"
				PRINTFORMW 「何、これぐらい甜のが好みなのでな」
			ENDIF
		ENDIF
	CASE "勸酒"
		STR:選択肢 = 赤ワイン/白ワイン/果実酒/ウイスキー
		VARSET LOCALS
		SPLIT STR:選択肢, "/", LOCALS
		CALL PRINT_SELECT, STR:選択肢
		SELECTCASE LOCALS:RESULT
		CASE "赤ワイン"
			CALL EMOTION_PLUS, "重置/半目/小口"
			IF RAND:2
				PRINTFORMW 「ふむ、赤か。%CNAME("一人称")%の好みに合わせてきたな？ククッ…」
			ELSE
				PRINTFORMW 「ほう、赤ワインか。いただこう」
			ENDIF
			CALL EMOTION_PLUS, "重置/闭眼２/～"
			IF RAND:3 == 0
				PRINTFORMW 「これは…中々美味いではないか。それなりに値が張ったろうに」
				CALL EMOTION_PLUS, "重置/笑颜４/ヮ/对话框爱心"
				PRINTFORMW 「…わざわざ%CNAME("一人称")%のために？…ククッ、%CNAME("二人称")%は%CNAME("一人称")%を喜ばせるのが擅長だな…♪」
			ELSEIF RAND:2
				PRINTFORMW 「うぅん…この芳醇な香り…たまらないな…」
			ELSE
				PRINTFORMW 「まさかこっちに来てからこんなに美味いワインが飲めるとは…至福だな」
			ENDIF
		CASE "白ワイン"
			CALL EMOTION_PLUS, "重置/半目/小口"
			IF RAND:2
				PRINTFORMW 「ふむ、白か。%CNAME("一人称")%の好みに合わせてきたな？ククッ…」
			ELSE
				PRINTFORMW 「ほう、白ワインか。いただこう」
			ENDIF
			CALL EMOTION_PLUS, "重置/闭眼２/～"
			IF RAND:3 == 0
				PRINTFORMW 「これは…中々美味いではないか。それなりに値が張ったろうに」
				CALL EMOTION_PLUS, "重置/笑颜４/ヮ/对话框爱心"
				PRINTFORMW 「…わざわざ%CNAME("一人称")%のために？…ククッ、%CNAME("二人称")%は%CNAME("一人称")%を喜ばせるのが擅長だな…♪」
			ELSEIF RAND:2
				PRINTFORMW 「うぅん…この鮮烈な香り…たまらないな…」
			ELSE
				PRINTFORMW 「まさかこっちに来てからこんなに美味いワインが飲めるとは…至福だな」
			ENDIF
		CASE "果実酒"
			CALL EMOTION_PLUS, "重置/小口"
			IF RAND:3 == 0
				PRINTFORMW 「これは…ストロベリーリキュールか」
				PRINTFORMW 「%CNAME("一人称")%はミルクと合わせるのが好みだな。やってくれるか？」
			ELSEIF RAND:2
				PRINTFORMW 「この香りは梅酒だな？」
				PRINTFORMW 「氷很多のロックでいただこうか…うぅん、薫り高く美味いな」
			ELSE
				PRINTFORMW 「ほう、カリン酒とはまたツウだな」
				PRINTFORMW 「喉に良さそうな味わい、%CNAME("一人称")%は好きだぞ」
			ENDIF
		CASE "ウイスキー"
			CALL EMOTION_PLUS, "重置/へ字３"
			PRINTFORMW 「むむ、ウイスキーか…」
			IF RAND:3 == 0
				PRINTFORMW 「…一本、ビンで貰えるか？」
				CALL EMOTION_PLUS, "重置/飘忽/斜眉/会話口"
				PRINTFORMW 「いや…魔界に帰れた時、父の墓前に供えたいと思ってな」
			ELSEIF RAND:2
				PRINTFORMW 「水を別の鏡に用意して飲みたいところだな」
			ELSE
				PRINTFORMW 「ハイボールにコークハイ…今日はどう飲むか迷うな」
			ENDIF
		ENDSELECT
	CASE "送一份小礼物"
		IF RAND:3 == 0
			CALL EMOTION_PLUS, "重置/微笑６/对话框？"
			PRINTFORMW 「…？くれるのか？」
			CALL EMOTION_PLUS, "重置/笑颜４/ヮ"
			PRINTFORMW 「有がとう、%CNAME("二人称")%。大事にしよう」
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/小口"
			PRINTFORMW 「可愛い小物だな…%CNAME("一人称")%には少し似合わないような気がするが」
			CALL EMOTION_PLUS, "重置/半目/困扰眉"
			PRINTFORMW 「似合う？そ、そうか、%CNAME("一人称")%にも似合うか…ふふっ」
		ELSE
			CALL EMOTION_PLUS, "重置/半目"
			PRINTFORMW 「契約した悪魔に送禮、か。殊勝な心掛けだな」
			CALL EMOTION_PLUS, "重置/笑颜４/ヮ"
			PRINTFORMW 「まぁ%CNAME("一人称")%の場合、%CNAME("二人称")%にならいつでも力を貸してやるが…」
		ENDIF
	CASE "送一份普通的礼物"
		IF RAND:3 == 0
			CALL EMOTION_PLUS, "重置/小口"
			PRINTFORMW 「これを%CNAME("一人称")%に？有がとう」
			CALL EMOTION_PLUS, "重置/飘忽/困扰眉/微笑６/对话框・・・"
			PRINTFORMW 「ううむ、%CNAME("二人称")%からは貰ってばかりで申し訳ないな…」
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/半目/ヮ"
			PRINTFORMW 「%CNAME("一人称")%好みの酒か。良いセンスだな」
			PRINTFORMW 「後でゆっくり飲ませてもらおう」
		ELSE
			CALL EMOTION_PLUS, "重置/笑颜４"
			PRINTFORMW 「ふむ…化粧品か。いつ何時誰に見られても契約主の恥とならない努力は大事だからな」
			PRINTFORMW 「有がたく使わせてもらおう」
		ENDIF
	CASE "送一份高价的礼物"
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW %CALLNAME:MASTER%稍微奮発して町の骨董品屋まで行き、そこで目についた洒落たティーセットを%CALLNAME:TARGET%に送禮した…。
			CALL EMOTION_PLUS, "重置/半目/小口"
			PRINTFORMW 「何？%CNAME("一人称")%に送禮か？これはまた…中々高そうだな」
			PRINTFORMW 「どれ、中身は………………」
			PRINTFORMW ニヨニヨと笑う%CALLNAME:TARGET%正在认真地读着标题为箱を開けた途端、ハッと息を呑む音と共にピタリと手を止める。
			CALL EMOTION_PLUS, "重置/蹙眉/哈欠小/对话框！？"
			PRINTFORMW 「ああ…………まさか……こんな…………」
			PRINTFORMW 唖然とした表情のまま、震える手で至極精心ティー罩杯を取り出しじっくり眺める%CALLNAME:TARGET%。
			PRINTFORMW そのうち、彼女の両目からはポロポロと大粒の涙が零れ始めた。
			PRINTFORMW 「…………%CNAME("二人称")%。どこでこれを手に入れた？」
			PRINTFORMW 「いや、どこで手に入ったかは最早問題ではないか」
			CALL EMOTION_PLUS, "重置/半目/蹙眉/小口/对话框・・・"
			PRINTFORMW 「…これはな、%CNAME("一人称")%の両親が使ってたティーセットそのものだ」
			PRINTFORMW 「本来なら%CNAME("一人称")%が唯一正式な遺産として受け継ぐはずだった大事な形見…」
			PRINTFORMW 「だが、二人が亡くなった後で勝手にカス共に売られて行方不明になっていた」
			PRINTFORMW 「正直、もう二度と戻ってこないだろうと諦めていたが…まさかこんな形で戻ってくるとは…」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为ほう、と嘆息して涙を拭いティー罩杯を精心箱に収めると、%CALLNAME:MASTER%に向き直り深々と頭を下げる。
			CALL EMOTION_PLUS, "重置/半目/ワ/对话框爱心"
			PRINTFORMW 「有がとう%CNAME("二人称")%。意図して是ないだろうが%CNAME("一人称")%の大事なものを取り戻してくれて」
			PRINTFORMW 「後生大事に使わせてもらうぞ」
			PRINTFORML
			PRINTFORMW %CALLNAME:TARGET%の好感度が大きく上がった。
			CFLAG:TARGET:好感度 += 500
			CALL SET_CEVENT, "形見のティー罩杯"
		ELSE
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/小口/对话框！"
				PRINTFORMW 「おお…これはまたかなり上等な酒だな。飲まなくても分かるぞ」
				PRINTFORMW 「…%CNAME("一人称")%一人で開けるのももったいない。これは%TEXTR(@"%CNAME("二人称")%が酒を飲める年齢变成了ら二人開けよう/%CNAME("一人称")%の恩師への手土産とさせてもらおう")%」
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/笑颜４/蹙眉/ヮ"
				PRINTFORMW 「また値の張りそうな逸品を…高かっただろうに」
				CALL EMOTION_PLUS, "重置/笑颜４/对话框開心"
				PRINTFORMW 「有がとう、%CNAME("二人称")%。ずっと大事にしよう」
			ELSE
				CALL EMOTION_PLUS, "重置/笑颜４/对话框開心"
				PRINTFORMW 「全く、%CNAME("二人称")%はすっかり%CNAME("一人称")%のツボを押さえているようだな」
				IF TALENT:TARGET:相思相愛
					CALL EMOTION_PLUS, "重置/半目/ワ/对话框爱心"
					PRINTFORMW 「まあ%CNAME("二人称")%は%CNAME("一人称")%の夫なのだから当然だな♪」
				ELSE
					CALL EMOTION_PLUS, "重置/斜眼２/斜眉/微笑６"
					PRINTFORMW 「こんなに色々貰ったら…勘違いしてしまうぞ？」
				ENDIF
			ENDIF
		ENDIF
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/半目/斜眉"
			PRINTFORMW 「ほう、尾巴を撫でたいと…良いだろう、ほれ」
			PRINTFORMW しかし%CALLNAME:MASTER%が触ろうとするたび、%CALLNAME:TARGET%の尾巴はひらりひらりと手をすり抜けていく…。
			CALL EMOTION_PLUS, "重置/笑颜４/斜眉"
			PRINTFORMW 「ククッ、撫でられるものなら撫でてみろ♪」
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			CALL EMOTION_PLUS, "重置/笑颜４/斜眉"
			PRINTFORMW 「何だ？まだ撫でたいと…しょうがないな」
			PRINTFORMW 「………ククッ、圆圈でネコをじゃらしているようだな」
		;この時間で初実行
		;ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			;PRINTFORMW
		ELSE
			CALL EMOTION_PLUS, "重置/斜眉/微笑６"
			PRINTFORMW 「む、また尾巴を撫でたいのか…フッ、やってみろ」
			IF RAND:2
				PRINTFORMW ………しばらく%CALLNAME:TARGET%の尾巴と格闘したが、指先が掠るのが精一杯だった…。
				CALL EMOTION_PLUS, "重置/半目"
				PRINTFORMW 「まだまだ甜な…動きのクセを見極めろよ？」
			ELSE
				PRINTFORMW 擅長く動きを見切って、%CALLNAME:TARGET%の尾巴を捕まえた！
				CALL EMOTION_PLUS, "重置/左笑颜４/半目/ヮ/紅潮/对话框開心"
				PRINTFORMW 「あぁんっ♪つ、捕まってしまったか…んっ、ふぁっ…」
				PRINTFORMW 先端を撫でるたび、%CALLNAME:TARGET%のかすかな喘ぎ声に呼応して尾巴が跳ねる…。
			ENDIF
		ENDIF
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K30
	WAIT
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请"
		CALL EMOTION_PLUS, "重置/半目/困扰眉/小口/赤面/对话框爱心"
		IF RAND:2
			PRINTFORMW 「な、なぁ%CNAME("二人称")%よ…何時まで%CNAME("一人称")%を挑逗つもりなのだ？」
			PRINTFORMW 「分かっているのだろう？%CNAME("一人称")%が躁动难忍して我慢出来なくなりつつある事を…」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为物欲しそうにしながらも不満げな顔で%CALLNAME:MASTER%にしなだれかかってきた…。
		ELSE
			PRINTFORMW 「まどろっこしいのはもうやめにした…%CNAME("一人称")%を抱いてくれ、%CNAME("二人称")%」
			PRINTFORMW 「ほら…もう身体が火照ってしょうがない…淫紋の疼きも止まらないのだ…ッ」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为直髪な物言いと共に%CALLNAME:MASTER%の手を取り、胸や下腹部に押し当てさせてきた…。
		ENDIF
	CASE "展示内褲"
		IF RAND:2
			CALL EMOTION_PLUS, "重置/左闭眼２/飘忽/△/紅潮２/对话框・・・"
			PRINTFORMW 「うーむ…%CNAME("二人称")%よ、何だか暑いな…(ﾁﾗｯ)…そうでもないか？…(ﾁﾗｯﾁﾗｯ)」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为啪嗒啪嗒とわざとらしく裙を捲っている…。
		ELSE
			CALL EMOTION_PLUS, "重置/左笑颜４/ヮ/紅潮２/对话框爱心"
			PRINTFORMW 「あぁいや、皆まで言うな%CNAME("二人称")%よ…これが見たくて待っていたのだろう？」
			CALL EMOTION_PLUS, "重置/〇〇/△/紅潮２/对话框汗３"
			PRINTFORMW 「……え…何？違うだと？こっ、これでは%CNAME("一人称")%はタダの痴女ではないか…！」
			PRINTFORMW 早とちりし、自ら裙の中を見せつけるという痴態给展示出来%CALLNAME:TARGET%正在认真地读着标题为耳まで真っ赤になっている…。
		ENDIF
	CASE "推倒"
		IF RAND:2
			PRINTFORMW いきなりぐるりと視界が回転したかと思うと、%CALLNAME:MASTER%は軽い衝撃と共に床の上に仰向けに倒れていた。
			CALL EMOTION_PLUS, "重置/半目/困扰眉/呀哒２/爱心眼/赤面/对话框爱心"
			PRINTFORMW 「ほ…本当にすまない…いきなり手荒な真似をして…でも、もう…もう我慢の限界で…ッ！」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为涙声で謝り的同时、起き上がろうとする%CALLNAME:MASTER%を押さえつけ、震える手で服を剥ぎ取ろうとしてきた…。
		ELSE
			CALL EMOTION_PLUS, "重置/困扰眉/哈欠小/爱心眼/赤面/对话框爱心"
			PRINTFORMW 「%CNAME("二人称", "どもり")%よ…淫らな%CNAME("一人称")%に慈悲をくれまいか…？」
			PRINTFORMW 「もう、もう%CNAME("二人称")%に抱かれたくて身体の疼きが止まらんのだ…！」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为切羽詰まった表情で%CALLNAME:MASTER%に覆いかぶさって甘えるように身体を擦り付けてくる…。
		ENDIF
	CASE "清洁口交"
		IF RAND:2
			CALL EMOTION_PLUS, "重置/半目/小口/紅潮２"
			PRINTFORMW 「…おい%CNAME("二人称")%。%TEXTR("身だしなみは酱と整えておけ/淫らな气味がぷんぷんするぞ")%」
			CALL EMOTION_PLUS, "重置/左笑颜４/ワ/紅潮２/对话框爱心"
			PRINTFORMW 「これでは淫行好きの悪魔に息子を食われてしまうぞ？…%CNAME("一人称")%みたいな悪魔にな♪クククッ♪」
			PRINTFORMW そう言うと%CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%の阴茎を露出させ、隅々までしゃぶり清めた…。
		ELSE
			CALL EMOTION_PLUS, "重置/半目/蹙眉/小口/紅潮２/对话框乱"
			PRINTFORMW 「全く、%CNAME("二人称")%め…こんなに精液塗れのままにしおって…」
			CALL EMOTION_PLUS, "重置/闭眼２/ڡ/紅潮２/对话框爱心"
			PRINTFORMW 「残滓だと是え、こびりついたコレも立派な魂なのだからな？勿体ないではないか…♪」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为阴茎に付いた精液を口と舌で大事そうに舐めとり、コクンコクンと美味しそうに飲み込んでいく…。
		ENDIF
	CASE "口淫"
		IF RAND:2
			CALL EMOTION_PLUS, "重置/笑顔２/紅潮２/对话框爱心"
			PRINTFORMW 「おいおいどうした%CNAME("二人称")%よ、こんなに%TEXTR("立派に勃起て/雄臭い气味をさせて")%…」
			PRINTFORMW 「圆圈で%CNAME("一人称")%を誘っているようだぞ…？クククッ♪」
			PRINTFORMW そう言うと%CALLNAME:TARGET%正在认真地读着标题为挑発するような上目遣いで%CALLNAME:MASTER%の阴茎に慢慢地舌を這わせ、咥え始めた…。
		ELSE
			CALL EMOTION_PLUS, "重置/半目/困扰眉/小口/紅潮２"
			PRINTFORMW （くうぅっ…本格的に我慢出来なくなる前に発散せねば…ッ）
			CALL EMOTION_PLUS, "重置/困扰眉/ڡ２/紅潮２/对话框爱心"
			PRINTFORMW 「あー、%CNAME("二人称")%よ、すまないが逸物を借りるぞ…じゅぷっ、んっ、んっ…」
			PRINTFORMW 言うが早いが%CALLNAME:TARGET%正在认真地读着标题为露出した%CALLNAME:MASTER%の阴茎を咥えこみ、熱心にしゃぶりだした…。
		ENDIF
	CASE "亲脸頬"
		IF RAND:2
			CALL EMOTION_PLUS, "重置/左闭眼２/小口２/紅潮２/对话框爱心"
			PRINTFORMW 「ちゅ…ちゅっ………全く、%CNAME("二人称")%は隙だらけで無防備だな」
			PRINTFORMW 「%CNAME("一人称")%が人食いのバケモノだったら今頃食われてしまっているぞ？」
			PRINTFORMW 坏心眼そうに笑う%CALLNAME:TARGET%正在认真地读着标题为続けて%CALLNAME:MASTER%の首筋にも接吻を落としてきた…。
		ELSE
			CALL EMOTION_PLUS, "重置/笑颜４/紅潮２/对话框爱心"
			PRINTFORMW 「ククッ、鳩が豆鉄砲を食ったようような顔をしよって…%CNAME("二人称")%は可愛いなぁ♪」
			PRINTFORMW 「この隙にもう一発……ちゅっ…さらにもう一発…♪」
			PRINTFORMW 興が乗ったのか、%CALLNAME:TARGET%正在认真地读着标题为クスクスと笑いながら啄むような接吻を何度も繰り返してきた…。
		ENDIF
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == "勸酒"
			IF RAND:2
				PRINTFORMW %CALLNAME:MASTER%が%CALLNAME:TARGET%に口付けると、%CALLNAME:TARGET%の舌と共に人肌に温まった酒が慢慢地口内に流しこまれた…。
				CALL EMOTION_PLUS, "重置/左笑颜４/半目/斜眉/ڡ/紅潮２/对话框爱心"
				PRINTFORMW 「クククッ、美味いか？未成年の飲酒は禁止だと聞くが…まぁ良いだろう」
			ELSE
				CALL EMOTION_PLUS, "重置/闭眼２/斜眉/小口/紅潮２/对话框爱心"
				PRINTFORMW 「んっ…んくっ、コクン…コクッ……♪」
				PRINTFORMW 酒を口に含んだ%CALLNAME:TARGET%と接吻をし的同时、酒を嘴对嘴地飲ませ合った…。
			ENDIF
		ELSE
			IF RAND:2
				CALL EMOTION_PLUS, "重置/半目/小口/紅潮２"
				PRINTFORMW 「ちゅ…ちゅっ………全く、%CNAME("二人称")%は隙だらけで無防備だな」
				CALL EMOTION_PLUS, "重置/左笑颜４/半目/斜眉/紅潮２/对话框爱心"
				PRINTFORMW 「%CNAME("一人称")%が人食いのバケモノだったら今頃食われてしまっているぞ？」
				PRINTFORMW 坏心眼そうに笑う%CALLNAME:TARGET%正在认真地读着标题为続けて%CALLNAME:MASTER%の首筋にも接吻を落としてきた…。
			ELSE
				CALL EMOTION_PLUS, "重置/半目/紅潮２"
				PRINTFORMW 「ククッ、鳩が豆鉄砲を食ったようような顔をしよって…%CNAME("二人称")%は可愛いなぁ♪」
				CALL EMOTION_PLUS, "重置/闭眼２/小口/紅潮２/对话框爱心"
				PRINTFORMW 「この隙にもう一発……ちゅっ…さらにもう一発…♪」
				PRINTFORMW 興が乗ったのか、%CALLNAME:TARGET%正在认真地读着标题为クスクスと笑いながら啄むような接吻を何度も繰り返してきた…。
			ENDIF
		ENDIF
	CASE "膝枕"
		IF RAND:2
			CALL EMOTION_PLUS, "重置/困扰眉/△/紅潮"
			PRINTFORMW 「んんっ、こら、あまり動くな…寝にくいし%CNAME("一人称")%の角が刺さってしまうではないか」
			PRINTFORMW 「余所で寝ろだと…？馬鹿を言うな%CNAME("二人称")%、今一番寝心地が良い枕を使わない理由があるか」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为駄々をこねる兒童のように%CALLNAME:MASTER%の腰にしがみついている…。
		ELSE
			CALL EMOTION_PLUS, "重置/闭眼２/斜眉/ヮ/紅潮/对话框兴奋"
			PRINTFORMW 「う～ん、これだ…この太ももの肌触り、弾力、暖かさ…どれを取っても良い枕だな」
			PRINTFORMW 「それに%CNAME("二人称")%の气味に包まれて…リラックス効果もバッチリだな」
			PRINTFORMW %CALLNAME:MASTER%の膝に寝転ぶ%CALLNAME:TARGET%正在认真地读着标题为しばらく動きそうにない…。
		ENDIF
	CASE "抱住", "把胸部压了上去", "摩擦股間"
		IF RAND:2
			CALL EMOTION_PLUS, "重置/闭眼２/斜眉/ヮ/紅潮/对话框爱心"
			PRINTFORMW 「………%CNAME("二人称")%は暖かいな………体温だけの話ではないぞ？」
			PRINTFORMW 「こうやって%CNAME("一人称")%に抱きつかれても動じず、受け止めてくれるのだからな…♪」
		ELSE
			CALL EMOTION_PLUS, "重置/半目/斜眉/ڡ/紅潮/对话框爱心"
			PRINTFORMW 「はぁ……%CNAME("二人称")%の、若い男の气味…ほど良い肉付き…たまらないな…」
			PRINTFORMW 「他の悪い悪魔やバケモノ共に渡さないよう、他の部員と一緒に守ってやるからな…」
		ENDIF
	CASE "抚摸"
		IF RAND:2
			CALL EMOTION_PLUS, "重置/闭眼２/ワ/紅潮/布"
		ELSE
			CALL EMOTION_PLUS, "重置/左笑颜４/半目/斜眉/微笑４/紅潮/布"
		ENDIF
		PRINTFORMW 「よーしよし…%TEXTR(@"%CNAME("一人称")%は何時だって%CNAME("二人称")%の味方だからな/辛い事や悩み事は%CNAME("一人称")%や皆に酱と相談するんだぞ？/たまにはこうやって甘やかしてやらんとな…")%」
		PRINTFORMW %CALLNAME:MASTER%を温柔的撫でながら語り掛ける%CALLNAME:TARGET%の声色は、彼女が本当に悪魔かどうか疑わしくなってくる…。
		SIF RAND:2
			PRINTFORMW 「…こうして甘言を囁くのが悪魔だぞ…まぁ、%CNAME("一人称")%は心の底から言っているのだがな、ククッ♪」
	CASE "手淫"
		IF RAND:2
			CALL EMOTION_PLUS, "重置/半目/ڡ/紅潮２"
			PRINTFORMW 「%CNAME("二人称")%よ、やはりそなたは…無防備な身体にチンポがかくれんぼしているな、クククッ♪」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为身を寄せて挑発するように囁きながら%CALLNAME:MASTER%の阴茎をやわやわと揉んでいる…。
		ELSE
			CALL EMOTION_PLUS, "重置/小口/紅潮２"
			PRINTFORMW 「…ふむふむ、まだ柔らかいな…だが触り心地は中々だぞ…」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为真剣な顔で%CALLNAME:MASTER%の阴茎を弄りながら品評している…。
		ENDIF
	CASE "膝枕"
		IF RAND:3 == 0 && COND("昼") && ABL:信頼 >= 5
			CALL EMOTION_PLUS, "重置/小口/紅潮/托下巴"
			PRINTFORMW 「…%CNAME("二人称")%よ、『こちらに来い』」
			PRINTFORMW 脳内に%CALLNAME:TARGET%の声が響くと同時に、%CALLNAME:MASTER%の身体は勝手に動いて%CALLNAME:TARGET%の膝の上に寝転んでいた…。
			CALL EMOTION_PLUS, "重置/左闭眼２/半目/紅潮/托下巴"
			PRINTFORMW 「全く、頑張り過ぎていないか？強制的にでも少し『寝かせてやる』」
			PRINTFORMW 見下ろす%CALLNAME:TARGET%の瞳が一瞬煌めいたかと思うと、%CALLNAME:MASTER%は抗いがたい困倦に襲われ、就这様１０分ほど眠ってしまった…。
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/ヮ/对话框兴奋"
			PRINTFORMW 「そうだ、折角だから子守唄でも歌ってやろう。%CNAME("一人称")%の母直伝だぞ」
			CALL EMOTION_PLUS, "重置/闭眼２/斜眉/ワ/紅潮/对话框・・・"
			PRINTFORMW 「―――――――――――――…♪――――――――………♪」
			PRINTFORMW …これが悪魔の子守唄なのか、%CALLNAME:TARGET%の歌声は低く抑揚が無い独特の響きを持っていた…。
		ELSE
			CALL EMOTION_PLUS, "重置/紅潮/对话框兴奋/布"
			PRINTFORMW 「ほら%CNAME("二人称")%よ、ここだここ」
			PRINTFORMW ポンポンと膝を叩きながら手招きする%CALLNAME:TARGET%に誘われるがまま、膝の上に寝転んだ。
			CALL EMOTION_PLUS, "重置/笑颜４/斜眉/微笑６/紅潮/布"
			PRINTFORMW 「よしよし、良い子だ…。%TEXTR(@"このまま大人しく膝枕されているが良い/ふふ、辛い事も苦しい事も忘れて就这様寝てしまえ/いつも頑張ってる%CNAME("二人称")%はとても良い子だぞ")%…♪」
			PRINTFORMW 膝に寝転びながら見上げた%CALLNAME:TARGET%の表情は、悪魔とは思えないほどの慈愛に満ちていた…。
		ENDIF
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		IF RAND:3 == 0
			CALL EMOTION_PLUS, "重置/紅潮/茶"
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/半目/微笑６/紅潮/茶"
		ELSE
			CALL EMOTION_PLUS, "重置/左笑颜４/ヮ/紅潮/茶"
		ENDIF
		IF RAND:3 == 0
			PRINTFORMW 「%SAVESTR:茶%を淹れたぞ。砂糖やミルクは要るか？」
		ELSEIF RAND:2
			PRINTFORMW 「…%SAVESTR:茶%で困倦を覚ました方が良いぞ、%CNAME("二人称")%」
		ELSE
			PRINTFORMW 「ほら、%SAVESTR:茶%だ。熱いからゆっくり飲むのだぞ？」
		ENDIF
	CASE "一起学习"
		IF DAYEV("試験前日")
			IF CALCF("試験の予想点数") >= 80
				CALL EMOTION_PLUS, "重置/半目/小口/托下巴"
				PRINTFORMW 「ふむ……ほう……%TEXTR("うむ/これなら")%もう%CNAME("一人称")%が教えるべきことはほぼ無いな」
				PRINTFORMW 「很强て言うなら…%TEXTR("終わるまで慢心せず気を引き締めていく/早めに寝て明日のコンディションを完璧にしておく/躁动难忍して集中出来なくならないよう、今晩のうちにヌイておく")%、ぐらいか？」
			ELSEIF CALCF("試験の予想点数") >= 60
				CALL EMOTION_PLUS, "重置/半目/小口/托下巴"
				PRINTFORMW 「ふむ…%TEXTR("出題範囲は粗方終わったか/一応赤点は逃れられそうだな")%」
				PRINTFORMW 「どうする？%TEXTR("少しでも点を伸ばすためにもう少し勉強するか？/明日に備えてもう还是算了か？")%」
			ELSE
				CALL EMOTION_PLUS, "重置/半目/蹙眉/へ字３/对话框乱/托下巴"
				PRINTFORMW 「うむむ…%TEXTR("今の時点でここまで出来ないか/本番は明日だというのにこれでは")%…」
				IF COND("同居中")
					PRINTFORMW 「%TEXTR(@"こうなったら%CNAME("一人称")%も徹夜に付き合ってやる、まだ諦めるなよ/しょうがない、今夜は%CNAME("一人称")%が付きっ切りで詰め込めるだけ詰め込んでやる")%」
				ELSE
					PRINTFORMW 「もう%TEXTR(@"山を張るしかないのではないか？%CNAME("一人称")%も一緒に考えてやろう/自信がある所以外は捨ててしまって構わないのではないか？")%」
				ENDIF
			ENDIF
		ELSE
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "重置/半目/斜眉/へ字３/对话框・・・/本"
				PRINTFORMW 「%TEXTR("そうだ/つまり/違うな")%………%TEXTR("この値を/この式は/これが真であるならば")%………%TEXTR("そうなるな/こうなるだろう/そうして")%………」
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "重置/小口/对话框？/本"
				PRINTFORMW 「一段落したか？ならば少し休憩だ」
				PRINTFORMW 「菓子と茶を用意してやるからな、座って待っているが良い」
			ELSE
				CALL EMOTION_PLUS, "重置/ヮ/本"
				PRINTFORMW 「ふむ…よしよし、よく出来ているな」
				PRINTFORMW 「この調子なら次の試験で良い点が取れそうだぞ」
			ENDIF
		ENDIF
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW 「ん？%CNAME("二人称")%も…あ、ああいや、何でもない」
		ELSE
			PRINTFORMW 「すまない、少し花を摘みに行っていた」
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW 「…悪いが少し席を取下ぞ」
	ENDIF
CASE "廁所詮索"
	PRINTFORMW 「む…確かに手洗いに行って是たが…あまりそういう事は聞くものではないぞ」
	PRINTFORMW %CALLNAME:TARGET%から一瞬オーラめいた威圧感が溢れ、%CALLNAME:MASTER%の背中に冷や汗が伝った…。
;これは你と角色が両方男性の際に限り起きます
CASE "連れション"
	PRINTFORMW
;これは你と角色が両方男性でない際に限り起きます
CASE "廁所で井戸端会議"
	PRINTFORMW
;你に廁所を覗かれた！
CASE "廁所ハプニング"
	CALL EMOTION_PLUS, "重置/〇〇/△２/紅潮２/对话框惊讶"
	PRINTFORMW 「なッ…なッ！！！？！？！！？」
	PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为真っ赤な顔で口をパクパクさせて驚いている…。
;廁所ハプニングから派生するＨイベント
CASE "廁所Ｈ"
	SELECTCASE STR:日常イベント名
	CASE "廁所イベント：見せつけくぱぁ"
		CALL EMOTION_PLUS, "重置/半目/ヮ/赤面"
		IF RAND:2
			PRINTFORML 「んっ…参ったな。穴が緩んでせっかくの子種が零れてしまった」
			PRINTFORMW 「こんなだらしない雌穴には後で注ぎ直桑とな？ククッ…♪」
		ELSE
			PRINTFORML 「凄いな…こんなにたっぷり注がれていたとはな…」
			PRINTFORMW 「どおりで魔力への変換が追い付かんわけだ」
		ENDIF
	CASE "廁所イベント：相互自慰"
		IF RAND:2
			CALL EMOTION_PLUS, "重置/半目/ヮ/赤面"
			PRINTFORMW 「ククッ…排尿する%CNAME("一人称")%をオカズに自慰とはとんだ変態だな、%CNAME("二人称")%は♪」
			PRINTFORMW 「まあ良い、%CNAME("一人称")%も自慰してやるからおあいこといったところだな…♪」
		ELSE
			CALL EMOTION_PLUS, "重置/半目/斜眉/小口/赤面"
			PRINTFORMW 「これは凄いな…そんなに激烈地シゴいて、%CNAME("一人称")%が小便している姿が良かったのか？」
			PRINTFORMW 「そうか…ならば責任を持って%CNAME("一人称")%が受け皿…否、%CNAME("二人称")%の精液便所となってやる。存分に吐き出していけ♪」
		ENDIF
	CASE "廁所イベント：口交"
		IF RAND:2
			CALL EMOTION_PLUS, "重置/左笑颜４/半目/斜眉/小口/赤面/对话框爱心"
			PRINTFORMW （排尿しながら%CNAME("二人称")%の%TEXTR("阴茎/イチモツ/モノ")%をしゃぶりスッキリしてもらう…これはまたクセになりそうだな♪）
		ELSE
			CALL EMOTION_PLUS, "重置/半目/困扰眉/微笑６/赤面"
			PRINTFORML 「全く、%CNAME("二人称")%も小便し来了のではないのか？」
			PRINTFORMW 「仕方ないな、特別に%CNAME("一人称")%の口を精液便器代わりに使ってスッキリしていけ♪」
		ENDIF
	CASE "廁所イベント：Ｖ性交"
		IF RAND:2
			CALL EMOTION_PLUS, "重置/半目/蹙眉/赤面/对话框爱心"
			PRINTFORML 「そ、そんなにガチガチの%TEXTR("阴茎/イチモツ/モノ")%を突きつけられてもな…」
			PRINTFORMW 「%CNAME("一人称")%が出来るのは、小水湿的の性処理マンコに%CNAME("二人称")%の%TEXTR(@"精液/精液")%を排泄してもらうことだけだぞ…♪」
		ELSE
			CALL EMOTION_PLUS, "重置/半目/斜眉/赤面/对话框爱心"
			PRINTFORML 「ククッ、こんなところで干劲になられるとは相当な好きモノだな？%CNAME("二人称")%は」
			PRINTFORMW 「焦らなくても良いぞ、%CNAME("一人称")%の子宮是つでも%CNAME("二人称")%の%TEXTR(@"精液/精液")%コキ捨てて構わないのだからな♪」
		ENDIF
	CASE "廁所イベント：Ａ性交"
		PRINTFORMW
	ENDSELECT
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K30
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW %CALLNAME:MASTER%が食い下がろうとした瞬間、ビッ、という異音と共に頬に僅かな疼痛が走る。
			PRINTFORMW …泣きそうな顔をする%CALLNAME:TARGET%の指から茨状のものが伸び、%CALLNAME:MASTER%の頬をかすめていた…。
			CALL EMOTION_PLUS, "重置/陰/左涙目〇〇/憤怒眉/一文字"
			PRINTFORMW 「頼む…%CNAME("一人称")%にこれ以上の事はさせないでくれ、%CNAME("二人称")%」
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/闭眼２/憤怒眉/一文字/对话框乱"
			PRINTFORMW 「む、ならば床に…駄目？じゃあ%CNAME("一人称")%もお断りだ」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为少し意地を張るように拒否してきた。
		ELSE
			CALL EMOTION_PLUS, "重置/半目/蹙眉/小口/对话框乱"
			PRINTFORMW 「%CNAME("二人称", "どもり")%よ…あまり無茶なことを言うのはやめてくれないか」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为困惑しながら拒否してきた。
		ENDIF
	ELSE
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			CALL EMOTION_PLUS, "重置/半目/微笑６/赤面/对话框爱心"
			PRINTFORMW 「全く、そんなに穴が開くほど見つめて楽しいか？」
			PRINTFORMW 「もう『穴』は開いているのだがな♪クハハッ♪」
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/半目/赤面/对话框爱心"
			PRINTFORMW 「おーっと、今は見るだけだぞ？」
			PRINTFORMW 「続きは床で…な？ククッ…♪」
		ELSE
			CALL EMOTION_PLUS, "重置/半目/ヮ/赤面/对话框爱心"
			PRINTFORMW 「何だ、味見でもしたくなったのか？」
			PRINTFORMW 「良いだろう………ほら、どうだ？」
		ENDIF
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K30
		WAIT
	ELSEIF COND("合意：检查内褲") == 0
		CALL EMOTION_PLUS, "重置/困扰眉/小口/对话框汗"
		PRINTFORMW 「%CNAME("二人称", "どもり")%よ…あまり無茶なことを言うのはやめてくれないか」
		PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为困惑しながら拒否してきた。
	ELSE
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			CALL EMOTION_PLUS, "重置/半目/困扰眉/赤面"
			PRINTFORMW 「こら、あんまりしつこく气味を嗅ぐな」
			PRINTFORMW 「湿的て气味が強くなってしまうからなぁ…ククッ♪」
		ELSEIF RAND:2
			CALL EMOTION_PLUS, "重置/半目/斜眉/笑顔２/赤面"
			PRINTFORMW 「んっ、ハァ……%CNAME("二人称")%の吐息、熱くて激しいぞ…」
			PRINTFORMW 「敏感な場所に当たって…感じてしまうな…」
		ELSE
			CALL EMOTION_PLUS, "重置/半目/小口/赤面"
			PRINTFORMW 「これぐらいしか%PANTIES(TARGET, "内衣")%が無くてな…似合ってるか？」
			PRINTFORMW 「…あぁ、やっぱり答えなくていい。气味を嗅がれるより恥ずかしくなってきた…」
		ENDIF
	ENDIF
CASE "撫摸股間"
	IF RAND:3 == 0
		CALL EMOTION_PLUS, "重置/闭眼２/ヮ/赤面/对话框爱心"
	ELSEIF RAND:2
		CALL EMOTION_PLUS, "重置/左笑颜４/半目/小口/赤面/对话框爱心"
	ELSE
		CALL EMOTION_PLUS, "重置/半目/ڡ/赤面/对话框爱心"
	ENDIF
	IF RAND:3 == 0
		PRINTFORMW 「%TEXTR(@"何だ？もっと中まで愛してくれないのか？クククッ…/ホラもっと、撫でるなら表面だけじゃなくてだな…♪")%」
		PRINTFORMW 淫蕩な笑みを浮かべた%CALLNAME:TARGET%正在认真地读着标题为、%CALLNAME:MASTER%の指の動きに合わせて腰を揺すり膣口への浅い挿入を誘っている…。
	ELSEIF RAND:2
		PRINTFORMW 「%TEXTR(@"んあっ♪　全く、不意打ちは卑怯だぞ…♪/そ、そうだっ、きゃぅっ♪　擅長だぞ、%CNAME("二人称")%♪")%」
		PRINTFORMW 緩やかに揉み解され甘く勃起的阴蒂を掌で強めに擦ると、%CALLNAME:TARGET%正在认真地读着标题为甲高い喘ぎ声と共に腰を跳ねさせる…。
	ELSE
		PRINTFORMW 「%TEXTR(@"ふむ、%CNAME("一人称")%だけ気持ちよくなるのも不公平ではないか？/ククッ、そういう悪戯をするなら…こうだ♪")%」
		PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为負けじと%CALLNAME:MASTER%の股間に手を伸ばしていじり始めた…。
	ENDIF
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K30
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		CALL EMOTION_PLUS, "重置/困扰眉/微笑６/紅潮２"
		PRINTFORMW 「そんなにじっくり見ても何も変わらないと思うが」
		PRINTFORMW 「…まぁ、好きにするが良いだろう」
	ELSE
		IF RAND:2
			CALL EMOTION_PLUS, "重置/左闭眼２/半目/困扰眉/小口/紅潮２"
			PRINTFORMW 「んっ…！ほ、頬擦りされるとくすぐったいぞ」
			PRINTFORMW 「全く、飽きもせずベタベタと…まぁ、嫌ではないが」
		ELSE
			CALL EMOTION_PLUS, "重置/笑颜４/紅潮２"
			PRINTFORMW 「…ククッ、そこまで夢中になられると中々どうして嬉しいではないか…なぁ？」
			PRINTFORMW 「どれ、もう少ーしだけ足を開いてやるか…」
		ENDIF
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/小口/紅潮"
			PRINTFORMW 「裙を捲って見せろと…？良かろう」
			PRINTFORMW 「ほら、どうだ？見たかったものは見られたか？ククッ♪」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			CALL EMOTION_PLUS, "重置/半目/紅潮/对话框兴奋"
			PRINTFORMW 「さぁて、今日の%CNAME("一人称")%の内衣はこれだ」
			PRINTFORMW 「どうだ？想像街道だったか？」
		ELSE
			IF RAND:2
				CALL EMOTION_PLUS, "重置/半目/紅潮/"
				PRINTFORMW 「クク、そろそろ%CNAME("一人称")%の内衣が気になる頃ではないかと思ってな」
				PRINTFORMW 「ほれ、御開帳だ…。予想は当たったか？」
			ELSE
				CALL EMOTION_PLUS, "重置/左陰/半目/紅潮"
				PRINTFORMW 「実家のクズ共に見せるのは自己的血だが…%CNAME("二人称")%なら存分に見て構わんぞ」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为裙をたくし上げつつ物騒な事を口走っている…。
			ENDIF
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW 「ん…足がスース―するな…？」
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K30
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/〇〇/△/紅潮/对话框惊讶"
			PRINTFORMW 「どうした、下摆に何か付いて…ちょっ、なんだ？！」
			PRINTFORMW 不意打ちで裙をめくられた%CALLNAME:TARGET%正在认真地读着标题为、素っ頓狂な声を上げた。
			CALL EMOTION_PLUS, "重置/半目/蹙眉/へ字３/紅潮/对话框乱"
			PRINTFORMW 「ううむ、マセたエロガキのような事を…」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			CALL EMOTION_PLUS, "重置/半目/紅潮/"
			PRINTFORMW 「改めて確認…答え合わせといった所か」
			PRINTFORMW 「どうだ？思った街道だったか？」
		ELSE
			IF COND("打招呼前")
				CALL EMOTION_PLUS, "重置/半目/蹙眉/小口"
				PRINTFORMW 「…打招呼も没有にこれか、%CNAME("二人称")%よ」
				PRINTFORMW 「それともこれが打招呼だとでもいうのか…？」
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					CALL EMOTION_PLUS, "重置/微笑６/赤面"
					PRINTFORMW 「どうした%CNAME("二人称")%よ…そんな呆けた顔をして」
					CALL EMOTION_PLUS, "重置/半目/赤面/对话框爱心"
					PRINTFORMW 「今日はそういう趣向だというだけだぞ？クククッ♪」
				ELSE
					IF RAND:2
						CALL EMOTION_PLUS, "重置/半目/蹙眉/微笑６/紅潮２/对话框汗"
						PRINTFORMW 「豐腴も隙も無いな、全く…予想は当たったか？」
						PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为呆れているが嫌がって是ないようだ…。
					ELSE
						CALL EMOTION_PLUS, "重置/左陰/半目/紅潮２"
						PRINTFORMW 「あのカス共がこうしていたら今頃消し炭にしているが…まあ%CNAME("二人称")%だから許そう」
						PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为裙を捲る%CALLNAME:MASTER%を見て物騒な事を口走っている…。
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		CALL EMOTION_PLUS, "重置/困扰眉/小口/紅潮２"
		IF COND("胖次ドーピング")
			PRINTFORMW 「まさか持ち主本人の目の前でそういうことをするとはなぁ…」
			PRINTFORMW 「…悪魔に堕落し過ぎているのでは、と思わせるとは相当だぞ、%CNAME("二人称")%」
		ELSE
			PRINTFORMW 「…悪魔に堕落し過ぎているのでは、と思わせるとは相当だぞ、%CNAME("二人称")%」
		ENDIF
	ELSE
		IF COND("胖次ドーピング")
			CALL EMOTION_PLUS, "重置/困扰眉/小口/紅潮２"
			PRINTFORMW 「…またわざわざ持ち主の目の前で胖次をむさぼるとは…」
			IF BASE:欲求不満 >= 75
				PRINTFORMW 「%TEXTR(@"ええい/くっ")%、%TEXTR(@"%CNAME("一人称")%の本人の气味では満足出来ないとでもいうのか…/布切れよりもこっちのが上ではないのか…？")%」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为自分の胖次に嫉妬しているようだ…。
			ELSE
				PRINTFORMW 「見せつける意味が本当に分からんが…まぁ%CNAME("二人称")%が満足ならよかろう」
			ENDIF
		ELSE
			CALL EMOTION_PLUS, "重置/困扰眉/小口/紅潮２"
			PRINTFORMW 「わざわざ%CNAME("一人称")%の目の前で他人の胖次をむさぼるか」
			IF BASE:欲求不満 >= 75
				PRINTFORMW 「%TEXTR(@"ええい/くっ")%、%TEXTR(@"%CNAME("一人称")%への当てつけなのか…/%CNAME("一人称")%の胖次では満足出来ないとでもいうのか…？")%」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为他人の胖次に嫉妬しているようだ…。
			ELSE
				PRINTFORMW 「見せつける意味が本当に分からんが…まぁ%CNAME("二人称")%が満足ならよかろう」
			ENDIF
		ENDIF
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW 「全く、そんなものを撮影して何に使うんだか…」
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW 「全く、そんなものを撮影して何に使うんだか…」
		PRINTFORMW 「写真をオカズに無駄撃ちするつもりなら誰かに注いだ方が有意義だと思わんか？」
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW 「全く、そんなものを撮影して何に使うんだか…」
		PRINTFORMW 「写真をオカズに無駄撃ちするつもりなら誰かに注いだ方が有意義だと思わんか？」
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW 「全く、そんなものを撮影して何に使うんだか…」
		PRINTFORMW 「写真をオカズに無駄撃ちするより、実際に%CNAME("一人称")%のココを使った方が有意義だと思わんか？」
	ENDSELECT
CASE "性処理を頼んだ際の反応"
	;干劲がある場合
	IF COND("干劲性処理")
		IF RAND:2
			PRINTFORML 「%TEXTR(@"溜めるのも良くないからな、是非%CNAME("一人称")%に恵んでくれ\/？　ああ、今この場ででシて欲しいのか\/ククッ…そうやって耳元で気障に囁かなくてもやってやるというのに…")%」
		ELSE
			PRINTFORML 「性処理か…%TEXTR("ずいぶんと直髪な物言い、嫌いじゃないぞ/全く、二人きりだと本当に欲望を隠さないな？悪魔的には悪くない事だが")%」
		ENDIF
		SELECTCASE STR:PLAY内容
		CASE "口交"
			PRINTFORMW 「ほれ、早く%TEXTR("モノ/チンポ")%を出せ。口で搾り取ってやる」
		CASE "乳交"
			PRINTFORMW 「そうだな、今回は胸で挟んでやろう」
		CASE "Ｖ性交"
			PRINTFORMW 「よしよし、ココに注いでもらおうか…%TEXTR("そこに寝ろ/覚悟しろよ？")%」
		CASE "Ａ性交"
			PRINTFORMW 「尻穴で出させてやる、%TEXTR("そこに寝ろ/覚悟しろよ？")%」
		CASE "尿道性交"

		CASE "乳頭奸"

		ENDSELECT
	;何かしながらで良いならして给よって場合。何をしながらなのかは SAVESTR:夢中 で参照できる。
	ELSEIF COND("进行性処理")
		PRINTFORML 「何だ？今は少し忙しいのだがな…」
		SELECTCASE STR:PLAY内容
		CASE "手淫"
			PRINTFORMW 「しょうがないな、%CNAME("一人称")%の手だけ貸してやる」
		CASE "Ｖ性交", "Ａ性交"
			PRINTFORMW 「…足を開いてやるから、好きに注げば良かろう」
		CASE "尿道性交"
		ENDSELECT
	ENDIF
CASE "拜托処理性欲"
	SELECTCASE NAMES("性処理")
	CASE "口交"
		PRINTFORML 「%TEXTR("ングッ/コクッ、コクッ")%…%TEXTR("はぁ…飲み込むのに苦労するぐらい濃いな/全く、相変わらず濃厚で美味な精だ/相当溜まっていたようだな、喉に引っかかる…")%」
		PRINTFORMW 「こんなのを飲まされたら%TEXTR("続きが欲しくなって/身体が求めて/子宮にも注いで欲しくなって/我慢出来なくなって")%しまうではないか…」
	CASE "乳交"
		PRINTFORML 「%TEXTR("ンッ…！/出たか…")%%TEXTR(@"凄く濃いな…气味も粘度も\/全く、%CNAME("一人称")%の胸が白く染まってしまったではないか\/相当溜まっていたようだな、糸を引いているぞ…")%」
		PRINTFORMW 「こんなにぶちまけられたら%TEXTR("続きが欲しくなって/身体が求めて/子宮にも注いで欲しくなって/我慢出来なくなって")%しまうではないか…」
	CASE "Ｖ性交", "Ａ性交"
		PRINTFORML 「%TEXTR("あっ…くぅ…/ん…出たか…")%%TEXTR(@"腹の奥でべっとりとこびりついているぞ\/とても熱いな…%CNAME("一人称")%の中が焼けてしまいそうだ\/相当溜まっていたようだな、塊になっているぞ…")%」
		PRINTFORMW 「…ところで。一、二発程度では終わらないだろう？%TEXTR(@"床で酱とした続きをしないか？\/このままでは%CNAME("一人称")%の身体が疼いて止まらなくなりそうだ\/いやなに、もっと注いで欲しくなってきてしまってな…\/…%CNAME("一人称")%はそこまで我慢強くないぞ？")%」
	CASE "尿道性交"

	CASE "乳頭奸"

	ENDSELECT
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
	CASE "手淫"
		PRINTFORML 「…出したか。後で舐めとっておくから就这様で良いぞ」
	CASE "Ｖ性交", "Ａ性交"
		PRINTFORML 「んっ…あぁ…熱いな…」
	CASE "尿道性交"

	ENDSELECT
	PRINTFORMW 「…続きは後でたっぷり相手してやる、悪いが少し集中させてくれ」

CASE "性欲解消を申し出た際の反応"
;	IF FIND_COND("現在存在", "助手") && CONFIG("部員間Ｈ") && COND("相性○", ASSI) && ((COND("欲求不満", TARGET) >= 2 && COND("欲求不満", ASSI) >= 2) || RAND:5 == 0)
;		IF RAND:2 == 0
;			PRINTFORML 「%TEXTR("何？/はぁ…/……/")%%CNAME("助手")%に%CNAME("一人称")%の%TEXTR("性欲処理を任せる/躁动难忍を解消させる")%だと？」
;		ELSE
;			PRINTFORML 「%TEXTR("何？/はぁ…/……/")%%CNAME("一人称")%が%CNAME("助手")%%TEXTR(@"に性欲処理してもらっている/に慰められている/と交わっている/とヤっている")%所が見たい、か」
;		ENDIF
;		CALL PRINT_SELECT, "是/否"
;		IF RESULT == 0
;			PRINTFORML 「…%TEXTR("全く、しょうがないな/分かった、分かった/くぅ…気乗りはしないが")%…」
;			PRINTFORMW 「%TEXTR(@"%CNAME("一人称")%も悪魔だ。契約者である%CNAME("二人称")%の頼みなら聞かねばなるまい…/今回…今回、だけだからな？頼むぞ…/…%CNAME("一人称")%の如何なる姿を見せられても…後悔するなよ？")%」
;			PRINTFORML 「さて…待たせたな、%CNAME("助手")%」
;			SELECTCASE STR:PLAY要望
;				CASE "舐陰"
;					PRINTFORML 「それでは…%TEXTR("ここを舐めてもらおうか/舐陰を…頼めるか？/舌で慰めてくれ…")%」
;				CASE "舐陰莖"

;				CASE "口交"
;					PRINTFORML 「%CNAME("助手")%のチンポ%TEXTR("に奉仕/を口交")%させてもらおう」
;					IF SIZE("阴茎", ASSI) >= 2
;						IF SIZE("阴茎", MASTER) < 2 && SIZE("阴茎", ASSI) >= 2
;							PRINTFORML 「%TEXTR(@"これは…%CNAME("主人")%のよりもずっと大きいな…気合を入れねばな/ふふ、%CNAME("主人")%のとは比べ物にならん、立派なチンポ…惚れてしまいそうだぞ")%♪」
;						ELSE
;							PRINTFORML 「%TEXTR(@"…うむ、中々の尺寸だな。期待出来そうだ/…ッ…立派だな…%CNAME("主人")%のと良い勝負だな")%」
;						ENDIF
;					ELSEIF COND("包茎", ASSI) && RAND:2
;						PRINTFORML 「%TEXTR(@"ふふ、%CNAME("一人称")%のチンカス掃除は中々体験出来んぞ？/%CNAME("助手")%さえ良ければ、%CNAME("一人称")%の口で兒童チンポを大人にしてやっても良いぞ")%」
;					ELSE
;						PRINTFORML 「%TEXTR(@"たっぷり奉仕してやるからな…%TEXTR(@"楽にしていろ/%CNAME("主人")%はそこで大人しく見ていろ")%/%TEXTR("遠慮は要らん。/さぁ…")%%CNAME("一人称")%の口マンコ、犯してくれ…")%」
;					ENDIF
;				CASE "Ｖ性交"
;					;避孕套没有の生性交を希望
;					IF COND("女性主導生性交")
;						IF SIZE("阴茎", ASSI) >= 2
;							PRINTFORML
;						ELSEIF COND("包茎", ASSI) && RAND:2
;							PRINTFORML
;						ELSE
;							PRINTFORML
;						ENDIF
;					ELSE
;						IF SIZE("阴茎", ASSI) >= 2
;							PRINTFORML
;						ELSEIF COND("包茎", ASSI) && RAND:2
;							PRINTFORML
;						ELSE
;							PRINTFORML
;						ENDIF
;					ENDIF
;
;				CASE "Ａ性交"
;
;				CASE "尿道性交"
;
;			ENDSELECT
;		ELSE
;			PRINTFORML 「うむ、考え直してくれたか」
;			IF RAND:2
;				PRINTFORMW 「…だがまぁしかし、%CNAME("二人称")%の頼みなら%CNAME("助手")%とヤるのもやぶさかではない…とは思うぞ」
;			ELSE
;				PRINTFORMW 「%CNAME("助手")%の事が嫌いなわけではないが…やはり契約者のモノだからな、うむ」
;			ENDIF
;			TFLAG:性欲解消中止 = 1
;		ENDIF
;	ELSE
		IF RAND:2
			IF RAND:2
				PRINTFORML 「%TEXTR(@"あー、%CNAME("二人称")%に頼みがあるのだが良いか？/闲そうだな、%CNAME("二人称")%よ。少しばかり時間をくれないか？")%」
				PRINTFORML 「%TEXTR(@"や、恥ずかしいことに/というのもな")%、最近%TEXTR("やたらに躁动难忍してな…/欲求不満気味でな…/妙に身体が疼いてな…")%」
				PRINTFORML 「%TEXTR(@"我儘ですまない、でもだいぶ辛くなってきて…頼めるか？/ここまで言えば分かるだろう？%CNAME("二人称")%…/だから%CNAME("二人称")%に相手…してもらいたい")%」
			ELSE
				PRINTFORML 「%TEXTR("何？/ほう、")%%CNAME("二人称")%が%CNAME("一人称")%の%TEXTR("性欲処理をしてやる/躁动难忍を解消させる")%だと？」
				PRINTFORML 「よく%CNAME("一人称")%が%TEXTR("欲求不満だと/躁动难忍していると")%分かったな？%TEXTR(@"酱と%CNAME("一人称")%のことを見ていてくれて嬉しいぞ/どうやって知ったのか気になるが…まあ良い")%」
			ENDIF
		ELSE
			PRINTFORML 「%TEXTR(@"あー、%CNAME("二人称")%に頼みがあるのだが良いか？/闲そうだな、%CNAME("二人称")%よ。少しばかり時間をくれないか？")%」
			SELECTCASE STR:PLAY要望
			CASE "舐陰"
				PRINTFORML 「最近%TEXTR("やたらに躁动难忍してな…/欲求不満気味でな…/妙に身体が疼いてな…")%%TEXTR(@"ここを舐めてもらいたいのだが…/その、舐陰を…頼めるか？/%CNAME("二人称")%の舌で慰めてくれるか？")%」
			CASE "舐陰莖"

			CASE "口交"
				IF SIZE("阴茎", MASTER) >= 2
					PRINTFORML 「というのも…%CNAME("二人称")%の%TEXTR("巨根/立派なチンポ/雄々しいモノ")%%TEXTR("に奉仕する/をしゃぶる")%%TEXTR("事ばかり考えて/愉しさを思い出して/のが恋しくなって")%しまってな」
					PRINTFORML 「すまないが、%TEXTR(@"%CNAME("一人称")%の卑しい口マンコを慰めてくれないか？/この口寂しさを紛らわせるために%CNAME("二人称")%のをしゃぶらせて欲しい")%」
				ELSEIF COND("包茎", MASTER)
					PRINTFORML 「というのも…%CNAME("二人称")%の%TEXTR("包茎/包皮")%チンポ%TEXTR("に奉仕する/をしゃぶる/のカリを掃除")%%TEXTR("事ばかり考えて/愉しさを思い出して/のが恋しくなって")%しまってな」
					PRINTFORML 「%TEXTR(@"%CNAME("二人称")%さえ良ければ%CNAME("一人称")%の口で剥いて綺麗にしてやろうか？/どうやら%CNAME("一人称")%はチンカス掃除にハマってしまったようだ…この疼き、止めさせて欲しい")%」
				ELSE
					PRINTFORML 「というのも…%CNAME("二人称")%の%TEXTR("かったい/立派な/愛おしい")%チンポ%TEXTR("に奉仕する/をしゃぶる")%%TEXTR("事ばかり考えて/愉しさを思い出して/のが恋しくなって")%しまってな」
					PRINTFORML 「%TEXTR(@"ふふ、悪いようにはしないぞ？少し口で奉仕させてくれ/%CNAME("二人称")%も%CNAME("一人称")%の口交、嫌いではないだろう？お互いスッキリしようではないか")%」
				ENDIF
			CASE "Ｖ性交"
				;避孕套没有の生性交を希望
				;IF COND("女性主導生性交")
					PRINTFORML 「%TEXTR(@"うむ、そうだな…/…単刀直入に言おう。/…そろそろ我慢の限界でな…")%%CNAME("一人称")%%TEXTR(@"と性交してくれ/を抱いてくれ")%」
					IF SIZE("阴茎", MASTER) >= 2
						PRINTFORML 「%CNAME("二人称")%の%TEXTR("巨根/立派なチンポ/雄々しいモノ")%で%CNAME("一人称")%の%TEXTR(@"膣内を%CNAME("二人称")%の形にして/阴部を押し広げて/膣穴を拡張して/胎まで貫いて")%%TEXTR(@"くれないか？/欲しいのだが…")%」
					ELSE
						PRINTFORML 「%CNAME("二人称")%の%TEXTR("硬い/立派な/愛おしい")%チンポで%CNAME("一人称")%%TEXTR(@"の膣内を%CNAME("二人称")%の形にして/を愛して/を慰めて/の疼きを鎮めて")%%TEXTR(@"くれないか？/欲しいのだが…")%」
					ENDIF
				;ELSE

				;ENDIF
				SIF CHARA_NUM("室内の邪魔者") >= 1
					PRINTFORML 「%TEXTR(@"もう止められないぐらい躁动难忍しているんだ…誰がなんと言おうと%CNAME("一人称")%は止圆圈気はないぞ…！/見られていても構うものか、むしろ二人が愛し合う姿を見せつけてやろうではないか/皆が見ている？ふん、%CNAME("一人称")%達が如何に深い関係か知らしめる良い機会だと思わないか？")%」
			CASE "Ａ性交"

			CASE "尿道性交"

			ENDSELECT
		ENDIF
;	ENDIF
;STR:PLAY要望 が本来したいPLAY。STR:PLAY内容 が你がやりたいと言って交渉中のPLAY
;ここの中で STR:PLAY内容 を変更する事で提案を蹴る事も出来る。什麼也不做場合は你の提案が通る
CASE "性欲解消の内容変更を頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "舐陰"

	CASE "舐陰莖"

	CASE "Ｖ性交"
		;今日は避孕套没有の生性交がＯＫな日
		IF COND("女性主導生性交")

		ELSE

		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
;性欲解消PLAY後の台詞
CASE "帮忙消除性欲"
	SELECTCASE NAMES("性処理")
	CASE "舐陰"
		PRINTFORML 「%TEXTR(@"こ、のぉっ♪舌で膣口ほじるな、ぁくっ、あぁっ/そんなに舌でべろべろして、%CNAME("一人称")%の阴部はそんなに美味いのかっ/待て、阴蒂に甘噛みなどされたらっぁあひぃっ/イくっ、%CNAME("二人称")%の舌でイかされ…ッ～～～")%♪」
		PRINTFORML 「%TEXTR(@"んんっ/ぅあっ/あぁん")%♪%TEXTR(@"ち、ちがっ、続きを望んでなどっ…いひゅうぅっ/もういいっ、満足したっ、もういいと言うとろうがぁっ/あ゛ぁーーーッ♪またイくっ、イくぅンっ")%♪」
	CASE "舐陰莖"

	CASE "口交"
		PRINTFORML 「%TEXTR(@"んっ、ぐ/んぶぅっ")%…！%TEXTR(@"じゅるるっ、ゴクン…ゴクッ…/ちゅぱっ、ちゅぅうっ…ちゅっ…/くちゅぢゅっ、ぢゅちゅっ、クチュ、チュ…")%」
		PRINTFORML 「%TEXTR(@"ぅぷっ、ふぁあ/ぐ、けほけほっ、はぁぁ")%…%TEXTR(@"ふふ、%TEXTR(@"果凍並の硬さで/相変わらず/濃厚コッテリで")%美味な%TEXTR(@"精液/精子/精液/子種/チンポミルク")%だったぞ、%CNAME("二人称")%/胃は満たされたが…けふっ、胎が寂しくなってきたな…/ククッ、%CNAME("一人称")%の口は良かったみたいだな？どうだ%CNAME("二人称")%、良かったら続きなどどうだ")%♪」
	CASE "Ｖ性交", "Ａ性交", "尿道性交"
		;挿入行為の後に口交も続けて行った場合
		IF STR:PLAY要望 == "口交"
			PRINTFORML 「はぁーっ、はぁっ…♪ん…ふふ、%TEXTR(@"%CNAME("一人称")%と%CNAME("二人称")%ので汚れてしまったな/たっぷり出したな…%CNAME("二人称")%も溜まっていたのか？")%」
			PRINTFORML 「とりあえず…%TEXTR(@"ジッとしていろ/大人しくしていろ/リラックスしてて良いぞ")%。%TEXTR(@"%CNAME("一人称")%が清めてやるからな…/今から口で綺麗に磨いてやろう/付き合ってくれた礼だ、後始末ぐらいはさせてくれ")%」
		ELSE
			SELECTCASE NAMES("性処理")
			CASE "Ｖ性交"
				IF TEQUIP:PLAYER:避孕套
					PRINTFORML 「%TEXTR(@"うっ、くぅぅ…！避孕套が膨れて、膣口に引っかか…ひゃうん！…あぁっ、はぁ…/こんなにたっぷり出しよって…膣奥や子宮で直に出されていたら妊娠したやも知れんな♪/んん、おぉ…凄いな、避孕套がはちきれそうだぞ？")%」
					PRINTFORML 「さて、このまま捨てる%TEXTR(@"のはもったいないからな…/…なんてことするわけなかろう？")%%TEXTR(@"これは…ちゅるる、んぐっ…こうやって…ちゅぅぅ…残らず飲み干すに限る…/美味しくいただかせてもらうぞ/せっかく出してもらった貴重な精だからな…いただきます")%♪」
				ELSE
					PRINTFORML 「%TEXTR(@"ッ…フフッ/くぁあっ/んっ、んっ…/あぁっ、熱い…ッ")%♪%TEXTR(@"お互い気持ち良くなれて…嬉しいぞ、%CNAME("二人称")%/%CNAME("二人称")%も溜まっていたようだな？クク…/%CNAME("一人称")%の中が溶けてしまいそうだ…")%♪」
					PRINTFORML 「%TEXTR(@"…どうした？ヤりたりないか？/%CNAME("一人称")%は一応満足したが…/ククッ、どうした%CNAME("二人称")%？まだ硬いままだが…")%%TEXTR(@"ククッ、そう物欲しそうな顔をしなくても%CNAME("一人称")%是くらでも接受ぞ/おっと、これから先は床で…な/%CNAME("二人称")%が望むなら続きをシても良いぞ")%♪」
				ENDIF
			CASE "Ａ性交"

			CASE "尿道性交"

			ENDSELECT
		ENDIF
	ENDSELECT
ENDSELECT

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

MAIL_BODY =
;メッセージ本文
SELECTCASE ARGS
CASE "ヌード自撮り"
	MAIL_BODY = %TEXTR(@"自慢して何が起こっても責任は取らんぞ/淫紋にも注目/これで自慰なら%CNAME("一人称")%を呼ぶこと")%
CASE "阴部自撮り"
	MAIL_BODY = %TEXTR(@"酱と撮れているか不安だ/%CNAME("二人称")%が欲しくて泣いている/これで自慰なら%CNAME("一人称")%を呼ぶこと")%
CASE "胸部自撮り"
	IF TALENT:母乳体質
		MAIL_BODY = %TEXTR("胸が張って苦しい/後で少し搾ってくれ/喝母乳たくなったら返信求む")%
	ELSE
		MAIL_BODY = %TEXTR("やはり大きいと肩が凝る/ちょっとした褒美だ/今日は胸で搾ってやろうか？")%
	ENDIF
CASE "今年の泳装自撮り"
	MAIL_BODY =%TEXTR("これを選んで正解だと思わんか？/二人水場に玩耍に行きたいな/猛暑日はこれで過ごすのもアリかもしれんな")%
CASE "学校指定の泳装自撮り"
	RETURN 0
	MAIL_BODY =
CASE "体操服自撮り"
	MAIL_BODY = %TEXTR("良い運動だったぞ/このまま体育倉庫で待っていてやろうか？/浑身是汗で気持ちが悪い")%
CASE "胸罩自撮り"
	MAIL_BODY = %TEXTR(@"今日のは%CNAME("一人称")%のお気に入りだ/今日は%CNAME("二人称")%の好みそうなヤツだ/今気付いたが少し乳頭が勃っているな…恥ずかしい")%
CASE "胖次自撮り"
	MAIL_BODY = %TEXTR(@"今日のは%CNAME("一人称")%のお気に入りだ/今日は%CNAME("二人称")%の好みそうなヤツだ/今気付いたが少しシミが出来ているな…恥ずかしい")%
CASEELSE
	RETURN 0
	MAIL_BODY =
ENDSELECT

;地の文
PRINTFORMW 照片上还添加了「%MAIL_BODY%」的信息…

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

#DIM ACTOR

#DIM CHOICE
#DIMS CHOICES

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	PRINTFORMW 「なぁ%CNAME("二人称")%、次の周日日は闲か？」
	PRINTFORMW 「闲なら%CNAME("一人称")%%TEXTR("と何処か出かけないか？/に少し付き合ってもらおうか")%」
CASE "约会のお誘い：結果"
	;约会決定！
	IF COND("约会的约定")
		PRINTFORMW 「良いのか？有がとう、%CNAME("二人称")%よ」
		PRINTFORMW 「%TEXTR("気の利いたエス外套を期待しているぞ/さぁて、行先はどうするかな…/ククッ、今から楽しみにしているからな♪")%」
	;你に保留されてしまった
	ELSE
		PRINTFORMW 「む、そうか…なら仕方ないな」
	ENDIF
;你から週末约会に誘われた
CASE "约会に誘われた"
	PRINTFORMW 「何だ%CNAME("二人称")%…次の周日日に约会しないかだと？」
	PRINTFORMW 「良いだろう。%TEXTR("気の利いたエス外套を期待しているぞ/行先は任せるぞ/ククッ、今から楽しみにしているからな♪")%」
;你から约会当日にいきなり誘われた
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		PRINTFORMW 「急にどうした%CNAME("二人称")%…今から约会しないかだと？」
		PRINTFORMW 「良いだろう。%TEXTR("気の利いたエス外套を頼むぞ/行先は任せるぞ/…とりあえず着替えねば")%」
	ELSE
		PRINTFORMW 「急にどうした%CNAME("二人称")%…今から约会しないかだと？」
		PRINTFORMW 「良いだろう。%TEXTR("気の利いたエス外套を頼むぞ/行先は任せるぞ/…とりあえず着替えねば")%」
	ENDIF

;地の文はpartnerが遅れて現れる展開になっています
;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "待ち合わせ"
	IF COND("同居中") == 0
		PRINTFORMW 「%TEXTR(@"遅れてすまない/すまないな%CNAME("二人称")%よ")%。%TEXTR("繞道してたら道に迷ってしまった/ナンパしてくる連中を叩きの…撒くのに手間取ってな/どうにも髪が決まらなくてな")%」
	ELSE
		PRINTFORMW 「%TEXTR(@"遅れてすまない/すまないな%CNAME("二人称")%よ")%。%TEXTR("どうにも髪が決まらなくてな/何だか服がしっくり来なくてな…")%」
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "约会本番"
	SELECTCASE SAVESTR:约会
	CASE "去买泳衣"
		PRINTFORM 「泳装か…
		IF COND("初夏") && COND("夏")
			PRINTFORMW そうだな、もうそんな時期だから買いに行くか」
		ELSE
			PRINTFORMW まだそういう時期では無いと思うが、準備は早い方が良いものな」
		ENDIF
		PRINTFORMW 「今年は何が良いか…%CNAME("二人称")%の意見、取り入れさせてもらうぞ」
	CASE "散歩"
		PRINTFORMW 「%TEXTR(@"見ろ%CNAME("二人称")%…あの雲、何かの形に似ていないか？/こうして二人だけで、目的も無く歩くのも中々乙なものだな…/さて…どこか適当な所で昼食にするか")%」
	CASE "尋訪美食"
		IF RAND:2
			PRINTFORMW 「%TEXTR("美味い…いや、本当に美味いぞコレは…/…こんなに美味いモノは魔界には無かったな…/なんだコレは…美味いぞ…いくらでも食べられそうだ…！")%」
			PRINTFORMW 「%TEXTR(@"なぁ%CNAME("二人称")%、それも少しだけ…一口だけ分けてくれんか？な、なっ、なぁっ？/…父と母にも食べさせてあげたかった…が、しばらく吃飯がこれだけになりそうだ…/これだけでも人类界来了価値があるというものだな！")%」
		ELSE
			PRINTFORMW 「%TEXTR(@"/おっと…%CNAME("二人称")%よ、食べこぼしが付いてるぞ…/…む…全く%CNAME("二人称")%はしょうがないな、%CNAME("一人称")%以上にガッついてどうする…")%」
			PRINTFORMW そう言うと%CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%の%TEXTR("口元/頬")%に付いていた食べこぼしを%TEXTR("周りに見せつけるように舌で舐めとり、悪戯気に笑った/手帕で温柔的精心拭き取ってくれた")%。
		ENDIF
	CASE "逛街"
		IF RAND:3 == 0
			PRINTFORMW 「…どうせ金などすぐに増やせるから…よし買った！コレも買いだ！」
		ELSEIF RAND:2
			PRINTFORMW 「うーむ、%TEXTR("あれもこれも欲しくなってしまうな…/どれもこれも魅力的で困るな…")%」
		ELSE
			PRINTFORMW 「欲しい物があるなら言うが良い。一つに付き魂一人分で買ってやろう」
		ENDIF
	CASE "去水族馆"
		IF RAND:3 == 0 && CEVENT("约会：ラー君", FINDCHARA(NO, 25))
			IF CEVENT("クラーケン？") == 0
				PRINTFORMW 「…おい、%CNAME("二人称")%…なんでクラーケンがここで飼育されてるのだ？！」
				PRINTFORMW 「大ダコのラー君って…そんな訳…ある、のか…？ううむ…」
				PRINTFORMW （絶対クラーケンの兒童だな、アレは…まぁ大人しくしているし大丈夫だろう…多分）
				CALL SET_CEVENT, "クラーケン？"
			ELSE
				IF RAND:2
					PRINTFORMW 「ラー君とやらは相変わらずのようだが…アレが本当にクラーケンだった時は大変だぞ？」
					PRINTFORMW 「まだ兒童サイズだから良いが、船は沈める、財宝は奪う、女は生かして苗床にする…とんでもない大海魔だ」
					PRINTFORMW 「…苗床にされた女の話でもするか？そういう官能小説が書けるぐらいのネタはあるが」
				ELSE
					PRINTFORMW 「…あの大ダコ…ていうかクラーケン、だいぶ躁动难忍しているようだな」
					PRINTFORMW 「何で分かるかって？あの細い触腕…と言っても%CNAME("一人称")%の腕程あるが、アレは肥大化した生殖器だ」
					PRINTFORMW 「アレでさらった女の子宮が膨れるまで精液の詰まった卵胞をたっぷり詰め込み種付けする…らしい」
				ENDIF
			ENDIF
		ELSEIF RAND:2
			PRINTFORMW 「おおっ、イルカとシャチのショーか…見に行こうではないか」
		ELSE
			PRINTFORMW 「人类界の魚は綺麗で可愛げがあって良いな」
			PRINTFORMW 「魔界の海洋生物はえげつない造形で人を食うヤツか、生殖欲旺盛な下等生物しかいないからな…」
		ENDIF
	CASE "去游乐园"
		IF RAND:3 == 0
			PRINTFORMW 「観覧車…良い乗り物だな」
			PRINTFORMW 「高い所から景色を楽しめるからな…%CNAME("二人称")%と二人っきりで…ククッ♪」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%をからかうように身を寄せ、頬に軽い接吻をしてきた…。
		ELSEIF RAND:2
			PRINTFORMW 「じぇ、ジェットコースター…スリルがあって楽しいが…恐ろしい乗り物だな…」
			PRINTFORMW 「い、未だに頭がクラクラして…うっぷ、ちょっと廁所…」
		ELSE
			PRINTFORMW 「ホラーハウスか…こう言っては悪いが兒童騙しだな」
			IF RAND:2
				PRINTFORMW 「まぁ、性質の悪い『本物』が何体か紛れ込んでいたが…ダウンさせてやった」
				PRINTFORMW 「そうだ、%CNAME("一人称")%に%TEXTR("デコピン/目潰し/金的/腹胖次")%されて悶絶してたヤツらだ…気付いたら怖くなってきたか？」
			ELSE
				PRINTFORMW 「…少しは怖がって%CNAME("二人称")%の腕に抱きついたりした方が良かったか？」
			ENDIF
		ENDIF
	CASE "去图书馆"
		PRINTFORMW
	CASE "赏花"
		PRINTFORMW
	CASE "去游泳"
		IF RAND:2
			PRINTFORMW 「これは…凄い人だかりだな」
			PRINTFORMW 「はぐれないように茨で拘束…いや、手を繋いで行くか？」
		ELSE
			PRINTFORMW 「正直、暑いから外出のはあまり気乗りしなかったが…」
			PRINTFORMW 「クク、誘われたら楽しみになってきたぞ。たっぷり泳ごうではないか」
			IF COND("今年の泳装選択済")
				PRINTFORMW 「それに、折角二人選んだ泳装をタンスの肥やしにするわけにもいかないからな」
			ELSE
				PRINTFORMW 「%CNAME("二人称")%と楽しく水玩耍すれば少しは涼しくなるかもしれんからな」
			ENDIF
		ENDIF
	CASE "爬山"
		PRINTFORMW
	CASE "赏红叶"
		PRINTFORMW
	CASE "滑雪"
		PRINTFORMW
	CASEELSE
		IF RAND:2
			PRINTFORMW
			PRINTFORMW
		ELSE
			PRINTFORMW
			PRINTFORMW
		ENDIF
	ENDSELECT

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

CASE "手をつなぐ"
	IF RAND:2 && TALENT:恋慕
		IF RAND:3 == 0
			PRINTFORMW 「…手を握っているだけなのに、どうしてこうも安心するのだろうな」
			PRINTFORMW 「この手を放してくれるなよ、%CNAME("二人称")%…」
			PRINTFORMW （契約が終わるまで…否、%CNAME("二人称")%の命に代えても絶対に守ってやるからな…）
		ELSEIF RAND:2
			PRINTFORMW 「…%CNAME("二人称")%よ。%CNAME("一人称")%は…何というか、その…今、とても幸せだ」
			PRINTFORMW 「願わくば、この瞬間がずっと続けば良いと思っているぐらいに…」
		ELSE
			PRINTFORMW 「っ…！ようやく手を握ってくれたな、%CNAME("二人称")%！」
			PRINTFORMW 「散々待たせおって、もう離さないからな！観念しろよ…クククッ♪」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为有言実行と言わんばかりに%CALLNAME:MASTER%の手をキツく握り、満面の露出笑容いる。
		ENDIF
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「なぁ、%CNAME("二人称")%よ…気付いたか？周りからの嫉妬の目線に…」
			PRINTFORMW 「全く、%CNAME("一人称")%と\@ TALENT:恋慕 ? 契約しようがしまいが # 契約も何もしてないのに \@、%CNAME("二人称")%以外になびくはずが無いのになぁ…クククッ♪」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%との関係を周りに見せつけている…。
		ELSEIF RAND:2
			PRINTFORMW 「…ふふ、\@ TALENT:MASTER:男性 ? 大きくて # 華奢で可愛くて \@暖かい手だな…ずっと握っていたいぐらいだ」
			PRINTFORMW 「心も温かくなってくるのも、きっと気のせいではないと信じたいな…」
		ELSE
			PRINTFORMW 「そうだな…もうちょっとこう…そうだ、それで良い」
			PRINTFORMW 手を恋人繋ぎに握り直した%CALLNAME:TARGET%正在认真地读着标题为、%CALLNAME:MASTER%にニコリと微笑んだ…。
			PRINTFORMW 「どうだ、こっちの方が雰囲気が出るだろう？」
		ENDIF
	ENDIF
CASE "手をつながない"
	IF RAND:3 == 0 && TALENT:恋慕
		PRINTFORMW 「あっ………うぅ…ぐすっ………」
		PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为宙を掻いた自分の手と%CALLNAME:MASTER%を見て悲しそうにしている…。
	ELSEIF RAND:2
		PRINTFORMW 「むぅぅ………はぁ………」
		IF RAND:2 && TALENT:恋慕
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为行き場のない何かを忍住ように、手の開閉を繰り返している…。
		ELSE
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为どこか残念そうな斜眼で%CALLNAME:MASTER%を見ている…。
		ENDIF
	ELSE
		PRINTFORMW 「ぁ…な、何でもない、何でもないぞ、%CNAME("二人称")%！早く先を急ごうか！」
		IF TALENT:恋慕
			PRINTFORMW そう言って一人で先を急ぎだす%CALLNAME:TARGET%の目に、一瞬光るものが見えた気がした…。
		ELSE
			PRINTFORMW そう言って%CALLNAME:TARGET%正在认真地读着标题为少し拗ねたように、一人で先に歩いて行ってしまった…。
		ENDIF
	ENDIF
;泳装を買いに行った時です
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	IF COND("Ｈ的泳装選択可能") && RAND:2
		PRINTFORMW 「うーむ、やはり%CNAME("二人称")%はこれぐらい%TEXTR("過激/卑猥/エロティック")%な泳装の方が好きなのか？」
		PRINTFORMW 「まぁ%CNAME("一人称")%もそういうのは嫌いではないからな、どうしてもと言うなら着ても良いぞ」
	ELSEIF RAND:2
		PRINTFORMW 「これは中々可愛い…が、こちらも上等だ…しかしあれも捨てがたい…」
		PRINTFORMW 「…やはり%CNAME("二人称")%に決めてもらうのが良いか」
	ELSE
		PRINTFORMW 「さて、%CNAME("二人称")%よ。どれが良いか決めてくれ」
		PRINTFORMW 「%CNAME("一人称")%は自己決められそうにないのが目に見えているからな…既に候補がざっと十個はあるぐらいだ」
	ENDIF
;泳装を買いに行って、結果的に選んだ泳装に対するセリフです
;もしも去年も泳装を選んでいたなら、CSTR:今年の泳装 に記録されているので比較する事が出来る
CASE "泳装決定"
	SELECTCASE SWIM(STR:選んだ泳装, "種類")
	CASE "Micro比基尼", "淚珠泳衣", "彈弓泳衣"
		IF RAND:2
			PRINTFORMW 「何だ？こんなに布地をケチった、%TEXTR("過激/卑猥/エロティック")%な泳装を%CNAME("一人称")%に着て欲しいと？」
			PRINTFORMW 「クククッ…良いだろう…。せいぜい目のやり場に困るが良い♪」
			CALL PRINT_STRW, @"%SWIM(STR:選んだ泳装)%を着た%CALLNAME:TARGET%正在认真地读着标题为ノリノリで扇情的なポーズを取っている。"
		ELSE
			PRINTFORMW 「ほう…これはほぼ裸、といった所か…まぁ悪くはないな」
			PRINTFORMW 「…%CNAME("一人称")%が良からぬことを企む輩にナンパされていたら守ってくれよ？%CNAME("二人称")%…ククッ♪」
			SIF TALENT:恋慕
				PRINTFORMW （…%CNAME("二人称")%や部員以外と性交するのは、今の%CNAME("一人称")%にとっては强奸そのものだからな…）
		ENDIF
	CASE "比基尼"
		IF RAND:2
			PRINTFORMW 「ふむ、%CNAME("一人称")%にこれを着て欲しいと………どうだ？似合うか？」
			PRINTFORMW 「こっちの%TEXTR("黑色/白色/青い/赤い/桃色の/花柄の")%%TEXTR("蕾丝生地付き/褶边付き/領帯サイド")%比基尼も捨てがたがったが…%CNAME("二人称")%が良いと言うならこれが一番だな」
			CALL PRINT_STRW, @"%CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%に選んでもらった%SWIM(STR:選んだ泳装)%を着て、得意げに%TEXTR("その場でくるりと回った/誘惑するようなポーズをとった")%。"
		ELSE
			PRINTFORMW 「む、むむ…ッ？…くっ、背中の紐にわずかに手が届かん…」
			PRINTFORM 「あ……す、すまないな%CNAME("二人称")%…
			IF RAND:3 == 0
				PRINTFORMW 今持ち合わせが心許無いから、これで堪忍してくれ」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为泳装に包まれた身体を寄せて、唇に轻轻地触れるだけの接吻をしてきた…。
			ELSEIF RAND:2
				PRINTFORMW 礼に後で甜点か何か奢ってやろう」
			ELSE
				PRINTFORMW 悪いが、ついでにもう少し大きいのを持ってきてくれないか？\@ TALENT:巨乳 ? 多分胸が引っ掛かって結べないのだ… # 頼んだぞ \@」
			ENDIF
		ENDIF
	CASE "競泳泳装"
		PRINTFORMW 「これは…競泳選手や体育教師が着る領帯プか」
		PRINTFORMW 「なるほど、身体にフィットしてボディラインが浮かぶのが%CNAME("二人称")%の好みだと言う訳だな」
		PRINTFORMW 胸が少し窮屈なのか、%CALLNAME:TARGET%正在认真地读着标题为胸元にしきりに手を当てている。
	CASE "高開衩連衣裙"
		PRINTFORMW 「ほうほう、これは股周りの切れ込みがきわどいな…」
		PRINTFORMW 「…%CNAME("二人称")%よ、視線がそっちの方ばかり向いているぞ？」
	CASE "連体泳装"
		IF RAND:2
			PRINTFORMW 「これは露出も少なく清楚にまとまっているな…%CNAME("二人称")%はこういうのが好きか」
			PRINTFORMW 「そうだな…折角だから草帽も一緒に買うか。雰囲気が出るだろう？」
		ELSE
			PRINTFORMW 「…そういえば両親と去游泳時、母是つもこの領帯プを着ていたな…懐かしい」
			PRINTFORMW 「ほら、どうだ…似合うか？%CNAME("二人称")%よ」
			PRINTFORMW 連体泳装に身を包んだ%CALLNAME:TARGET%正在认真地读着标题为、どこか儚げでしっとりとした声でそう聞いてきた…。
		ENDIF
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

;泳池などで泳装姿に着替え、待ち合わせ場所に集合した時です
CASE "泳装に着替えた"
	PRINTFORMW 「%TEXTR("待たせたな/遅くなって悪い")%、%CNAME("二人称")%よ」
	;どの泳装に着替えたか？
	SELECTCASE SWIM(CSTR:今年の泳装, "種類")
	CASE "比基尼"
		IF RAND:2
			PRINTFORMW 「背中の紐が酱と結べているか見てくれるか？折角の泳装が流されてしまうと悲しいからな」
		ELSE
			PRINTFORMW 「どうだ、%CNAME("一人称")%の泳装姿は？悪くないだろう？」
		ENDIF
	CASE "Micro比基尼", "淚珠泳衣", "彈弓泳衣", "高開衩連衣裙"
		PRINTFORMW 「ククッ、早速見とれているようだな…だが用心しろよ？」
		IF RAND:2
			PRINTFORMW 「さっき%TEXTR("女慣れしてそうな金髪の男/金持ちそうな太った男/筋肉ダルマ")%にしつこく声を掛けられてな」
			PRINTFORMW 「丁重にお引き取り頂いたが…今度は%CNAME("二人称")%が守ってくれると嬉しいぞ」
		ELSE
			PRINTFORMW 「さっきから周りの視線も凄いからな…欲望と嫉妬が渦巻いている」
			PRINTFORMW 「まぁ、%CNAME("二人称")%が一緒にいるから大丈夫だろう…クククッ♪」
		ENDIF
	CASE "連体泳装"
		IF RAND:2
			PRINTFORMW 「草帽を一緒に買っておいたのは正解だったな…日差しも防げてビジュアルも良い、一石二鳥だ」
		ELSE
			PRINTFORMW 「どうだ、%CNAME("一人称")%の泳装姿は？悪くないだろう？」
		ENDIF
	CASE "競泳泳装"
		PRINTFORMW 「うーむ、この恰好だと妙に泳ぎたくなってしまうな…」
		PRINTFORMW 「%CNAME("二人称")%よ、折角だから競争としゃれこもうではないか。負けた方は%TEXTR("昼食を甜点込みで奢る/返回まで勝った方の命令に何でも従う")%というのはどうだ？」
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

;草丛口交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "到暗处去……", "请求偷偷口交"
	SELECTCASE SAVESTR:约会
	CASE "去游泳"
		PRINTFORM 「ククッ、やっぱり来たか…
		IF RAND:2
			PRINTFORMW そんなに%CNAME("一人称")%の泳装姿は魅力的だったのか？それなら嬉しい限りだが…」
			PRINTFORMW 「礼物にいつもより热情地ヌイてやろうではないか…クククッ♪」
		ELSE
			PRINTFORMW %TEXTR("泳装の上からでも分かる/他の女性もチラチラ盗み見る")%ぐらい勃起来了ものなぁ…」
			PRINTFORMW 「ここは興奮させてしまった責任を取るべく、%CNAME("一人称")%がしっかりヌキヌキしてやろう…♪」
		ENDIF
	CASE "去买泳衣"
		IF RAND:2
			PRINTFORMW 「むぅ、こんな所でか…？まぁ、狭窄空間に男と半裸の女が二人きりならしょうがないか…」
			PRINTFORMW 「手早くヌイてやるから…バレないように全部口の中に出してくれよ、%CNAME("二人称")%」
		ELSE
			PRINTFORMW 「こんな時に催すとは…%CNAME("二人称")%は節操が無いな」
			PRINTFORMW 「まぁ良い、ちょっとスリルがあるのも嫌いではないのでな…バレる前に口で射精させてやろう」
		ENDIF
	CASEELSE
		IF RAND:2 && EXP:性処理経験 >= 10
			PRINTFORMW 「どうした%CNAME("二人称")%…あぁ、『廁所』だな？ならこっちに来い」
			PRINTFORMW 「ちゃーんとスッキリ出来るように『使わせて』やる…いや、『使っていただく』か…？」
			PRINTFORMW 「まぁ良い、どっちにしても今の%CNAME("一人称")%の口は『%CNAME("二人称")%専用精液便所』だからな…存分に吐き出すが良い」
		ELSE
			PRINTFORMW 「何？躁动难忍してきただと…？」
			PRINTFORMW 「しょうがないな、ヌイてやるから人気の無い所に行くぞ」
		ENDIF
	ENDSELECT
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

CASE "接吻"
	SELECTCASE SAVESTR:约会
	CASE "去游泳"
		IF RAND:2
			PRINTFORMW 「んちゅ、ちゅっ…ククッ、%CNAME("二人称")%、周りを見てみろ…凄いぞ」
			PRINTFORMW 口を離した%CALLNAME:TARGET%に促されて周囲を見渡すと、何人もの男性が残念そうに出口て行くのが見えた…。
		ELSE
			PRINTFORMW 「ちゅ、ぢゅちゅっ、ちゅうぅ…ぷは、はぁ、はぁっ………はむ…ぢゅる、ぢゅぷちゅっ………」
			PRINTFORMW 夏の熱気にあてられたのか、%CALLNAME:TARGET%正在认真地读着标题为热情地%CALLNAME:MASTER%の唇を求め、濃厚的接吻を返してくる…。
		ENDIF
	CASEELSE
		IF RAND:2
			PRINTFORMW 「クク、接吻したくなったのか？良いぞ、罗曼蒂克なのを頼む…♪」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%の胸に手を置き、目を閉じて接吻を待っている…。
		ELSE
			PRINTFORMW 「ちゅ、ぢゅっ…んふ…ククッ、%TEXTR("いたいけな兒童/他の情侣/周りの人達")%が見てるぞ…ちゅっ、ぢゅちゅぅぅ…♪」
			PRINTFORMW かく言う%CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%との口付けを止める気は無いらしく、逆にさっきよりも深く舌を絡ませてきた…。
		ENDIF
	ENDSELECT
CASE "摸屁股"
	IF RAND:2
		PRINTFORMW 「んッ、ぁは…ククッ、我慢出来なくなったか？」
		PRINTFORMW 「就这様揉んでて良いぞ…周りに%CNAME("一人称")%は%CNAME("二人称")%のモノだとアピールするが良い」
	ELSE
		PRINTFORMW 「っとと、躊躇なく性騷擾してくるとは…流石%CNAME("二人称")%」
		PRINTFORMW 「まぁ、ただ………これ以上を望むならホテルで、な」
	ENDIF
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问"
	PRINTFORMW 「%TEXTR(@"うむ、ここなんかどうだ？/えーと、アレだアレ………何だっけ………すまない、ド忘れしてしまった/そうだな…思いつかないから%CNAME("二人称")%に任せるぞ")%」
;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
CASE "帰り際"
	SELECTCASE SAVESTR:约会
	CASE "去游泳"
		IF RAND:2
			PRINTFORMW 「ん………すぅ………すぅ………」
			PRINTFORMW 泳ぎ疲惫のか、バスに揺られる%CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%に\@ TALENT:恋慕 ? 寄りかかりつつ、手をしっかりと握って # 寄りかかって \@寝息を立てている…。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「何…？もうこんな時間なのか」
			PRINTFORMW 「終わりが来るのが早すぎるとは思わないか、なぁ？」
		ELSE
			PRINTFORMW 「む…そろそろお開きの時間だな」
			PRINTFORMW 「…どうする？真っすぐ帰っても良いが…」
		ENDIF
	CASEELSE
		IF TALENT:恋慕
			PRINTFORMW 「何…？もうこんな時間なのか」
			PRINTFORMW 「終わりが来るのが早すぎるとは思わないか、なぁ？」
		ELSE
			PRINTFORMW 「む…そろそろお開きの時間だな」
			PRINTFORMW 「…どうする？真っすぐ帰っても良いが…」
		ENDIF
	ENDSELECT
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			IF COND("同居中") == 0
				PRINTFORMW 「ああ…%CNAME("一人称")%も%CNAME("二人称")%と抱き合いたい…もっと一緒にいたい、と思ってた」
				PRINTFORMW 「そうだ、早く行こう…もう%CNAME("二人称")%に愛されたくって、待ちきれないんだ…ッ！」
			ELSE
				PRINTFORMW 「家まで我慢出来ないのか…と言いたい所だが、正直%CNAME("一人称")%の方が我慢出来そうにない」
				PRINTFORMW 「たっぷりじっくり、良い思い出になる逢瀬にしようではないか…ククッ♪」
			ENDIF
		ELSE
			IF COND("同居中") == 0
				PRINTFORMW 「ククッ、良いだろう…%CNAME("一人称")%もこのまま別れるのは物足りないと思っていた所だ」
				PRINTFORMW 「丁度近くに人気の情人旅館がある。そこまでエス外套、よろしく頼むぞ♪」
			ELSE
				PRINTFORMW 「…家まで我慢出来ないのか？」
				PRINTFORMW 「…ククッ、何てな♪良いぞ、たまには外での逢瀬も新鮮で楽しいものな」
			ENDIF
		ENDIF
	ELSE
		IF TALENT:恋慕
			IF COND("同居中") == 0
				PRINTFORMW 「…そうか…そうだな…帰らなくてはな…」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为とても名残惜しそうしている…。
				PRINTFORML [0] 手を振って別れる
				PRINTFORML [1] ５分だけ抱上去
				PRINTFORML [2] 黙って接吻をする
				CALL INPUT_SELECT, 3
				CHOICE = RESULT

				SELECTCASE CHOICE
					CASE 0
						IF RAND:2
							PRINTFORMW %CALLNAME:TARGET%と手を振って別れ、振り向いて歩き出そうとした瞬間、背中に軽い衝撃があった。
							PRINTFORMW 「…すまない…%CNAME("二人称")%が…%CALLNAME:MASTER%が早く帰らなきゃいけないのは分かってる」
							PRINTFORMW 「分かってるはず、なのに…でも…でも、しばらく…５分で良いから、このままでいさせて…」
							PRINTFORMW 「…楽しいはずの约会の最後で泣いちゃて…本当にごめんね…弱くてわがままな我を許して…」
							PRINTFORMW しばらくの間、か弱い少女のような口調で懇願し、震える%CALLNAME:TARGET%の好きにさせた…。
						ELSE
							PRINTFORMW 「あ…ああ、それじゃあまたな、%CNAME("二人称")%」
							PRINTFORMW 「…寝る間、悪魔に身体を乗っ取られないよう気をつけて…」
							PRINTFORMW どこかぎこちない露出笑容%CALLNAME:MASTER%に手を振る%CALLNAME:TARGET%。
							PRINTFORMW …背を向ける瞬間、その目から光るものが零れるのが見えた…。
						ENDIF
					CASE 1
						PRINTFORMW %CALLNAME:TARGET%と別れる前に、彼女を温柔的抱きしめた。
						PRINTFORMW 「あ………%CNAME("二人称", "どもり")%…は、早く帰らなくて良いのか…？」
						PRINTFORMW 「あっ、いっ、嫌じゃない、むしろその、う、嬉しい…んだが…その………」
						PRINTFORMW 「…ごめん、気を使わせてしまって…。…弱い女だな、%CNAME("一人称")%は…」
						PRINTFORMW 自嘲するように寂しく笑う%CALLNAME:TARGET%正在认真地读着标题为、甘えるように%CALLNAME:MASTER%を抱き返してきた。
						PRINTFORMW 就这様しばらく、二人お互相用体温や鼓動を感じながら抱きしめ合った…。
					CASE 2
						PRINTFORMW %CALLNAME:MASTER%は不意を突くように%CALLNAME:TARGET%を抱き寄せ、温柔的接吻をした。
						PRINTFORMW 「んっ…？！ん、んは、はむ、ちゅうぅぅ…！」
						PRINTFORMW 最初こそ驚いてされるがままだった%CALLNAME:TARGET%だが、すぐに動きに合わせて舌を絡ませてくる。
						PRINTFORMW 「%TEXTR("ちゅうぅっ、ちゅぱ、れろ、れろれろっ/んは、はっ、くちゅっ、ぢゅるっ、ぢゅうぅっ")%…%TEXTR("んん、ちゅっちゅ/ぷはっ、はむぅっ、ちゅぅぅ")%…！」
						PRINTFORMW %CALLNAME:MASTER%に縋り付き、甘えるように身体を擦り付け、舌を絡めて热情地口付けに応える%CALLNAME:TARGET%。
						PRINTFORMW その瞳はとろりと蕩け、如何なる理由で流れているか分からない、暖かな涙が零れていた…。
						EXP:MASTER:接吻経験 += 2
						EXP:接吻経験 += 2
				ENDSELECT
			ELSE
				IF RAND:2
					PRINTFORMW 「今日は本当に楽しかったぞ、%CNAME("二人称")%」
					PRINTFORMW 「また一緒に出掛けような…♪」
				ELSE
					PRINTFORMW 「…なぁ、%CNAME("二人称")%。その、手を…」
					PRINTFORMW 「あっ…ふふ…%CNAME("二人称")%の手は本当に暖かいなぁ…」
					PRINTFORMW %CALLNAME:MASTER%と恋人繋ぎをしてうっとりと微笑む%CALLNAME:TARGET%と身を寄せ合いながら家に帰った…。
				ENDIF
			ENDIF
		ELSE
			IF COND("同居中") == 0
				IF RAND:2
					PRINTFORMW 「さて、今日はこれでお開きにしようか」
					PRINTFORMW 「すっかり暗くなってしまったからな、家まで送っていってやろう」
				ELSE
					PRINTFORMW 「ふぅ…楽しかったな%CNAME("二人称")%よ」
					PRINTFORMW 「今日はここでお別れだが…寝る間、悪魔に肉体を乗っ取られないよう気をつけて…ククッ♪」
				ENDIF
			ELSE
				IF RAND:2
					PRINTFORMW 「今日の所はここまでだな」
					PRINTFORMW 「さぁて、暖かき我が家に帰ろうではないか」
				ELSE
					PRINTFORMW 「%TEXTR("遠き山に日は落ちて…星は空を散りばめぬ/今日の業を為し終えて…心轻轻地安らえば")%…♪」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为心情好で歌を歌いながら%CALLNAME:MASTER%の隣を歩いている。
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDSELECT

path: ERB/EVENT_K/30 オスカー/EVENT_K30_DAILY.ERB