code:
@COM101
;尻素股
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

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

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%
;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM101, ARG
SIF ASSIPLAY == 0
	TFLAG:好感度BOUNS += 1

@SOURCE_COM101, ARG
CALL VARSET_COMF

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

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

@TRAIN_MESSAGE_COM101
#DIMS TEXT_ASS
#DIMS TEXT_PENIS

IF CHECK_CLO("Ｔ字褲臀圍") || CHECK_CLO("Ａ露出")
	TEXT_ASS = %TEXTR(@"%TEXTS("お尻：視覚")%/%TEXTS("お尻：感触")%")%
ELSE
	TEXT_ASS = %TEXTS("お尻：視覚")%
ENDIF
;前回挿入行為
IF PREVPLAY("挿入中", PLAYER)
	TEXT_PENIS = 、穴から抜いたばかりの\@ CHECK_STAIN(STAIN:PLAYER:Ｐ, "Ｖ", "Ａ") ? 弄脏的 # \@阴茎
ELSEIF TEXT_ASS == "お尻"
	TEXT_PENIS = 、%TEXTS("阴茎：視覚", PLAYER)%阴茎
ELSE
	TEXT_PENIS = 阴茎
ENDIF

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%的%TEXT_PENIS%用屁股摩擦着、持续地进行刺激…
	ELSE
		PRINTFORM %CALLNAME:TARGET%和%CALLNAME:(TARGET:1)%
		SIF TALENT:(TARGET:1):淫乱 + TALENT:(TARGET:1):恋慕 + TALENT:淫乱 + TALENT:恋慕 && RAND:2 == 0
			PRINTFORM 在用充滿慾望與依戀的雙瞳凝視著%CALLNAME:MASTER%赤裸身體的同時、
		PRINTFORMW 协力地将阴茎用屁股夹住上下撸动着…
	ENDIF
;被逆推ているとき
ELSEIF TEQUIP:推倒
	IF SELECTCOM == PREVCOM
		PRINTFORM %CALLNAME:TARGET%將%CALLNAME:PLAYER%的%TEXTS("阴茎：視覚", PLAYER)%阴茎
		PRINTFORMW %TEXTR("用屁股持续地摩擦/持续地用屁股夹着撸动")%…
	ELSE
		PRINTFORM %CALLNAME:TARGET%將%CALLNAME:PLAYER%的阴茎
		IF RAND:2
			PRINTFORMW 被用%TEXTS("お尻：感触")%夹着撸动着…
		ELSE
			PRINTFORMW 被%TEXTS("お尻：視覚")%摩擦着…
		ENDIF
	ENDIF
ELSEIF SELECTCOM == PREVCOM
	PRINTFORM %CALLNAME:PLAYER%將%CALLNAME:TARGET%的%TEXTR(@"%TEXTS("お尻：視覚")%/%TEXTS("お尻：感触")%")%
	IF TALENT:小尻 == 0 && RAND:2
		PRINTFORMW 将阴茎夹住持续地进行腰振…
	ELSE
		PRINTFORMW %TEXTR("将阴茎持续地摩擦着/将阴茎持续地撸动着")%…
	ENDIF
ELSEIF PREVCOM == TNUM("扒開菊穴")
	PRINTFORM %CALLNAME:PLAYER%在%CALLNAME:TARGET%
	IF RAND:2
		PRINTFORMW 一边将%TEXTS("肛門")%菊穴向两边扳開、一边用%TEXTS("お尻：感触")%摩擦着阴茎…
	ELSE
		PRINTFORMW 保持着屁股想两边打開的姿势、用%TEXTS("肛門周辺")%摩擦着阴茎…
	ENDIF
ELSE
	PRINTFORM %CALLNAME:PLAYER%將%CALLNAME:TARGET%的
	IF CHECK_CLO("Ａ露出")
	;まずは贴身制服
	ELSEIF CHECK_CLO("贴身制服露出")
		PRINTFORM %BODYS(TARGET, "略")%\@ CHECK_CLO("Ｔ字褲臀圍") ? 吞入其中 # 包裹着的 \@
	ELSEIF CHECK_CLO("连褲襪露出") || CHECK_OUTER("布鲁马")
		PRINTFORM 被%OUTER(TARGET, "略")%包裹着的
	ELSEIF CHECK_CLO("外套露出")
		PRINTFORM %OUTER(TARGET, "略")%\@ CHECK_CLO("Ｔ字褲臀圍") ? 吞入其中 # 包裹着的 \@
	ELSEIF CHECK_CLO("胖次露出")
		PRINTFORM %PANTIES(TARGET)%\@ CHECK_CLO("Ｔ字褲臀圍") ? 吞入其中 # 包裹着的 \@
	ENDIF
	;長すぎる様なら"、"を前に着ける
	SIF STRLENSU(TEXT_ASS) >= 15 && CHECK_CLO("Ａ露出") == 0
		PRINTFORM 、
	PRINTFORM %TEXT_ASS%
	IF TALENT:小尻 == 0 && RAND:2 && CHECK_CLO("Ｔ字褲臀圍")
		PRINTFORMW 压在%TEXT_PENIS%上、用尻肉夹着開始了腰振…
	ELSEIF CLO("股間") != ""
		PRINTFORMW 摩擦起%TEXT_PENIS%…
	ELSE
		PRINTFORMW %TEXTR(@"摩擦着%TEXT_PENIS%/将%TEXT_PENIS%撸动着")%…
	ENDIF
ENDIF

@COM_ORDER_COM101, 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 -= 3
	LOCALS = %LOCALS% - 害羞(3)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 1
	LOCALS = %LOCALS% - 否定快感(1)
ENDIF

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

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

RETURN RESULT


code:
@COM102
;胸爱抚奉侍　内容的には手淫のマイナーチェンジ
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

;実行できない
SIF TCVAR:干劲 == 0
	RETURN 0

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

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM102, ARG
IF CHECK_COM("互相揉胸") == 102
	CALL FLAG_COM5, 50
ENDIF
;対象の指⇔調教者のＢ的污垢が移動
CALL EQ_STAIN, TARGET, "手", PLAYER, "Ｂ"

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

@SOURCE_COM102, ARG
IF CHECK_COM("互相揉胸") == 102
	CALL SOURCE_COM5, 50
ENDIF

CALL VARSET_COMF

CALL SOURCE_SERVICE_PLAY, "胸爱抚奉侍"

CALL SOURCE_DOWNBASE_HP, 90

SOURCE:0:不潔 = COM_ORDER_STAIN("Ｂ", "手")*20 + 60
SOURCE:0:欲情追加 = CALCF("実行値による欲情追加")
SOURCE:0:屈従 = 300
SOURCE:0:逸脱 = 100

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

@TRAIN_MESSAGE_COM102
;前回と同じ
IF PREVCOM == SELECTCOM && COND("前Ｔ調教者") == PLAYER
	PRINTFORM %CALLNAME:TARGET%
	;自尊心高いor施虐属性Lv4以上
	IF (TALENT:高慢 || ABL:施虐属性 >= 4) && RAND:2 == 0
		PRINTFORM 露出了嗜虐的表情
		IF TALENT:PLAYER:母乳体質
			PRINTFORM 揉搓着渗出白浊的乳頭的同时、
		ELSE
			PRINTFORM 一只手抓揉着乳頭的同时、
		ENDIF
	;恋慕持ち
	ELSEIF TALENT:恋慕 && PLAYER == MASTER
		IF TALENT:PLAYER:母乳体質
			PRINTFORM 爱抚着不断渗出乳汁的地方的同时、
		ELSE
			PRINTFORM 開心地微笑着并、
		ENDIF
	ENDIF
	IF (TALENT:PLAYER:貧乳 || TALENT:PLAYER:男性 || TALENT:PLAYER:伪娘)
		PRINTFORMW 来回抚摸着%CALLNAME:PLAYER%的柔软的乳房…
	ELSEIF ABL:奉仕精神 >= 3 && TEQUIP:面部騎乗 == 0 && RAND:3 == 0
		PRINTFORMW 按摩着%CALLNAME:PLAYER%的%TEXTS("胸部", PLAYER)%…
	ELSE
		PRINTFORMW 享受着%TEXTS("胸部", PLAYER)%的触感…
	ENDIF
ELSEIF CHECK_COM("互相揉胸")
	IF TALENT:PLAYER:男性 == 0 && TALENT:PLAYER:伪娘 == 0 && TALENT:TARGET:男性 == 0 && TALENT:TARGET:伪娘 == 0 && RAND:2 == 0
		PRINTFORMW %CALLNAME:PLAYER%和%CALLNAME:TARGET%相互揉搓对方的柔肉、贪食着胸部和手指的快感…
	ELSE
		PRINTFORM %CALLNAME:PLAYER%们
		IF RAND:2
			PRINTFORMW 沉醉在揉捏对方的胸部的快感中…
		ELSE
			PRINTFORMW 向对方的胸部伸出手指、分享着快感…
		ENDIF
	ENDIF
;被逆推ているとき
ELSEIF TEQUIP:推倒
	PRINTFORM %CALLNAME:TARGET%
	IF TEQUIP:面部騎乗
		PRINT 跨坐在臉頰上的同時、
	;自尊心高いor淫乱or施虐属性Lv4以上
	ELSEIF (TALENT:高慢 || TALENT:淫乱 || ABL:施虐属性 >= 4) && RAND:2 == 0
		PRINT 帶著愉快的微笑
	;小悪魔
	ELSEIF TALENT:小悪魔
		IF TALENT:PLAYER:母乳体質
			PRINT 露出坏心眼的笑容的同时
		ELSE
			PRINT 在臉上露出戲謔的壞笑的同時、
		ENDIF
	;淫乱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 %TEXTS("胸部", PLAYER)%を弄び、
	PRINTFORMW %CALLNAME:PLAYER%的反應盡情享受著……
;それ以外
ELSE
	PRINTFORM %CALLNAME:TARGET%
	;自尊心高いor淫乱or施虐属性Lv4以上
	IF (TALENT:高慢 || TALENT:淫乱 || ABL:施虐属性 >= 4) && RAND:2 == 0
		PRINT 一边用手指轻轻地抓挠乳頭
	;小悪魔
	ELSEIF TALENT:小悪魔
		PRINT 在臉上露出戲謔的壞笑的同時、
	ENDIF
	PRINTFORM %CALLNAME:PLAYER%の
	IF (TALENT:PLAYER:貧乳 || TALENT:PLAYER:男性 || TALENT:PLAYER:伪娘)
		PRINTFORMW 抚摸了胸部…
	ELSE
		PRINTFORMW %TEXTS("胸部", PLAYER)%を揉捏起来…
	ENDIF
ENDIF

@COM_ORDER_COM102, 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:施虐属性, 10) * 2
	LOCALS = %LOCALS% + 施虐属性LV{ABL:施虐属性}({MIN(ABL:施虐属性, 10) * 2})
ENDIF
;保守的
IF TALENT:保守的
	LOCAL -= 10
	LOCALS = %LOCALS% - 害羞(3)
ENDIF
;害羞
IF TALENT:害羞
	LOCAL -= 4
	LOCALS = %LOCALS% - 害羞(3)
ENDIF
;献身的
IF TALENT:献身
	LOCAL += 6
	LOCALS = %LOCALS% + 献身(6)
ENDIF
;小悪魔
IF TALENT:小悪魔
	LOCAL += 3
	LOCALS = %LOCALS% + 献身(6)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 1
	LOCALS = %LOCALS% - 否定快感(1)
ENDIF

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

RETURN RESULT

license: unknown


code:
@COM104
;洗面奶
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

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

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%
;-------------------------------------------------
;射精格子
;-------------------------------------------------
IF CHECK_COM("洗面奶手交")
	CALL SAMEN_CHECK, 70
	SELECTCOM = PREVCOM
	CALL SAMEN_CHECK, 50
	SELECTCOM = 104
ELSE
	CALL SAMEN_CHECK
ENDIF

RETURN 1

@FLAG_COM104, ARG
SIF CHECK_CLO("谷間露出") == 0 && CHECK_CLO("半脱可")
	CALL SETFLAG, "胸を半脱る", TARGET
SIF CHECK_COM("洗面奶手交") == 104
	CALL FLAG_COM90, 50
;対象のＢ⇔調教者の口的污垢が移動
SIF COND("喝母乳フラグ", PLAYER)
	CALL EQ_STAIN, TARGET, "Ｂ", PLAYER, "Ｍ"

@SOURCE_COM104, ARG
SIF CHECK_COM("洗面奶手交") == 104
	CALL SOURCE_COM90, 50
SIF COND("喝母乳フラグ", PLAYER)
	CALL SOURCE_COM5, 80

CALL VARSET_COMF

CALL SOURCE_SERVICE_PLAY, "洗面奶"

CALL SOURCE_DOWNBASE_HP, 104

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

;巨乳
SIF TALENT:巨乳
	SOURCE:0:逸脱 -= 200
;貧乳
SIF TALENT:貧乳
	SOURCE:0:逸脱 += 400

;ABL:Ｂ感覚をみる
SOURCE:0:Ｂ快楽 = CALCF("Ｂ刺激", 2, 80)

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

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

@TRAIN_MESSAGE_COM104
IF CHECK_COM("Ｗ奉仕")
	;二人とも前回と同じ行動
	IF SELECTCOM:1 == PREVCOM:1 && SELECTCOM == PREVCOM
		PRINTFORM 兩人
		IF TALENT:(TARGET:1):淫乱 + TALENT:(TARGET:1):恋慕 && TALENT:淫乱 + TALENT:恋慕 && RAND:3 == 0
			PRINTFORM 因口中的觸感與味道而陶醉的同時
		ELSEIF RAND:2 == 0
			PRINTFORM 如同耽溺在夢中一樣、用自己那
		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 == 0
			PRINTFORMW 像是在競爭一樣的將臉頰用乳房貼緊摩擦著……
		ELSEIF RAND:2 == 0
			PRINTFORMW 用兩人胸部的谷間將頭夾住壓迫起來……
		ELSE
			PRINTFORMW 相互協助的將臉頰用胸部夾住……
		ENDIF
	ENDIF
;同時推倒&連続
ELSEIF SELECTCOM == PREVCOM && SELECTCOM:1 >= 0 && TEQUIP:Ｗ推倒
	PRINTFORMW %CALLNAME:TARGET%和%CALLNAME:(TARGET:1)%在%CALLNAME:MASTER%的身上、貪婪地索取著快感……
;前回と同じ
ELSEIF PREVCOM == SELECTCOM && COND("前Ｔ調教者") == PLAYER
	PRINTFORM %CALLNAME:TARGET%將%CALLNAME:PLAYER%的
	IF TALENT:貧乳
		IF TEQUIP:推倒 && RAND:2
			PRINTFORMW 臉頰用單薄的胸部輕輕摩擦著……
		ELSE
			PRINTFORMW 頭顱深深抱入懷中、用貧乏的乳房時而貼近、時而放開……
		ENDIF
	ELSE
		IF TEQUIP:推倒 && RAND:2
			PRINTFORMW 臉頰用丰腴的乳房完全埋住……
		ELSE
			PRINTFORMW 頭顱深深抱入懷中、用豐腴柔軟的乳房將臉頰夾住……
		ENDIF
	ENDIF
ELSE
	PRINTFORM %CALLNAME:TARGET%
	IF CHECK_COM("洗面奶手交")
		IF PREVCOM == 97
			LOCALS = %CLO("内裤冲")%
			LOCALS:1 = %LOCALS%
		ELSE
			LOCALS = 手
			LOCALS:1 = 掌
		ENDIF
		IF TALENT:恋慕 && RAND:4 == 0
			PRINTFORM 將最愛的人的陰莖用%LOCALS%溫柔細緻地侍奉著的同時、
		ELSEIF ABL:技巧 >= 3 && ABL:奉仕精神 >= 3 && RAND:3 == 0
			PRINTFORM 將敏感的龜頭用%LOCALS:1%來回地揉搓旋轉著的同時、
		ELSEIF ABL:技巧 >= 3 && RAND:2 == 0
			PRINTFORM 將陰莖用絕妙的力道刺激著的同時、
		ELSEIF RAND:2 == 0
			PRINTFORM 將陰莖用%LOCALS%慢慢地擼動著的同時、
		ELSE
			PRINTFORM 將陰莖用%LOCALS%擼動著的同時、
		ENDIF
	;挿入中
	ELSEIF INSERT("合体中")
		PRINTFORM %TEXTS("合体中", TARGET)%
	ENDIF
	;助手が前回と同じ行動(違う行動の時は、ここでなく、EQUIP_COM32で記述)
	SIF TEQUIP:Ｗ推倒 && SELECTCOM:1 == PREVCOM:1 && SELECTCOM:1 >= 0
		PRINTFORM %TEXTS("Ｗ推倒中")%、

	PRINTFORM %CALLNAME:PLAYER%
	IF RAND:2 && TALENT:恋慕 && TEQUIP:推倒
		IF CHECK_COM("洗面奶手交")
			PRINTFORM 被緊緊抱在懷裡的臉頰
		ELSE
			PRINTFORM 被緊緊抱在懷裡的臉頰
		ENDIF
	ELSE
		PRINTFORM 的臉頰
	ENDIF
	IF TALENT:貧乳
		IF RAND:2 || CALCF("Ｂ発情") == 0
			PRINTFORM 被%TEXTR("小巧的乳房/貧乏的胸部/平坦的胸部")%
			IF TEQUIP:推倒 && RAND:2
				PRINTFORMW 輕輕擠壓著……
			ELSE
				PRINTFORMW 摩擦愛撫著……
			ENDIF
		ELSE
			PRINTFORMW 被%TEXTR("小巧的乳房/可愛的乳頭")%緊貼著摩擦起來……
		ENDIF
	ELSE
		IF TALENT:巨乳 && RAND:3
			PRINTFORM 被%TEXTR("洋溢著重量感的乳房/豊満的胸部/如成熟果實般彎墜的乳房")%
		ELSE
			PRINTFORM 被%TEXTR("柔軟的乳房/触感良好的乳房")%
		ENDIF
		;押し潰し
		IF TEQUIP:推倒 && RAND:2
			IF TALENT:巨乳 && RAND:2 == 0
				PRINTFORMW 的谷間將臉頰完全埋沒……
			ELSE
				PRINTFORMW 輕輕擠壓著……
			ENDIF
		ELSEIF TALENT:巨乳 && RAND:4 == 0
			PRINTFORMW 整個包裹著……
		ELSEIF RAND:3 == 0
			PRINTFORMW 摩擦愛撫著……
		ELSEIF RAND:2 == 0
			PRINTFORMW 溫柔地摩擦、揉搓著……
		ELSE
			PRINTFORMW 夾住……
		ENDIF
	ENDIF
ENDIF

;母乳体質とかだと母乳を飲めるかも
CALL TEXT, "喝母乳"

@COM_ORDER_COM104, ARG
VARSET LOCAL
LOCALS =

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

LOCAL = RESULT

;ABL:奉仕精神
IF ABL:奉仕精神
	LOCAL += MIN(ABL:奉仕精神, 10) * 2
	LOCALS = %LOCALS% + 奉仕精神LV{ABL:奉仕精神}({MIN(ABL:奉仕精神, 10) * 2})
ENDIF
;害羞
IF TALENT:害羞
	LOCAL -= 3
	LOCALS = %LOCALS% - 害羞(3)
ENDIF
;汚臭鈍感
IF TALENT:汚臭鈍感
	LOCAL += 1
	LOCALS = %LOCALS% + 汚臭鈍感(1)
ENDIF
;献身的
IF TALENT:献身
	LOCAL += 6
	LOCALS = %LOCALS% + 献身(6)
ENDIF
;Ｂ性向
IF TALENT:Ｂ性向
	LOCAL += 10
	LOCALS = %LOCALS% + Ｂ性向(10)
ENDIF

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

RETURN RESULT


code:
@COM105
;飞机杯冲
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

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

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM105, ARG

@SOURCE_COM105, ARG
CALL VARSET_COMF

CALL SOURCE_SERVICE_PLAY, "飞机杯冲"

CALL SOURCE_DOWNBASE_HP, 105

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

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

@TRAIN_MESSAGE_COM105
;前回と同じ
IF PREVCOM == SELECTCOM && COND("前Ｔ調教者") == PLAYER
	PRINTFORM %CALLNAME:TARGET%
	IF TEQUIP:接吻
		PRINTFORM %CALLNAME:PLAYER%%TEXTS("接吻継続助詞付き")%、
		CALL SETFLAG, "追加接吻フラグ", TARGET
	ELSEIF TEQUIP:面部騎乗
		PRINTFORM %CALLNAME:PLAYER%的臉頰用股間摩擦著、
	ELSEIF INSERT("合体中")
		PRINTFORM %TEXTS("合体中", TARGET)%
	ENDIF
	IF TALENT:恋慕 && TEQUIP:面部騎乗 == 0 && RAND:4 == 0
		PRINTFORMW 帶著愉快的笑容將%CALLNAME:PLAYER%挺立的陰莖細緻地用飛機杯持續擼動著……
	ELSEIF ABL:奉仕精神 >= 3 && TEQUIP:面部騎乗 + INSERT("合体中") == 0 && RAND:3 == 0
		PRINTFORMW 一邊凝視著%CALLNAME:PLAYER%恍惚的臉、一邊持續的用飛機杯擼動著陰莖……
	ELSEIF ABL:技巧 >= 3 && RAND:2 == 0
		PRINTFORMW 持續的用飛機杯擼動著陰莖、並熟練的調整頻率來延長快感……
	ELSE
		PRINTFORMW 入神的用飛機杯持續擼動著陰莖……
	ENDIF
;被逆推ているとき
ELSEIF TEQUIP:推倒
	PRINTFORM %CALLNAME:TARGET%
	IF TEQUIP:面部騎乗
		PRINT 跨坐在臉頰上的同時、
	;自尊心高い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
		PRINT 更加努力地侍奉著股間的
	ELSE
		PRINT 發出快樂而苦悶的哼聲的
	ENDIF
	PRINTFORMW %CALLNAME:PLAYER%的反應盡情享受著……
;それ以外
ELSE
	PRINTFORM %CALLNAME:TARGET%
	IF INSERT("合体中")
		PRINTFORM 将%TEXTS("合体中", TARGET)%%CALLNAME:PLAYER%的阴茎用飞机杯
	ELSEIF PALAM:PLAYER:Ｐ潤 < 3000
		PRINTFORM 用充分注入了黏稠的潤滑液的飛機杯、將%CALLNAME:PLAYER%的陰莖
	ELSEIF (PREVCOM >= 60 && PREVCOM <= 79) || INSERT("挿入")
		PRINTFORM 對被自己的害羞的淫液所浸透的%CALLNAME:PLAYER%的陰莖、用飛機杯
	ELSE
		PRINTFORM 對被黏液濡濕、閃爍著的%CALLNAME:PLAYER%的陰莖、用飛機杯
	ENDIF
	IF ABL:施虐属性 >= 3 && RAND:3 == 0
		PRINTFORM 套住後、用彷彿是想要捏斷一樣的大力
	ELSEIF TALENT:好奇心 && RAND:3 == 0
		PRINTFORM 套住後、在饒有興致的觀察著神態的同時、小心地
	ELSEIF MARK:屈服刻印 == 0 && TEQUIP:推倒 == 0 && RAND:3 == 0
		PRINTFORM 套住後、帶著相當複雜的表情
	ELSEIF RAND:3 == 0
		PRINTFORM 激烈地
	ELSEIF RAND:2 == 0
		PRINTFORM 噗嗤噗嗤地
	ELSE
		PRINTFORM 慢慢地、慢慢地
	ENDIF
	PRINTFORMW 擼動起來……
ENDIF

@COM_ORDER_COM105, ARG
VARSET LOCAL
LOCALS =

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

LOCAL = RESULT

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

;強気
IF TALENT:強気
	LOCAL += 10
	LOCALS = %LOCALS% + 強気(10)
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 COM_ORDER_STAIN("Ｐ", "")/5
	LOCAL -= COM_ORDER_STAIN("Ｐ", "")/5
	LOCALS = %LOCALS% - 汚れ有
	;汚臭鈍感
	SIF TALENT:汚臭鈍感 || TALENT:汚臭敏感
		LOCALS = %LOCALS%、\@TALENT:汚臭鈍感 ? 汚臭鈍感 # 汚臭敏感\@
	SIF COND("陶酔")
		LOCALS = %LOCALS%、陶酔で半減
	LOCALS = %LOCALS%({COM_ORDER_STAIN("Ｐ", "")/5})
ENDIF

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

RETURN RESULT


code:
@COM106
;逆振動棒
;PLAYER側が振動棒で楽しむ指令。通常の振動棒指令とは違い、入れっぱ无にはしない。
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

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

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%
;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@TRAIN_MESSAGE_COM106
;振動棒選択
CALL SELECT_VIB, PLAYER

SIF REFUSE_CHECK()
	RETURN 0

IF PREVCOM == SELECTCOM && COND("前Ｔ調教者") == PLAYER
	PRINTFORM %CALLNAME:TARGET%將強硬地貫穿了%CALLNAME:PLAYER%陰部、劇烈震動著的
	IF SIZE("振動棒", PLAYER) >= 3
		PRINT 兇惡的
	ELSEIF SIZE("振動棒", PLAYER) == 2
		PRINT 粗大的
	ENDIF
	PRINTW 振動棒不斷激烈地翻攪著、衝擊著膣道的深處……
	RETURN 1
ENDIF

PRINTFORM %CALLNAME:TARGET%
IF TEQUIP:振動棒 && SIZE("振動棒", PLAYER) > SIZE("振動棒", TARGET)
	IF RAND:2
		PRINT 與自己的身體所吞嚥著的玩具相比
	ELSE
		PRINT 與在自己的膣道中來回翻攪著的玩具相比
	ENDIF
	SIF SIZE("振動棒", PLAYER) > SIZE("振動棒", TARGET) + 1
		PRINT 大小差距遙遠的
	SIF SIZE("振動棒", PLAYER) >= 3
		PRINT 兇惡的
ELSEIF SIZE("振動棒", PLAYER) >= 2 && RAND:2
	IF RAND:2
		PRINT 準備有碩大龜頭的
	ELSE
		PRINT 沉重的
	ENDIF
ELSEIF RAND:2
	IF RAND:2
		PRINT 被各種汁液塗滿的
	ELSE
		PRINT 被潤滑液充分準備過的
	ENDIF
ELSE
	IF PLAYER == MASTER && ASSI && RAND:2
		PRINTFORM 被%CALLNAME:ASSI%當面交過來的
	ELSE
		PRINT 潤滑完畢的
	ENDIF
ENDIF
IF SIZE("振動棒", PLAYER) >= 3
	PRINT 兇惡的
ELSEIF SIZE("振動棒", PLAYER) == 2
	PRINT 粗大的
ENDIF
PRINT 振動棒、向
IF (TALENT:恋慕 || TALENT:PLAYER:好色) && RAND:2
	PRINT 大張著雙腿、期待地搖晃著尻部的
ELSE
	PRINT 毫無防備的清楚展示著下體的
ENDIF
PRINTFORM %CALLNAME:PLAYER%の
IF COND("陰毛", PLAYER) && COND("陰毛", PLAYER) <= 3 && RAND:3 == 0
	PRINT 剝殼雞蛋一樣光潔的
ELSEIF TALENT:PLAYER:娇小 && RAND:3 == 0
	PRINT 幼嫩的
ELSEIF RAND:2
	PRINT 被愛液浸濕的
ENDIF
PRINT 阴部に
IF ABL:施虐属性 >= 3 && RAND:3 == 0
	PRINT 用力旋轉著的同時、
ELSEIF ABL:PLAYER:Ｖ拡張 >= SIZE("振動棒", PLAYER) && RAND:2
	IF ABL:PLAYER:Ｖ拡張 > SIZE("振動棒", PLAYER) && RAND:2
		PRINT 完全沒有感覺到抵抗地
	ELSEIF RAND:2 == 0
		PRINT 一口気
	ELSE
		PRINT 深深地
	ENDIF
	SIF ABL:PLAYER:Ｖ拡張 > SIZE("振動棒", PLAYER) && RAND:2
		PRINT 直達根部地
ELSEIF RAND:2
	PRINT 用頂端摩擦著每一寸肉襞的同時、
ELSE
	PRINT 溫柔緩慢地
ENDIF
IF ABL:PLAYER:Ｖ拡張 >= SIZE("振動棒", PLAYER) && RAND:3 == 0
	IF RAND:2
		PRINTW 壓入其中。
	ELSE
		PRINTW 刺入其中。
	ENDIF
ELSEIF RAND:2
	PRINTW 埋入體內。
ELSE
	PRINTW 挿入其中。
ENDIF

LOCAL = RAND:2

IF LOCAL == 0
ELSEIF ABL:施虐属性 >= 3 && RAND:3 == 0
	PRINT 用激烈的氣勢大力地
ELSEIF ABL:技巧 >= 3 && RAND:3 == 0
	PRINT 靈活調整節奏地
ELSEIF RAND:2
	PRINT 不斷變化頂戳位置地
ELSE
	PRINT 溫柔緩慢地
ENDIF
IF (ABL:技巧 >= 4 || ABL:施虐属性 >= 3) && RAND:3 == 0
	IF LOCAL == 0 && RAND:2 == 0
		PRINT 毫不留情地
	ELSEIF SIZE("振動棒", PLAYER) >= 2
		PRINT 直到膣道頂端地
	ENDIF
	PRINT 敲打著體內的
ELSEIF RAND:2
	PRINT 抽插著的
ELSE
	PRINT 翻攪著膣壁的
ENDIF
PRINT 振動棒
IF LOCAL
	PRINT 讓
ELSEIF SIZE("振動棒", PLAYER) >= 2 && RAND:3 == 0
	IF RAND:2 && ABL:PLAYER:Ｖ拡張 <= SIZE("振動棒", PLAYER)
		PRINT 那足以將膣道毀滅性擴張的粗細讓
	ELSE
		PRINT 將膣道不斷擴張的感覺讓
	ENDIF
ELSEIF (ABL:PLAYER:Ｖ拡張 < SIZE("振動棒", PLAYER) && ABL:施虐属性 >= 3) || (SIZE("振動棒", PLAYER) >= 3 && RAND:3 == 0)
	PRINT 兇暴的開闢讓
ELSEIF RAND:3 == 0
	PRINT 格外刺激粘膜的蠢動讓
ELSEIF RAND:2
	PRINT 所傳遞的劇烈快樂讓
ELSE
	PRINT 所傳來的令人心馳神往的快感讓
ENDIF
PRINTFORM %CALLNAME:PLAYER%
IF ABL:PLAYER:Ｖ拡張 >= SIZE("振動棒", PLAYER) && EXP:PLAYER:Ｖ経験 >= EXP_LV(SIZE("振動棒", PLAYER) + 1) && RAND:3 == 0
	IF (TALENT:恋慕 || TALENT:PLAYER:好色) && RAND:2
		PRINT 全身心地投入快乐之中、大張著雙腿迎合著振動棒的抽插。
	ELSEIF RAND:2
		PRINT 愈發興奮、黏稠的愛液隨著振動棒的攪拌而浮起了白沫。
	ELSE
		PRINT 神志恍惚、唇角無意識的流下涎水。
	ENDIF
ELSEIF ABL:PLAYER:Ｖ拡張 < SIZE("振動棒", PLAYER) && ABL:施虐属性 >= 3
	PRINT 無法抑制的顫抖著身體、因劇烈的擴張所帶來的劇痛而泫然欲泣。
	LOCAL = 2
ELSEIF RAND:3 == 0
	PRINT 放縱的呻吟起來、推舉著腰肢配合著抽動。
ELSEIF RAND:2
	PRINT 的身體劇烈地痙攣起來。
ELSE
	PRINT 無法抑制的漏出甘美的喘息。
ENDIF
PRINTFORM 观察情况
IF RAND:2
	PRINT 俯瞰著的同時、
ELSE
	PRINT 凝视着的同時、
ENDIF
PRINTFORM %CALLNAME:TARGET%
IF LOCAL == 2
	PRINTW 完全沉浸在蹂躪他人所帶來的施虐快感之中……
ELSEIF TALENT:聰慧 && RANDIF(3, TALENT:小悪魔 + TALENT:開朗, TALENT:坏心眼)
	PRINTW 用靈巧的話術輕聲呵斥著……
ELSEIF TALENT:坏心眼 && RANDIF(3, TALENT:小悪魔 + TALENT:開朗)
	IF ABL:PLAYER:Ｖ拡張 >= 3
		PRINT 因被充分開發的膣道
	ELSE
		PRINT 因那淫靡下流的模樣
	ENDIF
	PRINTW 而惡趣味的微笑起來……
;開朗
ELSEIF TALENT:開朗 + TALENT:小悪魔 && RANDIF(3, TALENT:小悪魔)
	SIF TALENT:小悪魔
		PRINT 無聲的視奸著的同時、
	PRINTW 露出了愉快的淺笑……
ELSEIF ABL:施虐属性 >= 3 && RAND:3 == 0
	IF SIZE("振動棒", PLAYER) >= 2 && RAND:2
		PRINTW 用粗大的振動棒持續蹂躪著濕潤的膣穴……
	ELSE
		PRINTW 假装出擔心的模樣、輕聲的責罵著……
	ENDIF
ELSE
	;IF RAND:2
	;	PRINT 愛撫も交えながら
	;ELSE
	;	PRINT 動きを変えたりしながら
	;ENDIF
	IF ABL:欲望 >= 3 && SIZE("振動棒", PLAYER) >= 2 && RANDIF(2, ABL:施虐属性 >= 3, ABL:技巧 >= 3, ABL:奉仕精神 >= 3)
		PRINTW 撫摸著不斷搖晃著的下腹部、感受著在子宮中暴動的振動棒所傳來的激烈震感……
	ELSEIF ABL:奉仕精神 >= 3 && RANDIF(2, ABL:施虐属性 >= 3, ABL:技巧 >= 3)
		PRINTW 更加專注於給予更多快樂的侍奉行為之中……
	ELSEIF ABL:技巧 >= 3 && RANDIF(2, ABL:施虐属性 >= 3)
		PRINTW 更加靈巧地刺激著膣道的深處……
	ELSEIF ABL:施虐属性 >= 3 && RAND:2
		PRINTW 更加享受地蹂躪著整個膣穴……
	ELSE
		PRINTW 將侍奉行為持續下去……
	ENDIF
ENDIF

@FLAG_COM106, ARG
IF TALENT:PLAYER:処女
	CALL SETFLAG, "処女喪失フラグ", PLAYER
	CALL SETFLAG, "処女簒奪フラグ", TARGET
ENDIF

@SOURCE_COM106, ARG
CALL VARSET_COMF

CALL SOURCE_SERVICE_PLAY, "逆振動棒"

CALL SOURCE_DOWNBASE_HP, 106

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

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

@COM_ORDER_COM106, ARG
VARSET LOCAL
LOCALS =

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

LOCAL = RESULT

;ABL:奉仕精神
IF ABL:奉仕精神
	LOCAL += MIN(ABL:奉仕精神, 10) * 2
	LOCALS = %LOCALS% + 奉仕精神LV{ABL:奉仕精神}({MIN(ABL:奉仕精神, 10) * 2})
ENDIF
;ABL:施虐属性
IF ABL:施虐属性
	LOCAL += MIN(ABL:施虐属性, 5) * 5
	LOCALS = %LOCALS% + 施虐属性LV{ABL:施虐属性}({MIN(ABL:施虐属性, 5) * 5})
ENDIF
;献身的
IF TALENT:献身
	LOCAL += 6
	LOCALS = %LOCALS% + 献身(6)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 1
	LOCALS = %LOCALS% - 否定快感(1)
ENDIF
;男性
IF TALENT:男性
	LOCAL += 20
	LOCALS = %LOCALS% + 男性(20)
ENDIF

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

RETURN RESULT


code:
@COM107
;逆Ａ振動棒
;PLAYER側が振動棒で楽しむ指令。通常の振動棒指令とは違い、入れっぱ无にはしない。
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

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

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@TRAIN_MESSAGE_COM107
;振動棒選択
CALL SELECT_VIB_A, PLAYER

SIF REFUSE_CHECK()
	RETURN 0

PRINTFORM %CALLNAME:TARGET%對準%CALLNAME:PLAYER%的肛門、將
SELECTCASE SIZE("Ａ振動棒", PLAYER)
CASE IS >= 3
	PRINT 極大振動棒
CASE 2
	PRINT 大型振動棒
CASE 1
	PRINT 振動棒
CASE 0
	PRINT 肛門振動棒
ENDSELECT
IF PREVCOM == SELECTCOM && COND("前Ｔ調教者") == PLAYER
	PRINTW 繼續來回抽插、翻攪著……
ELSE
	PRINTW 來回地抽插、翻攪著……
ENDIF

@FLAG_COM107, ARG

@SOURCE_COM107, ARG
CALL VARSET_COMF

CALL SOURCE_SERVICE_PLAY, "逆Ａ振動棒"

CALL SOURCE_DOWNBASE_HP, 107

SOURCE:0:情愛 = 500
SOURCE:0:不潔 = 1000
SOURCE:0:欲情追加 = CALCF("実行値による欲情追加")
SOURCE:0:逸脱 = 1500

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

@COM_ORDER_COM107, ARG
VARSET LOCAL
LOCALS =

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

LOCAL = RESULT

;ABL:奉仕精神
IF ABL:奉仕精神
	LOCAL += MIN(ABL:奉仕精神, 10) * 2
	LOCALS = %LOCALS% + 奉仕精神LV{ABL:奉仕精神}({MIN(ABL:奉仕精神, 10) * 2})
ENDIF
;ABL:施虐属性
IF ABL:施虐属性
	LOCAL += MIN(ABL:施虐属性, 5) * 5
	LOCALS = %LOCALS% + 施虐属性LV{ABL:施虐属性}({MIN(ABL:施虐属性, 5) * 5})
ENDIF
;献身的
IF TALENT:献身
	LOCAL += 6
	LOCALS = %LOCALS% + 献身(6)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 1
	LOCALS = %LOCALS% - 否定快感(1)
ENDIF

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

RETURN RESULT


code:
@COM10
;手淫
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

;-------------------------------------------------
;射精格子
;-------------------------------------------------
IF CHECK_COM("手交しあう")
	SELECTCOM = 90
	CALL SAMEN_CHECK, 70
	SELECTCOM = 10
ELSEIF INSERT("尿道挿入", TARGET, PLAYER)
	CALL SAMEN_CHECK
ENDIF

RETURN 1

@FLAG_COM10, ARG
SIF CHECK_COM("手交しあう") == 10
	CALL FLAG_COM90, 50
;調教者の指⇔対象のＰ的污垢が移動
CALL EQ_STAIN, TARGET, "Ｐ", PLAYER, "手"

@SOURCE_COM10, ARG
SIF CHECK_COM("手交しあう") == 10
	CALL SOURCE_COM90, 50

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 10

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

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

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

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

@TRAIN_MESSAGE_COM10
IF SELECTCOM == PREVCOM && COND("前Ｔ調教者") == PLAYER
	PRINTFORM %CALLNAME:PLAYER%将
	IF INSERT("合体中")
		PRINTFORM %TEXTS("合体中", PLAYER)%將%CALLNAME:TARGET%的阴茎
	ELSEIF TEQUIP:接吻
		PRINTFORM 將%CALLNAME:TARGET%的阴茎、%TEXTS("接吻継続")%
	ELSE
		PRINTFORM 將%CALLNAME:TARGET%的阴茎
	ENDIF
	IF PREVEX("射精")
		PRINTFORMW 就像是要将尿道中残留的精液一滴不剩地全部榨出来一样%TEXTR("紧紧地握着/滋噜滋噜地/来回用力地撸动着")%进行了处理…
	ELSEIF RAND:2
		PRINTFORMW 繼續時快時慢的%TEXTR("來回撫摸著/輕輕摩挲著")%……
	ELSE
		PRINTFORMW 持續%TEXTR("細緻而激烈地/用沾滿前列液的手有節奏地")%擼動著……
	ENDIF
ELSEIF CHECK_COM("手交しあう")
	PRINTFORM %CALLNAME:PLAYER%達は
	SIF TEQUIP:接吻
		PRINTFORM 、%TEXTS("接吻継続")%
	PRINTFORM 互相的阴茎
	IF RAND:2
		PRINTFORMW 繼續時快時慢的%TEXTR("來回撫摸著/輕輕摩挲著")%……
	ELSE
		PRINTFORMW 持續%TEXTR("細緻而激烈地/用沾滿前列液的手有節奏地")%擼動著……
	ENDIF
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
	IF PREVEX("前列腺高潮射精")
		PRINTFORM 将%TEXTR("沉浸在前列腺高潮射精中的/因为前列腺高潮射精而露出痴迷的表情的/一边进行着前列腺高潮射精一边小小地颤抖着身体的")%%CALLNAME:TARGET%的不断摇晃颤抖的阴茎、
	ELSEIF TEQUIP:六九式
		PRINTFORM %TEXTS("６９")%將%CALLNAME:TARGET%的阴茎
	ELSEIF INSERT("合体中")
		;尿道挿入中
		IF INSERT("尿道挿入", TARGET, PLAYER)
			PRINTFORM 將%CALLNAME:TARGET%的阴茎緩緩插入充分潤滑過的飛機杯後、
		ELSE
			PRINTFORM %TEXTS("合体中", PLAYER)%將%CALLNAME:TARGET%的阴茎
		ENDIF
	ELSEIF TEQUIP:接吻
		PRINTFORM %TEXTS("接吻継続")%、将%CALLNAME:TARGET%的阴茎
	ELSE
		PRINTFORM 將%CALLNAME:TARGET%的%TEXTS("阴茎：視覚", TARGET)%阴茎
	ENDIF
	IF PREVEX("射精")
		PRINTFORMW 就像是要将尿道中残留的精液一滴不剩地全部榨出来一样%TEXTR("紧紧地握着/滋噜滋噜地/来回用力地撸动着")%进行了处理…
	ELSEIF TEQUIP:六九式 == 0 && INSERT("合体中") == 0 && TEQUIP:接吻 == 0 && RAND:4 == 0
		PRINTFORMW 一邊仔細地觀察著神情調節動作一邊%TEXTR("來回撫摸著/輕輕摩挲著/溫柔擼動著")%……
	ELSEIF RAND:4 == 0 && TEQUIP:接吻 == 0
		PRINTFORMW 一邊調節著服侍的速率一邊%TEXTR("來回撫摸著/輕輕摩挲著/溫柔擼動著")%……
	ELSEIF RAND:3 == 0 && TEQUIP:接吻 == 0
		PRINTFORMW 一邊用手指輕輕握住莖身一邊%TEXTR("來回撫摸著/輕輕摩挲著/溫柔擼動著")%……
	ELSE
		PRINTFORMW %TEXTR("細緻而激烈地/用沾滿前列液的手有節奏地/来回长长地")%擼動著…
	ENDIF
ENDIF

SIF TEQUIP:接吻
	CALL SETFLAG, "追加接吻フラグ", TARGET


code:
@COM11
;给对方乳交
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM11, ARG
;対象のＰ⇔調教者の胸的污垢が移動
CALL EQ_STAIN, TARGET, "Ｐ", PLAYER, "Ｂ"

@SOURCE_COM11, ARG
CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 11

SOURCE:0:情愛 = 1000
SOURCE:0:達成感 = 1000
SOURCE:0:露出 = 220
SOURCE:0:逸脱 = 50

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

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

@TRAIN_MESSAGE_COM11
IF PREVCOM == SELECTCOM
	IF TEQUIP:推倒
		PRINTFORMW %CALLNAME:TARGET%盡情的享受著%CALLNAME:PLAYER%的%TEXTS("胸部", PLAYER)%……
	ELSE
		PRINTFORMW %CALLNAME:PLAYER%繼續著對%CALLNAME:TARGET%的乳交侍奉……
	ENDIF
ELSE
	IF TEQUIP:推倒
		PRINTFORM %CALLNAME:TARGET%用像是在騎馬一樣的姿勢、
		IF RAND:2
			PRINTFORM 將自己的陰莖
		ELSE
			PRINTFORM 將%TEXTS("阴茎：視覚", TARGET)%陰莖
		ENDIF
		PRINTFORM 用%CALLNAME:PLAYER%的%TEXTS("胸部", PLAYER)%夾住、
		IF RAND:2
			PRINTFORMW 開始侵犯胸前的山谷……
		ELSE
			PRINTFORMW 挺動腰肢、開始享受乳交……
		ENDIF
	;それ以外
	ELSE
		PRINTFORM %CALLNAME:PLAYER%用%TEXTS("胸部", PLAYER)%將%CALLNAME:TARGET%那%TEXTS("阴茎：視覚", TARGET)%陰莖
		IF TALENT:PLAYER:巨乳 && RAND:2
			PRINT 整個包裹住、
		ELSEIF TALENT:PLAYER:貧乳 == 0 && RAND:2
			PRINT 輕輕夾住、
		ENDIF
		PRINTFORMW 開始摩擦起來……
	ENDIF
ENDIF


code:
@COM120
;正常位奉仕
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

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

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%
;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM120, ARG
CALL FLAG_INSERTION, "Ｖ逆挿入", ARG, 100

@SOURCE_COM120, ARG
CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 120

SOURCE:0:情愛 = 1800
SOURCE:0:性行動 = 1400
SOURCE:0:達成感 = 800

SOURCE:0:情愛 += CALCF("実行値による欲情追加")

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

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

@TRAIN_MESSAGE_COM120
CALL SETFLAG, "下半身を脱がす", PLAYER
CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
;同時推倒
IF TEQUIP:Ｗ推倒
	;二穴挿入
	IF TRAIN_GENRE("Ａ逆挿入", SELECTCOM:1)
		;二人とも前回と同じ行動
		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 如同完全沉浸於快感一樣無意識的漏出涎水的同時
			ELSE
				PRINT 好像很開心
			ENDIF
			PRINTFORMW 持續侵犯著%CALLNAME:MASTER%前後的淫穴……！
		;助手が前回と同じ行動
		ELSEIF SELECTCOM:1 == PREVCOM:1
			PRINTFORM %CALLNAME:TARGET%在%CALLNAME:(TARGET:1)%粗暴地蹂躪著腸道的時候、將%CALLNAME:MASTER%微微痙攣的雙腿用腰肢隔開、將
			IF TALENT:MASTER:処女
				PRINT 不识男人滋味的
			ELSE
				PRINT 被雌性汁液充分濡濕的
			ENDIF
			IF TALENT:PLAYER:娇小
				PRINT 用幼小裂缝
			ELSE
				PRINT 阴道
			ENDIF
			;假阳具
			IF PENIS(TARGET) == 0
				IF ABL:施虐属性 >= 5
					PRINTFORM 兇惡的
				ELSEIF ABL:施虐属性 >= 3
					IF TALENT:MASTER:扶她 || TALENT:MASTER:男性
						PRINTFORM 比%CALLNAME:MASTER%更加粗壯的
					ELSE
						PRINTFORM 粗壯的
					ENDIF
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINT 堅挺的立起的
				ELSEIF RAND:2 == 0 && TEQUIP:眼罩 == 0
					PRINT 堅硬的勃起的
				ELSE
					PRINT 不斷脈動的
				ENDIF
			ENDIF
			PRINTFORM %NAMES("阴茎")%、
			IF ABL:施虐属性 >= 3 && RAND:3 == 0
				PRINT 好像很開心
			ELSEIF ABL:施虐属性 && RAND:2 == 0
				PRINT 像是在享受痛苦的反應一樣粗暴地
			ELSEIF ABL:欲望 >= 3 && RAND:2 == 0
				PRINT 深深地
			ENDIF
			PRINTFORMW 侵犯起來……！
		;役割交換
		ELSEIF TRAIN_GENRE("Ｖ逆挿入", PREVCOM:1)
			PRINTFORMW %CALLNAME:TARGET%和%CALLNAME:(TARGET:1)%一齊拔出陰莖、將%CALLNAME:MASTER%癱軟的身體翻過來後、又開始享受被另一個人開闢過的濕軟淫穴……！
		ELSE
			PRINTFORM %CALLNAME:TARGET%和%CALLNAME:(TARGET:1)%
			IF RAND:2 == 0
				PRINTFORM 像是在競爭誰更能給予快樂一樣激烈地
			ELSE
				PRINTFORM 為了給予更多快樂而配合的
			ENDIF
			PRINTFORMW 侵犯著%CALLNAME:MASTER%前後的淫穴……！
		ENDIF
	ELSE
		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
	ENDIF
ELSEIF TEQUIP:推倒
	IF PREVCOM == SELECTCOM && COND("前Ｔ調教者") == PLAYER
		PRINTFORM %CALLNAME:TARGET%向%CALLNAME:PLAYER%
		IF TEQUIP:接吻
			PRINTFORM %TEXTS("接吻継続助詞付き")%、呼吸絮亂的
			CALL SETFLAG, "追加接吻フラグ", TARGET
		ELSEIF ABL:技巧 >= 4 && STATE("超短", TARGET) && RAND:2 == 0
			PRINTFORM 的膣道的最深處開闢並摳挖著的同時、恍惚而投入地
		ELSEIF ABL:技巧 >= 3 && RAND:2 == 0
			PRINTFORM 的Ｇ點當做重點目標反復摩擦著的同時、完全忽視對方感覺地
		ELSE
			PRINTFORM 的膣道所帶來的快樂完全沉浸其中的同時、恍惚地
		ENDIF
		PRINTFORMW 持續侵犯起來……
	ELSE
		PRINTFORM %CALLNAME:TARGET%
		SIF ABL:施虐属性 >= 3
			PRINTFORM 浮現出嗜虐的邪笑、
		;假阳具
		IF PENIS(TARGET) == 0
			IF TRAIN_GENRE("Ａ逆挿入", PREVCOM)
				PRINTFORM 用被肛門中的渾濁污液弄髒的
			ELSEIF ABL:施虐属性 >= 5
				PRINTFORM 兇惡的
			ELSEIF ABL:施虐属性 >= 3
				IF TALENT:MASTER:扶她 || TALENT:MASTER:男性
					PRINTFORM 比%CALLNAME:MASTER%更加粗壯的
				ELSE
					PRINTFORM 粗壯的
				ENDIF
			ENDIF
		ELSE
			IF TRAIN_GENRE("Ａ逆挿入", PREVCOM)
				PRINTFORM 用被肛門中的渾濁污液弄髒的
			ELSEIF RAND:3 == 0
				PRINT 堅挺的立起的
			ELSEIF RAND:2 == 0 && TEQUIP:眼罩 == 0
				PRINT 堅硬的勃起的
			ELSE
				PRINT 不斷脈動的
			ENDIF
		ENDIF
		PRINTFORM %NAMES("阴茎")%將%CALLNAME:PLAYER%的
		IF TALENT:PLAYER:処女
			PRINT 不识男人滋味的
		ELSE
			PRINT 被雌性汁液充分濡濕的
		ENDIF
		IF TALENT:PLAYER:娇小
			PRINT 用幼小裂缝
		ELSE
			PRINT 阴道
		ENDIF
		IF ABL:施虐属性 >= 3 && RAND:3 == 0
			PRINT 好像很開心
		ELSEIF ABL:施虐属性 && RAND:2 == 0
			PRINT 像是在享受痛苦的反應一樣粗暴地
		ELSEIF ABL:欲望 >= 3 && RAND:2 == 0
			PRINT 深深地
		ENDIF
		IF ABL:施虐属性 >= 5 && RAND:2 == 0
			PRINTFORMW 蹂躪、凌辱著……
		ELSE
			PRINTFORMW 侵犯起來……
		ENDIF
	ENDIF
;前回と今回の調教者が同じで、前回の調教が正常位、逆強姦で有、不拔出フラグがある場合
ELSEIF INSERT("Ｖ正常位", PLAYER) && COND("前Ｔ調教者") == PLAYER
	PRINTFORM %CALLNAME:TARGET%
	;恋慕で追加
	IF (TALENT:恋慕 && RAND:3 == 0) || TEQUIP:接吻
		PRINTFORM %TEXTS("接吻継続")%
		CALL SETFLAG, "追加接吻フラグ", TARGET
	ENDIF
	;「TARGETが真性の施虐狂か」「施虐属性持ちか」で分岐
	IF ABL:技巧 >= 4 && EXP:腰靈活経験 + ABL:腰靈活*10 >= 50 && RAND:4 == 0
		PRINTFORM 子宮用陰莖強行插入、將子宮口當成套在龜頭上的圓環一樣地
	ELSEIF ABL:技巧 >= 3 && EXP:腰靈活経験 + ABL:腰靈活*10 >= 30 && RAND:3 == 0
		PRINTFORM Ｇ点用阴茎的顶端抵住之后就像是在捣药一様冲撞并反复研磨起来地
	ELSEIF RAND:2 == 0
		PRINTFORM 各處敏感點特意避開、像是在享受渴求快樂的焦躁神情一樣地
	ELSE
		PRINTFORM 阴道道的最深處像是打樁機一樣毫不留情、從不間歇地
	ENDIF
	PRINTFORMW 持續擺動腰肢、從%CALLNAME:PLAYER%的身體中索取著快樂……
;同様に前回の調教が後背位か騎乗位の場合
ELSEIF INSERT("Ｖ挿入", PLAYER) && COND("前Ｔ調教者") == PLAYER
	PRINTFORMW %CALLNAME:TARGET%依然在不斷侵犯%CALLNAME:PLAYER%的膣穴、併命令%CALLNAME:PLAYER%仰面躺下、用壓在身體上的姿勢猛烈地撞擊著膣穴的最頂端……
ELSEIF INSERT("Ａ挿入", PLAYER) && COND("前Ｔ調教者") == PLAYER
	PRINTFORMW %CALLNAME:TARGET%將在%CALLNAME:PLAYER%的腸道中不斷衝刺的陰莖拔出、又立刻插進了愛液四溢的膣道中、再次以面對面相互擁抱的姿勢侵犯著膣道的深處……
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
	;腰つきだし
	IF ABL:PLAYER:欲望 + ABL:PLAYER:Ｖ感覚 + TALENT:PLAYER:淫乱 >= 8 && RAND:3 == 0
		SIF TEQUIP:推倒
			PRINT 仰面躺下、
		IF TALENT:PLAYER:淫乱 && RAND:3 == 0
			PRINTFORM 用雙腳將%CALLNAME:TARGET%的頭勾住並慢慢拉近、
		ELSEIF RAND:2 == 0
			PRINTFORM 用%NAMES("両腕", PLAYER)%將大腿抓住並將股間拉得更開、
		ELSE
			PRINTFORM 為了能讓%CALLNAME:TARGET%清楚的看見而突出腰部、
		ENDIF
	;大開脚
	ELSEIF ABL:PLAYER:欲望 + ABL:PLAYER:Ｖ感覚 + TALENT:PLAYER:淫乱 >= 5 && RAND:2 == 0
		IF RAND:2 == 0
			PRINTFORM 朝著%CALLNAME:TARGET%的方向誇張地張開雙腿、
		ELSEIF TEQUIP:浴室PLAY
			PRINTFORM 倚靠在浴盆邊緣將雙腿誇張地張開、
		ELSEIF TEQUIP:室内露出PLAY || TEQUIP:野外PLAY
			PRINTFORM 蹲坐在地上將雙腿誇張地張開、
		ELSE
			PRINTFORM 坐在床上將雙腿誇張地張開、
		ENDIF
	;開脚
	ELSE
		SIF TEQUIP:推倒
			PRINT 保持著被逆推的姿勢、
		IF TALENT:PLAYER:不知羞恥 && RAND:2 == 0
			PRINTFORM 、毫不猶豫地張開雙腿、將
		ELSEIF (TALENT:PLAYER:内気 || TALENT:PLAYER:坦率 || TALENT:PLAYER:害羞) && RAND:2 == 0
			PRINTFORM 、怯生生地將雙腿左右分開、將
		ELSE
			PRINTFORM 乖巧順從地張開雙腿、
		ENDIF
	ENDIF
	IF TEQUIP:眼罩 == 0
		;「害羞」で「内気」でない
		IF TALENT:PLAYER:害羞 && TALENT:PLAYER:内気 == 0 && RAND:3 == 0
			PRINT 臉頰帶著羞澀的紅暈的同時、
		;「小悪魔」で随机1/2
		ELSEIF TALENT:PLAYER:小悪魔 && RAND:2 == 0
			PRINT 在臉上露出戲謔的壞笑的同時、
		ELSEIF RAND:2 == 0
			PRINT 微笑着一邊
		;叛逆かつ淫乱
		ELSEIF TALENT:PLAYER:叛逆 && TALENT:PLAYER:淫乱 && RAND:2 == 0
			PRINT 偏過頭、臉頰被羞恥染紅的同時、
		;淫乱or欲情3000以上
		ELSEIF (TALENT:PLAYER:淫乱 || PALAM:欲情 >= 3000) && RAND:4 > 0
			PRINT 一邊妖艶的微笑著一邊
		ELSEIF TALENT:恋慕
			PRINTFORM 將%CALLNAME:TARGET%佈滿快樂的臉頰用不住上翻的眼珠仰視著同時、
		ENDIF
	ENDIF
	IF RAND:2 == 0
		PRINTFORMW 将%TEXTS("阴部：視覚", PLAYER)%撥開、死乞白賴的懇求著。
	ELSE
		PRINTFORMW 邀请著%CALLNAME:TARGET%的侵犯。
	ENDIF
	PRINTFORM %CALLNAME:TARGET%欣然響應邀請、
	IF TALENT:PLAYER:処女 == 1
		PRINTFORMW 將%CALLNAME:PLAYER%從沒有接受過其他男性的処女雌穴用%NAMES("阴茎")%毫不留情的貫穿了……
	ELSE
		PRINTFORM %CALLNAME:PLAYER%
		SIF TALENT:恋慕
			PRINT 在用心醉的眼神注視著恍惚的面孔的同時、
		PRINTFORMW 用期待已久的膣穴接下了%NAMES("阴茎")%、開始揮舞腰肢…
	ENDIF
ENDIF

@COM_ORDER_COM120, ARG
VARSET LOCAL
LOCALS =

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

LOCAL = RESULT

IF PENIS(TARGET)
	LOCAL += 25
	LOCALS = %LOCALS% + 阴茎有些(25)
ENDIF
;贞操重视
IF TALENT:贞操重视
	LOCAL -= 10
	LOCALS = %LOCALS% - 贞操重视(10)
ENDIF
;不在乎貞操
IF TALENT:不在乎貞操
	LOCAL += 5
	LOCALS = %LOCALS% + 不在乎貞操(5)
ENDIF
;接受快感
IF TALENT:接受快感
	LOCAL += 2
	LOCALS = %LOCALS% + 接受快感(2)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 1
	LOCALS = %LOCALS% - 否定快感(1)
ENDIF
;調教者が処女
IF EXP:PLAYER:Ｖ経験 == 0 && PLAYER != MASTER
	LOCAL -= 15
	LOCALS = %LOCALS% - %CALLNAME:PLAYER%が処女(15)
ENDIF

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

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

RETURN RESULT


code:
@COM121
;後背位奉仕
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

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

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%
;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM121, ARG
CALL FLAG_INSERTION, "Ｖ逆挿入", ARG, 100

@SOURCE_COM121, ARG
CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 121

SOURCE:0:情愛 = 1000
SOURCE:0:性行動 = 2000
SOURCE:0:達成感 = 1200

SOURCE:0:情愛 += CALCF("実行値による欲情追加")

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

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

@TRAIN_MESSAGE_COM121
CALL SETFLAG, "下半身を脱がす", PLAYER
CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
;前回と今回の調教者が同じで、前回の調教が後背位で有、不拔出フラグがある場合
IF INSERT("Ｖ後背位", PLAYER) && COND("前Ｔ調教者") == PLAYER
	PRINTFORM %CALLNAME:TARGET%將%CALLNAME:PLAYER%的腰肢緊緊抓住、
	;恋慕で追加
	SIF TALENT:恋慕 && RAND:3 >= 1
		PRINTFORM 將脖頸和後頸用舌頭迷亂的舔舐著、
	IF ABL:施虐属性 >= 3 && RAND:3 == 0
		PRINTFORMW 半跪著坐下、抓住腰肢後就像是使用飛機杯一樣激烈的搖晃著%CALLNAME:PLAYER%的身體……
	ELSEIF ABL:施虐属性 >= 3 && RAND:2 == 0
		PRINTFORMW 像是野獸一樣激烈的用腰肢撞擊著……
	ELSE
		PRINTFORMW 再次前後擺動著腰肢……
	ENDIF
;同様に前回の調教が正常位か騎乗位、逆強姦の場合
ELSEIF INSERT("Ｖ挿入", PLAYER) && COND("前Ｔ調教者") == PLAYER
	PRINTFORMW %CALLNAME:TARGET%依然在不斷侵犯%CALLNAME:PLAYER%的膣穴、並讓%CALLNAME:PLAYER%四肢著地的跪下、從後侧猛烈地撞擊著膣道的深處……
ELSEIF INSERT("Ａ挿入", PLAYER) && COND("前Ｔ調教者") == PLAYER
	PRINTFORMW %CALLNAME:TARGET%將在%CALLNAME:PLAYER%的腸道中不斷衝刺的陰莖拔出、又立刻插進了愛液四溢的膣道中、再次以面對面相互擁抱的姿勢侵犯著膣道的深處……
ELSE
	PRINTFORM %CALLNAME:PLAYER%在%CALLNAME:TARGET%的身前四肢著地的跪下、
	IF TALENT:PLAYER:処女 == 1
		PRINTFORMW 將從沒有接受過其他男性的粉嫩膣道撥開、懇求着侵犯……
	ELSEIF RAND:2 == 0
		PRINTFORMW 将%TEXTS("阴部：視覚", PLAYER)%撥開、死乞白賴的懇求著。
	ELSE
		IF RAND:3 == 0
			PRINTFORM 高舉著尻部
		ELSEIF TALENT:好色 || TALENT:淫乱
			PRINTFORM 微微搖晃著尻部
		ENDIF
		PRINTFORMW 邀请著%CALLNAME:TARGET%的侵犯。
	ENDIF
	PRINTFORM %CALLNAME:TARGET%欣然響應邀請、
	IF TALENT:PLAYER:処女 == 1
		PRINTFORMW 將%CALLNAME:PLAYER%的処女雌穴用%NAMES("阴茎")%毫不留情的貫穿了……
	ELSE
		PRINTFORM %CALLNAME:PLAYER%
		SIF TALENT:恋慕
			PRINT 在用心醉的眼神注視著恍惚的面孔的同時、
		PRINTFORMW 用期待已久的膣穴接下了%NAMES("阴茎")%、開始揮舞腰肢…
	ENDIF
ENDIF

@COM_ORDER_COM121, ARG
VARSET LOCAL
LOCALS =

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

LOCAL = RESULT

IF PENIS(TARGET)
	LOCAL += 25
	LOCALS = %LOCALS% + 阴茎有些(25)
ENDIF
;贞操重视
IF TALENT:贞操重视
	LOCAL -= 10
	LOCALS = %LOCALS% - 贞操重视(10)
ENDIF
;不在乎貞操
IF TALENT:不在乎貞操
	LOCAL += 5
	LOCALS = %LOCALS% + 不在乎貞操(5)
ENDIF
;接受快感
IF TALENT:接受快感
	LOCAL += 2
	LOCALS = %LOCALS% + 接受快感(2)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 1
	LOCALS = %LOCALS% - 否定快感(1)
ENDIF

;調教者が処女
IF EXP:PLAYER:Ｖ経験 == 0 && PLAYER != MASTER
	LOCAL -= 15
	LOCALS = %LOCALS% - %CALLNAME:PLAYER%が処女(15)
ENDIF

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

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

RETURN RESULT


code:
@COM122
;騎乗位侵犯
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%
;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM122, ARG
CALL FLAG_INSERTION, "Ｖ逆挿入", ARG, 100

@SOURCE_COM122, ARG
CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 122

SOURCE:0:情愛  = 1200
SOURCE:0:性行動 = 2000
SOURCE:0:充足  = 800
SOURCE:0:屈従 = 500
SOURCE:0:逸脱 = 800

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

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

@TRAIN_MESSAGE_COM122
CALL SETFLAG, "下半身を脱がす", PLAYER
CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
;前回と今回の調教者が同じで、前回の調教が騎乗位で有、不拔出フラグがある場合
IF INSERT("Ｖ騎乗位", PLAYER) && COND("前Ｔ調教者") == PLAYER
	PRINTFORMW %CALLNAME:PLAYER%用膣道緊緊捆住在體內抽插的陰莖、為了追求更多的快樂而拼命奉仕著%CALLNAME:TARGET%……
;同様に前回の調教が正常位か後背位、逆強姦の場合
ELSEIF INSERT("Ｖ挿入", PLAYER) && COND("前Ｔ調教者") == PLAYER
	PRINTFORMW %CALLNAME:TARGET%依然在不斷侵犯%CALLNAME:PLAYER%的膣穴、並將%CALLNAME:PLAYER%的身體抱起、從下方持續戳弄著膣道的頂端……
ELSEIF INSERT("Ａ挿入", PLAYER) && COND("前Ｔ調教者") == PLAYER
	PRINTFORMW %CALLNAME:TARGET%將在%CALLNAME:PLAYER%的腸道中不斷衝刺的陰莖拔出、又立刻插進了愛液四溢的膣道中、再次以面對面相互擁抱的姿勢侵犯著膣道的深處……
ELSE
	PRINTFORM %CALLNAME:PLAYER%請求%CALLNAME:TARGET%仰面躺下、隨後跨坐在身上、用自己的
	SIF TALENT:PLAYER:処女 == 1
		PRINT 從沒有接受過其他男性的
	PRINTFORMW 膣道將%CALLNAME:TARGET%的%NAMES("阴茎")%深深含住了……
ENDIF


code:
@COM125
;Ａ正常位奉仕
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

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

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%
;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM125, ARG
CALL FLAG_INSERTION, "Ａ逆挿入", ARG, 100

@SOURCE_COM125, ARG
CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 125

SOURCE:0:性行動 = 350
SOURCE:0:達成感 = 900
SOURCE:0:欲情追加 = CALCF("実行値による欲情追加") + 1000
SOURCE:0:屈従 = 200
SOURCE:0:逸脱 = 2200

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

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

@TRAIN_MESSAGE_COM125
CALL SETFLAG, "下半身を脱がす", PLAYER
CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
;同時推倒
IF TEQUIP:Ｗ推倒
	;二穴挿入
	IF TRAIN_GENRE("Ｖ逆挿入", SELECTCOM:1)
		;二人とも前回と同じ行動
		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 如同完全沉浸於快感一樣無意識的漏出涎水的同時
			ELSE
				PRINT 好像很開心
			ENDIF
			PRINTFORMW 持續侵犯著%CALLNAME:MASTER%前後的淫穴……！
		;助手が前回と同じ行動
		ELSEIF SELECTCOM:1 == PREVCOM:1
			PRINTFORM %CALLNAME:TARGET%在%CALLNAME:(TARGET:1)%激烈地衝撞著膣道的時候、將%CALLNAME:MASTER%的臀瓣打開、對準肛門用
			;假阳具
			IF PENIS(TARGET) == 0
				IF ABL:施虐属性 >= 5
					PRINTFORM 兇惡的
				ELSEIF ABL:施虐属性 >= 3
					IF TALENT:MASTER:扶她 || TALENT:MASTER:男性
						PRINTFORM 比%CALLNAME:MASTER%更加粗壯的
					ELSE
						PRINTFORM 粗壯的
					ENDIF
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINT 堅挺的立起的
				ELSEIF RAND:2 == 0 && TEQUIP:眼罩 == 0
					PRINT 堅硬的勃起的
				ELSE
					PRINT 不斷脈動的
				ENDIF
			ENDIF
			PRINTFORM %NAMES("阴茎")%、
			IF ABL:施虐属性 >= 3 && RAND:3 == 0
				PRINT 好像很開心
			ELSEIF ABL:施虐属性 && RAND:2 == 0
				PRINT 像是在享受痛苦的反應一樣粗暴地
			ELSEIF ABL:欲望 >= 3 && RAND:2 == 0
				PRINT 深深地
			ENDIF
			PRINTFORMW 侵犯起來……！
		;役割交換
		ELSEIF TRAIN_GENRE("Ａ逆挿入", PREVCOM:1)
			PRINTFORMW %CALLNAME:TARGET%和%CALLNAME:(TARGET:1)%一齊拔出陰莖、將%CALLNAME:MASTER%癱軟的身體翻過來後、又開始享受被另一個人開闢過的濕軟淫穴……！
		ELSE
			PRINTFORM %CALLNAME:TARGET%和%CALLNAME:(TARGET:1)%
			IF RAND:2 == 0
				PRINTFORM 像是在競爭誰更能給予快樂一樣激烈地
			ELSE
				PRINTFORM 為了給予更多快樂而配合的
			ENDIF
			PRINTFORMW 侵犯著%CALLNAME:MASTER%前後的淫穴……！
		ENDIF
	ELSE
		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
	ENDIF
;前回と同じ
ELSEIF PREVCOM == SELECTCOM && COND("前Ｔ調教者") == PLAYER
	PRINTFORMW %CALLNAME:TARGET%將%CALLNAME:MASTER%的肛門隨心所欲地激烈侵犯著……
ELSE
	PRINTFORM %CALLNAME:TARGET%
	SIF ABL:施虐属性 >= 3
		PRINTFORM 浮現出嗜虐的邪笑、
	;假阳具
	IF PENIS(TARGET) == 0
		IF TRAIN_GENRE("Ｖ逆挿入", PREVCOM)
			PRINTFORM 用被甜膩的愛液弄髒的
		ELSEIF ABL:施虐属性 >= 5
			PRINTFORM 兇惡的
		ELSEIF ABL:施虐属性 >= 3
			IF PENIS(MASTER)
				PRINTFORM 比%CALLNAME:MASTER%更加粗壯的
			ELSE
				PRINTFORM 粗壯的
			ENDIF
		ENDIF
	ELSE
		IF TRAIN_GENRE("Ｖ逆挿入", PREVCOM)
			PRINTFORM 用被甜膩的愛液弄髒的
		ELSEIF RAND:3 == 0
			PRINT 堅挺的立起的
		ELSEIF RAND:2 == 0 && TEQUIP:眼罩 == 0
			PRINT 堅硬的勃起的
		ELSE
			PRINT 不斷脈動的
		ENDIF
	ENDIF
	PRINTFORM %NAMES("阴茎")%將%CALLNAME:PLAYER%的肛門
	IF ABL:施虐属性 >= 3 && RAND:3 == 0
		PRINT 好像很開心
	ELSEIF ABL:施虐属性 && RAND:2 == 0
		PRINT 像是在享受痛苦的反應一樣粗暴地
	ELSEIF ABL:欲望 >= 3 && RAND:2 == 0
		PRINT 深深地
	ENDIF
	IF ABL:施虐属性 >= 5 && RAND:2 == 0
		PRINTFORMW 蹂躪、凌辱著……
	ELSE
		PRINTFORMW 侵犯起來……
	ENDIF
ENDIF

@COM_ORDER_COM125, ARG
VARSET LOCAL
LOCALS =

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

LOCAL = RESULT

IF PENIS(TARGET)
	LOCAL += 25
	LOCALS = %LOCALS% + 阴茎有些(25)
ENDIF
;贞操重视
IF TALENT:贞操重视
	LOCAL -= 10
	LOCALS = %LOCALS% - 贞操重视(10)
ENDIF
;不在乎貞操
IF TALENT:不在乎貞操
	LOCAL += 5
	LOCALS = %LOCALS% + 不在乎貞操(5)
ENDIF
;接受快感
IF TALENT:接受快感
	LOCAL += 2
	LOCALS = %LOCALS% + 接受快感(2)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 1
	LOCALS = %LOCALS% - 否定快感(1)
ENDIF
;調教者が処女
IF EXP:PLAYER:Ｖ経験 == 0 && TALENT:PLAYER:男性 == 0 && PLAYER != MASTER
	LOCAL -= 15
	LOCALS = %LOCALS% - %CALLNAME:PLAYER%が処女(15)
ENDIF

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

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

RETURN RESULT


code:
@COM126
;Ａ後背位奉仕
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

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

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%
;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM126, ARG
CALL FLAG_INSERTION, "Ａ逆挿入", ARG, 100

@SOURCE_COM126, ARG
CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 126

SOURCE:0:性行動 = 350
SOURCE:0:達成感 = 900
SOURCE:0:欲情追加 = CALCF("実行値による欲情追加") + 1000
SOURCE:0:屈従 = 200
SOURCE:0:逸脱 = 2200

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

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

@TRAIN_MESSAGE_COM126
CALL SETFLAG, "下半身を脱がす", PLAYER
CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
;同時推倒
IF TEQUIP:Ｗ推倒
	;二穴挿入
	IF TRAIN_GENRE("Ｖ逆挿入", SELECTCOM:1)
		;二人とも前回と同じ行動
		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 如同完全沉浸於快感一樣無意識的漏出涎水的同時
			ELSE
				PRINT 好像很開心
			ENDIF
			PRINTFORMW 持續侵犯著%CALLNAME:MASTER%前後的淫穴……！
		;助手が前回と同じ行動
		ELSEIF SELECTCOM:1 == PREVCOM:1
			PRINTFORM %CALLNAME:TARGET%在%CALLNAME:(TARGET:1)%激烈地衝撞著膣道的時候、將%CALLNAME:MASTER%的臀瓣打開、對準肛門用
			;假阳具
			IF PENIS(TARGET) == 0
				IF ABL:施虐属性 >= 5
					PRINTFORM 兇惡的
				ELSEIF ABL:施虐属性 >= 3
					IF TALENT:MASTER:扶她 || TALENT:MASTER:男性
						PRINTFORM 比%CALLNAME:MASTER%更加粗壯的
					ELSE
						PRINTFORM 粗壯的
					ENDIF
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINT 堅挺的立起的
				ELSEIF RAND:2 == 0 && TEQUIP:眼罩 == 0
					PRINT 堅硬的勃起的
				ELSE
					PRINT 不斷脈動的
				ENDIF
			ENDIF
			PRINTFORM %NAMES("阴茎")%、
			IF ABL:施虐属性 >= 3 && RAND:3 == 0
				PRINT 好像很開心
			ELSEIF ABL:施虐属性 && RAND:2 == 0
				PRINT 像是在享受痛苦的反應一樣粗暴地
			ELSEIF ABL:欲望 >= 3 && RAND:2 == 0
				PRINT 深深地
			ENDIF
			PRINTFORMW 侵犯起來……！
		;役割交換
		ELSEIF TRAIN_GENRE("Ａ逆挿入", PREVCOM:1)
			PRINTFORMW %CALLNAME:TARGET%和%CALLNAME:(TARGET:1)%一齊拔出陰莖、將%CALLNAME:MASTER%癱軟的身體翻過來後、又開始享受被另一個人開闢過的濕軟淫穴……！
		ELSE
			PRINTFORM %CALLNAME:TARGET%和%CALLNAME:(TARGET:1)%
			IF RAND:2 == 0
				PRINTFORM 像是在競爭誰更能給予快樂一樣激烈地
			ELSE
				PRINTFORM 為了給予更多快樂而配合的
			ENDIF
			PRINTFORMW 侵犯著%CALLNAME:MASTER%前後的淫穴……！
		ENDIF
	ELSE
		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
	ENDIF
ELSEIF TEQUIP:推倒
	;前回と同じ
	IF PREVCOM == SELECTCOM && COND("前Ｔ調教者") == PLAYER
		PRINTFORMW %CALLNAME:TARGET%將%CALLNAME:MASTER%的肛門隨心所欲地激烈侵犯著……
	ELSE
		PRINTFORM %CALLNAME:TARGET%
		SIF ABL:施虐属性 >= 3
			PRINTFORM 浮現出嗜虐的邪笑、
		;假阳具
		IF PENIS(TARGET) == 0
			IF TRAIN_GENRE("Ｖ逆挿入", PREVCOM)
				PRINTFORM 用被甜膩的愛液弄髒的
			ELSEIF ABL:施虐属性 >= 5
				PRINTFORM 兇惡的
			ELSEIF ABL:施虐属性 >= 3
				IF PENIS(MASTER)
					PRINTFORM 比%CALLNAME:MASTER%更加粗壯的
				ELSE
					PRINTFORM 粗壯的
				ENDIF
			ENDIF
		ELSE
			IF TRAIN_GENRE("Ｖ逆挿入", PREVCOM)
				PRINTFORM 用被甜膩的愛液弄髒的
			ELSEIF RAND:3 == 0
				PRINT 堅挺的立起的
			ELSEIF RAND:2 == 0 && TEQUIP:眼罩 == 0
				PRINT 堅硬的勃起的
			ELSE
				PRINT 不斷脈動的
			ENDIF
		ENDIF
		PRINTFORM %NAMES("阴茎")%將%CALLNAME:PLAYER%的肛門
		IF ABL:施虐属性 >= 3 && RAND:3 == 0
			PRINT 好像很開心
		ELSEIF ABL:施虐属性 && RAND:2 == 0
			PRINT 像是在享受痛苦的反應一樣粗暴地
		ELSEIF ABL:欲望 >= 3 && RAND:2 == 0
			PRINT 深深地
		ENDIF
		IF ABL:施虐属性 >= 5 && RAND:2 == 0
			PRINTFORMW 蹂躪、凌辱著……
		ELSE
			PRINTFORMW 侵犯起來……
		ENDIF
	ENDIF
;前回と今回の調教者が同じで、前回の調教が後背位で有、不拔出フラグがある場合
ELSEIF INSERT("Ａ後背位", PLAYER) && COND("前Ｔ調教者") == PLAYER
	PRINTFORM %CALLNAME:TARGET%將%CALLNAME:PLAYER%的腰肢緊緊抓住、
	;恋慕で追加
	SIF TALENT:恋慕 && RAND:3
		PRINTFORM 將脖頸和後頸用舌頭迷亂的舔舐著、
	IF ABL:施虐属性 >= 3 && RAND:3 == 0
		PRINTFORMW 半跪著坐下、抓住腰肢後就像是使用飛機杯一樣激烈的搖晃著%CALLNAME:PLAYER%的身體……
	ELSEIF ABL:施虐属性 >= 3 && RAND:2 == 0
		PRINTFORMW 像是野獸一樣激烈的用腰肢撞擊著……
	ELSE
		PRINTFORMW 再次前後擺動著腰肢……
	ENDIF
;同様に前回の調教が正常位か騎乗位、逆強姦の場合
ELSEIF INSERT("Ａ挿入", PLAYER) && COND("前Ｔ調教者") == PLAYER
	PRINTFORMW %CALLNAME:TARGET%依然在不斷侵犯%CALLNAME:PLAYER%的肛門、並讓%CALLNAME:PLAYER%四肢著地的跪下、從後侧猛烈地撞擊著腸道的深處……
ELSEIF INSERT("Ｖ挿入", PLAYER) && COND("前Ｔ調教者") == PLAYER
	PRINTFORMW %CALLNAME:TARGET%將在%CALLNAME:PLAYER%的膣道中不斷衝刺的陰莖拔出、又立刻插進了迴響水聲的腸道中、再次以野獸交尾的姿勢侵犯著腸道的深處……
ELSE
	PRINTFORM %CALLNAME:PLAYER%在%CALLNAME:TARGET%的身前四肢著地的跪下、
	IF TALENT:PLAYER:Ａ処女 == 1
		PRINTFORMW 將從沒有接受過其他男性的処女尻穴掰開、懇求着侵犯……
	ELSE
		IF RAND:3 == 0
			PRINTFORM 高舉著尻部
		ELSEIF TALENT:好色 || TALENT:淫乱
			PRINTFORM 微微搖晃著尻部
		ENDIF
		PRINTFORMW 邀请著%CALLNAME:TARGET%的侵犯。
	ENDIF
	PRINTFORM %CALLNAME:TARGET%欣然響應邀請、%CALLNAME:PLAYER%
	SIF TALENT:恋慕
		PRINT 在用心醉的眼神注視著恍惚的面孔的同時、
	PRINTFORMW 用期待已久的直腸接下了%NAMES("阴茎")%、開始揮舞腰肢…
ENDIF

@COM_ORDER_COM126, ARG
VARSET LOCAL
LOCALS =

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

LOCAL = RESULT

IF PENIS(TARGET)
	LOCAL += 25
	LOCALS = %LOCALS% + 阴茎有些(25)
ENDIF
;贞操重视
IF TALENT:贞操重视
	LOCAL -= 10
	LOCALS = %LOCALS% - 贞操重视(10)
ENDIF
;不在乎貞操
IF TALENT:不在乎貞操
	LOCAL += 5
	LOCALS = %LOCALS% + 不在乎貞操(5)
ENDIF
;接受快感
IF TALENT:接受快感
	LOCAL += 2
	LOCALS = %LOCALS% + 接受快感(2)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 1
	LOCALS = %LOCALS% - 否定快感(1)
ENDIF
;調教者が処女
IF EXP:PLAYER:Ｖ経験 == 0 && TALENT:PLAYER:男性 == 0 && PLAYER != MASTER
	LOCAL -= 15
	LOCALS = %LOCALS% - %CALLNAME:PLAYER%が処女(15)
ENDIF

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

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

RETURN RESULT


code:
@COM127
;Ａ騎乗位侵犯
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = %STR:今回指令%
;-------------------------------------------------
;射精格子
;-------------------------------------------------
CALL SAMEN_CHECK

RETURN 1

@FLAG_COM127, ARG
CALL FLAG_INSERTION, "Ａ逆挿入", ARG, 100

@SOURCE_COM127, ARG
CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 127

SOURCE:0:情愛  = 1200
SOURCE:0:性行動 = 2000
SOURCE:0:充足  = 800
SOURCE:0:屈従 = 500
SOURCE:0:逸脱 = 800

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

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

@TRAIN_MESSAGE_COM127
CALL SETFLAG, "下半身を脱がす", PLAYER
CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
;前回と今回の調教者が同じで、前回の調教が騎乗位で有、不拔出フラグがある場合
IF INSERT("Ａ騎乗位", PLAYER) && COND("前Ｔ調教者") == PLAYER
	PRINTFORMW %CALLNAME:PLAYER%用肛門緊緊捆住在體內抽插的陰莖、為了追求更多的快樂而拼命奉仕著%CALLNAME:TARGET%……
;同様に前回の調教が正常位か後背位、逆強姦の場合
ELSEIF INSERT("Ａ挿入", PLAYER) && COND("前Ｔ調教者") == PLAYER
	PRINTFORMW %CALLNAME:TARGET%依然在不斷侵犯%CALLNAME:PLAYER%的肛門、並將%CALLNAME:PLAYER%的身體抱起、從下方持續戳弄著膣道的頂端……
ELSEIF INSERT("Ｖ挿入", PLAYER) && COND("前Ｔ調教者") == PLAYER
	PRINTFORMW %CALLNAME:TARGET%將在%CALLNAME:PLAYER%的膣道中不斷衝刺的陰莖拔出、又立刻插進了潤滑完畢的肛門中、再次順從心中的衝動向上聳動著腰部……
ELSE
	PRINTFORM %CALLNAME:PLAYER%請求%CALLNAME:TARGET%仰面躺下、隨後跨坐在身上、用自己的
	SIF TALENT:PLAYER:Ａ処女 == 1
		PRINT 從沒有接受過其他男性的
	PRINTFORMW 自己的肛門深深含住了……
ENDIF


code:
@COM12
;足交
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM12, ARG
;対象の股間⇔調教者の脚的污垢が移動
IF PENIS(TARGET)
	CALL EQ_STAIN, TARGET, "Ｐ", PLAYER, "脚"
ELSE
	CALL EQ_STAIN, TARGET, "Ｖ", PLAYER, "脚"
ENDIF

@SOURCE_COM12, ARG
SIF PENIS(TARGET) == 0 && TEQUIP:振動棒
	CALL SOURCE_COM31, 30

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 12

SOURCE:0:逸脱 = 500

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

;倒錯的
SIF TALENT:倒錯的
	TIMES SOURCE:0:達成感, 1.80

;ABL:Ｃ感覚をみる
SOURCE:0:Ｃ快楽 = CALCF("Ｃ刺激", 1)
SOURCE:0:Ｃ快楽 = SOURCE_EXABL(SOURCE:0:Ｃ快楽, "施虐属性", PLAYER)
;阴茎への刺激にはBOUNS
SIF PENIS(TARGET)
	SOURCE:0:Ｃ快楽 += 500

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

@TRAIN_MESSAGE_COM12
PRINTFORM %CALLNAME:PLAYER%將%CALLNAME:TARGET%的
IF PENIS(TARGET)
	PRINTFORMW %TEXTS("阴茎：視覚", TARGET)%的陰莖用柔軟的雙腳輕輕服侍著……
ELSE
	IF TEQUIP:振動棒
		PRINTFORMW 陰部深深插入的按摩棒用腳靈巧地撥弄著……
		;振動棒を弄られるのに慣れている
		IF CHECK("振動棒")
			PRINTFORMW %CALLNAME:TARGET%膣道內的按摩棒被靈巧的雙腳微微拔出而又插入、因期盼進一步的玩弄而挺直了腰……
		ELSE
			PRINTFORMW 被承載了體重的振動棒開闢了預想之外的深處的%CALLNAME:TARGET%、用摻雜著痛苦與恐懼的表情與%CALLNAME:PLAYER%擔憂的雙眼對視著……
		ENDIF
	ELSE
		PRINTFORMW 的股間用雙腳溫柔的侍奉著……
	ENDIF
ENDIF


code:
@COM130
;打屁股
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM130, ARG
IF INSERT("挿入") && PENIS(PLAYER)
	CALL SETFLAG, "打屁股性交フラグ", TARGET
	CALL SETFLAG, "打屁股性交フラグ", PLAYER
ENDIF

@SOURCE_COM130, ARG
CALL SOURCE_SMPLAY, "打屁股", ARG

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 130

;露出
SOURCE:0:露出 = 200
;逸脱
SOURCE:0:逸脱 = 500

;PALAM:苦痛をみる
SELECTCASE PALAM:苦痛
CASE IS < PALAMLV:1
	SOURCE:0:疼痛 = 300
CASE IS < PALAMLV:2
	SOURCE:0:疼痛 = 500
CASE IS < PALAMLV:3
	SOURCE:0:疼痛 = 800
CASE IS < PALAMLV:4
	SOURCE:0:疼痛 = 1200
CASE IS >= PALAMLV:4
	SOURCE:0:疼痛 = 1800
ENDSELECT

SOURCE:0:屈従 += MULTIPLY(SOURCE:0:疼痛 / 2, 100 + ABL:PLAYER:施虐属性*20)

SIF AGE(TARGET) == 1
	TIMES SOURCE:0:屈従, 1.50
;挿入しながら
IF INSERT("挿入")
	TIMES SOURCE:0:疼痛, 0.50
	TIMES SOURCE:0:露出, 1.50
	TIMES SOURCE:0:屈従, 1.50
ENDIF

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

@SOURCE_SMPLAY, ARGS, ARG
SIF ABL:受虐属性 == 0
	RETURN 0

CALL VARSET_COMF

SELECTCASE ARGS
CASE "鼻钩"
	SIF CHECK("鼻钩") == 0
		RETURN 0
	SOURCE:0:充足 = MULTIPLY(ABL:受虐属性*100, 100 + ABL:PLAYER:施虐属性*20)
	SOURCE:0:情愛 = MULTIPLY(ABL:受虐属性*100, 100 + ABL:PLAYER:施虐属性*20)
CASE "眼罩"
	SOURCE:0:充足 = MULTIPLY(ABL:受虐属性*100, 100 + ABL:PLAYER:施虐属性*20)
	SOURCE:0:情愛 = MULTIPLY(ABL:受虐属性*100, 100 + ABL:PLAYER:施虐属性*20)
CASE "打屁股"
	SOURCE:0:充足 = MULTIPLY(ABL:受虐属性*200, 100 + ABL:PLAYER:施虐属性*20)
	SOURCE:0:情愛 = MULTIPLY(ABL:受虐属性*200, 100 + ABL:PLAYER:施虐属性*20)
CASE "拘束", "口枷", "放尿", "剃毛", "喝套内精液"
	SIF ABL:受虐属性 <= 1
		RETURN 0

	SOURCE:0:充足 = MULTIPLY(ABL:受虐属性*200, 100 + ABL:PLAYER:施虐属性*20)
	SOURCE:0:情愛 = MULTIPLY(ABL:受虐属性*200, 100 + ABL:PLAYER:施虐属性*20)
CASE "強制口交"
	SIF ABL:受虐属性 <= 1
		RETURN 0

	SOURCE:0:充足 = MULTIPLY(ABL:受虐属性*300, 100 + ABL:PLAYER:施虐属性*20)
	SOURCE:0:情愛 = MULTIPLY(ABL:受虐属性*300, 100 + ABL:PLAYER:施虐属性*20)
	;深喉中？
	IF TEQUIP:深喉
		TIMES SOURCE:0:充足, 2.00
		TIMES SOURCE:0:情愛, 2.00
	ENDIF

CASE "浣腸", "让对方浴尿", "フィスト", "尿道导管"
	SIF ABL:受虐属性 <= 2
		RETURN 0

	SOURCE:0:充足 = MULTIPLY(ABL:受虐属性*400, 100 + ABL:PLAYER:施虐属性*20)
	SOURCE:0:情愛 = MULTIPLY(ABL:受虐属性*400, 100 + ABL:PLAYER:施虐属性*20)
CASE "Ｗフィスト"
	SIF ABL:受虐属性 <= 3
		RETURN 0

	SOURCE:0:充足 = MULTIPLY(ABL:受虐属性*400, 100 + ABL:PLAYER:施虐属性*20)
	SOURCE:0:情愛 = MULTIPLY(ABL:受虐属性*400, 100 + ABL:PLAYER:施虐属性*20)
CASE "穿环"
	SIF ABL:受虐属性 <= 4
		RETURN 0

	SOURCE:0:充足 = MULTIPLY(ABL:受虐属性*400, 100 + ABL:PLAYER:施虐属性*20)
	SOURCE:0:情愛 = MULTIPLY(ABL:受虐属性*400, 100 + ABL:PLAYER:施虐属性*20)
ENDSELECT

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

@TRAIN_MESSAGE_COM130
;前回と同じ
IF PREVCOM == SELECTCOM && COND("前Ｔ調教者") == PLAYER
	PRINTFORM %CALLNAME:PLAYER%将
	IF INSERT("挿入")
		IF RAND:3
			PRINTFORM %TEXTS("合体中", PLAYER)%
		ELSE
			PRINTFORM 在激烈的搖晃腰肢的同時、
		ENDIF
	ELSEIF TEQUIP:接吻
		PRINTFORM %TEXTS("接吻継続")%、
		CALL SETFLAG, "追加接吻フラグ", TARGET
	ELSEIF TEQUIP:電話中
		PRINTFORM %TEXTS("電話中の")%
	ENDIF
	PRINTFORM 將%CALLNAME:TARGET%的尻部
	IF ABL:PLAYER:施虐属性 >= 3 && RAND:2
		PRINTFORM 粗暴地
	ELSEIF ABL:PLAYER:施虐属性 && (ABL:PLAYER:施虐属性 >= 3 || RAND:2)
		PRINTFORM 激烈地
	ELSE
		PRINTFORM 輕柔地
	ENDIF
	PRINTFORMW 持續拍打著助興……
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
	IF INSERT("挿入")
		IF RAND:3
			PRINTFORM %TEXTS("合体中", PLAYER)%
		ELSE
			PRINTFORM 在激烈地用腰肢頂撞著的同時、
		ENDIF
	ELSEIF TEQUIP:接吻
		PRINTFORM %TEXTS("接吻継続")%、
		CALL SETFLAG, "追加接吻フラグ", TARGET
	ENDIF
	IF TEQUIP:電話中
		PRINTFORM 和%TEXTR(@"感觉和平时的电话没有什么不同的/什么都不知道地给这边打电话的/完全没有任何怀疑持续地通电话的/完全不知情/完全不知道发生了这样的事情的/不知道对方已经出轨了的/相信着%CALLNAME:TARGET%的")%
		PRINTFORM %TEXTS("彼氏")%%TEXTR("と会話している/と通話を続けている/と日常会話を続けている/と近況を話している/と他愛もない話をしている")%
	ENDIF
	PRINTFORM 將%CALLNAME:TARGET%的%TEXTS("お尻：感触")%用手掌
	IF ABL:PLAYER:施虐属性 >= 3 && RAND:2
		PRINTFORM 粗暴用力地
	ELSEIF ABL:PLAYER:施虐属性 && (ABL:PLAYER:施虐属性 >= 3 || RAND:2)
		PRINTFORM 激烈地
	ELSE
		PRINTFORM 輕輕地
	ENDIF
	PRINTFORMW 拍打著……
	IF TEQUIP:電話中
		PRINTFORMW 虽然%CALLNAME:TARGET%%TEXTR("拼命忍耐着不发出声音/努力忍耐着不漏出声音/皱起眉頭拼命地忍耐不漏出娇喘")%%TEXTR("但是没有办法完全不发出娇喘/仍然时常漏出下流的呻吟声/但无法抑制的本能还是让娇喘漏了出来")%…
	ELSEIF INSERT("挿入") && PENIS(PLAYER)
		IF INSERT("Ｖ挿入")
			LOCALS = 膣
		ELSEIF INSERT("Ａ挿入")
			LOCALS = 肛門
		ELSEIF INSERT("尿道挿入")
			LOCALS = 尿道
		ENDIF
		IF ABL:受虐属性 >= 3
			PRINTFORMW %CALLNAME:TARGET%在被拍打的時候都會因為痛苦與羞恥帶來的快感而將%LOCALS%用力收緊、讓%CALLNAME:PLAYER%也享受著比平時更加強烈的快樂……
		ELSE
			PRINTFORMW %CALLNAME:TARGET%在被痛苦侵襲的時候、身體都會僵硬、而%LOCALS%也會因為痛感而將%CALLNAME:PLAYER%的陰莖用力收緊……
		ENDIF
	ELSEIF CHOSECOM(SELECTCOM) == 0
		IF ABL:PLAYER:施虐属性 >= 3
			PRINTFORM 在被激烈的拍打蹂躪之後、%CALLNAME:TARGET%發紅、腫起來了、
			IF ABL:受虐属性 >= 3 && TALENT:男性 == 0
				PRINTFORM 但似乎因為強烈的痛感而發情了、
				IF CUP:Ｖ潤 >= 500
					PRINTFORMW 膣穴中愛液如溪流般涓涓流下、將纖細的雙腿也整個淋濕了……
				ELSE
					PRINTFORMW 股間被愛液浸透、變得非常濕潤了……
				ENDIF
			ELSE
				PRINTFORMW 看起來楚楚可憐的樣子……
			ENDIF
		ELSEIF ABL:受虐属性 >= 3
			PRINTFORMW %CALLNAME:TARGET%對於被給予的刺激、痛苦與羞恥像是感覺不滿足一樣輕輕搖晃著腰肢、但是在尻部被猛力拍打的時候明顯的興奮起來了……
		ENDIF
	ENDIF
ENDIF


code:
@COM132
;鼻钩
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM132, ARG

@SOURCE_COM132, ARG
CALL SOURCE_SMPLAY, "鼻钩", ARG

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 132

;羞恥・逸脱系
SOURCE:0:露出 = 1000
SOURCE:0:逸脱 = 500

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

;撮影したなら
SIF TEQUIP:攝像機
	TIMES SOURCE:0:逸脱, 2.00
SIF TALENT:内気
	TIMES SOURCE:0:逸脱, 1.50

;場所をみる
IF COND("人里") || TEQUIP:室内露出PLAY
	TIMES SOURCE:0:露出, 1.50
	TIMES SOURCE:0:逸脱, 3.00
ELSEIF TEQUIP:野外PLAY
	TIMES SOURCE:0:露出, 1.50
	TIMES SOURCE:0:逸脱, 2.00
ELSEIF TEQUIP:浴室PLAY
	TIMES SOURCE:0:逸脱, 0.50
ENDIF
;ABL:露出癖をみる
SELECTCASE ABL:露出癖
CASE 0 TO 5
	SOURCE:0:逸脱 = MULTIPLY(SOURCE:0:逸脱, 100 - ABL:露出癖*13)
CASE 6 TO 10
	SOURCE:0:逸脱 = MULTIPLY(SOURCE:0:逸脱, 35 - (ABL:露出癖 - 5)*5)
CASEELSE
	SOURCE:0:逸脱 = MULTIPLY(SOURCE:0:逸脱, 10 - (ABL:露出癖 - 10)*1)
ENDSELECT

SIF CHECK("鼻钩")
	TIMES SOURCE:0:逸脱, 0.10

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

@TRAIN_MESSAGE_COM132
;鼻钩の着脱
IF TEQUIP:鼻钩
	TEQUIP:鼻钩 = 0
	PRINTFORMW 取下了%CALLNAME:TARGET%的鼻钩。
	CALL REMOVE_TEQUIP, "鼻钩", "眼罩", "口枷"
ELSE
	TEQUIP:鼻钩 = 1
	PRINTFORMW 给%CALLNAME:TARGET%戴上了鼻钩。

	PRINTFORM 被金属製%TEXTR("器具/钩子")%%TEXTR("拉扯住/吊起")%鼻%TEXTR("子/孔")%的脸滑稽地扭曲了、
	IF CHECK("鼻钩") == 0 && (TALENT:強気 || TALENT:傲慢 || TALENT:高慢)
		PRINTFORMW %CALLNAME:TARGET%用屈辱的表情皱着眉頭忍耐着……
	ELSE
		PRINTFORMW %CALLNAME:TARGET%的鼻子变成了像猪一样的样子……
	ENDIF
	CALL ADD_TEQUIP, "鼻钩", "眼罩", "口枷"
ENDIF

@EQUIP_COM132
;鼻钩
SIF TEQUIP:鼻钩 == 0
	RETURN 0
SIF SELECTCOM == 132
	RETURN 0
CALL SOURCE_COM132, 20

RETURN 1

@EQUIP_COM132_2
;鼻钩
SIF TEQUIP:鼻钩 == 0
	RETURN 0

PRINTL ＜鼻钩装着中＞

EXP:拘束経験 += 1

RETURN 1


code:
@COM133
;眼罩
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM133, ARG

@SOURCE_COM133, ARG
CALL SOURCE_SMPLAY, "眼罩", ARG

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 133

SOURCE:0:露出 = 1000
SOURCE:0:逸脱 = 500

SIF TALENT:内気
	TIMES SOURCE:0:逸脱, 2.00

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

@TRAIN_MESSAGE_COM133
;眼罩の着脱
IF TEQUIP:眼罩
	TEQUIP:眼罩 = 0
	PRINTFORMW 為%CALLNAME:TARGET%取下了漆黑的眼罩。
	CALL REMOVE_TEQUIP, "眼罩", "鼻钩", "口枷"
ELSE
	TEQUIP:眼罩 = 1
	PRINTFORMW 為%CALLNAME:TARGET%戴上了漆黑的眼罩。
	CALL ADD_TEQUIP, "眼罩", "鼻钩", "口枷"
ENDIF

@EQUIP_COM133
;眼罩
SIF TEQUIP:眼罩 == 0
	RETURN 0
SIF SELECTCOM == 133
	RETURN 0
CALL SOURCE_COM133, 20

RETURN 1

@EQUIP_COM133_2
;眼罩
SIF TEQUIP:眼罩 == 0
	RETURN 0

PRINTL ＜眼罩装着中＞

EXP:拘束経験 += 1

RETURN 1


code:
@COM134
;縄・拘束
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM134, ARG

@SOURCE_COM134, ARG
CALL SOURCE_SMPLAY, "拘束", ARG

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 134

;拘束経験が高いと消費減少
IF EXP:拘束経験 >= 300
	TIMES DOWNBASE:0:体力, 0.30
ELSEIF EXP:拘束経験 >= 50
	TIMES DOWNBASE:0:体力, 0.70
ENDIF

SIF GETBIT(TEQUIP:拘束, 24)
	SOURCE:0:Ｂ快楽 = CALCF("Ｂ刺激", 0, 10)
SIF GETBIT(TEQUIP:拘束, 25)
	SOURCE:0:Ｃ快楽 = CALCF("Ｃ刺激", 0, 10)

SOURCE:0:疼痛 = 100
SOURCE:0:恐惧 = 100
SOURCE:0:露出 = 500
SOURCE:0:屈従 = 1000
SOURCE:0:逸脱 = 500

;0bit 苦痛を伴う, 1bit 很强苦痛を伴う, 2bit 非常に很强苦痛を伴う
IF GETBIT(TEQUIP:拘束, 0)
	SOURCE:0:疼痛 += 500
	SOURCE:0:屈従 += 500
	SOURCE:0:逸脱 += 500
ELSEIF GETBIT(TEQUIP:拘束, 1)
	SOURCE:0:疼痛 += 2000
	SOURCE:0:屈従 += 1500
	SOURCE:0:逸脱 += 1500
ELSEIF GETBIT(TEQUIP:拘束, 2)
	SOURCE:0:疼痛 += 6000
	SOURCE:0:屈従 += 3000
	SOURCE:0:逸脱 += 3000
ENDIF

;3bit 羞恥を伴う, 4bit 很强羞恥を伴う, 5bit 非常に很强羞恥を伴う
IF GETBIT(TEQUIP:拘束, 3)
	SOURCE:0:露出 += 500
	SOURCE:0:屈従 += 500
	SOURCE:0:逸脱 += 500
ELSEIF GETBIT(TEQUIP:拘束, 4)
	SOURCE:0:露出 += 2000
	SOURCE:0:屈従 += 1500
	SOURCE:0:逸脱 += 1500
ELSEIF GETBIT(TEQUIP:拘束, 5)
	SOURCE:0:露出 += 6000
	SOURCE:0:屈従 += 3000
	SOURCE:0:逸脱 += 3000
ENDIF

;6bit 恐怖を伴う, 7bit 很强恐怖を伴う, 8bit 非常に很强恐怖を伴う
IF GETBIT(TEQUIP:拘束, 6)
	SOURCE:0:恐惧 += 500
	SOURCE:0:屈従 += 500
	SOURCE:0:逸脱 += 500
ELSEIF GETBIT(TEQUIP:拘束, 7)
	SOURCE:0:恐惧 += 2000
	SOURCE:0:屈従 += 1500
	SOURCE:0:逸脱 += 1500
ELSEIF GETBIT(TEQUIP:拘束, 8)
	SOURCE:0:恐惧 += 6000
	SOURCE:0:屈従 += 3000
	SOURCE:0:逸脱 += 3000
ENDIF

;ABL:受虐属性をみる
SELECTCASE ABL:受虐属性
CASE 0
CASE 1
	TIMES SOURCE:0:逸脱, 0.80
CASE 2
	TIMES SOURCE:0:逸脱, 0.60
CASE 3
	TIMES SOURCE:0:逸脱, 0.40
CASE 4
	TIMES SOURCE:0:逸脱, 0.20
CASEELSE
	TIMES SOURCE:0:逸脱, 0.05
ENDSELECT

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

@EQUIP_COM134
SIF TEQUIP:拘束 == 0
	RETURN 0
SIF SELECTCOM == 134
	RETURN 0
CALL SOURCE_COM134, 20

RETURN 1

;ビット演算の説明。
;0bit 苦痛を伴う, 1bit 很强苦痛を伴う, 2bit 非常に很强苦痛を伴う
;3bit 羞恥を伴う, 4bit 很强羞恥を伴う, 5bit 非常に很强羞恥を伴う
;6bit 恐怖を伴う, 7bit 很强恐怖を伴う, 8bit 非常に很强恐怖を伴う
;20bit 手が使えない, 21bit 足が使えない, 22bit 体勢が変えられない, 23bit 無理な姿勢, 24bit 胸, 25bit 股間
;30bit アルカナで手を拘束, 31bit アルカナで足を拘束
;40bit 縄, 41bit 手首足首縛り, 42bit 亀甲縛り, 43bit 逆海老縛り, 44bit 足吊り
;50bit 拘束, 51bit 手枷, 52bit 吊るし, 53bit Ｍ字開脚台, 54bit 床拘束, 55bit 四つん這い拘束
;ARGSに拘束のジャンルを入れる
;ARGは0未満が代入されている時には拘束のジャンルのbitフラグを返し、TEQUIP:拘束が代入されているなら拘束のジャンルがARGSかどうかを判定する
;例)TEQUIP:拘束 = BIND("縄", -1), IF BIND("縄", TEQUIP:拘束)
@BIND(ARGS, ARG)
#FUNCTION
VARSET LOCALS
SELECTCASE ARGS
CASE "縄"
	IF ARG >= 0
		SIF GETBIT(ARG, 40)
			RETURNF 1
	ELSE
		LOCAL = 1p0 + 1p3 + 1p6 + 1p20 + 1p21 + 1p40
		RETURNF LOCAL
	ENDIF
CASE "縄：手首足首縛り"
	IF ARG >= 0
		SIF GETBIT(ARG, 41)
			RETURNF 1
	ELSE
		LOCAL = 1p0 + 1p3 + 1p6 + 1p20 + 1p21 + 1p40 + 1p41
		RETURNF LOCAL
	ENDIF
CASE "縄：亀甲縛り"
	IF ARG >= 0
		SIF GETBIT(ARG, 42)
			RETURNF 1
	ELSE
		LOCAL = 1p1 + 1p4 + 1p6 + 1p20  + 1p24  + 1p25 + 1p40 + 1p42
		RETURNF LOCAL
	ENDIF
CASE "縄：逆海老"
	IF ARG >= 0
		SIF GETBIT(ARG, 43)
			RETURNF 1
	ELSE
		LOCAL = 1p0 + 1p3 + 1p6 + 1p20 + 1p21 + 1p22 + 1p23 + 1p40 + 1p43
		RETURNF LOCAL
	ENDIF
CASE "縄：足吊り"
	IF ARG >= 0
		SIF GETBIT(ARG, 44)
			RETURNF 1
	ELSE
		LOCAL = 1p0 + 1p5 + 1p6 + 1p20 + 1p21 + 1p22 + 1p23 + 1p40 + 1p44
		RETURNF LOCAL
	ENDIF
CASE "手枷"
	IF ARG >= 0
		SIF GETBIT(ARG, 51)
			RETURNF 1
	ELSE
		LOCAL = 1p3 + 1p6 + 1p20 + 1p50 + 1p51
		RETURNF LOCAL
	ENDIF
CASE "吊り"
	IF ARG >= 0
		SIF GETBIT(ARG, 52)
			RETURNF 1
	ELSE
		LOCAL = 1p1 + 1p3 + 1p7 + 1p20 + 1p22 + 1p50 + 1p52
		RETURNF LOCAL
	ENDIF
CASE "Ｍ字開脚"
	IF ARG  >= 0
		SIF GETBIT(ARG, 53)
			RETURNF 1
	ELSE
		LOCAL = 1p5 + 1p6 + 1p21 + 1p22 + 1p50 + 1p53
		RETURNF LOCAL
	ENDIF
CASE "床"
	IF ARG >= 0
		SIF GETBIT(ARG, 54)
			RETURNF 1
	ELSE
		LOCAL = 1p4 + 1p6 + 1p20 + 1p21 + 1p22 + 1p50 + 1p54
		RETURNF LOCAL
	ENDIF
CASE "四つん這い"
	IF ARG >= 0
		SIF GETBIT(ARG, 55)
			RETURNF 1
	ELSE
		LOCAL = 1p5 + 1p7 + 1p21 + 1p22 + 1p50 + 1p55
		RETURNF LOCAL
	ENDIF
ENDSELECT
RETURNF 0

;現在的拘束の名称
@BINDS(ARG)
#FUNCTIONS

;緊縛中
IF BIND("縄：手首足首縛り", TEQUIP:拘束)
	LOCALS = 手首足首縛り中
ELSEIF BIND("縄：亀甲縛り", TEQUIP:拘束)
	LOCALS = 亀甲縛り中
ELSEIF BIND("縄：逆海老", TEQUIP:拘束)
	LOCALS = 逆海老縛り中
ELSEIF BIND("縄：足吊り", TEQUIP:拘束)
	LOCALS = 足吊り縛り中
ELSEIF BIND("縄", TEQUIP:拘束)
	LOCALS = 縄で緊縛中
ELSEIF BIND("四つん這い", TEQUIP:拘束)
	LOCALS = 拘束テーブル
ELSEIF BIND("床", TEQUIP:拘束)
	LOCALS = 拘束床
ELSEIF BIND("Ｍ字開脚", TEQUIP:拘束)
	LOCALS = Ｍ字拘束中
ELSEIF BIND("吊り", TEQUIP:拘束)
	LOCALS = 吊り拘束中
ELSE
	LOCALS = 拘束中
ENDIF

RETURNF LOCALS

@TRAIN_MESSAGE_COM134
;縄の着脱
IF TEQUIP:拘束
	TFLAG:地の文分岐 = TEQUIP:拘束
	IF BIND("手枷", TEQUIP:拘束)
		PRINTFORMW %CALLNAME:TARGET%的手枷被取下了……
	ELSEIF BIND("縄", TEQUIP:拘束)
		PRINTFORMW %CALLNAME:TARGET%的繩子被解開了……
	ELSE
		PRINTFORMW %CALLNAME:TARGET%的拘束被解除了……
	ENDIF
	TEQUIP:拘束 = 0
;拘束
ELSE
	PRINTFORML %CALLNAME:PLAYER%在規劃對於%CALLNAME:TARGET%的束縛方式…
	PRINTFORML  [ 0] 繩縛　　　　　　　(以身體不能活動為目的的緊縛)
	PRINTFORML  [ 1] 秘銀手銬　　　　　(用手枷將雙手拘束)
	PRINTFORML  [ 2] 秘銀鎖鏈　　　　　(將手腕用鎖鏈束縛、吊起身体)
	PRINTFORML  [ 3] 秘銀高台　　　　　(分開雙腿的拘束≒分娩台)
	PRINTFORML  [ 4] 秘銀床鋪　　　　　(仰面躺在床上、固定住手腳)
	PRINTFORML  [ 5] 秘銀桌檯　　　　　(四肢著地的趴跪、固定雙腿)
	PRINTFORML [100] 不、再考慮一下吧。

	CALL INPUT_SELECT, 6, 100

	IF RESULT == 100
		TFLAG:指令中止 = 1
		RETURN 0
	ELSEIF RESULT == 0
		IF COND("脚が無い")
			PRINTFORM %CALLNAME:TARGET%
			IF RAND:2 == 0
				PRINTFORMW 繩索緊緊束縛住、身體完全動彈不得了。
			ELSE
				PRINTFORMW 繩索緊緊束縛住、絕對不可能抵抗了。
			ENDIF
			TEQUIP:拘束 = BIND("縄", -1)
		ELSE
			PRINTFORML 具體的束縛方法是……
			PRINTFORML  [ 0] 手首足首縛　　(將手腕和腳腕互相束縛到一起)
			PRINTFORML  [ 1] 亀甲縛　　　　(將全身用繩索緊緊捆住、將胸部和恥丘格外凸顯出來的情色束縛法)
			PRINTFORML  [ 2] 逆海老責　　　(將雙手雙腳在背面相互束縛住、用彎曲的蝦一樣的姿勢強行束縛住)
			PRINTFORML  [ 3] 足吊　　　　　(將上半身拘束、只將一隻腳吊起、無法隱藏性器官的情色束縛法)
			PRINTFORML [100] 不、再考慮一下吧。
			CALL INPUT_SELECT, 4, 100
			IF RESULT == 100
				TFLAG:指令中止 = 1
				RETURN 0
			ELSEIF RESULT == 0
				IF RAND:2 == 0
					PRINTFORM %CALLNAME:TARGET%的股間被完全打開、
				ELSE
					PRINTFORM %CALLNAME:TARGET%的雙腿以Ｍ字的姿勢張開、
				ENDIF
				IF RAND:2 == 0
					PRINTFORM 手腕被固定在腳腕上、
					IF RAND:2 == 0
						PRINTFORMW 繩索緊緊束縛住、身體完全動彈不得了。
					ELSE
						PRINTFORMW 繩索緊緊束縛住、絕對不可能抵抗了。
					ENDIF
				ELSE
					PRINTFORM 手腕和腳腕被完美地捆綁在一起、
					IF RAND:2 == 0
						PRINTFORMW 身體動彈不得了。
					ELSE
						PRINTFORMW 無法再抵抗了。
					ENDIF
				ENDIF
				TEQUIP:拘束 = BIND("縄：手首足首縛り", -1)
			ELSEIF RESULT == 1
				PRINTFORM 以%CALLNAME:TARGET%頭部以下的脖頸為繩索的起點、
				IF RAND:2 == 0
					PRINTFORM 在嬌嫩身體的敏感部分作出了數個粗糙的繩結、
				ELSE
					PRINTFORM 在胸部、胸口以及下腹部留下美麗的繩結、
				ENDIF
				PRINTFORMW 向下抵達股間並順勢向著背後翻越、
				PRINTFORM 穿過背後預先留下的空洞與掛在脖頸上的繩圈系成繩結、
				IF RAND:2 == 0
					PRINTFORMW 讓繩結與繩結之間的繩索恰到好處地勒出重要的部分……
				ELSE
					PRINTFORMW 讓繩結與繩索貼緊在身上、構造出近似菱形的圖案……
				ENDIF
				IF RAND:2 == 0
					PRINTFORMW 同時、雙手也以背著手的姿勢被緊緊拘束住、讓整體的姿態將胸前明顯的強調出來……
				ELSE
					PRINTFORMW 同時、雙手也以背著手的姿勢被繩索捆綁、整體來說构成了向前挺起胸脯的姿勢……
				ENDIF
				PRINTFORM 在摸索著完成了龜甲縛之後、%CALLNAME:TARGET%的
				IF RAND:3 == 0
					IF TALENT:巨乳
						PRINTFORMW 本就格外豐腴的成熟果實在繩索勒緊之後被更加的凸顯出來、在淫靡的繩藝之下散發出妖艷的魅力……
					ELSEIF TALENT:貧乳
						PRINTFORMW 在繩索繃緊之後才稍稍鼓起的乳房顯得非常可憐、卻又激起了甜美的嗜虐之心……
					ELSE
						PRINTFORMW 柔軟而具有彈性的胸部被繩索緊緊勒住、在彰顯出健康美感的同時卻又因緊繃的繩索而添上背德感所帶來的絕妙而魅惑的色彩……
					ENDIF
				ELSEIF RAND:2 == 0
					IF TALENT:高大
						PRINTFORMW 高大的身體、作為繩索有規律的纏繞的對象、十分完美地將繩藝的魅力與女性身體的美感展現出來了……
					ELSEIF TALENT:娇小
						PRINTFORMW 尚未成熟的幼稚身體、變作相互纏繞的複雜繩索的餌食的淫靡模樣、將%CALLNAME:PLAYER%的嗜虐心理充分地滿足了……
					ELSE
						PRINTFORMW 健康的身體、被繃緊的繩索深入肌膚、卻反過來彰顯出這具身體的肉感與豐腴。這隻有在繩索幫助下才能表現出來的奇妙色彩、真是叫人著迷啊……
					ENDIF
				ELSE
					PRINTFORM 胯股之间緊繃的繩索、
					;ボトム直履きの場合は未対応
					IF EQUIP:胖次 && CHECK_PANTIES("Ｖ露出") == 0
						PRINTFORMW %PANTIES(TARGET)%%TEXTR("＿/越しに股間")%に%TEXTR("食い込む様に引き絞られ/深く勒紧的")%、%CALLNAME:TARGET%が僅かでも動くと%TEXTR("縄が擦れて很强刺激を与えてくるようになっている/縄で拘束されている事を否応なく感じてしまうようになっている")%…
					ELSE
						IF TALENT:女性
							PRINTFORMW 姑且避開了艷麗性器最嬌嫩的中心部位、但又從外緣處將陰唇大大地拉扯開來、讓內部那微微顫動的粘膜以及可愛的小小淫豆都能從正面一覽無餘……
						ELSEIF TALENT:扶她
							PRINTFORMW 將碩大的扶她肉棒緊緊束縛住的同時、也將肥美的大陰唇拉扯開來、讓不斷滲透出粘液的膣口在外側的空氣中漸漸乾燥……
						ELSE
							PRINTFORMW 將陰莖的各處尤其是根部緊緊地捆綁住、讓它像是附著上粗糙線條的灼熱鐵棍一樣直立著、同時也防止了它將精液浪費在不必要的地方……
						ENDIF
					ENDIF
				ENDIF
				TEQUIP:拘束 = BIND("縄：亀甲縛り", -1)
			ELSEIF RESULT == 2
				PRINTFORMW %CALLNAME:TARGET%的雙手以及雙腿各自被牢固的繩索折疊起來、然後又用繩索將手腳向背後拉扯並強行合在一起、然後緊緊束縛起來。
				PRINTFORMW 於是、%CALLNAME:TARGET%就不得不像是一只煮熟的大蝦一樣誇張地向後彎曲著腰肢。
				PRINTFORM %CALLNAME:TARGET%因為堅固繩索所帶來的緊縛感、以及強迫達成的痛苦姿勢而積累下很多的負擔、
				IF ABL:受虐属性 >= 3
					PRINTFORMW 儘管從唇角不斷溢出痛苦的喘息聲、但那幾乎為快樂所溶化的面孔依然能看出最真實的情緒……
				ELSE
					PRINTFORMW 無法抑制的顯露出苦悶而痛苦的模樣……
				ENDIF
				TEQUIP:拘束 = BIND("縄：逆海老", -1)
			ELSEIF RESULT == 3
				PRINTFORM %CALLNAME:TARGET%的
				IF TALENT:巨乳
					PRINTFORMW 那过分成熟的豐腴果實、在过度的勒紧下简直就像是要喷洒出母乳一様夸张地膨胀起来、而紧绷的绳索也早已拉扯到最极限的地步。
				ELSEIF TALENT:貧乳
					PRINTFORMW 僅有的小小膨脹被毫不留情勒緊、向外突出著、在那貧瘠胸膛上更加明顯的淤青之痕讓人不禁升起些微的憐憫之心。
				ELSE
					PRINTFORMW 胸前的山谷在繩索的壓榨下充分彰顯了自身的優秀彈性、同時也在拉扯中變得更加挺立了。
				ENDIF
				PRINTFORMW 將層層包裹住胸部的繩索向背後拉出、將%CALLNAME:TARGET%無力的胡亂揮舞著的雙手反綁在身後。
				PRINTFORM 就算僅僅只是這樣也已經是一幕絕境了、但更令人興奮的是、%CALLNAME:PLAYER%將一隻腳的腳腕捆住、將另一頭係在
				IF COND("人里")
					PRINT 阴暗小巷中的外置空调上
				ELSEIF COND("森林")
					PRINT 高度合适的树枝上
				ELSEIF TEQUIP:野外PLAY
					PRINT 附近的高处
				ELSEIF TEQUIP:室内露出PLAY
					PRINT 楼梯的扶手上
				ELSE
					PRINT 吊灯的灯架上
				ENDIF
				PRINTFORMW 被绳子挂了起来……
				PRINTFORM 在繩索的牽扯下、不得不做出單腳站立姿勢的%CALLNAME:TARGET%那被迫張開的股間中、悄然溢出蜜液的陰部
				IF TALENT:女性
					PRINT 女性器
				ELSE
					PRINT 阴茎
				ENDIF
				IF TALENT:害羞 == 0 && ABL:露出癖 >= 3
					PRINTFORMW 也被清楚地暴露著、但她卻完全不感到羞澀、反而以一副興奮的模樣不住地漏出甘甜而灼熱的喘息……
				ELSE
					PRINTFORMW 完全無法被隱藏而激起了她的羞恥心、讓她的臉頰飛快的被紅潮席捲……
				ENDIF
				TEQUIP:拘束 = BIND("縄：足吊り", -1)
			ENDIF
		ENDIF
	ELSEIF RESULT == 1
		PRINTFORMW %CALLNAME:TARGET%的雙手並到一起、被鐵架與手枷拘束了……
		TEQUIP:拘束 = BIND("手枷", -1)
	ELSEIF RESULT == 2
		PRINTFORMW %CALLNAME:TARGET%的一隻手被扣上帶有鏈條的枷鎖、整個人都被吊了起來……
		TEQUIP:拘束 = BIND("吊り", -1)
	ELSEIF RESULT == 3
		PRINTFORMW %CALLNAME:TARGET%被放倒在拘束台上、雙腿以Ｍ字開腿的姿勢被固定在架台上了……
		TEQUIP:拘束 = BIND("Ｍ字開脚", -1)
	ELSEIF RESULT == 4
		PRINTFORMW %CALLNAME:TARGET%仰臥在床上、手腕和腳腕被拴上鏈條、以大字形被拘束著……
		TEQUIP:拘束 = BIND("床", -1)
	ELSEIF RESULT == 5
		PRINTFORMW %CALLNAME:TARGET%四肢著地的趴跪在地上、雙腳被拘束著……
		TEQUIP:拘束 = BIND("四つん這い", -1)
	ENDIF
ENDIF

@EQUIP_COM134_2
SIF TEQUIP:拘束 == 0
	RETURN 0
SIF SELECTCOM == 134
	RETURN 0

PRINTFORML ＜%BINDS(TEQUIP:拘束)%＞

LOCAL = 0
;20bit 手が使えない, 21bit 足が使えない, 22bit 体勢が変えられない, 23bit 無理な姿勢, 24bit 胸, 25bit 股間
SIF GETBIT(TEQUIP:拘束, 20)
	LOCAL += 1
SIF GETBIT(TEQUIP:拘束, 21)
	LOCAL += 1
SIF GETBIT(TEQUIP:拘束, 22)
	LOCAL += 1
SIF GETBIT(TEQUIP:拘束, 23)
	LOCAL += 1
SIF GETBIT(TEQUIP:拘束, 24)
	LOCAL += 1
SIF GETBIT(TEQUIP:拘束, 25)
	LOCAL += 1
LOCAL = MAX(LOCAL, 1)

EXP:拘束経験 += LOCAL

SIF ASSIPLAY == 0 && ABL:受虐属性 >= 2
	TFLAG:好感度BOUNS += 1


code:
@COM135
;口枷
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

IF TEQUIP:口枷 == 2
	STR:前回指令 = 環形口枷
ELSEIF TEQUIP:口枷
	STR:前回指令 = 口球
ELSE
	STR:前回指令 = %STR:今回指令%
ENDIF

RETURN 1

@TRAIN_MESSAGE_COM135
;口球の着脱
IF TEQUIP:口枷
	PRINTFORMW 為%CALLNAME:TARGET%取下了%NAMES("口枷")%
	TEQUIP:口枷 = 0
	CALL REMOVE_TEQUIP, "口枷", "鼻钩", "眼罩"
ELSE
	PRINTFORML 要讓%CALLNAME:TARGET%戴上那種口枷？
	PRINTL  [ 0] 口球
	PRINTL  [ 1] 環形口枷
	PRINTL [100] 不、再考慮一下吧。
	CALL INPUT_SELECT, 2, 100
	IF RESULT == 100
		TFLAG:指令中止 = 1
	ELSEIF RESULT == 0
		TEQUIP:口枷 = 1
		PRINTFORMW 讓%CALLNAME:TARGET%咬住了有孔的球型口枷。唾液橫流的景色真的很色情……
	ELSEIF RESULT == 1
		TEQUIP:口枷 = 2
		PRINTFORMW 讓%CALLNAME:TARGET%咬住了中空的環形口枷。無法閉上嘴巴、就算想做些什麼也無法阻止吧……
	ENDIF
	CALL ADD_TEQUIP, "口枷", "鼻钩", "眼罩"
ENDIF

@FLAG_COM135, ARG

@SOURCE_COM135, ARG
CALL SOURCE_SMPLAY, "口枷", ARG

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 135

SOURCE:0:疼痛 = 50
SOURCE:0:充足 = 50
SOURCE:0:露出 = 80
SOURCE:0:屈従 = 150
SOURCE:0:逸脱 = 80

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

@EQUIP_COM135
SIF TEQUIP:口枷 == 0
	RETURN 0
SIF SELECTCOM == 135
	RETURN 0
;口球装備中
CALL SOURCE_COM135, 20

@EQUIP_COM135_2
SIF TEQUIP:口枷 == 0
	RETURN 0
SIF SELECTCOM == 135
	RETURN 0
;口球装備中
IF TEQUIP:口枷 == 1
	PRINTL ＜口球装備中＞
ELSEIF TEQUIP:口枷 == 2
	PRINTL ＜環形口枷装備中＞
ENDIF
EXP:拘束経験 += 1


code:
@COM136
;浣腸
;TEQUIP:浣腸は薬剤使用だと>=2となり、精液浣腸時には==１となる
;排泄した場合は NOWEX:排泄 で記録。SOURCEとしては、12：露出、13：屈従、14：逸脱が特に高い。
;排泄を撮影すると、初回は屈従が凄まじい事になる
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM136, ARG
;胖次などをずらす
SIF !CHECK_CLO("Ａ露出")
	CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET

@SOURCE_COM136, ARG
CALL SOURCE_SMPLAY, "浣腸", ARG

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 136

;PLAYとしては、TEQUIP:浣腸…つまりCOND("液体浣腸")の値が増えるほどキツいこととする。最高に厳しいのは排泄PLAY。
SOURCE:0:Ａ快楽 = ABL:Ａ感覚*100
SOURCE:0:疼痛 = COND("液体浣腸")*500
SOURCE:0:不潔 = 4000 + COND("液体浣腸")*1000
SOURCE:0:露出 = 10000
SOURCE:0:屈従 = 9000 + COND("液体浣腸")*1000
SOURCE:0:逸脱 = 4000 + COND("液体浣腸")*1000

;排泄
IF NOWEX:排泄
	SOURCE:0:不潔 += 20000
	SOURCE:0:露出 += NOWEX:排泄 * 5000 + 10000
	SOURCE:0:屈従 += NOWEX:排泄 * 5000 + 10000
	SOURCE:0:逸脱 += NOWEX:排泄 * 5000 + 10000
	;撮影したなら
	SIF TEQUIP:攝像機
		SOURCE:0:屈従 *= 3
ENDIF

;場所をみる
IF COND("人里") || TEQUIP:室内露出PLAY
	TIMES SOURCE:0:露出, 1.50
	TIMES SOURCE:0:逸脱, 3.00
ELSEIF TEQUIP:野外PLAY
	TIMES SOURCE:0:露出, 1.50
	TIMES SOURCE:0:逸脱, 2.00
ELSEIF TEQUIP:浴室PLAY
	TIMES SOURCE:0:逸脱, 0.50
ENDIF

;ABL:露出癖をみる
SELECTCASE ABL:露出癖
CASE 0 TO 5
	SOURCE:0:逸脱 = MULTIPLY(SOURCE:0:逸脱, 100 - ABL:露出癖*13)
CASE 6 TO 10
	SOURCE:0:逸脱 = MULTIPLY(SOURCE:0:逸脱, 35 - (ABL:露出癖 - 5)*5)
CASEELSE
	SOURCE:0:逸脱 = MULTIPLY(SOURCE:0:逸脱, 10 - (ABL:露出癖 - 10)*1)
ENDSELECT

;Ａ拡張LVをみる
SELECTCASE ABL:Ａ拡張
CASE IS >= 3
	TIMES SOURCE:0:疼痛, 0.30
CASE 2
	TIMES SOURCE:0:疼痛, 0.50
CASE 1
CASEELSE
	TIMES SOURCE:0:疼痛, 2.00
ENDSELECT

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

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

@TRAIN_MESSAGE_COM136
;浣腸塞子の着脱
IF COND("肛門栓")
	CALL SETFLAG, "排泄"
ELSE
	IF TEQUIP:浣腸
		IF COND("大量浣腸")
			PRINTFORMW 向%CALLNAME:TARGET%抵達極限的肛門將追加灌腸液的灌注了、
			PRINTFORMW 被過分大量的黏稠藥液充滿體內的%CALLNAME:TARGET%、腹部已經如同鼓起的青蛙一樣誇張的膨脹起來了……
			TEQUIP:浣腸 = 4
		ELSE
			PRINTFORMW 向%CALLNAME:TARGET%的菊穴將追加的浣腸液灌注了
			PRINTFORMW 儘管仍然存在略微的空餘空間、但%CALLNAME:TARGET%的腹部極大地膨脹起來了、神情十分痛苦的樣子……
			TEQUIP:浣腸 = 3
		ENDIF
	ELSEIF ITEM:浣腸
		PRINTFORML 要用哪個讓%CALLNAME:TARGET%的腹部膨脹起來？
		PRINTFORML （注意：小型物品以外的物品使用的場合、肛門性交等部分指令不能進行。）
		PRINTFORML  [ 0] 普通浣腸器
		PRINTFORML  [ 1] 特大浣腸器
		PRINTFORML [100] 不、再考慮一下吧。

		CALL INPUT_SELECT, 2, 100

		IF RESULT == 100
			TFLAG:指令中止 = 1
			RETURN 0
		ELSEIF RESULT == 0
			PRINTFORMW 向%CALLNAME:TARGET%的菊穴將浣腸液滿滿地灌注了
			TEQUIP:浣腸 = 2
		ELSEIF RESULT == 1
			PRINTFORMW 被大量的浣腸液灌注的%CALLNAME:TARGET%的腹部就像是妊娠一樣膨脹起來了……
			TEQUIP:浣腸 = 4
		ENDIF
	ENDIF
	IF COND("液体浣腸") && COND("肛門栓") == 0
		PRINTFORML
		PRINTFORML 是否使用肛塞？
		PRINTFORML [0] 是
		PRINTFORML [1] 否
		CALL INPUT_SELECT, 2
		IF RESULT == 0
			PRINTFORMW %CALLNAME:TARGET%的尻穴被塞上了肛塞…
			TEQUIP:肛塞 = 1
		ENDIF
	ENDIF
	;精液浣腸フラグ消去
	TEQUIP:精液浣腸 = 0
	CUP:Ａ潤 += 1000
ENDIF

@EQUIP_COM136
SIF TEQUIP:浣腸 == 0
	RETURN 0
SIF SELECTCOM == 136
	RETURN 0
SIF COND("精液浣腸")
	RETURN 0
CALL SOURCE_COM136, 10

RETURN 1

@EQUIP_COM136_2
SIF TEQUIP:浣腸 == 0
	RETURN 0
SIF SELECTCOM == 136
	RETURN 0

IF COND("温泉浣腸")
	PRINTL ＜温泉浣腸中＞
ELSEIF COND("精液浣腸")
	PRINTL ＜精液浣腸中＞
ELSE
	PRINTFORM ＜浣腸
	SELECTCASE COND("液体浣腸")
	CASE 3
		PRINT （大量）
	CASE IS >= 4
		PRINT （超大量）
	ENDSELECT
	IF INSERT("Ａ挿入")
		PRINT ＋Ａ挿入
	ELSEIF COND("肛門栓")
		PRINT ＋肛塞挿入中
	ENDIF
	PRINTL ＞
ENDIF

;精液浣腸だと浣腸経験とかは没有
IF COND("精液浣腸")
	;ここは微々たる物
	SIF BASE:排泄物
		BASE:排泄欲 += EXP_GAIN("肛内精液経験")*20
	;限界まであとどれくらい？
	;SELECTCASE (BASE:排泄欲 * 100) / MAXBASE:排泄欲
	;CASE IS >= 90
	;	PRINTFORML %CALLNAME:TARGET%的腹部也許是被精液的灌注而受到刺激、迴響著咕嚕咕嚕的響聲……
	;ENDSELECT
	RETURN 0
ELSEIF COND("液体浣腸")
	VARSET LOCAL
	;ターンごとに耐えるのがきつくなる
	LOCAL = 300 + (CUP:快Ｃ + CUP:快Ｖ + CUP:快Ａ + CUP:苦痛)/5 + NOWEX:Ｃ絶頂*200 + NOWEX:Ｖ絶頂*500 + NOWEX:Ａ絶頂*1000 + NOWEX:絶頂数合計*100

	;浣腸量による補正
	SELECTCASE COND("液体浣腸")
	CASE 3
		TIMES LOCAL, 3.00
	CASE IS >= 4
		TIMES LOCAL, 5.00
	ENDSELECT

	;Ａ拡張度合いによる補正
	SELECTCASE ABL:Ａ拡張 - ABL:Ａ技術
	CASE IS >= 4
		TIMES LOCAL, 30.00
	CASE 3
		TIMES LOCAL, 10.00
	CASE 2
		TIMES LOCAL, 5.00
	CASE 1
		TIMES LOCAL, 3.00
	ENDSELECT

	;指令などによる補正
	SELECTCASE SELECTCOM
	CASE 2
		TIMES LOCAL, 1.20
	CASE 9
		TIMES LOCAL, 1.10
	CASE 14
		TIMES LOCAL, 1.30
	CASE 33, 141
		TIMES LOCAL, 2.00
	CASE 142, 143
		TIMES LOCAL, 3.00
	CASE 60 TO 79
		TIMES LOCAL, 1.50
	ENDSELECT

	;LOCAL:1は下方修正。かかり過ぎないようにLOCALとは独立させて調整
	LOCAL:1 = 100

	;性格による補正(ツンやクーはがんばって堪えます。他はシラネ)
	SELECTCASE TALENT:高慢*50 + TALENT:堅強*40 + TALENT:強気*40 + TALENT:冷静*25 + TALENT:害羞*50 + TALENT:聰慧*25
	CASE IS >= 150
		TIMES LOCAL:1, 0.30
	CASE IS >= 100
		TIMES LOCAL:1, 0.50
	CASE IS > 50
		TIMES LOCAL:1, 0.80
	ENDSELECT

	;能力による補正。露出癖が高いと我慢しない。受虐属性が高いと忍耐。
	SELECTCASE 100 - ABL:露出癖*30 + ABL:受虐属性*10
	CASE IS >= 80
		TIMES LOCAL:1, 0.30
	CASE IS >= 50
		TIMES LOCAL:1, 0.50
	CASE IS >= 30
		TIMES LOCAL:1, 0.80
	CASE IS < -20
		TIMES LOCAL:1, 2.00
	CASE IS < 0
		TIMES LOCAL:1, 1.50
	ENDSELECT

	;どんなに耐えても30％はある
	LOCAL:1 = MAX(LOCAL:1, 30)

	;補正のかかった値を追加
	BASE:排泄欲 += MULTIPLY(LOCAL, LOCAL:1)

	IF COND("肛門栓")
		PRINTFORML %CALLNAME:TARGET%緊縮的腸道中、被強硬地灌注了\@ COND("大量浣腸") ? 大量 # \@\@ COND("温泉浣腸") ? 充滿氨臭味的濁黃尿液 # 混合各種液體的浣腸液 \@、卻因為被強行塞入的肛門塞而無法排出、忍受著持續地玩弄。
		SELECTCASE ABL:受虐属性
		CASE 0
			PRINTFORML %CALLNAME:TARGET%不禁流露出苦悶的神情……
		CASE 1
			PRINTFORML %CALLNAME:TARGET%的身上浮現黏稠的脂汗、盡力忍受著排泄感……
		CASE 2
			PRINTFORML %CALLNAME:TARGET%流露出難過神情的同時、也羞紅著臉扭捏的輕輕搖晃著尻部……
		CASE 3
			PRINTFORML %CALLNAME:TARGET%在受到排泄感的折磨與玩弄的同時、也不時浮現出恍惚的神情……
		CASE 4
			PRINTFORML %CALLNAME:TARGET%帶著恍惚的神情、靜靜享受著排泄感與腹痛……
		CASE IS >= 5
			PRINTFORML %CALLNAME:TARGET%は、排泄感を心ゆくまで味わっている…
			PRINTFORML 恍惚的神態因痛苦的快感而更加不檢點的鬆懈、從唇角\@ TALENT:男性 == 0 ? 和膣口 # \@滴滴答答地流出了液体…
		ENDSELECT
		SIF COND("排泄：限界")
			CALL KOJO_EVENT, "无塞浣腸事件"
	ENDIF
ENDIF
EXP:浣腸経験 += 1
PRINTFORMW 浣腸経験＋１

RETURN 1


code:
@COM138
;让对方浴尿
;直前に口交系指令なら口内放尿、性交系なら膣内放尿、Ａ性交系なら温泉浣腸となる
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM138, ARG
;尿的污垢発生
IF PENIS(PLAYER)
	STAIN:PLAYER:Ｐ = SET_STAIN(STAIN:PLAYER:Ｐ, "尿")
ELSE
	STAIN:PLAYER:Ｖ = SET_STAIN(STAIN:PLAYER:Ｖ, "尿")
ENDIF
IF CHECK_COM("口内放尿")
	STAIN:Ｍ = SET_STAIN(STAIN:Ｍ, "尿")
	IF PENIS(PLAYER)
		CALL EQ_STAIN, TARGET, "Ｍ", PLAYER, "Ｐ"
	ELSE
		CALL EQ_STAIN, TARGET, "Ｍ", PLAYER, "Ｖ"
	ENDIF
	CALL SETFLAG, "飲尿フラグ", TARGET
;妊娠率減少してみる。まぁファンタジーだしな
ELSEIF CHECK_COM("膣内放尿")
	STAIN:Ｖ = SET_STAIN(STAIN:Ｖ, "尿")
	CALL EQ_STAIN, TARGET, "Ｖ", PLAYER, "Ｐ"
	BASE:胎内精液量 /= 2
	BASE:胎内精子量 /= 2
	CALL SETFLAG, "膣内浴尿フラグ", TARGET
	IF CHECK_COM("子宮内放尿")
		BASE:胎内精液量 /= 5
		BASE:胎内精子量 /= 5
		CALL SETFLAG, "子宮内浴尿フラグ", TARGET
	ENDIF
ELSEIF CHECK_COM("温泉浣腸")
	STAIN:Ａ = SET_STAIN(STAIN:Ａ, "尿")
	CALL EQ_STAIN, TARGET, "Ａ", PLAYER, "Ｐ"
	;量は(大量)ぐらい
	CALL SETFLAG, "温泉浣腸", TARGET
	CALL SETFLAG, "温泉浣腸フラグ", TARGET
ELSEIF CHECK_COM("乳内放尿")
	STAIN:Ｂ = SET_STAIN(STAIN:Ｂ, "尿")
	CALL EQ_STAIN, TARGET, "Ｂ", PLAYER, "Ｐ"
	CALL SETFLAG, "乳内浴尿フラグ", TARGET
ELSEIF CHECK_COM("膀胱内放尿")
	IF PENIS(TARGET)
		STAIN:Ｐ = SET_STAIN(STAIN:Ｐ, "尿")
		CALL EQ_STAIN, TARGET, "Ｐ", PLAYER, "Ｐ"
	ELSE
		STAIN:Ｖ = SET_STAIN(STAIN:Ｖ, "尿")
		CALL EQ_STAIN, TARGET, "Ｖ", PLAYER, "Ｐ"
	ENDIF
	CALL SETFLAG, "膀胱内浴尿フラグ", TARGET
	BASE:尿意 += BASE:PLAYER:尿意
ENDIF

;主动放尿したので、最後まで出し切ります
BASE:PLAYER:尿意 = 0
IF NOWEX:PLAYER:放尿 == 0
	NOWEX:PLAYER:放尿 += 1
	EX:PLAYER:放尿 += 1
ENDIF

@SOURCE_COM138, ARG
CALL SOURCE_SMPLAY, "让对方浴尿", ARG

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 138

;基本的にはかなりきつい指令です
SOURCE:0:不潔 = 3000
SOURCE:0:屈従 = 1000
SOURCE:0:逸脱 = 5000

IF CHECK_COM("口内放尿")
	SOURCE:0:不潔 += 2000
	IF CHECK("口内放尿")
		SOURCE:0:屈従 += 4000
	ELSE
		SOURCE:0:逸脱 += 3000
	ENDIF
ELSEIF CHECK_COM("子宮内放尿")
	SOURCE:0:Ｖ快楽 = CALCF("Ｖ刺激", 1, 20)
	SIF TALENT:子宮性感
		TIMES SOURCE:0:Ｖ快楽, 2.00
	SOURCE:0:不潔 += 7000
	SOURCE:0:逸脱 += 10000
	IF CHECK("子宮内放尿")
		SOURCE:0:屈従 += 7000
	ELSE
		SOURCE:0:逸脱 += 5000
	ENDIF
ELSEIF CHECK_COM("膣内放尿")
	SOURCE:0:Ｖ快楽 = CALCF("Ｖ刺激", 1, 10)
	IF CHECK("膣内放尿")
		SOURCE:0:屈従 += 2000
	ELSE
		SOURCE:0:逸脱 += 500
	ENDIF
ELSEIF CHECK_COM("温泉浣腸")
	SOURCE:0:Ａ快楽 = CALCF("Ａ刺激", 1, 10)
	SOURCE:0:逸脱 += 3000
	IF CHECK("温泉浣腸")
		SOURCE:0:屈従 += 2000
	ELSE
		SOURCE:0:逸脱 += 1000
	ENDIF
	CALL SOURCE_COM136, 50
ELSEIF CHECK_COM("乳内放尿")
	SOURCE:0:Ｂ快楽 = CALCF("Ｂ刺激", 1, 10)
	SOURCE:0:逸脱 += 5000
	IF CHECK("乳内放尿")
		SOURCE:0:屈従 += 3000
	ELSE
		SOURCE:0:逸脱 += 2000
	ENDIF
ELSEIF CHECK_COM("膀胱内放尿")
	SOURCE:0:Ｃ快楽 = CALCF("尿道刺激", 1, 10)
	SOURCE:0:逸脱 += 5000
	IF CHECK("膀胱内放尿")
		SOURCE:0:屈従 += 3000
	ELSE
		SOURCE:0:逸脱 += 2000
	ENDIF
ENDIF

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

@TRAIN_MESSAGE_COM138
PRINTFORM %CALLNAME:PLAYER%仍由尿意從下體放出、
IF CHECK_COM("口内放尿")
	IF PENIS(PLAYER)
		IF PREVCOM == 140
			IF PREVEX("口内射精") && RAND:3
				IF RAND:2
					PRINTFORMW 在%CALLNAME:TARGET%咽喉的深處射出精液後又不間斷的灌入了尿液。
				ELSE
					PRINTFORM 在%TEXTR("被精液招待過/飲下精液/仔細品味過精液")%之後的、
					PRINTFORMW %CALLNAME:TARGET%咽喉的深處將尿液氣勢洶湧的灌注了。
				ENDIF
			ELSE
				IF ABL:PLAYER:施虐属性 >= 3
					PRINTFORMW 在盡情的侵犯過之後就把嘴巴當成了肉便器解決了尿意。
				ELSE
					PRINTFORMW 在盡情的侵犯過之後在%CALLNAME:TARGET%喉嚨的最深處將尿液氣勢洶湧的灌注了。
				ENDIF
			ENDIF
		ELSE
			IF PREVEX("口内射精") && RAND:3 == 0
				PRINTFORM 在%TEXTR("被精液招待過/飲下精液/仔細品味過精液")%之後的、
			ELSEIF ABL:奉仕精神 >= 3 && TEQUIP:口枷 == 0 && RANDIF(1, ABL:精液中毒 >= 3) && PREVEX("口内射精")
				PRINTFORM 在射精之後的龜頭被%TEXTR("嘴唇包裹住並用舌頭不斷舔舐/像是輕啄一樣不斷親吻")%之後、
			ELSE
				IF ABL:精液中毒 >= 3 && RAND:2
					PRINTFORM 在%TEXTR("神情恍惚地/無比陶醉的/像是品嚐過美食一樣一臉幸福地")%舔舐並吮吸過陰莖之後、
				ELSE
					PRINTFORM 在將充分射精的陰莖舔舐並吮吸之後
				ENDIF
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%也將莖身中的尿液一併吮吸出來並全部嚥下了……
		ENDIF
	ELSE
		PRINTFORM 持續侍奉著陰部的%CALLNAME:TARGET%
		IF COND("指の使用", PLAYER)
			PRINTFORMW 被按住頭隨後被強迫飲用了聖水……
		ELSE
			PRINTFORMW 被聖水招待了……
		ENDIF
	ENDIF
ELSEIF CHECK_COM("子宮内放尿")
	IF ABL:PLAYER:施虐属性 >= 3 && RAND:2
		PRINTFORMW 在充分侵犯過後、將抽搐的子宮當成便器將尿液灌注進去了、
	ELSE
		IF EX:Ｖ中出し >= 3 && COND("危険日") && COND("受精確率") >= 30
			PRINTFORM 被充分灌注了精液的危险日的子宫
		ELSE
			PRINTFORM %TEXTR("被精液玷污/受孕交配之后/被充分款待了精液")%的%CALLNAME:TARGET%的子宮
		ENDIF
		IF RAND:2
			PRINTFORMW 被灌入臊臭的浊黄尿液、
		ELSE
			PRINTFORMW 被尿液冲刷了、
		ENDIF
	ENDIF
	PRINTFORMW 被氣勢洶湧地放出的尿液將子宮內部%TEXTR("蹂躙/沖刷/灌滿")%、隨後順著拔出的陰莖從%CALLNAME:TARGET%的膣口淅瀝瀝的溢出流下了……
ELSEIF CHECK_COM("膣内放尿")
	;前回絶頂
	IF PREVEX("Ｖ絶頂") && RAND:3
		PRINTFORM 将耽溺在絕頂的餘韻中
		IF PREVEX("絶頂数合計") >= 3 || PREVEX("Ｖ絶頂") >= 2
			PRINTFORM %TEXTR("暴露著蕩漾神情的/露出沉溺與慾望中的難堪表情的/失神的")%
		ELSE
			PRINTFORM %TEXTR("渾身癱軟無力的/大口吐出甜美吐息的/身體微微顫抖著的")%
		ENDIF
		PRINTFORM %CALLNAME:TARGET%的
	ELSEIF COND("指の使用", PLAYER) && RAND:2
		PRINTFORM 將%CALLNAME:TARGET%%TEXTR("的腰肢牢牢禁錮住/緊緊擁入懷中")%的同時、將
	ELSE
		PRINTFORM 將%TEXTR("被精液玷污/受孕交配之後/被充分款待了精液")%的
	ENDIF

	IF ABL:PLAYER:施虐属性 >= 3 && RAND:2
		PRINTFORMW 膣穴當成便器將尿液灌注進去了、
	ELSEIF COND("指の使用", PLAYER) && RAND:2
		IF RAND:2
			PRINTFORMW 膣內灌入臊臭的濁黃尿液、
		ELSE
			PRINTFORMW 膣道用尿液沖刷了、
		ENDIF
	ELSEIF PREVCOM == 67 && RAND:2
		PRINTFORMW 子宮口抵住、向內部噴射著尿液、
	ELSE
		PRINTFORMW 膣內深深埋入陰莖之後毫不客氣的放出尿液、
	ENDIF
	PRINTFORMW 被氣勢洶湧地放出的尿液理所當然無法被膣內容納、將被尿液經過的抽搐軟肉全部染上氨氣的劇臭之後、就從%CALLNAME:TARGET%的膣口淅瀝瀝的溢出流下了……
ELSEIF CHECK_COM("温泉浣腸")
	;前回絶頂
	IF PREVEX("Ａ絶頂") && RAND:3
		PRINTFORM 将耽溺在絕頂的餘韻中
		IF PREVEX("絶頂数合計") >= 3 || PREVEX("Ａ絶頂") >= 2
			PRINTFORM %TEXTR("暴露著蕩漾神情的/露出沉溺與慾望中的難堪表情的/失神的")%
		ELSE
			PRINTFORM %TEXTR("渾身癱軟無力的/大口吐出甜美吐息的/身體微微顫抖著的")%
		ENDIF
		PRINTFORM %CALLNAME:TARGET%的
	ELSEIF COND("指の使用", PLAYER) && RAND:2
		PRINTFORM 將%CALLNAME:TARGET%%TEXTR("的腰肢牢牢禁錮住/緊緊擁入懷中")%的同時、將
	ELSE
		PRINTFORM 將%TEXTR("被精液玷污/灌滿精液之後/被充分款待了精液")%的
	ENDIF
	IF ABL:PLAYER:施虐属性 >= 3 && RAND:2
		PRINTFORMW 肛門當成便器將尿液灌注進去了……
	ELSEIF RAND:2
		PRINTFORMW 尻穴灌入臊臭的濁黃尿液……
	ELSE
		PRINTFORMW 肛門深深埋入陰莖之後毫不客氣的放出尿液……
	ENDIF
ELSEIF CHECK_COM("乳内放尿")
	;前回絶頂
	IF PREVEX("Ｂ絶頂") && RAND:3
		PRINTFORM 将耽溺在絕頂的餘韻中
		IF PREVEX("絶頂数合計") >= 3 || PREVEX("Ｂ絶頂") >= 2
			PRINTFORM %TEXTR("暴露著蕩漾神情的/露出沉溺與慾望中的難堪表情的/失神的")%
		ELSE
			PRINTFORM %TEXTR("渾身癱軟無力的/大口吐出甜美吐息的/身體微微顫抖著的")%
		ENDIF
	ELSE
		PRINTFORM 將%TEXTR("被精液玷污/受孕交配之後/被充分款待了精液")%的
	ENDIF
	PRINTFORM %CALLNAME:TARGET%
	IF ABL:PLAYER:施虐属性 >= 3 && RAND:2
		PRINTFORMW 的乳房之中當成便器將尿液灌注進去了、
	ELSEIF COND("指の使用", PLAYER) && RAND:2
		PRINTFORM %TEXTR("的乳房更加用力的按住/的胸部用雙手猛力抓住")%、
		IF RAND:2
			PRINTFORMW 向內部灌入了臊臭的濁黃尿液、
		ELSE
			PRINTFORMW 將腰肢前頂之後向內部噴射著尿液、
		ENDIF
	ELSE
		PRINTFORMW 的乳內深深埋入陰莖之後毫不客氣的放出尿液、
	ENDIF
	PRINTFORMW 雖然有著吸手的美好觸感、但狹窄的內部自然無法容納所有的尿液、從%CALLNAME:TARGET%乳頭因失去堵塞物而微微顫抖的淫孔中、黃色的液體摻雜著濁白色的液體一併淅瀝瀝的溢出流下了……
ELSEIF CHECK_COM("膀胱内放尿")
	;前回絶頂
	IF PREVEX("尿道絶頂") && RAND:3
		PRINTFORM 将耽溺在絕頂的餘韻中
		IF PREVEX("絶頂数合計") >= 3 || PREVEX("尿道絶頂") >= 2
			PRINTFORM %TEXTR("暴露著蕩漾神情的/露出沉溺與慾望中的難堪表情的/失神的")%
		ELSE
			PRINTFORM %TEXTR("渾身癱軟無力的/大口吐出甜美吐息的/身體微微顫抖著的")%
		ENDIF
		PRINTFORM %CALLNAME:TARGET%的
	ELSEIF COND("指の使用", PLAYER) && RAND:2
		PRINTFORM 將%CALLNAME:TARGET%%TEXTR("的腰肢牢牢禁錮住/緊緊擁入懷中")%的同時、將
	ELSE
		PRINTFORM 將%TEXTR("被精液玷污/受孕交配之後/被充分款待了精液")%的
	ENDIF

	IF ABL:PLAYER:施虐属性 >= 3 && RAND:2
		PRINTFORMW 另一人的膀胱當成便器讓尿液返回了、
	ELSEIF COND("指の使用", PLAYER) && RAND:2
		PRINTFORMW 肉尿袋用臊臭的濁黃尿液灌滿了、
	ELSE
		PRINTFORMW 尿道深深埋入陰莖之後毫不客氣的放出尿液……
	ENDIF
	PRINTFORMW 被氣勢洶湧地放出的%CALLNAME:PLAYER%的尿液、在%CALLNAME:TARGET%的膀胱中與其尿液相互混合、因超出容積的巨量液體而讓她為腹部的脹痛發出了哀鳴……
ELSE
	PRINTFORMW 坐在%CALLNAME:TARGET%的臉頰上盡情的釋放了……
ENDIF


code:
@COM139
;什麼也不做
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM139, ARG
;全員の絶頂ゲージが3000か最大値の半分ぐらいか下がる
BASE:絶頂 = LIMIT(BASE:絶頂 - MAX(MAXBASE:絶頂/2, 3000), 0, BASE:絶頂*3/4)
BASE:MASTER:絶頂 = LIMIT(BASE:MASTER:絶頂 - MAX(MAXBASE:MASTER:絶頂/2, 3000), 0, BASE:MASTER:絶頂*3/4)
SIF ASSI
	BASE:ASSI:絶頂 = LIMIT(BASE:ASSI:絶頂 - MAX(MAXBASE:ASSI:絶頂/2, 3000), 0, BASE:ASSI:絶頂*3/4)
IF INSERT("挿入")

ELSEIF INSERT("挿入中")

ELSEIF TEQUIP:拘束 + TEQUIP:眼罩

ELSEIF TEQUIP:浴室PLAY
	;汚れを初期化
	CALL RESET_STAIN_EX, "全部", MASTER
	CALL RESET_STAIN_EX, "全部", TARGET
	;助手がいる場合は、助手もきれいに
	SIF ASSI
		CALL RESET_STAIN_EX, "全部", ASSI
ENDIF

@SOURCE_COM139, ARG
CALL VARSET_COMF

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

@TRAIN_MESSAGE_COM139
PRINTFORM %CALLNAME:PLAYER%将
IF INSERT("挿入")
	;騎乗位中
	IF INSERT("騎乗位")
		PRINTFORMW 一邊靜靜眺望著在自己的身上揮動腰肢的%CALLNAME:TARGET%那沉迷於快樂的臉、一邊短暫的休息了。
		CALL TEXT, "追加地の文：騎乗位"
	ELSE
		PRINTFORMW 停止向上挺動的腰肢、決定暫時休息一會。
	ENDIF
ELSEIF INSERT("挿入中")
	IF INSERT("騎乗位", PLAYER)
		PRINTFORMW 保持著跨坐在%CALLNAME:TARGET%身上的姿勢停下搖擺的腰肢、靜靜地看著那恍惚而享受的表情、靜靜的休息了一會兒……
	ELSE
		PRINTFORMW 從身體中抽出力量、保持著被%CALLNAME:TARGET%侵犯的姿態、用綿軟的語氣提出了休息的提案……
	ENDIF
ELSEIF TEQUIP:拘束 + TEQUIP:眼罩
	PRINTFORMW 一邊對無法自由行動的%CALLNAME:TARGET%%TEXTR("的身體反復掃視著/靜靜凝視著")%、一邊短暫的休息了……
ELSEIF TEQUIP:浴室PLAY
	PRINTFORMW 和%CALLNAME:TARGET%一起泡在浴室裡寧靜的休息了……
ELSE
	SELECTCASE PREVCOM
	CASE TNUM("抱上去")
		PRINTFORMW %CALLNAME:TARGET%抱住つつ、就这様休憩した
	CASEELSE
		PRINTFORMW 什麼也不做的休息了一會……
	ENDSELECT
ENDIF