code:
@COM13
;扒開阴道　Ａ挿入の時には体勢的に可能ならば抜かずに行う
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

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

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM13, ARG
;角色の指⇔Ｖ的污垢が移動
CALL EQ_STAIN, TARGET, "手", TARGET, "Ｖ"
SIF PREVCOM == 14 && CHECK_COM("両穴くぱぁ")
	CALL FLAG_COM14, 50

@SOURCE_COM13, ARG
SIF PREVCOM == 14 && CHECK_COM("両穴くぱぁ")
	CALL SOURCE_COM14, 50

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 13

SOURCE:0:不潔 = 200
SOURCE:0:露出 = 5000
SOURCE:0:屈従 = 500
SOURCE:0:逸脱 = 500

;ABL:露出癖をみる
SELECTCASE ABL:露出癖
CASE 0 TO 5
	SOURCE:0:充足 = ABL:露出癖*500
CASE 6 TO 10
	SOURCE:0:充足 = 2500 + (ABL:露出癖 - 5)*200
CASEELSE
	SOURCE:0:充足 = 3500 + (ABL:露出癖 - 10)*100
ENDSELECT

;害羞・不知羞恥
SIF TALENT:害羞
	TIMES SOURCE:0:逸脱, 2.00
SIF TALENT:不知羞恥
	TIMES SOURCE:0:逸脱, 0.50

IF TALENT:Ｖ性向
	TIMES SOURCE:0:不潔, 0.50
	TIMES SOURCE:0:充足, 2.00
	TIMES SOURCE:0:逸脱, 0.50
ENDIF

;処女、贞操重视
IF TALENT:処女 == 1
	TIMES SOURCE:0:屈従, 2.00
	SOURCE:0:露出 += 2000
	SIF TALENT:贞操重视
		TIMES SOURCE:0:露出, 2.00
ENDIF

;视频拍摄、室内露出、野外PLAYは経験等にプラス
IF TEQUIP:攝像機
	TIMES SOURCE:0:露出, 1.50
	TIMES SOURCE:0:屈従, 1.50
	TIMES SOURCE:0:逸脱, 1.50
ENDIF
IF TEQUIP:室内露出PLAY || TEQUIP:野外PLAY
	TIMES SOURCE:0:露出, 1.50
	TIMES SOURCE:0:屈従, 1.50
	TIMES SOURCE:0:逸脱, 1.50
ENDIF
;恥ずかしさアップなPLAY
IF PREVEX("絶頂数合計") || PREVEX("Ｖ中出し")
	TIMES SOURCE:0:露出, 1.50
	TIMES SOURCE:0:逸脱, 1.50
ENDIF

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

@TRAIN_MESSAGE_COM13
#DIM FLAG_MESSAGE, 2
#DIMS DANGEROUS_DAYS
#DIMS ACT_TABLE

DANGEROUS_DAYS =
SIF CHOSECOM(SELECTCOM) == 0 && COND("Ｖ妊娠可能") && COND("危険日") && PREVEX("Ｖ中出し")
	DANGEROUS_DAYS = 危険日的

IF PREVCOM == SELECTCOM
	IF COND("両穴くぱぁ")
		PRINTFORMW %CALLNAME:TARGET%面向%CALLNAME:PLAYER%、保持著將股間兩個汁水淋漓的淫穴大大張開展示著的姿勢、一動不動……
	ELSE
		PRINTFORMW %CALLNAME:TARGET%面向%CALLNAME:PLAYER%、保持著將兩瓣陰唇拉扯開將內部展示著的姿勢、一動不動……
	ENDIF
	RETURN 0
ENDIF

VARSET FLAG_MESSAGE
;両穴くぱぁ
IF PREVCOM == 14 && CHECK_COM("両穴くぱぁ")
	IF COND("両穴くぱぁ")
		PRINTFORM %CALLNAME:TARGET%已經將兩個淫穴毫不憐惜的張開了、但還是再次響應了要求、
	ELSE
		PRINTFORM %CALLNAME:TARGET%在將尻穴明顯的展示著的同時、更加突出腰肢、
	ENDIF
;前回Ａくぱぁ
ELSEIF PREVCOM == 14
	PRINTFORM %CALLNAME:TARGET%保持著將肛門清楚地展示出来的姿勢、這次將
ELSE
	;脚拘束
	IF GETBIT(TEQUIP:拘束, 21)
		PRINTFORM 兩腳被拘束具大大地拉扯開的%CALLNAME:TARGET%、
	ELSE
		PRINTFORM %CALLNAME:TARGET%
	ENDIF

	;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
	SIF !CHECK_CLO("Ｖ露出")
		CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET

	IF PREVPLAY("Ｖ正常位") + PREVPLAY("Ｖ後背位") + PREVPLAY("Ｖ屈曲位") && TCVAR:干劲 > 20 && COND("脚の使用") && RAND:2
		PRINTFORM 用犹如被侵犯着的姿势
		FLAG_MESSAGE = 2
	ELSEIF PREVPLAY("Ｖ騎乗位") && ABL:施虐属性 >= 3 && TCVAR:干劲 > 20 && COND("脚の使用") && RAND:2
		PRINTFORM 將仰躺著的%CALLNAME:PLAYER%的臉跨過之後、
		FLAG_MESSAGE = 2

	;表情、雰囲気描写
	ELSEIF TCVAR:干劲 <= 20
		;害羞
		IF TALENT:害羞
			PRINTFORM %TEXTR("緊緊閉上雙瞳/低下頭/羞澀的合上雙眼/羞恥的臉頰通紅/因羞恥染紅了臉頰")%
			FLAG_MESSAGE = 1
		;叛逆
		ELSEIF TALENT:叛逆
			PRINTFORM 滿臉嫌惡而輕蔑
			FLAG_MESSAGE = 1
		ENDIF
	ELSEIF TALENT:恋慕 == 0
		;害羞
		IF TALENT:害羞
			PRINTFORM %TEXTR("羞恥浮現在臉頰上/臉上就像發燒了一樣/稍稍的染紅臉頰/臉頰浮現出薄薄紅暈")%
			FLAG_MESSAGE = 1
		ENDIF
	ELSEIF TALENT:恋慕
		;害羞
		IF TALENT:害羞 && RAND:2 == 0
			PRINTFORM 羞恥浮現在臉頰上
		ELSEIF TEQUIP:六九式 == 0 && RAND:3 == 0
			PRINTFORM 視線偷偷向上飄、窺視著情況
		ELSEIF RAND:2 == 0
			PRINTFORM 臉頰浮現出薄薄緋紅
		ELSE
			PRINTFORM 臉頰發燙
		ENDIF
		FLAG_MESSAGE = 1
	ENDIF
	IF TEQUIP:六九式
		PRINTFORM 、向%CALLNAME:PLAYER%的臉頰挺起腰肢
		IF TCVAR:干劲 > 20 && COND("脚の使用") && RAND:2
			PRINT 、同時將雙腿張的更開、將
		ELSE
			PRINT 、隨後將
		ENDIF
	ELSEIF PREVCOM == 1 || PREVCOM == 9
		SIF FLAG_MESSAGE
			PRINTFORM 、
	;脚を拘束されていないなら開く描写
	ELSEIF COND("脚の使用")
		;腰つきだし
		IF TCVAR:干劲 > 50 && RAND:3 == 0
			IF PREVPLAY("Ｖ騎乗位") && FLAG_MESSAGE == 2
				PRINTFORM 、直接坐下、將
			ELSEIF !INSERT("挿入") && TALENT:淫乱 && RAND:3 == 0
				PRINTFORM 、用雙腳將%CALLNAME:PLAYER%的頭勾住並慢慢拉近、將
			ELSEIF RAND:2 == 0
				PRINTFORM 、用雙手將大腿抓住並將股間拉得更開、將
			ELSEIF TEQUIP:攝像機
				PRINTFORM 、為了能被拍攝的更加明晰而將腰肢舉起、將
			ELSE
				PRINTFORM 、為了能讓%CALLNAME:PLAYER%清楚的看見而突出腰部、將
			ENDIF
		;大開脚
		ELSEIF TCVAR:干劲 > 20 && RAND:2 == 0
			IF RAND:2 == 0 || INSERT("挿入") || PREVPLAY("Ｖ挿入")
				IF PREVPLAY("Ｖ騎乗位") && FLAG_MESSAGE == 2
					PRINTFORM 、將雙腿用羅圈一樣的姿勢大開
				ELSEIF TEQUIP:攝像機
					PRINTFORM 、將雙腿張開
				ELSEIF INSERT("挿入")
					PRINTFORM 张開脚
				ELSE
					PRINTFORM 、朝著%CALLNAME:PLAYER%的方向張開雙腿
				ENDIF
			ELSEIF TEQUIP:浴室PLAY
				PRINTFORM 、倚靠在浴盆邊緣將雙腿張開
			ELSEIF TEQUIP:室内露出PLAY || TEQUIP:野外PLAY
				PRINTFORM 、蹲坐在地上將雙腿張開
			ELSE
				PRINTFORM 、坐在床上將雙腿張開
			ENDIF
			IF ABL:露出癖 >= 3 && CHOSECOM(SELECTCOM) == 0 && RAND:2
				IF RAND:2
					PRINTFORM 、主動將視線誘導、集中在股間的同時、將
				ELSE
					PRINTFORM 、享受著集中在股間上的灼熱視線的同時、將
				ENDIF
			ELSE
				PRINTFORM ると、
			ENDIF
		;開脚
		ELSE
			IF PREVPLAY("Ｖ騎乗位") && FLAG_MESSAGE == 2
				PRINTFORM 、將雙腿張開到與肩同寬的位置、將
			ELSEIF TALENT:不知羞恥 && TCVAR:干劲 > 20 && RAND:2 == 0
				PRINTFORM 、毫不猶豫地張開雙腿、將
			ELSEIF (TALENT:内気 || TALENT:坦率 || TALENT:害羞) && RAND:2 == 0
				PRINTFORM 、怯生生地將雙腿左右分開、將
			ELSEIF RAND:2 == 0
				PRINTFORM 、乖巧順從地張開雙腿、將
			ELSE
				PRINTFORM 、犹豫地張開雙腿、將
			ENDIF
		ENDIF
	ELSEIF FLAG_MESSAGE
		PRINTFORM 、
	ENDIF
ENDIF

;阴部を開く描写
;IF TCVAR:干劲 <= 20 && TALENT:内気 + TALENT:害羞
;	PRINTFORM 緊張に震える
;ELSEIF TCVAR:干劲 > 50 && RAND:2 == 0
;	PRINTFORM 両手の
;ELSEIF TCVAR:干劲 > 20 && RAND:2 == 0
;	PRINTFORM Ｖ字に開いた
;ELSEIF TALENT:娇小
;	PRINTFORM 小小的
;ENDIF
;PRINTFORM 指先で、

;膣口
IF TCVAR:干劲 > 50 && COND("指の使用") && TALENT:処女 == 0 && (PREVCOM == 141 || PREVCOM == 143 || RAND:3 == 0)
	IF PREVPLAY("膣内浴尿")
		PRINTFORM 被濁黃尿液%TEXTR("沖洗過/浸泡過")%的
	ELSEIF PREVCOM == 141 || PREVCOM == 143
		PRINTFORM 剛剛被手腕來回翻攪過的
	ELSEIF PREVCOM == 31
		PRINTFORM 剛剛拔出振動棒的
	ELSEIF PREVPLAY("Ｖ挿入") && FLAG_MESSAGE != 2
		PRINTFORM 剛剛被猛烈侵犯的
	ELSEIF PREVEX("Ｖ絶頂")
		IF PREVCOM == 3 || PREVPLAY("Ｖ騎乗位")
			PRINTFORM 剛剛迎來高潮的
		ELSE
			PRINTFORM 刚刚被欺负的
		ENDIF
	ELSEIF EX:Ｖ絶頂
		PRINTFORM 在极致快感下溶化的
	ELSEIF PALAM:Ｖ潤 >= 3000 && PALAM:欲情 >= 3000
		PRINTFORM \@ EXP_GAIN("Ｖ経験") == 0 ? 早已 # \@有愛液不斷流淌的
	ENDIF

	IF EXP_GAIN("Ｖ拡張経験") >= 3 || ABL:Ｖ拡張 >= 3 + RAND:3 || PREVCOM == 141 || PREVCOM == 143
		PRINTFORM 松弛了
	ELSEIF RAND:2 == 0
		PRINTFORM 依然保有粉嫩色調的
	ENDIF

	;両穴くぱぁ且つ継続中ではない
	IF PREVCOM == 14 && CHECK_COM("両穴くぱぁ") && COND("両穴くぱぁ") == 0
		PRINTFORM 將手指一併吞沒的膣口、
	ELSE
		PRINTFORM 將手指吞沒的膣口、
	ENDIF
	FLAG_MESSAGE:1 = 2
;小陰唇
ELSEIF TCVAR:干劲 > 20 && RAND:2 == 0
	IF PALAM:Ｖ潤 >= 3000 && PALAM:欲情 >= 10000
		IF AGE(TARGET) >= 3 && PALAM:欲情 >= 30000 && RAND:2
			PRINTFORM 因發情而充血、完全盛開的
		ELSE
			PRINTFORM 因興奮而綻放的
		ENDIF
	ELSEIF PALAM:Ｖ潤 >= 500 && PALAM:欲情 >= 3000
		PRINTFORM 被愛液徹底浸濕的
	ELSE
		IF AGE(TARGET) == 1
			PRINTFORM 小小的
		ELSE
			PRINTFORM 微微蜷縮的
		ENDIF
	ENDIF
	SIF TALENT:淫壷 + TALENT:好色 + TALENT:淫乱 && PALAM:Ｖ潤 >= 3000 && PALAM:欲情 >= 3000 && RAND:2
		PRINTFORM 淫亂的

	IF AGE(TARGET) == 1 || RAND:2 == 0
		PRINTFORM 小陰唇
	ELSE
		PRINTFORM 陰唇
	ENDIF
	FLAG_MESSAGE:1 = 1
;大陰唇
ELSE
	IF PREVPLAY("Ｖ挿入") && FLAG_MESSAGE != 2
		IF PENIS(PLAYER) && RAND:2
			PRINTFORM 剛剛被陰莖貫穿的
		ELSE
			PRINTFORM 剛剛被猛烈侵犯的
		ENDIF
	ELSEIF TALENT:陰唇環 && RAND:3 == 0
		PRINTFORM 被%TEXTS("陰唇環")%装飾著的
	;陰毛描写
	ELSEIF COND("陰毛") && RAND:2
		SELECTCASE COND("陰毛")
		CASE 7
			PRINTFORM 被濃密黑林所覆蓋的
			SIF AGE(TARGET) >= 4
				PRINTFORM 具備成熟風韻的
		CASE 6
			PRINTFORM 平日被陰毛所掩藏的
		CASE 5
			IF AGE(TARGET) >= 3 && RAND:2
				PRINTFORM 被精心修剪過的成熟的
			ELSE
				PRINTFORM 陰毛被妥善整理好的
			ENDIF
		CASE 4
			;無髭状態
			IF CONDS("陰毛") == "無髭"
				PRINTFORM 陰毛稀稀拉拉地生長的
			;剃过留痕
			ELSEIF CONDS("陰毛") == "剃过留痕"
				PRINTFORM 有明显的修剪痕迹的
			;还没長出来
			ELSEIF AGE(TARGET) == 1
				IF RAND:2
					PRINTFORM 生長稀疏胎毛的
				ELSE
					PRINTFORM 还有些稚嫩的孩子气的
				ENDIF
			;还没長出来（大人）
			ELSE
				IF RAND:2 && BASE:陰毛%100 >= 5
					PRINTFORM 有著整齊毛髮的
				ELSE
					PRINTFORM 有著薄薄陰毛的
				ENDIF
			ENDIF
		CASE IS <= 3
			IF COND("陰毛") == 3 && RAND:2
				IF RAND:2
					PRINTFORM 陰毛被剃除修剪的
				ELSE
					PRINTFORM 陰毛被剃除、猶如剝殼雞蛋的
				ENDIF
				SIF AGE(TARGET) >= 4
					PRINTFORM 具備成熟風韻的
			ELSE
				PRINTFORM 光洁的
			ENDIF
			SIF AGE(TARGET) == 1
				PRINTFORM 年幼
		ENDSELECT
	ELSEIF PALAM:Ｖ潤 >= 3000 || PALAM:欲情 >= 10000
		PRINTFORM %TEXTR("黏答答的/散發著淫猥媚香的")%
	ELSEIF PALAM:Ｖ潤 >= 500 && PALAM:欲情 >= 3000
		PRINTFORM %TEXTR("濡濕的/蒸騰著汗液與愛液的")%
	ELSEIF COND("黑木耳")

	ELSEIF PALAM:Ｖ潤 <= 500 || PALAM:欲情 <= 500
		SIF AGE(TARGET) == 1 || COND("美穴") || COND("萝莉小穴")
			PRINTFORM 緊繃
		PRINTFORM 閉合的
	ELSEIF AGE(TARGET) == 1
		PRINTFORM 年幼
	ENDIF

	IF TALENT:陰唇環 == 0 && (RAND:2 || AGE(TARGET) == 1)
		IF COND("黑木耳")
			PRINTFORM 黑黑的蜜裂
		ELSEIF AGE(TARGET) == 1 && RAND:2
			PRINTFORM 秘縫
		ELSE
			PRINTFORM 秘裂
		ENDIF
	ELSEIF CHOSECOM(SELECTCOM) == 0 && COND("黑木耳")
		PRINTFORM %TEXTR("黑木耳/发黑的阴部")%を
	ELSE
		PRINTFORM 把那里
	ENDIF
ENDIF

IF TCVAR:干劲 > 20 && RAND:2
	PRINTFORM 更專注地
ELSEIF RAND:2
	PRINTFORM 慢慢地、慢慢地
ELSE
	PRINTFORM 輕柔地
ENDIF

;阴部の描写
IF TCVAR:干劲 > 20 && FLAG_MESSAGE:1 != 2 && RAND:3 == 0
	IF FLAG_MESSAGE:1 == 1 && COND("指の使用")
		IF TALENT:陰唇環 && RAND:3
			PRINT 捏住穿環來大大地拉扯開、
		ELSE
			PRINT 借助指尖拉開、
		ENDIF
	ELSE
		PRINT 打開、
	ENDIF

	IF RAND:2 && TALENT:肤色
		SELECTCASE CONDS("肤色")
		CASE "褐色肌"
			PRINTFORM %TEXTR("淺褐色的/小麥色")%肌膚、
		CASE "色白"
			PRINTFORM %TEXTR("剝殼雞蛋一樣嬌嫩的/雪白的/透明到能見到血管一樣的")%肌膚、
		CASE "青肌"
			PRINTFORM %TEXTR("青藍色的/含有奇異美麗的青色")%肌膚、
		ENDSELECT
		PRINTFORM 與之對比而更顯美麗的
		SOURCE:0:Ａ快楽 = 1
	ENDIF

	IF SOURCE:0:Ａ快楽 == 1 || TALENT:処女 || (TALENT:魅力 && RAND:3 == 0)
		PRINTFORM 具有%TEXTR("粉嫩/鮮美")%色澤的%TEXTR("艷麗/漂亮/柔軟")%
		PRINTFORM %TEXTR("粘膜/膣口/媚肉")%
	ELSE
		IF TCVAR:干劲 > 50 && ABL:Ｖ感覚 >= 3 && RAND:2
			IF FLAG_MESSAGE:1 == 1 && EXP:Ｖ経験 >= 150 && AGE(TARGET) >= 4 && RAND:2
				PRINT 成熟陰部
			ELSEIF EXP:Ｖ性交経験 >= 300 && RAND:2
				IF EXP:膣内精液経験 >= 300 && RAND:2
					PRINTFORM 無數次將精液一飲而盡的
				ELSE
					PRINTFORM %TEXTR("已經使用不知多少次的/早已習慣被侵犯的")%
				ENDIF
				IF ABL:Ｖ名器度 < 20 && ABL:Ｖ拡張 >= 4 && RANDIF(2, TALENT:淫乱, TALENT:淫壷)
					PRINT 松弛雌穴
				ELSEIF TALENT:淫壷 && RANDIF(2, TALENT:淫乱)
					PRINT 貪欲雌穴
				ELSEIF TALENT:淫乱 && RAND:2
					PRINT 淫亂雌穴
				ELSEIF ABL:Ｖ感覚 >= 5 && RAND:2
					PRINT 敏感雌穴
				ELSE
					PRINT 歴戦雌穴
				ENDIF
			ELSEIF PALAM:Ｖ潤 >= 3000 && PALAM:欲情 >= 3000 && RAND:2
				PRINT 不斷滴落淫靡涎水的膣穴
			ELSE
				PRINT 淫亂妖艷的充血粘膜
			ENDIF
		ELSEIF RAND:3 == 0
			PRINTFORM 對女性來說最重要的部分
		ELSEIF RAND:2
			PRINTFORM 妖艷的顫抖著的秘肉
		ELSE
			PRINTFORM 害羞的部分
		ENDIF
	ENDIF
	;両穴くぱぁ且つ継続中ではない
	IF PREVCOM == 14 && CHECK_COM("両穴くぱぁ") && COND("両穴くぱぁ") == 0
		PRINTFORM も
	ELSE
		PRINTFORM を
		SIF TEQUIP:六九式 || ABL:露出癖 >= 3
			PRINTFORM %TEXTR("每一寸角落都/一覽無遺地")%
	ENDIF
	IF RAND:2
		PRINTW 显露出来了……
	ELSE
		PRINTW 無情的暴露著……
	ENDIF
;動作の描写
ELSE
	IF RAND:3 == 0
		;両穴くぱぁ
		IF PREVCOM == 14 && CHECK_COM("両穴くぱぁ")
			PRINTFORMW 同樣地清楚地推開、展示著……
		ELSE
			PRINTFORMW 正在將其清楚地推開、展示著……
		ENDIF
	ELSEIF RAND:2 == 0
		PRINTFORMW 推開、展示著……
	ELSE
		PRINTFORMW 打開來展示著內部……
	ENDIF
ENDIF

SIF TEXTS("Ｖコンディション", TARGET) != ""
	CALL PRINT_STRW, @"(%CALLNAME:TARGET%的Ｖ状态是_黄色_%TEXTS("Ｖコンディション", TARGET)%_)"

;初めて
IF FIRSTCOM(SELECTCOM) == 0 && TALENT:好色 == 0 && ABL:露出癖 < 3 && (COND("血縁") || TALENT:害羞)
	PRINTFORM 第一次向
	IF PLAYER == MASTER && TALENT:母親
		PRINTFORM 血脈意義上的\@ TRUE_SEX(MASTER) == "男性" ? 兒子 # 女兒 \@
	ELSEIF PLAYER == MASTER && TALENT:妹
		PRINTFORM 血脈意義上的\@ TRUE_SEX(MASTER) == "男性" ? 兄長 # 長姊 \@
	ELSEIF PLAYER == MASTER && TALENT:姉
		PRINTFORM 血脈意義上的\@ TRUE_SEX(MASTER) == "男性" ? 弟弟 # 妹妹 \@
	ELSEIF COND("教員")
		PRINTFORM %CONDS("間柄", PLAYER)%
	ELSE
		PRINTFORM 他人
	ENDIF
	PRINTFORMW 將陰戶張開、展示著內部的行為而讓%CALLNAME:TARGET%的臉頰因%TEXTR("別無他法的/無法隱藏的")%羞恥而臉頰發燙、滿臉通紅……
;前回性交
ELSEIF PREVPLAY("Ｖ挿入")
	TFLAG:地の文分岐 = 1
	IF ABL:Ｖ拡張 >= 3 && RAND:3 == 0
		PRINTFORM 誇張地展開著的%DANGEROUS_DAYS%膣穴里、被翻攪至產生白沫的愛液
		SIF PREVEX("Ｖ中出し")
			PRINT 裹挟着被注入体内的灼热白浊一起、
		PRINTFORMW 黏黏糊糊地垂落下来…
	;前回中出し
	ELSEIF PREVEX("Ｖ中出し")
		IF TALENT:淫壷 && RAND:3 == 0
			PRINTFORMW 妖艷的蠕動著的蜿蜒膣壁、讓灌滿整個膣道的黏稠精液從%DANGEROUS_DAYS%膣口慢慢溢出…
		ELSEIF TCVAR:干劲 > 50 && RAND:2
			PRINTFORMW %CALLNAME:TARGET%稍稍收緊小腹、就像是在確認之前快樂性愛的結果一樣、讓精液緩緩逆流而出……
		ELSEIF RAND:2 == 0
			PRINTFORMW 被满满地中出的小穴、因为快感而张開着阴道口、沾满了精液的粘膜清晰可见…
		ELSE
			PRINTFORMW 正配合著凌亂的氣息而嫵媚的顫抖著的%DANGEROUS_DAYS%膣口之中、剛剛灌注進去的精液隨著陰唇的抖動而灑落…
		ENDIF
	ELSEIF ABL:Ｖ拡張 >= 2 && RAND:2 == 0
		PRINTFORMW 在無法閉合的媚肉洞窟的最深處、淫靡的粘膜正因尋求失去的灼熱快感而渴望的蠢動著……
	ELSEIF RAND:3 == 0 && AGE(TARGET) == 1 && ABL:Ｖ拡張 < MIN(SIZE("阴茎", PLAYER), 2)
		PRINTFORMW 被與幼稚身體相比格外巨大的灼熱肉棍侵入的膣口、正下流的顫抖著試圖變回原狀……
	ELSEIF RAND:2
		PRINTFORMW 刚刚被侵犯过的那里因为流出来的发泡的愛液而变得黏黏糊糊的、散发着非常厉害的%TEXTS("气味")%…
	ELSE
		PRINTFORMW 陰莖拔出後的膣口、因消失的灼熱填充物與快感而淫靡地顫抖著、露出了內部那柔軟淫靡的粘膜……
	ENDIF
;膣内ルート
ELSEIF FLAG_MESSAGE:1 == 2
	TFLAG:地の文分岐 = 2
	;拡張度大
	IF EXP_GAIN("Ｖ拡張経験") >= 5 || ABL:Ｖ拡張 >= 3 + RAND:3
		IF RAND:3 == 0
			IF AGE(TARGET) == 1
				PRINT 與年幼身體並不相稱的
				SIF ABL:Ｖ拡張 >= 4
					PRINT 誇張地張開的
			ELSEIF RAND:2 == 0
				PRINT 正清楚地大開的
			ELSE
				PRINT 被複雜的粘膜覆蓋著的
			ENDIF
			SIF PREVPLAY("膣内浴尿")
				PRINTFORM 散發著氨水臭氣的
			PRINTFORM 胯股之间的孔洞的、深處的最深處、
			IF EXP_GAIN("子宮浴尿経験")
				IF PREVPLAY("子宮内浴尿") && COND("子宮口弛緩度") >= 3
					PRINTFORM 剛剛被尿液覆蓋著的子宮內側
				ELSE
					PRINTFORM 內部被濁黃尿液浸滿的子宮入口
				ENDIF
			ELSEIF PREVEX("Ｖ中出し")
				;前回が子宮挿入
				IF PREVCOM == 68
					IF COND("子宮口弛緩度") >= 3
						PRINT 剛剛被精液灌注过的子宮內壁
					ELSE
						PRINT 內部被直接注入的精液如涎水一般緩緩垂下的子宮口
					ENDIF
				ELSE
					PRINT 剛剛沐浴著精液的子宮口
				ENDIF
			ELSEIF GETBIT(TEQUIP:筋弛緩剤, 3) || EXP_GAIN("子宮姦経験")
				PRINT 微微張開著的重要的地方的入口
			ELSEIF TALENT:妊娠
				PRINT 妊娠中的子宮口
			ELSEIF TALENT:出産経験 && RANDIF(2, TALENT:娇小)
				PRINT 曾經產下新生命的子宮口
			ELSEIF TALENT:娇小 && RAND:2
				PRINT 嬌小可愛的子宮口
			ELSE
				PRINT 重要的子宮口
			ENDIF
			PRINTFORMW 正毫無隱藏之意的向%CALLNAME:PLAYER%暴露著……
			CALL SETFLAG, "子宮口露出フラグ", TARGET

		ELSEIF RAND:2 == 0
			PRINTFORM 正清楚地打開的\@ PREVPLAY("膣内浴尿") ? 散發著氨臭的 # \@膣穴
			IF INSERT("Ａ挿入")
				PRINTFORMW 正與在肛門中不斷衝擊的\@ PENIS(PLAYER) ? 陰莖 # 道具 \@配合的蠢動著、垂落下淫靡的涎水……
			ELSE
				PRINTFORM 正配合著凌亂的氣息而嫵媚的顫抖著、
				IF RAND:2 && PREVPLAY("膣内浴尿") == 0
					PRINTFORMW 隨著淫猥的收縮吐出淫靡的%TEXTS("气味")%醞釀出令人入神的氛圍……
				ELSE
					PRINTFORMW 妖媚的引誘著%CALLNAME:PLAYER%……
				ENDIF
			ENDIF
		ELSE
			PRINTFORM 被粗暴地蹂躪著的\@ TALENT:淫壷 ? 淫亂洞口 # 陰戶 \@、
			SIF EXP_GAIN("Ｖ拡張経験") >= 3 || EXP_GAIN("Ｖ性交経験") >= 5 || PREVCOM == 141 || PREVCOM == 143
				PRINTFORM 即使失去了原有的堵塞物也仍然
			PRINTFORM 誇張的張開著、
			IF PREVPLAY("膣内浴尿")
				PRINT 混杂着在体内放出的腥臭尿液、
			ELSEIF PREVEX("Ｖ中出し") && CHECK_STAIN(STAIN:Ｖ, "精液")
				PRINT 混雜著灼熱白濁的
			ENDIF
			PRINTFORMW 愛液如溪流一樣淳淳流出……
		ENDIF
	ELSEIF EX:Ｖ絶頂 >= 5
		PRINTFORM %CALLNAME:TARGET%的陰部
		SIF INSERT("Ａ挿入")
			PRINTFORM 在肛門深處隨著抽插的陰莖而扭曲糾纏的同時、
		PRINTFORMW 將象徵著渾濁愛慾的粘稠愛液噴灑著……
	ELSEIF PALAM:Ｖ潤 >= 3000 && PALAM:欲情 >= 3000
		PRINTFORM 形成了淫亂洞窟的媚肉、
		IF INSERT("Ａ挿入")
			PRINTFORM 像是對肛門傳遞的快感刺激做出反應一樣、
		ELSE
			PRINTFORM 即使沒有受到任何觸碰、也會
		ENDIF
		PRINTFORMW 淫亂的抽搐痙攣著……
	ENDIF
;阴部ルート
ELSE
	TFLAG:地の文分岐 = 4
	;前回中出しor膣内放尿
	IF PREVEX("Ｖ中出し") || PREVPLAY("膣内浴尿")
		IF TCVAR:干劲 > 50 && RAND:2
			PRINTFORM %CALLNAME:TARGET%稍稍收緊小腹、就像是在確認之前快樂性愛的結果一樣、
			IF PREVPLAY("膣内浴尿")
				PRINTFORMW 讓殘留在膣道與子宮之中的濁黃尿液隨之逆流而出……
			ELSE
				SIF EXP_GAIN("膣内精液経験") >= 5 && RAND:2
					PRINTFORM 隨著陰莖的攪拌而產生了大量白沫的
				PRINTFORMW 濃郁精液\@ EXP_GAIN("膣内精液経験") >= 5 && RAND:2 ? 噗嚕嚕地 # 滴滴答地 \@逆流而出……
			ENDIF
		ELSE
			PRINTFORM 正配合著凌亂的氣息而嫵媚的顫抖著地膣口之中
			IF PREVPLAY("膣内浴尿")
				PRINTFORMW 、被強行灌入膣道的氨臭尿液隨著膣口的張合慢慢溢出體內……
			ELSE
				PRINTFORMW 、剛剛灌注進去的精液隨著陰唇的抖動而灑落……
			ENDIF
		ENDIF
	;前回オシッコor尿道内射精
	ELSEIF PREVEX("放尿") + PREVEX("絶頂漏尿") + PREVEX("尿道内射精") && CHECK_STAIN(STAIN:Ｖ, "尿")
		IF TALENT:好色+TALENT:淫乱 && ABL:露出癖 >= 3
			PRINTFORM %CALLNAME:TARGET%
			IF PREVEX("尿道内射精")
				PRINTFORM 被中出的白濁精液與摻雜其中的濁黃尿液塗抹上奇妙的色彩的尿道口、讓%CALLNAME:PLAYER%不由得將視線集中起來、
			ELSEIF TEQUIP:导管
				PRINTFORM 從深深插入體內的尿道導管緩緩流出的晶瑩尿液、讓%CALLNAME:PLAYER%不由得將視線集中起來、
			ELSE
				;絶頂漏尿
				IF PREVEX("絶頂漏尿")
					PRINTFORM 漏尿
				ELSE
					PRINTFORM 放尿
				ENDIF
				PRINTFORM 之後%TEXTR("髒污的/散發氨臭的")%陰部、讓%CALLNAME:PLAYER%不由得將視線集中起來、
			ENDIF
			IF TALENT:高慢 && RAND:2
				SIF TEQUIP:导管 == 0 && (TALENT:害羞 || PALAM:欲情 >= 30000)
					PRINTFORM 儘管臉頰因羞澀而發燙、但仍然
				PRINTFORMW 以自信滿滿的可愛樣子接受了灼熱的凝視……
			ELSE
				SIF TEQUIP:导管 == 0 && (TALENT:害羞 || PALAM:欲情 >= 30000)
					PRINTFORM 混杂着羞涩的情绪、勉強的
				IF TALENT:強気 && RAND:2
					PRINTFORMW 浮現出大膽的笑容接受了灼熱的凝視……
				ELSE
					PRINTFORMW 浮現出妖艷的笑容接受了灼熱的凝視……
				ENDIF
			ENDIF
		ELSEIF PREVEX("尿道内射精")
			PRINTFORMW 在陰莖被當成飛機杯一樣激烈蹂躪之後、被猛烈快感衝擊得精神恍惚的%CALLNAME:TARGET%、尿道口中自己的精液、%CALLNAME:PLAYER%的精液與自己的尿液都隨著鬆弛的尿道口淳淳流出……
		ELSE
			;絶頂漏尿
			IF PREVEX("絶頂漏尿")
				PRINTFORM 在絕頂中尿失禁之後、
			ELSEIF TEQUIP:导管
				PRINTFORM 在導管的強制排尿之後、
			ELSE
				PRINTFORM 在放尿之后、
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%的陰部、散發著刺鼻卻又格外刺激性慾的淫臭……
		ENDIF
	ELSEIF TALENT:好色+TALENT:淫乱 && ABL:Ｖ感覚 >= 3 && ABL:露出癖 >= 3 && ABL:Ｖ技術 >= 5 && ABL:Ｖ拡張 >= 2 && PREVEX("Ｖ絶頂") == 0 && RAND:3 == 0
		PRINTFORM %CALLNAME:TARGET%
		IF PALAM:欲情 >= 3000 && RAND:2
			PRINTFORM 垂涎着淫水的膣口帕库帕库地蠢动着、\@ TEQUIP:导管 ? 小便流入导管的同时 # \@
			IF TALENT:強気 && RAND:2
				PRINT 大膽的
			ELSE
				PRINT 妖艶
			ENDIF
			PRINTFORMW 笑容自然地浮現在臉上……
		ELSE
			PRINTFORMW 的膣口正期待地張合著、而隨著陰唇的閉合、來自胎內的淫靡%TEXTS("气味")%也正不断引诱%CALLNAME:PLAYER%侵入其中……
		ENDIF
	ELSEIF (EX:Ｃ絶頂 + EX:Ｖ絶頂 || (PALAM:Ｖ潤 >= 3000 && PALAM:欲情 >= 10000) ) && TALENT:処女 == 0
		IF TALENT:害羞 && RAND:2 == 0
			SIF INSERT("Ａ挿入")
				PRINTFORM 尻穴正被不斷侵犯的
			PRINTFORM 臉頰通紅的%CALLNAME:TARGET%
			IF TALENT:清楚 && RAND:3
				PRINTFORM 仍然保持著清純可憐的氣質、
			ELSEIF TALENT:内気 && RAND:3
				PRINTFORM 仍然顯得柔弱可欺的樣子、
			ELSE
				PRINTFORM 顯得非常羞恥的樣子、
			ENDIF
			PRINTFORMW 而與之相反的、從秘裂之中正\@ PREVEX("Ｃ絶頂") + PREVEX("Ｖ絶頂") ? 噗嚕噗嚕地 # 滴答滴答地 \@開始湧出愛液、將手指染上淫靡的光彩……
		ELSEIF ABL:Ｖ拡張 >= 3 && RAND:3 == 0
			SIF INSERT("Ａ挿入")
				PRINTFORM 因肛門正被不斷侵犯而更加興奮的
			PRINTFORM %CALLNAME:TARGET%的陰部\@ EX:Ｃ絶頂 + EX:Ｖ絶頂 ? 完全的 # 已經 \@充血綻開、
			IF RAND:2 && PENIS(PLAYER)
				PRINTFORMW 股間直接的放射出激起情慾的粉紅花香、同時花瓣也像是在邀請一樣淫靡地顫抖著……
			ELSE
				PRINTFORMW 正淫靡地張合的陰唇、正像是在邀請一樣隨著呼吸顫抖著……
			ENDIF
		ELSEIF RAND:2
			SIF INSERT("Ａ挿入")
				PRINTFORM 被不斷侵犯尻穴的%CALLNAME:TARGET%的
			IF AGE(TARGET) >= 3 || COND("黑木耳")
				PRINTFORM 褶皺正錯綜複雜地排列著的陰戶
				IF PREVEX("Ｃ絶頂") + PREVEX("Ｖ絶頂")
					PRINTFORMW 因絕頂的餘韻而微顫著、\@ EX:処女喪失 ? 连自己已经丧失了処女都没有意识到 # \@從膣口中有著像是快感的證明一樣格外渾濁的黏稠愛液正在緩緩溢出……
				ELSE
					PRINTFORMW 被自己與他人的分泌液而濡濕發亮、膣口之中、黏稠而混雜細密白沫的愛液漸漸流下……
				ENDIF
			ELSE
				PRINTFORMW 還殘留著年幼感的陰部\@ PREVEX("Ｃ絶頂") + PREVEX("Ｖ絶頂") ? 因被強加的極樂快感 # 黏稠的愛慾證明 \@而增添了妖艷的魅力、从\@ EX:処女喪失 ? 刚刚処女毕业了的 # \@膣口中也正不斷流淌出愛液的透明小河……
			ENDIF
		ELSE
			SIF INSERT("Ａ挿入")
				PRINTFORM %CALLNAME:PLAYER%在直腸的深處隔著一層薄薄的肉襞將子宮摩擦著、
			PRINTFORM 凝視著近在眼前的、淫靡的抖動著的膣口、
			IF TALENT:淫壷
				PRINTFORM 象徵灼熱情慾的分泌液從膣道中緩緩流淌而下、在半空中匯聚成一注亢長而纖細的溪流擊打在地面、
			ELSE
				PRINTFORM 晶瑩的愛液從膣道中溢出、拉扯出一縷縷晶瑩的銀線、而又在銀絲斷裂後墜落在地、
			ENDIF
			PRINTFORMW 逐漸在地面堆積成了一灘蒸騰淫靡氣味的水窪……
		ENDIF
	ELSEIF (PALAM:Ｖ潤 >= 500 && PALAM:欲情 >= 3000) || TALENT:恋慕 || INSERT("Ａ挿入")
		IF ABL:Ｖ拡張 >= 3 && RAND:3 == 0
			PRINTFORM %CALLNAME:TARGET%的膣口
			IF INSERT("Ａ挿入")
				PRINTFORMW 與肛門週邊的媚肉相互拉扯著、讓前後兩張淫口隨著凌亂的喘息不住張合起來……
			ELSEIF RAND:2 && ABL:Ｖ感覚 >= 3 && EXP:Ｖ性交経験 >= 50 && EXP_GAIN("Ｖ性交経験") == 0
				PRINTFORMW 被內部分泌出的愛液濡濕、閃耀著淫靡的光澤並醞釀出淫猥而無比煽情的氛圍……
			ELSEIF COND("指の使用") == 0 || RAND:2
				PRINTFORMW 像是在焦慮的期待什麼一樣、不需要指尖的輔助、就能自行張開……
			ELSE
				PRINTFORMW 不需要手指的輔助就能自行一點點張開……
			ENDIF
		ELSEIF TALENT:恋慕 && RAND:2 == 0
			PRINTFORM %CALLNAME:TARGET%的秘所
			IF RAND:2
				PRINTFORM 和恍惚的雙瞳一樣妖媚的濡濕著、
			ELSE
				PRINTFORM 被一层薄薄的汗液沾湿了、
			ENDIF
			IF TALENT:処女
				IF PALAM:Ｖ潤 >= 3000
					SIF INSERT("Ａ挿入")
						PRINTFORM 每當深深插入直腸的陰莖抽動的時候、
					PRINTFORMW 処女膜的空隙小孔中、就會湧現出愛液的小小溪流……
				ELSE
					PRINTFORMW 那象徵著純潔的中心部分、就像是在發自內心的渴望被摧毀一樣輕微而嫵媚的顫抖著……
				ENDIF
			ELSEIF RAND:3 == 0
				PRINTFORM 而其中散發著的、那無法形容的、讓人不禁漸漸上癮的淫靡%TEXTS("气味")%漸漸充滿了鼻腔……
			ELSEIF RAND:2
				PRINTFORMW 正因為內部分泌出得淫靡愛液而顯得更加艷麗……
			ELSE
				PRINTFORMW 同時靜靜窺視著最深處的微微顫抖著的鮮紅秘肉……
			ENDIF
		ELSEIF PALAM:欲情 >= 6000
			SIF INSERT("Ａ挿入")
				PRINTFORM 因不斷出入肛門的\@ PENIS(PLAYER) ? 陰莖 # 道具 \@而扭曲著收緊的
			PRINTFORM %CALLNAME:TARGET%的陰部
			SIF ABL:欲望 >= 3 && ABL:奉仕精神 >= 3 && COND("前Ｔ調教者") == PLAYER && PREVCOM >= 90 && PREVCOM <= 119
				PRINTFORM 因將%CALLNAME:PLAYER%充分地侍奉著而更加的
			PRINTFORM 興奮的

			IF PALAM:欲情 >= 6000 && RAND:3 == 0
				IF RAND:2
					PRINTFORMW 隨著陰唇的顫抖而將愛液揮灑而出、同時獨特而令人上癮的劇烈%TEXTS("气味")%正漂浮在半空……
				ELSE
					PRINTFORMW 任由黏稠無比的起泡愛液如同涎水一樣溢出並垂落滴下……
				ENDIF
			ELSEIF EXP:Ｖ経験 >= 150 && RAND:2
				PRINTFORMW 不斷地將黏稠渾濁的愛液緩緩吐出……
			ELSEIF TALENT:淫壷
				PRINTFORMW \@ PENIS(PLAYER) && RAND:2 ? 光是聞到氣味就開始下流的發情 # 大脑開始被記憶中的剧烈快乐所麻痹 \@的同時、將成熟而淫亂的淫猥%TEXTS("气味")%緩緩釋放出來……
			ELSE
				PRINTFORMW 漸漸釋放著獨特而令人上癮的淫猥芳香……
			ENDIF
		ELSE
			SIF INSERT("Ａ挿入")
				PRINTFORM 在被激烈的侵犯著肛門的同時、
			PRINTFORM 輕輕地隨著凌亂喘息抖動的
			IF TALENT:処女
				PRINT 処女膜
			ELSE
				IF AGE(TARGET) >= 4 && RAND:2
					PRINTFORM 具備成熟風韻的
				ELSE
					PRINTFORM %CONDS("間柄")%
				ENDIF
				PRINT 秘肉
			ENDIF
			PRINTFORMW 將%CALLNAME:PLAYER%的視線牢牢吸引住、久久無法離開……
		ENDIF
	ENDIF
ENDIF

;両穴くぱぁフラグＯＮ
SIF PREVCOM == 14 && CHECK_COM("両穴くぱぁ")
	CALL SETFLAG, "両穴くぱぁ", TARGET

CALL TRAIN_PHOTO_COM13

@TRAIN_PHOTO_COM13
;くぱぁ直後の写真撮影で使う
STR:青写真 =
SIF INSERT("Ａ挿入")
	STR:青写真 += @"%TEXTR("一边进行着肛門性交/一边让尻穴品尝着插入的阴茎/一边露出因为肛門性交而感到非常幸福的表情")%"

IF COND("陰毛") && RAND:2
	IF COND("黑木耳")
		STR:青写真 += @"%TEXTS("陰毛：視覚")%黑木耳を"
	ELSE
		STR:青写真 += @"%TEXTS("陰毛：視覚")%陰唇被"
	ENDIF
ELSE
	STR:青写真 += @"%TEXTS("大陰唇：視覚")%被"
ENDIF
STR:青写真 += @"押開、"

SIF COND("両穴くぱぁ")
	STR:青写真 += @"%TEXTS("肛門：視覚")%和"

IF CHECK_COM("子宮口描写")
	IF PREVPLAY("膣内浴尿")
		STR:青写真 += @"刚刚被当作小便器使用的子宮口被"
	ELSEIF PREVEX("Ｖ中出し")
		STR:青写真 += @"刚刚被精液沐浴过的子宮口被"
	ELSEIF COND("弛緩") && TALENT:Ｖ性向 + TALENT:淫壷 && RAND:3 == 0
		STR:青写真 += @"滴垂着本気汁的子宮口被"
	ELSEIF CHECK_COM("両穴くぱぁ")
		STR:青写真 += @"%TEXTR("大大広開的膣内和最深处的子宮口/可以看到子宮口程度地大大広開的膣内")%被"
	ELSE
		STR:青写真 += @"%TEXTR("膣内的景色和子宮口一起/大大広開的膣内和最深处的子宮口/可以看到子宮口程度地大大広開的膣内")%被"
	ENDIF
ELSE
	IF PREVPLAY("膣内浴尿")
		STR:青写真 += @"注入的尿液逆流涌出的膣口被"
	ELSEIF PREVEX("Ｖ中出し")
		STR:青写真 += @"%TEXTR("中出性交直後的/愛液混合精液垂下的/中出直後精液溢出的")%膣口被"
	ELSEIF EX:処女喪失
		STR:青写真 += @"%TEXTR("刚刚処女毕业的膣口/连失去処女都来不及意识到的膣口")%被"
	ELSEIF PREVCOM >= 60 && PREVCOM <= 69
		STR:青写真 += @"%TEXTR("使用直後的膣口/刚刚工作结束的膣口")%被"
	ELSEIF PREVCOM == 141 || PREVCOM == 143
		STR:青写真 += @"拳交直後%TEXTR("大口張開着的膣穴/大大広開的膣口/松弛開口的膣穴")%被"
	ELSEIF TALENT:陰蒂環 && RANDIF(2, TALENT:陰唇環)
		IF RAND:2
			STR:青写真 += @"%TEXTR("貫穿陰核的/装飾陰核的")%%TEXTS("穿環")%被"
		ELSE
			STR:青写真 += @"%TEXTR(@"被%TEXTS("陰蒂環")%装飾的/%TEXTS("陰蒂環")%閃爍的")%"
			IF COND("陰核肥大")
				STR:青写真 += @"%TEXTR("肥大化的陰核/勃起的陰核/挺起的小豆豆")%被"
			ELSE
				STR:青写真 += @"陰核被"
			ENDIF
		ENDIF
	ELSEIF TALENT:陰唇環 && RAND:2
		IF TALENT:陰蒂環 && RAND:2
			SIF TALENT:処女
				STR:青写真 += @"%TEXTR("明明还是処女/即使仍然是処女")%"
			STR:青写真 += @"%TEXTR("被穿環覆盖的/被好幾个穿環装飾着的/满是穿環的")%阴部被"
		ELSE
			STR:青写真 += @"%TEXTR("穿環閃爍的/穿環装飾着的")%小陰唇被"
		ENDIF
	ELSEIF COND("陰核肥大") && RAND:4 == 0
		STR:青写真 += @"%TEXTR("肥大化的陰核/勃起的陰核/挺起的小豆豆")%被"
	ELSEIF EX:Ｖ中出し && RANDIF(1, EXP:Ｖ性交経験 >= 300, ABL:Ｖ拡張 >= 5)
		STR:青写真 += @"%TEXTR("中出性交後的/精液混合着愛液垂流的/中出済的")%膣口被"
	ELSEIF EXP:Ｖ性交経験 >= 300 && RANDIF(1, ABL:Ｖ拡張 >= 5)
		STR:青写真 += @"%TEXTR("贪婪張開的膣穴/準備万端的膣口/久经使用的膣口")%被"
	ELSEIF ABL:Ｖ拡張 >= 5
		STR:青写真 += @"%TEXTR("大口張開的膣穴/大大広開的膣口")%被"
	ELSEIF TALENT:処女 && RAND:4
		STR:青写真 += "処女膜を"
	ELSE
		STR:青写真 += @"%TEXTR("膣穴/膣口")%被"
	ENDIF
ENDIF

STR:賞賛内容 = %STR:青写真%%TEXTR("露了出来/毫无防备地露出来的/暴露出来的")%
IF INSERT("Ａ挿入")
	STR:青写真 += "露在了空气中"
ELSE
	STR:青写真 += @"%PHOTO_SHOWING("見せつけ")%"
ENDIF

@COM_ORDER_COM13, 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 TALENT:冷静
	LOCAL -= 5
	LOCALS = %LOCALS% - 冷静(5)
ENDIF
;害羞
IF TALENT:害羞
	LOCAL -= 15
	LOCALS = %LOCALS% - 害羞(15)
ENDIF
;不知羞恥
IF TALENT:不知羞恥
	LOCAL += 2
	LOCALS = %LOCALS% + 不知羞恥(2)
ENDIF
;清楚
IF TALENT:清楚
	LOCAL -= 10
	LOCALS = %LOCALS% - 清楚(10)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 5
	LOCALS = %LOCALS% - 否定快感(5)
ENDIF
;前回中出し
IF PREVEX("Ｖ中出し")
	LOCAL -= 10
	LOCALS = %LOCALS% - 中出し直後(10)
ENDIF
IF COND("陶酔")
	LOCAL += 10
	LOCALS = %LOCALS% + 陶酔(10)
ENDIF
IF TEQUIP:媚薬
	LOCAL += 2
	LOCALS = %LOCALS% + 媚薬(2)
ENDIF
;视频拍摄
IF TEQUIP:攝像機
	LOCAL -= 30
	LOCALS = %LOCALS% - 撮影中(30)
ENDIF
;野外or室内露出
IF TEQUIP:野外PLAY
	LOCAL -= 10
	LOCALS = %LOCALS% - 野外PLAY(10)
ELSEIF TEQUIP:室内露出PLAY
	LOCAL -= 10
	LOCALS = %LOCALS% - 室内露出(10)
ENDIF

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

RETURN RESULT


code:
@COM140
;強制口交
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

;実行できない
SIF TCVAR:干劲 == 0
	RETURN 0
;-------------------------------------------------
;実行決定
;-------------------------------------------------
SIF TEQUIP:拘束
	TCVAR:干劲 -= 30
SIF COND("開口口枷")
	TCVAR:干劲 -= 30
TCVAR:干劲 = MAX(TCVAR:干劲, 0)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

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

;-------------------------------------------------
;嘔吐判定
;-------------------------------------------------
IF CONFIG("嘔吐発生") && SIZE("阴茎", PLAYER)
	;吐いてしまった
	SIF COND("嘔吐確率") > RAND:100
		TCVAR:想吐 = 1
ENDIF

RETURN 1

@FLAG_COM140, ARG
CALL SETFLAG, "口交フラグ", TARGET
;対象の口⇔調教者のＰ的污垢が移動
CALL EQ_STAIN, TARGET, "Ｍ", PLAYER, "Ｐ"

@SOURCE_COM140, ARG
IF NOWEX:嘔吐
	SELECTCASE EXP:強制口交嘔吐經驗
	CASE 0
		CALL SOURCE_DOWNBASE_HP, 500
	CASE IS <= 5
		CALL SOURCE_DOWNBASE_HP, 400
	CASEELSE
		CALL SOURCE_DOWNBASE_HP, 200
	ENDSELECT
	IF TALENT:汚臭無視
		FLAG:情緒 -= 60
	ELSEIF TALENT:汚臭敏感
		FLAG:情緒 -= 240
	ELSEIF TALENT:汚臭鈍感
		FLAG:情緒 -= 120
	ELSE
		FLAG:情緒 -= 180
	ENDIF
	TFLAG:好感度BOUNS -= 50

	IF TALENT:倒錯的
		FLAG:情緒 += 30
		TFLAG:好感度BOUNS += 30
	ENDIF
	IF ABL:受虐属性 >= 2
		FLAG:情緒 += MIN(60, (ABL:受虐属性 - 1)*15)
		TFLAG:好感度BOUNS += MIN(ABL:受虐属性*5, 25)
	ENDIF
	SOURCE:0:疼痛 += 1000
	SOURCE:0:不潔 += 15000
	SOURCE:0:屈従 += 10000
	SOURCE:0:逸脱 += 20000
	;撮影したなら
	SIF TEQUIP:攝像機
		SOURCE:0:屈従 *= 3
	CALL CALC, "調教ソース", ARG
	RETURN 1
ENDIF

CALL SOURCE_SMPLAY, "強制口交", ARG

CALL VARSET_COMF

CALL SOURCE_SERVICE_PLAY, "強制口交"

CALL SOURCE_DOWNBASE_HP, 140

SOURCE:0:不潔 = COM_ORDER_STAIN("Ｐ", "Ｍ")*200 + 100

SOURCE:0:屈従 = 3000
SOURCE:0:逸脱 = 3000

;快Mのソース・M感覚を見る
SOURCE:0:Ｍ快楽 = CALCF("Ｍ刺激", 2, 120)

;喉性感がないならば激減
IF TALENT:喉性感 == 0
	TIMES SOURCE:0:Ｍ快楽, 0.05
	SIF SOURCE:0:Ｍ快楽 < 100
		SOURCE:0:Ｍ快楽 = 0
ENDIF

;喉ＬＶを見る
SELECTCASE ABL:喉拡張 - SIZE("阴茎", PLAYER)
CASE IS <= -2
	SOURCE:0:疼痛 = 3000
	SOURCE:0:恐惧 = 8000
	TIMES SOURCE:0:Ｍ快楽, 0.00
CASE -1
	SOURCE:0:疼痛 = 1000
	SOURCE:0:恐惧 = 3000
	TIMES SOURCE:0:Ｍ快楽, 0.00
CASE 0
	SOURCE:0:疼痛 = 500
	SOURCE:0:恐惧 = 1000
CASE 1
	SOURCE:0:疼痛 = 100
	SOURCE:0:恐惧 = 300
ENDSELECT

;堅さを見る
SELECTCASE HARD("阴茎", PLAYER)
CASE 3
	TIMES SOURCE:0:疼痛, 1.20
	TIMES SOURCE:0:恐惧, 1.20
CASE IS >= 4
	TIMES SOURCE:0:疼痛, 1.50
	TIMES SOURCE:0:恐惧, 1.50
ENDSELECT

;ABL:受虐属性をみる
SELECTCASE ABL:受虐属性
CASE 1
	TIMES SOURCE:0:屈従, 1.20
	TIMES SOURCE:0:恐惧, 0.80
CASE 2
	TIMES SOURCE:0:屈従, 1.50
	TIMES SOURCE:0:恐惧, 0.50
CASE 3
	TIMES SOURCE:0:屈従, 2.00
	TIMES SOURCE:0:恐惧, 0.20
CASE 4
	TIMES SOURCE:0:屈従, 2.50
	TIMES SOURCE:0:恐惧, 0.10
CASE IS >= 5
	TIMES SOURCE:0:屈従, 3.00
	TIMES SOURCE:0:恐惧, 0.05
ENDSELECT

;深喉中？
IF TEQUIP:深喉
	TIMES SOURCE:0:性行動, 1.50
	TIMES SOURCE:0:達成感, 1.50
	TIMES SOURCE:0:疼痛, 1.50
	TIMES SOURCE:0:不潔, 1.50
	TIMES SOURCE:0:恐惧, 1.50
	TIMES SOURCE:0:屈従, 1.50
	TIMES SOURCE:0:逸脱, 1.50
	TIMES SOURCE:0:Ｍ快楽, 1.50
ENDIF

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

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

@TRAIN_MESSAGE_COM140
IF CHECK_COM("３Ｐ奉仕")
	CALL TRAIN_MESSAGE_3P
;前回も強制口交
ELSEIF PREVCOM == SELECTCOM && COND("前Ｔ調教者") == PLAYER
	PRINTFORM %CALLNAME:PLAYER%將%CALLNAME:TARGET%的
	;角が有ますか？
	PRINTFORM \@ COND("角ハンドル") ? 角緊緊抓住 # 頭向下壓住 \@、
	IF SIZE("阴茎", PLAYER) >= 2 && RANDIF(2, ABL:PLAYER:施虐属性 >= 3)
		PRINTFORM 用過分粗長的陰莖將
	ELSEIF ABL:PLAYER:施虐属性 >= 3 && RAND:2
		PRINTFORM 用毫無停歇的激烈動作與猛烈氣勢將
	ELSEIF ABL:受虐属性 >= 3 && CHECK("喉姦")
		PRINTFORM 為了滿足那過剩的受虐慾望而將
	ENDIF
	IF (ABL:技巧 >= 4 || ABL:PLAYER:施虐属性 >= 3 || TEQUIP:深喉) && SIZE("阴茎", PLAYER) && RAND:2
		IF SIZE("阴茎", PLAYER) >= 3 && TEQUIP:深喉 && RAND:2
			PRINT 食道
		ELSE
			PRINT 咽喉
		ENDIF
	ELSE
		PRINT 口
	ENDIF
	PRINTFORMW 毫不留情地持續侵犯著……
ELSE
	;特に[恋慕＋奉仕精神Lv5]、[奉仕精神Lv3]、[PLAYERが施虐狂]、[直前の調教]、[角があるか]、[眼罩]等でテ接吻トが変わります。
	PRINTFORM %CALLNAME:PLAYER%将
	;前回は口交
	IF PREVCOM == 91 && COND("前Ｔ調教者") == PLAYER
		;汚れてますか？汚臭鈍感で無いならば、実行値の10分の一の値とRAND:5を比べて判定
		IF CHECK_STAIN(STAIN:PLAYER:Ｐ, "Ｖ", "Ａ") && TALENT:汚臭鈍感 == 0 && RAND:6 > TCVAR:干劲/10
			PRINTFORM 因精液的淫臭而皺著眉頭
		;恋慕or献身的or奉仕精神3以上or汚臭鈍感
		ELSEIF (TALENT:恋慕 || TALENT:献身 || ABL:奉仕精神 >= 3 || TALENT:汚臭鈍感) && RAND:2 == 0
			PRINT 就好像是在品嚐美味一樣的
		;害羞
		ELSEIF TALENT:害羞 && RAND:3 == 0
			PRINT 害羞地
		;欲情4以上
		ELSEIF PALAM:欲情 >= PALAMLV:4 && RAND:3 == 0
			SIF TALENT:倒錯的 && RAND:3 == 0
				PRINTFORM 因慾望的%TEXTS("气味")%而
			PRINT 興奮地
		;恋慕かつ奉仕精神5or献身的かつ奉仕精神3以上
		ELSEIF ( (TALENT:恋慕 && ABL:奉仕精神 >= 5) || (TALENT:献身 && ABL:奉仕精神 >= 3) ) && RAND:3 == 0
			PRINT 滿臉幸福快樂的
		;恋慕or献身的or奉仕精神3以上
		ELSEIF TALENT:恋慕 || TALENT:献身 || ABL:奉仕精神 >= 3
			PRINT 就好像是在品嚐美味一樣的
		ELSEIF RAND:2 == 0 && ABL:技巧 < 2
			PRINT 開始生疏的吞吐侍奉著
		ENDIF
		;前回清洁口交
		IF PREVPLAY("清洁口交")
			PRINTFORM 將陰莖清潔著的%CALLNAME:TARGET%的
		ELSE
			PRINTFORM 持續侍奉著的%CALLNAME:TARGET%的
		ENDIF
	;深喉中
	ELSEIF TEQUIP:深喉
		PRINTFORM 把陰莖直達根部的吞入體內的%CALLNAME:TARGET%的
	ELSE
		IF BIND("床", TEQUIP:拘束) && RAND:2
			PRINTFORM 聽從指示仰起頭而與咽喉和食道處於同一直線的%CALLNAME:TARGET%的口腔中、
		;環形口枷
		ELSEIF COND("開口口枷")
			PRINTFORM 被環形的器具強行打開無法閉合的%CALLNAME:TARGET%的口腔中、
		;眼罩+縄
		ELSEIF TEQUIP:眼罩 && TEQUIP:拘束
			PRINTFORM 全身都被牢牢束縛住的%CALLNAME:TARGET%的口腔中、
		;眼罩有？
		ELSEIF TEQUIP:眼罩
			PRINTFORM 因雙眼被蒙住而更加敏感的%CALLNAME:TARGET%的口腔中、
		;縛ってますか？
		ELSEIF TEQUIP:拘束
			PRINTFORM 因身體動彈不得而顯得緊張不安的%CALLNAME:TARGET%的口腔中、
		;恋慕＋奉仕精神Lv5
		ELSEIF ABL:奉仕精神 >= 5 && TALENT:恋慕 && RAND:2 == 0
			PRINTFORM 把%NAMES("阴茎", PLAYER)%用脸颊的内侧反复摩擦着的%CALLNAME:TARGET%的口腔中、
		ELSE
			PRINTFORM 半跪在胯前的%CALLNAME:TARGET%的口腔中、
		ENDIF
		;直前の調教と汚れで分岐
		IF PREVPLAY("挿入中", PLAYER)
			CALL ADD_TEXT, "性器から口へ"
		ELSEIF PENIS(PLAYER) == 0
		;性交系を直前にしていないなら乱数分岐
		ELSE
			PRINTFORM %TEXTS("阴茎：視覚", PLAYER)%
		ENDIF
		IF PENIS(PLAYER)
			PRINTFORM 陰莖
		ELSE
			PRINTFORM 假陽具
		ENDIF
		IF (ABL:PLAYER:施虐属性 >= 3 || ABL:奉仕精神 >= 5) && RAND:3 == 0
			PRINT 一口気
		ELSEIF ABL:PLAYER:施虐属性 >= 3 || (ABL:奉仕精神 >= 3 && RAND:2 == 0)
			PRINT 以最深處為目標
		ELSE
			PRINT 溫柔緩慢地
		ENDIF
		IF (ABL:PLAYER:施虐属性 >= 3 || ABL:奉仕精神 >= 5) && RAND:3 == 0
			PRINT 刺入其中、
		ELSEIF ABL:奉仕精神 >= 3 && RAND:2 == 0
			PRINT 插入其中、
		ELSE
			PRINT 放入其中、
		ENDIF
		;奉仕精神5かつ恋慕で追加
		SIF ABL:奉仕精神 >= 5 && TALENT:恋慕 && RAND:3 >= 1
			PRINT 被靈巧的舌頭纏繞著舔舐著的同時、
	ENDIF
	;角が有ますか？
	IF COND("角ハンドル")
		PRINT 將角緊緊地抓住
	ELSE
		PRINT 將頭不斷地下壓
	ENDIF
	SIF PREVCOM == 91 && COND("前Ｔ調教者") == PLAYER
		PRINT 、
	IF PREVCOM >= 60 && PREVCOM <= 79 && RAND:3 == 0
		PRINT 用像是在侵犯淫穴一樣的激烈動作
	ELSEIF (ABL:PLAYER:施虐属性 >= 3 || ABL:奉仕精神 >= 3) && RAND:3 == 0
		PRINT 就像是在正常性交一樣
	ENDIF
	IF (ABL:PLAYER:施虐属性 >= 3 || ABL:奉仕精神 >= 5) && RAND:3 == 0
		PRINTFORMW 粗暴地凌辱著口腔的深處……
	ELSEIF ABL:PLAYER:施虐属性 >= 3 || (ABL:奉仕精神 >= 3 && RAND:2 == 0)
		PRINTFORMW 激烈地前後進出著……
	ELSE
		PRINTFORMW 前後动起了腰…
	ENDIF
ENDIF

@EQUIP_COM140
SIF SELECTCOM != 140
	RETURN 0

;いけるようなら喉奥まで
IF CHECK("喉姦")
	TEQUIP:深喉 = PLAYER
	;フラグとTEQUIPが分かれているのは、射精後などにTEQUIP:深喉が０となっている時でも参照するため
	CALL SETFLAG, "深喉フラグ", TARGET
ENDIF

@EQUIP_COM140_2
#DIM MEMO_VOMIT
SIF SELECTCOM != 140
	RETURN 0

;嘔吐イベント
SIF CONFIG("嘔吐発生") == 0 || SIZE("阴茎", PLAYER) == 0
	RETURN 0

MEMO_VOMIT = 0
;吐いてしまった
IF TCVAR:想吐
	;射精が控えてそうなら先送り
	IF COND("絶頂", PLAYER) || COND("要去了", PLAYER)
		NOWEX:嘔吐寸止め = 1
		EX:嘔吐寸止め += 1
	ELSE
		CALL SETFLAG, "強制口交で嘔吐"
	ENDIF
ELSE
	SELECTCASE EXP:喉性交経験
	CASE IS <= 5
		MEMO_VOMIT += 1
	CASE IS <= 20
		SIF RAND:2
			MEMO_VOMIT += 1
	CASEELSE
		SIF RAND:3 == 0
			MEMO_VOMIT += 1
	ENDSELECT
	SIF PREVCOM == SELECTCOM
		MEMO_VOMIT += 1
	SIF PREVPLAY("深喉")
		MEMO_VOMIT += RAND:2
	SIF COND("開口口枷")
		MEMO_VOMIT += RAND:2
ENDIF

SELECTCASE COND("嘔吐確率")
CASE 0
	SIF MEMO_VOMIT
		CALL PRINT_STRL, "青_＜嘔吐感＞"
CASE 1 TO 29
		CALL PRINT_STRL, "青_＜想吐＞"
CASE 30 TO 69
		CALL PRINT_STRL, "青_＜想吐！＞"
CASE IS >= 70
		CALL PRINT_STRL, "青_＜想吐！！＞"
ENDSELECT
BASE:嘔吐感 += MEMO_VOMIT

@COM_ORDER_COM140, ARG
#DIM MEMO_STAIN

VARSET LOCAL
LOCALS =

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

LOCAL = RESULT

IF ABL:奉仕精神
	LOCAL += MIN(ABL:奉仕精神, 10) * 2
	LOCALS = %LOCALS% + 奉仕精神LV{ABL:奉仕精神}({MIN(ABL:奉仕精神, 10) * 2})
ENDIF
IF ABL:受虐属性
	LOCAL += MIN(ABL:受虐属性, 5) * 3
	LOCALS = %LOCALS% + 受虐属性LV{ABL:受虐属性}({MIN(ABL:受虐属性, 5) * 3})
ENDIF
IF ABL:精液中毒
	LOCAL += MIN(ABL:精液中毒, 5) * 3
	LOCALS = %LOCALS% + 精液中毒LV{ABL:精液中毒}({MIN(ABL:精液中毒, 5) * 3})
ENDIF

IF TALENT:害羞
	LOCAL -= 5
	LOCALS = %LOCALS% - 害羞(5)
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 COND("嘔吐確率")
	LOCAL -= 15
	LOCALS = %LOCALS% - 想吐(15)
ENDIF
IF TEQUIP:拘束
	LOCAL += 30
	LOCALS = %LOCALS% + 緊縛中(30)
ENDIF
IF COND("開口口枷")
	LOCAL += 30
	LOCALS = %LOCALS% + 環形口枷(30)
ENDIF

MEMO_STAIN = COM_ORDER_STAIN("Ｐ", "Ｍ")
;施虐狂なら、汚れていても、かまわずに突っ込みます
SIF ABL:PLAYER:施虐属性 >= 3
	MEMO_STAIN /= 3

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

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

RETURN RESULT

license: unknown


code:
@COM141
;拳交
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM141, ARG
CALL FLAG_INSERTION, "Ｖ拳交", ARG, 100
;阴部を露出させる
SIF CHECK_CLO("Ｖ露出") == 0
	CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET

@SOURCE_COM141, ARG
CALL SOURCE_INSERTION, "Ｖ拳交", ARG, 100
CALL SOURCE_SMPLAY, "フィスト", ARG

@TRAIN_MESSAGE_COM141
#DIM FLAG_MESSAGE
#DIM FLAG_MESSAGE2
#DIM SIZE_FIST

IF SELECTCOM == PREVCOM || SELECTCOM == PREVCOM:2
	PRINTFORM %CALLNAME:PLAYER%将
	IF COND("前Ｔ調教者") == PLAYER
		PRINTFORMW 將%CALLNAME:TARGET%的膣道執拗地\@ CHECK_COM("二本フィスト") ? 用兩隻手 # 用握緊的拳頭 \@持續攪拌著……
	ELSE
		IF PLAYER == MASTER
			PRINTFORM %CALLNAME:ASSI%
		ELSE
			PRINTFORM %CALLNAME:MASTER%
		ENDIF
		PRINTFORMW 繼續將%CALLNAME:TARGET%的膣道用握緊的拳頭滋啵滋啵地來回翻攪著……
	ENDIF
	RETURN 1
ENDIF
IF ABL:PLAYER:施虐属性 >= 3 && ABL:Ｖ拡張 >= SIZE("二本フィスト") - 1
	PRINTFORML %CALLNAME:TARGET%那\@ ABL:Ｖ名器度 <= 20 ? 已經開發完成的 # 已經擴張完畢的 \@膣穴、就連兩隻手臂都可以勉強塞進去了。
	PRINTFORML 要怎么做呢？
	PRINTFORML [ 0] 將雙腕塞入
	PRINTFORML [ 1] 用一手享受
	CALL INPUT_SELECT, 2
	SIF RESULT == 0
		CALL SETFLAG, "二本フィスト", PLAYER
ENDIF
IF CHECK_COM("二本フィスト")
	SIZE_FIST = SIZE("二本フィスト", PLAYER)
ELSE
	SIZE_FIST = SIZE("片手フィスト", PLAYER)
ENDIF
;膣の拡張具合の余裕 FLAG_MESSAGE == 3 でぴったり　2以下はかなり厳しい
FLAG_MESSAGE = 3 + ABL:Ｖ拡張 - SIZE_FIST
FLAG_MESSAGE2 = RAND:3

PRINTFORM %CALLNAME:PLAYER%将
;前回肛門拳交
IF PREVCOM == 142 && COND("前Ｔ調教者") == PLAYER
	PRINTFORM 將在%CALLNAME:TARGET%的肛門中用力衝擊的手腕拔出、這一次將
	IF TALENT:処女
		PRINT 被無法再生的薄膜堵住的
	ELSEIF FLAG_MESSAGE >= 4 && RAND:2 == 0
		PRINT 被充分開發過的
	ELSEIF PALAM:Ｖ潤 < 500
		PRINT 還十分乾燥的
	ELSEIF PALAM:Ｖ潤 >= 10000 && CHECK("Ｖ拳交")
		PRINT 垂落著期待的涎水的
	ENDIF
	PRINT 膣穴、
ELSE
	;前回指挿入
	IF PREVCOM == 8 && COND("前Ｔ調教者") == PLAYER
		PRINTFORM 將在%CALLNAME:TARGET%的膣穴中翻攪的手指拔出、將愛液在手上抹開、
	ELSE
		;六九式
		IF TEQUIP:六九式
			PRINTFORM %TEXTS("６９")%
		ELSEIF TEQUIP:拘束
			PRINT 將以雙腿大開的姿態被牢牢拘束著的
		ELSEIF (ABL:受虐属性 >= 3 || (FLAG_MESSAGE >= 2 && ABL:Ｖ感覚 >= 4) ) && FLAG_MESSAGE2
			IF TALENT:好色 + TALENT:淫乱 && FLAG_MESSAGE >= 3 && ABL:Ｖ感覚 >= 3 && RAND:3 == 0
				PRINT 將主動用手指將陰部展開
			ELSEIF ABL:信頼 + ABL:欲望 >= 6 && RAND:3 == 0
				PRINT 將用雙手抱住雙腿、後仰著身體
			ELSEIF RAND:2 == 0
				PRINT 將張開大腿
			ELSE
				PRINT 將腰肢挺起的同時、
			ENDIF
			IF TALENT:淫乱 || FLAG_MESSAGE >= 3
				PRINT 輕聲發起邀請的
			ELSEIF RAND:2 == 0
				PRINT 等待著的
			ELSE
				PRINT 準備著的
			ENDIF
		ENDIF
		PRINTFORM %CALLNAME:TARGET%的
		SIF (ABL:受虐属性 < 3 || FLAG_MESSAGE2 == 0) && TEQUIP:拘束 + TEQUIP:六九式 == 0 && ABL:信頼 + ABL:欲望 < 6
			PRINT 隨著大張著的雙腿被清楚展示出來的、
	ENDIF
	IF TALENT:処女
		PRINT 作為純潔的象徵的處女膜
	ELSE
		IF FLAG_MESSAGE >= 4 && RAND:2 == 0
			PRINT 被充分開發過的
		ELSEIF PALAM:Ｖ潤 < 500
			PRINT 還十分乾燥的
		ELSEIF PALAM:Ｖ潤 >= 10000
			PRINT 被愛液徹底浸濕的
		ENDIF
		PRINT 美麗的膣口
	ENDIF

	;拡張ＬＶがかなりあるなら握り拳ルート
	IF FLAG_MESSAGE >= 4 && RAND:2
		PRINTFORM 用\@ CHECK_COM("二本フィスト") ? 兩隻 # \@緊握的拳頭
		;拳フラグ
		SETBIT TFLAG:地の文分岐, 0
		FLAG_MESSAGE -= 1
	ELSEIF CHECK_COM("二本フィスト")
		PRINTFORM 用合起的手掌
	ELSEIF FLAG_MESSAGE >= 2 && RAND:2 == 0
		PRINTFORM 用併攏的指尖
	ELSE
		PRINTFORM 用彎曲的指節
	ENDIF
	PRINT 輕輕壓住、
ENDIF
IF TALENT:恋慕 && TEQUIP:六九式 == 0 && RAND:3 == 0
	PRINT 在用心醉的眼神注視著恍惚的面孔的同時、
ELSEIF ABL:PLAYER:施虐属性 >= 3 && RAND:3 == 0
	PRINT 用力地
ELSEIF FLAG_MESSAGE >= 4 && RAND:3 == 0
	PRINT 完全沒有感覺到抵抗地
ELSEIF FLAG_MESSAGE >= 3 && RAND:3 == 0
	PRINT 一口気
ELSEIF FLAG_MESSAGE >= 2 && RAND:2 == 0
	PRINT 用力旋轉著的同時、
ELSEIF (FLAG_MESSAGE >= 2 && TFLAG:地の文分岐) || FLAG_MESSAGE <= 2
	PRINT 慎重地
ELSE
	PRINT 溫柔緩慢地
ENDIF
IF FLAG_MESSAGE >= 4 && CHECK_COM("二本フィスト") == 0 && RAND:2
	IF FLAG_MESSAGE >= 7 && RAND:2 == 0
		PRINT 直到手肘的
	ELSEIF FLAG_MESSAGE >= 5 && RAND:2 == 0
		PRINT 直到手腕中部的
	ELSEIF TALENT:娇小 && RAND:2 == 0
		PRINT 連小腹都突起了明顯的形狀的
	ELSE
		PRINT 連下腹部都微微鼓起的
	ENDIF
ELSEIF FLAG_MESSAGE >= 4 || (FLAG_MESSAGE >= 3 && RAND:2)
	IF RAND:2 == 0
		PRINT 直達子宮口的
	ELSE
		PRINT 直達膣道最深處的
	ENDIF
ELSEIF FLAG_MESSAGE <= 2
	PRINT 直到手背的
ELSE
	PRINT 直到手腕的
ENDIF
IF RAND:3 == 0
	PRINT 埋入了
ELSEIF RAND:2 == 0
	PRINT 塞入了
ELSE
	PRINT 挤入
ENDIF
IF TFLAG:地の文分岐 == 0 && FLAG_MESSAGE >= 3 && RAND:2
	PRINTFORMW 、在內部\@ CHECK_COM("二本フィスト") ? 將雙手合攏相互握住了。 # 收回了手指作出了拳型。 \@
	SETBIT TFLAG:地の文分岐, 0
	FLAG_MESSAGE -= 1
ELSE
	PRINTFORMW 。
ENDIF

;1bit膣口、 2bit膣道、3bit膣奥を攻めるイメージ
SETBIT TFLAG:地の文分岐, 1 + RAND:3

IF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 3) && GETBIT(TFLAG:地の文分岐, 3)
	IF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 4) && RAND:3 == 0
		PRINT 毫不留情地
	ELSEIF RAND:2
		PRINT 気勢十足地將
	ELSE
		PRINT 滋啵滋啵地
	ENDIF
	IF FLAG_MESSAGE >= 4 && RAND:2 == 0
		PRINT 最深處
	ELSEIF FLAG_MESSAGE >= 3
		PRINT 子宮
	ELSE
		PRINT 敏感的地方
	ENDIF
	PRINT 敲打著體內的
ELSEIF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 2) && GETBIT(TFLAG:地の文分岐, 1)
	PRINT 滋啵滋啵地
	SIF RAND:2 == 0
		PRINT 激烈地
	PRINT 抽插著的
ELSE
	IF ABL:Ｖ感覚 >= 3 && GETBIT(TFLAG:地の文分岐, 2)
		PRINT 不斷刺激著Ｇ點並
	ELSEIF FLAG_MESSAGE >= 3  && RAND:2 == 0
		PRINT 為了探清內部而
	ELSE
		PRINT 為了擴張內部而
	ENDIF
	PRINT 不斷旋轉著的
ENDIF
IF GETBIT(TFLAG:地の文分岐, 0)
	PRINTFORM \@ CHECK_COM("二本フィスト") ? 相互 # \@緊握的拳、
ELSEIF CHECK_COM("二本フィスト")
	PRINTFORM 雙腕、
ELSEIF FLAG_MESSAGE <= 1
	PRINTFORM 手
ELSE
	SIF RAND:2 && TALENT:PLAYER:男性 && COND("伪娘", PLAYER) == 0
		PRINTFORM \@ RAND:2 ? 男人的 # 粗大的 \@
	PRINTFORM 腕
ENDIF
;膣口描写
IF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 2) && GETBIT(TFLAG:地の文分岐, 1)
	PRINT 讓
;受け入れられる
ELSEIF FLAG_MESSAGE >= 4
	PRINT 使
;まだまだ厳しい
ELSE
	PRINT 讓
ENDIF
;前回肛門拳交ならＡとＶの尺寸比較
IF PREVCOM == 142 && ABL:Ｖ拡張 > ABL:Ａ拡張 && CHOSECOM(SELECTCOM) == 0 && FLAG_MESSAGE >= 4
	IF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 2) && GETBIT(TFLAG:地の文分岐, 1)
		PRINT 連肛門
	ELSE
		IF RAND:2
			PRINT 連后庭
		ELSE
			PRINT 連尻穴
		ENDIF
	ENDIF
	IF ABL:Ｖ拡張 > ABL:Ａ拡張 + 1
		PRINTFORM 與之相比都遠遠不如的、擴張開的
	ELSE
		PRINTFORM 與之相比都難分上下的、柔軟的
	ENDIF
ENDIF
SIF TALENT:娇小 && RAND:3 == 0
	PRINT 幼嫩的
IF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 2) && GETBIT(TFLAG:地の文分岐, 1)
	PRINT 膣口
ELSE
	PRINT 膣穴
ENDIF
IF FLAG_MESSAGE >= 4
	IF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 2) && GETBIT(TFLAG:地の文分岐, 1)
		IF RAND:2 == 0
			PRINT 被誇張地
		ELSE
			PRINT 被驚人地
		ENDIF
		PRINT 張開了。
	ELSE
		IF GETBIT(TFLAG:地の文分岐, 3) && RAND:3 == 0
			PRINT 深深地
		ELSEIF RAND:2 == 0
			PRINT 被柔和地
		ELSE
			PRINT 被享受地
		ENDIF
		PRINT 全部填滿了。
	ENDIF
ELSEIF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 2) && GETBIT(TFLAG:地の文分岐, 1) && RAND:2 == 0
	PRINT 被壓住並捲入內部了。
ELSEIF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 3) && GETBIT(TFLAG:地の文分岐, 3) && RAND:2 == 0
	PRINT 被誇張地張開了。
ELSEIF FLAG_MESSAGE >= 2 || ABL:Ｖ感覚 >= 5 || PALAM:Ｖ潤 >= PALAMLV:4 || RAND:2 == 0
	PRINT 被幾乎要裂開的壓制著張開了。
ELSE
	PRINT 被淒慘的傷害著。
ENDIF
;初めて？
IF FIRSTCOMS("フィスト") == 0
	PRINT 初次體會到的
ELSE
	PRINT 再一次體會到的
ENDIF
;乱数分岐
IF CHECK("Ｖ拳交") && FLAG_MESSAGE >= 4
	PRINT 不可思議的
ELSEIF RAND:2
	PRINT 壓倒性的
ELSE
	PRINT 堪稱暴力的
ENDIF
;Ｖ快感で分岐
IF CHECK("Ｖ拳交") && ABL:Ｖ感覚 >= SIZE_FIST && RAND:3 == 0
	PRINT 快感
ELSEIF FLAG_MESSAGE <= 2 && (RAND:2 || CUP:苦痛 >= 500)
	PRINT 拡張感
ELSE
	PRINT 挿入感
ENDIF
PRINTFORM %CALLNAME:TARGET%
;倒錯的か受虐属性が3以上
IF (ABL:受虐属性  >= SIZE_FIST || TALENT:倒錯的) && SIZE_FIST >= 3 && RAND:2
	IF CHECK("Ｖ拳交")
		PRINTFORM 因自己最重要的地方被\@ ABL:Ｖ拡張 >= 6 && RAND:2 ? 以無法挽回的程度誇張地 # \@擴張而更加興奮、
	ELSE
		PRINTFORM 因自己最重要的地方被\@ ABL:Ｖ名器度 >= 50 && RAND:2 ? 無比粗暴地 # 幾乎要完全弄壞地 \@使用而在心中受虐情節的作用下格外興奮、
	ENDIF
ELSEIF CHECK("Ｖ拳交") && ABL:Ｖ感覚 >= SIZE_FIST && RAND:2
	PRINT 將徹底在快樂中溶化的誘人的呻吟毫不壓抑的宣洩出來的同時、
ELSEIF (ABL:受虐属性 < 3 || FLAG_MESSAGE <= 2) && CHECK("Ｖ拳交") == 0 && RAND:2
	PRINT 因劇烈的痛苦而緊皺眉頭、在眼角浮現淚花的同時、
;自尊心高いか害羞
ELSEIF (TALENT:高慢 || TALENT:害羞) && RAND:3
	PRINT 臉頰因極致的羞恥與恥辱而染得通紅、並
ELSE
	PRINT 誇張地上翻白眼併發出嘶啞的、猶如野獸一樣的痛苦喊聲、並且
ENDIF
PRINTW 激烈地彎曲著身體……


code:
@COM142
;肛門拳交
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM142, ARG
CALL FLAG_INSERTION, "Ａ拳交", ARG, 100
;肛門を露出させる
SIF CHECK_CLO("Ａ露出") == 0
	CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET

@SOURCE_COM142, ARG
CALL SOURCE_INSERTION, "Ａ拳交", ARG, 100
CALL SOURCE_SMPLAY, "フィスト", ARG

@TRAIN_MESSAGE_COM142
#DIM FLAG_MESSAGE
#DIM FLAG_MESSAGE2
#DIM SIZE_FIST

IF CHECK_COM("結腸責め")
	PRINTFORM %CALLNAME:PLAYER%將%CALLNAME:TARGET%的
	IF PREVPLAY("結腸責め")
		PRINTFORM %TEXTR("腹部配合著侵入的異物扭曲凸起的模樣認真的觀察著/腹部借助異物侵入後的凸起、確認著進入的深度/粘膜以不會傷到的程度小心的摩擦著")%的同時、
		PRINTFORMW %TEXTR("為了能被更深的地方吞下、也為了讓身體習慣被侵犯的感覺而/緩慢地增加著力道與速度、/執拗地")%將手腕持續抽插著………
	ELSE
		PRINTFORM 直腸用筆直的手掌開闢著……將Ｓ狀結腸的入口用指尖小心地探索到之後、輕柔而慎重地將手掌鑽入其中……
	ENDIF
	RETURN 1
ELSEIF SELECTCOM == PREVCOM || SELECTCOM == PREVCOM:2
	PRINTFORM %CALLNAME:PLAYER%将
	IF COND("前Ｔ調教者") == PLAYER
		PRINTFORMW 將%CALLNAME:TARGET%的腸内執拗地\@ CHECK_COM("二本フィスト") ? 用兩隻手 # 用握緊的拳頭 \@持續攪拌著……
	ELSE
		IF PLAYER == MASTER
			PRINTFORM %CALLNAME:ASSI%
		ELSE
			PRINTFORM %CALLNAME:MASTER%
		ENDIF
		PRINTFORMW 繼續將%CALLNAME:TARGET%的肛門用握緊的拳頭滋啵滋啵地來回翻攪著……
	ENDIF
	RETURN 1
ENDIF
IF ABL:PLAYER:施虐属性 >= 3 && ABL:Ａ拡張 >= SIZE("二本フィスト") - 1
	PRINTFORML %CALLNAME:TARGET%那\@ ABL:Ａ名器度 <= 20 ? 已經開發完成的 # 已經擴張完畢的 \@肛門、就連兩隻手臂都可以勉強塞進去了。
	PRINTFORML 要怎么做呢？
	PRINTFORML [ 0] 將雙腕塞入
	PRINTFORML [ 1] 用一手享受
	CALL INPUT_SELECT, 2
	SIF RESULT == 0
		CALL SETFLAG, "二本フィスト", PLAYER
ENDIF
;肛門の拡張具合の余裕 FLAG_MESSAGE == 3 でぴったり　2以下はかなり厳しい
IF CHECK_COM("二本フィスト")
	SIZE_FIST = SIZE("二本フィスト", PLAYER)
ELSE
	SIZE_FIST = SIZE("片手フィスト", PLAYER)
ENDIF

FLAG_MESSAGE = 3 + ABL:Ａ拡張 - SIZE_FIST
FLAG_MESSAGE2 = RAND:3

;前回フィスト
IF PREVCOM == 141 && COND("前Ｔ調教者") == PLAYER
	PRINTFORM 將在%CALLNAME:TARGET%的膣道中激烈侵犯的手腕拔出、這一次將
	IF FLAG_MESSAGE >= 4 && RAND:2 == 0
		PRINT 十分柔軟的
	ELSEIF PALAM:欲情 >= 10000 && CHECK("Ａ拳交")
		PRINT 因興奮而嫵媚的張合著的
	ENDIF
	PRINT 肛門
ELSE
	;前回Ａ愛撫
	IF PREVCOM == 2 && COND("前Ｔ調教者") == PLAYER
		PRINTFORM 將在%CALLNAME:TARGET%的尻穴中翻攪的手指拔出、
	ELSE
		;六九式
		IF TEQUIP:六九式
			PRINTFORM %TEXTS("６９")%
		ELSEIF TEQUIP:拘束
			PRINT 將以雙腿大開的姿態被牢牢拘束著的
		ELSEIF (ABL:受虐属性 >= 3 || (FLAG_MESSAGE >= 2 && ABL:Ａ感覚 >= 4) ) && FLAG_MESSAGE2
			IF TALENT:好色 + TALENT:淫乱 && FLAG_MESSAGE >= 3 && ABL:Ａ感覚 >= 3 && RAND:3 == 0
				PRINT 將主動用手指將尻部展開
			ELSEIF ABL:信頼 + ABL:欲望 >= 6 && RAND:3 == 0
				PRINT 將用雙手抱住雙腿、後仰著身體
			ELSEIF RAND:2 == 0
				PRINT 將張開大腿
			ELSE
				PRINT 將腰肢挺起的同時、
			ENDIF
			IF TALENT:淫乱 || FLAG_MESSAGE >= 3
				PRINT 輕聲發起邀請的
			ELSEIF RAND:2 == 0
				PRINT 等待著的
			ELSE
				PRINT 準備著的
			ENDIF
		ENDIF
		PRINTFORM %CALLNAME:TARGET%的
		SIF (ABL:受虐属性 < 3 || FLAG_MESSAGE2 == 0) && TEQUIP:拘束 + TEQUIP:六九式 == 0 && (ABL:信頼 + ABL:欲望 < 6)
			PRINT 隨著大張著的雙腿被清楚展示出來的、
	ENDIF
	IF FLAG_MESSAGE >= 4 && RAND:2 == 0
		PRINT 被充分開發過的
	ELSE
		PRINTFORM %TEXTS("肛門")%
	ENDIF
	PRINT 肛門
	;拡張ＬＶがかなりあるなら握り拳ルートも。
	IF FLAG_MESSAGE >= 4 && RAND:4 == 0
		PRINTFORM 用\@ CHECK_COM("二本フィスト") ? 兩隻 # \@緊握的拳頭
		;拳フラグ
		SETBIT TFLAG:地の文分岐, 0
		FLAG_MESSAGE -= 1
	ELSEIF CHECK_COM("二本フィスト")
		PRINTFORM 用合起的手掌
	ELSEIF FLAG_MESSAGE >= 2 && RAND:2 == 0
		PRINTFORM 用併攏的指尖
	ELSE
		PRINTFORM 用彎曲的指節
	ENDIF
	PRINT 輕輕壓住、
ENDIF
;恋慕で分岐
IF TALENT:恋慕 && TEQUIP:六九式 == 0 && RAND:3 == 0
	PRINT 在用心醉的眼神注視著恍惚的面孔的同時、
ELSEIF ABL:PLAYER:施虐属性 >= 3 && RAND:3 == 0
	PRINT 用力地
ELSEIF FLAG_MESSAGE >= 4 && RAND:3 == 0
	PRINT 完全沒有感覺到抵抗地
ELSEIF FLAG_MESSAGE >= 3 && RAND:3 == 0
	PRINT 一口気
ELSEIF FLAG_MESSAGE >= 2 && RAND:2 == 0
	PRINT 用力旋轉著的同時、
ELSEIF (FLAG_MESSAGE >= 2 && TFLAG:地の文分岐) || FLAG_MESSAGE <= 2
	PRINT 慎重地
ELSE
	PRINT 溫柔緩慢地
ENDIF
;TFLAG:地の文分岐 1bit入り口周辺、2bit直腸、3bit結腸より深くを攻めるイメージ
IF FLAG_MESSAGE >= 4 && CHECK_COM("二本フィスト") == 0 && (RAND:2 || EXP:結腸経験 == 0)
	IF FLAG_MESSAGE >= 6 && RAND:3
		PRINT 將整隻手深深地吞下、直達肩膀的
	ELSEIF FLAG_MESSAGE >= 5 && RAND:3
		PRINT 直達結腸的最深處、只露出手肘後半的
	ELSEIF FLAG_MESSAGE >= 4 && RAND:3
		PRINT 直到手腕中部的
	ELSE
		PRINT 直達Ｓ字結腸的入口的
	ENDIF
	;結腸責めをしているならフラグをセット
	CALL SETFLAG, "結腸責め", TARGET
	SETBIT TFLAG:地の文分岐, 3
	FLAG_MESSAGE -= 1
ELSEIF FLAG_MESSAGE >= 4 || (FLAG_MESSAGE >= 3 && RAND:2)
	IF FLAG_MESSAGE == 3 && RAND:2
		PRINT 直達直腸的一半的
	ELSE
		PRINT 直達直腸的盡頭的
	ENDIF
	SETBIT TFLAG:地の文分岐, 2
ELSE
	IF FLAG_MESSAGE <= 2
		PRINT 直到手背的
	ELSE
		PRINT 直到手腕的
	ENDIF
	SETBIT TFLAG:地の文分岐, 1
ENDIF
IF RAND:3 == 0
	PRINT 埋入了
ELSEIF RAND:2 == 0
	PRINT 塞入了
ELSE
	PRINT 挤入
ENDIF
IF TFLAG:地の文分岐 == 0 && FLAG_MESSAGE >= 3 && RAND:2
	PRINTFORMW 、在內部\@ CHECK_COM("二本フィスト") ? 將雙手合攏相互握住了。 # 收回了手指作出了拳型。 \@
	SETBIT TFLAG:地の文分岐, 0
	FLAG_MESSAGE -= 1
ELSE
	PRINTFORMW 。
ENDIF

IF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 4) && GETBIT(TFLAG:地の文分岐, 3)
	IF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 4) && RAND:3 == 0
		PRINT 毫不留情地
	ELSEIF RAND:2
		PRINT 気勢十足地將
	ELSE
		PRINT 滋啵滋啵地
	ENDIF
	PRINT 體內敲打著的
ELSEIF ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 2
	PRINT 滋啵滋啵地
	SIF RAND:2 == 0
		PRINT 激烈地
	PRINT 抽插著的
ELSE
	IF ABL:Ａ感覚 >= 3 && GETBIT(TFLAG:地の文分岐, 1)
		PRINT 不斷將入口週邊的敏感粘膜刺激著並
	ELSEIF FLAG_MESSAGE >= 3  && RAND:2 == 0
		PRINT 為了探清內部而
	ELSE
		PRINT 為了擴張內部而
	ENDIF
	PRINT 不斷旋轉著的
ENDIF
IF GETBIT(TFLAG:地の文分岐, 0)
	PRINTFORM \@ CHECK_COM("二本フィスト") ? 相互 # \@緊握的拳、
ELSEIF CHECK_COM("二本フィスト")
	PRINTFORM 雙腕、
ELSEIF FLAG_MESSAGE <= 1
	PRINTFORM 手
ELSE
	SIF RAND:2 && TALENT:PLAYER:男性 && COND("伪娘", PLAYER) == 0
		PRINTFORM \@ RAND:2 ? 男人的 # 粗大的 \@
	PRINTFORM 腕
ENDIF
;肛門描写
IF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 2) && GETBIT(TFLAG:地の文分岐, 1)
	PRINT 讓
;受け入れられる
ELSEIF FLAG_MESSAGE >= 4
	PRINT 使
;まだまだ厳しい
ELSE
	PRINT 讓
ENDIF
;前回フィストならＡとＶの尺寸比較
IF PREVCOM == 141 && ABL:Ａ拡張 > ABL:Ｖ拡張 && CHOSECOM(SELECTCOM) == 0 && FLAG_MESSAGE >= 4
	IF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 2) && GETBIT(TFLAG:地の文分岐, 1)
		PRINT 連膣口
	ELSE
		IF RAND:2
			PRINT 連雌穴
		ELSE
			PRINT 連膣道
		ENDIF
	ENDIF
	IF ABL:Ａ拡張 > ABL:Ｖ拡張 + 1
		PRINTFORM 與之相比都遠遠不如的、擴張開的
	ELSE
		PRINTFORM 與之相比都難分上下的、充分鍛鍊的
	ENDIF
ENDIF
IF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 2) && GETBIT(TFLAG:地の文分岐, 1)
	PRINT 尻穴
ELSE
	PRINT 肛門
ENDIF
IF FLAG_MESSAGE >= 4
	IF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 2) && GETBIT(TFLAG:地の文分岐, 1)
		IF RAND:2 == 0
			PRINT 被誇張地
		ELSE
			PRINT 被驚人地
		ENDIF
		PRINT 張開了。
	ELSE
		IF GETBIT(TFLAG:地の文分岐, 3) && RAND:3 == 0
			PRINT 深深地
		ELSEIF RAND:2 == 0
			PRINT 被柔和地
		ELSE
			PRINT 被享受地
		ENDIF
		PRINT 全部填滿了。
	ENDIF
ELSEIF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 2) && GETBIT(TFLAG:地の文分岐, 1) && RAND:2 == 0
	PRINT 被壓住並捲入內部了。
ELSEIF (ABL:PLAYER:施虐属性 >= 3 || FLAG_MESSAGE >= 3) && GETBIT(TFLAG:地の文分岐, 3) && RAND:2 == 0
	PRINT 被誇張地張開了。
ELSEIF FLAG_MESSAGE >= 2 || ABL:Ａ感覚 >= 5 || PALAM:Ａ潤 >= PALAMLV:4 || RAND:2 == 0
	PRINT 被幾乎要裂開的壓制著張開了。
ELSE
	PRINT 被淒慘的傷害著。
ENDIF
;初めて？
IF FIRSTCOMS("フィスト") == 0
	PRINT 初次體會到的
ELSE
	PRINT 再一次體會到的
ENDIF
;乱数分岐
IF CHECK("Ａ拳交") && FLAG_MESSAGE >= 4
	PRINT 不可思議的
ELSEIF RAND:2
	PRINT 壓倒性的
ELSE
	PRINT 堪稱暴力的
ENDIF
;Ｖ快感で分岐
IF CHECK("Ａ拳交") && ABL:Ａ感覚 >= SIZE_FIST && RAND:3 == 0
	PRINT 快感
ELSEIF GETBIT(TFLAG:地の文分岐, 3) && RAND:2
	PRINT 深入感
ELSEIF FLAG_MESSAGE <= 2 && (RAND:2 || CUP:苦痛 >= 500)
	PRINT 拡張感
ELSE
	PRINT 挿入感
ENDIF
PRINTFORM %CALLNAME:TARGET%
;倒錯的か受虐属性が3以上
IF (ABL:受虐属性 >= SIZE_FIST || TALENT:倒錯的) && SIZE_FIST >= 3 && RAND:2
	IF FLAG_MESSAGE >= 3 || CHECK("Ａ拳交")
		IF ABL:Ａ感覚 >= 3 && RAND:2
			PRINT 因不淨的場所化作性器被激烈地侵犯而更加興奮、
		ELSE
			PRINT 因排泄器官被充分地開發而格外興奮的同時、
		ENDIF
	ELSE
		PRINT 因自己的排泄器官被淒慘的摧殘而在心中受虐情節的作用下愈加興奮、
	ENDIF
ELSEIF CHECK("Ａ拳交") && ABL:Ａ感覚 >= SIZE_FIST && RAND:2
	PRINT 將徹底在快樂中溶化的誘人的呻吟毫不壓抑的宣洩出來的同時、
ELSEIF (ABL:受虐属性 < 3 || FLAG_MESSAGE <= 2) && CHECK("Ａ拳交") == 0 && RAND:2
	PRINT 因劇烈的痛苦而緊皺眉頭、在眼角浮現淚花的同時、
;自尊心高いか害羞
ELSEIF (TALENT:高慢 || TALENT:害羞) && RAND:3
	PRINT 臉頰因極致的羞恥與恥辱而染得通紅、並
ELSE
	PRINT 誇張地上翻白眼併發出嘶啞的、猶如野獸一樣的痛苦喊聲、並且
ENDIF
PRINTW 激烈地彎曲著身體……


code:
@COM143
;両穴拳交
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM143, ARG
CALL FLAG_COM141, 50
CALL FLAG_COM142, 50

@SOURCE_COM143, ARG
CALL SOURCE_COM141, 50
CALL SOURCE_COM142, 50
CALL SOURCE_SMPLAY, "Ｗフィスト", ARG

@TRAIN_MESSAGE_COM143
PRINTFORMW %CALLNAME:TARGET%的膣道和肛門被%CALLNAME:PLAYER%用手腕粗暴的翻攪著……


code:
@COM144
;放尿
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

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

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM144, ARG
;尿的污垢発生
STAIN:Ｖ = SET_STAIN(STAIN:Ｖ, "尿")
IF CHECK_CLO("Ｖ露出") == 0
	SIF EQUIP:胖次
		STAIN:胖次 = SET_STAIN(STAIN:胖次, "尿")
	SIF EQUIP:外套
		STAIN:外套 = SET_STAIN(STAIN:外套, "尿")
	SIF EQUIP:贴身制服
		STAIN:贴身制服ボトム = SET_STAIN(STAIN:贴身制服ボトム, "尿")
ENDIF
SIF TEQUIP:推倒
	STAIN:PLAYER:Ｍ = SET_STAIN(STAIN:PLAYER:Ｍ, "尿")

;利尿剤の効果は消失
TEQUIP:利尿剤 = 0
;主动放尿したので、最後まで出し切ります
BASE:尿意 = 0
IF NOWEX:放尿 == 0
	NOWEX:放尿 += 1
	EX:放尿 += 1
ENDIF

@SOURCE_COM144, ARG
CALL SOURCE_SMPLAY, "放尿", ARG

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 144

;顔面放尿PLAYの時には好きでやってるのでペナは少ない
IF TEQUIP:推倒
	SOURCE:0:達成感 = 1000 + ABL:施虐属性*500
	SOURCE:0:不潔 = 500
	SOURCE:0:情愛 = 1000 + (ABL:露出癖 + ABL:施虐属性)*200
	SOURCE:0:露出 = 3000
	SOURCE:0:逸脱 = 1000
ELSE
	IF CHECK_COM("強制放尿")
		SOURCE:0:達成感 = 3000
		SOURCE:0:不潔 = 1000
		SOURCE:0:露出 = 5000
		SOURCE:0:逸脱 = 3000
	ELSE
		SOURCE:0:達成感 = 3000
		SOURCE:0:不潔 = 1000
		SOURCE:0:露出 = 3000
		SOURCE:0:逸脱 = 1000
	ENDIF
	SOURCE:0:屈従 = 3000

	;ABL:受虐属性をみる
	SELECTCASE ABL:受虐属性
	CASE 0
		TIMES SOURCE:0:情愛, 0.80
		TIMES SOURCE:0:露出, 0.80
	CASE 1
		TIMES SOURCE:0:情愛, 1.00
		TIMES SOURCE:0:露出, 1.00
	CASE 2
		TIMES SOURCE:0:情愛, 1.30
		TIMES SOURCE:0:露出, 1.20
	CASE 3
		TIMES SOURCE:0:情愛, 1.40
		TIMES SOURCE:0:露出, 1.40
	CASE 4
		TIMES SOURCE:0:情愛, 1.70
		TIMES SOURCE:0:露出, 1.50
	CASEELSE
		TIMES SOURCE:0:情愛, 2.00
		TIMES SOURCE:0:露出, 1.70
	ENDSELECT
	SIF TALENT:高慢
		TIMES SOURCE:0:逸脱, 2.00
ENDIF

;PALAM:欲情をみる
SELECTCASE PALAM:欲情
CASE IS < PALAMLV:1
	TIMES SOURCE:0:逸脱, 1.50
CASE IS < PALAMLV:2
	TIMES SOURCE:0:逸脱, 1.00
CASE IS < PALAMLV:3
	TIMES SOURCE:0:逸脱, 0.90
CASE IS < PALAMLV:4
	TIMES SOURCE:0:逸脱, 0.70
CASE IS >= PALAMLV:4
	TIMES SOURCE:0:逸脱, 0.50
ENDSELECT

;場所をみる
IF TEQUIP:室内露出PLAY || TEQUIP:野外PLAY
	TIMES SOURCE:0:逸脱, 2.50
	TIMES SOURCE:0:露出, 1.50
ELSEIF TEQUIP:浴室PLAY
	TIMES SOURCE:0:逸脱, 0.50
ENDIF

SELECTCASE EXP:放尿経験 + EXP:漏尿経験
CASE IS < EXPLV:1
	TIMES SOURCE:0:逸脱, 3.00
CASE IS < EXPLV:2
	TIMES SOURCE:0:逸脱, 2.50
	TIMES SOURCE:0:不潔, 0.70
CASE IS < EXPLV:3
	TIMES SOURCE:0:逸脱, 2.00
	TIMES SOURCE:0:不潔, 0.50
CASE IS < EXPLV:4
	TIMES SOURCE:0:逸脱, 1.00
	TIMES SOURCE:0:不潔, 0.20
CASE IS < EXPLV:5
	TIMES SOURCE:0:逸脱, 0.80
	TIMES SOURCE:0:不潔, 0.05
CASEELSE
	TIMES SOURCE:0:逸脱, 0.60
	TIMES SOURCE:0:不潔, 0.00
ENDSELECT

SIF TALENT:謙虚
	TIMES SOURCE:0:逸脱, 0.50
SIF TALENT:害羞
	TIMES SOURCE:0:逸脱, 3.50
SIF TALENT:不知羞恥
	TIMES SOURCE:0:逸脱, 0.50

IF COND("マーキングフラグ")
	TIMES SOURCE:0:露出, 1.20
	TIMES SOURCE:0:屈従, 1.20
	TIMES SOURCE:0:逸脱, 1.20
ENDIF

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

@TRAIN_MESSAGE_COM144
;顔面放尿PLAYの時には好きでやってるのでペナは少ない
IF TEQUIP:推倒
	PRINTFORM %CALLNAME:TARGET%
	IF CHECK_CLO("Ｖ露出")
		PRINTFORMW 跨坐在臉頰上的姿勢保持著、抓住%CALLNAME:PLAYER%的頭讓口腔準確的對準自己的尿道、隨後毫無顧忌的放鬆了括約肌、
	ELSEIF TALENT:倒錯的 && ABL:露出癖 >= 3 && RAND:3 == 0
		PRINTFORMW 跨坐在臉頰上的姿勢保持著、連%CLO("股間")%也不挪開、就那樣開始小便了、
	ELSEIF CHECK_OUTER("休闲褲")
		PRINTFORMW %OUTER(TARGET, "略")%脫下後、跨坐在%CALLNAME:PLAYER%的臉頰上、將微微張開的口腔當做目標開始小便、
		CALL SETFLAG, "ボトムを脱がす", TARGET
	ELSE
		PRINTFORMW %CALLNAME:PLAYER%的腦袋按住、微微抬起腰肢、讓自己的陰部暴露出來、將微微張開的口腔當做目標開始小便、
		SIF CHECK_CLO("Ｖ露出") == 0
			CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
	ENDIF
	IF CHECK_CLO("Ｖ露出")
		PRINTFORM %CALLNAME:PLAYER%的口腔被大量的灌注了溫暖的濁黃\@ EXP_GAIN("膀胱精液経験") ? 混雜著白濁的 # \@液体、整個口腔在眨眼之間就被灌滿、
		IF CHECK("口内放尿", PLAYER)
			PRINTFORMW 在鳴響著咽喉將尿液飲下的時候、濃烈的氨臭味就會從咽喉反芻至鼻腔、最後將腦海填滿、支配……
		ELSE
			PRINTFORMW 即使拼命地嘗試去吞嚥、但終究無法消除心中的強烈厭惡感。沒能被完全嚥下去的尿液從嘴角與鼻腔中溢出來了……
		ENDIF
		CALL SETFLAG, "飲尿", PLAYER
	ELSE
		PRINTFORMW 越過布料溢出的溫暖液體漸漸在%CALLNAME:PLAYER%的臉頰上蔓延、讓%CALLNAME:PLAYER%不由得閉上了眼睛……
	ENDIF
	RETURN 1
ENDIF

;胖次をずらすかどうか
IF CHECK_CLO("Ｖ露出") == 0
	LOCAL = 0
	IF INSERT("挿入") == 0 && ABL:PLAYER:施虐属性
		PRINTFORML 如果要穿著衣服小便的話也許會太過激了……
		PRINTFORML 要怎么做呢？
		PRINTFORML [ 0] 將\@ PENIS(TARGET) ? 陰莖 # 陰部 \@露出后放尿
		PRINTFORML [ 1] 就這樣穿著衣服放尿
		CALL INPUT_SELECT, 2
		LOCAL = RESULT
	ENDIF
	IF LOCAL == 0
		CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
		;休闲褲などのときはこっち
		SIF CHECK_CLO("Ｖ露出") == 0
			CALL SETFLAG, "ボトムを脱がす", TARGET
	ENDIF
ENDIF

IF CHECK_COM("強制放尿")
	;挿入中
	IF INSERT("挿入")
		PRINTFORM %CALLNAME:PLAYER%在%CALLNAME:TARGET%
		IF INSERT("Ｖ挿入")
			PRINT 的膣道不斷衝擊著的同時、
		ELSE
			PRINT 的肛門不斷開闢著的同時、
		ENDIF
		PRINTFORMW 尿道口執拗地揉搓著、
		PRINTFORMW %CALLNAME:TARGET%實在無法忍耐、將尿液噗呲噗呲的迸射出來了……
		IF CHECK_CLO("Ｖ露出") && INSERT("屈曲位")
			PRINTFORMW 因為身體保持著被翻倒的姿勢、濁黃的飛沫從腹部一直流淌到臉頰上了……
			STAIN:Ｂ = SET_STAIN(STAIN:Ｂ, "尿")
		ENDIF
	;拘束中
	ELSEIF TEQUIP:拘束
		PRINTFORM %CALLNAME:PLAYER%将
		IF CHECK_CLO("Ｖ露出") == 0
			PRINTFORMW %CLO("股間")%内側的%CALLNAME:TARGET%的尿道口著重的刺激著、
		ELSEIF RAND:2 == 0
			PRINTFORMW %CALLNAME:TARGET%的陰部展開、將顫抖著的尿道口用指尖愛撫著、
		ELSE
			PRINTFORMW %CALLNAME:TARGET%的尿道口著重的刺激著、
		ENDIF
		;手、足
		IF GETBIT(TEQUIP:拘束, 20) && GETBIT(TEQUIP:拘束, 21)
			SIF GETBIT(TEQUIP:拘束, 22)
				PRINTFORM 身體被牢牢禁錮住、動彈不得的
			PRINTFORMW %CALLNAME:TARGET%無法遮掩住自己的下體、在%CALLNAME:PLAYER%的凝視中尿失禁了……
		;足だけ
		ELSEIF GETBIT(TEQUIP:拘束, 21)
			PRINTFORM 無法合上雙腿的%CALLNAME:TARGET%將股間用雙手遮掩著、但是、
			IF CHECK_CLO("Ｖ露出")
				PRINTFORMW 從手指的縫隙之中可以清楚地看見、那濁黃色的液體正淅瀝瀝的流淌著……
			ELSE
				PRINTFORMW 浸透布料然後蔓延開來的渾濁尿液、以激烈地氣勢沾滿了整個下半身……
			ENDIF
		;手だけ
		ELSE
			PRINTFORM %CALLNAME:TARGET%
			SIF TALENT:娇小 && TALENT:貧乳
				PRINT 小小的
			PRINTFORMW 的不斷顫抖、從體內迸射出尿液了……
		ENDIF
	ELSEIF CHECK_CLO("Ｖ露出") == 0
		PRINTFORMW %CALLNAME:PLAYER%將拼命忍耐著尿意的%CALLNAME:TARGET%的尿道口隔著布料執拗地刺激著、強制性地讓她排尿、
		PRINTFORMW 迸射的尿液無法被%CLO("股間")%遮擋、讓%CALLNAME:TARGET%的整個下半身沾滿了濁黃的尿液……
	;野外or室内
	ELSEIF TEQUIP:室内露出PLAY || TEQUIP:野外PLAY
		PRINTFORML %CALLNAME:PLAYER%將%CALLNAME:TARGET%的一隻腳高高舉起、用另一隻手去挑逗揉搓著尿道口、
		PRINTFORMW %CALLNAME:TARGET%難以忍耐、在極致的羞恥中、就像一隻雌犬一樣顫抖著迸射出尿液……
	ELSEIF RAND:3 == 0
		PRINTFORML %CALLNAME:PLAYER%將%CALLNAME:TARGET%的性器用嘴含住、用舌尖不斷挑逗著尿道口、
		PRINTFORMW 察覺到%CALLNAME:TARGET%已經無法忍耐之後、%CALLNAME:PLAYER%快速的鬆開嘴、拉開距離、平靜地觀賞著從股間流下的濁黃水流……
	ELSEIF RAND:2 == 0
		PRINTFORML %CALLNAME:PLAYER%將%CALLNAME:TARGET%的腿彎用手肘夾住、將尿道口用指尖輕微的揉搓、摩擦著、
		PRINTFORM %CALLNAME:TARGET%
		SIF TALENT:娇小 && TALENT:貧乳
			PRINT 小小的
		PRINTFORMW 的不斷顫抖、從體內迸射出尿液了……
	ELSE
		IF RAND:2 == 0
			PRINTFORML %CALLNAME:PLAYER%將%CALLNAME:TARGET%的尿道口用指尖不斷地刺激著、
			PRINTFORMW %CALLNAME:TARGET%無法忍耐地迸射出尿液……
		ELSEIF COND("人里")
			PRINTFORMW 被隱秘地玩弄著尿道口的%CALLNAME:TARGET%因羞恥、屈辱與隱約的快樂而浮現出淚珠的同時、在無人的小巷中倚靠著牆壁蹲下、開始小便了……
		ELSEIF COND("森林") || COND("花園")
			PRINTFORMW 被隱秘地玩弄著尿道口的%CALLNAME:TARGET%因羞恥、屈辱與隱約的快樂而浮現出淚珠的同時、在隱秘的茂密草叢中半蹲下來、開始小便了……
		ELSEIF COND("水辺")
			PRINTFORMW 被隱秘地玩弄著尿道口的%CALLNAME:TARGET%因羞恥、屈辱與隱約的快樂而浮現出淚珠的同時、在人煙稀少的礁岩之後、趁著海浪的拍打聲迸射出尿液……
		ELSE
			PRINTFORMW %CALLNAME:TARGET%因羞恥與快樂而染紅了臉頰、在被帶到隱秘之處後、就地蹲下、迫不及待的開始小便……
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;挿入中
IF INSERT("挿入")
	PRINTFORM %CALLNAME:TARGET%在被%CALLNAME:PLAYER%將\@ INSERT("Ａ挿入") ? 肛門 # \@激烈地侵犯著的同時、
	IF CHECK_CLO("Ｖ露出") && INSERT("屈曲位")
		PRINTFORMW 隨著猛烈地衝擊而被強硬地推上頂峰、在神志恍惚的同時迸射出尿液……
		IF ABL:受虐属性 >= 3 && TALENT:倒錯的 && PALAM:欲情 >= 30000 && EXP_GAIN("放尿経験") == 0
			PRINTFORMW 身體保持著將整個下體高高舉起的、令人害羞的姿勢、因激烈地調教而欲亂情迷的%CALLNAME:TARGET%完全沒有躲避的意思、反而大張著嘴將自己的尿液一飲而盡……
			STAIN:Ｍ = SET_STAIN(STAIN:Ｍ, "尿")
		ELSE
			PRINTFORMW 因為身體保持著被翻倒的姿勢、以激烈氣勢迸發的濁黃飛沫從腹部一直流淌到臉頰上了……
		ENDIF
		STAIN:Ｂ = SET_STAIN(STAIN:Ｂ, "尿")
	ELSEIF CHECK_CLO("Ｖ露出") && INSERT("背面座位") && COND("脚の使用")
		PRINTFORMW 雙腿以M字開腿的姿勢被大大張開、痙攣著的尿道口隨著又一次猛烈地撞擊放鬆下來、從體內迸射出尿液……
		TFLAG:地の文分岐 = 2
	ELSE
		PRINTFORMW 隨著猛烈地衝擊而被強硬地推上頂峰、在神志恍惚的同時迸射出尿液……
	ENDIF
ELSEIF CHECK_CLO("Ｖ露出") == 0
	PRINTFORMW %CALLNAME:TARGET%在接到%CALLNAME:PLAYER%的命令後、就滿臉潮紅的開始小便了、
	PRINTFORMW 迸射的尿液無法被%CLO("股間")%遮擋、讓%CALLNAME:TARGET%的整個下半身沾滿了濁黃的尿液……
;拘束中
ELSEIF TEQUIP:拘束
	;手、足
	IF GETBIT(TEQUIP:拘束, 20) && GETBIT(TEQUIP:拘束, 21)
		PRINTFORMW 被牢牢禁錮住的%CALLNAME:TARGET%在接到%CALLNAME:PLAYER%的命令之後、順從地開始小便了……
	;足だけ
	ELSEIF GETBIT(TEQUIP:拘束, 21)
		PRINTFORM %CALLNAME:TARGET%
		IF PENIS(TARGET)
			PRINTFORMW 在接到%CALLNAME:PLAYER%的命令之後、順從地開始小便了……
		ELSE
			PRINTFORMW 將陰部用手指展開、讓淅瀝瀝地流出濁黃液體的尿道口被清楚地暴露出來……
		ENDIF
	;手だけ
	ELSE
		PRINTFORMW 雙手無法自由行動的%CALLNAME:TARGET%保持著雙腿M字展開的姿勢、開始小便了……
	ENDIF
ELSE
	IF (ABL:PLAYER:施虐属性 >= 3 || ABL:受虐属性 >= 3) && (TEQUIP:室内露出PLAY || TEQUIP:野外PLAY)
		PRINTFORML 要試著命令%CALLNAME:TARGET%像是野獸一樣在這裡留下氣味標記嗎？
		PRINTFORML [ 0] 是
		PRINTFORML [ 1] 否
		CALL INPUT_SELECT, 2
		SIF RESULT == 0
			CALL SETFLAG, "マーキングフラグ", TARGET
	ENDIF
	;マーキング
	IF COND("マーキングフラグ")
		PRINTFORM %CALLNAME:TARGET%
		SIF COND("脚の使用")
			PRINTFORM %TEXTR("保持著四肢著地的姿勢將大腿舉起、/用像是雌犬一樣的淫猥姿勢")%
		IF COND("人里")
			PRINTFORMW 在%TEXTR("民家的牆角/樹木的根部/石柱的根部")%用尿液留下了自己的氣味……
		ELSEIF TEQUIP:野外PLAY
			PRINTFORMW 在樹木的根部用尿液留下了自己的氣味……
		ELSE
			PRINTFORMW 在%TEXTR("走廊的拐角/走廊的牆角/附近的門前")%用尿液留下了自己的氣味……
		ENDIF
	;前回くぱぁ
	ELSEIF PREVCOM == 13
		PRINTFORMW %CALLNAME:TARGET%面向著%CALLNAME:PLAYER%、保持著將陰部用力展開的羞恥姿勢開始小便了……
		TFLAG:地の文分岐 = 3
	ELSEIF RAND:3 && ABL:信頼 + ABL:欲望 + ABL:露出癖 + ABL:受虐属性 >= 14
		PRINTFORMW %CALLNAME:TARGET%在接到命令後露出了意亂情迷的笑容、像是在向%CALLNAME:PLAYER%展示一樣的小便了……
		TFLAG:地の文分岐 = 1
	ELSEIF PENIS(TARGET) == 0 && (RAND:2 || ABL:露出癖 >= 3 || ABL:奉仕精神 >= 3)
		PRINTFORM %CALLNAME:TARGET%將陰部用手指展開、連痙攣著迸射出尿液的尿道也一併暴露著的
		SIF EXP:放尿経験 >= 10 && COND("脚の使用") && RAND:3 == 0
			PRINTFORM 已經習慣的姿態
		PRINTFORMW 開始小便了……
		TFLAG:地の文分岐 = 3
	ELSEIF COND("人里")
		PRINTFORMW 被隱秘地玩弄著尿道口的%CALLNAME:TARGET%因羞恥、屈辱與隱約的快樂而浮現出淚珠的同時、在無人的小巷中倚靠著牆壁蹲下、開始小便了……
	ELSEIF COND("森林") || COND("花園")
		PRINTFORMW 被隱秘地玩弄著尿道口的%CALLNAME:TARGET%因羞恥、屈辱與隱約的快樂而浮現出淚珠的同時、在隱秘的茂密草叢中半蹲下來、開始小便了……
	ELSEIF COND("水辺") || COND("海")
		PRINTFORMW 被隱秘地玩弄著尿道口的%CALLNAME:TARGET%因羞恥、屈辱與隱約的快樂而浮現出淚珠的同時、在人煙稀少的礁岩之後、趁著海浪的拍打聲迸射出尿液……
	ELSE
		PRINTFORMW %CALLNAME:TARGET%因羞恥與快樂而染紅了臉頰、在被帶到隱秘之處後、就地蹲下、迫不及待的開始小便……
	ENDIF
ENDIF

@COM_ORDER_COM144, ARG
VARSET LOCAL
LOCALS =

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

LOCAL = RESULT

IF ABL:露出癖
	LOCAL += MIN(ABL:露出癖, 10) * 2
	LOCALS = %LOCALS% + 露出癖LV{ABL:露出癖}({MIN(ABL:露出癖, 10) * 2})
ENDIF
IF TEQUIP:推倒
	IF ABL:施虐属性
		LOCAL += MIN(ABL:施虐属性, 5) * 3
		LOCALS = %LOCALS% + 施虐属性LV{ABL:施虐属性}({MIN(ABL:施虐属性, 5) * 3})
	ENDIF
ELSE
	IF ABL:受虐属性
		LOCAL += MIN(ABL:受虐属性, 5) * 3
		LOCALS = %LOCALS% + 受虐属性LV{ABL:受虐属性}({MIN(ABL:受虐属性, 5) * 3})
	ENDIF
ENDIF
IF ABL:受虐属性 == 0
	LOCAL -= 20
	LOCALS = %LOCALS% - 受虐属性没有(20)
ENDIF
;冷静
IF TALENT:冷静
	LOCAL -= 5
	LOCALS = %LOCALS% - 冷静(5)
ENDIF
;害羞
IF TALENT:害羞
	LOCAL -= 15
	LOCALS = %LOCALS% - 害羞(15)
ENDIF
;不知羞恥
IF TALENT:不知羞恥
	LOCAL += 2
	LOCALS = %LOCALS% + 不知羞恥(2)
ENDIF
;清楚
IF TALENT:清楚
	LOCAL -= 10
	LOCALS = %LOCALS% - 清楚(10)
ENDIF
;接受快感
IF TALENT:接受快感
	LOCAL += 5
	LOCALS = %LOCALS% + 接受快感(5)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 5
	LOCALS = %LOCALS% - 否定快感(5)
ENDIF
;倒錯的
IF TALENT:倒錯的
	LOCAL += 10
	LOCALS = %LOCALS% + 倒錯的(10)
ENDIF

;媚薬
IF TEQUIP:媚薬
	LOCAL += 2
	LOCALS = %LOCALS% + 媚薬(2)
ENDIF
;利尿剤
IF TEQUIP:利尿剤
	LOCAL += 20
	LOCALS = %LOCALS% + 利尿剤(20)
ENDIF
;视频拍摄
IF TEQUIP:攝像機
	LOCAL -= 20
	LOCALS = %LOCALS% - 撮影中(20)
ENDIF
IF TEQUIP:浴室PLAY == 0
	LOCAL -= 30
	LOCALS = %LOCALS% - 非浴室(30)
ENDIF
;野外or室内露出
IF TEQUIP:野外PLAY
	LOCAL -= 10
	LOCALS = %LOCALS% - 野外PLAY(10)
ELSEIF TEQUIP:室内露出PLAY
	LOCAL -= 10
	LOCALS = %LOCALS% - 室内露出(10)
ENDIF

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

RETURN RESULT


code:
@COM145
;剃毛
;露出癖や受虐狂度が高い場合、かなり興奮する
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

;実行できない
SIF TCVAR:干劲 == 0
	RETURN 0
;-------------------------------------------------
;実行決定
;-------------------------------------------------
SIF TEQUIP:拘束
	TCVAR:干劲 = MAX(TCVAR:干劲 - 30, 0)

CALL TRAIN_MESSAGE_B

;どのように剃ったか
SELECTCASE TFLAG:地の文分岐
CASE 1
	BASE:陰毛 = 300
CASE 2
	BASE:陰毛 = 200
CASE 3
	BASE:陰毛 = 500
ENDSELECT

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM145, ARG
CALL SETFLAG, "剃毛フラグ", TARGET
;対象のＶ⇔調教者の指的污垢が移動
CALL EQ_STAIN, TARGET, "Ｖ", PLAYER, "手"
;阴部を露出させる
CALL SET_BODYS, ""
CALL SET_OUTER, ""
CALL SET_SKIRT, ""
SIF CHECK_PANTIES("開放型開洞") == 0
	CALL SET_PANTIES, ""

@SOURCE_COM145, ARG
CALL SOURCE_SMPLAY, "剃毛", ARG

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 145

SOURCE:0:露出 = 6000
SOURCE:0:屈従 = 1000
SOURCE:0:逸脱 = 1000

;縛って强行剃ると…
SIF TEQUIP:拘束 && TCVAR:干劲 <= 0
	SOURCE:0:逸脱 += 3000

SELECTCASE COND("陰毛")
CASE 3
	SOURCE:0:露出 += 4000
	SOURCE:0:屈従 += 1000
	SOURCE:0:逸脱 += 1000
CASE 2
	SOURCE:0:露出 += 6000
	SOURCE:0:屈従 += 1500
	SOURCE:0:逸脱 += 2000
ENDSELECT

;ABL:露出癖と受虐属性をみる
SELECTCASE (ABL:露出癖 + 1)/2 + ABL:受虐属性
CASE IS >= 9
	SOURCE:0:充足 += 5000
	TIMES SOURCE:0:屈従, 0.30
CASE IS >= 7
	SOURCE:0:充足 += 3000
	TIMES SOURCE:0:屈従, 0.60
CASE IS >= 5
	SOURCE:0:充足 += 1000
	TIMES SOURCE:0:屈従, 0.70
CASE IS >= 3

CASE 1
	TIMES SOURCE:0:屈従, 1.20
CASEELSE
	TIMES SOURCE:0:屈従, 1.50
ENDSELECT

;视频拍摄、室内露出、野外PLAYは経験等にプラス
IF TEQUIP:攝像機
	TIMES SOURCE:0:露出, 1.50
	TIMES SOURCE:0:屈従, 1.50
	TIMES SOURCE:0:逸脱, 1.50
ENDIF
IF TEQUIP:室内露出PLAY || TEQUIP:野外PLAY
	TIMES SOURCE:0:露出, 1.50
	TIMES SOURCE:0:屈従, 1.50
	TIMES SOURCE:0:逸脱, 1.50
ENDIF

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

@TRAIN_MESSAGE_COM145
;陰毛描写
#DIMS NAME_BUSH

SELECTCASE CONDS("陰毛")
CASE "随意生長"
	IF TALENT:男性
		NAME_BUSH = %TEXTR("全く手入れのされていない/モサモサの")%陰毛
	ELSE
		NAME_BUSH = %TEXTR("完全沒有做過任何修剪的/將整個陰唇都覆蓋遮掩住的/經常被液體浸泡而殘留了異味的")%陰毛
	ENDIF
CASE "剃过留痕"
	NAME_BUSH = 留有剃痕的陰毛
CASE "还没長出来"
	NAME_BUSH = 稍稍茂密的
CASEELSE
	IF PENIS(TARGET)
		NAME_BUSH = 陰毛
	ELSE
		NAME_BUSH = 陰部毛髮
	ENDIF
ENDSELECT
IF PREVCOM == 13
	PRINTFORM %CALLNAME:PLAYER%將面前重要的秘處慢慢展開、將\@ CHECK("陰毛管理") ? 等待處理的 # 被清楚暴露著的 \@
;緊縛中
ELSEIF GETBIT(TEQUIP:拘束, 21)
	PRINTFORM 將保持著大張著股間的姿勢
	IF BIND("縄", TEQUIP:拘束)
		PRINT 被粗繩捆綁著的
	ELSE
		PRINT 被束具拘束住的
	ENDIF
ELSEIF CHECK("陰毛管理") && COND("脚が無い") == 0
	PRINTFORM 將乖順的大張著股間準備好的
ENDIF
PRINTFORMW %CALLNAME:TARGET%的股間的毛髮修剪一下吧。
PRINTFORML 所以、現在的狀態是[%CONDS("陰毛")%]……現在、該怎麼做？

PRINTL  [ 0] 整個的剔個精光吧！
PRINTL  [ 1] 乾脆做一次脫毛處理吧！
IF COND("陰毛") >= 6 && COND("陰毛年齢") >= 2
	PRINTL  [ 2] 將陰毛的形態修整一下就好了吧。
ELSEIF COND("剃过留痕露出")
	PRINTL  [ 2] 剃过留痕のみを綺麗に処理する
ENDIF
PRINTL [100] 不、再考慮一下吧。

$INPUT_LOOP
INPUT

TFLAG:地の文分岐 = RESULT + 1

IF RESULT == 100
	TFLAG:指令中止 = 1
	RETURN 0
ELSEIF RESULT == 0 || RESULT == 1
	IF PENIS(TARGET)
		PRINTFORM %CALLNAME:PLAYER%將%CALLNAME:TARGET%的%NAME_BUSH%
		IF TFLAG:地の文分岐 == 2
			PRINTFORMW \@ABL:PLAYER:技巧 >= 4 ? 仔細地 #  \@脫去毛髮……
		ELSE
			PRINTFORMW \@ABL:PLAYER:技巧 >= 4 ? 漂亮地 #  \@剃除了陰毛……
		ENDIF
	ELSE
		PRINTFORM %CALLNAME:PLAYER%將%CALLNAME:TARGET%的%NAME_BUSH%
		IF TFLAG:地の文分岐 == 2
			PRINTFORM \@ABL:PLAYER:技巧 >= 4 ? 仔細地 #  \@脫去毛髮、
		ELSE
			PRINTFORM \@ABL:PLAYER:技巧 >= 4 ? 漂亮地 # 精心地 \@剃除了陰毛、
		ENDIF
		IF TALENT:陰蒂環 + TALENT:陰唇環 && COND("陰毛") >= 6 && RAND:3 == 0
			IF TALENT:害羞 && RAND:3 == 0
				PRINT 令人害羞的
			ELSEIF RAND:3 == 0
				IF TALENT:陰蒂環 && RANDIF(1, TALENT:陰唇環)
					IF PENIS(TARGET)
						PRINT 将怒挺的陰莖装飾著的
					ELSE
						PRINT 將勃起的陰蒂穿透而過的
					ENDIF
				ELSE
					PRINT 將饱满的陰唇
					IF AGE(TARGET) >= 4
						PRINT 向下拉扯著暴露出內部的
					ELSE
						PRINT 装飾著的
					ENDIF
				ENDIF
			ELSEIF RAND:2
				PRINT 安装在通常來說不可能的地方的
			ELSE
				PRINT 閃爍淫靡光澤的
			ENDIF
			PRINTFORMW 金属穿环被清楚地观赏着……
		ELSEIF TALENT:害羞 && COND("陰毛") >= 6 && COND("脚が無い") == 0 && RAND:3 == 0
			PRINTFORMW 只是稍稍地張開雙腿、令人害羞的部分就會一目了然地暴露出來……
		ELSEIF RAND:2 || COND("陰毛") < 6
			IF RAND:2
				IF AGE(TARGET) <= 2
					PRINT 現在、她的股間就像是剝殼雞蛋一樣
				ELSE
					PRINT 現在、她的股間就像是初生幼童一様
				ENDIF
				PRINTFORMW 光滑了……
			ELSE
				IF TALENT:娇小
					PRINT 現在、她的股間是與嬌小身體十分相稱的
				ELSEIF AGE(TARGET) >= 4
					PRINT 現在、她的股間是與成熟性器呈現出反差感、更加令人興奮的
				ELSE
					PRINT 現在、她的股間是能更好地展現出女體優美曲線的
				ENDIF
				PRINTFORMW 光溜溜的樣子……
			ENDIF
		ELSE
			IF AGE(TARGET) >= 4
				IF EXP:Ｖ経験 >= 1000
					PRINT 外部因長期的使用而變得肥美的陰唇与
				ELSEIF EXP:Ｖ経験 >= 300
					PRINT 外部稍稍突出的美麗陰唇以及
				ELSE
					PRINT 柔軟而具有彈性的
				ENDIF
			ELSEIF TALENT:娇小 && RAND:3
				PRINT 隨著呼吸而微微顫抖著的
			ELSE
				PRINT 可愛的
			ENDIF
			PRINTFORMW 秘裂被格外清楚的觀賞著……
		ENDIF
		IF TALENT:大力士 && AGE(TARGET) >= 2 && COND("脚が無い") == 0
			PRINTFORM 同時進入視野的、是
			IF RAND:2
				PRINTFORM 緊繃而富含彈性的
			ELSE
				PRINTFORM 隨著呼吸而微微顫抖著柔軟肉體的
			ENDIF
			IF RAND:2
				PRINTFORM 小腹
			ELSE
				PRINTFORM 大腿
			ENDIF
			PRINTFORM 兩者形成了美麗的相乘效應、
			IF RAND:2
				PRINTFORMW 在凝視著極美的風景時、不禁讓人深陷其中、無法拔出目光……
			ELSE
				PRINTFORMW 讓人會在不知不覺之時、魯莽地去觸摸的誘人魅力、外溢而出……
			ENDIF
		ENDIF
	ENDIF
ELSEIF RESULT == 2
	IF COND("陰毛") >= 6 && COND("陰毛年齢") >= 2
		;陰毛の状態重置
		CALL DEL_CEVENT_GROUP, "陰毛の名称"
		IF PENIS(TARGET)
			PRINTFORMW %CALLNAME:PLAYER%將%CALLNAME:TARGET%的%NAME_BUSH%的形態\@ABL:PLAYER:技巧 >= 4 ? 嫻熟而利落的 #  \@修整了……
		ELSE
			CALL SET_PUBIC_HAIR, TARGET
			PRINTFORMW %CALLNAME:PLAYER%は%CALLNAME:TARGET%の%NAME_BUSH%をしっかり剃り落とし、恥丘を飾る陰毛の形を\@ CEVENT("陰毛の名称") ? %CEVENTS("陰毛の名称")% # 綺麗 \@に剃り整えた…
		ENDIF
	ELSEIF COND("剃过留痕露出")
		BASE:陰毛 = 500
		PRINTFORMW %CALLNAME:PLAYER%は%CALLNAME:TARGET%の陰毛の形を綺麗に剃り整えた…
	ELSE
		GOTO INPUT_LOOP
	ENDIF
ELSE
	GOTO INPUT_LOOP
ENDIF
CFLAG:剃毛者 = BASE:PLAYER:識別番号

SIF COND("腋毛") < 4
	RETURN 1
PRINTL
PRINTFORML 说起来関于%CALLNAME:TARGET%的腋毛已经是[%CONDS("腋毛")%]的了……要顺手剃掉吗？
CALL PRINT_SELECT, "剃得精光/进行脱毛処理/就这样放置着不管"
SELECTCASE RESULT
CASE 0
	BASE:腋毛 = 300
	PRINTFORMW 因为被要求让%CALLNAME:PLAYER%来处理、%CALLNAME:TARGET%的腋毛变成了[%CONDS("腋毛")%]的样子
CASE 1
	BASE:腋毛 = 200
	PRINTFORMW 因为被要求让%CALLNAME:PLAYER%来处理、%CALLNAME:TARGET%的腋毛变成了[%CONDS("腋毛")%]的样子
CASEELSE
	PRINTFORMW 腋毛就这样放任不管了
ENDSELECT

@SET_PUBIC_HAIR, ARG
#DIMS TEXT_TABLE
#DIM CHOICE
SIF ARG == 0 && TARGET > 0
	ARG = TARGET

BASE:ARG:陰毛 = 500

SIF ARG == MASTER
	PRINTFORM 陰毛をお手入れする際に、

$INPUT_LOOP

PRINTFORML どのような形にしますか？
SELECTCASE COND("陰毛年齢", ARG)
CASE 2
	TEXT_TABLE = 小三角形/長方形/心型
CASEELSE
	TEXT_TABLE = 小三角形/逆三角形/卵型/四角形/長方形/心型
ENDSELECT

VARSET LOCALS
SPLIT TEXT_TABLE, "/", LOCALS
CALL PRINT_SELECT, TEXT_TABLE

CHOICE = RESULT

CALL SET_CEVENT, @"陰毛の名称：%LOCALS:CHOICE%", ARG

CALL PRINT_CUTIN, "すじ", ARG
PRINTFORML ……剃り整えた予想図はこんな感じだが、これで良いだろうか？
CALL PRINT_SELECT, "ＯＫ！/重新选择"
CHOICE = RESULT

IF CHOICE
	CALL DEL_CEVENT_GROUP, "陰毛の名称", ARG
	GOTO INPUT_LOOP
ENDIF

SIF ARG == MASTER
	PRINTFORMW 恥丘を飾る陰毛を%CEVENTS("陰毛の名称", ARG)%に剃り整えました

@COM_ORDER_COM145, ARG
VARSET LOCAL
LOCALS =

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

LOCAL = RESULT

SELECTCASE TALENT:有男朋友
CASE 2
	LOCAL -= 30
	LOCALS = %LOCALS% - %TALENT_NAME(GETNUM(TALENT, "有男朋友"), TALENT:有男朋友)%(30)
CASE 1
	LOCAL -= 15
	LOCALS = %LOCALS% - %TALENT_NAME(GETNUM(TALENT, "有男朋友"), TALENT:有男朋友)%(15)
ENDSELECT

;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 TALENT:害羞
	LOCAL -= 15
	LOCALS = %LOCALS% - 害羞(15)
ENDIF
;不知羞恥
IF TALENT:不知羞恥
	LOCAL += 5
	LOCALS = %LOCALS% + 不知羞恥(5)
ENDIF
;倒錯的
IF TALENT:倒錯的
	LOCAL += 10
	LOCALS = %LOCALS% + 倒錯的(10)
ENDIF
;縄
IF TEQUIP:拘束
	LOCAL += 30
	LOCALS = %LOCALS% + 拘束中(30)
ENDIF
;视频拍摄
IF TEQUIP:攝像機
	LOCAL -= 20
	LOCALS = %LOCALS% - 撮影中(20)
ENDIF

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

RETURN RESULT


code:
@COM146
;身嗜管理
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

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

SIF REFUSE_CHECK()
	RETURN 0

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

CALL SETFLAG, "今回指令"

RETURN 0

@TRAIN_MESSAGE_COM146
CALL SET_MIDASHINAMI

@SET_MIDASHINAMI, ARG
#DIM MEMO_LINECOUNT
#DIM MEMO_FLAG
#DIM MEMO_PRE, 20
#DIM MEMO, 20

SIF ARG < 0
	RETURN 0
SIF ARG == 0 && TARGET
	ARG = TARGET

REDRAW 0

VARSET MEMO, 100

MEMO_FLAG = CFLAG:ARG:身嗜み
;MARK:屈服刻印で判定する
MEMO_PRE:0 = COND("身嗜み：陰毛", ARG)
MEMO_PRE:1 = COND("身嗜み：腋毛", ARG)
MEMO_PRE:2 = COND("身嗜み：Ｖ拡張", ARG)
MEMO_PRE:3 = COND("身嗜み：Ａ拡張", ARG)
MEMO_PRE:4 = COND("身嗜み：Ａ準備", ARG)
MEMO_PRE:5 = COND("身嗜み：Ｐ準備", ARG)
MEMO_PRE:6 = COND("身嗜み：Ｖ準備", ARG)
MEMO_PRE:7 = COND("身嗜み：服装", ARG)
MEMO_PRE:8 = COND("身嗜み：尿道拡張", ARG)
MEMO_PRE:9 = COND("身嗜み：性行為の制限", ARG)
MEMO_PRE:10 = COND("身嗜み：性欲の管理", ARG)

$START

TFLAG:地の文分岐 = 0

IF ARG != MASTER
	PRINTL
	PRINTFORML 對%CALLNAME:ARG%平日裡的儀容與身體狀況發起請求。
	IF COND("調教中", ARG)
		PRINTFORML ※注：這個指令在每一次的性行為中只能選擇一次。
		;PRINTFORML 出したい指示を全部出してから終了してあげましょう
	ENDIF
ENDIF
PRINTL

IF CONFIG("陰毛") && COND("陰毛", ARG) >= 2
	IF ARG == MASTER || MARK:ARG:屈服刻印 >= 1
		PRINTFORM  [ 0] %TEXT_RJ("陰毛の状態", 20)%：
		SETCOLOR DEF_COLOR("暗黄色")
		MEMO:0 = 0
	ELSE
		SETCOLOR DEF_COLOR("灰色")
		PRINTFORM  [×] %TEXT_RJ("陰毛の状態", 20)%：
	ENDIF
	SELECTCASE COND("身嗜み：陰毛", ARG)
	CASE 0
		SIF MEMO:0 == 0
			RESETCOLOR
		PRINTFORM \@ ARG == MASTER ? 沒有特別介意 # 無指示 \@
	CASE 3
		PRINTFORM 保持光滑
	CASE 5
		PRINTFORM 保持整齊
	CASE 7
		PRINTFORM \@ ARG == MASTER ? 保持散亂 # 禁止剃除 \@
	ENDSELECT
	SIF GETCOLOR() == DEF_COLOR("灰色")
		PRINTFORM （要:屈服刻印１LV）
	PRINTL
	RESETCOLOR
ENDIF

IF CONFIG("腋毛") && COND("腋毛", ARG) >= 2
	IF ARG == MASTER || MARK:ARG:屈服刻印 >= 1
		PRINTFORM  [ 1] 　　　　　%TEXTS("腋")%毛状態：
		SETCOLOR DEF_COLOR("暗黄色")
		MEMO:1 = 1
	ELSE
		SETCOLOR DEF_COLOR("灰色")
		PRINTFORM  [×] 　　　　　%TEXTS("腋")%毛状態：
	ENDIF
	SELECTCASE COND("身嗜み：腋毛", ARG)
	CASE 0
		SIF MEMO:1 == 1
			RESETCOLOR
		PRINTFORM \@ ARG == MASTER ? 沒有特別介意 # 無指示 \@
	CASE 3
		PRINTFORM 保持光滑
	CASE 7
		PRINTFORM \@ ARG == MASTER ? 保持散亂 # 禁止剃除 \@
	ENDSELECT
	SIF GETCOLOR() == DEF_COLOR("灰色")
		PRINTFORM （要:屈服刻印１LV）
	PRINTL
	RESETCOLOR
ENDIF

IF TALENT:ARG:男性 == 0
	IF ARG == MASTER || (ABL:ARG:Ｖ拡張 >= 1 && MARK:ARG:屈服刻印 >= 2)
		PRINTFORM  [ 2] %TEXT_RJ("常時Ｖ振動棒挿入", 20)%：
		SETCOLOR DEF_COLOR("暗黄色")
		MEMO:2 = 2
	ELSE
		SETCOLOR DEF_COLOR("灰色")
		PRINTFORM  [×] %TEXT_RJ("常時Ｖ振動棒挿入", 20)%：
	ENDIF
	SELECTCASE COND("身嗜み：Ｖ拡張", ARG)
	CASE 0
		SIF MEMO:2 == 2
			RESETCOLOR
		PRINTFORM \@ ARG == MASTER ? 不進行 # 無指示 \@
	CASE 1
		PRINTFORM 普通
	CASE 2
		PRINTFORM 較大
	CASE 3
		PRINTFORM 極大
	CASE 4
		PRINTFORM 超極大
	ENDSELECT
	SIF GETCOLOR() == DEF_COLOR("灰色")
		PRINTFORM （要:屈服刻印２LV＆Ｖ拡張１LV）
	PRINTL
	RESETCOLOR
ENDIF

IF ARG == MASTER || (ABL:ARG:Ａ拡張 >= 1 && MARK:ARG:屈服刻印 >= 3)
	PRINTFORM  [ 3] %TEXT_RJ("常時Ａ肛塞挿入", 20)%：
	SETCOLOR DEF_COLOR("暗黄色")
	MEMO:3 = 3
ELSE
	SETCOLOR DEF_COLOR("灰色")
	PRINTFORM  [×] %TEXT_RJ("常時Ａ肛塞挿入", 20)%：
ENDIF
SELECTCASE COND("身嗜み：Ａ拡張", ARG)
CASE 0
	SIF MEMO:3 == 3
		RESETCOLOR
	PRINTFORM \@ ARG == MASTER ? 不進行 # 無指示 \@
CASE 1
	PRINTFORM 普通
CASE 2
	PRINTFORM 較大
CASE 3
	PRINTFORM 極大
CASE 4
	PRINTFORM 超極大
ENDSELECT
SIF GETCOLOR() == DEF_COLOR("灰色")
	PRINTFORM （要:屈服刻印３LV＆Ａ拡張１LV）
PRINTL
RESETCOLOR

IF ARG == MASTER || (MARK:ARG:屈服刻印 >= 3 && (COND("Ａ熟達") || CONDS("調教知識", ARG) == "Ａ調教知識") )
	PRINTFORM  [ 4] %TEXT_RJ("肛門PLAY準備", 20)%：
	SETCOLOR DEF_COLOR("暗黄色")
	MEMO:4 = 4
ELSE
	SETCOLOR DEF_COLOR("灰色")
	PRINTFORM  [×] %TEXT_RJ("肛門PLAY準備", 20)%：
ENDIF
SELECTCASE COND("身嗜み：Ａ準備", ARG)
CASE 0
	SIF MEMO:4 == 4
		RESETCOLOR
	PRINTFORM \@ ARG == MASTER ? 不進行 # 無指示 \@
CASE 1
	PRINTFORM 調教前洗浄
CASE 2
	PRINTFORM 潤滑液
CASE 3
	PRINTFORM 調教前洗浄＆润滑液
ENDSELECT
SIF GETCOLOR() == DEF_COLOR("灰色")
	PRINTFORM （要:屈服刻印３LVに加えて、[Ａ熟達]or[Ａ調教知識]）
PRINTL
RESETCOLOR

IF PENIS(ARG) && COND("真性包茎", ARG) == 0
	IF ARG == MASTER || MARK:ARG:屈服刻印 >= 1
		PRINTFORM  [ 5] %TEXT_RJ("阴茎状態", 20)%：
		SETCOLOR DEF_COLOR("暗黄色")
		MEMO:5 = 5
	ELSE
		SETCOLOR DEF_COLOR("灰色")
		PRINTFORM  [×] %TEXT_RJ("阴茎状態", 20)%：
	ENDIF

	SELECTCASE COND("身嗜み：Ｐ準備", ARG)
	CASE 0
		SIF MEMO:5 == 5
			RESETCOLOR
		PRINTFORM \@ ARG == MASTER ? 沒有特別介意 # 無指示 \@
	CASE 1
		PRINTFORM \@ ARG == MASTER ? 有意識的保持污穢 # 保留污垢 \@
	ENDSELECT
	SIF GETCOLOR() == DEF_COLOR("灰色")
		PRINTFORM （要:屈服刻印１LV）
	PRINTL
	RESETCOLOR
ENDIF

IF TALENT:ARG:男性 == 0
	IF ARG == MASTER || MARK:ARG:屈服刻印 >= 2
		PRINTFORM  [ 6] %TEXT_RJ("阴部状態", 20)%：
		SETCOLOR DEF_COLOR("暗黄色")
		MEMO:6 = 6
	ELSE
		SETCOLOR DEF_COLOR("灰色")
		PRINTFORM  [×] %TEXT_RJ("阴部状態", 20)%：
	ENDIF

	SELECTCASE COND("身嗜み：Ｖ準備", ARG)
	CASE 0
		SIF MEMO:6 == 6
			RESETCOLOR
		PRINTFORM \@ ARG == MASTER ? 沒有特別介意 # 無指示 \@
	CASE 1
		PRINTFORM \@ ARG == MASTER ? 有意識的保持污穢 # 保留污垢 \@
	ENDSELECT
	SIF GETCOLOR() == DEF_COLOR("灰色")
		PRINTFORM （要:屈服刻印２LV）
	PRINTL
	RESETCOLOR
ENDIF

;ちんこ有る場合には胖次是た方が良いと思う
IF PENIS(ARG) == 0
	IF ARG == MASTER || MARK:ARG:屈服刻印 >= 2
		PRINTFORM  [ 7] %TEXT_RJ("服装", 20)%：
		SETCOLOR DEF_COLOR("暗黄色")
		MEMO:7 = 7

	ELSE
		SETCOLOR DEF_COLOR("灰色")
		PRINTFORM  [×] %TEXT_RJ("服装", 20)%：
	ENDIF

	SELECTCASE COND("身嗜み：服装", ARG)
	CASE 0
		SIF MEMO:7 == 7
			RESETCOLOR
		PRINTFORM \@ ARG == MASTER ? 沒有特別介意 # 無指示 \@
	CASE 1
		PRINTFORM \@ ARG == MASTER ? No胖次主義 # 胖次着用禁止 \@
	ENDSELECT
	SIF GETCOLOR() == DEF_COLOR("灰色")
		PRINTFORM （要:屈服刻印２LV）
	PRINTL
	RESETCOLOR
ENDIF

;尿道の拡張が進んでいるなら自分にもやらせる事が可能
IF ARG == MASTER || (MARK:ARG:屈服刻印 >= 2 && ABL:ARG:尿道拡張 >= 0)
	PRINTFORM  [ 8] %TEXT_RJ("常時尿道塞挿入", 20)%：
	SETCOLOR DEF_COLOR("暗黄色")
	MEMO:8 = 8
ELSE
	SETCOLOR DEF_COLOR("灰色")
	PRINTFORM  [×] %TEXT_RJ("常時尿道塞挿入", 20)%：
ENDIF

SELECTCASE COND("身嗜み：尿道拡張", ARG)
CASE 0
	SIF MEMO:8 == 8
		RESETCOLOR
	PRINTFORM \@ ARG == MASTER ? 不進行 # 無指示 \@
CASE 1
	PRINTFORM 藥指粗細
CASE 2
	PRINTFORM 平均陰莖粗細
CASE 3
	PRINTFORM 較大
CASE 4
	PRINTFORM 極大
CASE 5
	PRINTFORM 超極大
ENDSELECT
SIF GETCOLOR() == DEF_COLOR("灰色")
	PRINTFORM （要:屈服刻印２LV＆尿道拡張０LV）
PRINTL
RESETCOLOR

;性交の制限をさせる
IF ARG != MASTER
	IF MARK:ARG:屈服刻印 >= 3
		PRINTFORM  [ 9] %TEXT_RJ("性行為制限", 20)%：
		SETCOLOR DEF_COLOR("暗黄色")
		MEMO:9 = 9
	ELSE
		SETCOLOR DEF_COLOR("灰色")
		PRINTFORM  [×] %TEXT_RJ("性行為制限", 20)%：
	ENDIF

	SELECTCASE COND("身嗜み：性行為の制限", ARG)
	CASE 0
		SIF MEMO:9 == 9
			RESETCOLOR
		PRINTFORM 無指示
	CASE 1
		PRINTFORM 前面的淫穴被使用的性行為、禁止
	CASE 2
		PRINTFORM 肛門被使用的性行為、禁止
	CASE 3
		PRINTFORM 口腔被使用的侍奉、禁止
	CASE 4
		PRINTFORM %CALLNAME:MASTER%以外的人的接吻、禁止
	CASE 5
		PRINTFORM 阴茎被使用的性行為、禁止
	CASE 100
		PRINTFORM %CALLNAME:TARGET%是%CALLNAME:MASTER%専用的
	CASEELSE
		VARSET LOCALS
		LOCALS = %LOCALS%\@ COND("身嗜み：Ｖ独占", ARG) ? 阴部和 # \@
		LOCALS = %LOCALS%\@ COND("身嗜み：Ａ独占", ARG) ? 肛門和 # \@
		LOCALS = %LOCALS%\@ COND("身嗜み：口独占", ARG) ? 口腔奉仕和 # \@
		LOCALS = %LOCALS%\@ COND("身嗜み：接吻独占", ARG) ? 接吻和 # \@
		LOCALS = %LOCALS%\@ COND("身嗜み：Ｐ独占", ARG) ? 肉棒和 # \@
		PRINTFORM 使用%SUBSTRING(LOCALS, 0, STRLENS(LOCALS) - 2)%的行為、禁止
	ENDSELECT
	SIF GETCOLOR() == DEF_COLOR("灰色")
		PRINTFORM （要:屈服刻印３LV）
	PRINTL
	RESETCOLOR
ENDIF

;性欲の管理…なのだが今のところ自慰のみなので分かりやすく表記
IF ARG != MASTER
	IF MARK:ARG:屈服刻印 >= 2
		;PRINTFORM  [10] %TEXT_RJ("性欲の管理", 20)%：
		PRINTFORM  [10] %TEXT_RJ("自慰制限", 20)%：
		SETCOLOR DEF_COLOR("暗黄色")
		MEMO:10 = 10
	ELSE
		SETCOLOR DEF_COLOR("灰色")
		;PRINTFORM  [10] %TEXT_RJ("性欲の管理", 20)%：
		PRINTFORM  [×] %TEXT_RJ("自慰制限", 20)%：
	ENDIF

	SELECTCASE COND("身嗜み：性欲の管理", ARG)
	CASE 0
		SIF MEMO:10 == 10
			RESETCOLOR
		PRINTFORM 無指示
	CASE 1
		PRINTFORM 自慰禁止
	ENDSELECT
	SIF GETCOLOR() == DEF_COLOR("灰色")
		PRINTFORM （要:屈服刻印２LV）
	PRINTL
	RESETCOLOR
ENDIF

IF ARG == MASTER
	PRINTFORML [100] \@ MEMO_FLAG != CFLAG:ARG:身嗜み ? 到此為止 # 終止\@
ELSE
	PRINTFORML [100] \@ MEMO_FLAG != CFLAG:ARG:身嗜み ? 指示変更終了 # 終止\@
ENDIF

$INPUT_LOOP

CALL INPUT_SELECT, 11, 100

SELECTCASE RESULT
CASE 100
	SIF MEMO_FLAG == CFLAG:ARG:身嗜み
		TFLAG:指令中止 = 1
	REDRAW 1
	RETURN 0
CASEELSE
	SIF RESULT != MEMO:RESULT
		GOTO INPUT_LOOP

	SELECTCASE RESULT
	CASE 0
		CALL SELECT_MIDASHINAMI, "身嗜み：陰毛", ARG, MEMO_PRE:0
	CASE 1
		CALL SELECT_MIDASHINAMI, "身嗜み：腋毛", ARG, MEMO_PRE:1
	CASE 2
		CALL SELECT_MIDASHINAMI, "身嗜み：Ｖ拡張", ARG, MEMO_PRE:2
	CASE 3
		CALL SELECT_MIDASHINAMI, "身嗜み：Ａ拡張", ARG, MEMO_PRE:3
	CASE 4
		CALL SELECT_MIDASHINAMI, "身嗜み：Ａ準備", ARG, MEMO_PRE:4
	CASE 5
		CALL SELECT_MIDASHINAMI, "身嗜み：Ｐ準備", ARG, MEMO_PRE:5
	CASE 6
		CALL SELECT_MIDASHINAMI, "身嗜み：Ｖ準備", ARG, MEMO_PRE:6
	CASE 7
		CALL SELECT_MIDASHINAMI, "身嗜み：服装", ARG, MEMO_PRE:7
	CASE 8
		CALL SELECT_MIDASHINAMI, "身嗜み：尿道拡張", ARG, MEMO_PRE:8
	CASE 9
		CALL SELECT_MIDASHINAMI, "身嗜み：性行為の制限", ARG, MEMO_PRE:9
	CASE 10
		CALL SELECT_MIDASHINAMI, "身嗜み：性欲の管理", ARG, MEMO_PRE:10
	ENDSELECT
ENDSELECT

IF TFLAG:地の文分岐 && ARG == TARGET
	MEMO_LINECOUNT = LINECOUNT

	CALL KOJO_MESSAGE_COM

	SIF LINECOUNT > MEMO_LINECOUNT
		PRINTL
ENDIF

GOTO START

@SELECT_MIDASHINAMI, ARGS, ARG, ARG:1
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

PRINTL

SELECTCASE ARGS
CASE "身嗜み：陰毛"
	PRINTFORML  [ 0] \@ COND(ARGS, ARG) == 0 ? ○ # － \@ \@ ARG == MASTER ? 沒有特別介意 # 無指示 \@
	PRINTFORML  [ 1] \@ COND(ARGS, ARG) == 3 ? ○ # － \@ \@ ARG == MASTER ? 通常保持光洁 # 要求對方保持著光潔 \@
	PRINTFORML  [ 2] \@ COND(ARGS, ARG) == 5 ? ○ # － \@ \@ ARG == MASTER ? 持續漂亮的修整著 # 要求對方持續漂亮的修整著 \@
	PRINTFORML  [ 3] \@ COND(ARGS, ARG) == 7 ? ○ # － \@ \@ ARG == MASTER ? 保持著散亂的模樣 # 禁止對方剃除陰毛 \@
	PRINTFORML [100] \@ COND(ARGS, ARG) == ARG:1 ? 放棄變更指令 # 保持原樣 \@

	CALL INPUT_SELECT, 4, 100

	SELECTCASE RESULT
	CASE 100
		IF LOCALS != "" && COND(ARGS, ARG) != ARG:1 && ARG != MASTER
			TFLAG:地の文分岐 = 1
			CALL PRINT_STRW, LOCALS
		ENDIF
		VARSET LOCALS
		RETURN 0
	CASEELSE
		VARSET LOCALS
		CFLAG:ARG:身嗜み = CLEARBITS(CFLAG:ARG:身嗜み, 1, 5)
		SIF RESULT
			SETBIT CFLAG:ARG:身嗜み, RESULT

		IF COND(ARGS, ARG) != ARG:1
			SELECTCASE COND(ARGS, ARG)
			CASE 0
				LOCALS = 不進行特別的指示。
			CASE 3
				LOCALS = 對%CALLNAME:ARG%、請求在每天清晨將毛完全剃除。
			CASE 5
				LOCALS = 對%CALLNAME:ARG%、請求儘可能的保持陰毛形態的整潔美觀。
			CASE 7
				LOCALS = 對%CALLNAME:ARG%、請求不對陰毛進行剃除和修剪。
			ENDSELECT
		ENDIF
	ENDSELECT

CASE "身嗜み：腋毛"
	PRINTFORML  [ 0] \@ COND(ARGS, ARG) == 0 ? ○ # － \@ \@ ARG == MASTER ? 沒有特別介意 # 無指示 \@
	PRINTFORML  [ 1] \@ COND(ARGS, ARG) == 3 ? ○ # － \@ \@ ARG == MASTER ? 通常保持光洁 # 要求對方保持著光潔 \@
	PRINTFORML  [ 2] \@ COND(ARGS, ARG) == 7 ? ○ # － \@ \@ ARG == MASTER ? 保持著散亂的模樣 # 禁止對方剃除腋毛 \@
	PRINTFORML [100] \@ COND(ARGS, ARG) == ARG:1 ? 放棄變更指令 # 保持原樣 \@

	CALL INPUT_SELECT, 3, 100

	SELECTCASE RESULT
	CASE 100
		IF LOCALS != "" && COND(ARGS, ARG) != ARG:1 && ARG != MASTER
			TFLAG:地の文分岐 = 2
			CALL PRINT_STRW, LOCALS
		ENDIF
		VARSET LOCALS
		RETURN 0
	CASEELSE
		VARSET LOCALS
		CFLAG:ARG:身嗜み = CLEARBITS(CFLAG:ARG:身嗜み, 6, 10)
		SIF RESULT
			SETBIT CFLAG:ARG:身嗜み, RESULT + 5

		IF COND(ARGS, ARG) != ARG:1
			SELECTCASE COND(ARGS, ARG)
			CASE 0
				LOCALS = 不進行特別的指示。
			CASE 3
				LOCALS = 對%CALLNAME:ARG%、請求在每天清晨將毛完全剃除。
			CASE 7
				LOCALS = 對%CALLNAME:ARG%、請求不對%TEXTS("腋")%毛進行剃除和修剪。
			ENDSELECT
		ENDIF
	ENDSELECT

CASE "身嗜み：Ｖ拡張"
	IF ARG != MASTER
		PRINTFORML 將與膣道的長度相匹配的專用振動棒(沒有手柄)、在日常生活中也時常保持插入狀態。
		PRINTFORML 如果希望長時間的享受快樂、也要將能與振動棒底端接口連接的有線電源箱也交給她。
		PRINTFORML （在抵達上限前每日給予Ｖ拡張経験等＆振動棒以下大小的事物插入所給予的苦痛減少）
	ENDIF
	PRINTFORML どの振動棒にしますか？
	PRINTFORML  [ 0] \@ COND(ARGS, ARG) == 0 ? ○ # － \@ \@ ARG == MASTER ? 不插入 # 無指示 \@
	PRINTFORML  [ 1] \@ COND(ARGS, ARG) == 1 ? ○ # － \@ 平均陰莖尺寸
	SIF ABL:ARG:Ｖ拡張 >= 2
		PRINTFORML  [ 2] \@ COND(ARGS, ARG) == 2 ? ○ # － \@ 適於上級者的較大尺寸
	SIF ABL:ARG:Ｖ拡張 >= 3
		PRINTFORML  [ 3] \@ COND(ARGS, ARG) == 3 ? ○ # － \@ 相當女子纖細手腕的極大尺寸
	SIF ABL:ARG:Ｖ拡張 >= 4
		PRINTFORML  [ 4] \@ COND(ARGS, ARG) == 4 ? ○ # － \@ 相當男子健壯手臂的超極大尺寸
	PRINTFORML [100] \@ COND(ARGS, ARG) == ARG:1 ? 放棄變更指令 # 保持原樣 \@

	CALL INPUT_SELECT, LIMIT(ABL:ARG:Ｖ拡張 + 1, 2, 5), 100

	SELECTCASE RESULT
	CASE 100
		IF LOCALS != "" && COND(ARGS, ARG) != ARG:1 && ARG != MASTER
			TFLAG:地の文分岐 = 3
			CALL PRINT_STRW, LOCALS
		ENDIF
		VARSET LOCALS
		RETURN 0
	CASEELSE
		VARSET LOCALS
		CFLAG:ARG:身嗜み = CLEARBITS(CFLAG:ARG:身嗜み, 11, 15)
		SIF RESULT
			SETBIT CFLAG:ARG:身嗜み, RESULT + 10

		IF COND(ARGS, ARG) != ARG:1
			SELECTCASE COND(ARGS, ARG)
			CASE 0
				LOCALS = 不進行特別的指示。
			CASE 1
				LOCALS = 對%CALLNAME:ARG%、請求在日常中也將抵住G點、不斷震動的振動棒插入體內。
			CASE 2
				LOCALS = 對%CALLNAME:ARG%、請求在日常中也將頂住子宮口、將每一寸肉襞抖落開來的大號振動棒插入體內。
			CASE 3
				LOCALS = 對%CALLNAME:ARG%、請求在日常中也將龜頭穿過子宮口的、將內部每一寸褶皺撐開的極大振動棒插入體內。
			CASE 4
				LOCALS = 對%CALLNAME:ARG%、請求在日常中也將能在腹部凸顯出棒狀物輪廓的超極大振動棒插入體內。
			ENDSELECT
		ENDIF
	ENDSELECT

CASE "身嗜み：Ａ拡張"
	IF ARG != MASTER
		PRINTFORML 将能把尻穴能充分堵塞住的肛塞、在日常生活中也時常保持插入狀態。
		PRINTFORML （在抵達上限前每日給予Ａ拡張経験等＆Ａ肛塞以下大小的事物插入所給予的苦痛減少）
	ENDIF
	PRINTFORML 要用什么尺寸的呢？
	PRINTFORML  [ 0] \@ COND(ARGS, ARG) == 0 ? ○ # － \@ \@ ARG == MASTER ? 不插入 # 無指示 \@
	PRINTFORML  [ 1] \@ COND(ARGS, ARG) == 1 ? ○ # － \@ 最大直徑也不過平均陰莖尺寸的肛塞
	SIF ABL:ARG:Ａ拡張 >= 2
		PRINTFORML  [ 2] \@ COND(ARGS, ARG) == 2 ? ○ # － \@ 立起的話不能用抽屜收起來的較大尺寸
	SIF ABL:ARG:Ａ拡張 >= 3
		PRINTFORML  [ 3] \@ COND(ARGS, ARG) == 3 ? ○ # － \@ 沉甸甸的極大尺寸
	SIF ABL:ARG:Ａ拡張 >= 4
		PRINTFORML  [ 4] \@ COND(ARGS, ARG) == 4 ? ○ # － \@ 會對日常生活造成影響的超大型尺寸
	PRINTFORML [100] \@ COND(ARGS, ARG) == ARG:1 ? 放棄變更指令 # 保持原樣 \@

	CALL INPUT_SELECT, LIMIT(ABL:ARG:Ａ拡張 + 1, 2, 5), 100

	SELECTCASE RESULT
	CASE 100
		IF LOCALS != "" && COND(ARGS, ARG) != ARG:1 && ARG != MASTER
			TFLAG:地の文分岐 = 4
			CALL PRINT_STRW, LOCALS
		ENDIF
		VARSET LOCALS
		RETURN 0
	CASEELSE
		VARSET LOCALS
		CFLAG:ARG:身嗜み = CLEARBITS(CFLAG:ARG:身嗜み, 16, 20)
		SIF RESULT
			SETBIT CFLAG:ARG:身嗜み, RESULT + 15

		IF COND(ARGS, ARG) != ARG:1
			SELECTCASE COND(ARGS, ARG)
			CASE 0
				LOCALS = 不進行特別的指示。
			CASE 1
				LOCALS = 對%CALLNAME:ARG%、請求在日常中將前小後大的多串肛珠塞入腸道。
			CASE 2
				LOCALS = 對%CALLNAME:ARG%、請求在日常中也佩戴著能將大部分褶皺舒展開來的較大尺寸肛塞。
			CASE 3
				LOCALS = 對%CALLNAME:ARG%、請求在日常中也用尻穴含住不斷將腸道下拉的沉重的極大尺寸肛塞。
			CASE 4
				LOCALS = 對%CALLNAME:ARG%、請求在日常中也被能在腹部凸顯出棒狀物輪廓的超大型肛塞蹂躪著尻穴。
			ENDSELECT
		ENDIF
	ENDSELECT

CASE "身嗜み：Ａ準備"
	IF ARG != MASTER
		PRINTFORML 為了對肛門進行的PLAY能更加順暢地完成、請求對方做好預先的準備。
		;PRINTFORML （事前に綺麗にさせておくとＡ汚れと排泄での見苦しさの緩和作用有些）
		PRINTFORML （預先將腸道進行清潔能對排泄等起到緩解的作用）
	ENDIF
	PRINTFORML  [ 0] \@ COND(ARGS, ARG) == 0 ? ○ # － \@ \@ ARG == MASTER ? 不進行 # 無指示 \@
	PRINTFORML  [ 1] \@ COND(ARGS, ARG) == 1 ? ○ # － \@ \@ ARG == MASTER ? 預先將腸道淨空 # 要求對方預先清潔腸道 \@
	PRINTFORML  [ 2] \@ COND(ARGS, ARG) == 2 ? ○ # － \@ \@ ARG == MASTER ? 預先將潤滑液塗抹在外側並擠入# 要求對方用潤滑液充分潤滑 \@
	PRINTFORML  [ 3] \@ COND(ARGS, ARG) == 3 ? ○ # － \@ 事前準備＆潤滑液
	PRINTFORML [100] \@ COND(ARGS, ARG) == ARG:1 ? 放棄變更指令 # 保持原樣 \@

	CALL INPUT_SELECT, 4, 100

	SELECTCASE RESULT
	CASE 100
		IF LOCALS != "" && COND(ARGS, ARG) != ARG:1 && ARG != MASTER
			TFLAG:地の文分岐 = 5
			CALL PRINT_STRW, LOCALS
		ENDIF
		VARSET LOCALS
		RETURN 0
	CASEELSE
		VARSET LOCALS
		CFLAG:ARG:身嗜み = CLEARBITS(CFLAG:ARG:身嗜み, 21, 25)
		SIF RESULT
			SETBIT CFLAG:ARG:身嗜み, RESULT + 20

		IF COND(ARGS, ARG) != ARG:1
			SELECTCASE COND(ARGS, ARG)
			CASE 0
				LOCALS = 不進行特別的指示。
			CASE 1
				LOCALS = 對%CALLNAME:ARG%、請求在調教前預先淨空腸道。
			CASE 2
				LOCALS = 對%CALLNAME:ARG%、請求在調教前預先將潤滑液塗抹在肛門週邊並擠入腸道。
			CASE 3
				LOCALS = 對%CALLNAME:ARG%、請求在調教前預先清潔腸道並做好潤滑液的準備。
			ENDSELECT
		ENDIF
	ENDSELECT

CASE "身嗜み：Ｐ準備"
	IF ARG != MASTER
		PRINTFORML 為了使用陰莖進行的PLAY能更加順暢地完成、請求對方注意平日裡的身體狀態。
	ENDIF
	PRINTFORML  [ 0] \@ COND(ARGS, ARG) == 0 ? ○ # － \@ \@ ARG == MASTER ? 沒有特別介意 # 無指示 \@（基本是避免不淨的狀態）
	PRINTFORML  [ 1] \@ COND(ARGS, ARG) == 1 ? ○ # － \@ \@ ARG == MASTER ? 有意識的保持污穢 # 保留污垢 \@
	PRINTFORML [100] \@ COND(ARGS, ARG) == ARG:1 ? 放棄變更指令 # 保持原樣 \@

	CALL INPUT_SELECT, 3, 100

	SELECTCASE RESULT
	CASE 100
		IF LOCALS != "" && COND(ARGS, ARG) != ARG:1 && ARG != MASTER
			TFLAG:地の文分岐 = 6
			CALL PRINT_STRW, LOCALS
		ENDIF
		VARSET LOCALS
		RETURN 0
	CASEELSE
		VARSET LOCALS

		SELECTCASE RESULT
		CASE 0
			CLEARBIT CFLAG:ARG:身嗜み, 26
		CASE 1
			SETBIT CFLAG:ARG:身嗜み, 26
		ENDSELECT

		IF COND(ARGS, ARG) != ARG:1
			SELECTCASE COND(ARGS, ARG)
			CASE 0
				LOCALS = 不進行特別的指示。
			CASE 1
				LOCALS = 對%CALLNAME:ARG%、請求將陰莖內的恥垢交由%CALLNAME:MASTER%處理。
			ENDSELECT
		ENDIF
	ENDSELECT

CASE "身嗜み：Ｖ準備"
	IF ARG != MASTER
		PRINTFORML 為了使用陰部進行的PLAY能更加順暢地完成、請求對方注意平日裡的身體狀態。
	ENDIF
	PRINTFORML  [ 0] \@ COND(ARGS, ARG) == 0 ? ○ # － \@ \@ ARG == MASTER ? 沒有特別介意 # 無指示 \@（基本是避免不淨的狀態）
	PRINTFORML  [ 1] \@ COND(ARGS, ARG) == 1 ? ○ # － \@ \@ ARG == MASTER ? 有意識的保持污穢 # 保留污垢 \@
	PRINTFORML [100] \@ COND(ARGS, ARG) == ARG:1 ? 放棄變更指令 # 保持原樣 \@

	CALL INPUT_SELECT, 3, 100

	SELECTCASE RESULT
	CASE 100
		IF LOCALS != "" && COND(ARGS, ARG) != ARG:1 && ARG != MASTER
			TFLAG:地の文分岐 = 7
			CALL PRINT_STRW, LOCALS
		ENDIF
		VARSET LOCALS
		RETURN 0
	CASEELSE
		VARSET LOCALS

		SELECTCASE RESULT
		CASE 0
			CLEARBIT CFLAG:ARG:身嗜み, 28
		CASE 1
			SETBIT CFLAG:ARG:身嗜み, 28
		ENDSELECT

		IF COND(ARGS, ARG) != ARG:1
			SELECTCASE COND(ARGS, ARG)
			CASE 0
				LOCALS = 不進行特別的指示。
			CASE 1
				LOCALS = 對%CALLNAME:ARG%、請求將對陰部的清洗轉交%CALLNAME:MASTER%負責。
			ENDSELECT
		ENDIF
	ENDSELECT

CASE "身嗜み：服装"
	PRINTFORML  [ 0] \@ COND(ARGS, ARG) == 0 ? ○ # － \@ \@ ARG == MASTER ? 沒有特別介意 # 無指示 \@
	PRINTFORML  [ 1] \@ COND(ARGS, ARG) == 1 ? ○ # － \@ \@ ARG == MASTER ? No胖次主義 # 禁止着用胖次 \@
	PRINTFORML [100] \@ COND(ARGS, ARG) == ARG:1 ? 放棄變更指令 # 保持原樣 \@

	CALL INPUT_SELECT, 2, 100

	SELECTCASE RESULT
	CASE 100
		IF LOCALS != "" && COND(ARGS, ARG) != ARG:1 && ARG != MASTER
			TFLAG:地の文分岐 = 8
			CALL PRINT_STRW, LOCALS
		ENDIF
		VARSET LOCALS
		RETURN 0
	CASEELSE
		VARSET LOCALS
		CFLAG:ARG:身嗜み = CLEARBITS(CFLAG:ARG:身嗜み, 31, 35)
		SIF RESULT
			SETBIT CFLAG:ARG:身嗜み, RESULT + 30

		IF COND(ARGS, ARG) != ARG:1
			SELECTCASE COND(ARGS, ARG)
			CASE 0
				LOCALS = 不進行特別的指示。
			CASE 1
				LOCALS = 對%CALLNAME:ARG%、請求平日裡也不穿內褲、真空出門。
			ENDSELECT
		ENDIF
	ENDSELECT

CASE "身嗜み：尿道拡張"
	IF ARG != MASTER
		PRINTFORML 將埋在粘膜中將其拡展開來的插頭、在日常生活中也時常塞入尿道內。
		PRINTFORML 具有光滑而凹凸不平難以脫落的形狀、在外側的部分就像是漂亮的装飾品一樣容易拉出的構造。
		PRINTFORML （在抵達上限前每日給予尿道拡張経験等）
	ENDIF
	PRINTFORML  [ 0] \@ COND(ARGS, ARG) == 0 ? ○ # － \@ \@ ARG == MASTER ? 不插入 # 無指示 \@

	PRINTFORML  [ 1] \@ COND(ARGS, ARG) == 1 ? ○ # － \@ 青年女子藥指尺寸
	SIF ABL:ARG:尿道拡張 >= 1
		PRINTFORML  [ 2] \@ COND(ARGS, ARG) == 2 ? ○ # － \@ 平均陰莖尺寸
	SIF ABL:ARG:尿道拡張 >= 2
		PRINTFORML  [ 3] \@ COND(ARGS, ARG) == 3 ? ○ # － \@ 會擔憂是否能放置到尿道中的巨根尺寸
	SIF ABL:ARG:尿道拡張 >= 3
		PRINTFORML  [ 4] \@ COND(ARGS, ARG) == 4 ? ○ # － \@ 會對日常生活造成影響的超大型尺寸
	PRINTFORML [100] \@ COND(ARGS, ARG) == ARG:1 ? 放棄變更指令 # 保持原樣 \@

	CALL INPUT_SELECT, LIMIT(ABL:ARG:尿道拡張 + 2, 2, 5), 100

	SELECTCASE RESULT
	CASE 100
		IF LOCALS != "" && COND(ARGS, ARG) != ARG:1 && ARG != MASTER
			TFLAG:地の文分岐 = 9
			CALL PRINT_STRW, LOCALS
		ENDIF
		VARSET LOCALS
		RETURN 0
	CASEELSE
		VARSET LOCALS
		CFLAG:ARG:身嗜み = CLEARBITS(CFLAG:ARG:身嗜み, 36, 40)
		SIF RESULT
			SETBIT CFLAG:ARG:身嗜み, RESULT + 35

		IF COND(ARGS, ARG) != ARG:1
			SELECTCASE COND(ARGS, ARG)
			CASE 0
				LOCALS = 不進行特別的指示。
			CASEELSE
				LOCALS = 對%CALLNAME:ARG%、請求每日對尿道進行相應的鍛鍊。
			ENDSELECT
		ENDIF
	ENDSELECT

CASE "身嗜み：性行為の制限"
	PRINTFORML 與%CALLNAME:MASTER%之外的人的性行為的禁止項目。
	PRINTFORML （愛撫和道具PLAY會被允許）

	PRINTFORML  [ 0] \@ COND(ARGS, ARG) == 0  ? ○ # － \@ 指示无
	PRINTFORML  [ 1] \@ COND("身嗜み：Ｖ独占", ARG)  ? ○ # － \@ 使用前面的淫穴的性行為、禁止
	PRINTFORML  [ 2] \@ COND("身嗜み：Ａ独占", ARG)  ? ○ # － \@ 使用肛門的性行為、禁止
	PRINTFORML  [ 3] \@ COND("身嗜み：口独占", ARG)  ? ○ # － \@ 使用口腔的侍奉、禁止
	PRINTFORML  [ 4] \@ COND("身嗜み：接吻独占", ARG)  ? ○ # － \@ %CALLNAME:MASTER%以外的接吻、禁止
	PRINTFORML  [ 5] \@ COND("身嗜み：Ｐ独占", ARG)  ? ○ # － \@ 使用阴茎的性行為、禁止
	PRINTFORML [100] \@ COND(ARGS, ARG) == ARG:1 ? 放棄變更指令 # 保持原樣 \@

	CALL INPUT_SELECT, 6, 100

	SELECTCASE RESULT
	CASE 100
		IF LOCALS != "" && COND(ARGS, ARG) != ARG:1 && ARG != MASTER
			TFLAG:地の文分岐 = 10
			CALL PRINT_STRW, LOCALS
		ENDIF
		VARSET LOCALS
		RETURN 0
	CASE 0
		CFLAG:ARG:身嗜み = CLEARBITS(CFLAG:ARG:身嗜み, 41, 45)
	CASEELSE
		INVERTBIT CFLAG:ARG:身嗜み, RESULT + 40
	ENDSELECT

	VARSET LOCALS
	IF COND(ARGS, ARG) != ARG:1
		SELECTCASE COND(ARGS, ARG)
		CASE 0
			LOCALS = 不進行特別的指示。
		CASE 1
			LOCALS = 請求%CALLNAME:ARG%只讓%CALLNAME:MASTER%享受陰戶與子宮。
		CASE 2
			LOCALS = 請求%CALLNAME:ARG%只讓%CALLNAME:MASTER%享受肛門與腸道。
		CASE 3
			LOCALS = 請求%CALLNAME:ARG%只讓%CALLNAME:MASTER%享受口腔的甘美侍奉。
		CASE 4
			LOCALS = 請求%CALLNAME:ARG%不和%CALLNAME:MASTER%之外的人接吻。
		CASE 5
			LOCALS = 請求%CALLNAME:ARG%的陰莖只會侵犯%CALLNAME:MASTER%一個人。
		CASE 100
			LOCALS = 請求%CALLNAME:ARG%在性上只專屬于%CALLNAME:MASTER%一個人。
		CASEELSE
			LOCALS = 仔細的請求了%CALLNAME:ARG%在性上專屬於%CALLNAME:MASTER%的部分。
		ENDSELECT
	ENDIF

CASE "身嗜み：性欲の管理"
	PRINTFORML 在%CALLNAME:MASTER%允許的時候之外、禁止自慰行為

	PRINTFORML  [ 0] \@ COND(ARGS, ARG) == 0  ? ○ # － \@ 指示无
	PRINTFORML  [ 1] \@ COND("身嗜み：自慰禁止", ARG)  ? ○ # － \@ 自慰禁止
	PRINTFORML [100] \@ COND(ARGS, ARG) == ARG:1 ? 放棄變更指令 # 保持原樣 \@

	CALL INPUT_SELECT, 2, 100

	SELECTCASE RESULT
	CASE 100
		IF LOCALS != "" && COND(ARGS, ARG) != ARG:1 && ARG != MASTER
			TFLAG:地の文分岐 = 11
			CALL PRINT_STRW, LOCALS
		ENDIF
		VARSET LOCALS
		RETURN 0
	CASE 0
		CFLAG:ARG:身嗜み = CLEARBITS(CFLAG:ARG:身嗜み, 46, 50)
	CASEELSE
		INVERTBIT CFLAG:ARG:身嗜み, RESULT + 45
	ENDSELECT

	VARSET LOCALS
	IF COND(ARGS, ARG) != ARG:1
		SELECTCASE COND(ARGS, ARG)
		CASE 0
			LOCALS = 不進行特別的指示。
		CASE 1
			LOCALS = 請求%CALLNAME:ARG%将性欲全部交給%CALLNAME:MASTER%処理。
		ENDSELECT
	ENDIF

ENDSELECT

CLEARLINE LINECOUNT - MEMO_LINECOUNT

RESTART

@COM_ORDER_COM146, ARG
VARSET LOCAL
LOCALS =

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

LOCAL = RESULT

SELECTCASE TALENT:有男朋友
CASE 2
	LOCAL -= 20
	LOCALS = %LOCALS% - %TALENT_NAME(GETNUM(TALENT, "有男朋友"), TALENT:有男朋友)%(20)
CASE 1
	LOCAL -= 10
	LOCALS = %LOCALS% - %TALENT_NAME(GETNUM(TALENT, "有男朋友"), TALENT:有男朋友)%(10)
ENDSELECT
;ABL:受虐属性
IF ABL:受虐属性
	LOCAL += MIN(ABL:受虐属性, 5) * 3
	LOCALS = %LOCALS% + 受虐属性LV{ABL:受虐属性}({MIN(ABL:受虐属性, 5) * 3})
ENDIF
;倒錯的
IF TALENT:倒錯的
	LOCAL += 5
	LOCALS = %LOCALS% + 倒錯的(5)
ENDIF

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

RETURN RESULT


code:
@COM147
;喝套内精液
CALL PRINT_TRAIN_NAME(SELECTCOM)
;-------------------------------------------------
;実行できるかの判定
;-------------------------------------------------
CALL SHOW_COM_ORDER_COM, 147

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

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM147, ARG
;口に精液汚れ追加
CALL ADD_STAIN, TARGET, "Ｍ", "精液"
;喝套内精液フラグ
SETBIT TCVAR:イベント, 51

@SOURCE_COM147, ARG
CALL SOURCE_SMPLAY, "喝套内精液", ARG

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 147

SOURCE:0:不潔 = (ITEM:套套内精液 + 4)/5 * 500
SOURCE:0:欲情追加 = (ITEM:套套内精液 + 4)/5 * 500 + CALCF("実行値による欲情追加")
SOURCE:0:屈従 = (ITEM:套套内精液 + 4)/5 * 1000
SOURCE:0:逸脱 = (ITEM:套套内精液 + 4)/5 * 500
SOURCE:0:充足 = (ITEM:套套内精液 + 4)/5 * 1000

;精液経験をみる
SELECTCASE EXP:精液経験
CASE IS < 5
	TIMES SOURCE:0:逸脱, 4.00
CASE IS < 20
	TIMES SOURCE:0:逸脱, 2.00
CASE IS < 50
	TIMES SOURCE:0:逸脱, 1.50
CASE IS < 100
	TIMES SOURCE:0:逸脱, 1.20
CASE IS < 300
	TIMES SOURCE:0:逸脱, 1.00
CASEELSE
	TIMES SOURCE:0:逸脱, 0.50
ENDSELECT

;ABL:精液中毒をみる
SELECTCASE ABL:精液中毒
CASE 0
	TIMES SOURCE:0:欲情追加, 0.10
	TIMES SOURCE:0:屈従, 0.50
CASE 1
	TIMES SOURCE:0:欲情追加, 1.00
	TIMES SOURCE:0:屈従, 1.00
CASE 2
	TIMES SOURCE:0:欲情追加, 1.20
	TIMES SOURCE:0:屈従, 1.30
CASE 3
	TIMES SOURCE:0:欲情追加, 1.40
	TIMES SOURCE:0:屈従, 1.60
CASE 4
	TIMES SOURCE:0:欲情追加, 1.80
	TIMES SOURCE:0:屈従, 2.00
CASEELSE
	TIMES SOURCE:0:欲情追加, 2.00
	TIMES SOURCE:0:屈従, 3.00
ENDSELECT

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

@TRAIN_MESSAGE_COM147

;前回ターンに出した直後の避孕套有些
IF PREVPLAY("套套内射精", PLAYER)
	PRINTFORM %CALLNAME:PLAYER%從陰莖上取下了装滿精液的避孕套、
ELSE
	PRINTFORM %CALLNAME:PLAYER%不知從哪裡取出了一個装滿了精液的使用過的避孕套、
ENDIF
PRINTFORM %CALLNAME:TARGET%、
IF ABL:精液中毒 >= 3 && RAND:2
	PRINTFORMW 將倒過來的避孕套上流下的精液用%TEXTR("伸出的舌頭/大張的嘴")%接住了。
ELSEIF ABL:精液中毒 && (RAND:2 || ABL:精液中毒 >= 3)
	PRINTFORMW 緊緊含住避孕套的開口後、%TEXTR("氣勢洶湧地/咕嚕咕嚕地")%吮吸著。
ELSE
	PRINTFORMW 躊躇的張開嘴、將漸漸滴落的精液用舌尖接住了。
ENDIF

PRINTFORM %CALLNAME:TARGET%
SELECTCASE ABL:精液中毒
CASE IS < 3
	PRINTFORM 似乎對於%TEXTR("摻雜著橡膠臭味的精液/這種行為/吮吸使用過的避孕套")%還是%TEXTR("毫無辦法的樣子/不能抑制的皺起眉頭/還不習慣的樣子")%、
	IF ABL:精液中毒 && RAND:2
		PRINTFORMW %TEXTR("順從身體的飢渴將腥臭的精液/毫不費力的將粘稠的白果醬/一邊因為異常的行為而變得更加興奮、一邊將灼熱的液體")%灌入咽喉……
	ELSE
		PRINTFORMW 在口中積累了足夠的唾液來稀釋後、帶著苦澀的表情將精液灌入喉中……
	ENDIF
CASEELSE
	IF PREVPLAY("套套内射精", PLAYER) && RAND:2
		IF RAND:2
			PRINTFORM 將從避孕套中滴落的%TEXTR("新鮮的/餘溫尚在的/剛射出來的")%精液、
		ELSE
			PRINTFORM 將%CALLNAME:PLAYER%所射出的精液、
		ENDIF
	ELSE
		PRINTFORM %TEXTR("毫不介意帶著橡膠臭味的精液/反而對清理用過的避孕套很起勁一樣/痴迷於精液中的橡膠臭味一樣")%、
	ENDIF
	IF ABL:精液中毒 >= 5 && RAND:2
		PRINTFORMW %TEXTR("好像很美味一样/一边品尝着/一边吐着舌頭/一边舔着舌頭")%一口氣喝光了…
	ELSE
		PRINTFORMW %TEXTR("一副若無其事的樣子/喉嚨咕嚕咕嚕地響著/眼神濕潤、臉颊也染上紅暈")%、将精液一口氣喝光了……
	ENDIF
ENDSELECT

@COM_ORDER_COM147, 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) * 5
	LOCALS = %LOCALS% + 精液中毒LV{ABL:精液中毒}({MIN(ABL:精液中毒, 5) * 5})
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

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

RETURN RESULT