code:
;==========================================================
;存在判定
;0だと日記は書かれません。
;==========================================================
@DIARY_K139_EXIST
RETURN 1

;==========================================================
;常時チェックされる日記の状態情報
;簡易版ではCHARAに番号を入れれば自動で処理してくれます
;==========================================================
@DIARY_BEFORE_CHECK_K139
#DIM CHARA
CHARA = 139
MAX_DIARY_PAGE:CHARA:0 = 100
FOR LOCAL, 1, MAX_DIARY_PAGE:CHARA:0 + 1
	RESULT = 0
	TRYCALLFORM DIARY_K{CHARA}_{LOCAL}_HAPPEN
	IF RESULT
		IF !DIARY:CHARA:LOCAL || RESULT:2
			DIARY:CHARA:LOCAL = RESULT:1
			SIF RESULT:1 == 3
				CALL CHARA_DIARY_PAGESETTING(CHARA, LOCAL)
		ENDIF
	ENDIF
NEXT

;==========================================================
;デイリーイベントで日記が読まれた際の後処理。
;フラグの管理等自由に扱って良い。
;==========================================================
@DIARY_AFTER_CHECK_K139

;==========================================================
;日記の内容
;PAGENUM   = 日記番号（日記のパターン）
;MODE      = "デイリー":一日終了時のデイリーイベントでの読み上げ
;          = "指令":[日記を読む]指令での読み上げ
;PAGECOUNT = 何页目に書かれているか
;==========================================================
@DIARY_TEXT_K139(PAGENUM, MODE, PAGECOUNT)
#DIM PAGENUM
#DIMS MODE
#DIM PAGECOUNT
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
;グループマッチに日記のIDを入れて、表示させたい顔絵を表示する
;表情・服装・特殊画像をオプション指定で表示（省略可）
;書式は\resources\顔.CSVと下の例を参照
;以下はサンプル
IF MODE == "デイリー"
	IF GROUPMATCH(PAGENUM, 1)
		CALL PRINT_FACE, 139, "発情", "裸", "_1"
	ELSEIF GROUPMATCH(PAGENUM, 2)
		CALL PRINT_FACE, 139, "笑顔", "服1"
	ELSEIF GROUPMATCH(PAGENUM, 3)
		CALL PRINT_FACE, 139, "憤怒"
	ELSE
		CALL PRINT_FACE, 139
	ENDIF
ENDIF
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
PRINTFORMDL - %CALLNAME:139%の日記　PAGE.{PAGECOUNT} --------------------------------------------------------------------------------------
PRINTL
;▼簡易版ではここから自動で表示されます
CALLFORM DIARY_K139_{PAGENUM}

;==========================================================
;日記の発生条件（@DIARY_K139_YY_HAPPEN）
;RETURN    発生：1なら発生
;RESULT:1  形式：2ならデイリーイベントで読まれる
;                  複数の日記が同時に発生すると番号が小さいものだけが1つ読まれ、それ以外に発生した日記は一旦リセットされる
;                3ならデイリーイベントで読まれない
;                  プレイヤーが自主的に読まない限り読まれない
;                  発生した時点で書き込まれ、複数発生すると複数書き込まれる
;                0は読めない,1は既読なので設定不会うに
;RESULT:2  リピート：1を入れると同じ日記が繰り返し書き込まれる
;                    その日だけ有効なフラグ（TCVARやTFLAGなど）を使って条件をつけないと大量に書き込まれるので注意
;
;特定の指令やイベント時に日記を発生させたい場合は直接その口上内で"DIARY:139:YY = 2"を加えてください
;"DIARY:139:YY = 3"にしたい場合は以下の命令も合わせてください
;"CALL CHARA_DIARY_PAGESETTING(139, YY)"
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
;日記の内容（@DIARY_K139_YY）
;PRINT命令だけでオッケー
;==========================================================
@DIARY_K139_1_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_K139_1
PRINTFORML
;==========================================================
@DIARY_K139_2_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_K139_2
PRINTFORML
;==========================================================
@DIARY_K139_3_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_K139_3
PRINTFORML
;==========================================================
@DIARY_K139_4_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_K139_4
PRINTFORML
;==========================================================
@DIARY_K139_5_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_K139_5
PRINTFORML
;==========================================================
@DIARY_K139_6_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_K139_6
PRINTFORML
;==========================================================
@DIARY_K139_7_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_K139_7
PRINTFORML
;==========================================================
@DIARY_K139_8_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_K139_8
PRINTFORML
;==========================================================
@DIARY_K139_9_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_K139_9
PRINTFORML
;==========================================================
@DIARY_K139_10_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 = 3
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_K139_10
PRINTFORML
;==========================================================

;==========================================================
;▼页を増やすなら以下のテンプレをコピペしてXとYYを代入してください
[SKIPSTART]
;==========================================================
@DIARY_K139_YY_HAPPEN
;デイリーで読まれるなら2,読まれないなら3
RESULT:1 =
;リピートするなら1,しないなら0
RESULT:2 = 0
;条件を設定する
SIF 0
	RETURN 1
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
@DIARY_K139_YY
PRINTFORML
;==========================================================
[SKIPEND]

;=============================
;406,日記を読む
;指令口上
;TFLAG:194（誰の日記を読んでいるか）
;TFLAG:194が139でない場合は他人の日記なので注意。
;PAGEは書かれてある页数。
;SHIRAHU(139)はキャラ139の状態が正常かどうか。
;=============================
@M_KOJO_MESSAGE_COM_K139_406
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K139_406_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K139_406_1
IF SHIRAHU(139) && TFLAG:194 == 139
	PRINTFORMW 「」
ENDIF

path: ERB/口上・メッセージ関連/個人口上/【139】典/M_KOJO_K139_日記（簡易版）.ERB


code:
;※※※※※※※※※※※※※※※※※※※※※※※※※
;派生指令
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;1,六九式
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_1
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_1_1
RETURN 1
@M_KOJO_MESSAGE_SCOM_K139_1_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	ELSEIF CFLAG:TARGET:睡眠
		RETURN 1
	;それ以外
	ELSE
		IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
			;典のほうがテクニシャン
			IF ABL:舌 >= ABL:MASTER:舌
				;舐陰→口交
				IF PREVCOM == 1
					IF TCVAR:発情
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「因为%CALLNAME:MASTER%阁下舔了我的小穴…让我变得想要了HPH」","L"
						SELECTCASE TALENT:MASTER:形状
						CASE 6,10;巨根、馬並み
							CALL HPH_PRINT,@"「是怎么回事啊这根大鸡巴…HPH　嘴能塞下吗HPH」","L"
						CASE 1,2;粗チン
							CALL HPH_PRINT,@"「嘸嘸、可爱的小鸡鸡　姐姐要把它吃掉咯～HPH」","L"
						CASE 5;イボ付き
							CALL HPH_PRINT,@"「长满了疙瘩的肉棒、我来含一含吧～HPH」","L"
						CASEELSE
							CALL HPH_PRINT,@"「真是出色的鸡鸡、姐姐要含一含HPH」","L"
						ENDSELECT
						RESETCOLOR
						PRINTW
						CALL HPH_PRINT,@"啾噗HPH　啾噗HPH　啾噗HPH","L"
						CALL HPH_PRINT,@"　呸啾……呸啾……呸啾……","L"
						PRINTW
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「嗯呼…HPH　嗯、哈啊HPH　我说、嘴都停了哦～HPH」","L"
						CALL HPH_PRINT,@"「继续来、啾噜啾噜地HPHHPH吸一吸姐姐的小穴嘛HPH」","L"
						CALL HPH_PRINT,@"「不然的话、就把小鸡鸡这样黏黏糊糊的放着不管咯～HPH　嗯～～HPH」","L"
						CALL HPH_PRINT,@"咕啵HPH　咕啵HPH　咕啵HPH　啾噜噜噜噜噜HPHHPH","L"
						RESETCOLOR
						PRINTW
					ELSE
						CALL HPH_PRINT,@"「姐姐也来、让%CALLNAME:MASTER%阁下的家伙、好好舒服一些吧…HPH」","L"
						CALL HPH_PRINT,@"嘎啵HPH　嘎啵HPH　嘎啵HPH　嘎啵HPH","L"
						CALL HPH_PRINT,@"　呸啾……呸啾……呸啾……HPH","L"
						PRINTW
						CALL HPH_PRINT,@"（呵呵、在拼命地舔着我的小穴…真可爱HPH）","L"
						CALL HPH_PRINT,@"（不过、看来是鸡鸡舒服过头导致嘴巴都有些松懈了呢…HPH）","L"
						PRINTW
					ENDIF
				;口交→舐陰
				ELSEIF PREVCOM == 81
					IF TCVAR:発情
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「来吧…请让姐姐的小穴也来舒服舒服吧HPH」","L"
						RESETCOLOR
						PRINTFORML 典把%CALLNAME:MASTER%的脸对着自己\@ PALAM:潤滑 >= PALAMLV:3 ? 滴滴答答垂落着蜜汁的 # \@秘裂使劲贴了上去…
						PRINTW
						PRINTFORML 呸啾…呸啾…
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「哈啊啊HPH　不错哦HPH　继续、用舌头插进小穴里HPHHPH」","L"
						CALL HPH_PRINT,@"（%CALLNAME:MASTER%阁下在给我舔小穴HPHHPH）","L"
						CALL HPH_PRINT,@"（虽然技术并不纯熟、但只是拼命地为我舔、就已经很舒服了…HPH）","L"
						RESETCOLOR
						PRINTW
						CALL HPH_PRINT,@"啾啵HPH啾啵HPH啾啵HPH啾啵HPH啾啵HPH啾啵HPH","L"
						;どうしました？もっと、おまんこなめてくださいHPH
						CALL HPH_PRINT,@"「嗞呣噜嘛？HPH　请再嘟、点一点小嘘HPH」","L"
						CALL HPH_PRINT,@"咕啾HPH　啾噜噜HPH　啾噗HPH　咕啾HPH","L"
						PRINTW
					ELSE
						CALL HPH_PRINT,@"「也来舔一舔…姐姐的这里吧？HPH」","L"
						PRINTFORML 典把%CALLNAME:MASTER%的脸对着自己\@ PALAM:潤滑 >= PALAMLV:3 ? 滴滴答答垂落着蜜汁的 # \@秘裂贴了过去…
						PRINTW
						PRINTFORML 呸啾…呸啾…
						CALL HPH_PRINT,@"「啊啊…好棒啊…请、接着继续…HPH」","L"
						CALL HPH_PRINT,@"（虽然感觉还是有些不满足…拼尽全力的%CALLNAME:MASTER%阁下、真可爱…HPH）","L"
						CALL HPH_PRINT,@"（看来姐姐也必须要加把劲了呢HPH）","L"
						PRINTW
						CALL HPH_PRINT,@"啾啵HPH啾啵HPH卟啾啵HPH啾啵HPH啾呜呜～～～～HPH","L"
						CALL HPH_PRINT,@"「呼呼、嘴巴都停下来了哟…HPH　姐姐的嘴巴、就那么舒服吗HPH」","L"
						CALL HPH_PRINT,@"啾HPH　啾噜HPH　啾噗HPH　啾噜噜～～～～HPH","L"
						PRINTW
					ENDIF
				ENDIF
			;你のほうがテクニシャン
			ELSEIF ABL:舌 < ABL:MASTER:舌
				;舐陰→口交
				IF PREVCOM == 1
					IF TCVAR:発情
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「哈啊HPH　哈HPH　啊啊啊～～～～HPH」","L"
						CALL HPH_PRINT,@"「都怪%CALLNAME:MASTER%阁下、太得意了哦…姐姐也、要来舔一舔…HPH」","L"
						RESETCOLOR
						PRINTW
						CALL HPH_PRINT,@"啾啵HPH啾啵HPH啾啵HPH啾啵HPH啾啵HPH啾啵HPH","L"
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「呼嗯嗯HPH　呼呜呜HPHHPH　呼HPH　呼～～HPH　呼～～HPH」","L"
						CALL HPH_PRINT,@"（不行HPH　明明还想再多舔一舔小鸡鸡的HPH　舒服过头了HPHHPH）","L"
						CALL HPH_PRINT,@"（我明明是姐姐HPH　却先一步被弄高潮了HPHHPH）","L"
						RESETCOLOR
						PRINTW
					ELSE
						CALL HPH_PRINT,@"「啊啊HPH　%CALLNAME:MASTER%阁下的舌头、好舒服HPH」","L"
						CALL HPH_PRINT,@"「唔HPH　不过、姐姐也不会轻易输掉呢…HPH　啊呣HPH」","L"
						PRINTW
						CALL HPH_PRINT,@"嘎啵HPH　嘎啵HPH　嘎啵HPH　嘎啵HPH","L"
						CALL HPH_PRINT,@"　呸啾、呸啾、啾噜噜噜噜噜呜！！HPH","L"
						PRINTW
						CALL HPH_PRINT,@"「呼嗯嗯HPH　呼呜呜HPHHPH　呼HPH　呼～～HPH　呼～～HPH」","L"
						CALL HPH_PRINT,@"（%CALLNAME:MASTER%呜、好熟练HPH　不停地进攻舒服的地方HPH）","L"
						CALL HPH_PRINT,@"（我明明是姐姐HPH　却先一步被弄高潮了HPHHPH）","L"
						RESETCOLOR
						PRINTW
					ENDIF
				;口交→舐陰
				ELSEIF PREVCOM == 81
					IF TCVAR:発情
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「来吧…请让姐姐的小穴也来舒服舒服吧HPH」","L"
						RESETCOLOR
						PRINTFORML 典把%CALLNAME:MASTER%的脸对着自己\@ PALAM:潤滑 >= PALAMLV:3 ? 滴滴答答垂落着蜜汁的 # \@秘裂使劲贴了上去…
						PRINTW
						PRINTFORML 呸啾…呸啾…啾噜、啾噜噜噜噜噜呜
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「哈啊啊HPH　不错哦HPH　继续、用舌头插进小穴里HPHHPH」","L"
						CALL HPH_PRINT,@"（明明是个小孩子HPH　居然这么熟练吗HPH）","L"
						CALL HPH_PRINT,@"（这种事、这种事不应该啊HPH）","L"
						RESETCOLOR
						PRINTW
						CALL HPH_PRINT,@"啾啵HPH啾啵HPH啾啵HPH啾啵HPH啾啵HPH啾啵HPH","L"
						CALL HPH_PRINT,@"「嗞呣噜嘛？HPH　请再嘟、点一点小嘘HPH」","L"
						CALL HPH_PRINT,@"咕啾HPH　啾噜噜HPH　啾噗HPH　咕啾HPH","L"
						CALL HPH_PRINT,@"（不行、不拼命舔的话、我这边就要被弄高潮了HPHHPH）","L"
						PRINTW
					ELSE
						CALL HPH_PRINT,@"「也来舔一舔…姐姐的这里吧？HPH」","L"
						PRINTFORML 典把%CALLNAME:MASTER%的脸对着自己\@ PALAM:潤滑 >= PALAMLV:3 ? 滴滴答答垂落着蜜汁的 # \@秘裂贴了过去…
						PRINTW
						PRINTFORML 呸啾…呸啾…啾噜、啾噜噜噜噜噜呜
						CALL HPH_PRINT,@"「啊咿咿HPH　吸得、用力过头了HPHHPH」","L"
						CALL HPH_PRINT,@"（这孩子、太过熟练了…HPH　这样下去、会被弄到去的…HPH）","L"
						PRINTW
						CALL HPH_PRINT,@"啾啵HPH啾啵HPH卟啾啵HPH啾啵HPH啾呜呜～～～～HPH","L"
						CALL HPH_PRINT,@"「呼呼、如何呢…HPH　咿呜HPH　喂喂、吸过头了HPH」","L"
						PRINTW
					ENDIF
				ENDIF
			ENDIF
		;大人
		ELSE
			;典のほうがテクニシャン
			IF ABL:舌 >= ABL:MASTER:舌
				;舐陰→口交
				IF PREVCOM == 1
					IF TCVAR:発情
						IF BASE:MASTER:勃起 >= 1000
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「呼呼、%CALLNAME:MASTER%阁下的尊贵鸡巴、很精神哦HPH」","L"
							RESETCOLOR
							PRINTFORML 典用脸蹭着%CALLNAME:MASTER%的%TINKO(PLAYER)%、然后带着一副情迷意乱的表情開始吮吸起来
							PRINTW
							CALL HPH_PRINT,@"啾啵HPH啾啵HPH啾啵HPH啾啵HPH啾啵HPH啾啵HPH","L"
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、嘴巴停下来了哟HPH」","L"
							CALL HPH_PRINT,@"「请再多让典的小穴、舒服舒服吧HPH」","L"
							PRINTW
								SELECTCASE TALENT:MASTER:形状
								CASE 6,10;巨根、馬並み
									PRINTFORM 「明明含起来的口感这么好
								CASE 1,2;粗チン
									PRINTFORML 「就如同外观一样
								CASE 5;イボ付き
									PRINTFORML 「明明看起来挺凶的
								CASEELSE
									PRINTFORML 「虽然看着硬邦邦地翘着
								ENDSELECT
								CALL HPH_PRINT,@"「完全是个碰几下就会高潮的杂鱼肉棒啊HPH　啾噜噜噜噜呜呜HPHHPH」","L"
								CALL HPH_PRINT,@"「足呜噜不（杂鱼肉棒）HPH　足呜噜不（杂鱼肉棒）HPH　啾噜HPH　卟啵HPHHPH」","L"
								PRINTW
						ELSE
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「啊啊～、肉棒大人还是软乎乎的吗HPH」","L"
							CALL HPH_PRINT,@"「这可不行哟HPH　为了能随时做爱、鸡鸡要时常都是硬邦邦的才行HPH」","L"
							RESETCOLOR
							PRINTFORML 典開始鼓着腮帮子吮吸起%CALLNAME:MASTER%的阴茎、直到它勃起为止
							PRINTW
							CALL HPH_PRINT,@"啾啵HPH啾啵HPH卟啾啵HPH啾啵HPH啾呜呜～～～～HPH","L"
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「好了HPH　肉棒大人已经变得硬邦邦的了HPH」","L"
							CALL HPH_PRINT,@"「一颤一颤地晃着好可爱HPH　还想继续让我帮你口交吗？HPH」","L"
							CALL HPH_PRINT,@"「想让我口交的话、请晃三下鸡鸡哦HPHHPH」","L"
							PRINTW
							CALL HPH_PRINT,@"「库库HPH　拼命地晃着鸡鸡、真是有趣呢HPH」","L"
							CALL HPH_PRINT,@"「好哦HPH　看在鸡鸡这么努力的份上、就帮你口交吧…HPH　啾…HPH　啾噜噜噜噜噜呜HPH」","L"
							PRINTW
						ENDIF
					ELSE
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、那里、好棒HPH」","L"
						PRINTFORML 每当%CALLNAME:MASTER%的舌头舞动之时、典的腰就会一跳一跳的颤抖着
						PRINTFORML 典说了句典也很想口交后、你便把%TINKO(PLAYER)%贴近了典的脸
						PRINTW
						IF BASE:MASTER:勃起 >= 1000
							CALL HPH_PRINT,@"（哇啊…已经硬的不行了…HPH　血管都浮现出来了啊…HPH）","L"
							CALL HPH_PRINT,@"（啊啊、离得这么近闻鸡巴的气味的话…HPH）","L"
							SIF TALENT:MASTER:濃厚精液
								CALL HPH_PRINT,@"（好浓厚的精臭味…HPH　睾丸也涨涨的、看来忍得很辛苦…HPH）","L"
						ELSE
							CALL HPH_PRINT,@"（还是软软的…不过、光是问到这个气味脑袋就開始晕乎乎的了…HPH）","L"
							SIF TALENT:MASTER:濃厚精液
								CALL HPH_PRINT,@"（好浓厚的精臭味…HPH　睾丸也涨涨的、看来忍得很辛苦…HPH）","L"
						ENDIF
						PRINTW
						CALL HPH_PRINT,@"「让我来、慰劳你…HPH　叻噜…啾噜…HPH」","L"
						CALL HPH_PRINT,@"「呼呼、这里很舒服吗…HPH　腰、都抬起来了…HPH　啾噜噜HPH　叻噜HPH」","L"
						CALL HPH_PRINT,@"「先走液、真美味…HPH　%CALLNAME:MASTER%阁下、嘴巴又怠慢咯…呼呼…HPH","L"
						PRINTW
					ENDIF
				;口交→舐陰
				ELSEIF PREVCOM == 81
					IF TCVAR:発情
						CALL HPH_PRINT,@"啾啵HPH啾啵HPH啾啵HPH啾啵HPH啾啵HPH啾啵HPH","L"
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「唔呼HPH　呼HPH　呼ーーHPH　呼ーーHPH」","L"
						CALL HPH_PRINT,@"「来嘛HPH　%CALLNAME:MASTER%阁下也请来舔一舔小穴嘛HPHHPH」","L"
						RESETCOLOR
						PRINTFORML 典把%CALLNAME:MASTER%的脸对着自己\@ PALAM:潤滑 >= PALAMLV:3 ? 濡湿不堪的 # \@秘裂使劲贴了上去…
						PRINTW
						CALL HPH_PRINT,@"啾啵HPH啾啵HPH卟啾啵HPH啾啵HPH啾呜呜～～～～HPH","L"
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「真是的、%CALLNAME:MASTER%阁下、嘴巴完全没在动哟HPH」","L"
						CALL HPH_PRINT,@"「很酥服吗？　奴嘟聚聚（你的鸡鸡）、足鱼吐鱼吐嘟（在一跳一跳的）HPHHPH」","L"
						CALL HPH_PRINT,@"「精ー举、涩粗乃HPH　啾噜噜噜！　啾噜、啾啵HPH啾啵HPH啾啵HPH」","L"
						RESETCOLOR
						PRINTW
					ELSE
						CALL HPH_PRINT,@"啾啵HPH啾啵HPH啾啵HPH啾啵HPH啾啵HPH啾啵HPH","L"
						CALL HPH_PRINT,@"「啊啊…%CALLNAME:MASTER%阁下的鸡鸡、硬硬的好喜欢…HPH」","L"
						PRINTW
						PRINTFORML 在%CALLNAME:MASTER%的眼前、典摇来摇去地晃着她的屁股…
						PRINTFORML 看着那\@ PALAM:潤滑 >= PALAMLV:3 ? 濡湿不堪的 # \@秘裂、你萌生了想要恶作剧的念头
						PRINTW
						PRINTFORML 啾、啾噜噜
						CALL HPH_PRINT,@"「呀嗯HPH　%CALLNAME:MASTER%阁下…？」","W"
						PRINTFORML 啾噜、呸啾、呸啾、啾噜
						CALL HPH_PRINT,@"「已经、不会再输给你了哦…HPH　啾噜噜噜、啾啵啾啵啾啵HPHHPH」","L"
						PRINTW
						PRINTFORML 只有最開始掌握了主导权、转瞬之间就被典的舌技给逆转了
						CALL HPH_PRINT,@"「呼呼、感觉如何？　%CALLNAME:MASTER%阁下似乎连嘴上的动作都停下来了HPH」","L"
						PRINTFORML 典像是在戏弄一样用舌头来回舔着龟头
						PRINTW
						CALL HPH_PRINT,@"「停下来也没关系吗？　肉棒大人、还有精子袋还在向我撒娇哟HPH」","L"
						CALL HPH_PRINT,@"「咿呀呜HPH　舌头、好激烈HPH　典、被弄高潮了HPH」","L"
						CALL HPH_PRINT,@"「典也会反击的HPH　啊呣HPH　叻噜HPH　叻噜噜HPHHPH」","L"
						PRINTW
					ENDIF
				ENDIF
			;你のほうがテクニシャン
			ELSEIF ABL:舌 < ABL:MASTER:舌
				;舐陰→口交
				IF PREVCOM == 1
					IF TCVAR:発情
						CALL HPH_PRINT,@"啾啵HPH啾啵HPH啾啵HPH啾啵HPH啾啵HPH啾啵HPH","L"
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「嗯HPH　呼ーーHPH　呼ーーHPH　嗯啊啊HPHHPH」","L"
						CALL HPH_PRINT,@"「不、不行、%CALLNAME:MASTER%阁下的舌头、太过舒服会让我没法为你侍奉…HPH」","L"
						CALL HPH_PRINT,@"「会没法好好侍奉、肉棒大人的、呼啊啊啊啊HPH」","L"
						RESETCOLOR
						PRINTW
						PRINTFORML 为了让典舔得更卖力、轻轻地拍了拍她的屁股
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「咿呀唔HPH　我、我知道了啦…HPH　啊呣、叻噜、嗯呼、嗯呼呜HPH」","L"
						RESETCOLOR
						PRINTFORML 从两人的股间中、一起发出了激烈的水声…
						PRINTW
					ELSE
						PRINTFORML 呸啾…呸啾…啾噜、啾噜噜噜噜噜呜
						CALL HPH_PRINT,@"「啊HPH　咿HPH　不、不行HPH」","L"
						PRINTW
						PRINTFORML 典一边紧紧握住肉棒、一边恳求%CALLNAME:MASTER%
						PRINTFORML 不过、%CALLNAME:MASTER%完全不在意地说有什么不行的、然后用舌头在典的秘裂和阴核上来回舔着
						PRINTW
						CALL HPH_PRINT,@"「因、因为、舒服过头了、我会没法为你侍奉、呼HPH嗯嗯嗯嗯HPHPHH」","L"
						PRINTFORML 典的身体向后反弓着。顺势、紧紧地握住%CALLNAME:MASTER%的阴茎
						PRINTW
						CALL HPH_PRINT,@"「叻噜HPH　呸啾、叻噜HPH　嗯HPH　嗯HPHHPH」","L"
						CALL HPH_PRINT,@"「是、是的…HPH　典的小穴是个敏感的杂鱼小穴…HPH」","L"
						CALL HPH_PRINT,@"「只是想到被%CALLNAME:MASTER%阁下舔的感觉、就要高潮了呜呜…HPH」","L"
						PRINTW
					ENDIF
				;口交→舐陰
				ELSEIF PREVCOM == 81
					IF TCVAR:発情
						CALL HPH_PRINT,@"啾啵HPH啾啵HPH啾啵HPH啾啵HPH啾啵HPH啾啵HPH","L"
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「哈啊、%CALLNAME:MASTER%阁下的肉棒大人、真是美味…HPH」","L"
						CALL HPH_PRINT,@"「我再多品味一下哦…唔啊！？HPHHPH」","L"
						PRINTW
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下…不可以啦、恶作剧什么的HPH　啊啊啊！？HPH」","L"
						CALL HPH_PRINT,@"「那、那样子弄那里的话…我这边也…啾呜HPH　叻噜──～～HPHHPH」","L"
						PRINTW
						RESETCOLOR
						CALL HPH_PRINT,@"啾噜噜噜呜呜！　卟啾呜呜！　噗啾HPH　啾HPH","L"
						SETCOLOR 0xFF69B4
						CALL HPH_PRINT,@"「嗯呼唔唔！？HPH　唔呣、呼ーーHPH　呼ーーHPH」","L"
						CALL HPH_PRINT,@"（明明还想继续舔的HPH　%CALLNAME:MASTER%的舌头实在舒服过头了HPHHPH）","L"
						CALL HPH_PRINT,@"（被弄到去了HPH　是个杂鱼小穴的事实要暴露了HPHHPH）","L"
						RESETCOLOR
						PRINTW
					ELSE
						CALL HPH_PRINT,@"啾啵HPH啾啵HPH卟啾啵HPH啾啵HPH啾呜呜～～～～HPH","L"
						CALL HPH_PRINT,@"「啊啊、%CALLNAME:MASTER%阁下的鸡巴、真是太棒了…HPH」","L"
						CALL HPH_PRINT,@"「我再多、为您奉仕一会儿哦…HPH　啊呣…HPH」","L"
						PRINTW
						PRINTFORML 在%CALLNAME:MASTER%的眼前、典摇来摇去地晃着她的屁股…
						PRINTFORML 看着那\@ PALAM:潤滑 >= PALAMLV:3 ? 濡湿不堪的 # \@秘裂、你萌生了想要恶作剧的念头
						PRINTW
						PRINTFORML 啾、啾噜噜
						CALL HPH_PRINT,@"「呀嗯HPH　%CALLNAME:MASTER%阁下…？」","W"
						PRINTFORML 啾噜、呸啾、呸啾、啾噜
						CALL HPH_PRINT,@"「已经、不会再输给你了哦…HPH　啾噜噜噜、啾啵啾啵啾啵HPHHPH」","L"
						PRINTW
						CALL HPH_PRINT,@"「啊咿HPH　唔啊HPH　啊HPH　不、不行HPH」","L"
						CALL HPH_PRINT,@"「我承认HPH　我承认啦HPH　典的小穴是个杂鱼小穴HPH」","L"
						CALL HPH_PRINT,@"（舌头在小穴里动来动去HPH　根本没法集中精神口交HPHHPH）","L"
						CALL HPH_PRINT,@"（杂鱼小穴的事、暴露了HPH　被弄得好舒服HPHHPH）","L"
						PRINTW
					ENDIF
				ENDIF
			ENDIF
		;年齢分岐おわり
		ENDIF
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K139_{SELECTCOM}_1
RETURN 1

;==================================================
;2,岩清水
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_2
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_2_1
RETURN 1
@M_KOJO_MESSAGE_SCOM_K139_2_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K139_{SELECTCOM}_1
RETURN 1

;==================================================
;3,Gスポット刺激
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_3
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_3_1
RETURN 1
@M_KOJO_MESSAGE_SCOM_K139_3_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
			IF TCVAR:発情
				SETCOLOR 0xFF69B4
				CALL HPH_PRINT,@"「wwﾍ√ﾚvv～─wwﾍ√ﾚww～─HPH」","L"
				CALL HPH_PRINT,@"「哦HPH　哦哦哦HPHHPH」","L"
				PRINTW
				CALL HPH_PRINT,@"「就是这样哟…HPH　那里是、能让姐姐超级舒服的地方…HPH」","L"
				CALL HPH_PRINT,@"「用手指对着那里揉一揉就哦哦哦HPH　哦哦HPHHPH　啊哦呜呜HPHHPH」","L"
				CALL HPH_PRINT,@"「继续HPH　继续、啊──～～唔唔！HPH　啊啊──～～唔唔！！！HPH」","L"
				RESETCOLOR
				PRINTW
			ELSE
				CALL HPH_PRINT,@"「嗯嗯HPH　嗯、嗯HPH」","L"
				CALL HPH_PRINT,@"「再往里一些…请用手指按一按那个软乎乎的地方…HPH」","L"
				PRINTW
				CALL HPH_PRINT,@"「哈HPH　哦哦哦HPHHPH」","L"
				CALL HPH_PRINT,@"「那、那里HPH　是姐姐HPH　最HPH　哦HPH　哦HPHHPH」","L"
				PRINTW
			ENDIF
		ELSE
			IF TCVAR:発情
				SETCOLOR 0xFF69B4
				CALL HPH_PRINT,@"「wwﾍ√ﾚvv～─wwﾍ√ﾚww～─HPH」","L"
				CALL HPH_PRINT,@"「哈HPH　啊HPHHPH　呜HPHHPH　哈HPH」","L"
				CALL HPH_PRINT,@"（那里不行HPH　不要勾着指头按个不停HPH）","L"
				CALL HPH_PRINT,@"「哦HPH　哦哦HPHHPH　啊哦呜呜HPHHPH」","L"
				CALL HPH_PRINT,@"「啊──～～唔唔！HPH　啊啊──～～唔唔！！！HPH」","L"
				RESETCOLOR
				PRINTW
			ELSE
				CALL HPH_PRINT,@"「嗯嗯HPH　嗯、嗯HPH」","L"
				CALL HPH_PRINT,@"「咿呀诶！！？HPH」","L"
				CALL HPH_PRINT,@"「那、那里…HPH　啊啊！？呜HPH」","L"
				CALL HPH_PRINT,@"「这是什么！？　这是什么啊！！？HPH」","L"
				CALL HPH_PRINT,@"「不行HPH　那里HPH　用指头按的话HPHHPH」","L"
				PRINTW
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;睡眠中
	ELSEIF CFLAG:TARGET:睡眠
	;それ以外
	ELSE
		IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
			IF TCVAR:発情
				SETCOLOR 0xFF69B4
				CALL HPH_PRINT,@"「wwﾍ√ﾚvv～─wwﾍ√ﾚww～─HPH」","L"
				CALL HPH_PRINT,@"「哈HPH　啊HPHHPH　呜HPHHPH　哈HPH」","L"
				PRINTW
				CALL HPH_PRINT,@"「不是的HPH　不是难受HPH　是太、舒服了HPHHPH」","L"
				CALL HPH_PRINT,@"「继续、哦HPH　哦哦HPHHPH　啊哦呜呜HPHHPH」","L"
				CALL HPH_PRINT,@"「啊──～～唔唔！HPH　啊啊──～～唔唔！！！HPH」","L"
				RESETCOLOR
				PRINTW
			ELSE
				CALL HPH_PRINT,@"「嗯嗯HPH　嗯、嗯HPH」","L"
				CALL HPH_PRINT,@"「咿呀诶！！？HPH」","L"
				PRINTW
				CALL HPH_PRINT,@"「那、那里…HPH　啊HPH　再多按几下HPH　啊HPH　啊啊！！HPHHPH」","L"
				CALL HPH_PRINT,@"「明白了吗HPH　姐姐、很有感觉、明白吗HPHHPH　啊、继续HPH」","L"
				PRINTW
			ENDIF
		ELSE
			IF TCVAR:発情
				SETCOLOR 0xFF69B4
				CALL HPH_PRINT,@"「wwﾍ√ﾚvv～─wwﾍ√ﾚww～─HPH」","L"
				CALL HPH_PRINT,@"「哈HPH　啊HPHHPH　呜HPHHPH　哈HPH」","L"
				CALL HPH_PRINT,@"（那里不行HPH　不要勾着指头按个不停HPH）","L"
				RESETCOLOR
				PRINTW
				PRINTFORML 而且、在用掌心从上面温柔地来回抚摸着子宮周围
				SETCOLOR 0xFF69B4
				CALL HPH_PRINT,@"「哦HPH　哦哦HPHHPH　啊哦呜呜HPHHPH」","L"
				CALL HPH_PRINT,@"「啊──～～唔唔！HPH　啊啊──～～唔唔！！！HPH」","L"
				RESETCOLOR
				PRINTW
			ELSE
				CALL HPH_PRINT,@"「嗯嗯HPH　嗯、嗯HPH」","L"
				CALL HPH_PRINT,@"「咿呀诶！！？HPH」","L"
				CALL HPH_PRINT,@"「那、那里…HPH　啊HPH　再多按几下HPH　啊HPH　啊啊！！HPHHPH」","L"
				PRINTW
				CALL HPH_PRINT,@"「唔咿HPH　呼ーHPH　嗯呼ーHPH　呼咕HPH　呼呜HPH」","L"
				CALL HPH_PRINT,@"（舒服的地方被一个劲、不停的HPH　用指头按来按去的HPH）","L"
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K139_{SELECTCOM}_1
RETURN 1

;==================================================
;4,乱牡丹
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_4
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_4_1
RETURN 1
@M_KOJO_MESSAGE_SCOM_K139_4_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K139_{SELECTCOM}_1
RETURN 1

;==================================================
;5,手淫口交
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_5
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_5_1
RETURN 1
@M_KOJO_MESSAGE_SCOM_K139_5_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K139_{SELECTCOM}_1
RETURN 1

;==================================================
;6,挿入Ｇスポ責め
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_6
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_6_1
RETURN 1
@M_KOJO_MESSAGE_SCOM_K139_6_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	ELSEIF CFLAG:TARGET:睡眠
	ELSE
		IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
			IF TCVAR:発情
				SETCOLOR 0xFF69B4
				SELECTCASE RAND:3
				CASE 0
					CALL HPH_PRINT,@"「不要发出那么可怜的声音啦~HPH　精子已经要出来了吗~HPHHPH」","L"
					CALL HPH_PRINT,@"「已经不会再让这杂鱼鸡鸡使用姐姐我的小穴了唷~HPH」","L"
					CALL HPH_PRINT,@"「要是不想的话就快点让姐姐我高潮呀~HPH　来呀~HPH　来呀~HPH」","L"
				CASE 1
					CALL HPH_PRINT,@"「哦~HPH　对了~HPH　就是那里~HPH」","L"
					CALL HPH_PRINT,@"「再继续像只野兽一样摆动身姿~HPH　来侵犯姐姐我吧HPH」","L"
				CASE 2
					CALL HPH_PRINT,@"「啊哈~HPH　这个、世界最舒服啊HPHHPH」","L"
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下的肉棒、\@ TALENT:MASTER:形状 < 0 ? 虽然小小的、但 # 高耸无比的、 \@一直在进攻着我舒服的地方HPH」","L"
					PRINTW
				ENDSELECT
				RESETCOLOR
			ELSE
				SELECTCASE RAND:3
				CASE 0
					CALL HPH_PRINT,@"「啊嗯~HPH　啊嗯~HPH」","L"
					CALL HPH_PRINT,@"「姐姐我的弱点、被找到了啊HPH」","L"
					PRINTW
					CALL HPH_PRINT,@"「嗯~HPH　就是那里、那里是姐姐我的、弱点呐~HPH　啊~HPH」","L"
					CALL HPH_PRINT,@"「快点呐~HPH　再多努力一点~HPH　来把姐姐退治掉呀~HPH」","L"
					PRINTW
					IF ABL:MASTER:腰 >= 3
						CALL HPH_PRINT,@"（这孩子的腰技、好危险~HPH）","L"
						CALL HPH_PRINT,@"（从刚才開始就一直在攻击着我的弱点、是真的想在我体内射精啊~HPH　糟糕啦~HPH）","L"
						PRINTW
					ELSE
						CALL HPH_PRINT,@"（虽然微妙的错过了好的地方、但是这努力的表情也太可爱了HPH）","L"
						CALL HPH_PRINT,@"（想用小鸡鸡让姐姐我屈服呢~HPH　雄性的本能在控制着自己想着让自己的女人臣服呐~HPH）","L"
						CALL HPH_PRINT,@"（再加把劲、来侵犯姐姐吧）","L"
						PRINTW
					ENDIF
				CASE 1
					CALL HPH_PRINT,@"「那里~HPH　那里就是姐姐我最敏感的地方了啊~HPH」","L"
					CALL HPH_PRINT,@"「加油加油小鸡鸡HPH　再加把劲、嗯~HPH　再努点力~HPH」","L"
				CASE 2
					CALL HPH_PRINT,@"「嗯~HPH　对~、就是那里~HPH」","L"
					CALL HPH_PRINT,@"「女性的腔内、是有一个非~HPH　非常敏感的部位的HPH　要好好记…记住了~HPH」","L"
					PRINTW
				ENDSELECT
			ENDIF
		ELSE
			IF TCVAR:発情
				SETCOLOR 0xFF69B4
				SELECTCASE RAND:4
				CASE 0
					CALL HPH_PRINT,@"「啊——~HPH　啊啊————~HPH　那里~HPH　那里好舒服~HPH」","L"
					CALL HPH_PRINT,@"（小穴好痒啊~HPH　请你再多深挖一点~HPH）","L"
				CASE 1
					CALL HPH_PRINT,@"「哦唔————~HPH　咕呜呜呜~HPHHPH」","L"
					CALL HPH_PRINT,@"「哦——哦——哦——~HPH」","L"
					PRINTW
					CALL HPH_PRINT,@"「那里呀~HPH　就是那里、再多多的用肉棒进攻那里呀HPHHPH」","L"
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下的肉棒~HPH　世界第一棒~HPHHPH」","L"
					CALL HPH_PRINT,@"「呀~HPH　啊~HPH　啊~HPH　快点呐~HPH　再继续摆腰HPH　把精液射出来吧~HPHHPH」","L"
					PRINTW
				CASE 2
					CALL HPH_PRINT,@"「啊~HPH　啊呜~HPH」","L"
					CALL HPH_PRINT,@"「要飞起来了~HPH　脑袋要被染成白色的了啊~HPHHPH」","L"
					PRINTW
				CASE 3
					CALL HPH_PRINT,@"「啊~哈~HPH　果然这根肉棒就是最棒了啊~HPH」","L"
					PRINTW
				ENDSELECT
				RESETCOLOR
			ELSE
				SELECTCASE RAND:3
				CASE 0
					CALL HPH_PRINT,@"「快点呀~HPH　那里就是典的弱点了唷~HPH　杂鱼鸡鸡不要输了哟~HPH」","L"
					CALL HPH_PRINT,@"「哦~HPH　完蛋~HPH　这下要完蛋鸟~HPHHPH」","L"
					CALL HPH_PRINT,@"「要输了~HPH　要输给%CALLNAME:MASTER%的杂鱼鸡鸡了啊~HPH」","L"
					PRINTW
				CASE 1
					CALL HPH_PRINT,@"「啊~HPH　啊~HPH　啊~HPH　那里~HPH　那里还要~HPH」","L"
					CALL HPH_PRINT,@"「小穴要高潮了~HPH　啊~HPH　完蛋了~HPH」","L"
					PRINTW
				CASE 2
					CALL HPH_PRINT,@"「啊~HPH　就是那里~HPH　进攻那里~HPH」","L"
					PRINTW
				ENDSELECT
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K139_{SELECTCOM}_1
RETURN 1

;==================================================
;7,挿入子宮口玩弄
;你の腰使いが3以上ならさらに子宮口開発経験が+1
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_7
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_7_1
RETURN 1
@M_KOJO_MESSAGE_SCOM_K139_7_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
			SELECTCASE TALENT:MASTER:形状
			CASE 6,10;巨根、馬並み
				CALL HPH_PRINT,@"咚呛HPH","L"
			CASE 1,2;粗チン
				CALL HPH_PRINT,@"　咕咚HPH","L"
				CALL HPH_PRINT,@"　　　咕咚HPH","L"
			CASEELSE
				CALL HPH_PRINT,@"　卟啾HPH","L"
				CALL HPH_PRINT,@"　　　卟啾HPH","L"
			ENDSELECT
			PRINTW
			PRINTFORML 「咿！？　呜…！」
			CALL HPH_PRINT,@"「啊…HPH　%CALLNAME:MASTER%阁下、那里是…HPH」","L"
			PRINTW
			SELECTCASE TALENT:MASTER:形状
			CASE 6,10;巨根、馬並み
				CALL HPH_PRINT,@"咚呛HPH","L"
			CASE 1,2;粗チン
				CALL HPH_PRINT,@"　咕咚HPH","L"
				CALL HPH_PRINT,@"　　　咕咚HPH","L"
			CASEELSE
				CALL HPH_PRINT,@"　卟啾HPH","L"
				CALL HPH_PRINT,@"　　　卟啾HPH","L"
			ENDSELECT
			PRINTL
			CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下、请、请等HPHHPH」","L"
			CALL HPH_PRINT,@"「不行HPH　那里、子宫呜呜HPH」","L"
			CALL HPH_PRINT,@"「姐姐、不会逃跑的所以、等、啊、好难受HPH」","L"
			PRINTW
		ELSE
			SELECTCASE TALENT:MASTER:形状
			CASE 6,10;巨根、馬並み
				CALL HPH_PRINT,@"咚呛HPH","L"
			CASE 1,2;粗チン
				CALL HPH_PRINT,@"　咕咚HPH","L"
				CALL HPH_PRINT,@"　　　咕咚HPH","L"
			CASEELSE
				CALL HPH_PRINT,@"　卟啾HPH","L"
				CALL HPH_PRINT,@"　　　卟啾HPH","L"
			ENDSELECT
			PRINTW
			PRINTFORML 「哦…？」
			CALL HPH_PRINT,@"「唔　哦！？　哦哦！？」","L"
			PRINTW
			SELECTCASE TALENT:MASTER:形状
			CASE 6,10;巨根、馬並み
				CALL HPH_PRINT,@"咚呛HPH","L"
			CASE 1,2;粗チン
				CALL HPH_PRINT,@"　咕咚HPH","L"
				CALL HPH_PRINT,@"　　　咕咚HPH","L"
			CASEELSE
				CALL HPH_PRINT,@"　卟啾HPH","L"
				CALL HPH_PRINT,@"　　　卟啾HPH","L"
			ENDSELECT
			PRINTL
			CALL HPH_PRINT,@"「那、那里、子宫、子宫HPHHPH」","L"
			CALL HPH_PRINT,@"「啊、好难受HPH　等下、等HPH　哦咕！？　啊咕！」","L"
			PRINTW
		ENDIF
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	ELSEIF CFLAG:TARGET:睡眠
		RETURN 1
	;それ以外
	ELSE
		;子宮が降りていると快Ｖ増加
		SELECTCASE EXP:子宮口開発経験
		;苦痛ソース0
		CASE IS > 300
			IF TCVAR:発情
				IF TALENT:妊娠願望
					IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
						IF TEQUIP:子宮
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「哦呜~HPH　哦~HPH」","L"
							CALL HPH_PRINT,@"「就这么想要~HPH　把姐姐生孩子的门~HPH　给撬開来吗~HPH」","L"
							CALL HPH_PRINT,@"「可以的哟~HPH　请进来吧~HPH　到姐姐的最深处里来~HPHHPH」","L"
							RESETCOLOR
							PRINTW
							CALL HPH_PRINT,@"　　　HPHHPH　咕啵唔　HPHHPH","L"
							PRINTL
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「啊──～～HPH　啊──～～HPH　插进来了HPHHPH　鸡鸡、插进子宮HPH」","L"
							SELECTCASE TALENT:MASTER:形状
							CASE 6,10;巨根、馬並み
								RESETCOLOR
								PRINTL
								CALL HPH_PRINT,@"咚呲HPH　咚呲HPH","L"
								CALL HPH_PRINT,@"　　咚呲HPH　咚呲HPH","L"
								PRINTL
								SETCOLOR 0xFF69B4
								CALL HPH_PRINT,@"「哦~HPH　哈啊~HPH　啊~啊~HPH　好厉~HPHHPH」","L"
								CALL HPH_PRINT,@"（小穴要~HPH　小穴要被弄坏了~HPHHPH　被插到子宫的最深处了~HPH）","L"
								CALL HPH_PRINT,@"（都好像是被顶到了脑门一样~HPH　要被小孩子弄得失去意识了啊~HPHHPH）","L"
								PRINTW
								RESETCOLOR
							CASEELSE
								RESETCOLOR
								PRINTL
								CALL HPH_PRINT,@"啪啾HPH　啪啾HPH","L"
								CALL HPH_PRINT,@"　　啪啾HPH　啪啾HPH","L"
								PRINTL
								SETCOLOR 0xFF69B4
								CALL HPH_PRINT,@"「啊哈~HPH　这下子卵子不就就没有路可以逃了嘛~HPH」","L"
								CALL HPH_PRINT,@"「来吧~HPH　对姐姐实施认真的付种吧~HPH　加油~HPH　努力~HPHHPH」","L"
								CALL HPH_PRINT,@"「啊呜~HPH　啊~HPH　快点~HPH　让我的子宫被填满吧~HPHHPH」","L"
								PRINTW
								RESETCOLOR
							ENDSELECT
						ELSE
						ENDIF
					ELSE
						IF TEQUIP:子宮
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「啊哈HPH　明白了吗HPH」","L"
							CALL HPH_PRINT,@"「因为想要%CALLNAME:MASTER%阁下的种子汁、子宮口在亲吻鸡鸡呢HPHHPH」","L"
							PRINTW
							CALL HPH_PRINT,@"　　　HPHHPH　咕啵唔　HPHHPH","L"
							PRINTL
							CALL HPH_PRINT,@"「啊──～～HPH　啊──～～HPH　插进来了HPHHPH　鸡鸡、插进子宮HPH」","L"
							CALL HPH_PRINT,@"「小宝宝的房间HPH　被戳碰着HPH　啊──～～HPH　啊啊啊──～～HPH」","L"
							RESETCOLOR
							PRINTW
						ELSE
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「哦──～～HPH　哦HPH　哦HPHHPH」","L"
							CALL HPH_PRINT,@"「肉棒用力顶着子宮口HPH　%CALLNAME:MASTER%阁下、看来想让我怀孕的架势十足嘛HPHHPH」","L"
							CALL HPH_PRINT,@"「好高兴HPH　快点HPH　为我播种HPH　请让\@ (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行) ? 姐姐 # 典 \@怀孕吧HPHHPH」","L"
							RESETCOLOR
							PRINTW
						ENDIF
					ENDIF
				;妊娠願望無
				ELSE
					IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
						IF TEQUIP:子宮
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「知道吗~HPH　子宫已经降下来了哟~HPHHPH」","L"
							CALL HPH_PRINT,@"「正在亲吻着鸡鸡索求着精液呢~HPH　哦~HPHHPH」","L"
							RESETCOLOR
							PRINTW
							CALL HPH_PRINT,@"　　　HPHHPH　咕啵唔　HPHHPH","L"
							PRINTL
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「哦」","L"
							SELECTCASE TALENT:MASTER:形状
							CASE 6,10;巨根、馬並み
								CALL HPH_PRINT,@"（大肉棒~HPH　到子宫里面来啦~HPH）","L"
								CALL HPH_PRINT,@"「哦咕HPH　呼呜～～HPHHPH　呼呜呜～～～～HPHHPH」","L"
								PRINTW
							CASEELSE
								CALL HPH_PRINT,@"（虽然觉得怎么的也进不到子宫里面去HPH　但是这孩子的肉棒果然是最棒了的啊~HPHHPH）","L"
								CALL HPH_PRINT,@"「嗯~HPH　就是这样~HPH　再来~HPH　继续~HPHHPH」","L"
								PRINTW
							ENDSELECT
							RESETCOLOR
						ELSE
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「姐姐我好喜欢这个~HPH　超喜欢~HPHHPH」","L"
							CALL HPH_PRINT,@"「哼、哦哦哦~HPH　整根都插进来~HPHHPH」","L"
							SELECTCASE TALENT:MASTER:形状
							CASE 6,10;巨根、馬並み
								CALL HPH_PRINT,@"（这孩子的肉棒超级危险HPH）","L"
								CALL HPH_PRINT,@"（每次突刺都感觉自己的肚子在被压迫着HPH）","L"
								CALL HPH_PRINT,@"「哦~HPH　去、去了！HPHHPH」","L"
								PRINTW
							CASEELSE
								CALL HPH_PRINT,@"（虽然觉得怎么的也进不到子宫里面去HPH　但是这孩子的肉棒果然是最棒了的啊~HPHHPH）","L"
								CALL HPH_PRINT,@"「嗯~HPH　就是这样~HPH　再来~HPH　继续~HPHHPH」","L"
							ENDSELECT
							RESETCOLOR
						ENDIF
					;大人
					ELSE
						IF TEQUIP:子宮
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「啊哇…HPH　子宫降下来的时机刚刚好HPH」","L"
							CALL HPH_PRINT,@"「典的子宫、已经完全变成%CALLNAME:MASTER%阁下专用的了啊~HPH」","L"
							RESETCOLOR
							PRINTW
							CALL HPH_PRINT,@"　　　HPHHPH　咕啵唔　HPHHPH","L"
							PRINTL
							SETCOLOR 0xFF69B4
							CALL HPH_PRINT,@"「哦」","L"
							SELECTCASE TALENT:MASTER:形状
							CASE 6,10;巨根、馬並み
								CALL HPH_PRINT,@"「哦！？　哦！！？　HPHHPH」","L"
								CALL HPH_PRINT,@"（大肉棒~HPH　到子宫里面来啦~HPH）","L"
								CALL HPH_PRINT,@"（子宮壁被压迫着~HPH　就好像要从口里刺出来了一样HPHHPH）","L"
								CALL HPH_PRINT,@"「哦咕HPH　呼呜～～HPHHPH　呼呜呜～～～～HPHHPH","L"
								PRINTW
							CASEELSE
								CALL HPH_PRINT,@"（子宮~HPH　被不留情面的无情侵犯着~HPH）","L"
								CALL HPH_PRINT,@"「嗯~HPH　就是这样~HPH　再来~HPH　继续~HPHHPH」","L"
								PRINTW
							ENDSELECT
							RESETCOLOR
						ELSE
							SETCOLOR 0xFF69B4
							SELECTCASE RAND:3
							CASE 0
								CALL HPH_PRINT,@"「大肉棒HPH　在里面好大一个~HPHHPH」","L"
								CALL HPH_PRINT,@"「子宮~HPH　被撑開了~HPH」","L"
								PRINTW
							CASE 1
								CALL HPH_PRINT,@"「啊啊~HPH　肉棒把整个腔内填满的感觉HPH」","L"
								CALL HPH_PRINT,@"「好棒~HPH　好硬~HPH　好热~HPH　好大~HPH　在敲击着子宫呢~HPHHPH」","L"
								PRINTW
							CASE 2
								CALL HPH_PRINT,@"「啊啊~HPH　冲击着比平时还要深的地方、好舒服~HPH」","L"
								CALL HPH_PRINT,@"「糟糕了啊~HPH　我现在已经思考不了这根肉棒以外的东西了啊~HPHHPH」","L"
								PRINTW
							ENDSELECT
							RESETCOLOR
						ENDIF
					ENDIF
				ENDIF
			;発情していない
			ELSE
				IF TALENT:妊娠願望
					IF TEQUIP:子宮
						IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
							CALL HPH_PRINT,@"「啊哈HPH　明白了吗HPH」","L"
							CALL HPH_PRINT,@"「姐姐的身体、现在正在全力述说着想要%CALLNAME:MASTER%阁下的孩子的愿望呢~HPH」","L"
							CALL HPH_PRINT,@"「来吧~HPH　来让姐姐变成妈妈吧~HPH　我想要%CALLNAME:MASTER%阁下的宝宝呐~HPH」","L"
							PRINTW
						ELSE
							SELECTCASE RAND:2
							CASE 0
								CALL HPH_PRINT,@"「好嗯的~HPH　典的子宫哈~HPH　已经完全准备好了~HPH」","L"
								CALL HPH_PRINT,@"「请把%CALLNAME:MASTER%阁下的蛋蛋里剩下的所有子种HPH　一滴不剩的全部注入进来吧~HPHHPH」","L"
								PRINTW
							CASE 1
								CALL HPH_PRINT,@"「对、啊~HPH　要射的话、就射在里面~HPH　哦~HPH　在最里面~HPHHPH」","L"
								CALL HPH_PRINT,@"「一滴不剩的~HPH　把所有精液都注入进来~HPH」","L"
								PRINTW
							ENDSELECT
						ENDIF
					ELSE
						IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
							CALL HPH_PRINT,@"「想让姐姐我HPH　怀上小宝宝的对吧HPH」","L"
							CALL HPH_PRINT,@"「那么~HPH　就在肉棒现在顶到的地方HPH　朝里面把所有的精液都射出来吧~HPH」","L"
						ELSE
							CALL HPH_PRINT,@"「哦~HPH　好激、烈~HPH　噫~HPH　噫嘻~HPH」","L"
							CALL HPH_PRINT,@"「子宮HPH　被压迫着HPH　啊~HPH　噫~HPH」","L"
							CALL HPH_PRINT,@"「就这样~HPH　射出来~HPH　用%CALLNAME:MASTER%阁下的子种HPH　让典怀孕吧~HPHHPH」","L"
							PRINTW
						ENDIF
					ENDIF
				ELSE
					IF TEQUIP:子宮
						IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
							CALL HPH_PRINT,@"「啊ー啊HPH　都是因为%CALLNAME:MASTER%阁下这么顽固的突刺HPH」","L"
							CALL HPH_PRINT,@"「姐姐我的子宫都降下来了啊~HPH」","L"
							PRINTW
							CALL HPH_PRINT,@"「怎么样、发现了没有啊~HPH　子宮口现在正在猛吸着龟头呢HPHHPH」","L"
							CALL HPH_PRINT,@"「既然变成了这个样子、在你射精之前都不会放你走的哟~HPH　射出来吧~HPH　把浓郁的小孩子精子HPH　射出来~HPHHPH」","L"
							PRINTW
						ELSE
							CALL HPH_PRINT,@"「对不起啦~HPH　舒服过头了、子宫都降了下来了啊~HPHHPH」","L"
							CALL HPH_PRINT,@"「真对不起、这是一个只有口头上厉害的杂鱼子宫呐~HPH　所以、再来~HPH　哦~哦哦~HPHHPH」","L"
							PRINTW
						ENDIF
					ELSE
						IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
							CALL HPH_PRINT,@"「可以的哟~HPHHPH　就这么摆着腰~HPH　在里面~HPH　在里面尽情的突刺吧~HPHHPH」","L"
							PRINTW
							CALL HPH_PRINT,@"（糟糕了~HPH　子宮~HPH　好像快降下来力~HPHHPH）","L"
							CALL HPH_PRINT,@"（明明就是一根小屁孩肉棒HPH　却被龟头命令着说怀孕HPH　怀孕HPH　快怀孕HPHHPH）","L"
							CALL HPH_PRINT,@"（明明只是对上了一根小屁孩肉棒、子宫既然屈服了HPH　要被受精了~HPHHPH）","L"
							PRINTW
						ELSE
							SELECTCASE TALENT:MASTER:形状
							CASE 6,10;巨根、馬並み
								CALL HPH_PRINT,@"「哦~HPH　咕哦~HPHHPH　呀~HPH　不行~HPH　不能再~HPHHPH」","L"
								PRINTL
								PRINTFORML 噗通~
								PRINTL
								CALL HPH_PRINT,@"「咕、噫噫噫噫~！？　HPH　哦~HPH　咕哦~HPH」","L"
								CALL HPH_PRINT,@"（进、进来了HPH　子宫里、被龟头侵入了HPHHPH）","L"
								CALL HPH_PRINT,@"（子宮~HPH　笨蛋过头了好舒服~~~HPHHPH）","L"
								PRINTW
							CASEELSE
								CALL HPH_PRINT,@"「诶呀~HPH　根本没有到达最深处呢！？HPHHPH」","L"
								CALL HPH_PRINT,@"「噫~、欸、欸嘿嘿…就…就这？…HPH　比小指都要短的鸡鸡…HPH」","L"
								PRINTW
								CALL HPH_PRINT,@"「呀~HPH　呀~HPH　呀~HPH　啊~HPH　才没到达呢~HPH　根本就没有抵达~HPHHPH」","L"
								CALL HPH_PRINT,@"「那里就只是腔壁而已~HPH　才没有触及到子宫口~HPHHPH　哦哦哦~HPHHPH」","L"
								PRINTW
							ENDSELECT
						ENDIF
					ENDIF
				ENDIF
			ENDIF
		;気持ちよくなってくる
		CASE IS > 150
			IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
				IF TEQUIP:子宮
					SELECTCASE RAND:2
					CASE 0
						CALL HPH_PRINT,@"「看呐、已经是完美匹配了哟~HPH」","L"
						CALL HPH_PRINT,@"「姐姐的子宫口的形状、跟%CALLNAME:MASTER%阁下龟头的形状HPH」","L"
						PRINTW
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下的肉棒肯定是为了回归姐姐的腔内才会存在的东西哟~HPH」","L"
						CALL HPH_PRINT,@"「好咯、快回来吧~HPH　啾~HPH　啾~HPH」","L"
						CALL HPH_PRINT,@"「呵呵HPH　小鸡鸡被子宫口吸住一抖一抖的~HPH　真可爱~HPH」","L"
						PRINTW
					CASE 1
						CALL HPH_PRINT,@"「HPH」","L"
						CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下的小鸡鸡、现在正被姐姐的子宫口紧紧吸附着呢HPH」","L"
						PRINTW
						CALL HPH_PRINT,@"「给我精子~HPH　给我精子~HPH　地、在恳求着呢~HPH」","L"
						CALL HPH_PRINT,@"「所以就请你在姐姐的最深处biubiu的尽情射精吧~HPH」","L"
						PRINTW
					ENDSELECT
				ELSE
					CALL HPH_PRINT,@"「真是~HPH　区区一个小孩子、子宫口责备什么的我可不记得有教~HPH」","L"
					CALL HPH_PRINT,@"「这么不让人安心的鸡鸡、不用姐姐的小穴永远关着可不行呢HPH」","L"
					CALL HPH_PRINT,@"「看呐、紧紧的HPH　姐姐的小穴、现在要把你给关住了哟~HPH」","L"
					PRINTW
				ENDIF
			ELSE
				IF TEQUIP:子宮
					CALL HPH_PRINT,@"「啊～～HPH　啊啊啊～～～HPH　啊~HPH　啊~HPH　啊~HPH」","L"
					CALL HPH_PRINT,@"（这个…HPH　子宮口跟龟头紧密相连地温柔突刺着、下半身像是要融化了一样HPH）","L"
					CALL HPH_PRINT,@"（就是因为没有粗暴的对待、我的子宫现在已经完全认%CALLNAME:MASTER%阁下为主人了啊~HPH）","L"
					PRINTW
				ELSE
					CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下哦、你知不知道呐HPH」","L"
					CALL HPH_PRINT,@"「我的子宮口现在可是在紧紧吸允着您的龟头呢~HPH」","L"
					PRINTW
					CALL HPH_PRINT,@"「这个大概在%CALLNAME:MASTER%阁下射精之前都不会射精的哟HPH」","L"
					CALL HPH_PRINT,@"「要怎么办呢？HPH　您想怎么做呢？HPH　%CALLNAME:MASTER%阁下啊HPH」","L"
					PRINTW
				ENDIF
			ENDIF
		;苦痛のソース半減。開発完了（地の描写）
		CASE IS > 50
			IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
				CALL HPH_PRINT,@"「看呐HPH　姐姐的子宫现在正在和你的鸡鸡亲密的接吻呢~HPH」","L"
				CALL HPH_PRINT,@"「你懂不懂呐~HPH　它现在正在催促着%CALLNAME:MASTER%阁下让自己怀孕呢HPH」","L"
				PRINTW
			ELSE
				CALL HPH_PRINT,@"「还不是%CALLNAME:MASTER%阁下像是不怕累一样的一直一直对着子宫口突刺HPH　着要我怎么感觉不到呢~HPH」","L"
				CALL HPH_PRINT,@"「再来HPH　咕咚咕咚地HPH　凶猛的进攻我吧~HPHHPH」","L"
				PRINTW
			ENDIF
		;快Ｖ半減、25以下なら苦悶、25超でこなれてくる
		CASEELSE
			CALL HPH_PRINT,@"「うっ、ぐうぅっHPH」","L"
			IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
				SELECTCASE RAND:2
				CASE 0
					CALL HPH_PRINT,@"「你、你明白吗…HPH　那里是子宫口…孩子住的小房子的入口哟…HPH」","L"
				CASE 1
					CALL HPH_PRINT,@"「小孩子肉棒~、径直猛攻我的子宫吧~HPH」","L"
				ENDSELECT
			ELSE
				SELECTCASE RAND:2
				CASE 0
					CALL HPH_PRINT,@"「啊啊~、深入到了那么深的地方…HPH」","L"
				CASE 1
					CALL HPH_PRINT,@"「啊啊啊…好、好深呐…HPH」","L"
				ENDSELECT
			ENDIF
		ENDSELECT
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K139_{SELECTCOM}_1
RETURN 1

;==================================================
;8,６９乳交
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_8
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_8_1
RETURN 1
@M_KOJO_MESSAGE_SCOM_K139_8_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K139_{SELECTCOM}_1
RETURN 1

;==================================================
;9,雙重口交
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_9
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_9_1
;戻り値とTARGETを保存、TARGETを二人目に一時的に交代して二人目口上を呼び出した後、TARGETをもどして保存した戻り値でRETURNする
;二人目是らない場合はここで処理
;二人目
LOCAL = MASTER_POSE(4,1,1)
LOCAL:1 = RESULT
LOCAL:2 = TARGET
TARGET = LOCAL
TRYCALLFORM M_KOJO_MESSAGE_SCOM_K{TARGET}_9_2
TARGET = LOCAL:2
RETURN LOCAL:1

;一人目口上
@M_KOJO_MESSAGE_SCOM_K139_9_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K139_{SELECTCOM}_1
RETURN 1

;二人目口上
@M_KOJO_MESSAGE_SCOM_K139_9_2
VARSET LOCAL
;一人目
LOCAL:101 = MASTER_POSE(4,1)
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;10,雙重素股
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_10
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_10_1
;戻り値とTARGETを保存、TARGETを二人目に一時的に交代して二人目口上を呼び出した後、TARGETをもどして保存した戻り値でRETURNする
;二人目是らない場合はここで処理
;二人目
LOCAL = MASTER_POSE(2,1,1)
LOCAL:1 = RESULT
LOCAL:2 = TARGET
TARGET = LOCAL
TRYCALLFORM M_KOJO_MESSAGE_SCOM_K{TARGET}_10_2
TARGET = LOCAL:2
RETURN LOCAL:1

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

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

;==================================================
;11,雙重乳交
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_11
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_11_1
;戻り値とTARGETを保存、TARGETを二人目に一時的に交代して二人目口上を呼び出した後、TARGETをもどして保存した戻り値でRETURNする
;二人目是らない場合はここで処理
;二人目
LOCAL = MASTER_POSE(5,1,1)
LOCAL:1 = RESULT
LOCAL:2 = TARGET
TARGET = LOCAL
TRYCALLFORM M_KOJO_MESSAGE_SCOM_K{TARGET}_11_2
TARGET = LOCAL:2
RETURN LOCAL:1

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

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

;==================================================
;12,乳夾口交
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_12
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_12_1
RETURN 1
@M_KOJO_MESSAGE_SCOM_K139_12_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K139_{SELECTCOM}_1
RETURN 1

;==================================================
;13,交互挿入
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_13
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_13_1
;戻り値とTARGETを保存、TARGETを二人目に一時的に交代して二人目口上を呼び出した後、TARGETをもどして保存した戻り値でRETURNする
;二人目是らない場合はここで処理
;二人目
LOCAL = MASTER_POSE(6,1,1)
LOCAL:1 = RESULT
LOCAL:2 = TARGET
TARGET = LOCAL
TRYCALLFORM M_KOJO_MESSAGE_SCOM_K{TARGET}_13_2
TARGET = LOCAL:2
RETURN LOCAL:1

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

@M_KOJO_MESSAGE_SCOM_K139_13_2
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;14,玩弄Ｓ状結腸
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_14
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_14_1
RETURN 1
@M_KOJO_MESSAGE_SCOM_K139_14_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K139_{SELECTCOM}_1
RETURN 1
;==================================================
;15,隔着刺激陰道
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_15
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_15_1
RETURN 1
@M_KOJO_MESSAGE_SCOM_K139_15_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K139_{SELECTCOM}_1
RETURN 1

;==================================================
;17,同時吸乳头
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_17
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_17_1
RETURN 1
@M_KOJO_MESSAGE_SCOM_K139_17_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K139_{SELECTCOM}_1
RETURN 1

;==================================================
;19,授乳PLAY
;==================================================
@M_KOJO_MESSAGE_SCOM_K139_19
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K139_19_1
RETURN 1
@M_KOJO_MESSAGE_SCOM_K139_19_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕 || TALENT:恋人
		IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
			CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下也还只是一个需要宠的小孩子呢…HPH」","L"
			CALL HPH_PRINT,@"「多吃一点妈妈的欧派吧~HPH　多喝一点、然后变得更大吧~HPH」","L"
			PRINTW
			CALL HPH_PRINT,@"「就像这边一样…HPH　好咯、嘘ー、嘘ー…HPH」","L"
			CALL HPH_PRINT,@"「啊拉啊拉、一边喝着妈妈的奶一边就快要射出肉棒牛奶了呢？HPH　真是个让人没办法的孩子呢…HPH」","L"
			CALL HPH_PRINT,@"「可以哟ーHPH　妈妈会好好的注视着你的、熟练的射精吧~HPH」","L"
			PRINTW
		ELSE
			CALL HPH_PRINT,@"「HPH」","L"
		ENDIF
		RETURN 1
	;それ以外
	ELSE
		CALL HPH_PRINT,@"「……HPH」","L"
		PRINTFORML 典就如同母亲一样温柔地抚摸着%CALLNAME:MASTER%的头、轻缓地为你上下撸动肉棒…
		CALL HPH_PRINT,@"（带着一副毫无防备的表情吮吸着乳头…真是个可爱的人HPH）","L"
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K139_{SELECTCOM}_1
RETURN 1

repo_name: akadiya/eratw

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

license: unknown


path: ERB/口上・メッセージ関連/個人口上/【139】典/M_KOJO_K139_絶頂.ERB


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


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


code:
;### 関数 ###################################
;例によって映姫様口上から拝借。説明文は基本オリジナルのままです
;==================================================
;人目があるか判定関数＠掀裙子判定のをまとめただけ
;人目がある =1 無い =0
;-------------------------------------------------
@K139_BE_SEEN()
#FUNCTION
SIF GET_TARGETNUM() > 1 || DATE_HITOGOMI(CFLAG:PLAYER:現在位置) || WITH_MOB()
	RETURNF 1
RETURNF 0

;==================================================
;MASTERの恋人がその場に居るかどうか返す式中関数
;=-1 典が恋人 =0 元から恋人無 =1 その場に居ない =2 恋人と同席
;-------------------------------------------------
@K139_FIND_LOVER()
#FUNCTION
SIF TALENT:MASTER:恋人 == 0
	RETURNF 0
SIF TALENT:139:恋人
	RETURNF -1
SIF CFLAG:(TALENT:MASTER:恋人):現在位置 == CFLAG:MASTER:現在位置
	RETURNF 2
RETURNF 1

;==================================================
;同部屋のキャラを拾う式中関数。尋找順位は[恋人]持ち→知り合い→TARGET内随机
;愛麗絲口上の関数お借りして平文化しました。ERHだと動作が速かったり安定するのかな
;丸コピはあれなので知り合い以外は随机で選んでIDを返すように。誰もいなければ0を返す
;-------------------------------------------------
@K139_FIND_AROUND()
#FUNCTION
#DIM 知り合い,6 = 140, 142, 141, 29, 42, 65
#DIM 総人数
#DIM 抽選
#LOCALSIZE 200
;典の知り合いは6人,龍>百々世>千亦>文>極>椛の順に(勝手に)設定
VARSET LOCAL
抽選 = 0
総人数 = GET_TARGETNUM()
;部屋に典一人なら当然0
SIF 総人数 == 1
	RETURNF 0
;[恋人]持ちがいたら優先してIDを返す
SIF K139_FIND_LOVER() == 2
	RETURNF TALENT:MASTER:恋人
;知り合い優先度順に現在位置を調べMASTERと同じならIDを返す
FOR COUNT, 0, 6
	SIF CFLAG:(知り合い:COUNT):現在位置 == CFLAG:MASTER:現在位置
		RETURNF 知り合い:COUNT
NEXT
;知り合いがいなければ同室のTARGET_ID全部を拾う
FOR COUNT,1, 総人数 + 1
	;地獄の断頭台withジェロニモ状態を防ぐため口上主はスキップ
	SIF TARGET:COUNT == TARGET:0
		CONTINUE
	;MASTERと典の現在位置にいなければスキップ
	SIF (CFLAG:(TARGET:COUNT):現在位置 != CFLAG:MASTER:現在位置) || (CFLAG:(TARGET:COUNT):現在位置 != CFLAG:139:現在位置)
		CONTINUE
	;配列のカウントは別で取りながら代入
	LOCAL:抽選 = TARGET:COUNT
	抽選 ++
NEXT
;この条件でここまで来たのはなんでだろう
;ともかくエラー出さないためにヨシ！
SIF 抽選 < 1
	RETURNF 0
;抽選してIDを決定
RETURNF LOCAL:(RAND(抽選))

;==================================================
;映姫様が他のキャラを呼ぶ式中関数
;呼び捨て =小町 久侘歌：敬称 =赫喀提亞「様」：他は皆「さん」づけ
;ARG=0でMASTER 条件付けで呼び名を変える。需要なさそうだけどおにいさんにも対応
;引数 =1or2をとると路人キャラ/MASTER/対象キャラ無し(ARG=0)が指定されたら「だれか」「他の人」と呼ぶ＠性騷擾が捗る
;引数 =3で種族・属性呼び。CSV読みでTALENT分けより雰囲気出る気がするけど、個別で設定しないからやっぱり変なのはある
;-------------------------------------------------
@K139_C_NAME(ARG, TYPE = 0)
#FUNCTIONS
#DIM TYPE
#DIM VARIANT
#DIMS STR_LIST, 10
VARSET LOCALS
VARSET STR_LIST
VARIANT = 0
SIF TYPE == 3
	GOTO TRIBE
IF TYPE && (ARG == RANDOM_CHARANUM || ARG == 0)
	SIF TYPE == 1
		RETURNF "だれか"
	RETURNF "他の人"
ENDIF
SELECTCASE ARG
	;MASTERの呼び名
	CASE 0
		RETURNF CALLNAME:MASTER + "さん"
	;其他
	CASEELSE
		RETURNF CALLNAME:ARG + "さん"
ENDSELECT
$TRIBE
;==================================================
;主人公の呼び名を変更する関数
;スレで話題にあがってたから、なんとなく入れてみる
;構文は命OD勢の口上からほぼそのまま持ってきてます
@K139_SET_C_NAME(ARG)
#DIMS C_NAM
;--------------------------------------------------
;ARG =0:通常の初回入力 =1:恋慕呼び名入力 =2:祈願からの通常呼び名変更 =3:祈願からの恋慕呼び名変更
;--------------------------------------------------
RESETCOLOR
PRINTFORMDL 请输入称呼(直接入力するか、ボタンで選択してください)
IF ARG == 1 || ARG == 3
	C_NAM = %MASTERNAME:139%
	SIF ARG == 3 && CSTR:139:80 != ""
		C_NAM = %CSTR:139:80%
	PRINTBUTTON "[叫主人就可以]", "主人"
	PRINTL
	PRINTBUTTON @"[还是叫%C_NAM%吧]", @"%C_NAM%"
	PRINTL
ELSE
	C_NAM = %CALLNAME:MASTER%
	PRINTBUTTON @"[用%C_NAM%\@ TALENT:139:恋人 ? # 桑 \@来称呼]", @"%C_NAM%"
	PRINTL
ENDIF
$INPUT_LOOP
RESETCOLOR
INPUTS
SETCOLOR 0x337D5C
;行頭行尾の空白文字削除
C_NAM = %RESULTS%
REPLACE C_NAM, "\(\^\\s\+\|\\s\+\$)", ""
;2文字未満
IF STRLENS(C_NAM) < 2
	SIF STRLENS(RESULTS)
		CLEARLINE 1
	REUSELASTLINE 「…这么短是在玩速通吗？」
	GOTO INPUT_LOOP
;14文字(全角7文字)超えた
ELSEIF STRLENS(C_NAM) > 14
	CLEARLINE 1
	REUSELASTLINE 「这真的是你的名字吗？」
	GOTO INPUT_LOOP
;龍
ELSEIF (FLAG:扮演 != 139 && STRCOUNT(C_NAM, "龍"))
	CLEARLINE 1
	REUSELASTLINE 「…还请、不要開玩笑」
	GOTO INPUT_LOOP
ENDIF
;変えるって言ったのに呼び名変えてなかったら返回
SIF (C_NAM == CSTR:139:80 && ARG == 3) || (C_NAM == MASTERNAME:139 && ARG == 2)
	RETURN -1
;直接入力対応＠響子口上からそのまま拝借。改造したいけど正規表現わかんね
IF MASTERNAME:139 == "" || ARG == 2
	IF STRCOUNT(C_NAM, "\(\(主公\|ご\)\(主人\|吾主\)\(大人\|さま\)\)$")
		CLEARLINE 1
			REUSELASTLINE 「虽然很不好意思、但能让我如此尊称的只有饭纲丸大人一个人…」
		GOTO INPUT_LOOP
	ENDIF
ENDIF
IF ARG == 1
	PRINTFORML 「%C_NAM%…、就这样称呼您、可以吗？」
ELSEIF ARG == 3
	PRINTFORML 「%C_NAM%…、这样称呼就可以了吗？」
ELSE
	PRINTFORML 「%C_NAM%\@ TALENT:139:恋人 ? # 桑 \@、是吗」
ENDIF
RESETCOLOR
CALL ASK_YN
IF !RESULT
	IF MASTERNAME:139 == "" || ARG == 2
		MASTERNAME:139 = %C_NAM%
	ELSE
		CSTR:139:80 = %C_NAM%
	ENDIF
ELSE
	PRINTFORMDL 请输入称呼
	GOTO INPUT_LOOP
ENDIF
SETCOLOR 0x337D5C
RETURN 1

;==================================================
;典の服が濡れる関数
;-------------------------------------------------
@K139_AMANURE
	;雨の日に屋外にいるなら服が濡れて透ける。旗袍限定
	IF OUTROOF(CFLAG:139:現在位置) && GROUPMATCH(TIME:5, 4, 5, 6, 7)
		SELECTCASE TIME:5
		CASE 5
			TCVAR:355 += 7
		CASEELSE
			TCVAR:355 += 3
		ENDSELECT
	ENDIF

;==================================================
;典の濡れ透け具合を返す関数
;-------------------------------------------------
@K139_NURESUKE()
	SETCOLOR 0xFF69B4
	SELECTCASE TCVAR:139:355
	CASE 0
		RETURN -1
	CASE IS > 100
		PRINTFORML 衣服紧紧贴在典的躯体上、身体的曲线被暴露无遗…
		PRINTFORML 可能是由于寒冷、乳头高耸地挺立着…
		IF CFLAG:没穿内裤 == 1
			SELECTCASE RAND:2
			CASE 0
				PRINTFORML 典的臀部曲线被暴露无遗…
			CASE 1
				PRINTFORML 典的皮肤纹理都渐渐透了出来
			ENDSELECT
		ELSE
			PRINTFORML %PANTSNAME(EQUIP:TARGET:下半身内衣２, TARGET)%透了出来能看得一清二楚…
		ENDIF
	CASE IS > 50
		IF EQUIP:上半身内衣１
			PRINTFORML %CLOTHNAME(7, EQUIP:139:7)%若隐若现地透了出来…
		ELSEIF EQUIP:上半身内衣２
			PRINTFORML %CLOTHNAME(8, EQUIP:139:8)%若隐若现地透了出来…
		ELSE
			PRINTFORML 衣服紧紧贴在典的躯体上、樱粉色的乳头若隐若现地透了出来…
		ENDIF
	CASE IS > 0
		PRINTFORML 在典的衣服上浸染出两抹绯晕…
	ENDSELECT
	RESETCOLOR

;==================================================
;個人情報の「角色介绍」の文章を書き換える関数
;==================================================
;@CHARA_INFO_KOJO_K139()
;個人情報の「角色介绍」の文章を書き換える
;これがあれば「CSTR」の20番以降(20～39)に文字列を書き込むだけで書き換わるはず
;早苗口上、諏訪子口上より引用、改変
;-----------------------------------------------------------------------------------------------
@CHARA_INFO_KOJO_K139()
;===============================================================================================
;記述例
;このコメントアウトを外すと「CSTR」の20番以降に文字列を書き込むだけで書き換わるようになる
;FOR LOCAL,20,40
;	SIF CSTR:139:(LOCAL) != ""
;		PRINTFORML %CSTR:139:(LOCAL)%
;NEXT
;RETURN 1
;…とまあ、こんな感じでCSTR20番以降を使えばいいはず
;===============================================================================================
;本口上は、書き換わる文章が多いのでCSTRへの保存をせずに直接書き込む
;現時点で下の2行が書き込まれている
;PRINTL □ 角色介绍 □---------------------------------------------------------------------
;PRINTL

;##################################################################################
;①～耳元で囁く邪悪な白狐～　●種族：管狐　●能力：魂の弱い所に入り込む程度の能力を布丁ト
;##################################################################################
CALL M_KOJO_COLOR_K139
PRINTFORML %CSVCSTR(139, 10)%
RESETCOLOR
PRINTL

;##################################################################################
;②角色介绍文を書き込み
;##################################################################################
;共通部
PRINTFORML 传说中被冠以邪恶之名的管狐
IF TCVAR:発情
	IF DAY:2 == 4 && GROUPMATCH(DAY:3,1,2,3,4,5,6,7)
		PRINTL
		PRINTFORML 雌狐会在严寒时节迎来繁殖期、进入发情状态
		PRINTFORML 即使是身为妖怪的典、也无法逃离这种本能
		PRINTFORML 无论是否顺应自己的意志、子宫都会開始持续疼痛着渴求雄性的新鲜精子
		PRINTL
	ENDIF
ENDIF

IF (TALENT:MASTER:年齢 == -1 || TALENT:MASTER:幼児／幼児退行)
	IF TALENT:恋人
		PRINTL
		;你から告白
		IF CFLAG:1013 == 1
			PRINTFORML 由于%CALLNAME:MASTER%的求爱、心中充满感动的姐姐
		ELSE
			PRINTFORML 拿出勇气告白后、得到%CALLNAME:MASTER%接受的姐姐
		ENDIF
		PRINTFORML 对%CALLNAME:MASTER%的爱情也好性骚扰也好似乎都愈发娴熟了
		CALL HPH_PRINT,@"「%CALLNAME:MASTER%阁下HPH%CALLNAME:MASTER%阁下HPH%CALLNAME:MASTER%阁下HPH%CALLNAME:MASTER%阁下HPH」","L"
		PRINTL
	ELSEIF TALENT:恋慕
		PRINTL
		PRINTFORML 姐姐、对于小孩子的爱是不会停止的
		PRINTFORML 让%CALLNAME:MASTER%心动不已的「邪恶的低语」、已经刹不了车了
		PRINTL
	ELSEIF TALENT:思慕
		PRINTL
		PRINTFORML 姐姐原本只要对小孩子做色情的恶作剧就会很满足
		PRINTFORML 然而、最近似乎開始有些在意%CALLNAME:MASTER%了…
		PRINTL
	ELSE
		PRINTL
		PRINTFORML 然而其真实面目是个、超级喜欢小孩子的、
		PRINTFORML 会去一个劲地教唆H的事情的危险的姐姐…
		PRINTL
	ENDIF

	SELECTCASE TALENT:MASTER:形状
	CASE 6,10;巨根、馬並み
		PRINTL
		PRINTFORML %CALLNAME:MASTER%是个拥有着和那副可爱的样子完全不相称的巨根的人、
		PRINTFORML 几乎让人无法把目光从他身上离開…
		PRINTL
	CASE 1,2;粗チン
		PRINTL
		PRINTFORML 对于%CALLNAME:MASTER%有着一根小孩子一般的肉棒这件事、
		PRINTFORML 似乎难掩兴奋之色…
		PRINTL
	CASE 4,5;
		PRINTL
		PRINTFORML 对于%CALLNAME:MASTER%拥有一根外形凶恶的鸡鸡这件事、
		PRINTFORML 似乎难掩惊讶之色…
		PRINTL
	CASEELSE
		PRINTL
		PRINTFORML 对于%CALLNAME:MASTER%身为小孩子却有着一根很健壮的小鸡鸡这件事、
		PRINTFORML 似乎难掩兴奋之色…
		PRINTL
	ENDSELECT
ELSE
	IF TALENT:恋人
		PRINTL
		;你から告白
		;とある書籍からの一文を引用させていただきました
		IF CFLAG:1013 == 1
			PRINTFORML 往对方的心灵乘虚而入、并引发混乱的邪恶之狐、最终被猎人逼至绝境
			PRINTFORML 将其逼至绝境的猎人名为、爱
		ELSE
			PRINTFORML 通过言语蛊惑人心的管狐
			PRINTFORML 然而、俘获%CALLNAME:MASTER%的不是那些虚情假意、而是肺腑之言
		ENDIF
		PRINTFORML 如往常一样一边用言语迷惑%CALLNAME:MASTER%、一边看上去十分幸福的样子
		PRINTL
	ELSEIF TALENT:恋慕
		IF TALENT:140:恋人
			;龍が先に恋慕
			IF CFLAG:1000 == 1
				PRINTL
				PRINTFORML 一切都迟了
				PRINTFORML 无论是爱上那个人的时间、还是俘获那个人的内心的时间都落后在了那位大人的后面
				PRINTFORML 落后到了一个无论有多爱、无论有多爱都没法传达而只能驻足远望的位置
				PRINTFORML 虽然明白已经来不及了、我还是会在后面继续追逐着
				PRINTL
			;典が先に恋慕
			ELSEIF CFLAG:1001 == 1
				PRINTL
				PRINTFORML 明明是我先来的
				PRINTFORML 明明你都已经把我的心俘获得如此之牢了
				PRINTFORML 明明都这样了、你却从我的手中滑落然后逃開了
				PRINTFORML 就算这样、丢脸的猎人也会继续追逐猎物的
				PRINTL
			ENDIF
		ELSE
			;龍が先に恋慕
			IF CFLAG:1000 == 1
				;你が龍に好意？
				IF CFLAG:1004 == 1
					PRINTL
					PRINTFORML 察觉到了
					PRINTFORML 饭纲丸大人和%CALLNAME:MASTER%可谓是两情相悦
					PRINTFORML 即使如此、我也绝不会放弃
					PRINTFORML 对手是天狗又如何、看我不追上你、看我不超越你
					PRINTL
				ELSE
					PRINTL
					PRINTFORML 发现了
					PRINTFORML 饭纲丸大人比我更先爱上%CALLNAME:MASTER%
					PRINTFORML 即使如此、我也绝不会放弃
					PRINTFORML 对手是天狗又如何、看我不追上你、看我不超越你
					PRINTL
				ENDIF
			;典が先に恋慕
			ELSEIF CFLAG:1001 == 1
				;你が龍に好意？
				IF CFLAG:1004 == 1
					PRINTL
					PRINTFORML 察觉到了
					PRINTFORML 饭纲丸大人和%CALLNAME:MASTER%可谓是两情相悦
					PRINTFORML 饭纲丸大人是位很棒的人。%CALLNAME:MASTER%会被吸引也不是不可能
					PRINTFORML 不过、我不会放弃这份恋情
					PRINTFORML 管狐可是、很贪心的
					PRINTL
				ELSE
					PRINTL
					PRINTFORML 察觉到了
					PRINTFORML 饭纲丸大人爱上了%CALLNAME:MASTER%
					PRINTFORML 饭纲丸大人是位很棒的人。无论是以前还是现在我都一成不变地敬爱着她
					PRINTFORML 不过、涉及恋爱的话就另当别论了
					PRINTFORML 即使是我的主人、我也不打算将这份恋情拱手相让
					PRINTL
				ENDIF
			ENDIF
		ENDIF
	ENDIF

	;浮気っクス
	IF CFLAG:1017 > 0
		PRINTL
		PRINTFORML 用身体笼络了%CALLNAME:MASTER%
		PRINTFORML 看着明明有所爱之人、却还是沉迷于自己的身体的%CALLNAME:MASTER%、
		PRINTFORML 似乎让我感到很愉悦啊…
		PRINTL
	ENDIF

	;過去につがい
	IF CFLAG:139:1998 == 1
		PRINTL
		PRINTFORML 好像曾把侍奉饭纲丸的前主引向了毁灭
		PRINTFORML 据说典那时曾有伴侣与73个孩子
		PRINTFORML 不过现在、伴侣似乎已经下落不明了
		PRINTFORML 典自己似乎也丝毫不在意这件事
		PRINTL
	ENDIF
ENDIF

path: ERB/口上・メッセージ関連/個人口上/【139】典/M_KOJO_K139_関数ライブラリ.ERB


code:
eraTheWorld　菅牧典口上 ver0.13
作者：すし（小町、極、梅蒂欣口上作者）
執筆開始日03/10/18
リリース日04/01/16
最終更新日04/04/28

■はじめに
　=====================================================================================================================
盗用疑惑に関して、青娥口上作者さまをはじめとした皆さまにご迷惑をお掛けしました。すみませんでした

四作目です。前回は身の丈に合わないことをしたので基本に返ります
eraTW4.811～4.841環境下で執筆した典口上です
導入パッチ
・eraTx1941バニー応急
・eraTx1942TWresourcesフォルダ整理用バッチファイル
・eraTx1947霊夢リソース修正
・eraTx1949修正＆改良パッチ
・eraTx1958TW映姫様口上Ver0.A+resources
・eraTW用舞口上 調合と依頼

■参考・引用口上、資料、素材など
　=====================================================================================================================
青娥口上をはじめとして、参考にさせていただいた口上作者さまに感謝申し上げます
発情に関して、椛、影狼口上を参考にさせていただきました
朝口交に関して、藍口上、映姫口上を参考にさせていただきました
今回も映姫口上の関数を利用させていただいています。映姫口上作者様、ありがとうございます
ウフフ中の合計絶頂回数カウントについて、美鈴口上を参考にさせていただきました
早苗（諏訪子）口上の角色介绍関数を利用させていただいています。両作者様、ありがとうございます
UPDATE、初遭遇時に胸圍を変更できる機能を椛口上から拝借しました
resourcesに関して、kaoru様および画像加工作者様（妄想エロ乙女愛麗絲を書いた人）の画像を使用させていただいております
申し訳ないですがバグ発生時は報告お願いします

一部口上において、以下の書籍から引用させていただきました
・角川運動鞋文庫 「露娜ル・サーガ２ 青い聖堂」 友野詳 著

■更新履歴　◎新規機能等実装　○加筆　◇修正
　=====================================================================================================================
2022/04/28（ver.0.13)
○派生指令「挿入Gスポット責め」「挿入子宮口玩弄」加筆
◇依頼の1103行目を修正。291スレ>>305さん報告ありがとうございます
◇他、誤字など修正

2022/04/26（ver.0.12）
○依頼「想被你抱」時の口上加筆
◇関数ライブラリ内、角色介绍の代入演算子を修正（ = から == に）
　291スレ>>232さん、ご報告ありがとうございます
◇约会後初吻喪失後でも初吻の口上が表示されてしまう不具合修正
　约会後接吻でもCALL ADD_KISSで接吻回数が＋されるはずなので、多分これでいいはず…291スレ>>245さん、ご報告ありがとうございます
◇典が発情時に你を誘ってきた時、何回も分岐が出てテンポが悪いので!RAND:2を付け足し（ショタのみです）
◇其他細かい誤字修正

2022/04/24（ver.0.11）
○関数ライブラリ内、角色介绍にUPDATEの出産経験73回が反映されるように
◇日常指令に映姫様口上の一部が掲載されていました（映姫様口上作者様のパッチを基に修正済）
　原因は291スレの204に書いた街道です。映姫口上作者様申し訳ありません
　あの一件以来参考にするにしてもコピペは一切やめていたのですが、以前のが残ったままだったとは…
　失礼をしたにも関わらず寛大な対応をとっていただき感謝と恐縮でいっぱいです
◇UPDATE時に何度でも出産経験（と膣射経験）が+73されてしまう不具合を修正。さらに「人妻」が付与されていなかったのを修正
　人妻がしっくりこない方はコメントアウトしてください
◇你と性交していないにも関わらず一日の終わりの自慰時に你の性器に言及する不具合を修正

・雑談
　バニーの日向け衣装、虹龍洞勢を除いて妖怪之山は大分出来上がってきました（立絵のみ）
　ただの容量食いにならないといいのですが、「バニーはあってよかった」と言ってもらえるよう頑張ってつくります

2022/02/19（ver.0.10）
○Ｖ絶頂加筆
○手指挿入加筆
○舐肛加筆
　直前の指令で反応が変化
○挿入子宮口玩弄加筆
　初回と２回目以降のごく一部のみ

2022/02/17（ver.0.09）
◎resourcesの139_顔と139_巨に「お口」「ぶっかけ」エフェクト追加
○それにともない顔.csvファイルに加筆
○キャラデータ更新
◇顔.csvの座標がずれていたのを修正。289スレ>>187さんご報告ありがとうございました

2022/02/16（ver.0.08）
◎resourcesに典の巨乳絵差分（139_巨.webp）を追加
○それにともない顔.csvファイルに加筆
○六九式加筆
　你と典の舌レベルどちらが上かで分岐（同じなら典優位）
○Gスポット刺激加筆

2022/02/14（ver.0.07）
また長文病が再発してしまった…
短い描写でエロく書ける方は本当に尊敬します
◎UPDATE、ENCOUNTER時に胸圍が選択できるように
◎UPDATE時に、以前つがいがいたか選択できるように
※口上内でつがいは出現しません。你と前夫を比べたりという描写もありません。ＮＴＲ要素もありません
※ある意味你が前夫の妻を寝取ったと言えなくもないですが…典は前夫のことに拘泥などしません
※飯綱丸より前の主的家を食いつぶした経験があるという設定です
※主な変化として[非処女][出産経験+73][膣射経験+73][人妻]などです
※[人妻]とするか[未亡人]とするか悩み中
※なんで+73なのかというと、管狐は75匹まで増える動物らしいので
※なんで元夫と別れたのかの描写はしません。今後掘り下げる予定も今のところありません
※作者のようにCSVの数字とかステータスで興奮できるHENTAI向け。こいつスレンダーな身体して経産婦かよぉみたいな
○「角色介绍関数」加筆
○ウフフ後描写加筆（精液が垂れてきたまで）
○约会中銭湯（旧地獄温泉）加筆。混浴時限定
　発情しているか否か、大人かショタかで分岐。大雑把に合計４ルート
　処女・非処女で反応分岐。イベント中に（大半のルートで）典が処女を失います。ご注意ください
　長いのでスキップ分岐を入れました
○請吃飯加筆
○オナバレ反応加筆
　発情、ショタ、濃厚精液なら無条件で通すように
◇虹＆剛パッチ1.4の修正箇所（イベント.ERBの引力設定）を移植
◇身体接觸誤字を修正「思い」→「重い」

2022/02/04（ver.0.06）
○懐妊を稍微だけ加筆
◇キャラデータ同梱
◇勸酒の処理を修正
◇デイリーイベント特訓の数字を14→12に

2022/02/04（ver.0.05）
◎尿意・廁所イベント実装
○推倒指令の発情・妊娠時加筆

2022/02/01（ver.0.04）
◇性騷擾指令の不具合を修正
◇発情や排卵誘発剤使用の処理を一日最初のあいさつで処理するように
◇時止め中に遭遇時の挨拶が発生不会うに
◇「勸酒」で条件式にK76_FIND_AROUND() != 140となっていたのをK139_FIND_AROUND() != 140に修正

2022/02/01（ver.0.03）
◎特殊事件「典の夜這い」実装
○手淫初回分岐加筆
○被逆推挿入１回目、龍が先に恋慕、典が先に恋慕加筆
○被逆推挿入２回目以降加筆
◇童貞喪失周りの処理を修正
　IF TALENT:MASTER:非童貞 == 0だと口上発生の時点でTALENT:MASTER:非童貞 == 1となっているので、IF TCVAR:PLAYER:童貞喪失 = 1に
◇counterの記述位置を間違っていたのを修正
◇性騷擾指令で年齢の判定が間違っていたのを修正
　288スレ>>636様、ご報告ありがとうございました。中年は子ども扱いされなくなりました

2022/01/29（ver.0.02）
◇被逆推るで青娥口上が出ていたのを修正
◇一部指令で極の名前が出ていたのを修正
◎依頼「精液を分けて」を実装
　典が精液経験済みのときに発生
　依頼達成には実行時に「濃厚精液」状態であることが条件
　自宅で濃厚精液状態時に「精液を採取する」を実行することができるようになります
　「自慰」では達成できないので注意してください
　こちらはイベント「典の自慰サポート」と違い、你が童貞である必要はありません
○各指令の兒童／幼児のときの反応を色々と加筆
・counterいろいろ
・口交
　清洁口交描写追加
・肛門愛撫（性騷擾）
　Ａ経験で初回反応が、Ａ感覚で口上段階が変化
　子どもで指レベルが低いと初手が愛撫ではなく浣腸に
・摸屁股
　你の射精ゲージが5000を超えている、欲情が1万以上かつ勃起ているなら內褲の上から尻コキ
　天狗勢（文、極、椛、龍）の誰かを恋人にしていると反応分岐
・掀裙子
　態度レベルで初回の選択肢が変化。選択肢で典のとる行動が変化
　胖次を履いていても、内衣が裤子だと確率でうっかり一緒に脱げる
・撫摸肚子
　発情するように修正。詳しくは特殊な要素に
・典以外に告白失敗してから典に会うと慰めてくれる（１日１回、告白失敗したときのみ）
　タイミングは「部屋で遭遇」「masterが入ってきた」
　陥落状況で反応が変化
　287スレの>>712氏のバグ（？）報告がきっかけで、告白が一日一回の仕様に修正されることで実現できたイベント
　自分にとっては上方修正以外の何者でもないです。報告してくださった氏と修正してくださった◆eraTWk3.v6氏に感謝します
・弾幕勝負の分岐加筆
　素質（傲慢、叛逆など）、誰に勝利したことがあるかなどで分岐
・泡茶（下薬）
　恋慕か恋人持ち、またはショタなら100％成功
・読書：单薄的本、保健体育の本、実用書（兒童／幼児のみ）
　你をからかってくるように加筆
・你に恋人がいるときに典に被逆推ると特殊口上が発生するように
　龍と典のどちらが先に恋慕を取得したかなどで分岐
　飯綱丸が恋人のときは、典がややヤンデレ気味になります。口上内でキャラ崩壊してるような気がしてるような…
○絶頂加筆
　Ｖ絶頂中心。ちんぽ、指、振動棒のどれでイったか、イった回数で反応が変化
○お浴室に入っているとき、身体接觸以外（「擁抱」「摸屁股」など）でも背中を流せる（洗いっこできる）ように
　地の文は「抱き付いた…」「尻を撫でた…」のままです
　指令を実行した回数で描写が変化します
　洗う描写は二人きり限定です。誰かいるときはこっそり湯舟で触りっこ（大人你は单方面地触る）になります
　约会のときみたいにお浴室時は身体接觸がノータイムでできるようになるといいなあ
○発情時は性交指令（Ａは除く）の反感ソースを０にするように。さらに歓楽ソースを追加するように
　基本的にショタは性交指令で正のソースは倍増、反感ソースは処女でなければ０に（各補正の影響でまったくの０にならないこともあります）
　青年以上なら反感ソースは半減するように
◇ショタ部分一部を書き直し、大人部分に移行

2022/01/16（ver.0.01）
とりあえずリリース

■キャラコンセプト
　=====================================================================================================================
・大人→わざと挑発・罵倒して分からせ・お仕置き待ち
・ショタ→でろっでろに甘やかして駄目にする邪悪なお姉ちゃん
・発情中は性交モン斯塔
・あの手この手で子だくさんになろうとしますので、お金稼ぎは計画的に。みんな、養育資金は持ったな！
・頭の悪い口上を書くのはとても楽しいです
・ややショタ要素多め。ショタ：大人 = 7:3くらいです
・本口上におけるショタはTALENT:年齢(-1)とTALENT:幼児／幼児退行を指しています。以下同様

・基本、思わせぶりな行動ばかりしてきます。極の時は無自覚に「好き」とかストレートに言っちゃう感じでしたが、こっちはどういえば相手を喜ばせられるかと計算づくです。ただし子ども相手だとただのアホなお姉ちゃんになります
・エッチには寛容。処女を捨てるのもあんまり頓着しません。陥落前からやる気マンマンです（デフォで口上は炮友・愛欲状態みたいなもん）そのため、恋慕や恋人を付けてもあまり差異を感じないかもしれません。你が子どもだと、能力に関わらず典が優位に立とうとします
・おねショタ
・好意が高まってくると、上司への忠誠と你への愛で揺れ動く様を描いています（結局自分の欲望が一番と開き直るけど）
・自分が恋をしていなくて飯綱丸が恋をしていると、上司の恋を応援してきます…してるような…してるかなあ？
・你と飯綱丸の関係性で変化する口上もあります
・飯綱丸以外への浮気は割と寛容。むしろ恋人がいると略奪っぽい言動をします（実際には行動に移しません…厳密には行動に移すけど、略奪対象の恋人や恋慕素質が消去されるようなエグいイベントはは発生しないという意味です）
・恋慕以上になると、天狗三人娘（文、極、椛）への対応が辛辣になります。どちらかというと悪女ムーブ？
・おねショタ
・告白シーンでは、あんな弱気になるかなあと思いつつも（むしろあらゆる策を用いて自分のものにしそう）、自分が見てみたい典を想像して書きました。普段あれこれ策を弄したりする子が不器用になるの、キュンときませんかね。自分だけですかね
・おねショタ
・服装の連衣裙の描写に関してはかなり独自解釈してますので、システムとしての連衣裙と色々矛盾が出ているかもしれませんがご容赦を
・背中がガバっと空いていて、尻尾の上と首の中奖了を紐で結んでいるイメージ。腕と脚の部分もひもを緩めたら結構ぶかぶかになります（pixivなどにイメージに近いイラストを描かれている方がいらっしゃいます）
・強制的に衣装変更するといろいろと不味いらしいのでノーブラ典ちゃんは没にしました
・尻撫でで怒らない仕様は豊姫お姉ちゃんに先越されちゃったけど、性騷擾に寛容なお姉ちゃんはたくさんいてもいいと思います
・基本的にショタ（少女・ょぅι゛ょでも可）なら典にやりたい放題できるので（性騷擾で理性崩しが楽）、攻略は極以上に簡単かもしれません。どっちかというと典にやられたい放題な感じです
・扶她はともかく女你までは想定していないので、一部口上で齟齬が出ます
・基本攻めのときは強気ですが、受けに回ると結構クソザコ狐と化します。させます（使命感）
　=====================================================================================================================

■特殊な要素
　=====================================================================================================================
◆典に茶または酒を飲ませると尿意が溜まっていきます（酒のほうが溜まり具合が速いです）
　尿意が一定以上溜まった状態（または利尿剤を飲ませている）だと典は各Map（博麗神社、人間之里、紅魔館、山頂）の廁所に向かいます
　典が廁所に入っているときに你が入った場合、イベントが発生します（典が排尿）
　你が廁所に入っているときに典が入った場合でもイベントが発生します（你が排尿＋α）
　你が大人（青年以上）の場合、少しハードなプレイになります
　ハードプレイの分岐は你が勃起ている（=梆硬以上）か否かです
　ちなみに你が廁所に入っているだけで典は引き寄せられてくる仕様になっています
　なかなか入ってこない場合は廁所の中で木通属や木苺でも貪り食いましょう（+5分。作者はそうしていました）
　イベントが終わると典の尿意は0にリセットされます（典→你の場合でも）
　軽～中度のスカトロプレイなので（大の描写はありません。小水のみです）人を選ぶかと思われますので、苦手な方はあまり廁所に入り浸らない方がいいかもしれません
　うっかり廁所に入ってしまっても、最初の選択肢ですぐ出ていけばそこまで問題ないと思います（尿意がリセットされるので）
　ちなみに自分が先に入っている場合も、典が入ってこようとしたときに「入ってます」を選べば立ち去ってくれます
　あと利尿剤も解除すべきか否か考え中（ただ、条件は利尿剤＋尿意なので、意図的に茶や酒飲ませなければ常に廁所入り浸り、みたいな事態は避けられるかと）

◆避孕套で8回（青年以上なら6回）以上射精（射精しないと駄目）すると、（避孕套が残っていても）一箱使い切ったとみ無て「生でする？」と典から聞かれます。ここで「したい」を選ぶと允许无套のランクが一段階上がります
　回復剤が使えるようになったと是え、诶嘿嘿時の消費がキツイとのコメントをよく見かけるので回数を少しだけ緩和。本来なら危険日生ハメは取得まで面倒なので条件がきつくてもいいのかと思いましたが、結局達成できなかったらイベントの意味がないので…
　典が発情時、安全日以外で生ハメ懇願すると、恋慕、恋人でなければ10％の確率でチンポ堕ちして避妊せず生ハメの許可が下ります。ただし、実行できるのは現在的行為が終わった後です（口服避孕薬を使ってしまったら翌日以降）。避孕套で避妊したなら避孕套を外せば同じ行為内で問題ないと思います

◆典と面識がありかつ你が童貞で好感度が500以上、典と恋人でない、３日以上禁欲した状態をすべて満たしていると、一日の終わりに典がオナサポの提案をしてきます。提案を飲むと、３日以上禁欲するたびに典がオナサポにきてくれますが、濃厚精液状態も解消されてしまうので注意してください
　言葉責めで你を罵倒したり甘やかしたりします。罵倒は人を選ぶかもしれないので、そういうのが嫌いな方は2回目以降を中止したほうがいいかもしれません

◆你が誰かに告白を断られた状態で典に会うと、典が告白の練習台になってくれます（一日一回のみ）

◆你が恋人持ちかつ典が恋人でない状態で被逆推ると、浮気ックスフラグが立つ。被逆推中の会話が微妙に変化
　你が絶頂すると浮気ックス確定に。

◆ショタの場合基本的に性騷擾しても怒られません（接吻4回目以降、手指挿入、肛門愛撫、陰蒂愛撫は除く）。大人でも性騷擾の合計が10回までならセーフです（接吻と前述の３指令除く）。発情時ならすべて無限にいけます
　陥落後ならショタ限定で接吻4回目以降、手指挿入、肛門愛撫、陰蒂愛撫も怒られなくなります。ただし苦痛・恐怖のソースまで緩和していないので、手指挿入など性器を触る行為は憤怒にくくなるだけで怒られる可能性があります

◆毎年冬の１～７日は発情期が訪れます（秋の31日に時報が鳴ります）。その間に典にしっかり種を仕込んでやってください
　上記の発情期とは別に、「撫摸肚子」で発情します
　恋慕・恋人無…子宮口性感持ちなら、しつこくお腹を撫で続けてれば発情します
　恋慕・恋人あり…しつこくお腹を撫でれば勝手に発情します

◆妊娠願望中は危険日（発情中）と排卵日以外は必ず排卵誘発剤を飲みます
　正直お腹を撫でれば簡単に発情しちゃうのでシステム的には不要なんですが、愛する人のために女性が排卵誘発剤飲む行為が好きなんです

◆恋人＆恋慕持ち・妊娠願望持ち・発情状態で推倒（被逆推る）と、濃厚精液状態でなくても無理やり濃厚精液状態にしてきます
　精力が減少している場合は精力を全快させてきます
　さらに、その状態で诶嘿嘿に突入し、体力が半分以下で「什麼也不做」を選ぶと、薬でドーピングされて体力・気力・精力を一日に三度まで全快させてきます。同時に典も体力・気力を全快させます
　うまく使えば典が肉万能药になるので、本命がいる方はうまくご利用ください
　将来的には、浮気公認の相手と３Ｐのときはもう一人の体力・気力も全快させる仕様にしたいなあ

◆妊娠願望について
　年明けの時点で一緒に過ごしており、恋慕か恋人状態で非処女かつ欲求不満度60％以上
　典と一緒に子宝祈願
　恋慕または恋人かつ膣内に精液が残っている状態で「撫摸肚子」を実行
　恋慕状態で龍が恋人かつ妊娠or出産済み、龍の愛情経験が200以上のときに一日を終える

◆典の夜這い
　龍と典的家で你が就寝している
　龍が恋慕か恋人持ち
　二人とも非処女
　典の欲望5以上かつ好感度1000以上
　上記の条件をすべて満たすと典の夜這いイベントが発生します。しっかり孕み判定あります
　※現状、虹＆剛パッチ適用限定です

■未実装・実装させたいと思っているもの
-----------------------------------------------------------------------------------------------------------------------
◆诶嘿嘿の指令大半が埋まっていません。しばらく時間をください…
　=====================================================================================================================

■思いつきのどうでもいい仕様
　=====================================================================================================================
現状は男你で想定して書いていますので、女你でも射精描写が表示されることがあります。その中奖了の修正は男你で書きたいことを書ききってからやります。当面は仕様としてご理解ください

会話中、服を着ていても裸の絵が出るのは、表情を重視しているためで衣服は考慮してません
差分つくりたいけどさすがにそこまで手を回す余裕は…

発情中のセリフはピンク
HPHのほうのハートは诶嘿嘿や発情時、%UNICODE(0x2665) *1%のほうのハートは愛情とか軽い性騷擾で使い分け

本来お浴室で背中を流すは身体接觸の仕様だが、1時間間隔でしか使えないので、各性騷擾指令にも体を洗う描写を振り分け。お浴室でイチャイチャが大好きなので、どうしても指令を増やしたかったのです

恋人になった場合は你、典の性別にかかわらず你が彼氏、典が彼女

飯綱丸は「さま」、それ以外は「どの」、不特定の恋人は「様」
心の内だと飯綱丸は「さま」で変わらず、天狗三人娘は呼び捨て
你のことは（作者の）気分とノリでどのをつけたり呼び捨てにしたり。心理描写は基本呼び捨て（名前で敬称を付けてなければ）
　=====================================================================================================================

■お知恵を拝借したいこと・作者の疑問
　=====================================================================================================================


code:
いちいちイベントファイルの頭まで戻すのが面倒になったのでこっちに
;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;CFLAG:1000 典より先に龍が恋慕
;CFLAG:1001 典の後に龍が恋慕
;CFLAG:1002 発情期初回説明
;CFLAG:1003 媚薬茶counter
;CFLAG:1004 你が龍に好意を持ってるかもしれない？
;CFLAG:1005 约会回数
;CFLAG:1006 周回分も含めた初対面までの約會経験
;CFLAG:1007 掃除中に你の内衣を盗んだフラグ
;CFLAG:1008 自慰サポート初回判定(2=終了、3=中断)
;CFLAG:1009 自覚あり尻撫で回数累計（口上実装前の分はカウントせず）
;CFLAG:1010 固有料理１回目
;CFLAG:1011 ○回目のプロポーズ
;CFLAG:1012 推倒Ｖ挿入（0 = 初回 1以上 = 2回目以降）
;CFLAG:1013 （1=你から告白 2=典から告白）
;CFLAG:1014 被逆推回数
;CFLAG:1015 幻想郷縁起がバレた
;CFLAG:1016 フラれた報告回数（0が1回目）
;CFLAG:1017 浮気っクス事後判定
;CFLAG:1018 はじめてのしーしー
;CFLAG:1019 初めてのＶ挿入
;CFLAG:1020 想被你抱２回目以降
;CFLAG:1998 UPDATE時出産回数フラグ
;CFLAG:1999 胸圍・UPFDATE管理フラグ

;TCVAR:350 心情不快時身体接觸回数
;TCVAR:351 今日の尻撫で回数
;TCVAR:352 今日の性騷擾回数
;TCVAR:353 おちんぽ勃ってますよ
;TCVAR:354 情人旅館・情人用宿屋での身体接觸回数
;TCVAR:355 雨濡れ・水濡れ
;TCVAR:356 一緒に料理を作った
;TCVAR:357 今日の推倒
;TCVAR:358 今日一日の膣内射精回数
;TCVAR:359 膣内避孕套射精（使用）回数
;TCVAR:360 典がガチ子作りモード
;TCVAR:361 典とお浴室で1日にお尻を洗った累計
;TCVAR:362 典とお浴室で1日に身体の前を洗った累計
;TCVAR:363 今日の肛門愛撫（性騷擾）
;TCVAR:364 今日の陰蒂愛撫（性騷擾）
;TCVAR:365 今日の手指挿入（性騷擾）
;TCVAR:366 今日の掀裙子
;TCVAR:367 今日「典に」告白したか
;TCVAR:368 今日のお腹撫で回数
;TCVAR:369 浮気ックスフラグ
;TCVAR:370 欠番
;TCVAR:371 Ｖ絶頂・ちんぽイキ
;TCVAR:372 Ｖ絶頂・指イキ
;TCVAR:373 Ｖ絶頂・振動棒イキ
;TCVAR:374 尿意ゲージ
;******************************************************************************

path: ERB/口上・メッセージ関連/個人口上/【139】典/フラグ管理メモ.txt


code:
;  TW菅牧典口上
;  作者：＜すし＞（小町、極、梅蒂欣作者）
;  ＜改変した場合はここに改変者の名前・連絡先を追加する＞
;
;  ライセンス：
;  作者は以下で○をつけた行為について、誰でも無断で行えるものとし、違反しない限り許可を撤回しないものとします。
;    ○：常に許可　△：要相談、上記の作者と改変者全員に連絡が取れない場合は不許可　×：不許可、相談を受けても許可しない
;
;  +----+-----------------------------------+
;  | 口上の再配布                           |
;  +----+-----------------------------------+
;  | ○ | 単体での再アップロード            |
;  | ○ | 本体への同梱・口上まとめへの収録  |
;  +----+-----------------------------------+
;  | 再配布を許可する場合の改変             |
;  +----+-----------------------------------+
;  | ○ | 口上の加筆                        |
;  | △ | 口上の改変・其他改変            |
;  +----+-----------------------------------+
;  | 其他                                 |
;  +----+-----------------------------------+
;  | ○ | 他の口上での利用                  |
;  | ○ | 他のeraバリアントでの利用         |
;  | ○ | era以外への流用                   |
;  | ○ | 翻訳・他言語版バリアントへの流用  |
;  | × | 商用利用・金銭のやり取りを伴う利用|
;  | ○ | 二次創作                          |
;  +----+-----------------------------------+
;  ・以下の行為に関しては上記と関係なく、無断で行えるものとします。
;    １：バグ・誤字脱字の修正・本体VerUpへの対応のための改変
;  ・以下の行為に関しては上記と関係なく、作者であっても禁止とします。
;    １：この口上が二次創作等の場合に、原作者が禁止を宣言している行為
;  ・改変者は自分の名前を削除することができ、それによりこの口上に関する一切の権利を放棄し、放棄できない権利について行使しないことを宣言したものとします。
;  ・この口上を使用したことによる損害等について、バリアント・口上の作者、改変者は一切の責任を負いません。
;
;
;
;                                                 精翻翻译者：
;                                                   花椰菜
;
;
;
;
;
;
;
;
;
;
;

path: ERB/口上・メッセージ関連/個人口上/【139】典/ライセンス.txt


code:
正直組み込んでいいものかどうか悩んでいるイベント案

CALL HPH_PRINT,@"「%CALLNAME:MASTER%どのHPH　たまには趣向を変えましょうかHPH」","L"
PRINTFORML ある夜のこと──
PRINTFORML いつものように典を抱こうとすると、彼女から目隠しプレイを提案された
PRINTFORML 四肢まで縛られさすがに不安を感じると「今日是つも以上にお楽しみいただけると思いますよ♪」はぐらかされてしまった
PRINTW
CALL HPH_PRINT,@"「それでは、挿れますよ…HPH」","L"
PRINTFORML 典がまたがったのだろう。腰の中奖了に人の重みと尻肉の柔らかさを感じる
PRINTFORML 亀頭に柔らかな雌肉が押し当てられ、肉竿を少しずつ飲み込んでいく
PRINTFORML 膣内は熱く潤っていたものの、押し返されそうなほどにいつも以上に締め付けがきつい
CALL HPH_PRINT,@"「ふふ、慣れぬことゆえ、典も緊張しているのかもしれませんね…HPH　ほら、入りました…HPH　では、動きますね…HPH」","L"
PRINTW
CALL HPH_PRINT,@"ずちゅっ…HPH　　ずちゅっ…HPH","L"
CALL HPH_PRINT,@"　　にゅるっ…HPH　　にゅるっ…HPH","L"
PRINTL
CALL HPH_PRINT,@"「いかがですか…HPH　膣内は気持ちよいですか…？HPH」","L"
CALL HPH_PRINT,@"「いつもより締め付けがきついですか？　ふふ、緊張しているのかもしれないですねHPH」","L"
PRINTW
CALL HPH_PRINT,@"ぬちゅっHPH　　ぬちゅっHPH","L"
CALL HPH_PRINT,@"　　ぱちゅっHPH　　ぱちゅっHPH","L"
PRINTL
CALL HPH_PRINT,@"「素敵ですよ、%CALLNAME:MASTER%どのHPH」","L"
CALL HPH_PRINT,@"「硬くて熱いおちんぽ様に、おまんこも悦んでおりますHPH　ほら、こぉんなに蜜を溢れさせて…HPH」","L"
PRINTW
CALL HPH_PRINT,@"たんっHPH　　たんっHPH","L"
CALL HPH_PRINT,@"　　たんっHPH　　たんっHPH","L"
PRINTL
CALL HPH_PRINT,@"「出是这様吗っHPH　いいですよっHPH　イってHPH　膣内にお精子出してっHPH」","L"
CALL HPH_PRINT,@"「おまんこの中にっHPH　孕ませるつもりで出し切ってくださいませっHPH」","L"
PRINTW
CALL HPH_PRINT,@"「最後は、イクときの%CALLNAME:MASTER%どののお顔が見たいですHPH　ほら、こんなものは外して…HPH」","L"
PRINTFORML 絶頂を迎える寸前、典が目隠しを外した。真っ暗だった視界がクリアになる
PRINTW
CALL HPH_PRINT,@"「ばあHPH」","L"
PRINTW
PRINTFORML 典の顔が、逆さまに視界一杯に広がった
PRINTW
PRINTFORML なら、自分是ったい誰と──
PRINTW
CALL HPH_PRINT,@"「とと様っHPH　とと様っHPH　%CHILDNAME:139:(TALENT:TARGET:育児中)%はイきますっHPH」","L"
CALL HPH_PRINT,@"「中に出してくださいっHPH　とと様の子種をくださいっHPH」","L"
PRINTL
PRINTFORML 視線を下に向けると、拙いながらも腰を振って快楽を貪る実の娘の姿があった
PRINTW
PRINTFORML どくんっ
PRINTFORML 　　どぷっ　　どびゅるるるっ
PRINTW
CALL HPH_PRINT,@"「っHPH　熱いっHPH　これがっHPH　中出しっHPH　素敵ですっHPH」","L"
CALL HPH_PRINT,@"「あーあHPH　実の娘に中出ししちゃったHPH　しーらないHPH」","L"
PRINTL
PRINTFORML 父親の子種を授かり、歓喜の表情を浮かべる%CHILDNAME:139:(TALENT:TARGET:育児中)%
PRINTFORML 一方で、典は%CALLNAME:MASTER%の顔を覗き込み的同时、ニヤニヤと露出笑容いた…
PRINTW
PRINTFORML 「ふふ、しょせん私たち親娘は畜生…人类の理など、知ったことではありません」
PRINTFORML 「それに…親ならば、子の願いを叶えるのは当然でございましょう？」
PRINTFORML ですから、と、典と%CHILDNAME:139:(TALENT:TARGET:育児中)%は%CALLNAME:MASTER%の阴茎に恭しく口付けする
PRINTW
CALL HPH_PRINT,@"「『%CALLNAME:MASTER%どの』『とと様』のお種で『典』『%CHILDNAME:139:(TALENT:TARGET:育児中)%』を孕ませてくださいHPH」","L"

path: ERB/口上・メッセージ関連/個人口上/【139】典/自分用メモ/omake.txt


code:
いちいちイベントファイルの頭まで戻すのが面倒になったのでこっちに
;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;CFLAG:1000 典より先に龍が恋慕
;CFLAG:1001 典の後に龍が恋慕
;CFLAG:1002 発情期初回説明
;CFLAG:1003 媚薬茶Counter
;CFLAG:1004 你が龍に好意を持ってるかもしれない？
;CFLAG:1005 约会回数
;CFLAG:1006 周回分も含めた初対面までの約會経験
;CFLAG:1007 掃除中に你の内衣を盗んだフラグ
;CFLAG:1008 自慰サポート初回判定(2=終了、3=中断)
;CFLAG:1009 自覚あり尻撫で回数累計（口上実装前の分はカウントせず）
;CFLAG:1010 固有料理１回目
;CFLAG:1011 ○回目のプロポーズ
;CFLAG:1012 推倒Ｖ挿入（0 = 初回 1以上 = 2回目以降）
;CFLAG:1013 （1=你から告白 2=典から告白）
;CFLAG:1014 被逆推回数
;CFLAG:1015 幻想郷縁起がバレた
;CFLAG:1016 フラれた報告回数（0が1回目）
;CFLAG:1017 浮気っクス事後判定
;CFLAG:1018 はじめてのしーしー
;CFLAG:1019 初めてのＶ挿入
;CFLAG:1020 想被你抱２回目以降
;CFLAG:1021 母乳
;CFLAG:1022 無知你にお風呂で手コキさせた
;CFLAG:1023 ビュッビュッイクッ新聞
;CFLAG 1997 娘が你にいけない悪戯してくるフラグ(1=通常 3=学校描写表示させない)
;CFLAG:1998 UPDATE時出産回数フラグ
;CFLAG:1999 胸圍・UPFDATE管理フラグ

;TCVAR:350 心情不快時身体接觸回数
;TCVAR:351 今日の尻撫で回数
;TCVAR:352 今日の性騷擾回数
;TCVAR:353 おちんぽ勃ってますよ
;TCVAR:354 情人旅館・情人用宿屋での身体接觸回数
;TCVAR:355 雨濡れ・水濡れ
;TCVAR:356 一緒に料理を作った
;TCVAR:357 今日の推倒
;TCVAR:358 今日一日の膣内射精回数
;TCVAR:359 膣内避孕套射精（使用）回数
;TCVAR:360 典がガチ子作りモード
;TCVAR:361 典とお風呂で1日にお尻を洗った累計
;TCVAR:362 典とお風呂で1日に身体の前を洗った累計
;TCVAR:363 今日の肛門愛撫（性騷擾）
;TCVAR:364 今日の陰蒂愛撫（性騷擾）
;TCVAR:365 今日の手指挿入（性騷擾）
;TCVAR:366 今日の掀裙子
;TCVAR:367 今日「典に」告白したか
;TCVAR:368 今日のお腹撫で回数
;TCVAR:369 浮気ックスフラグ
;TCVAR:370 欠番
;TCVAR:371 Ｖ絶頂・ちんぽイキ
;TCVAR:372 Ｖ絶頂・指イキ
;TCVAR:373 Ｖ絶頂・振動棒イキ
;TCVAR:374 尿意ゲージ
;TCVAR:375 素股事故でイった
;TCVAR:376 乳交で你がイった回数
;TCVAR:377 精液付着状態
;TCVAR:378 情人旅館・情人用宿屋で推倒た
;TCVAR:379 お風呂で典のおちんちん触った
;TCVAR:380 典ドーピング
;******************************************************************************

path: ERB/口上・メッセージ関連/個人口上/【139】典/自分用メモ/フラグ管理メモ.txt


code:
忘れやすいのでこっちにメモ
OBJ-CLASS-CLOTHES内ファイル
（例）IF EQUIP:下半身内衣２ == 22なら「下半身内衣_ずらし可能）の丁字褲になる

典の衣装は連衣裙より緊身内衣に近い？
掀裙子の構造をしてなければ連衣裙でも全然ありと思う。むしろ連衣裙だし
連衣裙になると裙子属性が付与されるから、裤子とあってもめくれるのかな？
紐緩めたら色々と悪戯できそうな構造してるので、可能な限り制約の少ない衣装に設定したいけど、どれが最適か分からない…
緊身内衣の中だと連体泳装が構造的に近いのかなと思う
掀裙子…ではないけれど、太もものゆったりした部分、ピラって感じではないけど捲り上げることはできそうなので、結果的に掀裙子じみたことはできるんじゃないか…これなら裤子とあっても矛盾はしないと思う。もう衣装追加面倒だしこっちの設定にしようかなぁ

;緊身内衣
1:緊身内衣
2:贴身长筒袜（黒）
3:贴身长筒袜（赤）
4:兔女郎服（黒）
5:兔女郎服（赤）
6:死库水泳衣
7:競泳水着
8:連体泳装
9:Y字型内衣
10:保暖内衣
11:鎖帷子

口上にはなんら関係しない衣服の着脱のは無
もし典の衣服の背中が開いてないなら、管狐の状態で衣服にin→人类形態に変化とかやっている？
脱掉ときは管狐に戻って脱げばいいだけ。それなら脱ぎ口がないのも納得

;口上コピペ用分岐
SELECTCASE TALENT:MASTER:形状
CASE 6,10;巨根、馬並み
CASE 1,2;粗チン
CASE 5;长疣的
CASEELSE
ENDSELECT

;口上コピペ用分岐之２（天狗の恋人）
;文が恋人
IF TALENT:29:恋人 == 1
;極が恋人
ELSEIF TALENT:42:恋人 == 1
;椛が恋人
ELSEIF TALENT:65:恋人 == 1
;龍が恋人
ELSEIF TALENT:140:恋人 == 1
;それ以外
ELSE
ENDIF

path: ERB/口上・メッセージ関連/個人口上/【139】典/自分用メモ/衣装メモ.txt


code:
忘れっぽい自分用なので当たり前のことばかり書いています

TEQUIP:体位 = Ｖ性交
TEQUIP:体位２ = Ａ性交
1:正常位　2:後背位　3:騎乗位　4:対面座位　5:背面座位

充填率…Look.ERBの487行目～
典は身体容量1200（子宮600）
充填率 = 100 * 精液量 / 身体容量
典は1200以上注げば充填率100％
滝のように噴出させる（1200%）には12000必要
射精量は你のＣ感覚が高ければ高いほど増える
充填率は30,50,100,200,1000で描写変化（30のみ非ウフフ時）
細かい計算はSOURCE_射精確定後処理に

CHILD_LOVE:CHARA:CHILDNUMが低いと母親に警戒される
具体的には0未満 400以上でLVMAX？
口上に組み込むときはCHILD_LOVE:139:(TALENT:139:育児中)

指令別の接触部位はSOUCEのSOURCE_POSE.ERB

性技術系の素質獲得はステータス計算関連\TRACHECK_ABLUP.ERB

OUTROOF(CFLAG:MASTER:現在位置)は0なら屋根あり、1なら屋根無
MAPの屋根があるかなど属性は物件関連内のROOMSETTINGを参照

子どもの名前
%CHILDNAME:XX:(TALENT:TARGET:育児中)%

子どもの性別
１なら女の子、２なら男の子
IF CHILD_SEX:XX:(TALENT:XX:育児中) == 1
IF CHILD_SEX:XX:(TALENT:XX:育児中) == 2

典用のよく使用分岐
				IF TALENT:140:恋人 == 1
					PRINTFORM 「飯綱丸さま
				ELSEIF TALENT:29:恋人 == 1
					PRINTFORM 「射命丸どの
				ELSEIF TALENT:42:恋人 == 1
					PRINTFORM 「姫海棠どの
				ELSEIF TALENT:65:恋人 == 1
					PRINTFORM 「犬走どの
				ELSEIF TALENT:MASTER:恋人 == 1 && !TALENT:恋人
					PRINTFORM 「恋人さま
				ENDIF

path: ERB/口上・メッセージ関連/個人口上/【139】典/自分用メモ/説明書に書いていないことなど備忘録.txt


code:
忘れやすいのでこっちにメモ
OBJ-CLASS-CLOTHES内ファイル
（例）IF EQUIP:下半身内衣２ == 22なら「下半身内衣_ずらし可能）の丁字褲になる

典の衣装は連衣裙より緊身内衣に近い？
掀裙子の構造をしてなければ連衣裙でも全然ありと思う。むしろ連衣裙だし
連衣裙になると裙子属性が付与されるから、裤子とあってもめくれるのかな？
紐緩めたら色々と悪戯できそうな構造してるので、可能な限り制約の少ない衣装に設定したいけど、どれが最適か分からない…
緊身内衣の中だと連体泳装が構造的に近いのかなと思う
掀裙子…ではないけれど、太もものゆったりした部分、ピラって感じではないけど捲り上げることはできそうなので、結果的に掀裙子じみたことはできるんじゃないか…これなら裤子とあっても矛盾はしないと思う。もう衣装追加面倒だしこっちの設定にしようかなぁ

;緊身内衣
1:緊身内衣
2:贴身长筒袜（黒）
3:贴身长筒袜（赤）
4:兔女郎服（黒）
5:兔女郎服（赤）
6:死库水泳衣
7:競泳水着
8:連体泳装
9:Y字型内衣
10:保暖内衣
11:鎖帷子

口上にはなんら関係しない衣服の着脱のは無
もし典の衣服の背中が開いてないなら、管狐の状態で衣服にin→人类形態に変化とかやっている？
脱掉ときは管狐に戻って脱げばいいだけ。それなら脱ぎ口がないのも納得

;口上コピペ用分岐
SELECTCASE TALENT:MASTER:形状
CASE 6,10;巨根、馬並み
CASE 1,2;粗チン
CASE 5;イボ付き
CASEELSE
ENDSELECT

;口上コピペ用分岐之２（天狗の恋人）
;文が恋人
IF TALENT:29:恋人 == 1
;極が恋人
ELSEIF TALENT:42:恋人 == 1
;椛が恋人
ELSEIF TALENT:65:恋人 == 1
;龍が恋人
ELSEIF TALENT:140:恋人 == 1
;それ以外
ELSE
ENDIF

path: ERB/口上・メッセージ関連/個人口上/【139】典/衣装メモ.txt


code:
;[[典]]→[[典]]

;固有Counter可否
@UNIQUE_COUNTER1_ABLE_K139
SIF TFLAG:62
	RETURN 0
SIF TEQUIP:[[典]]:50 >= 0 || TEQUIP:[[典]]:51 >= 0
	RETURN 0
SIF ABL:[[典]]:欲望 < 5
	RETURN 0
RETURN 1

;固有Counterの種別と頻度
@UNIQUE_COUNTER1_FREQUENCY_K139
;ソフト/ベリーソフト/コミュ/着衣/脱衣愛撫/脱衣強要/抱き着き/性交/責め/おねだりの中なら選ぶべし
;タイプによって発生しない状況があるので注意
RESULTS = 脱衣愛撫
;発生率、基本値(10)にこの数値を足す
;通常のCounterはプラ舞5以下なので、テストプレイ以外であんまり極端な数字を入れない方がいい
RETURN 10

;文本
@UNIQUE_COUNTER1_MESSAGE_K139
SELECTCASE RAND:3
CASE 0
	PRINTFORML %CALLNAME:TARGET%微笑着用松松软软的尾巴像围巾一样悄悄缠绕%CALLNAME:MASTER%的脖子…
CASE 1
	PRINTFORML %CALLNAME:TARGET%用蓬松的尾巴温柔的撫摸%CALLNAME:MASTER%的身体…
CASE 2
	PRINTFORML %CALLNAME:TARGET%用蓬松的尾巴温柔的愛撫%CALLNAME:MASTER%的股間…
ENDSELECT

;固有Counterのソース等
@UNIQUE_COUNTER1_SOURCE_K139

	;体勢の変更
	;=============================
	;CALL TOUCH_SET(SET_FROM_YUBI,1,[[典]])
	;TFLAG:MASTERのＣ使用中 ++

	;ソース計算および内部処理系統
	;=============================
	;IF TEQUIP:PLAYER:0
	;	IF TEQUIP:PLAYER:0 & 1
	;		CALL DATUI_BOTTOM([[典]],1)
	;	ELSEIF TEQUIP:PLAYER:0 & 8
	;		CALL DATUI_BOTTOM([[典]],2)
	;	ENDIF
	;ENDIF

	SOURCE:[[典]]:情愛 += 150
	SOURCE:[[典]]:与快Ｃ += 100
	SOURCE:[[典]]:誘惑 += 200
	SOURCE:[[典]]:挑発 += 100

	;CALL EVENT_COUNTER_POSE_69([[典]],2)

path: ERB/口上・メッセージ関連/個人口上/【139】典（机翻更新版）/K139_4_固有カウンター1.ERB