code:
;※※※※※※※※※※※※※※※※※※※※※※※※※
;愛撫系指令
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;0,愛撫
;==================================================
@M_KOJO_MESSAGE_COM_K78_0
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_0_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_0_1
#DIM 腋フラグ
腋フラグ = 0
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;挿入中
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	;V挿入
	IF LOCAL:1 && TEQUIP:50 == PLAYER
		;射精した
		IF NOWEX:PLAYER:11
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;A挿入
	ELSEIF LOCAL:1 && TEQUIP:51 == PLAYER
		;射精した
		IF NOWEX:PLAYER:11
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;扶她
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && (TALENT:2 & 3) == 3
		PRINTFORMW
		RETURN 1
	ENDIF

	IF !TEQUIP:継続接吻 && !TEQUIP:吸乳头 && !K78_EXCESSIVE_STATURE_GAP() && !RAND:3
		;腋汗ジミあり
		IF K78_SWEATY_UNDERARMS()
			PRINTFORMDL \@ K78_ARMPIT_SWEAT() == 2 ?是因为兴奋起来了吗 #胳膊发痒的 \@、%CALLNAME:TARGET%的腋下已经被汗水浸湿。
			PRINTFORMDL %CALLNAME:MASTER%将脸凑了过去，享受着浓厚的香味。
			腋フラグ = 1
		;腋が露出してる
		ELSEIF K78_ARMPIT_EXPOSURE()
			PRINTFORMDL %CALLNAME:MASTER%爱抚%CALLNAME:TARGET%全身的同时、%K78_ARMPIT_HAIR_MODIFIER()%開始舔她的腋下。
			SELECTCASE CFLAG:1007
			CASE 0,1
				PRINTFORMDL \@ CFLAG:1007 == 0 ?すべすべ #ざらざら \@\@ K78_ARMPIT_SWEAT() ?のそこは甜香りのする汗でしっとりと湿っている。 #とした感触が心地よい。 \@
			CASE 2,3
				PRINTFORMD \@ CFLAG:1007 == 2 ?やわらかな腋毛 #ボーボーの腋毛 \@
				IF K78_ARMPIT_SWEAT()
					PRINTFORMDL 汗水挥发着，散发着与平时的烤白薯一样的甜味不同的体臭。
				ELSE
					PRINTFORMDL 塞进脸，用舌头一边搅拌一边品味%CALLNAME:TARGET%的腋下的味道。。
				ENDIF
			ENDSELECT
			腋フラグ = 1
		ENDIF
	ENDIF
	IF K78_BASIC_CONDITION_IN_MATING()
		$PETTING_LOOP
		IF TALENT:恋慕 || TALENT:愛欲
			IF 腋フラグ
				SELECTCASE RAND:4
				CASE 1
					IF K78_ARMPIT_SWEAT()
						CALL K78_HPH_PRINT,@"「不行HPH 因为现在出了很多汗，不要闻啊！HPH」","L"
					ELSE
						GOTO PETTING_LOOP
					ENDIF
				CASE 2
					CALL K78_HPH_PRINT,@"「呀啊HPH 腋下实在太羞耻了HPH」","L"
				CASE 3
					CALL K78_HPH_PRINT,@"「又在舔奇怪的地方HPH」","L"
				CASEELSE
					CALL K78_HPH_PRINT,@"「不要这么执着腋下啊HPH」","L"
				ENDSELECT
			ELSE
				SELECTCASE RAND:5
				CASE 1
					IF EXP_UP(27,TARGET)
						CALL K78_HPH_PRINT,@"「啊呵、嗯HPH还想要kiss…HPH」","L"
					ELSE
						GOTO PETTING_LOOP
					ENDIF
				CASE 2
					CALL K78_HPH_PRINT,@"「最喜欢被你的手指触摸了HPH」","L"
				CASE 3
					CALL K78_HPH_PRINT,@"「嗯、好舒服……更多，更多HPH」","L"
				CASE 4
					CALL K78_HPH_PRINT,@"「啊HPH胸，可以哦HPH哈啊…很温柔呢HPH」","L"
				CASEELSE
					CALL K78_HPH_PRINT,@"「\@TALENT:性別 & 2 ?おちんぽ #お豆 \@イイっHPH もっとさわってぇっHPH」","L"
				ENDSELECT
			ENDIF
		ELSE
			IF 腋フラグ
				PRINTFORML 「等下！ 哇，腋下不行啦！」
			ELSEIF EXP_UP(27,TARGET) && RAND:2
				PRINTFORML 「はむ……ん……ちゅ… あっ、はぁっ」
			ELSE
				PRINTFORML 「あっ… んっ、んはっ、はっ　んぁっ」
			ENDIF
		ENDIF
	ENDIF
	SIF 腋フラグ || K78_BASIC_CONDITION_IN_MATING()
		WAIT
ENDIF
RETURN 1
;==================================================
;1,舐陰
;==================================================
@M_KOJO_MESSAGE_COM_K78_1
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_1_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_1_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORML 「等，等下？不觉得脏吗？气味什么的啊…不要紧吧？」
		PRINTFORMDW 满脸通红的%CALLNAME:TARGET%散发着和平时一样的香甜气息。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;膣内射精直後
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:100 == PLAYER
		IF TCVAR:102
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;絶頂した
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && NOWEX:0
		PRINTFORMW
		RETURN 1
	ENDIF

	;陰毛が非默认で大きな体格差無
	IF CFLAG:1003 && !K78_EXCESSIVE_STATURE_GAP()
		PRINTFORMDL 将脸埋入%CALLNAME:TARGET%的股间，%K78_GENITAL_HAIR_MODIFIER()%用舌头舔着外阴。
		SELECTCASE CFLAG:1003
		CASE -2
			PRINTFORMDL 滑溜溜的感觉很舒服。
		CASE -1
			PRINTFORMDL 伸长的阴毛碰在了鼻尖上感觉刺痛。
		CASE 1
			PRINTFORMDL 柔软的阴毛触碰着%CALLNAME:MASTER%的脸颊。
		CASE 2
			PRINTFORMDL 茂密的阴毛完全遮住脸，只能用舌头在丛林中探险了。
		ENDSELECT
		PRINTL
	ENDIF
	IF K78_BASIC_CONDITION_IN_MATING()
		$CUNNILINGS_LOOP
		IF TALENT:恋慕 || TALENT:愛欲
			SELECTCASE RAND:9
			CASE 1
				IF NOWEX:Ｃ絶頂
					CALL K78_HPH_PRINT,@"「啊啊HPH 这个太厉害了HPH 要去了　去了了HPH」","L"
					PRINTFORMDL 高潮的%CALLNAME:TARGET%用大腿紧紧的夹住了%CALLNAME:MASTER%的脸颊。
				ELSE
					GOTO CUNNILINGS_LOOP
				ENDIF
			CASE 2
				IF ABL:MASTER:舌 >= 3
					CALL K78_HPH_PRINT,@"「啊，呀啊HPH 舌头、好厉害HPH 不行了HPH」","L"
				ELSE
					GOTO CUNNILINGS_LOOP
				ENDIF
			CASE 3
				IF !TEQUIP:縄 && !TEQUIP:拘束 && !TEQUIP:六九式
					PRINTFORMDL 在舔阴的同时被%CALLNAME:TARGET%轻轻的抚摸着头。
					CALL K78_HPH_PRINT,@"「没什么，只是总觉得想要抚摸一下HPH」","L"
				ELSE
					GOTO CUNNILINGS_LOOP
				ENDIF
			CASE 4
				IF !TEQUIP:眼罩 && !TEQUIP:六九式
					PRINTFORMDL 敏感な部分を舌で責めると、膣口のみならず肛門もひくひくと反応してかわいらしい。
					CALL K78_HPH_PRINT,@"「等下！你在看哪里呢！HPH」","L"
				ELSE
					GOTO CUNNILINGS_LOOP
				ENDIF
			CASE 5
				IF PALAM:潤滑 >= PALAMLV:4
					PRINTFORMDL 从秘处溢出香甜蜜液无论怎么舔都舔不完
					CALL K78_HPH_PRINT,@"「哎呀HPH不要小题大作HPH声音、好害羞啊HPH」","L"
				ELSE
					GOTO CUNNILINGS_LOOP
				ENDIF
			CASE 6
				IF PALAM:潤滑 < PALAMLV:3
					PRINTFORMDL %CALLNAME:TARGET%在休息的时候，阴道也在不断的一点点漏出了蜜液。
					CALL K78_HPH_PRINT,@"「啊HPH 爱液…HPH」","L"
				ELSE
					GOTO CUNNILINGS_LOOP
				ENDIF
			CASE 7
				IF ( EXP:絶頂経験 - EXP:無自覚絶頂経験 ) >= 35
					CALL K78_HPH_PRINT,@"「呼呼、谢啦HPH 一直以来都让我这么舒服HPH」","L"
				ELSE
					PRINTFORML 「啊，不要太用力呐」
				ENDIF
			CASE 8
				CALL K78_HPH_PRINT,@"「んっHPH あぁんHPH \@ TALENT:性別 & 2 ?おちんちん #クリ \@いいのっHPH」","L"
			CASEELSE
				CALL K78_HPH_PRINT,@"「嗯哈、哈　哈啊HPH %CALLNAME:MASTER%っHPH 真舒服啊HPH」","L"
			ENDSELECT
		ELSE
			IF ( TALENT:思慕 || TALENT:炮友 ) && !RAND:5
				PRINTFORML 「要帮我舔吗？虽然很高兴，但是不要勉强哦」
				PRINTFORMDL 充分的为其侍奉了。
			ELSE
				SELECTCASE RAND:2
				CASE 1
					PRINTFORML 「嗯……哈……啊，那里是…」
				CASEELSE
					PRINTFORML 「啊、哈那里、真舒服」
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
	SIF ( CFLAG:1003 && !K78_EXCESSIVE_STATURE_GAP() ) || K78_BASIC_CONDITION_IN_MATING()
		WAIT
ENDIF
RETURN 1
;あとは適当な分岐を追加してください
;==================================================
;2,给对方口交
;==================================================
@M_KOJO_MESSAGE_COM_K78_2
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_2_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_2_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;3,指挿入れ
;==================================================
@M_KOJO_MESSAGE_COM_K78_3
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_3_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_3_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;4,舐肛
;==================================================
@M_KOJO_MESSAGE_COM_K78_4
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_4_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_4_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		IF K78_BASIC_CONDITION_IN_MATING()
			PRINTFORMW 「等、等下！ 在舔哪里啊喂！」
			PRINTFORMDW 发现%CALLNAME:MASTER%在舔她不干净的那个洞的%CALLNAME:TARGET%挣扎叫喊了起来。
			PRINTFORMW 「那里不行，哈啊……哼……啊、哎、哎」
			PRINTFORMDW 压住了%CALLNAME:TARGET%的手腕持续舔了一会，慢慢的抵抗就变弱了，妖艳的娇喘声也随着而来。
		ENDIF
		RETURN 1
	ENDIF

	IF !K78_EXCESSIVE_STATURE_GAP()
		IF CFLAG:1002 && TCVAR:351 && RAND:2
			SELECTCASE RAND:9
			CASE 1 TO 4
				PRINTFORMDL 排便后的%TEXTR("肛門/菊花/菊门")%散发着强烈的臭气。。
			CASE 5 TO 8
				PRINTFORMDL 舔舐排泄物残渣这样的倒错性的行为使得%CALLNAME:MASTER%更加兴奋了
			CASEELSE
				PRINTFORMDL 未消化残留的%TEXTR("玉米皮/韭菜/番茄皮")%黏在了肛门上。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMDL 对侵入的舌头做出反应的%TEXTR("肛門/菊花/菊门")%咯吱咯吱地蠕动着。
			CASE 2
				PRINTFORMDL \@ CFLAG:1003 == 2 && RAND:3 ?%TEXTR("不检点/下流/茂盛")%毛にふちどられた # \@%TEXTR("肛門/菊花/菊门")%%TEXTR("に舌を這わせる/をねぶる")%と、\@ CFLAG:1002 && !TCVAR:351 ?隐约感觉到大便的气味。 #%CALLNAME:TARGET%的娇喘突然变浅了。 \@
			CASEELSE
				SELECTCASE ABL:肛門
				CASE IS >= 4
					PRINTFORMD %TEXTR("解開/開发/使用了")%
				CASE 2,3
					PRINTFORMD %TEXTR("正在变成開发途中的/開始松散的/变成性器官的。")%
				CASE IS <= 1
					PRINTFORMD %TEXTR("突然缩小了的/紧闭的/还未開发的")%
				ENDSELECT
				PRINTFORMDL %CALLNAME:TARGET%的%TEXTR("肛門/菊花/菊门")%被唾液濡湿，发出光芒。
			ENDSELECT
		ENDIF
		IF K78_BASIC_CONDITION_IN_MATING()
			IF TALENT:恋慕 || TALENT:愛欲
				SELECTCASE RAND:3
				CASE 1
					CALL K78_HPH_PRINT,@"「讨厌，大便的地方不能呸喽呸喽的那样舔HPH」","L"
				CASE 2
					CALL K78_HPH_PRINT,@"「明明很脏的HPH不行的HPH呀，啊HPH呼，哈恩」","L"
				CASEELSE
					CALL K78_HPH_PRINT,@"「啊，HPH啊，虽然很舒服……但是果然这样的还是不行啊HPH」","L"
				ENDSELECT
			ELSE
				SELECTCASE RAND:2
				CASE 1
					PRINTFORML 「居然在舔那种地方、啊、啊、哈，这也太变态了」
				CASEELSE
					PRINTFORML 「都说了很脏了　真是的、快停下来　啊、嗯阿」
				ENDSELECT
			ENDIF
		ENDIF
		WAIT
	ENDIF
ENDIF
RETURN 1

;==================================================
;5,肛門愛撫
;==================================================
@M_KOJO_MESSAGE_COM_K78_5
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_5_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_5_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;6,胸愛撫
;==================================================
@M_KOJO_MESSAGE_COM_K78_6
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_6_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_6_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;7,玩弄乳頭
;==================================================
@M_KOJO_MESSAGE_COM_K78_7
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_7_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_7_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF

	IF !TEQUIP:吸乳头 && !K78_EXCESSIVE_STATURE_GAP() && ( TEQUIP:上半身着衣状況 == 0 || ( TEQUIP:上半身裸露状態 && ( TEQUIP:上半身着衣状況 & 4 ) == 0 ) )
		SELECTCASE RAND:3
		CASE 1
			PRINTFORMDL %K78_NIPPLE_MODIFIER()%乳头の周りにそえた指を第五指から第一指へとリズムよく屈伸させ、\@ TALENT:母乳体質 ?母乳を絞り出すべく #搾乳するかのように \@マッサージし了。
		CASE 2
			PRINTFORMDL \@ TALENT:母乳体質 ?乳腺の発達により張りのある乳房をときほぐすように揉み #やわらかな乳房を存分に揉みしだいて堪能し \@つつ、%K78_NIPPLE_MODIFIER()%乳头を指先でつまみあげ了。
		CASEELSE
			PRINTFORMDL %K78_NIPPLE_MODIFIER()%乳头を精心地刺激すると、\@ TALENT:母乳体質 ?母乳をしたたらす # \@乳頭が次第に%TEXTR("ピンと/固く/ムクムクと")%勃起てき了。
		ENDSELECT
	ENDIF
	IF K78_BASIC_CONDITION_IN_MATING()
		$NIPPLE_KNEADING_LOOP
		IF TALENT:恋慕 || TALENT:愛欲
			SELECTCASE RAND:5
			CASE 1
				IF TALENT:母乳体質
					CALL K78_HPH_PRINT,@"「再用力点HPH 胸部piupiu的出来了HPH」","L"
				ELSE
					GOTO NIPPLE_KNEADING_LOOP
				ENDIF
			CASE 2
				IF TALENT:母乳体質
					CALL K78_HPH_PRINT,@"「乳头好厉害HPH 胸部piupiu的HPH 哈恩HPH」","L"
				ELSE
					GOTO NIPPLE_KNEADING_LOOP
				ENDIF
			CASE 3
				CALL K78_HPH_PRINT,@"「恩、恩HPH…哈啊HPH明明只是乳头…为什么会有这样的感觉呢HPH」","L"
			CASE 4
				CALL K78_HPH_PRINT,@"「恩，HPH啊…啊HPH你的手指超级舒服HPH」","L"
			CASEELSE
				CALL K78_HPH_PRINT,@"「不要停下来HPH 再多玩弄一会HPH」","L"
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 1
				IF ABL:MASTER:指 >= 4
					PRINTFORML 「啊、恩、恩…为什么那么熟练…」
				ELSE
					GOTO NIPPLE_KNEADING_LOOP
				ENDIF
			CASE 2
				PRINTFORML 「啊、呼、乳头火辣辣的…嗯哼」
			CASEELSE
				PRINTFORML 「啊、啊好厉害啊、好舒服、啊」
			ENDSELECT
		ENDIF
	ENDIF
	SIF ( !TEQUIP:吸乳头 && !K78_EXCESSIVE_STATURE_GAP() && ( TEQUIP:上半身着衣状況 == 0 || ( TEQUIP:上半身裸露状態 && ( TEQUIP:上半身着衣状況 & 4 ) == 0 ) ) ) || K78_BASIC_CONDITION_IN_MATING()
		WAIT
ENDIF
RETURN 1

;==================================================
;8,張開陰唇
;==================================================
@M_KOJO_MESSAGE_COM_K78_8
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_8_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_8_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF

	IF CFLAG:1003
		PRINTFORMDL %K78_GENITAL_HAIR_MODIFIER()%%CALLNAME:TARGET%的手刚碰到秘处，香气就漂过来了。
		SELECTCASE CFLAG:1003
		CASE -2
			PRINTFORMDL 那里完全没有毛，突显出了少女神圣清澈的所在。
		CASE -1
			PRINTFORMDL 秘裂周围粗糙而硬的短发，让人觉得十分下流。
		CASE 1
			PRINTFORMDL 秘裂周围茂密的绒毛散发着一股很好闻的清香
		CASE 2
			PRINTFORMDL 在郁郁葱葱的茂密丛林深处的红色粘膜激发了%CALLNAME:MASTER%的情欲。
		ENDSELECT
	ENDIF
	IF K78_CONSCIOUS_AND_TOLERANT() && !TALENT:無知
		IF TALENT:恋慕 || TALENT:愛欲
			IF ABL:露出癖 - TALENT:羞恥心 >= 3
				IF TCVAR:V被中出FLAG
					;主人以外が直前に中出し
					IF TCVAR:Vに中出しした角色の番号 > 0 && FLAG:扮演 != TCVAR:Vに中出しした角色の番号
						CALL K78_HPH_PRINT,@"「見てHPH \@ TCVAR:Vに中出しした角色の番号 == 77 ?姉さん #%CALLNAME:(TCVAR:Vに中出しした角色の番号)% \@に出された精液がこんなにHPH」","L"
						;主人に阴茎あり
						SIF TALENT:MASTER:性別 & 2
							CALL K78_HPH_PRINT,@"「主人公以外の精液、主人公のおちんちんでかきだしてっHPH 主人公の精液で上書きしてっHPH」","L"
					ELSE
						;口服避孕薬無、非安全日
						IF !TCVAR:口服避孕薬 && CFLAG:生理周期 >= 3
							CALL K78_HPH_PRINT,@"「没有任何避孕措施就进来了……也许真的会有小宝宝的HPH」","L"
						ELSE
							CALL K78_HPH_PRINT,@"「啊啊HPH%CALLNAME:MASTER%精液进来了HPH」","L"
						ENDIF
					ENDIF
				ELSE
					IF ABL:膣 >= 2 && PALAM:潤滑 >= PALAMLV:3 && RAND:2
						CALL K78_HPH_PRINT,@"「不进来吗？这里已经准备好咯HPH」","L"
					ELSE
						CALL K78_HPH_PRINT,@"「光是看着%CALLNAME:MASTER%…就跳个不停…HPH」","L"
					ENDIF
				ENDIF
			ELSE
				IF TCVAR:V被中出FLAG
					CALL K78_HPH_PRINT,@"「呀啊HPH 要溢出来了HPH」","L"
				ELSEIF !TEQUIP:眼罩 && RAND:2
					CALL K78_HPH_PRINT,@"「不要那样认真的看着HPH」","L"
				ELSE
					CALL K78_HPH_PRINT,@"「嗯…太害羞了HPH」","L"
				ENDIF
			ENDIF
		ELSE
			IF ABL:露出癖 >= 2
				PRINTFORML 「光是被这么看着……就觉得安心不下来啊…」
				PRINTFORMDL  %CALLNAME:TARGET%是希望被抚摸着么还是别的什么，抱着期待的眼神向%CALLNAME:MASTER%看了过来。
			ELSE
				PRINTFORML 「看这样的地方有那么開心吗？」
				PRINTFORMDL %CALLNAME:TARGET%皱着眉头听从了%CALLNAME:MASTER%的指示。
			ENDIF
		ENDIF
	ENDIF
	SIF CFLAG:1003 || ( K78_CONSCIOUS_AND_TOLERANT() && !TALENT:無知 )
		WAIT
ENDIF
RETURN 1

;==================================================
;9,自慰
;==================================================
@M_KOJO_MESSAGE_COM_K78_9
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_9_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_9_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1
[SKIPSTART]
;別指令化
;==================================================
;10,吸乳头
;==================================================
@M_KOJO_MESSAGE_COM_K78_10
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_10_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_10_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1
[SKIPEND]
;==================================================
;11,吸乳头
;==================================================
@M_KOJO_MESSAGE_COM_K78_11
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_11_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_11_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF

	IF !K78_EXCESSIVE_STATURE_GAP() && ( TEQUIP:上半身着衣状況 == 0 || ( TEQUIP:上半身裸露状態 && ( TEQUIP:上半身着衣状況 & 4 ) == 0 ) )
		PRINTL
		SELECTCASE RAND:3
		CASE 1
			PRINTFORMDL %K78_NIPPLE_MODIFIER()%将乳头含在嘴里，用舌尖戳着乳头，逐渐变硬了。。
		CASE 2
			PRINTFORMDL 吸着%CALLNAME:TARGET%暴露出来的乳头，%K78_NIPPLE_MODIFIER()%有点甜甜的味道。
		CASEELSE
			PRINTFORMDL %CALLNAME:MASTER%は、%K78_NIPPLE_MODIFIER()%用力吸吮着乳头，留下了像乳晕一般红色的印记。
		ENDSELECT
		IF TALENT:母乳体質
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMDL 从乳头渗出的甘甜母乳滋润了%CALLNAME:MASTER%的喉咙。
			CASE 2
				PRINTFORMDL 像是怒张的静脉突然爆发一般从坚挺的乳房中很有气势的喷出了大量母乳，%CALLNAME:MASTER%的嘴里已经完全被这股独特的甘甜所占领了。
			CASEELSE
				PRINTFORMDL 不停喷出的大量母乳从%CALLNAME:MASTER%嘴里溢出，白色的水滴不断的滴落了下来。
			ENDSELECT
		ENDIF
	ENDIF
	IF K78_BASIC_CONDITION_IN_MATING()
		$NIPPLE_SUCKING_LOOP
		IF TALENT:恋慕 || TALENT:愛欲
			SELECTCASE RAND:6
			CASE 1
				IF TALENT:母乳体質 && TALENT:母性
					CALL K78_HPH_PRINT,@"「对咯对咯HPH 大大的胸部在这里哦ーHPH 嘿嘿♪ 真可爱呐HPH」","L"
				ELSE
					GOTO NIPPLE_SUCKING_LOOP
				ENDIF
			CASE 2
				IF TALENT:母乳体質
					CALL K78_HPH_PRINT,@"「嗯HPH 在我的胸部这里HPH 啾啾的多喝点吧HPH」","L"
				ELSE
					GOTO NIPPLE_SUCKING_LOOP
				ENDIF
			CASE 3
				IF TALENT:母乳体質
					CALL K78_HPH_PRINT,@"「啊HPH 从胸部里咻咻的HPH 出来了很多哦HPH」","L"
				ELSE
					GOTO NIPPLE_SUCKING_LOOP
				ENDIF
			CASE 4
				IF !TALENT:母乳体質
					CALL K78_HPH_PRINT,@"「呀啊HPH 就算再怎么吸也不会从胸部里出来什么哦HPH」","L"
				ELSE
					GOTO NIPPLE_SUCKING_LOOP
				ENDIF
			CASE 5
				CALL K78_HPH_PRINT,@"「乳头黏糊糊的HPH 感觉很不舒服呢HPH」","L"
			CASEELSE
				CALL K78_HPH_PRINT,@"「乳头好难受呀HPH 再用力一点HPH 咻咻的尽管来吧HPH」","L"
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 1
				IF EXP:出産経験 == 0
					PRINTFORML 「如果生了小宝宝也会是这样的感觉吗」
				ELSE
					GOTO NIPPLE_SUCKING_LOOP
				ENDIF
			CASE 2
				PRINTFORML 「嗯唔，唔…哈… 乳头要… 啊啊」
			CASEELSE
				PRINTFORML 「恩，啊，恩…不要转来转去」
			ENDSELECT
		ENDIF
	ENDIF
	SIF ( !K78_EXCESSIVE_STATURE_GAP() && ( TEQUIP:上半身着衣状況 == 0 || ( TEQUIP:上半身裸露状態 && ( TEQUIP:上半身着衣状況 & 4 ) == 0 ) ) ) || K78_BASIC_CONDITION_IN_MATING()
		WAIT
ENDIF
RETURN 1
;==================================================
;12,胸もみ
;==================================================
@M_KOJO_MESSAGE_COM_K78_12
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_12_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_12_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;13,張開肛門
;==================================================
@M_KOJO_MESSAGE_COM_K78_13
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_13_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_13_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF

	IF CFLAG:1002 && TCVAR:A被中出FLAG
		PRINTFORMDL 从肛门溢出的精液混杂着肠内的粪便像大理石的花纹一样。
	ELSEIF CFLAG:1003 >= 2
		PRINTFORMDL %CALLNAME:TARGET%的菊花附近清晰可见的茂密阴毛使得看起来更加下流了。
	ENDIF
	IF K78_CONSCIOUS_AND_TOLERANT() && !TALENT:無知
		IF TALENT:恋慕 || TALENT:愛欲
			SELECTCASE ABL:露出癖
			CASE IS >= 5
				IF TCVAR:A被中出FLAG
					IF TALENT:MASTER:性別 & 2 && RAND:2
						CALL K78_HPH_PRINT,@"「屁股里全都是黏黏的精液，一定很恶心吧HPH 呐，欧金金还要插进来吗HPH」","L"
					ELSE
						CALL K78_HPH_PRINT,@"「\@ TCVAR:Aに中出しした角色の番号 == MASTER ?主人公の # \@沾满精液的屁股HPH」","L"
					ENDIF
				ELSE
					IF ABL:肛門 >= 2 && RAND:2
						CALL K78_HPH_PRINT,@"「不要只是看着呀HPH快来爱抚我吧HPH」","L"
					ELSE
						CALL K78_HPH_PRINT,@"「看着我肮脏的地方就很兴奋吗？HPH 真是个变态呐HPH」","L"
					ENDIF
				ENDIF
			CASE 3,4
				IF TCVAR:A被中出FLAG
					CALL K78_HPH_PRINT,@"「\@ TCVAR:Aに中出しした角色の番号 == MASTER ?%CALLNAME:MASTER%に # \@满满的都要溢出来了HPH」","L"
				ELSE
					CALL K78_HPH_PRINT,@"「就那么想看屁股么？ 但是不要去闻味道哦HPH」","L"
				ENDIF
			CASE IS <= 2
				CALL K78_HPH_PRINT,@"「主人公だからしてるんだからねっ　はしたないなんて思わないでよっHPH」","L"
			ENDSELECT
		ELSE
			SELECTCASE ABL:露出癖
			CASE IS >= 5
				PRINTFORMDL 大概是因为羞耻的部位被看到了而兴奋起来了吧，%CALLNAME:TARGET%饥渴的爱抚着自己的阴蒂。
				PRINTFORML 「呐……只是看着吗？」
			CASE 3,4
				PRINTFORML 「让女孩子做出这么羞耻的样子…」
				PRINTFORMDL %CALLNAME:TARGET%皱着眉头，撑開自己丰满的臀肉将自己的肛门暴露出来。
			CASE IS <= 2
				PRINTFORMDL 虽然说着不要不要拼命摇着头的%CALLNAME:TARGET%，在%CALLNAME:MASTER%的一再恳求下，一边流着羞耻的泪水一边掰開了自己的屁股
				PRINTFORML 「这样的……太羞耻了…」
			ENDSELECT
		ENDIF
	ENDIF
	SIF ( CFLAG:1002 && TCVAR:A被中出FLAG ) || CFLAG:1003 >= 2 || ( K78_CONSCIOUS_AND_TOLERANT() && !TALENT:無知 )
		WAIT
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;ソフト系指令
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;19,接吻
;==================================================
@M_KOJO_MESSAGE_COM_K78_19
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_19_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_19_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;20,接吻
;==================================================
@M_KOJO_MESSAGE_COM_K78_20
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_20_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_20_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF

	IF K78_BASIC_CONDITION_IN_MATING()
		IF TALENT:恋慕 || TALENT:愛欲
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMDL %CALLNAME:MASTER%和%CALLNAME:TARGET%宛如软体动物交尾一般互相缠着舌头，互相交换彼此的唾液。
				CALL K78_HPH_PRINT,@"「ちゅ…ぴちゃ……ちゅぱ……ちゅる…んはぁHPH %CALLNAME:MASTER%，最喜欢了，爱你哦HPH」","W"
			CASE 2
				PRINTFORMDL 被%CALLNAME:TARGET%香甜的吐息所迷住了，只是无意识的自己动着舌头。。
				CALL K78_HPH_PRINT,@"「はむ…んちゅっ、ん、んふぅ…れろ……ちゅぷ…はぁHPH 还，不够HPH」","W"
			CASEELSE
				PRINTFORMDL %CALLNAME:MASTER%已经无暇关心其他，如同%CALLNAME:TARGET%的俘虏一般持续渴求着她如同果实一般香甜的唾液。
				CALL K78_HPH_PRINT,@"「嗯唔…啾噜…啾HPH …啾噜，啾噜噜……啾哈HPH」","W"
			ENDSELECT
		ELSE
			SELECTCASE RAND:2
			CASE 1
				PRINTFORMW 「啾唔……唔……哈……唔姆…啾…唔」
			CASEELSE
				PRINTFORMW 「嗯…啾噗……嗯啾……嗯哈……哈唔…啾」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;21,什麼也不做
;==================================================
@M_KOJO_MESSAGE_COM_K78_21
;CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_21_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_21_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;22,誘惑
;==================================================
@M_KOJO_MESSAGE_COM_K78_22
;CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_22_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_22_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;23,枕邊話
;==================================================
@M_KOJO_MESSAGE_COM_K78_23
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_23_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_23_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;失敗
	IF TFLAG:193
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;思慕
	ELSEIF TALENT:思慕
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【78】穣子/M_KOJO_K78_愛撫系コマンド.ERB


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_K78_300
;現在地が浴場で恋慕or愛欲でしらふのときは体毛指定関数を呼び出す
IF BATHROOM() && (TALENT:恋慕 || TALENT:愛欲) && SHIRAHU(TARGET)
	CALL K78_HAIR_TREATMENT
	;体毛関係のイベントを選んだ場合は通常の会話口上無し
	SIF RESULT == 1
		RETURN 1
ENDIF
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_300_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_300_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:ブチギレ
		PRINTFORMDW 生气的%CALLNAME:TARGET%把头扭向了另一边。
	ELSEIF TCVAR:烂醉
		IF TALENT:心情 >= 0
			PRINTFORMDL 看起来心情还不错的か%CALLNAME:TARGET%咯咯的笑着。
			PRINTFORMW 「什么呢？ 不靠近一点可听不清哦ー　再靠近点」
		ELSE
			PRINTFORML 「我说，你到底有没有在听？ 好好听我说啊！」
			PRINTFORMDW 看来好像醉得不轻。
		ENDIF
	ELSE
		SELECTCASE TFLAG:193
		CASE 1
			IF ( TALENT:恋慕 || TALENT:愛欲 ) && RAND:3
				SELECTCASE RAND:2
				CASE 1
					CALL K78_HPH_PRINT,@"「尽量多吃点吧，就这样和你一直在一起…… 我真是个幸福的人…HPH」","W"
				CASEELSE
					PRINTFORMDL %CALLNAME:MASTER%は%CALLNAME:TARGET%的美しさを褒めたたえ了。
					CALL K78_HPH_PRINT,@"「真是的　再怎么奉承我也不会有好处哦HPH」","L"
					SIF CFLAG:既成事實 & 2
						CALL K78_HPH_PRINT,@"「不过，今晚我可以给你稍微服务一下吗？HPH」","L"
					WAIT
				ENDSELECT
			ELSE
				PRINTFORML 「啊哈哈♪ %CALLNAME:MASTER%还真是有趣呢」
				PRINTFORMDW 好像很受欢迎。
			ENDIF
		CASE 0
			;天気の話題
			IF GET_MAPNAME(GET_MAPID(CFLAG:MASTER:現在位置)) != "地底" && !RAND:5
				SELECTCASE TIME:5
				;晴天
				CASE 0
					;１９時以降
					IF TIME:0 >= 1140
						PRINTFORMW 「今晚的星星真美啊」
					;冬
					ELSEIF DAY:2 == 4
						;７～１７時
						IF BETWEENTIME(420,1020)
							PRINTFORMW 「多亏太阳出来了，稍微暖和了一点呐」
						ELSE
							PRINTFORMW 「冬天很干燥，请多多注意哦」
						ENDIF
					ELSE
						PRINTFORMW 「嗯，真是不错的天气。农作物也能茁壮成长就好了」
					ENDIF
				;晴朗
				CASE 1
					;夏
					IF DAY:2 == 2
						;起床～７時
						IF BETWEENTIME(CFLAG:起床時間,420)
							PRINTFORMW 「今天好像会很热的样子，趁凉快的时候把工作处理掉比较好。」
						;７～１９時
						ELSEIF BETWEENTIME(420,1140)
							PRINTFORMW 「阳光很强呢。请一定要注意不要中暑了哦」
						;１９時以降
						ELSE
							PRINTFORMW 「就算太阳落山了，还是热得让人受不了」
						ENDIF
					;冬
					ELSEIF DAY:2 == 4
						PRINTFORMW 「虽然现在天气很好，但是我有点担心会不会下雪。」
					ELSE
						PRINTFORMW 「万里无云的好天气。真让人舒服呀」
					ENDIF
				;多雲、陰天
				CASE 2,3
					;陰天で１９時以降
					IF TIME:5 == 3 && TIME:0 >= 1140
						PRINTFORMW 「今天是阴天，看不到星星还真是可惜呐…」
					;冬の起床～１７時
					ELSEIF DAY:2 == 4 && BETWEENTIME(CFLAG:起床時間,1020)
						PRINTFORMW 「好冷啊。太阳会不会出来呢」
					;夏の起床～１７時
					ELSEIF DAY:2 == 2 && BETWEENTIME(CFLAG:起床時間,1020)
						PRINTFORMW 「多云的天气。是适合农作的日子呢」
					;陰天
					ELSEIF TIME:5 == 3
						PRINTFORMW 「云很浓啊。也许会下雨吧」
					ELSE
						PRINTFORM 「那朵云，看起来像
						SELECTCASE RAND:4
						CASE 1
							PRINTFORM 竹笋
						CASE 2
							PRINTFORM 茄子
						CASE 3
							PRINTFORM 饭团
						CASEELSE
							PRINTFORM 烤红薯
						ENDSELECT
						PRINTFORMW 一样很美味的样子…」
					ENDIF
				;雨、霧雨、雨雪交加
				CASE 4,6,12
					;夏
					IF DAY:2 == 2
						PRINTFORMW 「闷闷的让人感觉很难受…」
					ELSE
						PRINTFORMW 「天气不是很好呢。也许在家悠闲渡过比较好」
					ENDIF
				;大雨
				CASE 5
					;台風
					IF FLAG:異常気象 == 9
						PRINTFORMW 「大风大雨的……庄稼没问题吧？」
					ELSE
						PRINTFORMW 「好大的雨。还是不要出门的好」
					ENDIF
				;霧
				CASE 7
					PRINTFORMW 「雾好大啊。要出门的话请小心点」
				;雪、細雪、霧雪
				CASE 8,10,11
					PRINTFORMW 「下雪了呢。很冷吧」
				;吹雪、冰雹
				CASE 9,13
					PRINTFORMW 「天气真糟糕呀。今天最好还是呆在家里」
				ENDSELECT
			;季節の話題
			ELSEIF RAND:2
				SELECTCASE DAY:2
				CASE 1
					SELECTCASE RAND:4
					CASE 1
						PRINTFORMW 「说到春天就想到竹笋。竹笋饭♪竹笋饭♪」
					CASE 2
						PRINTFORML 野菜的季节哟。蕨菜、楤木芽、蜂斗菜、野蒜」
						PRINTFORMW 「……有点想喝酒了」
					CASE 3
						PRINTFORMW 「一到春天，是不是就有心跳不已的感觉？」
					CASEELSE
						PRINTFORMW 「该插秧了。这个时期种苗很重要哦」
					ENDSELECT
				CASE 2
					SELECTCASE RAND:4
					CASE 1
						PRINTFORML 「一说到夏天，就想到番茄、茄子、黄瓜、青椒等好吃的蔬菜！」
						PRINTFORMW 「对健康也有好处，所以要好好摄取哦」
					CASE 2
						PRINTFORML 「夏天田里的工作是除草、驱虫、浇水」
						PRINTFORMW 「虽然热得够呛，但比起冷害要好得多。」
					CASE 3
						PRINTFORMW 「好热啊。想吃刨冰什么的」
					CASEELSE
						PRINTFORMW 「夏天要注意台风呐。有台风的话就好好呆在家里吧」
					ENDSELECT
				CASE 3
					SELECTCASE RAND:4
					CASE 1
						PRINTFORML 「已经是秋天了。正如我的名字，是我的季节呢」
						PRINTFORMDW %CALLNAME:TARGET%挺起了胸膛。
					CASE 2
						PRINTFORML 「收获的时期呢。今年也能吃很多初穗的大米」
						PRINTFORMDW %CALLNAME:TARGET%的脸上喜气洋洋的。
					CASE 3
						PRINTFORMW 「你难道不觉得金黄色的稻穗有不亚于红叶之美吗？」
					CASEELSE
						PRINTFORMW 「秋季时令的蘑菇。可以炒，可以炸，可以煮，是非常方便的宝物」
					ENDSELECT
				CASE 4
					SELECTCASE RAND:4
					CASE 1
						PRINTFORMW 「冬天总感觉心情很低落。春天快来吧！」
					CASE 2
						PRINTFORMW 「在寒冷的冬天吃烤白薯。味道又甜又可口♪最喜欢了」
					CASE 3
						PRINTFORMW 「唔，好冷啊。想一直呆在被炉里…」
					CASEELSE
						PRINTFORMW 「冬天果然还是得吃白萝卜。做成美味的关东煮真是太好吃了」
					ENDSELECT
				ENDSELECT
			;其他の話題
			ELSE
				IF ( TALENT:恋慕 || TALENT:愛欲 ) && RAND:2
					SELECTCASE RAND:4
					CASE 1
						PRINTFORML 「呐、你喜欢的食物是什么呢？」
						PRINTFORMDL %CALLNAME:TARGET%唐突的提出了质问。
						PRINTFORMW 「哼，那么就试着培育那个吧」
					CASE 2
						PRINTFORMW 「嗯？这个香味？呵呵，是丰收之神特制的香水哦♪」
					CASE 3
						PRINTFORML 「听我说，不久前发生了件有趣的事情哟」
						PRINTFORMDW %CALLNAME:TARGET%靠了过来，看起来很開心的样子继续说着那件事
					CASEELSE
						PRINTFORMW 「啊，已经这个点了吗。一和你说话，不知不觉时间就过去了」
					ENDSELECT
				ELSE
					IF FLAG:扮演 != 77 && !RAND:4
						PRINTFORML 「我明明跟姐姐说过不能吃红叶什么的，她却做了红叶的天妇罗，还塞给了我。」
						PRINTFORMW 「难道真的很好吃吗？」
					ELSEIF FLAG:扮演 != 77 && !RAND:3
						PRINTFORML 「那个，不就之前，姐姐做了件很%TEXTR("厉害/糟糕/有趣")%的事」
						PRINTFORMDW 讲关于%CALLNAME:77%的事的%CALLNAME:TARGET%看起来很開心。
					ELSEIF RAND:2
						PRINTFORML 「呐，%CALLNAME:MASTER%，你最喜欢哪个季节？」
						PRINTFORMDW 看来不得不回答是秋天了。
					ELSE
						;農民でなく園芸用品をもっていない
						IF !FLAG:地主 && !ITEM:園芸用品一式
							PRINTFORMW 「土好像弄多了。%CALLNAME:MASTER%也来试试家庭菜园怎么样？」
						ELSE
							PRINTFORMW 「田地怎么样？为了日后的丰收要每天好好照顾哟」
						ENDIF
					ENDIF
				ENDIF
			ENDIF
		CASE -1
			PRINTFORML 「嗯唔…」
			PRINTFORMDW 似乎是个%CALLNAME:TARGET%不感兴趣的话题。
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;301,泡茶
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K78_301
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_301_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_301_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT()
		SELECTCASE TFLAG:193
		CASE 1
			PRINTFORMW 「太好喝了。想请教你怎么泡的」
		CASE 0
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「谢谢。正好口渴了」
			CASE 2
				PRINTFORMW 「很好喝的茶呐。我也试着栽培茶叶吧」
			CASEELSE
				PRINTFORMW 「真想一边喝着茶一边吃烤白薯呐」
			ENDSELECT
		CASE -1
			PRINTFORMW 「……唔唉」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;302,身体接觸
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K78_302
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_302_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_302_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT() && !K78_EXCESSIVE_STATURE_GAP()
		$PHYSICAL_CONTACT_LOOP
		IF TALENT:恋慕 || TALENT:愛欲
			SELECTCASE RAND:3
			CASE 1
				CALL K78_HPH_PRINT,@"「怎么了？ 想撒娇吗？HPH」","W"
			CASE 2
				PRINTFORMDL 一靠近%CALLNAME:TARGET%的肩膀，一股烤白薯般的香甜气息就传了过来。
				CALL K78_HPH_PRINT,@"「呀HPH 别这样闻啊HPH」","W"
			CASEELSE
				PRINTFORMDL 明明经常在田里干活，%CALLNAME:TARGET%的手腿却很纤细十分漂亮。
				CALL K78_HPH_PRINT,@"「我也是女孩子呐，也是会在这方面努力的HPH」","W"
			ENDSELECT
		ELSE
			SELECTCASE TFLAG:193
			CASE 1
				SELECTCASE RAND:2
				CASE 1
					IF TALENT:思慕 || TALENT:炮友
						PRINTFORMDL 回过神来%CALLNAME:MASTER%和%CALLNAME:TARGET%的肩膀已经靠在一起了。
						PRINTFORMW 「不知不觉… 就，这么近了…」
					ELSE
						GOTO PHYSICAL_CONTACT_LOOP
					ENDIF
				CASEELSE
					PRINTFORMDL 给%CALLNAME:TARGET%的全身做了按摩。
					PRINTFORMDL 乍看上去很结实，却有着女性特有的柔软的身体。。
					PRINTFORMW 「嗯……啊啊…真熟练呐，%CALLNAME:MASTER%。谢谢」
				ENDSELECT
			CASE 0
				SELECTCASE RAND:3
				CASE 1
					IF ( TALENT:思慕 || TALENT:炮友 ) && !TALENT:恋人
						PRINTFORMDL %CALLNAME:MASTER%握着%CALLNAME:TARGET%的手、%CALLNAME:TARGET%\@ CHK_DATENOW(CFLAG:TARGET:约会中) ?脸上一片绯红#虽然有点吃惊 \@还是回握了过来。
						PRINTFORMW 「总，总感觉像恋人一样呐…」
					ELSE
						GOTO PHYSICAL_CONTACT_LOOP
					ENDIF
				CASE 2
					PRINTFORMDL 提出了想为%CALLNAME:TARGET%揉揉肩。
					PRINTFORMW 「那就拜托你了」
				CASEELSE
					PRINTFORMDL 为%CALLNAME:TARGET%的腰做了按摩。
					PRINTFORMW 「因为经常在田里干活，腰部很僵硬吧」
				ENDSELECT
			CASE -1
				PRINTFORML 「等等！ 你在摸哪里！」
				PRINTFORMDW 想给%CALLNAME:TARGET%做个按摩，看来不行了。
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;303,道歉
;TFLAG:193(2=菓子折成功 1=大成功 0=成功 -1=失敗 -2=菓子折失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K78_303
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_303_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_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_K78_304
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_304_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_304_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
	;通常
	ELSE
	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_K78_305
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_305_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_305_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT() && TFLAG:193 > -5
		IF TALENT:恋慕 || TALENT:愛欲
			SELECTCASE RAND:3
			CASE 1
				CALL K78_HPH_PRINT,@"「知道啦知道啦、膝枕在这哦HPH 幸苦了HPH」","W"
			CASE 2
				CALL K78_HPH_PRINT,@"「累了吗？ 好吧。在这儿哦，请吧HPH」","W"
			CASEELSE
				PRINTFORMDL 沉浸在香甜的气味中很快就睡着了。
				CALL K78_HPH_PRINT,@"「困了吗？ 可以稍微睡一会哦。我会就这样一直呆在这里的HPH」","W"
			ENDSELECT
		ELSE
			SELECTCASE TFLAG:193
			CASE IS >= 0
				SELECTCASE ABL:親密
				CASE IS >= 6
					PRINTFORML 「又想黏过来了吗…… 你对谁都是这样的吗？」
					PRINTFORMDW 虽然嘴上这么说，但%CALLNAME:TARGET%还是露出了微笑。
				CASE 3 TO 5
					IF TALENT:MASTER:幼稚
						PRINTFORML 「毕竟还是个孩子，真拿你没办法」
					ELSE
						PRINTFORML 「%CALLNAME:MASTER%有时就像个小孩一样…」
					ENDIF
					PRINTFORMDW %CALLNAME:TARGET%呆呆地抚摸着%CALLNAME:MASTER%的头。
				CASE IS <= 2
					PRINTFORMW 「这，这实在让人太不好意思了…」
				ENDSELECT
			CASE -1
				PRINTFORMW 「…腿很疼又让人不好意思，还是算了吧」
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;306,撫摸肚子
;TFLAG:193(1=ABL:親密6以上かつ妊娠時 0=成功 -1=ABL:親密5以下)
;==================================================
@M_KOJO_MESSAGE_COM_K78_306
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_306_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_306_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT()
		SELECTCASE TFLAG:193
		CASE 1

		CASE 0

		CASE -1

		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;307,捏臉蛋
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
	;以下は先に書いた条件が優先される
	;TALENT:恋慕(受け入れつつ笑顔でやり返す
	;ABL:親密(6以上=怯生生地やり返す
	;ABL:従順(5以上=されるがまま
;==================================================
@M_KOJO_MESSAGE_COM_K78_307
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_307_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_307_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT()
		IF TALENT:恋慕
			SELECTCASE RAND:2
			CASE 0
				CALL K78_HPH_PRINT,@"「这份痛楚，也不是很讨厌呢HPH」","W"
			CASEELSE
				PRINTFORMW 「成功了！这是还击哦♪」
			ENDSELECT
		ELSEIF ABL:親密 >= 6 && TFLAG:193 >= 0
			PRINTFORMW 「真是的…」
		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_K78_308
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_308_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_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_K78_309
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_309_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_309_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT()
		$HEAD_PATTING_LOOP
		SELECTCASE TFLAG:193
		CASE 1
			IF ( TALENT:恋慕 || TALENT:愛欲 ) && RAND:2
				PRINTFORMDL 被%CALLNAME:MASTER%摸着头，%CALLNAME:TARGET%看起来很高兴的贴了过来。
				CALL K78_HPH_PRINT,@"「唔呼呼HPH 再多摸一会吧HPH」","W"
			ELSE
				PRINTFORMDL %CALLNAME:MASTER%对%CALLNAME:TARGET%一头光滑的金发表示了赞美。
				PRINTFORMW 「我的头发，有那么美吗？唉嘿嘿」
			ENDIF
		CASE 0
			IF ABL:親密 >= 6
				IF TALENT:恋慕 || TALENT:愛欲
					SELECTCASE RAND:3
					CASE 1
						IF TALENT:MASTER:性別 == 2 && TALENT:MASTER:体型 >= 0
							CALL K78_HPH_PRINT,@"「%CALLNAME:MASTER%的手，好大啊。这就是男人啊HPH」","W"
						ELSE
							GOTO HEAD_PATTING_LOOP
						ENDIF
					CASE 2
						PRINTFORML 「已，已经结束了？？」
						PRINTFORMDW %CALLNAME:TARGET%露出不满的表情抬头看着你。
					CASEELSE
						PRINTFORML 「被你摸着，总感觉很安心呐…」
						PRINTFORMDW %CALLNAME:TARGET%闭上眼睛，露出安稳的笑容。
					ENDSELECT
				ELSE
					SELECTCASE RAND:2
					CASE 1
						PRINTFORMW 「我可不是小孩子呀…… 嘛…既然是%CALLNAME:MASTER%的话就算了吧」
					CASEELSE
						PRINTFORML 「话先说在前面，我姑且也是个神哦」
						PRINTFORMDW 虽然想表现出一副威严的样子，但依然却被抚摸着。
					ENDSELECT
				ENDIF
			ELSE
				PRINTFORMW 「等，等下。你不会害羞的吗。真是的」
			ENDIF
		CASE -1
			PRINTFORMW 「突然就过来摸头还真是失礼啊！」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;331,泡茶（下薬）
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K78_331
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_331_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_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_K78_332
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_332_1
RETURN RESULT

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

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

@M_KOJO_MESSAGE_COM_K78_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_K78_334
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_334_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_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_K78_335
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_335_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_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以下=恥ずかしげ 10以上=幸せそう
;TIME_PROGRESS(TFLAG:膝枕した)(44以下=失敗
;==================================================
@M_KOJO_MESSAGE_COM_K78_336
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_336_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_336_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT() && !K78_EXCESSIVE_STATURE_GAP()
		;寝ちゃった
		IF TFLAG:193 > 0
			PRINTL
			PRINTFORMDL %CALLNAME:TARGET%醒了过来。
			SELECTCASE RAND:2
			CASE 1
				PRINTFORML 「啊咧？……我睡着了吗？」
				PRINTFORMW 「对不起。让你费心了」
			CASEELSE
				PRINTFORML 「嗯……咦？我居然睡着了……有点累了」
				PRINTFORMW 「对不起。脚没事吧？」
			ENDSELECT
		;寝ない
		ELSE
			SELECTCASE ABL:親密
			CASE IS <= 4
				PRINTFORMW 「嗯，总觉得有点不安心……」
			CASE 5 TO 9
				SELECTCASE RAND:2
				CASE 1
					PRINTFORMW 「果然还是有点不好意思…」
				CASEELSE
					PRINTFORMDL 窥视着枕在膝盖上的%CALLNAME:TARGET%的脸。
					PRINTFORMW 「这样一直盯着。不会害羞吗」
				ENDSELECT
			CASE IS >= 10
				SELECTCASE RAND:2
				CASE 1
					PRINTFORMW 「还真是个舒服的枕头呢…開玩笑的♪」
				CASEELSE
					PRINTFORMW 「哈…… %CALLNAME:MASTER%的味道」
				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_K78_350
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_350_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;351,帯出去
;==================================================
@M_KOJO_MESSAGE_COM_K78_351
;連れ出しにはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K78_351_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_351_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;TARGET連れ出し
	IF CFLAG:同行 == 60
	;TARGET以外連れ出し(TARGET同行中のみ
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;352,告白
;FLAG:甲斐性無(1=失敗)
;TFLAG:193 (1=成功 0=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K78_352
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_352_1
RETURN RESULT

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

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

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

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

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

ENDIF
RETURN 1
;==================================================
;355,時止め（地の文の改変程度に留めるべき
;==================================================
@M_KOJO_MESSAGE_COM_K78_355
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_355_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_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_K78_360
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_360_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_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_K78_363
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_363_1
RETURN RESULT

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

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

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

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

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

ENDIF
RETURN 1
;==================================================
;402,就寝
;TFLAG:193(0=通常 1=兒童と一緒に川の字で寝る)
;==================================================
@M_KOJO_MESSAGE_COM_K78_402
;就寝にTRAIN_MESSAGEは無い
CALL M_KOJO_MESSAGE_COM_K78_402_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;403,休憩
;CFLAG:TARGET:睡眠(1=TARGETが寝てる隣で休憩
;==================================================
@M_KOJO_MESSAGE_COM_K78_403
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_403_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;405,外出(同行時约会
;条件が厄介なので、COMF405 外出.ERBを参照のこと
;==================================================
@M_KOJO_MESSAGE_COM_K78_405
;外出にTRAIN_MESSAGEは無い
CALL M_KOJO_MESSAGE_COM_K78_405_1
RETURN RESULT

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

@M_KOJO_MESSAGE_COM_K78_410_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT()
		IF TFLAG:193 == 1
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「呼。这样就可以了吧」
			CASE 2
				PRINTFORMW 「嘿咻…嘿咻…… 太好了，终于把污垢洗掉了」
			CASEELSE
				PRINTFORMW 「很快又会变脏吧。真讨厌呐」
			ENDSELECT
		ELSEIF TFLAG:193 == 0
			PRINTFORMW 「你很努力呢。辛苦了」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;411,戦闘訓練
;TFLAG:194(3=夏の昼間 2=ヤバい天気 1=悪天候 0=屋内or通常天気
;==================================================
@M_KOJO_MESSAGE_COM_K78_411
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_411_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_411_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT()
		;助言する
		IF ABL:MASTER:戦闘能力 > ABL:戦闘能力
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「好厉害啊…我都快没法站起来了」
			CASE 2
				PRINTFORMW 「啊啊！…好疼」
			CASEELSE
				PRINTFORMW 「呼，呼，好累…」
			ENDSELECT
		;助言してもらう
		ELSE
			PRINTFORMW 「不要逞强哦」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;412,学习
;ABL:教養(ABL:MASTER:教養より大=MASTERが教えてもらう ABL:MASTER:教養より小=TARGETが教えてもらう
;==================================================
@M_KOJO_MESSAGE_COM_K78_412
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_412_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_412_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_CONSCIOUS_AND_TOLERANT()
		;勉強を教えるｏｒ教えてもらう
		IF CFLAG:行動 != 5
			;教える
			IF ABL:MASTER:教養 > ABL:教養
				SELECTCASE RAND:3
				CASE 1
					PRINTFORMW 「嗯唔，难得脑袋都疼了起来…」
				CASE 2
					PRINTFORMW 「唉？　%CALLNAME:MASTER%还真是知识渊博呀」
				CASEELSE
					PRINTFORMW 「搞不懂呐…… 果然还是种田适合我」
				ENDSELECT
			;教えてもらう
			ELSE
				PRINTFORMW 「啊，这个我好像明白。我来帮你解答吧」
			ENDIF
		;荞麦麺にいるだけ
		ELSE

		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;413,料理
;TFLAG:194(100以上=禁断のメニュー 3=甜点 2=主食 1=軽食
;==================================================
@M_KOJO_MESSAGE_COM_K78_413
;TFLAG:194が100以上の場合のみ
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_413_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_413_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
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_K78_414
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_414_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_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_K78_415
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_415_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_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_K78_416
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_416_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_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_K78_417
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_417_1
RETURN RESULT

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

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

@M_KOJO_MESSAGE_COM_K78_421_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:78:1099 != 0
		LOCAL:1 = GETCOLOR()
		SETCOLOR GETDEFCOLOR()
		CALL ASK_M(@"ついでに%CALLNAME:TARGET%的お尻の手入れや乳头についても祈願する",1,"祈願はこれだけ",1)
		IF RESULT == 0
			PRINTL
			PRINTFORMDL %CALLNAME:MASTER%はついでに%CALLNAME:TARGET%的お尻のお手入れと乳头についてお願い了。

			$PRAYER_LOOP
			VARSET LOCALS

			SELECTCASE CFLAG:78:1001
			CASE 0
				LOCALS:0 = 不変化
			CASE 1
				LOCALS:0 = 在出产前后变化する
			CASE 2
				LOCALS:0 = 无论是否妊娠，根据母乳体质发生变化する
			CASEELSE
				LOCALS:0 = ※CFLAG:78:1001の値が不正※
			ENDSELECT

			SELECTCASE CFLAG:78:1002
			CASE 0
				LOCALS:1 = スカトロ无
			CASE 1
				LOCALS:1 = 有脱粪场景
			CASEELSE
				LOCALS:1 = ※CFLAG:78:1002の値が不正※
			ENDSELECT

			PRINTL
			PRINTFORMDL 現在的乳头変化的設定：%LOCALS:0%　　　現在的屎尿屁表現的設定：%LOCALS:1%
			PRINTL
			CALL ASK_M("変更乳头変化的設定",1,"変更屎尿屁表現的設定",1,"这样就好",1)
			SELECTCASE RESULT
			CASE 0
				IF CFLAG:78:1001 >= 2
					CFLAG:78:1001 = 0
				ELSE
					CFLAG:78:1001 += 1
				ENDIF
				PRINTL
				GOTO PRAYER_LOOP
			CASE 1
				CFLAG:78:1002 = !CFLAG:78:1002
				PRINTL
				GOTO PRAYER_LOOP
			CASE 2
				PRINTFORMDL %CALLNAME:TARGET%的乳头が%LOCALS:0%ようになった気がする。
				PRINTFORMD %CALLNAME:TARGET%用
				IF CFLAG:78:1002 == 0
					PRINTFORMD お尻をきれいにして肛门性交の準備を怠らない
				ELSE
					PRINTFORMD 肛门性交の前でもお尻を直接住下にしておく
				ENDIF
				PRINTFORMDW ようになった気がする。
				PRINTL
			ENDSELECT
		ENDIF
		SETCOLOR LOCAL:1
	ENDIF
	IF K78_CONSCIOUS_AND_TOLERANT()
		SELECTCASE RAND:9
		CASE 1 TO 4
			PRINTFORMW 「许了什么愿望呢？」
		CASE 5 TO 8
			PRINTFORMW 「看起来很虔诚的样子呢」
		CASEELSE
			PRINTFORMW 「嗯唔… 你所拜的那个神，总感觉很可疑的样子…」
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

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

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

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

ENDIF
RETURN 1
;==================================================
;432,在浴室里放鬆
;表示タイミングは入浴後なので、お風呂上がりでの
;TFLAG:209(4=人里の銭湯で番台ちゃんを怒らせている 1=銭湯に入った
;TFLAG:211(4=地底の温泉で番台妖怪を怒らせている 1=温泉に入った
;==================================================
@M_KOJO_MESSAGE_COM_K78_432
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_432_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;440,等待
;==================================================
@M_KOJO_MESSAGE_COM_K78_440
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_440_1
RETURN RESULT

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

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

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

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

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

ENDIF
RETURN 1

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

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

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

ENDIF
RETURN 1

;==================================================
;601,约会身体接觸
;==================================================
@M_KOJO_MESSAGE_COM_K78_601
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_601_1
RETURN RESULT

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

ENDIF
RETURN 1

;==================================================
;602,约会接吻
;==================================================
@M_KOJO_MESSAGE_COM_K78_602
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_602_1
RETURN RESULT

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

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

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

ENDIF
RETURN 1

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

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

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

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

ENDIF
RETURN 1

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

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

ENDIF
RETURN 1

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

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

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

@M_KOJO_MESSAGE_COM_K78_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_K78_615
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_615_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;617,甘味処に誘う
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐は大成功のみ追加
;==================================================
@M_KOJO_MESSAGE_COM_K78_617
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_617_1
RETURN RESULT

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

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

@M_KOJO_MESSAGE_COM_K78_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_K78_620
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_620_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_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_K78_621
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_621_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_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_K78_660
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_660_1
RETURN RESULT

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

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

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

ENDIF
RETURN 1
;==================================================
;699,外出
;==================================================
@M_KOJO_MESSAGE_COM_K78_699
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_699_1
RETURN RESULT

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

ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;派生指令
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;60,掏耳朵
;前ターン膝枕後身体接觸指令
;TFLAG:193(1=大成功 0=成功 -1=失敗)(失敗するのはTARGET
;==================================================
@M_KOJO_MESSAGE_SCOM_K78_60
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K78_60_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K78_60_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;61,抱枕
;(TARGET睡眠時間or衰弱)陪睡中、前ターン抱きつく後就寝指令
;分岐無し
;==================================================
@M_KOJO_MESSAGE_SCOM_K78_61
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K78_61_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K78_61_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;62,亲額頭
;前ターン頭撫で後接吻
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
;ABL:欲望(5以上=物足りない
;ABL:親密(5以上=照れる
;==================================================
@M_KOJO_MESSAGE_SCOM_K78_62
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K78_62_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K78_62_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;63,更多的接吻
;前ターン接吻後接吻
;分岐条件はEVENT_MESSAGE_COM500.ERB参照
;==================================================
@M_KOJO_MESSAGE_SCOM_K78_63
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K78_63_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K78_63_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF K78_BASIC_CONDITION_IN_MATING()
		IF BASE:情緒 >= 750 && BASE:理性 < 500
			IF TALENT:恋慕

			ELSEIF ABL:親密 >= 5

			ELSE

			ENDIF
		ELSE
			IF TALENT:恋慕

			ELSEIF ABL:親密 >= 5

			ELSE

			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;80,拉手
;约会出発後目的地に着くまでの間
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_MESSAGE_SCOM_K78_80
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K78_80_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K78_80_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

repo_name: akadiya/eratw

path: ERB/口上・メッセージ関連/個人口上/【78】穣子/M_KOJO_K78_日常系コマンド.ERB

license: unknown


path: ERB/口上・メッセージ関連/個人口上/【78】穣子/M_KOJO_K78_派生コマンド.ERB


code:
;### 心形のみ別の色でPRINTするための関数 ##################
;ew6様のコードを参考にさせていただきました
;文字列中に含まれる"HPH"をホット粉色色のハートとしてPRINTし、それ以外の文字列は通常の色で普通にPRINTする
;ARGS "W"=PRINTSWで表示。"L"=PRINTSLで表示。"W"でも"L"でもなければPRINTSで表示
@K78_HPH_PRINT,対象文字列,ARGS
#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
		;ここでARGSによる分岐
		SELECTCASE ARGS
		CASE "W"
			PRINTSW @"%対象文字列%"
		CASE "L"
			PRINTSL @"%対象文字列%"
		CASEELSE
			PRINTS @"%対象文字列%"
		ENDSELECT
		BREAK
	ENDIF

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

LOOP 1

;### 行為を容認してくれるか判定用式中関数 ################
;意識のある状態で行為を怒らず受け入れていれば１を返す。そうでなければ０
;ARG=角色番号
@K78_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=角色番号
@K78_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

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

SIF ARG == 0
	ARG = TARGET

SIF !K78_CONSCIOUS_AND_TOLERANT(ARG)
	RETURNF 0

SIF TALENT:ARG:無知
	RETURNF 0

SIF K78_EXCESSIVE_STATURE_GAP(ARG)
	RETURNF 0

RETURNF 1

;### 乳頭変色判定用式中関数 ################
;乳頭が変色していれば１、変色してなければ０をかえす
;ARG=角色番号
@K78_DARKENED_NIPPLES(ARG)
#FUNCTION

SIF ARG == 0
	ARG = TARGET

IF CFLAG:ARG:1001 == 2 && TALENT:ARG:母乳体質 > 0
	RETURNF 2
ELSEIF CFLAG:ARG:1001 && ( CFLAG:ARG:妊娠経過日数 > 20 || ( CFLAG:ARG:出産経過日 > 0 && CFLAG:ARG:出産経過日 < CHILD_離乳 ) )
	RETURNF 2
ELSEIF CFLAG:ARG:1001 && ( CFLAG:ARG:妊娠経過日数 > 15 || ( CFLAG:ARG:出産経過日 > 0 && CFLAG:ARG:出産経過日 < CHILD_語彙 ) )
	RETURNF 1
ELSE
	RETURNF 0
ENDIF

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

SIF ARG == 0
	ARG = TARGET

IF K78_DARKENED_NIPPLES(ARG) == 2
	LOCALS = %TEXTR("黑乎乎的/颜色很深的/发黑的/乳腺发达的/大颗粒显眼的/乳晕肥大的/下流的大乳晕/被放射状的青筋包围")%
ELSEIF K78_DARKENED_NIPPLES(ARG) == 1
	LOCALS = %TEXTR("颜色稍深/茶色的/红豆色/怀孕了/乳轮腺/乳晕很大")%
ELSE
	LOCALS = %TEXTR("粉嫩的/粉红色的/色素单薄的/淡色的/可爱的/＿")%
ENDIF

RETURNF LOCALS

;### 腋が露出しているか判定用式中関数 ################
;現在的衣装で腋が露出していれば１を返し、露出していなければ０を返す
;袖あり無どちらか微妙な衣服の場合は露出してないあつかい
;衣服が追加されたら要変更
;ARG:0=角色番号
;ARG:1 脱衣口上用。０以外にすれば变成只穿内衣的样子とき用の腋露出判定になる（半脱は腋露出に影響ないので無視）
@K78_ARMPIT_EXPOSURE(ARG:0,ARG:1)
#FUNCTION

SIF ARG:0 == 0
	ARG:0 = TARGET

;「变成只穿内衣的样子」で脱掉衣服なので内衣姿になる際は判定をパスする
IF ARG:1 == 0
	;連衣裙系は背带裙衣、浴衣以外不可
	SIF !GROUPMATCH( EQUIP:(ARG:0):連衣裙, 0, CLOTHES_ID("連衣裙","背带裙衣"), CLOTHES_ID("連衣裙","浴衣") )
		RETURNF 0

	;上身衣服１は無袖外套と博麗的巫女服以外不可
	SIF !GROUPMATCH( EQUIP:(ARG:0):上身衣服１, 0, CLOTHES_ID("上身衣服１","無袖外套"), CLOTHES_ID("上身衣服１","博麗的巫女服") )
		RETURNF 0

	;上身衣服２は无袖女式衬衫、守矢的巫女服、抹胸、吊帯背心、吊帯衫以外不可
	SIF !GROUPMATCH( EQUIP:(ARG:0):上身衣服２, 0, CLOTHES_ID("上身衣服２","无袖女式衬衫"), CLOTHES_ID("上身衣服２","守矢的巫女服"), CLOTHES_ID("上身衣服２","抹胸"), CLOTHES_ID("上身衣服２","吊帯背心"), CLOTHES_ID("上身衣服２","吊帯衫") )
		RETURNF 0

	;和服系は全部不可
	SIF EQUIP:(ARG:0):和服
		RETURNF 0

	;外搭は全部不可
	SIF EQUIP:(ARG:0):外搭
		RETURNF 0
ENDIF

;以下は「变成只穿内衣的样子」で脱がないので必ず判定する

;緊身内衣系は緊身内衣、贴身长筒袜（赤と黒）、保暖内衣、鎖帷子のどれかだと不可
SIF GROUPMATCH( EQUIP:(ARG:0):緊身内衣, CLOTHES_ID("緊身内衣","緊身内衣"), CLOTHES_ID("緊身内衣","贴身长筒袜（赤）"), CLOTHES_ID("緊身内衣","贴身长筒袜（黒）"), CLOTHES_ID("緊身内衣","保暖内衣"), CLOTHES_ID("緊身内衣","鎖帷子") )
	RETURNF 0

;連体内衣系は連体内衣以外不可
SIF !GROUPMATCH( EQUIP:(ARG:0):連体内衣, 0, CLOTHES_ID("連体内衣","連体内衣") )
	RETURNF 0

;上半身内衣２は有色衬衫のみ不可
SIF EQUIP:(ARG:0):上半身内衣２ == CLOTHES_ID("上半身内衣２","有色衬衫")
	RETURNF 0

RETURNF 1

;### 腋汗判定用式中関数 ################
;ARG=角色番号
@K78_ARMPIT_SWEAT(ARG)
#FUNCTION

SIF ARG == 0
	ARG = TARGET

IF TCVAR:ARG:媚薬 > 0 || TCVAR:ARG:発情
	RETURNF 2
ELSEIF CFLAG:ARG:風呂 >= 2500 || ( DAY:2 == 2 && CFLAG:ARG:風呂 >= 1000 )
	RETURNF 1
ELSE
	RETURNF 0
ENDIF

;### 腋汗ジミ判定用式中関数 ################
;現在的衣装で腋汗ジミが見えるなら１を返し、見えないなら０を返す
;衣服が追加されたら要変更
;ARG=角色番号
@K78_SWEATY_UNDERARMS(ARG)
#FUNCTION

SIF ARG == 0
	ARG = TARGET

;腋汗がなければダメ
SIF !K78_ARMPIT_SWEAT(ARG)
	RETURNF 0

;腋が露出していたらダメ
SIF K78_ARMPIT_EXPOSURE(ARG)
	RETURNF 0

;外搭は全部ダメ
SIF EQUIP:ARG:外搭
	RETURNF 0

;連体内衣系は膠衣と機車夾克だとダメ
SIF GROUPMATCH( EQUIP:ARG:連体内衣, CLOTHES_ID("連体内衣","膠衣"), CLOTHES_ID("連体内衣","機車夾克") )
	RETURNF 0

;和服系は和服、千早、浴衣、道着、白装束だとダメ
SIF GROUPMATCH( EQUIP:ARG:和服, CLOTHES_ID("和服","和服"), CLOTHES_ID("和服","千早"), CLOTHES_ID("和服","浴衣"), CLOTHES_ID("和服","道着"), CLOTHES_ID("和服","白装束") )
	RETURNF 0

;上身衣服１は外套、西装上衣、水干、狩衣だとダメ
SIF GROUPMATCH( EQUIP:ARG:上身衣服１, CLOTHES_ID("上身衣服１","外套"), CLOTHES_ID("上身衣服１","西装上衣"), CLOTHES_ID("上身衣服１","水干"), CLOTHES_ID("上身衣服１","狩衣") )
	RETURNF 0

;上身衣服２は運動夾克衫、道着、小紋、長着、白小袖だとダメ
SIF GROUPMATCH( EQUIP:ARG:上身衣服２, CLOTHES_ID("上身衣服２","運動夾克衫"), CLOTHES_ID("上身衣服２","道着"), CLOTHES_ID("上身衣服２","小紋"), CLOTHES_ID("上身衣服２","長着"), CLOTHES_ID("上身衣服２","白小袖") )
	RETURNF 0

;緊身内衣系は鎖帷子のみダメ
SIF EQUIP:ARG:緊身内衣 == CLOTHES_ID("緊身内衣","鎖帷子")
	RETURNF 0

;連衣裙系は法衣、道士服、罩衫、布偶装だとダメ
SIF GROUPMATCH( EQUIP:ARG:連衣裙, CLOTHES_ID("連衣裙","法衣"), CLOTHES_ID("連衣裙","道士服"), CLOTHES_ID("連衣裙","罩衫"), CLOTHES_ID("連衣裙","布偶装") )
	RETURNF 0

RETURNF 1

;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;以下、体毛関係の関数

;### 体毛変更用メイン関数 ################
;しらふかつ恋慕or愛欲のある状態で浴場で会話すると呼び出される
@K78_HAIR_TREATMENT
#DIM 陰毛or腋毛 ;1=陰毛について 2=腋毛について
#DIM CFL番号変換 ;CFLAG番号用 0=陰毛 4=腋毛

$HAIR_TREATMENT_LOOP

CALL ASK_M("陰毛についてお願いする", 1, "腋毛についてお願いする", 1, "普通に会話する", 1)
IF RESULT < 2
	陰毛or腋毛 = RESULT + 1
	CFL番号変換 = (陰毛or腋毛 - 1) * 4
	;毛の状態を表示
	CALL K78_HAIR_STATUS,陰毛or腋毛
	;どの毛に変えてもらうか選択肢
	IF 陰毛or腋毛 == 1
		CALL ASK_M("ツルツルにする", CFLAG:1004 != -2, "剃りあとを残す", CFLAG:1004 != -1, "ふつうに整える", CFLAG:1004 != 0, "ふさふさにする", CFLAG:1004 != 1, "ボーボーにする", CFLAG:1004 != 2, "果然還是放棄", 1)
		SIF RESULT == 5
			GOTO HAIR_TREATMENT_LOOP
		;どの陰毛に変更するかが決まる
		CFLAG:78:1004 = RESULT - 2
	ELSE
		CALL ASK_M("ツルツルにする", CFLAG:1008 != 0, "剃りあとを残す", CFLAG:1008 != 1, "ふさふさにする", CFLAG:1008 != 2, "ボーボーにする", CFLAG:1008 != 3, "果然還是放棄", 1)
		SIF RESULT == 4
			GOTO HAIR_TREATMENT_LOOP
		;どの腋毛に変更するかが決まる
		CFLAG:78:1008 = RESULT
	ENDIF
	;毛を伸ばす場合
	IF CFLAG:(1003 + CFL番号変換) < CFLAG:(1004 + CFL番号変換)
		;情景描写
		CALL K78_HAIR_TREATMENT_DESCRIPTIVE_TEXTS,陰毛or腋毛,1
		;毛の生長の計算のために現時点の毛の状態と現時点の総日数を保存
		CFLAG:78:(1005 + CFL番号変換) = CFLAG:(1003 + CFL番号変換)
		CFLAG:78:(1006 + CFL番号変換) = DAY:0
	;伸ばすのをやめて現状維持に切り替える場合
	ELSEIF CFLAG:(1003 + CFL番号変換) == CFLAG:(1004 + CFL番号変換)
		;情景描写
		CALL K78_HAIR_TREATMENT_DESCRIPTIVE_TEXTS,陰毛or腋毛,-1
	;毛を剃る場合
	ELSE
		;主人が剃るか調教対象に剃らせるか選択
		CALL ASK_YN(@"%CALLNAME:MASTER%が剃る",@"%CALLNAME:TARGET%に剃らせる")
		;選択に応じて情景描写
		CALL K78_HAIR_TREATMENT_DESCRIPTIVE_TEXTS,陰毛or腋毛,(RESULT + 2)
		;剃るときは伸ばす場合と違い変更がすぐに反映される
		CFLAG:78:(1003 + CFL番号変換) = CFLAG:(1004 + CFL番号変換)
	ENDIF
	RETURN 1
ENDIF

;「普通に会話する」を選んだばあい返り値を０にして通常の会話口上に移行する
RETURN 0

;### 体毛の状態表示用関数 ##################
;ARG 1=陰毛 2=腋毛
@K78_HAIR_STATUS,ARG

VARSET LOCALS
VARSET LOCAL

PRINTL
IF ARG == 1
	;陰毛の状態の名称を設定（現在的分と目標の分のふたつ）
	FOR LOCAL,0,2
		SELECTCASE CFLAG:TARGET:(1003 + LOCAL)
		CASE -2
			LOCALS:LOCAL = 光溜溜的
		CASE -1
			LOCALS:LOCAL = 剃的整整齐齐
		CASE 0
			LOCALS:LOCAL = 普通（默认）
		CASE 1
			LOCALS:LOCAL = 自然的
		CASE 2
			LOCALS:LOCAL = 茂密的
		CASEELSE
			LOCALS:LOCAL = ※CFLAG:{TARGET}:{1003 + LOCAL}の値が不正※
		ENDSELECT
	NEXT
	;現在的陰毛の状態を表示する。いま伸ばしてもらっているところなら、目標の陰毛と生えきるまでの残り日数も表示する。
	PRINTFORMDL 現在的陰毛：%LOCALS:0%　　\@ CFLAG:1003 == CFLAG:1004 ? 你の指定：現在的陰毛を維持する # 你の指定：%LOCALS:1%　　生えきるまであと{(CFLAG:1004 - CFLAG:1005) * 2 - (DAY:0 - CFLAG:1006)}日 \@
ELSEIF ARG == 2
	;腋毛の状態の名称を設定（現在的分と目標の分のふたつ）
	FOR LOCAL,0,2
		SELECTCASE CFLAG:TARGET:(1007 + LOCAL)
		CASE 0
			LOCALS:LOCAL = 光溜溜的（默认）
		CASE 1
			LOCALS:LOCAL = 剃的整整齐齐
		CASE 2
			LOCALS:LOCAL = 自然的
		CASE 3
			LOCALS:LOCAL = 茂密的
		CASEELSE
			LOCALS:LOCAL = ※CFLAG:{TARGET}:{1007 + LOCAL}の値が不正※
		ENDSELECT
	NEXT
	;現在的腋毛の状態を表示する。いま伸ばしてもらっているところなら、目標の腋毛と生えきるまでの残り日数も表示する。
	PRINTFORMDL 現在的腋毛：%LOCALS:0%　　\@ CFLAG:1007 == CFLAG:1008 ? 你の指定：現在的腋毛を維持する # 你の指定：%LOCALS:1%　　生えきるまであと{(CFLAG:1008 - CFLAG:1009) * 2 - (DAY:0 - CFLAG:1010)}日 \@
ENDIF
PRINTL

;### 体毛変更の情景描写用関数 ##################
;ARG:0 1=陰毛 2=腋毛
;ARG:1 -1=伸ばすのをやめて現状維持に切り替える 1=伸ばす 2=主人が剃る 3=調教対象が自己剃る
@K78_HAIR_TREATMENT_DESCRIPTIVE_TEXTS,ARG:0,ARG:1

DRAWLINE

SIF FLAG:口上色
	TRYCALLFORM M_KOJO_COLOR_K{TARGET}

;陰毛関係
IF ARG:0 == 1
	SELECTCASE ARG:1
	;現状維持に切り替える場合
	CASE -1
		PRINTFORMDW 向%CALLNAME:TARGET%拜托了保持现状阴毛的样子。
	;伸ばす場合
	CASE 1
		PRINTFORMD 阴毛
		;指定した陰毛による分岐
		SELECTCASE CFLAG:1004
		CASE -1
			PRINTFORMD 弄成光溜溜的样子
		CASE 0
			PRINTFORMD 弄成普通的样子
		CASE 1
			PRINTFORMD 不要弄得太浓密
		CASE 2
			PRINTFORMD 自然生长像丛林的样子
		ENDSELECT
		PRINTFORMDL 向%CALLNAME:TARGET%拜托了。
		PRINTW
		;台詞表示（伸ばすお願い）
		TRYCCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT,1,1
			PRINTL
		CATCH
		ENDCATCH
		PRINTFORMDW どうやら生えきるまで{(CFLAG:1004 - CFLAG:1003) * 2}日ほどかかるようだ。
	;主人が剃る場合
	CASE 2
		PRINTFORMDL 向%CALLNAME:TARGET%拜托了能不能让其剃阴毛。
		PRINTW
		;台詞表示（剃らせてもらうお願い）
		TRYCCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT,1,2,1
			PRINTL
		CATCH
		ENDCATCH
		PRINTFORMD %CALLNAME:MASTER%
		SELECTCASE RAND:3
		CASE 1
			PRINTFORMD 钻入了%CALLNAME:TARGET%的股间。
		CASE 2
			PRINTFORMD 对着仰面躺着的%CALLNAME:TARGET%的股间。
		CASEELSE
			PRINTFORMD 对着四肢趴着的%CALLNAME:TARGET%的跨间。
		ENDSELECT
		;剃毛前の陰毛による分岐
		SELECTCASE CFLAG:1003
		CASE -1
			PRINTFORMD 将一点点地长着的阴毛
		CASE 0
			PRINTFORMD 将整洁的阴毛
		CASE 1
			PRINTFORMD 将不经修理浓密茂盛的阴毛
		CASE 2
			PRINTFORMD 将肛门周围长得密密麻麻的刚毛
		ENDSELECT
		;剃毛後の陰毛による分岐
		SELECTCASE CFLAG:1004
		CASE -2
			PRINTFORMDL 刮完，像儿童一様股间变得光溜溜的。
		CASE -1
			PRINTFORMDL 为了留下自己喜欢的剃须痕，精心地剃掉了。
		CASE 0
			PRINTFORMDL 给整理得干干净净了。
		CASE 1
			PRINTFORMDL 虽然已经修理过了，但仍然有浓厚阴毛覆盖着。
		ENDSELECT
		PRINTW
		;台詞表示（MASTERが剃ったあと）
		TRYCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT,1,2,2
	;調教対象が自己剃る場合
	CASE 3
		PRINTFORMDL 向%CALLNAME:TARGET%拜托了让我看刮阴毛。
		PRINTW
		;台詞表示（剃るのを見せてもらうお願い）
		TRYCCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT,1,3,1
			PRINTL
		CATCH
		ENDCATCH
		PRINTFORMD 跨过放在浴室里的手镜蹲了下来，
		;剃毛前の陰毛による分岐
		SELECTCASE CFLAG:1003
		CASE -1
			PRINTFORMD 把稍微露出一点儿的硬毛刮了上去
		CASE 0
			PRINTFORMD 刮掉了阴毛
		CASE 1
			PRINTFORMD 把覆盖阴部太多的毛刮掉了
		CASE 2
			PRINTFORMD 修剪了像密林一样茂密的阴毛
		ENDSELECT
		PRINTFORMDL 因为%CALLNAME:TARGET%的样子%CALLNAME:MASTER%更加兴奋了。
		PRINTW
		;台詞表示（TARGETが剃ったあと）
		TRYCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT,1,3,2
	ENDSELECT
;腋毛関係
ELSEIF ARG:0 == 2
	SELECTCASE ARG:1
	;現状維持に切り替える場合
	CASE -1
		PRINTFORMDW 向%CALLNAME:TARGET%拜托了维持腋毛现在的样子。
	;伸ばす場合
	CASE 1
		PRINTFORMD 对着镜子仔细观察了剃掉了腋毛
		;指定した腋毛による分岐
		SELECTCASE CFLAG:1008
		CASE 1
			PRINTFORMD 剃完后染上淡淡的颜色
		CASE 2
			PRINTFORMD 让它长出来
		CASE 3
			PRINTFORMD 自由生长
		ENDSELECT
		PRINTFORMDL 向%CALLNAME:TARGET%拜托了。
		PRINTW
		;台詞表示（伸ばすお願い）
		TRYCCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT,2,1
			PRINTL
		CATCH
		ENDCATCH
		PRINTFORMDW どうやら生えきるまで{(CFLAG:1008 - CFLAG:1007) * 2}日ほどかかるようだ。
	;主人が剃る場合
	CASE 2
		PRINTFORMDL 向%CALLNAME:TARGET%请求为其腋毛。
		PRINTW
		;台詞表示（剃らせてもらうお願い）
		TRYCCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT,2,2,1
			PRINTL
		CATCH
		ENDCATCH
		PRINTFORMD %CALLNAME:MASTER%将%CALLNAME:TARGET%的手臂举了起来
		;剃毛前の腋毛による分岐
		SELECTCASE CFLAG:1007
		CASE 1
			PRINTFORMD 将粗乱的腋毛
		CASE 2
			PRINTFORMD 对着镜子仔细观察了剃掉了腋毛
		CASE 3
			PRINTFORMD 把不检点地长长的腋毛
		ENDSELECT
		;剃毛後の腋毛による分岐
		SELECTCASE CFLAG:1008
		CASE 0
			PRINTFORMDL 完全剃掉了
		CASE 1
			PRINTFORMDL 小心地剃了，留下了适当的痕迹。
		CASE 2
			PRINTFORMDL 随意剃了一下。可是毛还残留着。
		ENDSELECT
		PRINTW
		;台詞表示（MASTERが剃ったあと）
		TRYCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT,2,2,2
	;調教対象が自己剃る場合
	CASE 3
		PRINTFORMDL 向%CALLNAME:TARGET%拜托想看刮腋毛。
		PRINTW
		;台詞表示（剃るのを見せてもらうお願い）
		TRYCCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT,2,3,1
			PRINTL
		CATCH
		ENDCATCH
		PRINTFORMD %CALLNAME:MASTER%看着%CALLNAME:TARGET%举起一只手
		;剃毛前の腋毛による分岐
		SELECTCASE CFLAG:1007
		CASE 1
			PRINTFORMD 对着镜子仔细观察了剃掉了腋下汗毛
		CASE 2
			PRINTFORMD 对着镜子仔细观察了剃掉了腋毛
		CASE 3
			PRINTFORMD 对着镜子仔细观察了剃掉了腋下刚毛
		ENDSELECT
		PRINTFORMDL 的样子。
		PRINTW
		;台詞表示（TARGETが剃ったあと）
		TRYCALLFORM DIALOGUE_K{TARGET}_HAIR_TREATMENT,2,3,2
	ENDSELECT
ENDIF

;### 体毛変更の台詞用関数 ##################
;ARG:0 1=陰毛 2=腋毛
;ARG:1 1=伸ばす 2=主人が剃る 3=調教対象が自己剃る
;ARG:2 表示タイミング 1=剃毛をお願いしたとき 2=剃ったとき
@DIALOGUE_K78_HAIR_TREATMENT,ARG:0,ARG:1,ARG:2

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;--------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;陰毛の変更
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:0 == 1
		;-------------------------------------------------
		;伸ばすお願い
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:2 = 1
		;-------------------------------------------------
		IF LOCAL:2 && ARG:1 == 1
			SELECTCASE CFLAG:1004
			CASE -1
				PRINTFORML 「要求还真是详细呢……」
			CASE 1
				PRINTFORML 「浓一点比较好吗？」
			CASE 2
				IF FIRSTTIME("陰毛をボーボーにする",0,78)
					PRINTFORMDW %CALLNAME:TARGET%虽然有点害羞，但在%CALLNAME:MASTER%的纠缠不休的请求总算是答应了。
					PRINTFORMW 「那么随便自由生长就可以了吗…？嘛，我可是个丰收之神，也不是不能做到……」
					PRINTFORMW 「但，但不是说本来就会长的很浓密哦，是用了我的力量才变成这样的」
					RETURN 1
				ENDIF
				PRINTFORML 「把我都弄晕了， 你还真是喜欢这种…」
			ENDSELECT
			PRINTFORMW 「知道了。但是要花时间，等着吧」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERが剃る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:2 = 1
		;-------------------------------------------------
		IF LOCAL:2 && ARG:1 == 2
			;-------------------------------------------------
			;剃らせてもらうお願い
			;記入チェック（=0, 非表示、1, 表示）
			LOCAL:3 = 1
			;-------------------------------------------------
			IF LOCAL:3 && ARG:2 == 1
				IF FIRSTTIME("主人に剃毛される（陰毛）",0,78)
					PRINTFORMW 「那边毛的修建？是没什么关系……。哎？你要现在開始刮？」
					PRINTFORMDW %CALLNAME:TARGET%虽然觉得很羞耻还是为%CALLNAME:MASTER%拿来了刮刀
					RETURN 1
				ENDIF
				PRINTFORML 「不用你来了啦，我自己就可以了啊……」
				PRINTFORMDL %CALLNAME:MASTER%没有听%CALLNAME:TARGET%说的话，取出了刮毛刀。
				RETURN 1
			ENDIF
			;-------------------------------------------------
			;MASTERが剃ったあと
			;記入チェック（=0, 非表示、1, 表示）
			LOCAL:3 = 1
			;-------------------------------------------------
			IF LOCAL:3 && ARG:2 == 2
				SELECTCASE CFLAG:1004
				CASE -2
					PRINTFORMW 「虽然很舒畅，但是总觉得有点不安心」
				CASE -1
					PRINTFORMW 「这种齐刷刷的感触」
				CASE 0
					PRINTFORMW 「嗯，不错。剃得很好啊」
				CASE 1
					PRINTFORMW 「还是太浓密了吧」
				ENDSELECT
				RETURN 1
			ENDIF
		ENDIF
		;-------------------------------------------------
		;TARGETが剃る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:2 = 1
		;-------------------------------------------------
		IF LOCAL:2 && ARG:1 == 3
			;-------------------------------------------------
			;剃るのを見せてもらうお願い
			;記入チェック（=0, 非表示、1, 表示）
			LOCAL:3 = 1
			;-------------------------------------------------
			IF LOCAL:3 && ARG:2 == 1
				IF FIRSTTIME("自己剃毛する（陰毛）",0,78)
					PRINTFORMW 「想看那边的剃的毛吗？不要。不会感到羞耻的吗」
					PRINTFORMDW %CALLNAME:MASTER%拼命说服了看起来十分嫌弃的%CALLNAME:TARGET%。
					PRINTFORMW 「哇，知道了啦。……哈啊，这到底哪里有意思了啊」
					RETURN 1
				ENDIF
				PRINTFORML 「还再想看吗？好吧。赶紧去做吧」
				RETURN 1
			ENDIF
			;-------------------------------------------------
			;TARGETが剃ったあと
			;記入チェック（=0, 非表示、1, 表示）
			LOCAL:3 = 1
			;-------------------------------------------------
			IF LOCAL:3 && ARG:2 == 2
				PRINTFORML 「好的，刮掉了。这样就可以了吗？」
				PRINTFORMW 「真是的。对这种奇怪的事这么讲究」
				RETURN 1
			ENDIF
		ENDIF
	ENDIF
	;-------------------------------------------------
	;腋毛の変更
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:0 == 2
		;-------------------------------------------------
		;伸ばすお願い
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:2 = 1
		;-------------------------------------------------
		IF LOCAL:2 && ARG:1 == 1
			IF FIRSTTIME("腋毛を生やす",0,78)
				PRINTFORMW 「腋毛？喜欢那种东西吗？」
				PRINTFORMW 「唔，被\@ FLAG:扮演 == 77 ?其他孩子#姐姐 \@看见的话很羞耻…」
				PRINTFORMDW %CALLNAME:TARGET%在%CALLNAME:MASTER%的一再请求下终于同意了。
				PRINTFORMW 「就这么想要它长出来吗？ 既然%CALLNAME:MASTER%这样说了的话…」
				RETURN 1
			ENDIF
			SELECTCASE CFLAG:1008
			CASE 1
				PRINTFORML 「我要做点什么好吗?其他还有什么特别的讲究呢……」
			CASE 2
				PRINTFORML 「果然长出来还是有点害羞的…」
			CASE 3
				PRINTFORML 「就这样茫然自得还真是奇怪啊……」
			ENDSELECT
			PRINTFORMW 「好吧。我想会稍微花点时间，等一下吧」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERが剃る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:2 = 1
		;-------------------------------------------------
		IF LOCAL:2 && ARG:1 == 2
			;-------------------------------------------------
			;剃らせてもらうお願い
			;記入チェック（=0, 非表示、1, 表示）
			LOCAL:3 = 1
			;-------------------------------------------------
			IF LOCAL:3 && ARG:2 == 1
				IF FIRSTTIME("主人に剃毛される（腋毛）",0,78)
					PRINTFORMW 「想刮腋毛？……真是个怪人」
					PRINTFORMDW %CALLNAME:TARGET%虽然有点被吓到了还是取来了刮刀。
					PRINTFORMW 「你的脸太近了……稍微有点不好意思…」
					RETURN 1
				ENDIF
				PRINTFORML 「知道了知道了，又要刮了是吧」
				PRINTFORMDL %CALLNAME:TARGET%露出了无奈的表情，露出了腋下。
				RETURN 1
			ENDIF
			;-------------------------------------------------
			;MASTERが剃ったあと
			;記入チェック（=0, 非表示、1, 表示）
			LOCAL:3 = 1
			;-------------------------------------------------
			IF LOCAL:3 && ARG:2 == 2
				SELECTCASE CFLAG:1008
				CASE 0
					PRINTFORMW 「嗯，很舒畅」
				CASE 1
					PRINTFORMW 「没刮完……会让别人觉得你很散漫」
				CASE 2
					PRINTFORMW 「可以再帮我刮一点吗」
				ENDSELECT
				RETURN 1
			ENDIF
		ENDIF
		;-------------------------------------------------
		;TARGETが剃る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:2 = 1
		;-------------------------------------------------
		IF LOCAL:2 && ARG:1 == 3
			;-------------------------------------------------
			;剃るのを見せてもらうお願い
			;記入チェック（=0, 非表示、1, 表示）
			LOCAL:3 = 1
			;-------------------------------------------------
			IF LOCAL:3 && ARG:2 == 1
				IF FIRSTTIME("自己剃毛する（腋毛）",0,78)
					PRINTFORMW 「又说些奇怪的话……」
					PRINTFORMW 「……好吧，又不是什么值得欣赏的东西」
					RETURN 1
				ENDIF
				PRINTFORML 「看是可以看但不要妨碍我哦」
				RETURN 1
			ENDIF
			;-------------------------------------------------
			;TARGETが剃ったあと
			;記入チェック（=0, 非表示、1, 表示）
			LOCAL:3 = 1
			;-------------------------------------------------
			IF LOCAL:3 && ARG:2 == 2
				PRINTFORML 「好了、弄完了」
				PRINTFORMW 「%CALLNAME:MASTER%一直在看着的样子，还真是不会厌倦呢」
				RETURN 1
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1

;### 体毛生長処理用関数 ##################
;遭遇、起床、すれ違いの口上で呼び出される
;ARG=角色番号（省略不可）
@K78_HAIR_GROWTH,ARG

FOR LOCAL,0,8,4
	;現在的体毛が目標の体毛に満たない場合、経過日数に応じた増加後の値を計算し現在的体毛に代入する
	IF CFLAG:ARG:(1003 + LOCAL) < CFLAG:ARG:(1004 + LOCAL)
		CFLAG:ARG:(1003 + LOCAL) = CFLAG:ARG:(1005 + LOCAL) + (DAY:0 - CFLAG:ARG:(1006 + LOCAL)) / 2
		;目標の体毛を超えることはない
		SIF CFLAG:ARG:(1003 + LOCAL) > CFLAG:ARG:(1004 + LOCAL)
			CFLAG:ARG:(1003 + LOCAL) = CFLAG:ARG:(1004 + LOCAL)
	ENDIF
NEXT

;### 陰毛描写用式中関数 ##################
;ARG=角色番号
@K78_GENITAL_HAIR_MODIFIER(ARG)
#FUNCTIONS

VARSET LOCALS

SIF ARG == 0
	ARG = TARGET

SELECTCASE CFLAG:ARG:1003
CASE -2
	SELECTCASE RAND:3
	CASE 1
		LOCALS = 无毛的
	CASE 2
		LOCALS = 像小孩子一般光溜溜的
	CASEELSE
		LOCALS = 没长毛
	ENDSELECT
CASE -1
	SELECTCASE RAND:3
	CASE 1
		LOCALS = 长着整整齐齐的毛
	CASE 2
		LOCALS = 长了毛绒绒的卷毛
	CASEELSE
		LOCALS = 有剃过残留下来的毛
	ENDSELECT
CASE 0
	LOCALS =
CASE 1
	SELECTCASE RAND:3
	CASE 1
		LOCALS = 浓密的毛
	CASE 2
		LOCALS = 大量的毛
	CASEELSE
		LOCALS = 茂密的毛
	ENDSELECT
CASE 2
	SELECTCASE RAND:3
	CASE 1
		LOCALS = 密林之下的
	CASE 2
		LOCALS = 刚毛藏在里面几乎看不见
	CASEELSE
		LOCALS = 被毛绒绒的卷毛覆盖了
	ENDSELECT
CASEELSE
	LOCALS = ※CFLAG:{ARG}:1003の値が不正※
ENDSELECT

RETURNF LOCALS

;### 腋毛描写用式中関数 ##################
;ARG=角色番号
@K78_ARMPIT_HAIR_MODIFIER(ARG)
#FUNCTIONS

VARSET LOCALS

SIF ARG == 0
	ARG = TARGET

SELECTCASE CFLAG:ARG:1007
CASE 0
	SELECTCASE RAND:3
	CASE 1
		LOCALS = 光溜溜的
	CASE 2
		LOCALS = 光滑的
	CASEELSE
		LOCALS = 光滑的
	ENDSELECT
CASE 1
	SELECTCASE RAND:3
	CASE 1
		LOCALS = 留下淡淡的痕迹
	CASE 2
		LOCALS = 修整过
	CASEELSE
		LOCALS = 剃完有残留
	ENDSELECT
CASE 2
	SELECTCASE RAND:3
	CASE 1
		LOCALS = 长毛了
	CASE 2
		LOCALS = 有蓬松的毛
	CASEELSE
		LOCALS = 没有处理过毛
	ENDSELECT
CASE 3
	SELECTCASE RAND:4
	CASE 1
		LOCALS = 自由生长的毛
	CASE 2
		LOCALS = 浓密的毛
	CASE 3
		LOCALS = 被丰满的毛覆盖了
	CASEELSE
		LOCALS = 毛茸茸的
	ENDSELECT
CASEELSE
	LOCALS = ※CFLAG:{ARG}:1007の値が不正※
ENDSELECT

RETURNF LOCALS

path: ERB/口上・メッセージ関連/個人口上/【78】穣子/M_KOJO_K78_独自関数.ERB