code:
;※※※※※※※※※※※※※※※※※※※※※※※※※
;日常系指令
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;300,会話
;TFLAG:193(1=大成功 0=成功 -1=失敗 -2=大失敗（TARGETがMASTERより教養が4以上高い)
;TCVAR:302(0=会話可能 1>=非恋慕時会話不能)
;MARK:反発刻印(3以上=会話不能)(4以上はバグ
;TCVAR:烂醉(1=通常成功or大失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K2_300
;指令共通メッセージ(TRAIN_MESSAGE)
;削除すると「～说着话。」とかが消えます
CALL TRAIN_MESSAGE
;口上メイン呼出
CALL M_KOJO_MESSAGE_COM_K2_300_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_300_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:ブチギレ
		PRINTFORMDW 摆着%TEXTR("发怒/难看")%的表情%CALLNAME:TARGET%几乎没有回应。
	ELSEIF TCVAR:烂醉
		PRINTFORMDL %CALLNAME:TARGET%红着脸发呆。好像不太明白意思。
		PRINTFORMW 「诶？什么啊~？」
	ELSEIF K2_CONSCIOUS_AND_TOLERANT()
		;博麗神社が拠点Mapでその廚房で仕事中のばあい
		IF GET_MAPNAME(MAIN_MAP) == "博麗神社" && 仕事中チェック(TARGET) && CFLAG:MASTER:現在位置 == P8廚房
			IF TALENT:恋慕 || TALENT:愛欲
				SELECTCASE ABL:料理技能
				CASE IS >= 4
					CALL K2_HPH_PRINT,@"「我会为%CALLNAME:MASTER%大人做美味的料理的HPH」","W"
				CASE 2,3
					CALL K2_HPH_PRINT,@"「要尝尝吗？充满了爱情哟HPH」","W"
				CASE IS <= 1
					PRINTFORMW 「我想为%CALLNAME:MASTER%大人做美味的料理」
				ENDSELECT
			ELSE
				SELECTCASE ABL:料理技能
				CASE IS >= 4
					PRINTFORML 「是的。然后呢~」
					PRINTFORMDW %CALLNAME:TARGET%灵巧地一边煮菜一边对话。
				CASE 2,3
					PRINTFORMW 「要尝尝吗？」
				CASE IS <= 1
					PRINTFORML 「那个，酱在哪里来着？」
					PRINTFORMDW %CALLNAME:TARGET%好像忙于做饭。
				ENDSELECT
			ENDIF
		ELSE
			SELECTCASE TFLAG:193
			CASE 1
				IF TALENT:恋慕 || TALENT:愛欲
					SELECTCASE RAND:2
					CASE 1
						PRINTFORMDL %CALLNAME:TARGET%把身体靠近了%CALLNAME:MASTER%。
						PRINTFORML 「每天的工作都很快乐，但是不能和%CALLNAME:MASTER%大人外出实在是太遗憾了。」
						CALL K2_HPH_PRINT,@"「所以两个人的时间很重要啊HPH」","W"
					CASEELSE
						;拠点が博麗神社
						IF GET_MAPNAME(MAIN_MAP) == "博麗神社"
							PRINTFORML 「谢谢你一直以来帮我做家务」
							PRINTFORMW 「能和%CALLNAME:MASTER%大人一起工作，非常幸福。」
						ELSE
							PRINTFORML 「工作愉快吗？当然，非常開心」
							PRINTFORMW 「而且，为了让%CALLNAME:MASTER%大人什么时候来都可以，一定要打扫干净。」
						ENDIF
					ENDSELECT
				ELSE
					PRINTFORMW 「原来如此~。%CALLNAME:MASTER%大人真是个知识渊博的人」
				ENDIF
			CASE 0
				SELECTCASE RAND:7
				CASE 1
					IF FLAG:扮演 != 1 && FLAG:扮演 != 9
						PRINTFORML 「是的。那个时候梦美教授和灵梦大人——」
						PRINTFORMDW %CALLNAME:TARGET%沉浸在过去中了。
					ELSE
						PRINTFORML 「也有这样的事情啊~」
						PRINTFORMDW 过去的事情让%CALLNAME:TARGET%的情緒高涨起来。
					ENDIF
				CASE 2
					PRINTFORMW 「放任不管的话，房间马上就会变脏，所以很麻烦。」
				CASE 3
					SELECTCASE TIME:5
					CASE 0,1
						PRINTFORML 「天气真好啊。」
						PRINTFORMW 「洗衣服的天气真好♪」
					CASE 2,3
						PRINTFORML 「是阴天啊」
						PRINTFORMW 「要洗的衣服吗？」
					CASE IS >= 4
						PRINTFORML 「嗯，天气不好啊。」
						PRINTFORMW 「不能洗衣服真遗憾……」
					ENDSELECT
				CASE 4
					PRINTFORML 「有扫除圆盘吗？」
					PRINTFORMW 「嗯，我也要努力争取不输。」
				CASE 5
					IF FLAG:扮演 == 9
						PRINTFORMW 「我好像不吃饭也没关系，但是动力源究竟是什么样的呢？」
					ELSE
						PRINTFORML 「是梦美教授为我制作的」
						PRINTFORMW 「诶？动力源吗？那么，会是什么呢？」
					ENDIF
				CASE 6
					;清掃技能と料理技能の合計が４未満
					IF ABL:清掃技能 + ABL:料理技能 < 4
						PRINTFORML 「呜～。为什么我工作不顺利呢？」
						PRINTFORML 「这样下去会不会被关在仓库里呢……」
						PRINTFORMDW %CALLNAME:TARGET%在想象中消沉。
					;清掃技能と料理技能の合計が４以上
					ELSE
						PRINTFORML 「工作也变得简单了」
						PRINTFORMW 多亏了%CALLNAME:MASTER%大人!
					ENDIF
				CASEELSE
					IF TALENT:恋慕 || TALENT:愛欲
						;拠点が博麗神社
						IF GET_MAPNAME(MAIN_MAP) == "博麗神社"
							;午後6時以前
							IF TIME < 1080
								PRINTFORMW 「今天的晚饭吃什么好？做%CALLNAME:MASTER%大人喜欢的东西哦」
							;午後6時以降
							ELSE
								PRINTFORMW 「明天的菜单怎么办呢？做%CALLNAME:MASTER%大人喜欢的东西吧」
							ENDIF
						ELSE
							;午後6時以前
							IF TIME < 1080
								PRINTFORMW 「今天的晚饭吃什么好呢~♪」
							;午後6時以降
							ELSE
								PRINTFORMW 「明天的菜单怎么办呢~♪」
							ENDIF
						ENDIF
					ELSE
						;午後6時以前
						IF TIME < 1080
							PRINTFORMW 「今天的晚饭怎么办？」
						;午後6時以降
						ELSE
							PRINTFORMW 「明天的菜单怎么办呢？」
						ENDIF
					ENDIF
				ENDSELECT
			CASE -1
				PRINTFORMW 「嗯。那个嘛，我不太懂……」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;301,泡茶
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K2_301
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_301_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_301_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K2_CONSCIOUS_AND_TOLERANT()
		SELECTCASE TFLAG:193
		CASE 1
			PRINTFORMW 「非常好喝！我也想像泡出这样的茶」
		CASE 0
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「啊，如果是泡茶的话，就让我来……可以吗？谢谢您」
			CASE 2
				PRINTFORMW 「很好喝。这茶是哪里的来的？」
			CASEELSE
				IF FLAG:扮演 == 11
					PRINTFORMW 「神社的话肯定是绿茶，是吗？我、我想没有那样的事！红茶也很好喝！」
				ELSE
					PRINTFORMW 「我常泡紅茶、但魔理沙小姐说在神社应该泡緑茶」
				ENDIF
			ENDSELECT
		CASE -1
			PRINTFORML 「啊！……呼呼……」
			PRINTFORMDW 好像太烫了。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;302,身体接觸
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K2_302

IF K2_CONSCIOUS_AND_TOLERANT() && !K2_EXCESSIVE_STATURE_GAP() && BATHROOM()
	DRAWLINE
	PRINTFORMDL %CALLNAME:MASTER%让%CALLNAME:TARGET%冲洗了后背。
	PRINTW
	SIF FLAG:口上色
		TRYCALLFORM M_KOJO_COLOR_K{TARGET}
	PRINTFORML 「帮您冲一下后背」
	IF TALENT:MASTER:性別 == 2
		PRINTFORMW 「果然男人的后背很强壮呢。」
	ELSE
		PRINTFORMW 「%CALLNAME:MASTER%的背影，非常美丽。」
	ENDIF
	RETURN 1
ENDIF
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_302_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_302_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K2_CONSCIOUS_AND_TOLERANT() && !K2_EXCESSIVE_STATURE_GAP()
		IF TALENT:恋慕 || TALENT:愛欲
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMDL %CALLNAME:TARGET%和%CALLNAME:MASTER%十指相交，两肩靠近了。
				PRINTFORMW 「……无论如何也，无法冷静……」
			CASE 2
				CALL K2_HPH_PRINT,@"「啊HPH 那里是……」","L"
				PRINTFORMDL %CALLNAME:TARGET%与平素不同，发出了很小的声音。
				IF BASE:情緒 >= 750 && BASE:理性 < 800 && CFLAG:积攒度 >= 300
					PRINTFORMDW %CALLNAME:TARGET%充满情欲的眼神，似乎要向%CALLNAME:MASTER%诉说什么。
				ELSE
					PRINTFORMDW %CALLNAME:TARGET%红着脸低着头。
				ENDIF
			CASEELSE
				PRINTFORMDL %CALLNAME:TARGET%把鼻子凑进头发里闻味道。
				PRINTFORMDL 闻到了清爽的香味。
				PRINTFORMW 「哈，不好意思……」
			ENDSELECT
		ELSE
			SELECTCASE TFLAG:193
			CASE 1
				PRINTFORMDL %CALLNAME:MASTER%为%CALLNAME:TARGET%按摩了
				PRINTFORML 「啊…那里……好舒服……」
				PRINTFORMDW 机器人也似乎很讲究。
			CASE 0
				SELECTCASE RAND:2
				CASE 1
					PRINTFORMDL %CALLNAME:MASTER%按摩了%CALLNAME:TARGET%的肩膀。
					PRINTFORMW 「恩，那里是……好痒」
				CASEELSE
					PRINTFORMDL %CALLNAME:MASTER%按摩了%CALLNAME:TARGET%的肩膀。
					PRINTFORMW 「嗯……咕哩咕哩……啊！
				ENDSELECT
			CASE -1
				PRINTFORMW 「呵，请不要碰奇怪的地方！」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;303,道歉
;TFLAG:193(2=菓子折成功 1=大成功 0=成功 -1=失敗 -2=菓子折失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K2_303
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_303_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_303_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;304,幫忙干活
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:350(仕事内容(JOB_仕事内容.ERB参照のこと
;TCVAR:沒法幫忙(=2 手伝っても早くは終わらない、時間停止中不可 永琳の診察等)
;==================================================
@M_KOJO_MESSAGE_COM_K2_304
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_304_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_304_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K2_CONSCIOUS_AND_TOLERANT()
		IF TALENT:恋慕 || TALENT:愛欲
			SELECTCASE RAND:3
			CASE 1
				PRINTFORML 「能帮我一下吗？谢谢您♪」
				CALL K2_HPH_PRINT,@"「今天晚上的礼物…… 哎嘿嘿HPH」","W"
			CASE 2
				PRINTFORML 「像这样两个人一起工作真好啊。」
				CALL K2_HPH_PRINT,@"「怎么说呢，这种共同作业的感觉HPH」","W"
			CASEELSE
				PRINTFORML 「再稍微靠近一点可以吗？」
				PRINTFORMDW 因为太靠近了所以很难做好工作。
			ENDSELECT
		ELSE
			SELECTCASE TFLAG:193
			CASE 1
				PRINTFORML 「做，做得非常好啊」
				PRINTFORMDW 被%CALLNAME:TARGET%所感动。
			CASE 0
				PRINTFORMW 「可以吗？谢谢您」
			CASE -1
				PRINTFORML 「不，这是我的工作。」
				PRINTFORMDW %CALLNAME:TARGET%拒绝了%CALLNAME:MASTER%的帮助邀请，但还是被强行帮助了。
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;305,索求膝枕
;TFLAG:193(-5=MASTERがTARGETよりも巨体の場合(TALENT:MASTER:体型 > TALENT:体型 + 2) 1=大成功 0=成功 -1=失敗)(-5以外は地の文分岐無し)
;ABL:親密(6以上=顔をのぞき込みながら頭を撫でてくれる 3以上=ただ頭を撫でてくれる 2以下=縮こまっている)
;==================================================
@M_KOJO_MESSAGE_COM_K2_305
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_305_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_305_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K2_CONSCIOUS_AND_TOLERANT() && TFLAG:193 != -5
		IF TALENT:恋慕 || TALENT:愛欲
			SELECTCASE RAND:3
			CASE 1
				CALL K2_HPH_PRINT,@"「好啊～　给您一个舒服的枕头HPH」","L"
				PRINTFORMDW %CALLNAME:TARGET%的大腿有适当的肉，非常舒服。
			CASE 2
				CALL K2_HPH_PRINT,@"「呼呼HPH 您工作累了吧」","L"
				PRINTFORMDW %CALLNAME:TARGET%微笑着并一直抚摸着我的头。
			CASEELSE
				CALL K2_HPH_PRINT,@"「您累了吗？ 还是只想撒娇？ 呼呼HPH」","W"
			ENDSELECT
		ELSE
			SELECTCASE TFLAG:193
			CASE 1
				IF ABL:親密 >= 6
					PRINTFORMW 「是因为工作很累吧。请♪」
				ELSE
					PRINTFORMW 「知，知道了。因为受到过%CALLNAME:MASTER%大人的照顾」
				ENDIF
			CASE 0
				SELECTCASE ABL:親密
				CASE IS >= 6
					PRINTFORMW 「您辛苦了。请暂时休息」
				CASE 3 TO 5
					PRINTFORML 「这、这也是女仆的工作吗……」
					PRINTFORMDW %CALLNAME:TARGET%一边困惑着一边给我枕着膝盖。
				CASE IS <= 2
					PRINTFORML 「怎、怎么办才好呢……？」
					PRINTFORMDW %CALLNAME:TARGET%很困惑。
				ENDSELECT
			CASE -1
				PRINTFORMW 「呜……脚抽筋了……」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;306,撫摸肚子
;TFLAG:193(1=ABL:親密6以上かつ妊娠時 0=成功 -1=ABL:親密5以下)
;==================================================
@M_KOJO_MESSAGE_COM_K2_306
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_306_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_306_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K2_CONSCIOUS_AND_TOLERANT() && !TALENT:無知
		IF CFLAG:妊娠自覚状態
			IF TALENT:恋慕 && !CFLAG:無自覚妊娠
				IF TALENT:MASTER:性別 == 2 && RAND:2
					PRINTFORMDL %CALLNAME:TARGET%从心底里带着幸福的表情和胎内的婴儿搭话了。
					PRINTFORMW 「看，是爸爸的抚摸哦~♪」
				ELSE
					CALL K2_HPH_PRINT,@"「很幸福…HPH」","W"
				ENDIF
			ENDIF
		;膣充填率が水準以上かつ膣内射精された自覚がある
		ELSEIF 充填率(TARGET,1) > 30 && TCVAR:種付けられ自覚
			IF TALENT:恋慕 || TALENT:愛欲
				SELECTCASE RAND:2
				CASE 1
					CALL K2_HPH_PRINT,@"「啊HPH 因为被灌得太多，我的肚子都胀起来了HPH」","W"
				CASEELSE
					CALL K2_HPH_PRINT,@"「满满的都是HPH」","W"
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;307,捏臉蛋
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
	;以下は先に書いた条件が優先される
	;TALENT:恋慕(受け入れつつ笑顔でやり返す
	;ABL:親密(6以上=怯生生地やり返す
	;ABL:従順(5以上=されるがまま
;==================================================
@M_KOJO_MESSAGE_COM_K2_307
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_307_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_307_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:睡眠
		PRINTFORMW 「嗯……嗯……」
	ELSEIF K2_CONSCIOUS_AND_TOLERANT()
		IF TALENT:恋慕
			SELECTCASE RAND:2
			CASE 1
				PRINTFORMW 「啊%CALLNAME:MASTER%大人也是这样♪」
			CASEELSE
				PRINTFORMW 「别呀♪我要报仇♪」
			ENDSELECT
		ELSEIF ABL:親密 >= 6 && TFLAG:193 >= 0
			PRINTFORMW 「净是%CALLNAME:MASTER%大人，真狡猾」
		ELSEIF ABL:従順 >= 5 && TFLAG:193 >= 0
			PRINTFORMW 「是什么奖励吗？」
		ELSE
			PRINTFORMW 「呜…好痛」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;308,捅臉頰
;陪睡中or睡眠中限定
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K2_308
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_308_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_308_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;睡眠中
	IF CFLAG:睡眠
	;通常
	ELSE
	ENDIF

ENDIF
RETURN 1
;==================================================
;309,摸頭
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;ABL:親密(6以上=通常成功時分岐
;==================================================
@M_KOJO_MESSAGE_COM_K2_309
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_309_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_309_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠中
	IF CFLAG:睡眠
		IF TALENT:恋慕 || TALENT:愛欲
			PRINTFORMW 「…喵……%CALLNAME:MASTER%大人……」
		ENDIF
	ELSEIF K2_CONSCIOUS_AND_TOLERANT()
		IF TALENT:恋慕 || TALENT:愛欲
			SELECTCASE RAND:3
			CASE 1
				CALL K2_HPH_PRINT,@"「已经努力打扫了♪请您表扬我HPH」","W"
			CASE 2
				CALL K2_HPH_PRINT,@"「被%CALLNAME:MASTER%大人抚摸的话脸会暖和起来HPH」","W"
			CASEELSE
				CALL K2_HPH_PRINT,@"「呵呵~%CALLNAME:MASTER%大人的手、\@ TALENT:MASTER:性別 == 2 && TALENT:MASTER:体型 >= 0 ?好大 #好舒服 \@HPH」","W"
			ENDSELECT
		ELSE
			SELECTCASE TFLAG:193
			CASE 1
				IF ABL:親密 >= 6
					PRINTFORML 「啊…已经结束了呢……」
					PRINTFORMDW %CALLNAME:TARGET%似乎想要更多的抚摸。
				ELSE
					PRINTFORML 「是，是为什么呢？」
					PRINTFORMDW %CALLNAME:TARGET%は觉得很不可思议、脸颊稍微放松下来。
				ENDIF
			CASE 0
				IF ABL:親密 >= 6
					PRINTFORMW 「嘿嘿。被表扬了」
				ELSE
					PRINTFORMW 「什、什么？我没有做过该受表扬的事」
				ENDIF
			CASE -1
				PRINTFORMW 「发型歪了……」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;331,泡茶（下薬）
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K2_331
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_331_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_331_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;332,勸酒
;TFLAG:193(0=不會喝酒成功 -1=不會喝酒失敗 -2=不會喝酒大失敗 -5=不會喝酒あきらめ)
;TFLAG:194(51=濁酒 52=清酒 53=鬼殺酒)
;ALCOHOL_TASTE(TFLAG:194)(15以上=気に入る 9以下=口に合わない)
;==================================================
@M_KOJO_MESSAGE_COM_K2_332
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_332_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_332_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;333,聽牢騷
;TFLAG:193(6=大成功(酔い) 5=成功(酔い) 4=失敗(酔い) 3=大成功 2=成功 1=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K2_333
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_333_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_333_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 6
		;大成功（酔い）
		CASE 5
		;成功（酔い）
		CASE 4
		;失敗（酔い）
		CASE 3
		;大成功
		CASE 2
		;成功
		CASE 1
		;失敗
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;334,碰杯
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:妊娠自覚状態(1=吃飯)
;TALENT:酒耐性(-2=吃飯)
;==================================================
@M_KOJO_MESSAGE_COM_K2_334
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_334_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_334_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 1
		;大成功
		CASE 0
		;成功
		CASE -1
		;失敗
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;335,照料
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K2_335
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_335_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_335_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 1
		;大成功
		CASE 0
		;成功
		CASE -1
		;失敗
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;336,膝枕
;ABL:親密(4以下=居心地悪げ 9以下=恥ずかしげ それ以上=幸せそう
;TIME_PROGRESS(TFLAG:膝枕した)(44以下=失敗
;==================================================
@M_KOJO_MESSAGE_COM_K2_336
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_336_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_336_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K2_CONSCIOUS_AND_TOLERANT()
		;寝ちゃった
		IF TFLAG:193 > 0
			PRINTL
			PRINTFORMDL %CALLNAME:TARGET%睁開眼睛了。
			IF TALENT:恋慕
				PRINTFORML 「我可睡着了啊」
				PRINTFORMW 「膝盖不疼吗？」
			ELSE
				PRINTFORMW 「啊，对不起。\@ ABL:親密 >= 5 ?我很開心，# \@不知不觉就……」
			ENDIF
		;寝ない
		ELSE
			SELECTCASE ABL:親密
			CASE IS <= 4
				PRINTFORMW 「嗯、女仆这样做真的可以吗……」
			CASE 5 TO 9
				PRINTFORMW 「呜、果然很害羞啊」
			CASE IS >= 10
				SELECTCASE RAND:3
				CASE 1
					PRINTFORMW 「哈……冷静」
				CASE 2
					PRINTFORMW 「总觉得有点困了……」
				CASEELSE
					PRINTFORMW 「嘿嘿，谢谢♪」
				ENDSELECT
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;350,推倒（時姦時猥褻
;TFLAG:194 (0=成功 1=人目がある　2=野外は嫌でござりまする　3=多人数プレイは勘弁　4=合意があっても情緒が足りぬ）
;TCVAR:初次拥抱　1=普通に合意ゲット　2=先に接吻ぐらいしろよ　3=媚薬or発情には勝てなかったよお…　4=悔しい…刻印さえなければﾋﾞｸﾋﾞｸﾝ
;5=強引に迫られると断れぬ(素質膽怯持ち専用) 6=まんざらでもない　7=駄目　8=論外
;==================================================
@M_KOJO_MESSAGE_COM_K2_350
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_350_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_350_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TCVAR:烂醉
		PRINTFORMW 「哦？」
	ELSEIF SHIRAHU(TARGET) && TFLAG:194 == 4 && CFLAG:ブチギレ
		PRINTFORML 「就算想这样蒙混过去也不行。请好好反省」
		PRINTFORMDW 想重归于好，却失败了。
	ELSEIF K2_BASIC_CONDITION_IN_MATING()
		;失敗
		IF TFLAG:194
			SELECTCASE TFLAG:194
			CASE 1,2
				;诶嘿嘿既成事實あり
				IF CFLAG:既成事實 & 2
					PRINTFORML 「这到底是……」
					PRINTFORMW 「让我们冷静一下吧。」
				ENDIF
			CASE 3
				;诶嘿嘿既成事實あり
				IF CFLAG:既成事實 & 2
					IF TALENT:恋慕 || TALENT:愛欲
						PRINTFORML 「哦，是和其他人一起吗？」
						PRINTFORML 「呜……那是……」
						PRINTFORMDW %CALLNAME:TARGET%好像希望到只有两个人的地方。
					ELSE
						PRINTFORMW 「怎么会……一起什么的不行……」
					ENDIF
				ENDIF
			CASE 4
				IF TALENT:恋慕 || TALENT:愛欲 || TALENT:思慕 || TALENT:炮友
					PRINTFORMW 「恩，我还想再多待一会儿。不行吗？
				ELSE
					PRINTFORML 「对不起。清扫的工作还没有做……」
					PRINTFORMDW %CALLNAME:TARGET%好像还没有那种心情。
				ENDIF
			ENDSELECT
		;初回
		ELSEIF TCVAR:初次拥抱
			SELECTCASE TCVAR:初次拥抱
			CASE 1
				IF TALENT:恋慕
					CALL K2_HPH_PRINT,@"「あっHPH ……我明白了」","W"
					PRINTFORMW 「我一直在等你……」
					PRINTFORMDW %CALLNAME:TARGET%脸颊像是染红了一样，一直看着%CALLNAME:MASTER%的眼睛。
				ELSEIF TALENT:風騷
					CALL K2_HPH_PRINT,@"「あんっHPH ……终于HPH」","W"
					CALL K2_HPH_PRINT,@"「什么时候都可以哦HPH」","W"
				ELSEIF TALENT:思慕
					PRINTFORMW 「啊……」
					PRINTFORMDW %CALLNAME:TARGET%似乎从%CALLNAME:MASTER%的样子中察觉到了欲望。
					PRINTFORMW 「……给你吧。就任由%CALLNAME:MASTER%大人了……」
					PRINTFORMDW %CALLNAME:TARGET%微微颤动着嘴唇，将身体交给了%CALLNAME:MASTER%。
				ELSE
					PRINTFORMW 「咦？啊、呀…」
					PRINTFORMDW %CALLNAME:TARGET%一副很吃惊的样子，凝视了一会%CALLNAME:MASTER%的眼睛，吐出一口气，放松了身体。
					PRINTFORMDW 好像是接受了。
					PRINTFORMW 「希望能温柔……请吧」
				ENDIF
			CASE 2
				IF TALENT:風騷
					CALL K2_HPH_PRINT,@"「你啊，不接吻就想干了HPH」","W"
					CALL K2_HPH_PRINT,@"「我喜欢这种拼命努力的感觉HPH」","W"
					IF !CFLAG:1001 && ( TALENT:処女 == 1 || TALENT:処女 == -1 )
						CALL K2_HPH_PRINT,@"「但其实我是第一次……所以，请温柔一点HPH」","W"
					ELSE
						PRINTFORMW 「但，请不要做过分的事。」
					ENDIF
				ELSE
					PRINTFORMW 「哇，我们还是……不，没什么」
					PRINTFORMDW %CALLNAME:TARGET%刚要说什么，就如放弃般闭上眼睛接受了%CALLNAME:MASTER%。
				ENDIF
			CASE 3
				PRINTFORMW 「哈……哈……身体好热」
				PRINTFORMDW 被火灼烧般的%CALLNAME:TARGET%的身体无法拒绝%CALLNAME:MASTER%了。
			CASE 4
				PRINTFORMW 「我好奇怪……想要……受不了」
				PRINTFORMDW 似乎在不知不觉中被開发出来的%CALLNAME:TARGET%的身体在追求%CALLNAME:MASTER%。
			CASE 5
			CASE 6
				PRINTFORMW 「很抱歉，我不能满足您的心意。」
			CASE 7
				PRINTFORMW 「不，请别这样。我是机器人哦」
				;霊夢と诶嘿嘿既成事實あり、かつ霊夢に扮演でない
				SIF CFLAG:1:既成事實 & 2 && FLAG:扮演 != 1
					PRINTFORMW 「而且，%CALLNAME:MASTER%大人是不是还有灵梦吗？」
				PRINTFORMDW %CALLNAME:TARGET%轻易地被拒绝了。
			CASE 8
				PRINTFORMW 「你觉得我是性处理工具吗？」
				PRINTFORMDW 被%CALLNAME:TARGET%断然拒绝了。
			ENDSELECT
		;成功二回目以降
		ELSE
			;被逆推中に推倒かえす
			IF TFLAG:COMABLE管理 == 3
				IF TALENT:恋慕 || TALENT:思慕
					CALL K2_HPH_PRINT,@"「啊呀HPH 从那边開始做吗？」","L"
					PRINTFORMW 「呵呵，请多关照」
				ELSEIF TALENT:愛欲 || TALENT:炮友 || TALENT:風騷
					PRINTFORML 「我也是这么想的……」
					CALL K2_HPH_PRINT,@"「……明白了。\@ K2_SEXUAL_FRANKNESS() ?请做好吃醋的准备。 #请以您喜欢的方式来做 \@HPH」","W"
				ELSE
					PRINTFORML 「从那边開始吗？」
					PRINTFORMW 「那么……交给你了」
				ENDIF
			;ふつうにMASTERから推倒
			ELSE
				;屋外
				IF OPENPLACE(CFLAG:MASTER:現在位置) >= 2
					IF ABL:露出癖 >= 6
						PRINTFORML 「在外面还想要吗？」
						PRINTFORMW 「呵呵，明白了。希望能让您心情舒畅。」
					ELSE
						PRINTFORML 「呜……在这种地方吗？
						PRINTFORMW 「哇，我明白了」
					ENDIF
				;屋内
				ELSE
					IF TALENT:恋慕 || TALENT:愛欲
						SELECTCASE RAND:6
						CASE 1
							PRINTFORML 「忽然想做了吗？呵呵，好啊」
							CALL K2_HPH_PRINT,@"「请随意使用我HPH」","W"
						CASE 2
							PRINTFORMDL 欲望支配下的%CALLNAME:MASTER%说着想要做的话，%CALLNAME:TARGET%露出了迷人的笑容
							PRINTFORMDW 沉默着将屁股朝向这边，表示接受了%CALLNAME:MASTER%的欲望。
						CASE 3
							PRINTFORMD %CALLNAME:TARGET%感受到了%CALLNAME:MASTER%的兴奋
							;掀裙子できて裤子沒穿場合
							IF ( EQUIP:裙子 || EQUIP:連衣裙 || EQUIP:和服 ) && !EQUIP:裤子
								PRINTFORMDL 抬起裙子下摆露出大腿的同时，诱惑着%CALLNAME:MASTER%。
							ELSE
								PRINTFORMDL 拿起%CALLNAME:MASTER%的手，引到胸前。
							ENDIF
							CALL K2_HPH_PRINT,@"「请享用我吧HPH」","W"
						CASE 4
							PRINTFORMDL 被欲望支配的%CALLNAME:MASTER%从背后抱住了%CALLNAME:TARGET%。
							PRINTFORMDL %CALLNAME:TARGET%露出微笑，用屁股摩擦%CALLNAME:MASTER%的胯间。
							CALL K2_HPH_PRINT,@"「我也变得想要了HPH」","W"
						CASE 5
							PRINTFORMDL %CALLNAME:TARGET%笑着说自己并不高兴。
							CALL K2_HPH_PRINT,@"「好吧。那么我来帮您处理吧HPH」","W"
						CASEELSE
							PRINTFORMDL 抱住了%CALLNAME:TARGET%的腰。
							PRINTFORML 「啊，你真不像话。」
							CALL K2_HPH_PRINT,@"「好啊♪ 再加点料吧HPH」","W"
						ENDSELECT
					ELSEIF TALENT:風騷
						SELECTCASE RAND:2
						CASE 1
							CALL K2_HPH_PRINT,@"「您还想再享用我吗？ 真是没办法啊HPH」","W"
						CASEELSE
							IF TALENT:MASTER:性別 == 2 && RAND:2
								CALL K2_HPH_PRINT,@"「又来了吗？嗯，男人真的很喜欢这个呢HPH」","W"
							ELSE
								CALL K2_HPH_PRINT,@"「%CALLNAME:MASTER%大人的精力太旺盛了～HPH」","W"
							ENDIF
						ENDSELECT
					ELSEIF TALENT:思慕
						SELECTCASE RAND:2
						CASE 1
							PRINTFORML 「啊……又要做了……我明白了」
							PRINTFORMDW %CALLNAME:TARGET%一边红着脸颊一边把身体交给了%CALLNAME:MASTER%。
						CASEELSE
							PRINTFORML 「太粗暴了……请不要这样」
							PRINTFORMDW %CALLNAME:TARGET%闭上水润的眼睛，接受了%CALLNAME:MASTER%。
						ENDSELECT
					ELSE
						SELECTCASE RAND:2
						CASE 1
							PRINTFORMW 「请，请使用」
						CASEELSE
							PRINTFORMW 「您又来了。我明白了」
						ENDSELECT
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;351,帯出去
;==================================================
@M_KOJO_MESSAGE_COM_K2_351
;連れ出しにはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K2_351_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_351_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K2_CONSCIOUS_AND_TOLERANT()
		;TARGET連れ出し
		IF CFLAG:同行 == 60
			IF TALENT:恋慕 || TALENT:愛欲 || TALENT:恋人
				PRINTFORMW 「是，我陪您一起去」
			ELSE
				PRINTFORMW 「你要去哪里？」
			ENDIF
		;TARGET以外連れ出し(TARGET同行中のみ
		ELSE
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;352,告白
;FLAG:甲斐性無(1=失敗)
;TFLAG:193 (1=成功 0=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K2_352
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_352_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_352_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;353,猥褻
;FLAG:甲斐性無(1=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K2_353
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_353_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_353_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;354,陪睡（相手は起きて被窝に招く感じ）
;CFLAG:衰弱(1以上=起きない
;CFLAG:招待(0以外=起きない
;==================================================
@M_KOJO_MESSAGE_COM_K2_354
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_354_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_354_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF !CFLAG:ブチギレ && MARK:反発刻印 < 3 && !TCVAR:强行 && !CFLAG:招待 && !CFLAG:衰弱
		;同棲中
		IF CFLAG:MASTER:初期位置 == CFLAG:TARGET:初期位置
			PRINTFORML 「啊，%CALLNAME:MASTER%大人。欢迎回来」
			PRINTFORMDW %CALLNAME:TARGET%正睡着,醒来后礼貌地打了招呼，带着笑容把%CALLNAME:MASTER%招进了被窝中。
		;非同棲
		ELSE
			PRINTFORML 「啊，%CALLNAME:MASTER%大人。今天要一起睡吗？呵呵，请进♪」
			PRINTFORMDW %CALLNAME:TARGET%正睡着,但还是心情很好地把%CALLNAME:MASTER%请进了被窝。
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;355,時止め（地の文の改変程度に留めるべき
;==================================================
@M_KOJO_MESSAGE_COM_K2_355
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_355_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_355_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;360,任憑擺佈
;TCVAR:20(27=谷間を見せる 32=前から抱きつく 35=裙子の中を見せる 53=乳交 73=ぱふぱふ 77=乳を吸わせる 85=Ｖ挿入する 86=だいしゅき大堂ド 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ
;==================================================
@M_KOJO_MESSAGE_COM_K2_360
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_360_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_360_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;363,朗読（[幼稚]持ち専用）
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
;CFLAG:陪睡中(1=被窝orベッドの中で本を読む
;MASTERがTARGETより大柄の場合、膝の上にTARGETを乗せる
;==================================================
@M_KOJO_MESSAGE_COM_K2_363
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_363_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_363_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;364,撒豆子(萃香、勇儀、斯喀雷特姉妹用
;TFLAG:193(撒豆子に参加してる人数
;==================================================
@M_KOJO_MESSAGE_COM_K2_364
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_364_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_364_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;365,向守矢神社移動(早苗、神奈子、諏訪子用
;==================================================
@M_KOJO_MESSAGE_COM_K2_365
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_365_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_365_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;402,就寝
;==================================================
@M_KOJO_MESSAGE_COM_K2_402
;就寝にTRAIN_MESSAGEは無い
CALL M_KOJO_MESSAGE_COM_K2_402_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_402_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	DRAWLINE
	SIF FLAG:口上色
		TRYCALLFORM M_KOJO_COLOR_K{TARGET}
	IF CFLAG:睡眠
		PRINTFORMDW 在睡得很香甜的%CALLNAME:TARGET%旁边睡着了。
	ELSEIF K2_CONSCIOUS_AND_TOLERANT()
		IF TALENT:恋慕 || TALENT:恋人
			PRINTFORMDL %CALLNAME:MASTER%钻进了为%CALLNAME:TARGET%整理好的床上。
			SIF CFLAG:現在位置 != CFLAG:初期位置
				PRINTFORMDL %CALLNAME:TARGET%在%CALLNAME:MASTER%入睡之前一直呆在身边。
			WAIT
		ELSE
			PRINTFORMDW 感到困倦的%CALLNAME:MASTER%向%CALLNAME:TARGET%打招呼，去睡了。
		ENDIF
		PRINTL
		PRINTFORMW 「晚安」
	ENDIF
ENDIF
RETURN 1
;==================================================
;403,休憩
;CFLAG:TARGET:睡眠(1=TARGETが寝てる隣で休憩
;==================================================
@M_KOJO_MESSAGE_COM_K2_403
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_403_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_403_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K2_CONSCIOUS_AND_TOLERANT()
		PRINTFORMW 「有点累了吧」
	ENDIF
ENDIF
RETURN 1
;==================================================
;405,外出(同行時约会
;条件が厄介なので、COMF405 外出.ERBを参照のこと
;==================================================
@M_KOJO_MESSAGE_COM_K2_405
;外出にTRAIN_MESSAGEは無い
CALL M_KOJO_MESSAGE_COM_K2_405_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_405_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;TARGETと约会
	IF CFLAG:同行
	;TARGET以外と约会
	ELSEIF CFLAG:MASTER:同行
	;お出かけお見送り
	ELSE
		IF K2_CONSCIOUS_AND_TOLERANT()
			PRINTFORMW 「路上小心~」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;410,掃除
;FLAG:70(1=時間停止中
;TFLAG:193(0=見てるだけ 1=一緒に掃除)
;TFLAG:194(3=汚れ高 2=汚れ中 1=汚れ低 0=汚れ最小
;OUTROOF(CFLAG:現在位置)(野外掃除（冬は扫雪
;==================================================
@M_KOJO_MESSAGE_COM_K2_410
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_410_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_410_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TFLAG:193 == 1 && K2_CONSCIOUS_AND_TOLERANT()
		SELECTCASE RAND:3
		CASE 1
			SELECTCASE ABL:清掃技能
			CASE IS >= 3
				PRINTFORMDL %CALLNAME:TARGET%正在高效率地进行着扫除。
				PRINTFORMW 「慢慢打扫吧~」
			CASE 2
				PRINTFORMW 「多亏了%CALLNAME:MASTER%大人，我感觉变得很擅长打扫了。」
			CASEELSE
				PRINTFORMDL %CALLNAME:TARGET%很努力地打扫着，但没有进展。
				PRINTFORMDW 虽是女仆机器人，却好像不擅长打扫。
			ENDSELECT
		CASE 2
			PRINTFORML 「～♪～♪」
			PRINTFORMDW %CALLNAME:TARGET%高高兴兴地打扫着。
		CASEELSE
			PRINTFORMDL %CALLNAME:TARGET%为完成的扫除工作開心着。
			PRINTFORMW 「接下来要打扫哪里呢？」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;411,戦闘訓練
;TFLAG:194(3=夏の昼間 2=ヤバい天気 1=悪天候 0=屋内or通常天気
;==================================================
@M_KOJO_MESSAGE_COM_K2_411
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_411_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_411_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	$BATTLE_TRAINING_LOOP
	IF K2_CONSCIOUS_AND_TOLERANT()
		SELECTCASE RAND:4
		CASE 1
			IF ABL:MASTER:戦闘能力 > ABL:戦闘能力
				PRINTFORMW 「%CALLNAME:MASTER%大人很强呢。」
			ELSE
				GOTO BATTLE_TRAINING_LOOP
			ENDIF
		CASE 2
			PRINTFORMW 「哎呀……很危险」
		CASE 3
			PRINTFORMW 「唔唔……坏了……」
		CASEELSE
			PRINTFORMW 「呼，累了」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;412,学习
;ABL:教養(ABL:MASTER:教養より大=MASTERが教えてもらう ABL:MASTER:教養より小=TARGETが教えてもらう
;==================================================
@M_KOJO_MESSAGE_COM_K2_412
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_412_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_412_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	$STUDY_LOOP
	IF K2_CONSCIOUS_AND_TOLERANT() && CFLAG:行動 != 5
		SELECTCASE RAND:4
		CASE 1
			IF ABL:MASTER:教養 > ABL:教養
				PRINTFORMW 「总觉得有点难……真了不起」
			ELSE
				GOTO STUDY_LOOP
			ENDIF
		CASE 2
			IF ABL:MASTER:教養 >= ABL:教養
				PRINTFORML 「是在学习吗？」
				PRINTFORMDW %CALLNAME:TARGET%好像很感兴趣地凝视着我。
			ELSE
				GOTO STUDY_LOOP
			ENDIF
		CASE 3
			PRINTFORMW 「请不要太在意」
		CASEELSE
			PRINTFORMW 「你太热心了~」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;413,料理
;TFLAG:194(100以上=禁断のメニュー 3=甜点 2=主食 1=軽食
;==================================================
@M_KOJO_MESSAGE_COM_K2_413
;TFLAG:194が100以上の場合のみ
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_413_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_413_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	$COOKING_LOOP
	IF K2_CONSCIOUS_AND_TOLERANT()
		SELECTCASE RAND:4
		CASE 1
			IF ABL:料理技能 >= 4
				PRINTFORMDL %CALLNAME:TARGET%はあざやかな手並みで料理している。
				PRINTFORML 「好吃吗？那太好了」
				SIF FLAG:扮演 != 1
					PRINTFORML 「灵梦大人也表扬一下就好了~」
				WAIT
			ELSE
				GOTO COOKING_LOOP
			ENDIF
		CASE 2
			IF ABL:料理技能 >= 2
				PRINTFORMDL %CALLNAME:TARGET%\@ ABL:料理技能 == 2 ?以相当不错的手法 # \@灵巧地烹调着。
				PRINTFORMW 「多亏了%CALLNAME:MASTER%大人，\@ ABL:料理技能 >= 3 ?大致# \@进步了」
			ELSE
				GOTO COOKING_LOOP
			ENDIF
		CASE 3
			PRINTFORML 「如果是料理的话，让作为女仆的我来帮忙。」
			IF ABL:料理技能 < 2
				PRINTFORMDW %CALLNAME:TARGET%提出帮忙做饭，但似乎很危险。
			ELSE
				PRINTFORMDW 多亏了%CALLNAME:TARGET%的帮忙。
			ENDIF
		CASEELSE
			PRINTFORML 「料理♪料理♪」
			IF TALENT:心情 >= 0
				PRINTFORMDW %CALLNAME:TARGET%心情很好地在做饭。
			ELSE
				PRINTFORMDW %CALLNAME:TARGET%在料理上很努力。
			ENDIF
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;414,吃飯
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;TFLAG:194(1=没穿内裤涮涮锅 2=禁断のメニュー 31=興奮劑高湯 30=奶酪番茄沙拉 34=银吉獣料理
;TCVAR:MASTER:308(bit0=浓郁 bit1=薄味 bit3=超辣 bit4=超甜 bit5=芥末 bit6=激酸っぱ
;==================================================
@M_KOJO_MESSAGE_COM_K2_414
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_414_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_414_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;415,招待吃飯
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;TCVAR:MASTER:308(bit0=浓郁 bit1=薄味 bit3=超辣 bit4=超甜 bit5=芥末 bit6=激酸っぱ
;==================================================
@M_KOJO_MESSAGE_COM_K2_415
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_415_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_415_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;416,演奏
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;TFLAG:使用楽器(1=電子琴 2=鋼琴 3=吉他 4=小號 5=小提琴)
;==================================================
@M_KOJO_MESSAGE_COM_K2_416
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_416_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_416_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;417,午睡をする
;TFLAG:193(0=MASTERを抱き枕にして寝ている 1=MASTERの膝を枕にして寝ている 2=寝顔に接吻された 3=寝顔をのぞき込まれた 4=MASTERが膝枕されてる 5=秘処or阴茎揉み
;CFLAG:陪睡中(1=一緒に寝ている
;==================================================
@M_KOJO_MESSAGE_COM_K2_417
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_417_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_417_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;421,祈願する
;条件が複雑なので、COMF421 祈願.ERBおよび、EVENT_MESSAGE_COM400.ERBの祈願するの項を参照のこと
;==================================================
@M_KOJO_MESSAGE_COM_K2_421
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_421_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_421_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;422～430は、特殊指令なので貂プレでは対応しません
;==================================================

;==================================================
;431,在浴室里放鬆
;TFLAG:209(4=人里の銭湯で番台ちゃんを怒らせている 1=銭湯に入った
;TFLAG:211(4=地底の温泉で番台妖怪を怒らせている 1=温泉に入った
;TFLAG:194(1=連続入浴不可(表示しない可能性あり？
;==================================================
@M_KOJO_MESSAGE_COM_K2_431
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_431_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_431_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K2_CONSCIOUS_AND_TOLERANT()
		PRINTFORMW 「哈……热水真好……」
	ENDIF
ENDIF
RETURN 1
;==================================================
;432,在浴室里放鬆
;表示タイミングは入浴後なので、お風呂上がりでの
;TFLAG:209(4=人里の銭湯で番台ちゃんを怒らせている 1=銭湯に入った
;TFLAG:211(4=地底の温泉で番台妖怪を怒らせている 1=温泉に入った
;==================================================
@M_KOJO_MESSAGE_COM_K2_432
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_432_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_432_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;440,等待
;==================================================
@M_KOJO_MESSAGE_COM_K2_440
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_440_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_440_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;441,聽課(慧音専用
;==================================================
@M_KOJO_MESSAGE_COM_K2_441
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_441_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_441_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;442,伐採（未実装
;==================================================
@M_KOJO_MESSAGE_COM_K2_442
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_442_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_442_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;442以降の指令は、実行しても口上はおそらく表示されないので貂プレでもスルー
;==================================================

;※※※※※※※※※※※※※※※※※※※※※※※※※
;约会系指令
;约会系口上は文字街道外出先で発生
;※※※※※※※※※※※※※※※※※※※※※※※※※
[SKIPSTART]
;現状未実装
;==================================================
;600,约会会話
;==================================================
@M_KOJO_MESSAGE_COM_K2_600
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_600_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_600_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;601,约会身体接觸
;==================================================
@M_KOJO_MESSAGE_COM_K2_601
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_601_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_601_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;602,约会接吻
;==================================================
@M_KOJO_MESSAGE_COM_K2_602
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_602_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_602_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
[SKIPEND]
;==================================================
;603,牽手
;TFLAG:193(1=大成功 0=成功 -1=失敗)(失敗でもふりほどかれたりはしません
;==================================================
@M_KOJO_MESSAGE_COM_K2_603
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_603_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_603_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;604,散步
;约会中の場合、CFLAG:現在位置に移動先の場所が既に入ってる
;==================================================
@M_KOJO_MESSAGE_COM_K2_604
;散步にはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K2_604_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_604_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;605,繞道
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文無し
;==================================================
@M_KOJO_MESSAGE_COM_K2_605
;繞道にはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K2_605_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_605_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;610,請吃飯
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K2_610
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_610_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_610_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;613,賺錢（オミットされました
;==================================================
@M_KOJO_MESSAGE_COM_K2_613
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_613_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_613_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;614,採購食材
;TFLAG:193(1=購入＆約會経験UP 0=購入 -1=非購入)
;==================================================
@M_KOJO_MESSAGE_COM_K2_614
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_614_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_614_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;615,吃便當
;実行可能場所　地蔵小路,倒垂的柳樹下,霧之湖,玄武之澤,大蛤蟆之池,絶景之丘,山之湖,天界
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;ABL:料理技能(2未満=微妙な出来 4未満=そこそこ美味しい 4以上=絶品)
;==================================================
@M_KOJO_MESSAGE_COM_K2_615
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_615_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_615_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K2_CONSCIOUS_AND_TOLERANT()
		IF TFLAG:193 >= 0
			SELECTCASE ABL:料理技能
			CASE 0,1
				PRINTFORML 「啊、那个……味道怎么样？」
				PRINTFORMDW %CALLNAME:TARGET%没有自信地问道。
			CASE 2,3
				PRINTFORMDL %CALLNAME:MASTER%说很好吃，%CALLNAME:TARGET%非常開心地笑了。
				PRINTFORMW 「太好了♪啊，有很多，请多吃点。」
			CASE IS >= 4
				PRINTFORMW 「今天的自信之作！是我\@ TALENT:恋慕 || TALENT:愛欲 ?为了%CALLNAME:MASTER%大人# \@全力做出来的♪」」
			ENDSELECT
		ELSE
			PRINTFORMDL 不知道是不是对料理没有自信，%CALLNAME:TARGET%低着头。
			PRINTFORMW 「呜……我是个废柴吧……」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;617,甘味処に誘う
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐は大成功のみ追加
;==================================================
@M_KOJO_MESSAGE_COM_K2_617
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_617_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_617_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;618,花屋（口上は表示されない模様？
;==================================================
@M_KOJO_MESSAGE_COM_K2_618
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_618_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_618_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;620,鈴奈庵
;TFLAG:193(1=貸し出しOK 0=貸し出し不可
;ITEM:10X (X=1戦術指南書 X=2調理指南書 X=3字典 X=4御伽草子
;==================================================
@M_KOJO_MESSAGE_COM_K2_620
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_620_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_620_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;621,釣魚
;TFLAG:193(0=釣れない 1～4=魚 11～15=好吃的魚 610=木材 131=守矢之守札 21=跳蛋 609=氷之鱗 606=龍之爪)
;TFLAG:194(1000以上ならTARGETが釣った)
;==================================================
@M_KOJO_MESSAGE_COM_K2_621
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_621_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_621_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;660,読書
;TFLAG:193(選択肢文学(1=忍殺(文学？) 2=失敗 3=文学),選択肢実用書(4=失敗 5=実用書),選択肢エッチな本(6=单薄的高い本 7=保健体育 8=カーマスートラ))
;==================================================
@M_KOJO_MESSAGE_COM_K2_660
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_660_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_660_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;698,進入房間
;TARGET的房間に入る場合のみ表示
;==================================================
@M_KOJO_MESSAGE_COM_K2_698
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_698_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_698_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;699,外出
;==================================================
@M_KOJO_MESSAGE_COM_K2_699
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K2_699_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K2_699_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;派生指令
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;60,掏耳朵
;前ターン膝枕後身体接觸指令
;TFLAG:193(1=大成功 0=成功 -1=失敗)(失敗するのはTARGET
;==================================================
@M_KOJO_MESSAGE_SCOM_K2_60
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K2_60_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K2_60_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K2_CONSCIOUS_AND_TOLERANT()
		IF ( TALENT:恋慕 || TALENT:愛欲 ) && TFLAG:193 >= 0
			SELECTCASE RAND:2
			CASE 1
				CALL K2_HPH_PRINT,@"「因为对自己的作用有实感、所以喜欢帮忙掏耳朵HPH」","L"
				CALL K2_HPH_PRINT,@"「是的、结束了。但是我还想继续。请让我再来吧HPH」","L"
				PRINTFORMDW 必须注意不能做得过火。
			CASEELSE
				PRINTFORML 「%CALLNAME:MASTER%大人的耳朵，让我弄干净吧~」
				PRINTFORMDL 即使没有拜托她，%CALLNAME:TARGET%主动掏起了耳朵。
				PRINTFORMW 」啊，掏出大的一块了。呵呵，好開心」
			ENDSELECT
		ELSE
			SELECTCASE TFLAG:193
			CASE 1
				PRINTFORMDL 只是告诉她心情非常好，%CALLNAME:TARGET%就開心地笑了。
				PRINTFORMW 「能帮到你真是太好了。」
			CASE 0
				PRINTFORMW 「相当……困难。不，不疼吗？
			CASE -1
				PRINTFORMDL 听到%CALLNAME:MASTER%疼痛的声音后，%CALLNAME:TARGET%很对不起似的道歉了。
				PRINTFORMW 「呜……对不起……我作为女仆不合格……」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;61,抱枕
;(TARGET睡眠時間or衰弱)陪睡中、前ターン抱きつく後就寝指令
;分岐無し
;==================================================
@M_KOJO_MESSAGE_SCOM_K2_61
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K2_61_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K2_61_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;IF !CFLAG:ブチギレ && MARK:反発刻印 < 3 && !TCVAR:强行
		PRINTFORMDL 一边感受着彼此的温暖，一边平静地睡着了。
		;CALL K2_HPH_PRINT,@"「…むにゃ……%CALLNAME:MASTER%さまぁ…HPH」","W"
	;ENDIF
ENDIF
RETURN 1
;==================================================
;62,亲額頭
;前ターン頭撫で後接吻
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
;ABL:欲望(5以上=物足りない
;ABL:親密(5以上=照れる
;==================================================
@M_KOJO_MESSAGE_SCOM_K2_62
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K2_62_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K2_62_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;63,更多的接吻
;前ターン接吻後接吻
;分岐条件はEVENT_MESSAGE_COM500.ERB参照
;==================================================
@M_KOJO_MESSAGE_SCOM_K2_63
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K2_63_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K2_63_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;80,拉手
;约会出発後目的地に着くまでの間
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_MESSAGE_SCOM_K2_80
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K2_80_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K2_80_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【2】る～こと/M_KOJO_K2_日常系コマンド.ERB


repo_name: akadiya/eratw

path: ERB/口上・メッセージ関連/個人口上/【2】る～こと/M_KOJO_K2_派生コマンド.ERB

license: unknown


code:
;### 心形のみ別の色でPRINTするための関数 ##################
;ew6様のコードを参考にさせていただきました
;文字列中に含まれる"HPH"をホット粉色色のハートとしてPRINTし、それ以外の文字列は通常の色で普通にPRINTする
;ARGS "W"=PRINTSWで表示。"L"=PRINTSLで表示。"W"でも"L"でもなければPRINTSで表示
@K2_HPH_PRINT,対象文字列,行書式
#DIMS 対象文字列
#DIMS 行書式
#DIM 出力文字数
#DIM HPHインデクス値

DO
	HPHインデクス値 = STRFIND(対象文字列, "HPH")

	;対象文字列がHPHで始まらないが後ろにHPHがある場合
	IF HPHインデクス値 >= 1
		;HPHの直前まで文字表示
		LOCALS = %SUBSTRING(対象文字列, 0, HPHインデクス値)%
		PRINTS @"%LOCALS%"
		出力文字数 = STRLENS(LOCALS)
	;対象文字列がHPHで始まる場合
	ELSEIF HPHインデクス値 == 0
		LOCAL = GETCOLOR()
		SETCOLOR 0xFF69B4
		PRINTFORM %UNICODE(0x2764)%
		SETCOLOR LOCAL
		出力文字数 = 3
	;対象文字列中にもはやHPHが含まれない場合
	ELSE
		;ここで行書式による分岐
		SELECTCASE 行書式
		CASE "W"
			PRINTSW @"%対象文字列%"
		CASE "L"
			PRINTSL @"%対象文字列%"
		CASEELSE
			PRINTS @"%対象文字列%"
		ENDSELECT
		BREAK
	ENDIF

	;表示済みの文字分を削除して対象文字列を更新する
	対象文字列 = %SUBSTRING(対象文字列, 出力文字数, -1)%

LOOP 1

;### 行為を容認してくれるか判定用式中関数 ################
;意識のある状態で行為を怒らず受け入れていれば１を返す。そうでなければ０
;ARG=角色番号
@K2_CONSCIOUS_AND_TOLERANT(ARG)
#FUNCTION
#DIM 反発系パラメータ上昇値

SIF ARG == 0
	ARG = TARGET

SIF !SHIRAHU(ARG) || CFLAG:ARG:ブチギレ || TCVAR:ARG:强行
	RETURNF 0

反発系パラメータ上昇値 = CUP:ARG:反感 + CUP:ARG:不快

SIF MARK:ARG:反発刻印 == 0 && 反発系パラメータ上昇値 >= 500
	RETURNF 0
SIF MARK:ARG:反発刻印 == 1 && 反発系パラメータ上昇値 >= 1001
	RETURNF 0
SIF MARK:ARG:反発刻印 == 2 && 反発系パラメータ上昇値 >= 2001
	RETURNF 0
SIF MARK:ARG:反発刻印 >= 3
	RETURNF 0

RETURNF 1

;### 大きな体格差の有無判定用式中関数 ################
;対象角色と主人との体型差によって返り値が決まる
;比較して主人が大きすぎると１、主人が非常に大きすぎると２、主人が小さすぎると－１、主人が非常に小さすぎると－２
;ARG=角色番号
@K2_EXCESSIVE_STATURE_GAP(ARG)
#FUNCTION

SIF ARG == 0
	ARG = TARGET

IF TALENT:MASTER:体型 <= -5
	LOCAL = -8
ELSE
	LOCAL = TALENT:MASTER:体型
ENDIF

IF TALENT:ARG:体型 <= -5
	LOCAL:1 = -8
ELSE
	LOCAL:1 = TALENT:ARG:体型
ENDIF

SELECTCASE LOCAL - LOCAL:1
CASE IS > 5
	RETURNF 2
CASE 5
	RETURNF 1
CASE -5
	RETURNF -1
CASE IS < -5
	RETURNF -2
CASEELSE
	RETURNF 0
ENDSELECT

;### 诶嘿嘿時基本状態判定用式中関数 ################
;K2_CONSCIOUS_AND_TOLERANTに無知とK2_EXCESSIVE_STATURE_GAPの条件を加えたもの
;ARG=角色番号
@K2_BASIC_CONDITION_IN_MATING(ARG)
#FUNCTION

SIF ARG == 0
	ARG = TARGET

SIF !K2_CONSCIOUS_AND_TOLERANT(ARG)
	RETURNF 0

SIF TALENT:ARG:無知
	RETURNF 0

SIF K2_EXCESSIVE_STATURE_GAP(ARG)
	RETURNF 0

RETURNF 1

;### 快感に積極的か判定用式中間数 ################
;返り値１は積極的、０は消極的
;ARG=角色番号
@K2_SEXUAL_FRANKNESS(ARG)
#FUNCTION

SIF ARG == 0
	ARG = TARGET

IF MARK:ARG:快楽刻印 >= 3 || TALENT:ARG:快感応答 >= 0 || TALENT:ARG:風騷
	RETURNF 1
ELSE
	RETURNF 0
ENDIF

;### 表現バリエーション用式中関数 ################
@K2_EXPRESSION_VARIATION(ARGS)
#FUNCTIONS

VARSET LOCALS

IF ARGS == "SPERM"
	LOCALS = %TEXTR("白濁液/精液/精液/子種汁")%

ELSEIF ARGS == "VULVA"
	LOCALS = %TEXTR("秘処/秘裂/陰門/女陰")%

ELSEIF ARGS == "ANUS"
	LOCALS = %TEXTR("尻穴/肛門/菊門")%

ELSEIF ARGS == "CROTCH"
	LOCALS = %TEXTR("股間/局部/股")%

ELSEIF ARGS == "PENIS"
	LOCALS = %TEXTR("阴茎/陰茎/肉棒/イチモツ")%

ELSE
	LOCALS = ※K2_EXPRESSION_VARIATION()の文字列引数が不正※

ENDIF

RETURNF LOCALS

;### 乳房描写用式中関数 ################
;ARG=角色番号
@K2_BREASTS_DESCRIPTION(ARG)
#FUNCTIONS

SIF ARG == 0
	ARG = TARGET

SELECTCASE TALENT:ARG:胸圍
CASE IS >= ( TALENT:ARG:体型 == -2 ?3 #2 )
	LOCALS = %TEXTR("快要装不下的/目を見張る大きさの/どっしりと重量感のある/ボリューミーな/とびきり大きな/バインバインの/下品なほど大きい")%
CASE TALENT:ARG:体型 == -2 ?2 #1
	LOCALS = %TEXTR("豊満的/大きめの/豊かな/ふくよかな")%
CASE TALENT:ARG:体型 == -2 ?1 #0
	LOCALS = %TEXTR("やわらかな/女らしい膨らみのある/みずみずしい/＿")%
CASE TALENT:ARG:体型 == -2 ?0 #-1
	LOCALS = %TEXTR("ひかえめな/小不点な/小さめの")%
CASEELSE
	LOCALS = %TEXTR("单薄的/なだらかな/肉のついていない")%
ENDSELECT
SELECTCASE TALENT:ARG:胸圍
CASE IS >= ( TALENT:ARG:体型 == -2 ?3 #2 )
	LOCALS += @"%TEXTR("乳/乳房/胸部/爆乳")%"
CASE TALENT:ARG:体型 == -2 ?2 #1
	LOCALS += @"%TEXTR("乳/乳房/胸部")%"
CASE TALENT:ARG:体型 == -2 ?1 #0
	LOCALS += @"%TEXTR("乳/乳房/胸部")%"
CASE TALENT:ARG:体型 == -2 ?0 #-1
	LOCALS += @"%TEXTR("胸/乳/胸部")%"
CASEELSE
	LOCALS += @"%TEXTR("胸/胸部")%"
ENDSELECT

RETURNF LOCALS

path: ERB/口上・メッセージ関連/個人口上/【2】る～こと/M_KOJO_K2_独自関数.ERB


code:
;-------------------------------------------------
;奴隷の絶頂時の口上
;NOWEX:0～4 CVABM絶頂
;NOWEX:6 二重絶頂
;NOWEX:7 三重絶頂
;NOWEX:8 四重絶頂
;NOWEX:9 五重絶頂
;NOWEX:10 噴乳
;NOWEX:11 射精
;NOWEX:12 放尿
;随意組み合わせて使ってください
;-------------------------------------------------
@M_KOJO_MESSAGE_PALAMCNG_B_K2
CALL PALAM_MESSAGE_B
;-------------------------------------------------
;噴乳
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:噴乳
	PRINTFORMW
ENDIF
;-------------------------------------------------
;射精
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:射精
	PRINTFORMW
ENDIF
;-------------------------------------------------
;放尿
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:放尿
	PRINTFORMW
ENDIF
;-------------------------------------------------
;絶頂
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;五重絶頂
	;-------------------------------------------------
	IF NOWEX:五重絶頂
		CALL K2_HPH_PRINT,@"「好、好厉害HPH 要去了！有好厉害的要来了HPH」","L"
		PRINTFORMDL %CALLNAME:TARGET%全身颤抖着喷出爱液。
		CALL K2_HPH_PRINT,@"「呼、呼、啊、哈HPH 要、要死了HPH」","L"
		CALL K2_HPH_PRINT,@"「呼、哈、啊、哈、啊~HPH」","L"
		PRINTFORMDW 凌乱了的%CALLNAME:TARGET%因过分的快乐发出象野兽一样的呻吟，口水都流了出来。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;四重絶頂
	;-------------------------------------------------
	IF NOWEX:四重絶頂
		;部位を指定せず簡易的に書く場合、[SKIPSTART]&[SKIPEND]のコメントアウトを外して、[SKIPSTART]とこのコメントの間に書いてください
		SELECTCASE RAND:2
		CASE 1
			CALL K2_HPH_PRINT,@"「噢，不要HPH 不行、不行了、已经很兴奋了HPH 啊、啊 马上、马上要去了HPH」","L"
			PRINTFORMDW %CALLNAME:TARGET%被强烈的快感刺激，全身像染成粉红色一样颤抖着。
		CASEELSE
			CALL K2_HPH_PRINT,@"「已经不行了、不行了HPH 啊、现在、不可以HPH 好舒服、太过分了、要变奇怪了　啊HPH」","L"
			PRINTFORMDW %CALLNAME:TARGET%大张着嘴，为了氧气而大口喘着气。
		ENDSELECT
		RETURN 1
		[SKIPSTART]
		SELECTCASE NOWEX:四重絶頂
			;Ｃ＆Ｖ＆Ａ＆Ｂ絶頂
			CASE 1
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｖ＆Ａ＆Ｍ絶頂
			CASE 2
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｖ＆Ｂ＆Ｍ絶頂
			CASE 3
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ａ＆Ｂ＆Ｍ絶頂
			CASE 4
				PRINTFORMW
				RETURN 1
			;Ｖ＆Ａ＆Ｂ＆Ｍ絶頂
			CASE 5
				PRINTFORMW
				RETURN 1
		ENDSELECT
		[SKIPEND]
	ENDIF
	;-------------------------------------------------
	;三重絶頂
	;-------------------------------------------------
	IF NOWEX:三重絶頂
		;部位を指定せず簡易的に書く場合、[SKIPSTART]&[SKIPEND]のコメントアウトを外して、[SKIPSTART]とこのコメントの間に書いてください
		IF K2_SEXUAL_FRANKNESS() && K2_CONSCIOUS_AND_TOLERANT() && !TALENT:無知
			SELECTCASE RAND:3
			CASE 1
				CALL K2_HPH_PRINT,@"「哇！ 啊、呀、呀HPH 要来了、马上要来了HPH 啊、咿HPH」","W"
			CASE 2
				CALL K2_HPH_PRINT,@"「啊、啊、好厉害、哦、哦HPH 要、要去了、马上要去了HPH」","W"
			CASEELSE
				CALL K2_HPH_PRINT,@"「哎、就是这样、呀、已经要、啊HPH 哈、啊、啊、啊啊啊HPH」","W"
			ENDSELECT
		ELSE
			PRINTFORMW 」～～呜哇，不行，不行！啊、啊、不～！
		ENDIF
		RETURN 1
		[SKIPSTART]
		SELECTCASE NOWEX:三重絶頂
			;Ｃ＆Ｖ＆Ａ絶頂
			CASE 1
				PRINTFORMW
				RETURN 1
			;Ｂ＆Ｖ＆Ａ絶頂
			CASE 2
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｂ＆Ａ絶頂
			CASE 3
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｖ＆Ｂ絶頂
			CASE 4
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｖ＆Ｍ絶頂
			CASE 5
				PRINTFORMW
				RETURN 1
			;Ｂ＆Ｖ＆Ｍ絶頂
			CASE 6
				PRINTFORMW
				RETURN 1
			;Ａ＆Ｖ＆Ｍ絶頂
			CASE 7
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｂ＆Ｍ絶頂
			CASE 8
				PRINTFORMW
				RETURN 1
			;Ａ＆Ｂ＆Ｍ絶頂
			CASE 9
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ａ＆Ｍ絶頂
			CASE 10
				PRINTFORMW
				RETURN 1
		ENDSELECT
		[SKIPEND]
	ENDIF
	;-------------------------------------------------
	;二重絶頂
	;-------------------------------------------------
	IF NOWEX:二重絶頂
		;部位を指定せず簡易的に書く場合、[SKIPSTART]&[SKIPEND]のコメントアウトを外して、[SKIPSTART]とこのコメントの間に書いてください
		IF K2_SEXUAL_FRANKNESS() && K2_CONSCIOUS_AND_TOLERANT() && !TALENT:無知
			SELECTCASE RAND:3
			CASE 1
				CALL K2_HPH_PRINT,@"「啊、啊、呀！ 好舒服、嗯HPH 呜、呜、啊HPH」","W"
			CASE 2
				CALL K2_HPH_PRINT,@"「啊、好舒服、呜哇HPH 要、要去了HPH」","W"
			CASEELSE
				CALL K2_HPH_PRINT,@"「噢、哦、好舒服HPH 嗯、呜、啊、啊HPH」","W"
			ENDSELECT
		ELSE
			PRINTFORMW 」啊，哈，嗯，不行，啊啊啊」
		ENDIF
		RETURN 1
		[SKIPSTART]
		SELECTCASE NOWEX:二重絶頂
			;Ｃ＆Ｖ絶頂
			CASE 1
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ａ絶頂
			CASE 2
				PRINTFORMW
				RETURN 1
			;Ｖ＆Ａ絶頂
			CASE 3
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｂ絶頂
			CASE 4
				PRINTFORMW
				RETURN 1
			;Ｖ＆Ｂ絶頂
			CASE 5
				PRINTFORMW
				RETURN 1
			;Ａ＆Ｂ絶頂
			CASE 6
				PRINTFORMW
				RETURN 1
			;Ａ＆Ｍ絶頂
			CASE 7
				PRINTFORMW
				RETURN 1
			;Ｖ＆Ｍ絶頂
			CASE 8
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｍ絶頂
			CASE 9
				PRINTFORMW
				RETURN 1
			;Ｂ＆Ｍ絶頂
			CASE 10
				PRINTFORMW
				RETURN 1
		ENDSELECT
		[SKIPEND]
	ENDIF
	;-------------------------------------------------
	;単部位の絶頂
	;-------------------------------------------------
	IF K2_SEXUAL_FRANKNESS() && K2_CONSCIOUS_AND_TOLERANT() && !TALENT:無知
		IF NOWEX:Ｃ絶頂
			;超強絶頂Ｃ
			IF NOWEX:Ｃ絶頂 == 3
				SELECTCASE RAND:3
				CASE 1
					CALL K2_HPH_PRINT,@"「啊、啊、啊HPH 呀HPH 已经不行了、要去了HPH」","W"
				CASE 2
					CALL K2_HPH_PRINT,@"「咿、啊、\@ TALENT:性別 & 2 ? 小鸡鸡 # 豆豆 \@要来了HPH 好厉害的感觉HPH」","W"
				CASEELSE
					CALL K2_HPH_PRINT,@"「咿呀HPH \@ TALENT:性別 & 2 ? 小鸡鸡厉害 # 豆豆那里 \@、好厉害的样子、啊HPH 啊、嗯、啊HPH」","W"
				ENDSELECT
			;強絶頂Ｃ
			ELSEIF NOWEX:Ｃ絶頂 == 2
				PRINTFORMW 」啊、就那里、、我要去了」
			;絶頂Ｃ
			ELSE
				PRINTFORMW 」はふっ、んぁ、んっ、はぁっっ」
			ENDIF
		ENDIF
		IF NOWEX:Ｖ絶頂
			;超強絶頂Ｖ
			IF NOWEX:Ｖ絶頂 == 3
				SELECTCASE RAND:3
				CASE 1
					CALL K2_HPH_PRINT,@"「啊　小穴、小穴好舒服HPH 啊、要、要去了HPH」","W"
				CASE 2
					CALL K2_HPH_PRINT,@"「啊、啊、嗯、啊HPH 小穴、小穴那里、好舒服HPH」","W"
				CASEELSE
					CALL K2_HPH_PRINT,@"「小穴、咕叽咕叽的、好、好厉害HPH 啊、要、要来了HPH」","W"
				ENDSELECT
			;強絶頂Ｖ
			ELSEIF NOWEX:Ｖ絶頂 == 2
				PRINTFORMW 「啊、噢、就是那里、啊、啊」
			;絶頂Ｖ
			ELSE
				PRINTFORMW 「嗯、好、啊」
			ENDIF
		ENDIF
		IF NOWEX:Ａ絶頂
			;超強絶頂Ａ
			IF NOWEX:Ａ絶頂 == 3
				SELECTCASE RAND:3
				CASE 1
					CALL K2_HPH_PRINT,@"「噢、噢、呜HPH 屁股小穴那里、好、好厉害HPH」","W"
				CASE 2
					CALL K2_HPH_PRINT,@"「在屁股小穴那里、啊、扭动HPH 啊、啊、好舒服HPH」","W"
				CASEELSE
					CALL K2_HPH_PRINT,@"「呀、呀、嗯HPH 屁股、那里、要去了、要去了HPH」","W"
				ENDSELECT
			;強絶頂Ａ
			ELSEIF NOWEX:Ａ絶頂 == 2
				PRINTFORMW 」屁股好热，好热~」
			;絶頂Ａ
			ELSE
				PRINTFORMW 」肚子，痒痒的，嗯，嗯」
			ENDIF
		ENDIF
		IF NOWEX:Ｂ絶頂
			;超強絶頂Ｂ
			IF NOWEX:Ｂ絶頂 == 3
				SELECTCASE RAND:3
				CASE 1
					CALL K2_HPH_PRINT,@"「不行！已、已经HPH 胸部、好厉害、嗯、啊、啊HPH」","W"
				CASE 2
					CALL K2_HPH_PRINT,@"「呜、乳、乳头那里HPH 哔哩哔哩地，好麻呀HPH」","W"
				CASEELSE
					CALL K2_HPH_PRINT,@"「呼、啊HPH 胸部、又痛又麻、要去了HPH」","W"
				ENDSELECT
			;強絶頂Ｂ
			ELSEIF NOWEX:Ｂ絶頂 == 2
				PRINTFORMW 」いいですっ、胸部っ、いぃ、んぁっ」
			;絶頂Ｂ
			ELSE
				PRINTFORMW 」嗯啊，啊，嗯」
			ENDIF
		ENDIF
		[SKIPSTART]
		IF NOWEX:Ｍ絶頂
			;超強絶頂Ｍ
			IF NOWEX:Ｍ絶頂 == 3
				PRINTFORMW
			;強絶頂Ｍ
			ELSEIF NOWEX:Ｍ絶頂 == 2
				PRINTFORMW
			;絶頂Ｍ
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
		[SKIPEND]
	ELSE
		IF NOWEX:Ｃ絶頂 || NOWEX:Ｖ絶頂 || NOWEX:Ａ絶頂 || NOWEX:Ｂ絶頂
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「呜、啊、嗯」
			CASE 2
				PRINTFORMW 「啊、呜、啊」
			CASEELSE
				PRINTFORMW 「啊、要去了、呜」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;-------------------------------------------------
;奴隷の睡眠絶頂時の口上
;-------------------------------------------------
@M_KOJO_MESSAGE_PALAMCNG_B2_K2
CALL PALAM_MESSAGE_B
;-------------------------------------------------
;噴乳
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:噴乳
	PRINTFORMW
ENDIF
;-------------------------------------------------
;射精
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:射精
	PRINTFORMW
ENDIF
;-------------------------------------------------
;放尿
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:放尿
	PRINTFORMW
ENDIF
;-------------------------------------------------
;絶頂
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;五重絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF NOWEX:五重絶頂
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;四重絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF NOWEX:四重絶頂
		;部位を指定せず簡易的に書く場合、[SKIPSTART]&[SKIPEND]のコメントアウトを外して、[SKIPSTART]とこのコメントの間に書いてください
		;[SKIPSTART]
		SELECTCASE NOWEX:四重絶頂
			;Ｃ＆Ｖ＆Ａ＆Ｂ絶頂
			CASE 1
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｖ＆Ａ＆Ｍ絶頂
			CASE 2
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｖ＆Ｂ＆Ｍ絶頂
			CASE 3
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ａ＆Ｂ＆Ｍ絶頂
			CASE 4
				PRINTFORMW
				RETURN 1
			;Ｖ＆Ａ＆Ｂ＆Ｍ絶頂
			CASE 5
				PRINTFORMW
				RETURN 1
		ENDSELECT
		;[SKIPEND]
	ENDIF
	;-------------------------------------------------
	;三重絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF NOWEX:三重絶頂
		;部位を指定せず簡易的に書く場合、[SKIPSTART]&[SKIPEND]のコメントアウトを外して、[SKIPSTART]とこのコメントの間に書いてください
		;[SKIPSTART]
		SELECTCASE NOWEX:三重絶頂
			;Ｃ＆Ｖ＆Ａ絶頂
			CASE 1
				PRINTFORMW
				RETURN 1
			;Ｂ＆Ｖ＆Ａ絶頂
			CASE 2
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｂ＆Ａ絶頂
			CASE 3
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｖ＆Ｂ絶頂
			CASE 4
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｖ＆Ｍ絶頂
			CASE 5
				PRINTFORMW
				RETURN 1
			;Ｂ＆Ｖ＆Ｍ絶頂
			CASE 6
				PRINTFORMW
				RETURN 1
			;Ａ＆Ｖ＆Ｍ絶頂
			CASE 7
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｂ＆Ｍ絶頂
			CASE 8
				PRINTFORMW
				RETURN 1
			;Ａ＆Ｂ＆Ｍ絶頂
			CASE 9
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ａ＆Ｍ絶頂
			CASE 10
				PRINTFORMW
				RETURN 1
		ENDSELECT
		;[SKIPEND]
	ENDIF
	;-------------------------------------------------
	;二重絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF NOWEX:二重絶頂
		;部位を指定せず簡易的に書く場合、[SKIPSTART]&[SKIPEND]のコメントアウトを外して、[SKIPSTART]とこのコメントの間に書いてください
		;[SKIPSTART]
		SELECTCASE NOWEX:二重絶頂
			;Ｃ＆Ｖ絶頂
			CASE 1
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ａ絶頂
			CASE 2
				PRINTFORMW
				RETURN 1
			;Ｖ＆Ａ絶頂
			CASE 3
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｂ絶頂
			CASE 4
				PRINTFORMW
				RETURN 1
			;Ｖ＆Ｂ絶頂
			CASE 5
				PRINTFORMW
				RETURN 1
			;Ａ＆Ｂ絶頂
			CASE 6
				PRINTFORMW
				RETURN 1
			;Ａ＆Ｍ絶頂
			CASE 7
				PRINTFORMW
				RETURN 1
			;Ｖ＆Ｍ絶頂
			CASE 8
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｍ絶頂
			CASE 9
				PRINTFORMW
				RETURN 1
			;Ｂ＆Ｍ絶頂
			CASE 10
				PRINTFORMW
				RETURN 1
		ENDSELECT
		;[SKIPEND]
	ENDIF
	IF NOWEX:Ｃ絶頂
		;超強絶頂Ｃ
		IF NOWEX:Ｃ絶頂 == 3
			PRINTFORMW
		;強絶頂Ｃ
		ELSEIF NOWEX:Ｃ絶頂 == 2
			PRINTFORMW
		;絶頂Ｃ
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	IF NOWEX:Ｖ絶頂
		;超強絶頂Ｖ
		IF NOWEX:Ｖ絶頂 == 3
			PRINTFORMW
		;強絶頂Ｖ
		ELSEIF NOWEX:Ｖ絶頂 == 2
			PRINTFORMW
		;絶頂Ｖ
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	IF NOWEX:Ａ絶頂
		;超強絶頂Ａ
		IF NOWEX:Ａ絶頂 == 3
			PRINTFORMW
		;強絶頂Ａ
		ELSEIF NOWEX:Ａ絶頂 == 2
			PRINTFORMW
		;絶頂Ａ
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	IF NOWEX:Ｂ絶頂
		;強絶頂Ｂ
		IF NOWEX:Ｂ絶頂 == 3
			PRINTFORMW
		;強絶頂Ｂ
		ELSEIF NOWEX:Ｂ絶頂 == 2
			PRINTFORMW
		;絶頂Ｂ
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	IF NOWEX:Ｍ絶頂
		;超強絶頂Ｍ
		IF NOWEX:Ｍ絶頂 == 3
			PRINTFORMW
		;強絶頂Ｍ
		ELSEIF NOWEX:Ｍ絶頂 == 2
			PRINTFORMW
		;絶頂Ｍ
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDIF

;-------------------------------------------------
;射精に関する口上の表示
;一時的にTARGETを口上主に設定している
;-------------------------------------------------

@M_KOJO_MESSAGE_PALAMCNG_A_K2_00(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;TARGETの手による射精で、射精対象が非TARGET
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K2_0(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;避孕套
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K2_23(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;深喉插入
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「唔！？ 呜~咕！ 嗯、嗯！ 咯、咕、呜……咕嘟……哈、哈」
	PRINTFORMDW 喉咙沾满精液的%CALLNAME:TARGET%，以痛苦的表情不断地挣扎。
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K2_22(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;六九式
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;同時射精
	IF NOWEX:射精 && NOWEX:MASTER:射精
		PRINTFORMW
		RETURN 1
	;TARGETだけ射精
	ELSEIF NOWEX:射精
		;PLAYERについてる
		IF GETBIT(TALENT:PLAYER:性別,1)
			PRINTFORMW
			RETURN 1
		;付いてない
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;PLAYERだけ射精
	ELSE
		;TARGETについてる
		IF GETBIT(TALENT:性別,1)
			PRINTFORMW
			RETURN 1
		;付いてない
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K2_21(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;乳夾口交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K2_20(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;手淫口交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	$HANDJOB_AND_BLOWJOB_EJACULATION_LOOP
	IF K2_CONSCIOUS_AND_TOLERANT()
		IF TCVAR:精飲経験 > 0
			SELECTCASE RAND:4
			CASE 1
				IF ( TALENT:恋慕 || TALENT:愛欲 || TALENT:思慕 || TALENT:炮友 || TALENT:風騷 ) && TALENT:精愛味覚 && EXP_UP(15,TARGET) == NOWEX:PLAYER:射精 * 3
					CALL K2_HPH_PRINT,@"「呜呣…啾啵…啾噜噜………嗯……咕…呼HPH」","L"
					CALL K2_HPH_PRINT,@"「%CALLNAME:MASTER%您的汁液\@ TALENT:MASTER:濃厚精液 ?、味道鲜美可口。 #很好吃。 \@HPH」","W"
				ELSE
					GOTO HANDJOB_AND_BLOWJOB_EJACULATION_LOOP
				ENDIF
			CASE 2
				IF TALENT:恋慕 || TALENT:愛欲
					PRINTFORMDL %CALLNAME:TARGET%发出下流的声音摩擦%K2_EXPRESSION_VARIATION("PENIS")%的同时，\@ EXP_UP(15,TARGET) == NOWEX:PLAYER:射精 * 3 ?用嘴吮吸龟头。#伸出舌头等着射精。\@
					CALL K2_HPH_PRINT,@"「呜呣……咕……啾啵…啾噜噜………嗯……啾啵HPH」","W"
				ELSE
					GOTO HANDJOB_AND_BLOWJOB_EJACULATION_LOOP
				ENDIF
			CASE 3
				IF TALENT:恋慕 || TALENT:愛欲 || TALENT:思慕 || TALENT:炮友 || TALENT:風騷
					CALL K2_HPH_PRINT,@"「呜呣HPH 啾……啾噜HPH」","W"
				ELSE
					PRINTFORMW 」嗯……嗯……啾噜」
				ENDIF
			CASEELSE
				IF TALENT:恋慕 || TALENT:愛欲 || TALENT:思慕 || TALENT:炮友 || TALENT:風騷
					CALL K2_HPH_PRINT,@"「呼……啾噜……啾啵………噗哈HPH」","W"
				ELSE
					PRINTFORMW 」恩……啾噜……啾啵………噗哈」
				ENDIF
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K2_9(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;肛門奉仕
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
;	IF K2_CONSCIOUS_AND_TOLERANT() && !TALENT:無知
;		IF TALENT:恋慕 || TALENT:愛欲 || TALENT:風騷
;			CALL K2_HPH_PRINT,@"「あはっHPH 只是被%TEXTR("ピュッピュ/ドピュドピュ")%地舔了屁股上的穴就要去了吗？HPH」","W"
;		ELSE
;			PRINTFORML 「呃？哇，出来了吗？」
;			;PRINTFORMDL %CALLNAME:TARGET%在不刺激阴茎的情况下对%CALLNAME:MASTER%射精的现象感到吃惊。
;			WAIT
;		ENDIF
;	ENDIF
;	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K2_8(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;泡泡浴
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;同時射精
	IF NOWEX:射精 && NOWEX:MASTER:射精
		PRINTFORMW
		RETURN 1
	;TARGETだけ射精
	ELSEIF NOWEX:射精
		;PLAYERについてる
		IF GETBIT(TALENT:PLAYER:性別,1)
			PRINTFORMW
			RETURN 1
		;付いてない
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;PLAYERだけ射精
	ELSE
		;TARGETについてる
		IF GETBIT(TALENT:性別,1)
			PRINTFORMW
			RETURN 1
		;付いてない
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K2_7(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;足交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K2_CONSCIOUS_AND_TOLERANT()
		IF CFLAG:1001 && TALENT:体型 >= -1 && TALENT:MASTER:性別 & 2 && TALENT:MASTER:形状 < 3 && !TEQUIP:眼罩
			CALL K2_HPH_PRINT,@"「嗯HPH biubiu地射出来吧HPH」","L"
			CALL K2_HPH_PRINT,@"「就算是小家伙、精液也会飞得那么远啊HPH」","W"
		ENDIF
	ENDIF
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K2_6(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;素股
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	$FEMORAL_SEX_EJACULATION_LOOP
	IF K2_CONSCIOUS_AND_TOLERANT() && !TALENT:無知
		SELECTCASE RAND:4
		CASE 1
			IF ( TALENT:恋慕 || TALENT:愛欲 ) && ABL:膣射中毒 >= 4 && !( CFLAG:育児人数 > 0 && !TCVAR:口服避孕薬 && CFLAG:生理周期 >= 3 )
				PRINTFORML 」啊，射到外面去了……好不容易射出来太可惜了」
				CALL K2_HPH_PRINT,@"「下次请射到里面HPH」","W"
			ELSEIF TALENT:風騷 && TALENT:処女 == 0 && ABL:膣射中毒 >= 1 && !( CFLAG:育児人数 > 0 && !TCVAR:口服避孕薬 && CFLAG:生理周期 >= 3 )
				CALL K2_HPH_PRINT,@"「不要射到外面来、%CALLNAME:MASTER%大人HPH」","L"
				CALL K2_HPH_PRINT,@"「请好好地射进我的子宫里HPH」","W"
			ELSE
				GOTO FEMORAL_SEX_EJACULATION_LOOP
			ENDIF
		CASE 2
			IF TALENT:恋慕 || TALENT:愛欲
				CALL K2_HPH_PRINT,@"「嗯HPH 居然要用大腿HPH」","W"
			ELSE
				GOTO FEMORAL_SEX_EJACULATION_LOOP
			ENDIF
		CASE 3
			IF NOWEX:PLAYER:射精 >= 2 && !TEQUIP:眼罩
				IF TALENT:恋慕 || TALENT:愛欲 || TALENT:思慕 || TALENT:炮友 || TALENT:風騷
					CALL K2_HPH_PRINT,@"「飞得好远啊HPH」","W"
				ELSE
					PRINTFORMW 」飞得好远啊。」
				ENDIF
			ELSE
				GOTO FEMORAL_SEX_EJACULATION_LOOP
			ENDIF
		CASEELSE
			IF TALENT:恋慕 || TALENT:愛欲 || TALENT:思慕 || TALENT:炮友 || TALENT:風騷
				CALL K2_HPH_PRINT,@"「精液会粘在大腿上HPH」","W"
			ELSE
				PRINTFORMW 」精液会粘在大腿上」
			ENDIF
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K2_5(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;乳交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K2_4(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;口交（真空口交含む）
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	$BLOWJOB_EJACULATION_LOOP
	IF K2_CONSCIOUS_AND_TOLERANT()
		SELECTCASE RAND:4
		CASE 1
			IF TCVAR:精飲経験 >= 20 && NOWEX:PLAYER:射精 >= 2
				IF TALENT:恋慕 || TALENT:愛欲 || TALENT:思慕 || TALENT:炮友 || TALENT:風騷
					CALL K2_HPH_PRINT,@"「嗯……咕啵……咕啾……啾噗……哇，量真大HPH」","W"
				ELSE
					PRINTFORMW 」嗯……咕啵……咕啾……啾噗……哇，量真大」
				ENDIF
			ELSE
				GOTO BLOWJOB_EJACULATION_LOOP
			ENDIF
		CASE 2
			IF TCVAR:精飲経験 >= 20 && ( TALENT:恋慕 || TALENT:愛欲 )
				CALL K2_HPH_PRINT,@"「嗯……啾噜……啾啵……嗯哈……\@ TALENT:MASTER:濃厚精液 ?HPH 咕嘟咕嘟 # \@HPH」","W"
			ELSE
				GOTO BLOWJOB_EJACULATION_LOOP
			ENDIF
		CASE 3
			IF ( TALENT:恋慕 || TALENT:愛欲 ) && TALENT:精愛味覚
				CALL K2_HPH_PRINT,@"「啊哈、biubiu地射出来了HPHHPH 呜呣、啾HPH」","L"
				IF EXP_UP(15,TARGET) == NOWEX:PLAYER:射精 * 3
					PRINTFORMDL %CALLNAME:TARGET%的喉咙响起声音，喝干了%CALLNAME:MASTER%的精液后，射精后的%K2_EXPRESSION_VARIATION("PENIS")%已经筋疲力尽了。
					CALL K2_HPH_PRINT,@"「嗯、咕啾、啾、啵…… 啾噜、呸咯……呸咯HPH」","L"
					PRINTFORMDL %CALLNAME:MASTER%即使想将阴茎从口中拔出，也没有被放開，试图吸取残留在尿道里的精液。
					CALL K2_HPH_PRINT,@"「小家伙里面还留着一点HPH 嗯，啾噜噜HPH」","L"
				ENDIF
				WAIT
			ELSE
				GOTO BLOWJOB_EJACULATION_LOOP
			ENDIF
		CASEELSE
			IF EXP_UP(15,TARGET) == NOWEX:PLAYER:射精 * 3
				PRINTFORML 」咕嘟……嗯……咕嘟……嗯嗯……咕……」
				SIF TALENT:恋慕 || TALENT:愛欲
					CALL K2_HPH_PRINT,@"「哎嘿嘿HPH 全都喝光了HPH」","L"
				WAIT
			ELSEIF TCVAR:精飲経験 >= 20
				IF TALENT:恋慕 || TALENT:愛欲 || TALENT:思慕 || TALENT:炮友 || TALENT:風騷
					CALL K2_HPH_PRINT,@"「呜呣HPH……嗯……啾……啾啵HPH」","L"
				ELSE
					PRINTFORMW 」嗯……嗯……啾……啾啵……」
				ENDIF
			ELSE
				IF TALENT:恋慕 || TALENT:愛欲 || TALENT:思慕 || TALENT:炮友 || TALENT:風騷
					PRINTFORMW 」嗯……咕嘟……啾噜」
				ELSE
					PRINTFORMW 」嗯……哎……味道好奇怪……」
				ENDIF
			ENDIF
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K2_3(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;手淫
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K2_CONSCIOUS_AND_TOLERANT()
		IF TALENT:恋慕 || TALENT:愛欲
			IF ABL:技巧 >= 4 && ABL:精液中毒 >= 5 && RAND:3
				CALL K2_HPH_PRINT,@"「あっ、这小家伙HPH ほら、快点出来吧、biubiu地射出来吧HPH」","L"
				PRINTFORMDL %CALLNAME:TARGET%持续激烈地榨取着正在射精的%K2_EXPRESSION_VARIATION("PENIS")%。
				PRINTFORMDW 在射精完全结束，阴茎開始下垂之前，%CALLNAME:TARGET%的手是不会停止的。
			ELSE
				IF NOWEX:PLAYER:射精 >= 2
					CALL K2_HPH_PRINT,@"「啊哈HPH 射出来好多HPH」","W"
				ELSE
					CALL K2_HPH_PRINT,@"「啊HPH 出来了呢HPH」","W"
				ENDIF
			ENDIF
		ELSE
			IF NOWEX:PLAYER:射精 >= 2
				CALL K2_HPH_PRINT,@"「嗯……出来了很多呢\@ TALENT:思慕 || TALENT:炮友 || TALENT:風騷 ?HPH # \@」","W"
			ELSE
				CALL K2_HPH_PRINT,@"「啊、出来了\@ TALENT:思慕 || TALENT:炮友 || TALENT:風騷 ?HPH # \@」","W"
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K2_2(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;肛門
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K2_CONSCIOUS_AND_TOLERANT() && !TALENT:無知
		IF ( TALENT:恋慕 || TALENT:愛欲 ) && ABL:肛射中毒 >= 4
			SELECTCASE RAND:3
			CASE 1
				CALL K2_HPH_PRINT,@"「哈、哈HPH 呼HPH 屁股被精液灌满了HPH」","W"
			CASE 2
				CALL K2_HPH_PRINT,@"「啊HPH 在大便的洞里dokudoku地射进去了HPH 噢、哦吼HPH」","W"
			CASEELSE
				CALL K2_HPH_PRINT,@"「啊HPH 射进里面的好热HPH 嗯、在肠道最深处HPH」","W"
			ENDSELECT
		ELSEIF ABL:肛射中毒 > 0
			SELECTCASE RAND:2
			CASE 1
				CALL K2_HPH_PRINT,@"「咕、哈、屁股里、好热\@ TALENT:恋慕 || TALENT:愛欲 || TALENT:思慕 || TALENT:炮友 || TALENT:風騷 ?HPH # \@」","W"
			CASEELSE
				CALL K2_HPH_PRINT,@"「嗯、嗯…… 屁股…满满的……\@ TALENT:恋慕 || TALENT:愛欲 || TALENT:思慕 || TALENT:炮友 || TALENT:風騷 ?HPH # \@」","W"
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K2_1(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;膣内
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	$V_CREAMPIE_LOOP
	IF K2_CONSCIOUS_AND_TOLERANT() && !TALENT:無知 && ABL:膣射中毒 > 0
		SELECTCASE RAND:4
		CASE 1
			IF TALENT:恋慕 && !TCVAR:口服避孕薬 && !CFLAG:妊娠自覚状態 && CFLAG:生理周期 >= 3 && !RAND:6
				PRINTFORML 」这么多的都射在里面…你打算让我怀孕吗？」
				IF !EXP:出産経験
					PRINTFORML 」但是……对不起。我是机器人……」
					PRINTFORMDW %CALLNAME:TARGET%短暂地露出了寂寞的表情。
				ELSEIF EXP:出産経験 && TALENT:母性
					CALL K2_HPH_PRINT,@"「要不要再造一个孩子？哼哼!HPH」","W"
				ELSE
					CALL K2_HPH_PRINT,@"「如果是%CALLNAME:MASTER%大人的宝宝的话、我会生下来的HPH」","W"
				ENDIF
			ELSE
				GOTO V_CREAMPIE_LOOP
			ENDIF
		CASE 2
			IF ( TALENT:恋慕 || TALENT:愛欲 ) && ABL:膣射中毒 >= 4
				CALL K2_HPH_PRINT,@"「哈HPH 好多好多的精液HPH」","W"
			ELSE
				CALL K2_HPH_PRINT,@"「嗯啊！ 嗯、啊、精液都、都到里面去了\@ TALENT:恋慕 || TALENT:愛欲 || TALENT:思慕 || TALENT:炮友 || TALENT:風騷 ?HPH # \@」","W"
			ENDIF
		CASE 3
			IF ( TALENT:恋慕 || TALENT:愛欲 ) && ABL:膣射中毒 >= 4
				CALL K2_HPH_PRINT,@"「嗯HPH %CALLNAME:MASTER%大人的精液、让我感觉很幸福HPH」","W"
			ELSE
				CALL K2_HPH_PRINT,@"「啊 呜、呼……射出来很多呢\@ TALENT:恋慕 || TALENT:愛欲 || TALENT:思慕 || TALENT:炮友 || TALENT:風騷 ?HPH # \@」","W"
			ENDIF
		CASEELSE
			IF ( TALENT:恋慕 || TALENT:愛欲 ) && ABL:膣射中毒 >= 4
				CALL K2_HPH_PRINT,@"「肚子里、咕噜咕噜的、好多HPH」","W"
			ELSE
				CALL K2_HPH_PRINT,@"「嗯…… 感觉有什么射出来了\@ TALENT:恋慕 || TALENT:愛欲 || TALENT:思慕 || TALENT:炮友 || TALENT:風騷 ?HPH # \@」","W"
			ENDIF
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

;-------------------------------------------------
;眠姦射精に関する口上の表示
;一時的にTARGETを口上主に設定している
;-------------------------------------------------

@M_KOJO_MESSAGE_PALAMCNG_A2_K2_0(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;避孕套
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A2_K2_23(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;深喉插入
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A2_K2_7(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;足交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A2_K2_5(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;乳交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A2_K2_4(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;口交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A2_K2_3(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;手淫
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A2_K2_2(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;肛門
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A2_K2_1(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;膣内
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_F_K2(ARG)
CALL PALAM_MESSAGE_F
;-------------------------------------------------
;挑逗
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【2】る～こと/M_KOJO_K2_絶頂.ERB


path: ERB/口上・メッセージ関連/個人口上/【2】る～こと/M_KOJO_K2_道具系コマンド.ERB


code:
;  eraTW4.611用　留琴口上
;  作者：にわか
;  ＜改変した場合はここに改変者の名前・連絡先を追加する＞
;
;  ＜この口上について語ったりするスペース＞
;
;  ライセンス：
;  作者は以下で○をつけた行為について、誰でも無断で行えるものとし、違反しない限り許可を撤回しないものとします。
;    ○：常に許可　△：要相談、上記の作者と改変者全員に連絡が取れない場合は不許可　×：不許可、相談を受けても許可しない
;
;  +----+-----------------------------------+
;  | 口上の再配布                           |
;  +----+-----------------------------------+
;  | ○ | 単体での再UPロード            |
;  | ○ | 本体への同梱・口上まとめへの収録  |
;  +----+-----------------------------------+
;  | 再配布を許可する場合の改変             |
;  +----+-----------------------------------+
;  | ○ | 口上の加筆                        |
;  | ○ | 口上の改変・其他改変            |
;  +----+-----------------------------------+
;  | 其他                                 |
;  +----+-----------------------------------+
;  | ○ | 他の口上での利用                  |
;  | ○ | 他のeraバリアントでの利用         |
;  | ○ | era以外への流用                   |
;  | ○ | 翻訳・他言語版バリアントへの流用  |
;  | × | 商用利用・金銭のやり取りを伴う利用|
;  | ○ | 二次創作                          |
;  +----+-----------------------------------+
;  ・以下の行為に関しては上記と関係なく、無断で行えるものとします。
;    １：バグ・誤字脱字の修正・本体VerUpへの対応のための改変
;  ・以下の行為に関しては上記と関係なく、作者であっても禁止とします。
;    １：以下の例外を除き、この口上からライセンス文・添付文章（ファイル名を除く）の内容を変更・削除すること
;        ・次期バージョンから、ライセンスの○・△を×に変更すること
;        ・次期バージョンから、上記の作者と改変者全員の許可が那个ば、それ以外の変更も
;    ２：この口上が二次創作等の場合に、原作者が禁止を宣言している行為
;  ・改変者は自分の名前を削除することができ、それによりこの口上に関する一切の権利を放棄し、放棄できない権利について行使しないことを宣言したものとします。
;  ・この口上を使用したことによる損害等について、バリアント・口上の作者、改変者は一切の責任を負いません。

path: ERB/口上・メッセージ関連/個人口上/【2】る～こと/ライセンス.txt


path: ERB/口上・メッセージ関連/個人口上/【30】映姫様/M_KOJO_K30_SM・加虐系コマンド.ERB