code:
;-------------------------------------------------
;挿入共通のFLAG, SOURCE, 地の文をここにまとめる
;PREVPLAY("騎乗位")は前のターンに騎乗位を選択した場合にON
;INSERT("騎乗位")は前のターンから騎乗位の体勢だとON。前のターンに騎乗位状態での洗面奶などでもONとなるのに注意
;TRAIN_GENRE("騎乗位", SELECTCOM)は現在選んでいる指令が騎乗位ならばON
;-------------------------------------------------
@TRAIN_MESSAGE_INSERTION
;地の文の分岐で使う
#DIMS ACT_TABLE
;穴を変える場合などに使う
#DIMS PREVHOLE
#DIMS SELECTHOLE
#DIMS USEHOLE

;前のターンに使った穴
IF INSERT("Ａ挿入")
	PREVHOLE = %TEXTR("屁穴/肛門/後边的穴")%
ELSEIF INSERT("尿道挿入")
	PREVHOLE = %TEXTR("尿道/尿尿的洞")%
ELSE
	PREVHOLE = %TEXTR("膣/膣穴/前穴")%
ENDIF
;現在使っている穴
IF INSERT("Ａ挿入")
	USEHOLE = %TEXTR("屁穴")%
ELSEIF INSERT("尿道挿入")
	USEHOLE = \@ PENIS(TARGET) ? 阴茎 # 尿道 \@
ELSE
	USEHOLE = %TEXTR("膣内")%
ENDIF
;これから使う穴
IF TRAIN_GENRE("Ａ挿入", SELECTCOM)
	SELECTHOLE = %TEXTS("肛門")%肛門
ELSEIF TRAIN_GENRE("尿道挿入", SELECTCOM)
	SELECTHOLE = %TEXTS("尿道")%尿道
ELSE
	SELECTHOLE = %TEXTS("Ｖ挿入前")%
ENDIF

IF CHECK_COM("两根挿入Ｖ中")
	IF INSERT("两根挿入Ｖ中")
		;ここから新規に書き起こした
		IF CHECK_COM("立位")
			;両方巨根以上である場合のみ
			IF SIZE("阴茎", PLAYER) >= 2 && SIZE("阴茎", PLAYER:1) >= 2 && RAND:3 == 0
				PRINTFORM %TEXTR("保持站立姿勢的/立位的/站立着前後包夹的")%%CALLNAME:PLAYER%和%CALLNAME:(PLAYER:1)%
				PRINTFORM %TEXTR("二人的/的过分粗大的")%%TEXTR("肉棒/阴茎")%%TEXTR("串刺了/贯穿了")%%CALLNAME:TARGET%的%TEXTR("膣/膣口/阴部")%、将其%TEXTR("大幅度地広開了/拡張到了极限")%…
			ELSEIF RAND:2 == 0
				PRINTFORM %TEXTR("保持站立姿勢的/立位的/站立着前後包夹的")%
				PRINTFORMW %CALLNAME:TARGET%的%TEXTR("被広開的/被撑開的/被拡張的")%%TEXTR("膣/膣穴/阴部")%被持续地同時侵犯着。
			ELSE
				IF RAND:3 == 0
					PRINTFORM 悬在空中的
				ELSEIF RAND:2 == 0
					PRINTFORM 被%CALLNAME:(PLAYER:1)%紧紧抱住的
				ELSE
					PRINTFORM 抱住%CALLNAME:(PLAYER:1)%的
				ENDIF
				PRINTFORM %CALLNAME:TARGET%的%TEXTR("膣穴/阴部")%被
				IF RAND:2 == 0
					PRINTFORMW 持续地同時侵犯着。
				ELSE
					IF PENIS(PLAYER) && PENIS(PLAYER:1)
						PRINTFORMW 用两根阴茎
					ELSE
						PRINTFORMW 用阴茎和双頭震动棒
					ENDIF
					PRINTFORMW 持续地侵犯着。
				ENDIF
			ENDIF
		ELSE
			PRINTFORMW %CALLNAME:TARGET%的膣穴被持续地同時侵犯着。
		ENDIF
	ELSE
		IF INSERT("背面座位")
			IF CHECK_COM("立位")
				PRINTFORM 抱起了正在%TEXTR("用背面立位/保持站立姿勢")%%TEXTR("＿/両腿大大張開/从背後")%%TEXTR(@"被%CALLNAME:(PLAYER:1)%侵犯着/和%CALLNAME:(PLAYER:1)%连在一起")%的%CALLNAME:TARGET%的%TEXTR("＿/両")%腿、
			ELSE
				PRINTFORM 推開被%CALLNAME:(PLAYER:1)%以結合處一覽無餘的姿勢侵犯著的%CALLNAME:TARGET%的大腿、
			ENDIF
		ELSEIF INSERT("騎乗位")
			PRINTFORM 讓在%CALLNAME:(PLAYER:1)%的身上跨坐著不斷揮舞腰肢的%CALLNAME:TARGET%將身體前傾、
		ELSE
			IF CHECK_COM("立位")
				PRINTFORM 让%CALLNAME:(PLAYER:1)%采取背面立位的体勢、推開正在被侵犯的%CALLNAME:TARGET%的大腿、
			ELSE
				PRINTFORM 讓%CALLNAME:(PLAYER:1)%轉而使用背面座位的姿勢、將被激烈地不斷侵犯著的%CALLNAME:TARGET%的大腿推開、
			ENDIF
		ENDIF
		PRINTFORMW 粗暴地將%NAMES("阴茎", PLAYER)%強行塞入了尚有餘裕的膣穴……
	ENDIF
ELSEIF CHECK_COM("两根挿入Ａ中")
	IF INSERT("两根挿入Ａ中")
		PRINTFORMW 持续同时侵犯着%CALLNAME:TARGET%的肛門…
	ELSE
		IF INSERT("背面座位")
			PRINTFORM 推開被%CALLNAME:(PLAYER:1)%以結合處一覽無餘的姿勢侵犯著的%CALLNAME:TARGET%的大腿、
		ELSEIF INSERT("騎乗位")
			PRINTFORM 讓在%CALLNAME:(PLAYER:1)%的身上跨坐著不斷揮舞腰肢的%CALLNAME:TARGET%將身體前傾、
		ELSE
			PRINTFORM 讓%CALLNAME:(PLAYER:1)%轉而使用背面座位的姿勢、將被激烈地不斷侵犯著的%CALLNAME:TARGET%的大腿推開、
		ENDIF
		PRINTFORMW 粗暴地將%NAMES("阴茎", PLAYER)%強行塞入了尚有餘裕的肛門……
	ENDIF
ELSEIF CHECK_COM("二穴挿入")
	IF INSERT("二穴挿入")
		PRINTFORM %CALLNAME:PLAYER%和%CALLNAME:(PLAYER:1)%
		IF RAND:4 == 0
			PRINTFORM \@ RAND:2 ? 激烈地 # 慢吞吞地 \@動着腰
		ELSEIF RAND:3 == 0
			PRINTFORM 以相互%TEXTR("配合的/交错的")%动作
		ELSE
			PRINTFORM %TEXTR("隔著內部肉襞相互摩擦著的同时/大幅度地")%
		ENDIF
		PRINTFORMW %TEXTR("侵犯著/翻攪著/頂刺著")%た%CALLNAME:TARGET%的%TEXTR("兩個/前後的")%淫穴…
	ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69
		PRINTFORM %CALLNAME:PLAYER%是%CALLNAME:(PLAYER:1)%
		IF INSERT("後背位") || INSERT("背面座位")
			IF CHECK_COM("立位")
				PRINTFORM 正在用%TEXTR("站立倚靠着的体勢/站立姿势")%被侵犯着%TEXTR("肛門/尻穴")%的%CALLNAME:TARGET%的膣穴用%NAMES("阴茎", PLAYER)%
			ELSEIF INSERT("後背位")
				IF RAND:2 == 0
					PRINTFORM 正在%TEXTR("从背後/从後方/用野獣般姿态/从后背")%侵犯着的%CALLNAME:TARGET%的%TEXTR("身体/上身")%%TEXTR("拉起/拖起")%、用%NAMES("阴茎", PLAYER)%将膣穴
				ELSE
					PRINTFORM %TEXTR("靠在/托着")%%CALLNAME:TARGET%的%TEXTR("身体/上半身")%、将%TEXTR("暴露在外的/露出来的")%膣穴用%NAMES("阴茎", PLAYER)%
				ENDIF
			ELSEIF INSERT("背面座位")
				PRINTFORM 用相互倚靠的姿勢侵犯著的%CALLNAME:TARGET%的雙腿用身體打開、用%NAMES("阴茎", PLAYER)%将膣穴
			ENDIF
		ELSEIF INSERT("騎乗位")
			PRINTFORM 的身上跨坐着揮舞腰肢的%CALLNAME:TARGET%推倒、用%NAMES("阴茎", PLAYER)%將毫無防備的陰部
		ELSE
			PRINTFORM 的姿勢改變、用%NAMES("阴茎", PLAYER)%将後穴已被填满的%CALLNAME:TARGET%的陰部
		ENDIF
		IF RAND:2 && ABL:Ｖ拡張 > SIZE("阴茎", PLAYER)
			PRINTW 直到根部地挿入了…
		ELSE
			PRINTW 深深挿入了…
		ENDIF
	ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79
		PRINTFORM %CALLNAME:PLAYER%是%CALLNAME:(PLAYER:1)%
		IF INSERT("対面座位")
			IF CHECK_COM("立位")
				IF TALENT:娇小
					IF RAND:2 == 0
						PRINTFORM 用火车便当位
					ELSE
						PRINTFORM 用%TEXTR("紧贴/抱住/托住身体/抱起両腿")%的姿势
					ENDIF
				ELSE
					PRINTFORM 用%TEXTR("紧贴/抱住/托住身体/抱起单腿")%的姿势
				ENDIF
				PRINTFORM 侵犯着的%CALLNAME:TARGET%的肛門用%NAMES("阴茎", PLAYER)%压住、
			ELSE
				PRINTFORM 以面對面相互擁抱的姿勢侵犯着的%CALLNAME:TARGET%的肛門用%NAMES("阴茎", PLAYER)%下壓、
			ENDIF
		ELSEIF INSERT("騎乗位")
			PRINTFORM 的身上跨坐着揮舞著腰肢的%CALLNAME:TARGET%轉化為前傾的姿勢、對準被推開的臀瓣中暴露的肛門用%NAMES("阴茎", PLAYER)%
		ELSE
			PRINTFORM 的姿勢改变、将前穴已经被塞满的%CALLNAME:TARGET%的肛門用%NAMES("阴茎", PLAYER)%
		ENDIF
		IF RAND:2 && ABL:Ａ拡張 > SIZE("阴茎", PLAYER)
			PRINTW 直到根部地挿入了…
		ELSE
			PRINTW 深深挿入了…
		ENDIF
	ENDIF
;同時推倒(騎乗位のみ)
ELSEIF TEQUIP:Ｗ推倒
	PRINTFORM %CALLNAME:TARGET%
	;助手が前回と同じ行動(違う行動の時は、ここでなく、EQUIP_COM32で記述)
	IF SELECTCOM:1 == PREVCOM:1 && SELECTCOM:1 >= 0
		PRINTFORM %TEXTS("Ｗ推倒中")%、
	ELSE
		SELECTCASE PREVCOM:1
		CASE TNUM("騎乗位"), TNUM("挿入刺激Ｇ点"), TNUM("挿入子宮口玩弄")
			PRINTFORM 从%CALLNAME:(TARGET:1)%%TEXTR("下面的嘴中刚刚解放的/的膣內拔出的")%
		CASE TNUM("肛門騎乗位")
			PRINTFORM 从%CALLNAME:(TARGET:1)%的肛門中刚刚解放的
		CASE TNUM("尿道騎乗位")
			PRINTFORM 从%CALLNAME:(TARGET:1)%的尿道中刚刚解放的
		ENDSELECT
	ENDIF
	PRINTFORM %CALLNAME:MASTER%的阴茎
	;同じ穴で挿入継続
	IF CHECK_COM("抜かずに続行")
		PRINTFORMW %TEXTR(@"、继续艶丽地摇着腰品味着/被%PREVHOLE%緊緊含住、激烈地擺動著腰肢享受快樂")%…
	;異なる穴で挿入継続
	ELSEIF CHECK_COM("穴を変えて続行")
		PRINTFORMW 从%PREVHOLE%拔出后、又再用%SELECTHOLE%%TEXTR("將其深深吞入/含入/開始尝试")%…
	;挿入開始
	ELSE
		PRINTFORMW 半蹲在上空、%TEXTR(@"對準%SELECTHOLE%慢慢降下/將腰肢慢慢降下")%…
	ENDIF
	;使う場所を露出させる
	IF TRAIN_GENRE("Ａ挿入", SELECTCOM)
		SIF CHECK_CLO("Ａ露出") == 0
			CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
	ELSEIF TRAIN_GENRE("尿道挿入", SELECTCOM)
		SIF CHECK_CLO("Ｖ露出") == 0
			CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
	ELSE
		SIF CHECK_CLO("Ｖ露出") == 0
			CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
	ENDIF

ELSEIF CHECK_COM("３Ｐ奉仕")
	CALL TRAIN_MESSAGE_3P

;狂野摇摆
ELSEIF INSERT("狂野摇摆")
	CALL TEXT, "狂野摇摆"

ELSEIF CHECK_COM("結腸責め")
	IF TRAIN_GENRE("騎乗位", SELECTCOM) && TEQUIP:推倒
		PRINTFORM %CALLNAME:TARGET%没有放開%CALLNAME:PLAYER%、将勃起的阴茎
		PRINTFORMW %TEXTR("用Ｓ狀結腸从先端到根部都同樣周到地刺激著/大幅度来回抽动/貫穿直到結腸位置所帶來的異常快樂盡情的享受著")%的同時、再次開始搖晃腰肢…
	ELSEIF PREVPLAY("結腸責め")
		PRINTFORMW %CALLNAME:PLAYER%将%CALLNAME:TARGET%的尻肉紧贴腰肢、继續%TEXTR("仔細地/精心地/執拗地")%侵犯著Ｓ状結腸…
	ELSE
		PRINTFORMW 猛力抓緊%CALLNAME:TARGET%的尻肉、搖擺著腰肢用%TEXTR("比直腸更深的陰莖/Ｓ狀結腸的入口用陰莖/粗大的阴茎直达肛門的根部激烈地突刺")%侵犯着…
	ENDIF

;騎乗位は攻め手が逆転しているので別枠。推倒の場合はPENIS(PLAYER)は常にON
ELSEIF TRAIN_GENRE("騎乗位", SELECTCOM)
	IF CHECK_COM("抜かずに続行") && CHECK_COM("同じ体位で続行")
		IF TEQUIP:推倒
			IF TEQUIP:接吻
				PRINTFORM %CALLNAME:TARGET%没有放開%CALLNAME:PLAYER%、%TEXTS("接吻継続")%
				CALL SETFLAG, "追加接吻フラグ", TARGET
			ELSE
				PRINTFORM %CALLNAME:TARGET%没有放開%CALLNAME:PLAYER%、%TEXTR(@"緊緊含住阴茎/用%PREVHOLE%緊緊含住/繊細的粘膜无隙間地紧贴着")%再次開始
			ENDIF
		ELSE
			IF PENIS(PLAYER)
				IF ABL:露出癖 >= 3 && RAND:2
					PRINTFORM %CALLNAME:TARGET%将腰肢稍稍提起
					IF INSERT("Ａ挿入")
						PRINTFORM 展示不断出入于%TEXTS("肛門：視覚")%沾满粘液的肉棒之后再度插入了直腸内
					ELSEIF INSERT("尿道挿入")
						PRINTFORM 展示着被尿液濡湿而变得有光泽的肉棒之后再度插入了尿道中
					ELSE
						PRINTFORM 展示着被愛液濡湿而变得有光泽的肉棒之后再度插入了膣穴中
					ENDIF
					PRINTFORM 収めると、
				ELSE
					PRINTFORM %CALLNAME:TARGET%将插进来的陰莖緊緊包裹著、
				ENDIF
			ELSE
				PRINTFORM %CALLNAME:TARGET%将插进来的假陰莖緊緊包裹著、
			ENDIF
			IF TEQUIP:接吻
				PRINTFORM %CALLNAME:PLAYER%%TEXTS("接吻継続助詞付き")%
				CALL SETFLAG, "追加接吻フラグ", TARGET
			ELSEIF INSERT("Ａ挿入")
				PRINTFORM %TEXTR(@"激烈地/摩擦着%CALLNAME:PLAYER%的股間的同时")%
			ELSEIF ABL:Ｖ感覚 >= 3 && RAND:3 == 0
				PRINTFORM 露出恍惚的表情撫摸著下腹部
			ELSE
				PRINTFORM %TEXTR("激烈地/摩擦着恥骨的同時")%
			ENDIF
		ENDIF
		ACT_TABLE = 開始擺動起腰肢
		PRINTFORMW %TEXTR(ACT_TABLE)%。
	;これに限り你が主導
	ELSEIF CHECK_COM("抜かずに続行")
		PRINTFORMW 抱起%CALLNAME:TARGET%、将%NAMES("阴茎", PLAYER)%顶入%SELECTHOLE%。

	ELSEIF CHECK_COM("穴を変えて続行")
		PRINTFORM %CALLNAME:TARGET%缓慢地抬起腰肢、将%NAMES("阴茎", PLAYER)%从%PREVHOLE%中缓缓\@ PENIS(PLAYER) ? 释放 # 拔出 \@、
		IF INSERT("Ａ挿入")
			PRINTFORM 再次将塗滿腸液的阴茎用%SELECTHOLE%
		ELSEIF INSERT("尿道挿入")
			PRINTFORM 再次将还湿润的阴茎用%SELECTHOLE%
		ELSE
			PRINTFORM 再次将塗滿愛液的阴茎用%SELECTHOLE%
		ENDIF
		IF TRAIN_GENRE("Ａ挿入", SELECTCOM)
			IF ABL:Ａ拡張 > SIZE("阴茎", PLAYER) && RAND:3 == 0
				IF SIZE("阴茎", PLAYER) >= 3 && EXP:結腸経験
					PRINTFORM 驅使著結腸不留餘地地
					CALL SETFLAG, "結腸責め", TARGET
				ELSE
					PRINTFORM 直達根部地。
				ENDIF
			ENDIF
		ELSEIF TRAIN_GENRE("尿道挿入", SELECTCOM)
			IF RAND:2 && ABL:尿道拡張 >= SIZE("阴茎", PLAYER)
				PRINTFORM 直到根部
			ELSEIF ABL:尿道拡張 >= 1
				PRINTFORM 深深地
			ENDIF
		ELSE
			IF TALENT:妊娠 == 0
				IF RAND:2 && ABL:Ｖ拡張 > SIZE("阴茎", PLAYER)
					PRINTFORM 直到根部
				ELSEIF ABL:Ｖ拡張 >= 2
					PRINTFORM 深深地
				ENDIF
			ENDIF
		ENDIF
		ACT_TABLE = 吞入/含入
		PRINTFORMW %TEXTR(ACT_TABLE)%。
	ENDIF

;Ａ挿入連続実行
ELSEIF INSERT("Ａ挿入") && CHECK_COM("連続実行")
	PRINTFORM %CALLNAME:TARGET%的
	IF TRAIN_GENRE("背面座位", SELECTCOM) && TALENT:女性
		IF CHECK_COM("立位")
			PRINTFORM 腿被抓住用被抱起来的姿势
			IF TEQUIP:攝像機 && RAND:3
				PRINTFORM 胯股之间對準攝像機大大张開的同时、
			ELSEIF CHECK("助手参加可能") && RAND:2
				PRINTFORM 胯股之间朝向%CALLNAME:ASSI%大大张開的同时、
			ELSE
				PRINTFORM 胯股之间大大张開的同时、
			ENDIF
		ELSEIF TEQUIP:攝像機 && RAND:2
			PRINTFORM 陰部對準攝像機的方向用手指撥開的同時、
		ELSE
			PRINTFORM 胸部和陰部被愛撫着的同時、
		ENDIF
	ELSE
		PRINTFORM 腰肢被緊緊地禁錮住、
	ENDIF
	SIF (PENIS(PLAYER)) && STATE("ハードスキン", PLAYER)
		PRINTFORM 用坚硬的陰莖
	IF TRAIN_GENRE("対面座位", SELECTCOM) || TRAIN_GENRE("背面座位", SELECTCOM)
		PRINTFORMW 激烈的頂刺著肛門…
	ELSE
		PRINTFORMW 隨著啪嗒啪嗒的悶響激烈地侵犯著肛門…
	ENDIF
;尿道挿入連続実行
ELSEIF INSERT("尿道挿入") && CHECK_COM("連続実行")
	PRINTFORM %CALLNAME:PLAYER%将
	IF TALENT:尿道性感 == 0 && SIZE("阴茎の直径", PLAYER) >  MIN_STR(CONDS("尿道拡張度") )
		PRINTFORM 抓住渾身顫抖著的%CALLNAME:TARGET%的腰部并拉近、
	ELSEIF CHECK("尿道挿入") && RAND:2
		PRINTFORM 與帶著充滿餘裕的表情揮舞腰肢的%CALLNAME:TARGET%相互擁抱、
	ELSE
		IF PENIS(TARGET)
			PRINTFORM 緊緊握住%CALLNAME:TARGET%的\@ SIZE("阴茎", TARGET) >= 3 ? 兇惡的巨型 # \@陰莖、
			USEHOLE = ソコ
		ELSE
			PRINTFORM 紧紧抓住%CALLNAME:TARGET%的腰、
		ENDIF
	ENDIF
	;尿道内射精直後
	IF PREVEX("尿道内射精")
		IF TALENT:尿道性感 && RAND:2
			PRINTFORM 為了將更多的精液榨取而緊緊糾纏著的%USEHOLE%
			SIF PENIS(TARGET) == 0
				PRINTFORM 用\@ SIZE("阴茎", PLAYER) >= 2 ? 粗壯 # \@陰莖
			PRINTFORMW 持續掘削著…
		ELSE
			IF USEHOLE == "尿道"
				PRINTFORMW 執拗地持續玩弄著被充分灌注了精液的排泄器官…
			ELSE
				PRINTFORMW 執拗地持續玩弄著被充分灌注了精液的%USEHOLE%…
			ENDIF
		ENDIF
	ELSE
		IF TRAIN_GENRE("対面座位", SELECTCOM) && TALENT:恋慕 && CHECK_COM("接吻")
			PRINTFORM 舌頭互相交纏的同时
		ELSEIF (ABL:PLAYER:施虐属性 >= 3 || TALENT:尿道性感) && RAND:3 == 0
			PRINTFORM 就像是在正常性交一樣
		ENDIF
		IF (ABL:PLAYER:施虐属性 >= 3 || TALENT:尿道性感) && RAND:3 == 0
			PRINTFORMW 粗暴地持續侵犯著%USEHOLE%…
		ELSEIF PENIS(TARGET) == 0 && ABL:PLAYER:施虐属性 >= 3 || (TALENT:尿道性感 && RAND:2 == 0)
			PRINTFORMW 用陰莖激烈地不斷衝刺著…
		ELSE
			PRINTFORMW 不斷地揮舞著腰肢享受著被\@ PENIS(TARGET) ? 海綿体 # 尿道 \@緊緊糾纏著的快感…
		ENDIF
	ENDIF

;同じ体位で続行。連続実行みたいな扱い
ELSEIF CHECK_COM("抜かずに続行") && CHECK_COM("同じ体位で続行")
	IF TEQUIP:接吻
		PRINTFORM %CALLNAME:PLAYER%在%CALLNAME:TARGET%%TEXTS("接吻継続助詞付き")%、
		CALL SETFLAG, "追加接吻フラグ", TARGET
	ELSEIF TRAIN_GENRE("屈曲位", SELECTCOM)
		PRINTFORM %CALLNAME:PLAYER%让%CALLNAME:TARGET%保持著双腿打開完全開放股間的羞恥的姿態、
	ELSEIF TRAIN_GENRE("背面座位", SELECTCOM) && CHECK_COM("立位") == 0
		IF TALENT:妊娠 && RAND:2 == 0
			PRINTFORM %CALLNAME:PLAYER%抚摸着%CALLNAME:TARGET%膨脹起來的腹部、
		ELSE
			PRINTFORM %CALLNAME:PLAYER%從身後抱住%CALLNAME:TARGET%、
		ENDIF
	ELSE
		PRINTFORM %TEXTR(@"細細品味的%USEHOLE%的觸感過後/从%CALLNAME:TARGET%的%PREVHOLE%拔出後")%、
		IF TRAIN_GENRE("後背位", SELECTCOM)
			IF RAND:2
				PRINTFORM 猛力抓紧%TEXTS("お尻：感触")%
				SIF RAND:2 && TRAIN_GENRE("Ａ挿入", SELECTCOM) == 0 && ABL:PLAYER:施虐属性 && USE_A(TARGET) == 0 && CHECK_CLO("Ａ露出")
					PRINTFORM 一边看着肛門一边
			ELSE
				PRINTFORM 将%TEXTS("お尻：感触")%拉近
			ENDIF
		ENDIF
	ENDIF
	ACT_TABLE = 再次開始摆动腰肢
	SIF TRAIN_GENRE("後背位", SELECTCOM) || TRAIN_GENRE("屈曲位", SELECTCOM)
		ACT_TABLE += "/再次開始激烈的用腰肢发起冲击"
	SIF TRAIN_GENRE("正常位", SELECTCOM) || TRAIN_GENRE("後背位", SELECTCOM) || TRAIN_GENRE("屈曲位", SELECTCOM)
		ACT_TABLE += @"/再び%SELECTHOLE%を犯しはじめた"
	SIF TRAIN_GENRE("対面座位", SELECTCOM)
		ACT_TABLE += "/再次開始搖晃腰肢"
	SIF TRAIN_GENRE("背面座位", SELECTCOM)
		ACT_TABLE += "/再次開始搖晃身体"
	SIF CHECK_COM("立位") && TALENT:PLAYER:大力士 && TRAIN_GENRE("対面座位", SELECTCOM) + TRAIN_GENRE("背面座位", SELECTCOM)
		ACT_TABLE += "/開始用踱步来更強烈地刺激身体最深处/一边走步一边重新開始了插拔"
	PRINTFORMW %TEXTR(ACT_TABLE)%。

;同じ穴を使用して、異なる体位で続行
ELSEIF CHECK_COM("抜かずに続行")
	IF TRAIN_GENRE("正常位", SELECTCOM)
		IF INSERT("後背位") || INSERT("屈曲位")
			IF CHECK_COM("立位")
				PRINTFORM 暂时抽出后随即与%CALLNAME:TARGET%正面相对、
			ELSE
				PRINTFORM 保持緊密結合的姿势让%CALLNAME:TARGET%仰面躺下、
			ENDIF
		ELSEIF INSERT("対面座位")
			IF CHECK_COM("立位")
				PRINTFORM 将擁抱著的%CALLNAME:TARGET%放下让%CALLNAME:TARGET%自己站起来、
			ELSE
				PRINTFORM 将擁抱著的%CALLNAME:TARGET%輕輕推到成為仰躺著的姿勢、
			ENDIF
		ELSEIF INSERT("背面座位")
			PRINTFORM 保持插入%USEHOLE%的状态将%CALLNAME:TARGET%变為了仰面躺下的姿態、
		ELSEIF INSERT("騎乗位")
			PRINTFORM 像是位置交換一樣将%CALLNAME:TARGET%仰面推倒、
		ENDIF
	ELSEIF TRAIN_GENRE("後背位", SELECTCOM)
		IF INSERT("正常位") || INSERT("屈曲位")
			IF CHECK_COM("立位")
				PRINTFORM 暂时抽出后随即让%CALLNAME:TARGET%背对着、伸出腰肢
			ELSE
				PRINTFORM 保持緊密結合的姿势让%CALLNAME:TARGET%四肢著地、趴跪著抬起腰肢、
			ENDIF
		ELSEIF INSERT("対面座位")
			PRINTFORM 保持插入%USEHOLE%的状态将%CALLNAME:TARGET%的身體向后翻轉、
		ELSEIF INSERT("背面座位")
			IF CHECK_COM("立位")
				PRINTFORM 将擁抱著的%CALLNAME:TARGET%放下让%CALLNAME:TARGET%自己站起来、
			ELSE
				PRINTFORM 将%CALLNAME:TARGET%的身体向前推倒四肢著地、
			ENDIF
		ELSEIF INSERT("騎乗位")
			PRINTFORM 保持插入%USEHOLE%的状态将%CALLNAME:TARGET%的身體向后翻轉、
		ENDIF
		IF RAND:2
			PRINTFORM 猛力抓紧%TEXTS("お尻：感触")%
			SIF RAND:2 && ABL:PLAYER:施虐属性 && USE_A(TARGET) == 0 && CHECK_CLO("Ａ露出")
				PRINTFORM 一边看着肛門一边
		ELSE
			PRINTFORM 将%TEXTS("お尻：感触")%拉近
		ENDIF
	ELSEIF TRAIN_GENRE("屈曲位", SELECTCOM)
		IF RAND:2
			PRINTFORM 抓住%CALLNAME:TARGET%的両脚向前推至腰部浮空、小腿放在肩上、
		ELSEIF PENIS(TARGET)
			PRINTFORM 将%CALLNAME:TARGET%翻轉過來、仔細觀賞過阴茎後
		ELSE
			PRINTFORM 将%CALLNAME:TARGET%翻轉過來、仔細觀賞過陰部後
		ENDIF
	ELSEIF TRAIN_GENRE("対面座位", SELECTCOM)
		IF INSERT("正常位") || INSERT("屈曲位")
			IF CHECK_COM("立位")
				PRINTFORM 让%CALLNAME:TARGET%抱住自己的同时从下往上抱起了%CALLNAME:TARGET%的尻部、
			ELSE
				PRINTFORM 抬起%CALLNAME:TARGET%的身體抱在懷裡、
			ENDIF
		ELSEIF INSERT("後背位")
			PRINTFORM 将%CALLNAME:TARGET%仰面向天、抱起身體
		ELSEIF INSERT("背面座位")
			PRINTFORM 保持緊密結合的姿势让%CALLNAME:TARGET%转过身体、相互擁抱著
		ELSEIF INSERT("騎乗位")
			PRINTFORM 紧紧抱住撑起身体的%CALLNAME:TARGET%、
		ENDIF
	ELSEIF TRAIN_GENRE("背面座位", SELECTCOM)
		IF CHECK_COM("立位")
			PRINTFORM 保持插入%USEHOLE%的状态让%CALLNAME:TARGET%倚靠在自己身上、用手臂将大腿从下方抱住站了起来
		ELSE
			PRINTFORM 保持插入%USEHOLE%的状态将%CALLNAME:TARGET%的身體從背後緊緊地抱在懷裡、
		ENDIF
	ENDIF
	ACT_TABLE = 再次開始摆动腰肢
	SIF TRAIN_GENRE("後背位", SELECTCOM) || TRAIN_GENRE("屈曲位", SELECTCOM)
		ACT_TABLE += "/開始激烈的用腰肢发起冲击"
	SIF TRAIN_GENRE("屈曲位", SELECTCOM)
		ACT_TABLE += "/侵犯起来"
	SIF TRAIN_GENRE("正常位", SELECTCOM) || TRAIN_GENRE("後背位", SELECTCOM) || TRAIN_GENRE("屈曲位", SELECTCOM)
		ACT_TABLE += @"/继续侵犯%SELECTHOLE%"
	SIF TRAIN_GENRE("対面座位", SELECTCOM)
		ACT_TABLE += "/開始搖晃腰肢"
	SIF TRAIN_GENRE("背面座位", SELECTCOM)
		ACT_TABLE += "/開始搖晃身体"
	PRINTFORMW %TEXTR(ACT_TABLE)%。

;使う穴を変えて挿入続行
ELSEIF CHECK_COM("穴を変えて続行")
	;同じ体位のまま
	IF CHECK_COM("同じ体位で続行")
		IF TRAIN_GENRE("対面座位", SELECTCOM) || TRAIN_GENRE("背面座位", SELECTCOM)
			PRINTFORM %CALLNAME:PLAYER%将%NAMES("阴茎", PLAYER)%从%CALLNAME:TARGET%的%PREVHOLE%%TEXTR("拔出/取出")%、然后将
		ELSEIF TRAIN_GENRE("屈曲位", SELECTCOM)
			IF RAND:2
				PRINTFORM %CALLNAME:PLAYER%将%NAMES("阴茎", PLAYER)%从%PREVHOLE%拔出、保持着大腿张開的羞恥体勢将
			ELSE
				PRINTFORM 将%NAMES("阴茎", PLAYER)%从大腿張開高舉腰肢姿態的%CALLNAME:TARGET%的%PREVHOLE%拔出、然后将
			ENDIF
		ELSE
			PRINTFORM %CALLNAME:PLAYER%将%NAMES("阴茎", PLAYER)%从%PREVHOLE%拔出、氣勢十足地将%CALLNAME:TARGET%的
		ENDIF
	;体位も変える
	ELSE
		IF TRAIN_GENRE("正常位", SELECTCOM)
			IF INSERT("屈曲位")
				PRINTFORM 保持着大腿张開的羞恥体勢、然后将%CALLNAME:TARGET%的
			ELSEIF INSERT("対面座位")
				PRINTFORM %NAMES("阴茎", PLAYER)%从%PREVHOLE%拔出、
				IF CHECK_COM("立位")
					PRINTFORM 放下%CALLNAME:TARGET%变成了対面立位的体勢的同时
				ELSE
					PRINTFORM %TEXTR(@"抱着%CALLNAME:TARGET%的身体、然后将/氣勢十足地将%CALLNAME:TARGET%的")%
				ENDIF
			ELSE
				PRINTFORM 让%CALLNAME:TARGET%仰面躺下、用%TEXTR(@"侵犯了%PREVHOLE%/从%PREVHOLE%拔出")%的%NAMES("阴茎", PLAYER)%
			ENDIF
		ELSEIF TRAIN_GENRE("後背位", SELECTCOM)
			IF INSERT("背面座位")
				IF CHECK_COM("立位")
					PRINTFORM 将因用背面火车便当位侵犯着而羞恥的%CALLNAME:TARGET%的身体放下变成了站立后背位体勢、然后将
				ELSE
					PRINTFORM 将%CALLNAME:TARGET%的身体向前推倒四肢著地、然后将
				ENDIF
			ELSE
				PRINTFORM 让%CALLNAME:TARGET%四肢著地趴跪著高舉腰肢、
				IF TRAIN_GENRE("Ａ挿入", SELECTCOM)
					PRINTFORM %TEXTR("将一览无余的/猛力抓紧尻肉的同时")%
				ELSE
					PRINTFORM %TEXTR(@"抓住%TEXTS("お尻：感触")%拉近并将/猛力抓紧%TEXTS("お尻：感触")%的同时")%
				ENDIF
			ENDIF
		ELSEIF TRAIN_GENRE("屈曲位", SELECTCOM)
			PRINTFORM 抓住%CALLNAME:TARGET%的双脚將身體壓倒、用从%PREVHOLE%%TEXTR("拔出/拖出/取出")%的%NAMES("阴茎", PLAYER)%将
		ELSEIF TRAIN_GENRE("対面座位", SELECTCOM) || TRAIN_GENRE("背面座位", SELECTCOM)
			IF CHECK_COM("立位")
				PRINTFORM %NAMES("阴茎", PLAYER)%从%PREVHOLE%中拔出、抱起来变为火车便当位体勢之后将
			ELSE
				PRINTFORM 将%NAMES("阴茎", PLAYER)%从%PREVHOLE%拔出、变化体勢后将
			ENDIF
		ENDIF
	ENDIF
	ACT_TABLE = %SELECTHOLE%侵犯了起来
	IF TRAIN_GENRE("Ａ挿入", SELECTCOM)
		IF TALENT:男性 == 0
			SIF TRAIN_GENRE("正常位", SELECTCOM) + TRAIN_GENRE("対面座位", SELECTCOM)
				ACT_TABLE += "陰部之下微微颤动的肛門侵犯了起来"
			SIF TRAIN_GENRE("後背位", SELECTCOM)
				ACT_TABLE += "陰部之上正在喘息的肛門侵犯了起来"
		ENDIF
		IF TRAIN_GENRE("正常位", SELECTCOM) || TRAIN_GENRE("後背位", SELECTCOM) || TRAIN_GENRE("屈曲位", SELECTCOM)
			SIF SIZE("阴茎", PLAYER) >= 2
				ACT_TABLE += @"/直腸的最深处顶撞着/%SELECTHOLE%深深地贯穿了"
		ENDIF
	ELSEIF TRAIN_GENRE("尿道挿入", SELECTCOM)
		IF TRAIN_GENRE("正常位", SELECTCOM) || TRAIN_GENRE("後背位", SELECTCOM) || TRAIN_GENRE("屈曲位", SELECTCOM)
			SIF SIZE("阴茎", PLAYER) >= 2
				ACT_TABLE += @"/膀胱的根元处顶撞着/%SELECTHOLE%深深地贯穿了"
		ENDIF
	ELSE
		IF TRAIN_GENRE("正常位", SELECTCOM) || TRAIN_GENRE("後背位", SELECTCOM) || TRAIN_GENRE("屈曲位", SELECTCOM)
			SIF SIZE("阴茎", PLAYER) >= 2
				ACT_TABLE += @"/%SELECTHOLE%的最深处顶撞着/%SELECTHOLE%深深地贯穿了"
		ENDIF
	ENDIF
	PRINTFORMW %TEXTR(ACT_TABLE)%。
;火车便当位はここに記述
ELSEIF CHECK_COM("立位")
	IF TRAIN_GENRE("対面座位", SELECTCOM)
		PRINTFORM %CALLNAME:PLAYER%将
		IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
			CALL ADD_TEXT, "性器から性器へ"
			PRINTFORM %CALLNAME:TARGET%从正面抱起、
		ELSEIF !CHECK_CLO("Ｖ露出") && CHECK_CLO("Ｖ露出可")
			PRINTFORM %CALLNAME:TARGET%的
			CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
			PRINTFORM 、从正面抱起的同时
		ELSE
			PRINTFORM %CALLNAME:TARGET%从正面抱起的同时
		ENDIF
		PRINTFORMW 让%SELECTHOLE%将阴茎包裹並吮吸起來后、站了起来以火车便当位開始了侵犯。
	ELSEIF TRAIN_GENRE("背面座位", SELECTCOM)
		PRINTFORM %CALLNAME:PLAYER%将
		IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
			CALL ADD_TEXT, "性器から性器へ"
			PRINTFORM %CALLNAME:TARGET%的身体倚靠在自己身上的同时
		ELSEIF !CHECK_CLO("Ｖ露出") && CHECK_CLO("Ｖ露出可")
			PRINTFORM %CALLNAME:TARGET%的
			CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
			PRINTFORM 、身体倚靠在自己身上的同时
		ELSE
			PRINTFORM %CALLNAME:TARGET%的身体倚靠在自己身上的同时
		ENDIF
		PRINTFORMW 让%SELECTHOLE%将阴茎包裹並吮吸起來后、背对着站了起来、用所谓的背面火车便当式開始了侵犯。
	ENDIF
ENDIF

@FLAG_INSERTION, ARGS, ARG, ARG:1
;体位をTCVARで記録しておく(挿入刺激Ｇ点などで体位が不明になってしまう際に用いる)
TCVAR:体位記錄 = TEQUIP:体位
TCVAR:PLAYER:体位記錄 = TEQUIP:PLAYER:体位

SELECTCASE ARGS
CASE "尿道挿入"
	CALL SETFLAG, "尿道性感フラグ", TARGET
	;尿的污垢発生
	STAIN:PLAYER:Ｐ = SET_STAIN(STAIN:PLAYER:Ｐ, "尿")
	CALL SETFLAG, "Ｐ汚れ：尿"

	IF PENIS(TARGET)
		STAIN:Ｐ = SET_STAIN(STAIN:Ｐ, "尿")
		;対象のＰ⇔調教者のＰ的污垢が移動
		CALL EQ_STAIN, TARGET, "Ｐ", PLAYER, "Ｐ"
	ELSE
		STAIN:Ｖ = SET_STAIN(STAIN:Ｖ, "尿")
	ENDIF

	;胖次をずらす
	SIF !CHECK_CLO("Ｖ露出") && CHECK_CLO("Ｖ露出可")
		CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET

CASE "尿道振動棒"
	CALL SETFLAG, "尿道性感フラグ", TARGET
	SIF !CHECK_CLO("Ｖ露出") && CHECK_CLO("Ｖ露出可")
		CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET

CASE "Ｖ挿入", "子宮挿入", "玩弄子宮口"
	SIF !CHECK_CLO("Ｖ露出") && CHECK_CLO("Ｖ露出可")
		CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET

	IF TALENT:PLAYER:童貞
		CALL SETFLAG, "童貞狩猎フラグ", TARGET
		CALL SETFLAG, "童貞喪失フラグ", PLAYER
	ENDIF

	SIF COND("腹部变形")
		CALL SETFLAG, "腹部变形フラグ", TARGET

	;対象のＶ⇔調教者のＰ的污垢が移動
	SIF TEQUIP:PLAYER:避孕套 == 0
		CALL EQ_STAIN, TARGET, "Ｖ", PLAYER, "Ｐ"

	CALL SETFLAG, "Ｐ汚れ：Ｖ"

	IF PLAYER == MASTER
		IF ABL:Ｖ感覚 >= 3
			TFLAG:好感度BOUNS += 2
		ELSE
			TFLAG:好感度BOUNS += 1
		ENDIF
	ENDIF

	IF PENIS(PLAYER)
		;PLAYERの阴茎のＰ潤とＶ潤の相互干渉
		IF TEQUIP:PLAYER:避孕套 == 0
			IF PALAM:PLAYER:Ｐ潤 >= PALAM:Ｖ潤
				CUP:Ｖ潤 += (PALAM:PLAYER:Ｐ潤 - PALAM:Ｖ潤)/2
			ELSE
				CUP:PLAYER:Ｐ潤 += (PALAM:Ｖ潤 - PALAM:PLAYER:Ｐ潤)/2
			ENDIF
		ENDIF
		IF PLAYER == MASTER && TALENT:処女 == 0 && CEVENT("Ｖ完全挿入") == 0
			IF CHECK_COM("完全挿入可能", INSERT("対応指令") )
				;以前同じサイズの阴茎が入りきらなかったことがある
				IF CEVENT("Ｖ完全挿入不可")
					SIF SIZE("阴茎", PLAYER) == TOINT(CEVENTS("Ｖ完全挿入不可") )
						CALL SET_CEVENT, "Ｖ完全挿入初達成"
					CALL DEL_CEVENT_GROUP, "Ｖ完全挿入不可"
				ENDIF
				CALL SET_CEVENT, "Ｖ完全挿入"
			ELSE
				CALL DEL_CEVENT_GROUP, "Ｖ完全挿入不可"
				CALL SET_CEVENT, @"Ｖ完全挿入不可：{SIZE("阴茎", PLAYER)}"
			ENDIF
		ENDIF
	ENDIF
CASE "指挿入"
	;対象のＶ⇔調教者の指的污垢が移動
	CALL EQ_STAIN, TARGET, "Ｖ", PLAYER, "手"
CASE "振動棒"
	SIF !CHECK_CLO("Ｖ露出") && CHECK_CLO("Ｖ露出可")
		CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
CASE "Ｖ拳交"
	SIF !CHECK_CLO("Ｖ露出") && CHECK_CLO("Ｖ露出可")
		CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET

	;対象のＶ⇔調教者の手的污垢が移動
	CALL EQ_STAIN, TARGET, "Ｖ", PLAYER, "手"
CASE "Ａ挿入"
	SIF !CHECK_CLO("Ａ露出") && CHECK_CLO("Ａ露出可")
		CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET

	;結腸責めをしているならフラグをセット
	SIF CHECK_COM("結腸責め")
		CALL SETFLAG, "結腸責め", TARGET

	;対象のＡ⇔調教者のＰ的污垢が移動
	SIF TEQUIP:PLAYER:避孕套 == 0
		CALL EQ_STAIN, TARGET, "Ａ", PLAYER, "Ｐ"

	CALL SETFLAG, "Ｐ汚れ：Ａ"

	IF PLAYER == MASTER
		IF ABL:Ａ感覚 >= 3
			TFLAG:好感度BOUNS += 2
		ELSE
			TFLAG:好感度BOUNS += 1
		ENDIF
	ENDIF

	;浣腸中は排泄欲が300+５％上昇
	SIF TEQUIP:浣腸
		BASE:排泄欲 += 300 + MULTIPLY(MAXBASE:排泄欲, 5 + BASE:排泄物)*ARG:1/100

	;PLAYERの阴茎のＰ潤とＡ潤の相互干渉
	IF PENIS(PLAYER) && TEQUIP:PLAYER:避孕套 == 0
		IF PALAM:PLAYER:Ｐ潤 >= PALAM:Ａ潤
			CUP:Ａ潤 += (PALAM:PLAYER:Ｐ潤 - PALAM:Ａ潤)/2
		ELSE
			CUP:PLAYER:Ｐ潤 += (PALAM:Ａ潤 - PALAM:PLAYER:Ｐ潤)/2
		ENDIF
	ENDIF
CASE "Ａ指挿入"
	;対象のＡ⇔調教者の指的污垢が移動
	CALL EQ_STAIN, TARGET, "Ａ", PLAYER, "手"

	;浣腸中は排泄欲が１％上昇
	SIF TEQUIP:浣腸
		BASE:排泄欲 += MULTIPLY(MAXBASE:排泄欲, 1 + BASE:排泄物)*ARG:1/100
CASE "Ａ振動棒"
	SIF !CHECK_CLO("Ａ露出") && CHECK_CLO("Ａ露出可")
		CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
	;結腸責めをしているならフラグをセット
	SIF CHECK_COM("結腸責め")
		CALL SETFLAG, "結腸責め", TARGET

	;浣腸中は排泄欲が300+５％上昇
	SIF TEQUIP:浣腸
		BASE:排泄欲 += 300 + MULTIPLY(MAXBASE:排泄欲, 5 + BASE:排泄物)*ARG:1/100
CASE "肛塞"
	;浣腸中は排泄欲が300+５％上昇
	SIF TEQUIP:浣腸
		BASE:排泄欲 += 300 + MULTIPLY(MAXBASE:排泄欲, 5 + BASE:排泄物)*ARG:1/100
CASE "Ａ拳交"
	SIF !CHECK_CLO("Ａ露出") && CHECK_CLO("Ａ露出可")
		CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
	;結腸責めをしているならフラグをセット
	SIF CHECK_COM("結腸責め")
		CALL SETFLAG, "結腸責め", TARGET

	;対象のＡ⇔調教者の手的污垢が移動
	CALL EQ_STAIN, TARGET, "Ａ", PLAYER, "手"

	;浣腸中は排泄欲が1000+20％上昇
	SIF TEQUIP:浣腸
		BASE:排泄欲 += 1000 + MULTIPLY(MAXBASE:排泄欲, 20 + BASE:排泄物)*ARG:1/100
CASE "Ｖ逆挿入"
	IF TALENT:童貞
		CALL SETFLAG, "童貞狩猎フラグ", PLAYER
		CALL SETFLAG, "童貞喪失フラグ", TARGET
	ENDIF
	CALL SETFLAG, "下半身を脱がす", PLAYER
	SIF PENIS(TARGET)
		CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
	;対象のＰ⇔調教者のＶ的污垢が移動
	SIF TEQUIP:避孕套 == 0
		CALL EQ_STAIN, TARGET, "Ｐ", PLAYER, "Ｖ"
	CALL SETFLAG, "Ｐ汚れ：Ｖ", PLAYER

CASE "Ａ逆挿入"
	CALL SETFLAG, "下半身を脱がす", PLAYER
	SIF PENIS(TARGET)
		CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
	;対象のＰ⇔調教者のＡ的污垢が移動
	SIF TEQUIP:避孕套 == 0
		CALL EQ_STAIN, TARGET, "Ｐ", PLAYER, "Ａ"
	CALL SETFLAG, "Ｐ汚れ：Ａ", PLAYER
ENDSELECT

;処女でも挿入する指令など、特殊な分岐
SELECTCASE ARGS
CASE "尿道挿入"
	IF TALENT:尿道処女
		CALL SETFLAG, "尿道処女喪失フラグ", TARGET
		CALL SETFLAG, "尿道処女簒奪フラグ", PLAYER
	ENDIF
CASE "子宮挿入"
	CALL SETFLAG, "子宮責めフラグ", TARGET
	CALL SETFLAG, "子宮挿入フラグ", TARGET
CASE "玩弄子宮口"
	CALL SETFLAG, "子宮責めフラグ", TARGET
	IF TALENT:処女
		CALL SETFLAG, "処女喪失フラグ", TARGET
		CALL SETFLAG, "処女簒奪フラグ", PLAYER
		STAIN:Ｖ = SET_STAIN(STAIN:Ｖ, "破瓜之血")
		SIF TEQUIP:PLAYER:避孕套 == 0
			CALL EQ_STAIN, TARGET, "Ｖ", PLAYER, "Ｐ"
	ENDIF
CASE "Ｖ挿入"
	IF TALENT:処女
		CALL SETFLAG, "処女喪失フラグ", TARGET
		CALL SETFLAG, "処女簒奪フラグ", PLAYER
		STAIN:Ｖ = SET_STAIN(STAIN:Ｖ, "破瓜之血")
		SIF TEQUIP:PLAYER:避孕套 == 0
			CALL EQ_STAIN, TARGET, "Ｖ", PLAYER, "Ｐ"
	ENDIF
CASE "振動棒"
	IF TALENT:処女
		CALL SETFLAG, "処女喪失フラグ", TARGET
		CALL SETFLAG, "処女簒奪フラグ", PLAYER
		STAIN:Ｖ = SET_STAIN(STAIN:Ｖ, "破瓜之血")
	ENDIF
CASE "Ｖ拳交"
	IF TALENT:処女
		CALL SETFLAG, "処女喪失フラグ", TARGET
		CALL SETFLAG, "処女簒奪フラグ", PLAYER
		STAIN:Ｖ = SET_STAIN(STAIN:Ｖ, "破瓜之血")
		STAIN:PLAYER:手 = SET_STAIN(STAIN:PLAYER:手, "破瓜之血")
	ENDIF
CASE "Ｖ逆挿入"
	IF TALENT:PLAYER:処女
		CALL SETFLAG, "処女喪失フラグ", PLAYER
		CALL SETFLAG, "処女簒奪フラグ", TARGET
		STAIN:PLAYER:Ｖ = SET_STAIN(STAIN:PLAYER:Ｖ, "破瓜之血")
		SIF TEQUIP:避孕套 == 0
			CALL EQ_STAIN, TARGET, "Ｐ", PLAYER, "Ｖ"
	ENDIF
CASE "Ａ挿入"
	IF TALENT:Ａ処女
		CALL SETFLAG, "Ａ処女喪失フラグ", TARGET
		CALL SETFLAG, "Ａ処女簒奪フラグ", PLAYER
	ENDIF
	IF COND("喜欢的体位中")
		TFLAG:好感度BOUNS += (3 + RAND:3) * ARG:1 / 100
		FLAG:情緒 += (3 + RAND:3) * ARG:1 / 100
	ENDIF
CASE "Ａ逆挿入"
	IF TALENT:PLAYER:Ａ処女
		CALL SETFLAG, "Ａ処女喪失フラグ", PLAYER
		CALL SETFLAG, "Ａ処女簒奪フラグ", TARGET
	ENDIF
ENDSELECT

@SOURCE_INSERTION, ARGS, ARG, ARG:1
#DIM SIZE_DEF
#DIM PALAM_RES
#DIM EXP_REQ
#DIM DAMAGE
#DIMS NAME_INSERT

;Ｖ挿入等の激しさのSOURCE。@SOURCE_COM60等で呼ばれる
;ARG:1は主に挿入PLAYの激しさで、疼痛と快楽が両方増える（振動棒やフィストなどは通常100のまま）
CALL VARSET_COMF
VARSET NAME_INSERT

;NAME_INSERTは挿入するもの
SELECTCASE ARGS
CASE "尿道挿入"
	NAME_INSERT = 阴茎
	CALL SOURCE_DOWNBASE_HP, 83
	SOURCE:0:不潔 = 100 + COM_ORDER_STAIN("Ｐ", "尿道")*300
	SOURCE:0:屈従 = 10000
	SOURCE:0:逸脱 = 1000 + SIZE("阴茎", PLAYER)*5000
	SOURCE:0:疼痛 = 500
	SOURCE:0:恐惧 = 500

	;ABL:尿道感覚をみる
	SOURCE:0:尿道快楽 = CALCF("尿道刺激", 2)
	;調教者の腰靈活をみる
	SOURCE:0:尿道快楽 = SOURCE_EXABL(SOURCE:0:尿道快楽, "腰靈活", PLAYER)

CASE "尿道指挿入"
	NAME_INSERT = 指
	CALL SOURCE_DOWNBASE_HP, 15
	SOURCE:0:不潔 = 100 + COM_ORDER_STAIN("手", "尿道")*300
	SOURCE:0:露出 = 300
	SOURCE:0:屈従 = 3000
	SOURCE:0:逸脱 = 1000
	SOURCE:0:疼痛 = 500
	SOURCE:0:恐惧 = 100

	;ABL:尿道感覚をみる
	SOURCE:0:尿道快楽 = CALCF("尿道刺激", 1)
	;調教者の腰靈活をみる
	SOURCE:0:尿道快楽 = SOURCE_EXABL(SOURCE:0:尿道快楽, "指靈活", PLAYER)

CASE "尿道探针"
	NAME_INSERT = 尿道探针
	CALL SOURCE_DOWNBASE_HP, 151
	SOURCE:0:露出 = 2000
	SOURCE:0:屈従 = 5000
	SOURCE:0:逸脱 = 2000
	SOURCE:0:恐惧 = 500

	;ABL:尿道感覚をみる
	SOURCE:0:尿道快楽 = MULTIPLY(CALCF("尿道刺激", 0), 90 + ITEM:尿道探针*10)

CASE "尿道振動棒"
	NAME_INSERT = 尿道振動棒
	CALL SOURCE_DOWNBASE_HP, 152

	SOURCE:0:露出 = 500
	SOURCE:0:屈従 = 3000
	SOURCE:0:逸脱 = 3000
	SOURCE:0:恐惧 = 1000

	SELECTCASE SIZE("尿道振動棒")
	CASE 3
		SOURCE:0:尿道快楽 = MULTIPLY(CALCF("尿道刺激", 2), 90 + ITEM:極太振動棒*10)
	CASE 4
		SOURCE:0:尿道快楽 = MULTIPLY(CALCF("尿道刺激", 2), 90 + ITEM:腕型振動棒*10)
	CASE 5
		SOURCE:0:尿道快楽 = MULTIPLY(CALCF("尿道刺激", 2), 90 + ITEM:馬型振動棒*10)
	CASEELSE
		SOURCE:0:尿道快楽 = MULTIPLY(CALCF("尿道刺激", 2), 90 + ITEM:振動棒套装*10)
	ENDSELECT
	;調教者の指靈活をみる
	SOURCE:0:尿道快楽 = SOURCE_EXABL(SOURCE:0:尿道快楽, "指靈活", PLAYER)

;子宮挿入の逸脱のソースは下で決定
CASE "子宮挿入"
	NAME_INSERT = 阴茎
	CALL SOURCE_DOWNBASE_HP, 68
	SOURCE:0:不潔 = COM_ORDER_STAIN("Ｐ", "Ｖ")*500 + 100
	SOURCE:0:Ｖ快楽 = CALCF("Ｖ刺激", 2)

	;調教者の腰靈活をみる
	SOURCE:0:Ｖ快楽 = SOURCE_EXABL(SOURCE:0:Ｖ快楽, "腰靈活", PLAYER)
	;子宮性感がないと気持ちよくない
	IF TALENT:子宮性感
		TIMES SOURCE:0:Ｖ快楽, 1.25
	ELSE
		TIMES SOURCE:0:Ｖ快楽, 0.25
		SOURCE:0:恐惧 = 1000
	ENDIF
CASE "玩弄子宮口"
	NAME_INSERT = 阴茎
	CALL SOURCE_DOWNBASE_HP, 67
	SOURCE:0:不潔 = COM_ORDER_STAIN("Ｐ", "Ｖ")*300 + 100
	SOURCE:0:Ｖ快楽 = CALCF("Ｖ刺激", 2)

	;調教者の腰靈活をみる
	SOURCE:0:Ｖ快楽 = SOURCE_EXABL(SOURCE:0:Ｖ快楽, "腰靈活", PLAYER)
	;子宮性感がないと気持ちよくない
	IF TALENT:子宮性感
		TIMES SOURCE:0:Ｖ快楽, 1.25
	ELSE
		TIMES SOURCE:0:Ｖ快楽, 0.25
		SOURCE:0:恐惧 = 500
	ENDIF
CASE "Ｖ挿入"
	NAME_INSERT = 阴茎
	CALL SOURCE_DOWNBASE_HP, 60
	SOURCE:0:不潔 = COM_ORDER_STAIN("Ｐ", "Ｖ")*100 + 100
	IF PENIS(PLAYER) == 0
		SOURCE:0:Ｖ快楽 = MULTIPLY(CALCF("Ｖ刺激", 2), 90 + ITEM:假阳具)
	ELSE
		SOURCE:0:Ｖ快楽 = CALCF("Ｖ刺激", 2)
	ENDIF

	;調教者の腰靈活をみる
	SOURCE:0:Ｖ快楽 = SOURCE_EXABL(SOURCE:0:Ｖ快楽, "腰靈活", PLAYER)

CASE "双頭振動棒PLAY"
	NAME_INSERT = 振動棒
	CALL SOURCE_DOWNBASE_HP, 31
	SOURCE:0:逸脱 = 1000
	SOURCE:0:Ｖ快楽 = MULTIPLY(CALCF("Ｖ刺激", 2), 90 + ITEM:振動棒套装*10)

	;調教者の腰靈活をみる
	SOURCE:0:Ｖ快楽 = SOURCE_EXABL(SOURCE:0:Ｖ快楽, "腰靈活", PLAYER)
CASE "指挿入"
	NAME_INSERT = 指
	CALL SOURCE_DOWNBASE_HP, 8
	SOURCE:0:不潔 = COM_ORDER_STAIN("手", "Ｖ")*100 + 100
	SOURCE:0:露出 = 300
	SOURCE:0:屈従 = 200 + ABL:Ｖ感覚*200
	SOURCE:0:Ｖ快楽 = CALCF("Ｖ刺激", 1)
	;Gスポット
	IF CHECK_COM("玩弄Ｇ点")
		SIF ABL:Ｖ感覚 >= 3
			SOURCE:0:Ｖ快楽 += 500
		SOURCE:0:逸脱 += 500
	ENDIF
	;調教者の指靈活をみる
	SOURCE:0:Ｖ快楽 = SOURCE_EXABL(SOURCE:0:Ｖ快楽, "指靈活", PLAYER)
CASE "振動棒"
	NAME_INSERT = 振動棒
	CALL SOURCE_DOWNBASE_HP, 31
	SOURCE:0:逸脱 = 500
	SELECTCASE SIZE("振動棒")
	CASE 3
		SOURCE:0:Ｖ快楽 = MULTIPLY(CALCF("Ｖ刺激", 2), 90 + ITEM:極太振動棒*10)
	CASE 4
		SOURCE:0:Ｖ快楽 = MULTIPLY(CALCF("Ｖ刺激", 2), 90 + ITEM:腕型振動棒*10)
	CASE 5
		SOURCE:0:Ｖ快楽 = MULTIPLY(CALCF("Ｖ刺激", 2), 90 + ITEM:馬型振動棒*10)
	CASEELSE
		SOURCE:0:Ｖ快楽 = MULTIPLY(CALCF("Ｖ刺激", 2), 90 + ITEM:振動棒套装*10)
	ENDSELECT
	;調教者の指靈活をみる
	SOURCE:0:Ｖ快楽 = SOURCE_EXABL(SOURCE:0:Ｖ快楽, "指靈活", PLAYER)
CASE "Ｖ拳交"
	NAME_INSERT = フィスト
	CALL SOURCE_DOWNBASE_HP, 141
	SOURCE:0:不潔 = COM_ORDER_STAIN("手", "Ｖ")*150 + 100
	SOURCE:0:露出 = 1200
	SOURCE:0:屈従 = 2000
	SOURCE:0:逸脱 = 10000
	SOURCE:0:Ｖ快楽 = CALCF("Ｖ刺激", 3)
	;調教者の指靈活をみる
	SOURCE:0:Ｖ快楽 = SOURCE_EXABL(SOURCE:0:Ｖ快楽, "指靈活", PLAYER)
CASE "Ａ挿入"
	NAME_INSERT = 阴茎
	CALL SOURCE_DOWNBASE_HP, 70

	IF COND("合意：肛門性交")
		SOURCE:0:不潔 = COM_ORDER_STAIN("Ｐ", "Ａ")*100 + 100
		SOURCE:0:屈従 = 2000
		SOURCE:0:逸脱 = 3000
	ELSE
		SOURCE:0:不潔 = COM_ORDER_STAIN("Ｐ", "Ａ")*100 + 800
		SOURCE:0:屈従 = 3000
		SOURCE:0:逸脱 = 6000
	ENDIF
	IF PENIS(PLAYER) == 0
		SOURCE:0:Ａ快楽 = MULTIPLY(CALCF("Ａ刺激", 2), 90 + ITEM:假阳具)
	ELSE
		SOURCE:0:Ａ快楽 = CALCF("Ａ刺激", 2)
	ENDIF

	;調教者の腰靈活をみる
	SOURCE:0:Ａ快楽 = SOURCE_EXABL(SOURCE:0:Ａ快楽, "腰靈活", PLAYER)
CASE "Ａ指挿入"
	NAME_INSERT = Ａ振動棒
	CALL SOURCE_DOWNBASE_HP, 2
	SOURCE:0:不潔 = COM_ORDER_STAIN("手", "Ａ")*100 + 100
	SOURCE:0:露出 = 500
	SOURCE:0:屈従 = 500
	SOURCE:0:逸脱 = 1000
	SOURCE:0:Ａ快楽 = CALCF("Ａ刺激", 1)
	;調教者の指靈活をみる
	SOURCE:0:Ａ快楽 = SOURCE_EXABL(SOURCE:0:Ａ快楽, "指靈活", PLAYER)
CASE "Ａ振動棒"
	NAME_INSERT = Ａ振動棒
	CALL SOURCE_DOWNBASE_HP, 33
	SELECTCASE SIZE("Ａ振動棒")
	CASE 1, 2
		SOURCE:0:Ａ快楽 = MULTIPLY(CALCF("Ａ刺激", 2), 90 + ITEM:振動棒套装*10)
	CASE 3
		SOURCE:0:Ａ快楽 = MULTIPLY(CALCF("Ａ刺激", 2), 90 + ITEM:極太振動棒*10)
	CASE 4
		SOURCE:0:Ａ快楽 = MULTIPLY(CALCF("Ａ刺激", 2), 90 + ITEM:腕型振動棒*10)
	CASE 5
		SOURCE:0:Ａ快楽 = MULTIPLY(CALCF("Ａ刺激", 2), 90 + ITEM:馬型振動棒*10)
	CASEELSE
		IF COND("肛門拉珠")
			SOURCE:0:Ａ快楽 = MULTIPLY(CALCF("Ａ刺激", 2), 90 + ITEM:肛門拉珠*10)
		ELSE
			SOURCE:0:Ａ快楽 = MULTIPLY(CALCF("Ａ刺激", 2), 90 + ITEM:肛用振動棒*10)
		ENDIF
	ENDSELECT

	;調教者の指靈活をみる
	SOURCE:0:Ａ快楽 = SOURCE_EXABL(SOURCE:0:Ａ快楽, "指靈活", PLAYER)
	SOURCE:0:不潔 = 1000
	SOURCE:0:恐惧 = 100
	SOURCE:0:屈従 = 1500
	SOURCE:0:逸脱 = 3000
CASE "肛塞"
	NAME_INSERT = 肛塞
	CALL SOURCE_DOWNBASE_HP, 34
	SELECTCASE SIZE("肛塞")
	CASE 1, 2
		SOURCE:0:Ａ快楽 = MULTIPLY(CALCF("Ａ刺激", 0), 90 + ITEM:振動棒套装*10)
	CASE 3
		SOURCE:0:Ａ快楽 = MULTIPLY(CALCF("Ａ刺激", 0), 90 + ITEM:極太振動棒*10)
	CASE 4
		SOURCE:0:Ａ快楽 = MULTIPLY(CALCF("Ａ刺激", 0), 90 + ITEM:腕型振動棒*10)
	CASE 5
		SOURCE:0:Ａ快楽 = MULTIPLY(CALCF("Ａ刺激", 0), 90 + ITEM:馬型振動棒*10)
	CASEELSE
		SOURCE:0:Ａ快楽 = MULTIPLY(CALCF("Ａ刺激", 0), 90 + ITEM:肛用振動棒*10)
	ENDSELECT

	;基本的に快楽は低い
	TIMES SOURCE:0:Ａ快楽, 0.10
	SOURCE:0:不潔 = 100
	SOURCE:0:恐惧 = 50
	SOURCE:0:屈従 = 100
	SOURCE:0:逸脱 = 500
CASE "Ａ拳交"
	NAME_INSERT = フィスト
	CALL SOURCE_DOWNBASE_HP, 142
	SOURCE:0:不潔 = COM_ORDER_STAIN("手", "Ａ")*150 + 800
	SOURCE:0:露出 = 1200
	SOURCE:0:屈従 = 2000
	SOURCE:0:逸脱 = 20000
	SOURCE:0:Ａ快楽 = CALCF("Ａ刺激", 3)
	;調教者の指靈活をみる
	SOURCE:0:Ａ快楽 = SOURCE_EXABL(SOURCE:0:Ａ快楽, "指靈活", PLAYER)
ENDSELECT

;SIZE_DEFは挿入しているもののSIZEから拡張度を引いた値で抵抗を表している。トントンなら０で大きいほど痛い
SELECTCASE ARGS
CASE "尿道挿入", "尿道指挿入", "尿道振動棒"
	SIZE_DEF = SIZE(NAME_INSERT) - ABL:尿道拡張
CASE "尿道探针"
	;尿道拡張は7mmに付き1LVあがる
	SELECTCASE SIZE(NAME_INSERT) - MIN_STR(CONDS("尿道拡張度"))*21/20
	CASE IS < -1
		SIZE_DEF = -2
	CASE -1 TO 1
		SIZE_DEF = SIZE(NAME_INSERT) - MIN_STR(CONDS("尿道拡張度"))*21/20
	CASEELSE
		SIZE_DEF = 1 + (SIZE(NAME_INSERT) - MIN_STR(CONDS("尿道拡張度"))*21/20 )/2
	ENDSELECT
CASE "子宮挿入"
	SIZE_DEF = 1 + TALENT:娇小 - TALENT:淫壷
	SELECTCASE GET_EXP_LV(EXP:子宮姦経験) + TALENT:子宮性感
	CASE 3
		SIZE_DEF -= 1
	CASE IS >= 4
		SIZE_DEF -= 2
	ENDSELECT
	SIF TALENT:妊娠 || MARK:淫紋 >= 4
		SIZE_DEF -= 1
	SIF SIZE(NAME_INSERT) >= 3
		SIZE_DEF += SIZE(NAME_INSERT)/2
	SIZE_DEF = MAX(SIZE_DEF, -1)
CASE "Ｖ挿入", "玩弄子宮口"
	IF INSERT("两根挿入Ｖ中") || CHECK_COM("两根挿入Ｖ中")
		SIZE_DEF = SIZE("Ｗ阴茎") - ABL:Ｖ拡張
	ELSEIF INSERT("二穴挿入") || CHECK_COM("二穴挿入")
		SIZE_DEF = SIZE(NAME_INSERT) - ABL:Ｖ拡張 + 1
	ELSE
		SIZE_DEF = SIZE(NAME_INSERT) - ABL:Ｖ拡張
	ENDIF
	SIF ABL:Ｖ技術/2 > SIZE(NAME_INSERT) && SIZE_DEF >= 0
		SIZE_DEF -= 1
CASE "指挿入", "振動棒", "Ｖ拳交", "双頭振動棒PLAY"
	SIZE_DEF = SIZE(NAME_INSERT) - ABL:Ｖ拡張
	SIF ABL:Ｖ技術/2 > SIZE(NAME_INSERT) && SIZE_DEF >= 0
		SIZE_DEF -= 1
CASE "Ａ挿入"
	IF INSERT("两根挿入Ａ中") || CHECK_COM("两根挿入Ａ中")
		SIZE_DEF = SIZE("Ｗ阴茎") - ABL:Ａ拡張
	ELSEIF INSERT("二穴挿入") || CHECK_COM("二穴挿入")
		SIZE_DEF = SIZE(NAME_INSERT) - ABL:Ａ拡張 + 1
	ELSE
		SIZE_DEF = SIZE(NAME_INSERT) - ABL:Ａ拡張
	ENDIF
	;肛門は抵抗がある
	SIF (TALENT:Ａ性向 == 0 || ABL:Ａ感覚 <= 2) && EXP:Ａ経験 < EXP_LV(SIZE(NAME_INSERT) + 3)
		SIZE_DEF += 1
CASE "Ａ指挿入", "Ａ振動棒", "肛塞", "Ａ拳交"
	SIZE_DEF = SIZE(NAME_INSERT) - ABL:Ａ拡張
	;肛門は抵抗がある
	SIF (TALENT:Ａ性向 == 0 || ABL:Ａ感覚 <= 2) && EXP:Ａ経験 < EXP_LV(SIZE(NAME_INSERT) + 3)
		SIZE_DEF += 1
ENDSELECT

SIF TALENT:拡張適性 && SIZE_DEF >= 0
	SIZE_DEF -= 1

SELECTCASE TEQUIP:弛緩
CASE 1
	SIF SIZE_DEF > 0
		SIZE_DEF -= 1
CASE 2
	SIF SIZE_DEF >= 0
		SIZE_DEF -= 1
CASE 3
	SIF SIZE_DEF >= 0
		SIZE_DEF -= 1
	SIF SIZE_DEF >= 0
		SIZE_DEF -= 1
ENDSELECT

;余裕有
IF SIZE_DEF < 0
	;ジャスト
	IF SIZE_DEF == -1
		TIMES SOURCE:0:Ｖ快楽, 1.20
		TIMES SOURCE:0:Ａ快楽, 1.20
		TIMES SOURCE:0:尿道快楽, 1.20
	;緩い
	ELSE
		SOURCE:0:Ｖ快楽 = MULTIPLY(SOURCE:0:Ｖ快楽, MAX(120 + SIZE_DEF*20, 50) )
		SOURCE:0:Ａ快楽 = MULTIPLY(SOURCE:0:Ａ快楽, MAX(120 + SIZE_DEF*20, 50) )
		SOURCE:0:尿道快楽 = MULTIPLY(SOURCE:0:尿道快楽, MAX(120 + SIZE_DEF*20, 50) )
	ENDIF
	;余裕がある場合に限り、大きく硬い方が悦ばれることにする
	SOURCE:0:Ｖ快楽 = MULTIPLY(SOURCE:0:Ｖ快楽, HARD(NAME_INSERT)*10 + 80)
	SOURCE:0:Ｖ快楽 = MULTIPLY(SOURCE:0:Ｖ快楽, SIZE(NAME_INSERT)*10 + 90)
	;膣に大号的ものを挿入する場合には子宮性感の有無で少々BOUNS有
	SIF TALENT:子宮性感 && SIZE(NAME_INSERT) >= 2
		TIMES SOURCE:0:Ｖ快楽, 1.20

	SOURCE:0:Ａ快楽 = MULTIPLY(SOURCE:0:Ａ快楽, HARD(NAME_INSERT)*10 + 80)
	SOURCE:0:Ａ快楽 = MULTIPLY(SOURCE:0:Ａ快楽, SIZE(NAME_INSERT)*10 + 90)

	SOURCE:0:尿道快楽 = MULTIPLY(SOURCE:0:尿道快楽, HARD(NAME_INSERT)*10 + 80)
	SOURCE:0:尿道快楽 = MULTIPLY(SOURCE:0:尿道快楽, SIZE(NAME_INSERT)*10 + 90)

	;大きいものを収められると達成感
	SIF SIZE(NAME_INSERT) >= 2
		SOURCE:0:達成感 += SIZE(NAME_INSERT) * SIZE(NAME_INSERT) * 500
;余裕没有
ELSE
	DOWNBASE:0:体力 = MULTIPLY(DOWNBASE:0:体力, 100 + SIZE_DEF*20)
	SOURCE:0:Ｖ快楽 /= MAX(SIZE_DEF*2, 1)
	SOURCE:0:Ａ快楽 /= MAX(SIZE_DEF*2, 1)
	SOURCE:0:尿道快楽 /= MAX(SIZE_DEF*2, 1)
ENDIF

;PALAMLVの値は、順に1:100,2:500,3:3000,4:1万,5:3万,6:6万,7:10万,8:15万,9:25万
;HARDの基本値は阴茎なら１、振動棒や拳なら３
SOURCE:0:疼痛 += PALAM_LV(SIZE_DEF + (HARD(NAME_INSERT) + 1)/2)
SOURCE:0:恐惧 += PALAM_LV(SIZE_DEF + (HARD(NAME_INSERT) + 1)/2)
SOURCE:0:逸脱 += PALAM_LV(SIZE_DEF)

;前か後ろかで分岐
SELECTCASE ARGS
CASE "尿道挿入", "尿道指挿入", "尿道探针", "尿道振動棒"
	;PALAM_RESは入れてるものの尺寸を加味した潤滑具合
	SELECTCASE ARGS
	CASE "尿道挿入"
		;初めて
		IF TALENT:尿道処女 && TALENT:倒錯的 == 0 && ABL:受虐属性 < 3
			SOURCE:0:恐惧 += 5000
			SOURCE:0:逸脱 += 20000
		ENDIF
		PALAM_RES = 3
	CASEELSE
		;ここでの最大は３
		PALAM_RES = 3
	ENDSELECT

	IF TALENT:尿道狂
		TIMES SOURCE:0:疼痛, 0.10
		TIMES SOURCE:0:恐惧, 0.10
		TIMES SOURCE:0:逸脱, 0.05
	ELSEIF TALENT:尿道性感
		TIMES SOURCE:0:疼痛, 0.20
		TIMES SOURCE:0:恐惧, 0.20
		TIMES SOURCE:0:逸脱, 0.20
	ENDIF

	;尿道に筋弛緩剤
	SIF GETBIT(TEQUIP:筋弛緩剤, 1)
		TIMES SOURCE:0:疼痛, 0.20

	;経験は足りている？（HARDによって上限有）
	EXP_REQ = MIN(GET_EXP_LV(EXP:尿道経験 + 1) - SIZE(NAME_INSERT) - 1 - MAX(SIZE_DEF, 0), 5 - HARD(NAME_INSERT) )
CASE "子宮挿入"
	;淫紋持ちは充足のソースも得る
	SIF MARK:淫紋
		SOURCE:0:充足 += MARK:淫紋 * 1000

	SELECTCASE GET_EXP_LV(EXP:子宮姦経験) + TALENT:子宮性感
	CASE IS <= 1
		TIMES SOURCE:0:Ｖ快楽, 0.20
		SOURCE:0:疼痛 += 1000
		SOURCE:0:恐惧 += 3000
		SOURCE:0:逸脱 += 30000
	CASE 2
		TIMES SOURCE:0:Ｖ快楽, 0.40
		SOURCE:0:疼痛 += 500
		SOURCE:0:恐惧 += 1000
		SOURCE:0:逸脱 += 6000
	CASE 3
		TIMES SOURCE:0:Ｖ快楽, 0.70
		SOURCE:0:疼痛 += 100
		SOURCE:0:恐惧 += 500
		SOURCE:0:逸脱 += 2000
	ENDSELECT
	IF TALENT:淫壷 || MARK:淫紋 >= 4
		SOURCE:0:疼痛 /= 3
		SOURCE:0:恐惧 /= 3
		SOURCE:0:逸脱 /= 3
	ELSEIF MARK:淫紋
		SOURCE:0:疼痛 = MULTIPLY(SOURCE:0:疼痛, 100 - MARK:淫紋*15)
		SOURCE:0:恐惧 = MULTIPLY(SOURCE:0:恐惧, 100 - MARK:淫紋*15)
		SOURCE:0:逸脱 = MULTIPLY(SOURCE:0:逸脱, 100 - MARK:淫紋*15)
	ENDIF

	;PALAM_RESは入れてるものの尺寸を加味した潤滑具合
	PALAM_RES = GET_PALAMLV(PALAM:Ｖ潤 + PALAM:PLAYER:Ｐ潤) - MAX(SIZE_DEF, 0) - 1

	;経験は足りている？（HARDによって上限有）
	EXP_REQ = MIN(GET_EXP_LV(EXP:子宮口経験 + 1) - SIZE(NAME_INSERT) - 1 - MAX(SIZE_DEF, 0), 5 - HARD(NAME_INSERT) )

	;損傷有？
	DAMAGE = TALENT:Ｖ損傷
CASE "Ｖ挿入", "玩弄子宮口", "指挿入", "振動棒", "Ｖ拳交", "双頭振動棒PLAY"
	;淫紋持ちは充足のソースも得る
	SIF MARK:淫紋
		SOURCE:0:充足 += MARK:淫紋 * 500

	IF TALENT:処女
		SOURCE:0:疼痛 += 1000
	ELSEIF EX:処女喪失
		SOURCE:0:疼痛 += 100
	ENDIF
	IF TALENT:淫壷 || MARK:淫紋 >= 4
		SOURCE:0:疼痛 /= 3
		SOURCE:0:恐惧 /= 3
		SOURCE:0:逸脱 /= 3
	ELSEIF MARK:淫紋
		SOURCE:0:疼痛 = MULTIPLY(SOURCE:0:疼痛, 100 - MARK:淫紋*15)
		SOURCE:0:恐惧 = MULTIPLY(SOURCE:0:恐惧, 100 - MARK:淫紋*15)
		SOURCE:0:逸脱 = MULTIPLY(SOURCE:0:逸脱, 100 - MARK:淫紋*15)
	ENDIF
	;阴部に筋弛緩剤
	IF GETBIT(TEQUIP:筋弛緩剤, 2)
		TIMES SOURCE:0:Ｖ快楽, 0.70
		TIMES SOURCE:0:疼痛, 0.50
	ENDIF

	;PALAM_RESは入れてるものの尺寸を加味した潤滑具合
	SELECTCASE ARGS
	CASE "Ｖ挿入"
		PALAM_RES = GET_PALAMLV(PALAM:Ｖ潤 + PALAM:PLAYER:Ｐ潤) - MAX(SIZE_DEF, 0)
	CASEELSE
		;ここでの最大は３
		PALAM_RES = MIN(GET_PALAMLV(PALAM:Ｖ潤) - MAX(SIZE_DEF, 0), 3)
	ENDSELECT

	;経験は足りている？（HARDによって上限有）
	EXP_REQ = MIN(GET_EXP_LV(EXP:Ｖ経験 + 1) - SIZE(NAME_INSERT) - 1 - MAX(SIZE_DEF, 0), 5 - HARD(NAME_INSERT) )

	;常時挿入による疼痛の軽減
	IF TALENT:常時Ｖ振動棒 >= 4
		SIF ABL:Ｖ拡張 >= MAX(SIZE(NAME_INSERT), 1)
			TIMES SOURCE:0:疼痛, 0.10
	ELSE
		SIF TALENT:常時Ｖ振動棒 >= MAX(SIZE(NAME_INSERT), 1)
			TIMES SOURCE:0:疼痛, 0.10
	ENDIF

	;損傷有？
	DAMAGE = TALENT:Ｖ損傷
CASE "Ａ挿入", "Ａ指挿入", "Ａ振動棒", "肛塞", "Ａ拳交"
	;結腸挿入
	IF COND("結腸責めフラグ")
		SELECTCASE GET_EXP_LV(EXP:結腸経験) + TALENT:結腸性感
		CASE 0
			SOURCE:0:屈従 += 500
			SOURCE:0:疼痛 += 1000
			SOURCE:0:恐惧 += 10000
			SOURCE:0:逸脱 += 10000
		CASE 1
			SOURCE:0:屈従 += 1000
			SOURCE:0:疼痛 += 500
			SOURCE:0:恐惧 += 3000
			SOURCE:0:逸脱 += 3000
		CASE 2
			TIMES SOURCE:0:Ａ快楽, 1.20
			SOURCE:0:屈従 += 2000
			SOURCE:0:疼痛 += 100
			SOURCE:0:恐惧 += 500
			SOURCE:0:逸脱 += 1000
		CASEELSE
			TIMES SOURCE:0:Ａ快楽, 1.50
			SOURCE:0:屈従 += 3000
		ENDSELECT
	ENDIF

	IF TALENT:尻穴狂い
		SOURCE:0:疼痛 /= 3
		SOURCE:0:恐惧 /= 3
		SOURCE:0:逸脱 /= 3
	ENDIF
	;肛門に筋弛緩剤
	IF GETBIT(TEQUIP:筋弛緩剤, 0)
		TIMES SOURCE:0:Ａ快楽, 0.70
		TIMES SOURCE:0:疼痛, 0.50
	ENDIF

	;PALAM_RESは入れてるものの尺寸を加味した潤滑具合
	SELECTCASE ARGS
	CASE "Ａ挿入"
		PALAM_RES = GET_PALAMLV(PALAM:Ａ潤 + PALAM:PLAYER:Ｐ潤) - MAX(SIZE_DEF, 0)
	CASEELSE
		;ここでの最大は３
		PALAM_RES = MIN(GET_PALAMLV(PALAM:Ａ潤) - MAX(SIZE_DEF, 0), 3)
	ENDSELECT

	;経験は足りている？（HARDによって上限有）
	EXP_REQ = MIN(GET_EXP_LV(EXP:Ａ経験 + 1) - SIZE(NAME_INSERT) - 1 - MAX(SIZE_DEF, 0), 5 - HARD(NAME_INSERT) )

	;常時挿入による疼痛の軽減
	IF TALENT:常時Ａ肛塞 >= 4
		SIF ABL:Ａ拡張 >= MAX(SIZE(NAME_INSERT), 1)
			TIMES SOURCE:0:疼痛, 0.10
	ELSE
		SIF TALENT:常時Ａ肛塞 >= MAX(SIZE(NAME_INSERT), 1)
			TIMES SOURCE:0:疼痛, 0.10
	ENDIF

	;損傷有？
	DAMAGE = TALENT:Ａ損傷
ENDSELECT

;PRINTFORMW SIZE_DEF = {SIZE_DEF}, PALAM_RES = {PALAM_RES}, EXP_REQ = {EXP_REQ}, SOURCE:0:疼痛 = {SOURCE:0:疼痛}

;挿入かどうか等で分岐
SELECTCASE ARGS
CASE "尿道挿入"
	IF CALCF("阴茎好き度", TARGET) > 0 && PENIS(PLAYER) && ABL:尿道拡張 >= SIZE(NAME_INSERT)
		SOURCE:0:屈従 += SOURCE:0:恐惧 * CALCF("阴茎好き度", TARGET)
		SOURCE:0:疼痛 /= CALCF("阴茎好き度", TARGET) + 1
		SOURCE:0:恐惧 /= CALCF("阴茎好き度", TARGET) + 1
	ENDIF
	IF COND("喜欢的体位中")
		TIMES SOURCE:0:Ｖ快楽, 1.20
		TIMES SOURCE:0:Ａ快楽, 1.20
		TIMES SOURCE:0:尿道快楽, 1.20
		TIMES SOURCE:0:疼痛, 0.80
		TIMES SOURCE:0:恐惧, 0.80
		TIMES SOURCE:0:逸脱, 0.80
	ENDIF
CASE "子宮挿入"
	IF CALCF("阴茎好き度", TARGET) > 0 && PENIS(PLAYER) && 1 >= SIZE(NAME_INSERT)
		SOURCE:0:屈従 += SOURCE:0:恐惧 * CALCF("阴茎好き度", TARGET)
		SOURCE:0:疼痛 /= CALCF("阴茎好き度", TARGET) + 1
		SOURCE:0:恐惧 /= CALCF("阴茎好き度", TARGET) + 1
	ENDIF
	IF COND("喜欢的体位中")
		TIMES SOURCE:0:Ｖ快楽, 1.20
		TIMES SOURCE:0:疼痛, 0.80
		TIMES SOURCE:0:恐惧, 0.80
		TIMES SOURCE:0:逸脱, 0.80
	ENDIF
CASE "Ｖ挿入", "玩弄子宮口"
	IF CALCF("阴茎好き度", TARGET) > 0 && PENIS(PLAYER) && ABL:Ｖ拡張 >= SIZE(NAME_INSERT)
		SOURCE:0:屈従 += SOURCE:0:恐惧 * CALCF("阴茎好き度", TARGET)
		SOURCE:0:疼痛 /= CALCF("阴茎好き度", TARGET) + 1
		SOURCE:0:恐惧 /= CALCF("阴茎好き度", TARGET) + 1
	ENDIF
	IF COND("喜欢的体位中")
		TIMES SOURCE:0:Ｖ快楽, 1.20
		TIMES SOURCE:0:疼痛, 0.80
		TIMES SOURCE:0:恐惧, 0.80
		TIMES SOURCE:0:逸脱, 0.80
	ENDIF
	IF COND("臍上侵入") || COND("腹部变形")
		SELECTCASE GET_EXP_LV(EXP:子宮口経験) + TALENT:子宮性感
		CASE 0
			SOURCE:0:屈従 += 500
			SOURCE:0:疼痛 += 1000
			SOURCE:0:恐惧 += 10000
			SOURCE:0:逸脱 += 10000
		CASE 1
			SOURCE:0:屈従 += 1000
			SOURCE:0:疼痛 += 500
			SOURCE:0:恐惧 += 3000
			SOURCE:0:逸脱 += 3000
		CASE 2
			TIMES SOURCE:0:Ｖ快楽, 1.20
			SOURCE:0:屈従 += 2000
			SOURCE:0:充足 += 1000
			SOURCE:0:疼痛 += 100
			SOURCE:0:恐惧 += 500
			SOURCE:0:逸脱 += 1000
		CASEELSE
			TIMES SOURCE:0:Ｖ快楽, 1.50
			SOURCE:0:屈従 += 3000
			SOURCE:0:充足 += 1500
		ENDSELECT
		SIF COND("腹部变形")
			SOURCE:0:達成感 += 1000
	ELSEIF COND("臍下到達")
		SELECTCASE GET_EXP_LV(EXP:子宮口経験) + TALENT:子宮性感
		CASE 0
			SOURCE:0:屈従 += 500
			SOURCE:0:疼痛 += 500
			SOURCE:0:恐惧 += 3000
			SOURCE:0:逸脱 += 3000
		CASE 1
			SOURCE:0:屈従 += 1000
			SOURCE:0:充足 += 500
			SOURCE:0:疼痛 += 100
			SOURCE:0:恐惧 += 500
			SOURCE:0:逸脱 += 1000
		CASEELSE
			TIMES SOURCE:0:Ｖ快楽, 1.20
			SOURCE:0:屈従 += 1500
			SOURCE:0:充足 += 1000
		ENDSELECT
	ENDIF

CASE "Ａ挿入"
	IF CALCF("阴茎好き度", TARGET) > 0 && PENIS(PLAYER) && ABL:Ａ拡張 >= SIZE(NAME_INSERT)
		SOURCE:0:屈従 += SOURCE:0:恐惧 * CALCF("阴茎好き度", TARGET)
		SOURCE:0:疼痛 /= CALCF("阴茎好き度", TARGET) + 1
		SOURCE:0:恐惧 /= CALCF("阴茎好き度", TARGET) + 1
	ENDIF
	IF COND("喜欢的体位中")
		TIMES SOURCE:0:Ａ快楽, 1.20
		TIMES SOURCE:0:疼痛, 0.80
		TIMES SOURCE:0:恐惧, 0.80
		TIMES SOURCE:0:逸脱, 0.80
	ENDIF

CASE "双頭振動棒PLAY"
	;締まり対決。値が大きいほどTARGET有利（受ける快楽等が少なく、与える快楽が大きい）
	;全部の値に作用するのでARG:1を増減させる
	SELECTCASE ABL:Ｖ技術 - ABL:Ｖ拡張 - (ABL:PLAYER:Ｖ技術 - ABL:PLAYER:Ｖ拡張)
	CASE IS >= 3
		TIMES ARG:1, 0.30
	CASE 2
		TIMES ARG:1, 0.50
	CASE 1
		TIMES ARG:1, 0.80
	CASE -1
		TIMES ARG:1, 1.20
	CASE -2
		TIMES ARG:1, 1.50
	CASE IS <= -3
		TIMES ARG:1, 2.00
	ENDSELECT
CASE "振動棒"
	IF TEQUIP:振動棒 == 0
		TIMES SOURCE:0:Ｃ快楽, 0.50
		TIMES SOURCE:0:Ｖ快楽, 0.50
		TIMES SOURCE:0:疼痛, 0.50
		TIMES SOURCE:0:逸脱, 0.50
	ENDIF
CASE "Ａ振動棒"
	IF TEQUIP:肛用振動棒 == 0
		TIMES SOURCE:0:Ａ快楽, 0.50
		TIMES SOURCE:0:疼痛, 0.50
		TIMES SOURCE:0:逸脱, 0.50
		TIMES SOURCE:0:屈従, 0.50
		TIMES SOURCE:0:恐惧, 0.50
	ENDIF
CASE "肛塞"
	IF TEQUIP:肛塞 == 0
		TIMES SOURCE:0:Ａ快楽, 0.50
		TIMES SOURCE:0:疼痛, 0.50
		TIMES SOURCE:0:逸脱, 0.50
		TIMES SOURCE:0:屈従, 0.50
		TIMES SOURCE:0:恐惧, 0.50
	ENDIF
CASE "尿道振動棒"
	IF TEQUIP:尿道振動棒 == 0
		TIMES SOURCE:0:尿道快楽, 0.50
		TIMES SOURCE:0:疼痛, 0.50
		TIMES SOURCE:0:逸脱, 0.50
		TIMES SOURCE:0:屈従, 0.50
		TIMES SOURCE:0:恐惧, 0.50
	ENDIF
CASE "指挿入", "Ａ指挿入", "尿道指挿入"
	SELECTCASE ABL:PLAYER:指靈活
	CASE 1
		TIMES SOURCE:0:疼痛, 0.80
	CASE 2
		TIMES SOURCE:0:疼痛, 0.50
	CASE IS >= 3
		SOURCE:0:疼痛 = MIN(SOURCE:0:疼痛/5, 500)
	ENDSELECT
ENDSELECT

IF TEQUIP:推倒 == 0
	SELECTCASE CONDS("調教知識", PLAYER)
	CASE "性器拡張知識"
		TIMES SOURCE:0:疼痛, 0.50
		TIMES SOURCE:0:恐惧, 0.50
	ENDSELECT
ENDIF

;挿入するものの尺寸が該当箇所の拡張ＬＶ+１以下の場合
IF SIZE_DEF <= 1 && TALENT:好色 + TALENT:淫乱 + TALENT:拡張適性
	TIMES SOURCE:0:疼痛, 0.50
	TIMES SOURCE:0:恐惧, 0.50
	TIMES SOURCE:0:屈従, 0.50

	;今までの絶頂具合による脱力などで疼痛軽減措置（とりあえずは暫定）
	SELECTCASE EX:絶頂数合計 + TEQUIP:媚薬/25
	CASE IS >= MAX(20, MAXBASE:性欲*2)
		TIMES SOURCE:0:疼痛, 0.20
	CASE IS >= MAX(10, MAXBASE:性欲)
		TIMES SOURCE:0:疼痛, 0.50
	CASE IS >= MAX(5, MAXBASE:性欲/2)
		TIMES SOURCE:0:疼痛, 0.80
	ENDSELECT
ENDIF

IF TALENT:淫乱
	TIMES SOURCE:0:逸脱, 0.20
ELSEIF TALENT:好色
	TIMES SOURCE:0:逸脱, 0.50
ENDIF

;経験は足りている？
SELECTCASE EXP_REQ
CASE IS >= 3
	TIMES SOURCE:0:疼痛, 0.05
	TIMES SOURCE:0:恐惧, 0.05
	TIMES SOURCE:0:逸脱, 0.05
CASE 2
	TIMES SOURCE:0:疼痛, 0.30
	TIMES SOURCE:0:恐惧, 0.30
	TIMES SOURCE:0:逸脱, 0.30
CASE 1
	TIMES SOURCE:0:疼痛, 0.70
	TIMES SOURCE:0:恐惧, 0.70
	TIMES SOURCE:0:逸脱, 0.70
CASE 0
	TIMES SOURCE:0:恐惧, 0.70
CASE -1
	TIMES SOURCE:0:疼痛, 1.25
	TIMES SOURCE:0:逸脱, 1.20
CASE -2
	TIMES SOURCE:0:疼痛, 1.50
	TIMES SOURCE:0:恐惧, 1.50
	TIMES SOURCE:0:逸脱, 2.00
CASEELSE
	TIMES SOURCE:0:疼痛, 2.00
	TIMES SOURCE:0:恐惧, 3.00
	TIMES SOURCE:0:逸脱, 3.00
ENDSELECT

;PALAM:Ｖ潤orＡ潤をみる
;挿入されているもののサイズとか拡張度は既に加味されている
;だいたい、挿入されているもののSIZEと拡張度が等しいときに対応した潤滑のLVが２あれば問題ない
SELECTCASE PALAM_RES
CASE IS >= 4
	TIMES SOURCE:0:疼痛, 0.20
CASE 3
	TIMES SOURCE:0:疼痛, 0.50
CASE 2
	TIMES SOURCE:0:Ｖ快楽, 0.80
	TIMES SOURCE:0:Ａ快楽, 0.80
	TIMES SOURCE:0:疼痛, 0.80
CASE 1
	TIMES SOURCE:0:Ｖ快楽, 0.40
	TIMES SOURCE:0:Ａ快楽, 0.40
	SOURCE:0:疼痛 += 100
CASEELSE
	TIMES SOURCE:0:Ｖ快楽, 0.10
	TIMES SOURCE:0:Ａ快楽, 0.10
	SOURCE:0:疼痛 += 500
ENDSELECT

;損傷有？
IF DAMAGE
	TIMES SOURCE:0:疼痛, 2.00
	TIMES SOURCE:0:恐惧, 2.00
	TIMES SOURCE:0:逸脱, 2.00
	SOURCE:0:疼痛 += PALAM_LV(SIZE(NAME_INSERT) + 2)
	SOURCE:0:恐惧 += PALAM_LV(SIZE(NAME_INSERT) + 2)
	SOURCE:0:逸脱 += PALAM_LV(SIZE(NAME_INSERT) + 1)
ENDIF

;潤滑増加の処理。その後に、場所ごとに性向の補正と完美契合
SELECTCASE ARGS
;膣を使っているPLAYは疼痛に比例して愛液増加
CASE "子宮挿入", "Ｖ挿入", "玩弄子宮口"
	SOURCE:0:Ｖ液体追加 += 100*MIN(PALAM_LV(SOURCE:0:疼痛), 5)
	SIF TALENT:Ｖ性向
		CALL CALC, "好みのPLAY", SOURCE:0:Ｖ快楽

	;完美契合は快楽と屈従を増大させる
	SELECTCASE CHECK("Ｖ完美契合")
	CASE IS >= 100
		TIMES SOURCE:0:Ｖ快楽, 3.00
		TIMES SOURCE:0:屈従, 3.00
	CASE IS >= 90
		TIMES SOURCE:0:Ｖ快楽, 2.50
		TIMES SOURCE:0:屈従, 2.50
	CASE IS >= 80
		TIMES SOURCE:0:Ｖ快楽, 2.00
		TIMES SOURCE:0:屈従, 2.00
	CASE IS >= 70
		TIMES SOURCE:0:Ｖ快楽, 1.75
		TIMES SOURCE:0:屈従, 1.75
	CASE IS >= 60
		TIMES SOURCE:0:Ｖ快楽, 1.50
		TIMES SOURCE:0:屈従, 1.50
	CASE IS >= 50
		TIMES SOURCE:0:Ｖ快楽, 1.25
		TIMES SOURCE:0:屈従, 1.25
	ENDSELECT
CASE "指挿入", "振動棒", "Ｖ拳交", "双頭振動棒PLAY"
	SOURCE:0:Ｖ液体追加 += 100*MIN(PALAM_LV(SOURCE:0:疼痛), 5)
	SIF TALENT:Ｖ性向
		CALL CALC, "好みのPLAY", SOURCE:0:Ｖ快楽

;肛門PLAYなら疼痛や異物の尺寸などによって腸液分泌
CASE "Ａ挿入"
	SOURCE:0:Ａ液体追加 += MAX((GET_PALAMLV(SOURCE:0:疼痛) + SIZE(NAME_INSERT))*100, 100)
	SIF TALENT:Ａ性向
		CALL CALC, "好みのPLAY", SOURCE:0:Ａ快楽

	;完美契合は快楽と屈従を増大させる
	SELECTCASE CHECK("Ａ完美契合")
	CASE IS >= 100
		TIMES SOURCE:0:Ａ快楽, 3.00
		TIMES SOURCE:0:屈従, 3.00
	CASE IS >= 90
		TIMES SOURCE:0:Ａ快楽, 2.50
		TIMES SOURCE:0:屈従, 2.50
	CASE IS >= 80
		TIMES SOURCE:0:Ａ快楽, 2.00
		TIMES SOURCE:0:屈従, 2.00
	CASE IS >= 70
		TIMES SOURCE:0:Ａ快楽, 1.75
		TIMES SOURCE:0:屈従, 1.75
	CASE IS >= 60
		TIMES SOURCE:0:Ａ快楽, 1.50
		TIMES SOURCE:0:屈従, 1.50
	CASE IS >= 50
		TIMES SOURCE:0:Ａ快楽, 1.25
		TIMES SOURCE:0:屈従, 1.25
	ENDSELECT

	;縦深菊穴は不怕痛
	SIF TALENT:縦深菊穴
		SOURCE:0:疼痛 = MAX(MIN(DOWN_PALAMLV(SOURCE:0:疼痛), SOURCE:0:疼痛 - 100), 0)
CASE "Ａ指挿入", "Ａ振動棒", "肛塞", "Ａ拳交"
	SOURCE:0:Ａ液体追加 += MAX((GET_PALAMLV(SOURCE:0:疼痛) + SIZE(NAME_INSERT))*100, 100)
	SIF TALENT:Ａ性向
		CALL CALC, "好みのPLAY", SOURCE:0:Ａ快楽
	;縦深菊穴は不怕痛
	SIF TALENT:縦深菊穴
		SOURCE:0:疼痛 = MAX(MIN(DOWN_PALAMLV(SOURCE:0:疼痛), SOURCE:0:疼痛 - 100), 0)
CASE "尿道挿入", "尿道指挿入", "尿道探针", "尿道振動棒"
	SIF TALENT:尿道狂
		CALL CALC, "好みのPLAY", SOURCE:0:尿道快楽

	;完美契合は快楽と屈従を増大させる
	SELECTCASE CHECK("尿道完美契合")
	CASE IS >= 100
		TIMES SOURCE:0:尿道快楽, 3.00
		TIMES SOURCE:0:屈従, 3.00
	CASE IS >= 90
		TIMES SOURCE:0:尿道快楽, 2.50
		TIMES SOURCE:0:屈従, 2.50
	CASE IS >= 80
		TIMES SOURCE:0:尿道快楽, 2.00
		TIMES SOURCE:0:屈従, 2.00
	CASE IS >= 70
		TIMES SOURCE:0:尿道快楽, 1.75
		TIMES SOURCE:0:屈従, 1.75
	CASE IS >= 60
		TIMES SOURCE:0:尿道快楽, 1.50
		TIMES SOURCE:0:屈従, 1.50
	CASE IS >= 50
		TIMES SOURCE:0:尿道快楽, 1.25
		TIMES SOURCE:0:屈従, 1.25
	ENDSELECT
ENDSELECT

;フィストは余裕ある状態だと快楽増加
SELECTCASE ARGS
CASE "Ｖ拳交", "Ａ拳交"
	IF SIZE_DEF < 0 && EXP_REQ > 0 && PALAM_RES >= 3
		TIMES SOURCE:0:Ｖ快楽, 2.00
		TIMES SOURCE:0:Ａ快楽, 2.00
	ENDIF
ENDSELECT

SELECTCASE NAME_INSERT
;挿入時限定補正
CASE "阴茎"
	IF TALENT:PLAYER:業物
		SIF SOURCE:0:Ｖ快楽
			SOURCE:0:Ｖ快楽 = UP_PALAMLV(SOURCE:0:Ｖ快楽, 1) + TALENT:PLAYER:業物*500
		SIF SOURCE:0:Ａ快楽
			SOURCE:0:Ａ快楽 = UP_PALAMLV(SOURCE:0:Ａ快楽, 1) + TALENT:PLAYER:業物*500
		SIF SOURCE:0:尿道快楽
			SOURCE:0:尿道快楽 = UP_PALAMLV(SOURCE:0:尿道快楽, 1) + TALENT:PLAYER:業物*500

		IF TALENT:処女 || EX:処女喪失
			TIMES SOURCE:0:疼痛, 0.50
		ELSE
			SOURCE:0:疼痛 = DOWN_PALAMLV(SOURCE:0:疼痛, 1)
		ENDIF
	ENDIF
	;巨根は屈従のソースにBOUNS
	SIF PLAYER == MASTER && SIZE(NAME_INSERT) >= 2
		SOURCE:0:屈従 += 500 * SIZE(NAME_INSERT)
ENDSELECT

ARG = ARG * ARG:1 / 100

CALL CALC, "調教ソース", ARG

@EQUIP_COM60
#DIM MEMO_SELECTCOM
#DIM MOTIVATION

;強度（通常は20）
MOTIVATION = 20

SELECTCASE SELECTCOM
CASE 60 TO 89, 120 TO 129
	RETURN 0
;什麼也不做
CASE 139
	IF COND("疲労")
		RETURN 0
	ELSE
		MOTIVATION = 5
		;騎乗位の場合はあんまり変わらない
		IF INSERT("騎乗位")
			MOTIVATION = 20
		;PLAYERが騎乗位している側
		ELSEIF INSERT("騎乗位")
			MOTIVATION = 5
		;PLAYERが犯されている時
		ELSEIF INSERT("挿入中")
			MOTIVATION = 20
		ENDIF
	ENDIF
ENDSELECT

MEMO_SELECTCOM = SELECTCOM

IF INSERT("Ｖ挿入")
	IF INSERT("Ｖ挿入", TARGET, PLAYER)
		SELECTCOM = INSERT("Ｖ対応指令")
		CALLFORM SOURCE_COM{SELECTCOM}, MOTIVATION
		CALLFORM FLAG_COM{SELECTCOM}, MOTIVATION
		CALL SAMEN_CHECK, MOTIVATION
	ENDIF
	IF INSERT("Ｖ挿入", TARGET, PLAYER:1)
		SWAP PLAYER, PLAYER:1
		SELECTCOM = INSERT("Ｖ対応指令")
		CALLFORM SOURCE_COM{SELECTCOM}, MOTIVATION
		CALLFORM FLAG_COM{SELECTCOM}, MOTIVATION
		CALL SAMEN_CHECK, MOTIVATION
		SWAP PLAYER, PLAYER:1
	ENDIF
ENDIF
IF INSERT("Ａ挿入")
	IF INSERT("Ａ挿入", TARGET, PLAYER)
		SELECTCOM = INSERT("Ａ対応指令")
		CALLFORM SOURCE_COM{SELECTCOM}, MOTIVATION
		CALLFORM FLAG_COM{SELECTCOM}, MOTIVATION
		CALL SAMEN_CHECK, MOTIVATION
	ENDIF
	IF INSERT("Ａ挿入", TARGET, PLAYER:1)
		SWAP PLAYER, PLAYER:1
		SELECTCOM = INSERT("Ａ対応指令")
		CALLFORM SOURCE_COM{SELECTCOM}, MOTIVATION
		CALLFORM FLAG_COM{SELECTCOM}, MOTIVATION
		CALL SAMEN_CHECK, MOTIVATION
		SWAP PLAYER, PLAYER:1
	ENDIF
ENDIF
IF INSERT("尿道挿入")
	IF INSERT("尿道挿入", TARGET, PLAYER)
		SELECTCOM = INSERT("尿道対応指令")
		CALLFORM SOURCE_COM{SELECTCOM}, MOTIVATION
		CALLFORM FLAG_COM{SELECTCOM}, MOTIVATION
		CALL SAMEN_CHECK, MOTIVATION
	ENDIF
	IF INSERT("尿道挿入", TARGET, PLAYER:1)
		SWAP PLAYER, PLAYER:1
		SELECTCOM = INSERT("尿道対応指令")
		CALLFORM SOURCE_COM{SELECTCOM}, MOTIVATION
		CALLFORM FLAG_COM{SELECTCOM}, MOTIVATION
		CALL SAMEN_CHECK, MOTIVATION
		SWAP PLAYER, PLAYER:1
	ENDIF
ENDIF
IF INSERT("Ｖ挿入", PLAYER, TARGET)
	SELECTCOM = INSERT("Ｖ対応指令", PLAYER)
	CALLFORM SOURCE_COM{SELECTCOM}, MOTIVATION
	CALLFORM FLAG_COM{SELECTCOM}, MOTIVATION
	CALL SAMEN_CHECK, MOTIVATION
ENDIF
IF INSERT("Ａ挿入", PLAYER, TARGET)
	SELECTCOM = INSERT("Ａ対応指令", PLAYER)
	CALLFORM SOURCE_COM{SELECTCOM}, MOTIVATION
	CALLFORM FLAG_COM{SELECTCOM}, MOTIVATION
	CALL SAMEN_CHECK, MOTIVATION
ENDIF
IF INSERT("尿道挿入", PLAYER, TARGET)
	SELECTCOM = INSERT("尿道対応指令", PLAYER)
	CALLFORM SOURCE_COM{SELECTCOM}, MOTIVATION
	CALLFORM FLAG_COM{SELECTCOM}, MOTIVATION
	CALL SAMEN_CHECK, MOTIVATION
ENDIF

SELECTCOM = MEMO_SELECTCOM

RETURN 1

@EQUIP_COM60_2
#DIM A_JUST
#DIM V_JUST
#DIM U_JUST

CALL TEXT, "挿入具合の描写"

V_JUST = 0
A_JUST = 0
U_JUST = 0

;３ＰなどがあるのでTARGETとPLAYERを省略せずに記入（A_JUSTとJ_JUSTは片方しか1以上にはならない）
SIF COND("Ｖ完美契合") && INSERT("Ｖ挿入", TARGET, PLAYER) && CHOSECOMS("Ｖ挿入") == 0
	V_JUST = CHECK("Ｖ完美契合")
SIF COND("Ａ完美契合") && INSERT("Ａ挿入", TARGET, PLAYER) && CHOSECOMS("Ａ挿入") == 0
	A_JUST = CHECK("Ａ完美契合")
SIF COND("尿道完美契合") && INSERT("尿道挿入", TARGET, PLAYER) && CHOSECOMS("尿道挿入") == 0
	U_JUST = CHECK("尿道完美契合")

IF V_JUST || A_JUST || U_JUST
	CALL PRINT_STRL, "爱心粉紅_＜完美契合！＞"

	SELECTCASE MAX(V_JUST, A_JUST, U_JUST)
	CASE IS >= 90
		PRINT 被完全接納的
	CASE IS >= 75
		PRINT 被反复插入的
	CASEELSE
		PRINT 被整個侵入的
	ENDSELECT
	PRINTFORM 的%CALLNAME:PLAYER%的陰莖所%TEXTR("變成陰莖的形狀了/記憶住侵犯的感覺了/變成專用的飛機杯了")%的
	IF A_JUST
		PRINTFORM %CALLNAME:TARGET%的肛門
	ELSEIF U_JUST
		PRINTFORM %CALLNAME:TARGET%的尿道
	ELSE
		PRINTFORM %CALLNAME:TARGET%的膣穴
	ENDIF
	PRINTFORML %TEXTR("因為無法言喻的絕妙快感而溶化了/毫無間隙地緊緊纏繞著/如同獨立的活物一樣緊緊吸附著配合起來")%！
	;CALL PRINT_STRL, "爱心粉紅_H_因为相互给予的快乐而獲得了BOUNS_爱心粉紅_H"
ENDIF

VARSET LOCALS
IF INSERT("挿入") || SELECTCOM == 80
	IF COND("喜欢的体位中")
		SETCOLOR DEF_COLOR("爱心粉紅")
		LOCALS = 喜欢的体位
	ENDIF

	SELECTCASE SELECTCOM
	CASE 60 TO 89
	;什麼也不做
	CASE 139
		SIF COND("疲労")
			RETURN 0
	CASEELSE
		SIF LOCALS != ""
			LOCALS = 喜欢的体位で
		IF INSERT("二穴挿入")
			LOCALS = %LOCALS%二穴挿入中
			EXP:Ｖ経験 += 1
			LOCALS:1 = Ｖ経験＋１
			EXP:Ａ経験 += 1
			LOCALS:2 = Ａ経験＋１
		ELSEIF INSERT("Ｖ挿入")
			LOCALS = %LOCALS%挿入中
			EXP:Ｖ経験 += 1
			LOCALS:1 = Ｖ経験＋１
		ELSEIF INSERT("Ａ挿入")
			LOCALS = %LOCALS%Ａ挿入中
			EXP:Ａ経験 += 1
			LOCALS:2 = Ａ経験＋１
		ELSEIF INSERT("尿道挿入")
			LOCALS = %LOCALS%尿道挿入中
			EXP:尿道経験 += 1
			LOCALS:2 = 尿道経験＋１
		ENDIF
	ENDSELECT
ENDIF

SELECTCASE SELECTCOM
CASE 120 TO 129
CASEELSE
	IF INSERT("Ｖ挿入", PLAYER, TARGET)
		LOCALS = 逆挿入中
		EXP:PLAYER:Ｖ経験 += 1
	ELSEIF INSERT("Ａ挿入", PLAYER, TARGET)
		LOCALS = 逆Ａ挿入中
		EXP:PLAYER:Ａ経験 += 1
	ENDIF
ENDSELECT

SIF LOCALS != ""
	PRINTFORML ＜%LOCALS%＞
RESETCOLOR
SIF LOCALS:1 != ""
	PRINTFORML %LOCALS:1%
SIF LOCALS:2 != ""
	PRINTFORML %LOCALS:2%

RETURN 1


code:
@COM60
;正常位
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%

;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM60, ARG
CALL FLAG_INSERTION, "Ｖ挿入", ARG, 100

@SOURCE_COM60, ARG
CALL SOURCE_INSERTION, "Ｖ挿入", ARG, 100

CALL VARSET_COMF

SOURCE:0:露出 = 200
SOURCE:0:情愛 = 500

;根元まで受け入れられる場合には阴蒂を擦られてしまう
IF ABL:Ｖ拡張 > SIZE("阴茎", PLAYER) && PENIS(TARGET) == 0
	;ABL:Ｃ感覚をみる
	SOURCE:0:Ｃ快楽 = CALCF("Ｃ刺激", 2, 30)
	;調教者の腰靈活をみる
	SOURCE:0:Ｃ快楽 = SOURCE_EXABL(SOURCE:0:Ｃ快楽, "腰靈活", PLAYER)
ENDIF

;PALAM:欲情をみる
SELECTCASE PALAM:欲情
CASE IS < PALAMLV:1
	TIMES SOURCE:0:情愛, 0.30
CASE IS < PALAMLV:2
	TIMES SOURCE:0:情愛, 0.60
CASE IS < PALAMLV:3
	TIMES SOURCE:0:情愛, 1.00
CASE IS < PALAMLV:4
	TIMES SOURCE:0:情愛, 1.50
CASE IS >= PALAMLV:4
	TIMES SOURCE:0:情愛, 1.80
ENDSELECT

CALL CALC, "調教ソース", ARG

@TRAIN_MESSAGE_COM60
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;前回、挿入前に暴発してしまった
IF PREVCOM == TNUM("挿入前暴発") && COND("前Ｔ調教者") == PLAYER
	PRINTFORM 重新振作起來的%CALLNAME:PLAYER%、
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
ENDIF
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
	CALL ADD_TEXT, "性器から性器へ"
	PRINTFORM 將%CALLNAME:TARGET%的%TEXTS("Ｖ挿入前")%
;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
ELSEIF !CHECK_CLO("Ｖ露出") && CHECK_CLO("Ｖ露出可")
	PRINTFORM %CALLNAME:TARGET%的
	CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
	PRINTFORM 、%TEXTS("Ｖ挿入前")%
;巨根分岐
ELSEIF ABL:PLAYER:施虐属性 && SIZE("阴茎", PLAYER) >= 2 && COND("視力") && CHOSECOMS("Ｖ挿入") == 0
	PRINTFORM %TEXTS("巨根：視覚", PLAYER)%放到腹部上方
	PRINTFORM 將%TEXTR("會侵犯到多深的位置/會從何處侵入/如果連根插入會讓這美麗的身體變成怎樣")%的事實
	PRINTFORM 明确地告知%CALLNAME:TARGET%之后、挺直腰肢將%TEXTS("Ｖ挿入前")%
ELSE
	PRINTFORM 將%CALLNAME:TARGET%的%TEXTS("Ｖ挿入前")%
ENDIF

IF TEQUIP:接吻
	PRINTFORM 在熱情地親吻著的同時、
	CALL SETFLAG, "追加接吻フラグ", TARGET
ELSEIF NUM("回合数") == 0
	PRINTFORM %TEXTR("完全沒有前戲的/沒有任何準備的")%
ELSE
	SIF PREVCOM == 13
		PRINT 保持著被手指擴張著的姿勢、
	SIF PALAM:Ｖ潤 < PALAMLV:4 && (PREVCOM == 91 || PREVCOM == 99 || PREVCOM == 140) && COND("前Ｔ調教者") == PLAYER && RAND:2 == 0
		PRINT 用被唾液潤滑準備完畢的陰莖、来
ENDIF
IF CHOSECOM(SELECTCOM) == 0 && CHOSECOMS("挿入") && SIZE("阴茎", PLAYER) >= 2 && (TALENT:娇小 || SIZE("阴茎", PLAYER) >= 3)
	PRINTFORMW 深深地貫穿、不斷變動著戳刺的位置來與子宮口啄吻著……
ELSE
	PRINTFORMW 深深地貫穿了……
ENDIF

license: unknown


code:
@COM61
;後背位
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%

;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM61, ARG
CALL FLAG_INSERTION, "Ｖ挿入", ARG, 110

@SOURCE_COM61, ARG
CALL SOURCE_INSERTION, "Ｖ挿入", ARG, 110

CALL VARSET_COMF

SOURCE:0:露出 = 1000
;動物耳
SIF TALENT:動物耳
	SOURCE:0:露出 = 200
SOURCE:0:情愛 = 350

;PALAM:欲情をみる
SELECTCASE PALAM:欲情
CASE IS < PALAMLV:1
	TIMES SOURCE:0:情愛, 0.30
CASE IS < PALAMLV:2
	TIMES SOURCE:0:情愛, 0.60
CASE IS < PALAMLV:3
	TIMES SOURCE:0:情愛, 1.00
CASE IS < PALAMLV:4
	TIMES SOURCE:0:情愛, 1.50
CASE IS >= PALAMLV:4
	TIMES SOURCE:0:情愛, 1.80
ENDSELECT

CALL CALC, "調教ソース", ARG

@TRAIN_MESSAGE_COM61
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;前回、挿入前に暴発してしまった
IF PREVCOM == TNUM("挿入前暴発") && COND("前Ｔ調教者") == PLAYER
	PRINTFORM 重新振作起來的%CALLNAME:PLAYER%、
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
ENDIF
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
	CALL ADD_TEXT, "性器から性器へ"
	PRINTFORM 從後側將%CALLNAME:TARGET%的%TEXTS("Ｖ挿入前")%
;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
ELSEIF !CHECK_CLO("Ｖ露出") && CHECK_CLO("Ｖ露出可")
	PRINTFORM %CALLNAME:TARGET%的
	CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
	PRINTFORM 、從後側將%TEXTS("Ｖ挿入前")%
;巨根分岐
ELSEIF ABL:PLAYER:施虐属性 && SIZE("阴茎", PLAYER) >= 2 && COND("視力") && CHOSECOMS("Ｖ挿入") == 0
	PRINTFORM %TEXTS("巨根：視覚", PLAYER)%从后面%TEXTR("拍打着尻肉/摩擦着尻部")%
	PRINTFORM 將%TEXTR("會侵犯到多深的位置/會從何處侵入/如果連根插入會讓這美麗的身體變成怎樣")%的事實
	PRINTFORM 明确地告知%CALLNAME:TARGET%之后、挺直腰肢將%TEXTS("Ｖ挿入前")%
ELSE
	PRINTFORM 從後側將%CALLNAME:TARGET%的%TEXTS("Ｖ挿入前")%
ENDIF

IF TALENT:妊娠
	PRINT 溫柔緩慢地
ELSE
	PRINT 以最深處為目標
	SIF NUM("回合数") == 0
		PRINTFORM %TEXTR("完全沒有前戲的/沒有任何準備的")%
ENDIF
PRINTFORMW 刺入……


code:
@COM62
;屈曲位
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%

;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM62, ARG
CALL FLAG_INSERTION, "Ｖ挿入", ARG, 120

@SOURCE_COM62, ARG
CALL SOURCE_INSERTION, "Ｖ挿入", ARG, 120
CALL VARSET_COMF

;露出、屈従のソース
SOURCE:0:露出 = 3000
SOURCE:0:屈従 = 3000

;根元まで受け入れられる場合には阴蒂を擦られてしまう
IF ABL:Ｖ拡張 > SIZE("阴茎", PLAYER) && PENIS(TARGET) == 0
	;ABL:Ｃ感覚をみる
	SOURCE:0:Ｃ快楽 = CALCF("Ｃ刺激", 2, 20)
	;調教者の腰靈活をみる
	SOURCE:0:Ｃ快楽 = SOURCE_EXABL(SOURCE:0:Ｃ快楽, "腰靈活", PLAYER)
ENDIF
SOURCE:0:情愛 = 300

;PALAM:欲情をみる
SELECTCASE PALAM:欲情
CASE IS < PALAMLV:1
	TIMES SOURCE:0:情愛, 0.30
CASE IS < PALAMLV:2
	TIMES SOURCE:0:情愛, 0.60
CASE IS < PALAMLV:3
	TIMES SOURCE:0:情愛, 1.00
CASE IS < PALAMLV:4
	TIMES SOURCE:0:情愛, 1.50
CASE IS >= PALAMLV:4
	TIMES SOURCE:0:情愛, 1.80
ENDSELECT

CALL CALC, "調教ソース", ARG

@TRAIN_MESSAGE_COM62
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;前回、挿入前に暴発してしまった
IF PREVCOM == TNUM("挿入前暴発") && COND("前Ｔ調教者") == PLAYER
	PRINTFORM 重新振作起來的%CALLNAME:PLAYER%、
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
ENDIF
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
	CALL ADD_TEXT, "性器から性器へ"
	PRINTFORM 將%CALLNAME:TARGET%的身體翻轉過來、
;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
ELSEIF !CHECK_CLO("Ｖ露出") && CHECK_CLO("Ｖ露出可")
	PRINTFORM %CALLNAME:TARGET%的
	CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
	PRINTFORM 、做出將羞澀的淫穴向上展示一樣的姿勢
ELSE
	PRINTFORM 将%CALLNAME:TARGET%的脚抓住抱在一起压倒之后、
ENDIF

IF TEQUIP:接吻
	PRINTFORM 在熱情地親吻著的同時、
	CALL SETFLAG, "追加接吻フラグ", TARGET
ELSEIF NUM("回合数") == 0 && TALENT:妊娠 == 0
	PRINTFORM 将%TEXTR("完全沒有前戲的/沒有任何準備的")%
ELSE
	PRINTFORM 在清楚的觀賞著結合處的同時將
ENDIF
IF TALENT:娇小
	PRINT 幼嫩秘縫
ELSE
	PRINT 秘裂
ENDIF
IF TALENT:妊娠
	PRINTFORMW 比平時更加溫柔地淺淺地侵犯著……
;巨根分岐
ELSEIF ABL:PLAYER:施虐属性 && SIZE("阴茎", PLAYER) >= 2 && CHOSECOMS("Ｖ挿入") == 0
	PRINTFORMW 的最深處用巨根沉入其中。
ELSE
	PRINTFORMW 的深處猛力地戳刺著……
ENDIF


code:
@COM63
;対面座位
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%

;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM63, ARG
CALL FLAG_INSERTION, "Ｖ挿入", ARG, 50

@SOURCE_COM63, ARG
CALL SOURCE_INSERTION, "Ｖ挿入", ARG, 50

CALL VARSET_COMF

SOURCE:0:露出 = 300
SOURCE:0:情愛 = 1000

;PALAM:欲情をみる
SELECTCASE PALAM:欲情
CASE IS < PALAMLV:1
	TIMES SOURCE:0:情愛, 0.30
CASE IS < PALAMLV:2
	TIMES SOURCE:0:情愛, 0.60
CASE IS < PALAMLV:3
	TIMES SOURCE:0:情愛, 1.00
CASE IS < PALAMLV:4
	TIMES SOURCE:0:情愛, 1.50
CASE IS >= PALAMLV:4
	TIMES SOURCE:0:情愛, 1.80
ENDSELECT

CALL CALC, "調教ソース", ARG

@TRAIN_MESSAGE_COM63
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;前回、挿入前に暴発してしまった
IF PREVCOM == TNUM("挿入前暴発") && COND("前Ｔ調教者") == PLAYER
	PRINTFORM 重新振作起來的%CALLNAME:PLAYER%、
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
ENDIF
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
	CALL ADD_TEXT, "性器から性器へ"
	PRINTFORM 從%CALLNAME:TARGET%的正面相互擁抱、讓%TEXTS("Ｖ挿入前")%將陰莖緊緊包裹並吮吸起來
;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
ELSEIF !CHECK_CLO("Ｖ露出") && CHECK_CLO("Ｖ露出可")
	PRINTFORM %CALLNAME:TARGET%的
	CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
	PRINTFORM 、正面相互擁抱、讓%TEXTS("Ｖ挿入前")%將陰莖緊緊包裹並吮吸起來
ELSE
	PRINTFORM 從%CALLNAME:TARGET%的正面相互擁抱、讓%TEXTS("Ｖ挿入前")%將陰莖緊緊包裹並吮吸起來
ENDIF

IF (CHECK_COM("接吻") && TALENT:恋慕) || TEQUIP:接吻
	PRINTFORMW 、一边激烈地舌吻着一边猛烈地摇晃腰肢……
	CALL SETFLAG, "追加接吻フラグ", TARGET
ELSE
	PRINTFORMW ……
ENDIF


code:
@COM64
;背面座位
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%

;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM64, ARG
CALL FLAG_INSERTION, "Ｖ挿入", ARG, 60
CALL FLAG_COM5, 50

@SOURCE_COM64, ARG
CALL SOURCE_INSERTION, "Ｖ挿入", ARG, 60
CALL SOURCE_COM5, 50

CALL VARSET_COMF

SOURCE:0:露出 = 500
SOURCE:0:情愛 = 500

;PALAM:欲情をみる
SELECTCASE PALAM:欲情
CASE IS < PALAMLV:1
	TIMES SOURCE:0:情愛, 0.30
CASE IS < PALAMLV:2
	TIMES SOURCE:0:情愛, 0.60
CASE IS < PALAMLV:3
	TIMES SOURCE:0:情愛, 1.00
CASE IS < PALAMLV:4
	TIMES SOURCE:0:情愛, 1.50
CASE IS >= PALAMLV:4
	TIMES SOURCE:0:情愛, 1.80
ENDSELECT

CALL CALC, "調教ソース", ARG

@TRAIN_MESSAGE_COM64
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;前回、挿入前に暴発してしまった
IF PREVCOM == TNUM("挿入前暴発") && COND("前Ｔ調教者") == PLAYER
	PRINTFORM 重新振作起來的%CALLNAME:PLAYER%、
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
ENDIF
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
	CALL ADD_TEXT, "性器から性器へ"
	PRINTFORM 讓%CALLNAME:TARGET%將身體倚靠過來然後用%TEXTS("Ｖ挿入前")%
;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
ELSEIF !CHECK_CLO("Ｖ露出") && CHECK_CLO("Ｖ露出可")
	PRINTFORM %CALLNAME:TARGET%的
	CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
	PRINTFORM 、將身體倚靠過來然後用%TEXTS("Ｖ挿入前")%
ELSE
	PRINTFORM 讓%CALLNAME:TARGET%將身體倚靠過來然後用%TEXTS("Ｖ挿入前")%
ENDIF

IF (TALENT:淫乱 || ABL:露出癖 >= 3) && RAND:2 == 0
	PRINTFORM 將陰莖慢慢地吞入體內、
	IF TEQUIP:接吻
		PRINTFORMW 同時熱情地親吻著……
		CALL SETFLAG, "追加接吻フラグ", TARGET
	ELSE
		PRINTFORMW 同時將雙腿像是展示一樣大大地張開著……
	ENDIF
ELSEIF TEQUIP:接吻
	PRINTFORMW 將迫不及待地陰莖慢慢容納、貫穿、同時熱情地親吻著……
	CALL SETFLAG, "追加接吻フラグ", TARGET
ELSE
	PRINTFORMW 將迫不及待地陰莖慢慢容納、貫穿……
ENDIF


code:
@COM65
;騎乗位
;推倒の時に一定条件を満たすと、狂野摇摆になり、効果上昇。
CALL PRINT_TRAIN_NAME(SELECTCOM)

;-------------------------------------------------
;実行できるかの判定
;-------------------------------------------------
CALL SHOW_COM_ORDER_COM, 65

;実行できない
SIF TCVAR:干劲 == 0
	RETURN 0
;-------------------------------------------------
;実行決定
;-------------------------------------------------
CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%

;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM65, ARG
IF INSERT("狂野摇摆")
	CALL FLAG_INSERTION, "Ｖ挿入", ARG, 120
ELSE
	CALL FLAG_INSERTION, "Ｖ挿入", ARG, 70
ENDIF

@SOURCE_COM65, ARG
IF INSERT("狂野摇摆")
	CALL SOURCE_INSERTION, "Ｖ挿入", ARG, 120
ELSE
	CALL SOURCE_INSERTION, "Ｖ挿入", ARG, 70
ENDIF

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 65

SOURCE:0:欲情追加 = CALCF("実行値による欲情追加")
SOURCE:0:露出 = 900
SOURCE:0:情愛 = 500

;根元まで受け入れられる場合には阴蒂を擦られてしまう
IF ABL:Ｖ拡張 > SIZE("阴茎", PLAYER) && PENIS(TARGET) == 0
	;ABL:Ｃ感覚をみる
	SOURCE:0:Ｃ快楽 = CALCF("Ｃ刺激", 2, 30)
	SOURCE:0:Ｃ快楽 = SOURCE_EXABL(SOURCE:0:Ｃ快楽, "腰靈活", PLAYER)
ENDIF

;ABL:奉仕精神をみる
SELECTCASE ABL:奉仕精神
CASE 0 TO 5
	SOURCE:0:性行動 = 300 + ABL:奉仕精神*200
	SOURCE:0:達成感 = 100 + ABL:奉仕精神*300
	SOURCE:0:逸脱 = MAX(300 - ABL:奉仕精神*100, 0)
CASE 6 TO 10
	SOURCE:0:性行動 = 1300 + (ABL:奉仕精神 - 5)*100
	SOURCE:0:達成感 = 1600 + (ABL:奉仕精神 - 5)*200
CASEELSE
	SOURCE:0:性行動 = 1800 + (ABL:奉仕精神 - 10)*50
	SOURCE:0:達成感 = 2600 + (ABL:奉仕精神 - 10)*100
ENDSELECT

;PALAM:欲情をみる
SELECTCASE PALAM:欲情
CASE IS < PALAMLV:1
	TIMES SOURCE:0:情愛, 0.30
CASE IS < PALAMLV:2
	TIMES SOURCE:0:情愛, 0.60
CASE IS < PALAMLV:3
	TIMES SOURCE:0:情愛, 1.00
CASE IS < PALAMLV:4
	TIMES SOURCE:0:情愛, 1.50
CASE IS >= PALAMLV:4
	TIMES SOURCE:0:情愛, 1.80
ENDSELECT

CALL CALC, "調教ソース", ARG

@TRAIN_MESSAGE_COM65
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

PRINTFORM %CALLNAME:TARGET%
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
	CALL ADD_TEXT, "性器から性器へ"
;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
ELSEIF CHECK_CLO("Ｖ露出") == 0 && CHECK_CLO("Ｖ露出可")
	CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
ENDIF
IF TALENT:好色 && RAND:2 == 0
	PRINTFORM 讓%CALLNAME:PLAYER%的龜頭與自己的%TEXTR("陰唇/膣口")%相吻、
ELSE
	PRINTFORM 对着%CALLNAME:PLAYER%%TEXTR("直接跨了上去/確認了阴茎的位置后")%、
ENDIF

;裙などを是ているなら
IF EQUIP:裙 + TEQUIP:新妻PLAY && (TALENT:好色 + TALENT:淫乱 || ABL:露出癖 >= 3) && RAND:2
	IF TEQUIP:新妻PLAY
		PRINTFORM 將圍裙的下擺
	ELSE
		PRINTFORM 將%SKIRT(TARGET, "略")%
	ENDIF
	IF COND("口の使用") && RANDIF(2, COND("指の使用") )
		PRINT 用嘴唇噙住、
	ELSEIF COND("指の使用") && RAND:2
		PRINT 用手指拉起、
	ELSE
		PRINT 卷起、
	ENDIF
	IF RAND:2
		PRINTFORM 將%TEXTS("阴部：視覚")%
	ELSEIF RAND:2 && PALAM:Ｖ潤 >= 10000 && PALAM:欲情 >= 10000
		PRINTFORM 將不斷垂落期待的涎水的淫穴
	ELSE
		PRINTFORM 將%TEXTR("不知廉恥的張合著的雌穴/蒸騰著淫臭熱汽的股間")%
	ENDIF
	PRINTFORM %TEXTR("大膽地展示著/高興地炫耀著")%的同時、
ELSE
	SIF TEQUIP:電話中
		PRINTFORM 保持着和%TEXTS("彼氏")%的電話、

	IF TALENT:処女
		IF COND("視力")
			PRINTFORM %TEXTR("在用心醉的眼神注視著恍惚的面孔的同時/闭上了眼睛/屏住呼吸准备承受即将到来的疼痛的同时")%
		ELSE
			PRINTFORM %TEXTR("咬紧牙冠发出粗重的鼻息的同时/屏住呼吸准备承受即将到来的疼痛的同时")%
		ENDIF
	ELSEIF TALENT:好色 + TALENT:淫乱 + TALENT:恋慕 && COND("視力") && RAND:3 == 0
		PRINT 在用心醉的眼神注視著恍惚的面孔的同時、
	ELSEIF TEQUIP:推倒 && ABL:施虐属性 >= 2 && RAND:2
		IF TALENT:高慢 + TALENT:強気 && RANDIF(2, TALENT:傲慢 + TALENT:小悪魔)
			PRINT 在浮現出大膽的笑容的同時、
		ELSEIF TALENT:傲慢 + TALENT:小悪魔 && RAND:2
			PRINT 在臉上露出戲謔的壞笑的同時、
		ELSE
			PRINT 在對痛苦的渴求與喜悅不禁滲透而出的同時、
		ENDIF
	ELSEIF ABL:Ｖ感覚 >= 3 && RAND:2
		PRINTFORM %TEXTR("在從唇角漏出甜美的呻吟/在露出恍惚而快樂的蕩漾表情")%的同時、
	ELSE
		PRINT 在小口的吐出灼熱的喘息的同時、
	ENDIF
	IF ABL:Ｖ拡張 >= SIZE("阴茎", PLAYER) && ABL:施虐属性 && RAND:2
		PRINT 一口気
	ELSE
		PRINT 溫柔緩慢地
	ENDIF
ENDIF
PRINTFORM 沉下了%TEXTR(@"腰/%TEXTS("お尻：視覚")%")%
IF PREVPLAY("清洁口交") && RAND:3 == 0
	PRINTFORMW 將%TEXTR("被漂亮的清潔乾淨的/清潔口交之後的/在口舌侍奉之後振作起來的")%陰莖\@ CHOSECOMS("Ｖ挿入") ? 再一次的 # 毫不猶豫的 \@用膣道深深含入體內…
ELSEIF ABL:Ｖ拡張 >= SIZE("阴茎", PLAYER) && PALAM:Ｖ潤 >= 3000 && RAND:3
	IF ABL:Ｖ拡張 > SIZE("阴茎", PLAYER) && RAND:2
		PRINTW 用正飢渴的蠕動著的淫穴毫無阻礙地將陰莖吞入體內、開始急促的扭動腰肢追逐著快樂……
	ELSE
		PRINTW 借助雌穴媚肉的蠕動與本身的體重將挺立的陰莖慢慢吞入體內……
	ENDIF
ELSE
	PRINTW 用膣道擼動著陰莖……
ENDIF

@COM_ORDER_COM65, ARG
VARSET LOCAL
LOCALS =

;すべての命令に共通の要素を考慮
;(信頼が高いと命令に従いやすいなど)
CALL COM_ORDER, ARG

LOCAL = RESULT

;ABL:奉仕精神
IF ABL:奉仕精神
	LOCAL += MIN(ABL:奉仕精神, 10) * 2
	LOCALS = %LOCALS% + 奉仕精神LV{ABL:奉仕精神}({MIN(ABL:奉仕精神, 10) * 2})
ENDIF
;ABL:精液中毒
IF ABL:精液中毒
	LOCAL += MIN(ABL:精液中毒, 5) * 3
	LOCALS = %LOCALS% + 精液中毒LV{ABL:精液中毒}({MIN(ABL:精液中毒, 5) * 3})
ENDIF
IF COND("調教中")
	;PALAM:Ｖ潤（の不足）
	IF PALAM:Ｖ潤 < PALAMLV:3
		LOCAL -= 5
		LOCALS = %LOCALS% - Ｖ潤不足(5)
	ENDIF
ENDIF

;強気
IF TALENT:強気
	LOCAL += 10
	LOCALS = %LOCALS% + 強気(10)
ENDIF
;害羞
IF TALENT:害羞
	LOCAL -= 10
	LOCALS = %LOCALS% - 害羞(10)
ENDIF
;Ｖ損傷
IF TALENT:Ｖ損傷
	LOCAL -= 30 * TALENT:Ｖ損傷
	LOCALS = %LOCALS%- Ｖ損傷({30 * TALENT:Ｖ損傷})
ENDIF
;献身的
IF TALENT:献身
	LOCAL += 6
	LOCALS = %LOCALS% + 献身(6)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 1
	LOCALS = %LOCALS% - 否定快感(1)
ENDIF
;Ｖ性向
IF TALENT:Ｖ性向
	LOCAL += 10
	LOCALS = %LOCALS% + Ｖ性向(10)
ENDIF
;処女
IF TALENT:処女
	LOCAL -= 20
	LOCALS = %LOCALS% - 処女(20)
ELSEIF EXP:Ｖ経験 < EXPLV:2
	LOCAL -= 5
	LOCALS = %LOCALS% - Ｖ経験不足(5)
ENDIF

;媚薬
IF TEQUIP:媚薬
	LOCAL += 6
	LOCALS = %LOCALS% + 媚薬(6)
ENDIF

;汚れ有
IF COM_ORDER_STAIN("Ｐ", "Ｖ")
	LOCAL -= COM_ORDER_STAIN("Ｐ", "Ｖ")
	LOCALS = %LOCALS% - 汚れ有
	;汚臭鈍感
	SIF TALENT:汚臭鈍感 || TALENT:汚臭敏感
		LOCALS = %LOCALS%、\@TALENT:汚臭鈍感 ? 汚臭鈍感 # 汚臭敏感\@
	SIF COND("陶酔")
		LOCALS = %LOCALS%、陶酔で半減
	LOCALS = %LOCALS%({COM_ORDER_STAIN("Ｐ", "Ｖ")})
ENDIF

;合計を表示(24以上で実行)
CALL PRINT_COM_ORDER_COM, LOCALS, ARG, LOCAL, 24

RETURN RESULT


code:
@COM66
;挿入刺激Ｇ点
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%

;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM66, ARG
IF TEQUIP:体位 == 0
	CALL FLAG_COM60, 30
ELSE
	CALLFORM FLAG_COM{INSERT("Ｖ対応指令")}, 30
ENDIF

;背面座位だと効果が高い
IF INSERT("背面座位")
	CALL FLAG_INSERTION, "Ｖ挿入", ARG, 140
ELSE
	CALL FLAG_INSERTION, "Ｖ挿入", ARG, 130
ENDIF

@SOURCE_COM66, ARG
IF TEQUIP:体位 == 0
	CALL SOURCE_COM60, 30
ELSE
	CALLFORM SOURCE_COM{INSERT("Ｖ対応指令")}, 30
ENDIF

;背面座位だと効果が高い
IF INSERT("背面座位")
	CALL SOURCE_INSERTION, "Ｖ挿入", ARG, 140
ELSE
	CALL SOURCE_INSERTION, "Ｖ挿入", ARG, 130
ENDIF

CALL VARSET_COMF

SOURCE:0:露出 += 400
SOURCE:0:屈従 += ABL:Ｖ感覚 * 400

;ABL:欲望をみる
SELECTCASE ABL:欲望
CASE 0 TO 5
	SOURCE:0:屈従 = MULTIPLY(SOURCE:屈従, 5 + ABL:欲望*10)
CASE 6 TO 10
	SOURCE:0:屈従 = MULTIPLY(SOURCE:屈従, 55 + (ABL:欲望 - 5)*5)
CASEELSE
	SOURCE:0:屈従 = MULTIPLY(SOURCE:屈従, 80 + (ABL:欲望 - 10)*2)
ENDSELECT

CALL CALC, "調教ソース", ARG

@TRAIN_MESSAGE_COM66
;前回と同じ
IF PREVCOM == SELECTCOM && COND("前Ｔ調教者") == PLAYER
	;被逆推ているとき
	IF TEQUIP:推倒
		IF ABL:Ｖ感覚 >= 3 || EXP:Ｖ性交経験 >= 50
			IF ABL:腰靈活 >= 3
				IF RAND:2
					PRINTFORMW %CALLNAME:TARGET%作為女性最重要的地方、隨著自己腰肢的擺動而抽搐痙攣著、不斷地接受著刺激……
				ELSE
					PRINTFORMW %CALLNAME:TARGET%用手撐起身體、不斷地搖晃著自己的腰肢、貪求著性愛的極樂……
				ENDIF
			ELSE
				IF RAND:2
					PRINTFORMW %CALLNAME:TARGET%用力收緊尻部、隨著體內陰莖的開闢與衝刺、發出了愈來愈高的呻吟聲……
				ELSE
					PRINTFORMW %CALLNAME:TARGET%為了緊緊把握住不斷襲來地快樂浪潮而迎合著節奏搖擺著腰肢……
				ENDIF
			ENDIF
		ELSE
			PRINTFORMW %CALLNAME:TARGET%對這超乎想像的未知快感露出了恍惚而驚慌的表情、腰肢正微弱的扭動著……
		ENDIF
	ELSE
		PRINTFORM %CALLNAME:PLAYER%將%CALLNAME:TARGET%的腰肢
		IF RAND:2
			PRINTFORM 牢牢抓住拉到身前、隨後將
		ELSE
			PRINTFORM 緊緊禁錮住、毫無逃離的可能、隨後將
		ENDIF
		IF RAND:3 == 0
			PRINTFORM Ｇ點
		ELSEIF RAND:2
			PRINTFORM 阴道內最敏感的部分
		ELSE
			PRINTFORM 探索到的弱點部分
		ENDIF
		IF TEQUIP:手下留情
			PRINTFORMW 特意的避開、將緊挨著的週邊部分持續%TEXTR("摩挲著/玩弄著/刺激著")%……
		ELSE
			PRINTFORMW %TEXTR("執拗地/毫不留情地/徹底地")%持續%TEXTR("摩挲著/玩弄著/刺激著")%……
		ENDIF
	ENDIF
;騎乗位
ELSEIF INSERT("騎乗位") || TEQUIP:推倒
	PRINTFORM %CALLNAME:TARGET%用力地扭動著緊緊結合在一起的腰肢、
	IF RAND:2
		PRINTW 用膣道接近腹部的肉襞反過來將陰莖摩擦著、
	ELSE
		PRINTW 用膣道的最頂端頂住陰莖不斷摩擦著、
	ENDIF
	IF ABL:Ｖ感覚 >= 3 || EXP:Ｖ性交経験 >= 50
		IF ABL:腰靈活 >= 3
			IF RAND:2
				PRINTFORMW 每一次衝擊都會在體內濺起沉重而淫靡的水聲、而其中也摻雜著鼻腔洩露的微弱哼聲……
			ELSE
				PRINTFORMW 熟練而穩定地取得了平衡、轉變著讓陰莖的頂端衝擊著自己的Ｇ點並享受著傳來的快感……
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORMW %CALLNAME:TARGET%用力收緊尻部、隨著體內陰莖的開闢與衝刺、發出了愈來愈高的呻吟聲……
			ELSE
				PRINTFORMW %CALLNAME:TARGET%為了緊緊把握住不斷襲來地快樂浪潮而迎合著節奏搖擺著腰肢……
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW %CALLNAME:TARGET%因著難以言表的快樂刺激露出了恍惚而迷惑的表情、更加激烈地持續著行為……
	ENDIF
ELSEIF TEQUIP:手下留情
	PRINTFORM %CALLNAME:PLAYER%将
	SELECTCASE CONDS("体位")
	CASE "正常位", "対面立位"
		PRINTFORMW 將腰肢不斷擺動著、將%CALLNAME:TARGET%膣道的最頂端緩慢的刮蹭著、
	CASE "後背位", "立后背位"
		PRINTFORMW 彎下身體、將%CALLNAME:TARGET%膣道的最頂端緩慢的摳挖著、
	CASE "対面座位"
		PRINTFORMW 後仰上肢、讓%CALLNAME:TARGET%的下腹部緊緊挨近自己的腹部、
	CASE "背面座位"
		PRINTFORMW 將%CALLNAME:TARGET%抱起、讓嬌軟的身體更加深入懷中、
	CASEELSE
		PRINTFORMW 將腰肢不斷擺動著、將%CALLNAME:TARGET%膣道的最頂端緩慢的刮蹭著、
	ENDSELECT

	IF ABL:Ｖ感覚 >= 3
		IF RAND:2
			PRINTFORMW %CALLNAME:TARGET%因劇烈的快感衝擊而身體痙攣起來、即使被牢牢抱在懷中也因為無法忍受的極樂感而無意識的掙扎起來……
		ELSE
			PRINTFORMW %CALLNAME:TARGET%無意識地掙扎起來的腰肢被緊緊按住了……
		ENDIF
	ELSE
		IF RAND:2
			PRINTFORMW %CALLNAME:TARGET%為了索取更多的快樂而主動扭動著腰肢、但似乎不太熟練的樣子……
		ELSE
			PRINTFORMW %CALLNAME:TARGET%像是在渴求更多的快樂一樣正焦躁難耐著……
		ENDIF
	ENDIF
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
	SELECTCASE CONDS("体位")
	CASE "正常位"
		PRINTFORM 腰扭动着、
	CASE "後背位"
		PRINTFORM 身體彎下、
	CASE "対面座位"
		PRINTFORM 上肢後仰、
	CASE "背面座位"

	CASEELSE
		PRINTFORM 腰扭动着、
	ENDSELECT
	SIF PREVEX("Ｖ絶頂")
		PRINTFORM %TEXTR("絶頂了的/沉浸在絶頂余韻里的/因絕頂而摇晃身体的")%
	SELECTCASE CONDS("体位")
	CASE "正常位"
		PRINTFORMW %CALLNAME:TARGET%的膣道的最頂端反復的衝擊著。
	CASE "後背位", "立后背位"
		PRINTFORMW %CALLNAME:TARGET%的膣道的最頂端直直地衝撞上去並不斷地摳挖著。
	CASE "対面座位"
		PRINTFORMW %CALLNAME:TARGET%的下腹部上紧紧压着然後不斷地摩擦著膣道的最頂端。
	CASE "背面座位", "背面火车便当位"
		PRINTFORMW 將%CALLNAME:TARGET%抱起、讓嬌軟的身體輕輕地搖晃起來、將與陰莖尖端相吻的膣道頂端不斷摩擦著、
	CASEELSE
		PRINTFORMW %CALLNAME:TARGET%的膣道的最頂端反復的衝擊著。
	ENDSELECT

	IF ABL:Ｖ感覚 >= 4 && RAND:3 == 0
		IF RAND:2
			PRINTFORMW %CALLNAME:TARGET%在快樂中失神、咽喉中發出了低沉的嗚咽、唇角流出晶瑩的涎水、蜷縮起腳趾並苦悶的搖著頭……
		ELSE
			PRINTFORMW %CALLNAME:TARGET%在過度強烈的刺激下呼吸困難、雙唇無力的張合不斷發出不成聲的喘息……
		ENDIF
	ELSEIF ABL:Ｖ感覚 >= 3
		IF RAND:2
			PRINTFORMW %CALLNAME:TARGET%因過分敏感的最頂端被不斷摩擦所產生的快樂與觸感而漏出了灼熱的喘息……
		ELSE
			PRINTFORMW %CALLNAME:TARGET%膣道的弱點被強硬地玩弄著、因劇烈的快樂而茫然地眨著眼……
		ENDIF
	ELSE
		IF RAND:2
			PRINTFORMW %CALLNAME:TARGET%緊緊閉合著雙眼與嘴唇、難堪地強行忍受著難以習慣的強烈快樂……
		ELSE
			PRINTFORMW %CALLNAME:TARGET%因為陌生的快樂而難堪地輕輕搖晃著腰肢……
		ENDIF
	ENDIF
ENDIF


code:
@COM67
;挿入子宮口玩弄
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%

;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM67, ARG
CALL SETFLAG, "子宮責めフラグ", TARGET
IF TEQUIP:体位 == 0
	CALL FLAG_COM60, 20
ELSE
	CALLFORM FLAG_COM{INSERT("Ｖ対応指令")}, 20
ENDIF

;屈曲位だと効果がかなり高い
IF INSERT("屈曲位")
	CALL FLAG_INSERTION, "玩弄子宮口", ARG, 160
;対面座位だと効果が高い
ELSEIF INSERT("対面座位")
	CALL FLAG_INSERTION, "玩弄子宮口", ARG, 150
ELSE
	CALL FLAG_INSERTION, "玩弄子宮口", ARG, 140
ENDIF

@SOURCE_COM67, ARG
IF TEQUIP:体位 == 0
	CALL SOURCE_COM60, 20
ELSE
	CALLFORM SOURCE_COM{INSERT("Ｖ対応指令")}, 20
ENDIF

;屈曲位だと効果がかなり高い
IF INSERT("屈曲位")
	CALL SOURCE_INSERTION, "玩弄子宮口", ARG, 160
;対面座位だと効果が高い
ELSEIF INSERT("対面座位")
	CALL SOURCE_INSERTION, "玩弄子宮口", ARG, 150
ELSE
	CALL SOURCE_INSERTION, "玩弄子宮口", ARG, 140
ENDIF

CALL VARSET_COMF

SOURCE:0:露出 += 400

;ABL:Ｖ感覚と子宮性感をみる
SELECTCASE ABL:Ｖ感覚 + TALENT:子宮性感*3
CASE 0
	SOURCE:0:屈従 += 100
	SOURCE:0:疼痛 += 1000
CASE 1
	SOURCE:0:屈従 += 200
	SOURCE:0:疼痛 += 500
CASE 2
	SOURCE:0:屈従 += 500
	SOURCE:0:疼痛 += 200
CASEELSE
	SOURCE:0:屈従 += MIN(1000 * (ABL:Ｖ感覚 + TALENT:子宮性感*3), 10000)
ENDSELECT

;根元まで受け入れられる場合には阴蒂を擦られてしまう
IF ABL:Ｖ拡張 > SIZE("阴茎", PLAYER) && PENIS(TARGET) == 0
	;ABL:Ｃ感覚をみる
	SOURCE:0:Ｃ快楽 = CALCF("Ｃ刺激", 2, 30)
	;調教者の腰靈活をみる
	SOURCE:0:Ｃ快楽 = SOURCE_EXABL(SOURCE:0:Ｃ快楽, "腰靈活", PLAYER)
ENDIF

;ABL:欲望をみる
SELECTCASE ABL:欲望
CASE 0 TO 5
	SOURCE:0:屈従 = MULTIPLY(SOURCE:屈従, 5 + ABL:欲望*10)
CASE 6 TO 10
	SOURCE:0:屈従 = MULTIPLY(SOURCE:屈従, 55 + (ABL:欲望 - 5)*5)
CASEELSE
	SOURCE:0:屈従 = MULTIPLY(SOURCE:屈従, 80 + (ABL:欲望 - 10)*2)
ENDSELECT

IF TEQUIP:推倒
	TIMES SOURCE:0:屈従, 0.50
	TIMES SOURCE:0:疼痛, 0.50
ENDIF

CALL CALC, "調教ソース", ARG

@TRAIN_MESSAGE_COM67
;前回と同じ
IF PREVCOM == SELECTCOM && COND("前Ｔ調教者") == PLAYER
	;播種姿势
	IF PREVCOM == 67 && INSERT("屈曲位")
		PRINTFORMW %CALLNAME:PLAYER%將%CALLNAME:TARGET%的子宮強硬地侵入、借助自身的體重將陰莖毫不憐惜地衝入其中、對準子宮口反復的衝擊著、。
		PRINTFORMW 雙腿被抓住、股間被完全暴露開來的%CALLNAME:TARGET%、那作為女性最重要的地方正在被粗暴地持續蹂躪著……
	ELSEIF PENIS(PLAYER) && STATE("ハードスキン", PLAYER) && TEQUIP:推倒 == 0
		PRINTFORMW %CALLNAME:PLAYER%用嘎吱作響的陰莖將%CALLNAME:TARGET%的子宮口持續凌辱著……
	;被逆推(騎乗位)
	ELSEIF TEQUIP:推倒 || INSERT("騎乗位")
		IF TALENT:子宮性感
			IF PENIS(PLAYER) && RAND:2
				PRINTFORMW %CALLNAME:TARGET%跨坐在%CALLNAME:PLAYER%的身上、將挺立的陰莖用自己的子宮口摩擦著、享受著那令人神志恍惚的極樂……
			ELSE
				PRINTFORMW %CALLNAME:TARGET%跨坐在%CALLNAME:PLAYER%的腰肢上、盡情享受著自己最重要的地方被陰莖蹂躪而產生的快感……
			ENDIF
		ELSE
			PRINTFORMW %CALLNAME:TARGET%對這超乎想像的未知快感露出了恍惚而驚慌的表情、腰肢正微弱的扭動著……
		ENDIF
	ELSE
		PRINTFORM %CALLNAME:PLAYER%將\@ PENIS(PLAYER) ? 亀頭 # 先端 \@對準%CALLNAME:TARGET%的子宮口之後、緩緩挺入、
		IF TEQUIP:手下留情
			PRINTFORMW 在密切地注意著神情的同時、時慢時快地溫柔%TEXTR("摩挲/欺負/刺激/挑逗")%著…
		ELSE
			PRINTFORMW %TEXTR("執拗地/毫不留情地/徹底地")%持續%TEXTR("摩擦/玩弄/刺激")%著…
		ENDIF
	ENDIF
;活塞运动
ELSEIF PENIS(PLAYER) && STATE("ハードスキン", PLAYER) && TEQUIP:推倒 == 0
	PRINTFORM %CALLNAME:PLAYER%將\@ TALENT:娇小 ? 纖細的小腹 # 柔軟的腰肢 \@緊緊抓住、將%CALLNAME:TARGET%那
	IF TALENT:淫壷 && RANDIF(1, EXP:Ｖ経験 >= 100, ABL:Ｖ感覚 >= 4, TALENT:娇小)
		PRINT 主動黏糊糊地糾纏上來的
	ELSEIF TALENT:娇小 && RANDIF(1, EXP:Ｖ経験 >= 100, ABL:Ｖ感覚 >= 4)
		PRINT 幼嫩的
	ELSEIF ABL:Ｖ感覚 >= 4 && RANDIF(1, EXP:Ｖ経験 >= 100)
		PRINT 十分柔軟的
	ELSEIF EXP:Ｖ経験 >= 100
		PRINT 経験豊富的
	ENDIF
	PRINTFORMW 膣道激烈地撞擊、蹂躪著。。
	PRINTFORM 因強烈的情慾而勃起到極限的陰莖、將%CALLNAME:TARGET%的
	IF RAND:2 || SIZE("阴茎", PLAYER) >= ABL:Ｖ拡張
		PRINTW 子宮口用像是在毆打、又或是在搗年糕一樣的猛烈氣勢、粗暴地撞擊著……
	ELSE
		PRINTW 子宮直直地強行入侵、直到子宮壁才暫時停下、然後又再次激烈地抽插起來……
	ENDIF
;被逆推(騎乗位)
ELSEIF TEQUIP:推倒 || INSERT("騎乗位")
	PRINTFORM %CALLNAME:TARGET%將%CALLNAME:PLAYER%的胸部用手按住、將挺立的%NAMES("阴茎", PLAYER)%
	IF SIZE("阴茎", PLAYER) >= ABL:Ｖ拡張
		PRINTW 用膣道的最深處嚥下。。
	ELSE
		PRINTW 直達根部的吞入體內。。
	ENDIF
	IF TALENT:子宮性感 && RAND:2
		IF COND("Ｖ妊娠可能") && (TALENT:恋慕 || EX:Ｖ絶頂 >= 3) && RAND:2
			PRINTFORMW %CALLNAME:TARGET%因這孕育後代的熱烈性愛而露出快樂到蕩漾的下流笑容、將雌性的肉體貪婪地扭動著、飢渴的索求著必然會將卵子輪姦受孕的強健精子……
		ELSE
			PRINTFORMW %CALLNAME:TARGET%用不斷顫抖的嬌軀小幅度的上下擺動著、那彰顯出雌性氣息的臉龐正在不斷地流下眼淚、汗液與涎水的溪流……
		ENDIF
	ELSEIF ABL:Ｖ感覚 >= 3
		IF COND("子宮口弛緩度") == 1 && RAND:3 == 0
			PRINTFORMW 淫猥地顫動著的子宮口乾脆地大開、接納下龜頭、為了能夠準確的懷孕而做著準備……
		ELSEIF RAND:2
			PRINTFORMW %CALLNAME:TARGET%隨著低沉的呻吟而慢慢垂下腰肢、在無意識的翻起白眼的同時、沉醉於子宮深處被強硬紮穿的快感……
		ELSE
			PRINTFORMW %CALLNAME:TARGET%微微地搖擺著密切結合的腰肢、享受著在身體深處肆意衝擊的陰莖、不禁漏出了灼熱的喘息……
		ENDIF
	ELSEIF RAND:2 && PENIS(TARGET) == 0
		PRINTFORMW %CALLNAME:TARGET%小幅度的扭動著腰肢、在沉醉於體內的插入感的同時、也享受著壓在小腹上隨著擺動被摩擦的陰蒂所傳來的快樂……
	ELSE
		PRINTFORMW %CALLNAME:TARGET%激烈地擺動著腰肢、享受著隨著擺動愈加深入體內的陰莖所傳來的快感……
	ENDIF
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
	SELECTCASE CONDS("体位")
	CASE "屈曲位"
		PRINTFORM 借助体重、
	CASE "背面座位"
		PRINTFORM 向前推动着腰肢、
	ENDSELECT
	SIF PREVEX("Ｖ絶頂")
		PRINTFORM %TEXTR("絶頂了的/沉浸在絶頂余韻里的/因絕頂而摇晃身体的")%
	SELECTCASE CONDS("体位")
	CASE "正常位", "対面立位"
		PRINTFORMW 抓住%CALLNAME:TARGET%的腰向深处突刺、%TEXTR("乘势而上推进到了子宮/用亀頭对准子宮口扭动着摩挲起来")%。
	CASE "後背位", "立后背位"
		PRINTFORMW 抓住%CALLNAME:TARGET%的尻向深处突刺、%TEXTR("在子宮上用阴茎敲打着/用堅硬的頂端毫不留情地来回突进着子宮口")%。
	CASE "屈曲位"
		PRINTFORMW 快迅速地压住了%CALLNAME:TARGET%的子宮。
	CASE "対面座位"
		IF RAND:2
			PRINTFORMW %CALLNAME:TARGET%的嬌軀深深擁入懷中、對準妖媚的張合著的子宮口扭動著自己的腰肢、旋轉著刺激起來。。
		ELSE
			PRINTFORMW %CALLNAME:TARGET%的腰肢抱住進而抱起、在仔細地瞄準了方位之後鬆手、讓她借助體重將挺立的肉棒一口氣吞到最深處。。
		ENDIF
	CASE "背面座位"
		PRINTFORMW 朝向%CALLNAME:TARGET%的最深处推进着。
	CASE "火车便当位"
		PRINTFORMW %CALLNAME:TARGET%的%TEXTS("お尻：感触")%再一次紧紧抱住、利用体重一口気将肉棒向深处埋入。
	CASE "背面火车便当位"
		PRINTFORMW %CALLNAME:TARGET%的両脚分開身体弯曲、用已经深深闯入的阴茎将%TEXTR("向子宮一鼓作气地冲了上去/子宮口用亀頭扭动着摩挲着")%。
	CASEELSE
		PRINTFORMW %CALLNAME:TARGET%的纖細腰肢緊緊抓住、向膣道的最深處不斷衝擊著、用龜頭叩打著子宮的門戶。。
	ENDSELECT

	IF RAND:3 == 0 && PENIS(TARGET) == 0 && INSERT("後背位") + INSERT("背面座位") == 0
		PRINTFORMW %CALLNAME:TARGET%的陰蒂隨著腰肢的搖擺而被摩擦著。兩處傳來的快樂混成一股直衝大腦、讓她不由得神志恍惚、漏出低低的呻吟聲……
	ELSEIF TALENT:子宮性感 && RAND:3 == 0
		IF SIZE("阴茎", PLAYER) >= 2 && RAND:3 == 0
			PRINTFORM 因為子宮被碩大陰莖強行開闢而顯著地凸起的小腹、隨著%CALLNAME:PLAYER%的激烈進出而反復起伏著、
		ELSEIF RAND:2 == 0
			PRINTFORM 在陰莖微微退到膣道的淺側的時候、被強硬地叩開、與%CALLNAME:PLAYER%的龜頭相互糾纏在一起的子宮口也隨之下拉、
		ELSE
			PRINTFORM 主動垂低位置、貪婪地吸附過來的子宮隨著激烈地撞擊而讓腹部淫靡的顫抖著、
		ENDIF
		PRINTFORMW %CALLNAME:TARGET%的身體因為劇烈的刺激而癲狂的暴動著、心靈也完全沉溺在對於牝獸來說最高的快樂之中……
	ELSEIF TALENT:子宮性感 && RAND:2
		PRINTFORM %CALLNAME:TARGET%在%TEXTR("被強硬地敲打、刺激膣道的最深處/被猛烈地叩打子宮口/被持續地壓迫著子宮口")%的同時、
		PRINTFORMW %TEXTR("雙唇在張合之間、像是溶化了一樣拉扯出淫靡的銀線/瞳孔漸漸濕潤、泛起引人入勝的妖艷水光/不禁漏出了灼熱的喘息與抑壓的呻吟")%、隨之激烈地顫抖起來……
	ELSEIF ABL:Ｖ感覚 >= 3 || TALENT:子宮性感
		PRINTFORMW %CALLNAME:TARGET%吐出了悠長的甘美喘息、夾緊膣道、品味著深入體內的挺立陰莖所帶來的甜美快感……
	ELSEIF RAND:3 == 0
		PRINTFORMW 敏感的子宮口被堅挺的陰莖執拗地衝擊著、從體內傳來的一波波快感浪潮、%CALLNAME:TARGET%在神志恍惚的時候也不時漏出近乎哀鳴的低鳴……
	ELSE
		PRINTFORMW %CALLNAME:TARGET%%TEXTR("对于这混杂了痛苦和快楽的感覚感到困惑/由于强烈的異物感、看起来很痛苦")%…
	ENDIF
ENDIF


code:
@COM68
;子宮挿入
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%

;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM68, ARG
IF TEQUIP:体位 == 0
	CALL FLAG_COM60, 10
ELSE
	CALLFORM FLAG_COM{INSERT("Ｖ対応指令")}, 10
ENDIF

;屈曲位だと効果がかなり高い
IF INSERT("屈曲位")
	CALL FLAG_INSERTION, "子宮挿入", ARG, 300
ELSE
	CALL FLAG_INSERTION, "子宮挿入", ARG, 200
ENDIF

@SOURCE_COM68, ARG
IF TEQUIP:体位 == 0
	CALL SOURCE_COM60, 10
ELSE
	CALLFORM SOURCE_COM{INSERT("Ｖ対応指令")}, 10
ENDIF

;屈曲位だと効果がかなり高い
IF INSERT("屈曲位")
	CALL SOURCE_INSERTION, "子宮挿入", ARG, 300
ELSE
	CALL SOURCE_INSERTION, "子宮挿入", ARG, 200
ENDIF

CALL VARSET_COMF

SOURCE:0:露出 += 400

;ABL:Ｖ感覚とEXP:子宮口経験と子宮性感をみる
SELECTCASE ABL:Ｖ感覚 + GET_EXP_LV(EXP:子宮口経験) + TALENT:子宮性感
CASE IS <= 4
	SOURCE:0:疼痛 += 3000
CASE 5
	SOURCE:0:疼痛 += 2000
CASE 6
	SOURCE:0:屈従 += 100
	SOURCE:0:疼痛 += 1000
CASE 7
	SOURCE:0:屈従 += 200
	SOURCE:0:疼痛 += 500
CASE 8
	SOURCE:0:屈従 += 500
	SOURCE:0:疼痛 += 200
CASE IS >= 9
	SOURCE:0:屈従 += MIN(1000 * (ABL:Ｖ感覚 + TALENT:子宮性感), 10000)
ENDSELECT

;ABL:欲望をみる
SELECTCASE ABL:欲望
CASE 0 TO 5
	SOURCE:0:屈従 = MULTIPLY(SOURCE:屈従, 5 + ABL:欲望*10)
CASE 6 TO 10
	SOURCE:0:屈従 = MULTIPLY(SOURCE:屈従, 55 + (ABL:欲望 - 5)*5)
CASEELSE
	SOURCE:0:屈従 = MULTIPLY(SOURCE:屈従, 80 + (ABL:欲望 - 10)*2)
ENDSELECT

IF TEQUIP:推倒
	TIMES SOURCE:0:屈従, 0.50
	TIMES SOURCE:0:疼痛, 0.50
ENDIF

CALL CALC, "調教ソース", ARG

@TRAIN_MESSAGE_COM68
;意図せず子宮に入ってしまった
IF COND("うっかり子宮挿入フラグ")
	;活塞运动
	IF PENIS(PLAYER) && STATE("ハードスキン", PLAYER) && TEQUIP:推倒 == 0
		PRINTFORMW %CALLNAME:PLAYER%用嘎吱作響的陰莖將%CALLNAME:TARGET%的子宮口持續凌辱著……
	;被逆推(騎乗位)
	ELSEIF TEQUIP:推倒 || INSERT("騎乗位")
		IF TALENT:子宮性感
			IF PENIS(PLAYER) && RAND:2
				PRINTFORMW %CALLNAME:TARGET%跨坐在%CALLNAME:PLAYER%的身上、將挺立的陰莖用自己的子宮口摩擦著、享受著那令人神志恍惚的極樂……
			ELSE
				PRINTFORMW %CALLNAME:TARGET%跨坐在%CALLNAME:PLAYER%的腰肢上、盡情享受著自己最重要的地方被陰莖蹂躪而產生的快感……
			ENDIF
		ELSE
			PRINTFORMW %CALLNAME:TARGET%對這超乎想像的未知快感露出了恍惚而驚慌的表情、腰肢正微弱的扭動著……
		ENDIF
	ELSE
		PRINTFORM %CALLNAME:PLAYER%將\@ PENIS(PLAYER) ? 亀頭 # 先端 \@對準%CALLNAME:TARGET%的子宮口之後、緩緩挺入、
		IF TEQUIP:手下留情
			PRINTFORMW 在密切地注意著神情的同時、時慢時快地溫柔%TEXTR("摩挲/欺負/刺激/挑逗")%著…
		ELSE
			PRINTFORMW %TEXTR("執拗地/毫不留情地/徹底地")%持續%TEXTR("摩擦/玩弄/刺激")%著…
		ENDIF
	ENDIF
	PRINTFORMW 隨後。
	PRINTFORMW 隨著格外深入膣道的陰莖傳來再次被吞下的觸感、%CALLNAME:TARGET%的神情突然變得呆愣——
	PRINTFORMW ——看來、因劇烈的快樂而溶化、鬆弛的子宮口被陰莖刺穿了……！
	IF TALENT:子宮性感 && CUP:苦痛 < 100
		IF COND("Ｖ妊娠可能") && RAND:2
			PRINTFORMW %CALLNAME:TARGET%醒悟到接下來將是直接的子宮內中出。因快樂而溶化的表情又添上了對於受孕的期待……
		ELSEIF TALENT:淫壷 && MARK:淫紋 >= 4
			PRINTFORMW %CALLNAME:TARGET%想像著子宮被直接侵犯、被無數精液灌滿、就連卵巢也將被精子入侵的姿態——因快感而溶化的表情顯得更加蕩漾了……
		ELSE
			PRINTFORMW %CALLNAME:TARGET%最神聖、最重要的地方被陰莖強行侵入了。對此、她在漏出甘美而灼熱的喘息的同時、全身心地品味著這份快樂……
		ENDIF
	ELSE
		PRINTFORM %CALLNAME:TARGET%的子宮被毫無顧忌的強行入侵了、
		IF TALENT:出産経験
			PRINTFORMW 與過去的出產近似的劇烈痛楚再一次席捲而來……
		ELSE
			PRINTFORMW 一瞬間傳來的強烈痛苦讓她瘖啞失聲的同時、泛起了白眼……
		ENDIF
	ENDIF
;前回と同じ
ELSEIF PREVCOM == SELECTCOM && COND("前Ｔ調教者") == PLAYER
	;活塞运动
	IF PENIS(PLAYER) && STATE("ハードスキン", PLAYER) && TEQUIP:推倒 == 0
		PRINTFORMW %CALLNAME:PLAYER%用嘎吱作響的陰莖將%CALLNAME:TARGET%的嬌柔子宮持續凌辱著……
	;被逆推(騎乗位)
	ELSEIF TEQUIP:推倒 || INSERT("騎乗位")
		IF TALENT:子宮性感
			IF PENIS(PLAYER) && RAND:2
				PRINTFORMW %CALLNAME:TARGET%跨坐在%CALLNAME:PLAYER%的身上、將挺立的陰莖用自己的子宮摩擦著、享受著那令人神志恍惚的極樂……
			ELSE
				PRINTFORMW %CALLNAME:TARGET%跨坐在%CALLNAME:PLAYER%的腰肢上、盡情享受著自己最重要的地方被陰莖蹂躪而產生的快感……
			ENDIF
		ELSE
			PRINTFORMW %CALLNAME:TARGET%對這超乎想像的未知快感露出了恍惚而驚慌的表情、腰肢正微弱的扭動著……
		ENDIF
	ELSE
		IF CHECK_COM("立位")
			PRINTFORM %CALLNAME:PLAYER%用
			PRINTFORM \@ PENIS(PLAYER) ? 亀頭 # 双頭震动棒的前端 \@
			IF INSERT("対面座位")
				PRINTFORM %TEXTR("以火车便当体位将/以火车便当式将/将悬在空中的")%
			ELSEIF INSERT("背面座位")
				PRINTFORM %TEXTR("以背面火车便当体位将/以背面火车便当式将/将悬在空中的")%
			ENDIF
			PRINTFORM %CALLNAME:TARGET%的子宮%TEXTR("对准后壓入內部/侵入其中/捻轉著")%、
			IF TEQUIP:手下留情
				PRINTFORMW 在密切地注意著神情的同時、時慢時快地溫柔%TEXTR("摩挲/欺負/刺激/挑逗")%著…
			ELSE
				PRINTFORMW %TEXTR("執拗地/毫不留情地/徹底地")%持續%TEXTR("摩擦/玩弄/刺激")%著…
			ENDIF
		ELSE
			PRINTFORM %CALLNAME:PLAYER%將\@ PENIS(PLAYER) ? 亀頭 # 先端 \@對準%CALLNAME:TARGET%的子宮之後强硬地%TEXTR("壓入內部/侵入其中/捻轉著")%、
			IF TEQUIP:手下留情
				PRINTFORMW 在密切地注意著神情的同時、時慢時快地溫柔%TEXTR("摩挲/欺負/刺激/挑逗")%著…
			ELSE
				PRINTFORMW %TEXTR("執拗地/毫不留情地/徹底地")%持續%TEXTR("摩擦/玩弄/刺激")%著…
			ENDIF
		ENDIF
	ENDIF
;活塞运动
ELSEIF PENIS(PLAYER) && STATE("ハードスキン", PLAYER) && TEQUIP:推倒 == 0
	PRINTFORM %CALLNAME:PLAYER%将
	IF TALENT:出産経験 >= 5
		PRINT 反復誕下孩子而被擴張的子宮口
	ELSE
		IF RAND:2
			PRINTFORM 因為激烈地開發而漸漸鬆弛的子宮口
		ELSE
			PRINTFORM 格外敏感的子宮的入口
		ENDIF
	ENDIF
	PRINTFORMW 用灼熱而堅挺的陰莖強行闖入了。
	PRINTFORM 因為情慾而勃起到極限的陰莖
	IF RAND:2
		PRINTFORM 將僅有的抵抗衝破、
	ELSE
		PRINTFORM 將入口強行撬開、
	ENDIF
	PRINTFORM 闖入子宮之中、%CALLNAME:TARGET%因為
	IF TALENT:娇小
		PRINT 未成熟的子宮內部被強硬的侵犯
	ELSE
		PRINT 女性身體中最神聖的部分被強行侵犯
	ENDIF
	PRINTFORMW 的感覺而失神了……
;被逆推(騎乗位)
ELSEIF TEQUIP:推倒 || INSERT("騎乗位")
	PRINTFORM %CALLNAME:TARGET%用手緊緊抓住%CALLNAME:PLAYER%的胸部、
	IF RAND:2
		PRINTFORMW 像是在使用膣道套弄一樣用溶化的子宮口將%NAMES("阴茎", PLAYER)%尖端的龜頭完全嚥下。
	ELSE
		PRINTFORMW 慢慢将腰下落、用柔软松弛的子宫将%NAMES("阴茎", PLAYER)%含住。
	ENDIF
	PRINTFORM %CALLNAME:TARGET%將腰肢小幅度的輕輕搖曳著的同時、
	IF RAND:4 == 0
		PRINTFORMW 正因子宮最深處的肉襞被龜頭抵住、旋轉著摩擦的劇烈快感而神志恍惚、露出完全沉浸於快樂的、牝獸的面龐……
	ELSEIF RAND:3 == 0
		PRINTFORMW 也在用狂熱地渴望子宮\@ COND("Ｖ妊娠可能") ? 乃至於卵巢也被健壯的精子闖入的 # 被灼熱的精子填到小腹高高鼓起的 \@下流眼神凝視著%CALLNAME:PLAYER%……
	ELSEIF RAND:2
		PRINTFORMW 以神情蕩漾的淫靡表情凝視著%CALLNAME:PLAYER%的臉龐……
	ELSE
		PRINTFORMW 從唇角漏出灼熱而急促的喘息、細細品味著子宮傳來的插入感……
	ENDIF
ELSE
	IF CHECK_COM("立位")
		PRINTFORM %CALLNAME:PLAYER%将
		IF INSERT("対面座位")
			PRINTFORM %TEXTR("火车便当位中无路可逃的/用火车便当位链接着的/被强迫Ｍ字開脚、両足被抓住的")%
		ELSEIF INSERT("背面座位")
			PRINTFORM %TEXTR("从背後用火车便当位的/被用背面火车便当位侵犯着的/両足从背後被压住、被强迫Ｍ字開脚的")%
		ENDIF
		PRINTFORM %CALLNAME:TARGET%的
	ELSE
		PRINTFORM %CALLNAME:PLAYER%將%CALLNAME:TARGET%的
	ENDIF
	IF TALENT:出産経験 >= 5 && RAND:2
		PRINT 多次誕下子嗣的柔軟子宮口
	ELSE
		PRINT 在激烈開發下漸漸鬆緩的子宮口
	ENDIF
	IF RAND:3 == 0
		PRINTFORM 用\@ PENIS(PLAYER) ? 興奮地膨脹起來的龜頭 # 冰冷器具的碩大尖端 \@緩緩開闢、隨後
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "対面立位"
			PRINTFORM %TEXTR("在瞄準了位置之後就/就迫不及待的")%用力頂起腰肢、用%NAMES("阴茎", PLAYER)%
		CASE "後背位", "立后背位", "屈曲位"
			PRINTFORM 舉起對方的輕盈身體然後鬆手、借助體重和慣性讓%NAMES("阴茎", PLAYER)%衝破門戶、
		CASEELSE
			;いきなり子宮を犯した
			IF INSERT("Ｖ挿入") == 0
				PRINTFORM %TEXTR("在瞄準了位置之後就/就迫不及待的")%用力頂起腰肢、用%NAMES("阴茎", PLAYER)%
			ELSE
				PRINTFORM 讓\@ PENIS(PLAYER) ? 龜頭 # 尖端 \@緊緊抵住子宮的門戶之後、抓住那纖細的腰肢猛力向下一拉、使其衝破門戶、
			ENDIF
		ENDSELECT
	ENDIF
	PRINTFORMW 猛烈地侵犯子宮的內側……

	PRINTFORM %CALLNAME:TARGET%
	IF TALENT:子宮性感 && CUP:苦痛 < 500
		IF COND("Ｖ妊娠可能") && RAND:3 == 0
			PRINTFORMW 抱著對子宮被直接%TEXTR("灌入健壯的子種/精液完全填滿")%的期待、用牝獸一般的下流表情、不斷吐出放蕩呻吟的同時、流下晶瑩而黏稠的涎水……
		ELSEIF RAND:4 == 0
			PRINTFORMW 為自身最深處被開闢所帶來的劇痛與快樂而渾身顫抖著、在幾乎無意識的時候任由膣道的柔軟肉襞將陰莖蠢動著纏繞起來……
		ELSEIF RAND:3 == 0
			PRINTFORMW 在子宮最深處的肉壁被猛烈撞擊的時候、都會在用力收緊夾住腰肢的雙腿的同時、神志恍惚的吐出嬌媚的呻吟……
		ELSEIF RAND:2
			PRINTFORMW 的子宮隨著猛烈地衝擊而搖曳著、狂亂的迎合著%CALLNAME:PLAYER%的動作、完全地沉浸在作為雌性最高的快樂之中…
		ELSE
			PRINTFORMW 在自己最為重要與神聖的部分被強硬的玷污的時候、緊緊地擁住了%CALLNAME:PLAYER%、吐出悠長而甘美的呼吸、仔細地品味著體內的觸感……
		ENDIF
	ELSEIF CUP:苦痛 < 500
		IF RAND:2
			PRINTFORMW 因過分深入體內的插入感而喊啞了喉嚨、無意識地翻起白眼……
		ELSE
			PRINTFORMW 在自己最為重要與神聖的部分被強硬的玷污的時候、緊緊地擁住了%CALLNAME:PLAYER%、微微顫抖著僵直的身軀忍受著內部的衝擊……
		ENDIF
	ELSEIF RAND:2
		PRINTFORMW 因為身體中最重要的部分被強行侵犯的劇烈痛苦而絮亂的喘息著……
	ELSE
		PRINTFORMW 因子宮內部被強行插入的暴舉、而被比過去的生產經歷更甚的強烈劇痛所折磨著……
	ENDIF
ENDIF


code:
@COM6
;接吻
CALL PRINT_TRAIN_NAME(SELECTCOM)

;-------------------------------------------------
;実行できるかの判定
;-------------------------------------------------
CALL SHOW_COM_ORDER_COM, 6

;実行できない
SIF TCVAR:干劲 == 0
	RETURN 0
;-------------------------------------------------
;実行決定
;-------------------------------------------------
CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%

;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM6, ARG
;対象の口⇔調教者の口的污垢が移動
CALL EQ_STAIN, TARGET, "Ｍ", PLAYER, "Ｍ"

@SOURCE_COM6, ARG
CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 6

;汚れデータを元にする
SOURCE:0:不潔 = COM_ORDER_STAIN("Ｍ", "Ｍ")*100 + 100

SOURCE:0:屈従 = 100
SOURCE:0:情愛 = 300
SOURCE:0:性行動 = 300
SOURCE:0:達成感 = 300

;ABL:Ｍ感覚をみる
SOURCE:0:Ｍ快楽 = CALCF("Ｍ刺激", 1)
;調教者の舌靈活をみる
SOURCE:0:Ｍ快楽 = SOURCE_EXABL(SOURCE:0:Ｍ快楽, "舌靈活", PLAYER)

;深吻
IF CHECK_COM("テンダー接吻")
	TIMES SOURCE:0:Ｍ快楽, 0.10
	SOURCE:0:情愛 += 700
ENDIF

;接吻をどのぐらい続けたかでBOUNS
SOURCE:0:情愛 += 200 * TEQUIP:接吻
SOURCE:0:性行動 += 200 * TEQUIP:接吻
SOURCE:0:達成感 += 100 * TEQUIP:接吻
SOURCE:0:屈従 += 100 * TEQUIP:接吻

SIF TALENT:Ｍ性向
	CALL CALC, "好みのPLAY", SOURCE:0:Ｍ快楽

CALL CALC, "調教ソース", ARG

@TRAIN_MESSAGE_COM6
IF CHECK_COM("テンダー接吻")
	IF TEQUIP:推倒
		PRINTFORM %CALLNAME:TARGET%將%CALLNAME:PLAYER%的臉頰用雙手輕輕撫摸著的同時、溫柔地
	ELSE
		PRINTFORM %CALLNAME:PLAYER%将
		;相思相愛
		IF TALENT:相思相愛 && PLAYER == MASTER && RAND:3 == 0
			PRINTFORM 在%CALLNAME:TARGET%的耳側低聲訴說著愛意的同時、溫柔地
		ELSEIF TALENT:娇小 && RAND:2 == 0
			PRINTFORM 將%CALLNAME:TARGET%的頭頂輕輕地撫摸著的同時、輕輕地
		ELSE
			PRINTFORM 將%CALLNAME:TARGET%輕輕擁入懷中的同時、溫柔地
		ENDIF
	ENDIF
	IF RAND:2 == 0
		PRINTFORMW 親吻著……
	ELSE
		PRINTFORMW 重疊雙唇……
	ENDIF
;推倒中
ELSEIF TEQUIP:推倒
	PRINTFORM %CALLNAME:TARGET%
	;助手が前回と同じ行動(違う行動の時は、ここでなく、EQUIP_COM32で記述)
	SIF TEQUIP:Ｗ推倒 && SELECTCOM:1 == PREVCOM:1 && SELECTCOM:1 >= 0
		PRINTFORM %TEXTS("Ｗ推倒中")%、
	IF TEQUIP:接吻
		IF TEQUIP:Ｗ推倒 == 0
			PRINTFORMW 將像是在渴求空氣一樣抗拒地逃離後喘息起來的%CALLNAME:PLAYER%雙唇再度緊緊貼住、一直到臉頰因缺氧而浮現紅暈才停下……
		ELSE
			PRINTFORMW 將神情恍惚地被動接受著的%CALLNAME:PLAYER%雙唇吸住、深深地濕吻著……
		ENDIF
	ELSEIF INSERT("合体中") && TEQUIP:Ｗ推倒 == 0
		PRINTFORM %TEXTS("合体中", TARGET)%
		IF (ABL:欲望 >= 4 || TALENT:強気) && RAND:2
			PRINTFORMW 將%CALLNAME:PLAYER%的唇強硬地奪走了……
		ELSE
			PRINTFORMW 與%CALLNAME:PLAYER%忘我地親吻著……
		ENDIF
	ELSE
		PRINTFORM 將%CALLNAME:PLAYER%的雙唇奪取、
		IF PREVPLAY("飲尿") && CHECK_STAIN(STAIN:Ｍ, "尿") && ABL:施虐属性 >= 3
			PRINTFORMW 像是在回報之前的淫戲一樣、將口腔中積存下來的混雜著腥臭尿液的唾液全部灌注進來了……
		ELSEIF (PREVCOM == 91 || PREVCOM == 99 || PREVCOM == 140) && CHECK_STAIN(STAIN:Ｍ, "精液") && ABL:施虐属性 >= 3
			PRINTFORMW 在緊緊地糾纏住舌頭的同時、將口中積存下來的精液與唾液吐到口腔中、並強迫著要求飲下……
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 讓兩人的舌頭相互糾纏起來、貪求著對方所帶來的快樂……
			ELSE
				PRINTFORMW 呸嘍呸嘍的將自己的唾液強行灌注進來了……
			ENDIF
		ENDIF
	ENDIF
;接吻継続中
ELSEIF TEQUIP:接吻 && COND("前Ｔ調教者") == PLAYER
	PRINTFORM %CALLNAME:PLAYER%将%TEXTS("電話中の")%%CALLNAME:TARGET%
	IF INSERT("正常位")
		PRINTFORM 相互迎合的擺動腰肢的同時、輕輕地啄吻著
	ELSEIF INSERT("対面座位")
		PRINTFORM 相互擁抱著、在不斷搖晃腰肢的同時、持續親吻著
	ELSE
		IF TALENT:相思相愛 && PLAYER == MASTER && RAND:2
			PRINTFORM 感受著對方心中愛意的同時、深深舌吻著
		ELSE
			PRINTFORM 相互擁抱著、
			IF RAND:3 == 0
				PRINT 將彼此口腔的每一寸角落用舌尖舔舐著
			ELSEIF RAND:2
				PRINT 將彼此的靈巧舌頭相互交纏、交換著唾液
			ELSE
				PRINT 彼此與濕吻著、投入到連唇角都被溢出的粘稠唾液沾滿了
			ENDIF
		ENDIF
	ENDIF
	PRINTFORMW ……
;挿入中
ELSEIF INSERT("合体中")
	PRINTFORM %CALLNAME:PLAYER%将%TEXTS("合体中", PLAYER)%
	IF EX:Ｖ中出し == 1 && PREVPLAY("生中出しした", PLAYER) && PREVPLAY("Ｖ挿入中", PLAYER)
		PRINTFORM %TEXTR("沉浸于膣内射精的余韻中的/接受了生中出的/慢慢地调整呼吸的")%%CALLNAME:TARGET%
		IF INSERT("挿入中") && CONDS("体位", PLAYER) != "騎乗位"
			PRINTFORMW 吻死乞白賴的奪取了……
		ELSE
			PRINTFORMW 的%TEXTR("嘴唇中交换唾液/口腔的每一寸角落來回的舔舐著/的雙唇強硬地奪取、深深地舌吻著")%…
		ENDIF
	ELSE
		PRINTFORMW %CALLNAME:TARGET%%TEXTS("一边打着电话、")%%TEXTR("一边堵住嘴唇交换唾液/一边来回舔舐着嘴唇的各个角落")%…
	ENDIF
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
	IF PREVPLAY("飲尿")
		PRINTFORM 在飲尿PLAY之後一邊呼出散發著氨臭的口氣、一邊緩緩調整呼吸的節奏的
	ELSEIF COND("前回口交")
		PRINTFORM 中断了陰莖口交之後、将
	ELSEIF COND("前Ｔ調教者") == PLAYER && (PREVCOM == 98 || PREVCOM == 99)
		PRINTFORM 中断了阴部奉仕之後、将
	ELSEIF COND("前Ｔ調教者") == PLAYER && PREVCOM == 96
		PRINTFORM 进行了尻穴奉仕的
	ELSEIF TEQUIP:電話中
		PRINTFORM %TEXTS("電話中の")%
	ENDIF
	PRINTFORM %CALLNAME:TARGET%
	IF PREVCOM == 285
		PRINTFORM 抱住的同时
	ELSEIF RAND:3 == 0 && (COND("前回口交") || (COND("前Ｔ調教者") == PLAYER && (PREVCOM == 96 || PREVCOM == 98 || PREVCOM == 99)) )
		IF PREVEX("口内射精")
			PRINTFORM 使用舌頭的靈活技巧加以褒揚、%TEXTR("不顾口中还残留的精液的味道/不管刚刚才喝下精液/即使还残留着一些刚刚射出的精液的气味还是")%溫柔地
		ELSE
			PRINTFORM 使用舌頭的技巧加以褒揚、溫柔地
		ENDIF
	ELSE
		PRINTFORM %TEXTR("深深地擁入懷中/的頭頂輕輕撫摸/的秀髮摩挲著/的臉頰輕輕撫摸著")%的同時、
	ENDIF
	PRINTFORMW 親吻著。
ENDIF

IF INSERT("挿入") && (ABL:信頼 >= 5 || ABL:欲望 >= 5) && ABL:Ｖ感覚 >= 5 && PREVCOM >= 66 && PREVCOM <= 68
	PRINTFORM %CALLNAME:TARGET%%TEXTR("由于敏感的地方襲来的快感而不由得漏出灼熱的喘息/因为敏感的地方被攻击不住漏出甘甜的呻吟声")%的同时、
	IF TEQUIP:推倒 || RAND:3 == 0
		PRINTFORMW 熱情地索求著%CALLNAME:PLAYER%所給予的快樂……
	ELSEIF RAND:2
		PRINTFORMW 交纏著舌頭……
	ELSE
		PRINTFORMW 積極地回吻著……
	ENDIF
ELSEIF TEQUIP:推倒 == 0 && ABL:信頼 >= 3 && (ABL:信頼 >= 5 || ABL:Ｍ感覚 + ABL:PLAYER:舌靈活 >= 3)
	PRINTFORM %CALLNAME:TARGET%
	;テンダー接吻
	IF CHECK_COM("テンダー接吻")
		IF RAND:3 == 0
			PRINTFORMW %TEXTR("閉上了眼睛/小幅度喘息的同时")%、將身體託付給了%CALLNAME:PLAYER%…
		ELSEIF RAND:2 == 0
			PRINTFORMW 閉上了眼睛、臉頰染上薄薄的紅暈、迎合著%CALLNAME:PLAYER%的動作…
		ELSE
			PRINTFORMW %TEXTR("閉上了眼睛/小幅度喘息的同时")%恍惚地沉浸在快感之中…
		ENDIF
	ELSEIF PREVPLAY("絶頂")
		PRINTFORMW %TEXTR("沉浸于绝顶的余韵中露出了像是缺氧了一样的表情/在给予的快感中迷失了自己/脸上染上了快乐的潮红双眼失去了焦点")%、顺应着%CALLNAME:PLAYER%%TEXTR("贪婪地/積極地/入迷地")%将舌頭缠在一起…
	ELSEIF TALENT:娇小 && TALENT:PLAYER:高大 && INSERT("挿入") + INSERT("挿入中") == 0 && RAND:2
		PRINTFORMW 踮着脚用力弥补身高差、为了回应%CALLNAME:PLAYER%而積極地缠绕着舌頭…
	ELSE
		PRINTFORMW 为了回应%CALLNAME:PLAYER%、積極地缠绕着舌頭…
	ENDIF
ENDIF

@EQUIP_COM6
SIF TEQUIP:接吻 == 0 || COND("追加接吻フラグ") == 0
	RETURN 0

CALL SOURCE_COM6, 30
CALL FLAG_COM6, 30

RETURN 1

@EQUIP_COM6_2
SIF TEQUIP:接吻 == 0 || COND("追加接吻フラグ") == 0
	RETURN 0

PRINTFORML ＜一有破绽就接吻中＞

IF TEQUIP:推倒
	LOCAL = MIN(LIMIT(TEQUIP:接吻 - 1, 0, ABL:舌靈活) + TALENT:蕩唇, 4) / 2
ELSE
	LOCAL = MIN(LIMIT(TEQUIP:接吻 - 1, 0, ABL:PLAYER:舌靈活) + TALENT:蕩唇, 4) / 2
ENDIF

EXP:接吻経験 += 1 + LOCAL
EXP:PLAYER:接吻経験 += 1 + LOCAL

@COM_ORDER_COM6, ARG
VARSET LOCAL
LOCALS =

;すべての命令に共通の要素を考慮
;(信頼が高いと命令に従いやすいなど)
CALL COM_ORDER, ARG

LOCAL = RESULT

;ABL:奉仕精神
IF ABL:奉仕精神
	LOCAL += MIN(ABL:奉仕精神, 10) * 2
	LOCALS = %LOCALS% + 奉仕精神LV{ABL:奉仕精神}({MIN(ABL:奉仕精神, 10) * 2})
ENDIF
;不在乎貞操
IF TALENT:不在乎貞操
	LOCAL += 20
	LOCALS = %LOCALS% + 不在乎貞操(20)
ENDIF
;害羞
IF TALENT:害羞
	LOCAL -= 3
	LOCALS = %LOCALS% - 害羞(3)
ENDIF
;献身的
IF TALENT:献身
	LOCAL += 6
	LOCALS = %LOCALS% + 献身(6)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 1
	LOCALS = %LOCALS% - 否定快感(1)
ENDIF
;恋慕
IF TALENT:恋慕 && ASSIPLAY == 0
	LOCAL += 5
	LOCALS = %LOCALS% + 恋慕(5)
ENDIF
;Ｍ性向
IF TALENT:Ｍ性向
	LOCAL += 10
	LOCALS = %LOCALS% + Ｍ性向(10)
ENDIF

;汚れ有
IF COM_ORDER_STAIN("Ｍ", "Ｍ")
	LOCAL -= COM_ORDER_STAIN("Ｍ", "Ｍ")
	LOCALS = %LOCALS% - 汚れ有
	;汚臭鈍感
	SIF TALENT:汚臭鈍感 || TALENT:汚臭敏感
		LOCALS = %LOCALS%、\@TALENT:汚臭鈍感 ? 汚臭鈍感 # 汚臭敏感\@
	SIF COND("陶酔")
		LOCALS = %LOCALS%、陶酔で半減
	LOCALS = %LOCALS%({COM_ORDER_STAIN("Ｍ", "Ｍ")})
ENDIF

;合計を表示(15以上で実行)
CALL PRINT_COM_ORDER_COM, LOCALS, ARG, LOCAL, 15

RETURN RESULT


code:
@COM70
;正常位肛門
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%

;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM70, ARG
CALL FLAG_INSERTION, "Ａ挿入", ARG, 100

@SOURCE_COM70, ARG
CALL SOURCE_INSERTION, "Ａ挿入", ARG, 100

CALL VARSET_COMF

SOURCE:0:露出 = 1000
SOURCE:0:情愛 = 500

;PALAM:欲情をみる
SELECTCASE PALAM:欲情
CASE IS < PALAMLV:1
	TIMES SOURCE:0:情愛, 0.30
CASE IS < PALAMLV:2
	TIMES SOURCE:0:情愛, 0.60
CASE IS < PALAMLV:3
	TIMES SOURCE:0:情愛, 1.00
CASE IS < PALAMLV:4
	TIMES SOURCE:0:情愛, 1.50
CASE IS >= PALAMLV:4
	TIMES SOURCE:0:情愛, 1.80
ENDSELECT

CALL CALC, "調教ソース", ARG

@TRAIN_MESSAGE_COM70
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;前回は助手を犯していた
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
	CALL ADD_TEXT, "性器から性器へ"
;肛門が露出していないで、胖次をずらしていないなら自動的にずらす
ELSEIF !CHECK_CLO("Ａ露出") && CHECK_CLO("Ａ露出可")
	SIF TEQUIP:拘束
		PRINTFORM 被拘束具牢牢禁錮著的
	PRINTFORM %CALLNAME:TARGET%的
	CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
;肛門性交に慣れている、かつ欲情LV4以上で縛られてないと寝転がって誘ってきます
ELSEIF CHECK("Ａ挿入") && PALAM:欲情 >= PALAMLV:4 && TEQUIP:拘束 == 0 && RAND:2 == 0
	IF PREVCOM == 13
		PRINT 用手指展開陰部的同時、將
	ELSEIF PREVCOM == 14
		PRINT 用手指推開臀瓣的同時、將
	;淫乱
	ELSEIF (TALENT:淫乱 || ABL:Ａ感覚 >= 3) && RAND:2 == 0
		PRINT 將重要的地方展示出來的同時、將
	ELSE
		PRINTFORM %TEXTR("將羞恥的地方暴露到一覽無遺的同時、將/將顯示出雌性氣息的股間清楚地暴露著的同時、將")%
	ENDIF
	;小悪魔
	IF TALENT:小悪魔 && RAND:3 >= 1
		PRINT 無聲的輕笑著的
	;(叛逆でなくて淫乱) or(叛逆かつ恋慕)
	ELSEIF  ( (TALENT:淫乱 && TALENT:叛逆 == 0) || (TALENT:叛逆 && TALENT:恋慕) ) && RAND:3 >= 1
		SIF TALENT:小悪魔 && RAND:2 == 0
			PRINT 、大膽地
		PRINT 輕聲發起邀請的
	;叛逆かつ淫乱
	ELSEIF TALENT:叛逆 && TALENT:淫乱
		PRINT 偏過頭、臉頰被羞恥染紅的
	;害羞
	ELSEIF TALENT:害羞
		PRINT 臉頰微紅、不自覺緊張的微笑的
	ELSEIF RAND:2 == 0
		PRINTFORM %TEXTR("微笑んでいる/横たわっている")%
	ENDIF
	PRINTFORM %CALLNAME:TARGET%的
	;娇小かつＡ経験100未満
	SIF TALENT:娇小 && EXP:Ａ経験 < 100
		PRINT 小小的
ELSE
	;縛ってますか？
	IF TEQUIP:拘束
		PRINTFORM 被拘束具牢牢禁錮著的%CALLNAME:TARGET%那
	;拉米亚ですか？
	ELSEIF COND("種族：拉米亚")
		SIF CHECK("Ａ挿入") && RAND:2 == 0
			PRINT 用尾巴摩擦並纏繞著的
		PRINTFORM %CALLNAME:TARGET%的
	;肛門性交に慣れているなら誘ってきます
	ELSEIF CHECK("Ａ挿入") && RAND:2 == 0
		SIF TALENT:害羞
			PRINT 脸颊因羞涩而染红的
		PRINT 橫臥著將雙腿微微張開的姿勢保持著
		;淫乱かつ欲情4以上
		IF TALENT:淫乱 && PALAM:欲情 >= PALAMLV:4 && RAND:2 == 0
			PRINT 、并且轻轻摇晃着尻部诱惑着的
		ELSE
			PRINT 的
		ENDIF
		PRINTFORM %CALLNAME:TARGET%的
	ELSE
		IF TALENT:叛逆 && ABL:Ａ感覚 <= 2 && TALENT:恋慕 == 0
			PRINT 讓滿臉嫌惡的
		ELSEIF TALENT:害羞
			PRINT 臉頰因害羞而染上紅暈的
		ENDIF
		PRINTFORM %CALLNAME:TARGET%輕輕推倒
		SIF TALENT:害羞 || (TALENT:叛逆 && ABL:Ａ感覚 <= 2 && TALENT:恋慕 == 0)
			PRINT 、
	ENDIF
	PRINTFORM %TEXTS("肛門")%
ENDIF
PRINTFORM %TEXTR("お菊門/肛門")%に
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
ELSE
	PRINTFORM %NAMES("阴茎", PLAYER)%を
ENDIF
IF NUM("回合数") == 0
	PRINTFORM %TEXTR("完全沒有前戲的/沒有任何準備的")%
;PLAYERが施虐狂かつA経験20以下orＡ潤1LV未満
ELSEIF (ABL:PLAYER:施虐属性 >= 3 && EXP:Ａ経験 <= 20) || PALAM:Ａ潤 < PALAMLV:1
	PRINT 用力地
;PLAYERが施虐狂or肛門性交に慣れている
ELSEIF (CHECK("Ａ挿入") || ABL:PLAYER:施虐属性 >= 3) && RAND:2 == 0
	PRINT 一口気
ELSEIF RAND:2 == 0 || EXP:Ａ経験 <= EXPLV:3
	PRINT 慎重地
ENDIF
;PLAYERが施虐狂orA経験20以上or恋慕かつA感覚Lv3以上
SIF ABL:PLAYER:施虐属性 >= 3 || MIN(EXP:Ａ経験, EXP:Ａ性交経験) >= 20 || (TALENT:恋慕 && ABL:Ａ感覚 >= 3)
	PRINT 直達根部地
;PLAYERが施虐狂orＡ潤1LV未満
IF ABL:PLAYER:施虐属性 >= 3 || PALAM:Ａ潤 < PALAMLV:1
	PRINT 壓入、
ELSE
	PRINT 刺入、
ENDIF

IF TEQUIP:接吻
	PRINTFORM 在熱情地親吻著的同時、
	CALL SETFLAG, "追加接吻フラグ", TARGET
ELSEIF TALENT:妊娠 && ABL:PLAYER:施虐属性 >= 3
	PRINT 像是對妊娠中的她腹中的孩子毫不在意一樣、
ELSEIF TALENT:妊娠 && RAND:2 == 0
	PRINT 在輕輕撫摸膨脹的腹部的同時、
ELSEIF TALENT:妊娠
	PRINT 細緻地關注並小心的不對腹腔中的小生命造成負擔的同時、
ELSEIF RAND:2
	PRINT 在用心醉的眼神注視著恍惚的面孔的同時、
;PLAYERが施虐狂orA経験20以上or恋慕かつA感覚Lv3以上
ELSEIF ABL:PLAYER:施虐属性 >= 3 || MIN(EXP:Ａ経験, EXP:Ａ性交経験) >= 20 || (TALENT:恋慕 && ABL:Ａ感覚 >= 3)
	PRINTFORM 將\@ TALENT:娇小 ? 柔軟的腹部 # 纖細的腰肢\@緊緊抓住的同時、
ENDIF
;PLAYERが施虐狂or妊娠していない、かつA経験3以上or恋慕かつA感覚Lv4以上
IF (ABL:PLAYER:施虐属性 >= 3 || TALENT:妊娠 == 0) && (MIN(EXP:Ａ経験, EXP:Ａ性交経験) >= 20 || (TALENT:恋慕 && ABL:Ａ感覚 >= 3) ) && RAND:3 == 0
	PRINT 像是在享受痛苦的反應一樣粗暴地
ELSEIF (ABL:PLAYER:施虐属性 >= 3 || MIN(EXP:Ａ経験, EXP:Ａ性交経験) >= 20 || ABL:Ａ感覚 >= 3 || ABL:PLAYER:腰靈活) && SIZE("阴茎", PLAYER) && RAND:2 == 0
	SIF ABL:PLAYER:腰靈活 && RAND:2
		PRINT 從入口一直到最深處都一併玩弄的
	PRINT 给予沉重一击似地
ELSEIF MAX(EXP:Ａ経験, EXP:Ａ性交経験) < 50
	PRINTFORM %TEXTR("浅浅地/慢慢地")%
ELSE
	IF RAND:2 == 0
		IF RAND:2 == 0 && TALENT:男性 == 0
			PRINT 将腸壁對著子宮的方向不斷壓入著地
		ELSE
			PRINT 将腸壁咯哧咯哧的摩擦著地
		ENDIF
	ELSE
		PRINT 激烈地
	ENDIF
ENDIF
;PLAYERが施虐狂orA経験20以上orA感覚Lv3以上
IF (ABL:PLAYER:施虐属性 >= 3 || MIN(EXP:Ａ経験, EXP:Ａ性交経験) >= 20 || ABL:Ａ感覚 >= 3) && RAND:3 == 0
	PRINTFORMW 用腰肢擊打著……
ELSE
	PRINTFORMW %TEXTR("反復進出著/腰肢前後衝擊著/晃動著腰肢")%。
ENDIF