code:
@COM71
;肛門性交
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM71, ARG
CALL FLAG_INSERTION, "Ａ挿入", ARG, 110

@SOURCE_COM71, ARG
CALL SOURCE_INSERTION, "Ａ挿入", ARG, 110

CALL VARSET_COMF

SOURCE:0:露出 = 2000
;動物耳
SIF TALENT:動物耳
	SOURCE:0:露出 = 1500
SOURCE:0:情愛 = 350

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

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

@TRAIN_MESSAGE_COM71
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
	CALL ADD_TEXT, "性器から性器へ"
;肛門が露出していないで、胖次をずらしていないなら自動的にずらす
ELSEIF !CHECK_CLO("Ａ露出") && CHECK_CLO("Ａ露出可")
	SIF TEQUIP:拘束
		PRINTFORM 被拘束具牢牢禁錮著的
	PRINTFORM %CALLNAME:TARGET%的
	CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
;肛門性交に慣れている、かつ欲情LV4以上で縛られてないと誘ってきます
ELSEIF CHECK("Ａ挿入") && PALAM:欲情 >= PALAMLV:4 && TEQUIP:拘束 == 0 && RAND:2 == 0
	IF PREVCOM == 13
		PRINT 用手指展開陰部的同時、將
	ELSEIF PREVCOM == 14
		PRINT 用手指推開臀瓣的同時、將
	;淫乱
	ELSEIF (TALENT:淫乱 || ABL:Ａ感覚 >= 3) && RAND:2 == 0
		IF RAND:2 || TALENT:男性
			IF TALENT:小尻
				PRINT 小小的
			ELSEIF TALENT:巨尻
				PRINT 粗大的
			ENDIF
			PRINT 尻部推開展示出來的同時、將
		ELSE
			PRINT 將重要的地方展示出來的同時、將
		ENDIF
	ELSE
		PRINTFORM %TEXTR("將羞恥的地方暴露到一覽無遺的同時、將/將顯示出雌性氣息的股間清楚地暴露著的同時、將")%
	ENDIF
	;小悪魔
	IF TALENT:小悪魔 && RAND:3
		PRINT 無聲的輕笑著的
	;(叛逆でなくて淫乱) or(叛逆かつ恋慕)
	ELSEIF  ( (TALENT:淫乱 && TALENT:叛逆 == 0) || (TALENT:叛逆 && TALENT:恋慕) ) && RAND:3
		SIF TALENT:小悪魔 && RAND:2 == 0
			PRINT 、大膽地
		PRINT 輕聲發起邀請的
	;叛逆かつ淫乱
	ELSEIF TALENT:叛逆 && TALENT:淫乱
		PRINT 偏過頭、臉頰被羞恥染紅的
	;害羞
	ELSEIF TALENT:害羞
		PRINT 臉頰微紅、不自覺緊張的微笑的
	ELSE
		PRINTFORM %TEXTR("微笑んでいる/横たわっている")%
	ENDIF
	PRINTFORM %CALLNAME:TARGET%的
ELSE
	;縛ってますか？
	IF TEQUIP:拘束
		PRINTFORM 被拘束具牢牢禁錮著的%CALLNAME:TARGET%那
	;拉米亚ですか？
	ELSEIF COND("種族：拉米亚")
		SIF CHECK("Ａ挿入") && RAND:2 == 0
			PRINT 用尾巴摩擦並纏繞著的
		PRINTFORM %CALLNAME:TARGET%的
	;肛門性交に慣れているなら誘ってきます
	ELSEIF CHECK("Ａ挿入") && RAND:2 == 0
		SIF TALENT:害羞
			PRINT 脸颊因羞涩而染红的
		IF CHECK_COM("立位")
			PRINT 变成站立后背位体勢
		ELSE
			PRINT 四肢着地趴跪着
		ENDIF
		;淫乱かつ欲情4以上
		IF TALENT:淫乱 && PALAM:欲情 >= PALAMLV:4 && RAND:2 == 0
			PRINT 、并且轻轻摇晃着尻部诱惑着的
		ELSE
			PRINT 的
		ENDIF
		PRINTFORM %CALLNAME:TARGET%的
	ELSE
		IF TALENT:叛逆 && ABL:Ａ感覚 <= 2 && TALENT:恋慕 == 0
			PRINT 讓滿臉嫌惡的
		ELSEIF TALENT:害羞
			PRINT 臉頰因害羞而染上紅暈的
		ENDIF
		IF CHECK_COM("立位")
			PRINTFORM %CALLNAME:TARGET%的尻部转了过来
		ELSE
			PRINTFORM %CALLNAME:TARGET%四肢著地趴跪下來、將
		ENDIF
		SIF TALENT:害羞 || (TALENT:叛逆 && ABL:Ａ感覚 <= 2 && TALENT:恋慕 == 0)
			PRINT 、
	ENDIF
	PRINTFORM %TEXTS("肛門")%
ENDIF
PRINTFORM %TEXTR("お菊門/肛門")%に
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
ELSE
	PRINTFORM %NAMES("阴茎", PLAYER)%を
ENDIF
IF NUM("回合数") == 0
	PRINTFORM %TEXTR("完全沒有前戲的/沒有任何準備的")%
;PLAYERが施虐狂かつA経験20以下orＡ潤1LV未満
ELSEIF (ABL:PLAYER:施虐属性 >= 3 && EXP:Ａ経験 <= 20) || PALAM:Ａ潤 < PALAMLV:1
	PRINT 用力地
;PLAYERが施虐狂or肛門性交に慣れている
ELSEIF (CHECK("Ａ挿入") || ABL:PLAYER:施虐属性 >= 3) && RAND:2 == 0
	PRINT 一口気
ELSEIF RAND:2 == 0 || EXP:Ａ経験 <= EXPLV:3
	PRINT 慎重地
ENDIF
;PLAYERが施虐狂orA経験20以上or恋慕かつA感覚Lv3以上
SIF ABL:PLAYER:施虐属性 >= 3 || MIN(EXP:Ａ経験, EXP:Ａ性交経験) >= 20 || (TALENT:恋慕 && ABL:Ａ感覚 >= 3)
	PRINT 直達根部地
;PLAYERが施虐狂orＡ潤1LV未満
IF ABL:PLAYER:施虐属性 >= 3 || PALAM:Ａ潤 < PALAMLV:1
	PRINT 壓入、
ELSE
	PRINT 刺入、
ENDIF
IF TALENT:妊娠 && ABL:PLAYER:施虐属性 >= 3
	PRINT 像是對妊娠中的她腹中的孩子毫不在意一樣、
ELSEIF TALENT:妊娠 && RAND:2 == 0
	PRINT 在輕輕撫摸膨脹的腹部的同時、
ELSEIF TALENT:妊娠
	PRINT 細緻地關注並小心的不對腹腔中的小生命造成負擔的同時、
ELSEIF RAND:2
	PRINTFORM %TEXTR("抚摸着/揉捏着/抓捏着")%屁股的同时
;PLAYERが施虐狂orA経験20以上or恋慕かつA感覚Lv3以上
ELSEIF TALENT:娇小 && (ABL:PLAYER:施虐属性 >= 3 || MIN(EXP:Ａ経験, EXP:Ａ性交経験) >= 20 || (TALENT:恋慕 && ABL:Ａ感覚 >= 3) )
	PRINT 將整個嬌小的身體緊緊抓住、
ELSEIF ABL:PLAYER:施虐属性 >= 3 || MIN(EXP:Ａ経験, EXP:Ａ性交経験) >= 20 || (TALENT:恋慕 && ABL:Ａ感覚 >= 3)
	PRINT 將纖細的腰肢緊緊抓住、
ENDIF
;PLAYERが施虐狂or妊娠していない、かつA経験3以上or恋慕かつA感覚Lv4以上
IF (ABL:PLAYER:施虐属性 >= 3 || TALENT:妊娠 == 0) && (MIN(EXP:Ａ経験, EXP:Ａ性交経験) >= 20 || (TALENT:恋慕 && ABL:Ａ感覚 >= 3) ) && RAND:3 == 0
	PRINT 像是在享受痛苦的反應一樣粗暴地
ELSEIF (ABL:PLAYER:施虐属性 >= 3 || MIN(EXP:Ａ経験, EXP:Ａ性交経験) >= 20 || ABL:Ａ感覚 >= 3 || ABL:PLAYER:腰靈活) && SIZE("阴茎", PLAYER) && RAND:2 == 0
	SIF ABL:PLAYER:腰靈活 && RAND:2
		PRINT 從入口一直到最深處都一併玩弄的
	PRINT 给予沉重一击似地
ELSEIF MAX(EXP:Ａ経験, EXP:Ａ性交経験) < 50
	PRINTFORM %TEXTR("浅浅地/慢慢地")%
ELSE
	IF RAND:2 == 0
		IF RAND:2 == 0 && TALENT:男性 == 0
			PRINT 將敏感腸壁對著子宮的方向不斷壓入著同时
		ELSE
			PRINT 將敏感腸壁咯哧咯哧的摩擦著地的同时
		ENDIF
	ELSE
		PRINT 激烈地
	ENDIF
ENDIF
;PLAYERが施虐狂orA経験20以上orA感覚Lv3以上
IF (ABL:PLAYER:施虐属性 >= 3 || MIN(EXP:Ａ経験, EXP:Ａ性交経験) >= 20 || ABL:Ａ感覚 >= 3) && RAND:3 == 0
	PRINTFORMW 用腰肢擊打著……
ELSE
	PRINTFORMW %TEXTR("反復進出著/腰肢前後衝擊著/晃動著腰肢")%。
ENDIF


code:
@COM72
;屈曲位肛門
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM72, ARG
CALL FLAG_INSERTION, "Ａ挿入", ARG, 120

@SOURCE_COM72, ARG
CALL SOURCE_INSERTION, "Ａ挿入", ARG, 120

CALL VARSET_COMF

;露出、屈従のソース
SOURCE:0:露出 = 4000
SOURCE:0:屈従 = 3000
SOURCE:0:情愛 = 300

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

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

@TRAIN_MESSAGE_COM72
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

PRINTFORM %CALLNAME:PLAYER%将
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
	CALL ADD_TEXT, "性器から性器へ"
	PRINTFORM 將%CALLNAME:TARGET%的身體翻轉過來、
	IF PENIS(TARGET) && RANDF(1, TALENT:男性 == 0)
		PRINTFORM 用灼熱的視線凝視著眼前的陰莖的同時
	ELSEIF TALENT:男性 == 0
		PRINTFORM 用灼熱的視線凝視著眼前的阴部的同時
	ENDIF
;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
ELSEIF !CHECK_CLO("Ａ露出") && CHECK_CLO("Ａ露出可")
	PRINTFORM %CALLNAME:TARGET%的
	CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
	PRINTFORM 、做出將羞澀的淫穴向上展示一樣的姿勢、
ELSE
	PRINTFORM %CALLNAME:TARGET%的脚を掴んで推倒と、
	IF TEQUIP:接吻
		PRINTFORM 在熱情地親吻著的同時、
		CALL SETFLAG, "追加接吻フラグ", TARGET
	ELSEIF PENIS(TARGET) && RANDF(1, TALENT:男性 == 0)
		PRINTFORM 用灼熱的視線凝視著眼前的陰莖的同時
	ELSEIF TALENT:男性 == 0
		PRINTFORM 用灼熱的視線凝視著眼前的阴部的同時
	ENDIF
ENDIF
PRINTFORM 將%TEXTS("肛門")%肛門
IF TALENT:妊娠 && ABL:PLAYER:施虐属性 >= 3
	PRINTFORMW 像是平日裡一樣的激烈侵犯著……
ELSE
	SIF NUM("回合数") == 0
		PRINTFORM %TEXTR("完全沒有前戲的/沒有任何準備的")%
	PRINTFORMW 以最深處為目標猛烈的衝擊著……
ENDIF

license: unknown


code:
@COM73
;対面座位肛門
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM73, ARG
CALL FLAG_INSERTION, "Ａ挿入", ARG, 40

@SOURCE_COM73, ARG
CALL SOURCE_INSERTION, "Ａ挿入", ARG, 40

CALL VARSET_COMF

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

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

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

@TRAIN_MESSAGE_COM73
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

PRINTFORM %CALLNAME:PLAYER%将
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
	CALL ADD_TEXT, "性器から性器へ"
	PRINTFORM 從%CALLNAME:TARGET%的正面相互擁抱、讓肛門將陰莖緊緊包裹並吮吸起來
;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
ELSEIF !CHECK_CLO("Ａ露出") && CHECK_CLO("Ａ露出可")
	PRINTFORM %CALLNAME:TARGET%的
	CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
	PRINTFORM 正面相互擁抱、讓肛門將陰莖緊緊包裹並吮吸起來
ELSE
	PRINTFORM 從%CALLNAME:TARGET%的正面相互擁抱、讓肛門將陰莖緊緊包裹並吮吸起來
ENDIF

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


code:
@COM74
;背面座位肛門
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM74, ARG
CALL FLAG_INSERTION, "Ａ挿入", ARG, 70
CALL FLAG_COM5, 50

@SOURCE_COM74, ARG
CALL SOURCE_INSERTION, "Ａ挿入", ARG, 70
CALL SOURCE_COM5, 50

CALL VARSET_COMF

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

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

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

@TRAIN_MESSAGE_COM74
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1
PRINTFORM %CALLNAME:PLAYER%将
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
	CALL ADD_TEXT, "性器から性器へ"
	PRINTFORM 讓%CALLNAME:TARGET%將身體倚靠過來、然後用%TEXTS("肛門")%肛門
;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
ELSEIF !CHECK_CLO("Ａ露出") && CHECK_CLO("Ａ露出可")
	PRINTFORM %CALLNAME:TARGET%的
	CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
	PRINTFORM 、將身體倚靠過來、然後用%TEXTS("肛門")%肛門
ELSE
	PRINTFORM 讓%CALLNAME:TARGET%將身體倚靠過來、然後用%TEXTS("肛門")%肛門
ENDIF

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

;SIF TALENT:妊娠 && RAND:2 == 0
;	PRINTFORMW %CALLNAME:PLAYER%がお腹を撫でて给と、%CALLNAME:TARGET%はくすぐったそうな声をあげた。


code:
@COM75
;騎乗位肛門
CALL PRINT_TRAIN_NAME(SELECTCOM)
;-------------------------------------------------
;実行できるかの判定
;-------------------------------------------------
CALL SHOW_COM_ORDER_COM, 75

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

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM75, ARG
IF INSERT("狂野摇摆")
	CALL FLAG_INSERTION, "Ａ挿入", ARG, 70
ELSE
	CALL FLAG_INSERTION, "Ａ挿入", ARG, 50
ENDIF

@SOURCE_COM75, ARG
IF INSERT("狂野摇摆")
	CALL SOURCE_INSERTION, "Ａ挿入", ARG, 70
ELSE
	CALL SOURCE_INSERTION, "Ａ挿入", ARG, 50
ENDIF

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 75

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

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

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

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

@TRAIN_MESSAGE_COM75
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

SIF TEQUIP:電話中
	PRINTFORM %TEXTR(@"保持着和%TEXTS("彼氏")%的電話、/继続和%TEXTS("彼氏")%的電話的同时")%

PRINTFORM %CALLNAME:TARGET%
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
	CALL ADD_TEXT, "性器から性器へ"
;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
ELSEIF !CHECK_CLO("Ａ露出") && CHECK_CLO("Ａ露出可")
	CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
ENDIF
IF PREVCOM == 1 || PREVCOM == 9 || (PREVCOM >= 90 && PREVCOM <= 119)
	PRINTFORM %CALLNAME:PLAYER%の上にまたがると、
ELSEIF TALENT:好色 && RAND:2 == 0
	PRINTFORM 讓%CALLNAME:PLAYER%的陰莖與自己的肛門對準、
ELSE
	PRINTFORM 讓%CALLNAME:PLAYER%的陰莖%TEXTR("的位置準確的對上/與自己的肛門緊貼")%、
ENDIF

IF ABL:Ａ拡張 > SIZE("阴茎", PLAYER) && RAND:3 == 0
	IF SIZE("阴茎", PLAYER) >= 3 && EXP:結腸経験
		PRINTFORMW 慢慢地放下腰驱使着结肠将所有的阴茎吞入其中…
		CALL SETFLAG, "結腸責め", TARGET
	ELSE
		PRINTFORMW 慢慢地放下腰用菊穴整根吞入…
	ENDIF
	RETURN 1
ELSEIF TALENT:好色 + TALENT:淫乱 + TALENT:恋慕 && COND("視力") && RAND:3 == 0
	PRINT 在用心醉的眼神注視著恍惚的面孔的同時、
ELSEIF TEQUIP:推倒 && ABL:施虐属性 >= 2 && RAND:2
	IF TALENT:高慢 + TALENT:強気 && RANDIF(2, TALENT:傲慢 + TALENT:小悪魔)
		PRINT 在浮現出大膽的笑容的同時、
	ELSEIF TALENT:傲慢 + TALENT:小悪魔 && RAND:2
		PRINT 在臉上露出戲謔的壞笑的同時、
	ELSE
		PRINT 在對痛苦的渴求與喜悅不禁滲透而出的同時、
	ENDIF
ELSEIF ABL:Ａ感覚 >= 3 && RAND:2
	PRINTFORM %TEXTR("在從唇角漏出甜美的呻吟/在露出恍惚而快樂的蕩漾表情")%的同時、
ELSE
	PRINT 在小口的吐出灼熱的喘息的同時、
ENDIF
IF ABL:Ａ拡張 >= SIZE("阴茎", PLAYER) && ABL:施虐属性 && RAND:2
	PRINT 一口気
ELSE
	PRINT 溫柔緩慢地
ENDIF
PRINTFORM 沉下了%TEXTR(@"腰/%TEXTS("お尻：視覚")%")%
IF PREVPLAY("清洁口交") && RAND:3 == 0
	PRINTFORMW 將%TEXTR("被漂亮的清潔乾淨的/清潔口交之後的/在口舌侍奉之後振作起來的")%陰莖\@ CHOSECOMS("Ａ挿入") ? 再一次的 # 毫不猶豫的 \@用尻穴深深含入體內……
ELSEIF CHECK("Ａ挿入") && RAND:3
	IF ABL:Ａ拡張 > SIZE("阴茎", PLAYER) && RAND:2
		PRINTW 用後側的淫穴毫無阻礙地將陰莖吞入體內、開始急促的扭動腰肢追逐著快樂……
	ELSE
		PRINTW 借助肛門柔肉的蠕動與本身的體重將挺立的陰莖慢慢吞入體內……
	ENDIF
ELSE
	PRINTW 用肛門擼動著陰莖……
ENDIF

@COM_ORDER_COM75, ARG
VARSET LOCAL
LOCALS =

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

LOCAL = RESULT

;一定のＡ経験かＡ感覚が必要
IF EXP:Ａ経験 < 100 && ABL:Ａ感覚 < 3
	LOCAL -= 30
	IF EXP:Ａ経験 < 100
		LOCALS = %LOCALS% - Ａ経験不足(30)
	ELSEIF ABL:Ａ感覚 < 3
		LOCALS = %LOCALS% - Ａ感覚不足(30)
	ENDIF
ENDIF

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

IF COND("調教中")
	;PALAM:Ａ潤（の不足）
	SELECTCASE PALAM:Ａ潤
	CASE IS < 3000
		LOCAL -= 20
		LOCALS = %LOCALS% - Ａ潤不足(20)
	CASE IS < 10000
		LOCAL -= 5
		LOCALS = %LOCALS% - Ａ潤不足(5)
	ENDSELECT
ENDIF

;強気
IF TALENT:強気
	LOCAL += 10
	LOCALS = %LOCALS% + 強気(10)
ENDIF
;害羞
IF TALENT:害羞
	LOCAL -= 10
	LOCALS = %LOCALS% - 害羞(10)
ENDIF
;Ａ損傷
IF TALENT:Ａ損傷
	LOCAL -= 30 * TALENT:Ａ損傷
	LOCALS = %LOCALS%- Ａ損傷({30 * TALENT:Ａ損傷})
ENDIF
;献身的
IF TALENT:献身
	LOCAL += 6
	LOCALS = %LOCALS% + 献身(6)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 1
	LOCALS = %LOCALS% - 否定快感(1)
ENDIF
;Ａ性向
IF TALENT:Ａ性向
	LOCAL += 10
	LOCALS = %LOCALS% + Ａ性向(10)
ENDIF
;媚薬
IF TEQUIP:媚薬
	LOCAL += 6
	LOCALS = %LOCALS% + 媚薬(6)
ENDIF

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

RETURN RESULT


code:
@COM7
;阴部愛撫。指を入れないで、阴蒂や陰唇、膣口までを弄る（挿入中でも実行可能）
;TEQUIP:阴部愛撫で行為を記録する
;0bit阴部表層 1bit恥丘 2bit阴蒂を弄る 3bit穿環をいじめる
;基本的には阴部or恥丘愛撫→陰核愛撫 となる

CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM7, ARG
IF PREVCOM == 5
	CALL FLAG_COM5, 30
ELSEIF PREVCOM == 6
	CALL FLAG_COM6, 30
ENDIF
IF CHECK_COM("擦拭")
	CALL SETFLAG, "擦拭フラグ", TARGET
	STAIN:Ｖ = SET_STAIN(0, "Ｖ")
	STAIN:Ａ = SET_STAIN(0, "Ａ")
	STAIN:PLAYER:手 = 0
ELSE
	;対象のＶ⇔調教者の指的污垢が移動
	CALL EQ_STAIN, TARGET, "Ｖ", PLAYER, "手"
ENDIF

@SOURCE_COM7, ARG
IF PREVCOM == 5
	CALL SOURCE_COM5, 30
ELSEIF PREVCOM == 6
	CALL SOURCE_COM6, 30
ENDIF
SIF CHECK_COM("擦拭")
	CALL SOURCE_COM13, 30

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 7

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

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

SOURCE:0:情愛 = 200 + (ABL:Ｃ感覚 + ABL:Ｖ感覚)*100

;阴部が露出していないと快Ｃ減
IF !CHECK_CLO("Ｖ露出") && COND("調教中")
	;休闲褲を是ていると快Ｃ激減
	IF CHECK_OUTER("休闲褲") || CHECK_PANTIES("皮革")
		TIMES SOURCE:0:Ｃ快楽, 0.20
		TIMES SOURCE:0:露出, 0.20
	ELSE
		TIMES SOURCE:0:Ｃ快楽, 0.60
		TIMES SOURCE:0:露出, 0.50
	ENDIF
ENDIF

;贞操重视
IF TALENT:贞操重视
	IF TALENT:処女 == 1
		TIMES SOURCE:0:情愛, 0.60
		TIMES SOURCE:0:屈従, 2.00
		SOURCE:0:逸脱 += 1000
	ENDIF
;不在乎貞操
ELSEIF TALENT:不在乎貞操
	IF TALENT:処女 == 1
		TIMES SOURCE:0:情愛, 0.60
		SOURCE:0:逸脱 += 300
	ENDIF
ELSE
	IF TALENT:処女 == 1
		SOURCE:0:逸脱 += 500
	ENDIF
ENDIF

IF CHECK_COM("擦拭")
	TIMES SOURCE:0:Ｃ快楽, 0.10
ELSEIF CHECK_COM("陰核愛撫")
	TIMES SOURCE:0:Ｃ快楽, 1.50
ENDIF

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

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

@TRAIN_MESSAGE_COM7
;TEQUIP:阴部愛撫で行為を記録する
;0bit阴部表層 1bit恥丘 2bit阴蒂を弄る 3bit穿環をいじめる
;基本的には阴部or恥丘愛撫→陰核愛撫 となる

PRINTFORM %CALLNAME:PLAYER%将

IF INSERT("合体中")
	PRINTFORM %TEXTS("合体中", PLAYER)%
;連続実行
ELSEIF PREVCOM == SELECTCOM
	;陰核愛撫連続の際には、穴開きでない胖次を是ていて、ずらされていないならずらす事もある
	IF RAND:2 && CHECK_COM("陰核愛撫") && CHECK_CLO("Ｖ露出") == 0
		PRINTFORM %CALLNAME:TARGET%的
		CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
		PRINTFORM 、
	ELSEIF TEQUIP:接吻
		PRINTFORM %TEXTS("接吻継続")%、
		CALL SETFLAG, "追加接吻フラグ", TARGET
	ENDIF
ELSEIF TEQUIP:六九式 || PREVCOM == 1 || PREVCOM == 9
	;においは確率高め
	IF RAND:3
		IF AGE(TARGET) == 1 && RAND:3 == 0
			PRINTFORM 將少女特有的性器的%TEXTS("气味")%
		ELSEIF AGE(TARGET) == 4 && RAND:3 == 0
			PRINTFORM 將成熟雌性的醇厚的%TEXTS("气味")%
		ELSEIF TALENT:好色 && CALCF("Ｖ発情") >= 2 && RAND:3 == 0
			PRINTFORM 將漸漸濃烈起來的
			IF RAND:2
				PRINTFORM 陰部的%TEXTS("气味")%
			ELSE
				PRINTFORM 濃郁的雌性的%TEXTS("气味")%
			ENDIF
		ELSEIF RAND:3 == 0 && (AGE(TARGET) == 1 || TALENT:絶頂失禁体質)
			PRINTFORM 將微弱的尿臭
		ELSEIF CALCF("Ｖ発情")
			IF RAND:2 && CHECK_CLO("Ｖ露出") == 0
				PRINTFORM 將股間飄蕩起來的蒸騰的愛液的媚香
			ELSE
				PRINTFORM 將混雜著濕氣與滲透著的汗液的%TEXTS("气味")%
			ENDIF
		ELSE
			PRINTFORM 將散發著微妙的香味的汗液的%TEXTS("气味")%
		ENDIF
		IF RAND:2
			PRINTFORM 仔細嗅聞著的同時、
		ELSE
			PRINTFORM 盡情品味著的同時、
		ENDIF
	;眺めは少し似てるので確率低め
	ELSEIF RAND:2 && CHECK_CLO("Ｖ露出")
		IF AGE(TARGET) == 2 && RAND:2
			PRINTFORM 將少女特有的性器的形狀
		ELSEIF AGE(TARGET) == 4 && RAND:2
			PRINTFORM 將成熟雌性的艷麗的陰部
		ELSE
			PRINTFORM 將及近距離被清楚展示著的性器
		ENDIF
		IF RAND:2
			PRINTFORM 目不轉睛的眺望著的同時、
		ELSE
			PRINTFORM 仔細觀察著的同時、
		ENDIF
	ELSE
		PRINTFORM 將眼前的美麗風景
		IF RAND:2
			PRINTFORM 盡情享受著的同時、
		ELSE
			PRINTFORM 滿足的觀賞著的同時、
		ENDIF
	ENDIF
ELSE
	IF TEQUIP:接吻
		PRINTFORM %TEXTS("接吻継続")%、
		CALL SETFLAG, "追加接吻フラグ", TARGET
	ELSEIF PREVCOM == 5
		PRINTFORM 輕柔的愛撫著%CALLNAME:TARGET%的胸部的同時、
	ELSEIF RAND:3 == 0
		IF TALENT:害羞 && MARK:屈服刻印 < 2 && EX:絶頂数合計 == 0
			PRINTFORM 在%CALLNAME:TARGET%反射性的閉合起來的雙腿間的空隙將手伸入、
		ELSEIF (ABL:信頼 >= 3 && RAND:3 == 0) || CHECK_COM("擦拭")
			PRINTFORM 在%CALLNAME:TARGET%順從地張開雙腿之後、
		ELSEIF RAND:2
			PRINTFORM %CALLNAME:TARGET%的
			IF EX:絶頂数合計
				PRINTFORM 因絕頂的快感而泛起紅潮的
			ELSEIF PALAM:欲情 >= 3000
				SIF PALAM:欲情 < 10000
					PRINTFORM 微微地
				PRINTFORM 附著晶瑩汗滴的
			ENDIF
			PRINTFORM 大腿內側用手撫摸起來、
		ELSE
			SIF TALENT:好色
				PRINTFORM 無意識的張開雙腿的
			PRINTFORM %CALLNAME:TARGET%的股間用手慢慢地撫摸著、
		ENDIF
	ELSEIF RAND:2
		PRINTFORM 在將%CALLNAME:TARGET%抱入懷中之後、
	ELSE
		PRINTFORM %CALLNAME:TARGET%的
		IF EX:絶頂数合計 >= 5 && RAND:3
			PRINTFORM 因劇烈而源源不斷的快感而完全溶化的臉
		ELSE
			SIF EX:絶頂数合計 >= 1
				PRINTFORM 因快感而溶化的
			IF RAND:2
				PRINTFORM 脸上
			ELSE
				PRINTFORM 雙瞳
			ENDIF
		ENDIF
		PRINTFORM 目不轉睛的凝視著的同時、
	ENDIF
ENDIF

;主なルートは三つで、TEQUIP:阴部愛撫 で行動を記録
;0bit阴部表層 1bit恥丘 2bit阴蒂を弄る 3bit穿環をいじめる
;まずは不要なフラグを消去する…まだ陰蒂環愛撫無かったわ
;CLEARBIT TEQUIP:阴部愛撫, 3

VARSET LOCAL
VARSET LOCALS

;阴蒂を重点的に弄る
IF CHECK_COM("陰核愛撫に変化")
	;連続実行でルートも一緒
	IF CHECK_COM("陰核愛撫")
		;0通常 1皮の下で勃起 2顔を出す 3ギンギン
		SELECTCASE CALCF("Ｃ発情")
		CASE 0
			PRINTFORM 將被包皮保護著的
		CASE 1
			PRINTFORM 將即使被包皮包裹著也能感受到硬度的
		CASE 2
			PRINTFORM 將勃起到從包皮中露出的
		CASEELSE
			PRINTFORM 將興奮地充血勃起的
		ENDSELECT
		PRINTFORM %TEXTR("陰蒂/淫核/突起")%
		PRINTFORM %TEXTR("執拗地/徹底地/毫不留情地")%
		IF CALCF("Ｃ発情") >= 2
			PRINTFORMW %TEXTR("輕輕擼動著/輕柔地捻動著/持續玩弄著")%……
		ELSE
			PRINTFORMW %TEXTR("輕輕地摁倒/持續玩弄著/不斷刺激著")%……
		ENDIF
	ELSE
		IF CHECK_CLO("Ｖ露出") == 0
			;内衣越し
			IF CHECK_CLO("胖次露出")
				PRINTFORM 連同%CLO("股間")%一併將
			;生地が分厚い
			ELSE
				PRINTFORM 隔著%CLO("股間")%
			ENDIF
		ELSE
			PRINTFORM 將%TEXTS("阴蒂")%
		ENDIF
		IF RAND:4 == 0
			PRINTFORM 阴蒂
		ELSEIF RAND:3 == 0
			PRINTFORM 淫核
		ELSEIF RAND:2
			PRINTFORM 肉豆
		ELSE
			PRINTFORM 突起
		ENDIF
		;包茎状態 + 胖次无 なら皮の描写
		IF CALCF("Ｃ発情") < 2 && CHECK_CLO("Ｖ露出")
			IF RAND:2
				LOCALS = 從包皮中剝出、
			ELSE
				LOCALS = 間隔著包皮
			ENDIF
		ENDIF
		IF ABL:PLAYER:技巧 + ABL:PLAYER:指靈活 >= 4 && RAND:3
			IF RAND:5 == 0 && CALCF("Ｃ発情") >= 2 && CHECK_CLO("Ｖ露出")
				PRINTFORMW %LOCALS%捏住並不斷地搖晃著……
			ELSEIF RAND:4 == 0 && CALCF("Ｃ発情") >= 2
				PRINTFORMW %LOCALS%用指尖不斷地捻動……
			ELSEIF RAND:3 == 0
				PRINTFORMW %LOCALS%持續地玩弄著……
			ELSEIF RAND:2
				PRINTFORMW %LOCALS%不斷變換節奏的擼動著……
			ELSE
				PRINTFORMW %LOCALS%用手指不時的輕輕彈動……
			ENDIF
		ELSEIF RAND:4 == 0 && CALCF("Ｃ発情") >= 2
			PRINTFORMW %LOCALS%用指尖輾轉著……
		ELSEIF RAND:3 == 0
			PRINTFORMW %LOCALS%用指腹輕輕摩挲著……
		ELSEIF RAND:2
			PRINTFORMW %LOCALS%來回地撫摸著……
		ELSE
			PRINTFORMW %LOCALS%來回地愛撫著……
		ENDIF
	ENDIF
	TEQUIP:阴部愛撫 = 1p2
;阴部愛撫
ELSEIF RAND:2 || TEQUIP:六九式 || PREVCOM == 1 || PREVCOM == 9 || CHECK_COM("擦拭")
	;内衣越し
	IF CHECK_CLO("Ｖ露出") == 0
		IF CHECK_CLO("湿的") && RAND:2
			PRINTFORM 將被染上淫靡色斑的%CLO("股間")%之內的
		ELSEIF CHECK_CLO("闷热的") && RAND:2
			PRINTFORM 將%CLO("股間")%內部
			SIF PALAM:欲情 >= 10000
				PRINTFORM 濃烈地
			PRINTFORM 蒸騰著熱汽的
		ELSEIF CHECK_CLO("勒紧的") && RAND:2
			PRINTFORM 將被%CLO("股間")%緊緊勒住的
		ELSE
			IF (TEQUIP:六九式 || PREVCOM == 1 || PREVCOM == 9) && RAND:2
				PRINTFORM 將在%CLO("股間")%的遮掩下若隱若現的
			ELSE
				PRINTFORM 將被%CLO("股間")%遮掩著的
			ENDIF
		ENDIF
	ELSE
		;処女 LOCAL == 1 で管理
		IF TALENT:処女 == 1 && RAND:4 == 0
			PRINTFORM 不识男人滋味的
			LOCAL = 1
		;前回CV絶頂or中出し
		ELSEIF PREVEX("Ｃ絶頂") + PREVEX("Ｖ絶頂") + PREVEX("Ｖ中出し") && RAND:3 == 0
			IF PREVEX("Ｖ中出し") && RAND:3
				IF EXP_GAIN("膣内精液経験") >= 4
					PRINTFORM 將被充分中出之后的
				ELSE
					PRINTFORM 將緩緩流出精液的
				ENDIF
			ELSEIF PREVEX("Ｃ絶頂") + PREVEX("Ｖ絶頂") && RAND:3
				IF RAND:2
					PRINTFORM 將在快感之下完全溶化的
				ELSEIF TEQUIP:推倒
					PRINTFORM 剛剛迎來高潮的
				ELSE
					PRINTFORM 刚刚被欺负的
				ENDIF
			ELSE
				PRINTFORM 將因快感而不斷顫抖著的
			ENDIF
		ELSEIF TALENT:陰唇環 && PREVEX("Ｃ絶頂") + PREVEX("Ｖ絶頂") + PREVEX("Ｖ中出し") == 0 && RAND:5 == 0
			IF RAND:2
				PRINTFORM 將被反射著光芒的穿環穿刺著的
			ELSE
				PRINTFORM 被奇妙的金屬環装飾著的
			ENDIF
		ELSEIF EX:Ｖ絶頂 > 3 && RAND:5 == 0
			PRINTFORM 將剛剛不斷迎來高潮的
		ELSEIF CHECK_STAIN(STAIN:Ｖ, "精液") && RAND:4 == 0
			PRINTFORM 將被精液弄髒的
		ELSEIF CALCF("Ｖ発情") >= 4 && RAND:3
			PRINTFORM 將不斷溢出白濁淫汁的
		ELSEIF CALCF("Ｖ発情") >= 3
			IF RAND:2
				PRINTFORM 將不斷流下愛液的
			ELSE
				PRINTFORM 將渴望的不斷張合著的
			ENDIF
		ELSEIF CALCF("Ｖ発情") == 2
			IF RAND:2
				PRINTFORM 將早已被愛液浸透的
			ELSE
				PRINTFORM 將被愛液濡濕到發光的
			ENDIF
		ELSEIF CALCF("Ｖ発情")
			PRINTFORM 发情了
		ENDIF
	ENDIF
	IF LOCAL == 1 && TALENT:処女 == 1 && CHECK_CLO("Ｖ露出")
		PRINTFORM 処女膜
	ELSEIF !CHECK_CLO("Ｖ露出") && RAND:3 == 0
		PRINTFORM 重要部分
	ELSEIF TALENT:害羞 && RAND:2
		PRINTFORM 令人害羞的秘處
	ELSEIF TALENT:好色 && RAND:2
		PRINTFORM 淫亂裂口
	ELSE
		;2020/2/1　加筆
		IF AGE(TARGET) == 4
			PRINTFORM %TEXTR("肉厚的/成熟大人样的/发黑的")%
		ELSEIF AGE(TARGET) == 1
			PRINTFORM 年幼
		ELSEIF TALENT:娇小
			PRINTFORM 小小的
		ENDIF
		PRINTFORM 阴部
	ENDIF
	IF CHECK_COM("擦拭")
		PRINTFORMW 用潔淨的濕布輕柔地擦拭著……
	ELSEIF TEQUIP:六九式 && CHECK_CLO("Ｖ露出") && RAND:3 == 0
		IF TALENT:処女 == 0
			PRINTFORMW 用指尖輕巧的玩弄著……
		ELSE
			PRINTFORMW 推開、用指尖輕巧的玩弄著……
		ENDIF
	ELSEIF RAND:3 == 0
		PRINTFORMW 用手指描繪著、將凹凸不平的地方輕輕摩擦著……
	ELSEIF RAND:2
		PRINTFORMW 的邊緣用手指描繪著、用時有時無的力道慢慢摩擦著……
	ELSE
		PRINTFORMW 用指腹非常輕柔地摩挲著……
	ENDIF
	TEQUIP:阴部愛撫 = 1p0
;恥丘愛撫
ELSE
	;内衣越し
	IF CHECK_CLO("Ｖ露出") == 0
		IF CHECK_CLO("勒紧的") && RAND:2
			IF CHECK_CLO("贴身制服露出") && RAND:2
				PRINTFORM 將被緊身衣緊貼著勾出輪廓的、柔軟的隆起的
			ELSE
				PRINTFORM 將被高衩設計的布料緊緊勒住的柔軟的
			ENDIF
		ELSE
			IF RAND:4 == 0
				PRINTFORM 將被%CLO("股間")%包裹著的
			ELSEIF RAND:3 == 0
				PRINTFORM 將以美妙的曲線隆起的
			ELSEIF RAND:2
				PRINTFORM 將略微突出的
			ELSE
				PRINTFORM 將柔軟而突出的
			ENDIF
		ENDIF
	ELSE
		IF COND("陰毛") && RAND:3 == 0
			SELECTCASE COND("陰毛")
			CASE 1
				PRINTFORM 將剝殼雞蛋一樣光潔的
			CASE 2
				PRINTFORM 將被完全剔除陰毛的
			CASE 3
				IF PREVCOM == 145
					PRINTFORM 將剛剛被完全剃除毛髮的
				ELSEIF RAND:2
					PRINTFORM 將毛髮被剃除乾淨的
				ELSE
					PRINTFORM 陰毛被剃除、猶如剝殼雞蛋的
				ENDIF
			CASE 4
				;剃过留痕
				IF CONDS("陰毛") == "剃过留痕"
					IF RAND:2
						PRINTFORM 有明显的修剪痕迹的
					ELSE
						PRINTFORM 將生長著微小毛茬的
					ENDIF
				;还没長出来
				ELSEIF AGE(TARGET) == 1
					IF RAND:2
						PRINTFORM 生長稀疏胎毛的
					ELSE
						PRINTFORM 还有些稚嫩的孩子气的
					ENDIF
				;还没長出来（大人）
				ELSE
					IF RAND:2 && BASE:陰毛%100 >= 5
						PRINTFORM 將陰毛被整齊修剪過的
					ELSE
						PRINTFORM 有著薄薄陰毛的
					ENDIF
				ENDIF
			CASE 5, 6
				IF AGE(TARGET) == 1
					IF RAND:2
						PRINTFORM 將陰毛稍微生長了的
					ELSE
						PRINTFORM 可愛的
					ENDIF
				ELSE
					PRINTFORM 將被柔軟的毛髮覆蓋著的
				ENDIF
			CASE 7
				IF RAND:3 == 0 && AGE(TARGET) >= 2
					PRINTFORM 被濃密黑林所覆蓋的
				ELSEIF RAND:2
					PRINTFORM 將生長著茂密毛髮的
				ELSE
					PRINTFORM 將被厚重毛髮覆蓋著的
				ENDIF
			ENDSELECT
		ELSEIF RAND:2
			IF (TALENT:好色 || CALCF("Ｖ発情") >= 4) && AGE(TARGET) >= 2
				PRINTFORM 將暴露出內部抽搐著的肉襞的
			ELSE
				PRINTFORM 將羞澀地閉合著的
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORM 將緩慢地隆起的
			ELSE
				PRINTFORM 將緩慢地膨脹起來的
			ENDIF
		ENDIF
	ENDIF
	IF RAND:2
		PRINTFORM 胯股之间
	ELSE
		SIF TALENT:好色
			PRINTFORM 、恬不知恥的淫亂
		PRINTFORM 肉丘
	ENDIF
	IF RAND:3 == 0
		PRINTFORM 整個用手掌
		IF RAND:2 && ABL:PLAYER:指靈活 >= 3
			PRINTFORMW 包裹住、將濕潤的裂口用指尖輕輕地來回撫摸著……
		ELSE
			PRINTFORMW 包裹著揉搓起來……
		ENDIF
	ELSEIF RAND:2
		PRINTFORMW 那柔軟的觸感盡情地品味著……
	ELSE
		PRINTFORMW 毫無間歇地撫摸著……
	ENDIF
	TEQUIP:阴部愛撫 = 1p1
ENDIF


code:
@COM80
;貝あわせ
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL SETFLAG, "下半身を脱がす", PLAYER

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM80, ARG
IF CHECK_COM("双頭振動棒PLAY", 80)
	IF TALENT:PLAYER:処女
		CALL SETFLAG, "処女喪失フラグ", PLAYER
		CALL SETFLAG, "処女簒奪フラグ", TARGET
	ENDIF
ENDIF
;対象のＶ⇔調教者のＶ的污垢が移動
CALL EQ_STAIN, TARGET, "Ｖ", PLAYER, "Ｖ"

@SOURCE_COM80, ARG
SIF CHECK_COM("双頭振動棒PLAY", 80)
	CALL SOURCE_INSERTION, "双頭振動棒PLAY", ARG, 100

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 80

;SOURCE:0:恐惧 = 500
SOURCE:0:露出 = 250
SOURCE:0:屈従 = 400
SOURCE:0:逸脱 = 300
SOURCE:0:性行動 = 500 + ABL:奉仕精神*100
SOURCE:0:達成感 = 300

SOURCE:0:Ｃ快楽 = CALCF("Ｃ刺激", 2, 120)

SIF CHECK_COM("双頭振動棒PLAY", 80)
	TIMES SOURCE:0:Ｃ快楽, 0.30
;調教者の腰靈活をみる
SOURCE:0:Ｃ快楽 = SOURCE_EXABL(SOURCE:0:Ｃ快楽, "腰靈活", PLAYER)

;陰毛の生え具合補正
SIF COND("陰毛") <= 5 && COND("陰毛", PLAYER) >= 5
	TIMES SOURCE:0:Ｃ快楽, 1.20

IF COND("喜欢的体位中")
	TIMES SOURCE:0:Ｃ快楽, 1.20
	TIMES SOURCE:0:Ｖ快楽, 1.20
	TIMES SOURCE:0:性行動, 1.20
	TIMES SOURCE:0:達成感, 1.20
	TIMES SOURCE:0:恐惧, 0.80
	TIMES SOURCE:0:逸脱, 0.80
ENDIF

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

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

@TRAIN_MESSAGE_COM80
IF PREVCOM == SELECTCOM
	PRINTFORM %CALLNAME:PLAYER%和%CALLNAME:TARGET%
	IF RAND:3
		IF RAND:3
			PRINTFORM 两人的肌肤染上%TEXTR("桜色/朱红")%的%TEXTR("贴在一起/重叠在一起/")%的同时、
		ELSEIF RAND:2
			PRINTFORM 两人的愛液%TEXTR("像唾液那样缠在一起/缠在一起")%的同时、
		ENDIF
		PRINTFORMW %TEXTR("多次/不知道多少次地")%将%TEXTR("下流的/淫猥的/陰/")%唇%TEXTR("重叠在一起/相互亲吻着")%…
	ELSE
		IF RAND:3
			PRINTFORM 房间中响起%TEXTR("嬌声/水音")%的同时、
		ELSEIF RAND:2
			PRINTFORM 从%TEXTR("身体上/全身")%%TEXTR("散发出/散出/発散出/发出/飘出")%%TEXTR("雌香/淫臭/下流的香气/充滿情慾與雌性味道的淫香")%、
		ELSE
			PRINTFORM %TEXTR("身体/全身")%%TEXTR("流出像是玉珠一样的汗珠/变得红红的/流出晶瑩汗滴")%的同时、
		ENDIF
		SIF COND("性別嫌悪") == 0 && COND("性別嫌悪", PLAYER) == 0
			PRINT 在梦中
		IF RAND:3
			PRINTFORMW 相互将腰贴在一起…
		ELSEIF RAND:2
			PRINTFORMW %TEXTR("像是在舔舐一样/")%互相%TEXTR("摩擦/緊密而激烈的摩擦著")%陰部…
		ELSE
			PRINTFORMW %TEXTR("贪食着/分享/互相给予")%將股間相互緊密而激烈的摩擦的快樂…
		ENDIF
	ENDIF
ELSEIF TEQUIP:推倒
	PRINTFORM %CALLNAME:TARGET%将%CALLNAME:PLAYER%的身体按住、
	IF TALENT:PLAYER:処女 && CHECK_COM("双頭振動棒PLAY", 80)
		PRINTFORMW 将用股间含住的双頭振動棒的另一端压在了%CALLNAME:PLAYER%的膣口上。
		PRINTFORM 用模仿着亀頭的前端多次戳弄了入口之后、
		PRINTFORMW 振動棒便慢慢地打開了%CALLNAME:PLAYER%的膣肉、就这样拿走了処女
		PRINTFORMW 带着体重压下来的振動棒瞬间钻入了%CALLNAME:PLAYER%的膣深处、將被蹂躪的快樂與鮮明的疼痛清楚地傳遞到腦海……
	ELSE
		IF CHECK_COM("双頭振動棒PLAY", 80)
			PRINTFORMW 用%TEXTR("插在其中的/股間的")%双頭振動棒侵犯着膣的同时%TEXTR("/激烈地")%扭动起腰…
		ELSE
			PRINTFORMW 贪婪地将双方的%TEXTR("蜜裂/性器")%%TEXTR("重叠在一起/摩擦着")%…
		ENDIF
	ENDIF
ELSEIF CHECK_COM("双頭振動棒PLAY", 80)
	PRINTFORM %CALLNAME:PLAYER%
	IF TALENT:PLAYER:処女
		PRINTFORMW 跨坐在从%CALLNAME:TARGET%的膣中露出頭的振動棒上、丢掉了自己的处女…
		PRINTFORM %CALLNAME:TARGET%
		IF TALENT:恋慕 || TALENT:兩面通吃
			PRINTFORM 因为收到了%CALLNAME:PLAYER%的第一次%TEXTR("而兴奋/而兴奋地红透了脸/露出了喜色")%、
			PRINTFORMW 为了%TEXTR("奖励/抚慰")%%CALLNAME:PLAYER%似的、%TEXTR("温柔地/慢慢地")%%TEXTR("開始动腰/開始了扭动/摇晃起腰/開始摇晃腰部")%…
		ELSE
			PRINTFORMW 因為%CALLNAME:PLAYER%的行為而用難以言喻的複雜表情眺望著夾雜著痛苦與快樂的臉、開始心不在焉的配合著扭動著腰肢……
		ENDIF
	ELSEIF RAND:2 && COND("性別嫌悪") == 0 && COND("性別嫌悪", PLAYER) == 0
		PRINTFORM 和%CALLNAME:TARGET%保持著將手伸到背後支撐身體、下半身Ｍ字開腿的姿勢相對著、用激烈地振動著的雙頭振動棒將兩人連接起來、
		IF RAND:3 == 0
			PRINTFORMW 將彼此的膣道激烈的侵犯著
		ELSEIF RAND:2
			PRINTFORMW 腰を突き%TEXTR("/出し")%あった
		ELSE
			PRINTFORMW 大力的扭動著腰肢
		ENDIF

		;攻め手の判定
		SELECTCASE ABL:Ｖ技術 - ABL:Ｖ拡張 - (ABL:PLAYER:Ｖ技術 - ABL:PLAYER:Ｖ拡張)
		;TARGET有利
		CASE IS > 0
			LOCAL = TARGET
			LOCAL:1 = PLAYER
		CASE 0
			LOCAL = TARGET
			LOCAL:1 = PLAYER
			SIF RAND:2
				SWAP LOCAL, LOCAL:1
		CASE IS < 0
			LOCAL = PLAYER
			LOCAL:1 = TARGET
		ENDSELECT

		PRINTFORM %CALLNAME:LOCAL%的
		IF ABL:LOCAL:Ｖ拡張 >= 4 && RAND:3
			PRINTFORM 重复着扩张
		ELSEIF ABL:LOCAL:Ｖ名器度 >= 70 && RAND:3
			PRINTFORM 緊緊纏繞住的
		ELSEIF TALENT:LOCAL:淫壷
			PRINTFORM 因快感而溶化的
		ENDIF
		PRINTFORM 柔軟膣道、借助在%CALLNAME:(LOCAL:1)%的
		IF ABL:(LOCAL:1):Ｖ技術 >= 5 && RAND:3
			PRINTFORM 強力的吮吸著的
		ELSEIF ABL:(LOCAL:1):Ｖ拡張 <= 2 && RAND:3
			PRINTFORM 緊繃的
		ELSEIF ABL:(LOCAL:1):Ｖ名器度 >= 70 && RAND:3
			PRINTFORM 牢牢吸附住的
		ELSEIF TALENT:(LOCAL:1):淫壷
			PRINTFORM 有著無法言喻的貪欲的
		ENDIF
		PRINTFORM 淫亂膣穴中緊緊固定的雙頭振動棒、
		IF RAND:3 == 0
			PRINTFORMW 毫不留情地侵犯、翻攪著……
		ELSEIF RAND:2
			PRINTFORMW 強硬地侵犯著、\@ RAND:2 ? 反復抽插著 # 不斷振動著 \@激烈地玩弄著……
		ELSE
			PRINTFORMW 連同最深處也不留餘地的蹂躪著……
		ENDIF

	ELSE
		PRINTFORM 將從%CALLNAME:TARGET%膣道中露出另一頭的振動棒用自己的淫液稍作潤滑後、就直接地%TEXTR("/用相互摩擦彼此陰部的姿勢")%深深吞嚥進體內了、
		IF RAND:2
			PRINTFORMW 在彼此的膣道被振動棒不斷翻攪著的同時、也緊貼著陰戶相互激烈地摩擦起來、
		ELSE
			PRINTFORMW 用膣肉緊緊勒住振動棒後開始激烈地揮舞腰肢、
		ENDIF
		IF RAND:2
			PRINTFORMW 因雙頭振動棒充分發揮引導工作而愈加激烈地撞擊、摩擦起來的結合處、淫液在發出黏稠的水音的同時、也泛起了白色碎沫、讓兩人的腰部乃至於整個下半身都閃爍著濡濕的光澤……
		ELSE
			PRINTFORMW 與平日裡並不相同的膣內刺激、讓完全沒有不情願心情的兩人愈加的興奮與投入了……
		ENDIF
	ENDIF
ELSE
	PRINTFORMW %CALLNAME:PLAYER%和%CALLNAME:TARGET%將彼此的陰部緊貼著摩擦起來、
	IF RAND:5 == 0
		IF COND("陰毛") <= 3 && COND("陰毛", PLAYER) >= 5
			PRINTFORMW PRINTFORMW 光潔無毛的陰部被糾纏在一起的濡濕陰毛刺激著、%CALLNAME:TARGET%沉浸於快感之中浮現出瘙癢的難耐表情……
		ELSE
			PRINTFORMW %TEXTR("两人的陰核/陰核")%相互摩擦刺激着、%CALLNAME:TARGET%沉浸於快感之中浮現出瘙癢的難耐表情……
		ENDIF
	ELSEIF RAND:4 == 0
		IF COND("陰毛") >= 5 && COND("陰毛", PLAYER) <= 3
			PRINTFORMW %CALLNAME:TARGET%將%CALLNAME:PLAYER%毫無防備的陰部用自己的毛髮摩擦著、愉快的享受露出%TEXTR("微笑/很舒服的表情")%……
		ELSE
			PRINTFORMW %CALLNAME:TARGET%將%CALLNAME:PLAYER%毫無防備的陰核用自己的毛髮摩擦著、愉快的享受露出%TEXTR("微笑/很舒服的表情")%……
		ENDIF
	ELSEIF RAND:3 == 0
		PRINTFORMW %TEXTR("重重疊疊的水聲/淫靡而黏稠的水音")%連同著下體傳遞的極樂快感被一併送入腦中、腰肢的活動漸漸變得更加激烈了……
	ELSEIF RAND:2
		PRINTFORMW 被緊緊擠壓在一起的四瓣陰唇%TEXTR("多次/咕啾咕啾")%变换着下流的形状、彼此的體香與溢出蜜液的淫香漸漸混合、發酵、釀造出更加淫靡激烈的濃郁气味
	ELSE
		PRINTFORMW 每次将陰唇贴在一起、两人的体香便混合在一起变成了更加淫乱的%TEXTS("气味")%…
	ENDIF
ENDIF


code:
@COM81
;強制乳交(雙乳間抽插)
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM81, ARG
;対象のＢ⇔調教者のＰ的污垢が移動
CALL EQ_STAIN, TARGET, "Ｂ", PLAYER, "Ｐ"
SIF ASSIPLAY == 0 && ABL:Ｂ感覚 >= 3
	TFLAG:好感度BOUNS += 1

@SOURCE_COM81, ARG
CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 81

SOURCE:0:屈従 = 3000
SOURCE:0:逸脱 = 900
SOURCE:0:不潔 = COM_ORDER_STAIN("Ｐ", "Ｂ")*40

;ABL:奉仕精神をみる
SELECTCASE ABL:奉仕精神
CASE 0
	SOURCE:0:性行動 = 420
	SOURCE:0:達成感 = 150
CASE 1
	SOURCE:0:性行動 = 500
	SOURCE:0:達成感 = 300
CASE 2
	SOURCE:0:性行動 = 580
	SOURCE:0:達成感 = 600
CASE 3
	SOURCE:0:性行動 = 660
	SOURCE:0:達成感 = 900
CASE 4
	SOURCE:0:性行動 = 740
	SOURCE:0:達成感 = 1500
CASEELSE
	SOURCE:0:性行動 = 820
	SOURCE:0:達成感 = 2200
ENDSELECT

;ABL:Ｂ感覚をみる
SOURCE:0:Ｂ快楽 = CALCF("Ｂ刺激", 2, 70)
SOURCE:0:Ｂ快楽 = SOURCE_EXABL(SOURCE:0:Ｂ快楽, "指靈活", PLAYER)

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

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

@TRAIN_MESSAGE_COM81
IF SELECTCOM == PREVCOM
	PRINTFORMW %CALLNAME:PLAYER%將%CALLNAME:TARGET%的胸部持續侵犯著……
	RETURN 0
ENDIF

IF TALENT:巨乳 && RAND:3 == 0
	LOCALS = %TOFULL(CONDS("罩杯") )%罩杯的%TALENT_NAME(GETNUM(TALENT, "巨乳"), TALENT:巨乳)%
ELSEIF RAND:2
	IF TALENT:巨乳
		IF TALENT:巨乳 >= 2 && RAND:2
			IF RAND:2
				LOCALS = 有著壓倒性魄力的乳房
			ELSE
				LOCALS = 有著充分成熟的重量的乳房
			ENDIF
		ELSE
			IF RAND:2
				LOCALS = 有著富有魅力的線條的乳房
			ELSE
				LOCALS = 宛如熟成果實一般的乳房
			ENDIF
		ENDIF
	ELSE
		LOCALS = 乳房
	ENDIF
ELSE
	LOCALS = 胸
ENDIF

;胸元が露出しているなら、そこではさむ
IF CHECK_CLO("谷間露出")
;半脱られるのに、胸元を半脱ていないなら、ずらす
ELSEIF CHECK_CLO("半脱可")
	CALL SETFLAG, "胸を半脱る", TARGET
ENDIF

PRINTFORM %CALLNAME:PLAYER%将
;前回は乳交
IF PREVCOM == 92 && COND("前Ｔと同ペア")
	;汚れてますか？汚臭鈍感で無いならば、実行値の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
	PRINTFORM 侍奉著的%CALLNAME:TARGET%那%LOCALS%\@ RAND:2 ? 從兩側 # 用雙手 \@\@ RAND:2 ? 揉搓著 # 按壓著 \@、
;床に拘束しているなら相手に跨る
ELSE
	IF BIND("床", TEQUIP:拘束)
		PRINTFORM 被拘束具固定在床上的%CALLNAME:TARGET%那
		IF AGE(TARGET) >= 3
			SELECTCASE CONDS("体型")
			CASE "太め"
				PRINTFORM 豐腴而綿軟的
			CASE "細め"
				IF TALENT:大力士
					PRINTFORM 緊繃而富含彈性的
				ELSE
					PRINTFORM 纖細而修長的
				ENDIF
			CASEELSE
				SIF TALENT:大力士
					PRINTFORM 緊繃而富含彈性的
			ENDSELECT
		ENDIF
		PRINTFORM 腹部輕輕跨上、將
	ELSE
		PRINTFORM %CALLNAME:TARGET%的
	ENDIF
	IF RAND:4 == 0
		PRINTFORM %LOCALS%的股間用陰莖前後滑動著、
	ELSEIF RAND:3 == 0
		PRINTFORM %LOCALS%的股間用陰莖快速地突刺著、
	ELSEIF RAND:2
		PRINTFORM %LOCALS%的峽間為目標反復擺動腰肢、
	ELSE
		PRINTFORM %LOCALS%將陰莖包裹住、
	ENDIF
	PRINTFORM \@ RAND:2 ? 從兩側 # 用雙手 \@\@ RAND:2 ? 揉搓著 # 按壓著 \@、
ENDIF

;快楽を与える
IF RAND:2
	IF RAND:3 == 0 && CALCF("Ｂ発情")
		PRINTFORM 將乳頭用手指輕輕地揉捏著
	ELSEIF RAND:2
		PRINTFORM 將乳輪用親指不斷地摩挲著
	ELSE
		PRINTFORM 將乳房盡情的揉搓著
	ENDIF
ELSE
	IF RAND:4 == 0
		PRINTFORM 將內側不斷摩擦陰莖
	ELSEIF RAND:3 == 0
		PRINTFORM 將峰巒緊緊貼住陰莖
	ELSEIF RAND:2
		PRINTFORM 將谷間緊緊捆住陰莖
	ELSE
		PRINTFORM 將乳房用力壓迫陰莖
	ENDIF
ENDIF

;SIF EXP:PLAYER:Ｖ挿入経験 + EXP:PLAYER:Ａ挿入経験
;	PRINT 就像是在正常性交一樣

IF ABL:PLAYER:施虐属性 && RAND:3 == 0
	PRINTFORMW 粗暴地擺動腰肢……
ELSEIF RAND:2
	PRINTFORMW 將腰肢激烈地擺動著……
ELSE
	PRINTFORMW 前後动起了腰…
ENDIF


code:
@COM82
;乳頭奸
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM82, ARG
;胸元が露出しているなら、そこではさむ
IF CHECK_CLO("乳頭露出")
;半脱られるのに、胸元を半脱ていないなら、ずらす
ELSEIF CHECK_CLO("半脱可")
	CALL SETFLAG, "胸を半脱る", TARGET
ENDIF
;対象のＢ⇔調教者のＰ的污垢が移動
CALL EQ_STAIN, TARGET, "Ｂ", PLAYER, "Ｐ"
SIF ASSIPLAY == 0 && ABL:Ｂ感覚 >= 3
	TFLAG:好感度BOUNS += 1

@SOURCE_COM82, ARG
CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 82

SOURCE:0:屈従 = 2000
SOURCE:0:逸脱 = 3000
SOURCE:0:不潔 = COM_ORDER_STAIN("Ｐ", "Ｂ")*100

;ABL:奉仕精神をみる
SELECTCASE ABL:奉仕精神
CASE 0
	SOURCE:0:性行動 = 420
	SOURCE:0:達成感 = 150
CASE 1
	SOURCE:0:性行動 = 500
	SOURCE:0:達成感 = 300
CASE 2
	SOURCE:0:性行動 = 580
	SOURCE:0:達成感 = 600
CASE 3
	SOURCE:0:性行動 = 660
	SOURCE:0:達成感 = 900
CASE 4
	SOURCE:0:性行動 = 740
	SOURCE:0:達成感 = 1500
CASEELSE
	SOURCE:0:性行動 = 820
	SOURCE:0:達成感 = 2200
ENDSELECT

;ABL:Ｂ感覚をみる
SOURCE:0:Ｂ快楽 = CALCF("Ｂ刺激", 3)
SIF TEQUIP:推倒 == 0
	SOURCE:0:Ｂ快楽 = SOURCE_EXABL(SOURCE:0:Ｂ快楽, "腰靈活", PLAYER)

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

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

@TRAIN_MESSAGE_COM82
;胸元が露出しているなら、そこではさむ
IF CHECK_CLO("乳頭露出")
;半脱られるのに、胸元を半脱ていないなら、ずらす
ELSEIF CHECK_CLO("半脱可")
	CALL SETFLAG, "胸を半脱る", TARGET
ENDIF

IF CHECK_COM("左右乳頭奸")
	;同じ指令の組み合わせで連続実行
	IF SELECTCOM:2 == PREVCOM:2 && SELECTCOM == PREVCOM
		PRINTFORM %CALLNAME:PLAYER%和%CALLNAME:(PLAYER:1)%
		IF COND("乳頭肥大")
			IF RAND:5 == 0
				PRINTFORM %TEXTR("像性器一様缠绕着的/像吸盤一様吸住的")%
			ELSEIF RAND:4 == 0
				PRINTFORM %TEXTR("摩擦着/扱动着")%%TEXTR("粘合吸住/吸紧")%的%TEXTR("乳頭内部的粘膜/曾被称为乳腺的肉孔")%的同时
			ELSEIF RAND:3 == 0
				PRINTFORM 用沉重而又%TEXTR("激烈地/舒畅地")%%TEXTR("腰振/撞击/活塞运动")%
			ELSEIF RAND:2 == 0
				PRINTFORM 用%TEXTR("大幅度的/小幅度的/急促的")%%TEXTR("活塞运动/前後運動")%
			ELSE
				PRINTFORM %TEXTR("两人的喘息此起彼伏着/两人的呼吸声重叠在一起/两人一同喘息着")%
			ENDIF
			PRINTFORMW 将%CALLNAME:TARGET%的%TEXTR("巨乳/巨大的乳房/肉厚的胸部/成熟的胸部")%%TEXTR("持续地侵犯/持续地顶弄")%…
		ELSE
			PRINTFORM %CALLNAME:PLAYER%和%CALLNAME:(PLAYER:1)%
			IF RAND:4 == 0
				PRINTFORM 內部的粘膜溫柔地摩擦著的同時、將
			ELSEIF RAND:3 == 0
				PRINTFORM \@ RAND:2 ? 激烈地 # 慢吞吞地 \@動着腰
			ELSEIF RAND:2
				PRINTFORM 抽插的過程特意放緩、將
			ELSE
				PRINTFORM 以相互%TEXTR("配合的/交错的")%动作
			ENDIF
			PRINTFORM %CALLNAME:TARGET%的%TEXTR("左右/一對")%乳房的內部
			IF RAND:2
				PRINTW 持續侵犯著……
			ELSE
				PRINTW 持續翻攪著……
			ENDIF
		ENDIF
	ELSE
		IF RAND:2
			PRINTFORM %CALLNAME:PLAYER%将
			IF RAND:2
				PRINTFORM %CALLNAME:TARGET%嬌嫩的乳頭盡情地使用著、
			ELSE
				PRINTFORM 侵犯本來不可能進入的地方所產生的快感盡情的享受著、
			ENDIF
			PRINTFORMW 和%CALLNAME:(PLAYER:1)%並排着、將%TEXTR("空閒著的/剩下的")%乳房用勃起的陰莖盡情地侵犯起來……
		ELSE
			PRINTFORMW %CALLNAME:PLAYER%和%CALLNAME:(PLAYER:1)%將%CALLNAME:TARGET%兩側的乳房盡情地侵犯起來……
		ENDIF
	ENDIF
	RETURN 1
ELSEIF CHECK_COM("３Ｐ奉仕")
	CALL TRAIN_MESSAGE_3P
	RETURN 1
ELSEIF TEQUIP:推倒
	IF SELECTCOM == PREVCOM
		PRINTFORMW %CALLNAME:TARGET%將%CALLNAME:PLAYER%挺立的陰莖深深貫入自己%TEXTS("柔軟的乳頭之中")%、持續地擼動著……
	ELSE
		;各調教初回選択時は乳环をはずす
		SIF TALENT:乳环 && CHOSECOM(SELECTCOM) == 0
			PRINTFORM 將装飾乳頭的金屬圓環慢慢取下、
		PRINTFORMW %CALLNAME:TARGET%將%CALLNAME:PLAYER%挺立的陰莖用被充分擴張的乳頭慢慢吞入、將原本不可能被侵犯的乳頭當做狹窄的飛機杯一樣%TEXTR("激烈地/巧妙地/、不斷調節著緩急地")%擼動起來……
	ENDIF
	RETURN 1
ELSEIF PREVPLAY("乳内浴尿")
	PRINTFORMW 在乳肉廁所中排泄完畢後的神情愉快的%CALLNAME:PLAYER%、再一次將%CALLNAME:TARGET%的胸前的乳頭執拗地侵犯起來……
	RETURN 1
ELSEIF SELECTCOM == PREVCOM
	PRINTFORMW %CALLNAME:PLAYER%將%CALLNAME:TARGET%的胸部持續侵犯著……
	RETURN 1
ENDIF

PRINTFORM %CALLNAME:PLAYER%将
;前回は乳交
IF PREVCOM == 92 && COND("前Ｔと同ペア")
	;汚れてますか？汚臭鈍感で無いならば、実行値の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
	PRINTFORM 持續侍奉著的%CALLNAME:TARGET%的
;床に拘束しているなら相手に跨る
ELSE
	IF BIND("床", TEQUIP:拘束)
		PRINTFORM 被拘束具固定在床上的%CALLNAME:TARGET%那
		IF AGE(TARGET) >= 3
			SELECTCASE CONDS("体型")
			CASE "太め"
				PRINTFORM 豐腴而綿軟的
			CASE "細め"
				IF TALENT:大力士
					PRINTFORM 緊繃而富含彈性的
				ELSE
					PRINTFORM 纖細而修長的
				ENDIF
			CASEELSE
				SIF TALENT:大力士
					PRINTFORM 緊繃而富含彈性的
			ENDSELECT
		ENDIF
		PRINTFORM 腹部輕輕跨上、將
	ELSE
		PRINTFORM %CALLNAME:TARGET%的
	ENDIF
ENDIF
;各調教初回選択時は乳环をはずす
IF TALENT:乳环 && CHOSECOM(SELECTCOM) == 0
	IF COND("乳頭肥大") >= 2
		PRINTFORM %TEXTR("向前长长地伸出的/向前突出的")%
	ENDIF
	PRINTFORM 乳頭上貫穿而過的金屬穿環慢慢取下、
ENDIF
PRINTFORM %TEXTS("乳頭：描写")%
IF COND("乳頭肥大") >= 2
	PRINTFORM %TEXTR("肥大的/从胸部上突出来肥大的/膨胀肥大的")%
ELSEIF COND("乳頭肥大") == 1
	PRINTFORM %TEXTR("肥大的/显眼的稍微有些肥大的")%
ENDIF
PRINTFORM 乳頭に
PRINTFORM 用陰莖%TEXTR("深入其中之後/與之嵌合之後/壓入內部之後")%、
IF EXP:PLAYER:Ｖ挿入経験 + EXP:PLAYER:Ａ挿入経験 && RAND:4 == 0
	PRINTFORM 就像是之前性愛的時候一樣猛烈地
ELSEIF ABL:PLAYER:施虐属性 && RAND:3 == 0
	PRINTFORM 粗暴地擺動著腰肢
ELSEIF RAND:2
	PRINTFORM 激烈地
ELSE
	PRINTFORM 腰肢強有力地前後挺動著
ENDIF
PRINTFORMW 將乳房的內側毫不留情地侵犯起來……

PRINTFORM %CALLNAME:TARGET%的
IF COND("乳頭肥大") && RAND:2 == 0
	PRINTFORM 将%TEXTR("肥大化的乳頭/巨大的乳頭/肥大的巨大肉孔")%
ELSEIF TALENT:巨乳
	IF TALENT:巨乳 && RAND:3 == 0
		PRINTFORM %TOFULL(CONDS("罩杯") )%罩杯的%TALENT_NAME(GETNUM(TALENT, "巨乳"), TALENT:巨乳)%
	ELSEIF RAND:2
		IF TALENT:巨乳 >= 2 && RAND:2
			IF RAND:2
				PRINTFORM 有著壓倒性魄力的乳房
			ELSE
				PRINTFORM 有著充分成熟的重量的乳房
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORM 有著富有魅力的線條的乳房
			ELSE
				PRINTFORM 宛如熟成果實一般的乳房
			ENDIF
		ENDIF
	ELSE
		PRINTFORM %TEXTR("胸/乳房")%は
	ENDIF
ENDIF
PRINTFORM 將%TEXTR("侵入其中的/毫不憐惜地刺入內部的")%陰莖
SELECTCASE TALENT:巨乳 - SIZE("阴茎", PLAYER)
CASE IS >= 1
	PRINTFORM 饒有富餘地全部接受、
CASE 0
	PRINTFORM 直達根部的吞入體內、
CASEELSE
	PRINTFORM 勉強的包裹住一半的長度、
ENDSELECT
IF RAND:2 && ABL:Ｂ感覚 >= 5
	IF RAND:3 == 0 && TALENT:淫乳
		PRINTFORM 像是在\@ ABL:Ｂ感覚 >= 7 ? 用柔軟的乳肉 # \@咀嚼一樣
	ELSEIF COND("乳頭肥大") && RAND:2 == 0
		PRINTFORM %TEXTR("肥大している乳頭の内部はネットリと阴部の様に絡みつき/肥大化した乳頭の内側は吸盤の様に吸いついて奥へ、奥へと誘い")%
	ELSEIF RAND:3 == 0
		PRINTFORM 像骚动一样
	ELSEIF RAND:2
		PRINTFORM 活跃
	ELSE
		PRINTFORM 垄沟
	ENDIF
	IF RAND:2
		PRINTFORM 一边蠕动
	ELSE
		PRINTFORM 一边蠢蠢欲动
	ENDIF
ELSE
	IF TALENT:淫乳 && RAND:2
		IF RAND:2
			PRINTFORM 在泥泞中
		ELSE
			PRINTFORM 热
		ENDIF
		PRINTFORM 荡漾的媚肉
	ELSE
		PRINTFORM 有热量的褶皱
	ENDIF
	IF ABL:Ｂ感覚 >= 7 && RAND:3 == 0
		PRINTFORM 紧紧地勒紧
	ELSEIF ABL:Ｂ感覚 >= 5 && RAND:2
		PRINTFORM 一边收缩
	ELSE
		PRINTFORM 一边吵闹着
	ENDIF
ENDIF
IF RAND:3 == 0 && TALENT:淫乳
	IF ABL:Ｂ感覚 >= 5 && RAND:3 == 0
		PRINTFORM 贪婪地
	ELSEIF RAND:2
		PRINTFORM 没有缝隙
	ENDIF
	PRINTW 纠缠不休……
ELSEIF RAND:2
	PRINTW 刺激起来……
ELSE
	PRINTW 抚摩过来……
ENDIF


code:
@COM83
;尿道正常位
;指挿入同様に非常に入れ辛いので、拡張レベル自体が上昇するような段階では入れることは出来ない
;非常に危険な指令。消耗は大きい
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM83, ARG
CALL FLAG_INSERTION, "尿道挿入", ARG, 100

@SOURCE_COM83, ARG
CALL SOURCE_INSERTION, "尿道挿入", ARG, 100

CALL VARSET_COMF

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

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

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

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

@TRAIN_MESSAGE_COM83
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

PRINTFORM %CALLNAME:PLAYER%将
SIF PREVCOM == 13 && PENIS(TARGET) == 0
	PRINT 用手指將陰部推開展示著的
PRINTFORM %CALLNAME:TARGET%的
;前回尿道で射精された
IF PREVEX("尿道内射精")
	PRINTFORM 被強迫灌入濃郁精液的
;前回放尿
ELSEIF PREVPLAY("放尿")
	PRINTFORM 剛剛排泄出晶瑩尿液的
ELSEIF PREVPLAY("膀胱内浴尿")
	PRINTFORM 被強行灌入尿液的
ELSEIF PENIS(TARGET) && PREVEX("射精")
	PRINTFORM 射精之后十分敏感的
ELSEIF PREVCOM == 15
	PRINTFORM 被手指愛撫過擴張開來的
ELSEIF PREVCOM == 149
	PRINTFORM 導尿管剛剛拔出的
ELSEIF PREVCOM == 151
	PRINTFORM 被尿道探針蹂躪之後的
ENDIF

;初めての阴茎受け入れ
IF EXP:尿道性交経験 == 0
	IF PENIS(TARGET)
		PRINTFORMW 柔軟陰莖握緊、將尿道口撥開、就像是在使用飛機杯一樣嘗試著將自己的陰莖插入其中。
	ELSE
		PRINTFORMW 尿道將陰莖尖端壓上、稍稍用力嘗試插入其中。
	ENDIF
ELSE
	IF PENIS(TARGET)
		PRINTFORMW 陰莖\@ CHOSECOM(SELECTCOM) ? 再一次 # \@用自己的陰莖\@ SIZE("阴茎", PLAYER) >= 1 ? 深深地 # \@貫穿了。
	ELSE
		PRINTFORMW 尿道\@ CHOSECOM(SELECTCOM) ? 再一次 # \@用陰莖貫穿了。
	ENDIF
ENDIF


code:
@COM84
;尿道後背位
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM84, ARG
CALL FLAG_INSERTION, "尿道挿入", ARG, 110

@SOURCE_COM84, ARG
CALL SOURCE_INSERTION, "尿道挿入", ARG, 110

CALL VARSET_COMF

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

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

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

@TRAIN_MESSAGE_COM84
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

PRINTFORM %CALLNAME:PLAYER%将
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
	CALL ADD_TEXT, "性器から性器へ"
;尿道が露出していないで、胖次をずらしていないなら自動的にずらす
ELSEIF !CHECK_CLO("Ｖ露出") && CHECK_CLO("Ｖ露出可")
	SIF TEQUIP:拘束
		PRINTFORM 被拘束具牢牢禁錮著的
	PRINTFORM %CALLNAME:TARGET%的
	CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
;尿道性交に慣れている、かつ欲情LV4以上で縛られてないと誘ってきます
ELSEIF CHECK("尿道挿入") && PALAM:欲情 >= PALAMLV:4 && TEQUIP:拘束 == 0 && RAND:2 == 0
	IF PREVCOM == 13
		PRINT 用手指展開陰部的同時、將
	ELSEIF PREVCOM == 14
		PRINT 用手指推開臀瓣的同時、將
	;淫乱
	ELSEIF (TALENT:淫乱 || ABL:尿道感覚 >= 3) && RAND:2 == 0
		IF RAND:2
			IF TALENT:小尻
				PRINT 小小的
			ELSEIF TALENT:巨尻
				PRINT 粗大的
			ENDIF
			PRINT 尻部推開展示出來的同時、將
		ELSE
			PRINT 將重要的地方展示出來的同時、將
		ENDIF
	ELSE
		PRINTFORM %TEXTR("將羞恥的地方暴露到一覽無遺的同時、將/將顯示出雌性氣息的股間清楚地暴露著的同時、將")%
	ENDIF
	;小悪魔
	IF TALENT:小悪魔 && RAND:3
		PRINT 無聲的輕笑著的
	;(叛逆でなくて淫乱) or(叛逆かつ恋慕)
	ELSEIF  ( (TALENT:淫乱 && TALENT:叛逆 == 0) || (TALENT:叛逆 && TALENT:恋慕) ) && RAND:3
		SIF TALENT:小悪魔 && RAND:2 == 0
			PRINT 、大膽地
		PRINT 輕聲發起邀請的
	;叛逆かつ淫乱
	ELSEIF TALENT:叛逆 && TALENT:淫乱
		PRINT 偏過頭、臉頰被羞恥染紅的
	;害羞
	ELSEIF TALENT:害羞
		PRINT 臉頰微紅、不自覺緊張的微笑的
	ELSE
		PRINTFORM %TEXTR("微笑んでいる/横たわっている")%
	ENDIF
	PRINTFORM %CALLNAME:TARGET%的
ELSE
	;縛ってますか？
	IF TEQUIP:拘束
		PRINTFORM 被拘束具牢牢禁錮著的%CALLNAME:TARGET%那
	;拉米亚ですか？
	ELSEIF COND("種族：拉米亚")
		SIF CHECK("尿道挿入") && RAND:2 == 0
			PRINT 用尾巴摩擦並纏繞著的
		PRINTFORM %CALLNAME:TARGET%的
	;尿道性交に慣れているなら誘ってきます
	ELSEIF CHECK("尿道挿入") && RAND:2 == 0
		SIF TALENT:害羞
			PRINT 脸颊因羞涩而染红的
		IF CHECK_COM("立位")
			PRINTFORM 尻部扭动着
		ELSE
			PRINTFORM 四肢着地趴跪着
		ENDIF
		;淫乱かつ欲情4以上
		IF TALENT:淫乱 && PALAM:欲情 >= PALAMLV:4 && RAND:2 == 0
			PRINT 、并且轻轻摇晃着尻部诱惑着的
		ELSE
			PRINT 的
		ENDIF
		PRINTFORM %CALLNAME:TARGET%的
	ELSE
		IF TALENT:叛逆 && ABL:尿道感覚 <= 2 && TALENT:恋慕 == 0
			PRINT 讓滿臉嫌惡的
		ELSEIF TALENT:害羞
			PRINT 臉頰因害羞而染上紅暈的
		ENDIF
		PRINTFORM %CALLNAME:TARGET%四肢著地趴跪下來、將
		SIF TALENT:害羞 || (TALENT:叛逆 && ABL:尿道感覚 <= 2 && TALENT:恋慕 == 0)
			PRINT 、
	ENDIF
	PRINTFORM %TEXTS("尿道")%
ENDIF
PRINTFORM %TEXTR("おしっこの穴/尿道")%に
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
ELSE
	PRINTFORM %NAMES("阴茎", PLAYER)%を
ENDIF
;PLAYERが施虐狂かつ尿道経験20以下
IF ABL:PLAYER:施虐属性 >= 3 && EXP:尿道経験 <= 20
	PRINT 用力地
;PLAYERが施虐狂or尿道性交に慣れている
ELSEIF (CHECK("尿道挿入") || ABL:PLAYER:施虐属性 >= 3) && RAND:2 == 0
	PRINT 一口気
ELSEIF RAND:2 == 0 || EXP:尿道経験 <= EXPLV:3
	PRINT 慎重地
ENDIF
;PLAYERが施虐狂or尿道経験20以上or恋慕かつ尿道感覚Lv3以上
SIF ABL:PLAYER:施虐属性 >= 3 || MIN(EXP:尿道経験, EXP:尿道性交経験) >= 20 || (TALENT:恋慕 && ABL:尿道感覚 >= 3)
	PRINT 直達根部地
;PLAYERが施虐狂
IF ABL:PLAYER:施虐属性 >= 3
	PRINT 壓入、
ELSE
	PRINT 刺入、
ENDIF
IF TALENT:妊娠 && RAND:2 == 0
	PRINT 在輕輕撫摸膨脹的腹部的同時、
ELSEIF TALENT:妊娠
	PRINT 細緻地關注並小心的不對腹腔中的小生命造成負擔的同時、
ELSEIF RAND:2
	PRINTFORM %TEXTR("抚摸着/揉捏着/抓捏着")%屁股的同时
;PLAYERが施虐狂orA経験20以上or恋慕かつA感覚Lv3以上
ELSEIF TALENT:娇小 && (ABL:PLAYER:施虐属性 >= 3 || MIN(EXP:尿道経験, EXP:尿道性交経験) >= 20 || (TALENT:恋慕 && ABL:尿道感覚 >= 3) )
	PRINT 將整個嬌小的身體緊緊抓住、
ELSEIF ABL:PLAYER:施虐属性 >= 3 || MIN(EXP:尿道経験, EXP:尿道性交経験) >= 20 || (TALENT:恋慕 && ABL:尿道感覚 >= 3)
	PRINT 將纖細的腰肢緊緊抓住、
ENDIF
;PLAYERが施虐狂or妊娠していない、かつ尿道経験3以上or恋慕かつ尿道感覚Lv4以上
IF (ABL:PLAYER:施虐属性 >= 3 || TALENT:妊娠 == 0) && (MIN(EXP:尿道経験, EXP:尿道性交経験) >= 20 || (TALENT:恋慕 && ABL:尿道感覚 >= 3) ) && RAND:3 == 0
	PRINT 像是在享受痛苦的反應一樣粗暴地
ELSEIF (ABL:PLAYER:施虐属性 >= 3 || MIN(EXP:尿道経験, EXP:尿道性交経験) >= 20 || ABL:尿道感覚 >= 3 || ABL:PLAYER:腰靈活) && SIZE("阴茎", PLAYER) && RAND:2 == 0
	SIF ABL:PLAYER:腰靈活 && RAND:2
		PRINT 從入口一直到最深處都一併玩弄的
	PRINT 给予沉重一击似地
ELSEIF MAX(EXP:尿道経験, EXP:尿道性交経験) < 50
	PRINTFORM %TEXTR("浅浅地/慢慢地")%
ELSE
	PRINTFORM %TEXTR("將敏感粘膜咯哧咯哧的摩擦著地/激烈地")%
ENDIF
;PLAYERが施虐狂or尿道経験20以上or尿道感覚Lv3以上
IF (ABL:PLAYER:施虐属性 >= 3 || MIN(EXP:尿道経験, EXP:尿道性交経験) >= 20 || ABL:尿道感覚 >= 3) && RAND:3 == 0
	PRINTFORMW 用腰肢擊打著…
ELSE
	PRINTFORMW %TEXTR("反復進出著/腰肢前後衝擊著/晃動著腰肢")%…
ENDIF


code:
@COM85
;尿道屈曲位
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM85, ARG
CALL FLAG_INSERTION, "尿道挿入", ARG, 120

@SOURCE_COM85, ARG
CALL SOURCE_INSERTION, "尿道挿入", ARG, 120
CALL VARSET_COMF

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

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

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

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

@TRAIN_MESSAGE_COM85
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

PRINTFORM %CALLNAME:PLAYER%将
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
	CALL ADD_TEXT, "性器から性器へ"
	PRINTFORM 將%CALLNAME:TARGET%的身體翻轉過來、
;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
ELSEIF !CHECK_CLO("Ｖ露出") && CHECK_CLO("Ｖ露出可")
	PRINTFORM %CALLNAME:TARGET%的
	CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
	PRINTFORM 、做出將羞澀的淫穴向上展示一樣的姿勢、
ELSE
	PRINTFORM 將%CALLNAME:TARGET%的身體翻轉過來、
	IF TEQUIP:接吻
		PRINTFORM 在熱情地親吻著的同時、
		CALL SETFLAG, "追加接吻フラグ", TARGET
	ENDIF
ENDIF
PRINTFORM 、將%TEXTS("尿道")%尿道
IF TALENT:妊娠 && ABL:PLAYER:施虐属性 >= 3
	PRINTFORMW 像是平日裡一樣的激烈侵犯著……
ELSE
	PRINTFORMW 以最深處為目標猛烈的衝擊著……
ENDIF


code:
@COM86
;尿道対面座位
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM86, ARG
CALL FLAG_INSERTION, "尿道挿入", ARG, 50

@SOURCE_COM86, ARG
CALL SOURCE_INSERTION, "尿道挿入", ARG, 50

CALL VARSET_COMF

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

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

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

@TRAIN_MESSAGE_COM86
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

PRINTFORM %CALLNAME:PLAYER%将
IF EXP:尿道性交経験 == 0
	;前回放尿
	IF PREVPLAY("放尿")
		PRINTFORM 剛剛排泄出晶瑩尿液的
	ELSEIF PREVEX("尿道絶頂")
		PRINTFORM 絕頂之後十分敏感的
	ELSEIF PREVPLAY("膀胱内浴尿")
		PRINTFORM 被強行灌入尿液的
	ELSEIF PENIS(TARGET) && PREVEX("射精")
		PRINTFORM 射精之后十分敏感的
	ELSEIF PREVCOM == 15
		PRINTFORM 被手指愛撫過擴張開來的
	ELSEIF PREVCOM == 149
		PRINTFORM 導尿管剛剛拔出的
	ELSEIF PREVCOM == 151
		PRINTFORM 被尿道探針蹂躪之後的
	ENDIF
	IF PENIS(TARGET)
		PRINTFORMW %CALLNAME:TARGET%的柔軟陰莖握緊、將尿道口撥開、就像是在使用飛機杯一樣嘗試著將自己的陰莖插入其中……
	ELSE
		PRINTFORMW %CALLNAME:TARGET%的尿道將陰莖尖端壓上、稍稍用力嘗試插入其中……
	ENDIF
ELSE
	IF COND("前Ｔから対象のみ変更") && PREVCOM:1 >= 60 && PREVCOM:1 <= 88
		CALL ADD_TEXT, "性器から性器へ"
		PRINTFORM 從%CALLNAME:TARGET%的正面相互擁抱、讓尿道將陰莖緊緊包裹並吮吸起來
	;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
	ELSEIF !CHECK_CLO("Ｖ露出") && CHECK_CLO("Ｖ露出可")
		PRINTFORM %CALLNAME:TARGET%的
		CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
		PRINTFORM 正面相互擁抱、讓尿道將陰莖緊緊包裹並吮吸起來
	ELSE
		PRINTFORM 從%CALLNAME:TARGET%的正面相互擁抱、讓尿道將陰莖緊緊包裹並吮吸起來
	ENDIF

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


code:
@COM87
;尿道背面座位
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM87, ARG
CALL FLAG_INSERTION, "尿道挿入", ARG, 60
CALL FLAG_COM5, 50

@SOURCE_COM87, ARG
CALL SOURCE_INSERTION, "尿道挿入", ARG, 60
CALL SOURCE_COM5, 50

CALL VARSET_COMF

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

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

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

@TRAIN_MESSAGE_COM87
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

PRINTFORM %CALLNAME:PLAYER%将
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
	CALL ADD_TEXT, "性器から性器へ"
	PRINTFORM 讓%CALLNAME:TARGET%將身體倚靠過來、然後用%TEXTS("尿道")%尿道
;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
ELSEIF !CHECK_CLO("Ｖ露出") && CHECK_CLO("Ｖ露出可")
	PRINTFORM %CALLNAME:TARGET%的
	CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
	PRINTFORM 、將身體倚靠過來、然後用%TEXTS("尿道")%尿道
ELSE
	PRINTFORM 讓%CALLNAME:TARGET%將身體倚靠過來、然後用%TEXTS("尿道")%尿道
ENDIF

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


code:
@COM88
;尿道騎乗位
CALL PRINT_TRAIN_NAME(SELECTCOM)
;-------------------------------------------------
;実行できるかの判定
;-------------------------------------------------
CALL SHOW_COM_ORDER_COM, 88

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

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

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

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

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 88

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

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

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

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

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

@TRAIN_MESSAGE_COM88
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT
CALL TRAIN_MESSAGE_INSERTION
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

PRINTFORM %CALLNAME:TARGET%
IF COND("前Ｔから対象のみ変更") && VAU_INSERT_PLAY(PREVCOM:1)
	CALL ADD_TEXT, "性器から性器へ"
;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
ELSEIF CHECK_CLO("Ｖ露出") == 0 && CHECK_CLO("Ｖ露出可")
	CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
ENDIF
IF PREVCOM == 1 || PREVCOM == 9 || (PREVCOM >= 90 && PREVCOM <= 119)
	PRINTFORM %CALLNAME:PLAYER%の上にまたがると、
ELSEIF TALENT:好色 && RAND:2 == 0
	PRINTFORM 讓%CALLNAME:PLAYER%的陰莖與自己的尿道對準、
ELSE
	PRINTFORM 將%CALLNAME:PLAYER%的陰莖的位置仔細確認後、
ENDIF

;裙などを是ているなら
IF PENIS(TARGET) == 0 && EQUIP:裙 + TEQUIP:新妻PLAY && (TALENT:好色 + TALENT:淫乱 || ABL:露出癖 >= 3) && RAND:2
	;圍裙
	IF TEQUIP:新妻PLAY
		PRINTFORM 將圍裙的下擺
	ELSE
		PRINTFORM 將%SKIRT(TARGET, "略")%
	ENDIF
	IF COND("口の使用") && RANDIF(2, COND("指の使用") )
		PRINT 用嘴唇噙住、
	ELSEIF COND("指の使用") && RAND:2
		PRINT 用手指拉起、
	ELSE
		PRINT 卷起、
	ENDIF
	IF RAND:2
		PRINTFORM 將%TEXTS("阴部：視覚")%
	ELSEIF RAND:2 && PALAM:Ｖ潤 >= 10000 && PALAM:欲情 >= 10000
		PRINTFORM 將不斷垂落期待的涎水的淫穴
	ELSE
		PRINTFORM 將%TEXTR("不知廉恥的張合著的雌穴/蒸騰著淫臭熱汽的股間")%
	ENDIF
	PRINTFORM %TEXTR("大膽地展示著/高興地炫耀著")%的同時、
ELSE
	IF TALENT:好色 + TALENT:淫乱 + TALENT:恋慕 && COND("視力") && RAND:3 == 0
		PRINT 在用心醉的眼神注視著恍惚的面孔的同時、
	ELSEIF TEQUIP:推倒 && ABL:施虐属性 >= 2 && RAND:2
		IF TALENT:高慢 + TALENT:強気 && RANDIF(2, TALENT:傲慢 + TALENT:小悪魔)
			PRINT 在浮現出大膽的笑容的同時、
		ELSEIF TALENT:傲慢 + TALENT:小悪魔 && RAND:2
			PRINT 在臉上露出戲謔的壞笑的同時、
		ELSE
			PRINT 在對痛苦的渴求與喜悅不禁滲透而出的同時、
		ENDIF
	ELSEIF CHECK("尿道挿入") && RAND:2
		PRINTFORM %TEXTR("在從唇角漏出甜美的呻吟/在露出恍惚而快樂的蕩漾表情")%的同時、
	ELSE
		PRINT 在小口的吐出灼熱的喘息的同時、
	ENDIF
	IF ABL:尿道拡張 > SIZE("阴茎", PLAYER) && ABL:施虐属性 && RAND:2
		PRINT 一口気
	ELSE
		PRINT 溫柔緩慢地
	ENDIF
ENDIF
IF PENIS(TARGET) == 0
	PRINTFORM %TEXTR(@"%TEXTS("お尻：視覚")%/腰")%を下ろして
ENDIF
IF ABL:尿道拡張 >= SIZE("阴茎", PLAYER) && CHECK("尿道挿入") && RAND:3
	IF ABL:尿道拡張 > SIZE("阴茎", PLAYER) && RAND:2
		PRINTW 、將陰莖直達根部的吞下了……
	ELSE
		PRINTW 、用完全化作性器的肉穴將陰莖吞下了……
	ENDIF
ELSEIF PENIS(TARGET)
	PRINTFORMW 、用自己的陰莖吞下了陰莖……
ELSE
	PRINTW ……
ENDIF

@COM_ORDER_COM88, ARG
VARSET LOCAL
LOCALS =

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

LOCAL = RESULT

;一定の尿道経験か尿道感覚が必要
IF EXP:尿道経験 < 100 && ABL:尿道感覚 < 3
	LOCAL -= 30
	IF EXP:尿道経験 < 100
		LOCALS = %LOCALS% - 尿道経験不足(30)
	ELSEIF ABL:尿道感覚 < 3
		LOCALS = %LOCALS% - 尿道感覚不足(30)
	ENDIF
ENDIF

;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 += 10
	LOCALS = %LOCALS% + 強気(10)
ENDIF
;害羞
IF TALENT:害羞
	LOCAL -= 10
	LOCALS = %LOCALS% - 害羞(10)
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 TEQUIP:媚薬
	LOCAL += 6
	LOCALS = %LOCALS% + 媚薬(6)
ENDIF

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

RETURN RESULT


code:
@COM8
;指挿入
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM8, ARG
IF CHECK_COM("玩弄Ｇ点")
	CALL FLAG_INSERTION, "指挿入", ARG, 150
ELSEIF TEQUIP:振動棒
	CALL FLAG_COM31, 130
ELSE
	CALL FLAG_INSERTION, "指挿入", ARG, 100
ENDIF

@SOURCE_COM8, ARG
IF CHECK_COM("玩弄Ｇ点")
	CALL SOURCE_INSERTION, "指挿入", ARG, 150
ELSEIF TEQUIP:振動棒
	CALL SOURCE_INSERTION, "振動棒", ARG, 130
ELSE
	CALL SOURCE_INSERTION, "指挿入", ARG, 100
ENDIF

@TRAIN_MESSAGE_COM8
PRINTFORM %CALLNAME:PLAYER%将
IF TEQUIP:接吻
	PRINTFORM %TEXTS("接吻継続")%、
	CALL SETFLAG, "追加接吻フラグ", TARGET
ELSEIF TEQUIP:六九式
	PRINTFORM %TEXTS("６９")%
ELSEIF INSERT("Ａ挿入") && PREVCOM != SELECTCOM
	PRINTFORM 侵犯著肛門的同時、
ELSEIF PREVCOM == 1 && PENIS(TARGET) == 0 && CHECK_CLO("Ｖ露出")
	SIF PALAM:欲情 >= 3000 && ABL:Ｃ感覚 >= 3
		PRINT 興奮勃起的
	PRINTFORM 陰舔舐著蒂仔細的同時、
ELSEIF PREVCOM == 13 && TEQUIP:振動棒 == 0
	PRINT 將眼前的陰唇張開的同時、
ELSEIF TEQUIP:電話中
	IF PREVCOM == 13 && TEQUIP:振動棒 == 0
		PRINTFORM %TEXTS("電話しながら")%单手将%TEXTS("阴部：視覚")%帳開的
	ELSE
		PRINTFORM %TEXTS("電話中の")%
	ENDIF
ENDIF
PRINTFORM %CALLNAME:TARGET%的

;振動棒
IF TEQUIP:振動棒
	;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
	SIF CHECK_CLO("Ｖ露出") == 0
		CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
	;道端の菠萝包加筆分
	IF ABL:Ｖ拡張 - SIZE("振動棒", TARGET) >= 2
		PRINTFORM 拡張された膣に咀嚼されている
	;ここまで加筆分
	ELSEIF RAND:2 == 0
		PRINTFORM 阴道穴中深埋著的
	ELSE
		PRINTFORM 阴道道中不斷振動著的
	ENDIF

	SELECTCASE SIZE("振動棒")
	CASE IS >= 3
		IF RAND:2 == 0
			PRINT 兇惡的
		ELSE
			PRINT 極大
		ENDIF
	CASE 2
		IF RAND:2
			PRINT 粗大
		ELSE
			PRINT 粗大的
		ENDIF
	ENDSELECT

	;ピストン
	IF RAND:2 == 0
		PRINTFORM 振動棒
		IF (ABL:Ｖ感覚 >= 3 || ABL:Ｖ拡張 >= SIZE("振動棒") || ABL:PLAYER:施虐属性 >= 3) && RAND:3 == 0
			PRINT 以幾乎拿不穩的最大頻率激烈振動著的
		ELSEIF RAND:2 == 0
			PRINT 不斷調節著振動快慢的
		ELSE
			PRINT 緩慢的增大頻率的
		ENDIF
		PRINTFORM 反復插拔著
		IF ABL:Ｖ拡張 < SIZE("振動棒") && RAND:3 == 0
			PRINTFORMW 、將被過大的異物強行擴張的膣穴更加激烈地蹂躪起來……
		ELSEIF (ABL:Ｖ感覚 >= 3 || ABL:PLAYER:施虐属性 >= 3) && RAND:4 == 0
			PRINTFORMW 、用堅硬冰冷的頂端輕輕戳弄著子宮的入口……
		ELSEIF RAND:3 == 0
			PRINTFORMW 、在不斷攪拌中讓膣道內的汁液浮起白沫並變得更加黏稠……
		ELSEIF RAND:2 == 0
			PRINTFORMW 、用無機質的振動棒摩擦著膣道中的粘膜……
		ELSE
			PRINTFORMW ……
		ENDIF
	;スイッチON
	ELSE
		IF EX:処女喪失
			PRINTFORM 将振動棒的檔位%TEXTR("稍微增强了一些之后/的强度来回变化着/调到最弱/一下打開一下関掉着玩弄着")%、
		ELSE
			PRINTFORM 将振動棒的檔位%TEXTR("毫不遲疑的推到最高之後/的强度来回变化着/一下变强一下变弱地玩弄着/一下打開一下関掉着玩弄着")%、
		ENDIF
		IF (ABL:Ｖ感覚 >= 4 || ABL:Ｖ拡張 >= SIZE("振動棒") || ABL:PLAYER:施虐属性 >= 3) && RAND:3 == 0
			PRINTFORM %TEXTR("抉るように/容赦なく")%
		ELSEIF ABL:Ｖ拡張 <= SIZE("振動棒") && (ABL:Ｖ感覚 >= 3 || ABL:PLAYER:施虐属性 >= 3) && RAND:2 == 0
			PRINTFORM 為了更加深入膣道而不斷加力的
		ELSEIF RAND:3 == 0 && EX:処女喪失 == 0
			PRINTFORM 在深處後轉動著的
		ELSEIF RAND:2 == 0
			PRINTFORM 在輕聲詢問著感覺的同時、
		ELSE
			PRINTFORM 左右捻動、轉動著的
		ENDIF
		PRINTFORMW 來回翻攪著蜜壺……
	ENDIF
ELSEIF CHECK_COM("玩弄Ｇ点")
	IF RAND:2
		PRINTFORM 阴道穴中的敏感
		IF RAND:2
			PRINTFORM 部分用指尖執拗地揉捏、摩擦著
		ELSE
			PRINTFORM 粘膜正隨著手指的摩擦而微微地蠢動著
		ENDIF
	ELSE
		PRINTFORM 阴道道中將手指彎曲、
		IF RAND:2
			PRINTFORM 將微微顫動著的的頂端刺激著
		ELSE
			PRINTFORM 僅僅將觸感有著微妙差異的纖細粘膜集中地觸摸、愛撫著
		ENDIF
	ENDIF
	;前回こらえた＆そろそろ限界
	IF ABL:Ｖ感覚 >= 3 && PREVEX("绝顶忍耐") && NOW_PALAM("快Ｖ") > MAX(MULTIPLY(MAXBASE:快感許容値女性, 70), 10000)
		PRINTFORMW
		IF RAND:3 == 0
			PRINTFORM 、像是在回應被給予的劇烈快感一樣、
		ELSEIF RAND:2
			PRINTFORM 、就像是無法忍耐下體傳來的激烈刺激一樣、
		ELSE
			PRINTFORM 、完全的沉浸在膣道被手指玩弄所產生的快感之中、
		ENDIF
		SIF TEQUIP:電話中
			PRINTFORM %TEXTR(@"和%TEXTS("彼氏")%的電話中的同时漏出了烦悩的吐息/因为不想被%TEXTS("彼氏")%听到而压抑下的声音漏了出来")%、

		IF ABL:Ｖ名器度 >= 30 && RANDIF(2, CUP:Ｖ潤 >= 1000)
			PRINTFORMW %CALLNAME:TARGET%的膣道像是在配合手指的細微活動一樣微微地痙攣起來、而又在刺激過於激烈的時候用力地閉合膣口夾緊了指節……
		ELSEIF CUP:Ｖ潤 >= 1000 && RAND:2
			PRINTFORMW %CALLNAME:TARGET%的膣道洋溢出數量驚人的黏稠愛液、將深入的指節微微推出的同時、也將%CALLNAME:PLAYER%的整隻手都用愛液弄髒了……
		ELSE
			PRINTFORMW %CALLNAME:TARGET%\@ TALENT:好色 && RAND:2 ? 積極的 # 無意識的 \@隨著%CALLNAME:PLAYER%手部的動作而劇烈的扭動著腰肢……
		ENDIF
	ELSE
		PRINTFORMW …
	ENDIF
;指
ELSE
	LOCALS =
	;穴開きでない胖次を是ていて、ずらされていないならずらすことも
	IF CHECK_CLO("Ｖ露出") == 0
		IF RAND:3 == 0
			CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
		ELSE
			PRINTFORM %CLO("股間")%的空隙中將手深入、將
		ENDIF
		LOCALS = ボトム描写
	ENDIF
	IF PREVEX("Ｖ中出し") && CHECK_STAIN(STAIN:Ｖ, "精液")
		PRINTFORMW 手指慢慢插入中出之後的膣道、將肉襞的褶皺上黏著的精液慢慢的攪拌、掏出……
	ELSE
		IF CHECK_CLO("Ｖ露出") == 0 || RAND:3 == 0
			SIF PALAM:Ｖ潤 >= PALAMLV:4
				PRINT 被雌性汁液充分濡濕的
			IF TALENT:娇小
				PRINT 幼嫩秘縫
			;2020/2/1　加筆
			SIF AGE(TARGET) == 4
				PRINTFORM %TEXTR("肉厚的/成熟大人样的/发黑的")%
			ELSE
				PRINT 秘裂
			ENDIF
		ELSE
			PRINTFORM 被%TEXTS("阴部：感触")%
		ENDIF

		IF PREVCOM == SELECTCOM
			PRINTFORMW 用指尖來回的翻攪著……
		ELSE
			PRINTFORM に
			IF ABL:Ｖ拡張 >= 4 && EXP:Ｖ拳交経験 >= 5 && CHECK("Ｖ拳交") && RAND:2
				PRINTFORM 對齊了手指的手背直接插入體內
			ELSE
				IF ABL:Ｖ拡張 >= 4 || (ABL:Ｖ拡張 >= 2 && RAND:2)
					PRINTFORM 中指和薬指
				ELSE
					PRINTFORM \@ RAND:2 ? 中 # \@指
				ENDIF
				PRINTFORM \@ RAND:2 ? 直達根部地 # 輕柔緩慢地 \@挿入體內
			ENDIF

			IF LOCALS == "ボトム描写"
				PRINTFORMW ……
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 、將柔軟的膣壁用指腹摩挲著……
				ELSEIF RAND:2
					PRINTFORMW 、將肉襞的褶皺來回翻攪著……
				ELSE
					PRINTFORMW 、享受著膣道的緊縮觸感……
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	IF TEQUIP:電話中
		PRINTFORMW %TEXTR(@"和%TEXTS("彼氏")%的電話中的/和%TEXTS("彼氏")%通話中的")%%CALLNAME:TARGET%%TEXTR("为了不让声音漏出来而拼命忍耐着/拼命压抑住了快要漏出来的声音")%…
	ELSEIF PREVEX("Ｖ中出し") && CHECK_STAIN(STAIN:Ｖ, "精液")
		PRINTFORM 從膣道中拔出的手指沾滿渾濁的精液、看見這淫靡的景色之後、
		IF ABL:精液中毒 > 3 && PALAM:欲情 >= 10000
			PRINTFORMW %CALLNAME:TARGET%像是十分渴望一樣的舔舐著唇角……
		ELSEIF TALENT:恋慕
			PRINTFORMW %CALLNAME:TARGET%用恍惚而快樂的眼神注視著它……
		ELSE
			IF RAND:2
				PRINTFORMW %CALLNAME:TARGET%的臉頰因羞澀染上紅潮……
			ELSE
				PRINTFORMW %CALLNAME:TARGET%害羞的偏開視線……
			ENDIF
		ENDIF
	ELSEIF EXP:Ｖ経験
		SELECTCASE EXP:Ｖ経験
		CASE IS <= 30
			PRINTFORMW %CALLNAME:TARGET%將體內手指的觸感忍耐著、不禁漏出了灼熱的吐息……
		CASE IS <= 50
			PRINTFORMW %CALLNAME:TARGET%開始嘗試享受手指抽插的觸覺……
		CASE IS <= 80
			PRINTFORMW %CALLNAME:TARGET%恍惚地感受著手指抽動的觸覺與快樂……
		CASE IS <= 120
			PRINTFORMW %CALLNAME:TARGET%因腹腔內部被輕輕翻攪搔弄而產生的快樂而苦悶的漏出了灼熱的喘息……
		CASEELSE
			IF ABL:Ｖ感覚 >= 3 && RAND:2
				PRINTFORMW 即使將%CALLNAME:TARGET%被充分地烙印下性的快樂的雌穴激烈地蹂躪、她也完全沒有感到任何痛苦、倒不如說是非常愉悅的吞嚥著手指……
			ELSEIF TALENT:Ｖ性向 && TALENT:好色 + TALENT:不知羞恥 + TALENT:淫乱
				PRINTFORMW %CALLNAME:TARGET%無意識的流下涎水、貪圖快樂地揮舞著腰肢套弄著手指……
			ELSE
				PRINTFORMW %CALLNAME:TARGET%露出一副非常舒服的表情、自觉地动着腰享受起%CALLNAME:PLAYER%的手指…
			ENDIF
		ENDSELECT
	ENDIF
ENDIF


code:
@COM90
;手淫(用手套来冲を活用するのはまた今度…)
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

;実行できない
IF TCVAR:干劲 == 0
	SIF PENIS(PLAYER)
		PRINTFORMW %CALLNAME:TARGET%對於%CALLNAME:PLAYER%的陰莖似乎完全不想觸碰、非常討厭的樣子……
	RETURN 0
ENDIF

;-------------------------------------------------
;実行決定
;-------------------------------------------------
CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

;-------------------------------------------------
;射精格子
;-------------------------------------------------
IF CHECK_COM("手交口交")
	CALL SAMEN_CHECK, 70
	SELECTCOM = 91
	CALL SAMEN_CHECK, 50
	SELECTCOM = 90
ELSEIF CHECK_COM("玩弄Ａ手交")
	CALL SAMEN_CHECK, 70
	SELECTCOM = 96
	CALL SAMEN_CHECK, 50
	SELECTCOM = 90
ELSEIF CHECK_COM("洗面奶手交")
	CALL SAMEN_CHECK, 70
	SELECTCOM = 104
	CALL SAMEN_CHECK, 50
	SELECTCOM = 90
ELSE
	CALL SAMEN_CHECK
ENDIF

RETURN 1

@FLAG_COM90, ARG
IF CHECK_COM("手交しあう") == 90
	CALL FLAG_COM10, 50
ELSEIF CHECK_COM("手交口交") == 90
	CALL FLAG_COM91, 50
ELSEIF CHECK_COM("玩弄Ａ手交") == 90
	CALL FLAG_COM96, 50
ELSEIF CHECK_COM("洗面奶手交") == 90
	CALL FLAG_COM104, 50
ENDIF
;対象の指⇔調教者のＰ的污垢が移動
IF TALENT:PLAYER:一般人 || TALENT:PLAYER:男性  || TALENT:PLAYER:扶她
	CALL EQ_STAIN, TARGET, "手", PLAYER, "Ｐ"
;対象の指⇔調教者のＶ的污垢が移動
ELSE
	CALL EQ_STAIN, TARGET, "Ｖ", PLAYER, "Ｐ"
ENDIF

;汚れは手套でふき取る。
SIF EQUIP:手套 && !CHECK_GLOVE("指露出")
	CALL RESET_STAIN_EX, "Ｐ", PLAYER

@SOURCE_COM90, ARG
IF CHECK_COM("手交しあう") == 90
	CALL SOURCE_COM10, 50
ELSEIF CHECK_COM("手交口交") == 90
	CALL SOURCE_COM91, 50
ELSEIF CHECK_COM("玩弄Ａ手交") == 90
	CALL SOURCE_COM96, 50
ELSEIF CHECK_COM("洗面奶手交") == 90
	CALL SOURCE_COM104, 50
ENDIF

CALL VARSET_COMF

CALL SOURCE_SERVICE_PLAY, "手淫"

CALL SOURCE_DOWNBASE_HP, 90

IF PENIS(PLAYER)
	SOURCE:0:不潔 = COM_ORDER_STAIN("Ｐ", "手")*20 + 60
ELSE
	SOURCE:0:不潔 = COM_ORDER_STAIN("Ｖ", "手")*20 + 60
ENDIF

SOURCE:0:欲情追加 = CALCF("実行値による欲情追加")
SOURCE:0:屈従 = 500
SOURCE:0:逸脱 = 100

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

;性行動と達成感
@SOURCE_SERVICE_PLAY, ARGS
;技巧と対応した～使いの和
#DIM ABL_SERVICE

;ABL:奉仕精神をみる
SELECTCASE ABL:奉仕精神
CASE 0
	SOURCE:0:性行動 = 200
	SOURCE:0:達成感 = 50
CASE 1
	SOURCE:0:性行動 = 500
	SOURCE:0:達成感 = 200
CASE 2 TO 5
	SOURCE:0:性行動 = 500 + (ABL:奉仕精神 - 1)*100
	SOURCE:0:達成感 = 200 + (ABL:奉仕精神 - 1)*50
CASE 6 TO 10
	SOURCE:0:性行動 = 900 + (ABL:奉仕精神 - 5)*60
	SOURCE:0:達成感 = 400 + (ABL:奉仕精神 - 5)*20
CASEELSE
	SOURCE:0:性行動 = 1200 + (ABL:奉仕精神 - 10)*30
	SOURCE:0:達成感 = 500 + (ABL:奉仕精神 - 10)*10
ENDSELECT

ABL_SERVICE = ABL:技巧
SELECTCASE ARGS
CASE "手淫", "胸爱抚奉侍", "飞机杯冲", "逆振動棒", "逆Ａ振動棒"
	ABL_SERVICE += ABL:指靈活

CASE "口交"
	ABL_SERVICE += ABL:舌靈活

	TIMES SOURCE:0:性行動, 1.50
	TIMES SOURCE:0:達成感, 1.50
CASE "奉仕舐陰"
	ABL_SERVICE += ABL:舌靈活

	TIMES SOURCE:0:性行動, 1.80
	TIMES SOURCE:0:達成感, 1.80

CASE "強制口交", "肛門奉仕"
	ABL_SERVICE += ABL:舌靈活

	TIMES SOURCE:0:性行動, 2.00
	TIMES SOURCE:0:達成感, 2.00
CASE "乳交", "洗面奶"
	ABL_SERVICE += ABL:魔乳

CASE "素股"
	ABL_SERVICE += ABL:腰靈活

CASE "泡泡浴"
	ABL_SERVICE += ABL:腰靈活 + ABL:魔乳
CASE "足交"
	ABL_SERVICE += ABL:施虐属性
CASE "足を舐める"
	ABL_SERVICE += ABL:受虐属性
CASE "六九式"

ENDSELECT

SELECTCASE ABL_SERVICE
CASE 0 TO 5
	SOURCE:0:性行動 = MULTIPLY(SOURCE:0:性行動, 100 + ABL_SERVICE*20)
	SOURCE:0:達成感 = MULTIPLY(SOURCE:0:達成感, 100 + ABL_SERVICE*20)
CASE 6 TO 10
	SOURCE:0:性行動 = MULTIPLY(SOURCE:0:性行動, 200 + (ABL_SERVICE - 5)*10)
	SOURCE:0:達成感 = MULTIPLY(SOURCE:0:達成感, 200 + (ABL_SERVICE - 5)*10)
CASEELSE
	SOURCE:0:性行動 = MULTIPLY(SOURCE:0:性行動, 250 + (ABL_SERVICE - 10)*5)
	SOURCE:0:達成感 = MULTIPLY(SOURCE:0:達成感, 250 + (ABL_SERVICE - 10)*5)
ENDSELECT

@TRAIN_MESSAGE_COM90
IF CHECK_COM("Ｗ奉仕")
	;二人とも前回と同じ行動
	IF SELECTCOM:1 == PREVCOM:1 && SELECTCOM == PREVCOM
		PRINTFORM 兩人
		IF TALENT:(TARGET:1):淫乱 + TALENT:(TARGET:1):恋慕 && TALENT:淫乱 + TALENT:恋慕 && RAND:4 == 0
			PRINTFORMW 在如同耽溺在夢中一樣神情恍惚著的同時、將%CALLNAME:PLAYER%的陰莖持續擼動侍奉著……
		ELSEIF ABL:(TARGET:1):奉仕精神 >= 3 && ABL:奉仕精神 >= 3 && RAND:3 == 0
			PRINTFORMW 在密切而謹慎地關注著神態的同時、將%CALLNAME:PLAYER%的陰莖持續擼動侍奉著……
		ELSEIF ABL:(TARGET:1):技巧 + ABL:技巧 >= 6 && RAND:2 == 0
			PRINTFORMW 在嫻熟地調節著運動節奏的同時、將%CALLNAME:PLAYER%的陰莖持續擼動侍奉著……
		ELSE
			PRINTFORMW 將%CALLNAME:PLAYER%的陰莖持續擼動侍奉著……
		ENDIF
	ELSE
		PRINTFORM %CALLNAME:TARGET%和%CALLNAME:(TARGET:1)%
		SIF TALENT:(TARGET:1):淫乱 + TALENT:(TARGET:1):恋慕 && TALENT:淫乱 + TALENT:恋慕 && RAND:2 == 0
			PRINTFORM 在用充滿慾望與依戀的雙瞳凝視著%CALLNAME:MASTER%赤裸身體的同時、
		IF RAND:2 == 0
			PRINTFORMW 像是在競爭一樣的將陰莖持續擼動侍奉著……
		ELSE
			PRINTFORMW 相互協助的將陰莖持續擼動侍奉著……
		ENDIF
	ENDIF
;==90で两根手交、== 91なら口交＆手交、それ以外は犯されながら手交
ELSEIF CHECK_COM("３Ｐ奉仕")
	CALL TRAIN_MESSAGE_3P
;同時推倒
ELSEIF TEQUIP:Ｗ推倒
	PRINTFORM %CALLNAME:TARGET%
	;助手が前回と同じ行動(違う行動の時は、ここでなく、EQUIP_COM32で記述)
	SIF SELECTCOM:1 == PREVCOM:1 && SELECTCOM:1 >= 0
		PRINTFORM 、%TEXTS("Ｗ推倒中")%、

	IF SELECTCOM == PREVCOM
		PRINTFORMW 將%CALLNAME:MASTER%的陰莖噗嗤噗嗤地持續擼動著……
	ELSE
		PRINTFORMW 將%CALLNAME:MASTER%的陰莖持續擼動著……
	ENDIF
;前回と同じ
ELSEIF PREVCOM == SELECTCOM && COND("前Ｔ調教者") == PLAYER
	PRINTFORM %CALLNAME:TARGET%
	IF TEQUIP:電話中
		PRINTFORM 和%TEXTR(@"感觉和平时的电话没有什么不同的/什么都不知道地给这边打电话的/完全没有任何怀疑持续地通电话的/完全不知情/完全不知道发生了这样的事情的/不知道对方已经出轨了的/相信着%CALLNAME:TARGET%的")%
		PRINTFORM %TEXTS("彼氏")%%TEXTR("说这话的同时/持续通话的同时/进行着日常会话的同时/谈论着最近发生的事情的同时/讲着情话的同时")%、
	ELSEIF INSERT("合体中")
		PRINTFORM %TEXTS("合体中", TARGET)%
	ELSEIF TEQUIP:面部騎乗
		PRINTFORM 將%CALLNAME:PLAYER%的臉頰用
		SELECTCASE COND("陰毛")
		CASE 1 TO 3
			PRINTFORM \@ RAND:2 ? 柔滑 # 柔軟 \@的
		CASE 7
			PRINT 被厚重的黑色密林深深掩藏的
		ENDSELECT
		PRINTFORM 胯股之间不斷摩擦著的同時、、
	ENDIF
	IF TALENT:恋慕 && INSERT("合体中") == 0 && RAND:3 == 0
		;气味弱点分岐
		IF PLAYER == MASTER && TALENT:气味弱点 && RAND:3
			IF RAND:2
				PRINTFORMW 陰莖所散發出的淫靡%TEXTS("气味")%仔細嗅聞著、並且用手不斷地擼動著……
			ELSE
				PRINTFORMW 蒸騰出灼熱汗汽的陰莖的%TEXTS("气味")%用力到鳴響鼻腔的盡情享受著、並且用雙手將其不斷摩擦刺激著……
			ENDIF
		ELSE
			PRINTFORMW 在如同耽溺在夢中一樣神情恍惚著的同時、將%CALLNAME:PLAYER%的陰莖持續擼動侍奉著……
		ENDIF
	ELSEIF ABL:奉仕精神 >= 3 && TEQUIP:面部騎乗 + INSERT("合体中") == 0 && RAND:3 == 0
		PRINTFORMW 在密切而謹慎地關注著神態的同時、將%CALLNAME:PLAYER%的陰莖持續擼動侍奉著……
	ELSEIF ABL:技巧 >= 3 && RAND:2 == 0
		PRINTFORMW 挺立的陰莖用時快時慢的節奏嫻熟地侍奉著……
	ELSE
		PRINTFORMW 挺立的陰莖神情恍惚的持續擼動著……
	ENDIF
ELSEIF CHECK_COM("手交しあう")
	PRINTFORM %CALLNAME:PLAYER%達は
	SIF TEQUIP:接吻
		PRINTFORM 、%TEXTS("接吻継続")%
	PRINTFORM 互相的阴茎
	IF RAND:2
		PRINTFORMW 繼續時快時慢的%TEXTR("來回撫摸著/輕輕摩挲著")%……
	ELSE
		PRINTFORMW 持續%TEXTR("細緻而激烈地/用沾滿前列液的手有節奏地")%擼動著……
	ENDIF
ELSEIF CHECK_COM("手交口交")
	PRINTFORM %CALLNAME:TARGET%
	IF TEQUIP:電話中
		PRINTFORM 和%TEXTR(@"感觉和平时的电话没有什么不同的/什么都不知道地给这边打电话的/完全没有任何怀疑持续地通电话的/完全不知情/完全不知道发生了这样的事情的/不知道对方已经出轨了的/相信着%CALLNAME:TARGET%的")%
		PRINTFORM %TEXTS("彼氏")%%TEXTR("说这话的同时/持续通话的同时/进行着日常会话的同时/谈论着最近发生的事情的同时/讲着情话的同时")%、
	ENDIF
	;气味弱点分岐
	IF PLAYER == MASTER && TALENT:气味弱点 && TALENT:恋慕 && (CHOSECOM(SELECTCOM) == 0 || RAND:3 == 0)
		IF CHECK_STAIN(STAIN:PLAYER:Ｐ, "Ｐ恥垢") && RAND:5
			PRINTFORM 將包皮內部%TEXTR("白色恥垢/苦澀的殘渣")%所散發出的嗆鼻%TEXTS("气味")%
		ELSE
			PRINTFORM 將陰莖蒸騰而出的醉人%TEXTS("气味")%
		ENDIF
		PRINTFORM %TEXTR("仔細嗅聞著/盡情享受著")%的同時、將%CALLNAME:PLAYER%的
	ELSEIF TALENT:恋慕 && RAND:4 == 0
		PRINTFORM 神志恍惚地將%CALLNAME:PLAYER%的
	ELSEIF ABL:奉仕精神 >= 3 && RAND:3 == 0
		PRINTFORM 凝视着%CALLNAME:PLAYER%的脸
	ELSE
		PRINTFORM %CALLNAME:PLAYER%の
	ENDIF
	IF RAND:4 == 0
		PRINTFORM 龜頭用舌頭仔細舔舐著、
	ELSEIF RAND:3 == 0
		PRINTFORM 尿道用舌尖小心地刺激著、
	ELSEIF RAND:2
		PRINTFORM 陰莖不斷地啄吻著、
	ELSE
		PRINTFORM 龜頭含住後用力地吮吸起來、
	ENDIF
	PRINTFORMW 並且在用手指玩弄著陰莖的時候、也將%CALLNAME:PLAYER%的反應盡情享受著……
;被逆推ているとき
ELSEIF TEQUIP:推倒 || CHECK_COM("洗面奶手交")
	PRINTFORM %CALLNAME:TARGET%
	IF TEQUIP:電話中
		PRINTFORM 和%TEXTR(@"感觉和平时的电话没有什么不同的/什么都不知道地给这边打电话的/完全没有任何怀疑持续地通电话的/完全不知情/完全不知道发生了这样的事情的/不知道对方已经出轨了的/相信着%CALLNAME:TARGET%的")%
		PRINTFORM %TEXTS("彼氏")%%TEXTR("说这话的同时/持续通话的同时/进行着日常会话的同时/谈论着最近发生的事情的同时/讲着情话的同时")%、
	ENDIF
	IF TEQUIP:接吻
		PRINTFORM %TEXTS("接吻継続")%
		CALL SETFLAG, "追加接吻フラグ", TARGET
	ELSEIF TEQUIP:面部騎乗
		PRINT 跨坐在臉頰上的同時、
	ELSEIF CHECK_COM("玩弄Ａ手交")
		PRINTFORM 將%CALLNAME:PLAYER%的尻穴用\@ RAND:2 ? 盡力延長的 # \@舌尖
		IF RAND:3 == 0
			PRINT 蹂躪著的同時、用
		ELSEIF RAND:2
			SIF (ABL:奉仕精神 >= 3 || ABL:施虐属性 >= 3) && RAND:2
				PRINT 連同最深處的肉襞也一併
			PRINTFORM 舔舐著的同時、用
		ELSE
			PRINT 玩弄著的同時、用
		ENDIF
	ELSEIF CHECK_COM("洗面奶手交")
		PRINTFORM 將%CALLNAME:PLAYER%的臉頰用
		IF RAND:3 == 0
			PRINT 豐腴的胸部
		ELSEIF RAND:2 == 0
			PRINT 成熟飽滿的果實
		ELSE
			PRINT 柔軟的乳房
		ENDIF
		IF RAND:2 && TEQUIP:推倒
			PRINTFORM 不斷壓迫著的同時、用
		ELSEIF RAND:2
			PRINTFORM 緊緊包裹住的同時、用
		ELSE
			PRINTFORM 的谷間深深埋住的同時、用
		ENDIF
	;腋の气味嗅がせつつ
	ELSEIF CHECK_CLO("腋露出") && PREVCOM != 1 && PREVCOM != 9 && (CHOSECOM(SELECTCOM) == 0 || RAND:3 == 0)
		PRINTFORMW 將%CALLNAME:PLAYER%的臉頰用%TEXTS("腋")%緊緊夾住、讓夾雜著汗液臭味的%TEXTS("气味")%強制性地衝入鼻腔的同時、以愉快地心情將陰莖擼動著……
		RETURN 1
	;自尊心高いor淫乱or施虐属性Lv4以上
	ELSEIF (TALENT:高慢 || TALENT:淫乱 || ABL:施虐属性 >= 4) && RAND:2 == 0
		PRINT 帶著愉快的微笑
	;小悪魔
	ELSEIF TALENT:小悪魔
		PRINT 在臉上露出戲謔的壞笑的同時、
	;淫乱or欲情4LV以上
	ELSEIF (TALENT:淫乱 || PALAM:欲情 >= PALAMLV:4) && RAND:2 == 0
		PRINT 一邊妖艶的微笑著一邊
	ELSEIF (TALENT:淫乱 || PALAM:欲情 >= PALAMLV:4) && RAND:2 == 0
		PRINT 氣息絮亂的
	ELSEIF RAND:2 == 0 || TEQUIP:眼罩
		SIF RAND:2 == 0
			PRINT 好像很開心
		PRINT 微笑着一邊
	ENDIF
	PRINTFORM 將陰莖玩弄著、
	IF PREVCOM == 1 || PREVCOM == 9
		PRINTFORM 在用股間\@ RAND:2 ? 緊緊壓住 # 不斷摩擦 \@的同時、將
	ELSEIF CHECK_COM("洗面奶手交") && RAND:2
		PRINT 在柔軟乳肉中幸福的享受著的
	ELSE
		PRINT 發出快樂而苦悶的哼聲的
	ENDIF
	PRINTFORMW %CALLNAME:PLAYER%的反應盡情享受著……
;それ以外
ELSE
	PRINTFORM %CALLNAME:TARGET%
	IF TEQUIP:電話中
		PRINTFORM 和%TEXTR(@"感觉和平时的电话没有什么不同的/什么都不知道地给这边打电话的/完全没有任何怀疑持续地通电话的/完全不知情/完全不知道发生了这样的事情的/不知道对方已经出轨了的/相信着%CALLNAME:TARGET%的")%
		PRINTFORM %TEXTS("彼氏")%%TEXTR("说这话的同时/持续通话的同时/进行着日常会话的同时/谈论着最近发生的事情的同时/讲着情话的同时")%、
	ENDIF
	IF TEQUIP:接吻
		PRINTFORM %CALLNAME:PLAYER%%TEXTS("接吻継続助詞付き")%、
		CALL SETFLAG, "追加接吻フラグ", TARGET
	ELSEIF TEQUIP:六九式
		PRINTFORM %TEXTS("６９")%
	ELSEIF CHECK_COM("玩弄Ａ手交")
		PRINTFORM 將%CALLNAME:PLAYER%的尻穴用\@ RAND:2 ? 盡力延長的 # \@舌尖
		IF RAND:2
			SIF (ABL:奉仕精神 >= 3 || ABL:施虐属性 >= 3) && RAND:2
				PRINT 連同最深處的肉襞也一併
			PRINTFORM 舔舐著的同時、用
		ELSE
			PRINT 玩弄著的同時、用
		ENDIF
	ELSEIF INSERT("合体中")
		PRINTFORM %TEXTS("合体中", TARGET)%
	;气味弱点分岐
	ELSEIF PLAYER == MASTER && TALENT:气味弱点 && TALENT:恋慕 && INSERT("合体中") == 0 && (CHOSECOM(SELECTCOM) == 0 || RAND:3 == 0)
		IF CHECK_STAIN(STAIN:PLAYER:Ｐ, "Ｐ恥垢") && RAND:3
			SELECTCASE RANDF(3 + TALENT:高慢)
			CASE 0
				PRINTFORMW %CALLNAME:PLAYER%的陰莖包皮下黏著的骯髒恥垢所散發的嗆鼻%TEXTS("气味")%仔細嗅聞著的同時、帶著因興奮而泛起紅潮的臉將陰莖擼動起來……
			CASE 1
				PRINTFORMW %CALLNAME:PLAYER%的陰莖用雙手激烈地擼動著的同時、也因為各種淫液在雙手運動下發出的淫靡水聲與蒸騰而出的陰莖的濃郁%TEXTS("气味")%而更加興奮了……
			CASE 2
				PRINTFORMW 陰莖用手擼動著的同時、不時地減慢手部的運動、用鼻子抵住膨脹起來的龜頭、將那淫靡的%TEXTS("气味")%陶醉而仔細地嗅聞著……
			CASE 3
				PRINTFORMW %CALLNAME:PLAYER%的陰莖內部埋藏著的恥垢所散發的淫靡%TEXTS("气味")%滿臉紅暈地譏諷著的同時、無意識更加細緻地侍奉著陰莖……
			ENDSELECT
			RETURN 1
		ELSEIF CHECK_STAIN(STAIN:PLAYER:Ｐ, "精液") && RAND:3 == 0
			IF RAND:2
				PRINTFORM 被精液弄髒的陰莖那更加淫靡的%TEXTS("气味")%仔細嗅聞著興奮起來的同時、用
			ELSE
				PRINTFORM %CALLNAME:PLAYER%的陰莖的那混雜著精液淫臭的醉人%TEXTS("气味")%仔細嗅聞著的同時、用
			ENDIF
		ELSEIF RAND:3 == 0
			PRINTFORM %CALLNAME:PLAYER%的陰莖的%TEXTS("气味")%仔細嗅聞著的同時、用
		ELSEIF RAND:2
			PRINTFORM 蒸騰著熱汽的陰莖那不斷飄入鼻腔的濃郁%TEXTS("气味")%用力吸入肺部、因此而神志恍惚的同時、用
		ELSE
			PRINTFORM 抵近鼻尖的%CALLNAME:PLAYER%的陰莖那醉人的%TEXTS("气味")%盡情享受著的同時、用
		ENDIF
	ENDIF
	IF RAND:2
		IF EQUIP:手套 && CHECK_GLOVE("指露出") == 0
			;精液ぬるぬる
			IF CHECK_STAIN(STAIN:手套, "精液")
				IF RAND:2
					PRINT 被精液完全浸透的
				ELSE
					PRINT 被精液變得黏糊糊的
				ENDIF
			ENDIF
			PRINTFORM %GLOVE(TARGET, "略")%
		ELSE
			SIF CHECK_STAIN(STAIN:手, "精液")
				PRINT 被精液變得黏糊糊的
			PRINTFORM 嬌嫩掌心
		ENDIF
		PRINTFORMW 將龜頭按住並包裹起來、來回地摩挲著……
	ELSE
		;精液ぬるぬる
		SIF (CHECK_GLOVE("指露出") && CHECK_STAIN(STAIN:手套, "精液") ) || CHECK_STAIN(STAIN:手, "精液")
			PRINT 被精液變得黏糊糊的
		PRINTFORMW 手指將陰莖糾纏住、激烈地擼動著……
	ENDIF
ENDIF
;母乳体質とかだと母乳を飲めるかも
CALL TEXT, "喝母乳"

@COM_ORDER_COM90, ARG
#DIM MEMO_STAIN

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

;強気
IF TALENT:強気
	LOCAL += 10
	LOCALS = %LOCALS% + 強気(10)
ENDIF
;害羞
IF TALENT:害羞
	LOCAL -= 3
	LOCALS = %LOCALS% - 害羞(3)
ENDIF
;献身的
IF TALENT:献身
	LOCAL += 6
	LOCALS = %LOCALS% + 献身(6)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 1
	LOCALS = %LOCALS% - 否定快感(1)
ENDIF

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

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

RETURN RESULT


code:
@COM91
;口交
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

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

SIF REFUSE_CHECK()
	RETURN 0

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

;-------------------------------------------------
;射精格子
;-------------------------------------------------
IF CHECK_COM("手交口交")
	CALL SAMEN_CHECK, 70
	SELECTCOM = 90
	CALL SAMEN_CHECK, 50
	SELECTCOM = 91
ELSEIF CHECK_COM("乳夾口交")
	CALL SAMEN_CHECK, 70
	SELECTCOM = 92
	CALL SAMEN_CHECK, 50
	SELECTCOM = 91
ELSE
	CALL SAMEN_CHECK
ENDIF

RETURN 1

@FLAG_COM91, ARG
CALL SETFLAG, "口交フラグ", TARGET

SIF CHECK_COM("阴茎接吻", 91)
	CALL SETFLAG, "阴茎接吻フラグ", TARGET

IF CHECK_COM("手交口交") == 91
	CALL FLAG_COM90, 50
ELSEIF CHECK_COM("乳夾口交") == 91
	CALL FLAG_COM92, 50
ENDIF

;対象の口⇔調教者のＰ的污垢が移動
CALL EQ_STAIN, TARGET, "Ｍ", PLAYER, "Ｐ"
IF CHECK_COM("恥垢清洁口交", 91)
	CALL SETFLAG, "恥垢清洁口交", TARGET, PLAYER
ELSEIF CHECK_COM("清洁口交", 91)
	CALL SETFLAG, "清洁口交", TARGET, PLAYER
ENDIF

SIF ASSIPLAY == 0 && EXP:口交経験 >= EXPLV:3
	TFLAG:好感度BOUNS += 1

@SOURCE_COM91, ARG
IF CHECK_COM("手交口交") == 91
	CALL SOURCE_COM90, 50
ELSEIF CHECK_COM("乳夾口交") == 91
	CALL SOURCE_COM92, 50
ENDIF

CALL VARSET_COMF

CALL SOURCE_SERVICE_PLAY, "口交"

CALL SOURCE_DOWNBASE_HP, 91

SOURCE:0:不潔 = COM_ORDER_STAIN("Ｐ", "Ｍ")*100 + 100
SOURCE:0:欲情追加 = CALCF("実行値による欲情追加")
SOURCE:0:屈従 = 1500
SOURCE:0:逸脱 = 500

IF CHECK_COM("清洁口交", 91)
	SOURCE:0:性行動 += 1000
	SOURCE:0:達成感 += 1000
	TIMES SOURCE:0:Ｍ快楽, 0.20
	SOURCE:0:屈従 += 1000
	SIF CHECK_STAIN(STAIN:PLAYER:Ｐ, "Ａ")
		SOURCE:0:屈従 += 3000
ENDIF

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

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

;深喉中？
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:Ｍ快楽

IF CHECK_COM("阴茎接吻", 91)
	TIMES SOURCE:0:性行動, 0.10
	TIMES SOURCE:0:達成感, 0.10
	TIMES SOURCE:0:疼痛, 0.10
	TIMES SOURCE:0:不潔, 0.50
	TIMES SOURCE:0:恐惧, 0.50
	TIMES SOURCE:0:屈従, 0.50
	TIMES SOURCE:0:逸脱, 0.50
	TIMES SOURCE:0:Ｍ快楽, 0.10
	SOURCE:0:情愛 += 700
ENDIF

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

@TRAIN_MESSAGE_COM91
IF CHECK_COM("Ｗ奉仕")
	IF SELECTCOM:1 == PREVCOM:1 && SELECTCOM == PREVCOM
		PRINTFORM 兩人
		IF TALENT:(TARGET:1):淫乱 + TALENT:(TARGET:1):恋慕 && TALENT:淫乱 + TALENT:恋慕 && RAND:3 == 0
			PRINT 神情恍惚、眼神濕潤的對視著的同時
		ELSEIF RAND:2 == 0
			PRINT 如同完全沉浸於快感一樣無意識的漏出涎水的同時
		ENDIF
		PRINTFORMW 將%CALLNAME:MASTER%的陰莖用舌頭爬上、旋轉的舔舐起來……
	ELSE
		PRINTFORM %CALLNAME:TARGET%和%CALLNAME:(TARGET:1)%
		SIF TALENT:(TARGET:1):淫乱 + TALENT:(TARGET:1):恋慕 && TALENT:淫乱 + TALENT:恋慕 && RAND:2 == 0
			PRINTFORM 在用充滿慾望與依戀的雙瞳凝視著%CALLNAME:MASTER%赤裸身體的同時、
		IF RAND:3
			LOCAL = RAND:2
			SIF LOCAL == 0
				PRINTFORM 像是在競爭一樣
			IF (PREVCOM >= 65 && PREVCOM <= 67) || PREVCOM == 75
				PRINTFORM %CALLNAME:TARGET%的
			ELSEIF (PREVCOM:1 >= 65 && PREVCOM:1 <= 67) || PREVCOM:1 == 75
				PRINTFORM %CALLNAME:(TARGET:1)%將
			ENDIF
			IF PREVCOM == 75 || PREVCOM:1 == 75
				PRINTFORM 沾滿了腸道污液的
			ELSEIF (PREVCOM >= 65 && PREVCOM <= 67) || (PREVCOM:1 >= 65 && PREVCOM:1 <= 67)
				PRINTFORM 被膣液所完全濡濕的
			ELSEIF CHECK_STAIN(STAIN:PLAYER:Ｐ, "Ｐ恥垢")
				PRINTFORM 殘留著充滿淫臭的包皮垢的
			ELSEIF CHECK_STAIN(STAIN:PLAYER:Ｐ, "Ａ")
				PRINTFORM 沾滿了腸道污液的
			ELSEIF CHECK_STAIN(STAIN:PLAYER:Ｐ, "Ｖ")
				PRINTFORM 被膣液所完全濡濕的
			ELSEIF CHECK_STAIN(STAIN:PLAYER:Ｐ, "精液")
				PRINTFORM 被新鮮灼熱的精液包裹著的
			ENDIF
			IF CHECK_COM("清洁口交")
				PRINTFORMW 陰莖用口腔包裹住並吮吸著清潔起來……
			ELSEIF LOCAL == 0
				IF TALENT:(TARGET:1):恋慕 && TALENT:恋慕 && RAND:2
					PRINTFORMW 陰莖不斷地啄吻著、在充滿依戀的親吻與舔舐過後開始吮吸起來……
				ELSE
					PRINTFORMW 陰莖投入的吮吸著……
				ENDIF
			ELSE
				PRINTFORMW 陰莖交替地吮吸著……
			ENDIF
		ELSE
			IF CHECK_COM("清洁口交")
				PRINTFORMW 相互協助的將陰莖用兩人的口腔舔舐吮吸著清潔乾淨了……
			ELSE
				PRINTFORMW 相互協助的將陰莖用舌頭舔舐全身後交替地吮吸起來……
			ENDIF
		ENDIF
	ENDIF
;==91で双龙入穴口交、== 90なら口交＆手交、それ以外は犯されながら口交
ELSEIF CHECK_COM("３Ｐ奉仕")
	CALL TRAIN_MESSAGE_3P
;同時推倒
ELSEIF TEQUIP:Ｗ推倒
	PRINTFORM %CALLNAME:TARGET%
	;助手が前回と同じ行動(違う行動の時は、ここでなく、EQUIP_COM32で記述)
	IF SELECTCOM:1 == PREVCOM:1 && SELECTCOM:1 >= 0
		PRINTFORM 、%TEXTS("Ｗ推倒中")%、
	ELSEIF PREVCOM:1 >= 65 && PREVCOM:1 <= 67
		PRINTFORM 將之前被%CALLNAME:(TARGET:1)%的膣道深深地吞沒、沾染了白色的泡沫的
	ELSEIF PREVCOM:1 == 75
		PRINTFORM 將被%CALLNAME:(TARGET:1)%的腸液完全地污染的
	ELSEIF PREVCOM >= 65 && PREVCOM <= 67
		PRINTFORM 刚刚从自己的膣穴中解放还散发着强烈气味的
	ELSEIF PREVCOM == 75
		PRINTFORM 刚刚从自己的尻穴中解放染上了污物的
	ENDIF
	IF SELECTCOM == PREVCOM
		PRINTFORMW 將%CALLNAME:MASTER%的陰莖用舌頭爬上、旋轉的舔舐起來……
	ELSEIF CHECK_COM("清洁口交")
		IF PREVCOM:1 >= 60 && PREVCOM <= 79
			PRINTFORMW %CALLNAME:MASTER%的陰莖熱心地用口腔漂亮的清潔了……
		ELSE
			PRINTFORMW %CALLNAME:MASTER%的髒污的陰莖用口腔打掃了……
		ENDIF
	ELSE
		PRINTFORMW %CALLNAME:MASTER%的陰莖含住後吮吸起來……
	ENDIF
ELSEIF CHECK_COM("恥垢清洁口交")
	PRINTFORM %CALLNAME:TARGET%
	IF TEQUIP:電話中
		PRINTFORM 和%TEXTR(@"感觉和平时的电话没有什么不同的/什么都不知道地给这边打电话的/完全没有任何怀疑持续地通电话的/完全不知情/完全不知道发生了这样的事情的/不知道对方已经出轨了的/相信着%CALLNAME:TARGET%的")%
		PRINTFORM %TEXTS("彼氏")%%TEXTR("说这话的同时/持续通话的同时/进行着日常会话的同时/谈论着最近发生的事情的同时/讲着情话的同时")%、
	ENDIF
	;气味弱点分岐
	IF PLAYER == MASTER && TALENT:气味弱点 && TALENT:恋慕 && RAND:5
		IF RAND:5 == 0
			PRINTFORM 戀戀不捨的將陰莖的淫靡%TEXTS("气味")%深深嗅聞之後、
		ELSEIF RAND:4 == 0
			PRINTFORM 將陰莖的%TEXTS("气味")%仔細嗅聞之後、
		ELSEIF RAND:3 == 0
			PRINTFORM 因對著衝入鼻腔的%TEXTS("气味")%深呼吸之後興奮起來的同時、
		ELSEIF RAND:2
			PRINTFORM 用龜頭緊緊抵住鼻尖將散發的%TEXTS("气味")%烙印在腦海中之後、
		ELSE
			PRINTFORM 對%CALLNAME:PLAYER%的陰莖所散發的淫靡%TEXTS("气味")%深深入迷的同時、
		ENDIF
	ELSE
		IF COND("假性包茎", PLAYER) && RAND:2
			PRINTFORM 將薄薄的包皮拉下、讓龜頭完全露出、
		ELSEIF RAND:2
			PRINTFORM 不讓舌頭停歇片刻、
		ELSE
			PRINTFORM 像是對普通的清潔口交產生厭倦一樣、
		ENDIF
	ENDIF
	PRINTFORM 将%TEXTR("恥垢/散發著醉人淫臭的包皮垢/緊緊粘附的污垢/像是臭味濃郁的奶酪般熟成的污垢")%
	PRINTFORMW %TEXTR("也用舌頭刮干净、将阴茎漂亮地打磨了一遍/也毫无保留地用嘴掃除了/和阴茎一起掃除得干干净净/也熱心地開始舔了起来")%…

;手交口交or乳夾口交
ELSEIF CHECK_COM("手交口交") || CHECK_COM("乳夾口交")
	PRINTFORM %CALLNAME:TARGET%
	IF TEQUIP:電話中
		PRINTFORM 和%TEXTR(@"感觉和平时的电话没有什么不同的/什么都不知道地给这边打电话的/完全没有任何怀疑持续地通电话的/完全不知情/完全不知道发生了这样的事情的/不知道对方已经出轨了的/相信着%CALLNAME:TARGET%的")%
		PRINTFORM %TEXTS("彼氏")%%TEXTR("说这话的同时/持续通话的同时/进行着日常会话的同时/谈论着最近发生的事情的同时/讲着情话的同时")%、
	ENDIF
	IF CHECK_COM("手交口交")
		PRINTFORM 用手指將陰莖輕輕擼動的同時、向因快感而不斷溢出先走汁的龜頭鈴口
	ELSEIF CHECK_COM("乳夾口交")
		IF TALENT:貧乳 || TALENT:男性
			PRINT 用貧乏單薄的胸部拼命地將陰莖
		ELSEIF TALENT:巨乳
			PRINT 用丰腴柔軟的乳肉將陰莖包裹住、
		ELSE
			PRINT 用胸部夾住陰莖的同時
		ENDIF
		PRINTFORM 不斷地上下摩擦著、向穿過胸前峽谷清晰露出的龜頭
	ENDIF
	;恋慕or献身的or奉仕精神3以上or汚臭鈍感
	IF (TALENT:恋慕 || TALENT:献身 || ABL:奉仕精神 >= 3 || TALENT:汚臭鈍感) && RAND:2 == 0
		PRINT 就好像是在品嚐美味一樣的
	;害羞
	ELSEIF TALENT:害羞 && RAND:3 == 0
		IF RAND:2 == 0
			PRINT 害羞地
		ELSE
			PRINT 臉頰染上慾望與羞澀的紅暈、
		ENDIF
	;欲情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 就好像是在品嚐美味一樣的
	ENDIF
	;奉仕精神3以上か欲情4以上
	IF (ABL:奉仕精神 >= 3 || PALAM:欲情 >= PALAMLV:4) && RAND:3 >= 1
		PRINTFORM 深深含住然後開始吮吸
	ELSE
		PRINTFORM 旋轉著舔舐起來
	ENDIF
	PRINTW ……
;前回は強制口交
ELSEIF PREVCOM == 140 && COND("前Ｔ調教者") == PLAYER && TEQUIP:推倒 == 0
	PRINTFORM 在%CALLNAME:PLAYER%短暫的停歇腰肢的擺動並輕輕地撫摸著%CALLNAME:TARGET%頭頂的時候、她不禁
	;恋慕かつ奉仕精神5or献身的かつ奉仕精神3以上
	IF ( (TALENT:恋慕 && ABL:奉仕精神 == 5) || (TALENT:献身 && ABL:奉仕精神 >= 3) ) && RAND:3 == 0
		IF COND("視力") && RAND:2
			PRINT 用不住上翻的眼珠仰視著神情的同時、
		ELSE
			PRINT 滿臉幸福快樂的
		ENDIF
	;恋慕or献身的or奉仕精神3以上
	ELSEIF TALENT:恋慕 || TALENT:献身 || ABL:奉仕精神 >= 3
		PRINT 就好像是在品嚐美味一樣的
	;強気
	ELSEIF TALENT:強気 && COND("視力") && RAND:3
		PRINTFORM 用與平日裡強硬眼神截然不同的濕潤瞳孔凝視著%CALLNAME:PLAYER%的同時、
	ELSEIF RAND:2 == 0 && ABL:技巧 < 2
		PRINT 開始生疏的吞吐侍奉著
	ENDIF
	;技巧４かつ奉仕精神３
	IF ABL:技巧 >= 4 && ABL:奉仕精神 >= 3 && RAND:3 == 0
		PRINTFORMW 將陰莖用咽喉含住、讓啾嚕啾嚕的淫亂水聲與壓抑著的呻吟隨著頭頸的動作不斷迴響著……
	;奉仕精神3以上か欲情4以上
	ELSEIF (ABL:奉仕精神 >= 3 || PALAM:欲情 >= PALAMLV:4) && RAND:2 == 0
		PRINTFORMW 將陰莖深深含住然後開始吮吸……
	ELSE
		PRINTFORMW 將陰莖旋轉著舔舐起來……
	ENDIF
;前回と同じor深喉中
ELSEIF (PREVCOM == SELECTCOM || TEQUIP:深喉) && COND("前Ｔ調教者") == PLAYER && PREVPLAY("阴茎接吻") == 0
	PRINTFORM %CALLNAME:TARGET%、
	IF TEQUIP:電話中
		PRINTFORM 和%TEXTR(@"感觉和平时的电话没有什么不同的/什么都不知道地给这边打电话的/完全没有任何怀疑持续地通电话的/完全不知情/完全不知道发生了这样的事情的/不知道对方已经出轨了的/相信着%CALLNAME:TARGET%的")%
		PRINTFORM %TEXTS("彼氏")%%TEXTR("说这话的同时/持续通话的同时/进行着日常会话的同时/谈论着最近发生的事情的同时/讲着情话的同时")%、
	ENDIF
	IF TALENT:恋慕 && RAND:4 == 0
		PRINTFORM 神情恍惚的緊緊凝視著%CALLNAME:PLAYER%
	ELSEIF ABL:奉仕精神 >= 3 && COND("視力") && RAND:3 == 0
		PRINTFORM 凝视着%CALLNAME:PLAYER%的脸
	ELSEIF ABL:技巧 >= 3 && RAND:2
		PRINTFORM 用嫻熟的手法調節節奏將%CALLNAME:PLAYER%
	ELSEIF ABL:精液中毒 >= 3 && RAND:2
		PRINTFORM 在口中積攢出充分地唾液來與腥臭的先走汁混合後、將口感複雜的淫靡果汁一飲而盡。隨後在因烙印在腦內的奇妙快感而恍惚的同時投入地將%CALLNAME:PLAYER%
	ELSE
		PRINTFORM 將粘稠的唾液塗抹在唇角之後、將%CALLNAME:PLAYER%
	ENDIF
	IF CHECK_STAIN(STAIN:PLAYER:Ｐ, "Ｐ恥垢")
		IF RAND:3 == 0
			PRINTFORM 殘留著充滿淫臭的包皮垢的
		ELSEIF RAND:2
			PRINTFORM 黏著了苦澀恥垢的
		ELSE
			PRINTFORM 蒸騰著醉人%TEXTS("气味")%的
		ENDIF
	ENDIF
	PRINTFORM 阴茎
	;前回or今回清洁口交
	IF CHECK_COM("清洁口交")
		PRINTFORMW \@ ABL:奉仕精神 + TALENT:恋慕 >= 5 ? 全心灌注地 # \@徹底的打掃乾淨了……
	ELSEIF PREVPLAY("清洁口交")
		PRINTFORMW 用舌尖持續的摩擦著……
	ELSE
		PRINTFORMW 用口腔含住並持續吮吸……
	ENDIF
ELSE
	SIF TEQUIP:眼罩 && TEQUIP:推倒 + TEQUIP:六九式 == 0
		PRINTFORM 被蒙上眼睛的
	PRINTFORM %CALLNAME:TARGET%
	IF TEQUIP:電話中
		PRINTFORM 和%TEXTR(@"感觉和平时的电话没有什么不同的/什么都不知道地给这边打电话的/完全没有任何怀疑持续地通电话的/完全不知情/完全不知道发生了这样的事情的/不知道对方已经出轨了的/相信着%CALLNAME:TARGET%的")%
		PRINTFORM %TEXTS("彼氏")%%TEXTR("说这话的同时/持续通话的同时/进行着日常会话的同时/谈论着最近发生的事情的同时/讲着情话的同时")%、
	ENDIF
	;前回阴茎接吻
	IF COND("前Ｔ調教者") == PLAYER && PREVPLAY("阴茎接吻")
		;あんまり慣れてない
		IF TALENT:献身 + TALENT:好色 + TALENT:小悪魔 == 0 && (MARK:屈服刻印 <= 1 || EXP:口交経験 < 20)
			PRINTFORM 按照%CALLNAME:PLAYER%的要求、
		ELSE
			PRINTFORM %TEXTR("伸长了舌頭将其润滑后/探出脸来/在深呼吸一次之后")%
		ENDIF
		PRINTFORM %TEXTR("打完招呼的/亲吻完毕的/刚刚结束接吻的")%
	;气味弱点分岐
	ELSEIF PLAYER == MASTER && TALENT:气味弱点 && (TALENT:恋慕 || TALENT:淫乱) && (CHOSECOM(SELECTCOM) == 0 || RAND:3 == 0)
		IF CHECK_COM("清洁口交")
			IF PREVPLAY("挿入中", PLAYER)
				CALL ADD_TEXT, "性器から口へ"
				PRINTFORM %CALLNAME:PLAYER%的陰莖的美味用舌頭品尝着、
			ELSEIF PREVPLAY("放尿", PLAYER)
				PRINTFORM 舌頭朝着放尿直後的%CALLNAME:PLAYER%的阴茎面露興奮地伸出、
			ELSE
				SIF CHECK_STAIN(STAIN:PLAYER:Ｐ, "精液")
					PRINTFORM 被白濁精液所
				PRINTFORM 弄脏的%CALLNAME:PLAYER%的阴茎的%TEXTS("气味")%嗅着的同时、
			ENDIF
			PRINTFORMW 口腔\@ ABL:奉仕精神 + TALENT:恋慕 >= 5 ? 全心灌注地 # \@徹底的打掃乾淨了……
		ELSEIF PREVPLAY("挿入中", PLAYER)
			CALL ADD_TEXT, "性器から口へ"
			PRINTFORMW %CALLNAME:PLAYER%的阴茎開心地将脸贴近、伸出了舌頭将其光滑地迎入口中…
		ELSEIF RAND:3 == 0 && TALENT:男性
			PRINTFORMW %CALLNAME:PLAYER%緊縮玉袋的淫靡%TEXTS("气味")%深深嗅聞的同時、帶著恍惚的神情將陰莖\@ CHECK_COM("阴茎接吻") ? 反復的啄吻著 # 旋轉著舔舐起來 \@……
		ELSEIF RAND:2
			PRINTFORM 用龜頭緊緊抵住鼻尖、將
			SIF CHECK_STAIN(STAIN:PLAYER:Ｐ, "精液")
				PRINTFORM 摻雜著濃郁精臭的
			PRINTFORMW 散發的%TEXTS("气味")%深深地嗅聞著、同時\@ CHECK_COM("阴茎接吻") ? 與鈴口熱情地深吻 # 就好像是在品嚐美味一樣吮吸 \@起来……
		ELSE
			PRINTFORMW 陰莖\@ CHECK_COM("阴茎接吻") ? 不斷地啄吻著 # 深深含入口中 \@的同時、任由心神陶醉在%CALLNAME:PLAYER%股間那淫靡的%TEXTS("气味")%所醞釀的淫猥氣氛之中……
		ENDIF
		RETURN 1
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;直前の調教と汚れで分岐
		IF COND("Ｐ汚れ", PLAYER)
			SIF (PREVCOM >= 70 && PREVCOM <= 79) && COND("前Ｔ調教者") == PLAYER && TEQUIP:眼罩 == 0
				PRINT 從自己的肛門剛剛拔出、
			;容易濕で追加
			SIF TALENT:容易濕 && RAND:3 && TEQUIP:眼罩 == 0
				PRINT べっとりと
			SIF (PREVCOM >= 60 && PREVCOM <= 69) && COND("前Ｔ調教者") == PLAYER && TEQUIP:眼罩 == 0
				PRINT 被自己的甜膩愛液弄髒的、
			PRINT 染上淫靡污漬的、
		;淫乱or施虐狂or施虐属性Lv.5以上で「害羞」を持たない
		;ELSEIF (TALENT:淫乱 || TALENT:小悪魔 || ABL:施虐属性 >= 5) && TALENT:害羞 == 0
		;	PRINT 滴落著透明唾液的
		ELSEIF RAND:3 == 0
			PRINT 不斷散發出淫靡氣味
		ELSE
			PRINTFORM %TEXTS("阴茎：視覚", PLAYER)%
		ENDIF
	ELSE
		;六九式
		IF TEQUIP:六九式
			PRINTFORM %TEXTS("６９")%
		;眼罩で分岐。ところで、Ｍ字開脚座りってもっといい名称無いですかね？
		ELSEIF TEQUIP:眼罩 || TEQUIP:拘束
			PRINT 、被嘴唇慢慢摸索到位置的
		;奉仕精神3以上で拉米亚
		ELSEIF ABL:奉仕精神 >= 3 && COND("種族：拉米亚")
			PRINTFORM %CALLNAME:PLAYER%的股間貼近並摩擦著、將
		;淫乱かつ奉仕精神3以上かつ欲情4以上
		ELSEIF TALENT:好色 + TALENT:淫乱 && ABL:奉仕精神 >= 3 && PALAM:欲情 >= PALAMLV:4 && RAND:3
			IF PREVEX("Ｖ中出し") + PREVEX("Ａ中出し") && CHECK_CLO("Ｖ露出") + CHECK_CLO("Ａ露出")
				PRINTFORM Ｍ字開腿的坐姿保持著、
				IF RAND:2
					LOCALS = 因羞耻而剧烈颤抖着、
				ELSE
					LOCALS = 散發著劇烈的淫猥%TEXTS("气味")%、
				ENDIF
				IF PREVEX("Ｖ中出し") && CHECK_CLO("Ｖ露出")
					PRINTFORM 从那里
					IF RAND:2
						PRINTFORM 零星地灑落混雜著精液的愛液之雨的同時、將
					ELSE
						PRINTFORM %LOCALS%任由精液混雜著流淌而出的液體灑下的同時、將
					ENDIF
				ELSEIF PREVEX("Ａ中出し") && ABL:Ａ拡張 >= 3 && CHECK_CLO("Ａ露出")
					PRINTFORM 在肛門
					IF BASE:排泄物 == 0
						PRINTFORM 中剛剛灌注的新鮮精液慢慢的%TEXTR("零星地/垂流著")%灑落、將
					ELSEIF RAND:2
						PRINTFORM 中與%TEXTR("腸液/汚液")%混合而變色的精液正%TEXTR("零星地/垂流著")%灑落的同時、將
					ELSE
						PRINTFORM %LOCALS%任由精液混雜著流淌而出的液體灑下的同時、將
					ENDIF
				ELSE
					PRINTFORM 胯股之间%LOCALS%讓漸漸溢出的白濁精液混雜著流淌而出的淫液混合而成的淫猥果汁正淅淅瀝瀝的灑落下來、將
				ENDIF
			ELSE
				PRINTFORM 向%CALLNAME:PLAYER%突出股間、以Ｍ字開腿的姿勢保持並端坐著、將
			ENDIF
		;献身的or恋慕or奉仕精神3以上
		ELSEIF CHECK_COM("阴茎接吻") || ( (TALENT:献身 || TALENT:恋慕 || ABL:奉仕精神 >= 3) && RAND:3)
			IF TALENT:高贵 && RAND:2
				PRINTFORM 垂落的髮梢優雅的向一側撩上、將
			ELSE
				PRINTFORM 跪坐在%CALLNAME:PLAYER%股間之前的姿態保持著、將
			ENDIF
		ENDIF

		;直前の調教と汚れで分岐
		IF PREVEX("放尿", PLAYER)
			IF RAND:2
				PRINTFORM 散發著撲鼻而來的強烈臭味的
			ELSE
				PRINTFORM 殘留著濁黃尿液的
			ENDIF
		ELSEIF PREVPLAY("挿入中", PLAYER)
			CALL ADD_TEXT, "性器から口へ"
		ELSEIF CHECK_STAIN(STAIN:PLAYER:Ｐ, "Ｐ恥垢") && CHOSECOM(SELECTCOM) == 0 && RAND:3 == 0
			PRINTFORM 殘留著充滿淫臭的包皮垢的
		;汚れていない時
		ELSEIF RAND:3 == 0 && CHECK_STAIN(STAIN:PLAYER:Ｐ, "Ｖ", "Ａ", "Ｐ恥垢") == 0
			PRINTFORM 散發著異臭的
		ELSE
			PRINTFORM %TEXTS("阴茎：視覚", PLAYER)%
			SIF PREVEX("射精", PLAYER) && CONDS("間柄", PLAYER) == "教え子"
				PRINTFORM 學生的
		ENDIF
	ENDIF
	IF CHECK_COM("阴茎接吻")
		;あんまり慣れてない
		IF TALENT:献身 + TALENT:好色 + TALENT:小悪魔 == 0 && (MARK:屈服刻印 <= 1 || EXP:口交経験 < 20)
			PRINTFORMW 陰莖%TEXTR("滿面羞紅的輕輕接吻了/膽怯而小心的用嘴唇輕輕貼住了/猶豫地親吻了")%…
		ELSEIF COND("種族：悪魔") + COND("種族：天使") + COND("種族：淫魔") && MARK:屈服刻印 && RAND:2
			PRINTFORMW 陰莖%TEXTR("帶著恍惚的神情持續深吻著/恭敬地與之深吻著/就像是迫不及待一樣與之熱吻著")%…
		ELSE
			PRINTFORMW 陰莖%TEXTR("不斷地啄吻著全身上下/恭敬地與之深吻著/熱情地持續深吻著")%……
		ENDIF
	ELSE
		PRINTFORM 陰莖

		;汚れてますか？汚臭鈍感で無いならば、実行値の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
			PRINTFORM 看上去很美味一般
		;害羞
		ELSEIF TALENT:害羞 && RAND:3 == 0
			PRINT 害羞地
		;欲情4以上
		ELSEIF PALAM:欲情 >= PALAMLV:4 && RAND:3 == 0
			SIF TALENT:倒錯的 + 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 && TEQUIP:推倒 == 0 && ABL:技巧 < 2
			PRINT 開始生疏的吞吐侍奉著
		ENDIF

		IF CHECK_COM("清洁口交")
			PRINTFORMW 口腔\@ ABL:奉仕精神 + TALENT:恋慕 >= 5 ? 全心灌注地 # \@徹底的打掃乾淨了……
		;信頼4以上or奉仕精神3以上or受虐属性3以上、かつ技巧3以上だとディープをやってきたり。信頼2以下or奉仕精神1以下は舐めるのみ
		ELSEIF ABL:信頼 <= 2 || ABL:奉仕精神 <= 1
			;娇小で追加
			SIF TALENT:娇小
				PRINT 小小的
			PRINTFORMW 將陰莖旋轉著舔舐起來……
		ELSE
			;深喉判定
			;信頼４or奉仕精神３or受虐属性３で、技巧が３以上
			IF (ABL:信頼 >= 4 || ABL:奉仕精神 >= 3 || ABL:受虐属性 >= 3) && ABL:技巧 >= 3 && CHECK("喉姦") && RAND:3 == 0
				TEQUIP:深喉 = PLAYER
				;フラグとTEQUIPが分かれているのは、射精後などにTEQUIP:深喉が０となっている時でも参照するため
				CALL SETFLAG, "深喉フラグ", TARGET

				IF CHECK("喉姦") >= 2 && RAND:3
					PRINTFORM 整個口腔\@ SIZE("阴茎") >= 2 ? 甚至連連著食道也被貫穿的 # \@直到根部
				ELSE
					PRINTFORM \@ TALENT:娇小 ? 狹窄的 # \@咽喉最深處
				ENDIF
				;喉LVで追加
				IF CHECK("喉姦") >= 3 && RAND:2
					PRINT 帶著就像是進行平常的侍奉一樣冷靜的表情
				ELSEIF CHECK("喉姦") >= 2
					IF RAND:2
						PRINT 一口気
					ELSE
						PRINT 輕而易舉地
					ENDIF
				ELSE
					PRINT 磕磕碰碰地
				ENDIF
				IF CHECK("喉姦") >= 2 && RAND:2
					PRINT 吞入口中、
				ELSEIF RAND:2
					PRINT 接納至體內、
				ELSE
					PRINT 用口腔包裹住、
				ENDIF
			ELSE
				PRINT 用口腔包裹住、
			ENDIF
			;眼罩没有で、奉仕精神3以上
			IF ABL:奉仕精神 >= 3 && TEQUIP:眼罩 == 0 && TEQUIP:六九式 == 0 && RAND:3 == 0
				IF TEQUIP:鼻钩
					PRINTFORM 露出%TEXTR("抬起的猪鼻子/被広開的鼻穴/笨拙的鼻钩脸")%、用不住上翻的眼珠仰視著神情的同時
					IF TEQUIP:深喉
						PRINTFORMW 用咽喉痙攣的軟肉侍奉著…
					ELSE
						PRINTFORMW 將陰莖深深含住然後開始吮吸……
					ENDIF
				ELSE
					;害羞
					SIF (TALENT:害羞 || TALENT:恋慕) && RAND:4
						PRINT 臉頰染上慾望與羞澀的紅暈、
					IF TEQUIP:深喉
						PRINTFORMW 用%TEXTR("不住上翻的眼珠/濕潤的瞳孔")%仰視著神情的同時、用咽喉痙攣的軟肉侍奉著……
					ELSE
						PRINTFORMW 用不住上翻的眼珠仰視著神情的同時、用整個口腔吮吸侍奉著……
					ENDIF
				ENDIF
			;技巧４かつ奉仕精神３
			ELSEIF ABL:技巧 >= 4 && ABL:奉仕精神 >= 3 && RAND:3 == 0
				IF TEQUIP:深喉 && ABL:舌靈活 >= 3
					IF CHECK("喉姦") >= 2 && ABL:舌靈活 >= 5 && RAND:2
						PRINTFORMW 用伸出的舌頭將\@ TALENT:PLAYER:男性 ? 玉袋 # 陰部 \@挑弄著愛撫的同時、將\@ EXP:口交経験 >= 200 ? 龜頭用食道痙攣的肌肉摩挲的同時、將 # \@整根陰莖用口腔與咽喉侍奉著……
					ELSEIF RAND:2
						PRINTFORMW 將整個咽喉驅使著刺激深入口中的陰莖……
					ELSE
						PRINTFORMW 用抽搐的咽喉侍奉著、讓啾嚕啾嚕的淫亂水聲與壓抑著的呻吟隨著頭頸的動作不斷迴響著……
					ENDIF
				ELSE
					PRINTFORMW 用緊縮的雙唇緊緊捆住的同時搖晃著腦袋給予刺激……
				ENDIF
			;奉仕精神3以上か欲情4以上
			ELSEIF (ABL:奉仕精神 >= 3 || PALAM:欲情 >= PALAMLV:4) && RAND:2 == 0
				IF ABL:技巧 >= 4 && RAND:2
					IF TEQUIP:深喉
						PRINT 用緊縮的雙唇緊緊捆住的同時
					ELSE
						PRINT 啜飲著溢出唾液與先走汁的混合濃汁的同時
					ENDIF
				ENDIF
				PRINTFORMW 開始猛烈地打喷嚏了……
			ELSEIF (RAND:2 == 0 && ABL:技巧 >= 2) || TEQUIP:深喉
				IF TEQUIP:深喉
					PRINTFORMW 整根吸入之後用不住抽搐的咽喉開始吮吸……
				ELSE
					PRINTFORMW 吸了一口气開始说话……
				ENDIF
			ELSE
				PRINTFORMW 舔过来了……
			ENDIF
		ENDIF
	ENDIF
ENDIF

@COM_ORDER_COM91, 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 += 6
	LOCALS = %LOCALS% + 献身(6)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 1
	LOCALS = %LOCALS% - 否定快感(1)
ENDIF
;Ｍ性向
IF TALENT:Ｍ性向
	LOCAL += 10
	LOCALS = %LOCALS% + Ｍ性向(10)
ENDIF
;男性
IF TALENT:男性 && TALENT:兩面通吃 == 0
	LOCAL -= 15
	LOCALS = %LOCALS% - 男性(15)
ENDIF

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

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

RETURN RESULT