code:
;※※※※※※※※※※※※※※※※※※※※※※※※※
;性騷擾系指令
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;310,摸屁股
;TFLAG:193(1=不快(TALENT:膽怯なら涙目) 2&&3=恥ずかしがる(TALENT:討厭男人兼MASTERが男なら、身をすくめる) 4=されるがまま)
;CFLAG:诶嘿嘿==2&&TCVAR:20(胖次無し顔面騎乗(70=強制舐陰 71=口交強制 72=肛門奉仕) 35=裙子内見せつけ 52=素股)
;CFLAG:诶嘿嘿==2&&TEQUIP:六九式(胖次ありTCVAR:20(70～72)はこちら)
;PREVCOM(305=膝枕
;TFLAG:400(1=约会先or地底の路人が反応する)
;==================================================
@M_KOJO_SUCCESS_COM_K139_310
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K139_310
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K139_310_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K139_310_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSEIF CFLAG:睡眠
	ELSE
		IF FIRSTTIME(SELECTCOM)
			IF TALENT:139:心情 == -1 || CFLAG:139:ブチギレ == 1
				IF TALENT:恋慕 || TALENT:恋人
					PRINTFORML 「%CALLNAME:MASTER%阁下、今天就请不要做了」
					PRINTFORML 「就算是典、也会有不想被触碰的时候呢」
					PRINTW
					CALL ASK_YN("继续触碰","停下")
					IF !RESULT
						PRINTFORML 「哈啊…不听人说话呢、这位还真是…」
					ELSE
						PRINTFORML 「了不起呢。自制力很不错」
					ENDIF
					PRINTW
				ELSE
					PRINTFORML 「哦呀哦呀、这只手该怎么办好呢？」
					PRINTFORML 典抓住了正在抚摸自己屁股的%CALLNAME:MASTER%的手、狠狠挠了几下
					PRINTW
					PRINTFORML 「真是的、调皮可不行哦？」
					PRINTFORML 「烦躁的时候被这样对待的话、心情可好不起来呢」
					PRINTFORML 「如果对方不是我、估计你的下场会惨得多哦」
					PRINTW
				ENDIF
			ELSE
				IF TALENT:恋慕 || TALENT:恋人
					PRINTFORML 「真是、%CALLNAME:MASTER%阁下」
					PRINTFORML 「典的屁股就那么有魅力吗？　真是拿你没办法呢」
					PRINTFORML 典虽然嘴上抱怨着、但却任你抚摸着
					PRINTW
				ELSE
					PRINTFORML 「哦呀哦呀、这只手该怎么办好呢？」
					PRINTFORML 典轻柔地抓住了正在抚摸自己屁股的%CALLNAME:MASTER%的手
					PRINTW
					PRINTFORML 「真是的、调皮可不行哦？」
					PRINTFORML 「虽然被摸也不会少块肉…但还是不怎么高兴就是了」
					PRINTW
					IF ABL:MASTER:指 > 2
						PRINTFORML 「嘛、至于舒不舒服那就另当别论了…%UNICODE(0x2665) *1%」
						PRINTW
					ENDIF
				ENDIF
			ENDIF
		;2回目以降
		ELSE
			IF TALENT:139:心情 == -1 || CFLAG:139:ブチギレ == 1
				SELECTCASE TCVAR:351
				CASE IS > 20
					PRINTFORML 「哈啊…真是、请别擅自这样…」
				CASE IS > 10
					PRINTFORML 「还没吃到苦头吗」
				CASE IS > 5
					PRINTFORML 「已经警告过“请不要这样”了吧」
				CASE IS > 2
					PRINTFORML 「请不要这样、我应该如此谏言过」
				CASEELSE
					PRINTFORML 「%CALLNAME:MASTER%阁下、请不要这样」
				ENDSELECT
				PRINTW
			ELSE
				IF TALENT:恋慕 || TALENT:恋人
					;誰かいる
					IF K139_BE_SEEN()
						IF K139_FIND_AROUND() == 140
							;龍が先に恋慕、または恋人
							IF TALENT:140:恋人 || CFLAG:1000 == 1
								PRINTFORML 「%CALLNAME:MASTER%阁下、不要…」
								PRINTFORML 「会被饭纲丸大人发现的…啊啊…」
							ELSE
								PRINTFORML 「会被饭纲丸大人发现的…这么激烈的话、啊啊%UNICODE(0x2665) *1%」
							ENDIF
						ELSEIF K139_FIND_AROUND() == 29
							PRINTFORML 「%CALLNAME:MASTER%阁下、不可以」
							IF TALENT:29:恋人
								PRINTFORML 「会被射命丸阁下发现的哦…啊嗯%UNICODE(0x2665) *1%」
							ELSE
								PRINTFORML 「会被嘴不严实的鸦天狗给记录下来哦…%UNICODE(0x2665) *1%」
							ENDIF
						ELSEIF K139_FIND_AROUND() == 42
							PRINTFORML 「%CALLNAME:MASTER%阁下、不可以」
							IF TALENT:42:恋人
								PRINTFORML 「会被姫海棠阁下发现的哦…啊嗯%UNICODE(0x2665) *1%」
							ELSE
								PRINTFORML 「抚摸屁股的样子可能会从后面被念写下来哦…%UNICODE(0x2665) *1%」
							ENDIF
						ELSEIF K139_FIND_AROUND() == 65
							PRINTFORML 「%CALLNAME:MASTER%阁下、不可以」
							IF TALENT:65:恋人
								PRINTFORML 「会被犬走阁下发现的哦…啊嗯%UNICODE(0x2665) *1%」
							ELSE
								PRINTFORML 「会被一本正经的犬走阁下察觉到的、会被说什么呢…%UNICODE(0x2665) *1%」
							ENDIF
						;主要キャラがいない
						ELSE
							PRINTFORML 「真是、会被周围的人发现哦…♪」
							PRINTFORML 「是想宣示我是你的女人吗♪」
						ENDIF
					ELSE
						;入浴中
						IF BATHCHECK(CFLAG:MASTER:現在位置)
							;他にも入浴者がいる（恋慕または親密高めの不知羞恥持ち）
							IF GET_TARGETNUM() >= 2
								IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
									;龍も入浴
									;大人の時と比べバレなきゃいいの精神
									IF K139_FIND_AROUND() == 140
										IF TALENT:140:恋人
											PRINTFORML 「！」
											PRINTFORML 「%CALLNAME:MASTER%阁下、现在可不行啊」
											PRINTFORML 在浴池里揉了揉典的屁股、典小声责备了你一句
											PRINTL
											CALL ASK_YN("无视","把手缩回去")
											IF !RESULT
												PRINTFORML 无视典的话、继续不停地抚摸着屁股
												CALL HPH_PRINT,@"「真是的…真是个不懂事的孩子…HPH」","L"
												CALL HPH_PRINT,@"「轻轻地做哦…太激烈的话、会暴露的…HPH」","L"
												PRINTFORML 典对着饭纲丸使了个眼色、小声说道
												PRINTW
											ELSE
												PRINTFORML 「很了不起。很能忍耐呢」
												PRINTFORML 典一边说着了不起了不起一边抚摸着我的那里
												PRINTFORML 「啊、没事…我自说自话呢♪」
												PRINTW
											ENDIF
										ELSEIF TALENT:140:恋慕
											PRINTFORML 「！」
											PRINTFORML 「真是的…要悄悄地喔、悄悄地…%UNICODE(0x2665) *1%」
											PRINTW
											PRINTFORML （饭纲丸大人、对不起…%UNICODE(0x2665) *1%）
											PRINTFORML （您所爱慕的人似乎对典的身体很着迷…%UNICODE(0x2665) *1%）
											PRINTW
										ENDIF
									ELSE
										PRINTFORML 「！」
										PRINTFORML 「真是的、%CALLNAME:MASTER%阁下可真是个爱恶作剧的孩子啊…%UNICODE(0x2665) *1%」
										PRINTW
										PRINTFORML 在浴池里不停地揉着典的屁股、典也回击似的抚摸起你的屁股
										PRINTFORML 「哎呀、小鸡鸡開始勃起了呢…%UNICODE(0x2665) *1%　会被其他姐姐发现的哦%UNICODE(0x2665) *1%」
										BASE:MASTER:勃起 = 1000
									ENDIF
								;大人
								ELSE
									;龍も入浴
									IF K139_FIND_AROUND() == 140
										IF TALENT:140:恋人
											PRINTFORML 「！」
											PRINTFORML 「%CALLNAME:MASTER%阁下、现在请忍耐一下吧…」
											PRINTFORML 在浴池里揉了揉典的屁股、典小声责备了你一句
											PRINTL
											CALL ASK_YN("无视","把手缩回去")
											IF !RESULT
												PRINTFORML 无视了典的话、把手从臀部滑到了危险的地方
												CALL HPH_PRINT,@"「咿呜HPH　啊…没、没什么、饭纲丸大人HPH」","L"
												CALL HPH_PRINT,@"「我只是有点打嗝…HPH　嗯呜！？HPHHPH」","L"
												PRINTFORML 典满脸通红地瞪着你…
											ELSE
												PRINTFORML 「现在请忍耐一下。等到只有我们两人为止或者去其他地方吧…」
												PRINTFORML 「典的话、您喜欢怎么做都行哦…%UNICODE(0x2665) *1%」
												PRINTW
											ENDIF
										ELSEIF TALENT:140:恋慕
											PRINTFORML 「！」
											PRINTFORML 「现在可不行啊…%UNICODE(0x2665) *1%」
											PRINTFORML 「如果只有我们两个、或者在别的地方…」
											PRINTFORML 「真是…真是个不懂事的人啊…%UNICODE(0x2665) *1%」
											PRINTW
											PRINTFORML （饭纲丸大人、对不起…%UNICODE(0x2665) *1%）
											PRINTFORML （您所爱慕的人、似乎对典的身体很着迷…%UNICODE(0x2665) *1%）
											PRINTW
										ENDIF
									;龍以外の誰かと３人以上で入浴
									ELSE
										PRINTFORML 「真是的、%CALLNAME:MASTER%阁下…%UNICODE(0x2665) *1%　有人在呢」
										PRINTFORML 在浴池里揉了揉典丰满柔软的屁股、典瞥了我一眼
										PRINTL
										CALL ASK_YN("无视","把手缩回来")
										IF !RESULT
											PRINTFORML 无视了典的话、把手从臀部滑到了危险的地方
											CALL HPH_PRINT,@"「咿呜HPH　那里、不行…HPH」","L"
											CALL HPH_PRINT,@"「真是的、坏蛋…HPH　会被发现的哦…HPH」","L"
											PRINTFORML 典像是在回应你一样、用手指爱抚着龟头…
											PRINTW
										ELSE
											PRINTFORML 「不过、就算暴露了典也没什么大不了的…」
											PRINTFORML 「要说真有什么的话、会有麻烦的是%CALLNAME:MASTER%阁下吧？」
											SIF K139_FIND_LOVER() == 2
											PRINTFORM 典向恋人使了个眼色、
											PRINTFORML 恶作剧般地笑了
											PRINTW
										ENDIF
										PRINTW
									ENDIF
								ENDIF
							;典と二人きりで入浴
							ELSE
								;ショタは控えめに、（誘導されつつ）だんだんと欲望に負けていく触り方
								IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
									;お尻洗い回数
									SELECTCASE TCVAR:361
									CASE IS >= 4
										CALL HPH_PRINT,@"「HPH　HPH　呼呼、这种事我可没拜托你呢…HPH」","L"
										CALL HPH_PRINT,@"「但是、%CALLNAME:MASTER%阁下都已经这么努力了、姐姐我就、拜托你了呢…HPH」","L"
										PRINTW
										PRINTFORML 光是揉捏和抚摸屁股实在是无法忍耐了、于是便将典的屁股掰開開来
										;映姫口上の縦割れ肛門表現、エロティックでとても大好きです
										IF TALENT:尻穴狂
											PRINTFORML 经过大量使用后、它被改造成了第二性器
										ELSEIF ABL:Ａ感覚 > 5 && EXP:Ａ性交経験 > 20
											PRINTFORM 记住了%CALLNAME:MASTER%阴茎的形状
										ELSEIF ABL:Ａ感覚 >= 2
											PRINTFORML 開始接受异物
										ELSEIF ABL:Ａ感覚 < 2
											PRINTFORM 还没怎么用过
										ELSEIF EXP:Ａ経験 == 0
											PRINTFORM 还没有接受过异物
										ENDIF
										PRINTFORML 典的肛門暴露在外、不停地蠕动着…
										CALL HPH_PRINT,@"「真是的、%CALLNAME:MASTER%阁下是变态呢…HPH」","L"
										CALL HPH_PRINT,@"「想要怎么羞辱姐姐呢…HPH」","L"
										PRINTW
									CASE 3
										PRINTFORML 「用那种海绵的话、可能会伤到我的皮肤呢…」
										PRINTFORML 「%CALLNAME:MASTER%阁下、能用手帮我清洗吗…%UNICODE(0x2665) *1%」
										PRINTL
										PRINTL ………
										PRINTL ……
										PRINTL …
										PRINTL
										PRINTW
										PRINTFORML 「啊啊、好啊、再揉一揉…不是、再仔细洗一洗…%UNICODE(0x2665) *1%」
										PRINTFORML 典的声音里、開始混入了某些色情的东西
										PRINTW
										PRINTFORML 用沾满肥皂的双手、抚摸着、揉捏着典的屁股
										PRINTFORML 典的屁股是那么的细嫩、光滑、想要一直触摸下去…
										PRINTW
									CASE 2
										PRINTFORML 「从刚才開始就一直在洗背呢%UNICODE(0x2665) *1%」
										PRINTFORML 「不给我洗洗这里吗？」
										PRINTFORML 典摇晃着尾巴、轻轻撅起屁股
										PRINTW
										PRINTFORML 「对了对了、那里、要很仔细、呢…%UNICODE(0x2665) *1%」
										PRINTFORML 在典的催促下、小心翼翼地擦拭着她布丁般的屁股
										PRINTFORML 不禁被眼前的曲线所吸引
									CASE 1
										PRINTFORML 「对了对了、很厉害哦…%UNICODE(0x2665) *1%」
										PRINTFORML 用海绵给典擦背
										PRINTFORML 典的皮肤看起来、是那么的光滑
										PRINTW
									CASE 0
										PRINTFORML 「你能帮姐姐、好好地洗一洗身子吗…%UNICODE(0x2665) *1%」
										PRINTFORML 典站起身来、背对着%CALLNAME:MASTER%说道
										PRINTW
										PRINTFORML 「姐姐我、不确定自己是不是洗得干干净净了呢」
										PRINTFORML 「所以、想让%CALLNAME:MASTER%阁下把我的每个角落都洗干净…%UNICODE(0x2665) *1%」
										PRINTW
									ENDSELECT
								;大人はより積極的に触る
								ELSE
									;お尻洗い回数
									SELECTCASE TCVAR:361
									CASE IS >= 4
										CALL HPH_PRINT,@"「HPH　HPH　HPH　～～～～～～HPHHPH」","L"
										PRINTFORML 典无声地喘息着、浑身战栗
										PRINTW
										BASE:MASTER:勃起 = 1000
										PRINTFORML 用硬邦邦的勃起的肉棒、仔细地「清洗」典的阴部
										PRINTFORML 每当龟头在秘裂和阴蒂之间来回移动时、典的身体就会一颤一颤地颤抖起来
										PRINTW
									CASE 3
										CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、那里是…HPH」","L"
										CALL HPH_PRINT,@"「不…是典误会了…确实是、在『清洗』呢…HPH」","L"
										PRINTW
										PRINTFORML 光是揉捏和抚摸屁股就已经无法忍耐了的%CALLNAME:MASTER%握住了典的腰
										BASE:MASTER:勃起 = 1000
										PRINTFORML 然后、将耸立的阴茎贴在臀缝上、慢慢地摩擦着
										PRINTW
										CALL HPH_PRINT,@"「啊啊…肉棒…不是、海绵、好舒服…HPH」","L"
										CALL HPH_PRINT,@"「请继续摩擦…HPH」","L"
										PRINTW
									CASE 2
										PRINTFORML 「那个、%CALLNAME:MASTER%阁下、海绵怎么了…」
										PRINTFORML 「不知不觉间、总觉得是在被用手洗呢…%UNICODE(0x2665) *1%」
										PRINTW
										PRINTFORML 双手沾满肥皂、把典的全身都擦洗了一遍
										PRINTFORML 从腋下開始沿着腰部的曲线、揉捏臀肉
										PRINTFORML 「相当、嗯%UNICODE(0x2665) *1%　仔细地洗屁股呢…%UNICODE(0x2665) *1%」
										PRINTFORML 「……我并没有说讨厌哦…%UNICODE(0x2665) *1%　就这样继续洗吧…%UNICODE(0x2665) *1%」
										PRINTW
									CASE 1
										PRINTFORML 「啊啊、好舒服…%UNICODE(0x2665) *1%」
										PRINTFORML 用海绵给典擦背
										PRINTFORML 典的皮肤看起来、是那么的光滑
										PRINTW
										PRINTFORML 「呀呜嗯！？　真是的、现在的摸法、太下流了…%UNICODE(0x2665) *1%」
										PRINTFORML 用手指从后背滑到臀缝、典的尾巴一下就翘了起来
										PRINTW
									CASE 0
										PRINTFORML 「%CALLNAME:MASTER%阁下、您能帮我擦洗身子吗？非常感谢♪」
										PRINTFORML 「哇呼…好舒服」
										PRINTFORML 用海绵擦洗了她柔软的肢体以后、典深深地叹了口气
										PRINTW
									ENDSELECT
								ENDIF
							TCVAR:361 += 1
							ENDIF
						;入浴してない
						ELSE
							;今日の尻撫で回数
							SELECTCASE TCVAR:351
							CASE IS > 20
								SELECTCASE RAND:3
								CASE 0
									CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下的恶趣味…HPH　真是、明明知道的…HPH」","L"
								CASE 1
									CALL HPH_PRINT,@"「总在最危险的地方晃来晃去…%CALLNAME:MASTER%阁下、真是个狡猾的人…HPH」","L"
								CASE 2
									CALL HPH_PRINT,@"「更往下的地方、可以不要去碰吗…HPH」","L"
								ENDSELECT
							CASE IS > 10
								SELECTCASE RAND:3
								CASE 0
									CALL HPH_PRINT,@"「真是…恶作剧有些过头了…HPH」","L"
								CASE 1
									CALL HPH_PRINT,@"「啊啊、被这么直接地抚摸着、典要、典要…HPH」","L"
								CASE 2
									CALL HPH_PRINT,@"「不可以啊、都摸到那种地方…HPH」","L"
								ENDSELECT
							CASE IS > 5
								SELECTCASE RAND:2
								CASE 0
									PRINTFORML 「还真是好这口呢…%UNICODE(0x2665) *1%」
								CASE 1
									PRINTFORML 「还打算、继续摸下去吗…%UNICODE(0x2665) *1%」
								ENDSELECT
							CASEELSE
								PRINTFORML 「四下无人呢…%UNICODE(0x2665) *1%　那就随你喜欢、请吧%UNICODE(0x2665) *1%」
							ENDSELECT
							PALAM:MASTER:欲情 += 400
						ENDIF
					ENDIF
					PRINTW
				;恋慕・恋人無
				ELSE
					;恋人でもない女性の前でボッキしてムラムラしてるやつがまっとうなわけないだろう！いい加減にしろっていう前提のもと書いた文
					IF BASE:MASTER:射精 > 5000 && BASE:MASTER:勃起 >= 1000 && PALAM:MASTER:欲情 > 10000
						PRINTFORML 抢先一步的%CALLNAME:MASTER%は、从背后抱住了典、将%TINKO(PLAYER)%贴在屁股上摩擦…
						PRINTW
						CALL HPH_PRINT,@"「！　哎呀哎呀、%CALLNAME:MASTER%阁下、屁股上有什么硬硬的东西…HPH」","L"
						CALL HPH_PRINT,@"「已经、说过不可以了…真是没办法呢HPH」","L"
						PRINTW
						IF OUTROOF(CFLAG:TARGET:現在位置)
							PRINTFORM %CALLNAME:MASTER%把典按在树
						ELSE
							PRINTFORM %CALLNAME:MASTER%把典按在墙壁
						ENDIF
						PRINTFORML 上、从背后侵犯似的把肉棒贴在屁股缝之间開始摩擦起来…
						CALL HPH_PRINT,@"「简直、就像是被人从后面侵犯了…HPH　但是…」","W"
						CALL HPH_PRINT,@"「既不是为了确认彼此的爱、也不是为了品尝女人的身体…只是因为自己想要射精…HPH」","L"
						IF ABL:MASTER:戦闘能力 > 5
							PRINTL 「虽然你有比任何人都强大的力量、但你所做的并不是像英雄一样拥抱每一个女人、
							PRINTFORML 而是性侵犯…啊啊、真可悲」
							SIF TALENT:MASTER:非童貞 == 0
								PRINTFORML 「这就是为什么你现在还是个处男…♪」
						ELSEIF TALENT:140:恋人
							PRINTFORML 「有饭纲丸大人这样的恋人、却向她的女下属寻求扭曲欲望的发泄口…」
							PRINTFORML 「饭纲丸大人要是知道了、会怎么说呢」
						ELSEIF TALENT:29:恋人
							PRINTFORML 「因为知道了那个捏造记者居然还有人能让她做出这般少女怀春的表情、所以我就在想让她迷恋不已的恋人是谁、这样一想的话…」
							PRINTFORML 「谁会想到是一个摩擦着妖怪的屁股而兴奋的变态呢…♪」
						ELSEIF TALENT:42:恋人
							PRINTFORML 「你的恋人…对了对了、是姫海棠小姐对吧。明明都不认识我、都还跟我说过你是个超级棒的恋人呢」
							PRINTFORML 「没想到是个性犯罪者呢、她知道的话会很吃惊的吧…♪」
						ELSEIF TALENT:65:恋人
							PRINTFORML 「毕竟是那个忠实于职务的白狼天狗的小姑娘选择的对象、我还在想是多么一个耿直的家伙呢…」
							PRINTFORML 「看来那个小姑娘有的不是千里眼而是色眼呢」
						ENDIF
						CALL HPH_PRINT,@"「请再随意地摆动你的腰吧HPH　典会帮你看着的HPH」","L"
						PRINTW
						PRINTL 哔咕…哔噜噜
						PRINTL 　　哔咕哔咕…
						PRINTW
						PRINTFORML 「…痛快了吗。请离我远点」
						PRINTFORML 对着发泄完欲望的%CALLNAME:MASTER%、典用公事公办的语气说道
						PRINTW
						PRINTFORML 「啊啊、我的衣服被%CALLNAME:MASTER%阁下的臭精液弄脏了」
						PRINTFORML 「明明、很喜欢这件衣服…却不得不说再见了」
						PRINTW
					ELSEIF ABL:MASTER:指 > 2
						SELECTCASE TCVAR:351
						CASE IS > 20
							PRINTFORML 一边享受着臀肉的柔软、一边用指尖在关键的地方勾勒着
							IF CFLAG:没穿内裤
								CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下真的很执着…这不是很在意那个地方么…HPH」","L"
							ELSE
								CALL HPH_PRINT,@"「真是…HPH　很在意那里的话、打算怎么负起责任呢…HPH」","L"
							ENDIF
						CASE IS > 10
							IF CFLAG:没穿内裤
								PRINTFORML 「嗯%UNICODE(0x2665) *1%　直接揉起来、是犯规的…%UNICODE(0x2665) *1%」
							ELSE
								PRINTFORML 从典用来露出尾巴的衣服缝隙里将手钻了进去、直接上手揉起了屁股
								PRINTFORML 「从那种地方…直接摸可是违反规则的哟…♪」
							ENDIF
						CASE IS > 5
							IF CFLAG:没穿内裤
								PRINTFORML 「啊、暴露了？　今天、没有穿哟…♪」
							ELSE
								PRINTFORML 手指在典的臀缝之间来回勾勒着
								PRINTFORML 「真是的、连那种地方都…♪」
							ENDIF
						CASEELSE
							PRINTFORML 一捏一捏地抓着典的臀肉
							PRINTFORML 「摸得也太光明正大了吧。希望你能自重一些呢」
							PRINTFORML （明明抓得挺用力…分寸却把握得挺好呢）
						ENDSELECT
						PRINTW
					ELSE
						SELECTCASE RAND:3
						CASE 0
							PRINTFORML 「在光明正大的性骚扰呢」
						CASE 1
							PRINTFORML 「%CALLNAME:MASTER%阁下ー。真爱玩啊♪」
							PRINTFORML 被典如此判定了
						CASE 2
							PRINTFORML 「用手触摸舞娘可是被禁止的哟ー」
							PRINTFORML 典把身体扭来扭去的
						ENDSELECT
						PRINTW
					ENDIF
				ENDIF
			ENDIF
		ENDIF
		;自覚があるときのみ回数を記憶
		CFLAG:139:1009 += 1
		TCVAR:139:351 += 1
		TCVAR:352 += 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;311,擁抱
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:诶嘿嘿==2&&TCVAR:20(32=前から抱きつく 60=ディープ接吻 73=ぱふぱふ 74=乳合わせ 77=乳を吸わせる ＶＡ性交(85=Ｖ挿入する 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ) 86=だいしゅき礼堂ド)
;TFLAG:400(1=约会先or地底の路人が反応する)
;==================================================
@M_KOJO_SUCCESS_COM_K139_311
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K139_311
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K139_311_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K139_311_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSEIF CHK_DATENOW(CFLAG:约会中)
		IF TALENT:139:心情 == -1 || CFLAG:139:ブチギレ == 1
			IF TALENT:恋慕 || TALENT:恋人
				PRINTFORML 「这样撒娇也是不行的哦」
			ELSE
				PRINTFORML 「等等…可以不要这样腻着我吗」
			ENDIF
			PRINTW
		ELSEIF TALENT:恋慕 || TALENT:恋人
			;兒童
			IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行
				SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「好吧好吧、想向我撒娇是吗？」
					PRINTFORML 「一直都是个小撒娇鬼呢…%UNICODE(0x2665) *1%」
				CASE 1
					PRINTFORML 「过来吧。会紧紧抱住你哦…%UNICODE(0x2665) *1%」
				CASE 2
					PRINTFORML 「乖孩子乖孩子…%UNICODE(0x2665) *1%」
					PRINTFORML （这种地方、还是个小孩子呢）
				ENDSELECT
				PRINTW
				;梆硬
				IF BASE:MASTER:勃起 >= 1000
					SELECTCASE RAND:2
					CASE 0
						CALL HPH_PRINT,@"「哦呀哦呀…？HPH」","L"
						CALL HPH_PRINT,@"「这个顶着姐姐的小腹的、硬硬的东西是什么呢…？HPH」","L"
						CALL HPH_PRINT,@"「难道是、该不会是在约会中途勃起（变大）了吧…HPH」","L"
					CASE 1
						PRINTFORML 「哦呀…？」
						CALL HPH_PRINT,@"「哼ー嗯…HPH」","L"
					ENDSELECT
				;石更
				ELSEIF BASE:MASTER:勃起 >= 500
					SELECTCASE RAND:2
					CASE 0
						PRINTFORML 「嗯…？」
						CALL HPH_PRINT,@"「在约会中变成这样子…之后得好好惩罚一下坏孩子呢…HPH」","L"
					CASE 1
						PRINTFORML 「嗯…？」
						CALL HPH_PRINT,@"「你不会、以为我没发现吧？HPH」","L"
					ENDSELECT
				ELSE
					PRINTFORML （嘛、这样子也不坏呢…%UNICODE(0x2665) *1%）
					PRINTW
				ENDIF
			;青年以上
			ELSE
				SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「啊啦啦、这样身体都没法动了…%UNICODE(0x2665) *1%」
				CASE 1
					PRINTFORML 「…%UNICODE(0x2665) *1%」
					PRINTFORML 从后面紧紧抱住典后、典轻轻地把自己的手叠放在你的手上
				CASE 2
					PRINTFORML 「哇…真是、这么着急啊」
				ENDSELECT

				;梆硬
				IF BASE:MASTER:勃起 >= 1000
					SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「有什么硬硬的东西顶着典啊…%UNICODE(0x2665) *1%」
					CASE 1
						PRINTFORM 「真是、在约会中变成这样子…%UNICODE(0x2665) *1%」
					CASE 2
						PRINTFORML 「哦呀…？」
						CALL HPH_PRINT,@"「明明还在约会…已经、忍不住了吗HPH」","L"
					ENDSELECT

					IF TCVAR:発情
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下果然『也』、在期待着呢…HPH」","L"
						CALL HPH_PRINT,@"「典啊、在约会之前就已经開始期待了哦…HPH」","L"
					ENDIF
				;石更
				ELSEIF BASE:MASTER:勃起 >= 500
					PRINTFORML 「哦呀…？」
					CALL HPH_PRINT,@"「明明还在约会…已经、忍不住了吗HPH」","L"
				ELSE
					IF DAY:2 == 2
						PRINTFORML 「真是、很热哦～快起開」
						PRINTFORML 典虽然说着这种话却露出了欣喜的表情
					ELSEIF DAY:2 == 4
						PRINTFORML 「呼呼、%CALLNAME:MASTER%阁下、好暖和啊…%UNICODE(0x2665) *1%」
						PRINTFORML 典轻轻地把手伸到%CALLNAME:MASTER%的背后、抱了回去
						PRINTW
					ELSE
						PRINTFORML 「虽然有些害羞、但还是很開心呢…%UNICODE(0x2665) *1%」
						PRINTW
					ENDIF
				ENDIF
			ENDIF
		;约会中・思慕以下
		ELSE
			;兒童
			IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行
				;梆硬
				IF BASE:MASTER:勃起 >= 1000
					PRINTFORML 「哦呀哦呀ー？」
					SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「和姐姐约会的时候、你到底都在想些什么啊？」
					CASE 1
						PRINTFORML 「姐姐明明是想着要进行健全的交往的…%CALLNAME:MASTER%阁下看来并不这么想呢♪」
					CASE 2
						PRINTFORML 「难道说、是在期待着约会中发生点什么吗？」
					ENDSELECT
						PRINTFORML 典看向%CALLNAME:MASTER%股间支起的帐篷、露出了带着些许色气的坏笑
						PRINTW
				;石更
				ELSEIF BASE:MASTER:勃起 >= 500
					PRINTFORML （稍微弓着腰似乎拼命地想隐藏起来呢…可惜还是被发现了哟♪）
					SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「你看♪　跟姐姐黏在一起呢♪」
					CASE 1
						PRINTFORML 「%CALLNAME:MASTER%阁下♪　更紧密地贴在一起吧♪」
					CASE 2
						PRINTFORML 「你看、既然是约会、就应该更加像情侣一样地黏在一起…♪」
					ENDSELECT
					PRINTW
				ELSE
					SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「哦哟、真是大胆呢♪」
					CASE 1
						PRINTFORML 「哦呀哦呀、这种事对你有些太早了吧？」
					CASE 2
						PRINTFORML 「抱得真紧呢。还是说、只是想撒娇吗？」
					ENDSELECT
					PRINTW
				ENDIF
			;青年以上
			ELSE
				;梆硬
				IF BASE:MASTER:勃起 >= 1000
					PRINTFORML 「呼呼…硬邦邦的呢♪」
					PRINTFORML 「到底、是什么东西呢%UNICODE(0x2665) *1%」
					PRINTFORML 典轻轻地抚摸着%CALLNAME:MASTER%的胯间
				;石更
				ELSEIF BASE:MASTER:勃起 >= 500
					PRINTFORML 「哇哇…嗯？」
					PRINTFORML 「%CALLNAME:MASTER%阁下、用什么硬硬的东西顶到典了…」
					PRINTFORML 「莫非、是故意这么顶上来的吗…%UNICODE(0x2665) *1%」
				ELSE
					PRINTFORML 「真是的、好难为情啊♪」
					PRINTFORML 典一副開玩笑的语气、脸颊却微微染上了绯红
				ENDIF
				PRINTW
			ENDIF
		ENDIF
		TCVAR:352 += 1
	ELSEIF CFLAG:睡眠
		IF TALENT:恋慕 || TALENT:恋人
			PRINTFORML 轻轻一抱、典的表情就缓和了下来
		ELSE
		ENDIF
	;通常
	ELSE
		;お浴室。同室なのは必然的に恋慕持ちか親密高い恋慕持ち
		IF BATHCHECK(CFLAG:MASTER:現在位置)
			;誰かいる
			IF K139_BE_SEEN()
				IF K139_FIND_AROUND() == 140
					IF TALENT:140:恋人
						PRINTFORMW 偷偷摸了摸在旁边放松的典的%OPPAI_DESCRIPTION(TARGET,1)%…
						SELECTCASE RAND:2
						CASE 0
							CALL HPH_PRINT,@"「……HPH　真是个坏孩子啊HPH」","L"
							PRINTFORML 典虽然出言责备、表情却截然相反
							PRINTW
							CALL HPH_PRINT,@"「如果你能对龙姐姐保密的话、我就给你做舒服的事情…HPH」","L"
							PRINTFORML 面对典的诱惑、%CALLNAME:MASTER%点了点头
							PRINTW
							CALL HPH_PRINT,@"「呼呼…真是诚实　小孩子是最诚实的呢…HPH」","L"
							PRINTFORM 典眯起眼睛、
							PRINTFORML 轻轻地把手放在\@ HAS_PENIS(MASTER) ? 肉茎 # 秘裂 \@上、開始用手指爱抚起来
							PRINTW
							CALL HPH_PRINT,@"「不可以发出声音哦…HPH　如果出声的话舒服的事就结束了…HPH」","L"
							PRINTFORML 为了不让快乐的时间结束、%CALLNAME:MASTER%拼命压住声音
							PRINTW
							CALL HPH_PRINT,@"（啊啊、啊啊HPH　拼命压低声音的%CALLNAME:MASTER%…多可爱…HPH）","L"
							CALL HPH_PRINT,@"（要是被发现做了这样的事的话…连我也会完蛋的…HPH）","L"
							CALL HPH_PRINT,@"（但是、在恋人面前、在饭纲丸大人面前、我想让这孩子叫出声来…然后就这样堕落…HPH）","W"
							PRINTFORML 和%CALLNAME:MASTER%不同的理由、典也在拼命抵抗诱惑…
							PRINTW
						CASE 1
							CALL HPH_PRINT,@"「哈啊啊嗯HPH」","L"
							PRINTFORML 意想不到的大声喘息、让%CALLNAME:MASTER%慌了手脚…
							PRINTFORML 面对惊讶地看着自己的饭纲丸、%CALLNAME:MASTER%慌忙辩解道…
							PRINTW
						ENDSELECT
					ELSEIF TALENT:140:恋慕
						PRINTFORML 在旁边休息的典的裸体让人非常在意、偷偷地瞥了一眼…
						PRINTFORML 「你对姐姐的裸体、那么感兴趣吗？」
						PRINTFORML 典悄悄地在你耳边说道
						PRINTW
						CALL ASK_YN("感兴趣","不感兴趣")
						IF !RESULT
							PRINTFORML 「没问题、你可以摸…%UNICODE(0x2665) *1%　但是、请温柔点…%UNICODE(0x2665) *1%」
							PRINTFORML 在浴池里、轻轻地触摸典的胸部
							IF TALENT:TARGET:胸圍 > 0
								PRINTFORML 典丰满的胸部、每次%CALLNAME:MASTER%揉搓时都会自由自在地变换形状
							ELSEIF TALENT:TARGET:胸圍 == -1
								PRINTFORML 典娇小的胸部、仍然带有女性特有的柔软、每一次揉搓手指都会轻轻下沉
							ELSEIF TALENT:TARGET:胸圍 == -2
								PRINTFORML 典的胸部几乎和少年一模一样、只有乳头的部分是凸出来的
							ELSE
								PRINTFORML 典匀称的胸部、%CALLNAME:MASTER%每次按揉都会有柔软的感觉
							ENDIF
							PRINTW
							PRINTFORML （如此沉迷其中…真是个可爱的人啊%UNICODE(0x2665) *1%）
							PRINTW
						ELSE
							PRINTFORML 「哎呀、那么是我多心了…♪」
							PRINTFORML 典微微一笑、悄悄和%CALLNAME:MASTER%拉開了距离
							PRINTW
							PRINTFORML （呼呼、我一离開就露出了遗憾的表情…%UNICODE(0x2665) *1%）
							PRINTFORML （坦率地说有兴趣就好了…这就是、孩子啊…%UNICODE(0x2665) *1%）
							PRINTW
						ENDIF
					ENDIF
				ELSE
					BASE:MASTER:勃起 = 1000
					PRINTFORM 泡在浴池里的典、
					SELECTCASE RAND:3
					CASE 0
						PRINTFORML 用手指在%CALLNAME:MASTER%的菊穴里来回转动…
					CASE 1
						IF TALENT:MASTER:性別 == 2 || TALENT:MASTER:性別 == 3
							PRINTFORML 像是要用手掌包住%CALLNAME:MASTER%的龟头似的用力地摩擦着…
						ELSE
							PRINTFORML 用指腹摩擦着%CALLNAME:MASTER%的阴蒂…
						ENDIF
					CASE 2
						PRINTFORML 用手指刺激着%CALLNAME:MASTER%的两个乳头…
					ENDSELECT
					PRINTFORML 「%CALLNAME:MASTER%阁下、您要是露出这种表情的话、会被\@ K139_FIND_LOVER() == 2 ? 恋人小姐 # 其他人 \@注意到的…%UNICODE(0x2665) *1%」
					SIF K139_FIND_LOVER() == 2
					PRINTFORM 典向正在洗澡的恋人使了个眼色、
					PRINTFORML 恶作剧似的笑了
					PRINTW
				ENDIF
			;典と二人きり
			ELSE
				IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
					SELECTCASE TCVAR:362
					CASE IS >= 4
						PRINTFORML 回过神来时发现已经被典推倒了…
						CALL HPH_PRINT,@"「和姐姐、再洗一洗吧…HPH」","L"
						IF TALENT:MASTER:性別 == 2 || TALENT:MASTER:性別 == 3
							CALL HPH_PRINT,@"「呀嗯HPH　小鸡鸡、进来了…HPH」","L"
							PRINTW
							PRINTFORML 典一直故意处于半途中断的状态…
							PRINTFORML 每当龟头被腔口埋没的时候、典都会敏锐的察觉到%CALLNAME:MASTER%的挺腰而错開…
							PRINTW
							PRINTFORML 噗啾嗯…扭啵…
							PRINTFORML 　噗啾嗯…扭啵…
							PRINTW
							CALL HPH_PRINT,@"「啊、又把腰挺起来了是吧…HPH」","L"
							CALL HPH_PRINT,@"「不～行、的哟HPH　这只是『洗』唷HPH」","L"
							CALL HPH_PRINT,@"「真是个坏孩子啊HPH　究竟是在哪里学到的呢…HPH」","L"
							PRINTW
						ENDIF
					CASE 3
						CALL HPH_PRINT,@"「乐在其中？　不对、我只是想好好的帮你洗干净而已HPH」","L"
						PRINTFORML 在彼此的身上抹上肥皂、紧紧地相互摩擦
						PRINTW
						IF TALENT:MASTER:性別 == 2 || TALENT:MASTER:性別 == 3
							CALL HPH_PRINT,@"「啊哇、有什么硬硬的东西顶到肚子了呢…HPH」","L"
							CALL HPH_PRINT,@"「真奇怪啊…HPH　只是洗个澡而已…」","W"
							CALL HPH_PRINT,@"「勃HPH起HPH　了吗…？HPH」","L"
							BASE:MASTER:勃起 = 1000
							PRINTW
						ENDIF
					CASE 2
						CALL HPH_PRINT,@"「そうですよ…上手、です…HPH」","L"
						PRINTFORML 每当我徒手抚摸%OPPAI_DESCRIPTION(TARGET,1)%、典都会浑身颤抖
						PRINTW
						CALL HPH_PRINT,@"「那个…HPH　用手掌抚摸前端…嗯HPH　请再多做一点HPH」","L"
						PRINTFORML 手の平にコリコリとした感触が当たる。それを優しく押しつぶしながら、円の動きで転がしてやる
						CALL HPH_PRINT,@"「嗯嗯嗯嗯HPH　啊HPH　それぇHPH　もっとぉHPH」","L"
						PRINTW
					CASE 1
						PRINTFORML 「真是的、手腕已经够了啦。接下来就请洗胸部吧♪」
						PRINTFORML 典抓住%CALLNAME:MASTER%的手臂、送到了胸前
						PRINTW
						PRINTFORML 「啊嗯%UNICODE(0x2665) *1%　更多的、H啊%UNICODE(0x2665) *1%」
						PRINTFORML 每当海绵擦过她的乳头、典就会发出夸张的喘息声…
						PRINTW
					CASE 0
						PRINTFORML 「%CALLNAME:MASTER%阁下%UNICODE(0x2665) *1%　你能帮姐姐洗洗身子吗%UNICODE(0x2665) *1%」
						PRINTFORML 「啊、不是从后面哦。请从前面開始洗吧♪」
						PRINTW
						PRINTFORML 「怎么了？　光顾着看下面的话、就洗不干净了吧？」
						PRINTFORML 典、用像是调戏一般的语气说着。不对、实际上和调戏别无二致…
						PRINTW
					ENDSELECT
				ELSE
					SELECTCASE TCVAR:362
					CASE IS >= 4
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、这是…HPH」","L"
						CALL HPH_PRINT,@"「嗯嗯HPH　不、十分感谢、您能帮我清洗…HPH　啊嗯HPH」","L"
						PRINTW
						PRINTFORML 全身涂满肥皂、手臂环住典的后背互相缠绕身体
						BASE:MASTER:勃起 = 1000
						PRINTFORML 每当乳头和%CALLNAME:MASTER%的身体摩擦时、典就会发出娇艳的声音
						PRINTFORML 典也伸手搂住%CALLNAME:MASTER%的背、积极地摩擦身体…
						PRINTW
					CASE 3
						CALL HPH_PRINT,@"「HPH　HPHHPH　啊 啊啊啊HPH　啊HPH　啊HPH」","W"
						PRINTFORML 用食指把典的%NIPPLE_DESCRIPTION(TARGET)%揉搓得咯吱咯吱响
						PRINTFORML 典扭动着身子、任凭摆弄…
						PRINTW
					CASE 2
						CALL HPH_PRINT,@"「那个…%CALLNAME:MASTER%阁下…从刚才開始、就、只对胸…HPH」","W"
						PRINTFORML 用手清洗典的锁骨周围、胸下和乳晕周围
						PRINTW
						CALL HPH_PRINT,@"（我想让你摸、我的乳头…你却故意、排除了…HPH）","L"
						CALL HPH_PRINT,@"（坏心眼的人…HPH　快点、摸它…HPHHPH）","L"
						PRINTW
					CASE 1
						PRINTFORML 「啊…以前也是吗？」
						PRINTFORML 「好的…%UNICODE(0x2665) *1%　拜托、了…%UNICODE(0x2665) *1%」
						PRINTW
						PRINTFORML 温柔地用海绵擦拭典的上身
						PRINTFORML 假装清洗的样子轻轻地擦了擦樱花色的凸起、典就发出了「呀呜嗯%UNICODE(0x2665) *1%」的叫声
						PRINTW
					CASE 0
						PRINTFORML 「%CALLNAME:MASTER%阁下、你要帮我洗身子吗？」
						PRINTFORML 「非常抱歉…拜托了」
						PRINTFORML 用海绵小心谨慎的擦拭的满脸笑容的典的身体
						PRINTW
					ENDSELECT
				ENDIF
				TCVAR:362 += 1
			ENDIF
		ELSE
			IF TALENT:恋慕 || TALENT:恋人
				IF K139_BE_SEEN()
					IF K139_FIND_AROUND() == 140
						IF TALENT:140:恋慕 || TALENT:140:恋人
							SELECTCASE RAND:2
							CASE 0
								PRINTFORML 「%CALLNAME:MASTER%阁下、虽然抱得这么紧我很高兴…」
								PRINTFORML 「至少、去别的地方…」
							CASE 1
								PRINTFORML 「想让饭纲丸大人看见什么的…%CALLNAME:MASTER%还真是个过分的人啊」
								PRINTFORML 「不…更过分的、是典才对吧」
							ENDSELECT
						ELSE
							SELECTCASE RAND:3
							CASE 0
								PRINTFORML 「真是的、典之后会被饭纲丸大人斥责的…%UNICODE(0x2665) *1%」
							CASE 1
								PRINTFORML 「向没有恋人的饭纲丸大人炫耀…%CALLNAME:MASTER%阁下真是个过分的人呐…♪」
							CASE 2
								PRINTFORML 「嗯呼呼…♪　饭纲丸大人一脸羡慕的样子…♪」
							ENDSELECT
							PRINTW
						ENDIF
					;龍是ない
					ELSE
						;目の前に恋人
						IF K139_FIND_LOVER() == 2
							PRINTFORML 「哎呀哎呀、明明就在恋人的面前还真大胆呐…♪」
							PRINTFORML 「典倒是无所谓哟。只要能得到%CALLNAME:MASTER%的宠爱就好%UNICODE(0x2665) *1%」
							PRINTFORML 似乎故意展示给恋人看一样、典轻轻地搂住了%CALLNAME:MASTER%
						;恋人は目の前にいない
						ELSEIF K139_FIND_LOVER() == 1
							IF TALENT:140:恋人
								SELECTCASE RAND:3
								CASE 0
									PRINTFORML 「啊啊、%CALLNAME:MASTER%阁下。再抱紧一点」
								CASE 1
									PRINTFORML 「好高兴。典、一直爱慕着%CALLNAME:MASTER%阁下」
								CASE 2
									PRINTFORML 「趁着饭纲丸大人不在期间的幽会、可要好好享受啊…」
								ENDSELECT
								IF CFLAG:139:1000
									PRINTFORML （虽然很对不起饭纲丸大人…但仅限此刻、%CALLNAME:MASTER%阁下是属于我的…）
								ELSEIF CFLAG:139:1001
									PRINTFORML （因为明明是我先爱上这位的…这有这个、决不能让步）
								ENDIF
							ELSE
								SELECTCASE RAND:3
								CASE 0
									PRINTFORML 「呵呵、把恋人小姐晾在一边真的好吗？」
								CASE 1
									PRINTFORML 「啊啦、明明恋人就在身边、还到典这里来…♪」
									PRINTFORML 「呵呵、典是不会拒绝的呢…毕竟是被%CALLNAME:MASTER%给抱着呐…♪」
								CASE 2
									PRINTFORML 「恋人不在的时候的幽会、一定要好好享受呢…」
								ENDSELECT
								PRINTW
							ENDIF
						;典が恋人かまたは恋人がいない
						ELSE
							SELECTCASE RAND:3
							CASE 0
								PRINTFORML 「%CALLNAME:MASTER%阁下。请抱得更紧些…%UNICODE(0x2665) *1%」
								PRINTFORML 「会让周围的人嫉妒程度的紧…%UNICODE(0x2665) *1%」
							CASE 1
								PRINTFORML 「呼呼%UNICODE(0x2665) *1%　想看的人给他们看就行了…%UNICODE(0x2665) *1%」
							CASE 2
								PRINTFORML 「周围的人羡慕的眼神…感觉真好啊♪」
							ENDSELECT
						ENDIF
					ENDIF
				;周りに人がいない
				ELSE
					;夏
					IF DAY:2 == 2
						SELECTCASE RAND:3
						CASE 0
							PRINTFORML 「好热啊～～～～」
						CASE 1
							PRINTFORML 「这时候被抱住的话、典的汗都要冒个不停了…」
						CASE 2
							PRINTFORML 「%CALLNAME:MASTER%阁下、这样很热哦」
						ENDSELECT
						PRINTFORML 典虽然懒洋洋的回应着、却并没有试图挣脱
					;冬
					ELSEIF DAY:2 == 4
						PRINTFORML 「%CALLNAME:MASTER%阁下、好暖和…%UNICODE(0x2665) *1%」
						PRINTFORML 「啊啊、不过手有些冰。至少、把这里…」
						PRINTFORML 典轻轻地把她温暖的手扣在了你被冻透的手上
					ELSE
						IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
							SELECTCASE RAND:3
							CASE 0
								PRINTFORML 「好的%UNICODE(0x2665) *1%　是姐姐哟%UNICODE(0x2665) *1%」
								PRINTFORML 典温柔地紧紧抱住了%CALLNAME:MASTER%
							CASE 1
								PRINTFORML 「嗯？　怎么了呢？　想要到姐姐这里撒娇吗？」
							CASE 2
								PRINTFORML 「啊呀…稍微有点早熟的拥抱方法呢…%UNICODE(0x2665) *1%」
								PRINTFORML 从后面环抱住典、典也将手搭在了%CALLNAME:MASTER%的手腕上
							ENDSELECT
						ELSE
							SELECTCASE RAND:3
							CASE 0
								PRINTFORML 「感受到了%CALLNAME:MASTER%阁下的体温…%UNICODE(0x2665) *1%」
							CASE 1
								PRINTFORML 「请、抱得更紧一些…%UNICODE(0x2665) *1%」
							CASE 2
								PRINTFORML 「这种被拥抱的方式…不坏呢%UNICODE(0x2665) *1%」
								PRINTFORML 从后面环抱住典、典也将手搭在了%CALLNAME:MASTER%的手腕上
							ENDSELECT
							PRINTW
						ENDIF
					ENDIF
				ENDIF
			;恋慕・恋人無
			ELSE
				IF K139_BE_SEEN()
					IF K139_FIND_AROUND() == 140
						IF TALENT:140:恋慕 || TALENT:140:恋人
							PRINTFORML 「%CALLNAME:MASTER%阁下、饭纲丸大人在看呢…♪」
							PRINTFORML 「你看、她正一脸凶狠地看着我们呢…真是的♪」
						ELSE
							PRINTFORML 「%CALLNAME:MASTER%阁下、被你抱着是很好、但是在上司面前稍微有点…」
							PRINTFORML 「不、我之后会被责备的…」
						ENDIF
						PRINTW
					ELSE
						SELECTCASE RAND:2
						CASE 0
							PRINTFORML 「啊呀啊呀、真是大胆啊♪」
							PRINTFORML 「积极的人、我、不讨厌哦♪」
						CASE 1
							PRINTFORML 「哎呀哎呀、众目睽睽之下你还这么积极…♪」
						ENDSELECT
						PRINTW
					ENDIF
				ELSE
					;兒童
					IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行
						;梆硬
						IF BASE:MASTER:勃起 >= 1000
							PRINTFORML 「哦呀哦呀…？」
							PRINTFORML 「姐姐被什么硬邦邦的东西顶到了、是什么呢…♪」
							PRINTFORML （似乎情欲很旺盛呢…♪　还真是个、好色的小鬼♪）
						;石更
						ELSEIF BASE:MASTER:勃起 >= 500
							PRINTFORML 「哦呀哦呀…？」
							PRINTFORML 「%CALLNAME:MASTER%阁下的股间好像有些胀胀的呢…？」
							PRINTFORML 「啊啦啊啦。就算不好意思、也不用赶紧跑開哦♪」
						ELSE
							PRINTFORML 「好好。典姐姐给你一个抱抱哦♪」
							PRINTFORML （爱撒娇的样子还真是可爱呢）
						ENDIF
						PRINTW
					;青年以上
					ELSE
						;梆硬
						IF BASE:MASTER:勃起 >= 1000
							SELECTCASE RAND:3
							CASE 0
								PRINTFORML 「不不不、一边用股间那个怒不可遏的东西顶着我一边紧紧抱住我也太…」
								PRINTFORML 「%CALLNAME:MASTER%是那种会束缚女性的人吗？」
							CASE 1
								PRINTFORML 「硬邦邦的呢。希望你能更加注重一下距离感这种东西啊」
								PRINTFORML 「请不要用奇怪的东西顶着我」
							CASE 2
								PRINTFORML 「哦呀哦呀？」
								PRINTFORML 「请问究竟是什么在顶着典的身体呢？」
							ENDSELECT
						;石更
						ELSEIF BASE:MASTER:勃起 >= 500
							SELECTCASE RAND:3
							CASE 0
								PRINTFORML 「一边抱紧一边闻着对方的味道真是好舒服啊」
								PRINTFORML 典轻轻地贴在%CALLNAME:MASTER%的胸前
							CASE 1
								PRINTFORML 「呵呵、%CALLNAME:MASTER%阁下、真是可爱呢」
								PRINTFORML 「简直就像发情期的狗一样♪」
							CASE 2
								PRINTFORML 「哦呀？　是心理作用吗、股间好像被什么东西顶着…♪」
								PRINTFORML 「因为典而变得这么兴奋了吗？」
							ENDSELECT
						ELSE
							SELECTCASE RAND:4
							CASE 0
								PRINTFORML 「啊啦啦、突然用这种东西…会不好意思哟」
								PRINTFORML
							CASE 1
								PRINTFORML 「莫非、一直以来对其他人也是这副样子吗？」
								PRINTFORML 典露出了坏笑、看着%CALLNAME:MASTER%
							CASE 2
								PRINTFORML 「哦呀哦呀、热情似火呢」
								PRINTFORML 「要是是来自心上人的拥抱就好了…♪」
							CASE 3
								PRINTFORML 「\\100、\\200、\\300…」
								PRINTFORML 「你问是什么、当然是拥抱费了。莫非、你还以为这是免费的吗？」
							ENDSELECT
						ENDIF
						PRINTW
					ENDIF
				ENDIF
			ENDIF
		ENDIF
		TCVAR:352 += 1
	ENDIF

ENDIF
RETURN 1
;==================================================
;312,接吻
;TFLAG:193(99=拒絶(接吻不可) 1=大成功 0=成功 -1=失敗)
;CFLAG:诶嘿嘿==2&&TCVAR:20(32=前から抱きつく 50=手淫 60=接吻 性交(85=Ｖ挿入する 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ) 86=だいしゅき礼堂ド)
;PREVCOM(305=膝枕
;TFLAG:400(1=约会先or地底の路人が反応する)
;==================================================
@M_KOJO_SUCCESS_COM_K139_312
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K139_312
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K139_312_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K139_312_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSEIF CFLAG:睡眠
	ELSE
		IF FIRSTTIME("初吻")
			IF TALENT:恋人
				PRINTFORMW 「啊……」
				PRINTFORML 「呵呵、终于夺去\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐 # 典 \@的嘴唇了呢…%UNICODE(0x2665) *1%」
				PRINTW
				PRINTFORML 「真是的、都等了你好久了哟…%UNICODE(0x2665) *1%」
				PRINTFORML 「虽然很高兴你这么温柔的待我…但是有时也得强硬一点才好」
				PRINTW
			ELSEIF TALENT:恋慕
				PRINTFORMW 「啊……」
				PRINTFORML 「好高兴…%UNICODE(0x2665) *1%」
				PRINTFORML 「刚才、是\@ TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 ? 姐姐 # 典 \@的第一次哟…%UNICODE(0x2665) *1%」
				PRINTW
				IF TALENT:140:恋慕
					IF TALENT:140:無接吻経験
						PRINTFORML 「而且、比饭纲丸大人还要早…虽然心情很复杂、但我还是很高兴…%UNICODE(0x2665) *1%」
					ELSE
						PRINTFORML 「就算比饭纲丸大人要晚…\@ TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 ? 姐姐 # 典 \@也还是很高兴」
					ENDIF
				ENDIF
				PRINTFORML 「我还以为你对和我接吻不感兴趣、但是…我放心了」
				PRINTFORML 「如果可以允许我的任性的话…能不能再多满足一点我的要求呢…%UNICODE(0x2665) *1%」
				PRINTW
			ELSE
				PRINTFORMW 「……」
				PRINTFORML 「哎呀哎呀、还好还好」
				PRINTFORML 「我的初吻被夺走了呢…%UNICODE(0x2665) *1%」
				PRINTW
				IF TALENT:140:恋人
					IF TALENT:140:無接吻経験
						PRINTFORML 「连你的恋人饭纲丸大人都还没…真是没有节操的人啊…%UNICODE(0x2665) *1%」
					ELSE
						PRINTFORML 「有饭纲丸大人这样的恋人…%CALLNAME:MASTER%阁下真是、罪孽深重呢…%UNICODE(0x2665) *1%」
					ENDIF
					PRINTFORML 「嘛、对\@ TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 ? 姐姐 # 典 \@来说倒是捡了便宜…%UNICODE(0x2665) *1%」
				ELSEIF TALENT:140:恋慕 && TALENT:140:無接吻経験
					PRINTFORML 「饭纲丸大人要是知道了、也许会很震惊吧…%UNICODE(0x2665) *1%」
				ELSE
					PRINTFORML 「并没有不想、吗…这个、现在才说吗」
					PRINTFORML 典苦笑起来
				ENDIF
				PRINTW
				PRINTFORML 「不知不觉间、我的心情瞬间激动了起来」
				PRINTFORML 「真的吗？　如果是的话、我再、确认一次…？」
				PRINTW
			ENDIF
		ELSE
			IF CHK_DATENOW(CFLAG:139:约会中)
				IF K139_BE_SEEN()
					IF TCVAR:発情
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「哈姆HPH　啾库啾库HPH　啾噜HPH」","L"
						CALL HPH_PRINT,@"「哈啊～～…HPH　哈啊～～…HPH」","L"
						CALL HPH_PRINT,@"「公共场合…？　这种事、让他们看着就好了…HPH」","L"
						CALL HPH_PRINT,@"「比起那种事情、舌头的动作不要停下来…HPH　唾液、喝下去吧…HPH」","L"
						RESETCOLOR
						PRINTW
					ELSE
						CALL HPH_PRINT,@"「哈啊HPH　哈姆HPH　啾HPH」","L"
						CALL HPH_PRINT,@"「噗哈啊…HPH　已经是、公共场合了…HPH」","L"
						CALL HPH_PRINT,@"「忍不住了吗？　还是说、想让别人看到…HPH」","L"
					ENDIF
				ELSE
					IF TCVAR:発情
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「哈姆HPH　啾库啾库HPH　啾噜HPH」","L"
						CALL HPH_PRINT,@"「哈啊～～…HPH　哈啊～～…HPH」","L"
						CALL HPH_PRINT,@"「我本来、想忍耐一下的、可是煽风点火的是%CALLNAME:MASTER%阁下哟…HPH」","L"
						CALL HPH_PRINT,@"「付好责任、舌头的动作不要停下来…HPH　唾液、喝下去吧…HPH」","L"
						RESETCOLOR
						PRINTW
					ELSE
						CALL HPH_PRINT,@"「嗯HPH　啾HPH　啾…HPH」","L"
						IF TALENT:接吻魔
							CALL HPH_PRINT,@"「不行哦…HPH　必须要再做一些…HPH　啾…HPH」","L"
							CALL HPH_PRINT,@"「现在、只有我们两人…HPH　更多地、舌吻…HPH　嗯…HPH」","L"
							PRINTW
						ELSE
							CALL HPH_PRINT,@"「啾、啾…HPH」","L"
							IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行
								CALL HPH_PRINT,@"「嗯～～HPH　%CALLNAME:MASTER%阁下、真可爱HPHHPH」","L"
								CALL HPH_PRINT,@"「快点、多亲亲姐姐啊HPH」","L"
								IF TALENT:恋人
									PRINTFORML 「呵呵、我们可是恋人呢」
									PRINTFORML 「难得的约会、就多亲热亲热吧♪」
								ELSE
									CALL HPH_PRINT,@"「这可是难得的约会呀、肯定要独占%CALLNAME:MASTER%阁下啦…HPH」","L"
									CALL HPH_PRINT,@"「这次要不要和姐姐来做、大人的接吻呢…HPH」","L"
								ENDIF
								PRINTW
							ELSE
								IF TALENT:恋人
									CALL HPH_PRINT,@"「我们可是恋人呢…HPH　没什么好担心的HPH」","L"
									CALL HPH_PRINT,@"「再更多的、来做吧…HPH」","L"
								ELSE
									CALL HPH_PRINT,@"「现在只有我们两个人、有什么可担心的呢…HPH」","L"
									IF TALENT:恋慕
										IF TALENT:140:恋人
											PRINTFORML （饭纲丸大人的恋人…只有现在是…）
										ELSEIF TALENT:140:恋慕
											PRINTFORML （饭纲丸大人的朝思暮想之人呐…现在就请只看着我吧…）
										ENDIF
									ELSE
										IF TALENT:140:恋人
											PRINTFORML （呵呵…饭纲丸大人的恋人现在正沉迷于我的嘴唇…%UNICODE(0x2665) *1%）
											PRINTFORML （难不成是把我当成练习台了吗。还是说、改变了主意了呢）
											PRINTFORML （对我来说可以听到主人各种各样的事情肯定算得上是捡了大便宜呢…%UNICODE(0x2665) *1%）
										ELSEIF TALENT:140:恋慕
											PRINTFORML （饭纲丸大人肯定想都想不到吧）
											PRINTFORML （那位大人的朝思暮想之人、现在正贪图于典的嘴唇呢…%UNICODE(0x2665) *1%）
										ENDIF
									ENDIF
								ENDIF
							ENDIF
						ENDIF
					ENDIF
				ENDIF
			;约会してない
			ELSE
				IF K139_BE_SEEN()
					IF K139_FIND_AROUND() == 140
						IF TALENT:140:恋人
							CALL HPH_PRINT,@"「嗯HPH　嗯嗯HPH　哈啊…HPH」","L"
							CALL HPH_PRINT,@"「不得行呐、%CALLNAME:MASTER%阁下、在饭纲丸大人的面前…嗯嗯～～っHPH」","L"
							IF TALENT:恋慕
								CALL HPH_PRINT,@"（不行HPH　明明就在饭纲丸大人的面前HPH）","L"
								CALL HPH_PRINT,@"（作为女人、会沉浸在这份爱的优越感之中的…HPH）","L"
							ELSE
								CALL HPH_PRINT,@"（饭纲丸大人的、那张满是嫉妒的脸…HPH）","L"
								CALL HPH_PRINT,@"（虽然之后可能会被处罚…但还是想继续品味着甜美的唾液…HPH）","L"
							ENDIF
						ELSEIF TALENT:140:恋慕
							IF TALENT:恋人
								CALL HPH_PRINT,@"（怎么样呢饭纲丸大人、朝思暮想之人貌似爱的是我呢HPH）","L"
								CALL HPH_PRINT,@"（很痛苦呢。很难过呢。啊啊、要是看到那个表情了的话…HPHHPH）","L"
							ELSEIF TALENT:恋慕
								CALL HPH_PRINT,@"（就算对手是我敬爱的主人…只要能让这个人变成我的东西的话我是怎么都不会放手的）","L"
								CALL HPH_PRINT,@"（舌头再多多的缠绕上来吧…HPH　再多多的爱我吧…HPH）","L"
							ELSE
								CALL HPH_PRINT,@"（啊啊、啊啊、要是看到那位饭纲丸大人的表情了的话…！HPH）","L"
								CALL HPH_PRINT,@"（感觉好像只是看着那张脸就要绝顶了…HPH）","L"
							ENDIF
							PRINTW
						ELSE
							CALL HPH_PRINT,@"「嗯HPH　姆HPH　哈啊HPH　啊啊…HPH　真棒…HPH」","L"
							PRINTFORML 「啊、饭纲丸大人…您好…kon！？」
						ENDIF
					;なんか天狗勢に対して感じ悪くなっちゃったなぁ…
					ELSEIF K139_FIND_AROUND() == 29 && (TALENT:29:恋慕 || TALENT:29:恋人)
						CALL HPH_PRINT,@"「哈姆HPH　reroHPH　%CALLNAME:MASTER%阁下、还要…HPH」","L"
						;年齢だけでいえば文のほうが圧倒的に上だろうけど
						CALL HPH_PRINT,@"（呵呵、鸦天狗小姑娘的那个表情…HPH）","L"
						CALL HPH_PRINT,@"（受到%CALLNAME:MASTER%阁下最多宠爱的、有我一个人就够了…HPH）","L"
					ELSEIF K139_FIND_AROUND() == 42 && (TALENT:42:恋慕 || TALENT:42:恋人)
						CALL HPH_PRINT,@"「哈姆HPH　reroHPH　%CALLNAME:MASTER%阁下、舌头、还要…HPH」","L"
						IF TALENT:42:恋人 && TALENT:42:恋慕
							CALL HPH_PRINT,@"（呵呵、你的「亲爱的」痴迷于我的身姿怎么样呢…HPH）","L"
							CALL HPH_PRINT,@"「啾噗、啾…HPH　%CALLNAME:MASTER%阁下、你的夫人…嗯嗯…HPH」","L"
						ELSE
							CALL HPH_PRINT,@"（呵呵、第一次见到他人的情事吗…脸都变得通红了呢HPH）","L"
							CALL HPH_PRINT,@"（真是纯真呢…真可爱…HPH）","L"
						ENDIF
					ELSEIF K139_FIND_AROUND() == 65 && (TALENT:65:恋慕 || TALENT:65:恋人)
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、犬走阁下正、哼嗯嗯HPH　嗯姆HPH」","L"
						CALL HPH_PRINT,@"（犬走阁下那张悲伤的表情…啊啊、抗拒不了啊HPH）","L"
						CALL HPH_PRINT,@"（再让我看到更多的、更多悲痛的表情吧HPH　我的胸膛、正在高鸣…HPHHPH）","L"
					ELSE
						IF K139_FIND_LOVER() == 2
							CALL HPH_PRINT,@"「嗯HPH　啾HPH　哈啊HPHHPH」","L"
							CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、恋人大人、就在眼前…嗯嗯HPH」","L"
							CALL HPH_PRINT,@"（怎么样啊HPH　你的恋人、现在正痴迷的吸着典的嘴唇呢…HPHHPH）","L"
						ELSEIF K139_FIND_LOVER() == 1
							CALL HPH_PRINT,@"「嗯HPH　啾HPH　哈啊HPHHPH」","L"
							CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、好激烈…HPH　再做的、更多一点典吧…HPH」","L"
							SELECTCASE RAND:2
							CASE 0
								CALL HPH_PRINT,@"「把我当成你的恋人…再更加热情地、亲我…哈啊HPHHPH」","L"
							CASE 1
								CALL HPH_PRINT,@"「好、把嘴巴张開吧…rero…HPH　典的味道、怎么样…HPH」","L"
								CALL HPH_PRINT,@"「舌头、再缠绕地更加紧密一些给…HPH　对恋人那边、我会好好的帮你保密的…HPH」","L"
								CALL HPH_PRINT,@"「有外人…？　呵呵、那种家伙、无视就好了…HPH」","L"
							ENDSELECT
						ELSE
							IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行
								CALL HPH_PRINT,@"「啾HPH　啾HPH　啾露HPH　啾~~HPH」","L"
								CALL HPH_PRINT,@"「怎么啦？　很在乎周围的视线吗？」","L"
								PRINTW
								PRINTFORML 典鼓起了脸、钳住%CALLNAME:MASTER%的脸颊、把舌头塞了进去
								CALL HPH_PRINT,@"「啾~~HPH　嗯HPH　嗯HPH　呼HPH　reroreroHPHHPH」","L"
								CALL HPH_PRINT,@"「哈啊啊…HPH　哈哈、已经除了姐姐什么都看不到了吧…HPH」","L"
								CALL HPH_PRINT,@"「真是个好孩子呢…HPH　那么就、继续吧…HPH」","L"
								PRINTW
							ELSE
								CALL HPH_PRINT,@"「嗯HPH　嗯HPH　呼HPH　啾、啾HPH」","L"
								PRINTFORML 「…怎么了呢？　很在乎周围的视线吗？」
								PRINTW
								CALL HPH_PRINT,@"「呵呵、想看的话就让他们看吧…HPH」","L"
								CALL HPH_PRINT,@"「那么、再给我一个好像会融化我一样的吻吧…啾HPH」","L"
								PRINTW
							ENDIF
						ENDIF
					ENDIF
				;约会していない・二人きり
				ELSE
					IF TALENT:140:恋人
						IF TALENT:恋慕
							CALL HPH_PRINT,@"「还请您…能向饭纲丸大人、保密…哈姆、啾、rero…HPH」","L"
							CALL HPH_PRINT,@"「就只限现在、请只爱\@ TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 ? 姐姐 # 典 \@一个人吧…HPH」","L"
						ELSE
							CALL HPH_PRINT,@"「哈啊HPH　啾、嗯嗯…HPH」","L"
							CALL HPH_PRINT,@"「哈啊…HPH　抛開饭纲丸大人的偷偷摸摸的幽会…真是令人心动不已啊HPH」","L"
							PRINTW
							CALL HPH_PRINT,@"「可以的哟、这件事、是%CALLNAME:MASTER%阁下和\@ TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 ? 姐姐 # 典 \@之间的秘密…HPH」","L"
							CALL HPH_PRINT,@"「那么、再给我一个好像会融化我一样的吻吧…嗯嗯…HPH」","L"
						ENDIF
						PRINTW
					ELSEIF TALENT:29:恋人
						CALL HPH_PRINT,@"「啾…啾唷、啾、嗯HPH」","L"
						CALL HPH_PRINT,@"「哈啊…HPH　要我和射命丸阁下保密吗…？　要怎么办呢…HPH」","L"
						CALL HPH_PRINT,@"「要是想让\@ TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 ? 姐姐 # 典 \@保密的话、就请把我的嘴巴堵上吧…嗯嗯HPH」","L"
						PRINTW
					ELSEIF TALENT:42:恋人
						CALL HPH_PRINT,@"「啾…啾唷、啾、嗯HPH」","L"
						CALL HPH_PRINT,@"「都已经做到这个份上了、现在还说要跟姬海棠阁下保密什么的…HPH」","L"
						CALL HPH_PRINT,@"「要是想让我保密的话、就再给我点封口费吧…HPH　嗯HPH　哼HPH」","L"
						PRINTW
					ELSEIF TALENT:65:恋人
						CALL HPH_PRINT,@"「啾…啾唷、啾、嗯HPH」","L"
						CALL HPH_PRINT,@"「犬走阁下现在、说不定正用着千里眼窥视着我们呢…HPH」","L"
						PRINTW
						CALL HPH_PRINT,@"「開个玩笑哟HPH　当真了吗？」","L"
						CALL HPH_PRINT,@"「啊呀、表情真恐怖呢…HPH　嗯嗯HPH　哼HPH　哼哼HPH」","L"
						PRINTW
					ELSE
						IF K139_FIND_LOVER() == 1
							CALL HPH_PRINT,@"「嗯HPH　哼HPH　嗯嗯HPH　哈啊…HPH」","L"
							CALL HPH_PRINT,@"「呵呵、这可真是一个非常有激情的吻呢…HPH」","L"
							CALL HPH_PRINT,@"「和恋人大人也一直是这么吻的吗？　还是说…HPH」","L"
							CALL HPH_PRINT,@"「诶诶、这都只是些小事罢了…那么、继续吧…啾、啾唷…HPH」","L"
							PRINTW
						;典以外に恋人無
						ELSE
							IF TALENT:恋人
								CALL HPH_PRINT,@"「嗯、嗯…哈啊HPH」","L"
								IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行
									SELECTCASE RAND:3
									CASE 0
										CALL HPH_PRINT,@"「很熟练哟…HPH」","L"
									CASE 1
										CALL HPH_PRINT,@"「姐姐我啊、要被这个吻给击坠啦…HPH」","L"
									CASE 2
										CALL HPH_PRINT,@"「怎么样、恋人嘴唇的味道…HPH」","L"
									ENDSELECT
								ELSE
									SELECTCASE RAND:3
									CASE 0
										CALL HPH_PRINT,@"「典、现在非常的幸福…HPH」","L"
									CASE 1
										CALL HPH_PRINT,@"「还要、再多做一点吗…HPH」","L"
									CASE 2
										CALL HPH_PRINT,@"「还不够呢…HPH」","L"
									ENDSELECT
								ENDIF
							ELSEIF TALENT:恋慕
								CALL HPH_PRINT,@"「啊姆、rero…HPH」","L"
								CALL HPH_PRINT,@"「噗啊…HPH　%CALLNAME:MASTER%阁下…HPH」","L"
								SELECTCASE RAND:3
								CASE 0
									CALL HPH_PRINT,@"「我好高兴…好像在做梦一样HPH」","L"
								CASE 1
									CALL HPH_PRINT,@"「还要、再多做一点吗…HPH」","L"
								CASE 2
									CALL HPH_PRINT,@"（啊啊、不行…喜欢这个人的心情、要溢出来了…HPH）","L"
								ENDSELECT
							ELSE
								CALL HPH_PRINT,@"「…んっ、んっ、嗯嗯…HPH」","L"
								IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行
									CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、很擅长呢…HPH」","L"
									CALL HPH_PRINT,@"「看呐、姐姐的胸口、现在正小鹿乱撞个不停呢…HPH」","L"
									PRINTW
									PRINTFORML 典握住%CALLNAME:MASTER%的手、放到了自己的胸前
									CALL HPH_PRINT,@"「看、咚咚、咚咚地跳着吧…HPH」","L"
									CALL HPH_PRINT,@"「想让%CALLNAME:MASTER%阁下让我变得更加小鹿乱撞…不行吗？HPH」","L"
									PRINTFORML 听到典的恳求、%CALLNAME:MASTER%再次将双唇重叠…
								ELSE
									CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、很擅长呢…HPH」","L"
									SELECTCASE RAND:3
									CASE 0
										PRINTFORML 典那湿润的颜色看向了%CALLNAME:MASTER%…
									CASE 1
										PRINTFORML 从典的嘴唇里悄咪咪伸出来的那湿润的舌头、正在诱惑着%CALLNAME:MASTER%…
									CASE 2
										PRINTFORML 一边和典对视着一边用黏黏糊糊的舌头互相缠绕起来…
									ENDSELECT
								ENDIF
							ENDIF
						ENDIF
					ENDIF
				ENDIF
			ENDIF
		ENDIF
		TCVAR:352 += 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;313,胸愛撫
;CFLAG:诶嘿嘿==2&&TCVAR:20(27=谷間を見せる 33=胸を揉ませる 53=乳交(小分岐は地の文EVENT_MESSAGE_COM_性騷擾.ERB参照) 73=ぱふぱふ 77=乳を吸わせる 性交(85=Ｖ挿入する 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ) 86=だいしゅき礼堂ド)
;ABL:Ｂ感覚(2未満=性的には感じてない 5未満=多少感じてる 5以上=カイカン)
;TFLAG:400(1=约会先or地底の路人が反応する)
;乳の尺寸でも変わる場合があるので、地の文EVENT_MESSAGE_COM_性騷擾.ERB参照
;==================================================
@M_KOJO_SUCCESS_COM_K139_313
;成否判定
;TFLAG:192(-1＝強制失敗
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K139_313
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K139_313_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K139_313_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSEIF CFLAG:睡眠
	ELSE
		IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行
			;執拗に胸を弄る
			IF PREVCOM == SELECTCOM
				IF ABL:Ｂ感覚 >= 2
					CALL HPH_PRINT,@"「嗯HPH　哈咿HPH　啊、咕HPH」","L"
					SELECTCASE RAND:2
					CASE 0
						CALL HPH_PRINT,@"「在哪里学会了这样的恶作剧…咕呜HPHHPH」","L"
					CASE 1
						CALL HPH_PRINT,@"「从刚才開始、就一直执拗地摩擦着姐姐的乳头、真是的…HPH」","L"
					CASE 2
						CALL HPH_PRINT,@"「喂…HPH　一直对乳头、不行…HPH」","L"
					ENDSELECT
				ELSE
					CALL HPH_PRINT,@"「真是的HPH　有这么喜欢吗…HPH」","L"
				ENDIF
			;接吻からの胸愛撫
			ELSEIF PREVCOM == 312
				CALL HPH_PRINT,@"「哼HPH　哼嗯HPH　嗷…HPHHPH」","L"
				SELECTCASE RAND:2
				CASE 0
					PRINTFORML 为了让典投降、一边亲吻一边爱抚着胸部
					CALL HPH_PRINT,@"「哼嗯HPH　啾HPH　啾露HPH　呀啊、不能松手哟、继续、再继续…HPHHPH」","L"
					PRINTFORML …看来反而让她高兴起来了
					PRINTW
				CASE 1
					PRINTFORML 一边搓揉着典的胸部、一边数次让嘴唇交错
					CALL HPH_PRINT,@"「啾露露HPH　啾唷唷唷唷HPHHPH　HPH　HPH　嗯HPH　呼HPH　呼HPH」","L"
					PRINTFORML 就好像打開了典的什么開关一样、被反过来贪婪地夺走了嘴唇…
					PRINTW
				ENDSELECT
			ELSE
				CALL HPH_PRINT,@"「欧派、很喜欢吗…HPH」","L"
				CALL HPH_PRINT,@"「呵呵、可以随你喜欢的摸哟…HPH」","L"
			ENDIF
		ELSE
			;執拗に胸を弄る
			IF PREVCOM == SELECTCOM
				IF ABL:Ｂ感覚 >= 2
					CALL HPH_PRINT,@"「嗯HPH　哈咿HPH　啊、咕HPH」","L"
					SELECTCASE RAND:2
					CASE 0
						CALL HPH_PRINT,@"「不行的HPH　这样子、一直对着乳头HPH　用手指HPHHPH」","L"
					CASE 1
						CALL HPH_PRINT,@"「从刚才開始、就一直执拗地摩擦着典的乳头、真是的…HPH」","L"
					CASE 2
						CALL HPH_PRINT,@"「哼HPH　啊、啊啊…HPH　一直对着乳头、怎么会啊…HPH」","L"
					ENDSELECT
				ELSE
					CALL HPH_PRINT,@"「那个…要是被那样一直弄的话会感觉很奇怪…HPH」","L"
					CALL HPH_PRINT,@"（可能稍微、变得舒服起来了也说不定…HPH）","L"
				ENDIF
			;接吻からの胸愛撫
			ELSEIF PREVCOM == 312
				CALL HPH_PRINT,@"「哼HPH　哼嗯HPH　～～～～～HPHHPH」","L"
				SELECTCASE RAND:2
				CASE 0
					PRINTFORML 堵住典的嘴唇、从后面用手指爱抚着乳頭、她的全身都在随之颤抖
				CASE 1
					PRINTFORML 一边揉着典的胸部、一边让黏黏糊糊的舌头侵入典的嘴唇…
				ENDSELECT
			ELSE
			ENDIF
		ENDIF
		TCVAR:352 += 1
	ENDIF

ENDIF
RETURN 1
;==================================================
;314,肛門愛撫
;CFLAG:诶嘿嘿==2&&TCVAR:20(72=肛門奉仕
;CFLAG:诶嘿嘿==2&&TEQUIP:六九式(胖次ありTCVAR:20(70～72)はこちら)
;ABL:Ａ感覚(2未満=受け入れられない 4未満=異物感に翻弄 4以上=カイカン)
;TFLAG:400(1=约会先or地底の路人が反応する)
;==================================================
@M_KOJO_SUCCESS_COM_K139_314
;成否判定
;TFLAG:192(-1＝強制失敗
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K139_314
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K139_314_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K139_314_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;誰かいる
	IF K139_BE_SEEN()
		;龍が目の前にいる
		IF K139_FIND_AROUND() == 140
			PRINTFORML 隔着典的衣服、用指头挤进她的菊穴中挖弄着
			IF TALENT:139:尻穴狂
				PRINTFORML （%CALLNAME:MASTER%阁下、不要这样、在饭纲丸大人的面前）
				PRINTFORML 虽然典小声斥责着、但还是无视了她的话把手指捅进了菊穴之中
				PRINTW
				PRINTFORML
				CALL HPH_PRINT,@"「啊HPH　哈哦HPH」","L"
				PRINTFORML
				PRINTW
				PRINTFORML 典在敬爱的主人面前漏出了下流的喘息声
				CALL HPH_PRINT,@"「啊…啊哈…哈…HPH」","L"
				PRINTW
				PRINTFORML 被带着明显怀疑的视线注视着、典整个脸变得通红、绷着脸满眼含泪
				CALL HPH_PRINT,@"「饭纲丸大人、不是的、刚刚只是啊HPH啊HPH啊～～～～HPH」","L"
				PRINTW
				PRINTFORML 一边做出一副担心典的表情、一边多塞了一根手指进去、典毫无反抗之力地陷落了
				CALL HPH_PRINT,@"「咕行HPH　在发纲丸噶人的慢前HPH　被手指咕叽咕叽地挖着HPH」","L"
				PRINTW
			ELSE
				IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
					SELECTCASE ABL:Ａ感覚
					;カイカン
					CASE IS >= 4
						CALL HPH_PRINT,@"「进啊HPH　来了嗯HPH　就是这样HPH」","L"
						CALL HPH_PRINT,@"「声音很奇怪吗HPH　那种事情HPH　不存在的哟HPH」","L"
						PRINTW
						PRINTFORML 典说不定是想将错就错、尽力隐藏着声音里那妖艳的吐息、和龙继续对话起来
						PRINTFORML 典的肛肉紧紧地压迫着%CALLNAME:MASTER%的手指
						PRINTW
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下会不管他人的视线地玩弄女孩子的尻穴什么的、怎么可能呢HPH」","L"
						PRINTFORML 典不经意间暴露了自己的行为
						PRINTFORML 龙提心吊胆地看着典、就像是看到了道路中间的呕吐物一样蔑视了起来…
						PRINTW
					;異物感に翻弄
					CASE IS >= 2
						PRINTFORML 「好的、那么啊嗯！？」
						PRINTFORML 绕到在和龙对话中的典后面、把手指插进了尻穴
						PRINTFORML 被典着突然发疯似的叫声吓到、龙有点害怕
						PRINTW
						PRINTFORML 「啊、不好意思…突然发出了奇怪的声音…请继续吧…」
						PRINTFORML 虽然被典斜了一眼、但完全装作不知道一样来回玩弄起窄穴
						PRINTW
						PRINTFORML 「好嗷嗷、如果哦、可、可以的话啊嗯…」
						PRINTFORMW （就只有在这种时候积极的要命…！）
						PRINTFORML 「啊、不、就是～～～～っ、身体、稍微有点、不舒服而已…」
						PRINTFORML （坏孩子等会要好好惩罚惩罚才行了…！）
						PRINTW
					;受け入れられない
					CASEELSE
						PRINTFORML 「唔哦！？」
						PRINTFORML 绕到集中注意力与龙的对话的典的身后、用手指開始了浣腸
						PRINTW
						PRINTFORML 「%CALLNAME:MASTER%阁・下～～～～～～～～？」
						PRINTFORML 被虽然露出了笑脸但完全看不出笑意的典给裸绞了…
					ENDSELECT
				ELSE
					SELECTCASE ABL:Ａ感覚
					;カイカン
					CASE IS >= 4
						PRINTFORML 滋噗…
						CALL HPH_PRINT,@"「唔…嗯…HPH」","L"
						PRINTFORML 　弩嘭…
						CALL HPH_PRINT,@"「哈啊～～～～…っHPH　哈啊～～～～っ…HPH」","L"
						PRINTFORML 滋噗…
						CALL HPH_PRINT,@"「啊…嗯…HPH」","L"
						PRINTFORML 　弩嘭…
						CALL HPH_PRINT,@"「HPH　啊啊…HPH」","L"
						PRINTW
						PRINTFORML 也不知道典自己有没有注意到、她在龙的面前露出了十分淫荡的表情
						PRINTFORML 虽然被表示担心的龙给搭话了、但典已经完全心不在焉了
						PRINTW
					;異物感に翻弄
					CASE IS >= 2
						PRINTFORML 「唔咕、啊唔唔…」
						PRINTFORML 典用眼神述说着「%CALLNAME:MASTER%阁下、这可不行」
						PRINTFORML 无视典无言的诉讼、把手指伸进了肛門的更深处
						PRINTW
						PRINTFORML 「嗯呜呜呜…啊呜呜呜…不、饭纲丸、大人…典、没事、的…♪」
						PRINTFORML （手指…在尻穴里暴动着…插进更深处、不行…）
						PRINTW
					;受け入れられない
					CASEELSE
						PRINTFORML 「咕、唔……%CALLNAME:MASTER%阁下、这里是…」
						PRINTFORML 或许是那里还没有用习惯、肛門被手指插入、典的表情扭曲起来
						PRINTFORML 「啊…饭纲丸大人、不好意思、请、继续、谈、谈谈…」
						PRINTW
					ENDSELECT
				ENDIF
			ENDIF
		;龍以外
		ELSE
		ENDIF
	;誰也不在
	ELSE
		IF TALENT:139:心情 == -1 || CFLAG:139:ブチギレ == 1
			IF TALENT:恋慕 || TALENT:恋人
				SELECTCASE ABL:Ａ感覚
				CASE IS >= 4
					SELECTCASE TCVAR:363
					CASE IS > 10
						CALL HPH_PRINT,@"「都说了、不行噫噫HPH」","L"
						CALL HPH_PRINT,@"「我已经不生气了HPH　不生气了啦HPH　那样子、是不行的啊HPHHPH」","L"
						SIF TALENT:139:心情 == -1
							TALENT:139:心情 = 0
						SIF CFLAG:139:ブチギレ == 1
							CFLAG:139:ブチギレ = 0
					CASE IS > 5
						PRINTFORML 「都、都说了不行了啦…」
					CASEELSE
						PRINTFORML 「だ、駄目…\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? お姉ちゃん # 典 \@、怒ってるんですから…」
					ENDSELECT
					PRINTW
				CASEELSE
					SELECTCASE TCVAR:363
					CASE IS > 10
						PRINTFORML 「请给我差不多一点…！」
					CASE IS > 5
						PRINTFORML 「这样的、我不喜欢…」
					CASEELSE
						PRINTFORML 「我不喜欢…请停下来」
					ENDSELECT
					PRINTW
				ENDSELECT
			ELSE
				SELECTCASE ABL:Ａ感覚
				CASE IS >= 4
					;エロは心情を救う
					SELECTCASE TCVAR:363
					CASE IS > 10
						CALL HPH_PRINT,@"「我、我知道了啦HPH　心情、会好起来了啦HPH」","L"
						CALL HPH_PRINT,@"「屁股HPH　糟糕了HPH　唔噫HPH」","L"
						SIF TALENT:139:心情 == -1
							TALENT:139:心情 = 0
						SIF CFLAG:139:ブチギレ == 1
							CFLAG:139:ブチギレ = 0
					CASE IS > 5
						CALL HPH_PRINT,@"「现、现在、不行…HPH」","L"
					CASEELSE
						CALL HPH_PRINT,@"「连、连那种地方都…HPH」","L"
					ENDSELECT
					PRINTW
				CASEELSE
					SELECTCASE TCVAR:363
					CASE IS > 10
						PRINTFORML 「你给我、等着…」
					CASE IS > 5
						PRINTFORML 「都、都叫你停下来…咕唔唔！」
					CASE IS > 2
						PRINTFORML 「请给我停下来…我要生气了、唷…！」
					CASEELSE
						PRINTFORML 「咕唔唔、%CALLNAME:MASTER%阁下、请…停下来」
					ENDSELECT
					PRINTW
				ENDSELECT
			ENDIF
		;二人きりならお菊门でも強気なお姉ちゃん
		ELSEIF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
			SELECTCASE ABL:Ａ感覚
			CASE IS >= 4
				SELECTCASE RAND:2
				CASE 0
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下啊…快一点HPH」","L"
				CASE 1
					CALL HPH_PRINT,@"「居然敢挑逗姐姐我、太嚣张了…HPH」","L"
				ENDSELECT
				PRINTW
				IF TALENT:尻穴狂
					CALL HPH_PRINT,@"（我的屁穴、已经被%CALLNAME:MASTER%改造成了H的穴啦…HPH）","L"
					CALL HPH_PRINT,@"（不过也是、屁穴被小鸡鸡一遍又一遍的突刺、拿肯定会记住形状的啊…HPH）","L"
					PRINTW
				ELSE
					CALL HPH_PRINT,@"（我的屁穴、已经被%CALLNAME:MASTER%调教完全了啊…HPH）","L"
					CALL HPH_PRINT,@"（不过也是呢。虽然表面装的一点事情都没有、实际上已经去了好多次了啊…HPH）","L"
					PRINTW
				ENDIF
					IF !EQUIP:連体内衣
						PRINTFORML 将手指\@ CFLAG:139:没穿内裤 ? 插进什么遮挡都没有的 # 越过内衣插进 \@肛门之中
						CALL HPH_PRINT,@"「哦、哦哦哦哦哦……HPH」","L"
						PRINTFORML 很明显、典这声音是尻穴被玩弄时发出的雌性的叫声
						PRINTW
						CALL HPH_PRINT,@"「可、可以哟…就这样、继续下去…HPH」","L"
						CALL HPH_PRINT,@"「HPH　HPH　～～～～HPHHPHHPHHPH」","L"
						PRINTW
						CALL HPH_PRINT,@"「怎么可能、会去呢嗯嗯…HPH　快点、再往、深处一点HPH」","L"
						CALL HPH_PRINT,@"「呼～～HPH　呼～～HPH　你可、真敢做啊…HPH」","L"
						PRINTW
					ELSEIF EQUIP:連体内衣
						PRINTFORML %CALLNAME:MASTER%的手指越过衣服插进了典的肛门
						CALL HPH_PRINT,@"（这种做坏事的感觉虽然不错…但是感觉有点不大舒服…HPH）","L"
						CALL HPH_PRINT,@"（早知道这样的话、我就应该穿裙子来的…）","L"
						PRINTFORML 没有获得意料之中的快感、典露出了有点遗憾的表情
						PRINTW
					ENDIF
			CASE IS >= 2
				SELECTCASE RAND:2
				CASE 0
					PRINTFORML 「拜托你了哟…%UNICODE(0x2665) *1%」
				CASE 1
					PRINTFORML 「请温柔一点…%UNICODE(0x2665) *1%」
				ENDSELECT
					PRINTFORML 典朝%CALLNAME:MASTER%撅起屁股
					PRINTW
					IF !EQUIP:連体内衣
						PRINTFORML 用手指\@ CFLAG:139:没穿内裤 ? 爱抚什么遮挡都没有的 # 越过内衣爱抚 \@肛门
						PRINTFORML 「嗯…%UNICODE(0x2665) *1%」
						PRINTFORML 同以往相比、典的声音变得更加妖艳
						PRINTW
						PRINTFORML 「好舒服…明明还没有要去、却有一股痒痒的、轻飘飘的感觉…%UNICODE(0x2665) *1%」
						PRINTFORML 「没关系的哟、请继续吧…%UNICODE(0x2665) *1%」
						PRINTW
					ELSE
						PRINTFORML %CALLNAME:MASTER%隔着衣服爱抚着典的肛门
						PRINTFORML 「既然这样的话…就应该穿点更好脱的衣服来的」
						PRINTFORML 没有获得意料之中的快感、典露出了有点遗憾的表情
						PRINTW
					ENDIF
			CASEELSE
				IF FIRSTTIME(SELECTCOM)
					PRINTFORML 「嘛…对姐姐的菊门有兴趣什么的…」
					PRINTFORML 「%CALLNAME:MASTER%阁下可真是个不得了的变态先生呢…%UNICODE(0x2665) *1%」
					PRINTW
					;指が未熟だと愛撫する発想がない
					IF ABL:MASTER:指 < 2
						PRINTFORML 「但是、菊门的话就算是姐姐也多少有点呃嗯！？」
						PRINTFORML 典的尻穴因全力的浣腸而炸裂了
						PRINTW
						PRINTL …………
						PRINTL ……
						PRINTL …
						PRINTW
						PRINTFORML 「怎么能突然对女孩子做那种事情呢！　菊门可是很娇嫩的！」
						PRINTFORML 之后、跪在地上被典说教了…
						PRINTW
						PRINTFORML 「幸亏我是个妖怪、要是是人类的话可能会因为肛门裂伤而死的喔」
						PRINTFORML 「女孩子的身体要好好关心！　知道了吗！」
						PRINTW
						PRINTFORML 「……知道就好。做这种事情的人可是会被女孩子讨厌的哟」
						PRINTFORML 「反正都要做的话、请做一个会让女孩子舒服的人」
						PRINTFORML 表示了解地点点头之后、典就「这就好」地抚摸了%CALLNAME:MASTER%的头
						PRINTW
					ELSE
						IF EXP:Ａ経験 == 0
							PRINTFORML 「对了、典完全没有这方面的经验的说…还请手下留情…」
							PRINTFORM 从背后靠近典、
							IF !EQUIP:連体内衣
								PRINTFORML 用手指\@ CFLAG:139:没穿内裤 ? 爱抚什么遮挡都没有的 # 越过内衣爱抚 \@肛门
								PRINTFORML 「嗯…感觉、真奇怪呢…」
								PRINTW
								PRINTFORML 没有感觉、但也没有厌恶的样子。就这么不继续勉强地、在入口处用指腹做起按摩
								PRINTFORML 「舒服…虽然没有。但有种奇怪的感觉…」
								PRINTW
								PRINTFORML 「那是当然的吧…不论对方是谁都能献上身体什么的事情、我可没有在做…」
								PRINTFORML 「只有%CALLNAME:MASTER%阁下一个人哟…可以触摸屁股这种害羞的地方的人、…」
								PRINTW
								PRINTFORML 感觉像是收到了特殊的对待一样、情不自禁的往玩弄尻穴的手上多使了一点劲
								PRINTFORML 「啊呜！　%CALLNAME:MASTER%阁下、那、那个、稍微…」
								PRINTFORML 看来有点太用力了…向典谢罪了
								PRINTW
							ELSE
								PRINTFORML 隔着衣服爱抚起了肛门
								PRINTFORML 「怎么说呢…屁股一直都是硬邦邦的、舒服什么的、这种东西…」
								PRINTFORML 典一副感觉不大好的样子。看来真的不舒服的样子…
								PRINTW
								PRINTFORML 「真遗憾、姐姐我貌似没有这边的天赋的样子…」
								PRINTFORML 「虽然是这么说、但要是训练训练的花说不定就会舒服起来了呢」
								PRINTW
								PRINTFORML 「%CALLNAME:MASTER%阁下、你想不想、开发姐姐的屁股呢…？」
								CALL ASK_YN("想","唔～嗯…")
								IF !RESULT
									PRINTFORML 「如果%CALLNAME:MASTER%阁下想的话…可以的哟…%UNICODE(0x2665) *1%」
									PRINTFORML 「把姐姐变成可以用屁股感觉起来的人吧…%UNICODE(0x2665) *1%」
								ELSE
									PRINTFORML 「诶诶～…这里应该说『我会用我那自豪的技术让你嘤嘤淫叫的』才对吧…」
									PRINTFORML 想被搞的嘤嘤淫叫吗…%CALLNAME:MASTER%在想
									PRINTW
									PRINTFORML 「既然让我上了你这艘贼船、就给我开到终点啊」
									PRINTFORML 「要是说%CALLNAME:MASTER%阁下的话、姐姐我也不是很讨厌啦、呐…%UNICODE(0x2665) *1%」
									PRINTW
								ENDIF
							ENDIF
						;ほぼ未開発
						ELSE
							PRINTFORML 「唔唔、咕…果然、我还没有习惯…」
							PRINTFORML 「嘛啊、说到底这里也就不是什么应该塞东西进去的地方呢…」
							PRINTW
							PRINTFORML 确实、这边应该是放东西出去的
							PRINTFORML 「真是的、我好不容易才忍住不说的…老是说下流梗可是会被女孩子讨厌的哦…」
							PRINTW
						ENDIF
					ENDIF
				;2回目以降
				ELSE
					PRINTFORML 「唔唔、咕…果然、我还没有习惯…」
							PRINTFORML 「嘛啊、说到底这里也就不是什么应该塞东西进去的地方呢…」
							PRINTW
							PRINTFORML 确实、这边应该是放东西出去的
							PRINTFORML 「真是的、我好不容易才忍住不说的…老是说下流梗可是会被女孩子讨厌的哦…」
					PRINTW
				ENDIF
			ENDSELECT
		;大人
		ELSE
			SELECTCASE ABL:Ａ感覚
			CASE IS >= 4
				IF TALENT:尻穴狂
					CALL HPH_PRINT,@"「啊HPH%UNICODE(0x2665) *1%　啊HPH%UNICODE(0x2665) *1%」","L"
					CALL HPH_PRINT,@"「HPH　HPHHPH　HPHHPH　～～～～～～～～HPHHPH」","L"
					PRINTW
					CALL HPH_PRINT,@"「哦、哦哦…HPH　辣、辣种事情、才美有啦…HPH」","L"
					CALL PRINT_FACE, [[典]], "自慰", "裸", "", ""
					PRINTFORML 指出她明明露出了这么淫荡的表情、半点说服力都没有
					PRINTW
					CALL HPH_PRINT,@"「哈啊～～、哈啊～～HPH　な、な゛にい゛っでるんですかぁ…HPH」","L"
					CALL HPH_PRINT,@"「你这人也太傻了吧、只是把手指插进去而已、怎么可能会…舒服起来呢HPH」","L"
					PRINTW
					PRINTFORML 露骨的廉价挑衅。当然、真正的意图看眼睛就知道了
					PRINTFORML 这么想要的话我就给你做好了、地更典说了之后、典含着泪、笑了起来
					PRINTW
				ELSE
					CALL HPH_PRINT,@"「啊HPH　咦噫HPH」","L"
					CALL HPH_PRINT,@"「啊、啊、啊啊啊～～～～HPHHPH」","L"
					PRINTW
					CALL HPH_PRINT,@"（好舒服呜呜HPH）","L"
					CALL HPH_PRINT,@"（屁股被咕啾咕啾地玩弄着、好舒服喔喔HPH）","L"
					PRINTW
					PRINTFORMW 把插进肛门的手指连根插入
					CALL HPH_PRINT,@"「吼哦哦～～HPH　哦哦哦～～～～HPH」","L"
					PRINTW
					PRINTFORMW 一边扭动着连根插入的手指一边拔了出来
					CALL HPH_PRINT,@"「ひ、いぃっHPH」","L"
					PRINTW
					CALL HPH_PRINT,@"「已、已经不行了、停下来呀…」","L"
					CALL HPH_PRINT,@"（再多做一点、让我用屁股到达顶点HPH）","W"
					CALL HPH_PRINT,@"「再这么继续下去的话、就要用屁股、变得奇怪起来了…」","L"
					CALL HPH_PRINT,@"（把我变奇怪吧、把那根手指、像小鸡鸡一样扭到起来吧HPH）","L"
					CALL HPH_PRINT,@"「不行、不行不行不行、不呀────」","W"
					CALL HPH_PRINT,@"（进来、了啊…HPH）","L"
					PRINTW
				ENDIF
			CASE IS >= 2
				PRINTFORML 「呜唔呜呜呜～、呜、呜唔唔」
				PRINTFORML （痛苦虽然大幅降低了、但屁股感觉好奇怪…）
				PRINTW
				PRINTFORML 「呵、呵呵、这、这种程度半点问题都不会有的哟…♪」
				PRINTFORML 「该不会是%CALLNAME:MASTER%阁下的抚摸方式不大对呢…♪」
				PRINTW
				PRINTFORML 被典的挑衅给惹火了、…
				CALL ASK_YN("咕呖咕呖地开始挖尻穴","让手指在里面nechinechi地反复抽插")
				IF !RESULT
					PRINTFORML 「哦~！？　等、不、啊啊啊啊啊」
					PRINTFORML 「还、好奇怪、啊、咕呜呜呜呜！？」
					PRINTFORML 「对不、对不起噫～～～～～～～」
					PRINTW
				ELSE
					PRINTFORML 「哦…」
					PRINTFORML 「呼唔…」
					PRINTW
					PRINTFORML 「等、等等…」
					PRINTFORML 「那样慢慢地…呜、呜呜、呜呜呜」
					PRINTW
				ENDIF
			CASEELSE
				IF FIRSTTIME(SELECTCOM)
					PRINTFORML 「KON！？」
					PRINTFORML 开始摩挲起尻穴之后、典的身体变得僵硬起来
					PRINTW
					IF EXP:Ａ経験 == 0
						PRINTFORML 「那个…%CALLNAME:MASTER%阁下…要摸的话是不是找做位置了呢…」
						PRINTFORML 看到了典露出了罕见的狼狈表情、十分有趣、于是无视她的反应继续摸了起来
						PRINTW
						PRINTFORML 「请你不要再胡闹了…咕呜…」
						PRINTFORML 「那个……如果怎么都想要摸的话、请手下留情一点…」
						IF TALENT:恋慕 || TALENT:恋人
							PRINTFORML （一副知道我没有这方面的经验而玩得很高兴的表情诶…）
						ELSE
							PRINTFORML （一副貌似在想着什么不好的事情的表情呢…）
						ENDIF
						PRINTW
					ELSE
						PRINTFORML 「那个、%CALLNAME:MASTER%阁下、这种地方多少还是有点…」
						PRINTFORML 「呜呜…请你、不要把手指、扭进来…」
						PRINTFORML 「我明白了…我知道了啦…再稍微…」
						PRINTW
					ENDIF
				ELSE
					PRINTFORML 「也、也对呢…要是现在稍微习惯起来了的话、以后也会更好一点呢…♪」
					PRINTFORML （还、没习惯呢…这种感觉…）
					IF TALENT:恋慕 || TALENT:恋人
						PRINTFORML （但是、如果%CALLNAME:MASTER%阁下在渴求着我的尻穴的话…现在就、忍耐一下…）
					ELSE
						PRINTFORML （跟有奇特兴趣的人相处可真困难呢…！）
						PRINTFORML （嘛、我也不是说就是对屁股没有兴趣就是了、只是要习惯还有点…困难）
					ENDIF
					PRINTW
				ENDIF
			ENDSELECT
		ENDIF
	ENDIF
	;肛門愛撫回数
	TCVAR:363 += 1
	;性騷擾回数
	TCVAR:352 += 1
ENDIF
RETURN 1
;==================================================
;315,陰蒂愛撫
;CFLAG:诶嘿嘿==2&&TCVAR:20(35=裙子の中を見せる 70=強制舐陰 85=Ｖ挿入する 86=だいしゅき礼堂ド 87=Ａ挿入する 88=腰振りＶ 89=腰振り
;ABL:Ｃ感覚(4未満=くすぐったい 6未満=稍微いいかも 6以上=カイカン)
;TFLAG:400(1=约会先or地底の路人が反応する)
;==================================================
@M_KOJO_SUCCESS_COM_K139_315
;成否判定
;TFLAG:192(-1＝強制失敗
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K139_315
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K139_315_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K139_315_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSEIF CFLAG:睡眠
	ELSE
		TCVAR:352 += 1
		TCVAR:364 += 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;316,指挿入れ
;CFLAG:诶嘿嘿==2&&TCVAR:20(35=裙子の中を見せる 70=強制舐陰 87=Ａ挿入する 89=腰振りＡ
;TALENT:処女(指挿入れ連続時喪失注意、基本拒否ぎみ)
;ABL:Ｖ感覚(1未満=違和感に戸惑う 5未満=稍微気持ちいい 5以上＝カイカン)
;TFLAG:400(1=约会先or地底の路人が反応する)
;==================================================
@M_KOJO_SUCCESS_COM_K139_316
;成否判定
;TFLAG:192(-1＝強制失敗
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K139_316
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K139_316_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K139_316_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	TCVAR:352 += 1
	TCVAR:365 += 1
ENDIF
RETURN 1
;==================================================
;317,動起腰身
;ABL:Ｖ感覚(2未満=まだ気持ち良くない 5未満=稍微気持ちいい 5以上=カイカン
;==================================================
@M_KOJO_MESSAGE_COM_K139_317
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K139_317_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;318,動起腰身（Ａ）
;==================================================
@M_KOJO_MESSAGE_COM_K139_318
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K139_318_1
RETURN RESULT

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

ENDIF
RETURN 1

;====================================================================================================
;320,对方主導正常位
;====================================================================================================
@M_KOJO_MESSAGE_COM_K139_320
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K139_320_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K139_320_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
ENDIF
RETURN 1
;====================================================================================================
;322,对方主導後背位
;====================================================================================================
@M_KOJO_MESSAGE_COM_K139_322
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K139_322_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K139_322_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
ENDIF
RETURN 1
;==================================================
;330,掀裙子
;TFLAG:193(-5=拒絶（ビンタ） -3=拒絶（つねり） -1=いやがる 0=いやがる（嬉しげ） 1=受け入れ)
;TFLAG:193=1&&ABL:露出癖(6以上=人目のある場所で、自ら裙子をまくり上げる 4以下=人目のある場所でめくられるさいに弱い抵抗 4以上=人目のない場所で自ら裙子をまくり上げる 3未満=弱い抵抗)
;TFLAG:400(1=约会先or地底の路人が反応する)
;後ろからピラリ、ではなく、前からペラって感じ（そうじゃなかったら、めくり上げようとするのを止めて即座にビンタとか無理、めくり上げられた後にしかならないしその状況ならビンタ食らうより普通に弾幕で一発ＫＯにならないほうがおかしい
;==================================================
@M_KOJO_MESSAGE_COM_K139_330
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K139_330_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K139_330_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
;旗袍（裤子）の属性はどうなってるんだろう？　連衣裙だから裙子属性？
;連衣裙＋裤子ならめくって裤子をおろす
;裤子属性があればずり下す（主动なら勝手に脱掉）
;現在考えているのは旗袍（裤子）から新しい衣装「緊身内衣（貫頭衣）」または「緊身内衣（旗袍）」に変更
;典の服は裾の紐を緩めれば胖次見えるくらいめくり上げられそうなので
;緊身内衣ならずらし挿入も可能だったはず。多分一番しっくりくる
;掀裙子でイヤンイヤンしてくれるのは好感度3000（恋慕なら確実にイヤンイヤンになる）を超えてから。5000を超えると受け入れてくれる
;100以下でビンタ、1000以下でつねり（体力を減らされる）
IF LOCAL
	IF FLAG:70
	ELSEIF CFLAG:诶嘿嘿 == 2
	ELSE
		IF TALENT:恋慕 || TALENT:恋人
			IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
				SELECTCASE TCVAR:366
				CASE IS > 10
					SELECTCASE RAND:6
					CASE 0
						PRINTFORML 「姐姐我真的很担心%CALLNAME:MASTER%阁下的未来啊♪」
					CASE 1
						PRINTFORML 「看呐看呐♪　%CALLNAME:MASTER%阁下最爱的胖次哟～♪」
					CASE 2
						PRINTFORML 「不要呀♪」
					CASE 3
						PRINTFORML 「这么烦人的话～可是要接受惩罚的哟♪　嘿♪」
						PRINTFORML 被典挠痒痒挠了全身…
					CASE 4
						PRINTFORML 「就算是春风也不会做这种恶作剧呢」
					CASE 5
						PRINTFORML 「真是个坏孩子呢。之后一定得好好得『惩罚』一下才行呢…%UNICODE(0x2665) *1%」
					ENDSELECT
				CASE IS > 5
					SELECTCASE RAND:5
					CASE 0
						PRINTFORML 「顺利的偏离了正轨呢…♪」
					CASE 1
						PRINTFORML 「真是的、太调皮了啦♪」
					CASE 2
						PRINTFORML 「%CALLNAME:MASTER%阁下可不能成长为那种只知道性骚扰的大人哟♪」
						PRINTFORML 「如果是对姐姐的话、就另当别论啦…♪」
					CASE 3
						PRINTFORML 「真是的、就算是姐姐我被看到内衣也是会害羞的哟…♪」
					CASE 4
						PRINTFORML 「…一脸高兴的表情呢」
					ENDSELECT
				CASE 0
					IF ABL:露出癖 > 3
						PRINTFORML 「真是的、就这么的想看这里面吗」
						PRINTFORML 「真是个没救了的孩子呢…将来可是变不成成熟的大人的哟」
						PRINTW
						PRINTFORML 「……无论怎么样、都想看姐姐的内衣、吗？」
						CALL ASK_YN("想看！！！","想看！！！！１１１１１！！！")
						IF !RESULT
							PRINTFORML 「呵呵、头点的这么使劲…♪」
							PRINTFORML 「既然你都这么求我了、就稍微、让你看一看吧…♪」
						ELSE
							PRINTFORML 「唔哇。点的这么用力♪」
							PRINTFORML 「但是、姐姐我比起更注重常识的孩子还是要更喜欢坦率的孩子哟…♪」
						ENDIF

						IF EQUIP:TARGET:裤子
							PRINTFORML 典向后转、脱下了%SHOW_BOTTOM(TARGET)%
							IF CFLAG:没穿内裤 == 1
								PRINTFORML 接着、从中露出来的是耀眼的屁股…屁股！？
								CALL HPH_PRINT,@"「啊哇HPH　暴露了吗HPH」","L"
								CALL HPH_PRINT,@"「姐姐我、现在、是真空哟…HPH」","L"
								PRINTW
								CALL HPH_PRINT,@"「眼睛都像钉在上面了哟…HPH」","L"
							ELSE
								SELECTCASE RAND:100
								CASE IS < 10
									PRINTFORML 接着、从中露出来的是耀眼的屁股…屁股！？
									CALL HPH_PRINT,@"「呵呵、只是内衣而已就让你变成这副如狼似虎的模样…HPH…啊嘞？」","L"
									PRINTFORML 察觉到%CALLNAME:MASTER%的样子有些奇怪、典看向了下半身
									PRINTW
									PRINTFORML 「啊、啊哈哈…♪　这下可真是难堪了哈…♪」
									PRINTFORML 典露出害羞的笑容、穿起了%SHOW_BOTTOM(TARGET)%
									PRINTW
								CASEELSE
									PRINTFORML 接着、从中露出来的是耀眼的%SHOW_下半身内衣(TARGET, 6)%
									CALL HPH_PRINT,@"「是不是想要我、把这个也脱下去呢…HPH」","L"
									PRINTFORML 典把手指放进%SHOW_下半身内衣(TARGET, 6)%里、稍微挪动了一下
									PRINTW
									PRINTW [0]想要　[1]脱下来
									CALL HPH_PRINT,@"「呵呵、不ー行HPH」","L"
									CALL HPH_PRINT,@"（啊、变得相当失望了呢…HPH）","L"
									SETCOLOR 0xFF69B4
									CALL HPH_PRINT,@"（真是的、要是摆出那副表情的话、不就是要惹得我蠢蠢欲动了吗…HPH）","L"
									RESETCOLOR
									PRINTW
									CALL HPH_PRINT,@"「真没办法呢…那么、要是你好好请求我的话也不是不行哟HPH」","L"
									CALL HPH_PRINT,@"「说『我想看典姐姐的屁股』HPH」","L"
									PRINTL
									CALL ASK_YN("我想看典的屁股","果然还是算了")
									IF !RESULT
										CALL HPH_PRINT,@"「真的、真的是个没救了的孩子呢…HPH」","L"
										CALL HPH_PRINT,@"「但是、毕竟典是%CALLNAME:MASTER%阁下的姐姐…HPH」","L"
										CALL HPH_PRINT,@"「姐姐我、可是一定得接受\@ TALENT:MASTER:性別 == 2 ? 弟弟 # 妹妹 \@的请求才行呢HPH」","L"
										PRINTW
										PRINTFORML 典将手搭在内衣上、像是在挑逗一样缓缓地一点一点脱着
										PRINTFORML 与此同时、臀部的鸿沟也得以窥视起%CALLNAME:MASTER%的脸
										PRINTFORML 在马上就能见到隐藏起的部分的前一瞬…典停下了动作
										PRINTW
										CALL HPH_PRINT,@"（%CALLNAME:MASTER%阁下的鼻息、都打到屁股上面了…HPH）","L"
										CALL HPH_PRINT,@"（离得这么近…HPH　全部都要暴露出去了呢…HPH）","L"
										CALL HPH_PRINT,@"（可以的哟…姐姐的全部、都映入眼帘吧…HPH）","L"
										PRINTW
										PRINTFORML 胖次再次向下脱了起来
										PRINTFORML 首先露面的则是\@ TALENT:尻穴狂 == 1 ? 竖着分开的 # 浅茶色的 \@肛门
										CALL HPH_PRINT,@"（啊哈…HPH　菊门、暴露出去了…HPH）","L"
										PRINTW
										PRINTFORML 而在那更之下…
										PRINTFORML \@ TALENT:淫壺 == 1 ? 将肉茎贪婪地连根吞下的 # 紧紧闭上的 \@秘裂终于暴露在眼前
										PRINTW
										CALL HPH_PRINT,@"「怎么样啊…HPH　姐姐我的、那个地方…HPH」","L"
										CALL HPH_PRINT,@"「不准移开视线哟、要好好的看着…HPH　啊、都不用说就一直在盯着看呢…真是的HPH」","L"
										PRINTW
									ELSE
										PRINTFORML 「真的吗？　没有在强行忍耐吧？」
										PRINTFORML 「之后你就是想看也没得看了哟」
										PRINTFORML 典又穿起来%SHOW_BOTTOM(TARGET)%
										PRINTW
									ENDIF
								ENDSELECT
							ENDIF
						;裙子系
						ELSEIF EQUIP:TARGET:連衣裙 || EQUIP:TARGET:和服 || EQUIP:TARGET:裙子
							SELECTCASE RAND:2
							CASE 0
								PRINTFORML 典非常熟练地掀起了%SHOW_BOTTOM(TARGET)%
							CASE 1
								PRINTFORML 典踮起%SHOW_BOTTOM(TARGET)%、一点一点的提起来
							ENDSELECT
							IF CFLAG:没穿内裤 == 1
								PRINTFORML 接着、从中露出来的是耀眼的屁股…屁股！？
								CALL HPH_PRINT,@"「啊哇HPH　暴露了吗HPH」","L"
								CALL HPH_PRINT,@"「姐姐我、现在、是真空哟…HPH」","L"
								PRINTW
								CALL HPH_PRINT,@"「HPH　眼睛都已经粘上了哟…HPH」","L"
							ELSE
								PRINTFORML 接着、从中露出来的是耀眼的%SHOW_下半身内衣(TARGET, 6)%
								CALL HPH_PRINT,@"「是不是想要我、把这个也脱下去呢…HPH」","L"
									PRINTFORML 典把手指放进%SHOW_下半身内衣(TARGET, 6)%里、稍微挪动了一下
								PRINTW
								PRINTW [0]想要　[1]脱下来
									CALL HPH_PRINT,@"「呵呵、不ー行HPH」","L"
									CALL HPH_PRINT,@"（啊、变得相当失望了呢…HPH）","L"
								SETCOLOR 0xFF69B4
								CALL HPH_PRINT,@"（真是的、要是摆出那副表情的话、不就是要惹得我蠢蠢欲动了吗…HPH）","L"
								RESETCOLOR
								PRINTW
								CALL HPH_PRINT,@"「真没办法呢…那么、要是你好好请求我的话也不是不行哟HPH」","L"
								CALL HPH_PRINT,@"「说『我想看典姐姐的屁股』HPH」","L"
								PRINTL
								CALL ASK_YN("我想看典的屁股","果然还是算了")
								IF !RESULT
									CALL HPH_PRINT,@"「真的、真的是个没救了的孩子呢…HPH」","L"
									CALL HPH_PRINT,@"「但是、毕竟典是%CALLNAME:MASTER%阁下的姐姐…HPH」","L"
									CALL HPH_PRINT,@"「姐姐我、可是一定得接受\@ TALENT:MASTER:性別 == 2 ? 弟弟 # 妹妹 \@的请求才行呢HPH」","L"
									PRINTW
									PRINTFORML 典将手搭在内衣上、像是在挑逗一样缓缓地一点一点脱着
									PRINTFORML 与此同时、臀部的鸿沟也得以窥视起%CALLNAME:MASTER%的脸
									PRINTFORML 在马上就能见到隐藏起的部分的前一瞬…典停下了动作
									PRINTW
									CALL HPH_PRINT,@"（%CALLNAME:MASTER%阁下的鼻息、都打到屁股上面了…HPH）","L"
									CALL HPH_PRINT,@"（离得这么近…HPH　全部都要暴露出去了呢…HPH）","L"
									CALL HPH_PRINT,@"（可以的哟…姐姐的全部、都映入眼帘吧…HPH）","L"
									PRINTW
									PRINTFORML 胖次再次向下脱了起来

									PRINTFORML 首先露面的则是\@ TALENT:尻穴狂 == 1 ? 竖着分开的 # 浅茶色的 \@肛门
									CALL HPH_PRINT,@"（啊哈…HPH　菊门、暴露出去了…HPH）","L"
									PRINTW
									PRINTFORML 而在那更之下…
									PRINTFORML \@ TALENT:淫壺 == 1 ? 将肉茎贪婪地连根吞下的 # 紧紧闭上的 \@秘裂终于暴露在眼前
									PRINTW
									CALL HPH_PRINT,@"「怎么样啊…HPH　姐姐我的、那个地方…HPH」","L"
									CALL HPH_PRINT,@"「不准移开视线哟、要好好的看着…HPH　啊、都不用说就一直在盯着看呢…真是的HPH」","L"
									PRINTW
								ELSE
									PRINTFORML 「真的吗？　没有在强行忍耐吧？」
									PRINTFORML 「之后你就是想看也没得看了哟」
									PRINTFORML 典又穿起来%SHOW_BOTTOM(TARGET)%
									PRINTW
								ENDIF
							ENDIF
						ENDIF
					ELSE
						PRINTFORML 「kya~」
						PRINTFORML 「%CALLNAME:MASTER%阁下可真喜欢恶作剧呢…♪」
						PRINTW
						CALL ASK_YN("朝着更深处…","想摸一摸")
						IF !RESULT
						ELSE
						ENDIF
						PRINTFORML 「%CALLNAME:MASTER%、阁下？」
						PRINTFORML 「啊、等等、那里是…啊…%UNICODE(0x2665) *1%」
						PRINTW
						PRINTFORML 典那双滑滑嫩嫩的大腿、早就想摸一摸了
						PRINTFORML 将手指从腿滑到腹股沟、典的身体随着猛的震动了一下
						PRINTFORML 「真是…姐姐的大腿、有让你中意吗…？%UNICODE(0x2665) *1%」
						PRINTW
					ENDIF
				ENDSELECT
			;大人
			ELSE
				SELECTCASE TCVAR:366
				CASE IS > 10
					SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「真的是、这位大人、真是的…♪」
					CASE 1
						PRINTFORML 「这可是所谓的性骚扰哟♪」
					CASE 2
						PRINTFORML 「性骚扰做的自然到就像是在呼吸一样呢」
						PRINTFORML 「真是的、要是不是典的话可是会被扇脸的哟」
						PRINTFORML 典像是有些困惑的样子、但还是露出了欢快的笑容
					ENDSELECT
				CASE IS > 5
					SELECTCASE RAND:2
					CASE 0
						PRINTFORMW 「哇」
						PRINTFORML 「……找到要找的东西了吗？」
					CASE 1
						PRINTFORMW 「啊？」
						PRINTFORML 「呵呵…真是个无可救药的人呢♪」
					ENDSELECT
				CASE 0
					IF ABL:露出癖 > 3
						CALL HPH_PRINT,@"「真是的、居然说想要看典的内衣…而且、还要我自己露出来…HPH」","L"
						CALL HPH_PRINT,@"「真的、真的…是一位没救了的人呢HPH」","L"
						IF EQUIP:TARGET:裤子
							PRINTFORML 典把手挂在%SHOW_BOTTOM(TARGET,2)%上、咻地一声就脱了下来
							IF CFLAG:没穿内裤 == 1
								CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下朝思暮想的、就是这个吗…HPH」","L"
								PRINTFORML 典她、在%SHOW_BOTTOM(TARGET,2)%的里面什么读没穿
								CALL HPH_PRINT,@"「再靠近一点看、也是没关系的哟…HPH」","L"
								PRINTW
							ELSE
								PRINTFORML %SHOW_下半身内衣(TARGET, 6)%、大饱眼福啦…！
								;胖次が透けている
								SIF PANTIES_TRANSPARENCY(139) == 1
								PRINTFORML 而且、典的胖次非常的透明、\@ EXP:Ｖ性交経験 == 0 ? 不识男人滋味 # 吞下%CALLNAME:MASTER%肉棒 \@的细缝隐隐若现…
								CALL HPH_PRINT,@"「典的胖次…HPH　如何呢…HPH」","L"
								CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下很喜欢这样的吧？HPH」","L"
								CALL HPH_PRINT,@"「请在满足之前都一直看着吧HPH」","L"
								IF PANTIES_TRANSPARENCY(139) == 1
									PRINTW
									CALL HPH_PRINT,@"（啊哈、内衣里透出来的小穴、正紧紧盯着看呢…HPH）","L"
									CALL HPH_PRINT,@"（怎么办呐、被看着就觉得下腹部里面、紧紧地HPH　收缩了起来…HPH）","L"
								ENDIF
								PRINTW
							ENDIF
						ELSEIF EQUIP:TARGET:連衣裙 || EQUIP:TARGET:和服 || EQUIP:TARGET:裙子
							PRINTFORML 典将手伸进%SHOW_BOTTOM(TARGET,2)%里、已经非常熟练的脱下了%SHOW_下半身内衣(TARGET, 6)%
							PRINTFORML 接着、轻轻抬起一只腿、将它取了出来
							PRINTW
							CALL HPH_PRINT,@"「呵呵、脱掉了呢…HPH」","L"
							PRINTFORML 典用手指撑开刚脱下来的胖次、展示了最下层的部位
							IF PALAM:潤滑 >= PALAMLV:3
								PRINTFORML 那个地方、已经湿透了
							ELSEIF PALAM:潤滑 >= PALAMLV:1
								PRINTFORML 那个地方、还带着些许湿气
							ENDIF
							PRINTW
						ENDIF
					;露出癖低
					ELSE
						CALL HPH_PRINT,@"「这么想看的话、要不要再靠近一点看呢…HPH」","L"
						PRINTW
					ENDIF
				ENDSELECT
			ENDIF
		;恋慕、恋人でない
		ELSE
			IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
				SELECTCASE TCVAR:366
				CASE IS > 10
					SELECTCASE RAND:6
					CASE 0
						PRINTFORML 「有这么想看典的胖次吗♪」
					CASE 1
						PRINTFORML 「呵呵、明明就算不做这种事情、典也随时读可以让您看的说…♪」
						PRINTFORML 「这样做要更加浪漫…吗。哈…♪」
						PRINTFORML 不知道典是不是没能理解、露出了困惑的笑容
					CASE 2
						PRINTFORML 「没有可以给%CALLNAME:MASTER%阁下用的药呢…♪」
					CASE 3
						PRINTFORML 「淘气过头了哟…♪」
					CASE 4
						PRINTFORML 「%CALLNAME:MASTER%阁下这么的喜欢恶作剧、我可是会很困扰的…♪」
					CASE 5
						IF (TALENT:MASTER:応答 == 1 || TALENT:MASTER:態度 == 1)
							PRINTFORML 「真是的…你这坏小孩…」
							PRINTFORML 明明被看了很多次内裤、典那轻松的态度还是没有崩塌
						ELSEIF (TALENT:MASTER:応答 == -1 || TALENT:MASTER:胆量 == -1)
							PRINTFORML 「呵呵、该出手是就出手呢…♪」
						ELSE
							PRINTFORML 「啊…姐姐投降了」
						ENDIF
					ENDSELECT
					PRINTW
				CASE IS > 5
					SELECTCASE RAND:4
					CASE 0
						PRINTFORML 「%CALLNAME:MASTER%阁下可真是…♪」
					CASE 1
						PRINTFORML 「呵呵…真是的…%UNICODE(0x2665) *1%」
					CASE 2
						PRINTFORML 「哇」
					CASE 3
						PRINTFORML 「不要、啦♪」
					ENDSELECT
					PRINTW
				;今日の掀裙子1回目
				CASE 0
					;受け入れ
					IF TFLAG:193 == 1
						IF ABL:露出癖 > 3
							PRINTFORML 「真是的、就这么的想看这里面吗」
						PRINTFORML 「真是个没救了的孩子呢…将来可是变不成成熟的大人的哟」
							PRINTW
							PRINTFORML 「……无论怎么样、都想看姐姐的内衣、吗？」
						CALL ASK_YN("想看！！！","想看！！！！１１１１１！！！")
						IF !RESULT
							PRINTFORML 「呵呵、头点的这么使劲…♪」
							PRINTFORML 「既然你都这么求我了、就稍微、让你看一看吧…♪」
						ELSE
							PRINTFORML 「唔哇。点的这么用力♪」
							PRINTFORML 「但是、姐姐我比起更注重常识的孩子还是要更喜欢坦率的孩子哟…♪」
							ENDIF

							IF EQUIP:TARGET:裤子
								PRINTFORML 典は後ろを向き、%SHOW_BOTTOM(TARGET)%を脱ぎ下ろしていく
								IF CFLAG:没穿内裤 == 1
									PRINTFORML 接着、从中露出来的是耀眼的屁股…屁股！？
									CALL HPH_PRINT,@"「啊哇HPH　暴露了吗HPH」","L"
								CALL HPH_PRINT,@"「姐姐我、现在、是真空哟…HPH」","L"
									PRINTW
									CALL HPH_PRINT,@"「眼睛都像钉在上面了哟…HPH」","L"
								ELSE
									PRINTFORML 接着、从中露出来的是耀眼的%SHOW_下半身内衣(TARGET, 6)%
									CALL HPH_PRINT,@"「是不是想要我、把这个也脱下去呢…HPH」","L"
									PRINTFORML 典把手指放进%SHOW_下半身内衣(TARGET, 6)%里、稍微挪动了一下
									PRINTW
									PRINTW [0]想要　[1]脱下来
									CALL HPH_PRINT,@"「呵呵、不ー行HPH」","L"
									PRINTW
								ENDIF
							;裙子系
							ELSEIF EQUIP:TARGET:連衣裙 || EQUIP:TARGET:和服 || EQUIP:TARGET:裙子
								SELECTCASE RAND:2
								CASE 0
									PRINTFORML 典非常熟练地掀起了%SHOW_BOTTOM(TARGET)%
								CASE 1
									PRINTFORML 典踮起%SHOW_BOTTOM(TARGET)%、一点一点的提起来
								ENDSELECT
								IF CFLAG:没穿内裤 == 1
									PRINTFORML 接着、从中露出来的是耀眼的屁股…屁股！？
									CALL HPH_PRINT,@"「啊哇HPH　暴露了吗HPH」","L"
									CALL HPH_PRINT,@"「姐姐我、现在、是真空哟…HPH」","L"
									PRINTW
									CALL HPH_PRINT,@"","L"
								ELSE
									PRINTFORML 接着、从中露出来的是耀眼的%SHOW_下半身内衣(TARGET, 6)%
									CALL HPH_PRINT,@"「是不是想要我、把这个也脱下去呢…HPH」","L"
									PRINTFORML 典把手指放进%SHOW_下半身内衣(TARGET, 6)%里、稍微挪动了一下
									PRINTW
									PRINTW [0]想要　[1]脱下来
									CALL HPH_PRINT,@"「呵呵、不ー行HPH」","L"
									PRINTW
								ENDIF
							ENDIF
						ELSE
							PRINTFORML 「kya~」
							PRINTFORML 「%CALLNAME:MASTER%阁下可真喜欢恶作剧呢…♪」
							PRINTW
						ENDIF
					;拒絶～嬉しげまで一括。典はそこまで嫌悪感を感じない
					ELSE
						PRINTFORML 「喂ー。这可是不行的哟ー」
						IF CFLAG:没穿内裤 == 1
							PRINTFORML 现在这个…该不会是…
							PRINTFORML 「……看到了？」
							PRINTFORML 典一边按住が%SHOW_BOTTOM(TARGET)%、眼睛也眯了起来
							PRINTW
						ELSE
							PRINTFORML 「这里可不是可以随便看的地方哟♪」
							PRINTFORML 被典摆成狐狸状的手指给戳了脑袋
							PRINTW
						ENDIF
					ENDIF
				ENDSELECT
			;恋慕・恋人無大人
			ELSE
				SELECTCASE TCVAR:366
				CASE IS > 10
					SELECTCASE RAND:4
					CASE 0
						PRINTFORML 「好好、只能看一会哟♪」
					CASE 1
						PRINTFORML 「呀♪　别玩了♪」
					CASE 2
						PRINTFORML 「%CALLNAME:MASTER%阁下、呼吸急促起来了哟♪」
					CASE 3
						PRINTFORML 「%CALLNAME:MASTER%阁下、想玩也得适时适度…♪」
					ENDSELECT
					PRINTFORML
				CASE IS > 5
					SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「简直、就像一个小孩子呢」
					CASE 1
						PRINTFORML 「是这么有趣的东西吗」
					CASE 2
						PRINTFORML 「这比我想的还要…羞耻一点呢」
					ENDSELECT
				CASE 0
					IF TFLAG:193 == 1
						IF ABL:露出癖 > 3
							PRINTFORML 「鼻子张的那么大…就这么的、想看吗…♪」
							CALL ASK_M("让我看", TALENT:MASTER:胆量 > 0,"我想看", TALENT:MASTER:胆量 > -1,"请给我看", 1)
							SELECTCASE RESULT
							CASE 0
								PRINTFORML 「呵呵~、语气可真嚣张呢」
							CASE 1
								PRINTFORML 「嘛啊、坦率的话」
								PRINTFORML 「对欲望很忠实的人、我不讨厌哟♪」
							CASE 2
								PRINTFORML 「嗯、是吗…」
								PRINTFORML 「那就爬在地上、抱着我的腿来求我吧」%CALLNAME:MASTER%爬在地上抱住典的腿请求她
								PRINTW
								PRINTFORML 「呜ー哇、真的做了诶♪　真不妙啊」
								PRINTFORML 典用看青蛙一般的嘲讽表情低头看着地上的%CALLNAME:MASTER%
								PRINTW
								PRINTFORML 「但是、给听话的%CALLNAME:MASTER%阁下一定要有奖励才行…♪」
								PRINTFORML 「不过你必须趴在那里不能动哟。要是你敢碰我的话、你就完蛋了呢」
								PRINTW
							ENDSELECT

							IF EQUIP:TARGET:裤子
								PRINTFORML 典就在%CALLNAME:MASTER%的眼前、脱起了%SHOW_BOTTOM(TARGET)%
								IF CFLAG:没穿内裤 == 1
									PRINTFORML 从中展现出来的是、小穴！？
									CALL HPH_PRINT,@"「啊哇HPH　暴露了吗HPH」","L"
									CALL HPH_PRINT,@"「姐姐我、现在、是真空哟…HPH」","L"
									PRINTW
									CALL HPH_PRINT,@"（呵呵、摆着一副恶心的表情就像想吞了一样盯着看呢…HPH）","L"
									CALL HPH_PRINT,@"（但是、沉迷于我的身体这件事、我并不讨厌呢…HPH）","L"
									PRINTW
								ELSE
									PRINTFORML %SHOW_下半身内衣(TARGET, 6)%、大饱眼福啦…！
									;胖次が透けている
									SIF PANTIES_TRANSPARENCY(139) == 1
									PRINTFORML 而且、典的胖次非常的透明、\@ EXP:Ｖ性交経験 == 0 ? 不识男人滋味 # 吞下%CALLNAME:MASTER%肉棒 \@的细缝隐隐若现…
									PRINTFORMW 「呜哇ー♪　呼吸好急促ーい♪　真ー恶心呀♪」
									PRINTFORML 「但是、毕竟我约定好了要给你看呢」
									PRINTFORML 「可以就这么摆着那副恶心的表情、在满意之前都一直看着哟…♪」
									IF PANTIES_TRANSPARENCY(139) == 1
										PRINTW
										CALL HPH_PRINT,@"（啊哈、内衣里透出来的小穴、正紧紧盯着看呢…HPH）","L"
									CALL HPH_PRINT,@"（怎么办呐、被看着就觉得下腹部里面、紧紧地HPH　收缩了起来…HPH）","L"
									ENDIF
									PRINTW
								ENDIF
							;裙子
							ELSEIF EQUIP:TARGET:連衣裙 || EQUIP:TARGET:和服 || EQUIP:TARGET:裙子
								CALL HPH_PRINT,@"「好咯…你想看的就是这个了哟…HPH」","L"
								PRINTFORML 典红着脸、自己提起了%SHOW_BOTTOM(TARGET)%
								PRINTFORML そこには…
								PRINTW
								IF CFLAG:没穿内裤 == 1
									CALL HPH_PRINT,@"「呵呵、以为会有胖次让你叩拜吗？HPH」","L"
									CALL HPH_PRINT,@"「只可惜HPH　我现在什么都没有穿的说HPH」","L"
									PRINTW
									CALL HPH_PRINT,@"「哦呀哦呀、明明没有见到自己朝思暮想的东西、但还是一脸兴奋的样子呢…HPH」","L"
									CALL HPH_PRINT,@"「就算你离这么近的凝视、也不可能找到的胖次的哟…HPH」","L"
									PRINTW
								ELSE
									PRINTFORML %SHOW_下半身内衣(TARGET, 6)%、大饱眼福啦…！
									;胖次が透けている
									SIF PANTIES_TRANSPARENCY(139) == 1
									PRINTFORML 而且、典的胖次非常的透明、\@ EXP:Ｖ性交経験 == 0 ? 不识男人滋味 # 吞下%CALLNAME:MASTER%肉棒 \@的细缝隐隐若现…
									PRINTFORMW 「呜哇ー♪　呼吸好急促ーい♪　真ー恶心呀♪」
									PRINTFORML 「但是、毕竟我约定好了要给你看呢」
									PRINTFORML 「可以就这么摆着那副恶心的表情、在满意之前都一直看着哟…♪」
									IF PANTIES_TRANSPARENCY(139) == 1
										PRINTW
										CALL HPH_PRINT,@"（啊哈、内衣里透出来的小穴、正紧紧盯着看呢…HPH）","L"
									CALL HPH_PRINT,@"（怎么办呐、被看着就觉得下腹部里面、紧紧地HPH　收缩了起来…HPH）","L"
									ENDIF
									PRINTW
								ENDIF
							ENDIF
						;露出LV低
						ELSE
							CALL HPH_PRINT,@"「哇HPH」","L"
							CALL HPH_PRINT,@"「呵呵…HPH　多么幸福的表情啊…HPH」","L"
							PRINTW
						ENDIF
					;拒絶～嬉しげまで一括。典はそこまで嫌悪感を感じない
					ELSE
						PRINTFORML 「喂ー。这可是不行的哟ー」
						IF CFLAG:没穿内裤 == 1
							PRINTFORML 现在这个…该不会是…
							PRINTFORML 「……看到了？」
							PRINTFORML 典一边按住が%SHOW_BOTTOM(TARGET)%、眼睛也眯了起来
							PRINTW
						ELSE
							PRINTFORML 「这里可不是可以随便看的地方哟♪」
							PRINTFORML 被典摆成狐狸状的手指给戳了脑袋
							PRINTW
						ENDIF
					ENDIF
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
	TCVAR:352 += 1
	TCVAR:366 += 1
ENDIF
RETURN 1

;==================================================
;Exソース
;ショタ（年齢=子ども、幼児／幼児退行）なら手指挿入、肛門、接吻以外反感がつかない
;大人の場合は10回まで（接吻は１回のみ）
;性騷擾回数は特定の指令ではなく性騷擾指令全体で１回カウント
;（接吻でも１回だし、摸屁股でも１回とカウント）
;苦痛ソースは弄っていないので、感覚レベルが低いとどうしても憤怒ゲージが溜まる？
;==================================================
;310,摸屁股ExS
@M_KOJO_EXTRASOURCE_COM_K139_310
;発情時ならどっちでもウェルカム
IF TCVAR:発情
	SOURCE:反感 = 0
	SOURCE:歓楽 = 300
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
;ショタなら心情不快でなければ何回でも性騷擾できちまうんだ！
ELSEIF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 && (!TALENT:139:心情 == -1 || !CFLAG:139:ブチギレ)
	SOURCE:反感 = 0
	SOURCE:歓楽 = 200
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
;10回までなら大人でも平気
ELSEIF TCVAR:352 <= 10 && (!TALENT:139:心情 == -1 || !CFLAG:139:ブチギレ)
	SOURCE:反感 = 0
	SOURCE:歓楽 = 200
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
ENDIF
;==================================================
;311,擁抱ExS
@M_KOJO_EXTRASOURCE_COM_K139_311
;発情時ならどっちでもウェルカム
IF TCVAR:発情
	SOURCE:反感 = 0
	SOURCE:歓楽 = 300
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
;ショタなら心情不快でなければ何回でも性騷擾できちまうんだ！
ELSEIF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 && (!TALENT:139:心情 == -1 || !CFLAG:139:ブチギレ)
	SOURCE:反感 = 0
	SOURCE:歓楽 = 200
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
;10回までなら大人でも平気
ELSEIF TCVAR:352 <= 10 && (!TALENT:139:心情 == -1 || !CFLAG:139:ブチギレ)
	SOURCE:反感 = 0
	SOURCE:歓楽 = 200
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
ENDIF
;==================================================
;312,接吻ExS
@M_KOJO_EXTRASOURCE_COM_K139_312
;発情時ならどっちでもウェルカム
IF TCVAR:発情
	SOURCE:反感 = 0
	SOURCE:歓楽 = 300
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
;ショタなら心情不快でなければ何回でも接吻…は無理です
ELSEIF TCVAR:352 <= 5 && (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) && (!TALENT:139:心情 == -1 || !CFLAG:139:ブチギレ)
	SOURCE:反感 = 0
	SOURCE:歓楽 = 200
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
;1回までなら大人でも平気
ELSEIF TCVAR:352 <= 1 && (!TALENT:139:心情 == -1 || !CFLAG:139:ブチギレ)
	SOURCE:反感 = 0
	SOURCE:歓楽 = 200
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
ENDIF
;==================================================
;313,胸愛撫ExS
@M_KOJO_EXTRASOURCE_COM_K139_313
;発情時ならどっちでもウェルカム
IF TCVAR:発情
	SOURCE:反感 = 0
	SOURCE:歓楽 = 300
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
;ショタなら心情不快でなければ何回でも性騷擾できちまうんだ！
ELSEIF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 && (!TALENT:139:心情 == -1 || !CFLAG:139:ブチギレ)
	SOURCE:反感 = 0
	SOURCE:歓楽 = 200
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
;10回までなら大人でも平気
ELSEIF TCVAR:352 <= 10 && (!TALENT:139:心情 == -1 || !CFLAG:139:ブチギレ)
	SOURCE:反感 = 0
	SOURCE:歓楽 = 200
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
ENDIF
;==================================================
;314,肛門愛撫ExS
@M_KOJO_EXTRASOURCE_COM_K139_314
;発情時ならどっちでもウェルカム
IF TCVAR:発情
	SOURCE:反感 = 0
	SOURCE:歓楽 = 300
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
;恋慕または恋人が付いていて心情不快でなければショタも制限無
ELSEIF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) && (!TALENT:139:心情 == -1 || !CFLAG:139:ブチギレ) && (TALENT:恋慕 || TALENT:恋人)
	SOURCE:反感 = 0
	SOURCE:歓楽 = 300
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
ENDIF
;==================================================
;315,陰蒂愛撫ExS
@M_KOJO_EXTRASOURCE_COM_K139_315
;発情時ならどっちでもウェルカム
IF TCVAR:発情
	SOURCE:反感 = 0
	SOURCE:歓楽 = 300
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
;恋慕または恋人が付いていて心情不快でなければショタも制限無
ELSEIF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) && (!TALENT:139:心情 == -1 || !CFLAG:139:ブチギレ) && (TALENT:恋慕 || TALENT:恋人)
	SOURCE:反感 = 0
	SOURCE:歓楽 = 300
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
ENDIF
;==================================================
;316,手指挿入ExS
@M_KOJO_EXTRASOURCE_COM_K139_316
;発情時ならどっちでもウェルカム
IF TCVAR:発情
	SOURCE:反感 = 0
	SOURCE:歓楽 = 300
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
;恋慕または恋人が付いていて心情不快でなければショタも制限無
ELSEIF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) && (!TALENT:139:心情 == -1 || !CFLAG:139:ブチギレ) && (TALENT:恋慕 || TALENT:恋人)
	SOURCE:反感 = 0
	SOURCE:歓楽 = 300
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
ENDIF
;==================================================
;330,掀裙子ExS
@M_KOJO_EXTRASOURCE_COM_K139_330
;ショタなら心情不快でなければ何回でも性騷擾できちまうんだ！
;発情時ならどっちでもウェルカム
IF TCVAR:発情
	SOURCE:反感 = 0
	SOURCE:歓楽 = 300
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
ELSEIF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行 && (!TALENT:139:心情 == -1 || !CFLAG:139:ブチギレ)
	SOURCE:反感 = 0
	SOURCE:歓楽 = 200
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
;10回までなら大人でも平気
ELSEIF TCVAR:352 <= 10 && (!TALENT:139:心情 == -1 || !CFLAG:139:ブチギレ)
	SOURCE:反感 = 0
	SOURCE:歓楽 = 200
	SIF SOURCE:反感 < 0
		SOURCE:反感 = 0
ENDIF

path: ERB/口上・メッセージ関連/個人口上/【139】典/M_KOJO_K139_セクハラコマンド.ERB


repo_name: akadiya/eratw

path: ERB/口上・メッセージ関連/個人口上/【139】典/M_KOJO_K139_ハードなコマンド.ERB

license: unknown