code:
@COM33
;肛用振動棒
;0bit細い, 1bit普通, 2bit粗大的, 3bit極太, 4bit腕粗, 5bit馬型,
;10bit双頭領帯プ, 11bit布ル領帯プ
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

IF TEQUIP:肛用振動棒 == 0
	STR:前回指令 = 肛門拔出振動棒
ELSE
	IF COND("肛門拉珠")
		STR:前回指令 = 肛門拉珠
	ELSE
		STR:前回指令 = 肛用振動棒
	ENDIF
ENDIF

RETURN 1

;ARGに入れられる角色、ARGSは補足。
;現状だとARGS == "強制挿入"で[100] やめる を選択不可にできる
@SELECT_VIB_A, ARG, ARGS
#DIM LCOUNT
#DIM SIZE_DILDO

VARSET LOCAL, 1
;逆Ａ振動棒
IF ARG == PLAYER
	;大号的振動棒
	SIF ABL:ARG:Ａ拡張 == 0 || (ABL:ARG:Ａ拡張 <= 1 && ABL:ARG:受虐属性 < 3)
		LOCAL:2 = 0
	;極太振動棒
	SIF ABL:ARG:Ａ拡張 <= 1 || (ABL:ARG:Ａ拡張 <= 2 && ABL:ARG:受虐属性 < 3)
		LOCAL:3 = 0
	;腕粗振動棒
	SIF ABL:ARG:Ａ拡張 <= 2 || (ABL:ARG:Ａ拡張 <= 3 && ABL:ARG:受虐属性 < 3)
		LOCAL:4 = 0
	;馬型振動棒
	SIF ABL:ARG:Ａ拡張 <= 3 || (ABL:ARG:Ａ拡張 <= 4 && ABL:ARG:受虐属性 < 3)
		LOCAL:5 = 0
	LOCAL:11 = 0
ELSE
	;どの振動棒を使えるかを判定（双方の施虐狂受虐狂具合で変化）
	FOR LCOUNT, 1, 6
		;振動棒のサイズを代入
		SIZE_DILDO = LCOUNT

		SELECTCASE SIZE_DILDO - ABL:Ａ拡張
		CASE IS >= 3
			LOCAL:LCOUNT = 0
		CASE 2
			;尺寸が２上回っているなら、施虐属性５ＬＶor（施虐属性３ＬＶに加えて相手の受虐属性３ＬＶ）が必要
			SIF MAX(ABL:受虐属性, ABL:PLAYER:施虐属性) >= 5 || MIN(ABL:受虐属性, ABL:PLAYER:施虐属性) >= 3
				CONTINUE
		CASE 1
			;尺寸が１上回っているなら、施虐属性３ＬＶor（施虐属性１ＬＶに加えて相手の受虐属性１ＬＶ）が必要
			SIF MAX(ABL:受虐属性, ABL:PLAYER:施虐属性) >= 3 || MIN(ABL:受虐属性, ABL:PLAYER:施虐属性) >= 1
				CONTINUE
		CASEELSE
			CONTINUE
		ENDSELECT

		LOCAL:LCOUNT = 0
	NEXT
ENDIF

;道具所持による判定
SIF ITEM:肛用振動棒 == 0
	LOCAL:0 = 0
IF ITEM:振動棒套装 == 0
	LOCAL:1 = 0
	LOCAL:2 = 0
	LOCAL:10 = 0
ENDIF
SIF ITEM:極太振動棒 == 0
	LOCAL:3 = 0
SIF ITEM:腕型振動棒 == 0
	LOCAL:4 = 0
SIF ITEM:馬型振動棒 == 0
	LOCAL:5 = 0
SIF ITEM:肛門拉珠 == 0
	LOCAL:11 = 0

PRINTFORML 這一次要\@ ARG == PLAYER ? 讓她 # \@使用哪種大小的振動棒呢……？

VARSET LOCALS
LOCALS:0 = [ 0] 肛用振動棒
LOCALS:1 = [\@ LOCAL:1 ? {1, 2} # × \@] 普通振動棒　　\@ ABL:ARG:Ａ拡張 <= 0 ? ※初心者厳禁！ # \@
LOCALS:2 = [\@ LOCAL:2 ? {2, 2} # × \@] 大号振動棒　　\@ ABL:ARG:Ａ拡張 <= 1 ? ※習慣者用！ # \@
LOCALS:3 = [\@ LOCAL:3 ? {3, 2} # × \@] 极粗振動棒　　\@ ABL:ARG:Ａ拡張 <= 2 ? ※上級者専用！ # \@
LOCALS:4 = [\@ LOCAL:4 ? {4, 2} # × \@] 拳型振動棒　　\@ ABL:ARG:Ａ拡張 <= 3 ? ※超上級者専用！ # \@
LOCALS:5 = [\@ LOCAL:5 ? {5, 2} # × \@] 馬型振動棒　　\@ ABL:ARG:Ａ拡張 <= 4 ? ※面向不願回頭的人 # \@

LOCALS:11 = [\@ LOCAL:11 ? 11 # × \@] 肛門拉珠

FOR LCOUNT, 0, 20
	SIF STRLENS(LOCALS:LCOUNT) == 0
		CONTINUE

	SIF LOCAL:LCOUNT == 0
		SETCOLOR DEF_COLOR("灰色")
	PRINTFORML  %LOCALS:LCOUNT%
	RESETCOLOR
NEXT

SIF ARGS != "強制挿入"
	PRINTFORML [100] 不、再考慮一下吧。

$INPUT_LOOP
INPUT

IF RESULT == 100 && ARGS != "強制挿入"
	TEQUIP:ARG:肛用振動棒 = 0
	TFLAG:指令中止 = 1
	RETURN 0
ELSEIF RESULT == 0
	TEQUIP:ARG:肛用振動棒 = 1p0
ELSEIF RESULT == 1 && LOCAL:1
	TEQUIP:ARG:肛用振動棒 = 1p1
ELSEIF RESULT == 2 && LOCAL:2
	TEQUIP:ARG:肛用振動棒 = 1p2
ELSEIF RESULT == 3 && LOCAL:3
	TEQUIP:ARG:肛用振動棒 = 1p3
ELSEIF RESULT == 4 && LOCAL:4
	TEQUIP:ARG:肛用振動棒 = 1p4
ELSEIF RESULT == 5 && LOCAL:5
	TEQUIP:ARG:肛用振動棒 = 1p5
ELSEIF RESULT == 11 && LOCAL:11
	TEQUIP:ARG:肛用振動棒 = 1p0 + 1p11
ELSE
	GOTO INPUT_LOOP
ENDIF
RETURN 1

@TRAIN_MESSAGE_COM33
;肛用振動棒の着脱
IF TEQUIP:肛用振動棒
	SIF TEQUIP:電話中
		PRINTFORM 和%TEXTS("彼氏")%%TEXTR("電話着的/電話通話中的/继续打電話的")%、

	IF COND("肛門拉珠")
		PRINTFORMW %CALLNAME:TARGET%\@ TEQUIP:推倒 ? 将尻穴里的肛門拉珠 # 尻穴内的肛門拉珠被 \@氣勢十足地抜了出来…
	ELSE
		PRINTFORMW %CALLNAME:TARGET%\@ TEQUIP:推倒 ? 将 # \@屁穴里的\@ COND("長振動棒") ? 、穿過Ｓ状結腸的%TEXTR("轻松超越50cm的/有手臂那么长的")% # \@%NAMES("Ａ振動棒", TARGET)%\@ TEQUIP:推倒 ? # 被 \@抜了出来…
	ENDIF
	;道端の菠萝包加筆分
	SIF COND("長振動棒")
		PRINTFORM 長度超出尋常的
	PRINTFORM 振動棒\@ TEQUIP:推倒 ? 拔出之后的 # 被抜出后的 \@尻穴
	SELECTCASE ABL:Ａ拡張
	CASE IS >= 3
		IF ABL:Ａ拡張 - SIZE("Ａ振動棒", TARGET) >= 2
			PRINTFORM 好像很遗憾地反复抽搐収縮着的同时
		ELSE
			PRINTFORM 像大洞一样保持着打開的同时
		ENDIF
		IF EXP_GAIN("肛内精液経験")
			PRINTFORMW 混杂了腸液的精液垂流下来…
		ELSEIF TALENT:腸液分泌体質
			PRINTFORMW 汚液垂流下来…
		ELSE
			SIF CHECK("Ａ完美契合")
				PRINTFORM 变成了%CALLNAME:MASTER%的阴茎形状的
			PRINTFORMW 腸内被显示出来了…
		ENDIF
	CASEELSE
		IF EX:Ａ中出し量 >= 30
			PRINTFORM 灑落着精液
		ELSEIF TALENT:腸液分泌体質
			PRINTFORM 垂落着腸液
		ENDIF
		PRINTFORMW 痙攣地想变回原来的形状…
	ENDSELECT

	SIF COND("肛門拉珠")
		CALL SETFLAG, "肛門拉珠拔出FLAG", TARGET

	TFLAG:地の文分岐 = TEQUIP:肛用振動棒
	TEQUIP:肛用振動棒 = 0
	CALL CALC, "調教ソースの計算"
	RETURN 0
ENDIF

$SELECT_VIB
;振動棒選択
CALL SELECT_VIB_A, TARGET

SIF REFUSE_CHECK()
	RETURN 0

IF TEQUIP:肛用振動棒 == 0
	TFLAG:地の文分岐 = 1
	GOTO SELECT_VIB
ENDIF

IF ABL:Ａ拡張 >= 4 && CHECK("Ａ振動棒") && COND("肛門拉珠") == 0
	IF EXP:結腸経験 == 0
		PRINTFORML ……對於經驗豐富的%CALLNAME:TARGET%來說、說不定已經可以嘗試用格外粗長的振動棒直接插入Ｓ狀結腸了。
		PRINTFORML 要怎么做呢？
		CALL PRINT_SELECT, "就這樣吧/再想想吧"
	ELSEIF EXP_GAIN("結腸経験")
		PRINTFORML 對於%CALLNAME:TARGET%的Ｓ狀結腸……
		CALL PRINT_SELECT, "調教吧！/暫時停下吧"
	ELSE
		PRINTFORML 要用特別粗長的振動棒將%CALLNAME:TARGET%的Ｓ狀結腸好好開發一番嗎……？
		CALL PRINT_SELECT, "調教吧/暫時停下吧"
	ENDIF
	SIF RESULT == 0
		SETBIT TEQUIP:肛用振動棒, 20
ENDIF

;-------------------------------------------------
;ソースの計算(確定値)
;-------------------------------------------------
CALL CALC, "調教ソースの計算"

;地の文を飛ばすフラグを立てている(ターン開始時にOFFになる)
SIF TFLAG:地の文スキップ
	RETURN 0

IF TEQUIP:電話中
	PRINTFORM %CALLNAME:PLAYER%、将和%TEXTS("彼氏")%%TEXTR("電話着的/電話通話中的/继续打電話的")%、%CALLNAME:TARGET%的
ELSE
	PRINTFORM %CALLNAME:PLAYER%將%CALLNAME:TARGET%的
ENDIF

;肛門が露出していないで、胖次をずらしていないなら自動的にずらす
IF !CHECK_CLO("Ａ露出")
	CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
	PRINT 、
ENDIF
IF (ABL:Ａ拡張 >= 5 || (PREVCOM >= 70 && PREVCOM <= 79) || PREVCOM == 142 || PREVCOM == 143) && ABL:Ａ拡張 >= 2 && RAND:3 == 0
	PRINT 不檢點地大張著洞口的
ELSEIF ABL:Ａ拡張 >= 2
	PRINT 在充分地開發下十分柔軟的
ELSEIF TALENT:恋慕 || RAND:3 == 0
	PRINT 可愛的
ELSEIF EXP:Ａ経験 < 50 && RAND:2 == 0
	PRINT 經驗不足的
ELSE
	PRINT 緊張地收縮著的
ENDIF
PRINT 肛門
IF TALENT:恋慕
	PRINTFORM 溫柔地揉搓著放鬆下來之後\@ COND("ボトムを露出させた") ? # 、 \@用
ELSE
	PRINTFORM に
ENDIF
IF COND("肛門拉珠")
	PRINTFORMW 一粒粒分開的肛門拉珠填滿了。
ELSE
	SELECTCASE SIZE("Ａ振動棒")
	CASE 5
		PRINTFORM 幾乎不可能進入的馬型
	CASE 4
		PRINTFORM 成年男性手腕粗細的
	CASE 3
		PRINTFORM 常規而言最為粗壯的\@ COND("長振動棒") ? 长款 # \@
	CASE 2
		PRINTFORM \@ COND("長振動棒") ? 粗長的 # 粗大的 \@
	CASE 1
		PRINTFORM \@ COND("長振動棒") ? 擁有可怕長度的 # \@
	CASE 0
		PRINTFORM \@ COND("長振動棒") ? 粗略估計也至少有50cm長的 # \@肛門
	ENDSELECT
	PRINT 振動棒
	;拡張不足
	IF ABL:Ａ拡張 < SIZE("Ａ振動棒")
		PRINTFORMW %TEXTR("用力地/強硬的/毫不留情地/在不斷開闢膣道的同時/在將肉體強硬推開的感觸仔細品味著的同時/將所有的抵抗毫不在意地無視的同時")%塞滿了。
	ELSE
		IF CHECK("Ａ振動棒") == 0 && ABL:PLAYER:施虐属性 >= 3 && RAND:2 == 0
			PRINT 用力地
		ELSEIF (TALENT:恋慕 || ABL:施虐属性 >= 3) && RAND:3 == 0
			PRINT 深深地
		ELSEIF TALENT:恋慕 && RAND:3 == 0
			PRINT 温柔地
		ELSEIF (TALENT:恋慕 || ABL:施虐属性 >= 3) && RAND:2 == 0
			PRINT 一口気
		ELSE
			PRINT 溫柔緩慢地
		ENDIF
		IF RAND:4 == 0
			PRINTW 填滿了內部。
		ELSEIF CHECK("Ａ振動棒") == 0 && ABL:PLAYER:施虐属性 >= 3 && RAND:2 == 0
			PRINTW 衝入其中。
		ELSEIF (TALENT:恋慕 || ABL:施虐属性 >= 3) && RAND:3 == 0
			PRINTW 沉入其中。
		ELSEIF (TALENT:恋慕 || ABL:施虐属性 >= 3) && RAND:2 == 0
			PRINTW 刺入其中。
		ELSE
			PRINTW 挿入其中。
		ENDIF
	ENDIF
ENDIF

;拡張十分
IF CHECK("Ａ振動棒") && CHOSECOM(SELECTCOM) == 0
	PRINTFORM %CALLNAME:TARGET%的
	IF TALENT:娇小 && EXP:Ａ経験 < 100 && ABL:Ａ拡張 <= 1
		PRINT 小小的
	ELSEIF TALENT:娇小 && ABL:Ａ拡張 >= 2
		SIF ABL:Ａ拡張 > SIZE("Ａ振動棒")
			PRINT 完全
		PRINT 被充分擴張的
	ELSEIF EXP:Ａ経験 >= 100 && RAND:2 == 0
		PRINT 経験豊富的
	ELSEIF ABL:Ａ拡張 > SIZE("Ａ振動棒")
		PRINT 十分柔軟的
	ENDIF
	PRINT 尻穴
	IF SIZE("Ａ振動棒") >= 2 && ABL:Ａ拡張 > SIZE("Ａ振動棒") && RAND:2
		IF RAND:3 == 0
			PRINT 輕而易舉地
		ELSEIF RAND:2
			PRINT 毫無抵抗地
		ELSE
			PRINT 就像是在主動吮吸一樣地
		ENDIF
	ELSEIF ABL:Ａ拡張 >= SIZE("Ａ振動棒") + 1 && RAND:2 == 0
		SIF TALENT:内気 || TALENT:清楚
			PRINT 與平日裡清純老實的印象完全不同、
		PRINT 輕易地張開、
	ELSEIF ABL:Ａ拡張 >= SIZE("Ａ振動棒")
		PRINT 向橡膠一樣伸展開來、
	ENDIF
	IF COND("肛門拉珠")
		PRINT 將肛門拉珠
	ELSE
		SELECTCASE SIZE("Ａ振動棒")
		CASE IS >= 3
			IF TALENT:男性 || TALENT:処女
				PRINT 將根本沒法用嘴含住的
			ELSEIF ABL:Ｖ拡張 < SIZE("Ａ振動棒")
				PRINT 將就連前面的膣穴也無法接納的
			ENDIF
			PRINT 兇惡的
		CASE 2
			PRINT 粗大的
		CASE 0
			PRINT 肛門
		ENDSELECT
		PRINT 振動棒
	ENDIF
	IF COND("長振動棒")
		IF TALENT:結腸性感
			PRINTFORMW 直到將直腸的最深處乃至於Ｓ狀結腸穿過、被更加深入的下行結腸吞下了\@ SIZE("Ａ振動棒") >= 3 ? 。 # …… \@
			SIF SIZE("Ａ振動棒") >= 3
				PRINTFORMW 將過於碩大的異物用大腸的深處直接地吞下的%CALLNAME:TARGET%那光滑的小腹、與結腸的形狀配合著劇烈的扭曲起來……
		ELSEIF EXP:結腸経験 == 0
			PRINTFORMW 直接抵住直腸的最深處、在無數次的挑戰後、被完全未知的Ｓ狀結腸成功的吞下了……
		ELSE
			PRINTFORMW 直到穿過直腸、將Ｓ狀結腸也同樣填滿了……
		ENDIF
	ELSE
		PRINTW 一直填滿了直腸的最深處……
	ENDIF
ELSEIF CHECK("Ａ振動棒")
	IF TEQUIP:電話中
		IF ABL:Ａ拡張 - SIZE("Ａ振動棒") >= 2
			PRINTFORM %CALLNAME:TARGET%的这个振動棒可能太小了、
			PRINTFORMW 保持着%TEXTR("平静无邪的表情/安静的様子")%的和%TEXTS("彼氏")%%TEXTR("電話/通話")%还在继续着…
		ELSE
			PRINTFORM %CALLNAME:TARGET%将%TEXTR("通过電話的/通話时的/通話中的")%
			PRINTFORMW 不想让%TEXTS("彼氏")%得知情况的快要漏出来的声音%TEXTR("拼命忍受着/努力压抑着")%…
		ENDIF
	ELSEIF COND("肛門拉珠")
		PRINTFORMW 在肛門乃至於直腸都被異物填滿所帶來的奇妙感觸、讓%CALLNAME:TARGET%無法抑制的漏出了灼熱而濡濕的低吟聲……
	ELSEIF COND("長振動棒")
		PRINTFORMW 在身體的最深處、將直腸與結腸一併貫穿並劇烈顫動著的碩長振動棒所帶來的充實感與快感、讓%CALLNAME:TARGET%無法抑制的漏出了灼熱而濡濕的低吟聲……
	ELSE
		PRINTFORMW 在直腸中激烈震動的振動棒所傳來的異常快感、讓%CALLNAME:TARGET%無法抑制的漏出了灼熱而濡濕的低吟聲……
	ENDIF
	;道端の菠萝包加筆
	SIF ABL:Ａ拡張 - SIZE("Ａ振動棒") >= 2 && TEQUIP:電話中
		PRINTFORMW 但是这种振動棒对于%CALLNAME:TARGET%来说太小了、从那声音中能听出一丝遗憾的神色…
ELSEIF CHECK("Ａ振動棒") == 0 && ABL:Ａ拡張 < SIZE("Ａ振動棒")
	SIF TEQUIP:電話中
		PRINTFORM 和%TEXTS("彼氏")%%TEXTR("電話中的/通話的/通过電話连接着的")%

	PRINTFORM %CALLNAME:TARGET%的
	SIF TALENT:娇小 && EXP:Ａ経験 < 100 && ABL:Ａ拡張 == 0
		PRINT 小小的
	PRINT 肛門
	IF SIZE("Ａ振動棒") >= 1 && ABL:Ａ拡張 < SIZE("Ａ振動棒")
		PRINTW 無法承受振動棒的粗大、無法抑制的吐出了愈來愈高的哀鳴聲……
	ELSE
		PRINT 被強硬地擴張到幾乎要裂開的程度、但終究將
		IF COND("肛門拉珠")
			PRINT 相互連接著的球體
		ELSEIF SIZE("Ａ振動棒") == 0
			PRINT 肛門振動棒
		ELSE
			PRINT 振動棒
		ENDIF
		PRINTW 勉強地吞入體內……
	ENDIF
ELSEIF ABL:Ａ感覚 >= 2 && CUP:苦痛 < 500
	SIF TEQUIP:電話中
		PRINTFORM 和%TEXTS("彼氏")%%TEXTR("電話中/正在通話")%的
	PRINTFORMW %CALLNAME:TARGET%因腸道中傳來的奇妙感觸而迷惑了……
ELSE
	SIF TEQUIP:電話中
		PRINTFORM 加上和%TEXTS("彼氏")%%TEXTR("電話/通話")%的緊張感、

	PRINTFORM 對於
	IF COND("肛門拉珠")
		PRINT 肛門拉珠
	ELSE
		PRINT 振動棒
	ENDIF
	PRINTFORMW 所帶來的刺激還不習慣、%CALLNAME:TARGET%的肛門本能的緊繃著、表現著強烈的反抗心……
ENDIF

@FLAG_COM33, ARG
CALL FLAG_INSERTION, "Ａ振動棒", ARG, 100
;肛門が露出していないなら自動的にずらす
SIF CHECK_CLO("Ａ露出") == 0
	CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET

@SOURCE_COM33, ARG
IF TEQUIP:肛用振動棒
	IF COND("肛門拉珠")
		CALL SOURCE_INSERTION, "Ａ振動棒", ARG, 30
	ELSE
		CALL SOURCE_INSERTION, "Ａ振動棒", ARG, 100
	ENDIF
ELSE
	IF COND("肛門拉珠拔出FLAG")
		CALL SOURCE_INSERTION, "Ａ振動棒", ARG, 100
	ELSE
		CALL SOURCE_INSERTION, "Ａ振動棒", ARG, 30
	ENDIF
ENDIF

@EQUIP_COM33
;Ａ振動棒挿入中
SIF TEQUIP:肛用振動棒 == 0
	RETURN 0
SIF SELECTCOM == 33 || SELECTCOM == 202
	RETURN 0

CALL SOURCE_COM33, 30
CALL FLAG_COM33, 30

RETURN 1

@EQUIP_COM33_2
#DIMS PLAY_ONANIE
;Ａ振動棒挿入中
SIF TEQUIP:肛用振動棒 == 0
	RETURN 0
SIF SELECTCOM == 33 || SELECTCOM == 202
	RETURN 0

IF COND("肛門拉珠")
	PRINTL ＜肛門拉珠挿入中＞
ELSE
	SELECTCASE SIZE("Ａ振動棒")
	CASE 6
		PRINTL ＜肛門規格外振動棒挿入中＞
	CASE 5
		PRINTL ＜肛門馬型振動棒挿入中＞
	CASE 4
		PRINTL ＜肛門腕並振動棒挿入中＞
	CASE 3
		PRINTL ＜肛門極太振動棒挿入中＞
	CASEELSE
		PRINTL ＜肛用振動棒挿入中＞
	ENDSELECT
ENDIF

PLAY_ONANIE = %CHECK_ONANIE(SELECTCOM)%

LOCAL = 1
;自慰実行時は経験＋１
IF STRCOUNT(PLAY_ONANIE, "Ａ") && SELECTCOM == 3
	SIF ABL:Ａ拡張 < SIZE("Ａ振動棒")
		LOCAL += 1
ENDIF

EXP:Ａ経験 += LOCAL

VARSET LOCAL
;Ａ拡張経験
IF SELECTCOM == 2 || (STRCOUNT(PLAY_ONANIE, "Ａ") && SELECTCOM == 3)
	SIF SIZE("Ａ振動棒") >= 2
		LOCAL = MAX(SIZE("Ａ振動棒") - ABL:Ａ拡張 + 1, SIZE("Ａ振動棒")/3)
ENDIF

IF LOCAL
	EXP:Ａ拡張経験 += LOCAL
	;拡張経験による追加の疲労
	DOWNBASE:体力 += LOCAL*50
ENDIF

RETURN 1


code:
@COM34
;肛塞
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@TRAIN_MESSAGE_COM34
;肛塞の着脱
IF TEQUIP:肛塞
	TFLAG:地の文分岐 = TEQUIP:肛塞
	TEQUIP:肛塞 = 0
	CALL CALC, "調教ソースの計算"

	;地の文を飛ばすフラグを立てている(ターン開始時にOFFになる)
	SIF TFLAG:地の文スキップ
		RETURN 0

	SIF TEQUIP:電話中
		PRINTFORM 和%TEXTS("彼氏")%%TEXTR("電話着的/電話通話中的/继续打電話的")%、

	PRINTFORMW %CALLNAME:TARGET%\@ TEQUIP:推倒 ? 从 # 的 \@尻穴中将%NAMES("肛塞")%拔了出来…

	PRINTFORM \@ TEQUIP:推倒 ? 拔肛塞的 # 被拔出肛塞的 \@尻穴
	SELECTCASE ABL:Ａ拡張
	CASE IS >= 3
		IF ABL:Ａ拡張 - SIZE("肛塞", TARGET) >= 2
			PRINTFORM 好像很遗憾地反复抽搐収縮着的同时
		ELSE
			PRINTFORM 像大洞一样保持着打開的同时
		ENDIF
		IF EXP_GAIN("肛内精液経験")
			PRINTFORMW 混杂了腸液的精液垂流下来…
		ELSEIF TALENT:腸液分泌体質
			PRINTFORMW 汚液垂流下来…
		ELSE
			SIF CHECK("Ａ完美契合")
				PRINTFORM 变成了%CALLNAME:MASTER%的阴茎形状的
			PRINTFORMW 腸内被显示出来了…
		ENDIF
	CASEELSE
		IF EX:Ａ中出し量 >= 30
			PRINTFORM 灑落着精液
		ELSEIF TALENT:腸液分泌体質
			PRINTFORM 垂落着腸液
		ENDIF
		PRINTFORMW 痙攣地想变回原来的形状…
	ENDSELECT
	RETURN 0
ELSE
	TEQUIP:肛塞 = 1
	;地の文を飛ばすフラグを立てている(ターン開始時にOFFになる)
	SIF TFLAG:地の文スキップ
		RETURN 0
	PRINTFORMW %CALLNAME:TARGET%的尻穴被塞上了肛塞…
ENDIF

@FLAG_COM34, ARG
CALL FLAG_INSERTION, "肛塞", ARG, 100

@SOURCE_COM34, ARG
IF TEQUIP:肛塞
	CALL SOURCE_INSERTION, "肛塞", ARG, 100
ELSE
	CALL SOURCE_INSERTION, "肛塞", ARG, 30
ENDIF

@EQUIP_COM34
;肛塞挿入中
SIF TEQUIP:肛塞 == 0
	RETURN 0
SIF SELECTCOM == 34
	RETURN 0

CALL SOURCE_COM34, 30
CALL FLAG_COM34, 30

RETURN 1

@EQUIP_COM34_2
;肛塞挿入中
SIF TEQUIP:肛塞 == 0
	RETURN 0
SIF SELECTCOM == 34
	RETURN 0

SELECTCASE SIZE("肛塞")
CASE IS >= 4
	PRINTL ＜超大型肛塞挿入中＞
CASE 3
	PRINTL ＜極太肛塞挿入中＞
CASE 2
	PRINTL ＜肛塞(大)挿入中＞
CASEELSE
	PRINTL ＜肛塞挿入中＞
ENDSELECT

LOCAL = 1
;自慰実行時は経験＋１
IF SELECTCOM == 3
	SIF ABL:Ａ拡張 < SIZE("肛塞")
		LOCAL += 1
ENDIF

EXP:Ａ経験 += LOCAL

VARSET LOCAL
;Ａ拡張経験
IF SELECTCOM == 3 || SELECTCOM == 2
	SIF SIZE("肛塞") >= 2
		LOCAL = MAX(SIZE("肛塞") - ABL:Ａ拡張 + 1, SIZE("肛塞")/3)
ENDIF

IF LOCAL
	EXP:Ａ拡張経験 += LOCAL
	;拡張経験による追加の疲労
	DOWNBASE:体力 += LOCAL*50
ENDIF

RETURN 1

license: unknown


code:
@COM37
;飛機杯
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM37, ARG
;阴部を露出させる
CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET

@SOURCE_COM37, ARG
CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 37

SOURCE:0:露出 = 300
SOURCE:0:逸脱 = 300

;ABL:受虐属性をみる
SELECTCASE ABL:受虐属性
CASE 0 TO 5
	SOURCE:0:達成感 = ABL:受虐属性*500
CASEELSE
	SOURCE:0:達成感 = 2500 + (ABL:受虐属性 - 5)*200
ENDSELECT

;男性か扶她
IF PENIS(TARGET)
	;ABL:Ｃ感覚をみる
	SOURCE:0:Ｃ快楽 = MULTIPLY(CALCF("Ｃ刺激", 0), 90 + ITEM:飞机杯*10)
	SOURCE:0:Ｃ快楽 = SOURCE_EXABL(SOURCE:0:Ｃ快楽, "指靈活", PLAYER)
	;阴茎への刺激にはBOUNS
	SOURCE:0:Ｃ快楽 += 500
ENDIF

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

@TRAIN_MESSAGE_COM37
PRINTFORMW 將%CALLNAME:TARGET%%TEXTR("兇猛的/可愛的")%陰莖插入飛機杯中、開始%TEXTR("激烈地/靈巧地/時快時慢地")%套弄起來……


code:
@COM3
;自慰
;振動棒、肛用振動棒、尿道振動棒、视频拍摄の時に内容変化
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

;実行できない
SIF TCVAR:干劲 == 0
	RETURN 0
;-------------------------------------------------
;実行決定
;-------------------------------------------------
;６９自慰は口交
IF CHECK_COM("６９自慰")
	TEQUIP:六九式 = 91
	;TEQUIP:PLAYER:六九式 = 0
ENDIF
CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

;-------------------------------------------------
;射精格子
;-------------------------------------------------
IF CHECK_COM("口交自慰")
	SELECTCOM = 91
	CALL SAMEN_CHECK, 10
	SELECTCOM = 3
ENDIF

RETURN 1

@FLAG_COM3, ARG
#DIMS PLAY_ONANIE
PLAY_ONANIE = %CHECK_ONANIE(SELECTCOM)%

SIF CHECK_COM("口交自慰", 3)
	CALL FLAG_COM91, 10
CALL SETFLAG, "自慰フラグ", TARGET
IF STRCOUNT(PLAY_ONANIE, "Ｃ")
	SIF TALENT:男性 == 0
		CALL EQ_STAIN, TARGET, "手", TARGET, "Ｖ"
	SIF PENIS(TARGET)
		CALL EQ_STAIN, TARGET, "手", TARGET, "Ｐ"
ENDIF
IF STRCOUNT(PLAY_ONANIE, "Ｖ")
	SIF TEQUIP:振動棒
		CALL FLAG_COM31, 30
	CALL EQ_STAIN, TARGET, "手", TARGET, "Ｖ"
ENDIF
IF STRCOUNT(PLAY_ONANIE, "Ａ")
	SIF TEQUIP:肛用振動棒
		CALL SOURCE_COM33, 30
	CALL EQ_STAIN, TARGET, "手", TARGET, "Ａ"
ENDIF
SIF STRCOUNT(PLAY_ONANIE, "Ｂ")
	CALL EQ_STAIN, TARGET, "手", TARGET, "Ｂ"
IF STRCOUNT(PLAY_ONANIE, "尿")
	SIF TEQUIP:尿道振動棒
		CALL FLAG_COM152, 30
	STAIN:手 = SET_STAIN(STAIN:TARGET:手, "尿")
ENDIF

@SOURCE_COM3, ARG
#DIMS PLAY_ONANIE
PLAY_ONANIE = %CHECK_ONANIE(SELECTCOM)%

SIF CHECK_COM("口交自慰", 3)
	CALL SOURCE_COM91, 10
IF STRCOUNT(PLAY_ONANIE, "Ｃ")
	;飞机杯自慰
	SIF STRCOUNT(PLAY_ONANIE, "飞机杯")
		CALL SOURCE_COM37, 30
ENDIF
IF STRCOUNT(PLAY_ONANIE, "Ｖ")
	SIF TEQUIP:振動棒
		CALL SOURCE_COM31, 30
ENDIF
IF STRCOUNT(PLAY_ONANIE, "Ａ")
	SIF TEQUIP:肛用振動棒
		CALL SOURCE_COM33, 30
ENDIF
IF STRCOUNT(PLAY_ONANIE, "尿")
	SIF TEQUIP:尿道振動棒
		CALL SOURCE_COM152, 30
ENDIF

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 3

;ABL:技巧をみる
SOURCE:0:性行動 = 100 + ABL:技巧*100

;ABL:露出癖をみる
SELECTCASE ABL:露出癖
CASE 0 TO 5
	SOURCE:0:露出 = 2000 + ABL:露出癖*200
	SOURCE:0:屈従 = 500 + ABL:露出癖*300
	SOURCE:0:逸脱 = 800 - ABL:露出癖*100
CASE 6 TO 10
	SOURCE:0:露出 = 3000 + (ABL:露出癖 - 5)*100
	SOURCE:0:屈従 = 2000 + (ABL:露出癖 - 5)*200
	SOURCE:0:逸脱 = 300 - (ABL:露出癖 - 5)*50
CASEELSE
	SOURCE:0:露出 = 3500 + (ABL:露出癖 - 10)*50
	SOURCE:0:屈従 = 3000 + (ABL:露出癖 - 10)*100
	SOURCE:0:逸脱 = 0
ENDSELECT

;公開のときは露出のSOURCE増加
SIF TEQUIP:攝像機
	TIMES SOURCE:0:露出, 1.50

SIF STRCOUNT(PLAY_ONANIE, "Ｃ")
	SOURCE:0:Ｃ快楽 = CALCF("Ｃ刺激", 1)
SIF STRCOUNT(PLAY_ONANIE, "Ｂ")
	SOURCE:0:Ｂ快楽 = CALCF("Ｂ刺激", 1)
SIF STRCOUNT(PLAY_ONANIE, "Ｖ")
	SOURCE:0:Ｖ快楽 = CALCF("Ｖ刺激", 1)
IF STRCOUNT(PLAY_ONANIE, "Ａ")
	SOURCE:0:Ａ快楽 = CALCF("Ａ刺激", 1)
	;肛門PLAYなら腸液分泌
	SOURCE:0:Ａ液体追加 = 100 * ABL:自慰中毒
ENDIF
IF STRCOUNT(PLAY_ONANIE, "尿")
	SOURCE:0:尿道快楽 = CALCF("尿道刺激", 1)
	CALL SETFLAG, "尿道性感フラグ", TARGET
ENDIF

;ABL:自慰中毒をみる
SOURCE:0:充足 = ABL:自慰中毒*300 + ABL:露出癖*200

;TARGETの指靈活をみる
IF ABL:指靈活
	SIF SOURCE:0:Ｃ快楽
		SOURCE:0:Ｃ快楽 = SOURCE_EXABL(SOURCE:0:Ｃ快楽, "指靈活", TARGET)
	SIF SOURCE:0:Ｖ快楽
		SOURCE:0:Ｖ快楽 = SOURCE_EXABL(SOURCE:0:Ｖ快楽, "指靈活", TARGET)
	SIF SOURCE:0:Ａ快楽
		SOURCE:0:Ａ快楽 = SOURCE_EXABL(SOURCE:0:Ａ快楽, "指靈活", TARGET)
	SIF SOURCE:0:Ｂ快楽
		SOURCE:0:Ｂ快楽 = SOURCE_EXABL(SOURCE:0:Ｂ快楽, "指靈活", TARGET)
ENDIF

;ここから下は快ＣＶＡＢに対する補正が大量的来るので、それをLOCALに代入して短く表す
LOCAL = 0
SELECTCASE ABL:自慰中毒
CASE 0
	LOCAL += -30
CASEELSE
	LOCAL += MIN(ABL:自慰中毒, 5)*10
ENDSELECT
SELECTCASE ABL:露出癖
CASE 0
	LOCAL += -30
CASEELSE
	LOCAL += MIN(ABL:露出癖, 5)*10
ENDSELECT

SOURCE:0:Ｃ快楽 = SOURCE:0:Ｃ快楽*(100 + LOCAL)/100
SOURCE:0:Ｖ快楽 = SOURCE:0:Ｖ快楽*(100 + LOCAL)/100
SOURCE:0:Ａ快楽 = SOURCE:0:Ａ快楽*(100 + LOCAL)/100
SOURCE:0:Ｂ快楽 = SOURCE:0:Ｂ快楽*(100 + LOCAL)/100
SOURCE:0:尿道快楽 = SOURCE:0:尿道快楽*(100 + LOCAL)/100

;自慰中毒が無いなら、自慰で得た充足のSOURCEは０にする
SIF ABL:自慰中毒 == 0
	SOURCE:0:充足 = 0

IF TEQUIP:单人玩家
	TIMES SOURCE:0:屈従, 1.50
	TIMES SOURCE:0:逸脱, 0.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 CHECK_COM("６９自慰", 3)
	TIMES SOURCE:0:露出, 2.00

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

@TRAIN_MESSAGE_COM3
#DIMS PLAY_ONANIE

PLAY_ONANIE = %CHECK_ONANIE(SELECTCOM)%

;連続実行
IF PREVCOM == SELECTCOM
	SIF TEQUIP:室内露出PLAY
		PRINTFORM 被大家看着、
	IF TEQUIP:振動棒 && TEQUIP:肛用振動棒 && TEQUIP:尿道振動棒 && COND("絶頂") >= 2
		PRINTFORML %CALLNAME:TARGET%在無法抑制地灑落眼淚以及涎水的同時、身體也在不斷地筋攣著、毫無間斷的喊出嘶啞而不成聲的嘶吼。
		PRINTFORMW 身下的淫亂肉窟在劇烈筋攣的同時也將振動棒無意識地緊緊糾纏著、顯然在那些激烈抽插的淫具震動的同時也在同步的絕頂著……
	ELSEIF TEQUIP:尿道振動棒 && TEQUIP:肛用振動棒 && COND("絶頂") >= 2
		PRINTFORML %CALLNAME:TARGET%因絕頂而鬆弛下來的股間的淫靡肉窟中、濁黃的尿液與透明的腸液混合著溢出。在戰戰兢兢的嬌軀無法抑制的顫抖著的同時、也飄蕩出無法言喻的污臭……
		PRINTFORMW 顯然、對於排泄器官所帶來的異常快感、已經痴迷到成癮的程度了……
	ELSEIF TEQUIP:振動棒 && TEQUIP:尿道振動棒 && COND("絶頂") >= 2
		PRINTFORML %CALLNAME:TARGET%用淫靡膣道中激烈震動的兩根振動棒將Ｇ點夾住、並不斷猛力的插拔著、讓完全沉浸於快樂之中的身體痙攣著發出格外淫靡的呻吟。
		PRINTFORMW 大腦早已被過於強烈的快感而沖壞、已經到了根本不可能停手的地步……
	ELSEIF TEQUIP:振動棒 && TEQUIP:肛用振動棒 && COND("絶頂") >= 2
		PRINTFORML %CALLNAME:TARGET%的唇角不斷灑落出晶瑩的涎水、顫抖不已的嬌軀無法抑制的痙攣著、而高昂而淫靡的呻吟聲也毫無間斷地從口腔中發出……
		PRINTFORMW 就好像根本沒能從絕頂中解脫、一直是被快感的浪潮不斷地推上頂峰一樣……
	ELSEIF TEQUIP:振動棒 && COND("絶頂") >= 2
		PRINTFORML %CALLNAME:TARGET%對自己那四溢飛濺的愛液毫不在意、將猛烈振動著的振動棒激烈地反復抽插著、
		PRINTFORMW 看來已經沒有去擔心其他事情的余裕了……
	ELSEIF TEQUIP:肛用振動棒 && COND("肛門拉珠") == 0 && COND("絶頂") >= 2
		PRINTFORML %CALLNAME:TARGET%在不斷搖晃著自己那顫抖著的身體的同時、也將深入尻穴的振動棒激烈地插拔著、
		PRINTFORMW 似乎每次被撫平肉棒的褶皺都會引起無以計數的絕頂的樣子……
	ELSEIF TEQUIP:尿道振動棒 && COND("絶頂") >= 2
		PRINTFORM %CALLNAME:TARGET%
		SIF EXP_GAIN("膀胱精液経験")
			PRINT 混雜著灼熱白濁的
		PRINTFORML 濁黃尿液隨著堵塞物的肆意進出而掏出的同時、將被尿道的肉襞緊緊糾纏著的振動棒激烈地抽插著、
		PRINTFORMW 即使混亂的大腦能夠理解這放蕩行為的異常之處、也完全無法停住不斷揮舞的手……
	ELSEIF ABL:自慰中毒 >= 3 || COND("絶頂") || CHECK_COM("６９自慰") || CHECK_COM("口交自慰") || TCVAR:干劲 >= 40
		IF TALENT:男性 || (TALENT:扶她 && RAND:2 == 0)
			PRINTFORML %CALLNAME:TARGET%一直用格外粗暴的手法將堅硬地勃起著的陰莖持續擼動著、
		ELSE
			PRINTFORML %CALLNAME:TARGET%在不断發出嬌柔的呻吟声的同時也一直一心不亂地持續愛撫著自己的私處、
		ENDIF
		PRINTFORMW 看來即使想要停下、手指也會繼續蹂躏私處的樣子……
	ELSE
		PRINTFORML %CALLNAME:TARGET%死死壓抑住呼之欲出的呻吟聲的同時、也將自己最敏感的地方緩慢地愛撫著、
		PRINTFORMW ……也許是不適應被人看著做這種事的緣故、似乎沒辦法專注於此……
	ENDIF
ELSE
	;手下留情は終了
	IF TEQUIP:手下留情
		PRINTW （手下留情を止めます）
		PRINTL
		TEQUIP:手下留情 = 0
	ENDIF
	;いつも出すとくどい
	;SIF TEQUIP:室内露出PLAY
	;	PRINTFORM 被大家看着、
	PRINTFORM %CALLNAME:TARGET%
	IF INSERT("挿入")
		IF INSERT("Ｖ挿入")
			LOCALS = 膣
		ELSEIF INSERT("Ａ挿入")
			LOCALS = 肛門
		ELSEIF INSERT("尿道挿入")
			LOCALS = 尿道
		ENDIF
		IF INSERT("騎乗位")
			PRINTFORM 將%CALLNAME:PLAYER%跨越著、用%LOCALS%將%NAMES("阴茎", PLAYER)%吞入體內的同時、
		ELSEIF INSERT("背面座位")
			PRINTFORM 用%LOCALS%將%NAMES("阴茎", PLAYER)%緊緊包裹著並整個倚靠在%CALLNAME:PLAYER%身上的同時、
		ELSEIF INSERT("屈曲位")
			PRINTFORM 將%LOCALS%被%NAMES("阴茎", PLAYER)%深入體內並被緊緊禁錮住的姿勢保持著的同時、
		ELSE
			PRINTFORM 將%LOCALS%被抽插著的姿勢保持著、停止腰肢的扭動、完全倚靠在%CALLNAME:PLAYER%身上的同時、
		ENDIF
	ELSEIF CHECK_COM("６９自慰")
		PRINTFORM 將眼前挺立的陰莖
		IF COND("絶頂") && RAND:3 == 0
			PRINTFORM 激烈地舔舐並吮吸著的同時、
		ELSEIF ABL:奉仕精神 >= 3 && RAND:3 == 0
			PRINTFORM 熱切地侍奉著的同時、
		ELSE
			PRINTFORM %TEXTR("舔舐並吮吸著/反復啄吻著/呸嘍呸嘍地舔舐著")%的同時、
		ENDIF
		PRINTFORM 保持著跨坐在%CALLNAME:PLAYER%臉頰上的姿勢、
	ELSEIF CHECK_COM("口交自慰")
		PRINTFORM 將%CALLNAME:PLAYER%的陰莖%TEXTR("反復地啄吻著/呸嘍呸嘍地舔舐著")%的同時、
	ELSE
		SELECTCASE TCVAR:干劲
		;干劲満々
		CASE IS >= 40
			IF TEQUIP:攝像機 && RANDIF(3, ABL:露出癖 >= 3, TEQUIP:媚薬)
				PRINTFORM 不斷向攝像機投出視線的同時、
			ELSEIF TEQUIP:媚薬 && RANDIF(2, ABL:露出癖 >= 3)
				PRINTFORM 因媚藥而使身體無法抑制的興奮起來、
				SIF ABL:自慰中毒 >= 3
					PRINTFORM 格外貪婪的
			ELSEIF ABL:露出癖 >= 3 && RAND:2
				PRINTFORM 像是在特地向%CALLNAME:PLAYER%展示一樣、
			ELSEIF RAND:2
				PRINTFORM 完全沒有反抗之意地、
			ELSE
				PRINTFORM 的臉頰染上薄薄的一層紅暈、
			ENDIF
		;抵抗无
		CASE IS >= 20
			PRINTFORM 將%CALLNAME:PLAYER%的命令勉強地服從著、
		;仕方なく
		CASEELSE
			IF TALENT:高慢 && RANDIF(1, TALENT:叛逆)
				PRINTFORM 因為高傲與自尊心而不快地瞪視著、但還是不情願地、
			ELSEIF TALENT:叛逆
				PRINTFORM 用蘊含著叛逆之意的眼神瞪視著、但還是不情願地、
			ENDIF
		ENDSELECT
	ENDIF

	;飞机杯自慰
	IF STRCOUNT(PLAY_ONANIE, "飞机杯")
		PRINTFORM 將激烈地勃起著的陰莖用潤滑充分的飛機杯激烈地擼動著、
	ELSEIF STRCOUNT(PLAY_ONANIE, "両穴振動棒")
		IF COND("肛門拉珠")
			PRINTFORM 將深入體內的%NAMES("振動棒", TARGET)%以及肛門拉珠主動地不斷抽插著
		ELSEIF SIZE("振動棒", TARGET) >= 2 && SIZE("Ａ振動棒", TARGET) >= 2
			PRINTFORM 將深入體內的兩根粗大無比的振動棒激烈地插拔著
		ELSE
			PRINTFORM 將深入體內的兩根振動棒激烈地插拔著
		ENDIF
		IF NOWEX:絶頂数合計 && RAND:2
			PRINTFORM 、在格外濃烈的淫靡%TEXTS("气味")%漂浮在空氣中的同時、
		ELSE
			PRINTFORM 、
		ENDIF
	ELSEIF STRCOUNT(PLAY_ONANIE, "Ｖ振動棒")
		PRINTFORM 將深深插入膣道的%NAMES("振動棒", TARGET)%主動地不斷抽插著、
	ELSEIF STRCOUNT(PLAY_ONANIE, "Ａ振動棒")
		IF COND("肛門拉珠")
			PRINTFORM 將深入肛門的肛門拉珠隨著腸道的蠕動激烈地插拔著、
		ELSE
			PRINTFORM 將深深刺入尻穴的%NAMES("Ａ振動棒", TARGET)%激烈地插拔著、
		ENDIF
	ELSEIF STRCOUNT(PLAY_ONANIE, "尿道振動棒")
		PRINTFORM 將深深地貫穿了尿道的%NAMES("尿道振動棒", TARGET)%主動地不斷抽插著、
	ELSE
		;2020/02/1　別人加筆
		SELECTCASE FAV_ONANIE(SELECTCOM, "一番")
		CASE "Ｃ"
			IF PENIS(TARGET)
				IF PALAM:欲情 >= 3000
					PRINTFORM %TEXTS("阴茎：視覚", TARGET)%
				ENDIF
				PRINTFORM 陰莖激烈地擼動著、
			ELSE
				IF TALENT:陰蒂環
					IF COND("陰核肥大")
						PRINTFORM %TEXTR("肥大的/大号的")%
					ENDIF
					PRINTFORM %TEXTR("陰核上貫穿的/陰核上作為装飾的")%%TEXTS("陰蒂環")%を
				ELSE
					IF TEQUIP:創口貼 || CFLAG:創口貼装着
						PRINTFORM 隔着創口貼
					ENDIF
					PRINTFORM \@ COND("陰核肥大") ? 大栗子 # 阴蒂 \@
				ENDIF
				PRINTFORM 用自己的手指%TEXTR("摩擦著/玩弄著/揉搓著")%
			ENDIF
		CASE "Ｖ"
			IF TALENT:陰唇環 && (AGE(TARGET) < 3 || RAND:2)
				PRINTFORM %TEXTS("陰唇環")%%TEXTR("装饰着的/在反光的")%
				SELECTCASE AGE(TARGET)
					CASE IS >= 4
						PRINTFORM %TEXTR("肉厚的/成熟大人样的/发黑的")%
					CASEELSE
						PRINTFORM %TEXTR("大人样的/色彩鲜明的")%
				ENDSELECT
			ENDIF
			PRINTFORM %TEXTR("阴部/秘所")%
			PRINTFORM %TEXTR("用自己的手指激烈地玩弄著/用自己的手指反復的翻攪著/用自己的手指不斷地抽插著")%、
		CASE "Ａ"
			PRINTFORM 將不斷張合著的%TEXTR("肛門/尻穴")%
			IF RAND:3 == 0 || !CHECK_CLO("Ａ露出")
				PRINTFORM 用自己的手指激烈地玩弄著、
			ELSE
				PRINTFORM %TEXTR("用自己的手指反復的翻攪著/用自己的手指不斷地抽插著")%、
			ENDIF
		CASE "Ｂ"
			IF TALENT:陰唇環
				IF RAND:2 && CALCF("Ｂ発情")
					IF COND("陥没乳頭")
						PRINTFORM %TEXTR("陥没的乳頭的先端/只是稍微伸出的乳頭/乳輪中央微微探出的乳頭")%
					ELSE
						IF COND("乳頭肥大")
							PRINTFORM %TEXTR("大/肥大化的")%
						ENDIF
						PRINTFORM 乳頭
					ENDIF
				ELSE
					PRINTFORM 胸の先端
				ENDIF
				IF CEVENT("乳环") && RAND:3
					PRINTFORM 被安装的%CEVENTS("乳环")%の穿環
				ELSE
					PRINTFORM 的%TEXTR("装飾性/反光")%%TEXTR("穿環/金属环")%
				ENDIF
				PRINTFORM 用自己的手指%TEXTR("弾弄着/玩弄着/轻拉着")%
			ELSE
				IF RAND:2 && CALCF("Ｂ発情")
					IF COND("陥没乳頭")
						PRINTFORM %TEXTR("陥没的乳頭的先端/只是稍微伸出的乳頭/乳輪中央微微探出的乳頭")%
					ELSE
						PRINTFORM 乳頭
					ENDIF
				ELSE
					PRINTFORM 胸
				ENDIF
				PRINTFORM 用自己的手指%TEXTR("反復地揉搓著/不斷地玩弄著/激烈地揉捏著")%、
			ENDIF
		CASE "尿"
			;指插入可能
			IF CALCF("尿道径") > SIZE("指の直径", PLAYER)
				PRINTFORM 將%TEXTR("已經足夠鬆弛的尿道/被充分開發過的排尿口")%
				PRINTFORM %TEXTR("用自己的手指激烈地玩弄著/用自己的手指反復的翻攪著/用自己的手指不斷地抽插著")%、
			ELSE
				PRINTFORM 將%TEXTR("尿道口/尿道淺層的粘膜")%用自己的手指%TEXTR("反復的摩擦著/激烈地玩弄著/不斷地揉搓著")%、
			ENDIF
		ENDSELECT
	ENDIF
	IF CHECK_COM("６９自慰")
		PRINTW 全心地沉迷於自慰行為之中……
	ELSE
		PRINTW 盡情地品味著快樂……
	ENDIF
ENDIF

;-------------------------------------------------
;どの種類の自慰をしているかを決定する
;ARGにはどのSELECTCOMの時かを代入する。省略した場合にはSELECTCOMが代入されるが非推奨
;内容が複雑かつ#FUNCTIONを多数用いるため独立
;-------------------------------------------------
@CHECK_ONANIE(ARG)
#FUNCTIONS
;自慰に使える手の本数
#DIM USE_HAND
;自慰ＯＫな部位
#DIMS FAVPLAY

VARSET LOCALS

;指令選択時の表示ではARG == 3となっている
USE_HAND = CALCF("自由な手", ARG)
SIF USE_HAND == 0
	RETURNF LOCALS

;ＣＶＢＡ尿のうち、自慰で使える文字が代入される
FAVPLAY = %FAV_ONANIE(ARG)%

SIF ARG == 0
	ARG = SELECTCOM

IF INSERT("挿入") && CHECK_COM("挿入自慰")
	LOCALS = %FAV_ONANIE(ARG, "一番")%
ELSEIF USE_HAND >= 2
	IF CHECK_COM("飞机杯自慰")
		LOCALS += "Ｃ"
	ELSEIF TEQUIP:振動棒 && TEQUIP:肛用振動棒 && COND("肛門拉珠") == 0 && TEQUIP:尿道振動棒
		;ＶＡ尿道ともに行けるなら三穴振動棒自慰
		IF STRCOUNT(FAVPLAY, "Ｖ") && STRCOUNT(FAVPLAY, "Ａ") && STRCOUNT(FAVPLAY, "尿")
			LOCALS += "ＶＡ尿"
		ELSEIF STRCOUNT(FAVPLAY, "Ｖ") && (ABL:Ｖ感覚 >= ABL:Ａ感覚 || ABL:Ａ感覚 < 3) && (ABL:Ｖ感覚 >= ABL:尿道感覚 || ABL:尿道感覚 < 3)
			LOCALS += "Ｖ"
		ELSEIF STRCOUNT(FAVPLAY, "Ａ") && (ABL:Ａ感覚 >= ABL:Ｖ感覚 || ABL:Ｖ感覚 < 3) && (ABL:Ａ感覚 >= ABL:尿道感覚 || ABL:尿道感覚 < 3)
			LOCALS += "Ａ"
		ELSE
			LOCALS += "尿"
		ENDIF
	ELSEIF TEQUIP:振動棒 && TEQUIP:肛用振動棒 && COND("肛門拉珠") == 0
		;ＶＡともに行けるなら両穴振動棒自慰
		IF STRCOUNT(FAVPLAY, "Ｖ") && STRCOUNT(FAVPLAY, "Ａ")
			LOCALS += "ＶＡ"
		ELSEIF STRCOUNT(FAVPLAY, "Ｖ") && (ABL:Ｖ感覚 >= ABL:Ａ感覚 || ABL:Ａ感覚 < 3)
			LOCALS += "Ｖ"
		ELSE
			LOCALS += "Ａ"
		ENDIF
	ELSEIF TEQUIP:尿道振動棒 && TEQUIP:肛用振動棒 && COND("肛門拉珠") == 0
		;Ａ尿道ともに行けるなら両穴振動棒自慰
		IF STRCOUNT(FAVPLAY, "尿") && STRCOUNT(FAVPLAY, "Ａ")
			LOCALS += "Ａ尿"
		ELSEIF STRCOUNT(FAVPLAY, "尿") && (ABL:尿道感覚 >= ABL:Ａ感覚 || ABL:Ａ感覚 < 3)
			LOCALS += "尿"
		ELSE
			LOCALS += "Ａ"
		ENDIF
	ELSEIF TEQUIP:振動棒 && TEQUIP:尿道振動棒
		;Ｖ尿道ともに行けるなら両穴振動棒自慰
		IF STRCOUNT(FAVPLAY, "Ｖ") && STRCOUNT(FAVPLAY, "尿")
			LOCALS += "Ｖ尿"
		ELSEIF STRCOUNT(FAVPLAY, "Ｖ") && (ABL:Ｖ感覚 >= ABL:尿道感覚 || ABL:尿道感覚 < 3)
			LOCALS += "Ｖ"
		ELSE
			LOCALS += "尿"
		ENDIF
	ELSEIF ARG == 3
		IF TEQUIP:振動棒 && STRCOUNT(FAVPLAY, "Ｖ")
			LOCALS += "Ｖ"
		ELSEIF TEQUIP:肛用振動棒 && COND("肛門拉珠") == 0 && STRCOUNT(FAVPLAY, "Ａ")
			LOCALS += "Ａ"
		ELSEIF TEQUIP:尿道振動棒 && STRCOUNT(FAVPLAY, "尿")
			LOCALS += "尿"
		ELSE
			LOCALS = %FAV_ONANIE(ARG, "一番")%
		ENDIF
	ENDIF
ENDIF
IF CHECK_COM("飞机杯自慰") && STRCOUNT(FAVPLAY, "Ｃ")
	LOCALS += "飞机杯"
ELSEIF TEQUIP:振動棒 && TEQUIP:肛用振動棒 && COND("肛門拉珠") == 0 && STRCOUNT(FAVPLAY, "Ｖ") && STRCOUNT(FAVPLAY, "Ａ")
	LOCALS += "Ｖ振動棒Ａ振動棒両穴振動棒"
ELSEIF TEQUIP:振動棒 && STRCOUNT(FAVPLAY, "Ｖ")
	LOCALS += "Ｖ振動棒"
ELSEIF TEQUIP:肛用振動棒 && COND("肛門拉珠") == 0 && STRCOUNT(FAVPLAY, "Ａ")
	LOCALS += "Ａ振動棒"
ELSEIF TEQUIP:尿道振動棒 && STRCOUNT(FAVPLAY, "尿")
	LOCALS += "尿道振動棒"
ELSEIF USE_HAND && LOCALS == ""
	LOCALS = %FAV_ONANIE(ARG, "一番")%
ENDIF

RETURNF LOCALS

@FAV_ONANIE(ARG, ARGS)
#FUNCTIONS
#DIM LCOUNT
;自慰に使える手の本数
#DIM USE_HAND
;自慰ＯＫな部位
#DIMS FAVPLAY
;自慰部位
#DIMS IS_ONANIES, 5
;喜欢的自慰方式場所
#DIMS FAV_ONANIES, 5

;好きな場所決定(優先度はＣ＞Ｖ＞Ｂ＞Ａ＞尿道)
;ARGは実行中のSEELCTCOMに相当する値が代入されている（指令選択時ではARG == 3）
;ただし、挿入されている時に弄れないであろう場所等は選べない
LOCAL:0 = ABL:Ｃ感覚 + TALENT:Ｃ性向*3 + TALENT:淫核*5 + PENIS(TARGET)*3
LOCAL:1 = ABL:Ｖ感覚 + TALENT:Ｖ性向*3 + TALENT:淫壷*5
LOCAL:2 = ABL:Ｂ感覚 + TALENT:Ｂ性向*3 + TALENT:淫乳*5
LOCAL:3 = ABL:Ａ感覚 + TALENT:Ａ性向*3 + TALENT:尻穴狂い*5
LOCAL:4 = ABL:尿道感覚 + TALENT:尿道性感*3 + TALENT:尿道狂*5

VARSET IS_ONANIES
VARSET FAV_ONANIES

IS_ONANIES:0 = Ｃ
SIF ABL:Ｖ感覚 >= 2 && TALENT:男性 == 0 && TALENT:処女 == 0 && EXP:Ｖ経験 >= 5
	IS_ONANIES:1 = Ｖ
SIF ABL:Ｂ感覚 >= 2 && TALENT:Ｂ性向 + TALENT:淫乳
	IS_ONANIES:2 = Ｂ
SIF ABL:Ａ感覚 >= 2 && TALENT:Ａ性向 + TALENT:尻穴狂い && EXP:Ａ経験 >= 5
	IS_ONANIES:3 = Ａ
SIF ABL:尿道感覚 >= 2 && TALENT:尿道性感 + TALENT:尿道狂 && EXP:尿道経験 >= 5
	IS_ONANIES:4 = 尿

;Ｈ中にこの関数を呼んだなら現在可能かを見る
IF COND("調教中")
	SIF USE_V(TARGET, "振動棒") == 0
		IS_ONANIES:1 =
	SIF ARG == 92 || ARG == 104 || CHECK_COM("乳夾口交", ARG) || CHECK_COM("洗面奶手交", ARG) || CHECK_COM("６９自慰", ARG)
		IS_ONANIES:2 =
	SIF CHECK_SHIRT("鎧") && CHECK_CLO("谷間露出") + CHECK_CLO("乳頭露出") + CHECK_CLO("半脱可") == 0
		IS_ONANIES:2 =
	SIF USE_A(TARGET, "肛用振動棒") == 0
		IS_ONANIES:3 =
	SIF TEQUIP:創口貼 || CFLAG:創口貼装着
		IS_ONANIES:4 =

	;Ｖと尿道
	SELECTCASE ARG
	CASE 60 TO 69, 70, 73, 83 TO 88
		IS_ONANIES:1 =
		SIF PENIS(TARGET) == 0
			IS_ONANIES:4 =
	CASE IS >= 0
		IF INSERT("Ｖ挿入") || INSERT("正常位") || INSERT("対面座位")
			IS_ONANIES:1 =
			SIF PENIS(TARGET) == 0
				IS_ONANIES:4 =
		ENDIF
	ENDSELECT

	;Ａ
	SELECTCASE ARG
	CASE 60 TO 62, 64, 70 TO 79
		IS_ONANIES:3 =
	CASEELSE
		SIF INSERT("Ａ挿入") || INSERT("正常位") || INSERT("後背位") || INSERT("屈曲位") || INSERT("背面座位")
			IS_ONANIES:3 =
	ENDSELECT
ENDIF

FOR LCOUNT, 0, 5
	;PRINTFORML LOCAL:{LCOUNT} = {LOCAL:LCOUNT}
	SIF LOCAL:LCOUNT == 0 || IS_ONANIES:LCOUNT == ""
		CONTINUE
	;好きな場所決定(優先度はＣ＞Ｖ＞Ｂ＞Ａ＞尿道)
	IF FAV_ONANIES:0 == "" && LOCAL:LCOUNT >= MAX(LOCAL:0, LOCAL:1, LOCAL:2, LOCAL:3, LOCAL:4)
		FAV_ONANIES:0 = %IS_ONANIES:LCOUNT%
	ELSEIF FAV_ONANIES:1 == "" && LOCAL:LCOUNT >= MAX(LOCAL:1, LOCAL:2, LOCAL:3, LOCAL:4)
		FAV_ONANIES:1 = %IS_ONANIES:LCOUNT%
	ELSEIF FAV_ONANIES:2 == "" && LOCAL:LCOUNT >= MAX(LOCAL:2, LOCAL:3, LOCAL:4)
		FAV_ONANIES:2 = %IS_ONANIES:LCOUNT%
	ELSEIF FAV_ONANIES:3 == "" && LOCAL:LCOUNT >= MAX(LOCAL:3, LOCAL:4)
		FAV_ONANIES:3 = %IS_ONANIES:LCOUNT%
	ELSEIF FAV_ONANIES:4 == ""
		FAV_ONANIES:4 = %IS_ONANIES:LCOUNT%
	ENDIF
NEXT

;指令選択時の表示ではARG == 3となっている
USE_HAND = CALCF("自由な手", ARG)

FAVPLAY =
FOR LCOUNT, 0, USE_HAND
	FAVPLAY += @"%FAV_ONANIES:LCOUNT%"
NEXT
SIF FAVPLAY == ""
	FAVPLAY = Ｃ

SELECTCASE ARGS
CASE "一番"
	RETURNF SUBSTRINGU(FAVPLAY, 0, 1)
CASEELSE
	RETURNF FAVPLAY
ENDSELECT

@EQUIP_COM3
;自慰中毒0LV
SIF ABL:自慰中毒 == 0
	RETURN 0

SELECTCASE SELECTCOM
;性交系、奉仕系、什麼也不做 選択時に行う
CASE 60 TO 89, 139
CASEELSE
	RETURN 0
ENDSELECT

;調教中でないor自慰を禁止されてるorTARGETが挿入してる側だとしない
SIF COND("調教中") == 0 || COND("身嗜み：自慰禁止") || INSERT("挿入中")
	RETURN 0
;苦痛有、性欲満足、Ｗ推倒中、手が余ってない
SIF TEQUIP:Ｗ推倒 || CUP:苦痛 > PALAM_LV(ABL:受虐属性) || BASE:性欲 >= MAXBASE:性欲 || CALCF("自由な手") <= 0
	RETURN 0

;欲望、信頼、奉仕精神も判定に使用
;前のターンに自慰しているorこのターンに什麼也不做なら高確率で自慰しちゃう
IF PREVCOM == 3 && ABL:自慰中毒 >= RAND:4
ELSEIF SELECTCOM == 139 && ABL:自慰中毒 >= RAND:5
ELSEIF ABL:自慰中毒 <= RAND:8 || ABL:自慰中毒*3 + ABL:欲望 + RAND:5 < ABL:信頼 + ABL:奉仕精神*2
	RETURN 0
ENDIF

;振動棒に余裕が無い時はダメ
SIF TEQUIP:振動棒 && CHECK("振動棒") == 0
	RETURN 0
SIF TEQUIP:肛用振動棒 && CHECK("Ａ振動棒") == 0
	RETURN 0

CALL SETFLAG, "ながら自慰フラグ", TARGET

;SOURCEの増加
CALL SOURCE_COM3,30
CALL FLAG_COM3, 30

@EQUIP_COM3_2
;自慰中毒0LV
SIF ABL:自慰中毒 == 0
	RETURN 0
SIF COND("ながら自慰フラグ") == 0
	RETURN 0

SELECTCASE SELECTCOM
CASE 60 TO 79, 83 TO 88
	PRINTL ＜自慰中毒＞
	IF SELECTCOM == 65 || SELECTCOM == 75 || SELECTCOM == 88 || TEQUIP:推倒
		PRINTFORM %CALLNAME:TARGET%在毫無間歇地揮舞著腰肢的同時也將指尖向
	ELSE
		PRINTFORM %CALLNAME:TARGET%在快樂地接受著侵犯的同時也將指尖向
	ENDIF
	LOCALS = 伸出
;什麼也不做
CASE 139
	PRINTL ＜自慰中毒＞
	PRINTFORM %CALLNAME:TARGET%的指尖\@ ABL:自慰中毒 >= 3 ? 無意識地 # \@向
	LOCALS = 伸出
CASEELSE
	PRINTFORM 她的指尖向
	LOCALS = 伸出
ENDSELECT

SELECTCASE FAV_ONANIE(SELECTCOM, "一番")
CASE "Ｃ"
	IF PENIS(TARGET)
		IF CHECK_COM("飞机杯自慰")
			PRINTFORMW 股間%LOCALS%、將%TEXTR("陰莖用飛機杯激烈地上下擼動著/陰莖用飛機杯盡情地擼動著")%……
		ELSE
			PRINTFORMW 陰莖%LOCALS%、將%TEXTR("敏感的龜頭仔細地撫摸著/莖身激烈地擼動著")%……
		ENDIF
		CALL EQ_STAIN, TARGET, "手", TARGET, "Ｐ"
	ELSE
		PRINTFORM 胯股之间%LOCALS%、將
		IF RAND:2 == 0 || (SELECTCOM >= 60 && SELECTCOM <= 79)
			IF CALCF("Ｃ発情") >= 3
				PRINTFORM 將因興奮而充血膨脹的
			ELSE
				SIF CALCF("Ｃ発情") <= 1
					PRINTFORM 被包皮包裹著的
				PRINTFORM 敏感的
			ENDIF
			PRINTFORM 淫豆
			IF TALENT:陰蒂環 && RAND:2 == 0
				PRINTW 借著將其貫穿的穿環玩弄起來……
			ELSE
				PRINTW 反復地揉搓扭轉著……
			ENDIF
		ELSE
			IF TALENT:陰蒂環 && RAND:2 == 0
				IF RAND:2
					PRINTFORMW 反光的金屬圓環捻動、拉扯著、將陰蒂盡情的蹂躪著……
				ELSE
					PRINTFORMW 装飾著淫核的金屬圓環拉扯著玩弄起來……
				ENDIF
			ELSEIF CALCF("Ｃ発情") < 3 && RAND:2
				PRINTW 慢慢勃起的陰蒂輕輕地揉搓著……
			ELSE
				PRINTW 將秘部輕輕搓弄著、帶起咕啾咕啾的淫靡水聲……
			ENDIF
		ENDIF
		CALL EQ_STAIN, TARGET, "手", TARGET, "Ｖ"
	ENDIF
CASE "Ｖ"
	PRINTFORM 胯股之间%LOCALS%、將
	IF TEQUIP:振動棒
		IF SIZE("振動棒", TARGET) >= 2
			PRINTFORM 將把膣道內部的每一處褶皺拉扯的展開的
		ELSE
			PRINTFORM 將深深插入膣道之中的
		ENDIF
		SIF SIZE("振動棒", TARGET) == 2
			PRINTFORM 巨大的
		SIF SIZE("振動棒", TARGET) >= 3
			PRINTFORM 兇惡的
		PRINTW 振動棒反復地抽插著享受快感……
	ELSEIF INSERT("正常位") + INSERT("屈曲位") && ABL:露出癖 >= 3 && RAND:2
		PRINTFORMW 不時地將秘部推開享受著自慰的快樂……
	ELSE
		PRINTW 將秘部輕輕搓弄著、帶起咕啾咕啾的淫靡水聲……
		CALL EQ_STAIN, TARGET, "手", TARGET, "Ｖ"
	ENDIF
	EXP:Ｖ経験 += 1
CASE "Ａ"
	PRINTFORM 胯股之间%LOCALS%、將
	IF TEQUIP:肛用振動棒
		PRINTW 深深插入肛門的淫亂玩具反復地插拔著、享受著自慰的快感……
	ELSE
		PRINTW 柔軟緊致的尻穴盡情地玩弄著……
		CALL EQ_STAIN, TARGET, "手", TARGET, "Ａ"
	ENDIF
	EXP:Ａ経験 += 1
CASE "Ｂ"
	IF TALENT:巨乳
		IF RAND:2
			PRINTFORM 豐腴飽滿的
		ELSE
			PRINTFORM 柔软的
		ENDIF
	ELSEIF TALENT:貧乳
		PRINTFORM 小小的
	ENDIF
	PRINTFORM 胸部%LOCALS%、
	IF RAND:2 == 0 && TALENT:巨乳
		SIF ABL:Ｂ感覚 >= 4 && RAND:2
			PRINTFORM 在手指深陷乳肉之中的同時、
		PRINTW 將乳房盡情地揉搓起來……
	ELSE
		LOCAL = 0
		IF TALENT:乳环 && RAND:2 == 0
			PRINTFORM 將被%TEXTS("乳环")%装飾著的
			LOCAL = 1
		ELSEIF CALCF("Ｂ発情") >= 3
			PRINTFORM 將因快感而鼓脹起來的
		ELSEIF CALCF("Ｂ発情") >= 2
			PRINTFORM 將興奮的膨脹起來的
		ELSEIF CALCF("Ｂ発情")
			PRINTFORM 將漸漸勃起的
		ELSE
			PRINTFORM 將粉嫩的
		ENDIF
		PRINTFORM 突起
		IF TALENT:乳环 && RAND:3 == 0 && LOCAL == 0
			PRINTW 上貫穿而過的乳環拉扯著玩弄起來……
		ELSE
			IF RAND:2
				PRINTW 激烈地擼動起來……
			ELSE
				PRINTW 來回地揉搓扭動著……
			ENDIF
		ENDIF
	ENDIF
	CALL EQ_STAIN, TARGET, "手", TARGET, "Ｂ"
CASE "尿"
	PRINTFORM 胯股之间%LOCALS%、將
	IF TEQUIP:尿道振動棒
		PRINTFORM 將%TEXTR("已經足夠鬆弛的尿道/被充分開發過的排尿口")%
		IF SIZE("尿道振動棒", TARGET) >= 2 && RAND:2
			PRINTFORM 強行侵入內部的
		ELSE
			PRINTFORM 被輕易吞入體內的
		ENDIF
		SELECTCASE SIZE("尿道振動棒", TARGET)
		CASE 2
			PRINTFORM 巨大的
		CASE IS >= 3
			PRINTFORM 兇惡的
		ENDSELECT
		PRINTFORM 振動棒反復地抽插著享受著異常的快感……
	ELSE
		;指插入可能
		IF CALCF("尿道径") > SIZE("指の直径", PLAYER)
			PRINTFORM 已經被開發的足夠鬆弛的%TEXTR("尿道/排尿口")%
			PRINTFORM %TEXTR("激烈地翻攪著/不斷地抽插著")%……
		ELSE
			PRINTFORM 格外喜愛異常快感的%TEXTR("尿道口/尿道淺層的粘膜")%%TEXTR("反復地摩擦著/激烈地玩弄著/不斷地揉搓著")%享受起來……
		ENDIF
	ENDIF
	PRINTFORMW
	STAIN:手 = SET_STAIN(STAIN:TARGET:手, "尿")
	EXP:尿道経験 += 1
ENDSELECT

EXP:自慰経験 += 1

@COM_ORDER_COM3, 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 -= 5
	LOCALS = %LOCALS% - 冷静(5)
ENDIF
;害羞
IF TALENT:害羞
	LOCAL -= 15
	LOCALS = %LOCALS% - 害羞(15)
ENDIF
;不知羞恥
IF TALENT:不知羞恥
	LOCAL += 2
	LOCALS = %LOCALS% + 不知羞恥(2)
ENDIF
;接受快感
IF TALENT:接受快感
	LOCAL += 5
	LOCALS = %LOCALS% + 接受快感(5)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 5
	LOCALS = %LOCALS% - 否定快感(5)
ENDIF
;６９中
IF TEQUIP:六九式
	LOCAL -= 10
	LOCALS = %LOCALS% - 六九式中(10)
ENDIF
IF COND("陶酔")
	LOCAL += 10
	LOCALS = %LOCALS% + 陶酔(10)
ENDIF
IF TEQUIP:媚薬
	LOCAL += 6
	LOCALS = %LOCALS% + 媚薬(6)
ENDIF
;振動棒
IF TEQUIP:振動棒
	LOCAL -= 5
	LOCALS = %LOCALS% - 振動棒(5)
ENDIF
;Ａ振動棒
IF TEQUIP:肛用振動棒 && COND("肛門拉珠") == 0
	LOCAL -= 10
	LOCALS = %LOCALS% - 肛用振動棒(10)
ENDIF
;视频拍摄
IF TEQUIP:攝像機
	LOCAL -= 20
	LOCALS = %LOCALS% - 撮影中(20)
ENDIF
IF TEQUIP:野外PLAY
	LOCAL -= 10
	LOCALS = %LOCALS% - 野外PLAY(10)
ENDIF

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

RETURN RESULT


code:
@COM4
;舐陰莖
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM4, ARG
CALL SETFLAG, "口交フラグ", PLAYER
SIF CHECK_CLO("Ｖ露出") == 0
	CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
;対象のＰ⇔調教者の口的污垢が移動
CALL EQ_STAIN, TARGET, "Ｐ", PLAYER, "Ｍ"
SIF CHECK_COM("清洁口交", 4)
	CALL SETFLAG, "清洁口交", PLAYER

@SOURCE_COM4, ARG
CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 4

SOURCE:0:露出 = 220
SOURCE:0:逸脱 = 50

;男性か扶她
IF PENIS(TARGET)
	;ABL:Ｃ感覚をみる
	SOURCE:0:Ｃ快楽 = CALCF("Ｃ刺激", 1)
	;調教者の舌靈活をみる
	SOURCE:0:Ｃ快楽 = SOURCE_EXABL(SOURCE:0:Ｃ快楽, "舌靈活", PLAYER)
	;阴茎への刺激にはBOUNS
	SOURCE:0:Ｃ快楽 += 500
ENDIF

SIF CHECK_COM("清洁口交", 4)
	TIMES SOURCE:0:Ｃ快楽, 0.10

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

@TRAIN_MESSAGE_COM4
VARSET LOCALS
;被逆推ているとき(同時含む)
IF TEQUIP:推倒
	PRINTFORM %CALLNAME:TARGET%
	;助手が前回と同じ行動(違う行動の時は、ここでなく、EQUIP_COM32で記述)
	IF SELECTCOM:1 == PREVCOM:1 && SELECTCOM:1 >= 0
		PRINTFORM %TEXTS("Ｗ推倒中")%、
	ELSEIF SELECTCOM == PREVCOM && TALENT:MASTER:男性 == 0
		PRINTFORM 將苦悶的浮起淚滴的
	ELSE
		PRINTFORM 身體被牢牢禁錮住、動彈不得的
	ENDIF
	IF SELECTCOM == PREVCOM
		PRINTFORM %CALLNAME:PLAYER%の
		IF (ABL:PLAYER:技巧 >= 4 || ABL:施虐属性 >= 3) && RAND:2 == 0
			PRINT 含住陰莖的柔韌咽喉
		ELSE
			PRINT 包裹著陰莖的口腔
		ENDIF
		SIF ABL:施虐属性 >= 3
			PRINT 毫不留情地
		PRINTFORMW 持續侵犯起來……
	ELSE
		PRINTFORM 在%CALLNAME:PLAYER%的口腔中、用
		IF CHECK_STAIN(STAIN:Ｐ, "Ｖ", "Ａ") && COND("前Ｔ調教者") == PLAYER
			IF PREVPLAY("Ａ挿入", PLAYER)
				;前回中出し
				IF PREVEX("射精")
					PRINT 將腸道粘膜塗滿白濁的
				ELSE
					PRINT 從肛門中拔出的
				ENDIF
			ELSEIF PREVPLAY("Ｖ挿入", PLAYER)
				;前回中出し
				IF PREVEX("射精")
					PRINT 將子宮用精子填滿的
				ELSE
					PRINT 從膣道中拔出的
				ENDIF
			;まだ無い…っていうか作るのだろうかこれ
			ELSEIF PREVPLAY("尿道挿入", PLAYER)
				;前回中出し
				IF PREVEX("射精")
					PRINT 將膀胱用精液污染的
				ELSEIF PENIS(PLAYER)
					PRINT 從阴茎中拔出的
				ELSE
					PRINT 從尿道中拔出的
				ENDIF
			ELSEIF PREVPLAY("尿道挿入")
				;前回中出しされた
				IF PREVEX("尿道内射精")
					PRINT 剛剛被精液注滿的
				ELSE
					PRINT 剛剛尿道享受過侵犯的
				ENDIF
			ELSEIF CHECK_STAIN(STAIN:Ｐ, "Ａ")
				PRINT べっとりと
			ELSEIF CHECK_STAIN(STAIN:Ｐ, "Ｖ")
				PRINT 塗滿甜膩愛液的
			ENDIF
			PRINTFORM 髒污的
		ELSE
			PRINTFORM %TEXTS("阴茎：視覚", TARGET)%
		ENDIF
		PRINTFORM %TEXTS("阴茎：呼び方", TARGET)%
		IF ABL:施虐属性 >= 5 && RAND:3 == 0
			PRINT 一口気
		ELSEIF ABL:施虐属性 >= 4 && RAND:2 == 0
			PRINT 以最深處為目標
		ELSEIF RAND:2 == 0
			PRINT 溫柔緩慢地
		ENDIF
		IF ABL:施虐属性 >= 5 && RAND:3 == 0
			PRINT 刺入其中、
		ELSEIF ABL:施虐属性 >= 3 && RAND:2 == 0
			PRINT 插入其中、
		ELSE
			PRINT 挑弄著口腔各處、
		ENDIF
		PRINT 將頭不斷地下壓
		SIF ABL:施虐属性 >= 3 && RAND:3 == 0
			PRINT 就像是在正常性交一樣
		IF ABL:施虐属性 >= 5 && RAND:3 == 0
			PRINTFORMW 粗暴地凌辱著口腔的深處……
		ELSEIF ABL:施虐属性 >= 3 && RAND:2 == 0
			PRINTFORMW 激烈地前後進出著……
		ELSE
			PRINTFORMW 前後动起了腰…
		ENDIF
	ENDIF
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
	;前回尿道で楽しんでいた
	IF PREVPLAY("尿道挿入")
		;前回中出しされた
		IF PREVEX("尿道内射精")
			PRINT 剛剛灌滿精液、不禁垂落白濁涎水的陰莖
		ELSE
			PRINT 剛剛拔出陰莖、鈴口大開散發著內部氣味的陰莖
		ENDIF
	;前回尿道指挿入
	ELSEIF PREVCOM == 15
		IF RAND:2
			PRINTFORM 被手指插入蹂躪過深處的陰莖
		ELSE
			PRINTFORM 被手指反復出入、鈴口大開的陰莖
		ENDIF
	;前回ブジーで弄られた
	ELSEIF PREVCOM == 151
		PRINTFORM 被金屬小棒%TEXTR("反復輕柔地抽插/輕輕地翻攪摩挲/稍微地擴張/溫柔地蹂躪")%之後、鈴口大開的陰莖
	;チンカス口交
	ELSEIF CHECK_COM("恥垢清洁口交")
		IF COND("真性包茎")
			PRINTFORM %CALLNAME:TARGET%被%TEXTR("恥垢/精尿混合物/污垢/乳酪/白色陰垢")%堵塞最深處的%TEXTS("阴茎：呼び方", TARGET)%
			PRINTFORMW 用舌尖插入包皮、一邊細細品味著味道、一邊用涎水化開污垢、將濃稠的污漬吮吸打掃著……
		ELSEIF COND("假性包茎")
			IF RAND:3
				PRINTFORM %CALLNAME:TARGET%的%TEXTS("阴茎：呼び方", TARGET)%
				PRINTFORM 的%TEXTR("恥垢/精尿混合物/污垢/乳酪/白色陰垢")%沾滿全身的龜頭
				PRINTFORMW %TEXTR("像是嬰兒吮吸奶瓶一樣吮吸著/用涎水稀釋後飲下/用嘴唇與舌尖慢慢刮入口中")%…
			ELSEIF RAND:3
				PRINTFORM %CALLNAME:TARGET%的%TEXTS("阴茎：呼び方", TARGET)%
				PRINTFORM 用舌頭慢慢伸入、將其中積存的%TEXTR("恥垢/精尿混合物/污垢/乳酪/白色陰垢")%
				PRINTFORMW %TEXTR("用涎水稀釋後用舌尖攪拌起來/用舌尖慢慢地舔舐刮取了")%…
			ELSE
				PRINTFORM %CALLNAME:TARGET%的%TEXTS("阴茎：呼び方", TARGET)%
				PRINTFORM 的包皮剝開後將積存著的%TEXTR("恥垢/精尿混合物/污垢/乳酪/白色陰垢")%
				PRINTFORMW %TEXTR("舔舐著送入口中/啾、啾的吮吸著")%…
			ENDIF
		ELSE
			PRINTFORM %CALLNAME:TARGET%的阴茎
			PRINTFORM %TEXTR("的恥垢/散發劇臭的殘渣/緊緊黏附的污垢/的奶酪一樣的污垢")%
			PRINTFORMW 的酸澀苦味與劇臭深深烙印在腦海深處的同時、%TEXTR("用舌尖徹底而漂亮的打掃乾淨了/用整個口腔認真精心地掃除著")%…
		ENDIF
		RETURN 1
	;汚れ有
	ELSEIF CHECK_STAIN(STAIN:Ｐ, "Ｖ", "Ａ") && COND("前Ｔ調教者") > 0
		IF PREVPLAY("挿入", COND("前Ｔ調教者") )
			LOCALS = \@ COND("前Ｔ調教者") == PLAYER ? 自己 # %CALLNAME:COND("前Ｔ調教者")% \@的
			IF PREVPLAY("Ａ挿入", COND("前Ｔ調教者") )
				IF PREVEX("射精")
					LOCALS = 把%LOCALS%腸道粘膜塗滿白濁的
				ELSE
					LOCALS = 從%LOCALS%肛門中拔出的
				ENDIF
			ELSEIF PREVPLAY("Ｖ挿入", COND("前Ｔ調教者") )
				IF PREVEX("射精")
					LOCALS = 把%LOCALS%子宮用精子填滿的
				ELSE
					LOCALS = 從%LOCALS%膣道中拔出的
				ENDIF
			ENDIF
			IF PREVEX("射精")
				IF TALENT:相思相愛 && RAND:3 == 0
					LOCALS = %LOCALS%、最愛的人的
				ELSEIF SIZE("阴茎", TARGET) >= 2 && RAND:2
					LOCALS = %LOCALS%、\@ ABL:施虐属性 >= 3 ? 凶悪的 # 粗壯的 \@
				ELSEIF SIZE("阴茎", TARGET) < 2 && AGE(TARGET) <= 2 && RAND:2
					LOCALS = %LOCALS%、稍稍萎縮、變得可愛的
				ELSE
					LOCALS = %LOCALS%、處於半勃起状態的
				ENDIF
			ELSEIF RAND:3 == 0
				LOCALS = %LOCALS%、灼熱的散發著熱汽的
			ELSEIF RAND:2
				LOCALS = %LOCALS%、散發著厲害的%TEXTS("气味")%的
			ELSE
				LOCALS = %LOCALS%
			ENDIF
		ENDIF
		IF LOCALS == ""
			IF CHECK_STAIN(STAIN:Ｐ, "Ａ")
				LOCALS = 被腸內污液弄髒的
			ELSEIF CHECK_STAIN(STAIN:Ｐ, "Ｖ")
				LOCALS = 被甜膩愛液污染的
			ENDIF
		ENDIF
		PRINTFORM %LOCALS%阴茎
	ELSE
		PRINTFORM %CALLNAME:TARGET%的%TEXTS("阴茎：視覚", TARGET)%阴茎
	ENDIF
	IF CHECK_COM("清洁口交")
		IF PREVPLAY("尿道挿入") && PREVEX("尿道内射精")
			PRINTFORMW 用%TEXTR("吮吸的方式將內部的精液處理乾淨了/舌尖漂亮的打掃乾淨/整個口腔仔細地掃除著")%……
		ELSE
			PRINTFORMW 用%TEXTR("舌尖漂亮的打掃乾淨/整個口腔仔細地掃除著")%……
		ENDIF
	ELSEIF TEQUIP:手下留情
		PRINTFORMW 用舌頭試著挑起慾望的輕輕玩弄著……
	ELSEIF ABL:PLAYER:受虐属性 >= 3 && CHECK_STAIN(STAIN:Ｐ, "Ｖ", "Ａ") && RAND:2
		PRINTFORMW 用整個口腔仔細地掃除的同時、盡情的享受著口中的淫靡觸感……
		STAIN:PLAYER:Ｍ |= STAIN:Ｐ
		CALL RESET_STAIN_EX, "Ｐ", TARGET
	ELSEIF ABL:尿道拡張 >= 0 && RAND:3 == 0
		PRINTFORMW 用舌尖%TEXTR("輕輕插入/反復進出")%的侵犯著……
	ELSEIF RAND:2
		PRINTFORMW 用嘴唇深深含住並用舌頭舔舐著……
	ELSE
		PRINTFORMW 用嘴唇深深含住後激烈地擼動起來……
	ENDIF
ENDIF


code:
@COM504
;逆剃毛
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM504, ARG
CALL SETFLAG, "剃毛フラグ", PLAYER
;擅長だと、日期が0になります
SIF ABL:技巧 < 4 && COND("陰毛", PLAYER) > 3
	BASE:PLAYER:陰毛 += 5

@SOURCE_COM504, ARG
CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 504

SOURCE:0:達成感 = 1000
SOURCE:0:逸脱 = 1000

SELECTCASE COND("陰毛", PLAYER)
CASE 3
	SOURCE:0:達成感 += 1000
	SOURCE:0:逸脱 += 1000
CASE 2
	SOURCE:0:達成感 += 1500
	SOURCE:0:逸脱 += 2000
ENDSELECT

;ABL:施虐属性をみる
SELECTCASE ABL:施虐属性
CASE 0
	TIMES SOURCE:0:達成感, 1.50
	TIMES SOURCE:0:逸脱, 2.00
CASE 1
	TIMES SOURCE:0:達成感, 1.20
	TIMES SOURCE:0:逸脱, 1.50
CASE 2

CASE 3
	TIMES SOURCE:0:達成感, 0.70
	TIMES SOURCE:0:逸脱, 0.70
CASE 4
	TIMES SOURCE:0:達成感, 0.60
	TIMES SOURCE:0:逸脱, 0.40
CASEELSE
	TIMES SOURCE:0:達成感, 0.30
	TIMES SOURCE:0:逸脱, 0.10
ENDSELECT

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

@TRAIN_MESSAGE_COM504
IF TALENT:PLAYER:男性
	PRINTFORMW %CALLNAME:TARGET%將%CALLNAME:PLAYER%身體緊緊按住後、開始剃除陰毛……
ELSE
	PRINTFORMW %CALLNAME:TARGET%將%CALLNAME:PLAYER%的股間推開後、開始小心的剃除陰部的柔軟毛髮。
ENDIF

IF ABL:技巧 >= 4 && RAND:5 == 0
	PRINTFORM %CALLNAME:PLAYER%的陰毛被
	SIF ABL:技巧 >= 5
		PRINT 精細地
	PRINTW 剃除了、現在已經是光潔的白虎了……
	BASE:PLAYER:陰毛 = 200
	DOWNBASE:体力 += 30
ELSEIF ABL:技巧 >= 3 && RAND:2 == 0 && COND("陰毛", PLAYER) >= 6
	PRINTFORM %CALLNAME:TARGET%
	SIF ABL:技巧 >= 4
		PRINT 用熟絡的手法
	PRINTFORMW 為%CALLNAME:PLAYER%整理了陰毛的形態……
	BASE:PLAYER:陰毛 = 500
ELSE
	PRINTFORM %CALLNAME:TARGET%
	IF ABL:技巧 >= 4
		PRINT 謹慎認真地
	ELSEIF ABL:技巧 <= 2 && RAND:2 == 0
		PRINT 好像有點失敗、但結果還是
	ENDIF
	PRINTFORMW 將%CALLNAME:PLAYER%的陰毛完美的剃除了……
	BASE:PLAYER:陰毛 = 300
ENDIF


code:
@COM507
;酔酒
CALL PRINT_TRAIN_NAME(SELECTCOM)

PRINTFORML %CALLNAME:TARGET%似乎喝醉了……！

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = 酔酒

RETURN 1

@FLAG_COM507, ARG

@SOURCE_COM507, ARG
CALL VARSET_COMF

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

@TRAIN_MESSAGE_COM507
IF RAND:4 == 0
	PRINTFORMW %CALLNAME:TARGET%神志不清的緊緊抱住%CALLNAME:PLAYER%、開始嘀咕著一些難懂的醉話。
	IF TALENT:巨乳
		PRINTFORMW 過度碩大的飽滿果實被兩個人的胸膛擠壓著、給予%CALLNAME:PLAYER%難以想像的美妙感受……
	ELSE
		PRINTFORML %CALLNAME:PLAYER%的身体被%CALLNAME:TARGET%紧紧搂住并不住地摩擦著、並在耳邊吐出帶著濃烈酒精氣味的喘息……令人羞愧的、在酒气和%CALLNAME:TARGET%温软身体的影响下、%CALLNAME:PLAYER%的身体发生了某种变化……
	ENDIF
ELSEIF RAND:3 == 0
	PRINTFORMW %CALLNAME:TARGET%抱住了%CALLNAME:PLAYER%的身體、強硬的舌吻起來……在不斷交換唾液和氣息的同時、%CALLNAME:TARGET%口中的酒精氣味也讓%CALLNAME:PLAYER%變得昏昏沉沉了……
ELSEIF RAND:2 == 0
	PRINTFORMW %CALLNAME:TARGET%用朦朧的眼神直直地看著%CALLNAME:PLAYER%……
ELSEIF RAND:5 == 0
	PRINTFORMW %CALLNAME:TARGET%雙眼微閉、輕輕抓著%CALLNAME:PLAYER%的衣角、似乎快要睡著的樣子……
ELSEIF RAND:4 == 0
	PRINTFORMW %CALLNAME:TARGET%靠在%CALLNAME:PLAYER%的身上、斷斷續續地說著漫無邊際的話……
ELSEIF RAND:3 == 0
	PRINTFORMW %CALLNAME:TARGET%歪斜的倚坐著、對%CALLNAME:PLAYER%露出了看起來很迷糊的笑容……
ELSEIF RAND:2 == 0
	PRINTFORMW %CALLNAME:TARGET%抱住%CALLNAME:PLAYER%、纏磨著希望再來一次……
ELSE
	PRINTFORMW %CALLNAME:TARGET%似乎感覺很不舒服……
ENDIF


code:
@COM508
;暴走
CALL SHOW_STATUS
IF PREVCOM >= 0
	CALL SHOW_PREVCOM
	FLAG:COM_ABLEの一括OFF = 0
ENDIF
PRINTL %CALLNAME:PLAYER%暴走了！
PRINTL

CALL SET_BOUSOU_ABL

TRYJUMPFORM COM{SELECTCOM}

RETURN 1

@SET_BOUSOU_ABL


code:
@COM508
;暴走
CALL SHOW_STATUS
IF PREVCOM >= 0
	CALL SHOW_PREVCOM
	FLAG:COM_ABLEの一括OFF = 0
ENDIF
PRINTL %CALLNAME:PLAYER%暴走了！
CALL BLANKLINE

CALL SET_BOUSOU_ABL

TRYJUMPFORM COM{SELECTCOM}

RETURN 1

@SET_BOUSOU_ABL


code:
@COM511
;挿入前暴発
PRINTFORML %TRAIN_NAME_SELECT(SELECTCOM:4)%

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %TRAIN_NAME_SELECT(SELECTCOM:4)%（失敗）

RETURN 1

@FLAG_COM511, ARG

@SOURCE_COM511, ARG

@TRAIN_MESSAGE_COM511
TRYCALLFORM TRAIN_MESSAGE_COM{SELECTCOM:4}
CALL BOUHATSU


code:
@COM5
;胸愛撫
;TEQUIP:胸愛撫で行為を記録する
;0bitで胸を揉む 1bitで乳頭を弄る 2bitで穿環をいじめる 10bitで乳頭を舐める
;乳頭が陥没状態かどうかはCALCF("Ｂ発情") == 0 かどうかで判定可能
;基本的には胸愛撫→胸舐め（可能なら揉みながら）となる

CALL PRINT_TRAIN_NAME(SELECTCOM)

;乳頭を舐めると、ながら接吻フラグは消滅する
SIF CHECK_COM("舔乳頭に変化")
	TEQUIP:接吻 = 0

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM5, ARG
;口で愛撫起来場合（対象のＢ⇔調教者の口的污垢が移動）
SIF CHECK_COM("舔乳頭")
	CALL EQ_STAIN, TARGET, "Ｂ", PLAYER, "Ｍ"
;指で愛撫起来場合（対象のＢ⇔調教者の指的污垢が移動）
SIF CHECK_COM("胸指愛撫")
	CALL EQ_STAIN, TARGET, "Ｂ", PLAYER, "手"

@SOURCE_COM5, ARG
CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 5

SOURCE:0:性行動 = 60
SOURCE:0:不潔 = 20
SOURCE:0:情愛 = 200
SOURCE:0:露出 = 200

;ABL:Ｂ感覚をみる
SOURCE:0:Ｂ快楽 = CALCF("Ｂ刺激", 1)
SOURCE:0:情愛 += ABL:Ｂ感覚*100

;潤滑液の使用をみる
SIF TEQUIP:潤滑液
	TIMES SOURCE:0:Ｂ快楽, 1.30

;口で愛撫起来場合
IF CHECK_COM("舔乳頭") || COND("喝母乳フラグ", PLAYER)
	SOURCE:0:Ｂ快楽 = SOURCE_EXABL(SOURCE:0:Ｂ快楽, "舌靈活", PLAYER)
;指で愛撫起来場合
ELSE
	SOURCE:0:Ｂ快楽 = SOURCE_EXABL(SOURCE:0:Ｂ快楽, "指靈活", PLAYER)
ENDIF

;鎧を着けたりしてると快Ｂ激減
IF CHECK_SHIRT("鎧") && CHECK_CLO("谷間露出") == 0 && CHECK_CLO("乳頭露出") == 0
	TIMES SOURCE:0:Ｂ快楽, 0.10
	TIMES SOURCE:0:露出, 0.10
ENDIF

;乳頭を責めている時に陥没乳頭だと色々修正
IF CHECK_COM("乳頭弄り") && COND("陥没乳頭")
	;乳頭が露出した
	IF CALCF("Ｂ発情")
		TIMES SOURCE:0:Ｂ快楽, 1.50
	ELSE
		TIMES SOURCE:0:Ｂ快楽, 0.50
	ENDIF
ENDIF

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

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

@TRAIN_MESSAGE_COM5
#DIMS TEXT_TITS
;TEQUIP:胸愛撫で行為を記録する
;0bitで胸を揉む 1bitで乳頭を弄る 2bitで穿環をいじめる 10bitで乳頭を舐める 11bitで胸部を飲む

PRINTFORM %CALLNAME:PLAYER%将
IF INSERT("合体中")
	PRINTFORM %TEXTS("合体中", PLAYER)%%TEXTS("電話中の")%%CALLNAME:TARGET%の
ELSE
	IF TEQUIP:接吻
		PRINTFORM %TEXTS("接吻継続")%、
		CALL SETFLAG, "追加接吻フラグ", TARGET
	ELSEIF TEQUIP:電話中
		PRINTFORM %TEXTS("電話中の")%
	ENDIF
	PRINTFORM %CALLNAME:TARGET%的
	;胸が露出している服
	IF CHECK_CLO("谷間露出") && CHECK_CLO("乳頭露出") == 0 && RANDF(3)
		IF TALENT:巨乳
			PRINTFORM 大膽地彰顯著的
		ELSEIF TALENT:貧乳
			PRINTFORM 保守的
		ENDIF
		PRINTFORM 胸口
		SIF TALENT:男性 == 0 && TALENT:貧乳 == 0
			PRINTFORM 的谷間
		PRINTFORM 用雙手伸入其中、將
	;胸元を半脱る
	ELSEIF CHECK_CLO("半脱可")
		PRINTFORM 胸前的衣服拉下、對著暴露出來的胸口、將
		CALL SETFLAG, "胸を半脱る", TARGET
	ENDIF
ENDIF

;IF TALENT:巨乳
;	PRINTFORM %TEXTR("揉みごたえのある/手の平から零れ落ちるほどの/軟かな弾力を持った/手に収まりきらないほどの")%%TEXTR("充分した重量の/類まれな尺寸/想像を絶するほど大号的/動くだけで弾力を感じさせる/歩くたびに揺れてしまう")%
;ENDIF

IF TALENT:巨乳 && RAND:3 == 0
	TEXT_TITS = %TOFULL(CONDS("罩杯") )%杯的%TALENT_NAME(GETNUM(TALENT, "巨乳"), TALENT:巨乳)%
ELSEIF TALENT:男性
	TEXT_TITS = 胸板
ELSEIF RAND:2
	TEXT_TITS = 乳房
ELSE
	TEXT_TITS = 胸
ENDIF

;乳頭を舐める
IF CHECK_COM("舔乳頭に変化")
	;TEQUIP:胸愛撫 で行動を記録…するまえに、不要なフラグを消去する
	TEQUIP:胸愛撫 = 0

	;乳頭フラグ
	SETBIT TEQUIP:胸愛撫, 1
	;舔乳頭フラグ
	SETBIT TEQUIP:胸愛撫, 10

	;揉胸も同時にするか？（主に連続選択時）
	IF CHECK_COM("揉胸") && CHECK_COM("舔乳頭")
		;揉胸フラグ
		SETBIT TEQUIP:胸愛撫, 0

		IF CALCF("Ｂ発情")
			PRINTFORM %TEXTS("乳頭：描写")%%TEXTR("乳頭/突起")%用%TEXTR("舌頭溫柔地舔舐著/舌尖執拗地挑弄著/雙唇吮吸著/口腔緊緊包裹著/貝齒輕輕嚙咬著")%、
		ELSE
			PRINTFORM %TEXTS("乳頭：描写")%乳頭用%TEXTR("舌頭溫柔地舔舐著/舌尖執拗地挑弄著/雙唇吮吸著/口腔緊緊包裹著")%、
		ENDIF
		SIF TALENT:男性 == 0
			PRINTFORM %TEXTS("胸部：描写")%、
		;直接
		IF CHECK_CLO("谷間露出") && TALENT:貧乳 == 0 && RAND:2
			IF RAND:2 == 0
				IF TALENT:巨乳 && RAND:2
					PRINTFORMW 將柔軟的乳肉更加用力地揉搓著……
				ELSE
					PRINTFORMW 將柔軟的乳肉那滑膩地手感盡情享受著……
				ENDIF
			ELSE
				PRINTFORMW 充分地享受著乳房那柔軟到能讓手指整個陷入其中的美妙手感……
			ENDIF
		ELSE
			IF TALENT:貧乳 == 0 && RAND:2
				IF RAND:2
					PRINTFORMW 乳房輕輕托起、來回撫摸起來……
				ELSE
					PRINTFORMW 將乳房的柔軟盡情享受著……
				ENDIF
			ELSE
				IF RAND:2
					PRINTFORMW 將乳房整個用雙手握住、用掌心來回撫摸著……
				ELSE
					PRINTFORMW 揉搓著%TEXT_TITS%……
				ENDIF
			ENDIF
		ENDIF
	ELSE
		PRINTFORM 胸部前端的
		IF TALENT:母乳体質 && RAND:3 == 0
			IF CALCF("Ｂ発情")
				PRINTFORM %TEXTR("滲透出牛奶的突起/被母乳浸透的乳頭")%
			ELSE
				PRINTFORM %TEXTR("滲透出牛奶的地方/被母乳浸透的陷沒著的乳頭")%
			ENDIF
		ELSE
			PRINTFORM %TEXTS("乳頭：描写")%%TEXTR("乳頭/突起")%
		ENDIF
		;穿環をいじめる
		IF TALENT:乳环 && RAND:2
			;穿環弄りフラグ
			SETBIT TEQUIP:胸愛撫, 2
			PRINTFORM 連同装飾著它的%TEXTS("乳环")%一併
			IF RAND:2
				PRINTFORMW 用舌頭舔舐著轉動起來……
			ELSE
				PRINTFORMW 用口腔含住、輕輕地拉扯著金屬穿環……
			ENDIF
		ELSE
			;においフェチ分岐
			IF TALENT:母乳体質 && PLAYER == MASTER && COND("气味弱点", MASTER) + TALENT:相思相愛 && (CHOSECOM(SELECTCOM) == 0 || RAND:3 == 0)
				IF RAND:2 && CALCF("Ｂ発情")
					PRINTFORMW 用口腔含住、盡情地享受著母乳所散發的甘甜氣息……
				ELSE
					PRINTFORMW 小力吮吸著、在盡情嗅聞著母乳所散發的甘甜氣息的同時、將被含住的尖端用舌頭輕輕挑弄著……
				ENDIF
			ELSEIF RAND:4 == 0
				PRINTFORMW 用牙齒輕輕地嚙咬並擼動著……
			ELSEIF RAND:3 == 0
				PRINTFORMW \@ CALCF("Ｂ発情") ? 輕輕含住 # 不斷啄吻著 \@、在發出啾、啾的水音的同時、不斷向上輕輕吮吸著……
			ELSEIF RAND:2
				PRINTFORMW 隨心所欲地啄吻著每一處角落、將挺立的尖端用舌頭\@ CALCF("Ｂ発情") ? 挑逗著 # 舔舐著 \@……
			ELSE
				PRINTFORMW 整個用口腔含住、將乳輪著週邊部分挑逗性質地輕輕舔舐著……
			ENDIF
		ENDIF
	ENDIF
	;母乳体質だと母乳を飲めるかも
	CALL TEXT, "喝母乳"

;乳頭を弄る…貧乳はこっちメイン。陥没乳頭だとここには来ない
ELSEIF CALCF("Ｂ発情") && (TALENT:男性 || (CHECK_CLO("乳頭露出") && RAND:(2 + TALENT:貧乳) ) )
	;TEQUIP:胸愛撫 で行動を記録…するまえに、不要なフラグを消去する
	TEQUIP:胸愛撫 = 0

	;乳頭フラグ
	SETBIT TEQUIP:胸愛撫, 1

	PRINTFORM 胸部前端的
	IF TALENT:母乳体質 && RAND:3 == 0
		PRINTFORM 滲透出牛奶的突起
	ELSE
		PRINTFORM %TEXTS("乳頭：描写")%%TEXTR("乳頭/突起")%
	ENDIF
	;穿環をいじめる
	IF TALENT:乳环 && RAND:2
		;穿環弄りフラグ
		SETBIT TEQUIP:胸愛撫, 2
		PRINTFORM 連同装飾著它的%TEXTS("乳环")%一併
		IF RAND:3 == 0
			PRINTFORMW 用指尖輕輕彈擊著……
		ELSEIF RAND:2 == 0
			PRINTFORMW 逗弄著……
		ELSE
			PRINTFORMW 用手指穿過穿環、然後輕輕地拉扯起來……
		ENDIF
	ELSE
		IF RAND:7 == 0
			PRINTFORMW 像是採摘花草一樣輕輕扭轉著……
		ELSEIF RAND:6 == 0
			PRINTFORMW 稍加力道的壓迫著、然後啪呲啪呲地摩擦起來……
		ELSEIF RAND:5 == 0
			PRINTFORMW 輕輕捻動著……
		ELSEIF RAND:4 == 0
			PRINTFORMW 不斷變化著強弱程度地刺激著……
		ELSEIF RAND:3 == 0
			PRINTFORMW 連同乳輪一併用指腹輕輕摩挲著……
		ELSEIF RAND:2 == 0
			PRINTFORMW 稍稍拉起、揉捏起來……
		ELSE
			PRINTFORMW 稍稍拉起、輕輕地擼動起來……
		ENDIF
	ENDIF

	SIF TALENT:母乳体質 && (CHOSECOM(SELECTCOM) == 0 || RAND:4 == 0)
		PRINTFORMW 在乳頭被溫柔挑逗著的刺激下、%CALLNAME:TARGET%的乳房緩緩地滲透出了一縷縷潔白的母乳……
;胸を揉む
ELSE
	;TEQUIP:胸愛撫 で行動を記録…するまえに、不要なフラグを消去する
	TEQUIP:胸愛撫 = 0

	SIF TALENT:男性 == 0
		PRINTFORM %TEXTS("胸部：描写")%、
	;揉胸フラグ
	SETBIT TEQUIP:胸愛撫, 0

	;においフェチ分岐
	IF PLAYER == MASTER && COND("气味弱点", MASTER) + TALENT:相思相愛 && (CHOSECOM(SELECTCOM) == 0 || RAND:3 == 0) && INSERT("後背位") + INSERT("背面座位") == 0
		;胸に手を差し入れたかどうか
		IF RANDF(3)
			IF RAND:2 || INSERT("後背位") || INSERT("背面座位") || INSERT("騎乗位")
				PRINTFORMW 表面附著晶瑩汗珠的乳肉的質感盡情地享受著的同時、用雙手將這珍寶輕輕地揉搓著……
			ELSE
				PRINTFORMW 胸前的谷間所散發出的微妙的汗味深深嗅聞著、同時也用自己的臉頰切身體會著乳肉的柔軟滑膩……
			ENDIF
		ELSE
			PRINTFORMW 蒸騰著溫熱汗汽的山谷用自己的臉頰填滿、在放任她那充滿雌性氣息的體臭將肺臟充滿的同時、也從兩側用柔軟的乳肉壓迫起自己的腦袋……
		ENDIF
	;直接
	ELSEIF CHECK_CLO("谷間露出") && TALENT:貧乳 == 0 && RAND:2
		IF EX:Ｂ絶頂 * 10000 + PALAM:快Ｂ >= 10000 && RAND:4 == 0
			PRINTFORM 從下方撑着%TEXT_TITS%的同時、
			IF COND("真性陥没乳頭")
				PRINTFORMW 從根部緊緊握住、用就像是想把深陷在乳肉中的乳頭擠出來一樣的動作反復擼動著……
			ELSEIF CALCF("Ｂ発情")
				PRINTFORMW 將昂揚的挺立著的乳頭輕柔緩慢地擼動著……
			ELSE
				PRINTFORMW 將連同羞澀的面孔一併被遮掩著的乳頭強硬地擼動著……
			ENDIF
		ELSEIF RAND:3 == 0 && ABL:Ｂ感覚 >= 3
			PRINTFORMW 把%TEXT_TITS%揉搓到快要改变形状的程度…
		ELSEIF RAND:2 == 0
			PRINTFORM 柔軟乳肉用讓手指深陷其中的力道緊緊握住、
			IF TALENT:巨乳 && RAND:2
				PRINTFORMW 更加的增大揉搓的力道……
			ELSE
				PRINTFORMW 盡情地享受著那柔軟滑膩的觸感……
			ENDIF
		ELSE
			PRINTFORMW 充分地享受著乳房那柔軟到能讓手指整個陷入其中的美妙手感……
		ENDIF
	ELSE
		IF TALENT:貧乳 == 0 && RAND:2
			IF RAND:4 == 0
				PRINTFORMW 乳房輕輕托起、來回撫摸起來……
			ELSEIF RAND:3 == 0
				PRINTFORMW 用力握住%TEXT_TITS%、來回揉捏著……
			ELSEIF RAND:2 == 0
				PRINTFORM %TEXT_TITS%を
				SIF RAND:2
					PRINTFORM 富有彈性的美妙手感盡情享受著的同時、
				PRINTFORMW 充分地揉搓著……
			ELSE
				PRINTFORMW 將乳房的柔軟盡情享受著……
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORMW 將乳房整個用雙手握住、用掌心來回撫摸著……
			ELSE
				PRINTFORMW 揉搓著%TEXT_TITS%……
			ENDIF
		ENDIF
	ENDIF
	IF TALENT:母乳体質 && (CHOSECOM(SELECTCOM) == 0 || RAND:4 == 0)
		IF TALENT:貧乳 == 0 && RAND:2
			PRINTFORMW 當%CALLNAME:PLAYER%將手沉入乳房那柔軟的乳肉之中的時候、那可愛的尖端就會微微滲出甘甜的母乳……
		ELSE
			PRINTFORMW 當%CALLNAME:PLAYER%用手揉搓乳房讓那柔軟的乳肉形變的時候、那可愛的尖端就會微微滲出甘甜的母乳……
		ENDIF
	ENDIF
ENDIF

;胸愛撫ではなく豊穣の記述
@EQUIP_COM5_2
#DIM LCOUNT
SIF TEQUIP:豊穣 == 0
	RETURN 0

VARSET LOCALS
FOR LCOUNT, 0, 5
	SELECTCASE LCOUNT
	CASE IS < TEQUIP:豊穣
		LOCALS += "★"
	CASEELSE
		LOCALS:1 += "★"
	ENDSELECT
NEXT

CALL PRINT_STRL, @"＜豊穣_黄色_%LOCALS%_\@ LOCALS:1 != "" ? 灰色_%LOCALS:1%_ # \@＞"