code:
;-------------------------------------------------
; eraTheWorld 菅牧典口上（角色の名前を入れる、下にコンセプトなど一言あれば入れる）
;原作では耳元で囁く邪悪な白狐という物騒な二つ名ですが、本作でのささやき戦術は主にエロ方面で生かされています
;からかい上手の典ちゃんとキャッキャウフフしてください（口上が上手というわけではない）
;管狐はグルメで大食らいらしいので、食べることに関心が強いという設定です
;

;-------------------------------------------------
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。

;------ ｷﾘﾄﾘ ｶｲｼ -----------
;eraTheWorld proto4.07パッチ取り込み用 Ver1.13
;テンプレートの使い方
;初めに置換指令等により K139 を K(キャラNo) に変更して下さい
;キャラNoはCSVフォルダのCharaファイルを参照　例(霧雨 魔理沙の場合)：K139 =置換=> K11
;
;------ ｷﾘﾄﾘ ｵﾜﾘ -----------

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;フラグ管理メモ.txtに移動
;******************************************************************************

;### 口上存在判定 ###################################
@M_KOJO_K139(ARG)
;別人版を作成する際はこのテンプレではなく別人版用口上テンプレをご利用ください

;口上存在判定です、けしてコメントアウトしないでください
;他の処理は一切行わないように
RETURN 1

;### 口上基本フラグ設定 #############################
@M_KOJO_FLAGSETTING_K139
;基本フラグ設定はここで行ってください
;共通の口上フラグは必要な箇所のコメントアウトを外してご利用ください
;口上専用フラグはご自由に
;Xにはキャラ番号を入れてください

;眠姦口上有、時間停止口上有、扮演に1を入れると、それぞれ時間停止時、眠姦時、扮演時に指令口上が読み込まれるように
;入れないと時間停止時、眠姦時、扮演時は一切喋りません
;CFLAG:X:眠姦口上有 = 0
;CFLAG:X:時間停止口上有 = 0
;CFLAG:X:扮演口上有 = 0

;破瓜中止口上有に1を入れると、@M_KOJO_EVENT_KX_LOST_VIRGIN_STOPで中止の成否を操作できます
;CFLAG:X:破瓜中止口上有 = 0

;口上内抱き寄せ判定_初回と口上内抱き寄せ判定_通常に1を入れると、M_KOJO_EVENT_KX_PERMISSIONで推倒の成否を操作できます
;CFLAG:X:口上内抱き寄せ判定_初回 = 0
;CFLAG:X:口上内抱き寄せ判定_通常 = 0

;推倒禁止に1を入れると、主动推倒てこなくなります
;以下は恋慕か炮友がつくまで推倒てこなくなる使用例
;IF !TALENT:X:恋慕 && !TALENT:X:炮友
;	CFLAG:X:推倒禁止 = 1
;ELSE
;	CFLAG:X:推倒禁止 = 0
;ENDIF

;来訪不能に1を入れると、来訪してこなくなります
;以下は面識があるまで来訪してこなくなる使用例
;IF !CFLAG:X:面識
;	CFLAG:X:来訪不能 = 1
;ELSE
;	CFLAG:X:来訪不能 = 0
;ENDIF

;### 口上色判定 ###################################
@M_KOJO_COLOR_K139

;ここでSETCOLORすることで口上に色を付けられます
;例：SETCOLOR 0xC07070

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K139
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります

;椛口上を引用させていただきました
IF !CFLAG:139:1999
	PRINTFORML 你可以改变典的胸围尺寸。
	PRINTFORML 要变更吗？
	PRINTFORML
	PRINTFORML [0] 变更 (可以在UPDATE时再次更改)
	PRINTFORML [1] 保留
	PRINTFORML [2] 不再变更
	$INPUT_LOOP_K139_BS
	INPUT
	IF RESULT == 0
		PRINTFORML
		PRINTFORML [0] 要选择绝壁吗、绝对不要害怕　只要拿出勇气就行了
		PRINTFORML [1] 要选择贫乳吗、胸围什么的没有也可以、但稍微有一点比较好…对吧(TW默认)
		PRINTFORML [2] 要选择普乳吗、最接近正确答案的选项
		PRINTFORML [3] 要选择巨乳吗、相当聪明、真的很ＣＯＯＬ呢
		PRINTFORML [4] 要选择爆乳吗、对自己坦率的想法完全不打算隐瞒呢
		$INPUT_LOOP_K139_ENCOUNTER
		INPUT
		IF RESULT == 0
			PRINTFORMW 典现在是[絶壁]了
			TALENT:139:105 = -2
		ELSEIF RESULT == 1
			PRINTFORMW 典现在是[貧乳]了
			TALENT:139:105 = -1
		ELSEIF RESULT == 2
			PRINTFORMW 典现在既不是[貧乳]也不是［巨乳］
			TALENT:139:105 = 0
		ELSEIF RESULT == 3
			PRINTFORMW 典现在是[巨乳]了
			TALENT:139:105 = 1
		ELSEIF RESULT == 4
			PRINTFORMW 典现在是[爆乳]了
			TALENT:139:105 = 2
		ELSE
			GOTO INPUT_LOOP_K139_ENCOUNTER
		ENDIF
	ELSEIF RESULT == 1
		PRINTFORMW 保留典的胸围尺寸变更。
	ELSEIF RESULT == 2
		PRINTFORMW 今后、这个选项将不会出现。
		CFLAG:139:1999 = 1
	ELSE
		GOTO INPUT_LOOP_K139_BS
	ENDIF
ENDIF

	IF CFLAG:139:1998 == 0
		PRINTL
		PRINTFORML 其实典过去曾有过丈夫并生过孩子…
		PRINTFORML （但她的原配不会真正出现在口上里）
		PRINTFORML （前夫突然出现并ＮＴＲ…之类的要素并不会出现。只面向那些会对数字感到兴奋的玩家）
		PRINTL
		CALL ASK_YN("管狐已经生了不少孩子了","不是这样的")
		IF !RESULT
			PRINTFORML 典失去了[処女]
			PRINTFORML 典被赋予了[人妻]
			PRINTFORML 典的[出産経験]现在为73
			PRINTFORML 除了这些之外典也获得了其他经验
			EXP:139:出産経験 += 73
			EXP:139:Ｖ経験 += 73
			EXP:139:Ｖ性交経験 += 73
			EXP:139:絶頂経験 += 30
			EXP:139:精液経験 += 150
			EXP:139:膣射経験 += 73
			TALENT:139:処女 = 0
			TALENT:139:人妻 = 1
			CFLAG:139:1998 = 1
		ELSE
			PRINTFORML 典保持着纯洁的身体
			PRINTFORML 请亲手让典孕育您的孩子
		ENDIF
	ENDIF

RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K139
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します

;椛口上を引用させていただきました
PRINTFORML
PRINTFORML 你可以改变典的胸围尺寸。
PRINTFORML （另外、UPDATE时也可以改变胸围尺寸）
PRINTFORML
PRINTFORML [0] 要选择绝壁吗、绝对不要害怕　只要拿出勇气就行了
PRINTFORML [1] 要选择贫乳吗、胸围什么的没有也可以、但稍微有一点比较好…对吧(TW默认)
PRINTFORML [2] 要选择普乳吗、最接近正确答案的选项
PRINTFORML [3] 要选择巨乳吗、相当聪明、真的很ＣＯＯＬ呢
PRINTFORML [4] 要选择爆乳吗、对自己坦率的想法完全不打算隐瞒呢
PRINTFORML [5] 不打算变更
$INPUT_LOOP_K139_ENCOUNTER
INPUT
IF RESULT == 0
	TALENT:139:105 = -2
PRINTFORMW 典现在是[絶壁]了。
ELSEIF RESULT == 1
	TALENT:139:105 = -1
PRINTFORMW 典现在是[絶壁]了。
ELSEIF RESULT == 2
	TALENT:139:105 = 0
	PRINTFORMW 典现在既不是[貧乳]也不是[巨乳]。
ELSEIF RESULT == 2
	TALENT:139:105 = 1
	PRINTFORMW 典现在是[巨乳]了。
ELSEIF RESULT == 4
	TALENT:139:105 = 2
	PRINTFORMW 典现在是[爆乳]了。
ELSEIF RESULT == 5
	PRINTFORMW 维持现状。
ELSE
	GOTO INPUT_LOOP_K139_ENCOUNTER
ENDIF

PRINTFORML
PRINTFORML 「哎呀、那边那位。你要去哪里呀？」
PRINTFORML 站在路边的少女突然向我搭话
PRINTW
PRINTFORML 虽说是少女、但其实是个头上长着狐狸耳朵、屁股上长着狐狸尾巴的人
PRINTFORML 白色风格的旗袍清晰地勾勒出她身体的轮廓、可以看出她的身材十分纤细
PRINTW
SELECTCASE TALENT:胸圍
;爆乳三国志
CASE 2
	IF TALENT:性別嗜好 == 2
		PRINTFORML 另一方面、厌恶的视线中出现了两个丑陋的肉块、脸颊无意识地開始扭曲起来
	ELSE
		PRINTFORML 另一方面、那对让人忍不住凝视的爆乳、只要典一扭动身体就会啾噗啾噗地摇晃起来
	ENDIF
;巨乳
CASE 1
	IF TALENT:性別嗜好 == 2
		PRINTFORML 另一方面、令人厌恶的脂肪块进入了视野。巨乳什么的就应该被消灭、你歪着头如此想道
	ELSE
		PRINTFORML 另一方面、与纤细的体型不相称的丰满胸部也吸引了你的视线
	ENDIF
;普乳
CASE 0
	PRINTFORML 不过、这种该凸的凸该凹的凹的很有女人味的身材确实很有魅力
;貧乳
CASE -1
	PRINTFORML 那拘谨的胸部也许可以说是与外表相称。但反而酝酿出一种怪异的感觉
;絶壁
CASE -2
	PRINTFORML 胸部完全没有女性特有的丰满感、简直让人误以为是少年
ENDSELECT
PRINTW
PRINTFORML 这只狐狸、难道她以为这样的变装骗得了自己也骗得了别人吗……
PRINTW
PRINTFORML 「呀、请不要那么警惕。我并不是想要欺骗您」
PRINTFORML 狐之少女微笑着挥挥手、表示自己没有敌意
PRINTW
PRINTFORML 「我叫菅牧典。」
PRINTFORML 「和外表一样、是个不起眼的狐妖。啊、不过也不是九尾狐那样的大妖」
PRINTW
PRINTFORML 「我正在服侍着一个人、而今天恰好不当班…」
PRINTFORML 「我是在漫无目的地闲逛的时候、偶然碰见您的」
PRINTW
PRINTFORML 「如果可以的话、可以让我听听您的名字吗？」
PRINTFORML 「这样的话、今后我们也有机会继续交往」
PRINTFORML 「啊、我说的『交往』并不是指幽会啦。真讨厌、都让我说了些什么啊%UNICODE(0x2665) *1%」
PRINTFORML 她就这样一个人在欢快地吐槽着。看来是个很開朗的孩子
PRINTW
PRINTFORML 「原来如此、您是%CALLNAME:MASTER%阁下啊」
PRINTFORML 「那么、%CALLNAME:MASTER%阁下。今后也请多多关照了」
PRINTFORML 言毕、典十分有礼貌地鞠了一躬
PRINTW
PRINTFORML 「啊、对了。如果可以的话、关于%CALLNAME:MASTER%阁下的事情、今后也请告诉我吧？」
PRINTFORML 「正如你所知、我很喜欢和人说话。所以我想听听%CALLNAME:MASTER%阁下的故事」
PRINTW
PRINTFORML 一開始我还对她很警惕、但她的性格似乎很平易近人、和蔼可亲
PRINTFORML 我一边说着“没办法”、一边開始和典闲聊起来…
PRINTW
;戦闘能力。典は2。龍は4。依姫と赫喀提亞は6
IF ABL:MASTER:戦闘能力 >= 4
	;特典条件の依姫と赫喀提亞を打ち負かしている。你はコズミックビーイングか何かですかね
	IF CFLAG:98:弾幕勝負勝利 == 1 && CFLAG:113:弾幕勝負勝利 == 1
		PRINTFORML （啊啊、据说%CALLNAME:MASTER%在幻想乡从来没有输过…这个人似乎连神和鬼都能打败…）
		PRINTFORML 典虽然脸上没有表现出来、但内心却在冒冷汗
		IF TALENT:MASTER:幼児／幼児退行 || TALENT:MASTER:年齢 == -1
			PRINTFORML （虽然看起来像个小孩子…感觉完全靠不住）
			PRINTFORML （从某种意义上来说、是个和我们妖怪相近的存在吧…）
			PRINTFORML （如果弄得他不高兴的话、像我这种微不足道的妖怪、一瞬间就会变成尘芥吧）
		ELSEIF TALENT:MASTER:年齢 == 2
			PRINTFORML （看起来是个老人…感觉和妖怪一样完全靠不住）
			PRINTFORML （听说有些人超越了极限、甚至可以与恶魔和神匹敌…没想到就在眼前）
		ENDIF
	ELSE
		PRINTFORML （这位肯定和饭纲丸大人一样强、甚至在她之上）
		IF TALENT:MASTER:幼児／幼児退行 || TALENT:MASTER:年齢 == -1
			PRINTFORML （虽然看起来像个小孩子…感觉完全靠不住）
			PRINTFORML （从某种意义上来说、是个和我们妖怪相近的存在吧…）
		ENDIF
	ENDIF
ELSEIF ABL:MASTER:戦闘能力 >= 2
	PRINTFORML （哼…战斗力还算过得去。虽然没有饭纲丸大人那么厉害、但和我差不多、甚至在我之上…）
	IF TALENT:MASTER:幼児／幼児退行 || TALENT:MASTER:年齢 == -1
		PRINTFORML （虽然看起来像个小孩子…感觉完全靠不住）
		PRINTFORML （从某种意义上来说、是个和我们妖怪相近的存在吧…）
	ENDIF
ELSE
	PRINTFORML （哼…只是一个战斗力在我之下的小杂鱼罢了。不是一个可以用力量来对付别人的人）
	IF TALENT:MASTER:幼児／幼児退行 || TALENT:MASTER:年齢 == -1
		PRINTFORML （唉、毕竟是个孩子。说理所当然也是理所当然）
	ELSEIF TALENT:MASTER:年齢 == 2
		PRINTFORML （唉、毕竟是个老人。身体还在打着哆嗦呢…）
	ENDIF
ENDIF

;典の教養は3
IF ABL:MASTER:教養 >= 4
	PRINTFORML （教养也很高的样子。言语中能让人感到知性与智慧）
	PRINTFORML （而且、好像还知道很多我不知道的事情）
	IF TALENT:MASTER:幼児／幼児退行 || TALENT:MASTER:年齢 == -1
		PRINTFORML （虽然看起来是个孩子、但或许是天赋异禀吧）
		PRINTFORML （听说在人类历史上也出现过很多这样的杰出人物）
	ELSEIF TALENT:MASTER:年齢 == 2
		PRINTFORML （和外表相吻合、像是个学者）
	ENDIF
ELSEIF ABL:MASTER:教養 >= 2
	PRINTFORML （哼…看起来很有教养）
	PRINTFORML （嗯、大概和我差不多吧）
ELSE
	PRINTFORML （哼…看来教养不怎么高啊）
	IF TALENT:MASTER:自尊心 == 1
		PRINTFORML （即使说谎、也会说「我知道那件事」之类的话）
	ELSE
		PRINTFORML （即使对他说谎也会坦然相信吧）
	ENDIF
ENDIF

;典の話術技能は5
IF ABL:話術技能 >= 5
	IF TALENT:MASTER:応答 == -1
		PRINTFORML （他说的话并不是很多…但确实让人很愿意倾听）
		PRINTFORML （是因为说话不拐弯抹角吗)
		PRINTFORML （不过、不会让我感到无聊的聊天内容…也是件美事）
		PRINTW
	ELSE
		PRINTFORML （我明白了、他虽然话很多、但在能说会道这方面却十分「擅长」）
		PRINTFORML （一边引入话题、一边若无其事地穿插自己想要探讨的话题）
		PRINTFORML （我也自认是个能言善辩的人…这位也相当锻炼过口才的样子）
		PRINTFORML （疏忽大意的话就可能被完全看穿）
	ENDIF
ELSEIF ABL:話術技能 >= 2
	IF TALENT:MASTER:応答 == -1 && ABL:MASTER:教養 >= 3
		PRINTFORML （虽然说的话算不上多、但对我的问题也会总结要点回答、也会抛出些话题来）
		PRINTFORML （和饭纲丸大人的说话方式很像）
	ELSE
		PRINTFORML （嗯、一副能言善道、善于倾听的模样）
		PRINTFORML （平时就有在通过聊天锻炼口才吧。但这也不是一朝一夕就能掌握的）
		PRINTFORML （可能是个思维敏捷的人）
		PRINTW
	ENDIF
ELSE
	IF TALENT:MASTER:応答 == -1
		PRINTFORML （不…和我说点什么吧）
		PRINTFORML （在我这样的美少女面前…这是在開玩笑吗）
		PRINTFORML （就算我主动与他说话、他反应也十分迟钝…试探真是辛苦啊）
	ELSE
		PRINTFORML （这……真让我烦躁啊）
		PRINTFORML （说话完全没有重点、也不论别人是否有在倾听这个前提、只是在自顾自地说着自己想说的话题）
		PRINTW
	ENDIF
ENDIF

PRINTFORML 典与%CALLNAME:MASTER%闲聊的期间、那如同一条竖线般的瞳孔一直在观察着对方…
PRINTW

;これまでの約會経験を格納
CFLAG:1006 = EXP:MASTER:約會経験

RETURN 1

@K139_BEFORETRAIN
;一日の開始時、正確には来訪判定時に読み込む関数,使うときはコメントアウトを外すこと
;ここでCFLAG:XX:翌日来訪を設定して確実に来訪させたりTCVAR:XX:発情で朝っぱらからサカらせることもできる
;ただし「毎朝例外なく読み込まれる」ため、条件を設定しておくことが望ましい
	;冬の１～７日は典が必ず発情する
	IF DAY:2 == 4 && GROUPMATCH(DAY:3,1,2,3,4,5,6,7)
		SIF TCVAR:139:発情 == 0
			TCVAR:139:発情 = 1
	ENDIF

	IF TALENT:妊娠願望
		;妊娠周期が排卵未満なら排卵誘発剤を飲む
		IF ESTRUS_CYCLE(TARGET) < 100
			IF FLAG:生理周期可視化 == 1
				PRINTFORML 典在与%CALLNAME:MASTER%见面之前似乎饮用了排卵诱发剂…
			ENDIF
			PRINTW
			TCVAR:強制排卵 = 180
		ENDIF
	ENDIF

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;约会帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K139_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTFORML 「%CALLNAME:MASTER%阁下、请稍等一下」
	PRINTFORML 正要回去的时候、突然被典叫住了
	PRINTFORML 也许是受到心理作用的影响、典的脸颊被染成了绯红色
	PRINTW
	PRINTFORML 「那个…嗯…因为有些不好意思、所以可以请你闭上眼睛吗？」
	PRINTFORML 典此刻是一副平时不会看见的、俯首不语并扭扭捏捏的模样
	PRINTW
	PRINTFORML 这难道是…
	PRINTFORML %CALLNAME:MASTER%十分激动地闭上眼睛
	PRINTW
	PRINTFORML 「就那样。不要睁開眼睛哦」
	PRINTFORML 典的声音越来越近
	PRINTW
	PRINTFORML 香香软软的
	PRINTFORML 嘴唇处传来的柔软触感。这就是、典的……
	PRINTW
	PRINTFORML 啾姆
	PRINTFORML 一种奇妙的感觉让我睁開眼睛、眼前的典正用手指捏着我的嘴唇、满脸坏笑地看着我
	PRINTW
	PRINTFORML 「呀ー咿、上钩了呢♪　是不是以为被吻了呢？　这其实是我的手指哦ー♪」
	PRINTFORML 她把手捏成狐狸的形状、在%CALLNAME:MASTER%的嘴唇上搞着恶作剧
	PRINTW
	PRINTFORML 怎么可以玩弄人的纯情…！　正当%CALLNAME:MASTER%即将发怒的时候──
	PRINTW
	PRINTFORML 典的脸迫近、嘴唇再次感受到柔软的触感
	PRINTFORML 比刚才更加柔软、香味扑鼻而来
	PRINTW
	PRINTFORML 「你被骗了吧。这次才是动真格的哦」
	PRINTFORML 典轻轻地移開嘴唇、露出恶作剧般的笑容
	PRINTW
	PRINTFORML 「啊、顺便说一下、刚才是我的第一次接吻哦」
	PRINTFORML 正当我因突如其来的吻而陷入混乱时、典又抛出了重磅炸弹
	PRINTW
	PRINTFORML 「骗你的啦ー、不要当真哦♪」
	PRINTFORML 典转身飞快地向前走去。%CALLNAME:MASTER%慌忙追了上去
	PRINTW
	PRINTFORML 「………………%UNICODE(0x2665) *1%」
	PRINTFORML （有点恶作剧过头了吧。但是、不这么做的话会很害羞的）
	PRINTFORML 典用手指轻轻碰了碰嘴唇、暗自嘻笑着…
	PRINTW
	;接吻を中止したい場合は以下を開放
	;TCVAR:中止接吻 = 1
ENDIF
RETURN 1

;==================================================
;约会帰りに告白（恋人が付く）
;基本的に典視点で話が進みます
;==================================================
@M_KOJO_SPEVENT_K139_2(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_2(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;告白内容
	;この告白内容表示後に接受かどうかの選択分が表示されます
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		;初回
		IF FIRSTTIME("告白")
			;龍が典より先に恋慕
			IF CFLAG:1000 == 1
				PRINTFORML 约会回来的路上
				PRINTFORML 我、和%CALLNAME:MASTER%阁下正在并肩而行
				PRINTW
				PRINTFORML %CALLNAME:MASTER%阁下、正微笑着和我说话
				PRINTFORML 我也报以笑容、但心里却乱作一团
				PRINTW
				PRINTFORML 『我、喜欢上了%CALLNAME:MASTER%』
				PRINTFORML 饭纲丸大人告诉我这件事时、我真的很高兴
				PRINTW
				PRINTFORML 虽然我想稍微调侃一下她、但我还是想支持她的爱情事业取得成功
				PRINTFORML 就那样、直到我自己也喜欢上了%CALLNAME:MASTER%
				PRINTW
				PRINTFORML 恋爱是近水楼台者胜。和妖怪的逻辑一样、强者胜、弱者败
				PRINTFORML 先行一步的人是饭纲丸大人、但她还没有告诉%CALLNAME:MASTER%
				PRINTFORML 按照这个逻辑、我只不过是比饭纲丸大人快了一步而已。既不是胆怯、也不是什么坏事
				PRINTW
				PRINTFORML 但是、我却无法向%CALLNAME:MASTER%表白
				PRINTFORML 因为怕引起主人的不快？　因为不想看到主人受伤的样子？　还是──
				PRINTW
				PRINTFORML 咔
				PRINTFORML 「哇哇！？」
				PRINTW
				PRINTFORML 也许是因为太过于专注思考、被脚边的石头绊倒了
				PRINTFORML 啊啊、我真是个笨蛋。如果是平时的我、应该不会发生这种事才对
				PRINTW
				PRINTFORML 我漫不经心地想着这些、就在我快要摔到地上的时候──
				PRINTFORML %CALLNAME:MASTER%他、一把抱住我的身体
				PRINTW
				PRINTFORML 「啊…」
				PRINTFORML 脸靠得很近。感受着%CALLNAME:MASTER%怀里的温暖。心如洪钟一般高亢
				PRINTW
				PRINTFORML 「啊、那个、%CALLNAME:MASTER%阁下」
				PRINTFORML 几乎是无意识地脱口而出。等等啊、不要再说下去了
				PRINTW
				PRINTFORML 「我…」
				PRINTFORML ──还没有说出口。还可以回头──
				PRINTW
				PRINTFORML 「我其实──」
				PRINTFORML ──不要说出来啊──
				PRINTW
				PRINTFORML 「对你一直都──」
				PRINTFORML ──再说下去的话──
				PRINTW
				PRINTFORML 「──喜欢着你」
				PRINTFORML ──啊ー啊、说出来了──
				PRINTW
				PRINTFORML 已经无力回天了。大势已定、木已成舟
				PRINTFORML 短短几秒的沉默、却让人有种无限漫长的错觉
				PRINTW
			;典が龍より先に恋慕
			ELSEIF CFLAG:1001 == 1
				PRINTFORML 约会回来的路上
				PRINTFORML 我、和%CALLNAME:MASTER%阁下正在并肩而行
				PRINTW
				PRINTFORML %CALLNAME:MASTER%阁下、正微笑着和我说话
				PRINTFORML 我也报以笑容、但心里却乱作一团
				PRINTW
				PRINTFORML 『我、喜欢上了%CALLNAME:MASTER%』
				PRINTFORML 饭纲丸大人告诉我这件事的时候、我内心非常动摇
				PRINTW
				PRINTFORML 恋爱是近水楼台者胜。和妖怪的逻辑一样、强者胜、弱者败
				PRINTFORML 快人一步的是我、但我还没有把我的想法告诉%CALLNAME:MASTER%
				PRINTFORML 从这个意义上来说、我和饭纲丸大人的立场可以说是势均力敌
				PRINTFORML 主君和随从、想法在奇怪的地方如出一辙了、内心不由得開始苦笑起来
				PRINTW
				PRINTFORML 那么在饭纲丸大人喜欢上%CALLNAME:MASTER%之前、赶紧表白不就好了
				PRINTFORML 另一方面、我又会蛮不讲理地愤愤不平地说、要是%CALLNAME:MASTER%早点对我说喜欢我不就好了吗
				PRINTFORML 而内心的另一个我、又会对有着大恩的主人的幻影喊道「明明是我先喜欢上他的！」
				PRINTW
				PRINTFORML 啊啊、好苦恼
				PRINTFORML 抓住别人心灵上的弱点乘虚而入明明是我的能力。但现在、我的弱点却暴露无遗
				PRINTW
				PRINTFORML 我还无法向%CALLNAME:MASTER%表白
				PRINTFORML 因为考虑到主人的感受、不想看到主人受伤的样子？　还是害怕未来会伤害到我自己？
				PRINTW
				PRINTFORML 咔
				PRINTFORML 「哇哇！？」
				PRINTW
				PRINTFORML 也许是因为太过于专注思考、被脚边的石头绊倒了
				PRINTFORML 啊啊、我真是个笨蛋。如果是平时的我、应该不会发生这种事才对
				PRINTW
				PRINTFORML 我漫不经心地想着这些、就在我快要摔到地上的时候──
				PRINTFORML %CALLNAME:MASTER%他、一把抱住我的身体
				PRINTW
				PRINTFORML 「啊…」
				PRINTFORML 脸靠得很近。感受着%CALLNAME:MASTER%怀里的温暖。心如洪钟一般高亢
				PRINTW
				PRINTFORML 「啊、那个、%CALLNAME:MASTER%阁下」
				PRINTFORML 几乎是无意识地脱口而出。等等啊、不要再说下去了
				PRINTW
				PRINTFORML 「我…」
				PRINTFORML ──还没有说出口。还可以回头──
				PRINTW
				PRINTFORML 「我其实──」
				PRINTFORML ──不要说出来啊──
				PRINTW
				PRINTFORML 「对你一直都──」
				PRINTFORML ──再说下去的话──
				PRINTW
				PRINTFORML 「──喜欢着你」
				PRINTFORML ──啊ー啊、说出来了──
				PRINTW
				PRINTFORML 已经无力回天了。大势已定、木已成舟
				PRINTFORML 短短几秒的沉默、却让人有种无限漫长的错觉
				PRINTW
			;龍に恋慕がついていない、または同じタイミングで恋をした？（同日恋慕がついたとき、どういう処理になるか不明）
			ELSE
				PRINTFORML 约会回来的路上
				PRINTFORML 我、和%CALLNAME:MASTER%阁下正在并肩而行
				PRINTW
				PRINTFORML %CALLNAME:MASTER%阁下、正微笑着和我说话
				PRINTFORML 我也报以笑容、但心里却一直如洪钟一般高亢
				PRINTW
				PRINTFORML 一開始是受饭纲丸大人之命去监视出现在妖怪之山上的异己
				PRINTFORML 如果是个有趣的对象、就去接触试探一番。如果是个危险分子的话、就在不弄脏自己的手的前提下将其排除
				PRINTW
				PRINTFORML 但是、我却爱上了监视对象
				PRINTFORML 真是愚蠢至极。简直就像随处可见的三文芝居一般的故事
				PRINTW
				IF ABL:MASTER:教養 <= 1
					PRINTFORML 一開始、我还以为他是个没什么教养的人、没想到和他在一起却意外地舒服
					IF ABL:MASTER:話術技能 <= 1
						PRINTFORML 也不是很会说话。偶尔也会有因为不会说话而焦虑的时候
						PRINTFORML 即便如此、有时不经意的一句话也会让我心潮澎湃
					ELSE
						PRINTFORML 但是、%CALLNAME:MASTER%说话却很有趣
						PRINTFORML 真假暂且不论、我能感受到他想营造一个让我開心的氛围
					ENDIF

					IF ABL:MASTER:戦闘能力 <= 1
						PRINTFORML 而且、很弱。别说我了、连妖精都不如
						PRINTFORML 妖怪也有以强度为指标的种族
						PRINTFORML 要是再强一点的话就好了…我也不是没这么想过、但那对我来说不是绝对必要的
					ELSEIF ABL:MASTER:戦闘能力 >= 4
						PRINTFORML 而且、很强。也许和我的主人一样、或许还要在其之上
						PRINTFORML 果然、无论对妖怪还是人类来说、强度都是一个很容易理解的指标
						PRINTFORML 虽然也有因为我是兽之妖怪的原因、但被强者吸引也是理所当然的
					ELSE
						PRINTFORML 而且、也有一定的力量
						PRINTFORML 果然、无论对妖怪还是人类来说、强度都是一个很容易理解的指标
						PRINTFORML 虽然也有因为我是兽之妖怪的原因、但被强者吸引也是理所当然的
					ENDIF
				ELSE
					PRINTFORML 与他一起度过、一起聊天的时光总是很開心
					PRINTFORML 即使是对自己的知识很有自信的我、也常常被%CALLNAME:MASTER%说的话给震惊到
					IF ABL:MASTER:話術技能 <= 1
						PRINTFORML 虽然不擅长说话这一点还是没什么变化…
						PRINTFORML 即便如此、有时不经意的一句话也会让我心潮澎湃
					ELSE
						PRINTFORML 但是、%CALLNAME:MASTER%说话却很有趣
						PRINTFORML 时常有说些不会伤害到对方的谎言而让我大笑的时候
					ENDIF

					IF ABL:MASTER:戦闘能力 <= 1
						PRINTFORML 而且、很弱。别说我了、连妖精都不如
						PRINTFORML 妖怪也有以强度为指标的种族
						PRINTFORML 要是再强一点的话就好了…我也不是没这么想过、但那对我来说不是绝对必要的
					ELSEIF ABL:MASTER:戦闘能力 >= 4
						PRINTFORML 而且、很强。也许和我的主人一样、或许还要在其之上
						PRINTFORML 果然、无论对妖怪还是人类来说、强度都是一个很容易理解的指标
						PRINTFORML 虽然也有因为我是兽之妖怪的原因、但被强者吸引也是理所当然的
					ELSE
						PRINTFORML 而且、也有一定的力量
						PRINTFORML 果然、无论对妖怪还是人类来说、强度都是一个很容易理解的指标
						PRINTFORML 虽然也有因为我是兽之妖怪的原因、但被强者吸引也是理所当然的
					ENDIF
				ENDIF
				PRINTFORML 一一列举起来、这些都是理由、不过也仅仅是理由
				PRINTFORML 「即使没有这些理由也仍然喜欢%CALLNAME:MASTER%。想要陪在他身边」
				PRINTFORML 答案总是一些简单而多余的理由。却使得结果变得复杂而棘手
				PRINTW
				PRINTFORML 被这复杂而棘手的结果所束缚的我、现在还在犹豫该不该表白
				PRINTFORML 如果、%CALLNAME:MASTER%他、不喜欢我的话该怎么办？
				PRINTFORML 如果、%CALLNAME:MASTER%他、有其他喜欢的人该怎么办？
				PRINTFORML 如果、%CALLNAME:MASTER%他──
				PRINTW
				PRINTFORML 咔
				PRINTFORML 「哇哇！？」
				PRINTW
				PRINTFORML 也许是因为太过于专注思考、被脚边的石头绊倒了
				PRINTFORML 啊啊、我真是个笨蛋。如果是平时的我、应该不会发生这种事才对
				PRINTW
				PRINTFORML 我漫不经心地想着这些、就在我快要摔到地上的时候──
				PRINTFORML %CALLNAME:MASTER%他、一把抱住我的身体
				PRINTW
				PRINTFORML 「啊…」
				PRINTFORML 脸靠得很近。感受着%CALLNAME:MASTER%怀里的温暖。感觉内心快要爆炸了
				PRINTW
				PRINTFORML 「啊、那个、%CALLNAME:MASTER%阁下」
				PRINTFORML 几乎是无意识地脱口而出
				PRINTW
				PRINTFORML 「我…」
				PRINTFORML ──还在犹豫什么呢──
				PRINTW
				PRINTFORML 「我其实──」
				PRINTFORML ──加油啊、我自己──
				PRINTW
				PRINTFORML 「对你一直都──」
				PRINTFORML ──拿出勇气来。不需要什么策略──
				PRINTW
				PRINTFORML 「──喜欢着你」
				PRINTFORML ──说出来了──
				PRINTW
				PRINTFORML 已经无力回天了。大势已定、木已成舟
				PRINTFORML 短短几秒的沉默、却让人有种无限漫长的错觉
				PRINTW
			ENDIF
		;2回目以降
		ELSE
			;龍が典より先に恋慕
			IF CFLAG:1000 == 1
				PRINTFORML 「那个……能让我再听一遍你的回答吗」
				PRINTFORML 「我喜欢你的心情、从那时起就一直没有变过」
				SIF TCVAR:140:絶頂経験 > 0
					PRINTFORML 「我知道%CALLNAME:MASTER%阁下已经抱过饭纲丸大人了」
				SIF TCVAR:接吻経験 > 1
					PRINTFORML 「也许也已经一边接吻一边诉说过爱的话语」
				PRINTFORML 「即使这样也没关系。即使你和饭纲丸大人相爱了、我也可以不过问」
				PRINTFORML 「尽管如此、典还是希望自己能成为%CALLNAME:MASTER%阁下心里的第一」
				PRINTW
				PRINTFORML 「所以……你可以选择我吗」
				PRINTW
			;典が龍より先に恋慕
			ELSEIF CFLAG:1001 == 1
				PRINTFORML 「那个……能让我再听一遍你的回答吗」
				PRINTFORML 「我喜欢你的心情、从那时起就一直没有变过」
				PRINTW
				PRINTFORML 「我、真的不行吗？　典不是很有魅力吗？」
				PRINTFORML 「%CALLNAME:MASTER%阁下真的、很狡猾呢」
				PRINTFORML 「明知道这样邀请我去约会的话、我会很高兴地跟着去的」
				;時姦絶頂もカウントされてしまいそうな気がするので、口上用TCVARにしたほうがいいかもしれない
				SIF TCVAR:絶頂経験 > 0
					PRINTFORML 「明知道想要抱我的话、我是不会拒绝的」
				SIF TCVAR:接吻経験 > 1
					PRINTFORML 「每当我想要忘记这件事时、却又会被吻得迷失了自我」
				PRINTFORML 「真的、真的是、太过分了」
				PRINTFORML 「但是……典对%CALLNAME:MASTER%阁下却仍然……喜欢着」
				PRINTW
				PRINTFORML 「所以……你可以选择我吗」
				PRINTW
			;恋慕キャラがいると会話内容が分岐
			ELSE
				PRINTFORML 「那个……能让我再听一遍你的回答吗」
				PRINTFORML 「我喜欢你的心情、从那时起就一直没有变过」
				PRINTW
				IF CMATCH(TALENT:恋慕, 1) > 1
					PRINTFORML 「我知道有很多女孩子都爱慕着%CALLNAME:MASTER%阁下」
					PRINTFORML 「不管你和那些女孩子都在做些什么、我都不会过问、也不会抱怨」
					PRINTFORML 「很少有女人能理解并同意出轨的对吧？　只要最后、你能回到我身边就好了」
					PRINTW
					PRINTFORML 抛開羞耻与绯闻、拼命编织着话语的典
					PRINTFORML 那里没有设下奸计的管狐、只有一个为爱而生的女人
					PRINTFORML 「我、想成为%CALLNAME:MASTER%阁下的第一」
				ENDIF
				PRINTFORML 「%CALLNAME:MASTER%阁下、我喜欢你。从今往后都会一直喜欢着你」
				PRINTFORML 「所以……你可以选择我吗」
				PRINTW
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;一発OK
		IF FIRSTTIME("返答")
			;龍が典より先に恋慕
			IF CFLAG:1000 == 1
				PRINTFORML 「真的是……太好了吗？」
				PRINTFORML 「没有选择饭纲丸大人、而是选择了我…」
				PRINTW
				PRINTFORML 「如果得到饭纲丸大人的宠爱的话、%CALLNAME:MASTER%阁下在妖怪之山的地位不就安泰了吗？」
				PRINTFORML 「这可比与我这油嘴滑舌的管狐在一起幸福得多哦？」
				PRINTW
				PRINTFORML 啊啊、我真是不争气
				PRINTFORML 从没想过自己会对恋爱如此胆怯
				PRINTW
				PRINTFORML 「饭纲丸大人是个很优秀的人。别看她那样、其实很会做料理。和我完全不同──」
				PRINTFORML 你在说什么啊。明明只要说句「好開心」就行了啊
				PRINTFORML 现在说的都是些贬低自己、抬高饭纲丸大人的话
				PRINTW
				PRINTFORML 「而且、饭纲丸大人她──」
				PRINTFORML 不要再说了。再说下去%CALLNAME:MASTER%阁下就要离開你了啊
				PRINTW
				PRINTFORML 「比起我、果然还是饭纲丸大人更好吧──」
				PRINTFORML 讨厌。讨厌啊。明明是喜欢你。明明最喜欢你了
				PRINTW
				CALL ASK_YN("亲吻典","紧紧抱住典")
				IF !RESULT
					PRINTFORML 「唔─────」
					PRINTFORML 然而、欲编织自虐之语的嘴唇却被堵住了
					PRINTW
					PRINTFORML 眼前、是%CALLNAME:MASTER%的脸
					PRINTFORML 虽然只是几秒钟的事、时间却彷佛像是永恒一般
					PRINTW
					PRINTFORML 「──哇啊」
					PRINTFORML 不用看也知道。现在的我一定是一副荒唐可笑的表情
					PRINTW
					PRINTFORML %CALLNAME:MASTER%对我说
					PRINTFORML 『是我选择了典』。『因为是典所以没关系』
					PRINTW
					PRINTFORML 「真的吗……」
					PRINTFORML 这、这样是不行的
					PRINTW
					PRINTFORML 「真的、嗯咕、愿意、选我吗……」
					PRINTFORML 视线扭曲。喉咙深处泛起疼痛感。啊啊、我真是难看
					PRINTW
					PRINTFORML 「好開心。好開心啊。呜哇啊啊啊啊啊啊唔」
					PRINTFORML 如果知道眼前这位是人称『耳边低语的邪恶白狐』的话一定会很惊讶的吧
					PRINTW
					PRINTFORML 「最喜欢你了。最喜欢%CALLNAME:MASTER%阁下了呜呜呜」
					PRINTFORML 在我停止哭泣之前、%CALLNAME:MASTER%一直抚摸着我的头
					PRINTW
					EXP:接吻経験 ++
					EXP:MASTER:接吻経験 ++
					EXP:愛情経験 += 10
				ELSE
					PRINTFORML 「唔─────」
					PRINTFORML 简直让人喘不过气来、%CALLNAME:MASTER%紧紧地抱住了我
					PRINTW
					PRINTFORML 然后、在耳边低语说「我喜欢你」
					CALL HPH_PRINT,@"「wwﾍ√ﾚvv～wwﾍ√ﾚvvwwﾍ√ﾚvvHPHHPHっHPHHPH」","L"
					PRINTW
					PRINTFORML 后背因兴奋而颤抖不已、全身被官能的欢愉所侵犯
					PRINTFORML 他只说了一句话、就让『耳边低语的邪恶白狐』迷失了自我
					PRINTW
					PRINTFORML 『你是我的女人』
					CALL HPH_PRINT,@"「啊、是的…HPH」","W"
					PRINTFORML 『不要想多余的事情、只要在意自己就可以了』
					CALL HPH_PRINT,@"「不行啊、一直在耳边窃窃私语…HPH」","L"
					PRINTW
					PRINTFORML 甜言蜜语像毒品一样流入大脑
					PRINTFORML 这可不妙。要变成笨蛋了。
					PRINTW
					PRINTFORML 『比起饭纲丸、更喜欢典』
					CALL HPH_PRINT,@"「喜欢…HPH　%CALLNAME:MASTER%阁下、最喜欢你了…HPH」","L"
					PRINTW
					PRINTW
					PRINTW
					PRINTFORML 啊啊、多么失态啊……
					PRINTFORML 在恢复冷静的思考中、袭来的是难以忍受的羞耻
					PRINTW
					PRINTFORML 「那、那个…啊、嗯！」
					PRINTFORML 不行啊。根本不敢正视他的脸。我直接飞扑进了%CALLNAME:MASTER%的怀抱里
					PRINTW
					PRINTFORML 「这样的我……今后请多多关照」
					PRINTFORML 「典……典现在、真的很幸福呢……♪」
					PRINTW
				ENDIF
			;典が龍より先に恋慕
			ELSEIF CFLAG:1001 == 1
				PRINTFORML 「真的……真的吗？」
				PRINTFORML 「没有选择饭纲丸大人、而是选择了我…」
				PRINTW
				PRINTFORML 还是典比较好、%CALLNAME:MASTER%阁下一边这样说着一边点了点头
				PRINTW
				PRINTFORML 「哇、哇啊啊啊啊啊啊啊啊……」
				PRINTFORML 也许是因为终于放下心来、我突然因腰力不支摔倒了
				PRINTW
				PRINTFORML 就要快在摔到地上的时候、%CALLNAME:MASTER%阁下伸出了援手
				PRINTFORML %CALLNAME:MASTER%阁下总是这样
				PRINTFORML 在这种不经意的地方、会令人心动
				PRINTW
				PRINTFORML 「我真是太没出息了……平时总是用智慧对付强者的我……」
				PRINTFORML 「因为你的一句告白就摔倒了……」
				PRINTW
				PRINTFORML 没想到自己竟然恋爱脑到这种地步、有些震惊得目瞪口呆
				PRINTFORML 但是、我自己也感到惊讶的是、自己并没有那么讨厌这样的自己
				PRINTW
				PRINTFORML 如果是之前并不了解恋爱的自己、一定会嗤之以鼻地说「恋爱这种东西」之类的话吧
				PRINTFORML 以前的自己真是太天真了。恋爱是一场战争、一场没有仁义的战争
				PRINTW
				PRINTFORML 「鼓起勇气向你表白真是太好了」
				PRINTFORML 「虽然有些对不住饭纲丸大人……」
				PRINTW
				PRINTFORML 一想到敬爱的主君就心痛、但唯独这一点不能让步
				PRINTFORML 虽然对交往被发现可能会发生的事感到害怕、但到时候再考虑吧
				PRINTW
				PRINTFORML 「『和你的话语相反、你的脸上完全是一副妒火中烧不成体统的表情』吗？　这怎么可……」
				PRINTFORML 「『一副之前从没见过的表情？』欸欸欸、请不要再看啦……\/\/\/」
				PRINTW
				PRINTFORML 我似乎比我想象的还要兴奋
				PRINTFORML 这种表情要是被饭纲丸大人看到、一定会被砍头的。桑原咒桑原咒（日本一种为避免落雷、灾难及讨厌的事情的发生而念的咒语）
				PRINTW
				PRINTFORML 「那都是因为%CALLNAME:MASTER%阁下。我是因为如此想念你才会变成这样的」
				PRINTFORML 「所以请好好负起责任哦。作为恋人」
				PRINTW
				PRINTFORML %CALLNAME:MASTER%阁下的表情稍稍有些扭曲。看这样子即使没有讨厌自己……
				PRINTFORML ……不过、鉴于自己至今为止的行动、也可以说是无可奈何…
				PRINTFORML 话虽如此、还是希望对方能坦率地接受恋爱中的女人所说的话
				PRINTW
				PRINTFORML 「那么……首先请紧紧地拥抱住我♪」
				PRINTFORML 「今后还请多多关照典……♪」
				PRINTW
			;それ以外
			ELSE
				CALL ASK_YN("堵住典的嘴唇","在典的耳边告白")
				IF !RESULT
					PRINTFORML 「唔─────」
					PRINTFORML 嘴唇突然被堵住了
					PRINTW
					PRINTFORML 眼前、是%CALLNAME:MASTER%的脸
					PRINTFORML 虽然只是几秒钟的事、时间却彷佛像是永恒一般
					PRINTW
					PRINTFORML 「──哇啊」
					PRINTFORML 不用看也知道。现在的我一定是一副荒唐可笑的表情
					PRINTW
					PRINTFORML %CALLNAME:MASTER%对我说
					PRINTFORML 『我喜欢典』
					PRINTW
					PRINTFORML 「啊啊……典真的、真的很幸福」
					PRINTFORML 「
					PRINTW
					EXP:接吻経験 ++
					EXP:MASTER:接吻経験 ++
					EXP:愛情経験 += 10
				ELSE
					PRINTFORML 「唔─────」
					PRINTFORML 简直让人喘不过气来、%CALLNAME:MASTER%紧紧地抱住了我
					PRINTW
					PRINTFORML 然后、在耳边低语说「我喜欢你」
					CALL HPH_PRINT,@"「wwﾍ√ﾚvv～wwﾍ√ﾚvvwwﾍ√ﾚvvHPHHPHっHPHHPH」","L"
					PRINTW
					PRINTFORML 后背因兴奋而颤抖不已、全身被官能的欢愉所侵犯
					PRINTFORML 他只说了一句话、就让『耳边低语的邪恶白狐』迷失了自我
					PRINTW
					PRINTFORML 『你是我的女人』
					CALL HPH_PRINT,@"「啊、是的…HPH」","W"
					PRINTFORML 『不要想多余的事情、只要在意自己就可以了』
					CALL HPH_PRINT,@"「不行啊、一直在耳边窃窃私语…HPH」","L"
					PRINTW
					PRINTFORML 甜言蜜语像毒品一样流入大脑
					PRINTFORML 这可不妙。要变成笨蛋了。
					PRINTW
					PRINTFORML 『你喜欢我吗』
					CALL HPH_PRINT,@"「喜欢…HPH　%CALLNAME:MASTER%阁下、最喜欢你了…HPH」","L"
					PRINTW
					PRINTW
					PRINTW
					PRINTFORML 啊啊、多么失态啊……
					PRINTFORML 在恢复冷静的思考中、袭来的是难以忍受的羞耻
					PRINTW
					PRINTFORML 「那、那个…啊、嗯！」
					PRINTFORML 不行啊。根本不敢正视他的脸。我直接飞扑进了%CALLNAME:MASTER%的怀抱里
					PRINTW
					PRINTFORML 「这样的我……今后请多多关照」
					PRINTFORML 「典……典现在、真的很幸福呢……♪」
					PRINTW
				ENDIF
			ENDIF
			;典から告白フラグ
			CFLAG:1013 = 2
		;一度お断りしてからＯＫ
		ELSE
			;龍が典より先に恋慕
			IF CFLAG:1000 == 1
			;典が龍より先に恋慕
			ELSEIF CFLAG:1001 == 1
			;それ以外
			ELSE
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;初めてお断り
		IF FIRSTTIME("返答")
			;龍が典より先に恋慕
			IF CFLAG:1000 == 1
				PRINTFORML 「为什么……？」
				PRINTFORML 「！　%CALLNAME:MASTER%阁下、难道是因为饭纲丸大人吗……」
				CALL ASK_YN("……","不是那样的")
				IF !RESULT
					PRINTFORML 「……果然是这样啊」
					PRINTFORML 「对于身为部下的我而言、我也觉得饭纲丸大人是位很棒的女性」
					PRINTW
					PRINTFORML 「精明强干是理所当然的、别看她那样、其实很顾家」
					PRINTFORML 「经常亲自下厨招待我」
					PRINTW
					PRINTFORML 「但是、请不要忘记」
					PRINTFORML 「狐狸的执念是很深的。一旦捕捉到猎物、直到猎物变成自己的东西前、它都不会放手」
					PRINTW
					PRINTFORML 「我是不会放弃的。即使这样有失体面、不像自己的作风」
					PRINTFORML 「典会一直爱着你的、直到我的身体腐朽为止」
					PRINTW
					PRINTFORML 这是场一開始就没有胜算的战斗。那种事我是明白的
					PRINTFORML 但是还没有完全分出胜负。因为他们还不是恋人
					PRINTW
					PRINTFORML 无论对方是不是我敬爱的主子、都与我倾心于%CALLNAME:MASTER%这件事没有关系
					PRINTFORML 用尽我的浑身解数、来让%CALLNAME:MASTER%阁下回心转意
					PRINTW
					PRINTFORML %CALLNAME:MASTER%阁下。啊啊、%CALLNAME:MASTER%阁下
					PRINTFORML 我一定会把你变成我的东西
					PRINTW
					;你が龍を好きかもしれないフラグON
					CFLAG:1004 = 1
				ELSE
					PRINTFORML 「那么、为什么……」
					PRINTFORML 「不、还是不要问了。我不喜欢这种让自己更悲惨的感觉」
					PRINTW
					PRINTFORML 「但是、请不要忘记」
					PRINTFORML 「狐狸的执念是很深的。一旦捕捉到猎物、直到猎物变成自己的东西前、它都不会放手」
					PRINTW
					PRINTFORML 「我是不会放弃的。即使这样有失体面、不像自己的作风」
					PRINTFORML 「典会一直爱着你的、直到我的身体腐朽为止」
					PRINTW
					PRINTFORML 金色的瞳孔、一直咬定着%CALLNAME:MASTER%不放……
					PRINTW
				ENDIF
			;典が龍より先に恋慕
			ELSEIF CFLAG:1001 == 1
				PRINTFORML 「%CALLNAME:MASTER%阁下、你是觉得典配不上你吗」
				PRINTFORML 「明明我比任何人都更仰慕着你……」
				PRINTW
				PRINTFORML 「难道说、是因为你对饭纲丸大人产生感情了吗？」
				CALL ASK_YN("……","不是那样的")
				PRINTW
				IF !RESULT
					PRINTFORML 「……果然是这样啊」
					PRINTFORML 「对于身为部下的我而言、我也觉得饭纲丸大人是位很棒的女性」
					PRINTW
					PRINTFORML 「精明强干是理所当然的、别看她那样、其实很顾家」
					PRINTFORML 「经常亲自下厨招待我」
					PRINTW
					PRINTFORML 「但是、被这比自己更晚喜欢上的女性给夺去了意中人的心、这种感觉是很痛苦的」
					PRINTFORML 「即使那个人是我所仰慕的主人」
					PRINTW
					PRINTFORML 典轻轻低下头
					PRINTFORML 她的表情被刘海给遮住了
					PRINTW
					PRINTFORML 「但是、请不要忘记」
					PRINTFORML 「狐狸的执念是很深的。一旦捕捉到猎物、直到猎物变成自己的东西前、它都不会放手」
					PRINTW
					PRINTFORML 「我是不会放弃的。即使这样有失体面、不像自己的作风」
					PRINTFORML 「典会一直爱着你的、直到我的身体腐朽为止」
					PRINTW
					PRINTFORML 这是场一開始就没有胜算的战斗。那种事我是明白的
					PRINTFORML 但是还没有完全分出胜负。因为他们还不是恋人
					PRINTW
					PRINTFORML 无论对方是不是我敬爱的主子、都与我倾心于%CALLNAME:MASTER%这件事没有关系
					PRINTFORML 用尽我的浑身解数、来让%CALLNAME:MASTER%阁下回心转意
					PRINTW
					PRINTFORML %CALLNAME:MASTER%阁下。啊啊、%CALLNAME:MASTER%阁下
					PRINTFORML 我一定会把你变成我的东西
					PRINTW
					;你が龍を好きかもしれないフラグON
					CFLAG:1004 = 1
				ELSE
					PRINTFORML 「那么、为什么……」
					PRINTFORML 「难道你觉得典是个……方便的女人吗？」
					PRINTW
					PRINTFORML 「……刚才的事太无理取闹了。非常抱歉」
					PRINTFORML 「是我自作主张地爱上了%CALLNAME:MASTER%阁下」
					PRINTW
					PRINTFORML 「但是、请不要忘记」
					PRINTFORML 「狐狸的执念是很深的。一旦捕捉到猎物、直到猎物变成自己的东西前、它都不会放手」
					PRINTW
					PRINTFORML 「我是不会放弃的。即使这样有失体面、不像自己的作风」
					PRINTFORML 「典会一直爱着你的、直到我的身体腐朽为止」
					PRINTW
					PRINTFORML 金色的瞳孔、一直咬定着%CALLNAME:MASTER%不放……
					PRINTW
				ENDIF
			;それ以外
			ELSE
				PRINTFORML 「%CALLNAME:MASTER%阁下、你是觉得典配不上你吗」
				PRINTFORML 「明明我比任何人都更仰慕着你……」
				PRINTW
				IF CFLAG:既成事實 == 1
					PRINTFORM 「那么、为什么要这样邀请我去约会、又抱了我呢？」
				ELSEIF CFLAG:既成事實 == 0
					PRINTFORM 「那么、为什么要这样邀请我去约会、又和我接吻呢？」
				ENDIF
				PRINTW
				PRINTFORML 「难道你觉得典是个……方便的女人吗？」
				PRINTFORML 「太过分了…不、我不应该说这种没有道理的话」
				PRINTW
				PRINTFORML 「话说过了头。非常抱歉」
				PRINTFORML 「明明只是我单方面的迷恋、却期望能得到回报」
				PRINTW
				PRINTFORML 「但是、请不要忘记」
				PRINTFORML 「狐狸的执念是很深的。一旦捕捉到猎物、直到猎物变成自己的东西前、它都不会放手」
				PRINTW
				PRINTFORML 「我是不会放弃的。即使这样有失体面、不像自己的作风」
				PRINTFORML 「典会一直爱着你的、直到我的身体腐朽为止」
				PRINTW
				PRINTFORML 金色的瞳孔、一直咬定着%CALLNAME:MASTER%不放……
				PRINTW
			ENDIF
		;一度お断り済み
		ELSE
			;龍が典より先に恋慕
			IF CFLAG:1000 == 1
				;你が龍を好きかもしれないフラグON
				IF CFLAG:1004 == 1
					;龍の好感度 > 典の好感度
					IF CFLAG:140:好感度 > CFLAG:139:好感度
						PRINTFORML 「你把我放在过眼里吗……？」
						PRINTFORML 「你是说我无法赢得%CALLNAME:MASTER%阁下的心吗……？」
					;龍の好感度 = 典の好感度
					ELSEIF CFLAG:140:好感度 == CFLAG:139:好感度
						PRINTFORML 「我对你的爱慕之情、绝不能输给饭纲丸大人……」
						PRINTFORML 「因为太过于仰慕%CALLNAME:MASTER%阁下、所以我的身体、都要焦灼起来了」
						PRINTW
					;龍の好感度 < 典の好感度
					ELSEIF CFLAG:140:好感度 < CFLAG:139:好感度
						PRINTFORML 「我可能各方面都不如饭纲丸大人……」
						PRINTFORML 「即便如此、你能回过头来看看典吗……？」
						PRINTFORML 「%CALLNAME:MASTER%阁下的内心、典难道没有任何能进入的余地吗……？」
						PRINTW
					ENDIF
				;龍を好きとは匂わせていない
				ELSE
					PRINTFORML 「你真的不能接受我吗……？」
					PRINTFORML 「你不相信典吗？　你认为我对%CALLNAME:MASTER%阁下你的爱慕是假的吗？」
					PRINTFORML 「%CALLNAME:MASTER%阁下……」
					PRINTW
				ENDIF
				PRINTFORML 「你把我放在过眼里吗……？」
			;典が龍より先に恋慕
			ELSEIF CFLAG:1001 == 1
				;你が龍を好きかもしれないフラグON
				IF CFLAG:1004 == 1
					;龍の好感度 > 典の好感度
					IF CFLAG:140:好感度 > CFLAG:139:好感度
						PRINTFORML 「你对饭纲丸大人的感情比对我的感情更深吗……？」
						PRINTFORML 「你是说我无法赢得%CALLNAME:MASTER%阁下的心吗……？」
					;龍の好感度 = 典の好感度
					ELSEIF CFLAG:140:好感度 == CFLAG:139:好感度
						PRINTFORML 「我对你的爱慕之情、绝不能输给饭纲丸大人……」
						PRINTFORML 「这副身体、也一直在仰慕着%CALLNAME:MASTER%阁下」
						PRINTW
					;龍の好感度 < 典の好感度
					ELSEIF CFLAG:140:好感度 < CFLAG:139:好感度
						PRINTFORML 「我可能各方面都不如饭纲丸大人……」
						PRINTFORML 「即便如此、你能回过头来看看典吗……？」
						PRINTFORML 「为了赢得%CALLNAME:MASTER%阁下的心、我做的这些还不够吗……？」
						PRINTW
					ENDIF
				;龍を好きとは匂わせていない
				ELSE
					PRINTFORML 「你真的不能接受我吗……？」
					PRINTFORML 「你不相信典吗？　你认为我对%CALLNAME:MASTER%阁下你的爱慕是假的吗？」
					PRINTFORML 「%CALLNAME:MASTER%阁下……」
					PRINTW
				ENDIF
			;それ以外
			ELSE
				PRINTFORML 「你真的不能接受我吗……？」
				PRINTFORML 「你不相信典吗？　你认为我对%CALLNAME:MASTER%阁下你的爱慕是假的吗？」
				PRINTFORML 「我才是最仰慕%CALLNAME:MASTER%阁下的人啊……」
				PRINTW
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;约会帰り
;==================================================
@M_KOJO_SPEVENT_K139_3(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_3(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		IF TALENT:恋慕 || TALENT:恋人
		ELSEIF TALENT:思慕
		ELSE
			;初约会帰り
			IF CFLAG:1005 == 1
				PRINTFORML 「唔嗯、这就是所谓的『约会』吧」
				IF BASE:139:情緒 == MAXBASE:139:情緒
				ELSEIF BASE:139:情緒 >= 500

				ELSE
					PRINTFORML 「说实话……并没有我想象中的那么好」
					PRINTW
					PRINTFORML 「在沮丧什么呢？　下次请让我高兴起来哦」
					PRINTFORML 典回过头、对我微微一笑
					PRINTFORML 看来、典下次也会答应约会的
					PRINTW
				ENDIF
			;２回目以降
			ELSE
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「……如果连这种事都不原谅、反而会显得我心胸狭窄」
		PRINTFORML 「我原谅你。我们和好吧」
		PRINTFORML 「但是、如果下次再做同样的事、我就会去幻想乡各处把这件事添油加醋地说出来哦？」
		PRINTW
		PRINTFORML 典用手指捏成狐狸的形状、在%CALLNAME:MASTER%的鼻尖前晃来晃去
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「似乎有了很大程度的反省」
		PRINTFORML 「但是、不行哦。因为%CALLNAME:MASTER%阁下很容易就得意忘形起来」
		PRINTFORML 「我还不打算原谅你呢」
		PRINTW
		PRINTFORML 不过典的表情似乎缓和了一些
		PRINTW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「似乎有在反省的样子。不过、我还不打算原谅你」
		PRINTFORML 「……我承认你很努力。虽然只是一点点的程度」
		PRINTW
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K139_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	IF EQUIP:連衣裙
		CALL K139_NURESUKE()
	ENDIF

	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF FLAG:70
		ELSEIF TCVAR:374 >= 500 || (TCVAR:利尿剤 && TCVAR:374 > 0)
			;廁所に入ってきた
			IF CFLAG:MASTER:現在位置 == 14 || CFLAG:MASTER:現在位置 == 236 || CFLAG:MASTER:現在位置 == 316 || CFLAG:MASTER:現在位置 == 322 || CFLAG:MASTER:現在位置 == 824
				IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
					PRINTFORML 一进入厕所、就看见身为先客的典
					PRINTFORML 「%CALLNAME:MASTER%阁下…？」
					PRINTW
					PRINTFORML 「竟然窥视女性的排泄行为…%CALLNAME:MASTER%阁下、真的是个变态呢…%UNICODE(0x2665) *1%」
					PRINTFORML 「难道、你打算就这样看着吗？」
					CALL ASK_YN("对不起！","很在意尿尿的地方")
					IF !RESULT
						PRINTFORML 「呵呵、慌慌张张的、真是太可爱了…♪」
						PRINTFORML 「对我来说、如果是被%CALLNAME:MASTER%阁下看见的话、倒也没什么大不了的…」
						PRINTFORML 「如果弄坏了%CALLNAME:MASTER%阁下的性癖的话、将来可是会很麻烦的呢♪」
						PRINTW
						PRINTFORML 「哈～～、舒畅了♪」
						PRINTW
						IF CFLAG:MASTER:現在位置 == 14
							CFLAG:MASTER:現在位置 = 10
						ELSEIF CFLAG:MASTER:現在位置 == 236
							CFLAG:MASTER:現在位置 = 237
						ELSEIF CFLAG:MASTER:現在位置 == 316
							CFLAG:MASTER:現在位置 = 309
						ELSEIF CFLAG:MASTER:現在位置 == 322
							CFLAG:MASTER:現在位置 = 319
						ELSEIF CFLAG:MASTER:現在位置 == 824
							CFLAG:MASTER:現在位置 = 821
						ENDIF
					TCVAR:374 = 0
					;オシッコが気になる
					ELSE
						PRINTFORML 「！　哎呀哎呀、嘛嘛…%UNICODE(0x2665) *1%」
						PRINTFORML 「你知道吗？　这是赤裸裸的犯罪行为哦」
						PRINTFORML （不过、典是妖怪来着、所以即使真的在偷窥、这法律也不适用于我吧…♪）
						PRINTW
						PRINTFORMW 「真是的…这是对人类来说最恶劣的行为。%CALLNAME:MASTER%阁下的将来、真的是一片漆黑呢」
						PRINTFORMW 「对于自己的所作所为、您真的理解吗？」
						PRINTFORMW 「如果姐姐突然大叫起来、%CALLNAME:MASTER%阁下的人生就完蛋了吧？」
						PRINTFORMW 「『偷窥狂魔、变态ー』、作为罪犯被人在背后指指点点、就这样度过寂寞的一生」
						PRINTW
						PRINTFORML （呼呼、泪眼汪汪的…真是可爱呢♪）
						PRINTFORML 「…不过呢、身为姐姐、我可不想让%CALLNAME:MASTER%阁下成为犯人啊」
						PRINTFORML 「所以、就特别给你看看吧…♪」
						PRINTW
						PRINTL ……
						PRINTL …
						PRINTW
						IF TALENT:MASTER:非童貞 == 1
							PRINTFORML 「这里…你知道是什么吧%UNICODE(0x2665) *1%　对、这里就是小穴哦%UNICODE(0x2665) *1%」
						ELSE
							PRINTFORML 「你知道吗…这个就是小穴哦、这里是用来容纳小鸡鸡的地方」
						ENDIF
						PRINTFORML 「那里再稍微上去一点的地方…就是这、这里就是女孩子尿尿的地方」
						PRINTW
						PRINTFORML 「请好好看看。姐姐尿尿的样子…%UNICODE(0x2665) *1%」
						PRINTFORML 在%CALLNAME:MASTER%咽着口水的注视下、典的身体颤抖着
						PRINTW
						;尿意の量で変化
						IF TCVAR:374 >= 1000 || (TCVAR:利尿剤 && TCVAR:374 >= 400)
							PRINTFORML 啾啵…
							PRINTFORMW 「嗯…」
							PRINTFORML 啾啵啵啵啵啵
							PRINTFORML 「讨厌、尿尿的声音好大…真是羞死人了…%UNICODE(0x2665) *1%」
							PRINTW
							PRINTFORML 柠檬色的液体从典的尿道口猛滴下来
							PRINTFORML 典羞得面红耳赤、似乎不是在演戏
							PRINTFORML 异常而又淫靡的景象、让%CALLNAME:MASTER%无法移開视线…
							PRINTW
							PRINTFORML 啾啵啵啵啵啵、啾啵啵啵、啾啵、啾噜噜…
						ELSE
							PRINTFORML 啾噜…
							PRINTFORMW 「嗯…」
							PRINTFORML 啾噜噜噜……
							PRINTFORML 「看见了吗…姐姐正在尿尿呢…♪」
							PRINTW
							PRINTFORML 柠檬色的液体从典的尿道口缓缓流出
							PRINTFORML 异常而又淫靡的景象、让%CALLNAME:MASTER%无法移開视线…
							PRINTW
							PRINTFORML 啾噜噜噜噜噜噜、啾噜噜、啾噜…
						ENDIF
						PRINTFORML 「……哈啊、全部、都尿干净了♪」
						PRINTFORML 被看到了排泄的全过程、典面红耳赤地叹了口气
						PRINTW
						PRINTFORML 「如何？　姐姐尿尿的地方」
						CALL ASK_YN("心里扑通扑通的","……（对自己心里扑通扑通这件事保持沉默）")
						IF !RESULT
							BASE:MASTER:勃起 = 1000
							CALL HPH_PRINT,@"「HPH　哎呀HPH」","L"
							CALL HPH_PRINT,@"「看到姐姐尿尿的样子、小鸡鸡也变得这么硬了啊HPH」","L"
							PRINTW
							CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下真是个变态HPH　偷窥狂HPH」","L"
							CALL HPH_PRINT,@"「看到尿尿就勃起的异常者HPH」","L"
							PRINTW
							CALL HPH_PRINT,@"（呼呼、只是实话实说却让你变得泪眼汪汪的…HPH）","L"
							CALL HPH_PRINT,@"（真的是个值得欺负的可爱孩子呢…HPH）","L"
							PRINTW
							CALL HPH_PRINT,@"「对于这么变态的%CALLNAME:MASTER%阁下、必须要好好惩罚一下才行啊…HPH」","L"
							CALL HPH_PRINT,@"「在这里、对着姐姐射很多白色的尿尿出来吧…HPH」","L"
							PRINTW
						ELSE
							PRINTFORML 「没有感想吗？　姐姐觉得很不好意思呢…」
							BASE:MASTER:勃起 += 200
							IF BASE:MASTER:勃起 >= 700
								PRINTFORML 但是、典并没有忽略%CALLNAME:MASTER%的阴茎正在勃起这个事实
								PRINTW
								CALL HPH_PRINT,@"（呼呼…小鸡鸡真是诚实呢…虽然似乎很想隐瞒住…HPH）","L"
								CALL HPH_PRINT,@"（不过、看到女生尿尿就会勃起、将来还是很有希望的…HPH）","L"
								PRINTW
							ENDIF
							PRINTFORML （以及、看他的表情就知道他心里很紧张…♪）
							PRINTW
							PRINTFORML 「好的、已经结束了♪」
							PRINTFORML 「你还打算留在这里吗？　一直这样看着姐姐、姐姐真的很不好意思呢…\/\/\/」
							PRINTFORML 「如果你还有其他想做的事、我也可以留下来陪你哦…♪」
							PRINTW
						ENDIF
					ENDIF
				;大人
				ELSE
					PRINTFORML 一进入厕所、就看见身为先客的典
					PRINTFORML 「%CALLNAME:MASTER%阁下…？」
					PRINTW
					PRINTFORML 「竟然窥视女性的排泄行为…%CALLNAME:MASTER%阁下、真的是个变态呢…%UNICODE(0x2665) *1%」
					PRINTFORML
					CALL ASK_YN("对不起！","我就这样看着、请继续吧")
					IF !RESULT
						PRINTFORML 「呼呼、就这样慌慌张张地出去了、真是个可爱的人呢…♪」
						PRINTFORML 「不过、就算是我、要是被人看到整个排泄行为的全过程、也会觉得不好意思的」
						PRINTFORML 「哈～～、舒畅了♪」
						IF CFLAG:MASTER:現在位置 == 14
							CFLAG:MASTER:現在位置 = 10
						ELSEIF CFLAG:MASTER:現在位置 == 236
							CFLAG:MASTER:現在位置 = 237
						ELSEIF CFLAG:MASTER:現在位置 == 316
							CFLAG:MASTER:現在位置 = 309
						ELSEIF CFLAG:MASTER:現在位置 == 322
							CFLAG:MASTER:現在位置 = 319
						ELSEIF CFLAG:MASTER:現在位置 == 824
							CFLAG:MASTER:現在位置 = 821
						ENDIF
						TCVAR:374 = 0
					;見ててあげる
					ELSE
						PRINTFORML 「那个…你脑子还正常吗？」
						PRINTFORML 「这可是犯罪行为哦、典无论如何也不能让别人看见自己排泄的样子…」
						PRINTW
						PRINTFORML 「……你是认真的吗。真是糟糕啊」
						PRINTFORML 「我放弃了。我已经忍不住了、我要開始了」
						PRINTW
						;尿意の量で変化
						IF TCVAR:374 >= 1000 || (TCVAR:利尿剤 && TCVAR:374 >= 400)
							PRINTFORML 啾啵…
							PRINTFORMW 「嗯…」
							PRINTFORML 啾啵啵啵啵啵
							PRINTFORML 「讨厌、尿尿的声音好大…真是羞死人了…%UNICODE(0x2665) *1%」
							PRINTW
							PRINTFORML 柠檬色的液体从典的尿道口猛滴下来
							PRINTFORML 典羞得面红耳赤、似乎不是在演戏
							PRINTFORML 异常而又淫靡的景象、让%CALLNAME:MASTER%无法移開视线…
							PRINTW
							PRINTFORML 啾啵啵啵啵啵、啾啵啵啵、啾啵、啾噜噜…
						ELSE
							PRINTFORML 啾噜…
							PRINTFORMW 「嗯…」
							PRINTFORML 啾噜噜噜……
							PRINTFORML 「哇啊、真的一直在看我尿尿的地方呢…♪」
							PRINTW
							PRINTFORML 柠檬色的液体从典的尿道口缓缓流出
							PRINTFORML 异常而又淫靡的景象、让%CALLNAME:MASTER%无法移開视线…
							PRINTW
							PRINTFORML 啾噜噜噜噜噜噜、啾噜噜、啾噜…
						ENDIF
						PRINTFORML 「……哈啊、全部、都尿干净了♪」
						PRINTFORML 被看到了排泄的全过程、典面红耳赤地叹了口气
						PRINTW
						IF BASE:MASTER:勃起 >= 1000
							PRINTFORML 「哎…股间那鼓鼓的东西是怎么回事…%UNICODE(0x2665) *1%」
							PRINTFORML 「看见排泄行为就会兴奋…真的、真的是无可救药呢…%UNICODE(0x2665) *1%」
							PRINTW
							IF CFLAG:TARGET:允许无套 == 2
								CALL ASK_YN("得让你知道后果","生气就不像大人了")
								IF !RESULT
									PRINTFORML 抓住刚排完尿毫无防备的典的身体
									PRINTFORMW 「欸？　%CALLNAME:MASTER%阁下、这究竟是」
									PRINTFORMW 「那个、眼神看起来很可怕呢、那个ー…♪」
									PRINTFORMW 「等一下、等等、干什么啊、住手」
									PRINTW
									CALL HPH_PRINT,@"啪啾HPH啪啾HPH啪啾HPH啪啾嗯HPH","L"
									CALL HPH_PRINT,@"「干、干什么HPH　随便你HPHHPH」","L"
									PRINTW
									CALL HPH_PRINT,@"嗞啾HPH嗞啾HPH嗞啾HPH嗞啾HPH","L"
									CALL HPH_PRINT,@"「哈HPH　噢HPH」","L"
									PRINTW
									CALL HPH_PRINT,@"奴啵HPH奴啵HPH奴啵HPH奴啵HPH","L"
									CALL HPH_PRINT,@"「唔HPH　啊HPH　啊HPH　啊HPH」","L"
									PRINTW
									CALL HPH_PRINT,@"啪啪HPH啪啪HPH啪啪HPH啪啪HPH","L"
									CALL HPH_PRINT,@"「怎么会HPH　用杂鱼肉棒HPH　高潮HPH　怎么可能HPH」","L"
									PRINTW
									CALL HPH_PRINT,@"咚啾！咚啾！咚啾！咚啾！咚啾！咚啾！","L"
									CALL HPH_PRINT,@"「噢去了HPH　啊HPH　啊HPH」","L"
									PRINTW
									CALL HPH_PRINT,@"哔呦噜HPH　哔呦咕哔呦咕HPHHPH　咕哟～～～～HPHHPH","L"
									CALL HPH_PRINT,@"「啊～～HPH　啊HPH　啊HPH」","L"
									PRINTW
									PRINTL ……
									PRINTL …
									PRINTW
									SETCOLOR 0xFF69B4
									CALL HPH_PRINT,@"「咿啊HPH　啊HPH　啊HPH　哈啊～～～～HPH　哈啊～～～～HPH」","L"
									CALL HPH_PRINT,@"「之前瞧不起你真的很抱歉…HPH」","L"
									CALL HPH_PRINT,@"「之前…都是我不好…HPH」","L"
									RESETCOLOR
									PRINTW
									PRINTFORML 眼前是从秘裂中流出大量精液和爱液的典
									PRINTFORML 她的嘴角上扬着、仿佛在说「计划通」…
									PRINTW
								ELSE
									PRINTFORML 「咦、你不生气吗…」
									PRINTFORML 「不应该是像小薄本里画的那样、%CALLNAME:MASTER%阁下准备让典知道你的厉害之类的剧情吗…%UNICODE(0x2665) *1%」
									PRINTFORML 她自己说出来是闹哪样
									PRINTW
								ENDIF
							ELSE
								PRINTFORML 虽然被说得很过分、但自己这个阴茎已经勃起的人再怎么生气也毫无说服力…
								PRINTFORML 「那个ー…如果您觉得憋得难受的话、不妨让典来为您好好舒服舒服吧…♪」
								PRINTFORML 典伸出舌头、指了指张開的嘴、似乎是在示意你将阴茎插进去…
								PRINTW
							ENDIF
						ELSE
							PRINTFORML 「真是的、%CALLNAME:MASTER%阁下的性癖真是让人头痛啊…%UNICODE(0x2665) *1%」
							PRINTFORML 「这种事、只有典才会原谅你哦…♪」
							PRINTW
						ENDIF
					ENDIF
				ENDIF
			TCVAR:374 = 0
			;廁所じゃないところで鉢合わせ
			ELSE
				IF TCVAR:374 >= 1000 || TCVAR:374 >= 400 && TCVAR:利尿剤
					PRINTFORML 「对、对不起%CALLNAME:MASTER%阁下、现在有些…」
					PRINTFORML 典好像在焦急着什么
					PRINTW
				ELSE
					PRINTFORML 「啊…%CALLNAME:MASTER%阁下…」
					PRINTFORML 典摩擦着大腿、一副扭扭捏捏的模样
					PRINTW
				ENDIF
			ENDIF
		ELSE
			;DAY:2で季節を選択
			SELECTCASE DAY:2
			;春
			CASE 1
				SELECTCASE TIME:2
				;1= 早朝(4～6) 2=正午前(6～12) 3=昼(12～15) 4=昼下がり(15～18) 5=夕(18～20) 6=夜(20～23) 7=深夜(23～4)
				;朝
				CASE 1,2
					PRINTFORML 「早上好。%CALLNAME:MASTER%阁下起这么早、真是健康」
					PRINTW
				;昼
				CASE 3,4
					PRINTFORML 「%CALLNAME:MASTER%阁下、你好啊」
					PRINTFORML 「天气真好啊」
					PRINTW
				;夜
				CASE 5,6,7
					PRINTFORML 「晚上好、%CALLNAME:MASTER%阁下」
					PRINTFORML 「天气还有点冷呢」
					PRINTW
				ENDSELECT
			;夏
			CASE 2
				SELECTCASE TIME:2
				;朝
				CASE 1,2
					PRINTFORML 「早上好。%CALLNAME:MASTER%阁下」
					PRINTFORML 「早上也起得很早呢」
					PRINTW
				;昼
				CASE 3,4
					PRINTFORML 「%CALLNAME:MASTER%阁下、你好啊」
					PRINTFORML 「我很怕热…秋天还不快点到来吗」
					PRINTW
				;夜
				CASE 5,6,7
					PRINTFORML 「晚上好、%CALLNAME:MASTER%阁下」
					SELECTCASE RAND:2
					CASE 0
						PRINTFORML 「天气能不能稍微凉快一下呢？」
					CASE 1
						PRINTFORML 「今晚真是闷热啊」
					ENDSELECT
					PRINTW
				ENDSELECT
			;秋
			CASE 3
				SELECTCASE TIME:2
				;朝
				CASE 1,2
					PRINTFORML 「早上好。%CALLNAME:MASTER%阁下」
					PRINTFORML 「随着早晨的到来、心情也好起来了」
					PRINTW
				;昼
				CASE 3,4
					PRINTFORML 「你好。%CALLNAME:MASTER%阁下」
					PRINTFORML 「果然还是舒适的秋天最好了」
					PRINTW
				;夜
				CASE 5,6,7
					PRINTFORML 「你好。%CALLNAME:MASTER%阁下」
					PRINTFORML 「晚上有点冷啊」
					PRINTFORML 「可以和我靠得再近一点吗？　呼呼、開玩笑的哦♪」
					PRINTW
				ENDSELECT
			;冬
			CASE 4
				SELECTCASE TIME:2
				;朝
				CASE 1,2
					PRINTFORML 「早上好。%CALLNAME:MASTER%阁下」
					PRINTFORML 「天气变冷了呢」
					PRINTW
				;昼
				CASE 3,4
					PRINTFORML 「你好。%CALLNAME:MASTER%阁下」
					PRINTFORML 「啊、手好冷呢。要不要我给你暖一下？」
					PRINTFORML 「你不要那么警惕嘛。嘛～啊、现在我改变主意了」
					PRINTW
				;夜
				CASE 5,6,7
					PRINTFORML 「晚上好。%CALLNAME:MASTER%阁下」
					PRINTFORML 「这么寒冷的夜晚、真希望有人能来温暖我的身心…%UNICODE(0x2665) *1%」
					PRINTFORML 「例如…饭纲丸大人之类的。哎呀、是不是在期待着什么呢？　在期待着什么对吧？」
					PRINTW
				ENDSELECT
			ENDSELECT

			;通常の会話
			;今日誰かにフられている（典以外の誰か）
			IF GETBIT(TFLAG:一日一回, 12) && !TALENT:MASTER:恋人 && TCVAR:367 == 0
				;初回
				IF CFLAG:1016 == 0
					PRINTFORML 「哎呀、%CALLNAME:MASTER%阁下？　看起来没什么精神呢」
					PRINTFORML 「呼呼～嗯、难道说、是被谁甩了吗？」
					PRINTFORML 「……啊、那个、难道我猜对了吗？」
					PRINTW
					PRINTFORML 「哎呀～、真是抱歉、请节哀顺变吧…」
					IF TALENT:恋慕
						PRINTFORML （%CALLNAME:MASTER%、曾经有过喜欢的人吗…）
					ELSEIF TALENT:思慕
						PRINTFORML （唔嗯ー、%CALLNAME:MASTER%有喜欢的人啊）
					ELSE
						PRINTFORML （这真是个有趣的段子啊…♪）
					ENDIF

					PRINTFORML 「嗯～…也许是%CALLNAME:MASTER%阁下的告白方式不太好吧？」
					PRINTFORML 「如果可以的话、让\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐 # 典 \@来陪你练习吧？」
					PRINTFORML 「请把\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐 # 典 \@当作你的意中人、十分真诚地告白吧」
					PRINTW
					PRINTFORML 「首先…没错、用手撑着墙、嗯、就是那种感觉…」
					PRINTFORML 「然后、试着在耳边低语爱的话语。要十分认真的。请吧」
					PRINTW
					PRINTDATADL
						;大体パロディーネタです。お暇な方は元ネタが何か探してみてください（一部パロディーではないです）
						DATAFORM 我喜欢你
						DATAFORM 我喜欢你、爱着你
						DATAFORM 我爱你
						DATAFORM 真的最喜欢你了
						DATAFORM 结婚了吗、和我以外的家伙…
						DATAFORM 我一直都十分喜欢你哦！
						DATAFORM 请和我交往吧！
						DATAFORM 我一直都很喜欢你
						DATAFORM 至今为止、今后、我都只会爱你一人
						DATAFORM 我难道、真的不行吗
						DATAFORM 我想成为你心中的第一
						DATAFORM 希望你眼里只有我一个人
						DATAFORM 我的眼里只注视你。从相遇至今一直都是
						DATAFORM 只要有你相伴、我便别无所求
						DATAFORM 好想大声说爱你　希望你能接受我这热切的思念
						DATAFORM 直至死亡将我二人分离
						DATAFORM You're My Only Shinin' Star
						DATAFORM 我的目光只停留在你一人身上
						DATAFORM 想陪伴在你的身边
						DATAFORM 初次遇见你的那天、我的眼里便只注视着你
						DATAFORM 我喜欢你！　想要得到你！
						DATAFORM 只要我的生命还在继续、我就只会爱你一人
						DATAFORM 我喜欢笑着的你　我喜欢生气的你　你的一切我都喜欢
						DATAFORM 我只喜欢你　除了你之外的女人、我都讨厌
						DATAFORM 要我说多少次都可以　我想你是真的在爱着我
						DATAFORM 能给我一个吻吗
						DATAFORM 在只有我们两个人的舞台上　将全新的LOVESONG　无数次的　高声歌唱吧
						DATAFORM 我比你想象的还要喜欢你
						DATAFORM 不会让你回去的、直到早上为止
						DATAFORM I　want　you　love　别的什么也不要
						DATAFORM 给予你更多更多的爱
						DATAFORM 你要试着解開我的内心　只当个乖孩子可不行
						DATAFORM 无法掩饰的　唯一确定的I　LOVE　YOU
					ENDDATA
					PRINTW
					IF TALENT:恋慕
						CALL HPH_PRINT,@"「～～～～HPHHPHHPHHPHHPHHPHHPHHPHHPHHPH」","L"
						CALL HPH_PRINT,@"（这个HPH　比想象中的还要糟糕啊HPHHPH　耳朵都要怀孕了HPHHPH）","L"
						PRINTW
						PRINTFORML 「%CALLNAME:MASTER%阁下、叫我的时候、不要用你啊您啊之类的、希望能叫我典…」
						PRINTFORML 「你、你看啊、用名字来称呼的话会更有真实感吧！　对吧！」
						PRINTW
						PRINTDATADL
							DATAFORM 我喜欢典、一直爱着你
							DATAFORM 我一直都很喜欢典
							DATAFORM 想成为典心中的第一
							DATAFORM 我喜欢典！　想得到典！
							DATAFORM 我只喜欢典　除了典以外的女人、我都讨厌
							DATAFORM 我喜欢典
							DATAFORM 想陪伴在典的身边
							DATAFORM 要我说多少次都可以　我想典是真的在爱着我
						ENDDATA
						PRINTW
						CALL HPH_PRINT,@"（不行啊HPH　光是听着就觉得快要去了HPHHPH）","L"
						PRINTW
						PRINTFORML 「啊…嗯、咳咳、还行吧、挺不错的…」
						PRINTFORML 「但是、也不能说是百分百满分。还需要继续练习才行」
						PRINTFORML 「到那个时候、典就会成为你的练习对象！　无论什么时候都请依靠我吧！」
						PRINTW
					ELSE
						PRINTFORML （原来如此原来如此…%CALLNAME:MASTER%阁下这样告白的话…）
						PRINTFORML （嘛、这样还挺有意思的♪）
						PRINTFORML （虽然是装出来的、不过我觉得接受别人的爱意倒也不坏）
						PRINTW
						PRINTFORML 「呼嗯呼嗯、这样确实不错。不过嘛…」
						PRINTFORML 「今后也许还需要继续练习呢」
						PRINTFORML 「到时候\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐 # 典 \@会陪你的、就交给我吧♪」
						PRINTW
					ENDIF
				ELSEIF CFLAG:1016 == 1
					PRINTFORML 「%CALLNAME:MASTER%阁下、今天好像也没有精神的样子…」
					PRINTFORML 「啊、又被甩了吗？　真是个不受欢迎的人啊…」
					IF TALENT:恋慕
						PRINTFORML （居然能对那位、到如此地步…）
					ELSEIF TALENT:思慕
						PRINTFORML （嗯ー、意外的有毅力啊）
					ELSE
						PRINTFORML （真是个不死心的人啊…♪　不过这样听着倒也挺有意思的♪）
					ENDIF
					PRINTFORML 「那么、为了下一次的成功、今天也来练习一下吧」
					PRINTW
					PRINTL …………
					PRINTL ……
					PRINTL …
					PRINTW
					IF TALENT:恋慕
						PRINTDATADL
							DATAFORM 「啊…%UNICODE(0x2665) *1%　喜欢…HPHHPH」
							DATAFORM 「唔呼%UNICODE(0x2665) *1%　哦%UNICODE(0x2665) *1%　哦%UNICODE(0x2665) *1%」
							DATAFORM 「啊啊～～%UNICODE(0x2665) *1%」
						ENDDATA
						CALL HPH_PRINT,@"「呜咿…HPH　……哈！？　咳、咳咳！！　总、总的来说、还行吧…」","L"
						PRINTFORML 「……下次能顺利的话就好了。祝你成功」
						PRINTFORML （…啊、我到底在做什么呢…）
						PRINTW
					ELSE
						PRINTFORML （真是个不死心的人啊…♪　不过这样听着倒也挺有意思的♪）
						PRINTFORML 「嗯嗯、我觉得好多了哦」
						PRINTFORML 「下次能成功的话就好了♪　祈祷性交大业能成功呢♪」
						PRINTW
					ENDIF
				ELSEIF CFLAG:1016 == 2
					PRINTFORML 「今天已经特训过了吧？　明天再来吧」
					PRINTW
				ENDIF
				CFLAG:1016 += 1
			ELSEIF TCVAR:発情
				;典と経験済みで発情期を知っている
				IF CFLAG:1002 == 1
					SETCOLOR 0xFF69B4
					PRINTFORML 「啊啊、往常的『那个』又来了…」
					CALL HPH_PRINT,@"「能再次麻烦%CALLNAME:MASTER%阁下来平息一下吗…？HPH」","L"
					RESETCOLOR
					PRINTFORML 典轻轻地抚摸着%CALLNAME:MASTER%的%TINKO(PLAYER)%…
					PRINTW
				ELSE
					PRINTFORML 「脸红了吗？　不用担心。这只是一时的…」
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"（哈啊、居然在这种时候遇到%CALLNAME:MASTER%什么的）","L"
					CALL HPH_PRINT,@"（这个时期就算不想做也还是会发情呢…HPH）","L"
					PRINTW
					IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
						CALL HPH_PRINT,@"（要不要袭击%CALLNAME:MASTER%阁下呢…HPH）","L"
						CALL HPH_PRINT,@"（不行不行、还是得继续忍耐、忍耐…HPH）","L"
					ENDIF
					RESETCOLOR
					PRINTW
				ENDIF
			ELSE
				SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「能在这种地方遇到%CALLNAME:MASTER%阁下、真是命中注定啊♪」
					;你が害羞持ち
					IF TALENT:MASTER:羞恥心 == 1
						PRINTFORML 「哎呀、脸都红了呢、怎么啦…♪」
						IF TALENT:MASTER:非童貞 == 0
							PRINTFORML （所以说处男就是…稍微装成在意的样子而已、真是好应付呢…♪」
						ELSE
							PRINTFORML （意外还是个新手呢…♪）
						ENDIF
						PRINTW
					ENDIF
				CASE 1
					PRINTFORML 「有什么困扰的事情吗？　可以让身为管狐的典来和您商量吗？　啊ー嗯♪」
					PRINTFORML 典把手指捏成狐狸的形状来捉弄你
					PRINTW
				CASE 2
					PRINTFORML 「不过、在这种地方遇到真是奇遇啊」
					PRINTFORML 「难道说、你是在找我吗？」
					PRINTW
				ENDSELECT
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;廁所
		IF CFLAG:MASTER:現在位置 == 14 || CFLAG:MASTER:現在位置 == 236 || CFLAG:MASTER:現在位置 == 316 || CFLAG:MASTER:現在位置 == 322 || CFLAG:MASTER:現在位置 == 824
			;はじめての你しーしー
			IF CFLAG:1018 == 0
				IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
					PRINTFORML 「哎呀、%CALLNAME:MASTER%阁下」
					PRINTFORML 正要去厕所方便的时候、典突然进来了
					PRINTW
					PRINTFORML 「啊、你正要去尿尿吗。真是失礼了」
					PRINTFORML 「……」
					PRINTW
					PRINTFORML 「你问我为什么不出去？」
					PRINTFORML 「那还用问吗、当然是因为想看你尿尿呀♪」
					PRINTW
					PRINTFORML 「请不要在意姐姐♪来吧♪来吧♪」
					PRINTFORML 「紧张得尿不出来？　真是拿你没办法啊…」
					PRINTW
					PRINTFORML 「好的%UNICODE(0x2665) *1%　让姐姐来帮你吧%UNICODE(0x2665) *1%」
					PRINTFORML 典从背后抱住%CALLNAME:MASTER%、用手轻轻扶住%TINKO(PLAYER)%
					PRINTW
					PRINTFORML 「我这不是做得很好嘛♪　快、把注意力集中在小鸡鸡上…」
					PRINTFORML 「尿出来～、尿出来～」
					PRINTFORML 典一只手扶着%TINKO(PLAYER)%、另一只手轻轻地抚摸着%CALLNAME:MASTER%的下腹部
					PRINTW
					IF BASE:MASTER:勃起 >= 1000
						PRINTFORML 「咦、%CALLNAME:MASTER%阁下的小鸡鸡、突然变大了呢…」
						CALL HPH_PRINT,@"「原来如此、是因为这个所以才尿不出来啊…HPH」","L"
						CALL HPH_PRINT,@"「那我先帮你把另一个尿尿给尿出来吧…HPH」","L"
						PRINTW
						CALL HPH_PRINT,@"「好、先把皮剥下来HPH　呼呼、漂亮的粉红色小鸡鸡…HPH」","L"
						CALL HPH_PRINT,@"「舒服吗？　有很多透明的滑溜溜的液体流出来了哦HPH」","L"
						CALL HPH_PRINT,@"「差不多要biubiu地射出来了吧？　没关系、无需忍耐HPH」","L"
						PRINTW
						CALL HPH_PRINT,@"「可以尿出来了哦HPH　白色的尿尿、快点尿出来吧…HPHHPH」","L"
						CALL HPH_PRINT,@"「在全部尿出来之前、姐姐都会紧紧地抱住你的…HPH」","W"
						CALL HPH_PRINT,@"「尿出来吧HPH」","L"
						PRINTW
						PRINTFORML 咕噜、咕噜噜
						PRINTFORML 　哔咕、哔咕…
						PRINTW
						CALL HPH_PRINT,@"「哎呀、出来了很多呢…HPH」","L"
						CALL HPH_PRINT,@"「白色的尿尿出来了、舒服了吗…？HPH」","L"
						PRINTW
					ELSE
						PRINTFORML 啾噜…
						PRINTFORML 「哇…%UNICODE(0x2665) *1%」
						PRINTW
						PRINTFORML 咕噜噜噜～～
						PRINTFORML 「哇%UNICODE(0x2665) *1%　男孩子就是这样尿尿的吗%UNICODE(0x2665) *1%」
						PRINTW
						PRINTFORML 典靠着%CALLNAME:MASTER%的肩膀、饶有兴趣地看着他排尿的样子
						PRINTFORML 虽然说很难为情、但一旦尿出来了、直到尿干净为止都是停不下来的
						PRINTW
						PRINTFORML 啾噜、咕噜噜噜噜、啾咯…
						PRINTFORML 「嗯、做得很好哦♪　了不起了不起♪」
						PRINTFORML 典咚咚地抖动着%CALLNAME:MASTER%的阴茎、把尿道里残余的尿液也给排干净了
						PRINTW
					ENDIF
				;大人
				ELSE
					PRINTFORML 「哎呀、%CALLNAME:MASTER%阁下」
					PRINTFORML 正要去厕所方便的时候、典突然进来了
					PRINTW
					PRINTFORML 「啊、你正要去尿尿吗。真是失礼了」
					PRINTFORML 「……」
					PRINTW
					PRINTFORML 「你问我为什么不出去？」
					PRINTFORML 「那还用问吗、当然是因为想看你尿尿呀♪」
					PRINTW
					PRINTFORML 「怎么能说我是变态呢、真是太过分了」
					PRINTFORML 「典只是对人类的生态感兴趣而已♪」
					PRINTW
					IF BASE:MASTER:勃起 >= 1000
						PRINTFORML 「男人的肉棒勃起时就不容易排尿吗？」
						PRINTFORML 「欸…真有意思啊。这是什么原理呢」
						PRINTW
						PRINTFORML 「也就是说、如果不消除勃起的状况的话、就看不到尿尿的样子了吗」
						PRINTFORML 「嗯ー…♪」
						PRINTW
						IF EXP:Ｖ性交経験 && CFLAG:TARGET:允许无套 == 2
							PRINTFORML 啪、啪、啪、啪…
							CALL HPH_PRINT,@"「啊HPH　哈啊HPH　哈啊HPH　哈HPH」","L"
							PRINTW
							PRINTFORML 狭小的厕所里、只有肉体的碰撞声和典的娇喘声…
							CALL HPH_PRINT,@"「在这样的地方做这种事…HPH感觉做了非常不好的事情了呢…HPH」","L"
							PRINTW
							CALL HPH_PRINT,@"啪HPH啪HPH啪HPH啪HPH啪HPH","L"
							CALL HPH_PRINT,@"「啊嗯HPH啊嗯HPH啊嗯HPH啊嗯HPH」","L"
							PRINTW
							PRINTFORML 每次被人在背后挤压着膣肉、或是被人用腰部強烈撞擊臀部时、都会发出甜美的声音
							PRINTFORML 那表情完全就是一个雌性
							PRINTW
							PRINTFORML 差不多要射出来了、在典的耳边说道要好好接住哦
							CALL HPH_PRINT,@"「啊HPH呀啊HPH不可以内射呀HPH」","L"
							PRINTW
							IF EXP:膣射経験 > 30
								PRINTFORML 无论是危险日还是安全日、肉膣都曾被狠狠内射过的典苦苦哀求道
								PRINTFORML 所以就按她的愿望去做了
								PRINTW
							ELSE
								PRINTFORML 也许是因为害怕被内射、典不断哀求道
								PRINTFORML 不过、她似乎也不像是会害怕的人。也许这只是煽动男人嗜虐心的演技
								PRINTW
							ENDIF
							CALL HPH_PRINT,@"哔咕HPH嘟咕HPH嘟咕噜HPH咕噜噜HPHHPH","L"
							CALL HPH_PRINT,@"「呀啊啊啊啊啊啊～～～～～～～～HPHHPHHPH」","L"
							PRINTW
							PRINTFORML 在腹腔深处感受炽热的精液、同时也达到了高潮。
							CALL HPH_PRINT,@"（被射在…肉膣里了…HPH）","L"
							PRINTW
							PRINTFORML 随着勃起的消退、尿意又来了…
							CALL ASK_YN("从典的阴道内拔出肉棒","就保持这样…")
							IF !RESULT
								PRINTFORML 因为不能释放在典的阴道里、所以拔出肉棒对着马桶小便
								PRINTFORML 啾啵啵啵啵啵…
								PRINTW
								PRINTFORML （啊…好大的量…这就是、男人尿尿的样子吗…）
								PRINTFORML 典目不斜视地看着眼前的排尿行为
								PRINTW
								PRINTFORML 啾啵啵啵啵、啾噗、啾啵啵啵…
								PRINTFORML 排完最后一滴后、%CALLNAME:MASTER%噗哧噗哧地摇晃着自己的阴茎
								PRINTW
								PRINTFORML 「嗯ー…最后是这样吗、男人们的尿尿可真有意思啊♪」
								PRINTFORML 「给我看了一些很有趣的东西呢♪　非常感谢♪」
								PRINTW
							;膣内放尿
							ELSE
								PRINTFORML 啾啵啵啵啵啵
								PRINTFORML 「骗人的吧！？　难道是在小穴里」
								PRINTW
								PRINTFORML 「讨厌！　住手、快停下来啊！」
								PRINTFORML 「啊、啊、啊…被尿在小穴里了…」
								PRINTW
								CALL HPH_PRINT,@"（太过分了HPH　简直就像是便器一样HPH）","L"
								CALL HPH_PRINT,@"（在妖怪的小穴里面尿尿、这个人果然不一般…HPH）","L"
								PRINTW
								PRINTFORML 「呀、真是太棒了ー…♪」
								PRINTFORML 「把女性的小穴当作便器、这样的人寻遍幻想乡也就只有%CALLNAME:MASTER%阁下而已吧…♪」
								PRINTW
								PRINTFORML 「嗯…哎呀、漏出来了…」
								PRINTFORML 啾噗、啵噗、噗噗…
								PRINTW
								CALL HPH_PRINT,@"「哈啊…好不容易射进去的精液、随着尿液一起被排出来了…HPH」","L"
								CALL HPH_PRINT,@"「下次、可不要再把它当作便器了…HPH　好吗…」","L"
								PRINTW
								EXP:異常経験 += 1
							ENDIF
						ELSEIF EXP:口淫経験 > 0
							PRINTFORML  啾噗、啾噗、啾噗、啾噗…
							CALL HPH_PRINT,@"「嗯唔HPH　嗯唔HPH嗯唔HPH」","L"
							PRINTW
							PRINTFORML 按住典的头后、%CALLNAME:MASTER%便開始前后摆动起腰来
							PRINTFORML 为了实现典想看排尿行为的愿望、命令她先通过口淫让肉棒软下来
							PRINTW
							CALL HPH_PRINT,@"啾啵HPH　咕噜噜HPH　啾HPH　咕啾HPH","L"
							CALL HPH_PRINT,@"（在厕所里口交什么的…厕所的臭味与肉棒的味道、真让我的大脑受不了…）HPH","L"
							PRINTW
							PRINTFORML 肉棒在典的口腔里膨胀得特别大、马上就要射精了
							CALL HPH_PRINT,@"「射出来HPH　射出来HPH　在嘴里射出来HPH　咕ー嘟HPHHPH」","L"
							PRINTW
							CALL HPH_PRINT,@"哔咕HPH嘟咕HPH嘟咕噜HPH咕噜噜HPHHPH","L"
							CALL HPH_PRINT,@"「！！　咕唔HPH　唔HPH」","L"
							PRINTW
							PRINTFORML 把囤积在睾丸中的精液灌入典的喉咙深处
							PRINTFORML 典抱住%CALLNAME:MASTER%的腰、拼命地吞咽着
							PRINTW
							CALL HPH_PRINT,@"（非常多的量且十分浓厚…%CALLNAME:MASTER%阁下也很兴奋吗HPH）","L"
							CALL HPH_PRINT,@"（厕所口交…可能会有些上瘾…HPH）","L"
							PRINTW
							PRINTFORML 随着勃起的消退、尿意再次席卷%CALLNAME:MASTER%的全身…
							CALL ASK_YN("将肉棒从典的嘴里拔出来","就这样在嘴里…")
							IF !RESULT
								PRINTFORML 不能就这样尿在典的嘴里啊、遂将肉棒从典的口中拔出、对准马桶后便開始尿了起来
								PRINTFORML 啾啵啵啵啵啵…
								PRINTW
								PRINTFORML （啊…好大的量…这就是、男人尿尿的样子吗…）
								PRINTFORML 典目不斜视地看着眼前的排尿行为
								PRINTW
								PRINTFORML 啾啵啵啵啵、啾噗、啾啵啵啵…
								PRINTFORML 排完最后一滴后、%CALLNAME:MASTER%噗哧噗哧地摇晃着自己的阴茎
								PRINTW
								PRINTFORML 「嗯ー…最后是这样吗、男人们的尿尿可真有意思啊♪」
								PRINTFORML 「给我看了一些很有趣的东西呢♪　非常感谢♪」
								PRINTW
							ELSE
								PRINTFORML 啾…啾啵啵啵啵啵啵
								PRINTFORML 「！！！？？？」
								PRINTW
								PRINTFORML 典刚把精液咽入喉咙深处、这下又被灌入尿液
								PRINTFORML 典瞪大了眼睛、可能是没料到会发生这样的事吧
								PRINTW
								PRINTFORML （骗人的吧、在我的嘴里尿出来了！？）
								PRINTFORML （但是、如果现在松開嘴的话、尿就会溅在我的脸上和衣服上…）
								PRINTW
								CALL HPH_PRINT,@"啾噗HPH　啾噗HPH　啾噗HPH　啾噗HPH","L"
								CALL HPH_PRINT,@"「哦噗HPH　咕HPH　咕唔HPH　哦噗HPH」","L"
								PRINTW
								PRINTFORML 大概是觉得总比全身被弄脏好、典開始吞咽起了尿液
								PRINTFORML （糟糕…这样子…岂不是被当成厕所使用了吗…男人的尿液、就这样喝下去了…）
								PRINTW
								PRINTFORML 将尿液排尽的%CALLNAME:MASTER%、身体颤抖着从典的口中拔出萎缩的肉棒
								CALL HPH_PRINT,@"「咕嘟HPH　哦呼HPH　真是太棒了…HPH」","L"
								PRINTW
								PRINTFORML 典对这屈辱的行为皱起了眉头
								PRINTFORML 但是、其中也潜藏着好奇和欢喜…
								PRINTW
								EXP:異常経験 += 1
							ENDIF
						ELSE
							CALL HPH_PRINT,@"「呼呼HPH　请交给典吧♪」","L"
							CALL HPH_PRINT,@"「用典的手将很多白色的尿尿尿出来吧…HPH」","L"
							PRINTW
							CALL HPH_PRINT,@"忸叽HPH　忸叽HPH","L"
							CALL HPH_PRINT,@"　　唏咯HPH　唏咯HPH　唏咯HPH","L"
							PRINTW
							PRINTFORML 典紧贴着%CALLNAME:MASTER%的背后、用手捋着肉棒将其引向射精
							CALL HPH_PRINT,@"（呼呼…HPH　精液浓厚的臭味…HPH　和厕所的臭味混合在一起、感觉头都变得晕乎乎的了…HPH","L"
							PRINTW
							CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、肉棒变得越来越大了呢HPH　要射出来了吗HPH」","L"
							CALL HPH_PRINT,@"「来吧HPH　用典的手轻松地射出来吧HPH　咻咻地射出来ーHPH」","L"
							PRINTW
							PRINTFORML 咕噜、咕噜噜
							PRINTFORML 　哔咕、哔咕…
							PRINTW
							CALL HPH_PRINT,@"「哇、出来了很多呢…HPH　真的那么舒服吗？HPH」","L"
							CALL HPH_PRINT,@"「身为一个合格的大人、把精液泼洒在厕所里可是不行的哦…HPH」","L"
							PRINTW
							PRINTFORML 「那么♪　既然已经软下去了的话就应该能尿出来了吧♪」
							PRINTFORML 「这次请给我看看不是白色的尿尿吧♪」
							PRINTW
							PRINTFORML 啾噜…
							PRINTFORML 「哇…%UNICODE(0x2665) *1%」
							PRINTW
							PRINTFORML 啾啵啵啵啵～～
							PRINTFORML 「哇%UNICODE(0x2665) *1%　原来阁下是这样小便的啊%UNICODE(0x2665) *1%」
							PRINTW
							PRINTFORML 典靠着%CALLNAME:MASTER%的肩膀、饶有兴趣地看着他排尿的样子
							PRINTFORML 虽然说很难为情、但一旦尿出来了、直到尿干净为止都是停不下来的
							PRINTW
							PRINTFORML 啾啵、啾咯咯、啾啵、啾噜噜噜…
							PRINTFORML 典咚咚地抖动着%CALLNAME:MASTER%的阴茎、把尿道里残余的尿液也给排干净了
							PRINTW
							PRINTFORML 「呀、给我看了一些很有趣的东西呢♪　非常感谢♪」
							PRINTFORML 「下次也请给我看看吧…♪」
							PRINTW
						ENDIF
					;勃起に至ってない
					ELSE
						PRINTFORML 啾噜…
						PRINTFORML 「哇…%UNICODE(0x2665) *1%」
						PRINTW
						PRINTFORML 啾啵啵啵啵～～
						PRINTFORML 「哇%UNICODE(0x2665) *1%　原来阁下是这样小便的啊%UNICODE(0x2665) *1%」
						PRINTW
						PRINTFORML 典靠着%CALLNAME:MASTER%的肩膀、饶有兴趣地看着他排尿的样子
						PRINTFORML 虽然说很难为情、但一旦尿出来了、直到尿干净为止都是停不下来的
						PRINTW
						PRINTFORML 啾啵、啾咯咯、啾啵、啾噜噜噜…
						PRINTFORML 「呀、给我看了一些很有趣的东西呢♪　非常感谢♪」
						PRINTW
					ENDIF
				ENDIF
			;2回目以降の你しーしー
			ELSE
				IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
					IF BASE:MASTER:勃起 >= 1000
						PRINTFORML 「啊、%CALLNAME:MASTER%阁下的、变得很大了呢…」
						CALL HPH_PRINT,@"「那我先帮你把另一个尿尿给尿出来吧…HPH」","L"
						PRINTW
						CALL HPH_PRINT,@"「好、先把皮剥下来HPH　呼呼、漂亮的粉红色小鸡鸡…HPH」","L"
						CALL HPH_PRINT,@"「舒服吗？　有很多透明的滑溜溜的液体流出来了哦HPH」","L"
						CALL HPH_PRINT,@"「差不多要biubiu地射出来了吧？　没关系、无需忍耐HPH」","L"
						PRINTW
						CALL HPH_PRINT,@"「可以尿出来了哦HPH　白色的尿尿、快点尿出来吧…HPHHPH」","L"
						CALL HPH_PRINT,@"「在全部尿出来之前、姐姐都会紧紧地抱住你的…HPH」","W"
						CALL HPH_PRINT,@"「尿出来吧HPH」","L"
						PRINTW
						PRINTFORML 咕噜、咕噜噜
						PRINTFORML 　哔咕、哔咕…
						PRINTW
						CALL HPH_PRINT,@"「哎呀、出来了很多呢…HPH」","L"
						CALL HPH_PRINT,@"「白色的尿尿出来了、舒服了吗…？HPH」","L"
						PRINTW
						CALL HPH_PRINT,@"「好HPH　那么、就来做普通的嘘嘘吧HPH」","L"
						PRINTW
						PRINTFORML 啾噜…
						PRINTFORML 咕噜噜噜～～
						PRINTFORML 「呼呼%UNICODE(0x2665) *1%　很擅长嘘嘘呢%UNICODE(0x2665) *1%」
						PRINTW
						PRINTFORML 典靠着%CALLNAME:MASTER%的肩膀、饶有兴趣地看着他排尿的样子
						PRINTFORML 虽然说很难为情、但一旦尿出来了、直到尿干净为止都是停不下来的
						PRINTW
						PRINTFORML 啾噜、咕噜噜噜噜、啾咯…
						PRINTFORML 「嗯、做得很好哦♪　了不起了不起♪」
						PRINTFORML 典咚咚地抖动着%CALLNAME:MASTER%的阴茎、把尿道里残余的尿液也给排干净了
						PRINTW
					ELSE
						PRINTFORML 啾噜…
						PRINTFORML 「哇…%UNICODE(0x2665) *1%」
						PRINTW
						PRINTFORML 咕噜噜噜～～
						PRINTFORML 「呼呼%UNICODE(0x2665) *1%　很擅长嘘嘘呢%UNICODE(0x2665) *1%」
						PRINTW
						PRINTFORML 典靠着%CALLNAME:MASTER%的肩膀、饶有兴趣地看着他排尿的样子
						PRINTFORML 虽然说很难为情、但一旦尿出来了、直到尿干净为止都是停不下来的
						PRINTW
						PRINTFORML 啾噜、咕噜噜噜噜、啾咯…
						PRINTFORML 「嗯、做得很好哦♪　了不起了不起♪」
						PRINTFORML 典咚咚地抖动着%CALLNAME:MASTER%的阴茎、把尿道里残余的尿液也给排干净了
						PRINTW
					ENDIF
				ELSE
					IF BASE:MASTER:勃起 >= 1000
						IF EXP:Ｖ性交経験 && CFLAG:TARGET:允许无套 == 2
							PRINTFORML 啪、啪、啪、啪…
							CALL HPH_PRINT,@"「啊HPH　哈啊HPH　哈啊HPH　哈HPH」","L"
							PRINTW
							PRINTFORML 狭小的厕所里、只有肉体的碰撞声和典的娇喘声…
							CALL HPH_PRINT,@"「在这样的地方做这种事…HPH感觉做了非常不好的事情了呢…HPH」","L"
							PRINTW
							CALL HPH_PRINT,@"啪HPH啪HPH啪HPH啪HPH啪HPH","L"
							CALL HPH_PRINT,@"「啊嗯HPH啊嗯HPH啊嗯HPH啊嗯HPH」","L"
							PRINTW
							PRINTFORML 每次被人在背后挤压着膣肉、或是被人用腰部強烈撞擊臀部时、都会发出甜美的声音
							PRINTFORML 那表情完全就是一个雌性
							PRINTW
							PRINTFORML 差不多要射出来了、在典的耳边说道要好好接住哦
							CALL HPH_PRINT,@"「啊HPH呀啊HPH不可以内射呀HPH」","L"
							PRINTW
							CALL HPH_PRINT,@"哔咕HPH嘟咕HPH嘟咕噜HPH咕噜噜HPHHPH","L"
							CALL HPH_PRINT,@"「呀啊啊啊啊啊啊～～～～～～～～HPHHPHHPH」","L"
							PRINTW
							PRINTFORML 在腹腔深处感受炽热的精液、同时也达到了高潮。
							CALL HPH_PRINT,@"（被射在…肉膣里了…HPH）","L"
							PRINTW
							PRINTFORML 随着勃起的消退、尿意又来了…
							CALL ASK_YN("从典的阴道内拔出肉棒","就保持这样…")
							IF !RESULT
								PRINTFORML 因为不能释放在典的阴道里、所以拔出肉棒对着马桶小便
								PRINTFORML 啾啵啵啵啵啵…
								PRINTW
								PRINTFORML （还是好大的量…）
								PRINTFORML 典目不斜视地看着眼前的排尿行为
								PRINTW
								PRINTFORML 啾啵啵啵啵、啾噗、啾啵啵啵…
								PRINTFORML 排完最后一滴后、%CALLNAME:MASTER%噗哧噗哧地摇晃着自己的阴茎
								PRINTW
							;膣内放尿
							ELSE
								PRINTFORML 啾啵啵啵啵啵
								PRINTFORML 「骗人的吧！？　难道是在小穴里！？」
								PRINTFORML 「啊、啊、啊…被尿在小穴里了…真是差劲…♪」
								PRINTW
								CALL HPH_PRINT,@"（太过分了HPH　简直就像是便器一样HPH）","L"
								CALL HPH_PRINT,@"（在妖怪的小穴里面尿尿、这个人果然不一般…HPH）","L"
								PRINTW
								PRINTFORML 「嗯…哎呀、漏出来了…」
								PRINTFORML 啾噗、啵噗、噗噗…
								PRINTW
								CALL HPH_PRINT,@"「哈啊…好不容易射进去的精液、随着尿液一起被排出来了…HPH」","L"
								CALL HPH_PRINT,@"「不是说过别把它当作厕所吗…HPH」","L"
								PRINTW
								EXP:異常経験 += 1
							ENDIF
						ELSEIF EXP:口淫経験 > 0
							PRINTFORML  啾噗、啾噗、啾噗、啾噗…
							CALL HPH_PRINT,@"「嗯唔HPH　嗯唔HPH嗯唔HPH」","L"
							PRINTW
							CALL HPH_PRINT,@"啾啵HPH　咕噜噜HPH　啾HPH　咕啾HPH","L"
							CALL HPH_PRINT,@"（在厕所里口交什么的…厕所的臭味与肉棒的味道、真让我的大脑受不了…）HPH","L"
							PRINTW
							PRINTFORML 肉棒在典的口腔里膨胀得特别大、马上就要射精了
							CALL HPH_PRINT,@"「射出来HPH　射出来HPH　在嘴里射出来HPH　咕ー嘟HPHHPH」","L"
							PRINTW
							CALL HPH_PRINT,@"哔咕HPH嘟咕HPH嘟咕噜HPH咕噜噜HPHHPH","L"
							CALL HPH_PRINT,@"「！！　咕唔HPH　唔HPH」","L"
							PRINTW
							PRINTFORML 把囤积在睾丸中的精液灌入典的喉咙深处
							CALL HPH_PRINT,@"（厕所口交…可能会有些上瘾…HPH）","L"
							PRINTW
							PRINTFORML 随着勃起的消退、尿意再次席卷%CALLNAME:MASTER%的全身…
							CALL ASK_YN("将肉棒从典的嘴里拔出来","就这样在嘴里 …")
							IF !RESULT
								PRINTFORML 不能就这样尿在典的嘴里啊、遂将肉棒从典的口中拔出、对准马桶后便開始尿了起来
								PRINTFORML 啾啵啵啵啵啵…
								PRINTW
								PRINTFORML （啊…还是好大的量…）
								PRINTFORML 典目不斜视地看着眼前的排尿行为
								PRINTW
								PRINTFORML 啾啵啵啵啵、啾噗、啾啵啵啵…
								PRINTFORML 排完最后一滴后、%CALLNAME:MASTER%噗哧噗哧地摇晃着自己的阴茎
								PRINTW
							ELSE
								PRINTFORML 啾…啾啵啵啵啵啵啵
								PRINTFORML 「！！！？？？」
								PRINTW
								PRINTFORML 典刚把精液咽入喉咙深处、这下又被灌入尿液
								PRINTFORML （骗人的吧、在我的嘴里尿出来了！？）
								PRINTW
								CALL HPH_PRINT,@"啾噗HPH　啾噗HPH　啾噗HPH　啾噗HPH","L"
								CALL HPH_PRINT,@"「哦噗HPH　咕HPH　咕唔HPH　哦噗HPH」","L"
								PRINTW
								PRINTFORML 大概是觉得总比全身被弄脏好、典開始吞咽起了尿液
								PRINTFORML （糟糕…这样子…岂不是被当成厕所使用了吗…男人的尿液、就这样喝下去了…）
								PRINTW
								PRINTFORML 将尿液排尽的%CALLNAME:MASTER%、身体颤抖着从典的口中拔出萎缩的肉棒
								CALL HPH_PRINT,@"「咕嘟HPH　哦呼HPH　啊啊、不止一次…真是太棒了…HPH」","L"
								PRINTW
								PRINTFORML 典对这屈辱的行为皱起了眉头
								PRINTFORML 但是、其中也潜藏着好奇和欢喜…
								PRINTW
								EXP:異常経験 += 1
							ENDIF
						ELSE
							CALL HPH_PRINT,@"「呼呼HPH　请交给典吧♪」","L"
							CALL HPH_PRINT,@"「用典的手将很多白色的尿尿尿出来吧…HPH」","L"
							PRINTW
							CALL HPH_PRINT,@"忸叽HPH　忸叽HPH","L"
							CALL HPH_PRINT,@"　　唏咯HPH　唏咯HPH　唏咯HPH","L"
							PRINTW
							PRINTFORML 典紧贴着%CALLNAME:MASTER%的背后、用手捋着肉棒将其引向射精
							CALL HPH_PRINT,@"（呼呼…HPH　精液浓厚的臭味…HPH　和厕所的臭味混合在一起、感觉头都变得晕乎乎的了…HPH","L"
							PRINTW
							CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、肉棒变得越来越大了呢HPH　要射出来了吗HPH」","L"
							CALL HPH_PRINT,@"「来吧HPH　用典的手轻松地射出来吧HPH　咻咻地射出来ーHPH」","L"
							PRINTW
							PRINTFORML 咕噜、咕噜噜
							PRINTFORML 　哔咕、哔咕…
							PRINTW
							CALL HPH_PRINT,@"「哇、出来了很多呢…HPH　真的那么舒服吗？HPH」","L"
							CALL HPH_PRINT,@"「身为一个合格的大人、把精液泼洒在厕所里可是不行的哦…HPH」","L"
							PRINTW
							PRINTFORML 「那么♪　既然已经软下去了的话就应该能尿出来了吧♪」
							PRINTFORML 「这次请给我看看不是白色的尿尿吧♪」
							PRINTW
							PRINTFORML 啾噜…
							PRINTFORML 啾啵啵啵啵～～
							PRINTFORML 「哇啊%UNICODE(0x2665) *1%　出来了出来了%UNICODE(0x2665) *1%」
							PRINTW
							PRINTFORML 典靠着%CALLNAME:MASTER%的肩膀、饶有兴趣地看着他排尿的样子
							PRINTFORML 虽然说很难为情、但一旦尿出来了、直到尿干净为止都是停不下来的
							PRINTW
							PRINTFORML 啾啵、啾咯咯、啾啵、啾噜噜噜…
							PRINTFORML 「就是这样♪　做得很好♪」
							PRINTFORML 典咚咚地抖动着%CALLNAME:MASTER%的阴茎、把尿道里残余的尿液也给排干净了
							PRINTW
						ENDIF
					ELSE
						PRINTFORML 啾噜…
						PRINTFORML 「哇…%UNICODE(0x2665) *1%」
						PRINTW
						PRINTFORML 啾啵啵啵啵～～
						PRINTFORML 「哇啊%UNICODE(0x2665) *1%　还是那么多呢%UNICODE(0x2665) *1%」
						PRINTW
						PRINTFORML 典靠着%CALLNAME:MASTER%的肩膀、饶有兴趣地看着他排尿的样子
						PRINTFORML 虽然说很难为情、但一旦尿出来了、直到尿干净为止都是停不下来的
						PRINTW
						PRINTFORML 啾啵、啾咯咯、啾啵、啾噜噜噜…
						PRINTFORML 「呀、给我看了一些很有趣的东西呢♪　非常感谢♪」
						PRINTW
					ENDIF
				ENDIF
			ENDIF
		;廁所以外にTARGETが入ってきた
		ELSE
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが浴室に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが浴室に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが浴室に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラと约会中に遭遇した
	;ARG:1に约会的对象
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MAIN_MAP上で一日最初の挨拶
	;注、このあと通常の遭遇口上、ARG==1 OR ARG==2に接続します
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で一日最初の挨拶
	;ARG:1に约会的对象、ARG:1が0の場合は非约会
	;注、このあと通常の外出先で遭遇した口上、ARG==6 OR ARG==7に接続します
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;ARG:1と约会中
		IF ARG:1
		;一人で外出
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K139_2(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時陪睡中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			;诶嘿嘿経験済みなら、発情時は妊娠していない時はおはよう騎乗位
			;妊娠願望持ちなら挿入未遂で選択肢
			;それ以外は朝口交
			IF TCVAR:発情
				SIF TALENT:MASTER:性別 != 2
				RETURN 1
				IF !TALENT:処女 && !TALENT:妊娠
					PRINTFORML 下半身莫名的舒服…
					PRINTFORML 轻飘飘的感觉与被什么柔软的东西顶在腰上的撞击感、令%CALLNAME:MASTER%惊醒了
					PRINTW
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「早上好HPH　终于醒了呢HPHHPH」","L"
					RESETCOLOR
					PRINTFORML 十分舒服的真正原因是因为%CALLNAME:TARGET%正在上面摆动着腰部
					PRINTW
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「啊嗯HPHHPH　啊HPH　哈呼HPH　哈啊嗯HPHHPH」","L"
					CALL HPH_PRINT,@"「你问我在做什么？HPH　当然是在讨取%CALLNAME:MASTER%阁下的子种HPH」","L"
					PRINTL
					CALL HPH_PRINT,@"「怎么摇都醒不过来、但小鸡鸡倒是挺清醒的呢HPHHPH」","L"
					CALL HPH_PRINT,@"「发情中的\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐 # 我 \@怎么可能忍耐得住呢HPHHPH　啊嗯HPH」","L"
					RESETCOLOR
					PRINTW
					PRINTFORML 典的小穴皱褶紧紧地缠住了肉棒、催促着它吐精
					PRINTFORML 因为还处于半睡半醒的状态、所以是无法抵抗的
					PRINTW
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「啊嗯HPH　啊嗯HPH　呼嗯HPH　小鸡鸡、变得好大了呢HPHHPH」","L"
					CALL HPH_PRINT,@"「要出来了吗？HPH　要在小穴里射出来了吗？HPHHPH」","L"
					RESETCOLOR
					PRINTW
					PRINTFORML 当射精将近、肉棒開始痙攣时、%CALLNAME:TARGET%加快了摆动腰部的速度
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「好的HPH　快射出来HPHHPH　将精液给予我吧HPHHPH」","L"
					CALL HPH_PRINT,@"「用早上最浓的精液、让\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐 # 典 \@怀孕吧HPHHPH」","L"
					RESETCOLOR
					PRINTW
					PRINTFORML 连做避孕的时间都没有、%CALLNAME:MASTER%的肉棒在典的小穴里释放了大量的精气
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「啊啊HPH　出来了HPHHPH　嗯HPHHPH」","L"
					CALL HPH_PRINT,@"「\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐 # 典 \@要怀孕了呢HPHHPH」","L"
					RESETCOLOR
					PRINTFORML 尽管%CALLNAME:MASTER%已经达到了高潮、典却仍然痴迷地继续摆动着腰部
					PRINTFORML 变得敏感的肉棒会产生疼痛和痒痒并存的奇妙感觉、但想要抽身也无法摆脱
					PRINTFORML 无法忍受、于是又在小穴里射出了和第一次一样多的精液
					PRINTW
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「呼ーHPH　呼ーHPHHPH　对不起、我无法控制自己的行为…HPHHPH」","L"
					RESETCOLOR
					PRINTFORML 典坐在%CALLNAME:MASTER%的身上、怜爱地抚摸着她自己的小腹
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「不是头脑驱动、而是子宫在渴求着HPH　精子、想要被授精…HPHHPH」","L"
					RESETCOLOR
					PRINTW
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「所以一次两次是不够的…HPHHPH」","L"
					;周期がおかしいことになりそうなので、排卵～はフレーバーです
					CALL HPH_PRINT,@"「因为我今天饮用了排卵诱发剂…HPH」","L"
					CALL HPH_PRINT,@"「所以还会让你将睾丸里的精液继续射出来的哦HPHHPH」","L"
					RESETCOLOR
					PRINTFORML 典像凶猛的食肉兽一样覆在%CALLNAME:PLAYER%身上、再次開始激烈地扭动腰肢
					PRINTW
					SETCOLOR 0xFF69B4
					PRINTFORML 在处于危险日的典的膣内、\@ TALENT:MASTER:濃厚精液 ? 浓厚又充满元气的 # 新鲜的 \@精子向子宫游去…
					IF TALENT:MASTER:万能孕 || TALENT:MASTER:讓妖怪懷孕
						PRINTFORML 受精也只不过是时间问题…
					ELSE
						PRINTFORML 数以亿计的精子一齐冲向卵子…
					ENDIF
					PRINTL
					RESETCOLOR
					EX:膣内精液 = 500

					CALL AddEXP("挿入経験", MASTER, 5)
					CALL AddEXP("絶頂経験", MASTER, 5)
					CALL AddEXP("射精経験", MASTER, 5)
					CALL AddEXP("睡眠姦経験", MASTER, 1)

					CALL AddEXP("Ｖ経験", TARGET, 5)
					CALL AddEXP("Ｖ性交経験", TARGET, 5)
					CALL AddEXP("Ｖ絶頂経験", TARGET, 15)
					CALL AddEXP("子宮口開発経験", TARGET, 5)
					CALL AddEXP("精液経験", TARGET, 5)
					CALL AddEXP("膣射経験", TARGET, 5)

				ELSE
					IF EXP:Ａ性交経験 > 0
						PRINTFORML 下半身莫名的舒服…
						PRINTFORML 肉茎被缠住的感觉与被什么柔软的东西顶在腰上的撞击感、令%CALLNAME:MASTER%醒了过来
						PRINTW
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「早上好HPH　终于醒了呢HPHHPH」","L"
						RESETCOLOR
						PRINTFORML 十分舒服的真正原因是因为%CALLNAME:TARGET%正在上面摆动着腰部
						PRINTW
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「啊嗯HPHHPH　啊HPH　哈呼HPH　哈啊嗯HPHHPH」","L"
						CALL HPH_PRINT,@"「你问我在做什么？HPH　我在用菊穴吃掉%CALLNAME:MASTER%阁下的小鸡鸡哦HPH」","L"
						PRINTL
						CALL HPH_PRINT,@"「怎么摇都醒不过来、但小鸡鸡倒是挺清醒的呢HPHHPH」","L"
						CALL HPH_PRINT,@"「发情中的\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐 # 我 \@怎么可能忍耐得住呢HPHHPH　啊嗯HPH」","L"
						RESETCOLOR
						PRINTW
						IF TALENT:尻穴狂
							PRINTFORML 典的肛門缠得紧紧的、
							PRINTFORML 肠肉就如同穴肉一般、以绝妙的柔韧度包裹住肉棒、催促吐精
						ELSE
							PRINTFORML 典的肠内与肛門将异物缠住、催促吐精
						ENDIF
						PRINTFORML 因为还处于半睡半醒的状态、所以是无法抵抗的
						PRINTW
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「啊嗯HPH　啊嗯HPH　呼嗯HPH　小鸡鸡、变得好大了呢HPHHPH」","L"
						CALL HPH_PRINT,@"「出来了吗？HPH　要在菊穴里射出来了吗？HPHHPH」","L"
						RESETCOLOR
						PRINTW
						PRINTFORML 当射精将近、肉棒開始痙攣时、%CALLNAME:TARGET%加快了摆动腰部的速度
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「好的HPH　快射出来HPHHPH　将精液给予我吧HPHHPH」","L"
						CALL HPH_PRINT,@"「用早晨最浓的精液、来让\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐 # 典 \@的菊穴怀孕吧HPHHPH」","L"
						RESETCOLOR
						PRINTW
						PRINTFORML 连犹豫要不要回答的时间都没有、%CALLNAME:MASTER%的肉棒就在典的肠内释放了大量的精气
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「啊啊HPH　出来了HPHHPH　嗯HPHHPH」","L"
						CALL HPH_PRINT,@"「\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐 # 典 \@的屁股要被烫伤了…HPHHPH」","L"
						RESETCOLOR
						PRINTFORML 尽管%CALLNAME:MASTER%已经达到了高潮、典却仍然痴迷地继续摆动着腰部
						PRINTFORML 变得敏感的肉棒会产生疼痛和痒痒并存的奇妙感觉、但想要抽身也无法摆脱
						PRINTFORML 无法忍受、于是又在小穴里射出了和第一次一样多的精液
						PRINTW
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「呼ーHPH　呼ーHPHHPH　对不起、我无法控制自己的行为…HPHHPH」","L"
						CALL HPH_PRINT,@"「我的屁股很疼HPH　在渴求着精子…HPHHPH」","L"
						RESETCOLOR
						PRINTW
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「所以一次两次是不够的…HPHHPH」","L"
						CALL HPH_PRINT,@"「我还想让你在菊穴里射出更多的精液HPHHPH」","L"
						RESETCOLOR
						PRINTFORML 典像凶猛的食肉兽一样覆在%CALLNAME:PLAYER%身上、再次開始激烈地扭动腰肢
						PRINTW
						CALL AddEXP("Ｃ経験", MASTER, 5)
						CALL AddEXP("絶頂経験", MASTER, 5)
						CALL AddEXP("射精経験", MASTER, 5)
						CALL AddEXP("睡眠姦経験", MASTER, 1)

						CALL AddEXP("Ａ経験", TARGET, 5)
						CALL AddEXP("Ａ性交経験", TARGET, 5)
						CALL AddEXP("Ａ絶頂経験", TARGET, 15)
						CALL AddEXP("精液経験", TARGET, 5)
					ELSE
						PRINTFORML 来自股间的温暖刺激使意识半清醒了起来
						PRINTFORML 微微睁開眼睛、就看见一只长着狐耳的少女、典正在口交
						PRINTW
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「嗯唔HPH　嗯唔HPH　啾啵啾啵…HPH」","L"
						RESETCOLOR
						PRINTFORML 有时候会迷迷糊糊、快感直接在身体中来回奔走
						PRINTFORML 和平时不同、完全无法忍耐…不、是连想要忍耐的心思还没升起来就已经開始射精了
						PRINTW
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「嗯HPH　嗯嗯嗯～～～～HPHHPH」","L"
						CALL HPH_PRINT,@"「唔HPH　唔…咕嘟HPH　呼呼、果然早上的是最浓的呢HPHHPH」","L"
						CALL HPH_PRINT,@"「因为%CALLNAME:MASTER%阁下睡懒觉了、小鸡鸡和精液、我就先行享用了…HPH」","L"
						RESETCOLOR
						PRINTW
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下可真没出息啊HPH　小鸡鸡都一跳一跳成那种样子了…HPH」","L"
						CALL HPH_PRINT,@"「快点快点、如果不赶紧起床的话就让你再射一次哦HPHHPH」","L"
						RESETCOLOR
						PRINTW
						PRINTFORML 典再次開始吮吸起龟头
						PRINTFORML %CALLNAME:MASTER%直到意识完全苏醒为止、都被典随心所欲地玩弄着肉棒…
						PRINTW

						CALL AddEXP("Ｃ経験", MASTER, 5)
						CALL AddEXP("絶頂経験", MASTER, 5)
						CALL AddEXP("射精経験", MASTER, 5)
						CALL AddEXP("睡眠姦経験", MASTER, 1)

						CALL AddEXP("Ｍ経験", TARGET, 5)
						CALL AddEXP("口淫経験", TARGET, 5)
						CALL AddEXP("Ｍ絶頂経験", TARGET, 1)
						CALL AddEXP("精液経験", TARGET, 5)
						CALL AddEXP("精飲経験", TARGET, 5)
						CALL AddEXP("奉仕快楽経験", TARGET, 20)
					ENDIF
				ENDIF
			ELSE
				IF CFLAG:既成事實 & 合意_诶嘿嘿
					SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「%CALLNAME:MASTER%阁下、早上好♪」
						PRINTFORML 「今天也很有精神呢♪」
						PRINTFORML 典坏笑着用指头抚摸着%CALLNAME:MASTER%股间的帐篷…
						BASE:MASTER:勃起 = 1000
					CASE 1
						PRINTFORML 「啊啦、已经起床了啊」
						PRINTFORML 「早上好、%CALLNAME:MASTER%阁下」
						PRINTFORML 「如果你再多睡会儿的话、我本来还想着趁你熟睡去袭击一下呢…遗憾」
					CASE 2
						SIF TALENT:MASTER:性別 != 2
						RETURN 1
						IF TALENT:妊娠願望
							PRINTFORML 来自股间的温暖刺激使意识半清醒了起来
							PRINTFORML 微微睁開双眼发现、长着狐耳的少女、典正骑在自己身上、晃动着腰部
							PRINTW
							PRINTFORML 不知何时%CALLNAME:MASTER%得下半身已经被脱成全裸的状态、典用秘裂在勃起的阴茎上来回使劲摩擦着
							CALL HPH_PRINT,@"「啊啊、已经起床了啊。%CALLNAME:MASTER%阁下、早上好…HPH」","L"
							PRINTW
							PRINTFORML 「你问我在干什么？　因为怎么叫都叫不醒%CALLNAME:MASTER%、所以就想着、要不来造小孩吧、就是这样」
							PRINTFORML 典若无其事地说出了不得了的话
							PRINTW
							PRINTFORML 「顺带一提、%CALLNAME:MASTER%阁下的这里也好、我也好都已经做好准备了…要来吗？」
							PRINTFORML 望过去可以看见、龟头已经有一半都被埋入典的媚肉之中了
							PRINTW
							CALL ASK_YN("就这样開始努力造小孩","让她停下")
							IF !RESULT
								PRINTFORML 作为回答你抓住典的腰、嗞噗一下子把阴茎埋进了小穴里
								CALL HPH_PRINT,@"「咿唔HPH　鸡鸡、突然一下子进来了HPHHPH」","L"
								PRINTFORML 以这种状态開始梆梆梆地从下往上突刺、典紧接着開始发出娇声
								PRINTW
								CALL HPH_PRINT,@"「啊　啊啊唔HPH　好想要HPH　这个HPHHPH」","L"
								CALL HPH_PRINT,@"「好喜欢%CALLNAME:MASTER%阁下的肉棒HPH　继续HPH　继续来HPHHPH」","L"
								CALL HPH_PRINT,@"「用典的小穴射出来HPH　把子宮射得满满的HPH」","L"
								PRINTW
								EX:膣内精液 = 500

								CALL AddEXP("挿入経験", MASTER, 5)
								CALL AddEXP("絶頂経験", MASTER, 5)
								CALL AddEXP("射精経験", MASTER, 5)
								CALL AddEXP("睡眠姦経験", MASTER, 1)

								CALL AddEXP("Ｖ経験", TARGET, 5)
								CALL AddEXP("Ｖ性交経験", TARGET, 5)
								CALL AddEXP("Ｖ絶頂経験", TARGET, 15)
								CALL AddEXP("子宮口開発経験", TARGET, 5)
								CALL AddEXP("精液経験", TARGET, 5)
								CALL AddEXP("膣射経験", TARGET, 5)
							ELSE
								PRINTFORML 「欸欸欸ー…亏我准备得这么用心…」
								PRINTFORML 虽然表现得极为不满、典还是听从了%CALLNAME:MASTER%的话
								PRINTW
								PRINTFORML 「虽然我其实还是最想要孩子、但就算不要孩子、也还是想要被%CALLNAME:MASTER%阁下好好疼爱…」
								PRINTFORML 典鼓着双颊、不停地戳着%CALLNAME:MASTER%的脸
								PRINTW
							ENDIF
						ELSE
							PRINTFORML 来自股间的温暖刺激使意识半清醒了起来
							PRINTFORML 微微睁開眼睛、就看见一只长着狐耳的少女、典正在口交
							PRINTW
							CALL HPH_PRINT,@"「嗯唔HPH　嗯唔HPH　啾啵啾啵…HPH」","L"
							PRINTFORML 有时候会迷迷糊糊、快感直接在身体中来回奔走
							PRINTFORML 和平时不同、完全无法忍耐…不、是连想要忍耐的心思还没升起来就已经開始射精了
							PRINTW
							CALL HPH_PRINT,@"「嗯HPH　嗯嗯嗯～～～～HPHHPH」","L"
							CALL HPH_PRINT,@"「唔HPH　唔…咕嘟HPH　呼呼、果然早上的是最浓的呢HPHHPH」","L"
							CALL HPH_PRINT,@"「因为%CALLNAME:MASTER%阁下睡懒觉了、小鸡鸡和精液、我就先行享用了…HPH」","L"
							PRINTW
							CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下可真没出息啊HPH　小鸡鸡都一跳一跳成那种样子了…HPH」","L"
							CALL HPH_PRINT,@"「快点快点、如果不赶紧起床的话就让你再射一次哦HPHHPH」","L"
							PRINTW
							PRINTFORML 典再次開始吮吸起龟头
							PRINTFORML %CALLNAME:MASTER%直到意识完全苏醒为止、都被典随心所欲地玩弄着肉棒…
							PRINTW

							CALL AddEXP("Ｃ経験", MASTER, 5)
							CALL AddEXP("絶頂経験", MASTER, 5)
							CALL AddEXP("射精経験", MASTER, 5)
							CALL AddEXP("睡眠姦経験", MASTER, 1)

							CALL AddEXP("Ｍ経験", TARGET, 5)
							CALL AddEXP("口淫経験", TARGET, 5)
							CALL AddEXP("Ｍ絶頂経験", TARGET, 1)
							CALL AddEXP("精液経験", TARGET, 5)
							CALL AddEXP("精飲経験", TARGET, 5)
							CALL AddEXP("奉仕快楽経験", TARGET, 20)
						ENDIF
					ENDSELECT
				ELSE
					IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行
						SELECTCASE RAND:3
						CASE 0
							PRINTFORML 睁開眼睛、典正温柔地抚摸着我的头
							PRINTFORML 「做噩梦了吗？　被魇住了哦」
						CASE 1
							PRINTFORML 唤了低头看着自己的管狐少女的名字一声后、典露出了恬静的笑容
							PRINTFORML 「嗯、是姐姐哦」
						CASE 2
							PRINTFORML 睁開眼睛、典正亲吻着我的脸颊
							PRINTFORML 「哎呀、睡美人真的会被吻醒啊♪」
							SIF TALENT:MASTER:性別 == 2
								PRINTFORML 可我是男孩子…
						ENDSELECT
						PRINTW
					ELSE
						SELECTCASE RAND:3
						CASE 0
							PRINTFORML 「早上好♪」
							PRINTFORML 醒来时、典正盯着我看
						CASE 1
							PRINTFORML 「早上好、%CALLNAME:MASTER%阁下♪」
							PRINTFORML 「不锁门也太不小心了。万一有小偷进来怎么办？」
						CASE 2
							PRINTFORML 睁開眼时感觉到一股柔软的触感、发现典不知何时躺在我的身旁
							PRINTFORML 「早上好、%CALLNAME:MASTER%阁下♪」
						ENDSELECT
						PRINTW
					ENDIF
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or陪睡中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;夜寝るとき（おやすみ口上）
;==================================================
@M_KOJO_EVENT_K139_3(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰って寝る（～は【現在地】から【キャラの自室】に戻りました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF ARG:1
			;约会中に眠くて帰って寝る（拠点キャラのみ）
			PRINTFORMW
		ELSEIF CFLAG:诶嘿嘿
			;诶嘿嘿中に眠くて自室に帰って寝る（拠点キャラのみ）
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている（～は眠そうにしている）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（～は眠っている）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;恶作剧中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱して寝る（体力500以下,诶嘿嘿時は诶嘿嘿強制終了）
	;（キャラの自室以外：～を【現在地】から【キャラの自室】に運びました）
	;（キャラの自室　　：～は疲惫と言って、横成为了）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF CFLAG:诶嘿嘿
			;诶嘿嘿中にダウン
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（恋慕のみ,そのまま一日が終了）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF ARG:1
			;自室でダウン,（～が【MASTER】をベッド（被窝）へと運んでくれた…）
			PRINTFORMW
		ELSE
			;部屋まで運ばれる,（～が【MASTER】を私室へと運んでくれた…）
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが寝るために自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た（【TARGET】が部屋に戻ってきた→寝間着へと着替え、寝床に潜った）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から逐出て寝た（眠そうな【TARGET】に追い出された…）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF CFLAG:前一次的位置 == CFLAG:現在位置
				;前のターンまで一緒に部屋にいた
				PRINTFORMW
			ELSE
				;寝るために部屋に帰ってきたところ
				PRINTFORMW
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとのＨを止めさせて寝た（【TARGET】が部屋に戻ってきた→唇をとがらせる【TARGET】に、【MASTER】は渋々【Ｈの相手】から別屋た）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;来訪キャラが拠点で休憩（～は疲れ切っている→稍微休んでいきなよ）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝室に居る状態でその場で寝る（～は眠気に負け、眠りについた…）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		IF CFLAG:诶嘿嘿
			;诶嘿嘿中に寝る
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;移動時すれちがい
;==================================================
@M_KOJO_EVENT_K139_4(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
IF EQUIP:連衣裙
	CALL K139_NURESUKE()
ENDIF
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して街道過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して街道過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;他者介入で情緒変化
;==================================================
@M_KOJO_EVENT_K139_5(ARG,ARG:1)
;口上主はTARGET
;ARGに入ってきたキャラ（人数が膨大なので、自己把握自己責任で
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;霊夢が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;留琴が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;其他（キャラ指定無
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を目撃した
;==================================================
@M_KOJO_EVENT_K139_6(ARG,ARG:1)
;口上主はTARGET
;ARGに情事相手
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（亲热度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（亲热度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を見られた
;==================================================
@M_KOJO_EVENT_K139_7(ARG,ARG:1)
;口上主はTARGET
;ARGに目撃者
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の亲热度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の亲热度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;目撃した情事を問い詰める（現在無し
;==================================================
@M_KOJO_EVENT_K139_8(ARG,ARG:1)
RETURN 1

;==================================================
;胖次没収された
;==================================================
@M_KOJO_EVENT_K139_9(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		;0204更新
		PRINTFORML 「%CALLNAME:MASTER%阁下～？　这是什么～？」
		PRINTFORML 典夺过藏在身上的胖次、用手指勾住后開始旋转起胖次
		PRINTFORML 「总之、这个就先没收了♪　我会把它还给它的主人的♪」
		PRINTW
		IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
			PRINTFORML 典把身体靠近%CALLNAME:MASTER%、悄悄在你耳边说道
			CALL HPH_PRINT,@"「你这么想要胖次的话、可以把姐姐的给你哟…HPH」","L"
			PRINTW
		ENDIF
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;推倒た
;==================================================
@M_KOJO_EVENT_K139_10(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;诶嘿嘿==2（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;MASTERを推倒た（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			IF TALENT:139:心情 == -1 || CFLAG:139:ブチギレ == 1
				IF TCVAR:発情
					IF TALENT:恋慕 || TALENT:恋人
						PRINTFORML 「%CALLNAME:MASTER%阁下、现在要開始做爱了哦」
						PRINTFORML 典一边脱掉%CALLNAME:MASTER%的衣服一边用舌头来回舔遍身体各处
						PRINTW
						PRINTFORML 「没有否决权。请陪着我直到我满足为止」
						CALL ASK_YN("我知道了、请冷静下来","我现在没有那种想法…")
						IF !RESULT
							PRINTFORML 「我可冷静不下来呢。典的这里、已经变成这样了哦」
							SIF PALAM:139:潤滑 < PALAMLV:3
							PALAM:139:潤滑 = PALAMLV:3
							PRINTFORML 手指碰到典的秘处时、那里已经发了场大洪水
							PRINTW
							PRINTFORML 「我一旦变成这样、就很难再收敛下来了。请做好觉悟吧」
							PRINTFORML 能看到明天的朝阳吗…一边这样想着、一边被典推倒了
							PRINTW
						ELSE
							IF TALENT:MASTER:性別 == 2 || TALENT:MASTER:性別 == 3
								IF BASE:MASTER:勃起 >= 1000
									PRINTFORML 「肉棒已经变得这么大了、一点说服力都没有呢」
									PRINTFORML 「看来是很想在我身上射出又白又浓的精液对吧」
								ELSE
									PRINTFORML 「为什么还是软绵绵的呢。你在逗我吗」
									PRINTFORML 典用绝妙的手势撸了一下%TINKO(MASTER)%、马上就勃起了
									BASE:MASTER:勃起 = 1000
									CALL HPH_PRINT,@"「好的、看来已经准备完毕了HPH」","L"
								ENDIF
							ELSE
								IF PALAM:MASTER:潤滑 >= PALAMLV:3
									PRINTFORML 「虽然说着那种话、我舌头前边的这张嘴却很老实呢」
								ELSE
									PRINTFORML 「哼嗯、まあ今からその気になれば誤差の範囲です」
								ENDIF
							ENDIF
							PRINTFORML 「因为现在的我心情不好。无谓的抵抗只会造成不必要的伤害」
							PRINTFORML 「请乖乖地让我抱吧」
							PRINTW
						ENDIF
					;心情不快・発情・恋慕か恋人無
					ELSE
						PRINTFORML 「%CALLNAME:MASTER%阁下请保持这个姿势继续躺着」
						PRINTFORML 典带着一脸危险的表情、按倒了%CALLNAME:MASTER%
						PRINTW
						PRINTFORML 「没关系的。只需要数一下天花板上有多少个斑点就可以了」
						SIF OUTROOF(CFLAG:TARGET:現在位置)
							PRINTFORML 「啊啊、现在是在室外吧。不过没关系」
						PRINTFORML 「我现在很焦躁、实在是没有办法了。就让我借用一下%CALLNAME:MASTER%阁下的身体吧」
						IF TALENT:MASTER:性別 == 2 || TALENT:MASTER:性別 == 3
							IF BASE:MASTER:勃起 >= 1000
								PRINTFORML 「%CALLNAME:MASTER%阁下的肉棒也表示赞成哦」
								PRINTFORML 「看来是很想在我身上射出又白又浓的精液对吧」
							ELSE
								PRINTFORML 「啊呀、这不是还很柔软吗。真是的…」
								PRINTFORML 典用绝妙的手势撸了一下%TINKO(MASTER)%、马上就勃起了
								BASE:MASTER:勃起 = 1000
								CALL HPH_PRINT,@"「好的、看来已经准备完毕了HPH」","L"
							ENDIF
							PRINTFORML 「好了、乖乖地让我吃掉吧」
						ENDIF
					ENDIF
				;発情していない
				ELSE
					IF TALENT:恋慕 || TALENT:恋人
						PRINTFORML 「%CALLNAME:MASTER%阁下、请抱我吧」
						PRINTFORML 「问我为什么吗、因为我现在欲火中烧呢」
						SIF TALENT:恋人
						PRINTFORML 「彼此互相喜欢的人之间、这么做也没有什么问题吧？」
						SIF TALENT:MASTER:非童貞 == 0 || TALENT:MASTER:処女 == 1
							PRINTFORML 「没有自信能做得好？　没关系的。只需要把一切都交给我就行了」
						PRINTFORML 「请把一切都交给典。直到我满足为止」
					ELSE
						PRINTFORML 「很抱歉、现在我要開始侵犯%CALLNAME:MASTER%阁下了」
						PRINTFORML 「没有否决权、所以请你就这样乖乖呆着吧」
						IF TALENT:MASTER:性別 == 2 || TALENT:MASTER:性別 == 3
							PRINTFORMW 「不会痛的。只需要把肉棒借给我就行了」
						ENDIF
						PRINTFORML 「请好好地消除我的性欲」
						PRINTW
					ENDIF
				ENDIF
			;心情普通
			ELSE
				IF TCVAR:発情
					IF TALENT:恋慕 || TALENT:恋人
						IF TALENT:恋慕 && TALENT:恋人 && TALENT:妊娠願望 && (TALENT:MASTER:性別 == 2 || TALENT:MASTER:性別 == 3) && TCVAR:360 == 0
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「呼ーHPH　呼ーHPH」","L"
							CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下HPH　来造小孩HPH　来认真造小孩吧HPH」","L"
							RESETCOLOR
							PRINTW
							PRINTFORML 不由分说的、典把之前藏在她怀里的谜之液体嘴对嘴地给你喂了下去
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「请不要担心HPH　没有危险的HPHHPH」","L"
							CALL HPH_PRINT,@"「只不过、有些地方会变得非常精神罢了HPH」","L"
							RESETCOLOR
							PRINTFORML 顺着典的视线、发现自己的胯间勃起到了本不可能的程度
							PRINTFORML 而且、感觉全身都有力量在上涌…特别是睾丸附近…
							PRINTW
							PRINTFORML %CALLNAME:MASTER%的体力、気力、精力上升了…
							PRINTFORML %CALLNAME:MASTER%的精力回复了…
							PRINTFORML 精子正被急速地制造出来、得到了[濃厚精液]…
							PRINTW
							CALL BUFF_BASE(MASTER, BASE_気力,1000)
							CALL BUFF_BASE(MASTER, BASE_体力,1000)
							BASE:MASTER:勃起 = MAXBASE:MASTER:勃起
							BASE:MASTER:精力 = MAXBASE:MASTER:精力
							CALL BUFF_BASE(MASTER, BASE_精力,1000, 1)
							TALENT:MASTER:濃厚精液 = 1
							TCVAR:MASTER:発情 = 1
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「来让\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐 # 典 \@、怀孕吧HPH」","L"
							CALL HPH_PRINT,@"「让我妊娠HPH　好想产下、%CALLNAME:MASTER%的宝宝HPH」","W"
							CALL HPH_PRINT,@"「出了穴内射精以外什么都不用考虑的全力性爱HPH　绝对、会很舒服的啊HPHHPH」","L"
							CALL HPH_PRINT,@"「在让典HPH怀孕之前停下可不行哦…HPH」","L"
							RESETCOLOR
							PRINTW
							TCVAR:360 = 1
						ELSEIF TCVAR:360 >= 1
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下…HPH　请让我为您撸吧…HPH」","L"
							IF ITEM:避孕套 > 0
								CALL HPH_PRINT,@"「为什么要带上套子呢HPH　那种东西没必要的哟HPH」","L"
							ELSEIF ITEM:口服避孕薬 > 0
								CALL HPH_PRINT,@"「避妊薬なんて準備してどうするおつもりですかっHPH　許しませんよっHPH」","L"
							ENDIF
							CALL HPH_PRINT,@"「无套造小孩以外的做爱禁HPH止HPH我不是说过了吗HPH」典的笑脸好可怕…","L"
							CALL HPH_PRINT,@"「就请你射出、会把我的子宫全部淹没的量了哟…HPH」","L"
							PRINTW
						ELSE
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下HPH　做爱HPH　来作爱吧HPH」","L"
							CALL HPH_PRINT,@"「让典变成这样的责任、就用你的身体来偿还了哟HPH」","L"
							RESETCOLOR
						ENDIF
					ELSE
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下HPH　做爱HPH　来做爱吧HPH」","L"
						CALL HPH_PRINT,@"「让典变成这样的责任、就用你的身体来偿还了哟HPH」","L"
						CALL HPH_PRINT,@"「没关系、不会花费太久时间的、我会好好注意次数的啦HPH」","L"
						RESETCOLOR
						PRINTW
						PRINTFORML 典抚摸着%CALLNAME:MASTER%的脸颊与下巴、在耳边吹着气、在耳朵庞低声细语
						PRINTFORML 那妖艳的细语声让大脑都颤抖起来
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「呵呵、你的表情已经舒服得像是要融化了一样喔HPH　不用忍耐也行的哟HPH」","L"
						CALL HPH_PRINT,@"「那么、请和典一起、做些舒服的事情吧…HPH」","L"
						RESETCOLOR
					ENDIF
					PRINTW
				;発情していない
				ELSE
					IF TALENT:恋慕 || TALENT:恋人
						IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
							SELECTCASE RAND:3
							CASE 0
								PRINTFORML 「姐姐我、一看到%CALLNAME:MASTER%阁下就变得不能自已了」
								CALL HPH_PRINT,@"「综上所述、典现在就要、吃掉%CALLNAME:MASTER%阁下了哟HPH」","L"
							CASE 1
								PRINTFORML 「知道我接下来要做什么吗？」
								CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下和姐姐、要开始做爱了哟…HPH」","L"
								CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下呢、也想和姐姐一起做爱吗…？HPH」","L"
								CALL ASK_YN("想","不想")
								IF !RESULT
									PRINTFORML 「说得好…%UNICODE(0x2665) *1%　和姐姐一起、做很多很多舒服的事情吧…%UNICODE(0x2665) *1%」
								ELSE
									PRINTFORML 「不・行%UNICODE(0x2665) *1%」
								ENDIF
							CASE 2
								PRINTFORML 「我现在在干什么？　如你所见、正在推倒%CALLNAME:MASTER%阁下的说」
								PRINTFORML 「我想干什么？　我想干你呀♪」
								CALL HPH_PRINT,@"「ほら大人しくお姉ちゃんの毒牙にかかりなさいっHPH　逃がしませんよっHPH」","L"
							ENDSELECT
						ELSE
							PRINTFORML 「我的目的是什么？　明明在你停止反抗的那一瞬间、就已经知道了…%UNICODE(0x2665) *1%」
							PRINTFORML 典骑在%CALLNAME:MASTER%身上、用手指轻挠着手掌
							PRINTW
							PRINTFORML 「都是一直硬邦邦的还不来抱我的%CALLNAME:MASTER%不好」
							PRINTFORML 「所以、典就来袭击你了哟…%UNICODE(0x2665) *1%」
							PRINTW
						ENDIF
					;恋慕・恋人無
					ELSE
						;今日の性騷擾総数が7回以上
						IF TCVAR:352 >= 7
							PRINTFORML 「真是的、%CALLNAME:MASTER%阁下可真喜欢恶作剧呢」
							PRINTFORML 典推倒了%CALLNAME:MASTER%
							PRINTFORML 难不成是用了什么奇怪的咒术吗、就算想要反击动作也缓慢的不行
							PRINTW
							PRINTFORML 「你肯定一直期待着、会变成这样的吧？　不然的话、也不会那样子摸我了吧」
						;今日の性騷擾総数7回未満
						ELSE
							PRINTFORML 「诶♪」
							PRINTFORML 典露出一副想要恶作剧的表情、将%CALLNAME:MASTER%给推倒了
							PRINTW
							PRINTFORML 「我在做什么？　来干点什么吧♪」
						ENDIF

						IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
							;初回
							IF CFLAG:1014 == 0
								PRINTFORML （呵呵、\@ TALENT:MASTER:胆量 == -1 ? 一脸害怕 # 被吓了一跳 \@的样子…真可爱♪）
								PRINTFORMW 「姐姐我啊、最喜欢美味的东西了」
								PRINTFORMW 「所以啊…我现在、要开动啦」
								PRINTFORMW 「都是%CALLNAME:MASTER%阁下的错哦」
								IF TALENT:MASTER:濃厚精液
									PRINTFORML 「散发出这么浓厚芳香的精液气味…%UNICODE(0x2665) *1%」
								ELSE
									PRINTFORML 「散发出这么美味的精液气味…%UNICODE(0x2665) *1%」
								ENDIF
								IF TALENT:MASTER:性的兴趣 == 1
									PRINTFORML 「『难不成、是涩涩的事情？』…啊啊、对哟」
									PRINTFORML 「哦、眼睛突然发光了啊…」
									PRINTFORML 「反正要选的话比起一脸害怕还是这样子要更加快活…随便啦」
								ENDIF
									PRINTFORML 「那么、\@ TALENT:MASTER:非童貞 == 0 ? %CALLNAME:MASTER%阁下的童贞、 # \@我就开动了…%UNICODE(0x2665) *1%」
									PRINTW
							;二回目
							ELSEIF CFLAG:1014 == 1
								PRINTFORML 「呵呵、明明都是第二次了、半点戒备都没有呢…%UNICODE(0x2665) *1%」
								PRINTFORML 「就是因为这样、才会被姐姐再吃一遍的哟…%UNICODE(0x2665) *1%」
								;傲慢
								IF (TALENT:MASTER:応答 == 1 || TALENT:MASTER:態度 == 1)
									PRINTFORML 「哦呀哦呀、露出这么傲慢的态度真的好吗～♪」
									PRINTFORML 典舔舐了一下%CALLNAME:MASTER%的脖子
									PRINTW
									IF ABL:MASTER:戦闘能力 > 3
										PRINTFORML 「不好意思啦、稍微让我封印一下你的力量吧♪」
										PRINTFORML 「接下来可是要做很舒服的事情呢、要是受伤了可不行」
										PRINTW
									ENDIF
									PRINTFORML 「小鸡鸡、又变得黏黏糊糊了呢…♪」
									PRINTFORMW 「啊啊、就是这个表情…♪　虽然傲慢的表情也很不错、但这副胆怯的表情…♪」
									PRINTFORML 「今天就在你不会继续讨厌舒服的事情之前、一直做下去吧…%UNICODE(0x2665) *1%」
									PRINTFORML 「那么、我开动了%UNICODE(0x2665) *1%」
									PRINTW
								;膽怯
								ELSEIF TALENT:MASTER:胆量 == -1
									PRINTFORML 「啊啊、这副害怕的表情…会让我心动不已啊%UNICODE(0x2665) *1%」
									PRINTFORML 典浮现出邪恶的笑容、用舌头舔着%CALLNAME:MASTER%的脸颊和脖子
									PRINTW
									PRINTFORML 「就算你让我停下来、也不会有就这么放弃的笨蛋的哟♪」
									SIF BASE:MASTER:勃起 >= 1000
										PRINTFORMW 「而且、这边可完全没有想要停下来的意思哦…%UNICODE(0x2665) *1%」
									IF EXP:Ｖ性交経験 > 0
										PRINTFORML 「那么、再让姐姐的小穴、品尝一下%CALLNAME:MASTER%阁下的小鸡鸡吧…%UNICODE(0x2665) *1%」
									ELSE
										PRINTFORML 「那么、再让小鸡鸡先生变得舒服起来吧…%UNICODE(0x2665) *1%」
									ENDIF
									PRINTW
								ELSE
									;好奇心持ち
									IF TALENT:MASTER:性的兴趣 == 1
										PRINTFORML 「……唔、眼睛一如既往的闪闪发光着啊…」
										PRINTFORML 「真是个不得了的孩子呢。真为你的将来而担忧」
										PRINTFORML 典苦笑着抚摸起%CALLNAME:MASTER%的头发
										PRINTW
										PRINTFORML 「行吧。就让姐姐再来教给你、各种各样的事情吧…%UNICODE(0x2665) *1%」
										PRINTFORML 「一起、变得舒服起来吧…%UNICODE(0x2665) *1%」
									ELSE
										PRINTFORML 「可怕、吗？」
										CALL ASK_YN("稍微…有点","虽然不害怕、但是心脏一直砰砰乱跳着")
										IF !RESULT
											PRINTFORML 「呵呵、真是诚实呢…♪」
											PRINTFORML 「但是、会感觉可怕只有一开始的时候哟」
											PRINTFORML 「马上就会变成『姐姐、我还要』这样子了哦…%UNICODE(0x2665) *1%」
										ELSE
											PRINTFORML 「呵呵、期待已经超过恐惧了吗…%UNICODE(0x2665) *1%」
											PRINTFORML 「那么、今天就做些更厉害的东西吧…%UNICODE(0x2665) *1%」
											PRINTFORML 「和姐姐一起、做很多很多舒服的事情吧%UNICODE(0x2665) *1%」
										ENDIF
									ENDIF
									PRINTW
								ENDIF
							;三回目以降
							ELSE
								;傲慢
								IF (TALENT:MASTER:応答 == 1 || TALENT:MASTER:態度 == 1)
									PRINTFORML 「啊嘞？　变得相当成熟了的样子呢」
									PRINTFORML 「啊ー、我知道了♪」
									PRINTW
									PRINTFORML 典用双手包住%CALLNAME:MASTER%的脸颊、拉到了自己的面前
									CALL HPH_PRINT,@"「小鸡鸡、很期待能变得舒服起来的吧…HPH」","L"
									PRINTW
									BASE:MASTER:勃起 = 1000
									CALL HPH_PRINT,@"「不对？　那么、顶到姐姐屁股上的这个硬邦邦的东西是什么呢～？HPH」","W"
									CALL HPH_PRINT,@"「快承认吧HPH」","W"
									CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、就是个被女孩子推倒就会硬邦邦的变态HPH」","W"
									CALL HPH_PRINT,@"「明明很傲慢鸡鸡却弱弱的HPH　马上就会射出来HPH」","W"
									IF EXP:Ｖ性交経験 > 0 && EXP:膣射経験 > 0
										CALL HPH_PRINT,@"「今天也要全权交给姐姐小穴了呢…HPH」","L"
									ELSE
										CALL HPH_PRINT,@"「今天也要全权交给姐姐了呢…HPH」","L"
									ENDIF
								;膽怯
								ELSEIF TALENT:MASTER:胆量 == -1
									CALL HPH_PRINT,@"「真是的…不要那么害怕呀HPH」","L"
									PRINTFORML 典骑在%CALLNAME:MASTER%身上、用两根食指不停玩弄着
									PRINTW
									BASE:MASTER:勃起 = 1000
									CALL HPH_PRINT,@"「明明害怕的要死、这里倒是变成了勇敢的代名词呢…HPH」","L"
									PRINTFORML 典感受到股间抵着的隆起、眯起了眼睛
									PRINTW
									CALL HPH_PRINT,@"「实际上、你正期待着的吧HPH　想着、小鸡鸡可以舒服起来HPH」","L"
									CALL HPH_PRINT,@"「那么、就和姐姐一起、尽情快乐起来吧…HPH」","L"
								ELSE
								ENDIF
							ENDIF
						;大人
						ELSE
							;初回
							IF CFLAG:1014 == 0
								;你が膽怯
								IF TALENT:MASTER:胆量 == -1
									PRINTFORML 「『难不成、你要吃掉我吗』？　嗯嗯、就是这样哟♪」
									PRINTFORML 「啊啊、不要那么害怕嘛♪　我会湿透的♪」
									PRINTW
									PRINTFORML 「就算我说要吃掉、也不是说要吃掉你的血肉唷」
									PRINTFORML 典轻轻一笑、抚摸着%CALLNAME:MASTER%的股间
									PRINTW
									PRINTFORML 「想吃掉的、是这・里%UNICODE(0x2665) *1%」
									PRINTFORML 「让典的嘴巴和那里、变得黏糊糊的白浊、才是我要吃掉的东西…%UNICODE(0x2665) *1%」
									PRINTW
									PRINTFORML 「%CALLNAME:MASTER%阁下精液的味道、哪怕是在人类之中也是非常强烈的…我可感兴趣了♪」
									IF TALENT:MASTER:非童貞 == 0
										PRINTFORML 「嗅嗅…哦呀、这股青涩的味道…难不成、是童贞吗？」
										PRINTFORML 「这可真是走运…♪　想必你肯定留存着相当浓厚的精液吧…%UNICODE(0x2665) *1%」
									ELSE
										PRINTFORML 「明明都被典的逆推给吓坏了、要干的事还是打算做呢」
										PRINTFORML 「虽然很遗憾我不是第一次…但味道想必可以期待吧♪」
									ENDIF
									PRINTW
									PRINTFORML 「那么、闲谈时间就到此为止吧…」
									PRINTFORML 「我开动ー咯%UNICODE(0x2665) *1%」
									PRINTW
								ELSE
									PRINTFORML 「『你想干什么』吗、明明就一清二楚…%UNICODE(0x2665) *1%」
									PRINTFORML 「其实、在我和%CALLNAME:MASTER%阁下的第一次会面之前、就一直在注意着你」
									PRINTW
									PRINTFORML 「在人类之中、散发着格外浓郁的醇厚精香的人…也就是、%CALLNAME:MASTER%阁下你」
									PRINTFORML 「在其他妖怪或者人类那品尝不到的美味…这位就可以让我品尝到了吧♪」
									PRINTW
									PRINTFORML 「就算是现在、也能感觉到浓厚的精液在里面沸腾着哟…♪」
									PRINTFORML 典一边用嘴唇描绘着、一边用手指玩弄着%CALLNAME:MASTER%的股间
									PRINTW
									PRINTFORML 「看呐、硬起来了呢…%UNICODE(0x2665) *1%　%CALLNAME:MASTER%阁下也、起干劲了吧」
									PRINTFORML 「那我就不客气的开动咯%UNICODE(0x2665) *1%」
									PRINTW
								ENDIF
							;二回目以降
							ELSE
								PRINTFORML 「%CALLNAME:MASTER%阁下…%UNICODE(0x2665) *1%」
								PRINTFORML 典趴在%CALLNAME:MASTER%身上、用身体摩擦起来
								PRINTW
								PRINTFORML 「又变得想要起来了…%UNICODE(0x2665) *1%」
								PRINTFORML 「%CALLNAME:MASTER%阁下的这里、也这么说着…%UNICODE(0x2665) *1%」
								PRINTFORML 典隔着衣服握住了%CALLNAME:MASTER%的肉棒、缓缓的撸动起来
								PRINTW
								PRINTFORML 「%CALLNAME:MASTER%阁下的味道、让我记得那么清楚了的话、怎么还忍耐的下去呢%UNICODE(0x2665) *1%」
								PRINTFORML 「已经不行了…%UNICODE(0x2665) *1%对典、做涩涩的事情吧…%UNICODE(0x2665) *1%」
								PRINTW
							ENDIF
						ENDIF
					ENDIF
				ENDIF
			ENDIF

			IF CFLAG:1014 == 0
				IF TALENT:140:恋人
					PRINTFORML 「果然还是算了？　这是对饭纲丸大人的不忠？」
					PRINTFORML 「那么、只要不\@ (TALENT:MASTER:性別 == 2 || TALENT:MASTER:性別 == 3) ? 射精 # 绝顶 \@不就好了吗♪」
					PRINTW
					PRINTFORML 「没有去的话就不算越过了出轨那条线吧♪　大概♪」
					PRINTFORML 「还是说、%CALLNAME:MASTER%阁下、对饭纲丸大人的爱只要这种程度吗？」
					PRINTFORML 「只要有爱的话、典这种程度的攻击肯定是不会去的吧…对吧？」
					PRINTW
					PRINTFORML 「况且、抱了典这件事也是事实。要是想让典保密的话、就和典做吧%UNICODE(0x2665) *1%」
					PRINTFORML （那么那么、让我看看你能忍耐到什么时候吧…♪）
					PRINTW
					TCVAR:369 = 1
				ELSEIF TALENT:MASTER:恋人 && !TALENT:恋人
					PRINTFORML 「果然还是算了？　这是对恋人的不忠？」
					PRINTFORML 「那么、只要不\@ (TALENT:MASTER:性別 == 2 || TALENT:MASTER:性別 == 3) ? 射精 # 绝顶 \@不就好了吗♪」
					PRINTW
					PRINTFORML 「没有去的话就不算越过了出轨那条线吧♪　大概♪」
					PRINTFORML 「还是说、%CALLNAME:MASTER%阁下、对恋人的爱只要这种程度吗？」
					PRINTFORML 「只要有爱的话、典这种程度的攻击肯定是不会去的吧…对吧？」
					PRINTW
					PRINTFORML 「况且、抱了典这件事也是事实。要是想让典保密的话、就和典做吧%UNICODE(0x2665) *1%」
					PRINTFORML （那么那么、让我看看你能忍耐到什么时候吧…♪）
					PRINTW
					TCVAR:369 = 1
				ENDIF
			ELSE
				IF TALENT:140:恋人
					PRINTFORML 「喂喂喂、不要抵抗呀♪」
					PRINTFORML 「这次也是、只要不\@ (TALENT:MASTER:性別 == 2 || TALENT:MASTER:性別 == 3) ? 射精 # 绝顶 \@就好了而已哟♪」
					PRINTW
					CALL HPH_PRINT,@"「但是、上次在典的体内悲惨的外遇做爱中全力中出HPH已经是事实了呢…HPH」","L"
					CALL HPH_PRINT,@"「在腔内中出的那瞬间的%CALLNAME:MASTER%阁下的表情、非常的可爱唷…HPH」","L"
					PRINTW
					CALL HPH_PRINT,@"「一次还是两次都没什么区别HPH　出轨这件事已经是板上钉钉了呢HPH」","L"
					CALL HPH_PRINT,@"「在典的体内把外遇的%CALLNAME:MASTER%阁下的淫渣精子全部射出来吧HPH」","L"
					PRINTW
					CALL HPH_PRINT,@"「还・是・说HPH」","L"
					CALL HPH_PRINT,@"「这一次、要证明自己对饭纲丸大人的爱并非虚假的吗…HPH」","L"
					PRINTFORML 典轻轻笑着坐到了%CALLNAME:MASTER%的身上
					TCVAR:369 = 1
				ELSEIF TALENT:MASTER:恋人 && !TALENT:恋人
					PRINTFORML 「哦呀、你是说让我停下来吗？」
					PRINTFORML 「明明在典的腔内外遇中出了那么多次、好过分…」
					PRINTW
					PRINTFORML 「%CALLNAME:MASTER%阁下并没有“下一次我一定要证明自己对恋人的爱、
					PRINTFORML 　并且洗刷自己的污名“的勇气呢…」
					PRINTW
					PRINTFORML 「啊啊、多么可怜的恋人呐」
					IF TALENT:MASTER:性別 == 2 || TALENT:MASTER:性別 == 3
						PRINTFORML 「请不要摆出这么可怕的表情啦。肉棒这么硬邦邦的还生气、半点说服力都没有的哟」
					ENDIF
					PRINTW
					SIF TALENT:MASTER:性別 == 2 || TALENT:MASTER:性別 == 3
					PRINTFORML 典轻笑着看向%CALLNAME:MASTER%的股间。那里已然勃起、主张着自己的存在
					CALL HPH_PRINT,@"「想着出轨的事情然后勃起了啊HPH　真恶心诶HPH」","L"
					CALL HPH_PRINT,@"「但是呢、无论是这样的%CALLNAME:MASTER%阁下、还是这根没节操的小鸡鸡、我都最喜欢了哟HPH」","L"
					PRINTW
					CALL HPH_PRINT,@"「要是还爱着恋人大人的话、就不能射唷HPH」","L"
					PRINTFORML 「只要不在腔内射精的话就不算出轨成立了吧♪　大概♪」
					PRINTW
					CALL HPH_PRINT,@"「用%CALLNAME:MASTER%阁下那根不会忍耐的肉棒、让典好好了解一下吧HPH」","L"
					CALL HPH_PRINT,@"「那么就、开始吧…HPH」","L"
					PRINTW
					TCVAR:369 = 1
				ENDIF
			ENDIF
			;推倒回数累計
			CFLAG:1014 += 1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
				PRINTFORML 「%CALLNAME:MASTER%阁下～%UNICODE(0x2665) *1%」
				PRINTFORML 典抱住%CALLNAME:MASTER%、脸颊紧紧地贴着你
				PRINTFORML 「这不是挺好的嘛♪　姐姐我偶尔也想撒撒娇呢♪」
				PRINTW
			ELSE
				IF TALENT:MASTER:体型 >= 1
					PRINTFORML 「呼呼%UNICODE(0x2665) *1%」
					PRINTFORML 「像这样被公主抱也不错啊…%UNICODE(0x2665) *1%」
					PRINTFORML 被%CALLNAME:MASTER%用双臂抱了起来、典露出了十分幸福的表情
					PRINTW
				ELSE
					PRINTFORML 「%CALLNAME:MASTER%阁下抱起来很舒服呢…%UNICODE(0x2665) *1%」
					PRINTW
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;-------------------------------------------------
		;抜け出した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード満足終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード強制終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;摆脱失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;随便状態から抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF TCVAR:発情
				CALL PRINT_FACE, [[典]], "発情", "裸", "", ""
				SETCOLOR 0xFF69B4
				CALL HPH_PRINT,@"「不会让你逃掉的唷HPH」","L"
				CALL HPH_PRINT,@"「在存弹量全部耗尽之前都会一直做下去的哟HPH」","L"
				RESETCOLOR
				PRINTFORML 上头了的典已经宛如脱下了束缚、想必在她力竭之前都不会停下来的吧…
				PRINTW
			ELSE
				IF TALENT:恋慕 || TALENT:恋人
					IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
						CALL HPH_PRINT,@"「不行的哟HPH」","L"
						CALL HPH_PRINT,@"「今天一整天、%CALLNAME:MASTER%都是姐姐我的抱枕哦HPH」","W"
						CALL HPH_PRINT,@"「就此断念吧、让姐姐好好宠宠你HPH」","L"
						PRINTW
					ELSE
						CALL HPH_PRINT,@"「不・行HPH」","L"
						CALL HPH_PRINT,@"「说可以随我喜欢的可是%CALLNAME:MASTER%阁下本人哟HPH」","L"
						CALL HPH_PRINT,@"「今天我会好好的、尽情的疼爱%CALLNAME:MASTER%阁下一番呢…HPH」","L"
						PRINTFORML 这样榨取是不是有什么不对…
						PRINTW
					ENDIF
				ELSE
					IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
						CALL PRINT_FACE, [[典]], "笑顔", "裸", "", ""
						CALL HPH_PRINT,@"「不・行HPH」","L"
						PRINTFORML 典带着最棒的笑容说出了最无慈悲的话语
						PRINTW
					ELSE
						CALL PRINT_FACE, [[典]], "通常", "裸", "", ""
						PRINTFORMW 「嗯～…」
						CALL PRINT_FACE, [[典]], "性交", "裸", "", ""
						PRINTFORMW 「……」
						CALL PRINT_FACE, [[典]], "笑顔", "裸", "", ""
						PRINTFORMW 「不行的哟♪」
						PRINTW
					ENDIF
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			IF TALENT:MASTER:性別 == 2 || TALENT:MASTER:性別 == 3
				IF TCVAR:発情
					IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「姐姐我可还不想就这么结束HPH」","L"
						CALL HPH_PRINT,@"「在%CALLNAME:MASTER%阁下的蛋蛋全部射空之前、都会一直做下去的HPH」","L"
						RESETCOLOR
						PRINTFORML 乳头被典rerorero的舔着、眨眼之间%CALLNAME:MASTER%的阴茎就开始抬起它那镰刀状的脖子
						PRINTW
						BASE:MASTER:勃起 = 1000
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「看呐勃起啦HPH　%CALLNAME:MASTER%阁下这个大骗子HPH」","L"
						CALL HPH_PRINT,@"「看来、这根大骗子肉棒得好好处罚一番才行呢…HPH」","L"
						RESETCOLOR
						PRINTFORML 典一副发情还未停止的表情、再次压在了%CALLNAME:MASTER%身上…
						PRINTW
					ELSE
						IF BASE:MASTER:精力 > MAXBASE:MASTER:精力 / 2
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「以为自己逃的掉吗？HPH」","L"
							CALL HPH_PRINT,@"「从气味就可以分辨出来呢HPH　还有不少备弹的吧…HPH」","L"
							RESETCOLOR
							PRINTW
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「看呐HPH　ふぇんひらひへHPH」","L"
							RESETCOLOR
							PRINTFORML 典把阴茎含在口中、用温暖的口腔爱抚着
							PRINTFORML 同時用空着的手猛地抓住睾丸、缓缓开始了按摩
							PRINTW
							BASE:MASTER:勃起 = 1000
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「嗯哼HPH　哇～咿、小鸡鸡勃起啦～HPH」","L"
							CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下也还想用典的腔肉来让自己舒服起来的吧…HPH」","L"
							RESETCOLOR
							PRINTW
							PRINTFORML 典将自己那一股骚气的秘裂用手指左右打开、展示给%CALLNAME:MASTER%看
							PRINTFORML 从腔口观察到的腔肉一部分流淌着白浊的蜜汁、一抖一抖地蠢蠢欲动着
							PRINTW
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「喂～HPH　不抵抗的话就要插进去了哟～HPH」","L"
							CALL HPH_PRINT,@"「真奇怪呢HPH　小鸡鸡、现在正摩擦着小穴呢～HPH」","W"
							CALL HPH_PRINT,@"「那么、清空蛋蛋的任务、就继续进行吧…HPH」","L"
							PRINTW
						ELSE
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「呐、还HPH」","L"
							CALL HPH_PRINT,@"「还、可以继续的吧HPH」","L"
							RESETCOLOR
							PRINTFORML 典用舌头与手指让%CALLNAME:MASTER%的乳头滚动起来、
							PRINTFORML 而阴茎则被夹在大腿和小腿肚之间…
							PRINTW
							BASE:MASTER:勃起 = 1000
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「看呐、变大咯HPH」","L"
							CALL HPH_PRINT,@"「变大了也就是说、还想继续做对吧…HPH」","L"
							CALL HPH_PRINT,@"「要是都勃起的这么厉害了的话HPH　无论说什么都不会有说服力的哟HPH」","L"
							RESETCOLOR
							PRINTW
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「真没办法呢、就让典来、帮你把它变小吧HPH」","L"
							CALL HPH_PRINT,@"「用典来、把蛋蛋里的东西全部清空吧HPH」","L"
							RESETCOLOR
							PRINTW
						ENDIF
					ENDIF
				ELSE
					IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
						PRINTFORML 「不ー行♪　姐姐我啊、还没有满足呢♪」
						IF TALENT:妊娠願望
							IF EX:膣内精液 > 200
								CALL HPH_PRINT,@"「要能确实的怀上%CALLNAME:MASTER%的孩子HPH」","L"
								CALL HPH_PRINT,@"「姐姐、想让你在里面多多的多多的内射出来…HPH」","L"
								PRINTFORML 典轻轻按在下腹部微笑了起来…
								PRINTW
							ELSE
								CALL HPH_PRINT,@"「直到姐姐怀孕之前、都尽情的射出来吧HPH」","L"
								CALL HPH_PRINT,@"「不是全部都在里面射出来就不行了呢HPH」","L"
								PRINTW
							ENDIF
						ELSE
							IF BASE:MASTER:精力 > MAXBASE:MASTER:精力 / 2
								CALL HPH_PRINT,@"「看上去还绰绰有余的样子呢HPH」","L"
								CALL HPH_PRINT,@"「用姐姐的身体尽情的射出来HPH　在我身上挂上去HPH　让我喝下去HPH」","L"
							ELSE
								CALL HPH_PRINT,@"「还没全部射出来的吧♪HPH」","L"
								CALL HPH_PRINT,@"「蛋蛋里面的白白的臭臭的东西、全部都交给姐姐吧HPH」","L"
							ENDIF
							PRINTW
						ENDIF
					ELSE
						CALL HPH_PRINT,@"「接下来才正是好时候的吧？HPH」","L"
						IF TALENT:妊娠願望
							IF BASE:MASTER:精力 > MAXBASE:MASTER:精力 / 2
								CALL HPH_PRINT,@"「还射的出来的吧HPH　」","L"
							ELSE
								CALL HPH_PRINT,@"「必须把蛋蛋里面的东西全部射出来才行…HPH」","L"
							ENDIF
						ELSE
							IF EX:膣内精液 > 0
								PRINTFORML 「在腔内射了这么多、请不要只满足自己一个人哟♪」
							ELSE
								PRINTFORML 「典还没收到%CALLNAME:MASTER%阁下的精液呢、请不要一个人擅自结束了哟」
							ENDIF
						ENDIF
					ENDIF
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;誘ってきた（人目につかない場所に行きたがるやつ）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;ARG:1=TARGETの欲求不満度（最高1000）
		;必要ならばこれで分岐を作ってください
		;
		IF TCVAR:発情 && !RAND:2
			IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
				SETCOLOR 0xFF69B4
				CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下…姐姐我、变得想做起来了…HPH」","L"
				CALL ASK_YN("什么意思？","难不成…")
				IF !RESULT
				ELSE
				ENDIF
				PRINTFORML 典轻轻地将唇凑到觉得奇怪的%CALLNAME:MASTER%耳边、用参杂着吐息的声音细语道

				;ＮＧ集
				;IF TALENT:MASTER:清掃中毒
					;CALL HPH_PRINT,@"「お・そ・う・じHPH」","L"
				;ELSE
					;SELECTCASE RAND:3
					;CASE 0
						;CALL HPH_PRINT,@"「あ・ぶ・ら・あ・げHPH」","L"
					;CASE 1
						;PRINTFORML ぼそ…
						;PRINTFORML ボッ！！！
						;PRINTFORML %CALLNAME:MASTER%の脳みそが耳の穴から噴き出た
					;CASE 2
						;PRINTFORML 「あぁあああああぁああああああああ！！！！！！！！！！」
						;PRINTFORML 耳をつんざく大音量を聞いて%CALLNAME:MASTER%は気絶した
					;ENDSELECT
				;ENDIF

				IF TALENT:妊娠願望
					CALL HPH_PRINT,@"「造・小・孩HPH」","L"
				ELSEIF EXP:Ｖ性交経験 > 0
					SELECTCASE RAND:2
					CASE 0
						CALL HPH_PRINT,@"「做・爱・呀HPH」","L"
					CASE 1
						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,@"「不和%CALLNAME:MASTER%阁下一起、就做不了的事情…HPH」","L"
					CASE 3
						CALL HPH_PRINT,@"「在两个人独处之前、保・密HPH」","L"
					ENDSELECT
				ENDIF
			ELSE
			ENDIF
		ELSE
			SELECTCASE ARG:1
			CASE IS >= 800
				IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
					CALL HPH_PRINT,@"「要是去那边的话…就会对你做更加厉害的事情…要怎么办呢？HPH」","L"
					IF TALENT:MASTER:Ｃ感度 == 1
						PRINTFORML 典一边抚摸着%CALLNAME:MASTER%的股间一边在耳边细语道
					ELSEIF TALENT:MASTER:Ａ感度 == 1
						PRINTFORML 典一边隔着衣服抠挖着%CALLNAME:MASTER%的尻穴一边在耳边细语道
					ELSE
						PRINTFORML 典一边对着%CALLNAME:MASTER%上下其手一边在耳边细语道
					ENDIF
				ELSE
					;服着た表情がほしいけど、自己は作れないので…
					CALL PRINT_FACE, [[典]], "通常", "裸", "", ""
					CALL HPH_PRINT,@"「……HPH」","L"
					SELECTCASE RAND:3
					CASE 0
						PRINTFORML 典做出一个用手指比出一个圆圈、然后用另一个手指进出的手势…
					CASE 1
						PRINTFORML 典用手做出好像在撸动什么东西一样的手势…
					CASE 2
						PRINTFORML 典伸出舌头、用手指戳戳地指了一下之后、做出了像是在吞着什么东西的样子…
					ENDSELECT
				ENDIF
			CASE IS >= 500
				IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
					PRINTFORMW 「不要碰奇怪的地方？　哪些地方是奇怪的地方呀？」
					PRINTFORMW 典一边抚摸着%CALLNAME:MASTER%的敏感之处、一边将身体靠了过来…
					PRINTFORML 「在这里说很害羞吗？　那么、找个可以独处的地方…%UNICODE(0x2665) *1%」
					PRINTW
				ELSE
					IF BASE:MASTER:勃起 >= 1000
						PRINTFORML 「%CALLNAME:MASTER%阁下、这里、变成了这副模样…%UNICODE(0x2665) *1%」
						PRINTFORML 典从后面用手抚摸着%CALLNAME:MASTER%的股间
						PRINTW
						PRINTFORML 「想做的吧…%UNICODE(0x2665) *1%　和典、做些好・事%UNICODE(0x2665) *1%」
						PRINTW
					ELSE
						CALL PRINT_FACE, [[典]], "通常", "裸", "", ""
						PRINTFORML 「%CALLNAME:MASTER%どの…%UNICODE(0x2665) *1%」
						PRINTFORML 红着脸的典送来了一个意味深长的微笑
						CALL ASK_YN("揉典的胸","微笑回去")
						IF !RESULT
							CALL HPH_PRINT,@"「……HPH」","L"
							CALL HPH_PRINT,@"「接下来、找个别的地方吧…HPH」","L"
							PRINTW
						ELSE
							PRINTFORML 「不、不是这个意思…」
							PRINTFORML 典苦笑
							PRINTW
						ENDIF
					ENDIF
				ENDIF
			CASEELSE
				IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
					PRINTFORML 「%CALLNAME:MASTER%阁下、找个、没什么人的地方…」
					PRINTFORML 「真坏心眼、是想让姐姐自己说出来吗…%UNICODE(0x2665) *1%」
					PRINTW
				ELSE
					PRINTFORML 「%CALLNAME:MASTER%阁下、要不要找个可以两个人独处的地方…%UNICODE(0x2665) *1%」
				ENDIF
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;浴場で遭遇
;==================================================
@M_KOJO_EVENT_K139_11(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TCVAR:発情
			SELECTCASE RAND:2
			CASE 0
				CALL HPH_PRINT,@"「………………HPH」","L"
				PRINTFORML 典坐在浴池的边缘、轻轻地把大腿向左右打開
				PRINTFORML 展露在眼前的%SLIT(TARGET)%吸引了你的目光……
				PRINTW
				PRINTFORML 「呼呼、服务就到此为止了……♪」
				PRINTFORML 「在其他人到来之前离開是个明智的选择哦♪」
				PRINTW
			CASE 1
				PRINTFORML 「难道说、你想和典一起进去吗？」
				PRINTFORML 「呼呼、那是关系更深之后的事吧」
				PRINTFORML 「凡事都讲究一个先后顺序。至于现在、请先忍耐着观望一下吧♪」
				PRINTW
			ENDSELECT
		ELSE
			SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「哎呀哎呀、有女性在里面时突然闯进来是很不礼貌的哦♪」
				PRINTFORML 即便是看到了赤身裸体、典仍然一副泰然自若的模样
				PRINTW
			CASE 1
				PRINTFORML 「啊啦、%CALLNAME:MASTER%阁下原来是个色狼啊♪」
				PRINTFORML 典一脸抱歉地掩着胸部、看起来很害羞的样子
				PRINTW
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TCVAR:発情
			SELECTCASE RAND:2
			CASE 0
				CALL HPH_PRINT,@"「………………HPH」","L"
				PRINTFORML 典坐在浴池的边缘、轻轻地把大腿向左右打開
				PRINTFORML 展露在眼前的%SLIT(TARGET)%吸引了你的目光……
				PRINTW
				PRINTFORML 「呼呼、服务就到此为止了……♪」
				PRINTFORML 「在其他人到来之前、让我们一起进去吧♪」
				PRINTW
				BASE:MASTER:勃起 += 300
			CASE 1
				IF HAS_PENIS(MASTER)
					IF BASE:MASTER:勃起 >= 1000
						SELECTCASE RAND:2
						CASE 0
							CALL HPH_PRINT,@"「HPH　HPHHPH」","L"
						CASE 1
							CALL HPH_PRINT,@"「啊啊、真是漂亮呢……HPH」","L"
						ENDSELECT

						SELECTCASE RAND:2
						CASE 0
							PRINTFORML 典露出垂涎欲滴的表情、十分着迷地看着%TINKO(MASTER)%……
						CASE 1
							PRINTFORML 典的视线集中在%TINKO(MASTER)%上……
						ENDSELECT
							PRINTW
					ELSE
						PRINTFORML 「%CALLNAME:MASTER%阁下的下面、还是软乎乎的呢……」
						PRINTFORML 典注视着软塌塌的%TINKO(MASTER)%……
						PRINTW
					ENDIF
				ELSE
					PRINTFORML 「啊、%CALLNAME:MASTER%阁下……」
					CALL HPH_PRINT,@"（%CALLNAME:MASTER%阁下的裸体、真是让人一饱眼福了……HPH）","L"
					PRINTW
				ENDIF
			ENDSELECT
		ELSE
			IF TALENT:MASTER:性別 == 2
				SELECTCASE RAND:2
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%阁下。我先进去泡着了」
					PRINTFORML 「水温控制得很好呢。%CALLNAME:MASTER%阁下觉得如何呢？」
					PRINTW
				CASE 1
					PRINTFORML 「%CALLNAME:MASTER%阁下也要泡澡吗」
					PRINTFORML 「让我来为你擦背吧♪　好了、快点进去吧♪」
					PRINTW
				ENDSELECT
				SELECTCASE TALENT:MASTER:形状
				CASE 6,10;巨根、馬並み
					PRINTFORML （%CALLNAME:MASTER%阁下的小鸡鸡真大啊……）
					IF TALENT:処女 == 1
						PRINTFORML （那样的东西能进入我的身体吗……）
						PRINTW
					ELSE
						PRINTFORML （那个东西、很好地……进入了我的身体呢）
						PRINTFORML （那种子宫都快要被压扁的感觉……只有%CALLNAME:MASTER%阁下才能让我品味到吧）
						PRINTW
					ENDIF
				CASE 1,2;粗チン
					PRINTFORML （%CALLNAME:MASTER%阁下的小鸡鸡真的好可爱啊）
					IF TALENT:処女 == 1
						PRINTFORML （那样的话、第一次就不会那么痛苦了吧）
						PRINTW
					ELSE
						PRINTFORML （第一次的时候真的很庆幸它很小）
						PRINTFORML （而且……小的话反而正好能碰到舒服的地方呢……）
						PRINTW
					ENDIF
				CASE 5;イボ付き
					PRINTFORML （%CALLNAME:MASTER%阁下的小鸡鸡有着很奇怪的形状呢）
					IF TALENT:処女 == 1
						PRINTFORML （这个形状对于处女的我来说有点痛苦……应该不要紧吧）
						PRINTW
					ELSE
						PRINTFORML （第一次的时候非常痛苦……）
						PRINTFORML （如果不是妖怪的话是无法忍受的吧）
						PRINTW
					ENDIF
				CASEELSE
					PRINTFORML （%CALLNAME:MASTER%阁下的小鸡鸡很健壮呢）
					IF TALENT:処女 == 1
						PRINTFORML （这么大……能进入到何种程度呢）
						PRINTW
					ELSE
						PRINTFORML （它让典成为了一个女人……）
						PRINTFORML （一開始看起来会觉得很奇怪、但现在却能从中感觉到爱意……真是不可思议啊）
						PRINTW
					ENDIF
				ENDSELECT
			ELSE
				SELECTCASE RAND:2
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%阁下。我先进去泡着了」
					PRINTFORML 「水温控制得很好呢。%CALLNAME:MASTER%阁下觉得如何呢？」
					PRINTW
				CASE 1
					PRINTFORML 「%CALLNAME:MASTER%阁下也要泡澡吗」
					PRINTFORML 「让我来为你擦背吧♪　好了、快点进去吧♪」
					PRINTW
				ENDSELECT
				IF TALENT:TARGET:胸圍 > 0
					PRINTFORML （%CALLNAME:MASTER%阁下的胸还是这么大啊）
					PRINTW
				ELSE
					PRINTFORML （她的胸部大小和我差不多、感觉既欣慰又有些遗憾……）
					PRINTW
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;其他
ENDIF
RETURN 1

;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K139_12(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（憤怒）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「你猜猜现在已经几点了……」
		PRINTFORML 「这个点还有时间在外面徘徊的话、不如赶紧睡觉吧」
		PRINTW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML 「好的……请问是哪位……啊、%CALLNAME:MASTER%阁下……」
		PRINTFORML 「这么晚了、到底怎么了？」
		PRINTW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML 「是谁呀～……啊、%CALLNAME:MASTER%阁下……%UNICODE(0x2665) *1%」
		IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
			PRINTFORML 「怎么了呢？　难道是想念姐姐了吗？」
			PRINTFORML 「做了可怕的梦睡不着的话、让姐姐来陪你一起睡吧%UNICODE(0x2665) *1%」
		ELSE
			PRINTFORML 「这个时间来找我有什么事吗？　来、请吧」
		ENDIF
		PRINTW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
			PRINTFORML 「对不起啊。姐姐明天很忙呢…」
			PRINTFORML 「%CALLNAME:MASTER%阁下也不能熬夜哦。那么、请好好休息吧」
			SIF CFLAG:好感度 >= 500
				PRINTFORML 分别的时候、典拥抱着%CALLNAME:MASTER%、亲吻了你的脸颊…
			PRINTW
		ELSE
			PRINTFORML 「非常抱歉、已经到了典睡觉的时间了……」
			PRINTFORML 「如果有什么事的话、请明天再来找我。那么、请好好休息吧」
			PRINTW
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;お仕事中
;==================================================
@M_KOJO_EVENT_K139_13(ARG,ARG:1)
;口上主はTARGET
;ARG:1に残っている工作量
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;工作開始（職場へ移動する）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;工作結束
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;吃飯系
;==================================================
@M_KOJO_EVENT_K139_14(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;TCVAR:盗み食い抑制で持っていた食物を食われるのを回避できる
	;仕様例（薬が入ってたら食わない）
	;IF DISH_DRG
	;	TCVAR:盗み食い抑制 = 1
	;ENDIF

	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		PRINTFORML
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;MASTERが推倒た
;==================================================
@M_KOJO_EVENT_K139_15(ARG,ARG:1)
;美鈴口上より拝借
#DIM 絶頂回数合算
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	IF EQUIP:連衣裙
		CALL K139_NURESUKE()
	ENDIF
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装（推倒指令に統合？
	;MASTERが推倒た（ウフフ開始時）
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;絶頂回数カウント
		絶頂回数合算 = 0
		絶頂回数合算 += EX:Ｃ絶頂
		絶頂回数合算 += EX:Ｖ絶頂
		絶頂回数合算 += EX:Ａ絶頂
		絶頂回数合算 += EX:Ｂ絶頂
		絶頂回数合算 += EX:Ｍ絶頂
		IF TCVAR:発情
			;典のほうが余力
			IF BASE:体力 > BASE:MASTER:体力
				IF 絶頂回数合算 > 10
					IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「虽然姐姐我还完全可以继续下去…HPH」","L"
						CALL HPH_PRINT,@"「但是、因为让我好好的舒服了所以就原谅你这次吧HPH」","L"
						RESETCOLOR
						PRINTFORML 典温柔地抚摸着%CALLNAME:MASTER%的头发、轻轻吻了吻他的脸颊
						PRINTW
						IF BASE:MASTER:精力 == 0
							CALL HPH_PRINT,@"「已经几乎不能勃起了、真的是做到精疲力竭的感觉呢HPH」","L"
							CALL HPH_PRINT,@"「H的时候用尽全力的%CALLNAME:MASTER%阁下、我很喜欢哟…HPH」","L"
							PRINTW
						ELSE
							CALL HPH_PRINT,@"「不过、小鸡鸡似乎还想射精呢HPH」","L"
							CALL HPH_PRINT,@"「果然还是再来几次比较好吗？HPH」","L"
							CALL HPH_PRINT,@"「就只用先端、只用先端啦HPH」","L"
							PRINTW
						ENDIF
					ELSE
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「嗯～～～～HPH　嘛、也算是神精气爽了HPH」","L"
						IF BASE:MASTER:精力 == 0
							CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下就…像是弹尽粮绝了一样呢HPH」","L"
							CALL HPH_PRINT,@"「呵呵、典的身体就这么的美味吗？HPH」","L"
							RESETCOLOR
							PRINTW
						ELSE
							CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下的这边看上去也还有富余的样子呢…HPH」","L"
							CALL HPH_PRINT,@"「果然还是再来几次比较好吗？HPH」","L"
							CALL HPH_PRINT,@"「就只用先端、只用先端啦HPH」","L"
							RESETCOLOR
							PRINTW
						ENDIF
					ENDIF
				;ものたりない
				ELSE
					IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「姐姐我、感觉还是有点不够满意呢…HPH」","L"
						RESETCOLOR
						PRINTFORML 典同时用手指和嘴唇刺激着%CALLNAME:MASTER%的%TINKO(PLAYER)%的尖端
						PRINTW
						IF BASE:MASTER:精力 == 0
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「嘛、看上去精子已经射光了的样子、那就原谅你吧HPH」","L"
							RESETCOLOR
							PRINTFORML 典把已经弹尽粮绝的%TINKO(PLAYER)%摆在手上、轻轻吻了上去
							PRINTW
							CALL HPH_PRINT,@"「……还想着说不定还能再挺立起来呢、看上去果然不行啊HPH」","L"
							CALL HPH_PRINT,@"「在下次做之前、要好好的保存好精子哟…HPH」","L"
							CALL HPH_PRINT,@"「那样子、就可以让姐姐再变得舒服起来了…HPH」","L"
						ELSE
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「而且、蛋蛋的里面、还没有完全空下来的吧HPH」","L"
							CALL HPH_PRINT,@"「姐姐我、鼻子可好了哟、这种东西可逃不过我的法眼…HPH」","L"
							RESETCOLOR
							PRINTW
							PRINTFORML 典吸允着%TINKO(PLAYER)%、在口腔内让舌头紧贴%TINKO(PLAYER)%并舔抵着
							CALL HPH_PRINT,@"啾露HPH　噗啾HPH　呸啾HPH　咯啵HPH　咯啵HPH　咯啵HPH","L"
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「ほあっHPH　まららへほうへふひょっHPHHPH」","L"
							RESETCOLOR
							CALL HPH_PRINT,@"咕啵HPH咕啵HPH咕啵HPH咕啵HPH咕啵HPH咕啵HPH咕啵HPH咕啵HPH","L"
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「らひへっHPH　のひょっひゃあーへん、らひへっHPH」","L"
							RESETCOLOR
							CALL HPH_PRINT,@"啾啵HPH咕啵HPH啾啵HPH咕啵HPH","L"
							PRINTFORML biubiuーーーーっ
							PRINTFORML 　　biulubiubiuーーーーっ
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「HPH　HPHHPH」","L"
							RESETCOLOR
							PRINTW
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「嗯…HPH　姆…HPH　哈啊…HPH」","L"
							RESETCOLOR
							BASE:MASTER:勃起 = 0
							IF ABL:精液中毒 >= 1
								PRINTFORML 典的口腔将你射出来的所有精液都容纳了下来。然后、一咽将它们都喝了下去
								PRINTFORML 也没有在意嘴边沾着的白线、典看着你露出了微笑
								SETCOLOR 0xFF69B4
								CALL HPH_PRINT,@"「欸嘿嘿、射了好多呢HPH美餐一顿了♪HPH」","L"
								CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下精液、可不能对典以外的人射出去哟…HPH」","L"
								RESETCOLOR
								PRINTW
							ELSE
								PRINTFORML 咕嘟、咕嘟、喉咙发出的声音代表精液已经被饮尽
								PRINTFORML 典张开她那小小的口、鲜红的舌头一眼就可以看见。在那里还有着白浊液绕在上面垂落着
								SETCOLOR 0xFF69B4
								CALL HPH_PRINT,@"「呸……HPH　我全部都、吞下去了哟…HPH」","L"
								CALL HPH_PRINT,@"「姐姐我虽然不是很喜欢精液的味道、但要是是%CALLNAME:MASTER%阁下的的话、我就喝的下去…HPH」","L"
								RESETCOLOR
								PRINTW
							ENDIF
						ENDIF
					;大人・ものたりない
					ELSE
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、已经筋疲力尽了吗～？HPH」","L"
						RESETCOLOR
						PRINTFORML 典一边进攻着%TINKO(PLAYER)%一边用嘴唇刺激着龟头
						PRINTW
						IF BASE:MASTER:精力 == 0
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「但是嘛、蛋蛋里面的内容物貌似也已经用光了的样子…HPH」","L"
							CALL HPH_PRINT,@"「就夸奖一下你这种在典身上射光的这种行为吧HPH　真棒真棒HPH」","L"
							RESETCOLOR
							PRINTFORML 典把已经弹尽粮绝的%TINKO(PLAYER)%摆在手上、轻轻吻了上去
							PRINTW
							SETCOLOR 0xFF69B4
							PRINTFORML 「……还想着说不定还能再挺立起来呢、看来只能变成这种半勃不勃的样子了…」
							CALL HPH_PRINT,@"「在下次做之前、要好好的保存好精子哟…HPH」","L"
							CALL HPH_PRINT,@"「这样的话、典就会再帮你舒服舒服的哟…HPH」","L"
							RESETCOLOR
							PRINTW
						ELSE
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「而且、这边还很有富余的吧…HPH」","L"
							CALL HPH_PRINT,@"「要是%CALLNAME:MASTER%阁下不肯让我吃的话、典就自己动手丰衣足食了HPH」","L"
							RESETCOLOR
							PRINTW
							PRINTFORML 典吸允着%TINKO(PLAYER)%、在口腔内让舌头紧贴%TINKO(PLAYER)%并舔抵着
							CALL HPH_PRINT,@"啾露HPH　噗啾HPH　呸啾HPH　咯啵HPH　咯啵HPH　咯啵HPH","L"
							SETCOLOR 0xFF69B4
							;「ほらっHPH　まだ出せそうですよっHPHHPH　ちんぽっHPH　硬いですっHPHHPH」
							CALL HPH_PRINT,@"「ほあっHPH　まららへほうへふひょっHPHHPH　ひんぽっHPH　はひゃいれふっHPHHPH」","L"
							RESETCOLOR
							CALL HPH_PRINT,@"咕啵HPH咕啵HPH咕啵HPH咕啵HPH咕啵HPH咕啵HPH咕啵HPH咕啵HPH","L"
							SETCOLOR 0xFF69B4
							;「射してっHPH　残った精液、射してっHPH」
							CALL HPH_PRINT,@"「らひへっHPH　のひょっひゃあーへん、らひへっHPH」","L"
							RESETCOLOR
							CALL HPH_PRINT,@"啾啵HPH咕啵HPH啾啵HPH咕啵HPH","L"
							PRINTFORML biubiuーーーーっ
							PRINTFORML 　　biulubiubiuーーーーっ
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「HPH　HPHHPH」","L"
							RESETCOLOR
							PRINTW
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「嗯…HPH　姆…HPH　哈啊…HPH」","L"
							RESETCOLOR
							BASE:MASTER:勃起 = 0
							IF ABL:精液中毒 >= 1
								PRINTFORML 典的口腔将你射出来的所有精液都容纳了下来。然后、一咽将它们都喝了下去
								PRINTFORML 也没有在意嘴边沾着的白线、典看着你露出了微笑
								SETCOLOR 0xFF69B4
								CALL HPH_PRINT,@"「欸嘿嘿、射了好多呢HPH美餐一顿了♪HPH」","L"
								CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下的精液的话、典会全部喝下去的…HPH」","L"
								RESETCOLOR
								PRINTW
							ELSE
								PRINTFORML 咕嘟、咕嘟、喉咙发出的声音代表精液已经被饮尽
								PRINTFORML 典张开她那小小的口、鲜红的舌头一眼就可以看见。在那里还有着白浊液绕在上面垂落着
								SETCOLOR 0xFF69B4
								CALL HPH_PRINT,@"「呸……HPH　我全部都、吞下去了哟…HPH」","L"
								CALL HPH_PRINT,@"「虽然还有些不习惯、但如果是%CALLNAME:MASTER%阁下的的话、我就喝的下去…HPH」","L"
								RESETCOLOR
								PRINTW
							ENDIF
						ENDIF
					ENDIF
				ENDIF
			;発情・你の方が余力
			ELSE
				IF 絶頂回数合算 > 10
					IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「啊啊呜HPH　啊HPH　哇HPH」","L"
						CALL HPH_PRINT,@"「哼啊HPH　区区一个%CALLNAME:MASTER%阁下…HPH　啊HPH」","L"
						CALL HPH_PRINT,@"「把姐姐给搞成这样、有够嚣张…HPH　但是、还真不错…HPHHPH」","L"
						RESETCOLOR
						PRINTW
					ELSE
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「啊呃HPH　啊、　啊HPH　哈啊HPH　哈啊HPH　啊HPH」","L"
						CALL HPH_PRINT,@"「哈啊HPH　哈啊HPH　哈啊HPH　哈啊HPH　哈啊HPH　」","L"
						PRINTW
						CALL HPH_PRINT,@"「啊啊～～～～っHPH　啊HPH　真是的…太激烈了啦…HPH」","L"
						RESETCOLOR
					ENDIF
						SETCOLOR 0xFF69B4
						IF EX:Ｖ絶頂 > 10 && EX:Ａ絶頂 > 10
							CALL HPH_PRINT,@"「啊哇…HPH　小穴和尻穴都、像是要消失了一样…HPH」","L"
						ELSEIF EX:Ｖ絶頂 > 10
							CALL HPH_PRINT,@"「啊哇…那里、已经使不上劲了…HPH」","L"
						ELSEIF EX:Ａ絶頂 > 10
							CALL HPH_PRINT,@"「你要怎么赔我呢…尻穴、现在都缩不回去了…HPH」","L"
						ELSEIF EX:Ｃ絶頂 > 10
							CALL HPH_PRINT,@"「啊哇…简直就像全身都变成了性感带…HPH」","L"
						ELSEIF EX:Ｂ絶頂 > 10
							CALL HPH_PRINT,@"「都怪你一直对着胸一通摸…HPH　现在都、还缓不下来…HPH」","L"
						ELSEIF EX:Ｍ絶頂 > 10
							CALL HPH_PRINT,@"「都怪你那样亲吻我PH　姐姐我、感觉现在都要融化了…HPH」","L"
						ELSE
							CALL HPH_PRINT,@"「明明都已经停下来了、但是、舒服地方、还是没有停下…HPH」","L"
						ENDIF
						RESETCOLOR
					IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"（就只有我一个人HPH　被搞成了这样HPH　好不甘心HPH）","L"
						CALL HPH_PRINT,@"（但是床上功夫很好的%CALLNAME:MASTER%也好喜欢…HPH）","L"
						RESETCOLOR
						PRINTW
					ELSE
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"（就只有我一个人HPH　被搞成了这样HPH　好不甘心HPH）","L"
						CALL HPH_PRINT,@"（但是和%CALLNAME:MASTER%一起做爱、真的太舒服了…HPH）","L"
						RESETCOLOR
						PRINTW
					ENDIF
				;絶頂少なめ
				ELSE
					IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「哈ーーHPH　尬ーーHPH　哈ーーHPH」","L"
						CALL HPH_PRINT,@"「啊HPH　非常的、舒服哟…HPH」","L"
						PRINTFORML 典用手抱住%CALLNAME:MASTER%的头、还沉浸在性交的余韵当中
						PRINTW
						CALL HPH_PRINT,@"（虽然激烈的如同野兽一样的性交也最喜欢了…HPH）","L"
						CALL HPH_PRINT,@"（但是、这样反复品味甜蜜的性交也很不错呢…HPH）","L"
						CALL HPH_PRINT,@"（更何况、还可以和%CALLNAME:MASTER%一直紧紧贴在一起…HPH）","L"
						RESETCOLOR
						PRINTW
					ELSE
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「哈ーーHPH　尬ーーHPH　哈ーーHPH」","L"
						CALL HPH_PRINT,@"「啊HPH　非常的、舒服哟…HPH」","L"
						PRINTFORML 典倒在%CALLNAME:MASTER%的身上、还沉浸在性交的余韵当中
						PRINTW
						CALL HPH_PRINT,@"（啊嗯…HPH　还在持续高潮着…HPH）","L"
						CALL HPH_PRINT,@"（身体轻飘飘的……简直就像在梦中一般HPH）","L"
						CALL HPH_PRINT,@"（虽然也很喜欢激烈的交合、不过这样的、感觉也不错呢…HPH）","L"
						RESETCOLOR
						PRINTW
					ENDIF
				ENDIF
			ENDIF
		;発情していない
		ELSE
			;典のほうが余力
			IF BASE:体力 > BASE:MASTER:体力
				IF 絶頂回数合算 > 10
					IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
						CALL HPH_PRINT,@"「呵呵、很努力了呢HPH　辛苦你了HPH」","L"
						PRINTFORML 典膝枕着筋疲力尽的%CALLNAME:MASTER%、温柔的安抚着…
						PRINTW
						CALL HPH_PRINT,@"「对HPH　姐姐我啊、现在感觉非常好哟HPH」","L"
						CALL HPH_PRINT,@"（想着让我舒服而拼命摆着腰…真的是、非常可爱呐HPH）","L"
						CALL HPH_PRINT,@"（但是、也确实非常舒服了呢…HPH）","L"
						PRINTW
					ELSE
						CALL HPH_PRINT,@"「啊啊…非常棒的说HPH」","L"
						PRINTFORML 典用脚缠住%CALLNAME:MASTER%并抱紧、对着脸颊和脖子一顿亲
						PRINTW
						CALL HPH_PRINT,@"「呵呵、看上去是真的“精”疲力尽HPH」","L"
						CALL HPH_PRINT,@"「这段时间、就请先休息一下吧…HPH」","L"
					ENDIF
				ELSE
				ENDIF
			;你の方が余力
			ELSE
				IF 絶頂回数合算 > 10
					CALL HPH_PRINT,@"「啊、啊HPH」","L"
					PRINTFORML 典不知道是不是绝顶的余韵还未消散、膝盖还在嘎吱嘎吱的震荡着
					PRINTW
					IF EX:Ｖ絶頂 > 10 && EX:Ａ絶頂 > 10
						CALL HPH_PRINT,@"「啊哇…HPH　小穴和尻穴都、像是要消失了一样…HPH」","L"
					ELSEIF EX:Ｖ絶頂 > 10
						CALL HPH_PRINT,@"「牙白…HPH　子宫还是、好有感觉…HPH」","L"
						CALL HPH_PRINT,@"「啊啊HPH　啊啊～～～～～HPH　做爱、最爱…HPH」","L"
					ELSEIF EX:Ａ絶頂 > 10
						CALL HPH_PRINT,@"「你要怎么赔我呢…尻穴、现在都缩不回去了…HPH」","L"
					ELSEIF EX:Ｃ絶頂 > 10
						CALL HPH_PRINT,@"「啊哇…简直就像全身都变成了性感带…HPH」","L"
					ELSEIF EX:Ｂ絶頂 > 10
						CALL HPH_PRINT,@"「都怪你一直对着胸一通摸…HPH　现在都、还缓不下来…HPH」","L"
						ELSEIF EX:Ｍ絶頂 > 10
						CALL HPH_PRINT,@"「都怪你那样亲吻我PH　姐姐我、感觉现在都要融化了…HPH」","L"
						ELSE
						CALL HPH_PRINT,@"「明明都已经停下来了、但是、舒服地方、还是没有停下…HPH」","L"
					ENDIF
					IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
						CALL HPH_PRINT,@"「啊HPH　哈HPH　啊啊～～～～HPH」","L"
						PRINTFORML 仅仅只是被%CALLNAME:MASTER%抱住、典就浑身一颤、露出恍惚的表情
						PRINTW
					ELSE
						CALL HPH_PRINT,@"「嗯HPH　哼、哼HPH　嗯HPH　哼HPH　呼HPH」","L"
						PRINTFORML 用手指轻轻拂过现在还在痉挛的典的肌肤、它就咚咚、咚咚剧烈跳动起来
						PRINTW
					ENDIF
				ELSE
					CALL HPH_PRINT,@"「哈啊、哈啊、哈啊、哈啊、啊HPH」","L"
					IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
						CALL HPH_PRINT,@"「嗯…HPH　居然让姐姐变得这么舒服、真是傲慢…HPH」","L"
					ELSE
						CALL HPH_PRINT,@"「嗯…HPH　让我这边变得更加兴奋了呢…真是、太棒了…HPH」","L"
					ENDIF
					PRINTFORML 绝顶的余韵终于结束了的典坐起身子、亲吻了一下%CALLNAME:MASTER%的脸颊
					PRINTW
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
	;-------------------------------------------------
	;事後描写
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;精液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF TCVAR:発情
				IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「哎呀HPH　%CALLNAME:MASTER%阁下的、年轻又有活力的精液…HPH」","L"
					RESETCOLOR
				ELSE
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「哎呀HPH　%CALLNAME:MASTER%阁下的\@ TALENT:MASTER:濃厚精液 ? 浓厚 # \@精液…HPH」","L"
					RESETCOLOR
				ENDIF
					PRINTFORML 典用手指掬取顺着大腿流下的精液、噗嗤噗嗤地塞进肉膣里
					PRINTW
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「做爱果然还是生本番舒服啊…HPH」","L"
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下的小鸡鸡的热度、硬度、形状都能直接感受到…HPH」","L"
					CALL HPH_PRINT,@"「最重要的是、能够享受到精液直接流入子宫的身为女人的快感…HPH」","L"
					RESETCOLOR
					PRINTW
			ELSE
				CALL HPH_PRINT,@"「啊、精液流下来了呢…HPH」","L"
				PRINTFORML 精液顺着大腿从倒下的典的秘裂处滴落下来
				PRINTW
				IF TALENT:MASTER:性的兴趣 == 1
					PRINTFORML %CALLNAME:MASTER%揪着典的屁股肉、左右挪開打開了雌孔
					PRINTFORML 典的阴道里全是被灌满的子种、每当阴道蠕动时就会从里面逆流出来
					PRINTW
					CALL HPH_PRINT,@"「真的好害羞啊…我不喜欢被那样打開看着里面…HPH」","L"
					PRINTFORML 典试图扭动身体挣脱開来、但身体好像使不上劲
					PRINTW
				ELSE
					PRINTFORML 因为觉得太浪费了、所以就用手指将精液掬起来。一边搅动典的阴道、一边将其涂抹在肉褶里
					CALL HPH_PRINT,@"「啊啊、涂抹得那么多、肯定会出问题的…HPH」","L"
					PRINTW
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;愛液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;事後の情緒
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;服を着る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;陪睡
;==================================================
@M_KOJO_EVENT_K139_16(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;添い寝を始めた（開始時）(存在せず
	;記入チェック
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;添い寝を終了した（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:TARGET:睡眠
			IF TALENT:恋慕 || TALENT:恋人
				SELECTCASE RAND:2
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%阁下……最喜欢你了……」
					PRINTFORML 理了理说梦话的典的头发、悄悄从被子里钻了出来
				CASE 1
					PRINTFORML 「%CALLNAME:MASTER%阁下、不要走……」
					PRINTFORML 还以为典醒着、结果好像是梦话
					PRINTFORML 吻了吻她的额头、为了不吵醒典而悄悄地从被子里钻了出来
					PRINTW
				ENDSELECT
			ENDIF
		ELSE
			IF TALENT:恋慕 || TALENT:恋人
				SELECTCASE RAND:2
				CASE 0
					PRINTFORML 「嗯……%CALLNAME:MASTER%阁下、别走嘛……」
					PRINTFORML 吻了吻撒娇的典的额头、因为有要去的地方所以%CALLNAME:MASTER%从被窝里溜出来了
				CASE 1
					PRINTFORML 「晚安、%CALLNAME:MASTER%阁下……%UNICODE(0x2665) *1%」
					PRINTFORML 摸了摸典的头、%CALLNAME:MASTER%从被子里钻了出来
					PRINTW
				ENDSELECT
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;時止め終了時
;==================================================
@M_KOJO_EVENT_K139_17(ARG,ARG:1)
;口上主はTARGET
;排他と明記されていないモノは状況によっては連続で表示されるので注意
;ARGに射精状況
;ARG:1に射精状態
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;胖次紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;無知持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
		;舐めとり
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚肛門射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚2以下
		IF ARG:1 == 1
		;ソレ以外
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精口服避孕薬無
		IF ARG:1 == 1
		;非処女膣内射精口服避孕薬あり
		ELSEIF ARG:1 == 2
		;処女膣内射精
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;時間停止解除共通
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K139_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;大体１ケース分？
		IF ITEM:避孕套 == 0
			;IF TCVAR:359 >= 12 && (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
			IF TCVAR:359 >= 1 && (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
				PRINTFORML 「哦呀…一整箱都用完了呢」
				CALL HPH_PRINT,@"「不过…还想、继续做对吧…？HPH」","L"
				CALL ASK_YN("没错","虽说如此但不戴套的话…")
				IF !RESULT
					CALL HPH_PRINT,@"「可以哦…HPH　那就直接来…HPH」","L"
					CALL HPH_PRINT,@"「不过、射的时候记得要拔出来哦…HPH」","L"
					;允许无套のランクが１段階上がる
					IF CFLAG:TARGET:允许无套 == 1
						CFLAG:TARGET:允许无套 = 2
					ELSEIF CFLAG:TARGET:允许无套 == 0
						CFLAG:TARGET:允许无套 = 1
					ENDIF
				ELSE
					CALL HPH_PRINT,@"「哦呀哦呀HPH　小朋友顾虑这么多的吗HPH」","L"
					CALL HPH_PRINT,@"「姐姐啊、被%CALLNAME:MASTER%命令的话、明明就会同意不带套的呐…HPH」","L"
					PRINTFORML 「话虽如此、太过于无理的话也是不行的」
					PRINTFORML 「身上带有避孕药吗？」
					PRINTW
				ENDIF
			;兒童じゃないほうが緩和
			ELSEIF TCVAR:359 >= 10
				PRINTFORML 「哦呀…一整箱都用完了呢」
				CALL HPH_PRINT,@"「不过…还想、继续做对吧…？HPH」","L"
				CALL ASK_YN("没错","虽说如此但不戴套的话…")
				IF !RESULT
					CALL HPH_PRINT,@"「可以哦…HPH　那就直接来…HPH」","L"
					CALL HPH_PRINT,@"「不过、射的时候记得要拔出来哦…HPH」","L"
					;允许无套のランクが１段階上がる
					IF CFLAG:TARGET:允许无套 == 1
						CFLAG:TARGET:允许无套 = 2
					ELSEIF CFLAG:TARGET:允许无套 == 0
						CFLAG:TARGET:允许无套 = 1
					ENDIF
				ELSE
					PRINTFORML 「真是…都到这份上了…%CALLNAME:MASTER%阁下真是优柔寡断」
					CALL HPH_PRINT,@"「典啊、被%CALLNAME:MASTER%命令的话、明明就会同意不带套的呐…HPH」","L"
					PRINTFORML 「话虽如此、太过于无理的话也是不行的」
					PRINTFORML 「身上带有避孕药吗？」
					PRINTW
				ENDIF
			ENDIF
		ELSEIF TCVAR:発情
			IF TALENT:恋慕 || TALENT:恋人
				PRINTFORML 「我也想……直接感受%CALLNAME:MASTER%阁下的触感……」
				PRINTFORML 「但是……今天很有可能会怀上呢……」
				PRINTFORML 「至少为我准备避孕药吧？　那么、就開始尽情享受吧……」
			ELSE
				CALL HPH_PRINT,@"「呼呼、典对生本番也很感兴趣呢……HPH」","L"
				CALL HPH_PRINT,@"「但是今天很有可能会怀上哦。没问题吗……HPH」","L"
				PRINTFORML 「还是说、已经为我准备好避孕药了呢？」
			ENDIF
		ELSE
			IF TALENT:恋慕 || TALENT:恋人
				PRINTFORML 「非常抱歉……典是侍奉饭纲丸大人之身」
				PRINTFORML 「即使是%CALLNAME:MASTER%阁下的愿望、也不能轻易做出决定……」
				PRINTW
			ELSE
				SELECTCASE RAND:2
				CASE 0
					PRINTFORML 「怎么说呢……%CALLNAME:MASTER%阁下的女性经历可见一斑」
					PRINTFORML 「难道说、已经不负责任地让其他女孩子怀孕了吗？」
					PRINTFORML 「与%CALLNAME:MASTER%阁下的sex让人很舒服……不过正因为是玩乐、所以才不想有多余的不安对吧？」
					PRINTW
				CASE 1
					PRINTFORML 「虽然典对生本番也很感兴趣……」
					PRINTFORML 「不过既然是饭纲丸大人的部下、就应该避免非计划性的怀孕」
					PRINTW
					PRINTFORML 「我并不是说不可以生本番……不过至少能为我准备避孕药吗？」
					PRINTFORML 「或者、请您等待到安全日吧……%CALLNAME:MASTER%阁下能忍耐到那时候吗？」
					PRINTW
				ENDSELECT
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TCVAR:発情
			IF TALENT:恋人
				IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
					PRINTFORML 抬眸望着姐姐希望能在姐姐的阴道里射精
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「嗯゛嗯゛HPH　这样啊、就算你用这种表情拜托我、也还是不行呢…不过、但是呢…HPH」","L"
					RESETCOLOR
				ELSE
					PRINTFORML 被无套肉棒在里面疯狂抽插、有没有变得想被射在里面啊的说着、用%TINKO(MASTER)%轻轻打着典的脸颊
					PRINTFORML 「啊……果然还是不行啊……因为一时的感情而犯下错误什么的……」
				ENDIF
				PRINTW
				PRINTFORML 典虽然嘴上说着不行、但浑浊的瞳孔凝视着%TINKO(MASTER)%……
				SETCOLOR 0xFF69B4
				CALL HPH_PRINT,@"（啊啊啊HPH　%CALLNAME:MASTER%阁下的小鸡鸡就在眼前HPHHPH）","L"
				RESETCOLOR
				PRINTW
				IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
					PRINTFORML 看来姐姐也很喜欢小鸡鸡呢、一边这样说着一边将龟头抵在她的鼻尖上
				ELSE
					PRINTFORML 露出那种雌性的表情来拒绝它真的很没有说服力啊、一边这样说着一边将龟头抵在她的鼻尖上
				ENDIF
				SETCOLOR 0xFF69B4
				CALL HPH_PRINT,@"「噢…HPH　噢噢噢……HPH」","L"
				PRINTW
				CALL HPH_PRINT,@"（啊HPH　不行HPH　让我闻小鸡鸡的臭味什么的HPH）","L"
				CALL HPH_PRINT,@"（真的好想被中出HPH　要变成癫狂的笨蛋狐狸了HPH）","L"
				RESETCOLOR
				PRINTW
				PRINTFORML 典几乎要屈服于肉棒的气味、却在最后一刻停下脚步……
				PALAM:139:欲情 += 50000
			ELSEIF TALENT:恋慕
				PRINTFORML 「非常抱歉、今天请不要这么做」
				PRINTFORML 「怀孕了的话、很可能会给%CALLNAME:MASTER%阁下带来麻烦」
				PRINTFORML 在典面前展示了勃起的肉棒
				PRINTW
				SETCOLOR 0xFF69B4
				CALL HPH_PRINT,@"「……嗯、不…HPH」","L"
				PRINTFORML
				CALL HPH_PRINT,@"「就、就算你拿肉棒在我的面前晃悠、不行的事情就是不行……HPH」","L"
				PRINTFORML 典就像是空腹的人突然看到了一顿大餐一样的睁着眼睛、夸张的咽着口水
				RESETCOLOR
				SETCOLOR 0xFF69B4
				CALL HPH_PRINT,@"「我、我求您了、咕咚、请好好的避孕……HPH」","L"
				CALL HPH_PRINT,@"「起码、用口服避孕药…HPH　这样的话、中出什么的、什么的就可以随便你喜欢了…HPHHPH」","L"
				RESETCOLOR
				PRINTW
			ELSE
				IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
					PRINTFORML 姐姐是不是不喜欢小鸡鸡啊的说着、用%TINKO(MASTER)%抵在典的脸颊上
					CALL HPH_PRINT,@"「嗯嗯嗯っ喜欢っっっっっっっっっっHPHHPHHPHHPHHPHHPHHPHHPHHPHHPH」","L"
				ELSE
					PRINTFORML 被无套肉棒在里面疯狂抽插、有没有变得想被射在里面啊的说着、用%TINKO(MASTER)%轻轻打着典的脸颊
					CALL HPH_PRINT,@"「哦唔…HPH　请不要、把先走汁、抹到我的脸上…HPHHPH」","L"
				ENDIF

				;10％の確率で次回以降生ハメ許可
				SELECTCASE RAND:100
				CASE IS < 10
					IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
						PRINTFORML 看呐、姐姐最喜欢的小鸡鸡的龟头被按在鼻子前了哟
					ELSE
						PRINTFORML 露出那种雌性的表情来拒绝它真的很没有说服力啊、一边这样说着一边将龟头抵在她的鼻尖上
					ENDIF
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「噢…HPH　噢噢噢……HPH」","L"
					PRINTW
					CALL HPH_PRINT,@"（啊HPH　不行HPH　让我闻小鸡鸡的臭味什么的HPH）","L"
					CALL HPH_PRINT,@"（子宫似乎在说着HPH　想要被精液中出、想要喝下精液HPHHPH）","L"
					RESETCOLOR
					PRINTW
					PRINTFORML 屈服于肉棒的气味的典、眼睛闪闪发光…
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「明白了…我知道了…HPH　下次、可以进行生本番哦…HPH」","L"
					CALL HPH_PRINT,@"「今天就用避孕药避孕吧…HPH」","L"
					RESETCOLOR
					PRINTW
					PRINTFORML 这次虽然是以忍耐的形式、但得到了下次可以生本番的约定
					PRINTFORMW %CALLNAME:MASTER%用三寸不烂之舌将典拉拢过来了
					IF CFLAG:允许无套 == 0
						CFLAG:允许无套 = 1
						PRINTW 在危险日以外可以不避孕地做爱了！
					ELSEIF CFLAG:允许无套 == 1
						CFLAG:允许无套 = 2
						;元の文は子作りだけどこっちのがなんとなくエロいので
						PRINTW 从典那里得到了危险日生本番的合意！
					ENDIF
				CASEELSE
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下也想无责任膣内中出对吧？HPH」","L"
					CALL HPH_PRINT,@"「所以在安全日到来之前、请好好积蓄子种或使用避孕药…HPH」","L"
					RESETCOLOR
					PRINTFORML 典用手拼命按住眼前勃起的阴茎、用仅有的理智恳求道…
					PRINTW
				ENDSELECT
			ENDIF
		;発情していない
		ELSE
			IF TALENT:恋人
				PRINTFORML 「典还没有下定决心做母亲呢……」
				PRINTFORML 「非常抱歉、%CALLNAME:MASTER%阁下」
				PRINTFORML 「如果无论如何都想做的话、那我会喝避孕药的…所以请忍耐一下」
				PRINTW
			ELSEIF TALENT:恋慕
				PRINTFORML 「非常抱歉、今天请不要这么做」
				PRINTFORML 「怀孕了的话、很可能会给%CALLNAME:MASTER%阁下带来麻烦……」
				PRINTFORML 「既然我还在侍奉饭纲丸大人、那就不能轻易怀孕」
				PRINTW
				PRINTFORML 「所以…如果无论如何都想无套做的话、那请准备避孕药吧」
				PRINTFORML 「比安全日更可靠、无论多少次都可以无责任膣内中出…%UNICODE(0x2665) *1%」
				PRINTW
			ELSE
				PRINTFORML 「非常抱歉、今天请不要这么做」
				PRINTFORML 「%CALLNAME:MASTER%阁下也想无责任膣内中出对吧？」
				PRINTFORML 「那请在安全日之前、充分地储存子种……%UNICODE(0x2665) *1%」
				PRINTW
				PRINTFORML 「如果想现在就生本番的话、那我也可以使用避孕药…%UNICODE(0x2665) *1%」
				PRINTFORML 「典向您推荐这么做哦…♪」
				PRINTW
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			PRINTFORML 「%CALLNAME:MASTER%阁下。这可不行哦」
			PRINTFORML 「如果没有做好觉悟就生下孩子。被生出来的孩子会很不幸的」
			PRINTW
		ELSEIF TALENT:恋慕
			PRINTFORML 「……请恕我拒绝」
			PRINTFORML 「……就、就算你给我看那种绝品之物、不行的事情就是不行哦」
			PRINTW
		ELSE
			PRINTFORML 「不懂见好就收的男士可是不会受欢迎的哟」
			PRINTFORML 「……兴致全无了。今天就到这里为止吧」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF TCVAR:発情
			IF TALENT:恋慕 || TALENT:恋人
				CALL HPH_PRINT,@"「唔呣、啾噜HPH　你啊、真是拿你没办法……哈呣HPH」","L"
				PRINTFORML 在意乱神迷的典面前掏出%TINKO(MASTER)%之后、她简简单单就沦陷了
				PRINTW
				CALL HPH_PRINT,@"「唔、哈啊……HPH　作为代替、射的时候尽可能射在阴道外面哦」","L"
				PRINTFORML 「还有、危险日的话无论如何都不可以哦」
				PRINTW
				PRINTFORML 典用指头拨開泛着水光的阴唇给你看、对你撒着娇
				CALL HPH_PRINT,@"「已经是准备万全的样子了。来、请进来吧……HPH」","L"
				PRINTW
			ELSE
				CALL ASK_YN("拜托了！　请让我无套做吧！","典的话肯定更喜欢无套做爱吧")
				IF !RESULT
					PRINTFORML 「呜哇。还是第一次见到这么拼命的人♪」
					PRINTFORML 「坦诚面对欲望的人、典并不讨厌哦」
					PRINTW
					PRINTFORML 「也是呢……虽说危险日肯定是不行」
					PRINTFORML 「但在此之外的日子的话、就算不用套套也可以哟」
					PRINTW
					PRINTFORML 典用指头拨開泛着水光的阴唇给你看、对你撒着娇
					CALL HPH_PRINT,@"「已经准备完全的样子。来、请进来吧……HPH」","L"
					PRINTW
				ELSE
					CALL HPH_PRINT,@"「嘛、这句话……我倒是没法否定HPH」","L"
					CALL HPH_PRINT,@"「而且、我也很喜欢那个呢……和%CALLNAME:MASTER%阁下的性爱HPH」","L"
					PRINTW
					PRINTFORML 「作为代替、射的时候尽可能射在阴道外面哦」
					PRINTFORML 「还有、危险日的话无论如何都不可以哦」
					PRINTW
					PRINTFORML 典用指头拨開泛着水光的阴唇给你看、对你撒着娇
					CALL HPH_PRINT,@"「已经是准备万全的样子了。来、请进来吧……HPH」","L"
					PRINTW
				ENDIF
			ENDIF
		ELSE
			IF TALENT:恋慕 || TALENT:恋人
				PRINTFORML 「那个拼命劲、真希望你能多发挥在其他方面啊……」
				PRINTFORML 「不过真是拿你没办法呢。这件事、就特别允许了哦？」
				PRINTW
				PRINTFORML 「作为代替、射的时候尽可能射在阴道外面哦」
				PRINTFORML 「还有、危险日的话无论如何都不可以哦」
				PRINTW
			ELSE
				CALL ASK_YN("拜托了！　请让我无套做吧！","典的话肯定更喜欢无套做爱吧")
				IF !RESULT
					PRINTFORML 「呜哇。还是第一次见到这么拼命的人♪」
					PRINTFORML 「坦诚面对欲望的人、典并不讨厌哦」
					PRINTW
					PRINTFORML 「也是呢……虽说危险日肯定是不行」
					PRINTFORML 「但在此之外的日子的话、就算不用套套也可以哟」
				ELSE
					PRINTFORML 「嘛、这句话我倒是没法否定」
					PRINTFORML 「不过、一码归一码、就是这样」
					PRINTW
					PRINTFORML 「作为代替、射的时候尽可能射在阴道外面哦」
					PRINTFORML 「还有、危险日的话无论如何都不可以哦」
					PRINTW
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	;恋慕がなくても付きはするだろうけど、計算式見てると実質炮友ルートですね
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF TALENT:恋人
			PRINTFORML 「是呢、我们两个、是恋人呢……」
			PRINTFORML 「我已经下定决心了。典也、想要%CALLNAME:MASTER%阁下的孩子」
			PRINTW
			PRINTFORML 「但是、请您作好觉悟哦」
			CALL HPH_PRINT,@"「迄今为止忍耐下来的分量、会全部让你承受下来的哟……HPH」","L"
			PRINTW
			PRINTFORML 典仰面躺着、抱着膝盖将蜜穴暴露出来
			PRINTFORML 粉红色的花瓣已经盛开、正等待着%CALLNAME:MASTER%的授粉
			PRINTW
			CALL HPH_PRINT,@"「如你所见、典的这里、已经做好了怀孕的准备了哟……HPH」","L"
			CALL HPH_PRINT,@"「来吧、付好责任、让典怀孕吧HPH」","L"
			PRINTW
		ELSEIF TALENT:恋慕
			PRINTFORML 「您真的明白吗？　危险日中出可是会……」
			PRINTFORML 「说不定会怀上孩子的哟？」
			PRINTW
			;龍が恋人
			IF TALENT:140:恋人
				PRINTFORML 「而且……对恋人的饭纲丸大人真的好吗？」
				IF TALENT:140:妊娠
					PRINTFORML 「要是连我都怀孕了的话、帮助那位大人的事就……」
				ELSEIF TALENT:140:育児中
					;浮気公認
					IF GET_UWAKI_HISTORY(139, 140)
						PRINTFORML 「无论饭纲丸大人有多么同意、她现在正忙于照顾孩子、所以我是身负重任……」
					ELSE
						PRINTFORML 「能这样偷偷摸摸的来看看我我就已经很幸福了、
						PRINTFORML 　在饭纲丸大人育儿的时候连我都怀孕了的话……」
					ENDIF
				ELSEIF TALENT:140:妊娠願望
					PRINTFORML 「那位大人、想要和%CALLNAME:MASTER%阁下的孩子这件事、也都毫无保留的告诉了我」
					PRINTFORML 「要是怀上了的话、不知道会有多么的幸福」
				ELSEIF EXP:140:出産経験 == 0
					PRINTFORML 「要是、我在饭纲丸大人之前怀上身孕了的话……」
				ENDIF

			;文が恋人
			ELSEIF TALENT:29:恋人
				;浮気公認
				IF GET_UWAKI_HISTORY(139, 29)
					PRINTFORML 「虽说已经受到了公认、但居然想和并非恋人的我也造个孩子……」
				ELSE
					PRINTFORML 「文阁下那方面没事吗？」
					IF EXP:29:出産経験 == 0 && !TALENT:29:妊娠
						PRINTFORML 「说不定我会先怀上的哟？　文阁下不会觉得难过吗？」
					ENDIF
				ENDIF
			;極が恋人
			ELSEIF TALENT:42:恋人
				;浮気公認
				IF GET_UWAKI_HISTORY(139, 42)
					PRINTFORML 「虽说已经受到了公认、但居然想和并非恋人的我也造个孩子……」
				ELSE
					PRINTFORML 「極阁下那方面没事吗？」
					IF EXP:42:出産経験 == 0 && !TALENT:42:妊娠
						PRINTFORML 「说不定我会先怀上的哟？　極阁下不会觉得难过吗？」
					ENDIF
				ENDIF
			;椛が恋人
			ELSEIF TALENT:65:恋人
				;浮気公認
				IF GET_UWAKI_HISTORY(139, 65)
					PRINTFORML 「虽说已经受到了公认、但居然想和并非恋人的我也造个孩子……」
				ELSE
					PRINTFORML 「椛阁下那方面没事吗？」
					IF EXP:42:出産経験 == 0 && !TALENT:42:妊娠
						PRINTFORML 「说不定我会先怀上的哟？　椛阁下不会觉得难过吗？」
					ENDIF
				ENDIF
			;上記以外に恋人がいる
			ELSEIF TALENT:MASTER:恋人
				PRINTFORML 「恋人那方面没事吗？」
				PRINTFORML 「典的话、不会犹豫什么的哟。如果是为了怀上自己喜欢的对象的孩子的话」
			ENDIF
			PRINTW
			PRINTFORML 「……认真的、对吧」
			PRINTFORML %CALLNAME:MASTER%与典四目相交
			PRINTW
			PRINTFORML 「我也、我也想要%CALLNAME:MASTER%阁下的孩子」
			PRINTFORML 典垂下眼、轻轻地用手指绕着子宫画圈。接着、又直直地看向%CALLNAME:MASTER%
			PRINTW
			PRINTFORML 「请赐予我%CALLNAME:MASTER%阁下的种子吧」
			PRINTFORML 「让典、受孕吧……%UNICODE(0x2665) *1%」
			PRINTW
		ELSE
			PRINTFORML 「居然说要让我怀上我并不喜欢的人的孩子……」
			CALL HPH_PRINT,@"「但是、要是没有这种程度可就不好玩了呢……HPH」","L"
			PRINTW
			PRINTFORML 典移开盖住股间的自己的尾巴
			PRINTFORML 在那里、湿润润的蜜穴正因为期待着肉棒的侵入而蠢蠢欲动着
			CALL HPH_PRINT,@"「呵呵、典的这里也、哭着喊着是想要自己怀孕呢……HPH」","L"
			PRINTW
			CALL HPH_PRINT,@"「来吧、屈身与快乐之中……HPH」","L"
			CALL HPH_PRINT,@"「用%CALLNAME:MASTER%的子种、典的腔内被尽数填满吧……HPH」","L"
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K139_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「那位巫女居然还真认可我呢」
		PRINTFORML 「我还以为会被拒绝来着……%CALLNAME:MASTER%阁下也为我尽力了呢。真的非常感谢」
		IF TALENT:1:恋慕
			PRINTFORML （也许她认为、只要能在附近监视的话就不会被夺走所爱之人了吧）
			PRINTFORML （嘛、作为房租的交换、偶尔出租一下%CALLNAME:MASTER%阁下也未尝不可）
			PRINTFORML 「没什么没什么、只是我的一些自言自语而已」
		ELSE
			PRINTFORML 「要离開饭纲丸大人了、我多少有些担心……」
			PRINTFORML 「能逐一掌握巫女大人和小鬼大人的动向、所以希望她能原谅我」
			PRINTW
			PRINTFORML 「而且……我会对我的上司们保密的」
			PRINTFORML 典一边注视着%CALLNAME:MASTER%、一边紧紧地握住他的手
			PRINTFORML 「我非常期待与%CALLNAME:MASTER%阁下一起同居的生活哦♪」
			PRINTW
			PRINTFORML
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「这样啊……真是遗憾呢」
		IF TALENT:1:恋慕
			PRINTFORML （对方也不想增加多余的情敌吧）
			PRINTFORML （传说在妖怪之山中刻薄无道的巫女、也不过只是个普通的女人）
			PRINTW
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;你の私室変更により同居
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「这就是所谓的同居吧」
		PRINTFORML 典紧紧地靠在%CALLNAME:MASTER%身边、露出了幸福的表情
		PRINTW
		IF TALENT:140:恋人
			PRINTFORML （虽然知道饭纲丸大人是%CALLNAME:MASTER%阁下的恋人……）
			PRINTFORML （典真是个坏女人啊）
			PRINTW
		;你が飯綱丸に恋心？
		ELSEIF CFLAG:139:1004 == 1
			PRINTFORML （我知道%CALLNAME:MASTER%阁下在思念着我的主人……）
			PRINTFORML （尽管如此、我还是……）
		ELSEIF TALENT:140:恋慕
			PRINTFORML （我知道饭纲丸大人爱慕着%CALLNAME:MASTER%阁下……）
			PRINTFORML （尽管如此、我还是……）
		ELSEIF GROUPMATCH(TALENT:恋慕, [[文]], [[極]], [[椛]])
			PRINTFORML （因为情敌真的太多了）
			PRINTFORML （在%CALLNAME:MASTER%阁下关注我的时候、我要得到更多的宠爱才行）
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K139_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:诶嘿嘿
			;诶嘿嘿中に眠くて返回
			PRINTFORML 「……啊」
			PRINTFORML 在怀里打着瞌睡的典醒了过来
			PRINTW
			PRINTFORML 「这可真是、丢脸的很呐……」
			PRINTFORML 「%CALLNAME:MASTER%阁下做的太过火了……搞得我好像昏迷了一样%UNICODE(0x2665) *1%」
			PRINTW
			IF EXP:接吻経験 >= 1
				PRINTFORML %CALLNAME:MASTER%把整理衣服的典抱进怀里、吻住了她的嘴唇
				CALL HPH_PRINT,@"「哈姆HPH　嗯HPH　哼HPH」","L"
				IF EXP:Ｖ性交経験 >= 1
					PRINTFORML 在亲吻的同时、将挺立着的肉棒再次插入仍然火热的典的蜜壶之中
					CALL HPH_PRINT,@"「唔……嗯HPH　这是不行的说……HPH」","L"
					CALL HPH_PRINT,@"「我会变得又想要的……今天就、先到此为止吧……HPH」","L"
					PRINTW
					PRINTFORML 停下仍然在扭腰的%CALLNAME:MASTER%、将肉棒从媚肉中抽了出来
					PRINTFORML 「要是能乖乖的话、下次还能给你做的哟♪」
					PRINTFORML 「什么的、实际上想做的那方、其实是我呢……%UNICODE(0x2665) *1%」
					PRINTW
				ELSEIF EXP:Ａ性交経験 >= 1
					PRINTFORML 在亲吻的同时、将挺立着的肉棒再次插入仍然黏糊糊的典的尻穴之中
					CALL HPH_PRINT,@"「哈啊啊HPH　不行HPH　屁股、不行的说啊HPH」","L"
					CALL HPH_PRINT,@"「我会变得又想要的……今天就、先到此为止吧……HPH」","L"
					PRINTW
					PRINTFORML 停下仍然在侵犯尻穴的%CALLNAME:MASTER%、将肉棒从媚肉中抽了出来
					PRINTFORML 「真是的、明明马上就要回去了、还扩张我的菊门……」
					PRINTFORML 「要是在回去的路上精液漏出来了该怎么办呢」
					PRINTW
				ELSEIF EXP:口淫経験 >= 1
					PRINTFORML %CALLNAME:MASTER%松开重叠着的嘴唇、取而代之的是挺立着的肉棒被竖到了典的眼前
					PRINTFORML 「啊啦啊啦……这个地方还看起来很调皮的样子呢♪」
					PRINTW
					PRINTFORML 典深情地把脸颊靠在肉棒上、恭敬地亲吻了龟头。
					CALL HPH_PRINT,@"「啊～～姆HPH　啾噗、啾噗、啾、啾啾啾、啾滋滋滋滋滋HPHHPH」","L"
					PRINTW
					PRINTFORML 「好了、今天就先到此为止%UNICODE(0x2665) *1%　您怎么了呢？　一副快要哭出来的表情……%UNICODE(0x2665) *1%」
					PRINTFORML 随着“啾砰”的一声、典把阴茎从嘴中抽了出来
					PRINTW
					PRINTFORML 「再怎么撒娇也是不行的哟。别看典这样、我可是很忙的」
					PRINTFORML 「像现在这样、先约定好的话、对下次就会更加期待的吧？」
					PRINTFORML 「下次约会的时候、我会给你“咕嘟”很多次的啦……%UNICODE(0x2665) *1%」
					PRINTW
					PRINTFORML 像是在哄着一般、像是在寻开心一般、典对着一摇一摆的颤抖着的龟头吹了一口气
					PRINTFORML 连这都被肉竿当作了爱抚、剧烈抖动起来
					PRINTW
				ELSEIF EXP:手淫経験 >= 1
					PRINTFORML 一边接着吻、一边将挺立着的肉棒按在典那小小的手上
					PRINTFORML 「啊……真是的、忍不了了吗？」
					PRINTFORML 「看呐、撸撸撸、撸ー撸撸……好、今天就先到此为止♪」
					PRINTW
					PRINTFORML 「再怎么撒娇也是不行的哟。别看典这样、我可是很忙的」
					PRINTFORML 「像现在这样、先约定好的话、对下次就会更加期待的吧？」
					PRINTFORML 「下次约会的时候、我会帮你“咻咻”很多次的啦……%UNICODE(0x2665) *1%」
					PRINTW
				ENDIF
				PRINTFORML 离别之际、双方又热情的接吻了吻、随后、典悄悄拉开一段距离
				PRINTFORML 「再见了、%CALLNAME:MASTER%阁下。明天见」
				PRINTW
			ELSE
				PRINTFORML %CALLNAME:MASTER%偷偷跑到正在整理衣服的典的背后、揉起了胸
				CALL HPH_PRINT,@"「昂HPH　别玩了HPH」","L"
				IF EXP:Ｖ性交経験 >= 1
					PRINTFORML 揉捏着%NIPPLE_DESCRIPTION(TARGET)%的同时、将挺立着的肉棒再次插入仍然火热的典的蜜壶之中
					CALL HPH_PRINT,@"「唔……嗯HPH　这是不行的说……HPH」","L"
					CALL HPH_PRINT,@"「我会变得又想要的……今天就、先到此为止吧……HPH」","L"
					PRINTW
					PRINTFORML 停下仍然在扭腰的%CALLNAME:MASTER%、将肉棒从媚肉中抽了出来
					PRINTFORML 「要是能乖乖的话、下次还能给你做的哟♪」
					PRINTFORML 「什么的、实际上想做的那方、其实是我呢……%UNICODE(0x2665) *1%」
					PRINTW
				ELSEIF EXP:Ａ性交経験 >= 1
					PRINTFORML 揉捏着%NIPPLE_DESCRIPTION(TARGET)%的同时、将挺立着的肉棒再次插入仍然黏糊糊的典的尻穴之中
					CALL HPH_PRINT,@"「哈啊啊HPH　不行HPH　屁股、不行的说啊HPH」","L"
					CALL HPH_PRINT,@"「我会变得又想要的……今天就、先到此为止吧……HPH」","L"
					PRINTW
					PRINTFORML 停下仍然在侵犯尻穴的%CALLNAME:MASTER%、将肉棒从媚肉中抽了出来
					PRINTFORML 「真是的、明明马上就要回去了、还扩张我的菊门……」
					PRINTFORML 「要是在回去的路上精液漏出来了该怎么办呢」
					PRINTW
				ELSEIF EXP:口淫経験 >= 1
					PRINTFORML 松开揉捏着%NIPPLE_DESCRIPTION(TARGET)%的手、取而代之的是挺立着的肉棒被竖到了典的眼前
					PRINTFORML 「啊啦啊啦……这个地方还看起来很调皮的样子呢♪」
					PRINTW
					PRINTFORML 典深情地把脸颊靠在肉棒上、恭敬地亲吻了龟头。
					CALL HPH_PRINT,@"「啊～～姆HPH　啾噗、啾噗、啾、啾啾啾、啾滋滋滋滋滋HPHHPH」","L"
					PRINTW
					PRINTFORML 「好了、今天就先到此为止%UNICODE(0x2665) *1%　您怎么了呢？　一副快要哭出来的表情……%UNICODE(0x2665) *1%」
					PRINTFORML 随着“啾砰”的一声、典把阴茎从嘴中抽了出来
					PRINTW
					PRINTFORML 「再怎么撒娇也是不行的哟。别看典这样、我可是很忙的」
					PRINTFORML 「像现在这样、先约定好的话、对下次就会更加期待的吧？」
					PRINTFORML 「下次约会的时候、我会给你“咕嘟”很多次的啦……%UNICODE(0x2665) *1%」
					PRINTW
					PRINTFORML 像是在哄着一般、像是在寻开心一般、典对着一摇一摆的颤抖着的龟头吹了一口气
					PRINTFORML 连这都被肉竿当作了爱抚、剧烈抖动起来
					PRINTW
				ELSEIF EXP:手淫経験 >= 1
					PRINTFORML 揉捏着%NIPPLE_DESCRIPTION(TARGET)%、一边将挺立着的肉棒按在典那小小的手上
					PRINTFORML 「啊……真是的、忍不了了吗？」
					PRINTFORML 「看呐、撸撸撸、撸ー撸撸……好、今天就先到此为止♪」
					PRINTW
					PRINTFORML 「再怎么撒娇也是不行的哟。别看典这样、我可是很忙的」
					PRINTFORML 「像现在这样、先约定好的话、对下次就会更加期待的吧？」
					PRINTFORML 「下次约会的时候、我会帮你“咻咻”很多次的啦……%UNICODE(0x2665) *1%」
					PRINTW
				ENDIF
				PRINTFORML 离别之际、双方又热情的接吻了吻、随后、典悄悄拉开一段距离
				PRINTFORML 「再见了、%CALLNAME:MASTER%阁下。明天见」
				PRINTW
			ENDIF
		;诶嘿嘿でない
		ELSE
			IF TALENT:恋人
				IF TCVAR:発情

				ELSE
					;ムラムラしている
					IF CFLAG:139:积攒度 > 750
						PRINTFORML 「那个……%CALLNAME:MASTER%阁下……接下来……」
						PRINTFORMW 典面红耳赤的夹着腿、坐立不安的
						PRINTFORML 「不、什么事都没有。那么……」
						PRINTW
					ELSE
						IF EXP:139:接吻経験 > 0
							PRINTFORML 还会再见的、%CALLNAME:MASTER%这么说、和典接起了吻
							PRINTFORML 在长长的一个吻过后、典像是很可惜一样的松开了嘴
							SELECTCASE RAND:2
							CASE 0
								PRINTFORML 「我会等着您的、%CALLNAME:MASTER%阁下……%UNICODE(0x2665) *1%」
							CASE 1
								PRINTFORML 「再来见您、也可以吗……%UNICODE(0x2665) *1%」
							ENDSELECT
							PRINTW
						ELSE
							;0204
							PRINTFORML 「%CALLNAME:MASTER%阁下、我还没收到离别吻的哟」
							PRINTFORML 典请求着、并撅起自己的嘴唇让它凸了出来
							PRINTW
							CALL ASK_YN("接吻","下次吧")
							IF !RESULT
								EXP:接吻経験 += 1
								TCVAR:ＦＫ喪失 = 1
								TALENT:無接吻経験 = 0
								PRINTFORML 「嗯…%UNICODE(0x2665) *1%」
								PRINTFORML 「终于、和典接吻了呢。一直都在、等着您的哟」
								PRINTFORML 「下次见面的时候…让我们再多做一些吧…%UNICODE(0x2665) *1%」
								PRINTW
							ELSE
								PRINTFORML 「欸欸欸～、什么时候才行呐～～」
								PRINTFORML 「下次！　绝对要做啊！　约定好了！」
								PRINTW
							ENDIF
						ENDIF
					ENDIF
				ENDIF
			ELSEIF TALENT:恋慕
				;0204
				;心情愉快
				IF TALENT:139:心情 == 1
					PRINTFORML 「啊啊、明明还想继续和%CALLNAME:MASTER%阁下在一起的说」
					PRINTFORML 「\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐我 # 典现在 \@啊、已经悲伤的感觉心脏都要裂开来了」
					PRINTW
					PRINTFORML 「啊哈哈、是不是有点演过头了呢？」
					PRINTFORML 「但是、我是真的很寂寞的哟？」
					PRINTW
					IF CFLAG:MASTER:初期位置 == CFLAG:139:初期位置
						PRINTFORML 「虽然典知道%CALLNAME:MASTER%阁下很忙…」
						PRINTFORML 「可以、尽早早一点回来吗？　我会等着您的…」
						PRINTFORML 「那么、典就先一步回去了。再见咯」
						SIF EXP:接吻経験 > 0
						PRINTFORML 离开时、典亲啄了一下%CALLNAME:MASTER%的嘴唇
						PRINTW
					ELSE
						PRINTFORML 「要是可以的话、直接和\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐 # 典 \@一起住就好了…」
						IF !TALENT:140:恋人 && TALENT:MASTER:恋人
							PRINTFORML 「果然、还是恋人大人那里要更好呢」
						ELSEIF TALENT:140:恋人
							PRINTFORML 「明明和饭纲丸大人是恋人的说…会哭的哟」
						ELSEIF !TALENT:MASTER:恋人
							PRINTFORML 「要是不喜欢被束缚的话也就没办法了的说…」
						ENDIF
						PRINTW
						PRINTFORML 「嘛、能和%CALLNAME:MASTER%阁下像这样见面、\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐 # 典 \@就已经是相当的幸运儿了」
						PRINTFORML 「那就再见吧、我的所爱之人」
						IF EXP:接吻経験 > 0
							PRINTFORM 离开时、典亲啄了一下%CALLNAME:MASTER%的嘴唇
						ELSE
							PRINTFORML 离开时、典亲啄了一下%CALLNAME:MASTER%的脸颊
						ENDIF
						PRINTW
					ENDIF
				;心情不快
				ELSEIF TALENT:139:心情 == -1
					PRINTFORML 「……」
					PRINTFORML %CALLNAME:MASTER%和旁边的典没有半点眼神交流…
					PRINTW
					PRINTFORML 「……还能、再见的吧」
					PRINTFORML 典的尾巴、轻轻打了一下%CALLNAME:MASTER%
					PRINTW
				ELSE
					PRINTFORML 「我会满怀期待的等着下次的到来的」
					PRINTFORML 「今天就先到此为止吧、我的所爱之人」
					PRINTFORML 离开时、典亲啄了一下%CALLNAME:MASTER%的脸颊
					PRINTW
				ENDIF
			ELSE
				;心情愉快
				IF TALENT:139:心情 == 1
					PRINTFORML 「哎、这时间走得可真快呢」
					PRINTFORML 典的脸上露出了真的很可惜的表情
					PRINTW
					IF ABL:MASTER:話術技能 >= 3
						PRINTFORML 「和%CALLNAME:MASTER%阁下聊天非常的愉快♪」
						IF ABL:MASTER:教養 >= 6
							PRINTFORML 「就算是稍微专业一点的、不是很好理解的话、也会向典好好说明的对吧？」
							PRINTFORML 「%CALLNAME:MASTER%阁下可真温柔呢♪」
						ENDIF
					ENDIF
					PRINTFORML 「非常感谢您带来的欢乐时光」
					PRINTFORML 「那么、明日再见♪」
					PRINTW
				;心情不快
				ELSEIF TALENT:139:心情 == -1
					PRINTFORML 「啊啊、已经到了这个点了呢」
					PRINTFORML 「典就先告辞了」
					PRINTW
					SIF TALENT:思慕
						PRINTFORMW 「……态度、是不是有点冷淡过头了呢」
				ELSE
					PRINTFORML 「啊啊、已经到了这个点了啊」
					PRINTFORML 「欢乐时光总是转瞬即逝呢」
					PRINTW
					PRINTFORML 「非常感谢您带来的欢乐时光」
					PRINTFORML 「那么、改日再来吧♪」
					PRINTW
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;约会中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:诶嘿嘿
			IF CFLAG:衰弱
				;诶嘿嘿中に疲れて返回
				PRINTFORMW
			ELSE
				;诶嘿嘿中に眠くて返回
				PRINTFORMW
			ENDIF
		ELSE
			IF TALENT:恋人
				;同棲中（恋慕持ち）
				IF CFLAG:MASTER:初期位置 == CFLAG:139:初期位置
					PRINTFORML 「%CALLNAME:MASTER%阁下、我们回宅邸去吧♪」
					IF TALENT:140:恋慕
						PRINTFORML 「饭纲丸大人也在等着吧…%UNICODE(0x2665) *1%」
						IF (!TALENT:140:処女 && !TALENT:139:処女)
							PRINTFORML 「今晚、你要好好疼爱我们两个吗…%UNICODE(0x2665) *1%）
						ELSEIF !TALENT:139:処女
							PRINTFORML 「之后、可得好好的照顾照顾我哟…%UNICODE(0x2665) *1%」
						ELSE
							PRINTFORML 「希望不止是饭纲丸大人、典也可以得到您的关照呢…%UNICODE(0x2665) *1%」
						ENDIF
					ELSE
						IF !TALENT:139:処女
							PRINTFORML 「太大声的话会被饭纲丸大人赶出去的、还是偷偷摸摸地做吧…%UNICODE(0x2665) *1%」
						ELSE
							PRINTFORML 「今天…能将典的第一次献给你吗？」
							PRINTFORML 典紧紧地握着恋人的手
						ENDIF
					ENDIF
					PRINTW
				;典と同居（設定）してない
				ELSE
					PRINTFORML 「%CALLNAME:MASTER%阁下、我们回家吧♪」
					IF TALENT:恋慕
						PRINTFORML 「呐、%CALLNAME:MASTER%阁下。有没有在饭纲丸大人的宅邸住下的意愿呢？」
						IF TALENT:140:恋慕
							PRINTFORML 「我和饭纲丸大人都是这么想的哟…没有谁会反对的哦？」
							PRINTFORML 「哪怕只是一秒、典也想能多待在%CALLNAME:MASTER%阁下的身旁…%UNICODE(0x2665) *1%」
						ELSE
							PRINTFORML 「饭纲丸大人的话我会去说服她的…一起住吧。行的吧～？」
						ENDIF
					ELSE
						IF CFLAG:MASTER:初期位置 == CFLAG:140:初期位置
							PRINTFORML 「呵呵、饭纲丸大人肯给%CALLNAME:MASTER%阁下备用钥匙真是帮大忙了♪」
							PRINTFORML 「可以像这样、回到我们共同的家里、必须得向主人好好感谢感谢才行♪」
						ELSE
							PRINTFORML 「实际上典是想要一直在一起的…不过还是不能那样呢」
							PRINTFORML 「还请下次继续邀请典哟。无论何时、典都会一直等着的…%UNICODE(0x2665) *1%」
						ENDIF
					ENDIF
					PRINTW
				ENDIF
			ELSEIF TALENT:恋慕
				IF CFLAG:MASTER:初期位置 == CFLAG:139:初期位置
					PRINTFORML 「%CALLNAME:MASTER%阁下、我们回家吧♪」
					IF TALENT:140:恋人
						PRINTFORML 「实际上典还想继续这样在一起的、不过那样会被饭纲丸大人怀疑的呢…%UNICODE(0x2665) *1%」
						PRINTFORML 「晚上肯定会和饭纲丸大人相爱的吧…现在就让我一个人独占一下吧%UNICODE(0x2665) *1%」
						PRINTFORML 典在回去的路上、一遍又一遍的索吻、撒娇
						PRINTW
					ELSE
						PRINTFORML 「回去之后该怎么办呢。」
						PRINTFORML 在回去的路上、典紧紧抱着%CALLNAME:MASTER%的手腕
						PRINTW
					ENDIF
				ELSE
					PRINTFORML 「今天要不要在饭纲丸大人的宅邸借住一晚呢？」
					IF TALENT:140:恋人
						PRINTFORML 「饭纲丸大人肯定也会很高兴的哟♪」
					ELSE
						PRINTFORML 「这样的话、就能再粘的久一点了…%UNICODE(0x2665) *1%」
					ENDIF
				ENDIF
			ELSE
				PRINTFORML 「名残惜しいですが、今日はここまでで…」
				IF TALENT:140:恋人
					PRINTFORML 「要是被饭纲丸大人发现了的话肯定会吃大玉的呢♪」
					PRINTFORML 这么说着、典在离别之际、对%CALLNAME:MASTER%的脸颊小啄了一嘴
					PRINTW
				ELSE
					PRINTFORML 「非常感谢您带来的欢乐时光。请一定要再邀请我哟」
					PRINTFORML 在回去的路上、典紧紧抱着%CALLNAME:MASTER%的手腕
					PRINTW
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り（キャラの自宅位置、またはキャラ的房間で约会終了）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;约会終了時に部屋に来ないかと誘う（～から部屋に来ないかと誘われた）
	;（来訪キャラのみ,自宅が無いキャラでも発生します）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;部屋に来ないか→「行く」を選択（～に誘われるまま、【MASTER】は【TARGET】的房間へと向かった……）
	;（これが発生すると十中八九被逆推ます）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;部屋に来ないか→「やめとく」を選択（～は心無か寂しそうだ……）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくないと言い出す（～は今夜は帰りたくないと言い出した…）
	;（来訪キャラの帰宅時に欲求不満と欲望が高いと発生）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくない→「泊める」を選択（～は【MASTERの自室】に泊まっていくこと成为了）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくない→「泊めない」を選択、または家主が居る（【MASTER】は丁重に断った）
	;（家主が居る＝MASTERの私室に他のキャラの私室を設定している）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORML 「嘛、说的也是…」
		PRINTFORML 「%CALLNAME:MASTER%阁下啊、就算小也行、搬到一个没有人同居的地方吧」
		PRINTW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;疲れて帰宅（疲れきった～は帰って行きました）
	;（～は疲れ切っている→（入り口）まで送るよ でも発生）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 10
		IF CFLAG:诶嘿嘿
			;诶嘿嘿中に疲れて返回
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K139_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:140:恋慕
			;龍が先に恋慕フラグ
			CFLAG:139:1000 = 1
		ELSE
			;典が先に恋慕フラグ
			CFLAG:139:1001 = 1
		ENDIF
		;相思相愛
		IF TALENT:恋人
			PRINTFORML 「哈啊…%CALLNAME:MASTER%…」
			PRINTFORML 典独自呆在管中、想着%CALLNAME:MASTER%的事并叹了一口气
			PRINTW
			PRINTFORML 和%CALLNAME:MASTER%相恋之后、自己就变了
			PRINTFORML 和自己主人的饭纲丸大人不同、%CALLNAME:MASTER%爱着自己、珍惜着自己
			PRINTW
			;你が告白
			IF CFLAG:1013 == 1
				PRINTFORML 说起来、告白是他做的来着吧
				;三度目以降のプロポーズで成功
				IF CFLAG:1011 > 1
					PRINTFORML 即便被多次拒绝也没有放弃、%CALLNAME:MASTER%被拒绝之后还是会来求爱
				;一度はフった
				ELSEIF CFLAG:1011 == 1
					PRINTFORML 虽然是拒绝了一次、不过还是因为他是个有趣的家伙而接受了告白
				ELSE
					PRINTFORML 因为对他没有什么不好的看法、于是就那么接受了他的求爱
				ENDIF
			;典が告白
			ELSEIF CFLAG:1013 == 2
				PRINTFORML 现在也会这么想、那时能鼓起勇气去告白真是太好了
				PRINTFORML 虽然会因为当时做出的非常不适合自己的行为而苦笑、但也拜此所赐、能有这么幸福的当下
			ENDIF
			PRINTW
			PRINTFORML 「%CALLNAME:MASTER%、我爱你。绝对不会放手的」
			PRINTFORML 管狐在给主人带来财富的同时、最后也会走向破灭的结局
			PRINTFORML 那么、对所爱之人又会如何呢──？
			PRINTW
			PRINTFORML 「在和%CALLNAME:MASTER%一起的时候、必须得生很多很多小孩子才行…%UNICODE(0x2665) *1%」
			PRINTFORML 「一两个孩子根本不够…对了、七十五人就差不多了吧%UNICODE(0x2665) *1%」
			PRINTFORML 「为此、必须得帮%CALLNAME:MASTER%赚钱、让他吃好多好多好吃的、存下好多好多的精液才行…%UNICODE(0x2665) *1%」
			PRINTW
			PRINTFORML ……虽然、这样说不定就会迎来破灭的结局
			PRINTFORML 「我会每天、让你舒舒服服的%UNICODE(0x2665) *1%　这辈子都不会放手的%UNICODE(0x2665) *1%%CALLNAME:MASTER%%UNICODE(0x2665) *1%」
			PRINTW
		;典とは恋人ではない
		ELSE
			PRINTFORML 「已经、不能否定了啊…」
			PRINTW
			PRINTFORML 自己已经喜欢上了%CALLNAME:MASTER%
			PRINTFORML 不管是睡着还是醒着、脑袋里想着的全是%CALLNAME:MASTER%的事
			PRINTFORML 诳骗他人的邪恶管狐、居然会爱上一个人类、就算是当笑话看也不好笑
			PRINTW
			PRINTFORML 「哈啊啊～～～～、我真是入戏过头了啊……」
			PRINTFORML 爱的话语什么的其实已经说过很多遍了。但那都是为了欺骗%CALLNAME:MASTER%
			PRINTFORML 现在也是、为了欺骗%CALLNAME:MASTER%而说出爱的话语
			PRINTFORML 但是、其中的那决定性的区别就是、现在为了欺骗的话语中参杂了自己本意
			PRINTW
			PRINTFORML 「『在耳边细语的邪恶白狐』到底跑到哪里去了呢…」
			PRINTFORML 「这下不就只是只『在耳边表达爱意的色气白狐』了吗」
			PRINTW
			PRINTFORML 宛如自嘲一般的自言自语。但是、自己也意识到自己并不讨厌这样的自己
			PRINTFORML 迄今为止、我都是顺从着欲望而活的。顺从自己的爱意、感觉也还不错
			PRINTFORML 就让我倾尽自己的一切、让那个人的爱变成我的吧
			PRINTW
			IF TALENT:140:恋人
				PRINTFORML 「只是、啊…」
				PRINTFORML 问题在于、%CALLNAME:MASTER%是饭纲丸大人的恋人啊
				PRINTW
				;浮気発覚してない
				IF GET_UWAKI_HISTORY(139, 140) == 0
					PRINTFORML 「虽然现在好像还没有暴露…但哪天真的被发现了也不奇怪呢」
					PRINTFORML 「要是哪天…被饭纲丸大人当作夜生活的练习对象了的话…」
					PRINTFORML 「……我还能不能活下来呢」
				;浮気発覚済み
				ELSEIF GET_UWAKI_HISTORY(139, 140) == 1
					PRINTFORML 「虽然都已经被抓过现行了哈…」
					PRINTFORML 「没有被处分的话也就是说、只要没有打算夺取的意思的话就无视…吗」
					PRINTFORML 「是要慎重一点行事呢…还是直接直球一点把饭纲丸大人也拉进来来个二人幸终呢」
				;浮気公認
				ELSE
					PRINTFORML 「但是仔细想想的话、我和饭纲丸大人早就已经是竿姐妹了啊」
					PRINTFORML 「既然这样的话、只要双方都有爱的话不就半点问题都没有吗♪」
				ENDIF
			ELSEIF TALENT:140:恋慕
				PRINTFORML 「只是、啊…」
				PRINTFORML 问题在于、饭纲丸大人也喜欢上了%CALLNAME:MASTER%啊
				PRINTW
				;龍が先
				IF CFLAG:139:1000 == 1
					PRINTFORML 而且、率先意识到的是吾主。我这已经是落后一圈了
					SIF CFLAG:1004
					PRINTFORML 再讲的远一点的话、%CALLNAME:MASTER%说不定也对饭纲丸大人朝思暮想的
					IF TALENT:処女 == 1
						IF TALENT:140:処女 == 1
							PRINTFORML 虽然是这么说、我们两个都还是处子这件事到底是幸运呢还是不幸呢
						ELSE
							PRINTFORML 而且、我现在都还没被%CALLNAME:MASTER%抱过
						ENDIF
					ELSE
						IF TALENT:140:処女 == 1
							PRINTFORML 但是、也不知道主人是被非常珍惜着还是怎么的、至今没被抱过
						ELSE
							PRINTFORML 我和吾主都已经被%CALLNAME:MASTER%抱过了
						ENDIF
					ENDIF
					PRINTFORML 即便是爱着饭纲丸大人也无所谓。只要能也爱着我就可以了
					PRINTFORML 「虽然很难说主人算不算我的情敌。但是…」
					PRINTFORML 「饭纲丸大人、我、是不会放弃的」
					PRINTW
				;典が先
				ELSEIF CFLAG:139:1001 == 1
					PRINTFORML 居然爱上我喜欢的人什么的、饭纲丸大人心眼也是蛮坏的
					PRINTFORML 嘛、我的话也会这样子就是了
					PRINTW
					IF TALENT:処女 == 1
						IF TALENT:140:処女 == 1
							PRINTFORML 虽然是这么说、我们两个都还是处子这件事到底是幸运呢还是不幸呢
						ELSE
							PRINTFORML 但是、被抱这件事是饭纲丸大人先了。我至今没有被%CALLNAME:MASTER%抱过
							PRINTFORML 既然这样的话、要不要用来个霸王硬上弓呢。感觉不是什么非常理智的做法就是了…
						ENDIF
					ELSE
						IF TALENT:140:処女 == 1
							PRINTFORML 但是、不知道是主人还固执的不肯交出身体、还是并没有被当作这种事情的对象、至今还没被抱过
							PRINTFORML 无论是身体上还是心灵上、都可以是说是我先了吧
						ELSE
							PRINTFORML 我和吾主都已经被%CALLNAME:MASTER%抱过了
						ENDIF
					ENDIF
					PRINTW
					PRINTFORML 我对所谓的一夫一妻制没有什么兴趣。他在别的地方找什么女孩子我也没什么所谓
					PRINTFORML 只要、最后能回到我的身边、能够好好爱我就好了
					SIF TALENT:MASTER:恋人
					PRINTFORML 虽然%CALLNAME:MASTER%貌似是有恋人的、但只要不是饭纲丸大人就不是什么大问题
					PRINTW
					PRINTFORML 「从这个角度上来说的话、饭纲丸大人能变成情敌说不定也蛮方便的」
					PRINTFORML 要问为什么的话、这下我们不就是一个船上的了嘛
					PRINTW
					PRINTFORML 「%CALLNAME:MASTER%。我绝对会把你弄到手的」
					PRINTFORML 别人什么的、根本不关我的事。会喜欢上我的、我的%CALLNAME:MASTER%
					PRINTFORML 就让我倾尽自己的一切、让那个人的爱变成我的吧
				ENDIF
			;龍は恋慕・恋人無
			ELSE
				IF TALENT:MASTER:恋人
					PRINTFORML %CALLNAME:MASTER%貌似是有恋人了、但那与我无关
					PRINTFORML 我可是妖怪。人类的伦理观什么的、对我来说就是一坨
					PRINTFORML 「如果恋人会编织千百的爱的话、那我就展现出上万的爱吧」
					PRINTFORML 「呵呵、变得有趣起来了啊。%CALLNAME:MASTER%、我喜欢你%UNICODE(0x2665) *1%　一定要、永远在一起哦%UNICODE(0x2665) *1%」
					PRINTW
				ELSE
					PRINTFORML 看来%CALLNAME:MASTER%还没有决定好的入选的样子
					PRINTFORML 这可真是太方便了。恋人的位置我要定了
					PRINTFORML 管狐乃是暴食的美食家
					PRINTFORML 我所爱的人的灵魂、究竟会是什么味道的呢。真期待啊
					PRINTW
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「哈啊…我这是怎么了」
		PRINTW
		PRINTFORML 给饭纲丸大人的定期报告出来了
		PRINTFORML 在一如既往的报告这谍报内容的时候、忽然被指出「最近、%CALLNAME:MASTER%相关的报告很多啊」
		PRINTFORML 当时虽然是想办法糊弄过去了、但我这可真是疏忽大意了
		PRINTW
		PRINTFORML 一开是只是打算利用一下就丢掉的
		PRINTFORML 但是、反复的交流中、典的心境发生了变化
		PRINTW
		PRINTFORML 「是不是走的有点太近了呢…」
		IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行
			PRINTFORML 「但是、那肯定是因为%CALLNAME:MASTER%太可爱了呢…%UNICODE(0x2665) *1%」
			PRINTFORML 典没有注意到自己露出了非常不像样的表情
			PRINTW
			IF TALENT:MASTER:非童貞 == 0
				PRINTFORML 「想把那孩子染上自己的颜色…啊啊、只是想象一下就会浑身发抖啊…%UNICODE(0x2665) *1%」
				PRINTFORML 「我要不停的宠%CALLNAME:MASTER%、直到%CALLNAME:MASTER%变成没了典就活不下去程度的依存典才行…%UNICODE(0x2665) *1%」
			ELSE
				SELECTCASE TALENT:MASTER:形状
				CASE 6,10;巨根、馬並み
					CALL HPH_PRINT,@"「明明只是个孩子却又那么一根凶恶的鸡鸡…HPH　怎么可能让它从眼前溜走呢…HPH」","L"
				CASE 1,2;粗チン
					CALL HPH_PRINT,@"「很有小孩子味的可爱鸡鸡呢…HPH　好想用自己的手啊口啊那个地方啊让它哭出来呢…HPH」","L"
				CASEELSE
					CALL HPH_PRINT,@"「明明只是个小孩却有一根非常不错的肉棒…HPH　想让它只沉迷于自己…HPH」","L"
				ENDSELECT
			ENDIF

			IF TALENT:140:恋人
				PRINTFORML 「虽然但是、那孩子是饭纲丸大人的恋人…做过头了可不行」
				PRINTFORML 「在不会引起饭纲丸大人的不满的程度内、好好疼爱疼爱那孩子吧…♪」
			ELSEIF TALENT:140:恋慕
				PRINTFORML 「饭纲丸大人也好像非常中意那孩子的样子、有趣起来了呢ー♪」
				PRINTFORML 「从今以后也得好好的目不转睛地盯着%CALLNAME:MASTER%才行呢♪」
				PRINTW
			ELSEIF TALENT:愛欲 || TALENT:炮友
				PRINTFORML 「而且、身体的相性真是好到不行呐…%UNICODE(0x2665) *1%」
				PRINTFORML 「虽然那孩子说不定也是、但我也真的是上瘾了啊…♪」
				PRINTW
			ELSE
				PRINTFORML 「那么、接下来该用什么方法逗那孩子呢…♪」
				PRINTFORML 「要让姐姐我、见到你各种各样的表情哟、%CALLNAME:MASTER%…♪」
				PRINTW
			ENDIF
		;你が大人
		ELSE
			IF TALENT:140:恋人
				PRINTFORML 「更不用说、%CALLNAME:MASTER%还与饭纲丸大人相恋着…下手太不过脑子可能会引发主人的不满呢」
				PRINTFORML 「但是嘛、要是可以好好钓着的话、说不定可以看到相当有趣的东西呢♪」
				PRINTFORML 「从今以后也得好好的目不转睛地盯着%CALLNAME:MASTER%才行呢♪」
				PRINTW
			ELSEIF TALENT:140:恋慕
				PRINTFORML 「饭纲丸大人也好像非常中意那位的样子、有趣起来了呢ー♪」
				PRINTFORML 「从今以后也得好好的目不转睛地盯着%CALLNAME:MASTER%才行呢♪」
				PRINTW
			ELSEIF TALENT:愛欲 || TALENT:炮友
				PRINTFORML 「但是、身体的相性真是好到不行呐…%UNICODE(0x2665) *1%」
				PRINTFORML 「轻易放手也太浪费了。必须榨取到极限才行呢♪」
				PRINTFORML 「在最后必须得让%CALLNAME:MASTER%好好明白管狐究竟是一种多么贪婪的生物才行…♪」
				PRINTW
			ELSE
				IF TALENT:MASTER:非童貞 == 0
					PRINTFORML 「但是嘛、逗那个人完也很有趣呢♪」
					PRINTFORML 「还是童贞、稍微漏点破绽上去就会像饿狼扑食一样扑上来…♪」
					PRINTFORML 「下次要怎么玩才好呢…♪」
					PRINTW
				ELSE
					PRINTFORML 「但是嘛、这么有趣的存在可不多见呢♪」
					PRINTFORML 「看上去好像很习惯和女人接触的样子、但是是个色狼所以也很好利用♪」
					PRINTFORML 「下次要怎么玩才好呢…♪」
					PRINTW
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;炮友取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;接吻魔取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰狂取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;子宮口性感取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;漏尿癖取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K139_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;ARG:1に自慰種類
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;通常自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:処女 == 1
			IF TCVAR:発情
				SETCOLOR 0xFF69B4
				CALL HPH_PRINT,@"「哼HPH　哼HPH　哼嗯HPH」","L"
				CALL HPH_PRINT,@"「这里HPH　玩弄的话HPHHPH　好舒服HPHHPH」","L"
				PRINTFORML
				CALL HPH_PRINT,@"「哈HPH　哈HPH　啊 要去了HPH　大的HPH　要来了HPH」","L"
				CALL HPH_PRINT,@"（腰、要自己飞起来了HPH）","L"
				PRINTW
				CALL HPH_PRINT,@"「啊～～～～HPH　哦HPH　哦HPH　嗯HPHHPH　啊啊HPHHPHHPH」","L"
				CALL HPH_PRINT,@"（停不下来HPH　不想停下来HPH　好舒服HPH　不行HPH）","L"
				PRINTFORML
				CALL HPH_PRINT,@"「啊HPH　啊、啊啊啊、啊HPH　啊HPH　啊HPH　啊HPH　啊HPH」","L"
				CALL HPH_PRINT,@"（要来了HPH　要来了啊HPHHPH　奇怪的东西要来了HPHHPHHPHHPH）","L"
				PRINTW
				CALL HPH_PRINT,@"（来了HPHHPHHPHHPH）","L"
				CALL HPH_PRINT,@"「啊啊啊啊啊啊啊～～～～～～～～っHPHHPHHPHHPHHPH」","L"
				PRINTW
				CALL HPH_PRINT,@"「啊～～～～HPH　啊～～…HPH　啊啊～～…HPH　啊HPH　啊…HPH」","L"
				CALL HPH_PRINT,@"（来了…HPH　好厉害的来了……HPHHPH）","L"
				PRINTW
				PRINTFORML 「………………」
				CALL HPH_PRINT,@"「想做想的停不下来…HPH」","L"
				CALL HPH_PRINT,@"「再来一次、就只、再来一次…HPH　哼HPH　哼嗯嗯嗯HPHHPH」","L"
				RESETCOLOR
				PRINTW
			ELSE
				CALL HPH_PRINT,@"「啊啊HPH　这里HPH　摩擦的好舒服HPH」","L"
				CALL HPH_PRINT,@"「嗯唔呜呜呜HPH　啊~啊啊啊HPH」","L"
				PRINTFORML
				CALL HPH_PRINT,@"「哇…手指、非常黏黏糊糊的…HPH　都拉出线了…HPH」","L"
				CALL HPH_PRINT,@"「嗯姆…HPH　嗯、嗯嗯嗯HPHHPH」","L"
				PRINTW
				CALL HPH_PRINT,@"「啊哇…HPH　手指、两根都插进来了…HPH」","L"
				CALL HPH_PRINT,@"「呼呜呜HPH　哇啊…HPH　发出了咕啾咕啾的声音啊…HPH」","L"
				PRINTFORML
				CALL HPH_PRINT,@"「啊HPH　这里HPH　嘎吱嘎吱的做的话就快要去了HPH　要去了HPH　啊 去了HPHHPH」","L"
				CALL HPH_PRINT,@"「啊~啊啊啊啊HPHHPHHPHHPH」","L"
				PRINTW
				PRINTFORML
				PRINTFORML
				CALL HPH_PRINT,@"「哈啊～～HPH　哈、哈、哈…HPH」","L"
				CALL HPH_PRINT,@"「……自慰、说不定、会上瘾…HPH」","L"
				PRINTW
			ENDIF
		;非処女
		ELSE
			IF CFLAG:1019 == 1
				IF TCVAR:発情
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「啊啊HPH　手指、停不下来HPHHPH」","L"
					CALL HPH_PRINT,@"（好舒服HPH　虽然好舒服HPHHPH）","L"
					PRINTFORML
					CALL HPH_PRINT,@"「呼呜呜～～～～HPH　呜呜呜～～～HPHHPH」","L"
					CALL HPH_PRINT,@"（但是、手指根本不够HPH　肉棒、想要HPHHPH）","L"
					SELECTCASE TALENT:MASTER:形状
					CASE 6,10;巨根、馬並み
						CALL HPH_PRINT,@"（%CALLNAME:MASTER%的超大的肉棒HPHHPH　想用它对着里面猛戳HPHHPH）","L"
					CASE 1,2;粗チン
						CALL HPH_PRINT,@"（%CALLNAME:MASTER%的小小鸡鸡也可以HPH　想把鸡鸡塞进去HPHHPH）","L"
					CASE 5;イボ付き
						CALL HPH_PRINT,@"（%CALLNAME:MASTER%的凶恶肉棒HPH　想让它在腔内转来转去的HPHHPH）","L"
					CASEELSE
						CALL HPH_PRINT,@"（%CALLNAME:MASTER%的肉棒HPH　想让它对着碰不到的地方插来插去的HPHHPH）","L"
					ENDSELECT
					PRINTW
					CALL HPH_PRINT,@"「啊啊～～HPH　肉棒HPH　我好像要肉棒啊HPHHPH」","L"
					CALL HPH_PRINT,@"（%CALLNAME:MASTER%的肉棒HPH　在腔内戳来戳去的HPHHPH）","L"
					PRINTFORML
					CALL HPH_PRINT,@"「要来了HPH　很大的要来了HPHHPH　要去哩HPH　去哩去哩、去哩HPHHPH」","L"
					CALL HPH_PRINT,@"（在腔内射出来HPH　让典HPH　怀上你的孩子来HPHHPH）","L"
					PRINTW
					CALL HPH_PRINT,@"「啊HPH　啊、啊啊啊、啊HPH　啊HPH　啊HPH　啊HPH　啊HPH」","L"
					CALL HPH_PRINT,@"（要来了HPH　要来了啊HPHHPH　奇怪的东西要来了HPHHPHHPHHPH）","L"
					PRINTW
					CALL HPH_PRINT,@"（来了HPHHPHHPHHPH）","L"
					CALL HPH_PRINT,@"「啊啊啊啊啊啊啊～～～～～～～～っHPHHPHHPHHPHHPH」","L"
					PRINTW
					CALL HPH_PRINT,@"「啊～～～～HPH　啊～～…HPH　啊啊～～…HPH　啊HPH　啊…HPH」","L"
					CALL HPH_PRINT,@"（来了…HPH　好厉害的来了……HPHHPH）","L"
					PRINTW
					PRINTFORML 「………………」
					CALL HPH_PRINT,@"「想做想的停不下来…HPH」","L"
					CALL HPH_PRINT,@"「再来一次、就只、再来一次…HPH　哼HPH　哼嗯嗯嗯HPHHPH」","L"
					RESETCOLOR
					PRINTW
				ELSE
					CALL HPH_PRINT,@"「啊啊HPH　这里HPH　摩擦的好舒服HPH」","L"
					CALL HPH_PRINT,@"「嗯唔呜呜呜HPH　啊~啊啊啊HPH」","L"
					PRINTFORML
					CALL HPH_PRINT,@"「哇…手指、非常黏黏糊糊的…HPH　都拉出线了…HPH」","L"
					CALL HPH_PRINT,@"「嗯姆…HPH　嗯、嗯嗯嗯HPHHPH」","L"
					PRINTW
					CALL HPH_PRINT,@"「啊哇…HPH　手指、三根都插进来了…HPH」","L"
					CALL HPH_PRINT,@"「呼呜呜HPH　哇啊…HPH　发出了咕啾咕啾的声音啊…HPH」","L"
					PRINTFORML
					CALL HPH_PRINT,@"「啊、啊啊啊HPH　手指、整根插进去啦HPHHPH」","L"
					CALL HPH_PRINT,@"「小穴HPH　被搅动的感觉好爽HPHHPH」","L"
					PRINTW
					CALL HPH_PRINT,@"「啊HPH　还差一点HPH　明明就只差一点HPH　就可以碰到舒服的地方了HPHHPH」","L"
					CALL HPH_PRINT,@"「去了HPH　去了HPH　去了啊HPHHPH」","L"
					CALL HPH_PRINT,@"「啊~啊啊啊啊啊HPHHPHHPHHPH」","L"
					PRINTW
					PRINTFORML
					PRINTFORML
					CALL HPH_PRINT,@"「哈啊～～HPH　哈、哈、哈…HPH」","L"
					CALL HPH_PRINT,@"「……虽然很舒服…但是、果然还是%CALLNAME:MASTER%的肉棒要更好一点吧…HPH」","L"
					PRINTW
				ENDIF
			ELSEIF CFLAG:1019 == 0
				IF TCVAR:発情
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「啊啊HPH　手指、停不下来HPHHPH」","L"
					CALL HPH_PRINT,@"（好舒服HPH　虽然好舒服HPHHPH）","L"
					PRINTFORML
					CALL HPH_PRINT,@"「呼呜呜～～～～HPH　呜呜呜～～～HPHHPH」","L"
					CALL HPH_PRINT,@"（手指、根本不够HPH　想要一个、可以插到更深处的地方HPHHPH）","L"
					PRINTW
					CALL HPH_PRINT,@"「啊HPH　啊、啊啊啊、啊HPH　啊HPH　啊HPH　啊HPH　啊HPH」","L"
					CALL HPH_PRINT,@"（啊HPH　要去了HPH　这里HPH　这里喜欢HPHHPH　这里好棒HPHHPH）","L"
					CALL HPH_PRINT,@"（要来了HPH　要来了啊HPHHPH　奇怪的东西要来了HPHHPHHPHHPH）","L"
					PRINTW
					CALL HPH_PRINT,@"（来了HPHHPHHPHHPH）","L"
					CALL HPH_PRINT,@"「啊啊啊啊啊啊啊～～～～～～～～っHPHHPHHPHHPHHPH」","L"
					PRINTW
					CALL HPH_PRINT,@"「啊～～～～HPH　啊～～…HPH　啊啊～～…HPH　啊HPH　啊…HPH」","L"
					CALL HPH_PRINT,@"（来了…HPH　好厉害的来了……HPHHPH）","L"
					PRINTW
					PRINTFORML 「………………」
					CALL HPH_PRINT,@"「想做想的停不下来…HPH」","L"
					CALL HPH_PRINT,@"「再来一次、就只、再来一次…HPH　哼HPH　哼嗯嗯嗯HPHHPH」","L"
					RESETCOLOR
					PRINTW
				ELSE
					CALL HPH_PRINT,@"「啊啊HPH　这里HPH　摩擦的好舒服HPH」","L"
					CALL HPH_PRINT,@"「嗯唔呜呜呜HPH　啊~啊啊啊HPH」","L"
					PRINTFORML
					CALL HPH_PRINT,@"「哇…手指、非常黏黏糊糊的…HPH　都拉出线了…HPH」","L"
					CALL HPH_PRINT,@"「嗯姆…HPH　嗯、嗯嗯嗯HPHHPH」","L"
					PRINTW
					CALL HPH_PRINT,@"「啊哇…HPH　手指、两根都插进来了…HPH」","L"
					CALL HPH_PRINT,@"「呼呜呜HPH　哇啊…HPH　发出了咕啾咕啾的声音啊…HPH」","L"
					PRINTFORML
					CALL HPH_PRINT,@"「啊HPH　这里HPH　嘎吱嘎吱的做的话就快要去了HPH　要去了HPH　啊 去了HPHHPH」","L"
					CALL HPH_PRINT,@"「啊~啊啊啊啊HPHHPHHPHHPH」","L"
					PRINTW
					PRINTFORML
					PRINTFORML
					CALL HPH_PRINT,@"「哈啊～～HPH　哈、哈、哈…HPH」","L"
					CALL HPH_PRINT,@"「……自慰虽然也不错、但也想用肉棒来做啊…HPH」","L"
					PRINTFORML 「啊～啊、有没有哪里有好棒子用呢」
					PRINTW
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;中だし精液自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		LOCAL:2 = EXP:自慰経験 - EXP:調教自慰経験
		;無知消去イベントあり（表示は一度だけ
		IF LOCAL:1 >= 25
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
		[SKIPSTART]
		ELSEIF LOCAL:1 >= 20
		ELSEIF LOCAL:1 >= 15
		ELSEIF LOCAL:1 >= 10
		ELSEIF LOCAL:1 >= 5
		[SKIPEND]
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質あり自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;-------------------------------------------------
		;Ｃ敏感orＣ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｖ敏感orＶ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			CALL PRINT_FACE, [[典]], "自慰", "裸", "", ""
			CALL HPH_PRINT,@"「哈啊HPH　哈啊HPH　哈HPH　哈HPH」","L"
			CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、%CALLNAME:MASTER%阁下…HPH」","L"
			PRINTW
			CALL HPH_PRINT,@"（只是在脑海里想象了一下%CALLNAME:MASTER%阁下而已、就变得这么湿了…HPH）","L"
			CALL HPH_PRINT,@"（我记得%CALLNAME:MASTER%阁下是、这样子摸我的来着…HPH）","L"
			CALL HPH_PRINT,@"「啊HPH　糟糕啊这个…HPH」","L"
			PRINTW
			CALL HPH_PRINT,@"「哈啊啊HPH　这个HPH　好舒服HPH　这个不行的啊HPH」","L"
			CALL HPH_PRINT,@"「嗯~嗯嗯嗯～～～～HPH」","L"
			PRINTW
			CALL HPH_PRINT,@"「啊HPH　%CALLNAME:MASTER%阁下HPH」","L"
			CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下HPH　喜欢HPH」","L"
			PRINTW
			CALL HPH_PRINT,@"「%CALLNAME:MASTER%HPH　%CALLNAME:MASTER%HPH」","L"
			CALL HPH_PRINT,@"「去了HPH　去了去了啊HPH」","L"
			PRINTW
			CALL HPH_PRINT,@"「～～～～～～～～啊啊HPH　HPHHPH」","L"
			CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下HPH　去了啊啊HPHHPH」","L"
			PRINTW
			CALL HPH_PRINT,@"「哈啊ーーHPH　哈啊ーHPH」","L"
			CALL HPH_PRINT,@"（用%CALLNAME:MASTER%去了…HPH　好幸福…HPH）","L"
			PRINTW
			CALL HPH_PRINT,@"「嗯…HPH　再稍微…」","L"
			CALL HPH_PRINT,@"「嗯、%CALLNAME:MASTER%HPH　%CALLNAME:MASTER%…HPH」","L"
			CALL HPH_PRINT,@"「啊HPH　昂HPH　啊HPH」","L"
			CALL HPH_PRINT,@"「HPHHPH　…HPH」","L"
			PRINTFORML …………
			PRINTW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ａ敏感orＡ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｂ敏感orＢ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部位指定無し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 5
			PRINTFORML
			RETURN 1
		ENDIF
		;其他
		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;-------------------------------------------------
		;尻穴膣腔同時
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;膣腔のみ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;其他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;我慢
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;其他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K139_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行
			PRINTFORML 「诶嘿嘿、想和姐姐一起进浴室吗～？」
			PRINTFORML 「要怎么办呢～、要不要放你进来呢～～？」
			PRINTW
			SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「就这么想要进来吗？　真是个色小鬼呢…♪」
				PRINTFORML 「但是不让进♪　还太早了哟♪」
				PRINTW
			CASE 1
				PRINTFORML 「n～～o…还、不、行%UNICODE(0x2665) *1%」
				PRINTFORML 「哪种事情、等我们关系再好一点之后再说吧%UNICODE(0x2665) *1%」
				PRINTW
				PRINTFORML 「啊～、满脸写着失落呢♪　就这么想一起进来呢♪」
				PRINTFORML （%CALLNAME:MASTER%的表情、真棒啊…感觉自己下面都缩紧了♪）
				PRINTW
			ENDSELECT
		ELSE
			PRINTFORML 「哦呀哦呀、把手环绕在我的腰上…♪　是想要带我到哪里去呢…♪」
			PRINTFORML 「坦诚相见？　唔ー嗯、这可真是富有魅力的提案呢…♪」
			PRINTW
			PRINTFORML 「但是、请容我拒绝♪」
			PRINTFORML 「要给%CALLNAME:MASTER%阁下看什么的…我还很害羞呢♪」
			PRINTW
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行
			PRINTFORML 「行唷♪　和姐姐一起进来吧♪」
			SELECTCASE RAND:2
			CASE 0
				PRINTFORML 「那么、姐姐就先把衣服脱了、可不能偷看哟」
				PRINTFORML 「特别是脱下内衣的地方可是绝对不能看的哦…♪」
				PRINTL
				PRINTFORML 窸窸窣窣、窸窸窣窣…
				PRINTFORML 背后传来了衣服的摩擦声…
				PRINTL
				CALL ASK_YN("偷看","不看")
				IF !RESULT
					PRINTFORML 典刚好在脱上半身的衣服
					IF TALENT:TARGET:胸圍 > 0
						PRINTFORML %OPPAI_DESCRIPTION(TARGET,1)%顺着典的行动噗扭噗扭地摇晃着
					ELSEIF TALENT:TARGET:胸圍 == -1
						PRINTFORML %OPPAI_DESCRIPTION(TARGET,1)%和乳头一起隐隐若现的
					ELSEIF TALENT:TARGET:胸圍 == -2
						PRINTFORML %OPPAI_DESCRIPTION(TARGET,1)%和乳头只能浅浅望见
					ELSE
						PRINTFORML %OPPAI_DESCRIPTION(TARGET,1)%顺着典的行动扑棱扑棱地摇晃着
					ENDIF
					PRINTFORML （呵呵、还以为我没有发现…♪真就是一只色小鬼呢…%UNICODE(0x2665) *1%）
				ELSE
				ENDIF
				PRINTL
				PRINTFORML 窸窸窣窣、窸窸窣窣…
				PRINTFORML 背后传来了衣服的摩擦声…
				PRINTL
				CALL ASK_YN("偷看","不看")
				IF !RESULT
					PRINTFORML 典刚好在脱下半身的衣服
					PRINTFORML 典背对着这边、正在脱下内衣
					PRINTW
					PRINTFORML 突出来的尻肉、正缓缓的露出头来
					PRINTFORM 而且、
					IF TALENT:尻穴狂
						PRINTFORM 纵割的
					ELSEIF ABL:Ａ感覚 > 1
						PRINTFORM 已经使用过的
					ELSE
						PRINTFORM 窄窄的浅茶色的
					ENDIF
					PRINTFORML 尻穴暴露了出来
					PRINTW
					PRINTFORML 而在那之下、典那
					IF TALENT:淫壺
						PRINTFORM 专门用于榨取精液的、散发淫臭的
					ELSEIF ABL:Ｖ感覚 > 1
						PRINTFORM 完美匹配%CALLNAME:MASTER%阴茎形状的
					ELSEIF TALENT:処女 == 1
						PRINTFORML 还不识男人滋味的
					ELSE
						PRINTFORML 让%CALLNAME:MASTER%成为男人的
					ENDIF
					PRINTFORML 秘裂被摆在了眼前
					PRINTW
					PRINTFORML 「%CALLNAME:MASTER%～？　没有在偷窥的吧～？」
					PRINTFORML 看到典打算转身、便连忙回过头去、并回复道自己没有在看
					PRINTW
					PRINTFORML （呵呵、明明就看了、破绽百出呢…%UNICODE(0x2665) *1%）
					PRINTW
				ELSE
				ENDIF
				PRINTL
				PRINTFORML 「好♪　已经可以转过身来了唷♪」
				PRINTFORML 转过身后、看到了用手遮着胸和股间的典脸上露着微笑
				PRINTL
				PRINTFORML 「和姐姐一起去搓背吧♪　好嘞、快点进去吧♪」
				PRINTW
			CASE 1
				PRINTFORML 「那么、来开始脱脱衣服吧～♪」
				PRINTFORML 「真是的、明明都已经自己说过要进来了、现在害羞个什么劲♪」
				PRINTL
				PRINTFORML 「好、真棒♪　接下来是下面了唷。喂ー、跑什么跑呢」
				PRINTFORML 「想要抵抗的孩子ー、就得这样♪」
				PRINTW
				IF TALENT:処女 == 1
					SELECTCASE TALENT:MASTER:形状
					CASE 6,10;巨根、馬並み
						PRINTFORML 「好ー咯、这下就光溜溜了…诶？」
						CALL HPH_PRINT,@"（%CALLNAME:MASTER%的肉棒…啥啊这是HPHHPH）","L"
						IF BASE:MASTER:勃起 >= 1000
							CALL HPH_PRINT,@"（这不是比我的手腕都要大吗…HPH　血管那么粗…HPHHPH）","L"
						ELSE
							CALL HPH_PRINT,@"（还没勃起就有此般规模…要是硬起来了的话得变成什么样子HPH）","L"
						ENDIF
					CASE 1,2;粗チン
						CALL HPH_PRINT,@"（%CALLNAME:MASTER%的肉棒…小小的真可爱HPHHPH）","L"
						IF BASE:MASTER:勃起 >= 1000
							CALL HPH_PRINT,@"（勃起之后也只有这种尺寸、这要是被看到了、确实会害羞的啊…HPH）","L"
							CALL HPH_PRINT,@"（但是、顶的角度倒是蛮可怕的呢…正对着腹部呢…HPH）","L"
						ELSE
							CALL HPH_PRINT,@"（就算是勃起了也不知道能不能触及到我的深处…HPH）","L"
							CALL HPH_PRINT,@"（怪不得啊、原来是在意自己小这件事啊…HPH）","L"
						ENDIF
					CASE 5;イボ付き
						CALL HPH_PRINT,@"（和%CALLNAME:MASTER%那可爱的脸一点都不像的凶恶家伙呢……HPHHPH）","L"
						CALL HPH_PRINT,@"（和别的儿童相比的话、这个看上去可怕的很啊、怪不得想要藏起来呢…HPH）","L"
					CASEELSE
						CALL HPH_PRINT,@"（%CALLNAME:MASTER%的肉棒…出乎意料的很大呢HPHHPH）","L"
						CALL HPH_PRINT,@"（明明有这么出色的肉棒、坦诚的展示出来不就好了吗…HPH）","L"
					ENDSELECT
				ELSE
					SELECTCASE TALENT:MASTER:形状
					CASE 6,10;巨根、馬並み
						PRINTFORML 「好ー咯、这下就光溜溜了唷♪」
						CALL HPH_PRINT,@"（%CALLNAME:MASTER%的肉棒…还是老样子的和脸一点不像的凶恶家伙呢…HPHHPH）","L"
					CASE 1,2;粗チン
						CALL HPH_PRINT,@"（%CALLNAME:MASTER%的肉棒…还是老样子被包皮覆盖着的可爱家伙呢…HPHHPH）","L"
					CASE 5;イボ付き
						CALL HPH_PRINT,@"（%CALLNAME:MASTER%的肉棒…简直就像野兽或者是什么妖怪了啊…HPHHPH）","L"
					CASEELSE
						CALL HPH_PRINT,@"（%CALLNAME:MASTER%的肉棒…被包皮半覆盖着真可爱呢…HPHHPH）","L"
					ENDSELECT
					SIF BASE:MASTER:勃起 >= 1000
						CALL HPH_PRINT,@"（呵呵、是在期待着些什么吗…这不是都已经勃起了吗HPHHPH）","L"
					PRINTW
				ENDIF
			ENDSELECT
		ELSE
			PRINTFORML 「可以了唷♪　我来帮你搓背吧♪」
			IF TALENT:処女 == 1
				PRINTFORML 「哇…%UNICODE(0x2665) *1%　裸体也能这么光明正大的吗…%UNICODE(0x2665) *1%」
				PRINTFORML %CALLNAME:MASTER%脱下衣服之后、典用手遮住了脸
				PRINTFORML 用指缝仔细的盯着股间这点也很有典的味道
				PRINTW
				SELECTCASE TALENT:MASTER:形状
				CASE 6,10;巨根、馬並み
					CALL HPH_PRINT,@"（%CALLNAME:MASTER%的肉棒…何等大小啊HPH）","L"
					CALL HPH_PRINT,@"（要是被那种东西突刺了的话…绝对连子宫都会被侵犯的…HPHHPH）","L"
				CASE 1,2;粗チン
					CALL HPH_PRINT,@"（%CALLNAME:MASTER%的肉棒…简直就像小孩子一样HPH）","L"
					CALL HPH_PRINT,@"（但是、说不定反而可以戳到很舒服的地方呢…HPHHPH）","L"
				CASE 5;イボ付き
					CALL HPH_PRINT,@"（%CALLNAME:MASTER%的肉棒…简直就像野兽或者是什么妖怪了啊…HPHHPH）","L"
					CALL HPH_PRINT,@"（要是那种东西在腔内运动起来的话…HPHHPH）","L"
				CASEELSE
					CALL HPH_PRINT,@"（%CALLNAME:MASTER%的肉棒…非常健壮呢…HPHHPH）","L"
					CALL HPH_PRINT,@"（不知道能不能…进入到深处呢…HPHHPH）","L"
				ENDSELECT
			ELSE
				PRINTFORML 「真是的…%UNICODE(0x2665) *1%　请不要那样盯着别人的裸体看好不好」
				PRINTFORML 眺望典的裸身之时、典露出了好像很困扰的笑容
				PRINTW
				IF BASE:MASTER:勃起 >= 1000
					PRINTFORML 「明明接下来就要进浴室了的说…是在期待些什么呢…？%UNICODE(0x2665) *1%」
				ELSE
					SELECTCASE RAND:2
					CASE 0
						PRINTFORML 「哦呀哦呀、%CALLNAME:MASTER%阁下的这里看上去没什么精神的样子啊…%UNICODE(0x2665) *1%」
					CASE 1
						PRINTFORML 「看到典的裸体都没有反应什么的…稍微有点被伤到了呢」
					ENDSELECT
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K139_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			IF EXP:出産経験 > 72
				PRINTFORML 「哎呀、我又怀上了呢♪」
				PRINTFORML 「%CALLNAME:MASTER%阁下将被授予『幻想乡的种马』的称号」
				PRINTFORML 「怎么说呢…您能爱我爱到这种程度、典还真是有福气啊…%UNICODE(0x2665) *1%」
				PRINTW
			ELSEIF EXP:出産経験 == 72
				PRINTFORML 「哎呀、没想到我也快要有一个75人口的家族了啊♪」
				PRINTFORML 「%CALLNAME:MASTER%阁下真的是精力绝伦呢…%UNICODE(0x2665) *1%」
				PRINTW
				PRINTFORML 「是我渴求得太多了吗？　不对不对、我只是作为妻子回应丈夫的要求而已♪」
				PRINTFORML 虽然还没结婚、但自己不知不觉就成为了丈夫…
				PRINTW
				PRINTFORML 「不过…照这样下去、大半个幻想乡都将会是我和%CALLNAME:MASTER%阁下的血族了呢」
				PRINTFORML 「%CALLNAME:MASTER%阁下、你打算成为幻想乡之王吗？」
				PRINTW
				PRINTFORML 「唔ー、应该不会发生那样的事♪　因为我的丈夫不是这种人♪」
				PRINTFORML 「喜欢的时候就会抱女人、兴致来了就钓鱼、与妖精认真地进行弹幕胜负、有时沉迷于赌博、有时又认真地努力打扫…」
				PRINTFORML 「做什么事都很随便、是一个让人无计可施的混蛋、这就是典所爱着的%CALLNAME:MASTER%阁下」
				PRINTW
				PRINTFORML 「不用担心、典会一直陪在%CALLNAME:MASTER%阁下的身边的」
				PRINTFORML 「至今为止、今后也一样」
				PRINTW
			ELSEIF EXP:出産経験 > 9
				PRINTFORML 「『为什么？』、这个嘛、被那样无节操的腔内中出了一遍又一遍的话肯定会变成这样的啦♪」
				PRINTFORML 「现在让我们来看看我们能生多少吧♪」
				PRINTFORML 「不过、养育费和生活费的确是个很困难的问题啊…」
				PRINTW
			ELSEIF EXP:出産経験 == 9
				PRINTFORML 「哎呀、没想到已经快要怀够10个孩子了呢…%CALLNAME:MASTER%阁下的子种真是太厉害了%UNICODE(0x2665) *1%」
				IF ABL:MASTER:戦闘能力 < 2
					PRINTFORML 「%CALLNAME:MASTER%阁下明明没什么战斗的能力、但那边简直就像是在无双一样呢…%UNICODE(0x2665) *1%」
					IF EXP:1:出産経験 > 0
						PRINTFORML 「据说连博丽的巫女都怀孕了…♪」
					ELSEIF (EXP:29:出産経験 > 0 && EXP:42:出産経験 > 0 && EXP:65:出産経験 > 0 && EXP:140:出産経験 > 0)
						PRINTFORML 「不光是我、包括饭纲丸大人在内的所有天狗都已经怀过孕了呢…♪」
					ENDIF
				ELSE
					PRINTFORML 「强大的不仅是战斗、还有夜战…%UNICODE(0x2665) *1%」
					IF EXP:1:出産経験 > 0
						PRINTFORML 「据说连博丽的巫女都怀孕了…♪」
					ELSEIF (EXP:29:出産経験 > 0 && EXP:42:出産経験 > 0 && EXP:65:出産経験 > 0 && EXP:140:出産経験 > 0)
						PRINTFORML 「不光是我、包括饭纲丸大人在内的所有天狗都已经怀过孕了呢…♪」
					ENDIF
				ENDIF
				PRINTW
				PRINTFORML 「你还记得孩子们的名字和长相吗？」
				PRINTFORML 「话说回来、已经独立的孩子们也不会想到自己又多了个妹妹或弟弟吧…」
				PRINTW
			ELSEIF EXP:出産経験 > 0
				PRINTFORML 「这是第{EXP:出産経験 + 1}名哟、%CALLNAME:MASTER%阁下%UNICODE(0x2665) *1%」
				PRINTFORML 「生过一遍孩子的话第二次之后就更容易怀上这件事、无论是人类还是妖怪都一样呢」
				PRINTW
				PRINTFORML 「下一个会是个男孩子呢？　还是个女孩子呢？」
				PRINTFORML 「嘸嘸、真期待啊♪」
				PRINTW
			;初の懐妊
			ELSE
				PRINTFORML 「%CALLNAME:MASTER%阁下%UNICODE(0x2665) *1%　请听我说%UNICODE(0x2665) *1%」
				PRINTFORML 「终于怀上了哦%UNICODE(0x2665) *1%　我们的小宝宝%UNICODE(0x2665) *1%」
				PRINTW
				IF CFLAG:42:子宝補正 >= 10
					PRINTFORML 「像一直在做的一样、连神明都打算依靠…不够能实现真是太好了」
				ELSEIF CFLAG:42:子宝補正 > 0
					PRINTFORML 「出乎意料了啊、依靠神明也不是完全的笨蛋行径呢」
				ELSE
					PRINTFORML 「人与妖…也不是没有先例…我的愿望实现了、真是太好了」
				ENDIF
				PRINTFORML 典很有爱地抚摸着还不明显的腹部
				PRINTW
				IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行
					PRINTFORML 「%CALLNAME:MASTER%阁下、作为父亲一定要多多努力啊♪」
					PRINTFORML 「是啊。%CALLNAME:MASTER%阁下要当爸爸了。再也不能向姐姐撒娇了」
					PRINTW
					PRINTFORML 「你看你看、那是什么表情啊。%CALLNAME:MASTER%阁下已经是准爸爸了哦？」
					PRINTFORML 「加油、加油%UNICODE(0x2665) *1%　不能撒娇是開玩笑的啦♪」
					PRINTFORML 「和姐姐一起努力养育孩子吧♪　亲・爱・的%UNICODE(0x2665) *1%」
					PRINTW
				ELSE
					PRINTFORML 「%CALLNAME:MASTER%阁下、作为父亲一定要多多努力啊♪」
					PRINTFORML 「起码、在腹中的孩子到了一定大小之前、请控制一下自己那喜欢到处乱跑的欲望哟」
					PRINTFORML 「我可全靠你了哟♪　　亲・爱・的%UNICODE(0x2665) *1%」
					PRINTW
				ENDIF
			ENDIF
		ELSE
			IF TALENT:140:恋人
				IF EXP:140:出産経験 > 0
					PRINTFORML 「继饭纲丸大人之后怀孕、说实话我终于放心了…」
					PRINTFORML 「毕竟如果比%CALLNAME:MASTER%阁下的恋人先怀孕、我也不太好意思」
					PRINTFORML 「继饭纲丸大人之后、我也怀上了%CALLNAME:MASTER%阁下的孩子、真的很高兴呢…%UNICODE(0x2665) *1%」
				ELSE
					PRINTFORML 「比身为恋人的饭纲丸大人先怀孕、老实说心情很复杂…」
					PRINTFORML 「…尽管如此、能怀上%CALLNAME:MASTER%阁下的孩子、我还是很高兴的…%UNICODE(0x2665) *1%」
				ENDIF
			ELSEIF TALENT:140:恋慕
				IF EXP:140:出産経験 > 0
					PRINTFORML 「继饭纲丸大人之后、我也怀上了%CALLNAME:MASTER%阁下的孩子、真的很高兴呢…%UNICODE(0x2665) *1%」
				ELSE
					PRINTFORML 「比饭纲丸大人先怀孕、老实说心情很复杂…」
					PRINTFORML 「…尽管如此、能怀上%CALLNAME:MASTER%阁下的孩子、我还是很高兴的…%UNICODE(0x2665) *1%」
				ENDIF
			ELSE
				PRINTFORML 「饭纲丸大人也给了我祝福。典真的、很幸福呢…%UNICODE(0x2665) *1%」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;0204
		IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
			PRINTFORML 「中大奖了～♪　的说♪」
			PRINTFORML 「是什么呢、其实、%CALLNAME:MASTER%阁下的精子、已经和姐姐的卵子结合并着床了哟%UNICODE(0x2665) *1%」
			PRINTW
			PRINTFORML 「啊、说的话很难理解吗？　就是说、%CALLNAME:MASTER%阁下和姐姐的孩子、现在已经在腹中了哟♪」
			PRINTFORML 「看这里！　明明还只是孩子却已经是{EXP:出産経験 + 1}位孩子的父亲了！」
			PRINTW
		ELSE
			PRINTFORML 「爸～爸♪」
			PRINTFORML …………
			PRINTW
			PRINTFORML 「父・亲♪」
			PRINTFORML 真的、我的…？
			PRINTW
			PRINTFORML 「就是这样的哟～♪」
			PRINTFORMW 「是%CALLNAME:MASTER%阁下的哟♪」
			PRINTFORMW 「精子它♪」
			PRINTFORML 「受精！　着床！　妊娠！　的干了哟！！」
			PRINTW
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF TALENT:恋慕 || TALENT:恋人

		ELSE
			;0204
			PRINTFORML 「哎呀、这是一个狐狸被人牵着鼻子走的故事…」
			IF EXP:Ｖ性交経験 > 0
				PRINTFORML 「和我交融过的人、只有%CALLNAME:MASTER%阁下而已的吧…」
				PRINTFORML
			ELSE
				PRINTFORML 「虽然你可能不会相信…但我其实都还没和任何人做过」
				PRINTFORML 「\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐我 # 典 \@也是个会动坏脑筋的人…所以便提出了一些假设」
				PRINTFORMW 「例如、一个拥有可以将精液直接送进子宫的人」
				PRINTFORMW 「例如、在确保我绝对不会起来之后不留如何证据的对我播了种」
				PRINTFORMW 「比如、缩小到极小的尺寸、在我的胎内射精」
				PRINTFORMW 「比如可以毫无声息的行动、又或者是可以超高速移动」
				PRINTFORMW 「比如我被催眠了然后被各种玩弄身体」
				PRINTFORMW 「比如──」
				PRINTFORMW 「可以停止时间、在那期间可以对我为所欲为」
				PRINTFORML 「嘛、因为半点能像证据的证据都没有所以也只能是推测就是了呢♪」
				PRINTW
				;膽怯
				IF TALENT:MASTER:胆量 == -1
					PRINTFORML （……）
					PRINTFORML 在说到「停止时间」的适合、目光明显偏移了呢
					PRINTFORML 十有八九、%CALLNAME:MASTER%就是黑、了吧
					PRINTW
					PRINTFORML 但是…平时明明总是战战兢兢的、没想到会有胆子做这种事啊
					PRINTFORML 是意外的大胆呢、还是说太武断了呢…
					PRINTW
				ELSEIF TALENT:MASTER:自制心
					PRINTFORML （……）
					PRINTFORML （什么推测都没有反应…不对吗？）
					PRINTFORML （还是说、因为其中有正确答案所以对所有推测都是一个反应…？）
					PRINTW
				ELSEIF TALENT:MASTER:感情缺乏
					PRINTFORML （……）
					PRINTFORML （看、看不懂…）
					PRINTFORML （是表情筋都死掉了还是什么吗、半点表情都没有啊…）
					PRINTW
				ELSE
					PRINTFORML （……）
					PRINTFORML （反应、有点微妙呢）
					PRINTFORML （感觉其中应该有一个对上了。还说说、正解有多个吗）
					PRINTW
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K139_25(ARG,ARG:1)
;口上主はLOCAL
;ARG:1	何人目の兒童か
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K139_26(ARG,ARG:1)
;一連の流れは指令関連→外出系→NASIKUZUSI内の@ONABARE
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;什麼也不做
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;逐出
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			IF TCVAR:発情
			ELSEIF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
				CALL HPH_PRINT,@"「也…是呢HPH」","L"
				CALL HPH_PRINT,@"「因为姐姐的缘故、小鸡鸡变大了…HPH」","L"
				CALL HPH_PRINT,@"「必须负起责任、对吧…HPH」","L"
				PRINTFORML 典一边舔着舌头、一边牵着%CALLNAME:MASTER%的手腕拉了过来…
			ELSEIF TALENT:MASTER:濃厚精液
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;事後
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 6
		;事後お泊り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
	ENDSELECT
ENDIF

;オナバレックス判定用関数
;RETURN -1で強制失敗、RETURN 1で強制成功
@M_KOJO_EVENT_K139_26_1(ARGS)
#DIM 補正値
IF ARGS == "どうぞそのまま"
	IF TCVAR:発情
		RETURN 1
	ELSEIF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
		RETURN 1
	ELSEIF TALENT:MASTER:濃厚精液
		RETURN 1
	ENDIF
ELSEIF ARGS == "二人"
	IF TCVAR:発情
		SETCOLOR 0xFF69B4
		PRINTFORMW 发情了的典、无视自己意志的在索求着子种…
		PRINTL
		RESETCOLOR
		RETURN 1
	ELSEIF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
		PRINTFORMW 貌似因为看到了%CALLNAME:MASTER%膨胀的股间、小穴变得焦躁不安了起来…
		RETURN 1
	ELSEIF TALENT:MASTER:濃厚精液
		PRINTFORMW 在苦闷之时闻到了浓厚的性臭味、无法做出正常的判断了的样子…
		RETURN 1
	ENDIF
ENDIF

;使用例
;IF !TALENT:XX:恋慕
;	PRINTFORMW %CALLNAME:XX%はガードが堅いぞ！
;	RETURN -1
;ENDIF
;IF TALENT:MASTER:濃厚精液
;	PRINTFORMW %CALLNAME:XX%はちんぽに弱いぞ！
;	RETURN 1
;ENDIF
;==================================================
;相手から约会のお誘い
;==================================================
@M_KOJO_EVENT_K139_27(ARG,ARG:1)
;口上主はLOCAL
;ARG:1は目的地
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;誘い文句
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K139_28(ARG,ARG:1)
;口上主はTARGET
;ARGに脱がし方選択
;ARG:1（ARG=3の場合のみあり）地の文の反応
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;全裸にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;变成只穿内衣的样子
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;半脱
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;胖次ちょうだい
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			SELECTCASE ARG:1
				;-------------------------------------------------
				CASE 0
				;交換です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 1
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 2
				;OK（渋々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 3
				;嫌です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				RETURN 1
			ENDSELECT
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;憤怒口上
;==================================================
@M_KOJO_EVENT_K139_29(ARG,ARG:1)
;口上主はTARGET
;ARGはTARGETの胆量で分岐
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;怒らせてしまった
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;泣かせてしまった　[膽怯]持ち
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;相手が推倒を解除
;==================================================
@M_KOJO_EVENT_K139_30(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲惫
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを被逆推た
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;一日の終了時(AFTERTRAニーの前)、面識がなければ呼び出されない
;==================================================
@M_KOJO_EVENT_K139_31(ARG,ARG:1)
;口上主はTARGET
;ARGは会ってない日数
;何日以上会ってなかったら愚痴を言うとかできます
;CFLAG:オナバレで分岐入れてもよさそう
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;告白特訓フラグのリセット
	IF CFLAG:1016 >= 2
		CFLAG:1016 = 1
	ENDIF

	;典の自慰サポート
	;禁自慰３日目以上かつ你が童貞、典の好感度500以上。恋人は不可
	IF CFLAG:1008 == 2 || CFLAG:1008 == 3 || TALENT:139:恋人 == 1
	ELSEIF FLAG:71 >= 3 && TALENT:MASTER:非童貞 == 0 && CFLAG:139:好感度 >= 500 && CFLAG:1008 != 2
		CALL K139_ONASAPO
	ENDIF

	;妊娠願望
	;龍が恋人で妊娠か出産経験済み、龍の愛情経験200以上。典が龍より先に恋慕を取得し、典が妊娠・出産しておらず、妊娠願望を取得していない
{
	IF TALENT:140:恋人 && (TALENT:140:妊娠 || EXP:140:出産経験 > 0)
	 && EXP:140:愛情経験 >= 200
	 && TALENT:恋慕 && CFLAG:1001 > 0
	 && !TALENT:妊娠願望
	 && EXP:139:出産経験 == 0
	 && !TALENT:妊娠
}
		CALL K139_PREG_WISH
	ENDIF

	;典とこっそり…
	;龍と典的家で你が就寝しており、龍が恋慕か恋人持ち、典の欲望が5以上で好感度が1000以上、二人とも非処女のとき発生
	;4.821現在まだ龍と典的家がないのでパッチ前提のイベントです
{
	IF ABL:欲望 >= 5 && CFLAG:139:好感度 >= 1000
	 && (TALENT:140:恋慕 || TALENT:140:恋人)
	 && !TALENT:140:処女 && !TALENT:139:処女
	 && (TALENT:MASTER:性別 == 2 || TALENT:MASTER:性別 == 3)
	 && (CFLAG:140:現在位置 == CFLAG:MASTER:現在位置) && (CFLAG:139:現在位置 == CFLAG:MASTER:現在位置) && CFLAG:MASTER:現在位置 == (CFLAG:140:初期位置 && CFLAG:139:初期位置)
}
		CALL K139_AFFAIR
	ENDIF

	;発情期。毎年冬の1～7日に必ず発情状態になる
	;秋之月31日に告知イベント
	IF DAY:2 == 3 && DAY:3 == 31
		IF CFLAG:1002 == 0
			TCVAR:139:発情 = 1
			CALL PRINT_FACE, [[典]], "発情", "服", "", ""
				PRINTFORML 「哈…又到了这个季节」
				PRINTFORML 典露出忧郁的表情
				PRINTW
				PRINTFORML 每年冬天的这个时候是发情期
				PRINTFORML 与意志无关、是身体想要迎接雄性
				PRINTW
				IF TALENT:処女 == 1
					PRINTFORML 不知是幸运还是不幸、至今还没有和异性有过这种关系…
				ENDIF
				PRINTFORML 思维会很迟钝、身体也会变得很不方便、有时会没法漂亮地完成主上的命令
				PRINTFORML 即便如此、还是会被主上夸奖道「做得很不错」…
				PRINTW
				IF TALENT:恋慕 || TALENT:恋人
					IF TALENT:妊娠願望
						PRINTFORML 不过、今年的情况和往年不一样
						PRINTFORML 典满脑子想的都是相爱的夫妇和孩子
						PRINTW
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下那边也是、之前说了要为了能一发受孕要開始禁欲呢…HPH」","L"
						CALL HPH_PRINT,@"「这时候、一定正在孕育浓厚的精虫吧…HPH」","L"
						CALL HPH_PRINT,@"「哈啊、光是想像一下腹部就開始发疼了…HPH」","L"
						PRINTW
						PRINTFORML 典一边想象着子宫被浓厚的种子灌注时的自己、一边带着一副心醉神迷的表情抚摸着自己的小腹
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、典、已经准备万全了…HPH」","L"
						CALL HPH_PRINT,@"「快点、来见我吧HPH　用你的精液、把我的子宫溺住HPH　%CALLNAME:MASTER%阁下…HPH」","L"
						PRINTW
					ELSE
						PRINTFORML 虽说如此、今年有自己深爱的%CALLNAME:MASTER%在
						PRINTFORML 应该能让这副发热滚烫的身躯平复下来吧
						PRINTW
						CALL HPH_PRINT,@"「啊啊…HPH　明明会被%CALLNAME:MASTER%阁下看到我这副下流的样子的…HPH」","L"
						CALL HPH_PRINT,@"「但好想快点缠绵…HPH　好想被精子、满满地注入…HPH」","L"
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下HPH　%CALLNAME:MASTER%阁下HPH　%CALLNAME:MASTER%阁下――HPH」","L"
						PRINTW
					ENDIF
				ELSEIF TALENT:愛欲 || TALENT:炮友
					PRINTFORML 往年都是自己一个人欲求不满地自慰、但如今有了方便的性处理的对象
					PRINTFORML 身体的相性也不坏。在欲火平息之前、多多和对方往来吧
					PRINTW
					PRINTFORML 「那么、这副麻烦身体的欲火、该如何是好呢…」
					CALL HPH_PRINT,@"「啊啊、有%CALLNAME:MASTER%阁下在呢…HPH」","L"
					CALL HPH_PRINT,@"「那个人的话、应该能让我的欲火平息…HPH」","L"
					PRINTW
				ELSE
					PRINTFORML 「真是讨厌啊。没法快点结束吗…」
					PRINTFORML 脸颊染得通红、典深深吸了一口气
					PRINTW
				ENDIF
			CFLAG:1002 = 1
		ELSE
			TCVAR:139:発情 = 1
			CALL PRINT_FACE, [[典]], "発情", "服", "", ""
			PRINTFORML 「哈啊…又到了啊」
			PRINTFORML 发情期的季节又一次到来了
			PRINTW
			IF TALENT:恋慕 || TALENT:恋人
				IF TALENT:妊娠願望
					PRINTFORML 不过、今年的情况和往年不一样
					PRINTFORML 典满脑子想的都是相爱的夫妇和孩子
					PRINTW
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下那边也是、之前说了要为了能一发受孕要開始禁欲呢…HPH」","L"
					CALL HPH_PRINT,@"「这时候、一定正在孕育浓厚的精虫吧…HPH」","L"
					CALL HPH_PRINT,@"「哈啊、光是想像一下腹部就開始发疼了…HPH」","L"
					PRINTW
					PRINTFORML 典一边想象着子宫被浓厚的种子灌注时的自己、一边带着一副心醉神迷的表情抚摸着自己的小腹
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、典、已经准备万全了…HPH」","L"
					IF CFLAG:MASTER:初期位置 == CFLAG:139:初期位置 && CFLAG:MASTER:現在位置 == CFLAG:139:現在位置
						PRINTFORML 典的眼眸盯着在身旁熟睡的%CALLNAME:MASTER%、就好像发现了完美的猎物一样…
					ELSEIF CFLAG:MASTER:初期位置 == CFLAG:139:初期位置
						CALL HPH_PRINT,@"「快点、回来吧HPH　用你的精液、把我的子宫溺住HPH　%CALLNAME:MASTER%阁下――…HPH」","L"
					ELSE
						CALL HPH_PRINT,@"「快点、来见我吧HPH　用你的精液、把我的子宫溺住HPH　%CALLNAME:MASTER%阁下――…HPH」","L"
					ENDIF
					PRINTW
				ELSE
					PRINTFORML 虽说如此、今年有自己深爱的%CALLNAME:MASTER%在
					PRINTFORML 应该能让这副发热滚烫的身躯平复下来吧
					PRINTW
					CALL HPH_PRINT,@"「啊啊…HPH　明明会被%CALLNAME:MASTER%阁下看到我这副下流的样子的…HPH」","L"
					CALL HPH_PRINT,@"「但好想快点缠绵…HPH　好想被精子、满满地注入…HPH」","L"
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下HPH　%CALLNAME:MASTER%阁下HPH　%CALLNAME:MASTER%阁下――HPH」","L"
					PRINTW
				ENDIF
			ELSEIF TALENT:愛欲 || TALENT:炮友
				PRINTFORML 往年都是自己一个人欲求不满地自慰、但如今有了方便的性处理的对象
				PRINTFORML 身体的相性也不坏。在欲火平息之前、多多和对方往来吧
				PRINTW
				PRINTFORML 「那么、这副麻烦身体的欲火、该如何是好呢…」
				CALL HPH_PRINT,@"「啊啊、有%CALLNAME:MASTER%阁下在呢…HPH」","L"
				CALL HPH_PRINT,@"「那个人的话、应该能让我的欲火平息…HPH」","L"
				PRINTW
			ELSE
				PRINTFORML 「真是讨厌啊。没法快点结束吗…」
				PRINTFORML 脸颊染得通红、典深深吸了一口气
				PRINTW
			ENDIF
		ENDIF
	ENDIF
	;冬之月7日の夜に終了告知
	IF (DAY:2 == 4 && DAY:3 == 7) && CFLAG:1002 == 1
		PRINTFORML 「哈啊、终于恢复了……」
		PRINTFORML 漫长的发情期结束、典长叹了一口气
		PRINTW
		PRINTFORML （虽然我并不讨厌这种事情、但在实际工作的时候会很影响呢……）
		SIF TALENT:恋人
			PRINTFORML （嘛、现在有%CALLNAME:MASTER%阁下在所以倒还好%UNICODE(0x2665) *1%）
		PRINTFORML 「好啦、明天開始就要好好工作了呢」
		PRINTW
	ENDIF
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;今日会っていない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG
		IF ARG == 124 && !RAND:2
			IF TALENT:恋人 || TALENT:恋慕
				PRINTFORML 「难不成…典已经被完全忘掉了吗」
				PRINTFORML 「%CALLNAME:MASTER%阁下、想见你…」
				IF TALENT:140:恋慕
					PRINTFORML （难不成、到饭纲丸大人那里去了吗…？）
					SIF CFLAG:1001 == 1
						PRINTFORML （明明、是我先喜欢上您的…）
				ELSE
					PRINTFORML （难不成、在不知道哪里的别的女人的哪里…？）
					PRINTFORML （虽然稍微的花心还是可以原谅的…但被这样放置着不管、可是关乎女人的尊严的啊）
					PRINTFORML （看来必须得找%CALLNAME:MASTER%阁下好好谈谈才行了）
					CFLAG:139:翌日来訪 = 1
				ENDIF
				PRINTW
			ELSE
				PRINTFORML 典貌似已经不在乎%CALLNAME:MASTER%的事情了
				CFLAG:139:好感度 -= 5
				IF CFLAG:139:好感度 < 0
					CFLAG:139:好感度 = 0
				ENDIF
			ENDIF
		ELSEIF ARG == 30
			IF TALENT:恋慕 || TALENT:恋人
				PRINTFORML 「哈啊…真的是、不像样」
				PRINTFORML 「只是一个月没见就会觉得这么的寂寞…」
				PRINTFORML 「想被%CALLNAME:MASTER%阁下给、抱在怀里…%UNICODE(0x2665) *1%」
				PRINTW
			ELSE
				PRINTFORML 「啊啊…说起来我完全忘记去查%CALLNAME:MASTER%的动向了」
				PRINTFORML 「…嘛啊、继续放着不管也没什么问题吧」
			ENDIF
		ELSEIF ARG == 10
			IF TALENT:恋慕 || TALENT:恋人
				PRINTFORML 「哈啊、我居然会因为数日见不到饭纲丸大人以外的人而心慌意乱…」
				PRINTFORML 「要是被以前的自己看到了肯定会被指着当笑柄的」
				PRINTW
			ELSE
				PRINTFORML 「啊啊…说起来我完全忘记去查%CALLNAME:MASTER%的动向了」
				PRINTFORML 「…嘛啊、继续放着不管也没什么问题吧」
				SIF MAIN_MAP != 8
				PRINTFORML 「最近、好像也不是住在妖怪之山以外的地方呢」
				PRINTW
			ENDIF
		ELSEIF ARG == 1
			IF TALENT:恋慕 || TALENT:恋人
				PRINTFORML 「虽然今日很忙碌、但还是想见您呢」
				PRINTW
			ELSE
				PRINTFORML 「说起来今天…没见到啊」
				PRINTFORML 「真是的、像断了线的风筝一样的人呢」
				PRINTW
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今日会っている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;自由行動中
;ARG:1      0=行動中,1=完了時
;技能系の行動は技能レベルが1以上なら発生
;==================================================
@M_KOJO_EVENT_K139_32(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
	CASE 0
		;▼考え事,（～は考えに耽っている。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 1
		;▼玩遊戲,（～は走り回っている。）
		;※[幼稚]持ちのみ
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 2
		;▼吃飯,（～は吃飯を摂っている。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 3
		;▼つまみ食い（～はこっそりつまみ食いをしている。）
		;※[妖精]持ちと露米亜、恋、幽幽子、紫苑のみ
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 4
		;▼掃除,（～はテキパキと部屋の掃除をしている。）
		;※[掃除係]持ちまたは汚臭耐性-1以下のみ
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 5
		;▼運動,（～は張り切って運動している。）
		;※[音楽知識]持ちは除く（演奏になる）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 6
		;▼読書,（～は黙々と本を読んでいる。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 7
		;▼料理,
		IF !ARG:1
			;行動中
			IF Activity_Duration:TARGET > 30
				;料理中（～は軽快に料理をしている。）
				PRINTFORML
			ELSE
				;吃飯中（～は作った料理を食べている。）
				PRINTFORML
			ENDIF
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 8
		;▼演奏
		;※[音楽知識]持ちのみ（TALENT:音楽知識で変化）
		;1,～は小気味よく演奏している。
		;2,～は気ままに歌っている。
		;3,～は華麗に踊っている。
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 9
		;▼採集,（～使える素材を探している。）
		IF !ARG:1
			;行動中
			SELECTCASE RAND:4
			CASE 0
				PRINTFORML 「我记得…在这一带…」
			CASE 1
				PRINTFORML 「嗯…这是…」
			CASE 2
				PRINTFORML 典仔细观察着采集物
			CASE 3
				PRINTFORML 「咦？　这个是…」
			ENDSELECT
			PRINTW
		ELSE
			;完了時
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「呼呼、我找到了好东西哦」
			CASE 1
				PRINTFORML 「对饭纲丸大人很有帮助呢」
			CASE 2
				PRINTFORML 「我马上带回去调制…」
			ENDSELECT
		ENDIF
	CASE 10
		;▼釣魚,（～はのんびり釣魚をしている。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 11
		;▼実験,（～は可疑実験をしている。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 12
		;▼のんびり,（～はのんびりしている。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 13
		;▼晩酌,（～はまったりと酒を飲んでいる。）
		;※酒耐性0以上のみ
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 14
		;▼買い物,（～は気ままに買い物している。）
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 15
		;▼説教,（～はじっと聞いている…）
		;※神霊・蓬莱人は除く
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時
			PRINTFORML
		ENDIF
	CASE 16
		;▼落とし穴,（～は落とし穴を増やしている）
		;※三月精・琪露諾・克勞恩皮絲のみ
		;それ以外は落ちる側
		IF !ARG:1
			;行動中
			PRINTFORML
		ELSE
			;完了時,
			;（仕掛け人（失敗時）,誰も引っかからないので～は飽きてしまったようだ…）
			;（落ちた側（戦闘能力2～4）,～はすぐに穴から飛び出して周りをキョロキョロ見回している…）
			PRINTFORML
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;ハッピーニューイヤー
;年越しの瞬間に同じ部屋に居ると発生
;==================================================
@M_KOJO_EVENT_K139_33(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTFORML 「祝你新年快乐、%CALLNAME:MASTER%阁下」
	PRINTFORML 「今年也请多多关照」
	PRINTW
	IF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行
		PRINTFORML 「好的、典姐姐现在要给你压岁钱♪」
		PRINTFORML 从典手中接过了红包
		PRINTW
		PRINTFORML 「不过、因为%CALLNAME:MASTER%阁下还是个孩子、所以数额也不是很大」
		PRINTFORML 「考虑到金钱的价值、有效地使用吧」
		PRINTFORML 「推荐用这些钱请姐姐吃好吃的东西哦♪」
		PRINTW
		PRINTFORML %CALLNAME:MASTER%得到了\\{MAX(RAND:3000, 500)}
		MONEY += MAX(RAND:3000, 500)
	ELSE
		IF TALENT:恋慕 || TALENT:恋人
			IF TALENT:妊娠願望
				PRINTFORML 「俗话说、一年之计在于元旦。%CALLNAME:MASTER%阁下也来给自己制定个目标吧」
				CALL HPH_PRINT,@"「比如说…『子孙繁荣』之类的…HPH」","L"
				PRINTFORML 典轻轻抚摸着%CALLNAME:MASTER%的股间
				PRINTW
			ELSE
				IF (TCVAR:発情 || CFLAG:TARGET:积攒度 >= 500) && !TALENT:処女
					PRINTFORML 「俗话说、一年之计在于元旦。%CALLNAME:MASTER%阁下也来给自己制定个目标吧」
					PRINTFORML 「你问我吗？　我的话…实际上我已经想好了」
					PRINTW
					PRINTFORML 嘭的一声、典骑在了%CALLNAME:MASTER%上面
					SETCOLOR 0xFF69B4
					CALL HPH_PRINT,@"「想和%CALLNAME:MASTER%阁下造孩子…HPH」","L"
					CALL HPH_PRINT,@"「如果、是啊…%CALLNAME:MASTER%阁下不讨厌的话…HPH」","L"
					CALL HPH_PRINT,@"「能给\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐 # 典 \@一个孩子吗…HPH」","L"
					PRINTW
					PRINTFORML 典似乎怀有[妊娠願望]的愿望…
					PRINTW
					TALENT:妊娠願望 = 1
				ELSE
					PRINTFORML 「和喜欢的人一起度过新年、感觉也很不错啊」
					PRINTFORML 「呼呼、今天我们俩一起熬夜吧♪」
					PRINTW
				ENDIF
			ENDIF
		ELSE
			PRINTFORML 「新年伊始要做的事是～？」
			CALL ASK_M("睡觉", 1,"听听除夕夜的钟声", 1,"初诣", 1,"房事", CFLAG:既成事實 & 合意_诶嘿嘿 && BASE:139:情緒 >= MAXBASE:139:情緒 / 2)
			SELECTCASE RESULT
			CASE 0
				PRINTFORML 「欸欸欸～～听起来好无聊啊」
				PRINTFORML 「还是说～、是另一个意思的『睡觉』呢…%UNICODE(0x2665) *1%　……已经睡了吗ー！」
			CASE 1
				PRINTFORML 「嗯、偶尔这样消遣一下也不错啊」
			CASE 2
				PRINTFORML 「啊、我想在路边摊吃章鱼烧」
				PRINTFORML 「博丽和守矢的话、哪个地方的路边摊更加充实呢」
			CASE 3
				PRINTFORML 「哎呀、我被推倒了♪」
				PRINTFORML 「对于我这个纤弱的管狐来说、根本无法挣脱呢…%UNICODE(0x2665) *1%」
				CALL ASK_YN("把手伸向典的身体","还是放弃了吧")
				IF !RESULT
					CALL HPH_PRINT,@"「………………HPH」","L"
					PRINTW
					CALL 抱き寄せ(139)
				ELSE
					PRINTFORML 「啊、真的要放弃吗？」
					PRINTFORML 「嘛ー。真的很不可思议啊、都到这个地步了却到此为止了、ヘタレもいいところじゃないですか」
					IF TALENT:MASTER:性別 == 2
						CALL HPH_PRINT,@"「杂鱼HPH阳痿HPH真是糟蹋了HPH半途而废HPH没有毅力HPH」","L"
						PRINTFORML 「啊对不起我会道歉的所有不要把跳蛋塞进耳朵里叩哦哦哦哦嗯！」
					ENDIF
				ENDIF
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;技能レベルアップ
;各ABL値はレベルアップ後の値になってます
;==================================================
@M_KOJO_EVENT_K139_34(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
	CASE 1
		;戦闘技能
		SELECTCASE ABL:戦闘能力
		CASE 6
			IF ABL:MASTER:戦闘能力 >= 6
				PRINTFORML 「这就是…%CALLNAME:MASTER%阁下所看到的景色吗…」
			;あり得るのかな、これ
			ELSEIF ABL:MASTER:戦闘能力 <= 5
				PRINTFORML 「这就是%CALLNAME:MASTER%阁下与饭纲丸大人都无法到达的景色吗…」
			ENDIF
				PRINTFORML 「…要说有什么变化、也没感觉有什么变化。尾巴也没有增加」
				PRINTW
				PRINTFORML 「全身也没有变成那种大块头…要是那样的话我可就不愿意了」
				PRINTFORML 「但是、实战中弹幕的威力、练度、展開量都相差悬殊」
				PRINTFORML 「这样的话、不再需要暗中行动、完全可以只靠实力…」
				PRINTW
				PRINTFORML 「…糟了。这可不像是我的风格」
				PRINTFORML 「不管是强还是弱、我的武器一直以来都是口才」
				PRINTFORML 「而且、如果什么都一味依靠力量的话、很多有趣的事情不就看不到了吗♪」
		CASE 5
			PRINTFORML 「不知何时…我拥有了可以与鬼和神匹敌的力量」
			PRINTFORML 「反而觉得很害怕。要小心不要被奇怪的力量左右、也要担心会不会被巫女退治」
			PRINTFORML 「不过话说回来、既然有了这么大的力量、那我也可以使用『饭纲权现降临』了吧」
		CASE 4
			PRINTFORML 「这样的话、我就可以保护饭纲丸大人了」
			PRINTFORML 「虽然说她很重视我、但我如果一直这么弱小的话也不太好吧」
			PRINTFORML 「不过、虽说变强了、但不擅长的事情依旧不擅长、所以想极力避免粗暴的事…」
			PRINTW
		CASE 3
			PRINTFORML 「我也变得相当强大了呢」
			PRINTFORML 「%CALLNAME:MASTER%阁下果然是个很好的特训对象」
			IF ABL:MASTER:戦闘能力 >= 6
				PRINTFORML 「不过、他的力量也仍是望尘莫及的…」
				SIF TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行
					PRINTFORML 「真是的…真是个可怕的孩子」
				PRINTW
			ELSEIF ABL:MASTER:戦闘能力 <= 2
				PRINTFORML 「意外的是、教别人对提高自己的能力也很有效率」
				PRINTW
			ENDIF
		ENDSELECT
	CASE 2
		;話術技能
		PRINTFORML 「哼、统治世界的既不是力量、也不是金钱。而是情报」
		PRINTW
	CASE 3
		;清掃技能
		IF TALENT:恋慕 || TALENT:恋人
			PRINTFORML 「嘸嘸嘸、通过展示自己的家务能力、应该就能越来越俘获%CALLNAME:MASTER%阁下的心吧♪」
		ELSE
			PRINTFORML 「饭纲丸大人的身边必须时常保持干净。必须好好收纳和整理」
		ENDIF
		PRINTW
	CASE 4
		;教養
		PRINTFORMW
	CASE 5
		;料理技能
		IF TALENT:恋慕 || TALENT:恋人
			PRINTFORML 「嘸嘸、我要抓住%CALLNAME:MASTER%阁下的胃ー♪」
			PRINTFORML 「顺便把我開发的、『勃起三天三夜都不会停止的药』偷偷加进去试试吧♪」
		ELSE
			PRINTFORML 「掌控饮食者掌控世界、这是谁说的来着」
			PRINTFORML 「嗯、人类这种生物是愚蠢的种族、会因为调味料和嗜好而互相残杀」
			PRINTFORML 「能做出让人着迷的料理、这也是有帮助的吧」
		ENDIF
		PRINTW
	CASE 6
		;採集Lv
		PRINTFORML 「果然、比起在书本上灌输各种知识、还是现场考究更能记住东西」
	CASE 7
		IF ARG:1 == 0
			;音楽技能
			PRINTFORMW
		ELSEIF ARG:1 == 1
			;【音楽知識】取得
			PRINTFORMW
		ELSEIF ARG:1 == 2
			;【相対音感】取得
			PRINTFORMW
		ENDIF
	CASE 8
		;釣魚Lv
		PRINTFORMW
	CASE 9
		IF ARG:1 == 0
			;調合Lv
			PRINTFORMW
		ELSEIF ARG:1 == 1
			;【調合知識】取得
			PRINTFORMW
		ENDIF
	CASE 10
		;伐採Lv
		PRINTFORMW
	CASE 11
		IF ARG:1 == 0
			;指
			PRINTFORMW
		ELSEIF ARG:1 == 1
			;【靈活手指】取得
			PRINTFORMW
		ENDIF
	CASE 12
		IF ARG:1 == 0
			;舌
			PRINTFORMW
		ELSEIF ARG:1 == 1
			;【舌頭靈活】取得
			PRINTFORMW
		ENDIF
	CASE 13
		IF ARG:1 == 0
			;胸
			PRINTFORMW
		ELSEIF ARG:1 == 1
			;【淫乳】取得
			PRINTFORMW
		ENDIF
	CASE 14
		;腰
		PRINTFORMW
	CASE 15
		IF ARG:1 == 0
			;膣
			PRINTFORMW
		ELSEIF ARG:1 == 1
			;【淫壺】取得
			PRINTFORMW
		ENDIF
	CASE 16
		IF ARG:1 == 0
			;肛門
			PRINTFORMW
		ELSEIF ARG:1 == 1
			;【尻穴狂】取得
			PRINTFORMW
		ENDIF
	ENDSELECT
	PRINTL
ENDIF
RETURN 1

;==================================================
;デイリーイベント2,夢精
;親密5以上で発生（来訪キャラのみ）
;▼地の文--------------------------------------------------
;【MASTER】が夢精で汚した内衣を洗っていると【TARGET】が飛んできた！
;【TARGET】はそんなもの他の洗濯物と一緒に洗わないでと抗議すると、【MASTER】の手に収まった内衣を粪だくり戻っていった…
;【TARGET】　欲情の珠＋1000
;==================================================
@M_KOJO_DAILY_EVENT_K139_2(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;地の文を変えたければコメントアウト
;※コメントアウトすると欲情の珠＋1000（JUEL:11 += 1000）もカットされるので注意
CALL DAILY_MESSAGE_2(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	IF TALENT:恋慕 || TALENT:恋人
		PRINTFORML 「喂、那种东西和其他要洗的衣服放在一起会传染污渍吧」
		PRINTFORML 「请借给我。啊、我不打算还的哦。再见」
		PRINTW
		PRINTFORML ……
		PRINTFORML …………
		PRINTW
		CALL PRINT_FACE, [[典]], "発情", "服", "", ""
		CALL HPH_PRINT,@"「是精液HPH　%CALLNAME:MASTER%的精液的味道HPH」","L"
		CALL HPH_PRINT,@"「啊啊、不好HPH　身体深处现在一抽一抽的啦HPH」","L"
		CALL HPH_PRINT,@"「嘶ー哈ーHPH　嘶ー哈ーHPH　脑袋HPH　要变笨了啊HPH」","L"
		PRINTW
		PRINTFORML 典把鼻尖抵在脏内裤上、享受着浓重的精液臭味…
		PRINTFORML 无意识间、空着的手伸向了股间…
		PRINTW
	ELSE
		PRINTFORML 「真是的、希望可以不要把这么脏的东西和其他的衣服放一起呢」
		PRINTFORML 「总而言之现在就把它处分掉吧。不接受异议」
		PRINTW
		PRINTFORML ……
		PRINTFORML …………
		PRINTW
		CALL PRINT_FACE, [[典]], "発情", "服", "", ""
		CALL HPH_PRINT,@"「啊啊HPH　不好HPH　浓厚的精液的味道…HPH」","L"
		CALL HPH_PRINT,@"「真是、臭呢…HPH　啊啊、好臭…HPH」","L"
		PRINTW
		PRINTFORML 典正在独自享受%CALLNAME:MASTER%的内衣的味道
		PRINTFORML 与说的话相反、表情非常的陶醉…
		PRINTW
	ENDIF
ENDIF
RETURN 1

;==================================================
;デイリーイベント4,物思い
;濃厚精液状態で発生
;▼地の文--------------------------------------------------
;とりとめもない思考に耽っていた【TARGET】は、いつの間にか【MASTER】のことを考えていたことに気づいた
;【TARGET】は明日【MASTER】に会いに行くことにしたようだ
;==================================================
@M_KOJO_DAILY_EVENT_K139_4(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;地の文を変えたければコメントアウト
CALL DAILY_MESSAGE_4(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	IF TALENT:恋慕 || TALENT:恋人
		IF TALENT:妊娠願望
			CALL PRINT_FACE, [[典]], "通常", "裸", "", "照れ"
			PRINTFORML （……下腹部总觉得疼……）
			PRINTFORML 「……明天要去见%CALLNAME:MASTER%吗」
			PRINTW
			PRINTFORML 「我觉得这次一定能『中标』。因为我的鼻子很灵呢」
			PRINTFORML 典微微一笑、沉浸在如何诱惑%CALLNAME:MASTER%的妄想中…
			PRINTW
		ELSE
			CALL PRINT_FACE, [[典]], "笑顔", "服", "", ""
			PRINTFORML 「……明天要去见%CALLNAME:MASTER%吗」
			PRINTFORML 「呼呼、如果我主动去的话、%CALLNAME:MASTER%一定会很開心的♪」
			PRINTW
		ENDIF
	ELSE
		CALL PRINT_FACE, [[典]], "通常", "服", "", ""
		PRINTFORML 「……明天要去见%CALLNAME:MASTER%吗」
		PRINTW
	ENDIF
ENDIF
RETURN 1

;==================================================
;デイリーイベント12,特訓
;信頼100以上で発生（拠点キャラのみ）
;==================================================
@M_KOJO_DAILY_EVENT_K139_12(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;地の文を変えたければコメントアウト
;コメントアウトできるのはARG:1=1,2のみです
CALL DAILY_MESSAGE_12(ARG, ARG:1, ARG:2, ARG:3, ARG:4, ARGS:1, ARGS:2)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG:1
	CASE 1
		;特訓を頼まれる
		;～から新技の訓練に付き合って欲しいと言われた
		IF TALENT:恋慕 || TALENT:恋人
		ELSE
			PRINTFORML 「%CALLNAME:MASTER%阁下、拜托你了…」
			PRINTFORML 「本来就不怎么擅长战斗。多少能领会一些吧」
			PRINTW
			PRINTFORML 「能委托这种事的、就只有%CALLNAME:MASTER%阁下一个人哦…♪」
			PRINTW
		ENDIF
	CASE 2
		;拒绝
		;～は残念そうだ
		IF TALENT:恋慕 || TALENT:恋人
			IF TALENT:恋人
				PRINTFORML 「拒绝恋人的请求、真是个冷酷的人啊…」
				PRINTFORML 「好了好了、饭纲丸大人会陪我特训的」
				PRINTW
			ELSE
				PRINTFORML 「哎呀、真倒霉…」
				IF TALENT:MASTER:恋人
					PRINTFORML 「你是会拒绝恋人以外的邀请的类型吗？」
					IF TALENT:140:恋人
						PRINTFORML 「还是说、是对饭纲丸大人的忠诚行径吗？」
					ENDIF
					PRINTFORML 「性方面的事都还好说、这种程度还希望您能同意一下的说…」
					PRINTFORML 「啊、还是说、性方面的话就可以同意了呢…♪」
					PRINTW
				ENDIF
			ENDIF
		ELSE
			PRINTFORML 「原来是这样啊…那么、下次有机会的话」
			PRINTFORML （本想一探究竟…真遗憾啊）
			PRINTW
		ENDIF
	CASE 3
		;～の攻撃！
		;※ここはWAITしないでください
		PRINTFORML 「那么、我上了…」
	CASE 4
		IF ARG:2
			;時間停止して回避
			PRINTFORML 「这…到底是怎么做到的？」
			PRINTW
		ELSE
			;回避成功
			IF TALENT:恋慕 || TALENT:恋人
				PRINTFORML 「我相信%CALLNAME:MASTER%会完美避開的♪」
				PRINTW
			ELSE
				PRINTFORML 「嗯…看来弹幕的构筑还是太掉以轻心了」
				PRINTFORML 「还有改进的余地…」
				PRINTW
			ENDIF
		ENDIF
	CASE 5
		;回避失敗
		IF TALENT:恋慕 || TALENT:恋人
			PRINTFORML 「哎呀呀、没想到竟然打中了呢…」
			PRINTW
		ELSE
			PRINTFORML 「哎呀呀、真是太糟糕了…♪」
			PRINTW
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

[SKIPSTART]
;-------------------------------------------------
;オナバレ遭遇時の地の文をデフォルトのものから変更したい場合用。
;その場合は上下のSKIPSTART~SKIPENDを外してください。
;CFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります。
;-------------------------------------------------
@M_KOJO_EVENT_K139_ONABARE_1(ARG)
;-------------------------------------------------
:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K139

IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレでそのまま続けてもらう場合の地の文をデフォルトのものから変更したい場合用。
;その場合は上下のSKIPSTART~SKIPENDを外してください。
;CFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります。
;-------------------------------------------------
@M_KOJO_EVENT_K139_ONABARE_2(ARG)
;-------------------------------------------------
:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K139

IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレ無崩しックスの地の文をデフォルトのものから変更したい場合用。
;その場合は上下のSKIPSTART~SKIPENDを外してください。
;CFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります。
;-------------------------------------------------
@M_KOJO_EVENT_K139_ONABARE_3(前戯１,本番はどっちか,回数,注入量)
;-------------------------------------------------
#DIM 前戯１
;1=C 2=B 3=M
#DIM 本番はどっちか
;0でＶ、1でＡ
#DIM 注入量
#DIM 回数

:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K139

SELECTCASE 前戯１
	CASE 1
		PRINTFORML Ｃ責め
	CASE 2
		PRINTFORML Ｂ責め
	CASE 3
		PRINTFORML Ｍ責め
ENDSELECT

IF 本番はどっちか
	PRINTFORML Aで本番
ELSE
	PRINTFORML Vで本番
ENDIF
;-------------------------------------------------
[SKIPEND]

;-------------------------------------------------
;処女・無自覚非処女に挿入する直前の口上
;RETURN 1すると指令を中止します
;RETURN 0なら通します
;CFLAG:破瓜中止口上有がオンになってないと読み込まれないので注意
;-------------------------------------------------
@M_KOJO_EVENT_K139_LOST_VIRGIN_STOP
;-------------------------------------------------
PRINTFORML
RETURN 1

;-------------------------------------------------
;CFLAG:口上内抱き寄せ判定_初回がオンになっている場合のみ有効。
;初めて推倒た時、ここでRETURN -1すると推倒を強制的に中止します。
;RETURN 0なら通常の判定を行い、RETURN 1すると無条件に成功させます。
;特定のイベント（约会帰り接吻など）を見るまで诶嘿嘿できないようにしたいときなどにどうぞ。
;-------------------------------------------------
@M_KOJO_EVENT_K139_PERMISSION_1
;-------------------------------------------------
PRINTFORML
;RETURN -1
RETURN 0
;RETURN 1
;-------------------------------------------------

;-------------------------------------------------
;CFLAG:口上内抱き寄せ判定_通常がオンになっている場合のみ有効。
;合意付きで推倒た時、ここでRETURN -1すると推倒を強制的に中止します。
;RETURN 0なら通常街道成功させます。
;合意があっても何らかの理由で诶嘿嘿できないようにしたいときなどにどうぞ。
;-------------------------------------------------
@M_KOJO_EVENT_K139_PERMISSION_2
;-------------------------------------------------
PRINTFORML
RETURN 0
;RETURN -1
;-------------------------------------------------

;-------------------------------------------------
;部屋描写用関数
;口上キャラのOMANEKIBEYAか拠点の描写に使います
;記入する際はコメントアウトを外してください
;-------------------------------------------------
;@K139_ROOM_DESCRIPTION
;PRINTFORML 例）生活感のない殺風景な部屋だ
;-------------------------------------------------
;==================================================
;贈り物イベント
;==================================================
@M_KOJO_EVENT_K139_GIFT(ARG, GIFT_ID, 評価点, GIFT_NAME, SENSE)
#DIM GIFT_ID
#DIM 評価点
#DIMS GIFT_NAME
#DIMS SENSE
;---------------------------------------------------------------------------------------------------
;評価点       贈り物の評価点（1～999）,口上主があげた場合でも口上主の評価点
;GIFT_NAME    贈り物の名称
;SENSE        贈り物に設定された属性。STRCOUNT(DISH_TASTE, "ほげほげ/")を使うと特定の属性を判定できます。
;GIFT_ID      これ単体では使いません。以下の式内関数を使うとデータを抽出できます（こだわりたい人用）
;　GET_GIFTDATA(GIFT_ID, "回数")    貰った（あげた）回数
;　GET_GIFTDATA(GIFT_ID, "得分")    得点（1～999）,口上テンプレ内では用意されてます。
;　GET_GIFTDATA(GIFT_ID, "日期")    貰った（あげた）日期（1～9999）
;　GET_GIFTDATA(GIFT_ID, "場所")    買った場所（约会の行き先）
;　GET_GIFTDATA(GIFT_ID, "形容詞")  形容詞番号（イベント関連/贈り物関連/贈り物_形容詞.erb参照）
;　GET_GIFTDATA(GIFT_ID, "本体")    本体番号（イベント関連/贈り物関連/贈り物_本体.erb参照）
;--------------------------------------------------------------------------------------------------
;约会帰りに口上主が你に贈り物を渡す（陥落や好感度に関わらず親密5以上から発生）
;評価点は701～999（渡すキャラ本人の評価）
;--------------------------------------------------------------------------------------------------
IF ARG == 1
	PRINTFORML 「这个、请收下。感谢您平日里对我这么好♪」
	PRINTFORML 典将%GIFT_NAME%递过来
	PRINTW
	PRINTFORML 「我只告诉你一个人、我向别人赠送礼物什么的、只对%CALLNAME:MASTER%送过哟」
	PRINTFORML 「请好好使用」
	PRINTW
	IF TALENT:恋慕 || TALENT:恋人
		PRINTFORML 「啊啊、你肯定以为我在撒谎」
		PRINTFORML 「事到如今、就算对%CALLNAME:MASTER%说谎也无济于事了、你应该也知道吧…」
		PRINTW
		CALL ASK_YN("我当然知道","龙呢？")
		IF !RESULT
			PRINTFORML 「真是个坏心眼的人…」
			PRINTFORML 「这样的话、今后不请我吃很多美味的食物的话可就划不来了哦」
			PRINTW
		ELSE
			PRINTFORML 「那位大人…另当别论」
			PRINTFORML 「就算都是喜欢方向性也是不一样的哟。这方面…还请原谅唷」
			PRINTW
		ENDIF
	ELSEIF TALENT:思慕
		PRINTFORML （呵呵、好像很高兴）
		PRINTFORML （送这么便宜的东西就能提高好感度、真是太好了）
		PRINTFORML （…………嘛、你这么高兴我倒也觉得不坏）
		PRINTW
	ELSE
		PRINTFORML （呵呵、好像很高兴）
		PRINTFORML （送这么便宜的东西就能提高好感度、真是太好了）
		PRINTW
	ENDIF
	;PRINTFORMW 「这个%GIFT_NAME%送给你了、请好好使用吧」
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日获得的礼物を大事にする（700点以上）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 2
	;好きな嗜好
	IF STRCOUNT(SENSE, "高級/白/混沌/可爱/简约/別緻/知的/")
		IF TALENT:恋慕 || TALENT:恋人
			;評価としては恐らく最高になる組み合わせ
			IF STRCOUNT(GIFT_NAME, "(純白の/キツネの/药瓶/)")
				PRINTFORML 「…………」
				PRINTFORML 典不厌其烦地看着%CALLNAME:MASTER%赠送的礼物
				PRINTW
				PRINTFORML 「…………嘸嘸、嘸呼呼呼呼～♪」
				PRINTFORML 典的耳朵picopico地摇晃着、尾巴啪嗒啪嗒地左右摇晃
				PRINTW
				PRINTFORML 「那家伙在想什么呢」
				PRINTFORML 「收到这种礼物、我会一直忍不住笑下去的啊」
				PRINTW
				;龍が恋人
				IF TALENT:140:恋人
					PRINTFORML 「明明是饭纲丸大人的恋人…连我也…真是个笨蛋啊」
					PRINTFORML 「为什么会喜欢上那样的家伙呢」
					PRINTW
					PRINTFORMW 典原本幸福的表情、一想到敬爱的主人就瞬间阴郁起来
					PRINTFORML 「不过、那个是那个、这个是这个、对吧ー♪」
					PRINTFORML 「让有女朋友的人进贡、我真是个充满罪孽的女人啊…♪」
					PRINTW
					PRINTFORML 「虽然不想让他们分手、但有点想看看饭纲丸大人面带愁容的样子…♪」
					CALL HPH_PRINT,@"「一想到她会是什么表情、心里就扑通扑通地跳呢…HPH」","L"
					PRINTW
					PRINTFORML 「嘛ー、嗯、不过」
					PRINTFORML 「要不要给饭纲丸大人送点更有创意的东西呢ー」
					PRINTW
				;龍が恋慕持ち
				ELSEIF TALENT:140:恋慕
					IF TALENT:恋人
						PRINTFORML 「我才是真正的恋人、应该没有什么好愧疚的…」
						PRINTFORML 「饭纲丸大人、对不起……」
						PRINTW
						PRINTFORMW 典原本幸福的表情、一想到敬爱的主人就瞬间阴郁起来
						PRINTFORML 「不过、那个是那个、这个是这个、对吧ー♪」
						PRINTFORML 「恋爱是近水楼台者胜、只有这点是不受主从关系影响的♪」
						PRINTW
					ELSE
						PRINTFORML 「但是…没想到会喜欢上同一个人……」
						PRINTFORML 「明明很幸福、心里却很难过……」
						PRINTW
						PRINTFORMW 典原本幸福的表情、一想到敬爱的主人就瞬间阴郁起来
						PRINTFORML 「不过、那个是那个、这个是这个、对吧ー♪」
						PRINTFORML 「是我的魅力使然、没办法啊！」
						PRINTW
					ENDIF
				;典でない恋人がいる
				ELSEIF TALENT:MASTER:恋人 && !TALENT:139:恋人
					PRINTFORML 「明明都有本命了、%CALLNAME:MASTER%真是个罪人啊」
					PRINTFORML 「嘛、我的心胸宽广、这点我可以原谅♪」
					PRINTW
					PRINTFORML 「在恋人面前展示一下、会不会很有趣呢？」
					PRINTFORML 「还是在她的耳边悄悄说『我收到了这么好的礼物』呢？」
					PRINTW
				;龍と典自身以外に恋慕持ちがいる
				ELSEIF CMATCH(TALENT:恋慕, 1) > 1
					PRINTFORML 「明明就是个色狼、却能注意到这种事…%UNICODE(0x2665) *1%」
					PRINTW
				;典のみ恋慕持ち
				ELSE
					IF TALENT:139:恋人
						IF FLAG:甲斐性無
							PRINTFORML 「虽然很没出息、但却能做好这种事情…%UNICODE(0x2665) *1%」
							PRINTW
						ENDIF
						PRINTFORML 「你这不是很清楚我是你的恋人嘛%UNICODE(0x2665) *1%」
						PRINTFORML 「今后、要不要再稍微娇惯他一些呢…%UNICODE(0x2665) *1%」
						PRINTW
						PRINTW
					ELSE
						PRINTFORML 「难道只对我一个人送了礼物吗」
						PRINTFORML 「…………」
						PRINTFORML 「那真是太好了……%UNICODE(0x2665) *1%」
					ENDIF
				ENDIF
			;最高の組み合わせではないが高評価
			ELSE
				PRINTFORML 「…………」
				PRINTFORML 典不厌其烦地看着%CALLNAME:MASTER%赠送的礼物
				PRINTW
				PRINTFORML 「真是的～、居然给我送礼物、%CALLNAME:MASTER%、真是太喜欢我了呢%UNICODE(0x2665) *1%」
				PRINTFORML 「我一高兴就会害羞。真是、笨拙呢♪」
				PRINTW
				;龍が恋人
				IF TALENT:140:恋人
					PRINTFORML 「明明是饭纲丸大人的恋人…连我也…真是个笨蛋啊」
					PRINTFORML 「为什么会喜欢上那样的家伙呢」
					PRINTW
					PRINTFORMW 典原本幸福的表情、一想到敬爱的主人就瞬间阴郁起来
					PRINTFORML 「不过、那个是那个、这个是这个、对吧ー♪」
					PRINTFORML 「让有女朋友的人进贡、我真是个充满罪孽的女人啊…♪」
					PRINTW
					PRINTFORML 「虽然不想让他们分手、但有点想看看饭纲丸大人面带愁容的样子…♪」
					CALL HPH_PRINT,@"「一想到她会是什么表情、心里就扑通扑通地跳呢…HPH」","L"
					PRINTW
					PRINTFORML 「嘛ー、嗯、不过」
					PRINTFORML 「要不要给饭纲丸大人送点更有创意的东西呢ー」
					PRINTW
				;龍が恋慕持ち
				ELSEIF TALENT:140:恋慕
					IF TALENT:恋人
						PRINTFORML 「我才是真正的恋人、应该没有什么好愧疚的…」
						PRINTFORML 「饭纲丸大人、对不起……」
						PRINTW
						PRINTFORMW 典原本幸福的表情、一想到敬爱的主人就瞬间阴郁起来
						PRINTFORML 「不过、那个是那个、这个是这个、对吧ー♪」
						PRINTFORML 「恋爱是近水楼台者胜、只有这点是不受主从关系影响的♪」
						PRINTW
					ELSE
						PRINTFORML 「但是…没想到会喜欢上同一个人……」
						PRINTFORML 「明明很幸福、心里却很难过……」
						PRINTW
						PRINTFORMW 典原本幸福的表情、一想到敬爱的主人就瞬间阴郁起来
						PRINTFORML 「不过、那个是那个、这个是这个、对吧ー♪」
						PRINTFORML 「是我的魅力使然、没办法啊！」
						PRINTW
					ENDIF
				;龍意外に恋慕持ちがいる
				ELSEIF CMATCH(TALENT:恋慕, 1) > 2
					PRINTFORML 「明明就是个色狼、却能注意到这种事」
					PRINTW
				;典のみ恋慕持ち
				ELSE
					IF TALENT:139:恋人
						IF FLAG:甲斐性無
							PRINTFORML 「虽然很没出息、但却能做好这种事情…%UNICODE(0x2665) *1%」
							PRINTW
						ENDIF
						PRINTFORML 「虽然不能满分一百分、但至少可以给90分♪」
						PRINTFORML 「这个要装饰在哪里呢ー」
						PRINTW
					ELSE
						PRINTFORML 「难道说、那家伙只对我一个人送了礼物吗？」
						PRINTFORML 「不对不对、我难道是被迷住了吗。他应该也给其他女人送过礼物吧」
						PRINTW
						PRINTFORMW 「…………嘛」
						PRINTFORML 「如果真的只有我一个人的话、那就再稍微温柔一些吧」
						PRINTW
					ENDIF
				ENDIF
			ENDIF
		ELSEIF TALENT:思慕
			PRINTFORML 「…………」
			PRINTFORML 典不厌其烦地看着%CALLNAME:MASTER%赠送的礼物
			PRINTW
			PRINTFORML 「…………嘸呼♪　嘸呼呼……哈！？」
			PRINTFORML 「有什么好高兴的。因为得到了我想要的%GIFT_NAME%」
			PRINTW
			PRINTFORML 「不过、那家伙只是在利用我而已吧」
			PRINTFORML 「这个也赶紧拿去典当成钱吧……」
			PRINTW
			PRINTFORMW 「………………」
			PRINTFORML 「…………算了、我先把它留在身边几天吧」
			PRINTW
			PRINTFORML 但是典没有注意到
			PRINTFORML 自己的尾巴正在愉快地摇晃着
			PRINTW
		ELSE
			PRINTFORML 「…………」
			PRINTFORML 典不厌其烦地看着%CALLNAME:MASTER%赠送的礼物
			PRINTW
			PRINTFORML 「嘸嘸嘸、那家伙还真是、我只是装作夸张地高兴了一下、就露出一副色迷迷的表情」
			PRINTFORML 「真是个容易对付的家伙。帮了大忙了」
			PRINTW
			PRINTFORML 但是典没有注意到
			PRINTFORML 自己的尾巴正在愉快地摇晃着
			PRINTW
		ENDIF
	;好きな嗜好が含まれていないが高評価（出るのか？）
	ELSE
		IF TALENT:恋慕 || TALENT:恋人
			PRINTFORML 「…………♪」
			PRINTFORML 典不厌其烦地看着%CALLNAME:MASTER%赠送的礼物
			PRINTFORML 尾巴啪嗒啪嗒地摇晃着、如实地表达了典的内心
			PRINTW
			;龍が恋人
			IF TALENT:140:恋人
				PRINTFORML 「明明是饭纲丸大人的恋人…连我也…真是个笨蛋啊」
				PRINTFORML 「为什么会喜欢上那样的家伙呢」
				PRINTW
				PRINTFORMW 典原本幸福的表情、一想到敬爱的主人就瞬间阴郁起来
				PRINTFORML 「不过、那个是那个、这个是这个、对吧ー♪」
				PRINTFORML 「让有女朋友的人进贡、我真是个充满罪孽的女人啊…♪」
				PRINTW
				PRINTFORML 「虽然不想让他们分手、但有点想看看饭纲丸大人面带愁容的样子…♪」
				CALL HPH_PRINT,@"「一想到她会是什么表情、心里就扑通扑通地跳呢…HPH」","L"
				PRINTW
				PRINTFORML 「嘛ー、嗯、不过」
				PRINTFORML 「要不要给饭纲丸大人送点更有创意的东西呢ー」
				PRINTW
			;龍が恋慕持ち
			ELSEIF TALENT:140:恋慕
				IF TALENT:139:恋人
					PRINTFORML 「我才是真正的恋人、应该没有什么好愧疚的…」
					PRINTFORML 「饭纲丸大人、对不起……」
					PRINTW
					PRINTFORMW 典原本幸福的表情、一想到敬爱的主人就瞬间阴郁起来
					PRINTFORML 「不过、那个是那个、这个是这个、对吧ー♪」
					PRINTFORML 「恋爱是近水楼台者胜、只有这点是不受主从关系影响的♪」
					PRINTW
				ELSE
					PRINTFORML 「但是…没想到会喜欢上同一个人……」
					PRINTFORML 「明明很幸福、心里却很难过……」
					PRINTW
					PRINTFORMW 典原本幸福的表情、一想到敬爱的主人就瞬间阴郁起来
					PRINTFORML 「不过、那个是那个、这个是这个、对吧ー♪」
					PRINTFORML 「是我的魅力使然、没办法啊！」
					PRINTW
				ENDIF
			;龍意外に恋慕持ちがいる
			ELSEIF CMATCH(TALENT:恋慕, 1) > 2
				PRINTFORML 「明明就是个色狼、却能注意到这种事」
				PRINTW
			;典のみ恋慕持ち
			ELSE
				IF TALENT:139:恋人
					IF FLAG:甲斐性無
						PRINTFORML 「虽然很没出息、但却能做好这种事情…%UNICODE(0x2665) *1%」
						PRINTW
					ENDIF
					PRINTFORML 「不顾饭纲丸大人而接受恋人的礼物、多少有些不好意思」
					PRINTFORML 「有个喜欢我的人、对饭纲丸大人来说也是多了一颗棋子、对她也是有益的♪」
					PRINTFORML （嘛、实际上我更喜欢%CALLNAME:MASTER%、这一点绝对不能对饭纲丸大人说…）
					PRINTW
				ELSE
					PRINTFORML 「难道说、那家伙只对我一个人送了礼物吗？」
					PRINTFORML 「不对不对、我难道是被迷住了吗。他应该也给其他女人送过礼物吧」
					PRINTW
					PRINTFORMW 「…………嘛」
					PRINTFORML 「如果真的只有我一个人的话、那就再稍微温柔一些吧」
					PRINTW
				ENDIF
			ENDIF
		ELSEIF TALENT:思慕
			PRINTFORML 「…………」
			PRINTFORML 典不厌其烦地看着%CALLNAME:MASTER%赠送的礼物
			PRINTW
			PRINTFORML 「嗯哼♪　嘸嘸嘸、那家伙还真是、我只是装作夸张地高兴了一下、就露出一副色迷迷的表情」
			PRINTFORML 「不过确实很高兴、那家伙应该没有注意到吧」
			PRINTW
			PRINTFORMW 「这个能卖多少钱呢～」
			PRINTFORMW 「…………」
			PRINTFORML 「……嘛、到腻烦为止就暂时先留在身边吧」
			PRINTW
		ELSE
			PRINTFORML 「…………」
			PRINTFORML 典不厌其烦地看着%CALLNAME:MASTER%赠送的礼物
			PRINTW
			PRINTFORML 「嘸嘸嘸、那家伙还真是、我只是装作夸张地高兴了一下、就露出一副色迷迷的表情」
			PRINTFORML 「真是个容易对付的家伙。帮了大忙了」
			PRINTW
			PRINTFORML 「这个能卖多少钱呢～」
			PRINTFORML 「嘛、到腻烦为止就暂时先留在身边吧」
			PRINTW
		ENDIF
	ENDIF
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日获得的礼物をお気に入りにする（↑の大事にするから続き）（700点以上かつ最高得点）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 3
	;IF STRCOUNT(SENSE, "穿戴/")
	;	PRINTFORMW 「明日からこれを付けて行こうっと」
	;ELSE
	;	PRINTFORMW 「明日からこれを持って行こうっと」
	;ENDIF
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日获得的礼物をとりあえず保管する（400～699点）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 4
	;PRINTFORMW 「とりあえず飾っておこう」
	IF TALENT:恋慕 || TALENT:恋人
		IF STRCOUNT(SENSE, "高級/白/混沌/可爱/简约/別緻/知的/")
			;龍が恋人
			IF TALENT:140:恋人
				PRINTFORML 「那个笨蛋…为什么不直接给身为恋人的饭纲丸大人而是给我呢」
				PRINTFORML （而且还很清楚我的喜好）
				PRINTW
				PRINTFORML 「可是扔掉又有什么用呢…唔～～～～嗯」
				PRINTFORML 「就当是我自己买的吧…不过、如果暴露了的话…如果是那种展開的话、我想想该怎么办…」
				PRINTW
				PRINTFORML 「…总之、先收起来吧」
				PRINTFORML 「下次要是能送些容易处理的东西就太好了」
				PRINTW
			;龍が恋慕持ち
			ELSEIF TALENT:140:恋慕
				PRINTFORML 「呼呼♪　还挺有品位的嘛♪」
				PRINTFORML 「看在礼物的份上、明天就好好对待你吧♪」
				PRINTW
				PRINTFORML 「这么说来、饭纲丸大人也很在意那家伙吧」
				PRINTFORML 「饭纲丸大人也从那家伙那里得到了什么吗」
				PRINTW
				IF TALENT:139:恋人
					PRINTFORML 「嘛、身为正妻的从容、心胸宽广的我倒是可以原谅这一点」
				ELSE
					PRINTFORML 「不过、我们倒也没有開始正式交往、所以也谈不上有什么关系」
				ENDIF
				PRINTW
				PRINTFORML 「总之、先保管在不引人注目的地方吧」
				PRINTFORML 「唉、和主人喜欢上同一个人、真的是让人操心不断啊」
				PRINTW
			ELSE
				PRINTFORML 「呼呼♪　还挺有品位的嘛♪」
				PRINTFORML 「看在礼物的份上、明天就好好对待你吧♪」
				PRINTFORML 「不要弄丢了、好好地收起来吧」
				PRINTW
			ENDIF
		ELSEIF STRCOUNT(SENSE, "青/美麗/懷舊/威厳/")
			;龍が恋人
			IF TALENT:140:恋人
				PRINTFORML 「嗯ー…说起来这个倒是饭纲丸大人会喜欢的礼物…」
				PRINTFORML 「那个笨蛋…为什么不直接给饭纲丸大人而是给我呢」
				PRINTW
				PRINTFORML 「可是扔掉又有什么用呢…唔～～～～嗯」
				PRINTFORML 「就当是我自己买的吧…不过、如果暴露了的话…如果是那种展開的话、我想想该怎么办…」
				PRINTW
				PRINTFORML 「…总之、先收起来吧」
				PRINTFORML 「下次要是能送些容易处理的东西就太好了」
				PRINTW
			;龍が恋慕持ち
			ELSEIF TALENT:140:恋慕
				PRINTFORML 「不对不对不对不对、为什么送给我这个」
				PRINTFORML 「搞错了赠送对象吧…、那家伙真是太迟钝了」
				PRINTW
				PRINTFORML 「这种东西挂在家里不知道会被说什么」
				PRINTFORML 「直接扔掉也行…卖掉也行…唔唔～～～～嗯」
				PRINTW
				PRINTFORML 「总之、先保管在不引人注目的地方吧」
				PRINTFORML 「嘛、喜欢上一个不机灵的家伙真的是很麻烦呢」
				PRINTW
			ELSE
				PRINTFORML 「嗯ー、这不是饭纲丸大人会喜欢的种类吗？」
				PRINTFORML 「东西倒不坏…这一点太掉以轻心了」
				PRINTW
				PRINTFORML 「不过、既然是%CALLNAME:MASTER%赠送的礼物、总不能扔掉吧」
				PRINTFORML 「不要弄丢了、好好地收起来吧」
				PRINTW
			ENDIF
		ELSE
			PRINTFORML 「嗯、那家伙果然会选这样的礼物呢」
			PRINTFORML 「『上次的礼物、我很珍惜地装饰着哦～%UNICODE(0x2665) *1%』这么说的话、一定能把他迷得神魂颠倒吧♪」
			PRINTW
			PRINTFORML 「不过、被迷得神魂颠倒的人是我呢…%UNICODE(0x2665) *1%」
			PRINTFORML 「不过这得保密才行」
			PRINTW
		ENDIF
	ELSEIF TALENT:思慕
		PRINTFORML 「嘛、以后再拿去卖掉也不迟」
		PRINTFORML 「在我厌烦之前就先把它留在身边吧」
		PRINTW
	ELSE
		PRINTFORML 「要是马上就把这个丢出去的话、被发现了可就麻烦了」
		PRINTFORML 「先留在身边几天、过几天再丢掉吧」
		PRINTW
	ENDIF
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日获得的礼物をこっそり質に入れる（400点未満）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 5
	;龍が恋慕または恋人
	IF TALENT:140:恋慕 || TALENT:140:恋人
		;龍が大好きなもの
		IF STRCOUNT(GIFT_NAME, "(カラスの|天狗の|龍の|星空の|星降る|装饰眼镜)")
			PRINTFORML 「为什么不给饭纲丸大人而是给了我…」
			PRINTFORML 「真是个没用的家伙、%CALLNAME:MASTER%」
			PRINTFORML 「当我带着这些东西遇到饭纲丸大人的时候、她会对我说些什么呢」
			PRINTFORML 「这个先处理掉吧」
			PRINTW
			IF TALENT:恋慕 || TALENT:恋人
				PRINTFORML 「把喜欢的人送的东西处理掉什么的…再稍微、动一动脑子嘛、那个笨蛋…」
				PRINTW
			ELSE
				PRINTFORML 「倒不如、如果我把这个送给饭纲丸大人的话、对我的好感度会爆增吧？」
				PRINTW
			ENDIF
		;龍が大嫌いな物
		ELSEIF STRCOUNT(GIFT_NAME, "(河童の|鬼の)")
			PRINTFORML 「把饭纲丸大人不喜欢的东西送给我、这是什么意思啊…」
			PRINTFORML 「难道是要拆散我和饭纲丸大人的关系吗？」
			PRINTW
			IF TALENT:恋慕 || TALENT:恋人
				PRINTFORML 「不不、%CALLNAME:MASTER%应该没有那种想法吧」
				PRINTFORML 「据我所知、%CALLNAME:MASTER%不是这样的人…」
				PRINTFORML
				PRINTW
			ELSE
				PRINTFORML 「就算没考虑那么多、也有可能只是故意找茬」
				PRINTFORML 「搞不好、因为是饭纲丸大人的部下、所以也会喜欢同样的东西」
			ENDIF
		ENDIF
	ELSE
		IF STRCOUNT(GIFT_NAME, "(安物|护符|タヌキの|小手)")
			IF TALENT:恋慕 || TALENT:恋人
				PRINTFORML 「不不不、不带这样的吧。这个」
				PRINTFORML 「还想着只要是那个人送的东西、肯定会感到高兴的」
				PRINTW
				PRINTFORML 「…这个还是卖了吧」
				PRINTFORML 「用卖这个的钱、和%CALLNAME:MASTER%一起去吃好吃的东西」
				PRINTW
			ELSEIF TALENT:思慕
				PRINTFORML 「…我还以为他是个有用的人呢」
				PRINTFORML 「似乎完全不了解女人的心思啊」
				PRINTFORML 「嘛。这种用不上的东西、就拿去卖了吧」
				PRINTW
			ELSE
				IF CMATCH(TALENT:恋慕, 1) < 1
					PRINTFORML 「哈～…这就是、不受欢迎的原因」
					PRINTFORML 「因为不懂女人的心思、所以才会送这样的东西」
					PRINTW
					PRINTFORML 「好吧、起码还能拿去卖掉」
					PRINTFORML 「用卖这个的钱、和饭纲丸大人一起去吃好吃的东西♪」
					PRINTW
				ELSEIF CMATCH(TALENT:恋慕, 1) > 1
					PRINTFORML 「哈～…送这种东西的人、为什么那么受欢迎呢」
					PRINTFORML 「我完全无法理解他的魅力」
					PRINTW
					PRINTFORML 「好吧、起码还能拿去卖掉」
					PRINTFORML 「用卖这个的钱、和饭纲丸大人一起去吃好吃的东西♪」
					PRINTW
				ELSE
					PRINTFORML 「嗯、我一直都觉得他不是那种能灵巧应对的人」
					PRINTFORML 「真是没品位啊」
					PRINTW
					PRINTFORML 「啊、对了。戴着这个去喜欢%CALLNAME:MASTER%的人面前晃悠的话肯定会很有趣的吧」
					PRINTFORML 「『只有我是特别的、作为礼物送给我的～%UNICODE(0x2665) *1%』」
					PRINTW
					PRINTFORML 「说ー笑的。我也不是什么那种程度的恶鬼」
					PRINTFORML 「这东西还是拿去卖钱吧」
					PRINTW
				ENDIF
			ENDIF
		ELSE
			IF TALENT:恋慕 || TALENT:恋人
				PRINTFORML 「啊、我明明已经把喜好告诉他了」
				PRINTFORML 「那家伙根本就不听话啊」
				PRINTW
				PRINTFORML 「…不过、这里确实有个傻瓜喜欢上了这种随随便便的家伙」
				PRINTFORML 「不好意思、这个就卖了吧」
				PRINTFORML 「用卖这个的钱、和%CALLNAME:MASTER%一起去吃好吃的东西♪」
				PRINTW
			ELSEIF TALENT:思慕
				PRINTFORML 「我还觉得他挺帅的呢」
				PRINTFORML 「只是送个礼物、还以为能着调一点呢」
				PRINTW
				PRINTFORML 「但这个可『不行』啊」
				PRINTFORML 「拿去卖钱吧♪」
				PRINTW
			ELSE
				PRINTFORML 「把这些垃圾塞给我、你以为我会高兴吗」
				PRINTFORML 「嗯、至少能赚点零钱吧」
				PRINTW
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF
RETURN 1

;==================================================
;ムシバトル
;ムシバトルの口上は少し特殊で、PRINTを使うのではなく、
;台詞一行のみをRESULTSに入れてください
;ムシの名前は %MUSHI_NAME% で表示できます
;ムシの名前の最長はアレキサンドラトリバネアゲハの全角14文字です
;文字数制限があります。はみ出ないように気をつけてください
;ARGは残りムシ数か順位です
;==================================================
@M_KOJO_MESSAGE_COM_K139_MUSHI_BATTLE(ARGS, ARG)
#DIM 残りムシ数
#DIM 順位
SELECTCASE ARGS
CASE "試合前"
	;-------------------------------------------------
	;キャラセレクト時,ARGは使えません
	;全角50文字くらいまで
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「呵呵、请温柔一点」
	ENDIF
CASE "戦場に出した"
	;-------------------------------------------------
	;"【（キャラ）】は《（ムシ）》を戦場に出した！」"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		SELECTCASE 残りムシ数
		CASE 3
			RESULTS = 「唔姆、这里就让%MUSHI_NAME%上吧」
		CASE 2
			RESULTS = 「…下次、%MUSHI_NAME%（做的不对吗？）」
		CASE 1
			RESULTS = 「…诶诶、%MUSHI_NAME%！（这么可能…我怎么可能就这么轻易的输掉！）」
		ENDSELECT
	ENDIF
CASE "攻撃時"
	;-------------------------------------------------
	;"【（キャラ）】《（ムシ）》の『（攻撃名）』！」"の直前
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		SELECTCASE RAND:3
		CASE 0
			RESULTS = 「要从侧边来了、请小心一点」
		CASE 1
			RESULTS = 「要从上面来了、请小心一点」
		CASE 2
			RESULTS = 「呵呵、%MUSHI_NAME%可是很擅长远距离战斗的唷。不对、是近距离？」
		ENDSELECT
	ENDIF
CASE "倒れた時"
	;-------------------------------------------------
	;"【（キャラ）】《（ムシ）》は倒れた！！"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		SELECTCASE 残りムシ数
		CASE 2
			RESULTS = 「唔姆、被打倒了吗」
		CASE 1
			RESULTS = 「怎么！？」
		ENDSELECT
	ENDIF
CASE "敗退時"
	;-------------------------------------------------
	;"【（キャラ）】敗退！！"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「我的耳边低语战术居然没有…」
	ENDIF
CASE "タイマン：勝ち"
	;-------------------------------------------------
	;順位は1位
	;全角20文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		IF TALENT:恋慕 || TALENT:恋人
			RESULTS = 「虽说只是游戏、但也要认真的上了唷」
		ELSE
			SELECTCASE RAND:3
			CASE 0
				RESULTS = 「杂鱼%UNICODE(0x2665) *1%　杂~鱼%UNICODE(0x2665) *1%」
			CASE 1
				RESULTS = 「非常感谢您的留手♪」
			CASE 2
				RESULTS = 「被我的话所蒙骗、自灭了呢♪」
			ENDSELECT
		ENDIF
	ENDIF
CASE "タイマン：負け"
	;-------------------------------------------------
	;順位は2位
	;全角20文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「不行、%CALLNAME:MASTER%阁下、好强」
	ENDIF
CASE "バトルロイヤル：優勝"
	;-------------------------------------------------
	;順位は1位
	;全角30文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「やったー！」
	ENDIF
CASE "バトルロイヤル：２位以下"
	;-------------------------------------------------
	;順位は2～4位
	;全角30文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「くやし～！」
	ENDIF
CASE "チーム戦：勝ち"
	;-------------------------------------------------
	;順位は1位（やられていても）
	;全角32文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
;		RESULTS = 「私のおかげね！」
	ENDIF
CASE "チーム戦：負け"
	;-------------------------------------------------
	;順位は2位
	;全角32文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
	SELECTCASE RAND:3
	CASE 0
		RESULTS = 「你没有什么好在意的。只是你的虫、太弱了而已」
	CASE 1
		RESULTS = 「诶呀、我的虫子们没有缺点…」
	CASE 2
		RESULTS = 「我不在意的唷。所有你也无须在意」
	ENDSELECT
	ENDIF
ENDSELECT
SIF RESULTS != ""
	RETURN 1
;==================================================
;引力操作
;TCVAR:引力点に場所IDを入れるとその地点に引っ張られていきます
;場所IDと同じ拠点Mapでしか効果はありません（博麗神社の境内なら拠点が博麗神社のときだけ）
;条件を付けないと永久に引っ張られ继続ので注意
;RANDは基本的に使えません。CFLAG:今日の運勢にその日の随机数値（0～999）が入っているのでこれを使うと良いです
;==================================================
@M_KOJO_EVENT_K139_GRAVITY(ARG)
;IF TCVAR:374 >= 500 || TCVAR:利尿剤 || (CFLAG:MASTER:現在位置 == 14 || CFLAG:MASTER:現在位置 == 236 || CFLAG:MASTER:現在位置 == 316 || CFLAG:MASTER:現在位置 == 322 || CFLAG:MASTER:現在位置 == 824)
IF TCVAR:374 >= 500 || TCVAR:利尿剤 || IN_TOILET(CFLAG:MASTER:現在位置)
	;神社在住
	IF MAIN_MAP == 0
		TCVAR:引力点 = 14
	;人間之里在住
	ELSEIF MAIN_MAP == 2
		TCVAR:引力点 = 236
	;紅魔館在住
	ELSEIF MAIN_MAP == 3
		TCVAR:引力点 = 316
;		TCVAR:引力点 = 322
;※改変注：２つは指定できません
	;山頂在住
	ELSEIF MAIN_MAP == 8
		TCVAR:引力点 = 824
	ENDIF
ENDIF
;※改変注：IN_TOILET(CFLAG:MASTER:現在位置)←これでMASTERが廁所にいるときとして使えます

path: ERB/口上・メッセージ関連/個人口上/【139】典/M_KOJO_K139_イベント.ERB