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

MEMO_LINECOUNT = LINECOUNT

$KOJO_K11_GREETING_LP1

SELECTCASE ARGS
CASE "朝袭"
	SELECTCASE CSTR:朝袭
	CASE "朝の新妻PLAY"
		;それ以外
		SELECTCASE RAND:10
			CASE 0
				CALL PRINT_STR, @"「朝から莉雅拉酱食べ放題_H_　ですねー……_H_」_W"
			CASE 1
				CALL PRINT_STR, @"「もぉ%TEXTR("……/＿")%_H_　珍しく莉雅拉酱が朝ごはん作ってたのに……」_W"
				CALL PRINT_STR,  "「肚子里面满满的……_H_　已经没法做了呀……_HH_」_W"

		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 0
		GOTO KOJO_K11_GREETING_LP1
	CASE "朝騎乗位"
		;恋慕
		IF TALENT:恋慕
			SELECTCASE RAND:10
				CASE 0
					CALL PRINT_STR, @"「%TEXTR("哈/啊呜/啊")%……_HH_　早上開始就%TEXTR("很有精神/硬邦邦")%的呢……_H_」_W"
					CALL PRINT_STR, @"「请……_HH_　%TEXTR("满满地/大量地/尽情地")%喷射_H_　出来捏……_HH_」_W"
				CASE 1
					CALL PRINT_STR, @"「%TEXTR("啊唔/噫咕/呼嗯")%っ_H_　唔、唔唔、嗯っ_H_」_W"
					CALL PRINT_STR,  "「非、非常抱歉……っ_H_　是、想着普、普通地_H_　叫你起床的哟？_H_」_W"
					CALL PRINT_STR, @"「但是%CNAME("二人称")%的%TEXTR("这个/这里")%……_H_　%TEXTR("看起来很辛苦的样子/看起来很好吃的样子")%……_H_」_W"
					CALL PRINT_STR,  "「没用办法……忍耐了、啊……っ_HH_」_W"
				CASE 2
					CALL PRINT_STR, @"「%CNAME("一人称")%……最近、%TEXTR("稍微/有一点点")%%TEXTR("任性了/占有欲太强了")%……」_W"
					CALL PRINT_STR, @"「朝一番の%TEXTR("孕みやすそうな/こってり濃厚的/どっろどろの")%%CNAME("精液")%はぁ……%TEXTR("他の娘に渡したくない/自己堪能したい")%んですぅ……_H_」_W"
					CALL PRINT_STR,  "「所以、请就这样在里面……_H_　浓厚地射出来……_HH_HH_HH_」_W"
			ENDSELECT
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 0

		;それ以外
		SELECTCASE RAND:10
			CASE 0
				CALL PRINT_STR,  "「早上開始就这样有精神……不愧是雄性呢……_H_」_W"
				CALL PRINT_STR, @"「我慢しないで……んっ_H_　どろっどろな%CNAME("精液")%、%CALLNAME:TARGET%老师のナカに……ぁんっ_HH_HH_」_W"
				CALL PRINT_STR, @"「……啊_H_　暖暖的……_HH_」_W"
			CASE 1
				CALL PRINT_STR,  "「啊_H_　早上好っ_H_」_W"
				CALL PRINT_STR,  "「嗯っ_H_　不是啦、只是看起来、感觉那个っ_H_　攒了很多的样子_H_　所以_HH_」_W"
				CALL PRINT_STR, @"「总之想让%CALLNAME:TARGET%酱_H_　把精液_H_　榨出来吧_H_」_W"
				CALL PRINT_STR,  "「这也是一个好妻子的、义务……哟っ_HH_　啊嗯っ_HH_」_W"
		ENDSELECT
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 0
		GOTO KOJO_K11_GREETING_LP1
	CASE "朝口交", "朝六九式"
		; 恋慕
		IF TALENT:恋慕
			SELECTCASE RAND:10
				CASE 0
					CALL PRINT_STR, @"「%TEXTR("嗯っ/唔呜/哈/哈啊")%_HH_　早晨%TEXTR("最早榨出来的精液/最浓厚的牛奶")%、多谢款待_HH_」_W"
					CALL PRINT_STR,  "「要一起、吃早饭吗？」"
				CASE 1
					CALL PRINT_STR, @"「早上好%TEXTR("、亲爱的/＿")%_H_　嗯っ_H_　%CALLNAME:MASTER%跟%TEXTR("这里/肉棒君/大鸡鸡")%不一样、是喜欢睡懒觉的孩子呢……_H_」_W"
				CASE 2
					CALL PRINT_STR, @"「这样子用%TEXTR("口交/嘴")%%TEXTR("叫起来/弄醒")%、作为男孩子有什么感想吗？」_W"
					CALL PRINT_STR, @"「如果很喜欢的话……%CNAME("一人称")%这么早起来也是有价值的呢_HH_」_W"
				CASE 3
					CALL PRINT_STR,  "「早安、主人大人_HH_　今天也是一样地这么有精神、嗯、真是太好了_H_」_W"
					CALL PRINT_STR,  "「……呼呼_H_　这样的PLAY喜欢吗？」_W"
			ENDSELECT
		ENDIF
		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 0

		; それ以外
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, @"「%TEXTR("えへへ/あは")%_H_　%CNAME("二人称")%の刚睡醒%CNAME("精液")%、%CALLNAME:TARGET%酱が堪能しちゃいました_H_」_W"
				CALL PRINT_STR, @"「早晨開始就能享受到%TEXTR("这么浓的/这么浓厚的/这样黏黏的")%%TEXTR("量又大的/这么大量的/快要溢出来的")%精液、%CALLNAME:TARGET%酱大满足……_HH_」_W"
			CASE 1
				CALL PRINT_STR, "「欸嘿嘿……早上好_H_」_W"
				CALL PRINT_STR, @"「因为看起来存了很多在里面的样子%TEXTR("、一不小心就想偷吃了/就想用嘴帮你弄出来")%♪」_W"
			CASE 2
				CALL PRINT_STR, "「嗯……咕噜……_HH_」_W"
				CALL PRINT_STR, "「欸嘿嘿……早上就能喝到这样的浓厚的饮品、不用吃早饭也没有问题的啦……_HH_」_W"
		ENDSELECT

		SIF LINECOUNT - MEMO_LINECOUNT
			RETURN 0
		GOTO KOJO_K11_GREETING_LP1
	CASEELSE
		RETURN 0
	ENDSELECT
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交", "朝六九式"

	ENDSELECT

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

$KOJO_K11_GREETING_LP2
	SELECTCASE RAND:30
		CASE  0
			PRINTFORMW 「早安♪　今天也一定会是%TEXTR("美好的/不错的")%一天呢」
		CASE  1
			LOCAL = FIND_COND("同居中")
			SIF LOCAL <= 0
				GOTO KOJO_K11_GREETING_LP2
			PRINTFORMW 「今天的早餐是%CALLNAME:LOCAL%酱%TEXTR("亲手制作的哦/精心准备的哦")%~」
			PRINTFORMW 「……诶？　问为什么不是%CNAME("一人称")%做的？」
			IF TALENT:恋慕
				PRINTFORMW 「那、那个、%TEXTR("如、如果下次还有机会的话/下次肯定会做的")%……」
			ELSE
				PRINTFORMW 「嗯呼。那下次就让%CALLNAME:TARGET%酱为%CNAME("二人称")%制作特制的早餐吧～」
				CALL PRINT_STR, "「敬请期待！_HH_」_W"
			ENDIF
		CASE  2
			SIF TALENT:恋慕
				GOTO KOJO_K11_GREETING_LP2
			CALL PRINT_STR, @"「今早是%CALLNAME:TARGET%酱%TEXTR("特製的/手制的/满含爱意地做的")%早餐哟_H_」_W"
			CALL PRINT_STR, "「会啊～_HH_ 地喂给你吃的　、快点起来吧」_W"
		CASE  3
			SIF !TALENT:恋慕
				GOTO KOJO_K11_GREETING_LP2
			PRINTFORMW 「那个……早餐、做好了哟？」
			PRINTFORMW 「希望能合%CNAME("二人称")%的口味……」
		CASE 10
			SIF !COND("体育")
				GOTO KOJO_K11_GREETING_LP2
			PRINTFORMW 「今天是有体育课的日子捏？　%TEXTR("呼呼/诶嘿嘿~")%、已经做好充足的准备了哟♪」
		CASE 11
			SIF !COND("体育")
				GOTO KOJO_K11_GREETING_LP2
			PRINTFORMW 「偶尔%CNAME("一人称")%也会混到体育课的队伍之中哦？」
			PRINTFORMW 「这样、对周围进行认知阻碍的话。反正对%CNAME("二人称")%来说这也是听不懂的东西捏」
		CASE 12
			SIF !COND("体育")
				GOTO KOJO_K11_GREETING_LP2
			PRINTFORMW 「%CNAME("二人称")%喜欢泳池之类的地方吗？」
			PRINTFORMW 「泳衣的颜色啊设计样式啊什么的……想问一下是不是有什么讲究？」
		CASE 13
			SIF !COND("体育")
				GOTO KOJO_K11_GREETING_LP2
			PRINTFORMW 「喜欢上体育课吗？　%TEXTR("呼呼/嘛")%、如果不是很讨厌就好」
			PRINTFORMW 「%TEXTR("两人一起做“运动”/两个人在床上缠在一起做体操")%什么的充沛的体力还是必要的呢」
			PRINTFORMW 「……特别是%CNAME("二人称")%、有那么多的女孩子等着　呼呼、加油哦♪」
		CASE 14
			SIF !COND("体育")
				GOTO KOJO_K11_GREETING_LP2
			PRINTFORMW 「%CNAME("一人称")%穿着体操服的样子……这样说着、这么想看穿着布鲁马的样子吗？」
			IF TALENT:恋慕
				PRINTFORMW 「诶多、那个……co、cosplay的话什么时候都行哦？」
				PRINTFORMW 「运动之后……去洗澡、然后就做……对吧？」
				CALL PRINT_STR, @"「浑身是汗也可以？　讨、讨厌、真是%TEXTR("色狼老师/变态老师")%会说的话呢……_H_」_W"
			ELSE
				PRINTFORMW 「%TEXTR("姆呼~/嗯呼~")%♪　啊啦啊啦、满脸都写着期待的表情的孩子呢~♪」
			ENDIF
		CASE 20
			SIF BASE:PLAYER:絶頂 * 3 >= MAXBASE:PLAYER:絶頂
				GOTO KOJO_K11_GREETING_LP2
			PRINTFORMW 「%TEXTR("恩呼呼/啊啦啊啦/啊啦~")%、还在睡懒觉啊♪」
			PRINTFORMW 「喂、快点起床啦」
		CASE 21
			SIF BASE:PLAYER:絶頂 * 2 < MAXBASE:PLAYER:絶頂
				GOTO KOJO_K11_GREETING_LP2
			PRINTFORMW 「%TEXTR("啊啦~/嘛～嘛~/唔呼呼")%♪　这边也这么早起来了啊♪」
			PRINTFORMW 「如果还有时间能再稍微多一点的话……真是可惜」
	CASEELSE
		GOTO KOJO_K11_GREETING_LP2
	ENDSELECT

CASE "一番乗り"

CASE "ただいま"

CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, "「欢迎回家~♪」_W"
			CASE 1
				CALL PRINT_STR, "「迟到了呢……都等得有点累了」_W"
			CASE 2
				CALL PRINT_STR, "「想要一个回家的啾～_H_」_W"
			CASE 3
				CALL PRINT_STR, "「即使是稍微迟到了一小会也是不行的哦？」_W"
		CASEELSE
			GOTO KOJO_K11_GREETING_LP1
		ENDSELECT
$KOJO_K11_GREETING_LP3
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, "「要先吃饭？　还是先洗澡？　还是说……_H_」_W"
				CALL PRINT_STR, "「唔呼呼♪」_W"
			CASE 1
				CALL PRINT_STR, "「饭菜已经准备好了、一起吃吗？」_W"
		CASEELSE
			GOTO KOJO_K11_GREETING_LP3
		ENDSELECT
	ELSE
		SELECTCASE RAND:5
			CASE 0
				PRINTFORMW 「%TEXTR("唔呼呼/诶嘿嘿")%、久等了哦～♪」
				PRINTFORMW 「交给能干的%CALLNAME:TARGET%酱的话、%TEXTR("整理被子/准备零食")%这种事情当然是做得非常完美的啦」
			CASE 1
				PRINTFORMW 「%TEXTR("欢迎光临/已经久候多时了呢")%～♪」
				PRINTFORM 「欢迎来到%CALLNAME:TARGET%酱和
				IF CHARA_NUM("室内の邪魔者") > 4
					PRINTFORM 其他女孩子们
				ELSEIF CHARA_NUM("室内の邪魔者") > 2
					PRINTFORM 其他几个女孩子
				ELSE
					PRINTFORM 另一个的女孩
				ENDIF
				PRINTFORMW 精心准备的爱巢~♪」
			CASE 2
				PRINTFORMW 「真是的、%TEXTR("太慢了啦/迟到了哟/等了很久了啦")%」
				PRINTFORMW 「为了证明%CALLNAME:MASTER%的诚意、作为惩罚、%CALLNAME:MASTER%要听从%CNAME("一人称")%一个要求哦」
				PRINTFORMW 「……当然、愿意接受更加严厉的惩罚的话也是很欢迎的哦？」
			CASE 3
				PRINTFORMW 「已经恭候多时了、%TEXTR("亲爱的/主人大人")%」
				PRINTFORMW 「……什么的♪　呼呼、只是这个样子就%TEXTR("兴奋起来了吗/心跳不已了吗")%？」
				IF TALENT:恋慕 == 0
					PRINTFORMW 「想要%TEXTR("真心真意/从心底")%地被那样称呼的话、要努力赚取%CALLNAME:TARGET%酱的好感度哦♪」
				ENDIF
		CASEELSE
			GOTO KOJO_K11_GREETING_LP1
		ENDSELECT
	ENDIF

CASE "入室打招呼"
	SELECTCASE RAND:5
		CASE 0
			PRINTFORMW 「%TEXTR("Hi~/嗨~")%、可爱的%CALLNAME:TARGET%酱登场了哟%TEXTR("＿/ぉ/～")%♪」
			PRINTFORM 「%TEXTR("希望/想要")%被温柔地送到软乎乎的%TEXTR("床上/沙发上")%~
			CALL HEARTMARK
			PRINTFORMW 」

		CASE 1
			PRINTFORMW 「%CALLNAME:TARGET%酱%TEXTR("＿/今天也/终于")%来了哟~♪」

		CASE 4
			PRINTFORMW 「谢谢主人的指名%TEXTR("＿/ぅ/～")%。%CNAME("一人称")%是%CALLNAME:TARGET%♪」
			CALL PRINT_STR, @"「要%TEXTR("立刻/马上/立即")%開始%TEXTR("＿/相関的设置")%吗_H_」_W"
			PRINTFORM 　%CALLNAME:TARGET%一边用奇怪的腔调说着
			IF EQUIP:裙
				PRINTFORMW %SKIRT(TARGET, "略")%の下摆を摘んで僅かに持ち動作著……
			ELSE
				PRINTFORMW 一边静静地坐到%CALLNAME:PLAYER%的身边。
			ENDIF
	CASEELSE
		GOTO KOJO_K11_GREETING_LP1
	ENDSELECT

CASE "抜け出された"
$K11_GREETING_ESCAPE_LP1
	SELECTCASE RAND:5
		CASE 0
			PRINTFORMW 「要和%CALLNAME:TARGET%出去了吗？」
			PRINTFORMW 「%TEXTR("唔呼呼/啊啦啊啦/嗯呼~")%♪　请多加小心♪」
		CASE 1
			PRINTFORMW 「要去其他的场所休息了吗？」
		CASE 2
			PRINTFORMW 「呼姆呼姆、如果可以的话想要两个人一直独处下去呢～」
			PRINTFORMW 「不用一直想着%CNAME("一人称")%的事情好好去玩吧♪」
		CASE 4
			SIF TALENT:恋慕
				GOTO K11_GREETING_ESCAPE_LP1
			PRINTFORMW 「那个……%CNAME("一人称")%可以一起去吗？」
			PRINTFORMW 「啊、不行吗……唔。会老老实实地看家的……」
	CASEELSE
		GOTO K11_GREETING_ESCAPE_LP1
	ENDSELECT

CASE "便当"
$KOJO_GREETING_K11_LUNCHTIME_LP1
	LUNCHBOX = %KOJO_K11_LOCAL_STRING("便当")%

	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, "「今天去哪里吃饭好捏~」_W"
				CALL PRINT_STR, "「啊、茶水也已经买好了哦♪」_W"
			CASE 1
				CALL PRINT_STR, @"「呼呼♪　那么期待%TEXTR("便当/午饭")%吗？」_W"
			CASE 2
				CALL PRINT_STR, "「今天……到屋顶上去吃吧」_W"
				CALL PRINT_STR, "「不、不是、那个……偶、偶尔两个人独处一会也不错呢……」_W"
				CALL PRINT_STR, "「……请不要让人家像一个还不会说话的孩子一样说着害羞的话啊」_W"
		CASEELSE
			GOTO KOJO_GREETING_K11_LUNCHTIME_LP1
		ENDSELECT
	ELSE
		SELECTCASE RAND:5
			CASE 0
				SIF STRCOUNT(LUNCHBOX, "飯団") + STRCOUNT(LUNCHBOX, "三明治")
					GOTO KOJO_GREETING_K11_LUNCHTIME_LP1
				SPLIT LUNCHBOX, "/", LOCALS
				PRINTFORMW 「今天的便当是%LOCALS:0%~」
			;CASE 1
			;	SIF !STRCOUNT(LUNCHBOX, "没有")
			;		GOTO KOJO_GREETING_K11_LUNCHTIME_LP1
			CASE 4
				SIF RAND:3 == 0
					PRINTFORMW 「已经是正午了哦～」
				LOCALS = %TEXTR("部室/教室/房顶/中庭/食堂")%
				PRINTFORMW 「今天在哪里吃好捏」
				PRINTFORMW 「%TEXTR("＿/……/嗯～、")%%TEXTR("＿/那里、/")%%LOCALS%怎么样？」
		CASEELSE
			GOTO KOJO_GREETING_K11_LUNCHTIME_LP1
		ENDSELECT
	ENDIF

ENDSELECT

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

$KOJO_DAILY_K11_LP2

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「嗨、%CNAME("一人称")%来啦—！　噗卡噗卡噗卡——」
	PRINTFORML 　%CALLNAME:TARGET%声势浩大地走进房间……

	; 確定で弗理希艾尔が居る(筈)ので、最低値1
	IF CHARA_NUM("室内の邪魔者") > 1
		; 既に多数ヒロインが居る
		IF CHARA_NUM("室内の邪魔者") >= 4
			PRINTFORML 「哦呀哦呀哦呀？　这里比想象的要厉害很多啊——」
		ENDIF
	ELSE
		; 他には弗理希艾尔のみ
		IF CHARA_NUM("室内の邪魔者") != CHARA_NUM("集合予定")
			; 他にもヒロインが居る
		ELSE
			; 他のヒロインはまだ居ない
			PRINTFORML 「嗯？　……吼—。原来如此原来如此」
		ENDIF
	ENDIF

	IF CHARA_NUM("室内の邪魔者") >= 2 && CHARA_NUM("陥落済み") >= CHARA_NUM("室内の邪魔者")
		PRINTFORML 「不过稍微有点意外捏—。原本还只是以为%CNAME("二人称")%奴役着孩子们享受着淫乱的后宫生活」
		PRINTFORML 「连这么乖巧的好女孩都能乖乖地呆在这里……啊、说的话稍微有点失礼了、对不起」
	ENDIF

	PRINTFORML 「嘛、从此以后大家都是情同姐妹的伙伴了、对吗？」
	PRINTFORML 　%CALLNAME:TARGET%笑嘻嘻地那样说着……
CASE "浑身是汗"
	; たまに(25%)体育に参加、ということで特殊処理
	;IF RAND:3
		; 汗と汚れを重置して随机会話に飛ばす
	;	CFLAG:汗 = 0
	;	CALL  RESET_STAIN_EX, "全部", TARGET
	;	GOTO KOJO_DAILY_K11_SKIP1
	;ENDIF

	PRINTFORML 「咿呀~、偶尔做一下健全的健身运动也不错捏~」
	PRINTFORML 　%CALLNAME:TARGET%就这样满身是汗地坐到沙发里面……
	IF RAND:4
		PRINTFORML 「唔——、全身都被汗水湿透了……哦呀？」
		PRINTFORML 　%CALLNAME:TARGET%注意到了%CALLNAME:MASTER%看向这边的视线。
		IF ABL:露出癖 >= 3 && RAND:3
			PRINTFORML 「想看却不敢好好地说出来的话、就不给%CNAME("二人称")%看了哦？」
			PRINTFORML 　虽然这样说着、%CALLNAME:TARGET%还是大胆地将腿张開来、展示了自己汗气蒸蒸的股间……
			IF BASE:欲求不満 >= 50
				PRINTFORML 「想看的地方是这里、对吧？　还是说是这里呢？」
				IF EQUIP:胖次
					PRINTFORML  %CALLNAME:TARGET%用手指微微抬起股间汗津津的运动短裤的边缘、在深处隐隐约约能看到穿着的%PANTIES(TARGET)%。
					IF BASE:欲求不満 >= 80
						PRINTFORML 「嗯呼呼～……但是果然、最想看的是这个吧？」
						PRINTFORML 　说着这样的话的%CALLNAME:TARGET%用手指把整个运动短裤翻过来、故意把%PANTIES(TARGET)%错開。
						PRINTFORML 「哈~。凉凉的好舒服～」
					ENDIF
				ELSE

				ENDIF
				PRINTFORML 「再靠近一点看也可以哦……」
				PRINTFORML 　一边小声地嚅嗫着、%CALLNAME:TARGET%像是在邀请这边一样向上抬起了腰……
			ENDIF
		ELSEIF ABL:露出癖 >= 1 && RAND:2
			PRINTFORML 「……对全身是汗的女孩子、很有兴趣吗？」
			PRINTFORML 　这样说着的%CALLNAME:TARGET%一步步靠近了%CALLNAME:MASTER%……
		ELSE
			PRINTFORML 「汗水滴下来了～……这样说出来的话也带有着点%TEXTS("气味")%的气味呢……」
			PRINTFORML 「与其就这样看着、能过来帮忙擦一擦汗吗？」
		ENDIF
	ENDIF

CASE "刚睡醒"
	; 睡姦のフラグを便宜的にここで阴蒂アする
	CALL DEL_CEVENT, "日常：睡眠姦メモ"

	; 寝ている間に犯されたが気づいていない
	IF EXP_GAIN("睡眠姦経験") && !CEVENT("睡眠姦：発覚")
		SELECTCASE RAND:10
			CASE 0
				CALL PRINT_STR, "「嗯……っ♪　哈啊♪」_L"
				CALL PRINT_STR, @"「总感觉做了一个很不错的%TEXTR("夢/春梦")%呐……」_L"
			CASE 1
				CALL PRINT_STR, "「哈啊……_H_」_L"
				CALL PRINT_STR, @"「做了个%TEXTR("H的/色色的")%梦……」_L"
				CALL PRINT_STR, @"「%TEXTR("小穴/股间/胖次/内衣")%湿漉漉的~……_H_」_L"
			CASE 2
				CALL PRINT_STR, "「呼诶？　滴下来了……？　……啊～_HH_」_L"
				CALL PRINT_STR, @"「嘛、没有办法捏～_H_　到底是谁把%TEXTR("这么满满的/那么大量的")%东西灌进来的啊_H_」_L"
				CALL PRINT_STR, "「……嗯？　就这几天平均的量来说、是不是稍微有点多了……？」_L"
		ENDSELECT
	ELSEIF EXP_GAIN("睡眠姦経験")
	; 寝ている間に犯されたことに気づいている
		SELECTCASE RAND:10
			CASE 0
				CALL PRINT_STR, "「嗯……_H_　怎么感觉肚子附近的地方有点重捏～_H_」_L"
				CALL PRINT_STR, @"「就像、在没有意识的时候被狠狠地%TEXTR("中出/强暴")%了一样呢_H_」_L"
			CASE 1
				CALL PRINT_STR, "「说·起·来·呢~……_H_」_L"
				CALL PRINT_STR, @"「%CALLNAME:MASTER%到底在无防备地午睡的%CALLNAME:TARGET%酱的小穴里面、%TEXTR("射精/妊娠注射")%了多少回啊？」_L"
		ENDSELECT
	ENDIF

	; 汎用
	SELECTCASE RAND:10
		CASE 0
			CALL PRINT_STR, "「……」_L"
			PRINTFORML 　%CALLNAME:TARGET%强睁着困倦的双眼无神地看向什么都没有的地方……
		CASE 1
			CALL PRINT_STR, "「……被褥……在哪里……？」_L"
			CALL PRINT_STR, "「…………唔嗯…」_L"
	ENDSELECT

	SIF MEMO_LINECOUNT == LINECOUNT
		GOTO KOJO_DAILY_K11_LP2

;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K11
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML
CASE "契約成立"
	PRINTFORML
CASE "摆脱"
	SELECTCASE RAND:5
		CASE 0
			PRINTFORML 「想跟%CNAME("一人称")%一起去%TEXTR("约会/散步")%吗？」
			PRINTFORML 「护送公主的任务%TEXTR("就交给你啦/拜托了啦")%♪」
		CASE 4
			SIF CHECK_CLO("没穿内褲") == 0
				GOTO KOJO_DAILY_K11_LP2
			PRINTFORM 「明明是%TEXTR("no胖次/没有穿着胖次")%
			PRINTFORM 被%TEXTR("男人/男孩子")%%TEXTR("用手拉着/握着手/搂着腰")%
			PRINTFORML %TEXTR("带着散步/到处散步")%什么的……」
			PRINTFORM 「……%TEXTR("真的是非常地/超级的")%%TEXTR("刺激/兴奋")%……
			CALL HEARTMARK
			PRINTFORML 」
	CASEELSE
		GOTO KOJO_DAILY_K11_LP2
	ENDSELECT
CASE "自室に訪問された"
	SELECTCASE RAND:10
		CASE 0
			CALL PRINT_STRL, "「啊啦、欢迎光临♪」"
			CALL PRINT_STRL, @"「找莉雅拉大人、有什么%TEXTR("拜托的/想要做的")%事情吗？」"
		CASE 1
			CALL PRINT_STRL, @"「进入%TEXTR("女孩子/女性")%房间的时候、不能敲門是不行的哦？」"
			CALL PRINT_STRL, @"「难道是说、忙着打飞机而%TEXTR("手完全没有空闲/忙的很/快要射了")%的缘故吗_H_」"
		CASE 2
			IF COND("夜")
				CALL PRINT_STRL, "「啊啦？　是来夜袭的吗？_H_」"
			ENDIF
	CASEELSE
		GOTO KOJO_DAILY_K11_LP2
	ENDSELECT
CASE "露脐装超短裙胖次チラ"
	SELECTCASE RAND:5
	CASEELSE
		PRINTFORM 「%TEXTR("欸嘿嘿/啊哈哈/捏呼呼")%%TEXTR("ー/～")%♪　%TEXTR("想看/想偷窥")%的话
		PRINTFORM 就要好好地说出来哟%TEXTR("ぉ/～/ー")%
		IF RAND:2
			CALL HEARTMARK
		ELSE
			PRINT ♪
		ENDIF
		PRINTL 」
		IF RAND:2
			PRINTFORML 「但是呢、隐隐约约的样子%TEXTR("更好/也可以/会更加兴奋")%、对吧？」
			PRINTFORML 　%CALLNAME:TARGET%自己轻轻地抓住%SKIRT(TARGET, "略")%的边缘、慢慢地提到了只能隐隐约约看到内衣的位置。
			PRINTFORML 「%CNAME("一人称")%对各种%TEXTR("过激的/背德的/变态的")%%TEXTR("性癖/兴趣/爱好")%一向都是宽大处理的捏～♪」
		ELSE
			PRINTFORML 「是让%CNAME("一人称")%自己掀開？　还是想要过来自己动手呢？　只脱掉胖次也是%TEXTR("允许/可以")%的捏～♪」
		ENDIF
	ENDSELECT
CASE "掀起裙子"
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML 「……诶？　……！？　～～～～っ！！」
				PRINTFORML 「不、不行！　突然之间做什么啊、真是的……」
				PRINTFORML 「……想看的话就请好好地说“想看”啊。%CNAME("胖次")%也好其他的地方也好、都可以随便给%CNAME("二人称")%看……」
				PRINTFORML 「但是、这样子突然袭击过来、不可以的啦。不行不行不行」
				PRINTFORML 「那个……难道是因为、已经忍不住了吗？」
			CASE 1
				CALL PRINT_STR,  "「讨厌……想看的话就直率地说出来啊……」_W"
				CALL PRINT_STR, @"「那样的话、%TEXTR("胖次/内裤/内衣/小内内")%也好裸体也好都会给让%CNAME("二人称")%随便看的……好吗？_H_」_W"
			CASE 2
				CALL PRINT_STR, @"「那样子%TEXTR("色迷迷地/一直")%被看着那个地方的话……稍微有点害羞呐……_H_」_W"
				CALL PRINT_STR, @"「……只是%TEXTR("看着/欣赏着")%那里就够了吗？」_W"
		ENDSELECT
	ELSE
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML 「呀~♪　讨厌、真是%TEXTR("大胆/顽皮的孩子/坏孩子")%呢ー」
				CALL PRINT_STR, @"「那%TEXTR("~/~💗")%么想看%CNAME("一人称")%的%CNAME("胖次")%呐？_H_」_L"
				CALL PRINT_STR, @"「……真是的～_H_　那么%TEXTR("像痴汉一样地/热情地/色迷迷地")%被看着的话、%CALLNAME:TARGET%酱不小心就湿了啦……_HH_」_L"
			CASE 1
				CALL PRINT_STR, @"「怎么样啊~？　今天的%TEXTR("胖次/内衣/小内内")%、喜欢吗？」_L"
				CALL PRINT_STR, "「欢迎欢迎♪　请再靠近一点看哦♪」_L"
			CASE 2
				CALL PRINT_STR, @"「%TEXTR("嗯呼~/啊哈~/啊啦啦")%_H_　您真有眼光呢~」_L"
				CALL PRINT_STR, @"「今天的%PANTIES(TARGET)%穿着的内衣可是新款式的哦_H_」_L"
		ENDSELECT
	ENDIF

	SIF MEMO_LINECOUNT == LINECOUNT
		GOTO KOJO_DAILY_K11_LP2

ENDSELECT

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

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
;IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
;	PRINTFORML
;	CALL SET_DEVENT, "質問１"
;ENDIF
;IF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
;	PRINTFORML
;	CALL SET_DEVENT, "質問２"
;ENDIF

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

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML 「那个如果……差、差不多到了轮到宠幸%CNAME("一人称")%的时间了的话、会很高兴的……」
			CASE 1
				CALL PRINT_STR, @"「因为%TEXTR("忍耐着/默默地")%看了%TEXTR("最喜欢的/完全地占满了整颗心的/在心中代表着完美的")%男人和其他的%TEXTR("女孩子/少女")%%TEXTR("黏在一起/调情")%、可以期待有什么补偿吗？」_L"
		ENDSELECT
	ELSE
		PRINTFORML 「嗯姆？　下次想跟%CNAME("一人称")%一起做%TEXTR("H的/色色的")%事情吗？」
	ENDIF
ENDIF

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

;以下は随机台詞など
$KOJO_DAILY_K11_SKIP1
$KOJO_DAILY_K11_LOOP1

;時間帯と場所と関係で変化有些
IF COND("夜")
	; 自宅 or 情人旅館
	IF PLACE("情人旅館")
		; 情人旅館
		SELECTCASE RAND:10
			CASE 0
				PRINTFORML 「不用%TEXTR("特意/偷偷地")%把%CNAME("一人称")%带到%SAVESTR:現在位置%也可以的哦？」
				PRINTFORML 「其他的女孩子们也都是知道的吧」
			CASE 1
				PRINTFORML 「%SAVESTR:現在位置%有%SAVESTR:現在位置%的好处呢」
				PRINTFORML 「为了%TEXTR("交尾/爱爱/啪啪啪")%而设计的设施、不是很%TEXTR("棒/有趣/让人兴奋")%吗♪」
			CASE 2
				PRINTFORML 「为了准备明天的课程而预习吗？　还是说复习？」
				PRINTFORML %CALLNAME:TARGET%往这边送着挑逗的视线。
				PRINTFORML 「%TEXTR("无论如何/总之/首先")%用%CNAME("一人称")%的身体来实践一下吧♪」
		CASEELSE
			GOTO KOJO_DAILY_K11_LOOP1
		ENDSELECT

		;IF TALENT:恋慕
		;ELSE
		;ENDIF
	ELSE
		; 自宅
		;IF TALENT:恋慕
		;ELSE
		;ENDIF
		SELECTCASE RAND:10
			CASE 0
				PRINTFORML 「～～♪」
				PRINTFORML 　%CALLNAME:TARGET%躺在%CALLNAME:PLAYER%的床上哼着小曲翻看着漫画……
			CASE 7
				PRINTFORML 「怎么样？　去洗澡之前要%TEXTR("做一些H的事情/稍微做一些色色的事情/来一发")%吗？」
				PRINTFORML 「啊、当然在浴室里面%TEXTR("做H的事情/缠绵一会/啪啪啪")%也是可以的哟~♪」
			CASE 8
				SIF !TALENT:PLAYER:童貞
					GOTO KOJO_DAILY_K11_LOOP1
				PRINTFORML 「打～搅～啦~♪　到了%CALLNAME:TARGET%酱的表演时间了哟~」
				PRINTFORML 「虽然对%TEXTR("童貞/无经验/处男")%的主人来说刺激太强了也说不定、总之请和%CNAME("一人称")%交往♪」
		CASEELSE
			GOTO KOJO_DAILY_K11_LOOP1
		ENDSELECT
	ENDIF
ELSE
	; 昼
	VARSET LOCALS

	IF PLACE("自宅")
		; 昼の自宅
		;IF TALENT:恋慕
		;ELSE
		;ENDIF
		SELECTCASE RAND:10
			CASE 0
				PRINTFORML 「♪～　♪～」
				PRINTFORML 　%CALLNAME:TARGET%哼着小曲翻看着杂志……
			CASE 1
				PRINTFORML 「唔……」
				PRINTFORML 　不知为何面带难色的%CALLNAME:TARGET%透过窗户注视着外面的天空。
			CASE 2
				PRINTFORML 「私、作为一个生物比动物更加接近自然……」
				PRINTFORML 「避孕什么的、不要太在意那种事情哦」
			CASE 8
				PRINTFORML 「难得的假期、不想一起出去散步吗？」
				PRINTFORM 「
				FOR LCOUNT, 0, 3
					PRINTFORM %TEXTR("H的/工口的/LOVE/“休息”用/约会的时候去的/情侣专用的")%%TEXTR("旅馆/施設/場所")%什么的
				NEXT
				PRINTFORML 怎么样？」
			CASE 9
				PRINTFORML 「校舍里{RAND:2 + 1}在一起。后山的灌木丛里{RAND:3 + 1}也在」
				PRINTFORM 「即使是寝室里也有{RAND:5 + 1}黏在一起呢。还有的话就是……
				SELECTCASE RAND:10
					CASE 0
						PRINTFORM 哦哈、这可真是%TEXTR("禁忌的/禁断的")%组合啊。
						IF RAND:2
							IF RAND:2
								PRINTFORM %TEXTR("姐姐/大姐姐/欧内酱")%和%TEXTR("弟弟/小弟弟/欧豆豆君")%
							ELSE
								PRINTFORM %TEXTR("哥哥/大哥哥/欧尼酱")%和%TEXTR("妹妹/小妹妹/一抹多")%
							ENDIF
							PRINTFORM %TEXTR("呐/捏")%
						ELSE
							IF RAND:2
								PRINTFORM 和%TEXTR("＿/暴露的/色色的/令男人兴奋的/人妻")%女教師
								PRINTFORM %TEXTR("＿/在教室里/在空教室里/在医务室里/在教员宿舍里")%
								PRINTFORM 进行%TEXTR("＿/個人/无套性交/性教育的")%%TEXTR("补习/课程/練習/考试")%
								SIF RAND:10 < 3
									PRINTFORM 。而且女教師那一边%TEXTR("已经湿了/带着痴女的气场/非常认真")%呐
							ELSE
								PRINTFORM %TEXTR("＿/中学/小学")%女学生和%TEXTR("＿/教師/用務員/外部講師")%在
								PRINTFORM %TEXTR("床の上/空き教室/焼却炉裏/体育倉庫")%で
								PRINTFORM 进行着%TEXTR("個人/特別/H的/色色的/中出的")%%TEXTR("補修/授業/测试")%呢
								SIF RAND:10 < 3
									PRINTFORM 。……哦哦、女孩子那一边%TEXTR("在哗啦哗啦地流着淫水/啊嘿啊嘿地呻吟着坏掉了/快要去了")%哦？
							ENDIF
						ENDIF
					CASE 9
						LOCAL:0 = RAND:9 + 1
						LOCAL:1 = RAND:9 + 1
						PRINTFORM おおぅ、%TEXTR("廃校舎の廁所/体育倉庫/機械室")%のコレ
						IF ABS(LOCAL:0 - LOCAL:1) > 6
							IF LOCAL:0 == 1
								; 男一人
								; ハーレム or 逆リンカーン
								IF RAND:4
									PRINTFORM 这就是所谓的后宫吧。
									PRINTFORM 惊人的是{LOCAL:0 + LOCAL:1}Ｐ哟{LOCAL:0 + LOCAL:1}P！
								ELSE
									PRINTFORM 竟然是榨精哦、榨～精～现～场~！
									PRINTFORM %TEXTR("＿/中学的/小学的")%男孩子被%TEXTR("中学/高中/大学")%的
									IF RAND:2
										IF RAND:2
											PRINTFORM %TEXTR("田径/游泳/篮球/网球/自行车/馬術/美術/吹奏楽/舞蹈")%%TEXTR("部/俱乐部/团")%的
										ELSE
											PRINTFORM %TEXTR("学生会/运动部联盟/文化部联盟")%的
										ENDIF
										PRINTFORM %TEXTR("女孩子/女学生/大姐姐")%
									ELSE
										PRINTFORM %TEXTR("＿/体育")%教師的%TEXTR("大姐姐/阿姨/人妻")%
									ENDIF
									PRINTFORM 们%TEXTR("袭击了/抓住了/疼爱着")%哟
								ENDIF
							ELSEIF LOCAL:1 == 1
								; 女一人
								; 逆ハ or リンカーン
								;IF RAND:10
								IF 1
									PRINTFORM 、难道、这就是传说中的逆后宫!?　好厉害……
									PRINTFORM %TEXTR("那样土里土气的/就像女王大人一样的")%%TEXTR("女孩子/女学生/女教師")%
									PRINTFORM %TEXTR("全裸着/穿着工口的内衣/奴役着/带着假阴茎")%
									PRINTFORM 责骂着%TEXTR("没用的/颤抖的/帅气的/一股废材气息的")%男人们哟
								ELSE
									; ガチリンカーンは無理や……
									PRINTFORM
								ENDIF
							ELSE
								; 乱パ、人数不均衡
								PRINTFORM %TEXTR("乱啪/乱交")%%TEXTR("＿/派对")%呢。但是—
								IF LOCAL:0 > LOCAL:1
									PRINTFORM %TEXTR("男孩子/男人/肉棒")%
								ELSE
									PRINTFORM %TEXTR("女孩子/女人")%
								ENDIF
								PRINTFORM 好像不够的样子呐？
							ENDIF
						ELSE
							; 乱パ
							PRINTFORM %TEXTR("＿/混着老师的")%%TEXTR("乱啪/乱交")%%TEXTR("＿/派对")%捏~。
							PRINTFORM 大家都那么舒服快乐的话比什么都好哦
						ENDIF
				CASEELSE
					PRINTFORM 完全没有H的事件呐
				ENDSELECT
				PRINTFORML 」
				PRINTFORML 　露出淫笑的表情的%CALLNAME:TARGET%就这样喃喃自语着、满意地点点頭。
				PRINTFORML 「呼呼。如果拜托%CNAME("一人称")%的话、实时监视学园内的虫子们也是可以做到的哟。」
				IF RAND:100 < 5
					PRINTFORML 「哦呀呀？　稍微失礼一下捏？　……为崭新的生命赐予祝福ー」
					PRINTFORML 　闭上双眼双手合十的%CALLNAME:TARGET%的周围飞舞出众多的磷光、之后便消失了。
					PRINTFORML 「嗯呼呼呼……要多生一些健康的孩子哟ー♪」
				ENDIF
		CASEELSE
			GOTO KOJO_DAILY_K11_LOOP1
		ENDSELECT
	ELSEIF PLACE("部室")
		IF TALENT:恋慕
		ELSE
			SELECTCASE RAND:10
				CASE 0
					IF COND("胎内の精液量") >= 50000
						PRINTFORML 「～♪」
						PRINTFORML 　%CALLNAME:TARGET%%TEXTR("满足地/看起来很幸福地")%抚摸着自己的下腹……
					ELSE
						; 物足りない
						IF COND("妊娠中")
						ELSE
							IF FIRST_EV("絶頂：Ｖ中出し") == 0
								; 中出され経験无
								PRINTFORM 「说起来？　%CNAME("一人称")%的%TEXTR("这里/这里/深处/小穴")%
								PRINTFORML 没有用%TEXTR("精液/精子/肉棒牛奶/妊娠汁/精子米浆")%%TEXTR("注射进去/灌进去/喂饱")%的打算吗？」
								PRINTFORML 　%CALLNAME:TARGET%一边妖媚地扭着腰一边诱惑着这边。
							ELSE
								PRINTFORM 「%TEXTR("姆~/那个ー")%……
								IF ABS(DAY - CFLAG:最新中出し日) >= 3
									PRINTFORM 已经{DAY - CFLAG:最新中出し日}日没有被宠幸了……
									PRINTFORML %TEXTR("深处/子宮")%%TEXTR("变得很干燥了/快要冬眠了")%。真过分~。欺负人~」
								ELSE
									PRINTFORML 感觉还是有点欲求不满呐……不想来做一些%TEXTR("H的/色色的/啪啪啪/造小孩")%的事情吗？」
								ENDIF
							ENDIF
						ENDIF
					ENDIF
				CASE 1
					IF CHARA_NUM("室内の邪魔者") > 4 && FIND_COND("現在存在")
						PRINTFORML 「%TEXTR("＿/今天的/突然/心跳不已的")%%CALLNAME:TARGET%酱出现啦！」
						VARSET LOCAL
						;現在いる中から、你でも莉雅拉でもない人を一人選ぶ
						LOCAL = FIND_COND("現在存在")

						; 格子対象が同室に居る
						PRINTFORML 「唔唔唔……%TEXTR("我理解状况了/知道啦/进来了哟/检查完毕/偷偷摸摸的可不行哦")%%TEXTR("＿/♪")%」
						LOCALS = %CALLNAME:LOCAL%酱

						; 格子内容は排他だったりそうでなかったり、割とテキトー
						; 順次追加。でもTalkに移した方がいいかなー……？
						IF COND("安全日", LOCAL)
							PRINTFORML 「今天是%LOCALS%%TEXTR("遗憾的/做了也没用的/没法生小孩的")%日子呢……」
							PRINTFORM 「啊、但是
							IF RAND:3
								PRINTFORM 如果因为%CALLNAME:PLAYER%的%TEXTR("魔法大鸡鸡/魔法大肉棒/超絶技术/愛")%而排卵了的话
							ELSE
								PRINTFORM 如果有药的话
							ENDIF
							PRINTFORML 也可以变成淫乱的小母狗哦……？」
						ELSEIF COND("危険日", LOCAL)
							PRINTFORML 「%LOCALS%啊、想要变成%TEXTR("母親/妈妈")%捏♪」
							PRINTFORM 「务必务必♪　用%TEXTR("浓郁的/汩汩的/濃厚的/烫烫的/新鮮的/最健康的")%%TEXTR("精液/肉棒牛奶/妊娠汁")%を
							PRINTFORML %TEXTR("注入/浇灌/biu～biu～地射在")%里面哦♪」
							PRINTFORML 「诶嘿嘿。这样就能生很多很多健康的孩子ー♪」
						ELSEIF COND("排卵中", LOCAL)
							PRINTFORML 「%TEXTR("嗯哼~/poi~/哇啊")%♪　真好啊真好啊、%TEXTR("GREAT/太棒了/完美")%♪」
							PRINTFORML 「今天啊、是让%LOCALS%%TEXTR("怀上小孩/妊娠/怀孕/变成母亲/变成妈妈")%的床的日子哦♪」
							PRINTFORML 「唔呼呼。请以怀孕为目标在里面大量中出哟♪」
						ELSEIF COND("妊娠中：妊娠発覚直前", LOCAL)
							PRINTFORML 「哇、%TEXTR("恭喜了/congratulations")%♪　%LOCALS%%TEXTR("怀上了/妊娠了/着床")%啦♪」
							PRINTFORML 「为了能生出%TEXTR("元気的/健康的/可愛的")%小宝宝。为新的生命献上祝福♪」
						ELSEIF COND("妊娠中：妊娠発覚済み", LOCAL)
							PRINTFORML 「%LOCALS%母子都很健康♪」
							SIF RAND:4 == 0
								PRINTFORML 「大肚子%TEXTR("play/sex/做爱")%虽然也没有问题、但是希望能温柔一点」
						ELSEIF COND("妊娠中：臨月", LOCAL)
							PRINTFORML 「马上就要诞生新的生命了。加油呀、%LOCALS%」
						ENDIF
						;服を着ている状態
						IF EQUIP:LOCAL:服
							IF EQUIP:LOCAL:胖次 && EQUIP:LOCAL:胸罩
								; 内衣着用
								PRINTFORML 「%LOCALS%今天的%TEXTR("内衣/搭配")%是……」
								PRINTFORML 「%BRA(LOCAL)%和%PANTIES(LOCAL)%的组合」
							ELSEIF CHECK_CLO("没穿内褲", LOCAL)
								; 没穿内褲
								PRINTFORML 「%LOCALS%啊～想试试%TEXTR("no胖次/不穿胖次")%哦？　知道了吗？」
							ELSEIF EQUIP:胸罩 == 0
								; 无胸罩
								PRINTFORML 「%LOCALS%啊～想试试不穿文胸哦？　知道了吗？」
							ELSE
								; 没穿内褲 无胸罩
								PRINTFORML 「%LOCALS%现在正是、no胖次・noBRA的状态哦……是成熟的上级者哟」
							ENDIF
						ENDIF
					ENDIF
				CASE 2
					PRINTFORML %CALLNAME:TARGET%悠闲地坐在沙发上……
					IF EQUIP:裙
						PRINTFORM %TEXTR("毫无防备/毫无羞耻/毫不顾忌")%地张開大腿
						IF RAND:5 || COND("胖次形状確認")
							IF CHECK_CLO("没穿内褲")
								;阴部丸見え
								IF CHECK_CLO("Ｖ露出")
									PRINTFORM 什么都没有穿着的股间
								;连褲襪越し
								ELSE
									PRINTFORM 微微地向%OUTER(TARGET, "略")%突起的阴唇
								ENDIF
								CALL SETFLAG_DAILY, "胖次形状確認"
							ELSEIF CHECK_PANTIES("Ｖ露出") && COND("胖次形状確認")
								PRINTFORM 、開洞が無い%PANTIES(TARGET, "胖次")%を穿いているおかげで%TEXTS("割れ目")%が
							ELSE
								PRINTFORM %PANTIES(TARGET)%
								CALL SETFLAG_DAILY, "胖次色確認"
							ENDIF
							PRINTFORML %TEXTR("完完全全地/")%被看到了……
						ELSE
							PRINTFORML 似乎能看到内裤的样子……
						ENDIF
					ENDIF
				CASE 3
					PRINTFORM %CALLNAME:TARGET%很在意%CALLNAME:PLAYER%的视线
					IF EQUIP:裙
						PRINTFORML 轻轻地拉起%SKIRT(TARGET, "略")%的两端。
						PRINTFORML 「%TEXTR("之后不会便宜你的哦/看得到吗/想看吗")%ー？　看吧看吧♪」
						IF CHECK_CLO("没穿内褲")
							PRINTFORM 从%SKIRT(TARGET, "略")%下面显现出来的是、
							;阴部丸見え
							IF CHECK_CLO("Ｖ露出")
								PRINTFORM 一丝不挂的
							;连褲襪越し
							ELSE
								PRINTFORM 朝%OUTER(TARGET, "略")%突起而且有些湿漉漉的
							ENDIF
							PRINTFORM %CALLNAME:TARGET%的%TEXTR("秘所/股間/小穴")%……
							CALL SETFLAG_DAILY, "胖次形状確認"
						ELSE
							PRINTFORML 今日是%PANTIES(TARGET)%特意选的……
							CALL SETFLAG_DAILY, "胖次色確認"
						ENDIF
					ELSE
						PRINTFORML 背向这边、扭动着腰诱惑着……
					ENDIF
				CASE 7
					SIF COND("危険日") == 0
						GOTO KOJO_DAILY_K11_LOOP1
					PRINTFORML 　%CALLNAME:TARGET%摆出一副%TEXTR("发烧了一样的/淫荡的")%%TEXTR("笑脸/表情")%用手指抚摸着自己的下腹……
					PRINTFORML 「%TEXTR("哈啊/唔")%……%TEXTR("这里好难过/这里好寂寞")%」
					PRINTFORML 「不想快点%TEXTR("来帮帮忙/推倒/牵出去操")%吗……？」
				CASE 8
					PRINTFORM 「
					FOR LCOUNT, 0, RAND:4 + 1
						PRINTFORM %TEXTR("……/――")%
					NEXT
					PRINTFORML 」
					PRINTFORM 　%CALLNAME:TARGET%%TEXTR("认真地/无聊地")%
					IF RAND:4
						LOCALS = 雑誌
						LOCALS:1 = %KOJO_K11_LOCAL_STRING("雑誌：标题")%
					ELSE
						LOCALS = 本
						LOCALS:1 = %KOJO_K11_LOCAL_STRING("本：标题")%
					ENDIF
					PRINTFORML 翻看着『%LOCALS:1%』类型的%LOCALS%……
				CASE 9
					IF CHARA_NUM("室内の邪魔者") > 4
						PRINTFORML 「眼福眼福、真好呐真好～♪」
						VARSET LOCAL
						FOR LCOUNT, 1, CHARANUM
							IF COND("現在存在", LCOUNT)
								SIF TALENT:LCOUNT:恋慕 || TALENT:LCOUNT:淫乱
									LOCAL += 1
							ENDIF
						NEXT
						IF LOCAL >= 3
							PRINTFORML 「%TEXTR("欲望满满的/狩猎中的/发情的")%%TEXTR("女孩子/雌性/女人")%的表情真是最棒了……♪」
						ELSE
							PRINTFORML 「大家都是那么出众的女孩子、%CNAME("一人称")%感觉很高兴哦～」
						ENDIF
					ELSE
						PRINTFORML 「这个房间的气氛、无论什么时候都感觉很棒呢～」
						PRINTFORML 「因为那么浓厚的雄性和雌性的%TEXTS("气味")%、%CNAME("一人称")%的%TEXTR("胸/屁股/小穴/淫穴/子宮")%兴奋地疼得不得了呀」
					ENDIF
				CASEELSE
					GOTO KOJO_DAILY_K11_LOOP1
			ENDSELECT
		ENDIF
	ELSE
		IF TALENT:恋慕
		ELSE
			SELECTCASE RAND:10
				CASE  0
					SIF SAVESTR:現在位置 != "做爱房"
						GOTO KOJO_DAILY_K11_LOOP1
					PRINTFORML 「这样藏起来的地方一定有很多吧ー」
					PRINTFORML 「如果有空的话、下次请一定要%TEXTR("详细地介绍一下/带我到处看看")%」

				CASE  1
					SIF SAVESTR:現在位置 != "做爱房"
						GOTO KOJO_DAILY_K11_LOOP1
					PRINTFORML 「把%CNAME("一人称")%%TEXTR("带到/拐到")%这样的地方了呢♪」
					PRINTFORM 「已经%TEXTR("期待/兴奋")%得不得了哟ー
					CALL HEARTMARK
					PRINTFORML 」
				CASE  2
					SIF LOCALS != "体育倉庫"
						GOTO KOJO_DAILY_K11_LOOP1
					PRINTFORML 「灰尘稍微有点多呢……嘛、也可以吧♪」
				CASE  3
					SIF LOCALS != "体育倉庫"
						GOTO KOJO_DAILY_K11_LOOP1
					PRINTFORML 「要做的话请快点哦、要不然准备下午课的家伙就要来了哦？」
					PRINTFORM 「因ー此ー啊ー♪　%CALLNAME:TARGET%酱推荐
					SELECTCASE RAND:3
						CASE 0
							PRINTFORM 用手撑在墙壁上、从后面沙沙沙地
						CASE 1
							PRINTFORM 面对面地站着啪库啪库地
						CASE 2
							PRINTFORM 坐到那边的垫子上准备H到时间差不多用尽地
					ENDSELECT
					PRINTFORML 插到女孩子的小穴里的体位哦……怎么样？」

				CASE  9
					PRINTFORML 「选择好合适的地点可是很重要的哦～」
				CASE 99
					PRINTFORML
			CASEELSE
				GOTO KOJO_DAILY_K11_LOOP1
			ENDSELECT
		ENDIF
	ENDIF
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K11
#DIM LINE_MEMO
$K11_SLEEP_LP1
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
SELECTCASE STR:日常イベント名
	;CASE "夜袭口交"
	;CASE "夜袭正常位"
	;CASE "夜袭后背位睡姦"
	;CASE ""
	;CASE "睡眠姦接吻"
	;CASE "睡眠姦口交"
	CASE "睡眠姦正常位", "睡眠姦寝后背位"
		LOCAL = LINECOUNT

		; 初回のメモ発見
		IF CEVENT("睡眠姦：発覚") && !CEVENT("睡眠姦：メモ発見") && CSTR:没収済胖次 != ""
			SPLIT CSTR:没収済胖次, "/", LOCALS
			PRINTFORMW 在%CALLNAME:TARGET%的%LOCALS:0%的时候、发现了一张夹在腰侧的小纸条……
			PRINTFORMW 纸上写着小小的可爱的文字……
			CALL K11_DAYLYCOM_SLEEP_SEX_MENU
			CALL SET_CEVENT("睡眠姦：メモ発見")
			CALL SET_CEVENT("日常：睡眠姦メモ")
		; ２回目以降のメモ
		ELSEIF !CEVENT("日常：睡眠姦メモ") && CEVENT("睡眠姦：メモ発見") && CSTR:没収済胖次 != ""
			SPLIT CSTR:没収済胖次, "/", LOCALS
			PRINTFORMW %CALLNAME:TARGET%穿着的%LOCALS:0%里夹着一张纸条……
			CALL K11_DAYLYCOM_SLEEP_SEX_MENU
			CALL SET_CEVENT("日常：睡眠姦メモ")
		ENDIF

		SIF LOCAL != LINECOUNT
			GOTO KOJO_SLEEP_K11_SKIP1

		; 汎用
		LINE_MEMO = LINECOUNT
		IF COND("熟睡")
			SELECTCASE RAND:10
				CASE 0
					CALL PRINT_STR, "「…………」_W"
					PRINTFORML 　即使%CALLNAME:PLAYER%怎样用肉棒撞击着腰部、%TEXTR("豊満的/凶暴的/凶悪的")%胸部如何剧烈地摇晃、%CALLNAME:TARGET%都没有醒来的迹象……
				CASE 1
					CALL PRINT_STR, "「…………っ_HH_」_W"
					CALL PRINT_STR, "「……_H_　……_H_」_W"
					PRINTFORML 　挤进膣内的肉棒一用前端欺负着%CALLNAME:TARGET%的子宫口、%CALLNAME:TARGET%就在梦中发出一声甜蜜的娇喘……
			ENDSELECT
		ELSEIF COND("打瞌睡")
			SELECTCASE RAND:10
				CASE 0
					CALL PRINT_STR, "「啊……_H_　嗯……_H_」_W"
					PRINTFORML 　从%CALLNAME:TARGET%的口中漏出了舒服的娇喘声……
				CASE 1
					CALL PRINT_STR, "「…………啊_HH_」_L"
				CASE 2
					CALL PRINT_STR, "「嗯……唔……_H_　啊……_H_」_W"
					PRINTFORML 　蠕动着的%CALLNAME:TARGET%的阴道、因为被插入了异常的异物、紧紧地抓住了%CALLNAME:PLAYER%的肉棒……
			ENDSELECT
		ELSE
			; 快要醒了
			SELECTCASE RAND:10
				CASE 0
					CALL PRINT_STR, "「呼、啊……_H_　嗯_H_　啊……啊_H_」_W"
					PRINTFORML 　至少稍微地动一动腰、%CALLNAME:TARGET%就无意识地露出了開心的睡颜……
				CASE 1
					CALL PRINT_STR, "「啊……_H_　嗯♪　哈、啊……_H_」_W"
					PRINTFORML 　还在睡着的%CALLNAME:TARGET%、仿佛是为了防止%CALLNAME:PLAYER%逃走一样、用腿紧紧地夹住%CALLNAME:PLAYER%的腰……
				CASE 2
					CALL PRINT_STR, "「～～～～っ_HH_HH_」_W"
					CALL PRINT_STR, "「…………啊_H_」_W"
					PRINTFORML 　一%TEXTR("用力地/乱暴地")%挖掘%CALLNAME:TARGET%最深的地方的话、身体仿佛要被弄坏的%CALLNAME:TARGET%就開始从口中吐出甜美的呻吟……
				CASE 3
					CALL PRINT_STR, "「………………_H_」_W"
					PRINTFORML 　配合着%CALLNAME:PLAYER%有节奏地打击着内部的腰、%CALLNAME:TARGET%发出了细碎的梦呓……
			ENDSELECT
		ENDIF

		SIF LINE_MEMO == LINECOUNT
			GOTO K11_SLEEP_LP1

	CASEELSE
		PRINTFORML 「啊……　那样子、不要……」
		$KOJO_SLEEP_K11_LP2
		SELECTCASE RAND:10
			CASE 0
				PRINTFORML 「恶魔、魔鬼……明明一開始“强迫”就是不行的……」
			CASE 1
				PRINTFORML 「"神的愤怒"……降临在我的身上吧……为了我的精灵同胞……」
			CASE 2
				PRINTFORML 「用"闪电"……狠狠地惩罚……我的小嘴……」
			CASE 3
				PRINTFORML 「呼啊ー咕呼咕呼哦咕ー啵呼咕ー……」
			CASE 4
				PRINTFORML 「太、太、太粗…（鲁）………」
			CASE 5
				PRINTFORML 「要去了？……我的高潮在哪里……这里……？」
			CASE 9
				PRINTFORML 「森林……森林竟然一片也没有了……还被掳走做这么过分的事情……」
		CASEELSE
			GOTO KOJO_SLEEP_K11_LP2
		ENDSELECT
		PRINTFORML 「……%TEXTR("库/呼/Zzz")%」
ENDSELECT
$KOJO_SLEEP_K11_SKIP1

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;-------------------------------------------------
@KOJO_DAILYCOM_K11, ARGS
;これは主にFOR-NEXTのCOUNT用
#DIM LCOUNT
;打招呼
#DIMS GREETING
#DIM CHOICE
#DIMS CHOICES
#DIM LTARGET
#DIM LINE_MEMO

$LEARA_DAYLYCOM_LP1
LINE_MEMO = LINECOUNT

SELECTCASE ARGS
CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"
	;地の文を出す
	CALL DAILY_MESSAGE, "归途"
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
	RETURN 0
;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
CASE "休憩"
	;台詞を書いたらRETURN 0を消してください
	RETURN 0
	IF PLACE("自宅")
		IF COND("夜")
			;お浴室
			IF PLACE("居間")
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ELSE
			PRINTFORMW
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		PRINTFORMW
	;場所移動後
	ELSE
		PRINTFORMW
	ENDIF
CASE "学園での日常"
	RETURN 0
CASE "清洁口交：お誘い"
	RETURN 0
CASE "清洁口交：射精後"
	RETURN 0
CASE "清洁口交：断った"
	RETURN 0
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = 晚上好%TEXTR("＿/～")%%TEXTR("＿/♪")%
	ELSEIF COND("昼")
		GREETING = 日安%TEXTR("＿/～")%%TEXTR("＿/♪")%
	ELSE
		GREETING = 早上%TEXTR("~/ー")%好%TEXTR("＿/ー/啊")%す%TEXTR("＿/♪")%
	ENDIF
	;你に先に打招呼をされた
	IF CFLAG:打招呼した == 0
		PRINTFORMW 「嗯嗯、%GREETING%」
	ELSE
		PRINTFORMW 「%GREETING%」
		IF COND("昼") && COND("危険日") + COND("排卵中")
			PRINTFORMW 「%TEXTR("＿/顺便说一下/说起来")%、今日是%CNAME("一人称")%期待的%TEXTR("HAPPY的日子/幸福的日子/高兴的日子")%哟♪」
			PRINTFORM 「所以、一定想请%CNAME("二人称")%%TEXTR("一起来啪啪啪/好好地抱着我/做一些H的事情/在里面中出/给予我怀孕的礼物/提供一些精种")%
			CALL HEARTMARK
			PRINTFORMW 」
			PRINTFORMW 「等着%CNAME("二人称")%哟♪　啾♪」
		ENDIF
	ENDIF
CASE "叫醒"
	PRINTFORMW

CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖"
		SELECTCASE RAND:5
			CASE 0
				PRINTFORMW 「怎么了吗、这么突然」
				PRINTFORMW 「嗯。嘛、虽然也不是很讨厌」
				PRINTFORMW 「……无论多少次都会提供色色的服务的哦？」
			CASE 1
				SIF TALENT:恋慕 == 0
					GOTO LEARA_DAYLYCOM_LP1
				CALL PRINT_STR, "「～～～～っ_HH_HH_」_W"
				PRINTFORMW %CALLNAME:TARGET%红着耳朵注视着%CALLNAME:MASTER%……
			CASE 2
				CALL PRINT_STR, "「诶嘿嘿～……这样吗？_H_」_W"
				PRINTFORMW 「想要钻空子吃豆腐的心情%CNAME("一人称")%完全明白……所以并不讨厌哦♪」
				PRINTFORMW 「作为回礼、今日会努力地%TEXTR("奉仕主人的/做色色的事情的")%」
			CASE 3
				SIF !COND("胖次形状確認")
					GOTO LEARA_DAYLYCOM_LP1
				SIF EQUIP:裙 == 0
					GOTO LEARA_DAYLYCOM_LP1
				PRINTFORMW 「呼诶？　……讨厌、突然之间做什么啊♪」
				CALL PRINT_STR, @"「这件%PANTIES(TARGET, "略")%、就那么好看吗……？_H_」_W"
				PRINTFORMW 「……呼呼呼。那样的话%TEXTR("再多看一些/再仔细地看/看到尽兴为止")%也没関系哦♪」
				PRINTFORMW %CALLNAME:TARGET%稍微有点害羞地自己掀起了%SKIRT(TARGET)%、让%CALLNAME:PLAYER%看了%PANTIES(TARGET)%……
		CASEELSE
			GOTO LEARA_DAYLYCOM_LP1
		ENDSELECT
	CASE "甜言蜜语"
		IF TALENT:恋慕
			PRINTFORML 「……」
			IF RAND:3
				PRINTFORMW 「……欸、欸嘿嘿。欸嘿☆」
				PRINTFORMW 「爱爱的技术真好呐、这样的赞美。唔呼呼」
			ELSEIF RAND:2
				PRINTFORMW 「那、那样的赞美、不行、不行、不行」
				PRINTFORMW 「……%TEXTR("又要变得湿乎乎的了/又要变得想要了/子宫又在一抽一抽地疼了")%」
			ELSE
				PRINTFORMW 连耳朵都红得不得了的%CALLNAME:TARGET%沉默地抱着%CALLNAME:MASTER%。
			ENDIF
			PRINTFORMW
		ELSEIF CALCF("甜言蜜语成功")
			PRINTFORM 「嗯~、真好呐。
			IF RAND:2
				PRINTFORM %CNAME("一人称")%
			ELSE
				PRINTFORM %CALLNAME:TARGET%酱
			ENDIF
			PRINTFORMW 的好话说了那么多。不知不觉中两腿之间已经变得湿漉漉的了」
			PRINTFORMW 「换句话说、要去床上吗？　被推倒也可以哦？」
		ELSE
			PRINTFORMW 「不行——。不行不行不行——。这可是女孩子的底线ー」
			PRINTFORMW 「再这样下去的话、子宮又要%TEXTR("＿/叽溜叽溜/啾啾/咕啾咕啾")%%TEXTR("高兴起来/放松下来")%就像%TEXTR("在说着要继续努力侍奉/要高潮了")%一样了啦」
		ENDIF
	CASEELSE
		; 特殊事件
		LCOUNT = LINECOUNT
		IF !CEVENT("送禮：お守り") && RAND:2
			IF MARK:屈服刻印 >= 1 && COND("陰毛") >= 5
				CALL PRINT_STR, "「啊、对了。给你这个、礼物哟_H_」_W"
				PRINTFORMW 稍稍红着脸颊的%CALLNAME:TARGET%打開了准备递过来的包、从里面拿出了布制（？）的护身符……
				CALL PRINT_STR, @"「%CALLNAME:TARGET%酱精心手工制作的护身符_H_」_W"
				CALL PRINT_STR, "「有什么效果?……说的也是呢ー……」_W"
				CALL PRINT_STR, "「嗯ー……無病息災、学業成就、还有精力増進_H_　等等哟_H_」_W"
				CALL PRINT_STR, "「虽然编制手法只是勉勉强强的程度、但是是用了特殊的材料饱含着爱意做出来的东西哦♪」_W"
				CALL PRINT_STR, "「带在身上的话、保证绝对会产生放松以上的效果哟ー_H_」_W"
				CALL SET_CEVENT, "送禮：お守り"
				; [145] 剃毛 で [ 0] 剃得精光 を選択したのと同じ値
				BASE:陰毛 = 200
			ENDIF
		ENDIF

		IF !CEVENT("睡眠姦：発覚")
			; 25%で発覚
			IF EXP_GAIN("睡眠姦経験") && RAND:4 == 0
				CALL PRINT_STR, "「啊、稍微有一些想问的事情ー、可以的吧？」_W"
				PRINTFORMW %CALLNAME:TARGET%微笑着说着话……
				CALL PRINT_STR, @"「%CALLNAME:TARGET%酱、虽然刚刚稍微睡了一小会午觉呢ー……」_W"
				CALL PRINT_STR, "「你……是不是趁机做了一些恶作剧啊？」_W"
				CALL PRINT_SELECT, "是/……"
				CALL PRINT_STR, "「啊、也不是说现在很生气哟？」_W"
				CALL PRINT_STR, "「虽然记得不是很清楚ー、总觉得做了很不错的梦ー」_W"
				CALL PRINT_STR, "「起来的时候感觉股间咕啾咕啾的、肚子里面能感觉到好多好多暖暖的肉汁ー……」_W"
				CALL PRINT_STR, "「……呼呼_H_　总的来说、睡得超舒服的哟ー？」_W"
				PRINTFORMW 呼地、满足地吐出一口气的%CALLNAME:TARGET%、微笑着用手指指着自己子宫的位置……
				CALL PRINT_STR, "「但是呀ー、男人抱着睡得死死的毫无知觉的女性到底是打算干什么呢？」_W"
				CALL PRINT_STR, "「不会迎合着动腰ー、没有办法满足的吧？」_W"
				CALL PRINT_STR, "「……就那样可以吗？　唔ー、这也是因缘吧」_W"
				CALL PRINT_STR, @"「嘛、就像老师和%CNAME("二人称")%的関系？　如果这边是老师的话应该可以原谅这种事情的吧？」_W"
				CALL PRINT_STR, @"「……总之、把睡着的%CALLNAME:TARGET%老师的小穴、擅自地拿来弄得乱七八糟也是可以的哟？」_W"
				CALL PRINT_SELECT, "会好好地请求过后再使用的/会擅自地拿来用的"
				IF RESULT == 0
					CALL PRINT_STR, "「啊哈_H_　真是诚实呢ー_H_」_W"
					CALL PRINT_STR, @"「那么作为替代、%CALLNAME:TARGET%酱的小肉穴、到底被使用了多少次、之后一定要好好地告诉%CNAME("一人称")%捏？」_W"
					CALL PRINT_STR, "「这是跟老师约定哟ー……_H_」_W"
				ELSE
					CALL PRINT_STR, @"「诶诶～？　难道说会啵啾啵啾地强暴睡了着的%CALLNAME:TARGET%酱的小穴吗？」_W"
					CALL PRINT_STR, @"「真是非常过分的男人呐ー……_H_　啊哈……_HH_HH_」_W"
				ENDIF
				CALL SET_CEVENT("睡眠姦：発覚");
			ENDIF
		ENDIF

		; 特殊事件発生時は汎用口上をスキップ
		SIF LCOUNT != LINECOUNT
			GOTO KOJO_K11_DAYLYCOM_SKIP1

		SELECTCASE RAND:20
			CASE 0
				PRINTFORML 「精灵是非暴力的素食主义者、这样的说法什么时候传得这么广了？」
				IF RAND:2
					PRINTFORMW 「如果说肉食是野蛮的话、森林里的熊老师可是会哭的哦ー……」
				ELSE
					PRINTFORMW 「吾之根枝、汝之指骨。一直以来都是这样报复敌人的呢……」
				ENDIF

			CASE 1
				; 莉雅拉酱情報
				; 先に情報を作る
				LOCAL = KOJO_K11_DAILY_TALK("Talk：情報")
				PRINTFORMW 「这里是%TEXTR("＿/今日份的/突发的/令人兴奋的")%%CALLNAME:TARGET%酱%TEXTR("情報/Information")%哟%TEXTR("＿/～")%%TEXTR("＿/っ/♪")%」
				FOR LCOUNT, 0, LOCAL
					PRINTFORMW %RESULTS:LCOUNT%
				NEXT

			CASE 2
				; 莉雅拉酱のプライベート情報そのいち
				PRINTFORMW 「呼诶？　%CALLNAME:TARGET%的家在哪里吗？」
				PRINTFORMW 「嗯ー……非要是说的话这一整个学院都是私的家捏」
				PRINTFORMW 「你看嘛、再怎么说私也是像学校的守护神（？）那样差不多的东西」

			CASE 6
				SIF COND("妊娠中") == 0
					GOTO LEARA_DAYLYCOM_LP1
				CALL PRINT_STR, "「～～♪」_W"
				PRINTFORMW %CALLNAME:TARGET%看起来高兴地抚摸着自己鼓起来的下腹、轻轻地哼着歌……

			CASE 7
				PRINTFORMW 「实际上、%CALLNAME:TARGET%酱、并不讨厌饮精」
				PRINTFORMW 「当然、如果是从嘴里射出来的话是不可能%TEXTR("怀孕/妊娠/怀上小宝宝")%的呢……」
				PRINTFORMW 「但是一想到健康的小蝌蚪们全部都会变成%CNAME("一人称")%的营养、就開始兴奋起来了」

			CASE 8
				; 胖次落とし
				SIF CHECK_PANTIES("繩系胖次") == 0
					GOTO LEARA_DAYLYCOM_LP1
				SIF COND("胖次形状確認") || CHECK_CLO("胖次露出") == 0
					GOTO LEARA_DAYLYCOM_LP1
				PRINTFORMW 不经意间传来的了微小的衣服摩擦的声音。
				PRINTFORMW 「%TEXTR("呀/啊/讨厌")%♪　%CNAME("胖次")%的%TEXTR("紐/绳子")%散開了♪」
				PRINTFORMW %CALLNAME:TARGET%之前站着的地方躺着一条%TEXTR("似乎是刚刚脱下来的/似乎不久前还一直被穿着的")%%PANTIES(TARGET)%……
				PRINTFORMW 「%TEXTR("那个/非常抱歉")%%TEXTR("＿/ぉ/ー")%、%TEXTR("能帮忙私捡起来吗/可以帮私捡回来吗")%？」
				PRINTFORM 把%TEXTR("还很温热/还残留着一些温度")%的胖次捡起来交给%CALLNAME:TARGET%之后、%CALLNAME:TARGET%
				PRINTFORMW 就在%CALLNAME:PLAYER%的眼前%TEXTR("像是故意给这边看一样/故意慢慢地/不慌不忙地")%穿上了胖次、重新系好胖次的绳子。
				PRINTFORMW 「这样就可以了。谢谢啦♪」
				PRINTFORMW %CALLNAME:TARGET%狡黠地笑着。
				CALL SETFLAG_DAILY, "胖次形状確認"

			CASE 9
				SIF CHARA_NUM("室内の邪魔者") == 0
					GOTO LEARA_DAYLYCOM_LP1
				LTARGET = FIND_COND("現在存在")
				SIF EQUIP:LTARGET:裙 == 0 || COND("胖次形状確認", LTARGET)
					GOTO LEARA_DAYLYCOM_LP1
				IF COND("起床中", LTARGET)
					PRINTFORM 　%CALLNAME:TARGET%靠近%CALLNAME:LTARGET%之后、%TEXTR("悄悄地/迅速地/毫不犹豫地")%
					PRINTFORMW 把%CALLNAME:LTARGET%的%SKIRT(LTARGET)%掀了起来。
					IF CHECK_CLO("没穿内褲", LTARGET)
						PRINTFORM 「%TEXTR("哦呀ー/哦呀呀/啊啦/嘛")%♪　%CALLNAME:LTARGET%酱、今天
						PRINTFORM %TEXTR("NO胖次/NO胖/没有穿/非常大胆")%哟
						CALL HEARTMARK
						PRINTFORMW 」
					ELSE
						PRINTFORM 「%TEXTR("呼呼ー/呼姆/吼ー")%、%CALLNAME:LTARGET%酱今天穿的%CNAME("胖次")%
						PRINTFORMW 是%PANTIES(LTARGET)%的啊ー」
					ENDIF
					PRINTFORMW 在因为突然袭击而吓得全身僵硬的%CALLNAME:LTARGET%的身后、%CALLNAME:TARGET%看起来很满足地点点頭。
					PRINTFORM 　露出来的
					IF CHECK_CLO("没穿内褲", LTARGET)
						PRINTFORM %TEXTS("阴部：視覚", LTARGET)%
					ELSE
						PRINTFORM %CALLNAME:LTARGET%的%TEXTR("内裤/胖次/小内内")%
					ENDIF
					PRINTFORMW 深深地烙印在了%CALLNAME:PLAYER%的眼中……
					PRINTFORMW ……最后终于反应过来的%CALLNAME:LTARGET%发出%TEXTR("小小的/可爱的/小动物一样的")%悲鸣、挣扎着从%CALLNAME:TARGET%的手中逃走了。
				ELSE
					; 睡眠中
					PRINTFORM 　%CALLNAME:TARGET%偷偷接近了%TEXTR("还在睡着的/还在讲着梦话的")%%CALLNAME:LTARGET%、
					PRINTFORMW 悄悄地把%SKIRT(LTARGET)%翻了起来。
					PRINTFORM 「%TEXTR("哦呀ー/哦呀呀/啊啦/嘛")%♪
					IF CHECK_CLO("没穿内褲", LTARGET)
						PRINTFORMW 今天%TEXTR("没有穿/是NO胖次/真是大胆")%捏♪」
						PRINTFORMW 正如%CALLNAME:TARGET%所说、%CALLNAME:LTARGET%的股间一条布片都没有看到。
					ELSE
						PRINTFORMW 今天的%TEXTR(CNAME("胖次"), "choice/select")%是%PANTIES(LTARGET)%啊%TEXTR("＿/ぁ/ー")%♪」
					ENDIF
					PRINTFORM 　正%TEXTR("欣赏着/观察着")%%CALLNAME:LTARGET%的
					IF CHECK_CLO("没穿内褲", LTARGET)
						PRINTFORM 胯股之间
					ELSE
						PRINTFORM %TEXTR("内裤/胖次")%
					ENDIF
					PRINTFORM 的%CALLNAME:TARGET%注意到了%CALLNAME:PLAYER%的视线之后
					PRINTFORMW %TEXTR("毫无顾忌地/天真地/自然地")%向%CALLNAME:PLAYER%这边招了招手。
					PRINTFORM 「%CALLNAME:LTARGET%酱醒来之前和%CNAME("一人称")%一起来開
					SIF CHECK_CLO("没穿内褲", LTARGET) == 0
						PRINTFORM %CNAME("胖次")%
					PRINTFORMW 鉴赏会怎么样？」
					CALL PRINT_SELECT, "参加/辞退"
					IF RESULT == 0
						PRINTFORM 　%CALLNAME:PLAYER%和%CALLNAME:TARGET%一起把%CALLNAME:LTARGET%的%TEXTS("阴部：視覚", LTARGET)%
						PRINTFORMW %TEXTR("仔细地/全面地/全心全意地/小心地")%欣赏了一番……
					ELSE
						PRINTFORMW 「这样吗ー？　那%CNAME("一人称")%就一个人享受好了ー」
					ENDIF
					PRINTFORMW %CALLNAME:TARGET%在%CALLNAME:LTARGET%快要醒来之前、把裙子整理好之后就悄悄地离開了……
				ENDIF

				PRINTFORMW 「嗯嗯、真是%TEXTR("青春/性感/好品味")%呢♪」
				PRINTFORMW %CALLNAME:TARGET%看起来很满足地点点頭……
				IF TALENT:LTARGET:恋慕 && RAND:2
					PRINTL
					PRINTFORMW %CALLNAME:TARGET%悄悄地趴到%CALLNAME:PLAYER%的耳边说起了悄悄话……
					PRINTFORM 「%CALLNAME:LTARGET%酱啊
					IF CHECK_CLO("没穿内褲", LTARGET)
						PRINTFORM %TEXTR("似乎是因为在期待着袭击一样/似乎是因为有点欲求不满/似乎想要H")%
						PRINTFORM 而变成%TEXTR("那个样子/NO胖次")%的、
					ELSE
						PRINTFORM %TEXTR("＿/难得地/努力地")%穿上了
						IF CHECK_PANTIES("Ｈ", LTARGET)
							PRINTFORM %TEXTR("H/色情")%的
						ELSEIF CHECK_PANTIES("Micro", LTARGET)
							PRINTFORM 刺激的
						ELSEIF CHECK_PANTIES("絲綢", LTARGET) || CHECK_PANTIES("透明", LTARGET)
							PRINTFORM %TEXTR("＿/特别")%优雅的
						ELSE
							PRINTFORM %TEXTR("特别可爱的/可爱的/可爱的不得了的")%
						ENDIF
						PRINTFORM %CNAME("胖次")%、
					ENDIF
					PRINTFORMW 请好好地%TEXTR("把握机会/袭击过去/做些H的事情")%捏？」
					PRINTFORMW 「跟%CNAME("一人称")%约好了哟♪」
				ENDIF
				CALL SETFLAG_DAILY, "胖次形状確認", LTARGET

			CASE 10
				SIF TALENT:恋慕 == 0
					GOTO LEARA_DAYLYCOM_LP1
				PRINTFORMW 「那个……可以坐在旁边的位置上吗？」
				PRINTFORMW 「……%TEXTR("啊哈/欸嘿")%♪　那就先失礼了ー」
				PRINTFORMW 一半说着、%CALLNAME:TARGET%在坐着的%CALLNAME:PLAYER%的大腿上放下了腰……
				PRINTFORMW 「抱歉捏ー……就请这样、稍微保持一会ー……♪」
				PRINTFORMW %CALLNAME:TARGET%带着飘忽忽的笑容温柔地抱着%CALLNAME:PLAYER%……

			CASE 11
				SIF TALENT:恋慕 == 0
					GOTO LEARA_DAYLYCOM_LP1
				SIF COND("妊娠中") == 0
					GOTO LEARA_DAYLYCOM_LP1
				CALL PRINT_STR, "「……_HH_」_W"
				PRINTFORMW %CALLNAME:TARGET%的眼中浮现出充满慈爱的眼神、温柔地抚摸着自己的下腹部……

			CASE 12
				LOCAL = FIND_COND("欲求不満", "現在存在")
				SIF LOCAL == 0
					GOTO LEARA_DAYLYCOM_LP1
				PRINTFORMW 「%CALLNAME:LOCAL%酱啊%TEXTR("很寂寞/很想要/很想做H的事情")%哟ー」
				PRINTFORMW 「不行哟ー？　明明有女孩子特别寂寞、想要对爱人撒娇、一直思念着别人」
				PRINTFORMW 「请好好地照顾那个女孩子可以吗ー？」
				IF COND("欲求不満")
					IF TALENT:恋慕
						PRINTFORMW 「%CNAME("一人称")%……那个。%TEXTR("还能/还能稍微")%忍耐一会。那个」
						PRINTFORMW 「……如果可以的话、之后一定会全力对你撒娇的」
					ELSE
						PRINTFORMW 「嘛、也许因为%CALLNAME:TARGET%酱是大人吧ー？　请优先照顾那些%TEXTR("欲望满满的/妙龄/年轻的")%的女孩子捏」
						PRINTFORMW 「……但是、如果之后不好好对待%CNAME("一人称")%的话、可是会发脾气的哟」
					ENDIF
				ENDIF
			CASE 19
				SIF !TALENT:母乳体質
					GOTO LEARA_DAYLYCOM_LP1
				LOCAL = FIND_COND("妊娠イベント中")
				SIF LOCAL == 0 || BASE:LOCAL:育児中 >= 5
					GOTO LEARA_DAYLYCOM_LP1
				PRINTFORMW 「～～♪」
				PRINTFORMW %CALLNAME:TARGET%给%CALLNAME:LOCAL%的婴儿喂了自己的母乳……
		CASEELSE
			GOTO LEARA_DAYLYCOM_LP1
		ENDSELECT
	ENDSELECT

;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	IF RAND:3 == 0
		PRINTFORMW 「%TEXTR("哦哦/哦呜呜")%ーー」
		PRINTFORMW 「一看到电风扇就好像要变回小孩子了一样」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「%TEXTR("呼……要睡着了/哈～極楽極楽……睡觉睡觉")%」
	ELSE
		PRINTFORMW 「%CNAME("一人称")%……最喜欢%TEXTR("直接用身体/用皮肤上/用小豆豆上/用那里上")%感觉风了捏」
		PRINTFORMW 「%TEXTR("啊啦啦/啊呀呀？")%、%TEXTR("这不是很普通的事情吗/这种程度还算是正常的性癖吧……")%」
	ENDIF

CASE "拭汗"
	SELECTCASE RAND:5
		CASE 0
			PRINTFORMW 「%TEXTR("诶/啊啦/唔妞")%？　要给%CNAME("一人称")%擦汗吗？」
			PRINTFORMW 「%TEXTR("因为是难得的机会/反正都要擦的")%%TEXTR("就拜托您了/这次就承蒙您的好意了")%ー」
			PRINTFORMW 「……%TEXTR("＿/色色的")%小动作也是可以的哟？」
		CASE 1
			SIF TALENT:巨乳 == 0
				GOTO LEARA_DAYLYCOM_LP1
			PRINTFORMW 「请好好擦一擦%TEXTR("胸部附近/欧派")%捏♪」
			PRINTFORMW 「乳沟啊乳房下面的地方什么的ー、都在热腾腾地冒着热气哟ー……」
			PRINTFORMW 「%TEXTR("认真地/好好地/温柔地")%擦掉的话、之后会给%CNAME("二人称")%做很多舒服的服务的哟ー♪」
	CASEELSE
		GOTO LEARA_DAYLYCOM_LP1
	ENDSELECT
;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K11
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "托一托胸部"
		SELECTCASE RAND:5
			CASE 0
				PRINTFORMW 「呼呼。被帮忙托着真是轻松好多」
			CASE 1
				PRINTFORMW 「因为大大的胸部是%CALLNAME:TARGET%酱重要的性爱法宝♪」
				PRINTFORMW 「如果能被认真地照顾的话、会很高兴的ー」
			CASE 2
				PRINTFORMW 「嗯ー……实际上特别重哟ー」
				PRINTFORMW 「能过来帮忙托着真的很高兴ー」
		CASEELSE
			GOTO LEARA_DAYLYCOM_LP1
		ENDSELECT
	CASE "按摩"
		SELECTCASE RAND:5
			CASE 0
				PRINTFORMW 「%TEXTR("恩呼/嗯啊/咿呀")%……っ♪」
				PRINTFORMW 「呼啊……就、就普通人来说技术真的是好呢……真的是吓了一跳……」
				PRINTFORMW 「%TEXTR("啊/咿呀/咿")%っ♪　再、再用力一点……嗯唔♪」
			CASE 1
				PRINTFORMW 「又在说这种话了呢♪　反正是想趁机做一些%TEXTR("工口的/H的")%事情对吧ー？」
				PRINTFORMW 「……诶？　不是吗？　认真的？　诶？」
				PRINTFORMW 「……恶作剧也是可以的哟？　趁机揉揉欧派啊、摸摸大腿的内侧啊什么的……」
				PRINTFORM 「那个……拜托了……
				IF TALENT:巨乳
					PRINTFORM 因为欧派的缘故
				ENDIF
				PRINTFORMW 肩膀疼得不得了啊……」
				CALL PRINT_STR, "「……嗯_HH_」_W"
			CASE 2
				PRINTFORMW 「……！　！？　！！！」
				PRINTFORMW 一按压脚底的穴位、%CALLNAME:TARGET%就扭动着身体发出无声的悲鸣。
				PRINTFORMW 「――！？　っ♪　？？　っ！！　～～～～！！！♪！」
				IF TALENT:巨乳
					PRINTFORM 　一边噗噜噗噜地摇晃着%TEXTS("胸部")%
				ELSE
					PRINTFORM 　一边啪啪啪地拍打着%CALLNAME:PLAYER%的身体
				ENDIF
				PRINTFORMW %CALLNAME:TARGET%一边接受着服务……
			CASE 3
				PRINTFORMW 「那个……不觉得有点下流吗？」
				SIF EQUIP:胸罩
					PRINTFORMW 「请不要那么自然地解開胸罩的挂钩哟……」
				CALL PRINT_STR, "「嗯_H_　啊嗯_H_　嗯唔_HH_」_W"
				PRINTFORMW 「胸……胸部明明被揉着感觉很舒服、却完全没有色情的感觉……」
				CALL PRINT_STR, "「这个不就是欺负吗？　不是吗？　……咿呀_HH_」_W"
		CASEELSE
			GOTO LEARA_DAYLYCOM_LP1
		ENDSELECT
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			; 連続実行
			PRINTFORMW
		ELSE
			SELECTCASE RAND:5
				CASE 0
					PRINTFORMW 「……♪　嗯……啾……♪」
					PRINTFORMW 和%CALLNAME:TARGET%不断地亲吻着……
				CASE 1
					PRINTFORMW 「嗯ー……♪」
					PRINTFORMW 「欸嘿嘿ー……♪　下次在被窝里面啾吧、怎么样……？」
				CASE 2
					SIF MARK:屈服刻印 < 2
						GOTO LEARA_DAYLYCOM_LP1
					PRINTFORMW 「阿姆……♪　嗯啾、哈啊……♪　嗯♪」
					PRINTFORMW 「已经……变得很%TEXTR("熟练/厉害")%了捏……♪　嗯嗯姆♪」
				CASE 3
					LOCAL = FIND_COND("現在存在")
					SIF !LOCAL
						GOTO LEARA_DAYLYCOM_LP1
					PRINTFORMW 「嗯啾♪　嗯……哈啊♪　嗯ー……♪　更多的……啾♪　嗯♪」
					CALL PRINT_STR, "「～～_HH_　噗哈♪」_W"
					PRINTFORMW 「%TEXTR("啊啦啊啦/啊啦/哦呀")%？　莫非%CALLNAME:LOCAL%酱……在嫉妒吗？」
					PRINTFORMW 「但是%TEXTR("不行/没有用/不可以")%哟。还不能让给你♪　嗯……哈啊♪」
					PRINTFORMW 就好像在故意向%CALLNAME:LOCAL%炫耀一样%CALLNAME:TARGET%把舌頭缠了进来……
			CASEELSE
				GOTO LEARA_DAYLYCOM_LP1
			ENDSELECT
		ENDIF
	CASE "膝枕"
		SELECTCASE RAND:5
			CASE 0
				PRINTFORMW 「膝枕、吗？　……欸嘿嘿。那恭敬不如从命了捏ー」
			CASE 1
				PRINTFORMW 「嘿咻、嗯。那么失礼了……诶？　不是？」
				PRINTFORMW 「……可以的哟ー　说着会舔耳朵、咬耳朵什么的」
				PRINTFORMW 「那样的事情不算什么的哟　这样的话……」
			CASE 2
				PRINTFORMW 「……如果觉得不舒服的话马上要说哦ー？　会很快处理好的ー」
				PRINTFORMW 「啊、想摸欧派的话请随意享用♪　作为膝枕的酬劳♪」
			CASE 3
				SIF BASE:PLAYER:絶頂 * 2 < MAXBASE:PLAYER:絶頂
					GOTO LEARA_DAYLYCOM_LP1
				PRINTFORMW 「%TEXTR("啊哈ー/姆呼ー/啊啦啊啦")%♪　裤子里面、好像有什么东西变大了哟ー？」
				PRINTFORMW 「怎么办呢ー、这・个♪　能教教%CNAME("一人称")%吗？」
		CASEELSE
			GOTO LEARA_DAYLYCOM_LP1
		ENDSELECT
	CASE "泡茶"
		SELECTCASE RAND:5
			CASE 0
				PRINTFORMW 「%TEXTR("啊啦啦/啊啦ー/哦呀ー")%、非常感谢」
				PRINTFORMW 「%CALLNAME:PLAYER%也一起来喝怎么样？」
			CASE 1
				PRINTFORMW 「实际上%CALLNAME:TARGET%酱、関于茶有些闲碎之语想说」
				PRINTFORMW 「正好可以做茶间闲聊的话题……」
				PRINTFORMW 「……唔呼呼。吾不会嫌弃来自别人的好意的所以请放心」
			CASE 2
				PRINTFORMW 「啊啦、非常感谢」
				PRINTFORMW 「下次有机会的话、会做些特制的点心招待%CNAME("二人称")%一起来喝茶的♪」
			CASE 3
				PRINTFORMW 「因为是难得的机会、不一起吗？」
				PRINTFORMW 「虽然吾很喜欢色色的事情、但是这样的悠闲自在的感觉也很喜欢哦ー」
		CASEELSE
			GOTO LEARA_DAYLYCOM_LP1
		ENDSELECT
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K11
	WAIT
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请", "展示内褲"
		PRINTFORMW
	CASE "推倒"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		PRINTFORMW
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "抚摸", "手淫"
		PRINTFORMW
	CASE "膝枕"
		PRINTFORMW
	CASE "沏茶"
		PRINTFORMW
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW
		ELSE
			SELECTCASE RAND:5
				CASE 0
					PRINTFORMW 「回来——啦♪」
				CASE 1
					SIF !COND("妊娠中：妊娠発覚済み")
						GOTO LEARA_DAYLYCOM_LP1
					PRINTFORMW 「%TEXTR("嘿嘿～/欸嘿嘿～/呜呼呼")%♪　这个……%CNAME("一人称")%非常高兴♪」
					PRINTFORMW 害羞的%CALLNAME:TARGET%递过来的是、阳性反应的妊娠检查棒。
					PRINTFORMW 「会生出%TEXTR("健康的/可爱的/元气的")%小宝宝的、请敬请期待捏♪」
				CASE 2
					PRINTFORMW 「%CALLNAME:TARGET%酱回来了哟ー♪」
					PRINTFORMW 「乖乖地看家了吗ー？」
			CASEELSE
				GOTO LEARA_DAYLYCOM_LP1
			ENDSELECT
		ENDIF
	;廁所に行く際の台詞
	ELSE
		SELECTCASE RAND:5
			CASE 0
				PRINTFORMW 「%TEXTR("稍微/稍稍/暂且")%%TEXTR("失礼/离席/离座")%一会捏ー」
			CASE 4
				SIF COND("朝袭相手") == 0
					GOTO LEARA_DAYLYCOM_LP1
				SIF EXP_GAIN("膣内精液経験") == 0
					GOTO LEARA_DAYLYCOM_LP1
				CALL PRINT_STR, @"「……%TEXTR("咿呀/吓/咦呀")%！？」_W"
				PRINTFORM 一转过頭看向那突然之间发出%TEXTR("小小的/可爱的/着急的/包含喜悦的")%悲鸣的脸、
				PRINTFORM 就发现%TEXTR("脸红红的/羞羞答答的")%%CALLNAME:TARGET%
				PRINTFORMW 好像在忍耐着什么一样不自然地紧紧地夹着两只大腿。
				PRINTFORMW 「啊、%TEXTR("＿/啊哈哈ー、")%%TEXTR("＿/那个")%没有问题的不要太在意哦ー……」
				IF RAND:3 == 0
					PRINTFORMW 「早上榨出的%TEXTR("精液/米浆/肉汁/牛奶")%要漏出来了……」
				ENDIF
				CALL PRINT_STRW, @"「稍微去一下%TEXTR("厕所/卫生间")%捏ー……啊呼呼_H_」"
				PRINTFORMW %CALLNAME:TARGET%夹着大腿不自然地小步离開了房间……
		CASEELSE
			GOTO LEARA_DAYLYCOM_LP1
		ENDSELECT
	ENDIF
CASE "廁所詮索"
	PRINTFORMW
CASE "检查阴部"
	; 睡眠中
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K11
		WAIT
		; 後段をスキップ
		GOTO KOJO_K11_DAYLYCOM_SKIP1
	ENDIF

	;IF COND("合意：检查阴部") == 0
	IF COND("欲求不満") == 0
		;拒否されたのに連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			SELECTCASE RAND:10
				CASE 0
					CALL PRINT_STR, "「讨厌ー、虽然一直以来都很感激、但是这个样子果然还是不行的哟ー」_W"
					CALL PRINT_STR, "「即使是真的想要看、也请再稍微考虑一下周围的气氛捏ー」_W"
				CASE 1
					CALL PRINT_STR, @"「%TEXTR("不知廉耻/不懂得放弃")%的男人可是会招人讨厌的哟ー？」_W"
				CASE 2
					CALL PRINT_STR, @"「这么想看的话%TEXTR("~/ー")%、到时候请在床上好好欣赏哦_H_」_W"
			CASEELSE
				GOTO LEARA_DAYLYCOM_LP1
			ENDSELECT
		ELSE
			SELECTCASE RAND:10
				CASE 0
					CALL PRINT_STR, "「好、请♪　直到最深处为止、请好好欣赏哟ー？」_W"
				CASE 1
					CALL PRINT_STR, @"「%CALLNAME:TARGET%酱最重要的地方、请用心地_H_　欣赏ー」_W"
				CASE 2
					CALL PRINT_STR, @"「怎么样ー？　要适可而止哟ー？_H_」_W"
				CASE 3
					CALL PRINT_STR, "「想要痛快地享用的话、就请到床上来哟ー_H_」_W"
					SIF RAND:3 == 0
						CALL PRINT_STR, @"「……但是、如果只是稍微尝一尝味道的话还是%TEXTR("可以/没有问题")%的哟ー？_HH_」_W"
			CASEELSE
				GOTO LEARA_DAYLYCOM_LP1
			ENDSELECT
		ENDIF
	ELSE
		;連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORM 「讨厌ー、不要%TEXTR("一直/一句话也不说地/一直色色地")%盯着啊
			SELECTCASE SAVESTR:現在位置
				CASE "部室"
					PRINTFORMW 一起去%TEXTR("床上/被窝里")%玩吧~」
					PRINTFORMW 「%CNAME("一人称")%%TEXTR("已经准备好了/什么时候都OK")%哟ー♪」
				CASE "体育倉庫"
					PRINTFORMW 要開始上课了哟ー」
					PRINTFORM 「今日的体育课是%TEXTR("＿/~/～")%、
					SELECTCASE RAND:3
						CASE 0
							PRINTFORM 垫上运动%TEXTR("＿/捏/～")%す
							CALL HEARTMARK
							PRINTFORMW 」
						CASE 1
							PRINTFORMW 跳箱子哟%TEXTR("＿/捏/ー")%♪」
						CASE 2
							PRINTFORMW 和%CNAME("一人称")%一组的组合体操捏%TEXTR("＿/~/ー")%♪」
					ENDSELECT
			CASEELSE
				PRINTFORMW ー♪」
			ENDSELECT
		ELSE
			IF TALENT:恋慕
				;
				IF COND("危険日")
					SELECTCASE RAND:10
						CASE 0
							;
					ENDSELECT
				ENDIF
				SIF LINECOUNT - LINE_MEMO
					RETURN 0

				; 汎用
				SELECTCASE RAND:10
					CASE 0
						CALL PRINT_STR, "「呀_H_　今天也很积极捏ー……_H_」_W"
					CASE 1
						CALL PRINT_STR, "「讨厌_H_　这样子像痴汉一样一直盯着……_H_」_W"
						CALL PRINT_STR, "「看够了的话、不想来实战一下吗？　呼呼_H_」_W"
					CASE 2
						CALL PRINT_STR, "「不要只是看着呀……_H_」_W"
						CALL PRINT_STR, "「舔一舔、闻闻上面色情的味道……也是可以的哟？」_W"
						IF RAND:3 == 0
							CALL PRINT_STR, "「……诶？　KISS？」_W"
							CALL PRINT_STR, "「…………_HH_HH_HH_　把舌頭插进来、也是可以的哟_H_　……ぁん_HH_」_W"
						ENDIF
					CASE 3
						CALL PRINT_STR, "「在微弱地抽动着？　……诶诶多、那个是、那个。该怎么说、说呢……_HH_」_W"
						CALL PRINT_STR, "「被看着那里、就害羞起来了……_H_　然后就不小心……湿了、能理解的吧_HH_」_W"
				ENDSELECT
				SIF LINECOUNT == LINE_MEMO
					GOTO LEARA_DAYLYCOM_LP1
			ENDIF
			SIF LINECOUNT - LINE_MEMO
				RETURN 0

			PRINTFORMW 「那么%TEXTR("想看/感兴趣")%的话、%TEXTR("欣赏到/玩弄到/享受到")%%TEXTR("尽兴为止/觉得满足为止")%也可以的哟ー♪」
			PRINTFORM 「%TEXTR("现在/今天")%就特别地、为%TEXTR("胜利者/第一名")%
			IF COND("昼")
				PRINTFORM %TEXTR("＿/免费")%
			ELSE
				PRINTFORM %TEXTR("到早上为止的/一整晚的/通宵的")%
			ENDIF
			PRINTFORMW %TEXTR("送出作为礼品的/送出作为礼～品～的/颁发作为礼品的")%%TEXTR("性交券/性爱服务券")%♪」
			PRINTFORMW 「怎么样？　很想要这个？　对吗？」
		ENDIF
	ENDIF
CASE "检查内褲"
	; 睡眠中
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K11
		WAIT
		; 後段をスキップ
		GOTO KOJO_K11_DAYLYCOM_SKIP1
	ENDIF

	IF CHECK_CLO("胖次露出")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, @"「どうですかー？　%CNAME("莉雅拉酱")%のお・パ・ン・ツ_H_」_W"
				CALL PRINT_STR, @"「今天、%TEXTR("为了能迷住你/按照你的喜好/为了更加激起你的欲望")%而%TEXTR("精心地/烦恼了好久才")%挑选出来的哟_H_」_W"
			CASE 1
				CALL PRINT_STR, @"「%TEXTR("出众的/最棒的/无敌的")%%TEXTR("色情/色色/性感")%%TEXTR("胖次/内衣/小内内")%虽然也不错、%TEXTR("优雅的/沉稳的/古典的")%%TEXTR("胖次/内衣/小内内")%也没有办法割舍呢」_W"
				IF PENIS(PLAYER)
					PRINTFORM 「对于身为男人的你来说
				ELSE
					PRINTFORM 「%CNAME("二人称")%
				ENDIF
				CALL PRINT_STR, "是怎么想的？」_W"
			CASE 2
				CALL PRINT_STR, @"「%TEXTR("讨厌/啊啦啊啦")%_H_　即使不用那样子%TEXTR("偷偷一瞥一瞥的/偷窥")%、也会大方地给你看的啦_H_」_W"
				CALL PRINT_STR, @"「%TEXTR("看呀/看~")%_H_　这样子可以吗？」_W"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - LINE_MEMO
		RETURN 1

	;連続実行
	IF CSTR:PREV_DAILYCOM == STR:日常イベント名
		PRINTFORM 「%TEXTR("唔ー、/看起来/看～来~/总感觉")%对%CNAME("一人称")%的%TEXTR("内裤/胖次/小内内")%
		PRINTFORMW %TEXTR("很有兴趣/很着迷/很想要")%的样子%TEXTR("ぉ/ー")%%TEXTR("＿/♪")%」
		PRINTFORMW %CALLNAME:PLAYER%摆出一副很妖娆的姿势对着%CALLNAME:TARGET%坏坏地微笑着。
		PRINTFORM 「想要让%CNAME("一人称")%
		IF RAND:2
			PRINTFORM 穿的%TEXTR("胖次/小内内")%、
			IF RAND:2
				PRINTFORM 这样的%TEXTR("愿望/request/想法")%有吗？
			ELSE
				PRINTFORM 没有吗？
			ENDIF
		ELSE
			PRINTFORM どんな%TEXTR("＿/えろい/可愛い")%%TEXTR("胖次/三角胖次")%を穿いて欲しいですかぁ？
		ENDIF
		CALL HEARTMARK
		PRINTFORMW 」
		LOCALS = 什么都可以/%TEXTR("色情的/色色的/过激的")%/透明的
		SIF RAND:2
			LOCALS += "/縞胖次"
		SIF RAND:2
			LOCALS += "/繩系胖次"
		SIF RAND:2
			LOCALS += "/Ｔ字褲"
		SIF RAND:2
			LOCALS += "/低腰"
		SIF RAND:2
			LOCALS += "/超低腰"
		LOCALS += "/" + TEXTR("就是现在穿着的这个/保持这个样子")
		LOCALS += "/" + TEXTR("NO胖次很棒/请不要穿")
		CALL PRINT_SELECT, LOCALS

		CHOICE = RESULT
		SPLIT LOCALS, "/", LOCALS
		CHOICES = %LOCALS:CHOICE%

		; 旧リクエストを(あるなら)削除する
		LOCALS = 检查内褲：リクエスト
		LOCAL  = STRLENS(LOCALS)
		CALL DEL_CEVENT_GROUP, LOCALS

		SELECTCASE CHOICE
			CASE 0
				; 何でもいい
				CSTR:喜欢的胖次 =
			CASE 1
				; えっちなの
				CSTR:喜欢的胖次 = 繩系胖次/丁字褲/高開衩胖次/Ｃ胖次/Ｈ的内衣
				LOCALS += "：えっちなの"
				PRINTFORMW 「%TEXTR("色色的/H的/涩情的")%就可以吗ー？　不不不、%CNAME("一人称")%觉得这么诚实很好哦ー♪」
			CASE 2
				; 透けてるやつ
				CSTR:喜欢的胖次 = 蕾丝的胖次
				LOCALS += "：" + CSTR:喜欢的胖次
				PRINTFORMW 「%TEXTR("透透明明/透明")%的吗ー？　真是%TEXTR("狂热/不错的兴趣")%呢ー♪」
		CASEELSE
			IF STRCOUNT(CHOICES, "縞")
				CSTR:喜欢的胖次 = 條紋胖次
				LOCALS += "：" + CSTR:喜欢的胖次
				PRINTFORMW 「喜欢条纹胖次吗？　果然这个在%TEXTR("男孩子/男性")%里很受欢迎呢♪」
			ELSEIF STRCOUNT(CHOICES, "紐")
				CSTR:喜欢的胖次 = 繩系胖次
				LOCALS += "：" + CSTR:喜欢的胖次
				PRINTFORM 「%CHOICES%吗%TEXTR("。/ぁ♪　")%可以哟、绳・系・胖・次
				CALL HEARTMARK
				PRINTFORMW 」
			ELSEIF STRCOUNT(CHOICES, "Ｔ字褲")
				CSTR:喜欢的胖次 = Ｔ字褲
				LOCALS += "：" + CSTR:喜欢的胖次
				PRINTFORMW 「呼姆呼姆、%CALLNAME:PLAYER%原来%TEXTR("喜欢/喜好/爱/对这个有兴趣啊、")%%CHOICES%……♪」
			ELSEIF STRCOUNT(CHOICES, "低腰")
				CSTR:喜欢的胖次 = 低腰胖次
				LOCALS += "：" + CSTR:喜欢的胖次
				PRINTFORMW 「%CHOICES%吗？　了解了ー♪」
			ELSEIF STRCOUNT(CHOICES, "超低腰")
				CSTR:喜欢的胖次 = 超低腰胖次
				LOCALS += "：" + CSTR:喜欢的胖次
				PRINTFORMW 「%TEXTR("嗯っ呼っ呼ー/啊哈ー")%♪　想让吾穿上%CHOICES%吗？」
			ELSEIF STRCOUNTS(CHOICES, "就是现在穿着的这个", "保持这个样子")
				CSTR:喜欢的胖次 = %PANTIES(TARGET, "種類")%
				LOCALS += "：" + CSTR:喜欢的胖次
				PRINTFORMW 「啊哈♪　原来喜欢这种的吗ー♪」
			ELSEIF STRCOUNTS(CHOICES, "没穿内褲", "はかない")
				;喜欢的胖次に没穿内褲設定で没穿内褲選びます
				CSTR:喜欢的胖次 = 没穿内褲
				LOCALS += "：没穿内褲"
				PRINTFORMW 「诶？　……啊哈ー♪　原来如此原来如此ー♪」
				PRINTFORMW %CALLNAME:TARGET%一副很懂的表情点点頭。
			ENDIF
		ENDSELECT

		IF LOCAL != STRLENS(LOCALS)
			CALL SET_CEVENT, LOCALS
			;PRINTFORMW 「%CNAME("二人称")%の趣味は分かりましたー」
			PRINTFORM 「原来你想要的、是这种东西啊ー♪　%TEXTR("欸嘿嘿/唔呼呼/啊哈/嗯、呼、呼ー")%ー
			CALL HEARTMARK
			PRINTFORMW 」
		ELSE
			PRINTFORMW 「这样吗ー？」
			PRINTFORM 「也就是说%TEXTR("~/ー")%、%TEXTR("想看的/有兴趣的/想知道的")%是
			PRINTFORMW %CNAME("一人称")%现在穿着的%TEXTR("胖次/小内内/内裤")%对吧ー♪」
		ENDIF
	ELSE
		SELECTCASE RAND:5
		CASEELSE
			PRINTFORMW 「%CNAME("一人称")%的%TEXTR("胖次/小内内/内裤")%吗？　诶多ー……」
			IF CHECK_CLO("没穿内褲") || EQUIP:胖次 == 0
				IF CSTR:没収済胖次 != ""
					PRINTFORM 「%CNAME("二人称")%が
					PRINTFORM %TEXTR("一定要拿好/在眼前打開的/一直看着的/在嗅的/当作很重要的东西保存的")%%CSTR:没収済胖次%
					PRINTFORMW 哟♪」
				ELSE
					PRINTFORMW 「今天%TEXTR("可是素体哟/是自然狂野的风格呢/是NO胖次哟/没有穿")%」
					PRINTFORMW 「……要来确认一下吗？　请~♪」
					SIF EQUIP:裙
						PRINTFORMW %CALLNAME:TARGET%轻轻抓起%SKIRT(TARGET)%的边角诱惑着%CALLNAME:PLAYER%……
				ENDIF
			ELSE
				PRINTFORM 「%TEXTR("＿/今天是")%
				IF CHECK_PANTIES("條紋") || CHECK_PANTIES("褶边")
					PRINTFORM 稍微有点%TEXTR("可愛的/女孩子气的")%感觉的
				ELSEIF CHECK_PANTIES("高開衩") || CHECK_PANTIES("Micro比基尼") || CHECK_PANTIES("繩系胖次")
					PRINTFORM %TEXTR("adulty的/很成熟的/大・人・的")%
				ELSEIF CHECK_PANTIES("低腰") || CHECK_PANTIES("超低腰") || CHECK_PANTIES("Ｃ胖次")
					PRINTFORM %TEXTR("色色的/诱人的")%
				ELSEIF CHECK_PANTIES("兜襠布") || CHECK_PANTIES("前貼")
					PRINTFORM %TEXTR("有点疯狂的/偶尔会穿的")%
				ELSEIF CHECK_PANTIES("Ｈ的")
					PRINTFORM %TEXTR("＿/色情的/色气的")%
					PRINTFORM %CNAME("二人称")%%TEXTR("最喜欢/很喜欢的/一直想看的/垂涎的")%
				ELSE
				ENDIF
				PRINTFORMW %PANTIES(TARGET)%哟ー♪」
				IF CFLAG:内衣確認済 == 0
					CALL SETFLAG_DAILY, "胖次形状確認"
				ELSE
					PRINTFORMW 「唔、还没有充分了解了吗ー」
					PRINTFORM 「还是说、想%TEXTR("再一次/重新/再")%向%CNAME("一人称")%
					PRINTFORMW %TEXTR("描述那个地方/表达感想/报告观察结果")%吗？　库库♪」
				ENDIF
			ENDIF
		ENDSELECT
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K11
		WAIT
	;ELSEIF CFLAG:股間確認済 && RAND:2
	;	PRINTFORMW
	;心情好
	;ELSEIF CFLAG:夸奖
	;	PRINTFORMW
	ELSE
		SELECTCASE RAND:10
			CASE 3
				SIF !CFLAG:股間確認済
					GOTO LEARA_DAYLYCOM_LP1
				PRINTFORMW 「请用ー♪　务必请一直欣赏到尽兴为止捏ー♪」
			CASE 4
				SIF !CFLAG:股間確認済
					GOTO LEARA_DAYLYCOM_LP1
				SIF COND("胎内の精液量") < 3000
					GOTO LEARA_DAYLYCOM_LP1
				PRINTFORMW 「%TEXTR("呼呼/诶嘿嘿")%♪　这么近地看的话……稍微有点困扰捏♪」
				PRINTFORMW 「非常有元气的小蝌蚪们、正在肚子里面%TEXTR("有力地/愉快地")%游来游去呢……」
				PRINTFORMW 「……要溢出来了哟♪」
			CASE 5
				SIF ARGS != "检查布鲁马"
					GOTO LEARA_DAYLYCOM_LP1
				CALL PRINT_STR, @"「%TEXTR("哦呀/啊啦")%？　难道说、对%CNAME("一人称")%的运动短裤%TEXTR("兴趣满满的/很在意")%吗？」_W"
				CALL PRINT_STR, "「呼呼。再靠近一点看也是可以的哟？_H_」_W"
			CASE 6
				SIF ARGS != "检查布鲁马"
					GOTO LEARA_DAYLYCOM_LP1
				CALL PRINT_STR, @"「看、%CALLNAME:TARGET%%TEXTR("老师/老～师~")%的可爱运动短裤哟_H_」_W"
				CALL PRINT_STR, "「想闻一闻？　想摸一摸？　把这整个脸贴上来也是可以的哟ー？_HH_」_W"
				PRINTFORMW %CALLNAME:TARGET%朝向%CALLNAME:PLAYER%伸出可爱的屁股、扭动着腰诱惑着……
			CASE 7
				SIF ARGS != "检查布鲁马"
					GOTO LEARA_DAYLYCOM_LP1
				SIF !COND("浑身是汗")
					GOTO LEARA_DAYLYCOM_LP1
				CALL PRINT_STR, "「讨厌……_H_　不要把脸贴上来啊……不觉得汗很臭吗？」_W"
				CALL PRINT_STR, "「太热情的话、这边会稍微有点困扰的哟……_H_」_W"
			CASE 9
				PRINTFORMW 「呼呼♪　想看的话就稍微再靠近一点ー♪」
				PRINTFORMW 躺在沙发上的%CALLNAME:TARGET%打開了自己的大腿对着%CALLNAME:PLAYER%招了招手。
				CALL PRINT_STR, "「这个角度能看得清楚吗……？_H_」_W"
		CASEELSE
			GOTO LEARA_DAYLYCOM_LP1
		ENDSELECT
	ENDIF
CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「好、请用♪」
			PRINTFORMW %CALLNAME:TARGET%毫不犹豫地掀起了自己的%SKIRT(TARGET, "略")%。
			PRINTFORMW 「……？　啊、对、对不起！　%CNAME("一人称")%的话已经……」
			PRINTFORM 脸颊红红的%CALLNAME:TARGET%重新转向%CALLNAME:PLAYER%、提起自己的%SKIRT(TARGET, "略")%
			PRINTFORMW 虽然只是故意提到了只能隐隐约约看到内裤的程度的高度。
			PRINTFORMW 「这样的提法男孩子会兴奋吗？　……还是说ー、」
			PRINTFORM 把%SKIRT(TARGET, "略")%放開之后的%CALLNAME:TARGET%、卷起了一只大腿一侧的%SKIRT(TARGET, "略")%、
			PRINTFORMW 露出了洁白光滑的大腿。
			PRINTFORMW 「想看这样诱人的大腿侧面吗ー……还有什么想看的吗？」
			PRINTFORMW %CALLNAME:TARGET%面带微笑地享受着%CALLNAME:PLAYER%的反应……
		;胖次チラ直後
		;ELSEIF COND("胖次チラ直後")
		;	SELECTCASE RAND:5
		;		CASE 0
		;			PRINTFORMW 「そんなにえっちな視線を向けてくるなんて……誘ってくれてるんですかぁ？」
		;			CALL PRINT_STRW, @"「%CALLNAME:TARGET%酱はぁ、いつでもバッチコイでーすよー_H_」"
		;	CASEELSE
		;		GOTO LEARA_DAYLYCOM_LP1
		;	ENDSELECT
		ELSE
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR, @"「今天的%CNAME("胖次")%是%PANTIES(TARGET, "種類")%哟_HH_」_W"
					CALL PRINT_STR, @"「怎么样ー？　适合吗―？　%TEXTR("兴奋/饥渴")%了吗~？」_W"
				CASE 1
					CALL PRINT_STR, "「好、请～用～_H_　请按照喜欢的方式享受♪」_W"
					IF RAND:2
						PRINTFORMW %CALLNAME:TARGET%自觉地掀起%SKIRT(TARGET, "略")%、露出了自己的%PANTIES(TARGET)%……
					ELSE
						PRINTFORMW %CALLNAME:TARGET%就这样背向%CALLNAME:PLAYER%伸出屁股、%TEXTR("＿/慢慢地")%卷起了%SKIRT(TARGET, "略")%的边角……
						SIF CHECK_OUTER("连褲襪")
							PRINTFORM 隔着%OUTER(TARGET, "略")%
						PRINTFORMW 大胆地展示了%CALLNAME:TARGET%穿着的%PANTIES(TARGET)%……
					ENDIF
					IF CHECK_PANTIES("條紋")
						CALL PRINT_STR, "「今天要试着用可爱的内裤进攻ー_H_」_W"
					ELSEIF CHECK_PANTIES("透明")
						CALL PRINT_STR, "「是透明酱哟ー♪」_W"
					ELSEIF CHECK_PANTIES("繩系胖次")
						CALL PRINT_STR, "「怎么样ー？　侧面的绳子、不觉得系得很漂亮吗？」_W"
						CALL PRINT_STR, "「……如果想帮忙改一下的话、解開也是可以的哟ー？」_W"
					ELSEIF CHECK_PANTIES("Ｔ字褲") || CHECK_PANTIES("高開衩") || CHECK_PANTIES("Ｃ胖次")
						CALL PRINT_STR, "「稍微有点大胆呢、这个」_W"
						CALL PRINT_STR, @"「穿成这个样子的话、会被%TEXTR("饥渴的/坏坏的/性欲旺盛")%男人袭击的ー♪」_W"
					ELSEIF CHECK_PANTIES("兜襠布")
						CALL PRINT_STR, "「今天稍微有点疯狂哟～♪」_W"
					ELSEIF CHECK_PANTIES("前貼")
						CALL PRINT_STR, "「诶？　稍微剥下来一点？」_W"
						CALL PRINT_STR, "「那……不全部弄下来可以吗？_H_　嗯~♪　再稍微用点力……嗯啊～_HH_」_W"
					ELSE
						CALL PRINT_STR, "「怎么样？　合适吗？_H_」_W"
					ENDIF
					IF CEVENTS("检查内褲：リクエスト") == PANTIES(TARGET, "種類")
						CALL PRINT_STR, @"「%CALLNAME:PLAYER%、原来喜欢这样的%CNAME("胖次")%呀ー？」_W"
					ENDIF
			CASEELSE
				GOTO LEARA_DAYLYCOM_LP1
			ENDSELECT
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K11
			WAIT
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			IF COND("打招呼前")
				PRINTFORM 「真是的、
				SIF COND("昼")
					PRINTFORM 今天也
				PRINTFORMW 也很积极捏～♪」
				PRINTFORMW 「那么？　今天的%CALLNAME:TARGET%酱的%TEXTR("胖次/小内内")%%CNAME("二人称")%要打几分呢？」
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					;没穿内褲をリクエストした
					IF CEVENTS("检查内褲：リクエスト") == "没穿内褲"
						PRINTFORM 「今天啊、为了回应%CNAME("二人称")%的%TEXTR("期待/愿望")%
						PRINTFORMW 没穿胖次哟ー♪」
						PRINTFORMW 「怎么样ー？　%TEXTR("合适吗/兴奋了吗/激动起来了吗/勃起了吗")%？」
						SIF CSTR:喜欢的胖次 == "没穿内褲"
							CSTR:喜欢的胖次 =
					ELSE
						PRINTFORMW
					ENDIF
				ELSE
					SELECTCASE RAND:5
						CASE  0
							PRINTFORMW 「再靠近一点看也是可以的哟ー♪」
						CASE  1
							SIF CSTR:喜欢的胖次 == ""
								GOTO LEARA_DAYLYCOM_LP1
							SIF CEVENT("检查内褲：リクエスト") == 0
								GOTO LEARA_DAYLYCOM_LP1
							PRINTFORM 「今天的%TEXTR("胖次/小内内/小内裤")%啊、可是为了回应%CNAME("二人称")%的%TEXTR("期待/愿望")%
							PRINTFORMW %PANTIES(TARGET)%哟ー♪」
							PRINTFORMW 「怎么样ー？　%TEXTR("合适吗/兴奋了吗/激动起来了吗/勃起了吗")%？」
						CASEELSE
							GOTO LEARA_DAYLYCOM_LP1
					ENDSELECT
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, @"「只是掀起裙子就那么兴奋%TEXTR("地想要拍照/＿")%吗？」_W"
			CASE 1
				CALL PRINT_STR, @"「怎么样？　这条%TEXTR("胖次/小内内/小内裤/内裤")%%TEXTR("合适/色情/刺激")%吗？」_W"
			CASE 2
				CALL PRINT_STR, @"「把%TEXTR("老师/老～师~")%的裙子掀起了就是为了拍%TEXTR("内裤/胖次")%……_H_」_W"
				CALL PRINT_STR, @"「想要把这种照片当作威胁素材可真的是非常%TEXTR("色情/不要脸")%呢……_H_」"
			CASE 3
				CALL PRINT_STR, @"「如果想对别人%TEXTR("吹嘘/炫耀")%的话、在网络上%TEXTR("上传照片/公開照片")%也是可以的哟_H_」_W"
				CALL PRINT_STR, @"「就像是在向别人宣言这是属于自己的女人一样、%TEXTR("感觉好像蛮不错的/稍微有点兴奋的感觉")%ー_H_」_W"
		ENDSELECT
	ENDSELECT
	SIF LINECOUNT == LINE_MEMO
		GOTO LEARA_DAYLYCOM_LP1

CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, @"「讨厌ー♪　就这么喜欢%TEXTR("胖次/小内内/内裤")%吗？」_W"
				CALL PRINT_STR, @"「%CNAME("莉雅拉酱")%的には中身にも%TEXTR("夢中になって/がっついて")%欲しいんですけどねー」_W"
			CASE 1
				CALL PRINT_STR,  "「把布错開……这、这样吗？」_W"
				CALL PRINT_STR, @"「……嗯ー。又是奇怪的%TEXTR("趣味/性癖/兴趣")%捏」_W"
		ENDSELECT
	ENDSELECT
	SIF LINECOUNT == LINE_MEMO
		GOTO LEARA_DAYLYCOM_LP1

CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		IF COND("妊娠中：臨月")
			; PRINTFORMW
		ELSEIF COND("妊娠中：妊娠発覚済み")
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR, @"「はーい、%TEXTR("見事に/めでたく")%オタマジャクシが%TEXTR("ヒットした/命中した/着弾した")%%CNAME("莉雅拉酱")%の%CNAME("オマンコ")%ですよー♪」_W"
					CALL PRINT_STR, @"「请%TEXTR("漂亮地/可爱地/专业地")%拍下来捏……欸嘿嘿_H_」_W"
				CASE 1
					CALL PRINT_STR, @"「どうです？　%CNAME("一人称")%の%TEXTR("受精済み/オメデタ")%%CNAME("オマンコ")%、変じゃ有ません？」_W"
				CASE 2
					CALL PRINT_STR, @"「因为%TEXTR("身孕/妊娠/怀孕")%的缘故总是很容易湿得乱七八糟呢、不如说%TEXTR("蜜汁增多了/增加了很多蜜汁/增加了差不多七成的蜜汁")%捏ー……_H_」_W"
					CALL PRINT_STR, @"「%TEXTR("色情的也可以/下流的也可以/兴奋了吗")%？　欸嘿嘿_H_　那样的话%TEXTR("稍微有点害羞/稍微有点平静不下来")%捏_H_」_W"
			ENDSELECT
		ENDIF
		SIF LINECOUNT - LINE_MEMO
			RETURN 1

		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「用嘴巴做是不是比较好呢？」_W"
				CALL PRINT_STR,  "「那样的话……给、嘴巴哟_HH_」_W"
			CASE 1
				CALL PRINT_STR,  "「呀_H_　好羞耻_H_」_W"
				CALL PRINT_STR,  "「看、这样子慢慢地拉出丝……_H_」_W"
				CALL PRINT_STR, @"「不就像是莉雅拉酱的%TEXTR("口穴/小嘴")%%TEXTR("在发情一样吗/很想要一样吗/在等着肉棒一样吗")%……_H_」_W"
			CASE 2
				CALL PRINT_STR, @"「虽然拍照也是可以的……%TEXTR("自慰/撸管/一个人玩")%可以是禁止的捏？」_W"
				CALL PRINT_STR, @"「如果想看%TEXTR("小穴/真品/＿")%的话、什么时候都可以给你看的、所以请随心所欲地%TEXTR("好好疼爱那里/玩弄那个地方")%捏♪」_W"
			CASE 3
				CALL PRINT_STR, @"「有其他女孩子的%TEXTR("裸照/色情照片")%吗？」_W"
				CALL PRINT_STR,  "「那个捏ー……稍微有一点兴趣♪」_W"
				CALL PRINT_STR, @"「那么这次请仔细欣赏莉雅拉%TEXTR("老师/酱")%的哟」_W"
			CASE 4
				SIF COND("胎内の精液量") < 30000
					GOTO LEARA_DAYLYCOM_LP1
				CALL PRINT_STR,  "「嗯～……那个……对不起、今天的阴唇小嘴巴要稍微関上一点_H_」_W"
				CALL PRINT_STR, @"「因为%TEXTR("子宮/深处/小宝宝的房间")%里还保管着%TEXTR("好多的/大量的/好多黏糊糊的")%%CNAME("精液")%……」_W"
				CALL PRINT_STR, @"「要是把小嘴巴张開、感觉就要%TEXTR("垂下来了/漏出来了")%哟……一直这样担心着捏_HH_」_W"
				PRINTFORMW 被小心地往两边拉開的%TEXTR("莉雅拉")%的秘唇中、粘稠的白浊液溢了出来、之后沿着大腿画出一条淫靡的轨迹滴在了地上……
		ENDSELECT
	ENDSELECT
	SIF LINECOUNT == LINE_MEMO
		GOTO LEARA_DAYLYCOM_LP1
CASE "性処理：前"
;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる

	LOCAL = LINECOUNT

	; 初回処理
	IF !DEVENT(SAVESTR:現在位置)
		;CALL SET_CEVENT, "初回性処理"
		; 司書室は你が訪問する
		; 他は你が呼び出す
		SELECTCASE SAVESTR:現在位置
			CASE "司書室"
				PRINTFORMW 第七图书室的司书室中。
				PRINTFORMW 鲜有人光顾、满是尘埃的狭小房间里%CALLNAME:TARGET%带着微笑迎接了%CALLNAME:PLAYER%。
				CALL PRINT_STR, "「已经等了很久了哟ー……_H_」_W"
				CALL PRINT_STR, "「大鸡鸡、已经没有办法忍耐了、对吧~？」_W"
				CALL PRINT_STR, @"「那么就按照约定、让%CALLNAME:TARGET%酱来侍奉大鸡鸡吧_HH_」_W"
				PRINTFORMW 满脸微笑着的%CALLNAME:TARGET%在%CALLNAME:PLAYER%的面前蹲了下来、一拉下裤子的拉链、已经勃起了的%CALLNAME:PLAYER%的肉棒就弹了出来……
				CALL PRINT_STR, "「啊哈_HH_　好大……_HH_HH_」_W"
				CALL PRINT_STR, "「嗯……阿姆……」_W"
				PRINTFORMW 一脸陶醉的%CALLNAME:TARGET%自言自语着、主动将%CALLNAME:PLAYER%的肉棒吞入口中、用舌頭从根部到顶端进行细心的按摩。
				CALL PRINT_STR, "「嗯嗯……_H_　哈啊……_H_」_W"
				CALL PRINT_STR, "「欸嘿嘿ー……_H_　虽然真的很想、从蛋蛋到龟頭全部用舌頭仔细的舔一遍、献上精致的吹箫侍奉」_W"
				CALL PRINT_STR, @"「但想要做完整套服务的%CALLNAME:TARGET%酱来说、休息时间太短了捏……」_W"
				PRINTFORM 　看起来很遗憾的样子、%CALLNAME:TARGET%自言自语着坐到了桌子上、自己
				SIF CHECK_SOCKS("長筒襪")
					PRINTFORM 撕破了穿着的丝袜
				PRINTFORM 错開了%PANTIES(TARGET)%
				IF COND("陰毛") == 7
					PRINTFORM 把粘着淫蜜长着茂盛阴毛的
				ELSE
					PRINTFORM 把那之中
				ENDIF
				PRINTFORMW 隐藏起来的肉壶的入口往两边拉開……
				PRINTFORMW 露出来的%CALLNAME:TARGET%的秘所、咕噜咕噜地流着蜜液、像是因为等不及要把肉棒吞进去一样、兴奋地蠢动着……
				CALL PRINT_STR, @"「没有办法呐、%CALLNAME:TARGET%酱的小嘴嘴也没有办法忍耐了捏ー……♪」_W"
				CALL PRINT_STR, "「这边可是一边想着差不多要来了吧一边兴奋地等着的呢、结果那边这样慢吞吞地、真是的♪」_W"
				CALL PRINT_STR, @"「%CALLNAME:TARGET%的全身的味道、之后再慢慢……嗯呀～_HH_」_W"
				PRINTFORMW 一将肉棒插进飘逸着淫荡的气味的肉壶之中、%CALLNAME:PLAYER%的肉棒就被预想以上更加柔软的软肉们紧紧地包着拉了进去。
				CALL PRINT_STR, "「嗯、嗯哼……_HH_HH_　突然之间、到、那么深的地方……_H_」_W"
				CALL PRINT_STR, "「啊、嗯、嗯、咿_HH_HH_　再进、进来、一点哟、不、不要、客、客气呀_H_」_W"
				CALL PRINT_STR, @"「在%CALLNAME:TARGET%的小穴里、变、变得、舒服起来、然后舒服地射出来♪」_W"
				PRINTFORMW 因为%CALLNAME:TARGET%色情的淫语、%CALLNAME:PLAYER%開始更加凶猛地单方面享受起%CALLNAME:TARGET%丰满的身体……

				; 強制的に内容を設定
				SELECTCOM = 60
				TFLAG:地の文スキップ = 1

			CASE "男子廁所"
				PRINTFORMW 谁都不在的男生厕所里、红着脸的%CALLNAME:TARGET%悄悄溜了进来……
				CALL PRINT_STR, "「非常抱歉、等久了吗……？」_W"
				CALL PRINT_STR, "「唔呼呼_H_　但是啊ー、把女孩子叫到男生厕所里面……」_W"
				CALL PRINT_STR, "「这样子、稍微有点兴奋起来了捏ー……_H_」_W"
				SELECTCASE NAMES("性処理")
					CASE "手淫"
						PRINTFORMW %CALLNAME:TARGET%贴在%CALLNAME:PLAYER%的背后、伸出双手拉下了%CALLNAME:PLAYER%的裤子的前面的拉链……
						CALL PRINT_STR, "「老师会温柔地咻叩咻叩地爱抚的啦ー、一定要乖乖地嘟噜嘟噜地流出淫荡的液体然后biu～地射出洁白的精液哟ー……_H_」_W"
						PRINTFORMW %CALLNAME:TARGET%用纤细的手指温柔地取出%CALLNAME:PLAYER%的肉棒、放在手心慢慢地開始了榨取……
					CASE "口交"
						PRINTFORMW %CALLNAME:TARGET%一在%CALLNAME:PLAYER%的腰前跪下来、就用嘴拉下了裤子的拉链、温柔地叼出了半勃起的性器……
						CALL PRINT_STR, "「啊……_H_　今天也很有精神呢ー……阿姆_HH_」_W"
						PRINTFORMW 直视着肉棒微笑着的%CALLNAME:TARGET%、毫不犹豫地吞下了%CALLNAME:PLAYER%的肉棒、像是在仔细品尝味道一样、驱使着舌頭開始了侍奉……
					CASE "乳交"
						PRINTFORMW %CALLNAME:TARGET%在%CALLNAME:PLAYER%的面前跪下来、就缓缓解開了%SHIRT(TARGET)%。
						CALL PRINT_STR, "「今天就这个样子……_H_　享受老师的乳穴吧ー……_H_」_W"
						CALL PRINT_STR, "「……嗯_H_　啊哈♪　老师的欧派、跳出来了……_H_」_W"
						PRINTFORMW 呼出灼热的喘息、%CALLNAME:TARGET%用柔软丰满的双丘開始了侍奉……
					CASE "Ｖ性交", "Ａ性交", "尿道挿入"
						PRINTFORMW 拉着%CALLNAME:PLAYER%的手进入隔间的%CALLNAME:TARGET%、坐到便座上抬起双脚打開了自己的大腿……
						CALL PRINT_STR, @"「今天捏ー……%CALLNAME:TARGET%酱是%CALLNAME:PLAYER%专用的肉便器哟ー……_H_」_W"
						CALL PRINT_STR, "「要忍耐不了的要嘟噜嘟噜地出来的尿液、请插到这里噗啾噗啾地解决掉捏……_H_」_W"
						CALL PRINT_STR, "「丝袜吗？　很便宜的哟ー、撕坏也是可以的捏ー……啊_H_」_W"
				CASEELSE
					CALL PRINT_STR, "「非常抱歉、因为没有多少时间的缘故……」_W"
					CALL PRINT_STR, "「请快点插到这里面然后变得舒服起来吧ー……_H_」_W"
				ENDSELECT
		CASEELSE
			; 未実装
		ENDSELECT

		; なにか発言していたらイベント有些として処理、そうでなければ汎用へ跳ばす
		IF LOCAL != LINECOUNT
			CALL SET_CEVENT, "初回性処理"
			GOTO KOJO_K11_DAYLYCOM_SKIP1
		ENDIF
		GOTO KOJO_K11_DAYLYCOM_SEISYORI_BEFORE_SKIP1
	ELSE
		; 二回目以降
		; 場所で分岐
		SELECTCASE SAVESTR:現在位置
		CASE "司書室"
			; 你が訪問する
			; 他は你が呼び出す
			SELECTCASE RAND:5
				CASE 0
					PRINTFORMW 一到門可罗雀的司书室、像是已经等不及了的%CALLNAME:TARGET%就%TEXTR("热情地/贪婪地")%索求起了热吻……
					CALL PRINT_STR, @"「……%TEXTR("＿/噗哈")%_H_　又让%CNAME("一人称")%等那么久_HH_HH_」_W"
					CALL PRINT_STR, @"「连到%TEXTR("放学/放课")%为止都%TEXTR("等不住的/忍耐不了的")%坏%CNAME("阴茎")%、%CALLNAME:TARGET%老师要好好%TEXTR("惩罚/处罚/安抚")%一下捏ー……_H_」_W"
				CASE 1
					CALL PRINT_STR, "「终——于过来了……_HH_HH_HH_」_W"
					CALL PRINT_STR, @"「这边可是一边想着差不多要到了吧、一边一个人寂寞地%CNAME("自慰")%哟_H_」_W"
					CALL PRINT_STR, @"「%CNAME("オマンコ")%、%CNAME("肛門")%、欧派、全部都准备好了♪」_W"
					CALL PRINT_STR, @"「今天要在那里%TEXTR("咕啾咕啾地/biu～地")%射出来呢？」_W"
			CASEELSE
				GOTO LEARA_DAYLYCOM_LP1
			ENDSELECT
		CASE "男子廁所"
			; 女性你の場合はここには来ない
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR, @"「嗯～_H_　%CALLNAME:TARGET%老师的小穴是精液厕所哟ー」_W"
					CALL PRINT_STR, @"「快点把白白的肉汁%TEXTR("嘟咕嘟咕地/咕啾咕啾地/咕噗咕噗地/biu～biu～地")%射进了捏ー」_"
				CASE 1
					CALL PRINT_STR, @"「%TEXTR("恩呼/啊哈/呀")%ー_H_　%CALLNAME:PLAYER%专用的精液便器来了哟ー……_H_」_W"
				CASE 2
					CALL PRINT_STR, "「在这种场所……是想让老师变成精液便器对吧……」_W"
					CALL PRINT_STR, "「……可以哟。咕滋咕滋地搅动、然后biu～biu～地射出来……_H_」_W"
			CASEELSE
				GOTO LEARA_DAYLYCOM_LP1
			ENDSELECT
		CASE "女子廁所"
			; 男性你の場合はここには来ない
		CASE "体育倉庫"
			;体育のある日限定
		CASE "更衣室"
			;体育か水泳のある日限定
		CASE "部室"
			SELECTCASE RAND:10
				CASE 0
					CALL PRINT_STR, @"「竟然有可以自由使用的场所……真的是很便利呢……_H_」_W"
					CALL PRINT_STR, @"「……知道了知道了_H_　马上就让你%TEXTR("变得舒服起来/变得兴奋起来/biu～地射出来")%捏ー」_W"
				CASE 1
					CALL PRINT_STR, @"「不不、请不用担心ー♪　%TEXTR("这个事情的/思春期的/满脑子都是性爱的")%%TEXTR("男孩子/男孩")%总是欲望满满的、这种事情还是知道的哟」_W"
					CALL PRINT_STR, @"「所・以・说_H_　请不要客气、快点使用%CNAME("一人称")%吧_H_H_」_W"
			CASEELSE
				GOTO LEARA_DAYLYCOM_LP1
			ENDSELECT
		CASE "房顶"
			SELECTCASE RAND:10
				CASE 0
					CALL PRINT_STR, @"「竟然在露天的屋顶上让%TEXTR("老师/教师")%帮忙做性处理……」_W"
					CALL PRINT_STR, "「真的是麻烦的男人呐ー……_H_」_W"
				CASE 1
					SIF COND("授業中")
						GOTO LEARA_DAYLYCOM_LP1
					CALL PRINT_STR, "「等到下课后在做不行吗？　真拿你这个孩子没有办法_H_」_W"
					CALL PRINT_STR, @"「如果想在部室里慢慢地%TEXTR("安抚自己/欺负自己/可爱地自慰/做些舒服的事情")%的话、就让%CALLNAME:TARGET%老师来%TEXTR("叽噗叽噗地/吸啵吸啵地")%帮你吧♪」_W"
				CASE 2
					SIF !COND("授業中")
						GOTO LEARA_DAYLYCOM_LP1
					CALL PRINT_STR, "「讨厌_H_　不能等到休息时间吗？」_W"
					CALL PRINT_STR, @"「为了让%CALLNAME:MASTER%上课能集中听讲ー、%CALLNAME:TARGET%酱决定要先让%CALLNAME:MASTER%舒服地射出来捏_H_」_W"
			CASEELSE
				GOTO LEARA_DAYLYCOM_LP1
			ENDSELECT
		CASEELSE
			;人迹罕至的教学楼后侧
			;PRINTL
		ENDSELECT

		; なにか発言していたらスキップ
		SIF LOCAL != LINECOUNT
			GOTO KOJO_K11_DAYLYCOM_SKIP1

		$KOJO_K11_DAYLYCOM_SEISYORI_BEFORE_SKIP1
		; 汎用口上
		SELECTCASE RAND:10
			CASE 0
				PRINTFORMW 「%TEXTR("恩呼/啊哈")%♪　\@ COND("授業中") ? 明明是在上课时间 # 明明是休息时间 \@ %CNAME("阴茎")%却%TEXTR("勃起了/一跳一跳地变大了")%捏……」
				CALL PRINT_STR, @"「能为性欲如此旺盛的男孩子%TEXTR("服务/侍奉/做性処理")%、%CALLNAME:TARGET%%TEXTR("酱/老师")%真是幸福_H_」_W"
			CASE 1

		CASEELSE
			GOTO LEARA_DAYLYCOM_LP1
		ENDSELECT

	ENDIF

CASE "性処理：後"
	IF CEVENT("初回性処理")
		; 初回の後処理
		SELECTCASE SAVESTR:現在位置
			CASE "司書室"
				PRINTFORM 驱动着硬硬的肉棒一遍又一遍地像是要弄坏%CALLNAME:TARGET%的子宫一样强烈地冲击着小穴的最深处、这样在最深的地方突然释放出了灼热的热流
				PRINTFORMW %CALLNAME:TARGET%露出一副快要被玩坏的表情紧紧地用小穴绞住%CALLNAME:PLAYER%不断喷射的肉棒……
				CALL PRINT_STR, @"「呼ー……呼ー……っ_HH_HH_」_W"
				PRINTFORMW 因为缺氧而急促地呼吸着的、%CALLNAME:TARGET%像是为了防止%CALLNAME:PLAYER%会突然逃走一样、用脚紧紧地缠住了%CALLNAME:PLAYER%的腰……
				PRINTFORMW 在像放尿一样那么长时间的射精之后、%CALLNAME:TARGET%又两三次操控着蠢动的小穴按摩着肉棒。确认已经全部射出来之后、%CALLNAME:TARGET%像是满足了一样放開了%CALLNAME:PLAYER%……
				PRINTFORMW 感受着像是在身上不断流窜的电流一样的快感拔出了阴茎、从突然打開的%CALLNAME:TARGET%的肉壶里浓稠的精液伴随着淫荡的流动的声音从里面滴落了下来……
				CALL PRINT_STR, "「这么……多_HH_HH_　射出来了、捏……_H_」_W"
				CALL PRINT_STR, "「满足……了吗……？　……欸嘿嘿……真是、太好了……_H_」_W"
				CALL PRINT_STR, @"「%CALLNAME:TARGET%酱、肚子里满满的……_HH_HH_　要溢出来了……_HH_」_W"
				CALL PRINT_STR, "「啊……如果、如果不清理一下的话……」_W"
				CALL PRINT_STR, "「……对不起捏、稍微、有点太激烈了、腰直不起来了……_H_」_W"
				CALL PRINT_STR, "「想要为大肉棒做清洁……所以能帮忙把大肉棒塞到我的嘴里吗……？　嗯……嗯姆_H_」_W"
				PRINTFORMW 把沾满了淫荡的爱液和种子汁的肉棒放到气喘吁吁的%CALLNAME:TARGET%的嘴边、%CALLNAME:TARGET%便立即包含爱意地含住了%CALLNAME:PLAYER%的肉棒。
				PRINTFORMW %CALLNAME:TARGET%的舌頭一边仔细地打扫着一边趁机把肉棒上、缝隙残留的精液抢走了……
				CALL PRINT_STR, "「嗯……啾♪　呼呼、变得干净了捏_H_」_W"
				PRINTFORMW 细心地把尿道里面残留的精液全部吸出来之后吞下去的%CALLNAME:TARGET%、亲吻了一下终于变得干净了的%CALLNAME:PLAYER%的铃口宣告了扫除的结束。
				CALL PRINT_STR, "「虽然有点可惜、但是已经没有时间了捏……不如说时间刚刚好……」_W"
				CALL PRINT_STR, @"「帮忙把这里整理好之后、%CNAME("二人称")%就要乖乖地回教室捏」_W"
				CALL PRINT_STR, "「后续就放到放学之后……拜托了哟……_HH_HH_」_W"
				PRINTFORMW 将不断从蜜所中漏出一块又一块粘稠精液的%CALLNAME:TARGET%的妖娆身姿记在脑海中、%CALLNAME:PLAYER%回到了自己的教室……
			CASE "男子便所"
				SELECTCASE NAMES("性処理")
					CASE "口交"
						CALL PRINT_STR, "「咕！？　～～～～_HH_」_W"
						PRINTFORM 　在充分地享受了%CALLNAME:TARGET%的灵巧的舌侍奉之后、突然把肉棒塞进了喉咙里面、%CALLNAME:TARGET%一瞬间像是吓了一跳一样全身開始颤抖起来
						PRINTFORMW 就这样直接在喉咙里面開始射精、那双眼睛蒙上了一层迷醉的眼神……
						PRINTFORMW %CALLNAME:TARGET%一边用喉咙发出悲鸣一边专心地吞咽%CALLNAME:PLAYER%的精液……
						CALL PRINT_STR, "「……哈、啊…………_HH_」_W"
						CALL PRINT_STR, "「讨厌……突然射出来、很过分的哟……_H_」_W"
						CALL PRINT_STR, "「明明还没有好好品味味道的说ー……啾_HH_」_W"
					CASE "手淫"
						CALL PRINT_STR, "「啊哈_H_　射出来好多好多捏～_H_」_W"
						CALL PRINT_STR, @"「%CALLNAME:TARGET%酱的小手手、感觉很舒服吗ー？」_W"
						PRINTFORMW 在向小便池射出了好多精液之后、%CALLNAME:TARGET%一直用手指温柔地挑逗着还很敏感的肉棒龟頭一边在耳边低语着。
						CALL PRINT_STR, "「呼呼_H_　如果、是射在嘴里或者射在脸上就更好了ー」_W"
						PRINTFORMW %CALLNAME:TARGET%は阴茎にこびり付いていた性器を指で拭い、見せつけるようにそれを舌で舐め取って見せた……
					CASE "乳交"
						CALL PRINT_STR, "「咿呀_H_　好、好烫……_HH_HH_」_W"
						CALL PRINT_STR, @"「……诶嘿嘿。在%CALLNAME:TARGET%的欧派小穴里这么凶猛地_H_　中出了捏_H_」_W"
						PRINTFORMW 为了防止在%CALLNAME:TARGET%的乳沟填得满满的精液流出来、%CALLNAME:TARGET%用力夹紧了自己的胸部……
						CALL PRINT_STR, @"「哈啊……_H_　真好啊ー、这股%TEXTS("气味")%……_H_」_W"
						CALL PRINT_STR, "「赐予我这么多浓厚的精液ー……非常感谢。阿姆_HH_」_W"
						PRINTFORMW %CALLNAME:TARGET%将刚刚结束了射精脏脏的%CALLNAME:PLAYER%的肉棒吞进了口中、開始全心全意地做肉棒清洁……
						CALL PRINT_STR, "「呼呼_H_　虽然有点可惜、就这样结束吧」_W"
						CALL PRINT_STR, @"「后续就留到放学之后……_HH_　跟%CALLNAME:TARGET%老师约好了哟♪」_W"
					CASE "Ｖ性交"
						CALL PRINT_STR, "「呼、啊……唔_H_　肚子、里面……_HH_　暖乎乎的……_HH_HH_」_W"
						PRINTFORMW %CALLNAME:TARGET%用因为高潮而不断痉挛的腿紧紧地缠住%CALLNAME:PLAYER%的腰的同时、感受着肚子里面狂暴的射精……
						CALL PRINT_STR, @"「诶嘿、诶嘿嘿……_H_　%CALLNAME:TARGET%酱的小穴、满满的都是温暖的白色尿液……_H_」_W"
						CALL PRINT_STR, "「在下一节课之前、就这样保持着插入……可以吗？_H_」_W"
					CASE "Ａ性交", "尿道挿入"
						PRINTFORMW
				ENDSELECT
		CASEELSE
			GOTO KOJO_K11_DAYCIM_SEISYORI_AFTER_SKIP1
		ENDSELECT

		CALL DEL_CEVENT, "初回性処理"
	ELSE
		; ２回め以降
		LOCAL = LINECOUNT
		SELECTCASE SAVESTR:現在位置
			CASE "房顶"
				SELECTCASE NAMES("性処理")
					CASE "口交"
					CASE "手淫"
						SELECTCASE RAND:10
							CASE 0
								CALL PRINT_STR, "「啊……射出来了捏ー」_W"
								CALL PRINT_STR, @"「%TEXTR("非常贵重/非常重要")%的%CNAME("精子")%、就这%TEXTR("没用地/无意义地")%射在了地上……真是一个坏孩子_H_」_W"
							CASE 1
								CALL PRINT_STR, "「啊_H_　biu～biu～、biu～啾～biu～啾～_H_」_W"
								CALL PRINT_STR, @"「要在%CALLNAME:TARGET%酱的小手手里面%TEXTR("_H_　/＿")%畅快地射精捏ー_H_」_W"
						ENDSELECT
					CASE "乳交"
					CASE "Ｖ性交"
					CASE "Ａ性交", "尿道挿入"
				CASEELSE
				ENDSELECT
		ENDSELECT

		; なにか発言していたらスキップ、そうでなければ汎用口上
		SIF LOCAL != LINECOUNT
			GOTO KOJO_K11_DAYLYCOM_SKIP1

		$KOJO_K11_DAYCIM_SEISYORI_AFTER_SKIP1
		; 汎用
		SELECTCASE RAND:10
			CASE 0
				CALL PRINT_STR, "「啊哈……_H_　怎么样？　舒服一点了吗？」_W"
				CALL PRINT_STR, @"「……嗯嗯、这样的话%CALLNAME:TARGET%酱也满足了_H_」_W"
				CALL PRINT_STR, "「后续……就留到这之后吧_HH_」_W"
			CASE 1
				CALL PRINT_STR, "「嗯ー……虽然有点遗憾、但看起来好像到时间了捏ー……」_W"
				CALL PRINT_STR, "「这之后还有更好的哟_H_」_W"
			CASE 2
				CALL PRINT_STR, @"「欸嘿ー……%TEXTR("充分地/大量地")%射出来了捏ー……_H_」_W"
				CALL PRINT_STR, @"「没事吗ー？　放学后要射出来的%CNAME("精液")%、有好好地留下了吗ー？」_W"
		ENDSELECT
	ENDIF
CASE "性処理を頼んだ際の反応"
	;干劲がある場合
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		;CASE "口交"
		;CASE "乳交"
		;CASE "Ｖ性交"
		;CASE "Ａ性交"
		;CASE "尿道性交"
		;CASE "乳頭奸"
		CASEELSE
			PRINTFORMW
		ENDSELECT
	ENDIF
	SIF LINECOUNT - LINE_MEMO
		RETURN 1

	;何かしながらで良いならして给よって場合。何をしながらなのかは SAVESTR:夢中 で参照できる。
	IF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		;CASE "手淫"
		;CASE "Ｖ性交"
		;CASE "Ａ性交"
		;CASE "尿道性交"
		CASEELSE
			PRINTFORMW
		ENDSELECT
	ENDIF

	; 干劲无
	SELECTCASE RAND:5
		CASEELSE
			PRINTFORMW
	ENDSELECT

CASE "拜托処理性欲"
	SELECTCASE NAMES("性処理")
		;CASE "口交"
		;CASE "乳交"
		;CASE "Ｖ性交"
		;CASE "Ａ性交"
		;CASE "尿道性交"
		;CASE "乳頭奸"
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
		;CASE "手淫"
		;CASE "Ｖ性交"
		;CASE "Ａ性交"
		;CASE "尿道性交"
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASEELSE
	; バグ回避策
	;PRINTFORMW
	RETURN 1
ENDSELECT

$KOJO_K11_DAYLYCOM_SKIP1

SIF LINECOUNT - LINE_MEMO
	RETURN 1
GOTO LEARA_DAYLYCOM_LP1

;-------------------------------------------------
;约会の際のセリフ
;  约会の詳細はEVENT_DATE.ERB参照
;-------------------------------------------------
@KOJO_DATE_K11, ARGS
#DIM LINE_MEMO

$LEARA_DATE_LP1
LINE_MEMO = LINECOUNT

SELECTCASE ARGS
CASE "约会のお誘い"
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR, @"「%TEXTR("那个/说起来")%这次的休息日、有什么%TEXTR("事情/予約")%吗？」_W"
			CALL PRINT_STR, @"「如果很闲的话、和莉雅拉%TEXTR("老师/酱")%%TEXTR("一起出去玩/去约会/去散步")%怎么样？」_W"
		CASE 1
			CALL PRINT_STR,  "「偶尔想放下肉欲和本能、做些恋人之间会做的事情」_W"
			CALL PRINT_STR,  "「能陪人家一下吗？」_W"
	ENDSELECT

CASE "邀请去约会"
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「又要两个人一起出去吗……？」_W"
				CALL PRINT_STR,  "「啊、不是、并不是讨厌这种事情。不如说能收到邀请非常高兴哟_H_」_W"
				CALL PRINT_STR,  "「…………_H_／／／_」_W"
			CASE 1
				CALL PRINT_STR,  "「…………_HH_　嗯、非常乐意_H_」_W"
				CALL PRINT_STR,  "「来进行愉快的约会吧_H_」_W"
		ENDSELECT
		SIF LINECOUNT - LINE_MEMO
			RETURN 1
		GOTO LEARA_DATE_LP1
	ENDIF

	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR, @"「%TEXTR("啊啦/哦呀")%？　难道说ー、这就是约会的邀请吗？」_W"
			CALL PRINT_STR,  "「当然是OK哟♪　非常乐意捏_H_」_W"
		CASE 1
			CALL PRINT_STR, @"「虽然收到约会的邀请%TEXTR("感觉很光荣/很高兴")%、不用%TEXTR("这么紧张/不用这么严肃")%也是可以的捏？」_W"
			CALL PRINT_STR, @"「补偿的话、就在%TEXTR("床上/被子里")%给%CNAME("一人称")%_H_　吧？」_W"
	ENDSELECT

CASE "待ち合わせ"
	PRINTFORMW
CASE "约会本番"
	; 妊娠中
	IF COND("妊娠中：臨月")
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, @"「呼呼_H_　这样子出門、稍微有点%TEXTR("害羞/兴奋/紧张")%捏」_W"
				CALL PRINT_STR, @"「%TEXTR("这么大的肚子/有宝宝的肚子/怀孕的肚子")%被这样露出来、不就像是在说『私被这个男人%TEXTR("弄得怀上了小宝宝/弄得怀上了婴儿/种下了种子/的精液搞到怀孕了/在某次狂乱的性交中弄到怀孕了/中出了")%』一样吗……」_W"
				CALL PRINT_STR, @"「那就再展示给%TEXTR("各种各样的/更多的/其他的")%人看看吧ー♪」_W"
			CASE 1
				CALL PRINT_STR,  "「呼……_H_　肚子变得这么大、走路稍微有点不方便」_W"
				CALL PRINT_STR,  "「……呼呼_H_　请不要在意这种事情哟。知道%CALLNAME:MASTER%很関心我的啦_H_」_W"
				CALL PRINT_STR, @"「有这样%TEXTR("温柔的/绅士的/関心他人的")%爸爸的话%TEXTR("小宝宝/这个孩子")%也会很高兴的哟♪」_W"
				PRINTFORMW 微笑着的莉雅拉%TEXTR("饱含爱情地/很重视地/很幸福地")%%TEXTR("抚摸着/摸着")%着自己的大肚子……
		ENDSELECT
	ENDIF
	SIF LINECOUNT - LINE_MEMO
		RETURN 1

	; 場所判定
	;  散歩/尋訪美食/逛街/去水族馆/去游乐园
	;  去图书馆 : 莉雅拉は不可
	;  赏花/爬山/赏红叶/滑雪 : システム的に未実装(2019_03_24)
	;  去游泳 : 夏のみ
	SELECTCASE SAVESTR:约会
		;CASE "去买泳衣"
		CASE "散歩"
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR,  "「今天要在那边散步吗」_W"
					CALL PRINT_STR,  "「能悠闲地放松一会我觉得很不错呐」_W"
				CASE 1
					CALL PRINT_STR,  "「只是一起悠闲地散步就感觉挺開心的」_W"
					CALL PRINT_STR,  "「“一起”、这个词可是重点捏♪」_W"
			ENDSELECT
		CASE "尋訪美食"
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR, @"「实际上有想去一次试试看的%TEXTR("咖啡屋/coffee店/餐厅/荞麦屋ん/食堂/匹萨屋")%捏～」_W"
					CALL PRINT_STR, @"「交换食物啊、%TEXTR("相互喂食/啊~~_H_　")%什么的要试试看吗？_H_」_W"
				CASE 1
					CALL PRINT_STR, @"「今天是%TEXTR("奶油泡芙/博饼/大烧饼/巧克力泡芙/巧克力/馒頭/团子/煎薄饼")%的日子。嗯、没错、是这样的」_W"
					CALL PRINT_STR,  "「……诶嘿嘿。实际上从昨天起一直想着这样的事情……」_W"
					CALL PRINT_STR, @"「就%TEXTR("放弃挣扎、/老实地")%%TEXTR("陪我一下/一起去")%吧♪」"
			ENDSELECT
		CASE "逛街"
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR, @"「今天是一起去%TEXTR("购物/买东西")%捏♪」_W"
					CALL PRINT_STR, @"「……呼呼_H_　要帮忙选选莉雅拉酱的%TEXTR("内裤/胖次/小内内")%吗？」_W"
				CASE 1
					CALL PRINT_STR, @"「虽然对cosplay服啊、有以前认识的孩子出演的%TEXTR("电影/视频录像/成人电影/色情视频")%什么的很感兴趣……」_W"
					CALL PRINT_STR, @"「但今天是为了买%TEXTR("厨房用品/餐具/化妆品/药品/部室用茶包/新型蛋糕/时尚杂志")%而出門」_W"
					CALL PRINT_STR, @"「%CNAME("二人称")%有什么要买的东西吗？」_W"
			ENDSELECT
		CASE "去水族馆"
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR,  "「…………」_W"
					PRINTFORMW 莉雅拉一副很认真的表情在读%TEXTR("『特集　沙丁鱼群』/『体験　海洋生物们』/『企鹅博览会』/『珊瑚博览会』")%的宣传册……
					PRINTFORMW 可以看到在杂志上已经贴了好几个便签。
				CASE 1
					CALL PRINT_STR, @"「要回去的时候可以买一个%TEXTR("企鹅/鲨鱼/乌龟")%老师的玩偶吗？」_W"
				CASE 2
					CALL PRINT_STR,  "「那个水族馆、实际上在学生之中很有人气的哟？」_W"
					CALL PRINT_STR,  "「……被朋友看见了该怎么解释好呢？　呼呼♪」_W"
			ENDSELECT
		CASE "去游乐园"
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR,  "「～～♪」_W"
					PRINTFORMW 哼着歌的莉雅拉看起来心情很好的样子……
				CASE 1
					CALL PRINT_STR, @"「果然%TEXTR("约会/和异性一起去玩")%的话还是游乐园最好了捏♪」_W"
					CALL PRINT_STR, @"「因为这样的地方%TEXTR("并不是很熟悉/并没有来过")%、所以今天一定要尽兴地玩一天哟♪」_W"
			ENDSELECT
		CASE "去游泳"
			SELECTCASE RAND:5
				CASE 0
					CALL PRINT_STR, @"「今天就请只盯着莉雅拉酱一个人的%TEXTR("无敌泳装/漂亮身材/魅惑身体")%捏_H_」_W"
					CALL PRINT_STR, @"「呼呼_H_　不要担心哟、会好好地选择%TEXTR("符合大人的审美的/并不怎么工口的/普通一点的/可爱的感觉的")%泳装的啦♪」_W"
					CALL PRINT_STR,  "「不要想～歪～了捏」_W"
				CASE 1
					CALL PRINT_STR, @"「実は%CNAME("莉雅拉酱")%、ガチで%TEXTR("泳げなかったり/カナヅチだったり")%します」_W"
					CALL PRINT_STR, @"「所以、那个……进到水里的时候想要被%TEXTR("握着手/抓着手腕/搂着腰")%」_W"
					CALL PRINT_STR, @"「才不是假的。这边可是认真地在请求的说」_W"
			ENDSELECT
	ENDSELECT
	SIF LINECOUNT - LINE_MEMO
		RETURN 1

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「今天就一起好好玩吧」_W"
		CASE 1
			CALL PRINT_STR, @"「实际上学院外面的%TEXTR("旅馆/爱情旅馆")%还是知道一些的捏……」_W"
			CALL PRINT_STR,  "「今天想要好好享受一下♪」_W"
		CASE 2
			CALL PRINT_STR,  "「为什么%CALLNAME:TARGET%对时尚潮流什么的很有研究、这样吗？」_W"
			CALL PRINT_STR, @"「……呼呼_H_　%TEXTR("这是秘密/这是当然的/说对了")%_H_」_W"
	ENDSELECT

CASE "手をつなぐ"
	PRINTFORMW
CASE "手をつながない"
	IF TALENT:恋慕
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「…………」_W"
				PRINTFORMW 莉雅拉什么都没有说、只是一直幽怨地盯着这边……
		ENDSELECT
	ENDIF
	SIF LINECOUNT - LINE_MEMO
		RETURN 1

	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「～～♪」_W"
			PRINTFORMW 莉雅拉看起来心情很好地哼着歌……
	ENDSELECT

;泳装を買いに行った時です
CASE "泳装選び開始"

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR, @"「……总感觉比选%TEXTR("胖次/内裤")%还要羞耻」_W"
			CALL PRINT_STR,  "「到底是为什么呢」"
		CASE 1
			CALL PRINT_STR, @"「%CNAME("莉雅拉酱")%に『コレ着てほしい！』ってのは有ますかぁ？」_W"
			CALL PRINT_STR,  "「当然是可以的哟_H_」_W"
		CASE 2
			CALL PRINT_STR, @"「再稍微刺激的一点的%TEXTR("更好/也可以")%吧」_W"
			CALL PRINT_STR, @"「怎么样？　%TEXTR("大概/肯定/正好")%在%TEXTR("玩/做些有趣的事情/H")%的时候也可以用」_W"
		CASE 3
			CALL PRINT_STR,  "「……说起来、虽然来帮忙选泳衣也是可以的」_W"
			CALL PRINT_STR, @"「那是、只是单纯地想看到穿着泳衣的莉雅拉酱吗？　还是说ー」_W"
			CALL PRINT_STR, @"「想要向别人炫耀穿着泳衣的莉雅拉酱是属于自己的东西呢？　呼呼_H_」_W"
	ENDSELECT

	;Micro比基尼とかもＯＫ
	;IF COND("Ｈ的泳装選択可能") && RAND:2
	;	PRINTFORMW
	;ELSEIF RAND:2
	;	PRINTFORMW
	;ELSE
	;	PRINTFORMW
	;ENDIF
CASE "泳装決定"
	; ぼーぼーです
	IF COND("陰毛") >= 6
		SELECTCASE SWIM(STR:選んだ泳装, "種類")
			CASE "Micro比基尼", "高開衩連衣裙", "淚珠泳衣", "彈弓泳衣"
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STR, @"「……真是的_H_　选了一件%TEXTR("很不健全的/很厉害的/很有挑战性的")%东西捏……_H_」_W"
						CALL PRINT_STR, @"「不考虑一下%TEXTR("阴毛/那个地方的小毛毛会被看到")%什么的吗……？」_W"
					CASE 1
						CALL PRINT_STR, @"「%TEXTR("选/穿上")%这个的话、总感觉那个地方的小毛毛会被别人看到的捏ー……」_W"
						CALL PRINT_STR,  "「之后、能帮忙处理一下吗？　还是说ー、想要看到这副这么难堪的身体？」_W"
				ENDSELECT
		ENDSELECT
	ENDIF
	SIF LINECOUNT - LINE_MEMO
		RETURN 1

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR, @"「原来如此原来如此……原来%TEXTR("对这个有兴趣/喜欢这个")%捏？」_W"
			CALL PRINT_STR,  "「不是不是、只是想着可以作为参考哟_H_　今后也请多多期待%CALLNAME:TARGET%酱的表现_H_」_W"
		CASE 1
			CALL PRINT_STR,  "「唔……这样的话、就再买一套一样的吧」_W"
			CALL PRINT_STR, @"「难得出来买一次泳装……要是在%TEXTR("玩/H/做重要的事情")%的时候给%CALLNAME:MASTER%弄破了就麻烦了」_W"
			CALL PRINT_STR,  "「嘛、这套就是玩各种PLAY的时候用的捏」_W"
		CASE 2
			CALL PRINT_STR, @"「嗯ー。下次也让%CNAME("二人称")%来帮忙选%TEXTR("内衣/胖次")%吧」_W"
			CALL PRINT_STR, @"「比这套%TEXTR("更加色情的/更加鬼畜的/更加色气的/更加刺激的")%也是完全没有问题的哟_H_」_W"
	ENDSELECT

; 泳装決定後に試着室で抜いてもらう
CASE "请求偷偷口交"
	CALL SET_CEVENT, "约会：草丛口交"

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「讨厌……♪　这个变得这么大是不行的啦……♪」_W"
			CALL PRINT_STR, @"「明明莉雅拉酱也在拼命忍耐的说……_H_」_W"
		CASE 1
			CALL PRINT_STR, @"「看到莉雅拉酱%TEXTR("脱衣服/换衣服")%之后就%TEXTR("兴奋/激动")%起来了吗？」_W"
			CALL PRINT_STR,  "「总是盯着这边……_H_　虽然不是什么坏的癖好……_H_」_W"
			CALL PRINT_STR,  "「……哈_H_　用嘴来缓解一下吧ー……_HH_」_W"
		CASE 2
			CALL PRINT_STR, @"「虽然%TEXTR("有点遗憾/是难得的机会")%、这里不能用%TEXTR("小穴/小淫穴")%做呢」_W"
			CALL PRINT_STR, @"「这之后再%TEXTR("啪库啪库/啪啪啪")%地做、好吗？_H_」_W"
			CALL PRINT_STR,  "「作为替代、就请先用嘴巴舒服起来哟……_HH_」_W"
	ENDSELECT

;泳池などで泳装姿に着替え、待ち合わせ場所に集合した時です
CASE "泳装に着替えた"

	; 妊娠中
	IF COND("妊娠中：臨月")
		; 特定の泳装でのコメント
		SELECTCASE SWIM(CSTR:今年の泳装, "種類")
			CASE "競泳泳装"
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STR,  "「～～～～♪」_W"
						PRINTFORMW 挺着大大的%TEXTR("肚子/小腹")%、像是在炫耀一般、莉雅拉从更衣室中走了出来。
						PRINTFORMW 莉雅拉穿着的泳衣%SWIM(CSTR:今年の泳装, "種類")%虽然是露出度比较低的类型、但是因为那似乎在大声说着%TEXTR("马上就要出产的/马上就要成为母亲")%的%TEXTR("肚子/小腹")%的関系、产生了一些微妙的背德的%TEXTR("魅力/色情的感觉")%……
						CALL PRINT_STR,  "「让您久等了_H_　怎么样？　合适吗？」_W"
						CALL PRINT_STR,  "「……从这副表情来看、效果似乎不错捏_H_」_W"
					CASE 1
						CALL PRINT_STR, @"「这套泳衣、虽然觉得对莉雅拉酱来说稍微有点%TEXTR("太土了/太大人了")%」_W"
						CALL PRINT_STR, @"「但是看到那副似乎在说着『%TEXTR("好、就是这个/不如说这个超棒的好吗")%』的表情……_H_」_W"
						PRINTFORMW 用手抚摸着将%SWIM(CSTR:今年の泳装, "種類")%的机能美破坏得一干二净的%TEXTR("鼓鼓的下腹/突起的肚子")%、莉雅拉開心地笑了起来……
				ENDSELECT
			CASE "彈弓泳衣"
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STR, @"「这个……_H_　也许穿在莉雅拉酱身上%TEXTR("太有刺激性了/效果太强了")%……_H_」_W"
						PRINTFORMW 从更衣室中现身的穿着%SWIM(CSTR:今年の泳装, "種類")%的莉雅拉、一边调整着有没有都没有太大差别的绳带和顶着布片的乳頭的位置一边苦笑着。
						PRINTFORMW 总而言之、穿着布料很少的泳衣、因为%TEXTR("顺利地养育着婴儿的/马上就要到出产日期的")%%TEXTR("大肚子/鼓起来的小腹")%的缘故、膨胀起来的乳頭把衣服顶得紧紧的、只是普通地走一步乳房就像是要跳出来一样。
						PRINTFORMW 即使不走也会被人们一直盯着、但是莉雅拉却用无畏的笑容回击那些下流的视线、紧紧地抱住%CALLNAME:PLAYER%的手臂、把身体贴了上来。
						CALL PRINT_STR, @"「请用『这个女人是我的东西！』这样豪迈的气势保护%CALLNAME:TARGET%捏、%TEXTR("丈夫大人/爸・爸")%_HH_」_W"
					CASE 1
						CALL PRINT_STR, @"「嗯……_H_　感觉和没有穿差不多捏……_HH_」_W"
						PRINTFORMW 因为%SWIM(CSTR:今年の泳装, "種類")%的布料很少的関系、似乎不能很好地遮盖住莉雅拉的%TEXTR("丰满的/满溢出来的/任性的")%%TEXTR("躯体/身体")%的样子……
						PRINTFORMW 虽然莉雅拉看起来很困扰的样子、还是将%TEXTR("膨胀起来的/接近出产日的")%的肚子贴在了%CALLNAME:PLAYER%的身体上。
						CALL PRINT_STR, @"「嘛、只要能让%CNAME("二人称")%高兴就可以了啦……_H_」_W"
				ENDSELECT
		ENDSELECT
		SIF LINECOUNT - LINE_MEMO
			RETURN 1

		; 汎用
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「久等了ー♪」_W"
				PRINTFORMW 换上了%SWIM(CSTR:今年の泳装, "種類")%的莉雅拉、似乎在向周围的人炫耀着鼓鼓的肚子一样、走向%CALLNAME:PLAYER%。
				CALL PRINT_STR,  "「不行的哟ー、请再拿出一点男子气概来」_W"
				CALL PRINT_STR, @"「不向其他人展示『这个%TEXTR("女人/雌性/女性")%是%TEXTR("我的东西/我让她怀孕/我的女人/身怀着我的种子")%』这样强硬的态度的话……吗？_H_」_W"
				PRINTFORMW 悪戯っぽく微笑む莉雅拉の腰に手を回すと、彼女は一瞬驚いたような顔をしたあと満面の笑みで%CALLNAME:PLAYER%に身体を委ねてきた……
			CASE 1
				CALL PRINT_STR,  "「锵锵～♪　怎么样？　合适吗？」_W"
				CALL PRINT_STR,  "「泳衣的布料很舒适真的是太好了。因为连肚子也能舒服地盖住_H_」_W"
				PRINTFORMW 莉雅拉一边%TEXTR("嘻嘻地/開心地")%笑着一边抚摸着自己鼓起的肚子……
				CALL PRINT_STR, @"「多亏了%TEXTR("健康的/可爱的/元气的")%%CALLNAME:MASTER%有了%TEXTR("大肚子/孕肚/孩子")%呢、所以护卫的任务、就拜托了捏_H_」_W"
		ENDSELECT
	ELSEIF COND("妊娠中：妊娠発覚済み")
		; 汎用
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「嗯嗯～……？　怎么样？　肚子、肚子会不会很显眼？」_W"
				PRINTFORMW 正穿着%SWIM(CSTR:今年の泳装, "種類")%的莉雅拉、歪着頭抚摸起的自己的膨胀的下腹部……
				CALL PRINT_STR,  "「……嗯呼_H_」_W"
				PRINTFORMW 满面笑容的莉雅拉、靠在了%CALLNAME:PLAYER%的身体上……
			CASE 1
				CALL PRINT_STR, @"「能够看到大肚子的莉雅拉酱穿泳衣的样子、不觉得很有眼福吗？」_W"
				PRINTFORMW 穿着%SWIM(CSTR:今年の泳装, "種類")%的莉雅拉、笑着说出这句话。
				CALL PRINT_STR,  "「嘛、对于球一样大的肚子来说、这个也许还不够……」_W"
				CALL PRINT_STR, @"「因为是给%TEXTR("大肚子/体重比较重的")%的女孩子选的泳衣、不再好好地挑选一下吗？_H_」_W"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - LINE_MEMO
		RETURN 1

	; 露出系
	; 淫紋露出
	IF STRCOUNT(CSTR:今年の泳装, "下腹部露出") && MARK:淫紋
		IF COND("危険日")
			SELECTCASE RAND:5
				CASE 0
					PRINTFORMW 在更衣室里、被看到了穿着%SWIM(CSTR:今年の泳装, "種類")%的姿态的莉雅拉、似乎因为害羞羞红了脸。
					CALL PRINT_STR,  "「讨厌……_H_　真让人頭疼啊、这个……_H_」_W"
					PRINTFORMW 莉雅拉露出来的下腹部、那里已经没有办法被抹除的%TEXTR("淫乱的/下流的形状的/充满诱惑力的")%的花纹被充满爱意地抚摸着……
					CALL PRINT_STR, @"「这个、跟莉雅拉酱的身体状况连接着……就连%TEXTR("危険日/絶賛排卵中")%这种事情都会又反应的哟……_H_」_W"
					CALL PRINT_STR,  "「别人看到了的话肯定会报警的吧……」_W"
					CALL PRINT_STR, @"「如果是这样的PLAY的、把%TEXTR("H的/淫乱的")%的部分展示出来、那个」_W"
					CALL PRINT_STR,  "「真的是……太羞耻了……唔……_／／／_」_W"
			ENDSELECT
		ENDIF
		SIF LINECOUNT - LINE_MEMO
			RETURN 1

		SELECTCASE MARK:淫紋
			CASE 1
				; シール
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STR, @"「%TEXTR("讨厌/真是困扰")%呐……_H_　比想象的还要显眼呢、这个……_H_」_W"
						PRINTFORMW 莉雅拉一边说着一边抚摸着露出来了的下腹部……
						PRINTFORMW 那只手之下、隐隐约约能看到因为%CALLNAME:PLAYER%%TEXTR("希望/请求/拜托")%而贴上的%TEXTR("画着淫乱的花纹的/子宫的形状的/下流、充满诱惑力的")%贴纸……
						CALL PRINT_STR, @"「这个……不好好%TEXTR("承担起责任/负责")%可不行呢……_H_」_W"
					CASE 1
						CALL PRINT_STR, @"「果然%TEXTR("很显眼/像靶子一样显眼")%呢、这个……_H_」_W"
						PRINTFORMW 在更衣室里换上了%SWIM(CSTR:今年の泳装, "種類")%的莉雅拉、红着脸指着自己下腹部被贴上的%TEXTR("画着淫乱的花纹的/子宫的形状的/下流、充满诱惑力的")%贴纸。
						CALL PRINT_STR, @"「对男人来说怎么样的感觉呢？　因为这副打扮的莉雅拉酱、征服欲或者嗜虐欲被刺激到了吗？」_W"
						CALL PRINT_STR, @"「讨厌……_H_　那个地方%TEXTR("这么受男性欢迎吗/这么好看吗")%_H_」_W"
						PRINTFORMW 害羞了的莉雅拉抓起%CALLNAME:PLAYER%的手、缠在了自己的腰上。
						CALL PRINT_STR, @"「那样的话、就请好好抓住莉雅拉的那个地方捏？_H_」_W"
				ENDSELECT
			CASEELSE
				; ホンモノ
				SELECTCASE RAND:5
					CASE 0
						CALL PRINT_STR, @"「%TEXTR("嗯呼/啊哈")%_H_　让你久等了捏_H_」_W"
						PRINTFORMW 换上了%SWIM(CSTR:今年の泳装, "種類")%的莉雅拉、踏着轻巧的步伐走到了%CALLNAME:PLAYER%的面前。
						PRINTFORM 露出来的下腹部、似乎是正宣言着这个%TEXTR("女人/女孩子/身体/子宮/小穴")%已经是某人的所有物的%TEXTR("淫乱的/子宫形状的/充满着下流的诱惑力的")%淫纹浮现了出来……
						CALL PRINT_STR, @"「……讨厌_H_　%TEXTR("好好地挺起腰板哟/好好地负起责任呐/请多拿出点自信哟")%ー♪」_W"
						CALL PRINT_STR, @"「大声地喊出『莉雅拉是我的东西』这样的豪言壮语也是可以的哟？　呼呼_H_」_W"
				ENDSELECT
		ENDSELECT
	ENDIF
	SIF LINECOUNT - LINE_MEMO
		RETURN 1

	; 陰毛露出
	IF STRCOUNT(CSTR:今年の泳装, "陰毛露出") && COND("陰毛") >= 6
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「唔……应该要稍微清理一下吗」_W"
				PRINTFORMW 穿上了%SWIM(CSTR:今年の泳装, "種類")%的莉雅拉、摸着从泳衣中露出来的%TEXTR("黑森林/陰毛/乱毛/小穴毛")%看起来很害羞的样子……
				CALL PRINT_STR, @"「嘛这是为下一次而留下的%TEXTR("課題/作业")%呢……嗯、讨厌_H_　为什么露出那副表情啊_H_」_W"
				CALL PRINT_STR,  "「难道说、很喜欢这个样子嘛？　那样的话……没有办法了捏_H_」_W"
			CASE 1
				CALL PRINT_STR,  "「姆。大家意外地、都好好整理过了的样子」_W"
				PRINTFORMW 一边观察者周围的女性顾客、莉雅拉又自言自语地看向了自己的身体。
				PRINTFORMW %SWIM(CSTR:今年の泳装, "種類")%很困难地遮盖住了丰满的莉雅拉的身体上的重要部位、以至于不是全裸、而那股间的%TEXTR("散乱的/没有精心整理/任其生长的")%%TEXTR("黑森林/陰毛/乱毛/小穴毛")%从布料的缝隙中溢了出来……
				CALL PRINT_STR, @"「%CNAME("二人称")%はぁ、%CNAME("莉雅拉酱")%も%TEXTR("マン毛/おけけ/ヘア")%のお手入れすべきだと思いますぅ？」_W"
				CALL PRINT_STR, @"「回答的话就在下次的%TEXTR("床上/游戏中")%再听你说吧_H_」_W"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - LINE_MEMO
		RETURN 1

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR, @"「%TEXTR("啊哇哇/啊啦啦")%、久等了吗？」_W"
			CALL PRINT_STR,  "「换衣服稍微有点费事……」_W"
			CALL PRINT_STR,  "「……说起来」_W"
			CALL PRINT_STR, @"「怎么样？　莉雅拉酱的泳装姿态_H_　等待也是有价值的吧？」_W"
	ENDSELECT

	;どの泳装に着替えたか？
	;SELECTCASE SWIM(CSTR:今年の泳装, "種類")
	;CASE "比基尼"
	;	PRINTFORMW
	;CASE "Micro比基尼"
	;	PRINTFORMW
	;CASE "連体泳装"
	;	PRINTFORMW
	;CASE "競泳泳装"
	;	PRINTFORMW
	;其他はだいたいエロ泳装です
	;CASEELSE
	;	PRINTFORMW
	;ENDSELECT

;草丛口交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "到暗处去……"
	CALL SET_CEVENT, "约会：草丛口交"

	IF TALENT:恋慕
		; 導入
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「……讨厌_H_　明明今天想着要忍耐的说……_H_」_W"
				CALL PRINT_STR, @"「不是不是。%TEXTR("完全/这种小事")%不讨厌的呐♪」_W"
			CASE 1
				CALL PRINT_STR,  "「那么……用嘴帮你做哟……_H_」_W"
				CALL PRINT_STR,  "「因为我也、想要好好侍奉那个地方……_H_」_W"
		ENDSELECT
	ENDIF
	SIF LINECOUNT - LINE_MEMO
		RETURN 1

	; 汎用
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR, @"「%TEXTR("唔呼/啊哈")%♪　难道说忍不住了吗？」_W"
			CALL PRINT_STR, @"「%TEXTR("元气的/健康的/健全的/满满的都是种子汁的")%男人的象征翘起来了捏_H_」_W"
			CALL PRINT_STR, @"「但是、明明是难得的约会……%TEXTR("能做出之后再好好发泄的约定吗/能够先用嘴巴忍耐一下吗")%？」_W"
		CASE 1
			CALL PRINT_STR, @"「%TEXTR("嗯呼呼/诶嘿嘿")%ー……_H_　%TEXTR("那里/肉棒/小棒棒")%%TEXTR("变大了/变硬了")%捏……_H_」_W"
			CALL PRINT_STR, @"「难道说、想要我用嘴%TEXTR("吸出来/奉仕肉棒")%吗……？」_W"
		CASE 2
			SIF SAVESTR:约会 == "去买泳衣"
				GOTO LEARA_DATE_LP1
			CALL PRINT_STR, @"「讨厌_H_　%TEXTR("偷偷/突然")%把我%TEXTR("带到这种地方/这种角落")%……_H_」_W"
			CALL PRINT_STR, @"「虽然有点强硬……呼呼_H_　对莉雅拉酱来说、%TEXTR("这样的事情/这种无理的事情")%%TEXTR("可是大欢迎/很喜欢")%的哟ー」_W"
		CASE 3
			CALL PRINT_STR, @"「……%TEXTR("呼呼/唔呼")%_H_　从刚刚開始%TEXTR("男人的/雄性的")%%TEXTS("气味")%就%TEXTR("噗～/呲～")%地漏出来了哦……_H_」_W"
			CALL PRINT_STR, @"「闻到这么诱人的气味、莉雅拉酱也%TEXTR("感觉肚子饿了啦/突然感觉嘴巴好寂寞啊")%……_HH_」_W"
	ENDSELECT

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

CASE "接吻"
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「呀!?　……_HH_」_W"
			CALL PRINT_STR,  "「……诶嘿嘿_H_」_W"
			CALL PRINT_STR, @"「突然袭击过来……稍微%TEXTR("有点吓到了/吓了一跳呢")%♪」_W"
		CASE 1
			CALL PRINT_STR, @"「%TEXTR("啾~/kiss")%……%TEXTR("要做吗/想做吗")%？」_W"
			CALL PRINT_STR, @"「不、那个、%TEXTR("不要/不行")%什么的、虽然并不是这样的」_W"
			CALL PRINT_STR, @"「公開做这么%TEXTR("H/色情的/色色的")%的事情、那个、%TEXTR("还是有点不习惯/还没习惯/没有多少经验")%……」_W"
			CALL PRINT_STR, @"「……才不是%TEXTR("讨厌/不行")%什么的。嗯……_／／／_」_W"
		CASE 2
			CALL PRINT_STR,  "「嗯……っ_H_」_W"
			CALL PRINT_STR, @"「这样%TEXTR("的/啾啾/kiss")%……还感觉蛮新鲜的……_HH_」_W"
	ENDSELECT
CASE "摸屁股"
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR,  "「…………♪」_W"
				CALL PRINT_STR, @"「在到%TEXTR("LOVE旅馆/旅馆")%之前、不能忍耐一下吗……？_H_」_W"
			CASE 1
				CALL PRINT_STR,  "「讨厌_H_　不要突然摸人家的屁股呀_H_」_W"
				CALL PRINT_STR,  "「这边可是会反击的哟……？_H_」_W"
		ENDSELECT
	ENDIF
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问"
		PRINTFORMW
CASE "帰り際"
	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「啊啊……真实一段快乐的时光呢」_W"
			CALL PRINT_STR,  "「是要为即将结束的今天而惋惜呢、还是要期待下次的机会呢……有点烦恼呐」_W"
		CASE 1
			CALL PRINT_STR,  "「快乐的时间快要结束了的样子捏」_W"
			CALL PRINT_STR,  "「……能一起度过真的很高兴哟。诶嘿嘿」_W"
		CASE 2
			CALL PRINT_STR,  "「下次的约会……这样、是不是有点着急了呢？」_W"
			CALL PRINT_STR,  "「但是、正因此而開始期待下次的约会了呢」_W"
			CALL PRINT_STR,  "「很美妙的一段时间、非常感谢_H_」_W"
	ENDSELECT
CASE "约会終了"
	CALL SET_CEVENT, "约会：床イン"

	IF TFLAG:床イン
		SELECTCASE RAND:5
			CASE 0
				CALL PRINT_STR, @"「虽然今天还想着%TEXTR("再稍微/稍稍/只是稍微")%忍耐一下来着……_H_」_W"
				CALL PRINT_STR, @"「果然、%TEXTR("想再靠近一些感受一下/想把身体叠在一起/说到约会的话、肯定是这个啦")%……嗯？」_W"
				CALL PRINT_STR, @"「%TEXTR("不想一起去『休憩』一下吗/要一起去情人旅馆吗/想让我们身心融合吗")%？　嗯？_H_」_W"
			CASE 1
				CALL PRINT_STR, @"「今天%TEXTR("很開心/被认真地护送着玩了一天/度过了一段快乐的时光")%、那么接下来……嗯？_H_」_W"
				CALL PRINT_STR, @"「就接受莉雅拉酱给你的%TEXTR("很多很多的/满满的")%%TEXTR("快感/服务")%吧_H_」_W"
				CALL PRINT_STR, @"「%TEXTR("奉仕/婴儿/浴室/風俗")%PLAY%TEXTR("套餐/全套服务")%怎么样？」_W"
				CALL PRINT_STR, @"「%TEXTR("唔呼/啊哈")%_H_　%TEXTR("那么首先要/总之先/首先要")%%TEXTR("去/进入")%%TEXTR("情人旅馆/旅馆")%才行捏_H_」_W"
		ENDSELECT
		SIF LINECOUNT - LINE_MEMO
			RETURN 1
			; 床イン時の台詞は排他のためループ
		GOTO LEARA_DATE_LP1
	ENDIF
	SIF LINECOUNT - LINE_MEMO
		RETURN 1

	SELECTCASE RAND:5
		CASE 0
			CALL PRINT_STR,  "「真是快乐的一段时光呢……」_W"
			CALL PRINT_STR,  "「下次也请记得邀请这边捏」_W"
		CASE 1
			CALL PRINT_STR, @"「今日的%TEXTR("新鮮的/貴重的")%%TEXTR("惊喜/体験/経験")%%TEXTR("有很多/像山那么多")%呢♪」_W"
			CALL PRINT_STR, @"「真的是非常開心……%TEXTR("期待着下次机会/盼望下次的邀请/等着下次的邀请")%捏_H_」_W"
	ENDSELECT

CASEELSE
	; 未対応によるバグ予防用
	PRINTFORMW
ENDSELECT

; 終了判定
SIF LINECOUNT - LINE_MEMO
	RETURN 1
GOTO LEARA_DATE_LP1

@K11_DAYLYCOM_SLEEP_SEX_MENU(ARGS)
#DIMS MENUES
#DIMS TMPS
#DIM CNT
$K11_DAYLYCOM_SLEEP_SEX_MENU_LP1

	VARSET LOCALS
	VARSET MENUES

	IF ARGS == ""
		SELECTCASE RAND:5
			CASE 0
				ARGS = 菜单
			CASE 1
				ARGS = 一言
		CASEELSE
			GOTO K11_DAYLYCOM_SLEEP_SEX_MENU_LP1
		ENDSELECT
	ENDIF

	SELECTCASE ARGS
		CASE "お品書き"
			MENUES = %TEXTR("H_/＿")%%TEXTR("菜单/menu/ＭＥＮＵ")%%TEXTR("_H_/＿")%
			LOCALS = 亲吻/口交/乳交/带套插入/（%TEXTR("直接/无套/生")%插入%TEXTR("_H_/＿")%）/ＡＦ/返回
			SPLIT LOCALS, "/", LOCALS
			FOR CNT, 0, RESULT
				IF RAND:10 < 6
					SIF STRLENS(MENUES)
						MENUES += "/"
					MENUES += "　　" + LOCALS:CNT + "_T_"
					STRCOUNT LOCALS:CNT, "_"
					SIF STRLENS(LOCALS:CNT) - RESULT < 12
						MENUES += "T_"

					; お値段
					LOCAL = 0
					STRFIND LOCALS:CNT, "生", 0
					SIF RESULT >= 0
						LOCAL += 1
					STRFIND LOCALS:CNT, "ナマ", 0
					SIF RESULT >= 0
						LOCAL += 1
					STRFIND LOCALS:CNT, "なま", 0
					SIF RESULT >= 0
						LOCAL += 1
					IF LOCAL
						SELECTCASE RAND:10
						CASEELSE
							MENUES += TEXTR("免费/无责任") + TEXTR("_H/＿")
						ENDSELECT
					ELSE
						SELECTCASE LOCALS:CNT
							CASE "本番（避孕套）"
								LOCAL:1 = (RAND:5 + 5) * 1000
								SIF RAND:2
									LOCAL:1 *= 10
								MENUES = %MENUES%\\{LOCAL:1}
						CASEELSE
							MENUES += TEXTR("免费/无责任/一杯咖啡/一杯红茶/\\120")
						ENDSELECT
					ENDIF
				ENDIF
			NEXT
		CASE "一言"
			; 汎用
			MENUES = %TEXTR("请用～_H/请自由使用/请好好使用捏/之后记得要告诉我射出来多少次哟_H")%
			SIF COND("妊娠中：臨月")
				MENUES += "/正在养育婴儿_H/母子都很健康_H"
			SIF COND("陰毛") == 7
				MENUES += "/禁止对小穴毛恶作剧"
			SIF COND("危険日")
				MENUES += "/H_想要在危险日被大量中出_H"
	CASEELSE
	ENDSELECT

	CALL PRINT_LETTER, MENUES
RETURN 0

@K11_DAYLYCOM_SLEEP_SEX_PRINT(ARGS:0, ARGS:1, ARG)
#DIM LINE_COUNT
#DIM LINE_NUM
#DIM LEN
#DIM LEN_TMP
#DIM CNT
#DIMS TMPS, 20
#DIMS COLORS
#DIMS WORKS
	VARSET LOCALS
	VARSET LOCAL
	LEN = 0

	SPLIT ARGS:0, "/", LOCALS
	LINE_NUM = RESULT
	LEN = 0
	FOR LINE_COUNT, 0, LINE_NUM
		; タブを復帰した場合を想定した上で最大文字列長(半角)を得る
		VARSET WORKS
		SPLIT LOCALS:LINE_COUNT, "_", TMPS
		FOR CNT, 0, RESULT
			SELECTCASE TMPS:CNT
				CASE "T"
					WORKS += " "
					WHILE (STRLENS(WORKS) % 8 != 0)
						WORKS += " "
					WEND
			CASEELSE
				WORKS += TMPS:CNT
			ENDSELECT
		NEXT
		SIF STRLENS(WORKS) > LEN
			LEN = STRLENS(WORKS)
	NEXT
	SIF LEN % 2
		LEN += 1

	; 描画
	;   色選択
	COLORS = %ARGS:1%
	IF COLORS == ""
		SELECTCASE RAND:10
			CASE 0
				COLORS = ショッキング粉紅
			CASE 1
				COLORS = 粉紅
			CASE 2
				COLORS = 爱心粉紅
			CASE 3
				COLORS = 黄色
			CASE 4
				COLORS = イエロー
			CASE 5
				COLORS = 緑
			CASE 6
				COLORS = 青
			CASE 7
				COLORS = 水色
		ENDSELECT
	ENDIF
	SETCOLOR DEF_COLOR(COLORS)

	;   上枠
	SIF ARG == 0
		ARG = 6
	;     ヘッダのスペース
	FOR CNT, 0, ARG
		PRINT
	NEXT
	;     枠線(+1 はパディング用、+2 は左右の枠線分)
	FOR CNT, 0, (LEN / 2) + 1 + 2
		IF CNT == 0
			PRINT ┏
		ELSEIF CNT == ((LEN / 2) + 1 + 2) - 1
			PRINTL ┓
		ELSE
			PRINT ━
		ENDIF
	NEXT

	;   本分
	FOR LINE_COUNT, 0, LINE_NUM
		;     ヘッダのスペース
		FOR CNT, 0, ARG
			PRINT
		NEXT
		; 枠線、文字列
		LEN_TMP = 0
		PRINT ┃
		SPLIT LOCALS:LINE_COUNT, "_", TMPS
		LOCAL = RESULT
		FOR CNT, 0, LOCAL
			SELECTCASE TMPS:CNT
				CASE "H"
					CALL HEARTMARK
					LEN_TMP += 1
				CASE "T"
					PRINT
					LEN_TMP += 1
					WHILE ((LEN_TMP % 8) != 0)
						PRINT
						LEN_TMP += 1
					WEND
			CASEELSE
				PRINTFORM %TMPS:CNT%
				LEN_TMP += STRLENS(TMPS:CNT)
			ENDSELECT
		NEXT
		; 後ろ揃え
		WHILE (LEN_TMP < LEN)
			PRINT
			LEN_TMP += 1
		WEND
		PRINTL  ┃
	NEXT

	;   下枠
	;     ヘッダのスペース
	FOR CNT, 0, ARG
		PRINT
	NEXT
	;     枠線
	FOR CNT, 0, (LEN / 2) + 1 + 2
		IF CNT == 0
			PRINT ┗
		ELSEIF CNT == ((LEN / 2) + 1 + 2) - 1
			PRINTL ┛
		ELSE
			PRINT ━
		ENDIF
	NEXT

	RESETCOLOR

RETURN 0

path: ERB/EVENT_K/11 リアラ/EVENT_K11_DAILY.ERB