code:
@COM174
;室内露出PLAY
;館内露出PLAYの改変
;露出PLAYの合意がないとダメ
;恥情・欲望があがりやすい。反感もやや高め。

CALL PRINT_TRAIN_NAME(SELECTCOM)

;-------------------------------------------------
;実行できるかの判定
;-------------------------------------------------
;CALL SHOW_COM_ORDER_COM, 174
;
;実行できない
;SIF TCVAR:干劲 == 0
;	RETURN 0
;-------------------------------------------------
;実行決定
;-------------------------------------------------
CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

;終了時は修正无
IF TEQUIP:室内露出PLAY
	TEQUIP:室内露出PLAY = 0
	SIF ASSI
		TEQUIP:ASSI:室内露出PLAY = 0
ELSE
	TEQUIP:室内露出PLAY = 1
	SIF ASSI
		TEQUIP:ASSI:室内露出PLAY = 1
ENDIF

RETURN 1

@TRAIN_MESSAGE_COM174
;是より居間を一般的洋風リビングと仮定。ソファでのPLAYをもって公開PLAYとする！！
;近くのソファで家族（兄or姉と妹、母と息子or娘）が性行為しているのを見せつけられる家庭……
;最大10人が収容できるリビングとは一体……
IF PLACE("居間")
	IF TEQUIP:室内露出PLAY
		PRINTFORMW %CALLNAME:PLAYER%让%CALLNAME:TARGET%从沙发上回去了…
	ELSEIF ASSI > 0
		PRINTFORMW %CALLNAME:PLAYER%指示%CALLNAME:ASSI%准备移動到沙发上…
	ELSE
		PRINTFORMW %CALLNAME:PLAYER%为了展示%CALLNAME:TARGET%的痴態而移動到了沙发上…
	ENDIF
ELSE
	IF TEQUIP:室内露出PLAY
		PRINTFORMW %CALLNAME:PLAYER%们回到了原来的房间。
	ELSE
		PRINTFORMW %CALLNAME:PLAYER%为了展示%CALLNAME:TARGET%的痴態而移动到了公共场所…
	ENDIF
ENDIF

@EQUIP_COM174_2
;室内露出PLAY
SIF TEQUIP:室内露出PLAY == 0
	RETURN 0
SIF SELECTCOM == 174
	RETURN 0
PRINTL
PRINTL ＜室内露出PLAY＞

SETCOLOR DEF_COLOR("黄色")

CALL AUDIENCE_CHOICE

RESETCOLOR

CALL SOURCE_COM174, 100

EXP:露出経験 += TEQUIP:室内露出PLAY

RETURN 1

@FLAG_COM174, ARG

@SOURCE_COM174, ARG
CALL VARSET_COMF

;観客の数による補正有
SOURCE:0:露出 = 1000 + TEQUIP:室内露出PLAY * 500
SOURCE:0:逸脱 = TEQUIP:室内露出PLAY * 200

IF CHECK_CLO("裸体")
	;種族衣装が裸体でない
	IF CLO_ORI(TARGET, "服", "贴身制服", "外套", "胖次")
		SOURCE:0:露出 += 2000
		SOURCE:0:逸脱 += 500
	ENDIF
ELSEIF CHECK_CLO("内衣姿")
	;種族衣装が服or贴身制服or外套を含む
	IF CLO_ORI(TARGET, "服", "贴身制服", "外套")
		SOURCE:0:露出 += 1000
		SOURCE:0:逸脱 += 200
	ENDIF
ELSEIF CHECK_CLO("没穿内褲")
	;種族衣装に内衣有
	IF CLO_ORI(TARGET, "胖次")
		SOURCE:0:露出 += 600
		SOURCE:0:逸脱 += 100
	ENDIF
ENDIF
SIF TALENT:内気
	TIMES SOURCE:0:逸脱, 2.00
SIF TALENT:害羞
	TIMES SOURCE:0:逸脱, 2.00

SOURCE:0:恐惧 += SOURCE:0:逸脱 / 2

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

;反応する角色を選出
@AUDIENCE_CHOICE
#DIM ACTOR

;室内の人数
IF ASSI > 0
	TEQUIP:室内露出PLAY = CHARA_NUM("室内の邪魔者") - 1
ELSE
	TEQUIP:室内露出PLAY = CHARA_NUM("室内の邪魔者")
ENDIF
;室内の人数が多すぎる場合は制限
SIF TEQUIP:室内露出PLAY > 10
	TEQUIP:室内露出PLAY = 10

;室内の角色から一人選出
ACTOR = FIND_COND("現在存在", "助手ではない")

;簡易な地の文
;CALL AUDIENCE_MESSAGE_SIMPLE, ACTOR
;地の文+口上
CALL AUDIENCE_MESSAGE, ACTOR

RETURN 1

;観客の反応　簡易な地の文
@AUDIENCE_MESSAGE_SIMPLE, ARG

	PRINTFORM %CALLNAME:ARG%
		SIF (ASSI > 0 && CHARA_NUM("室内の邪魔者") > 3) || (ASSI == 0 && CHARA_NUM("室内の邪魔者") > 2)
			PRINT 們
	PRINT は

SELECTCASE FLAG:情緒
CASE IS < 30
	PRINTFORM 对于%CALLNAME:PLAYER%与%CALLNAME:TARGET%的PLAY
		IF (ASSI > 0 && CHARA_NUM("室内の邪魔者") > 3) || (ASSI == 0 && CHARA_NUM("室内の邪魔者") > 2)
			PRINTFORML %TEXTR("一边看一边轻松地谈笑着/的内容正在谈论着/侧目观察着/一边飲茶一边看着")%…
		ELSE
			PRINTFORML %TEXTR("毫不在意的样子/侧目观察着/一边飲茶一边看着")%…
		ENDIF
CASE IS >= 120
	PRINTFORML %TEXTR("目不转睛地盯着/兴致高昂地注视着/呼吸不自然地看着")%%TEXTR("痴態显露的/乱糟糟的")%%CALLNAME:TARGET%…
CASEELSE
	PRINTFORML %TEXTR("趣味深地看着/处于軽微興奮状態看着/高兴地深望着")%%CALLNAME:PLAYER%和%CALLNAME:TARGET%的PLAY…
ENDSELECT

RETURN 1

;観客の反応　地の文
@AUDIENCE_MESSAGE, ARG

IF FLAG:情緒 < 30
	LOCALS = 室内露出：余裕
ELSEIF TEQUIP:推倒
	LOCALS = 室内露出：推倒
ELSEIF TRAIN_GENRE("挿入", SELECTCOM) || INSERT("挿入")
	LOCALS = 室内露出：挿入
ELSEIF SELECTCOM >= 90 && SELECTCOM <= 119
	LOCALS = 室内露出：奉仕
ELSE
	LOCALS = 室内露出：通常
ENDIF

SELECTCASE LOCALS
CASE "室内露出：余裕"
	PRINTFORML %CALLNAME:ARG%%TEXTR("毫不在意地看着/侧目观察着/一边飲茶一边看着")%%CALLNAME:PLAYER%和%CALLNAME:TARGET%的PLAY…
CASE "室内露出：推倒"
	SELECTCASE FLAG:情緒
	CASE IS >= 120
		SELECTCASE RAND:2
		CASE 0
			PRINTFORM %CALLNAME:ARG%看着正在%TEXTR("沉迷于/热情地/狂热地")%%TEXTR("责弄/疼爱")%%CALLNAME:PLAYER%的%CALLNAME:TARGET%
			IF (ABL:ARG:施虐属性 >= 4 || TALENT:ARG:小悪魔 || TALENT:ARG:坏心眼) && RAND:2
				PRINTFORML %TEXTR("送去了羡慕的目光/想要加入的样子/观望的同时露出了嗜虐的笑容")%…
			ELSE
				PRINTFORML %TEXTR("看着的同时吐出了灼熱的喘息/只是看着就激动不已/被动摇了内心")%…
			ENDIF
		CASEELSE
			PRINTFORM %CALLNAME:ARG%看着被%CALLNAME:TARGET%%TEXTR("责弄/疼爱")%、%TEXTR("翻弄着的/沉溺在快楽中的/玩弄着的")%%CALLNAME:PLAYER%
			IF (ABL:ARG:施虐属性 >= 4 || TALENT:ARG:小悪魔 || TALENT:ARG:坏心眼) && RAND:2
				PRINTFORML %TEXTR("被煽动起了嗜虐心/观望着露出了情欲的真面目/观望的同时露出了嗜虐的笑容/投以陶醉的目光")%…
			ELSE
				PRINTFORML %TEXTR("看着的同时吐出了灼熱的喘息/只是看着就興奮了起来/产生了保护欲")%…
			ENDIF
		ENDSELECT
	CASEELSE
		SELECTCASE RAND:2
		CASE 0
			PRINTFORML %CALLNAME:ARG%%TEXTR("羡慕地看着/興奮地看着/身体发热地看着")%%TEXTR("责弄着/疼爱着")%%CALLNAME:PLAYER%的%CALLNAME:TARGET%…
		CASEELSE
			PRINTFORML %TEXTR("出神地看着/煽起了情欲/嗜虐的笑着看")%…
			IF (ABL:ARG:施虐属性 >= 4 || TALENT:ARG:小悪魔 || TALENT:ARG:坏心眼) && RAND:2
				PRINTFORML %TEXTR("をうっとりと見つめ/に劣情を煽られ/を見て嗜虐的に笑っ")%ている…
			ELSE
				PRINTFORML %TEXTR("羞答答地看着/身体发热地看着/笑着看着")%…
			ENDIF
		ENDSELECT
	ENDSELECT
CASE "室内露出：挿入"
	SELECTCASE FLAG:情緒
	CASE IS >= 120
		SELECTCASE RAND:2
		CASE 0
			PRINTFORM %CALLNAME:ARG%看着被%CALLNAME:PLAYER%%TEXTR("的激烈活塞翻弄得/连续突进而/激烈責弄著而")%
			IF NOWEX:Ｃ絶頂 || NOWEX:尿道絶頂 || NOWEX:Ｖ絶頂 || NOWEX:Ａ絶頂 || NOWEX:Ｂ絶頂 || NOWEX:Ｍ絶頂
				PRINT 絶頂了的
			ELSE
				PRINTFORM %TEXTR("嬌声连连的/溺进快楽的")%
			ENDIF
			IF ABL:ARG:欲望 >= 4 && RAND:2
				IF TALENT:ARG:男性
					PRINTFORML PRINTFORML %CALLNAME:TARGET%、%TEXTR("好像迫不及待地想要被侵犯/阴茎硬邦邦地站了起来/無意識地摩擦着阴茎/股間已经被先走汁染湿了")%…
				ELSE
					PRINTFORML %CALLNAME:TARGET%、%TEXTR("好像迫不及待地想要被侵犯/股間已经濡湿了/子宮痒得发疼/股間落着液滴")%…
				ENDIF
			ELSE
				PRINTFORML %CALLNAME:TARGET%%TEXTR("送去了羡慕的目光/的同时吐出了灼熱的喘息/视线完全被吸住了")%…
			ENDIF
		CASEELSE
			PRINTFORM %CALLNAME:ARG%看着激烈責弄著%CALLNAME:TARGET%的%CALLNAME:PLAYER%的\@ SIZE("阴茎", PLAYER) >= 2 ? 立派的 # \@阴茎
			IF ABL:ARG:欲望 >= 4 && RAND:2
				IF TALENT:ARG:男性
					PRINTFORML %TEXTR("好像在想象自己被这个东西侵犯时的样子/阴茎硬邦邦地站了起来/無意識地摩擦着阴茎/股間已经被先走汁染湿了")%…
				ELSE
					PRINTFORML %TEXTR("好像在想象自己被这个东西侵犯时的样子/股間已经濡湿了/子宮痒得发疼/股間落着液滴")%…
				ENDIF
			ELSE
				PRINTFORML %TEXTR("目光完全无法离開/的同时吐出了灼熱的喘息/视线完全被吸住了/露出了淫靡的微笑")%…
			ENDIF
		ENDSELECT
	CASEELSE
		SELECTCASE RAND:2
		CASE 0
			PRINTFORM %CALLNAME:ARG%看着被%CALLNAME:PLAYER%%TEXTR("的活塞翻弄得/突进而/責弄著而")%
			IF NOWEX:Ｃ絶頂 || NOWEX:尿道絶頂 || NOWEX:Ｖ絶頂 || NOWEX:Ａ絶頂 || NOWEX:Ｂ絶頂 || NOWEX:Ｍ絶頂
				PRINT 絶頂了的
			ELSE
				PRINT 嬌声连连的
			ENDIF
			PRINTFORML %CALLNAME:TARGET%%TEXTR("很羡慕的样子/很兴奋的样子/心动不已")%…
		CASEELSE
			PRINTFORML %CALLNAME:ARG%%TEXTR("出神地凝视着/羞答答地看着/身体发热地看着")%正在%TEXTR("責弄/突进")%%CALLNAME:TARGET%的%CALLNAME:PLAYER%的\@ SIZE("阴茎", PLAYER) >= 2 ? 立派的 # \@阴茎…
		ENDSELECT
	ENDSELECT
CASE "室内露出：奉仕"
	SELECTCASE FLAG:情緒
	CASE IS >= 120
		SELECTCASE RAND:2
		CASE 0
			PRINTFORM %CALLNAME:ARG%看着
			SIF ABL:技巧 < 3
				PRINT 虽然笨拙但
			IF TALENT:恋慕 || ABL:奉仕精神 >= 4
				PRINTFORM %TEXTR("一心不乱地/满怀愛情地/献身地/热情地")%给%CALLNAME:PLAYER%进行奉仕的%CALLNAME:TARGET%、
			ELSE
				PRINTFORM %TEXTR("努力地/積極地/着迷地")%给%CALLNAME:PLAYER%进行奉仕的%CALLNAME:TARGET%、
			ENDIF
			IF TALENT:ARG:恋慕 || ABL:ARG:奉仕精神 >= 4
				PRINTFORML %TEXTR("内心中的奉侍欲望被深深的刺激着/投来了羡慕的目光/心中燃起了竞争心")%…
			ELSE
				PRINTFORML %TEXTR("自己也想参加的样子/兴致高昂地注视着/十分兴奋地注视着")%…
			ENDIF
		CASEELSE
			PRINTFORM %CALLNAME:ARG%看着接受%CALLNAME:TARGET%
			SIF ABL:技巧 < 3
				PRINT 略显笨拙的
			IF TALENT:恋慕 || ABL:奉仕精神 >= 4
				PRINTFORM %TEXTR("含有愛情的/熱心/热情")%奉仕的%CALLNAME:PLAYER%、
			ELSE
				PRINTFORM 積極奉仕的%CALLNAME:PLAYER%、
			ENDIF
			IF TALENT:ARG:恋慕 || ABL:ARG:奉仕精神 >= 4
				PRINTFORML %TEXTR("投来了充满爱意的目光/内心中的奉侍欲望被深深的刺激着/表现出想要加入的样子/刺激起了母性的本能")%…
			ELSE
				PRINTFORML %TEXTR("视线完全被吸住了/投来了热切的目光/吐出了灼熱的喘息")%…
			ENDIF
		ENDSELECT
	CASEELSE
		SELECTCASE RAND:2
		CASE 0
			PRINTFORM %CALLNAME:ARG%看着
			SIF ABL:技巧 < 3
				PRINT 略显笨拙的
			IF TALENT:恋慕 || ABL:奉仕精神 >= 4
				PRINTFORM %TEXTR("努力地/慈爱地/献身地")%进行着奉仕的%CALLNAME:TARGET%、
			ELSE
				PRINTFORM 奉仕着%CALLNAME:PLAYER%的%CALLNAME:TARGET%、
			ENDIF
			IF ABL:技巧 < 3 && RAND:2
				PRINTFORML %TEXTR("给出了一些建议/发出了応援")%…
			ELSEIF (TALENT:恋慕 || ABL:奉仕精神 >= 4) && RAND:3 == 0
				PRINTFORML %TEXTR(@"露出了微笑/很佩服%CALLNAME:TARGET%")%…
			ELSE
				PRINTFORML %TEXTR("開心地看着/送来了充满好奇心的視線/興奮了起来")%…
			ENDIF
		CASEELSE
			PRINTFORM %CALLNAME:ARG%看着%CALLNAME:TARGET%奉仕%CALLNAME:PLAYER%的%TEXTR("姿态/表情")%、
			IF TALENT:ARG:恋慕 || ABL:ARG:奉仕精神 >= 4
				PRINTFORML %TEXTR("出神地凝视着/眯起了眼睛/脸颊红了/身体躁动了起来")%…
			ELSE
				PRINTFORML %TEXTR("開心地看着/羞耻地看着/身体逐渐热了起来")%…
			ENDIF
		ENDSELECT
	ENDSELECT
CASE "室内露出：通常"
	SELECTCASE FLAG:情緒
	CASE IS >= 120
		PRINTFORM %CALLNAME:ARG%看着%TEXTR("痴態尽露的/凌乱的")%%CALLNAME:TARGET%、
		IF TALENT:ARG:害羞 && RAND:2
			PRINTFORML %TEXTR("用手捂住脸/羞恥得满脸通红/羞耻地红着脸")%%TEXTR("但视线完全被吸住了/但根本移不開眼睛/漏出了灼热的喘息声")%…
		ELSEIF (ABL:ARG:欲望 >= 4 || ABL:ARG:受虐属性 >= 3) && RAND:3 == 0
			IF TALENT:ARG:男性
				PRINTFORML %TEXTR("想像/期待")%着自己被这样责备、%TEXTR("阴茎勃起了/無意識地捋着阴茎/股間染湿了")%…
			ELSE
				PRINTFORML %TEXTR("想像/期待")%着自己被这样责备、%TEXTR("股間濡湿了/股間垂下了露水/玩弄起了自己的股間")%…
			ENDIF
		ELSEIF ABL:ARG:施虐属性 >= 4 && RAND:3 == 0
			PRINTFORML %TEXTR("被这样的姿态激起了嗜虐心/被这样的姿态煽燃了劣情/浮现出了嗜虐的笑容")%…
		ELSE
			PRINTFORML %TEXTR("视线完全被吸住了/根本移不開眼睛/投来了热切的目光/喘着粗气/漏出了灼热的喘息声/淫靡地微笑起来")%…
		ENDIF
	CASEELSE
		IF TALENT:ARG:害羞 && RAND:2
			PRINTFORML %CALLNAME:ARG%看着%CALLNAME:PLAYER%与%CALLNAME:TARGET%的%TEXTR("痴態/PLAY")%、%TEXTR("羞耻地用手捂住脸/羞恥得满脸通红/羞耻地红着脸")%…
		ELSEIF ABL:ARG:受虐属性 >= 3 && RAND:2
			PRINTFORML %CALLNAME:ARG%把自己想象成被%CALLNAME:PLAYER%%TEXTR("责弄/疼爱")%的%CALLNAME:TARGET%、%TEXTR("身体热了起来/興奮了起来/脸红晕上了红色")%…
		ELSEIF (ABL:ARG:施虐属性 >= 3 || TALENT:ARG:小悪魔 || TALENT:ARG:坏心眼) && RAND:2
			PRINTFORML %CALLNAME:ARG%%TEXTR("出神地凝视着/興奮地看着/身体发热地看着")%被%CALLNAME:PLAYER%%TEXTR("责弄/疼爱")%的%CALLNAME:TARGET%…
		ELSE
			PRINTFORML %CALLNAME:ARG%%TEXTR("開心地看着/興奮地看着/身体发热地看着")%%CALLNAME:PLAYER%与%CALLNAME:TARGET%的%TEXTR("痴態/PLAY")%…
		ENDIF
	ENDSELECT
ENDSELECT

;口上呼び出し
CALL KOJO_GUEST, LOCALS, ARG

PRINTL

RETURN 1


code:
@COM175
;換装
CALL PRINT_TRAIN_NAME(SELECTCOM)

;-------------------------------------------------
;実行できるかの判定
;-------------------------------------------------
;判定が要らない状態
IF TEQUIP:推倒 || TEQUIP:拘束

ELSEIF CHECK_PANTIES("不可移開") == 0
	CALL SHOW_COM_ORDER_COM, 175

	;実行できない
	SIF TCVAR:干劲 == 0
		RETURN 0
ENDIF
;-------------------------------------------------
;換装のフラグ、ス阴蒂プト、説明等
;-------------------------------------------------
CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM175, ARG

@SOURCE_COM175, ARG
CALL VARSET_COMF

SOURCE:0:情愛 = 100

;ABL:露出癖をみる
SELECTCASE ABL:露出癖
CASE 0
	SOURCE:0:露出 += 100
	SOURCE:0:屈従 += 100
CASE 1
	SOURCE:0:露出 += 500
	SOURCE:0:屈従 += 300
CASE 2
	SOURCE:0:露出 += 100
	SOURCE:0:屈従 += 50
CASE 3
	SOURCE:0:露出 += 50
CASE 4

CASEELSE

ENDSELECT
;ABL:信頼をみる
SELECTCASE ABL:信頼
CASE 0
CASE 1
	TIMES SOURCE:0:情愛, 1.20
CASE 2
	TIMES SOURCE:0:情愛, 1.40
CASE 3
	TIMES SOURCE:0:情愛, 1.50
CASE 4
	TIMES SOURCE:0:情愛, 2.10
CASEELSE
	TIMES SOURCE:0:情愛, 3.00
ENDSELECT

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

@TRAIN_MESSAGE_COM175
IF TEQUIP:推倒 || ( (TEQUIP:拘束 || TEQUIP:室内露出PLAY || TEQUIP:野外PLAY) && (ABL:信頼 >= 4 || ABL:露出癖 >= 3) )
	IF EQUIP:胖次 && EQUIP:贴身制服 + EQUIP:外套 == 0 && CHECK_CLO("胖次露出")
		PRINTFORMW %CALLNAME:TARGET%慢慢地脫下了內褲……
		CALL SET_PANTIES, ""
	ELSEIF CHECK_CLO("裸体") == 0
		PRINTFORMW %CALLNAME:TARGET%慢慢地脫下衣服、將赤裸的嬌軀展示出來……
		CALL SETFLAG, "扒成裸体", TARGET
	ENDIF
ELSEIF CHECK_PANTIES("不可移開")
	SELECTCASE PANTIES(TARGET, "略")
	CASE "前貼"
		PRINTFORMW %CALLNAME:PLAYER%は%CALLNAME:TARGET%の前貼を剥がした…
	CASE "貞操帯"
		PRINTFORMW %CALLNAME:PLAYER%は%CALLNAME:TARGET%の貞操帯を外した…
	CASEELSE
		PRINTFORMW %CALLNAME:PLAYER%は%CALLNAME:TARGET%の%PANTIES(TARGET, "略")%を脱がした…
	ENDSELECT
	CALL SET_PANTIES, ""
ELSEIF TEQUIP:拘束 || TEQUIP:室内露出PLAY || TEQUIP:野外PLAY
	IF EQUIP:胖次 && EQUIP:贴身制服 + EQUIP:外套 == 0 && CHECK_CLO("胖次露出")
		PRINTFORMW %CALLNAME:PLAYER%將%CALLNAME:TARGET%的內褲利索的脫下了……
		CALL SET_PANTIES, ""
	ELSEIF CHECK_CLO("裸体") == 0
		PRINTFORMW %CALLNAME:PLAYER%將%CALLNAME:TARGET%的衣服強硬的剝下、肆無忌憚的觀賞著赤裸的嬌軀……
		CALL SETFLAG, "扒成裸体", TARGET
	ENDIF
ELSEIF TCVAR:干劲 == 0 && CHECK_CLO("外套露出") && CHECK_CLO("Ｖ露出可") == 0
	PRINTFORMW %CALLNAME:TARGET%將%OUTER(TARGET)%脫下了。
	CALL SET_OUTER, ""
ELSE
	CALL KISEKAE
ENDIF

@COM_ORDER_COM175, ARG
VARSET LOCAL
LOCALS =

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

LOCAL = RESULT

;ABL:露出癖
IF ABL:露出癖
	LOCAL += MIN(ABL:露出癖, 10) * 5
	LOCALS = %LOCALS% + 露出癖LV{ABL:露出癖}({MIN(ABL:露出癖, 10) * 5})
ENDIF
;害羞
IF TALENT:害羞
	LOCAL -= 10
	LOCALS = %LOCALS% - 害羞(10)
ENDIF
;不知羞恥
IF TALENT:不知羞恥
	LOCAL += 5
	LOCALS = %LOCALS% + 不知羞恥(5)
ENDIF

;拘束中
IF TEQUIP:拘束
	LOCAL += 30
	LOCALS = %LOCALS% + 拘束中(30)
ENDIF
;视频拍摄
IF TEQUIP:攝像機
	LOCAL -= 10
	LOCALS = %LOCALS% - 撮影中(10)
ENDIF
;野外or室内露出
IF TEQUIP:野外PLAY
	LOCAL -= 10
	LOCALS = %LOCALS% - 野外PLAY(10)
ELSEIF TEQUIP:室内露出PLAY
	LOCAL -= 10
	LOCALS = %LOCALS% - 室内露出(10)
ENDIF

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

RETURN RESULT

license: unknown


code:
@COM176
;被逆推
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

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

SIF REFUSE_CHECK()
	RETURN 0

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

;被逆推状態の付与
TEQUIP:推倒 = 1

RETURN 1

@FLAG_COM176, ARG

@SOURCE_COM176, ARG
CALL VARSET_COMF

SOURCE:0:性行動 = 450
SOURCE:0:達成感 = 900

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

@TRAIN_MESSAGE_COM176
;拉米亚
IF COND("種族：拉米亚")
	PRINTFORMW 露出妖艷笑容的%CALLNAME:TARGET%將%CALLNAME:PLAYER%用細長而粗壯的尾巴卷緊了……
	PRINTFORMW %CALLNAME:PLAYER%的身體動彈不得……
;それ以外
ELSE
	IF INSERT("挿入")
		PRINTFORMW 露出妖艷笑容的%CALLNAME:TARGET%將%CALLNAME:PLAYER%粗暴的壓倒了……
	ELSE
		PRINTFORMW 露出妖艷笑容的%CALLNAME:TARGET%慢慢的靠近%CALLNAME:PLAYER%了……
	ENDIF
	PRINTFORMW %CALLNAME:PLAYER%被推倒了……
ENDIF

@EQUIP_COM176
;被逆推中
SIF TEQUIP:推倒 == 0
	RETURN 0

CALL SOURCE_COM176, 20
SIF STATE("バインド", PLAYER)
	EXP:PLAYER:拘束経験 += 1

RETURN 1

@EQUIP_COM176_2
;被逆推中
IF TEQUIP:Ｗ推倒
	SIF COND("Ｗ推倒主導中")
		PRINTL ＜二人に被逆推中＞
ELSEIF TEQUIP:推倒
	PRINTL <被推倒中>
ENDIF
RETURN 1

@COM_ORDER_COM176, 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 += 10
	LOCALS = %LOCALS% + 強気(10)
ENDIF
;害羞
IF TALENT:害羞
	LOCAL -= 5
	LOCALS = %LOCALS% - 害羞(5)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 1
	LOCALS = %LOCALS% - 否定快感(1)
ENDIF

;処女
IF TALENT:処女
	LOCAL -= 20
	LOCALS = %LOCALS% - 処女(20)
ELSEIF EXP:Ｖ経験 < EXPLV:2
	LOCAL -= 5
	LOCALS = %LOCALS% - Ｖ経験不足(5)
ENDIF

;受け身
IF TALENT:受け身
	LOCAL -= 10
	LOCALS = %LOCALS% - 受け身(10)
ENDIF

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

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

RETURN RESULT


code:
@COM177
;被两人逆推
;一人はTARGET、もう一人はTARGET:1で管理する。もしもTARGET:1が未設定の場合には助手がTARGET:1となる

CALL PRINT_TRAIN_NAME(SELECTCOM)

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

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

SIF REFUSE_CHECK()
	RETURN 0

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

CALL SETFLAG, "Ｗ推倒"

RETURN 1

@FLAG_COM177, ARG

@SOURCE_COM177, ARG
CALL VARSET_COMF

SOURCE:0:性行動 = 600
SOURCE:0:達成感 = 1500

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

@TRAIN_MESSAGE_COM177
IF TEQUIP:推倒
	PRINTFORMW 像是為了響應%CALLNAME:TARGET%的邀請、%CALLNAME:(TARGET:1)%慢慢的靠近了%CALLNAME:PLAYER%……
	IF TARGET:1 == ASSI && TEQUIP:攝像機
		PRINTFORMW 顯而易見的、%CALLNAME:(TARGET:1)%決定將攝影中止一起享受快樂……
	ELSE
		PRINTFORMW 顯而易見的、%CALLNAME:(TARGET:1)%決定一起享受快樂……
	ENDIF
ELSE
	PRINTFORMW 露出妖艷笑容的%CALLNAME:TARGET%和%CALLNAME:(TARGET:1)%慢慢靠近了%CALLNAME:PLAYER%……
	PRINTFORMW %CALLNAME:PLAYER%被兩個人推到了……
ENDIF
TEQUIP:攝像機 = 0

;@EVENTCOMでSELECTCOMに応じて決定される。
;挣扎、顺其自然の時にはそれぞれのCOMF中で決定するため、@EVENTCOMでは呼ばない。
@SET_SELECTCOM_W
#DIM LCOUNT
;それぞれ、TARGET:0orTARGET:1が面部騎乗、挿入、奉仕中かを見る
#DIM IS_FENDAMU, 2
#DIM IS_INSERT, 2
#DIM IS_SERVICE, 2
;二穴挿入に派生しやすい条件を満たしていたらＯＮ
#DIM IS_WPENE
;TARGET:1が指令実行可能かどうか
#DIM CANCOM, 160

CALL SET_FORBIDCOM, TARGET:1, SELECTCOM

SWAP TARGET, TARGET:1

VARSET CANCOM
FOR LCOUNT, 0, 110
	;格子必要な指令は実は少ない
	SELECTCASE LCOUNT
	CASE 1, 9, 65, 75, 83, 90 TO 95, 97, 104
		TRYCALLFORM COM_ABLE{LCOUNT}
		CANCOM:LCOUNT = RESULT
	ENDSELECT
NEXT

SWAP TARGET, TARGET:1

VARSET IS_FENDAMU
VARSET IS_INSERT
VARSET IS_SERVICE
VARSET IS_WPENE

SELECTCASE SELECTCOM
CASE 1, 9
	IS_FENDAMU = 1
CASE 60 TO 79, 83
	IS_INSERT = 1
CASE 90 TO 95, 97, 104
	IS_SERVICE = 1
CASE 120
	SIF PREVCOM:1 == 126
		IS_WPENE = 126
CASE 126
	SIF PREVCOM:1 == 120
		IS_WPENE = 120
ENDSELECT

SELECTCASE PREVCOM:1
CASE 1, 9
	IS_FENDAMU:1 = 1
CASE 60 TO 79, 83
	IS_INSERT:1 = 1
CASE 90 TO 95, 97, 104
	IS_SERVICE:1 = 1
ENDSELECT

;挿入中なら、続行
IF IS_INSERT:1 && FORBIDCOM(TARGET:1, "性交", "Ｐ下半身") == 0
	SELECTCOM:1 = PREVCOM:1
;泡泡浴はＷ泡泡浴
ELSEIF SELECTCOM == 94 && CANCOM:94
	SELECTCOM:1 = 94
;Ｗ騎乗中なら高確率で続行
ELSEIF RAND:3 && IS_INSERT && IS_FENDAMU:1
	SELECTCOM:1 = PREVCOM:1
ELSEIF RAND:3 && IS_FENDAMU && IS_INSERT:1
	SELECTCOM:1 = PREVCOM:1
;Ｗ騎乗を起き易く
ELSEIF IS_INSERT && CANCOM:1 + CANCOM:9 && RAND:3 == 0
	IF CANCOM:1 && RANDIF(1, CANCOM:9)
		SELECTCOM:1 = 1
	ELSE
		SELECTCOM:1 = 9
	ENDIF
ELSEIF IS_FENDAMU && CANCOM:65 + CANCOM:75 + CANCOM:83 && RAND:3 == 0
	IF CANCOM:83 && RANDIF(1, CANCOM:75, CANCOM:65)
		SELECTCOM:1 = 83
	ELSEIF CANCOM:65 && RANDIF(1, CANCOM:75)
		SELECTCOM:1 = 65
	ELSE
		SELECTCOM:1 = 75
	ENDIF
;同時奉仕中なら続行
ELSEIF IS_SERVICE && SELECTCOM == PREVCOM && PREVCOM:1 == SELECTCOM
	SELECTCOM:1 = PREVCOM:1
;同時奉仕を起き易く
ELSEIF IS_SERVICE && PREVCOM:1 == SELECTCOM
	SELECTCOM:1 = PREVCOM:1
ELSEIF IS_SERVICE && CANCOM:SELECTCOM && RAND:3 == 0
	SELECTCOM:1 = SELECTCOM
;二穴挿入中なら、続行
ELSEIF INSERT("二穴挿入", PLAYER)
	SELECTCOM:1 = PREVCOM:1
;二穴挿入になりやすくしてみる
ELSEIF IS_WPENE && RAND:2 == 0
	SELECTCOM:1 = IS_WPENE
ELSEIF FORBIDCOM(TARGET:1)
	SELECTCOM:1 = -1
ELSE
	;補佐役のABL:手～ABL:强奸を決定
	CALL CALC_COUNTER_ABL, TARGET:1

	;强奸の後は連続强奸
	IF (PREVCOM:1 == 120 || PREVCOM:1 == 126) && ABL:(TARGET:1):强奸 && RAND:4
		ABL:(TARGET:1):手 = 0
		ABL:(TARGET:1):口 = 0
		ABL:(TARGET:1):胸 = 0
		ABL:(TARGET:1):足 = 0
		ABL:(TARGET:1):面部騎乗 = 0
		ABL:(TARGET:1):騎乗位 = 0
		ABL:(TARGET:1):接吻 = 0
		ABL:(TARGET:1):玩弄臀部 = 0
		ABL:(TARGET:1):素股 = 0
	ENDIF

	SELECTCOM:1 = SET_COUNTERCOM(TARGET:1)
ENDIF

;禁止指令消去
CALL SET_FORBIDCOM, TARGET:1, -1

@EQUIP_COM177_2
;3P中
SIF TEQUIP:Ｗ推倒 || SELECTCOM:1 >= 0
	CALL EQUIP_COM_3P

@COM_ORDER_COM177, 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 += 10
	LOCALS = %LOCALS% + 強気(10)
ENDIF
;害羞
IF TALENT:害羞
	LOCAL -= 10
	LOCALS = %LOCALS% - 害羞(10)
ENDIF
;否定快感
IF TALENT:否定快感
	LOCAL -= 5
	LOCALS = %LOCALS% - 否定快感(5)
ENDIF

;処女
IF TALENT:処女
	LOCAL -= 20
	LOCALS = %LOCALS% - 処女(20)
ELSEIF EXP:Ｖ経験 < EXPLV:2
	LOCAL -= 5
	LOCALS = %LOCALS% - Ｖ経験不足(5)
ENDIF

;受け身
IF TALENT:受け身
	LOCAL -= 10
	LOCALS = %LOCALS% - 受け身(10)
ENDIF

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

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

RETURN RESULT


code:
@COM178
;打电话
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM178, ARG
IF TEQUIP:電話中 == 0
	TEQUIP:電話中 = 1
ELSE
	TEQUIP:電話中 = 0
ENDIF

@SOURCE_COM178, ARG

@TRAIN_MESSAGE_COM178
PRINTFORM
IF TEQUIP:電話中 == 0
	PRINTFORM %CALLNAME:PLAYER%在%CALLNAME:TARGET%
	IF TALENT:有男朋友 == 2
		PRINT 给旦那
	ELSEIF TALENT:有男朋友
		PRINT 给彼氏
	ENDIF
	PRINTFORMW 打了电话。
ELSE
	PRINTFORM %CALLNAME:TARGET%%TEXTR("用适当的借口/用有要紧事为理由/说着有要紧事必须要出門")%将
	IF TALENT:有男朋友 == 2
		PRINT 给旦那
	ELSEIF TALENT:有男朋友
		PRINT 给彼氏
	ENDIF
	PRINTFORMW 的电话挂断了。
ENDIF


code:
@COM1
;舐陰
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

;-------------------------------------------------
;射精格子
;-------------------------------------------------
SIF TEQUIP:推倒
	CALL SAMEN_CHECK

RETURN 1

@FLAG_COM1, ARG
SIF CHECK_COM("万謝的亲吻", 1)
	CALL SETFLAG, "万謝的亲吻フラグ", TARGET

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

SIF CHECK_COM("清洁舔阴", 1)
	CALL SETFLAG, "清洁舔阴", PLAYER

@SOURCE_COM1, ARG
SIF CHECK_COM("清洁舔阴", 1)
	CALL SOURCE_COM13, 30

CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 1

SOURCE:0:逸脱 = 100

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

IF CHECK_COM("清洁舔阴", 1) || COND("清洁舔阴フラグ", PLAYER)
	TIMES SOURCE:0:Ｃ快楽, 0.05
;面部騎乗の時には快感を得るよりはむしろ攻撃重視
ELSEIF TEQUIP:推倒
	TIMES SOURCE:0:Ｃ快楽, 0.30
ENDIF

SOURCE:0:Ｖ液体追加 = 100
SOURCE:0:露出 = 500

;ABL:露出癖をみる
SELECTCASE ABL:露出癖
CASE 0
CASE 1 TO 5
	SOURCE:0:露出 += ABL:露出癖*200
CASE 6 TO 10
	SOURCE:0:露出 += 1000 + (ABL:露出癖 - 5)*100
CASEELSE
	SOURCE:0:露出 += 1500 + (ABL:露出癖 - 10)*50
ENDSELECT

;阴部が露出していないと快Ｃ減
IF CHECK_CLO("Ｖ露出") == 0 && 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

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

IF CHECK_COM("万謝的亲吻", 1)
	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

@EQUIP_COM1
;面部騎乗中
SIF TEQUIP:面部騎乗 == 0
	RETURN 0
SIF SELECTCOM == 1 || SELECTCOM == 9 || SELECTCOM == 99 || SELECTCOM == 144 || TEQUIP:六九式
	RETURN 0
;Ａ面部騎乗でも、体勢的には面部騎乗となるかな？
CALL SOURCE_COM1, 50

;射精ゲージの増加
LOCAL = SELECTCOM

SELECTCOM = 1
CALL SAMEN_CHECK, 50

SELECTCOM = LOCAL

RETURN 1

@EQUIP_COM1_2
SIF TEQUIP:面部騎乗 == 0
	RETURN 0
;面部騎乗中
SIF SELECTCOM == 1 || SELECTCOM == 9 || SELECTCOM == 99 || TEQUIP:六九式
	RETURN 0
PRINTL ＜面部騎乗中＞

RETURN 1

@TRAIN_MESSAGE_COM1
;特に[屈服刻印Lv3か不知羞恥]、[淫乱]、[眼罩]、[振動棒]、[拉米亚]、[縄]、[被逆推中]等でテ接吻トが変わります。
;被逆推ているときは面部騎乗されて反撃できない強制舐陰
IF TEQUIP:推倒
	;被逆推ているときは面部騎乗
	PRINTFORM %CALLNAME:TARGET%

	;Ｗ推倒で助手が前回と同じ行動(違う行動の時は、ここでなく、EQUIP_COM32で記述)
	SIF TEQUIP:Ｗ推倒 && SELECTCOM:1 == PREVCOM:1 && SELECTCOM:1 >= 0
		PRINTFORM %TEXTS("Ｗ推倒中")%、
	;連続
	IF (TEQUIP:面部騎乗 == 1 || PREVCOM == SELECTCOM) && COND("前Ｔ調教者") == PLAYER
		PRINTFORM %CALLNAME:PLAYER%の

		SIF PREVEX("放尿") && ABL:施虐属性 >= 3
			PRINTFORM 口腔中將括約肌放鬆、任由濁黃腥臭的尿液淅瀝瀝的流入口中、向

		IF RAND:3 == 0
			IF RAND:2 && PENIS(TARGET) == 0 && CHECK_CLO("Ｖ露出")
				PRINTFORM 鼻尖上將陰戶壓迫下來、
				IF ABL:自慰中毒 >= 3 && RAND:2
					PRINTFORM 迷醉地
				ELSEIF ABL:欲望 + ABL:Ｃ感覚 + ABL:施虐属性 >= 8
					PRINTFORM 激烈地
				ENDIF
				PRINTFORM 阴蒂
			ELSE
				PRINTFORM 臉頰上重重的坐下、
				;あそこが剥き出しでない
				IF CHECK_CLO("Ｖ露出") == 0 && RAND:3
					IF RAND:3
						PRINTFORM 用被%CLO("股間")%緊緊勒住的
					ELSE
						PRINTFORM 慢慢撥開陰唇、用
					ENDIF
				ELSEIF ABL:欲望 + ABL:施虐属性 >= 5
					IF CHECK_CLO("Ｖ露出") && PALAM:Ｖ潤 >= 3000 && RAND:2
						PRINTFORM 噗嗤噗嗤地
					ELSE
						PRINTFORM 激烈地
					ENDIF
				ENDIF
				PRINTFORM 胯股之间
			ENDIF
			PRINTFORM 摩擦起來、
		ELSEIF RAND:2
			IF ABL:欲望 + ABL:施虐属性 >= 5 && RAND:3 == 0
				PRINTFORM 臉頰上用近似於騎乘位的姿勢
				IF ABL:腰靈活 >= 2 && RAND:2
					PRINTFORM 艷麗地
				ELSEIF ABL:腰靈活
					PRINTFORM 剧烈
				ENDIF
				PRINTFORM 搖曳腰肢侵犯起來、
			ELSEIF ABL:欲望 + ABL:自慰中毒 >= 5 && RAND:2
				PRINTFORM 臉頰用阴户摩擦着、沉浸在激烈地自慰行為中、
			ELSE
				PRINTFORM 臉頰上將股間壓迫然後分開、
			ENDIF
		ELSE
			IF ABL:欲望 + ABL:施虐属性 >= 5 && RAND:3 == 0
				PRINTFORM 臉頰上用股間壓迫著、
				IF RAND:2
					PRINTFORM 緩慢而用力地搖晃著腰肢、
				ELSE
					PRINTFORM 激烈地搖晃著腰肢、
				ENDIF
			ELSEIF ABL:欲望 + ABL:施虐属性 >= 3 && RAND:2
				PRINTFORM 的臉頰上用股間壓住並不斷地旋轉摩擦著、
			ELSE
				PRINTFORM 臉頰上用股間壓迫著、
			ENDIF
		ENDIF
		PRINTFORMW \@ PREVEX("放尿") && ABL:施虐属性 >= 3 ? 重複著 # 持續著 \@…
	;脚が使えない人用
	ELSEIF COND("脚の使用") == 0
		IF (TEQUIP:面部騎乗 == 9 || PREVCOM == 9) && COND("前Ｔ調教者") == PLAYER
			PRINTFORM 將腰肢抬起到半空中、
		ELSE
			;不知羞恥、淫乱、露出癖3以上
			IF CHECK_CLO("Ｖ露出") && TALENT:不知羞恥 && TALENT:淫乱 && ABL:露出癖 >= 3 && RAND:3 == 0
				PRINTFORM 用手指將秘部完全撥開
			;阴部が剥き出しで無い
			ELSEIF CHECK_CLO("可以移開") && !RAND:(3 + !CHOSECOM(1)*3)
				CALL SETFLAG, "ボトムを１枚ずらす", TARGET
			ELSEIF TALENT:害羞 && RAND:2
				PRINTFORM 的臉頰上帶著羞澀的紅暈
			;淫乱or不知羞恥or好色or露出癖3以上
			ELSEIF TALENT:不知羞恥 || TALENT:好色 || TALENT:淫乱 || ABL:露出癖 >= 3
				PRINTFORM 羞涩地将自己的阴户微微拨開
			ENDIF
			PRINTFORM 、隨後、緩緩壓在%CALLNAME:PLAYER%的臉頰上、
		ENDIF
		IF CHECK_CLO("Ｖ露出") && RAND:3 == 0
			;施虐属性3以上
			IF ABL:施虐属性 >= 3 && RAND:2
				PRINTFORMW 用%TEXTS("阴部：感触")%將口鼻堵塞住了……
			ELSE
				PRINTFORM 用%TEXTS("阴部：感触")%
				SIF CHECK_STAIN(STAIN:Ｖ, "精液") || PALAM:Ｖ潤 >= PALAMLV:2
					PRINTFORM 噗嗤噗嗤地
				PRINTW 摩擦起來……
			ENDIF
		;胖次の記述も追加
		ELSEIF RAND:4
			IF (ABL:施虐属性 >= 3 || TALENT:淫乱) && RAND:3 == 0
				PRINTFORMW 用%TEXTS("阴部：感触")%將口鼻堵塞住了……
			ELSEIF RAND:2
				PRINTFORMW 從%TEXTS("阴部：感触")%中散發著的\@ CHECK_CLO("Ｖ露出") ?  # 和陰部所滲透出來的 \@醉人而淫靡的%TEXTS("气味")%漸漸充斥了大腦……
			ELSE
				PRINTFORMW 噗呲噗呲的用%TEXTS("阴部：感触")%在臉頰上擦拭著……
			ENDIF
		ELSE
			IF RAND:2
				PRINTW 將股間死死壓在臉頰上……
			ELSE
				PRINTFORM 在深處後轉動著的
				SIF PALAM:Ｖ潤 >= 3000
					PRINTFORM 蒸騰著熱汽的
				PRINTW 股间在脸颊上不住摩擦着……
			ENDIF
		ENDIF
	ELSE
		;Ｗ推倒
		IF TEQUIP:Ｗ推倒
			PRINTFORM 跨坐在%CALLNAME:PLAYER%的臉頰上、
		ELSEIF TEQUIP:六九式
			PRINTFORM 跨坐在%CALLNAME:PLAYER%的臉頰上、
		ELSEIF (TEQUIP:面部騎乗 == 9 || PREVCOM == 9) && COND("前Ｔ調教者") == PLAYER
			PRINTFORM 將腰肢抬起到半空中、
		ELSE
			;不知羞恥、淫乱、露出癖3以上
			IF CHECK_CLO("Ｖ露出") && TALENT:不知羞恥 && TALENT:淫乱 && ABL:露出癖 >= 3 && RAND:4 == 0
				PRINTFORM 用手指將秘部完全撥開
			;阴部が剥き出しで無い
			ELSEIF CHECK_CLO("可以移開") && !RAND:(4 + !CHOSECOM(1)*3)
				CALL SETFLAG, "ボトムを１枚ずらす", TARGET
			ELSEIF RAND:3 == 0
				PRINTFORM 將頭用%TEXTS("太股：描写")%大腿緊緊夾住
			ELSEIF TALENT:害羞 && RAND:2
				PRINTFORM 的臉頰上帶著羞澀的紅暈
			;淫乱or不知羞恥or好色or露出癖3以上
			ELSEIF TALENT:不知羞恥 || TALENT:好色 || TALENT:淫乱 || ABL:露出癖 >= 3
				IF RAND:3 == 0
					IF TALENT:淫乱 && RAND:(2 + TALENT:好色) == 0
						PRINTFORM 的大腿內側隨著張開雙腿而拉出了淫靡的銀絲
					ELSEIF TALENT:好色 && RAND:2
						PRINTFORM 保持著連害羞的部分都能一覽無遺的姿勢
					ENDIF
					IF RAND:2
						PRINTFORM 張開股間并拨開了阴唇
					ELSE
						PRINTFORM 用雙手推開了自己的股間
					ENDIF
				ELSEIF RAND:2
					PRINTFORM 做出了Ｍ字開腿的姿勢
				ELSE
					PRINTFORM 做出了近似於騎乘位的姿勢
				ENDIF
			ENDIF
			PRINTFORM 、隨後、緩緩壓在%CALLNAME:PLAYER%的臉頰上、
		ENDIF
		;休闲褲ですか？
		IF CHECK_OUTER("休闲褲")
			IF RAND:2
				PRINTW 將股間死死壓在臉頰上……
			ELSE
				PRINTFORM 在深處後轉動著的
				SIF PALAM:Ｖ潤 >= 3000
					PRINTFORM 蒸騰著熱汽的
				PRINTW 股间在脸颊上不住摩擦着……
			ENDIF
		ELSEIF CHECK_COM("万謝的亲吻")
			PRINTFORMW 把%TEXTS("阴部：感触")%对准嘴部压着坐了下来…
		ELSEIF CHECK_CLO("Ｖ露出") && RAND:3 == 0
			;施虐属性3以上
			IF ABL:施虐属性 >= 3 && RAND:2
				PRINTFORMW 用%TEXTS("阴部：感触")%將口鼻堵塞住並不斷地旋转摩擦著……
			ELSE
				PRINTFORM 用%TEXTS("阴部：感触")%
				SIF CHECK_STAIN(STAIN:Ｖ, "精液") || PALAM:Ｖ潤 >= PALAMLV:2
					PRINTFORM 噗嗤噗嗤地
				PRINTW 摩擦起來……
			ENDIF
		;胖次の記述も追加
		ELSEIF RAND:4
			IF (ABL:施虐属性 >= 3 || TALENT:淫乱) && RAND:3 == 0
				PRINTFORMW 用%TEXTS("阴部：感触")%將口鼻堵塞住並不斷地旋转摩擦著……
			ELSEIF RAND:2
				PRINTFORMW 從%TEXTS("阴部：感触")%中散發著的\@ CHECK_CLO("Ｖ露出") ?  # 和陰部所滲透出來的 \@醉人而淫靡的%TEXTS("气味")%漸漸充斥了大腦……
			ELSE
				PRINTFORMW 噗呲噗呲的用%TEXTS("阴部：感触")%在臉頰上擦拭著……
			ENDIF
		ELSE
			IF RAND:2
				PRINTW 將股間死死壓在臉頰上……
			ELSE
				PRINTFORM 在深處後轉動著的
				SIF PALAM:Ｖ潤 >= 3000
					PRINTFORM 蒸騰著熱汽的
				PRINTW 股间在脸颊上不住摩擦着……
			ENDIF
		ENDIF
	ENDIF
	;Ｗ推倒で淫乱or欲情4LV以上なら追加
	IF TEQUIP:Ｗ推倒 && (TALENT:淫乱 || PALAM:欲情 >= PALAMLV:4)
		SIF (SELECTCOM:1 == 65 || SELECTCOM:1 == 75) && RAND:2
			PRINTFORMW %CALLNAME:TARGET%與%CALLNAME:(TARGET:1)%交纏著舌頭的同時、貪求著胯下傳來的甜美快感……
	ENDIF
ELSEIF CHECK_COM("万謝的亲吻")
	PRINTFORMW %CALLNAME:PLAYER%将脸埋进%CALLNAME:TARGET%的股間、%TEXTR("温柔地亲吻了阴部/轻轻地亲吻了膣口/压抑住兴奋亲吻了阴部")%…

ELSEIF CHECK_COM("恥垢清洁舔阴")
	;胖次ずらしフラグ
	SIF CHECK_CLO("Ｖ露出") == 0
		CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
	PRINTFORM %CALLNAME:PLAYER%跪在%CALLNAME:TARGET%的胯下、將豐腴的陰唇緩緩推開之後、
	PRINTFORM 將%TEXTR("陰唇內側積存著發酵而成的恥垢/膣口處留下的淫臭污垢/濁白色的濃郁恥垢/黏稠的、猶如風味奇特的奶酪一樣熟成的污垢/粘膜上沾染的羞恥污垢")%
	;においフェチ分岐
	IF PLAYER == MASTER && COND("气味弱点", MASTER) + TALENT:相思相愛 && RAND:3
		PRINTFORM 所散發的%TEXTS("气味")%深深嗅聞並記憶著的同時、用
	ELSE
		PRINTFORM を
	ENDIF
	PRINTFORMW %TEXTR("靈巧的舌頭/伸長的舌尖")%將%TEXTR("每一寸角落都細緻的舔舐刮取了/整片陰部都漂亮的掃除乾淨了/所有恥垢都徹底的舔舐乾淨了")%……
ELSEIF PREVCOM == SELECTCOM && COND("前Ｔ調教者") == PLAYER && PREVPLAY("万謝的亲吻") == 0
	;胖次ずらしフラグ
	SIF (CHECK_COM("清洁舔阴") || RAND:4 == 0) && CHECK_CLO("Ｖ露出") == 0
			CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
	PRINTFORM %CALLNAME:PLAYER%將%CALLNAME:TARGET%的
	;阴蒂むき出し
	IF RAND:2 && PENIS(TARGET) == 0 && CHECK_CLO("Ｖ露出") && ABL:PLAYER:技巧 >= 3 && CHECK_COM("清洁舔阴") == 0
		PRINTFORM 將%TEXTS("阴蒂")%阴蒂を
		SIF CALCF("Ｃ発情") < 2
			PRINTFORM 輕巧的從包皮中剝離、
		IF RAND:2
			PRINTFORM 用靈巧的舌頭
		ELSE
			PRINTFORM 用靈活的舌尖
		ENDIF
		IF RAND:5 == 0
			PRINTFORM 執拗地
		ELSEIF RAND:4 == 0
			PRINTFORM 徹底地
		ELSEIF RAND:3 == 0
			PRINTFORM 細緻地
		ELSEIF RAND:2
			PRINTFORM 激烈地
		ELSE
			PRINTFORM 毫無間歇地
		ENDIF
		IF RAND:4 == 0
			PRINTW 持續地挑逗彈動著……
		ELSEIF RAND:3 == 0
			PRINTW 持續不斷地刺激著……
		ELSEIF RAND:2
			PRINTW 持續地來回舔舐著……
		ELSE
			PRINTW 持續地反復摩擦著……
		ENDIF
	ELSE
		;阴部むき出しで、光滑无毛
		IF CHECK_CLO("Ｖ露出") && COND("陰毛") && COND("陰毛") <= 3 && RAND:3 == 0
			PRINTFORM 適宜舔舐的光滑陰戶
		ELSEIF CHECK_CLO("Ｖ露出") && TALENT:陰唇環 && TEQUIP:振動棒 == 0 && RAND:2
			SIF PENIS(TARGET) == 0 && TALENT:陰蒂環
				PRINTFORM 被數個
			PRINTFORM 金屬穿環装飾著的陰部
		ELSE
			PRINTFORM 被%TEXTS("阴部：感触")%
			SIF CHECK_CLO("勒紧的")
				PRINTFORM 緊緊裹住的股間
		ENDIF
		PRINTFORM を
		;とりあえず、むき出しのとき
		IF CHECK_CLO("Ｖ露出") && TEQUIP:振動棒 == 0 && (CHECK_COM("清洁舔阴") || RAND:3)
			PRINTFORM 慢慢推開、
			;においフェチ分岐
			IF PLAYER == MASTER && COND("气味弱点", MASTER) + TALENT:相思相愛
				IF CHECK_STAIN(STAIN:Ｖ, "Ｖ恥垢") && RAND:4
					IF RAND:3 == 0 || CHECK_COM("清洁舔阴")
						PRINTFORM 將恥垢的淫靡%TEXTS("气味")%深深嗅聞的同時
					ELSEIF RAND:2
						PRINTFORM 將粘膜上殘留的羞恥污垢
					ELSE
						PRINTFORM 將膣口黏著的恥垢用舌尖舔舐著
					ENDIF
				ELSEIF PALAM:欲情 >= 3000 && RAND:2
					PRINTFORM 將蒸騰熱汽的淫靡%TEXTS("气味")%享受著的同時
				ELSE
					PRINTFORM 將令人上癮的濃郁淫臭吸入腦中的同時
				ENDIF
			ENDIF
		ENDIF
		IF CHECK_COM("清洁舔阴")
			PRINTFORMW 徹底地清潔著……
		ELSE
			PRINTFORMW 貪婪地侍奉著……
		ENDIF
	ENDIF
;それ以外(休闲褲は無い)
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
	;屈服刻印3LV or不知羞恥or淫乱+欲情3000以上で、69体勢でなく、縛られてないなら誘ってきます。
	IF TEQUIP:六九式 == 0 && (MARK:屈服刻印 == 3 || TALENT:不知羞恥 || TALENT:淫乱) && PALAM:欲情 >= 3000 && TEQUIP:拘束 == 0 && RAND:2
		;前回くぱぁ
		IF PREVCOM == 13
			PRINTFORM 將陰部用手指慢慢展開
		;振動棒使用中
		ELSEIF TEQUIP:振動棒
			PRINTFORM 將含住不斷翻攪著的振動棒的陰部凝視著
			;胖次ずらしフラグ
			SIF CHECK_CLO("Ｖ露出") == 0
				CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
		ELSEIF CHECK_CLO("Ｖ露出") && RAND:3 == 0
			PRINTFORM 將%TEXTS("阴部：視覚")%
			;露出癖Lv3以上
			IF ABL:露出癖 >= 3 && RAND:2
				PRINTFORM 用指尖推開
			ELSE
				PRINTFORM 緊緊凝視著
			ENDIF
		ELSEIF CHECK_CLO("可以移開") && !RAND:(6 + !CHOSECOM(1)*3)
			CALL SETFLAG, "ボトムを１枚ずらす", TARGET
		;阴部を見せ付けてくる
		ELSEIF RAND:2 || COND("脚が無い")
			PRINTFORM 將%TEXTS("阴部：視覚")%緊緊凝視著
		ELSE
			PRINTFORM 面對著将双腿
			IF RAND:2
				PRINTFORM 大膽地
			ELSE
				PRINTFORM 誇張地
			ENDIF
			PRINTFORM 張開的
		ENDIF
		IF RAND:3 == 0
			PRINTFORM 語調謙卑地懇求著的
		ELSEIF RAND:2
			PRINTFORM 妖媚地誘惑著的
		ELSE
			PRINTFORM 邀請著的
		ENDIF
		PRINTFORM %CALLNAME:TARGET%的
		;裙有？
		IF EQUIP:裙 && RAND:2
			PRINTFORM %SKIRT(TARGET, "略")%將頭埋入、
		ELSE
			SIF CHOSECOM(SELECTCOM) == 0 && COND("陰毛") >= 1 && COND("陰毛") <= 3
				PRINTFORM 光潔無毛的
			PRINTFORM 胯股之间將臉頰埋進去、
		ENDIF
	ELSE
		IF PREVCOM == 13
			PRINTFORM 將用手指打開著陰部的
		ELSEIF PREVCOM == 95
			PRINTFORM 將用纖細雙腳侍奉著的
		;縛られてますか？
		ELSEIF TEQUIP:拘束
			PRINTFORM 身體被牢牢禁錮住、動彈不得的
		ENDIF
		PRINTFORM %CALLNAME:TARGET%的
		;胖次をずらす
		IF CHECK_CLO("可以移開") && RAND:3 == 0
			CALL SETFLAG, "ボトムを１枚ずらす", TARGET
			PRINTFORM 、
		ELSE
			;裙有？
			IF EQUIP:裙 && RAND:2
				PRINTFORM %SKIRT(TARGET, "略")%將頭埋入、
			ELSE
				SIF CHOSECOM(SELECTCOM) == 0 && COND("陰毛") >= 1 && COND("陰毛") <= 3
					PRINTFORM 光潔無毛的
				PRINTFORM 胯股之间將臉頰埋進去、
			ENDIF
		ENDIF
	ENDIF

	IF TEQUIP:振動棒
		IF PENIS(TARGET)
			PRINTFORM 阴茎
		ELSE
			IF CALCF("Ｃ発情") >= 2
				PRINTFORM 將從薄薄包皮中露出的
			ELSE
				PRINTFORM 將被包皮包裹著的
			ENDIF
			;淫乱or欲情3以上orＶ経験100以上
			IF CALCF("Ｃ発情")
				PRINTFORM 興奮的勃起的
			ELSEIF TALENT:娇小
				PRINTFORM 小小的
			ENDIF
			PRINTFORM 阴蒂
		ENDIF
		PRINTFORM 細緻而溫柔地舔舐著的同時、將
		;Ｖ潤3以上で追加
		SIF PALAM:Ｖ潤 >= PALAMLV:3 && RAND:3 >= 1
			PRINTFORM 被粘液沾滿的
		PRINTFORM 振動棒
		;乱数分岐
		IF RAND:3 == 0
			PRINTFORM 滋啵滋啵地
		ELSEIF RAND:2
			PRINTFORM 温柔地
		ELSE
			PRINTFORM 慢慢地、慢慢地
		ENDIF
		PRINTFORMW 抽插著……
		RETURN 1
	ELSEIF CHECK_COM("清洁舔阴")
		;胖次ずらしフラグ
		SIF CHECK_CLO("Ｖ露出") == 0
			CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
		;尿のお掃除
		IF CHECK_COM("おしっこ清洁舔阴")
			;尿道探针や指挿入
			IF (PREVCOM == 15 || PREVCOM == 151) && RAND:3
				PRINTFORM 將接受著不斷蹂躪的、噴灑著晶瑩尿滴的尿道
			ELSEIF PREVPLAY("膣内浴尿")
				PRINTFORM %TEXTR("被尿液浸泡过的/飄蕩著強烈的尿液氨臭的/痛快地嘘嘘过后的")%膣口周辺
			ELSE
				PRINTFORM 將剛剛釋放尿意後殘留晶瑩水珠的尿道
			ENDIF
		ELSEIF PREVPLAY("尿道挿入")
			IF RAND:3 == 0
				PRINTFORM 將剛剛榨取濃郁精液的抽搐尿道
			ELSEIF RAND:2
				PRINTFORM 將被過大陰莖擴張後微微鬆弛的痙攣尿道
			ELSE
				PRINTFORM 將經歷過中出性愛之後垂流下混雜尿液與精液的濁白涎水的尿道
			ENDIF
		ELSE
			PRINTFORM 將經歷過中出性愛的
			IF TALENT:娇小 && ABL:Ｖ拡張 == 0
				PRINTFORM 嬌小幼嫩的膣穴
			ELSEIF AGE(TARGET) >= 3 && PALAM:欲情 >= 10000 && RAND:2
				PRINTFORM 散發著濃郁而劇烈的性愛淫臭的陰部
			ELSE
				PRINTFORM 的\@ (TALENT:淫壷 && PALAM:快Ｖ > 8000) ? 正在飢渴地抽搐蠢動的 # \@膣口
			ENDIF
		ENDIF
	;においフェチ分岐
	ELSEIF PLAYER == MASTER && COND("气味弱点", MASTER) + TALENT:相思相愛 && (CHOSECOM(SELECTCOM) == 0 || RAND:3 == 0)
		;胖次ずらしフラグ
		SIF CHECK_CLO("Ｖ露出") == 0
			CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
		;尿のにおい
		IF CHECK_STAIN(STAIN:Ｖ, "尿") && RAND:3 == 0
			SIF PREVEX("放尿") == 0
				PRINTFORM 隱約地
			PRINTFORM 散發著尿液氨臭的尿道口週邊正被
		;自然以上
		ELSEIF COND("陰毛") >= 6 && RAND:3 == 0
			PRINTFORM 將陰毛糾結在一起並不住散發著濃郁淫臭的陰唇
		ELSEIF PALAM:欲情 >= 3000 && RAND:2
			PRINTFORM 將蒸騰著溫熱汗汽的陰部的%TEXTS("气味")%盡情享受著的同時
		ELSE
			PRINTFORMW 在用舌頭細緻舔舐陰部的同時、用力到鳴響鼻腔的嗅聞著散發著的淫靡%TEXTS("气味")%……
			RETURN 1
		ENDIF
	ELSEIF RAND:4 == 0 && TALENT:尿道性感
		IF TEQUIP:导管
			PRINTFORM 將深深插入導管的尿道口
		ELSE
			PRINTFORM 將尿道口
		ENDIF
	ELSEIF RAND:3 == 0 && PENIS(TARGET) == 0
		IF CALCF("Ｃ発情") >= 3
			PRINTFORM %TEXTR("肿起的/勃起的/発情的")%
		ELSEIF TALENT:陰核肥大
			PRINTFORM %TEXTR("大/大粒的")%
		ELSE
			PRINTFORM 將被包皮包裹的可愛
		ENDIF
		PRINTFORM 陰蒂
		SIF TALENT:陰蒂環
			PRINTFORM 連帶著金屬穿環
	ELSEIF RAND:2
		SIF COND("脚が無い") == 0
			PRINTFORM 在%TEXTS("太股：描写")%大腿之間彰顯著的
		IF TALENT:陰唇環 && RAND:2
			PRINTFORM 被%TEXTS("陰唇環")%装飾著的
		ELSEIF TALENT:娇小
			PRINTFORM 小小的
		ELSEIF EXP:Ｖ経験 >= 300 && PALAM:欲情 >= 30000 && CHECK_CLO("Ｖ露出")
			PRINTFORM 因興奮而充血的
		ELSEIF PALAM:欲情 >= 30000 && CHECK_CLO("Ｖ露出")
			PRINTFORM 因極致的情慾而染上紅色的
		ENDIF
		PRINTFORM 陰唇
	ELSE
		IF TALENT:処女 && RAND:3 == 0
			PRINTFORM 將象徵貞潔的処女膜
		ELSEIF TALENT:娇小 && ABL:Ｖ拡張 == 0
			PRINTFORM 嬌小幼嫩的
		ELSE
			SIF TALENT:淫壷 && PALAM:快Ｖ > 8000 && CHECK_CLO("Ｖ露出")
				PRINTFORM 正在飢渴地抽搐蠢動的
			PRINTFORM 阴道口
		ENDIF
	ENDIF
	;穴の開いていない胖次を是ている
	SIF CHECK_CLO("Ｖ露出") == 0
		PRINTFORM 隔著%CLO("股間")%
	IF RAND:2
		PRINTFORM 用靈巧的舌頭
	ELSE
		PRINTFORM 用靈活的舌尖
	ENDIF
	IF RAND:2 && CHECK_COM("清洁舔阴") == 0
		PRINTFORM %TEXTR("執拗地/徹底地/毫無間歇地")%
	ELSEIF RAND:2
		PRINTFORM 温柔地
	ELSE
		PRINTFORM 細緻地
	ENDIF
	IF CHECK_COM("清洁舔阴")
		PRINTFORMW 舔舐掃除著……
	ELSEIF TALENT:相思相愛 && RAND:3 == 0
		PRINTFORMW 執拗地描繪著……
	ELSEIF RAND:4 == 0
		PRINTFORMW 吮吸著……
	ELSEIF RAND:3 == 0
		PRINTFORMW 舔舐著……
	ELSEIF RAND:2
		PRINTFORMW 愛撫著……
	ELSE
		PRINTFORMW 品味著……
	ENDIF
ENDIF


code:
@COM200
;具現
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM200, ARG

@SOURCE_COM200, ARG

@TRAIN_MESSAGE_COM200
#DIM LCOUNT
#DIM SELECT_COUNT
#DIM ACTOR

PRINTFORML 要怎么做呢？

VARSET LOCAL
SELECT_COUNT = 0
FOR LCOUNT, 1, CHARANUM
	SELECTCASE LCOUNT
	CASE MASTER, TARGET, ASSI
		SIF STATE("撃沈", LCOUNT)
			CONTINUE
		SIF LCOUNT != MASTER && DITEMTYPE:LCOUNT:TNUM("具現")
			CONTINUE

		IF TALENT:LCOUNT:扶她
			PRINTFORML  [ {SELECT_COUNT}] 將%CALLNAME:LCOUNT%的陰莖縮回
			LOCAL:SELECT_COUNT = LCOUNT
			SELECT_COUNT += 1
		ELSEIF TALENT:LCOUNT:女性
			PRINTFORML  [ {SELECT_COUNT}] 讓%CALLNAME:LCOUNT%生長出陰莖
			LOCAL:SELECT_COUNT = LCOUNT
			SELECT_COUNT += 1
		ENDIF
	ENDSELECT
NEXT
PRINTFORML [100] 返回

CALL INPUT_SELECT, SELECT_COUNT, 100

SELECTCASE RESULT
CASE 100
	TFLAG:指令中止 = 1
	RETURN 0
CASEELSE
	ACTOR = LOCAL:RESULT

	IF STATE("具現", ACTOR)
		CALL REMOVE_STATE, ACTOR, "具現"
		PRINTFORMW %CALLNAME:ACTOR%因具現的能力而生長出來的陰莖消失了……
	ELSEIF STATE("阴茎陰核化", ACTOR)
		CALL REMOVE_STATE, ACTOR, "阴茎陰核化"
		PRINTFORMW %CALLNAME:ACTOR%因具現的能力而萎縮成陰蒂的陰莖復活了！
	ELSEIF TALENT:ACTOR:扶她
		CALL ADD_STATE, ACTOR, "阴茎陰核化"
		PRINTFORMW 在具現的作用下、%CALLNAME:ACTOR%挺立的陰莖漸漸萎縮下來、變成了可愛的陰蒂……
		CALL SETFLAG, "阴茎陰核化フラグ", ACTOR
	ELSE
		CALL ADD_STATE, ACTOR, "具現"
		PRINTFORM 在%CALLNAME:ACTOR%的股間、
		SELECTCASE SIZE("阴茎", ACTOR)
		CASE IS >= 3
			PRINTFORM 有著過分兇惡的大小的
		CASE 2
			PRINTFORM 有著令人心馳神盪的雄偉的
		ENDSELECT
		PRINTFORMW 陰莖以相當兇猛的氣勢生長出來了！

		CALL SETFLAG, "具現化ＯＮフラグ", ACTOR
		CALL RECORD_SP_EXP, ACTOR
	ENDIF
ENDSELECT


code:
@COM260
;潤滑液
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

TEQUIP:潤滑液 = 1
ITEM:潤滑液 -= 1

RETURN 1

@FLAG_COM260, ARG

@SOURCE_COM260, ARG

@TRAIN_MESSAGE_COM260
#DIM MEMO_VL
#DIM MEMO_AL
#DIMS CHOICES
#DIMS SELECT_TABLE

MEMO_VL = CUP:Ｖ潤
MEMO_AL = CUP:Ａ潤

CALL SETFLAG, "潤滑追加", 10000

VARSET LOCALS
SELECT_TABLE = 前穴/后穴/两穴
SPLIT SELECT_TABLE, "/", LOCALS

IF TALENT:男性 == 0
	PRINTFORML 想要怎么样涂潤滑液呢？
	CALL PRINT_SELECT, SELECT_TABLE
	CHOICES = %LOCALS:RESULT%
ELSE
	CHOICES = 两穴
ENDIF

SELECTCASE CHOICES
CASE "前穴"
	PRINTFORMW %CALLNAME:PLAYER%將雙手沾滿潤滑液後、避開尻穴附近的肌肤將%CALLNAME:TARGET%的身體%TEXTR("溫柔地撫摸著/精心的愛撫著")%塗抹起來。
	CUP:Ａ潤 = MEMO_AL
CASE "后穴"
	PRINTFORMW %CALLNAME:PLAYER%將雙手沾滿潤滑液後、避開膣口附近的肌肤將%CALLNAME:TARGET%的身體%TEXTR("溫柔地撫摸著/精心的愛撫著")%塗抹起來。
	CUP:Ｖ潤 = MEMO_VL
CASEELSE
	PRINTFORMW %CALLNAME:PLAYER%將雙手沾滿潤滑液後、將%CALLNAME:TARGET%的身體%TEXTR("溫柔地撫摸著/精心的愛撫著")%塗抹起來。
ENDSELECT

IF CHOSECOM(SELECTCOM) == 0
	PRINTFORM %CALLNAME:TARGET%的
	IF TALENT:娇小
		PRINT 小小的
	ELSEIF TALENT:巨乳
		PRINT 豊満的
	ELSEIF TALENT:高大
		PRINT 高挑的
	ENDIF
	PRINTFORM 身體被均勻的抹上了潤滑液、反射出油亮而淫猥的光澤、
	IF TALENT:魅力
		PRINTFORM 比平常更加引人注目的
	ELSEIF TALENT:娇小
		PRINTFORM 誘人而背德的
	ELSEIF TALENT:清楚 || TALENT:高贵
		PRINTFORM 和平日裡高貴典雅的感覺完全不同的
	ENDIF
	PRINTFORM 妖艷的魅力
	IF RAND:2
		PRINTFORMW 漸漸散發出來……
	ELSE
		PRINTFORMW 充滿了部屋、營造出淫靡的氛圍……
	ENDIF
ENDIF


code:
@COM261
;媚薬
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

TEQUIP:媚薬 = 0
ITEM:媚薬 -= 1

RETURN 1

@FLAG_COM261, ARG
IF TEQUIP:推倒
	;錬金術があれば効果ＵＰ
	SELECTCASE MAX(TALENT:ASSI:錬金術, TALENT:錬金術)
	CASE 2
		TEQUIP:PLAYER:媚薬 = 200
	CASE 1
		SIF TALENT:ASSI:錬金術 + TALENT:錬金術
			TEQUIP:PLAYER:媚薬 = 100
	ENDSELECT

	CALL ADD_STATE, PLAYER, "媚薬"
ELSE
	IF ASSI:1 > 0 && CADV("淫蕩薬師")
		TEQUIP:媚薬 = 200
	ELSEIF TALENT:ASSI:錬金術 + TALENT:MASTER:錬金術
		TEQUIP:媚薬 = 100
	ENDIF
ENDIF
;ここでTEQUIP:媚薬がさらに+100（基本値）され、薬毒耐性はその後に75％軽減される
CALL ADD_STATE, TARGET, "媚薬"

@SOURCE_COM261, ARG
CALL VARSET_COMF

SOURCE:0:逸脱 = 2000
SIF TALENT:好色
	SOURCE:0:逸脱 /= 2
SIF TEQUIP:推倒
	SOURCE:0:逸脱 /= 2

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

@TRAIN_MESSAGE_COM261
IF TEQUIP:推倒
	;騎乗位出来るなら騎乗位ルート
	CALL COM_ABLE65
	IF RESULT && TALENT:好色*3 + TALENT:淫乱*3 + ABL:欲望 >= 3 && PENIS(PLAYER) && COND("Ｖ熟達")
		PRINTFORMW %CALLNAME:TARGET%向%CALLNAME:PLAYER%挺立的陰莖傾倒下媚藥、隨後再次吞嚥因藥物變得更加敏感的陰莖、開始揮舞腰肢。
		CALL SET_INSERT, TARGET, PLAYER, 65
	ELSEIF CHECK_COM("接吻")
		PRINTFORMW %CALLNAME:TARGET%將%CALLNAME:PLAYER%壓住、將媚藥含在嘴中、用激烈的吻讓%CALLNAME:PLAYER%喝下了。
	ELSE
		PRINTFORMW %CALLNAME:TARGET%從準備好的藥物中挑選出粉紅的藥液、強硬地讓動彈不得的%CALLNAME:PLAYER%喝下了媚藥。
	ENDIF
ELSE
	PRINTFORM %CALLNAME:TARGET%將
	IF ASSI:1 > 0 && CADV("淫蕩薬師")
		PRINTFORM 經過特別調合的、就連處女也會耽溺於快感的強力
	ELSEIF TALENT:ASSI:錬金術 + TALENT:MASTER:錬金術
		PRINTFORM 經過特別調合的
	ENDIF
	PRINTFORML 媚藥喝下了。
ENDIF
IF TALENT:薬毒耐性
	PRINTFORMW 儘管%CALLNAME:TARGET%對於藥毒具有耐性、但仍然產生了略微的效果——嬌嫩的肌膚漸漸湧現出漸漸地紅潮……
ELSE
	PRINTFORMW 很快、%CALLNAME:TARGET%大口喘息起來、而全身的肌膚也被猛烈的紅潮席捲……
ENDIF

PRINTL
CALL PRINT_STRL, "由于媚薬的効果_イエロー_欲情与全快楽变得更容易上升_、_イエロー_苦痛と恐怖と反感变得不容易上升_。_W"
CALL PRINT_STRW, "※但是、由于副作用_青_恭順と習得变得不容易上升_なり、_青_獲得的珠的量也会减少_※_W"


code:
@COM262
;利尿剤
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

TEQUIP:利尿剤 = 1

RETURN 1

@FLAG_COM262, ARG
BASE:尿意 += 5000

@SOURCE_COM262, ARG
CALL VARSET_COMF

SOURCE:0:逸脱 = 2000

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

@TRAIN_MESSAGE_COM262
PRINTFORM %CALLNAME:TARGET%將
SIF ABL:信頼 <= 2
	PRINT 強硬地
PRINTFORML 喂下了利尿剤
PRINTFORM %CALLNAME:TARGET%大口喘息著、
SIF CHECK_COM("強制放尿") && TALENT:内気
	PRINT 眼角浮現明亮的淚滴、
PRINTFORMW 勉強忍耐著尿意……


code:
@COM263
;創口貼
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

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

SIF REFUSE_CHECK()
	RETURN 0

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

IF TEQUIP:創口貼
	TEQUIP:創口貼 = 0
	CFLAG:創口貼装着 = 0
ELSE
	TEQUIP:創口貼 = 1
	ITEM:創口貼 -= 1
	CFLAG:創口貼装着 = 1
ENDIF

RETURN 1

@FLAG_COM263, ARG
;剥がすときに垂れてきた精液でＶに精液汚れ発生
SIF TEQUIP:創口貼 && COND("胎内の精液量")
	STAIN:Ｖ = SET_STAIN(STAIN:Ｖ, "精液")

@SOURCE_COM263, ARG

@EQUIP_COM263
SIF TEQUIP:創口貼 == 0
	RETURN 0
SIF SELECTCOM == 263
	RETURN 0
CALL SOURCE_COM263, 20

RETURN 1

@TRAIN_MESSAGE_COM263

IF TEQUIP:創口貼
	PRINTFORM %CALLNAME:TARGET%的
	SELECTCASE AGE(TARGET)
	CASE IS >= 4
		PRINTFORM 成熟的%TEXTR("阴部/肉隙")%
	CASE 3
		PRINTFORM 大人的%TEXTR("蜜裂/阴部/肉隙")%
	CASE 2
		PRINTFORM 还有些稚嫩的%TEXTR("蜜裂/阴部/肉隙")%
	CASEELSE
		PRINTFORM %TEXTR("残存幼稚的/完美闭合的")%%TEXTR("蜜裂/阴部/肉隙")%
	ENDSELECT
	PRINT 向
	SIF CFLAG:創口貼装着 > 7
		PRINT 、快要剥落的
	PRINTW 創口貼慢慢地剥下了。

	IF CFLAG:創口貼装着 >= 2 && COND("胎内の精液量") >= 10000
		PRINTFORM 从刚刚剥下創口貼的%CALLNAME:TARGET%的%TEXTR("股間/阴部/肉隙")%里
		SELECTCASE RAND:2
		CASE 0
			PRINTFORMW 、精液和愛液混合濃縮的%TEXTR("强烈的/刺激的")%%TEXTS("气味")%飘散開来…
		CASEELSE
			PRINTFORMW 漏出来发泡的%TEXTR("蜜液/液体")%、顺着大腿滴落下来…
		ENDSELECT
	ENDIF
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
	;PRINTFORM %CONDS("精液の優勢")%に
	IF EX:Ｖ中出し
		SIF EX:Ｖ中出し量 >= 50
			PRINTFORM %TEXTR("快要溢出量的/大量")%
		PRINTFORM 精液%TEXTR("被灌进/流入")%的
	ENDIF

	PRINTFORM %CALLNAME:TARGET%的
	SELECTCASE AGE(TARGET)
	CASE IS >= 4
		PRINTFORM 成熟的%TEXTR("阴部/肉隙")%
	CASE 3
		PRINTFORM 大人的%TEXTR("蜜裂/阴部/肉隙")%
	CASE 2
		PRINTFORM %TEXTR("还有些稚嫩的/微微綻開的")%%TEXTR("蜜裂/阴部/肉隙")%
	CASEELSE
		PRINTFORM %TEXTR("残存幼稚的/完美闭合的")%%TEXTR("蜜裂/阴部/肉隙")%
	ENDSELECT

	IF EX:Ｖ中出し
		PRINTFORMW 用創口貼封上了。
	ELSE
		PRINTFORMW 貼上了創口貼。
	ENDIF
ENDIF

@COM_ORDER_COM263, ARG


code:
@COM264
;排卵誘発剤
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

SIF TFLAG:地の文分岐 == 1
	CALL KOJO_MESSAGE_COM

PREVCOM = SELECTCOM

RETURN 0

@TRAIN_MESSAGE_COM264
VARSET LOCAL
IF COND("排卵誘発剤", TARGET) && COND("排卵誘発剤", PLAYER)
	PRINTFORML 要讓誰使用排卵誘發劑？
	PRINTFORML  [ 0] %CALLNAME:PLAYER%
	PRINTFORML  [ 1] %CALLNAME:TARGET%
	PRINTFORML [100] 返回
	CALL INPUT_SELECT, 2, 100
ELSEIF COND("排卵誘発剤", TARGET)
	RESULT = 1
ELSE
	PRINTFORML 使用排卵誘發劑後懷孕幾率會大幅上漲。確定嗎？
	PRINTFORML  [ 0] 是
	PRINTFORML [100] 返回
	CALL INPUT_SELECT, 1, 100
ENDIF
IF RESULT == 0
	PRINTFORMW %CALLNAME:PLAYER%自己將排卵誘發劑一飲而盡……
	TEQUIP:PLAYER:排卵誘発剤 = 1
	IF COND("発情期", PLAYER)
		BASE:PLAYER:バイオリズム = 3 + 1p11 + 1p12 + 1p13 + 1p20
	ELSE
		BASE:PLAYER:バイオリズム = 3 + 1p11 + 1p12 + 1p13
	ENDIF
ELSEIF RESULT == 1
	PRINTFORMW 在懇求下、%CALLNAME:TARGET%猶豫著喝下了排卵誘發劑……
	TEQUIP:排卵誘発剤 = 1
	IF COND("発情期")
		BASE:バイオリズム = 3 + 1p11 + 1p12 + 1p13 + 1p20
	ELSE
		BASE:バイオリズム = 3 + 1p11 + 1p12 + 1p13
	ENDIF
ELSEIF RESULT == 100
	TFLAG:指令中止 = 1
	RETURN 0
ENDIF

TFLAG:地の文分岐 = RESULT


code:
@COM265
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

TEQUIP:MASTER:芳香醚 = 1
ITEM:芳香醚 -= 1

BASE:精力 = MIN(MAXBASE:精力, BASE:精力 + MAXBASE:精力/2)
BASE:体力 = MIN(MAXBASE:体力, BASE:体力 + MAXBASE:体力/2)

BASE:MASTER:精力 = MIN(MAXBASE:MASTER:精力, BASE:MASTER:精力 + MAXBASE:MASTER:精力/2)
BASE:MASTER:体力 = MIN(MAXBASE:MASTER:体力, BASE:MASTER:体力 + MAXBASE:MASTER:体力/2)

IF ASSI && STATE("撃沈", ASSI) == 0
	BASE:ASSI:精力 = MIN(MAXBASE:ASSI:精力, BASE:ASSI:精力 + MAXBASE:ASSI:精力/2)
	BASE:ASSI:体力 = MIN(MAXBASE:ASSI:体力, BASE:ASSI:体力 + MAXBASE:ASSI:体力/2)
ENDIF

IF NOTTIME_PLAY(265)
	CALL SETFLAG, "今回指令"
	RETURN 0
ENDIF
RETURN 1

@FLAG_COM265, ARG

@SOURCE_COM265, ARG
CALL VARSET_COMF

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

@TRAIN_MESSAGE_COM265
IF PLAYER == MASTER && ASSI && STATE("撃沈", ASSI) == 0
	PRINTFORML %CALLNAME:MASTER%被%CALLNAME:ASSI%使用了芳香醚！
ELSE
	PRINTFORML %CALLNAME:MASTER%使用了芳香醚！
ENDIF
PRINTFORML 全員的体力与精力回復50％！！
CALL PRINT_STRW, "イエロー_※芳香醚每次Ｈ只能使用一次※"


code:
@COM267
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM267, ARG

@SOURCE_COM267, ARG
CALL VARSET_COMF

SOURCE:0:恐惧 = 2000
SOURCE:0:逸脱 = 1000

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

@TRAIN_MESSAGE_COM267
PRINTFORML 要對%CALLNAME:TARGET%的哪裡使用%TEXTR("筋弛緩劑/肌肉鬆弛劑")%？
PRINTFORML (注意：因為属於烈性薬、所以短時間内只能対一処用薬)
PRINTFORML  [ 0] 肛門
SIF TALENT:男性 == 0
	PRINTFORML  [ 1] 尿道周辺
SIF TALENT:男性 == 0
	PRINTFORML  [ 2] 阴部
SIF TALENT:男性 == 0 && TALENT:処女 == 0 && TALENT:妊娠 == 0
	PRINTFORML  [ 3] 子宮口
PRINTFORML [100] 返回

IF TALENT:男性 == 0 && TALENT:処女 == 0 && TALENT:妊娠 == 0
	CALL INPUT_SELECT, 4, 100
ELSEIF TALENT:男性 == 0
	CALL INPUT_SELECT, 3, 100
ELSE
	CALL INPUT_SELECT, 1, 100
ENDIF

SELECTCASE RESULT
CASE 100
	TFLAG:指令中止 = 1
	RETURN 0
CASEELSE
	TFLAG:地の文分岐 = RESULT
	SETBIT TEQUIP:筋弛緩剤, RESULT

	SELECTCASE RESULT
	CASE 0
		PRINTFORMW 在嚴格的按照計量使用%TEXTR("筋弛緩劑/肌肉鬆弛劑")%後、%CALLNAME:TARGET%的肛門週邊的肌肉漸漸鬆弛了。
		IF TALENT:薬毒耐性
			ABL:Ａ拡張 += 1
			PRINTFORMW Ａ拡張レベル＋１
		ELSE
			ABL:Ａ拡張 += 2
			PRINTFORMW Ａ拡張レベル＋２
		ENDIF
		CALL GET_EXABL_A, TARGET
		ABL:Ａ名器度 = ABL_A(TARGET)
	CASE 1
		PRINTFORMW 在嚴格的按照計量使用%TEXTR("筋弛緩劑/肌肉鬆弛劑")%後、%CALLNAME:TARGET%的尿道括約筋漸漸鬆弛了。
	CASE 2
		PRINTFORMW 在嚴格的按照計量使用%TEXTR("筋弛緩劑/肌肉鬆弛劑")%後、%CALLNAME:TARGET%的膣道漸漸鬆弛了。
		IF TALENT:薬毒耐性
			ABL:Ｖ拡張 += 1
			PRINTFORMW Ｖ拡張レベル＋１
		ELSE
			ABL:Ｖ拡張 += 2
			PRINTFORMW Ｖ拡張レベル＋２
		ENDIF
		CALL GET_EXABL_V, TARGET
		ABL:Ｖ名器度 = ABL_V(TARGET)
	CASE 3
		PRINTFORMW 在嚴格的按照計量使用%TEXTR("筋弛緩劑/肌肉鬆弛劑")%後、%CALLNAME:TARGET%的子宮口漸漸變得柔軟了。
	ENDSELECT
ENDSELECT


code:
@COM280
#DIM COMORDER_280
;挣扎
CALL PRINT_TRAIN_NAME(SELECTCOM)

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

;-------------------------------------------------
;ソースの計算
;-------------------------------------------------
CALL SOURCE_COM280, 100

;FIRSTCOMフラグON
CALL SET_CHOSECOM, TARGET, TNUM("挣扎")

;成否判定
SIF TFLAG:もがき数 <= 0
	TFLAG:もがき数 = 0

STR:実行値 =
COMORDER_280 = 0

IF ABL:施虐属性
	COMORDER_280 += MIN(ABL:施虐属性, 5)
	STR:実行値 = %STR:実行値% + 施虐属性LV{ABL:施虐属性}({MIN(ABL:施虐属性, 5)})
ENDIF
IF TALENT:強気
	COMORDER_280 += 1
	STR:実行値 = %STR:実行値% + 強気(1)
ENDIF
IF TALENT:高大
	COMORDER_280 += 1
	STR:実行値 = %STR:実行値% + 高大(1)
ENDIF
IF TALENT:大力士
	COMORDER_280 += TALENT:大力士*3
	STR:実行値 = %STR:実行値% + %TALENT_NAME(GETNUM(TALENT, "大力士"), TALENT:大力士)%({TALENT:大力士*3})
ENDIF
IF TALENT:好色
	COMORDER_280 += 1
	STR:実行値 = %STR:実行値% + 好色(1)
ENDIF
;体操服着用なら
IF CHECK_SHIRT("体操服")
	COMORDER_280 += 2
	STR:実行値 = %STR:実行値% + 体操服(2)
ENDIF
;二人推倒てるなら
IF TEQUIP:Ｗ推倒
	COMORDER_280 += 5
	STR:実行値 = %STR:実行値% + Ｗ推倒中(5)
ENDIF
;縛られているなら
IF TEQUIP:PLAYER:拘束 || STATE("バインド", PLAYER)
	COMORDER_280 += 5
	STR:実行値 = %STR:実行値% + 束縛中(5)
ENDIF
;騎乗位で挿入状態
IF INSERT("騎乗位")
	COMORDER_280 += 5
	STR:実行値 = %STR:実行値% + 騎乗位(5)
ENDIF
;前ターンの絶頂具合
IF PREVEX("射精", PLAYER)
	COMORDER_280 += 5
	STR:実行値 = %STR:実行値% + %CALLNAME:PLAYER%が射精直後(5)
ENDIF

;减少補正はこの後
IF TALENT:娇小
	COMORDER_280 -= 1
	STR:実行値 = %STR:実行値% - 娇小(1)
ENDIF
;前ターンの絶頂具合
IF PREVEX("絶頂数合計")
	COMORDER_280 -= 10
	STR:実行値 = %STR:実行値% - 絶頂直後(10)
ENDIF
IF COND("陶酔")
	COMORDER_280 -= 5
	STR:実行値 = %STR:実行値% - 陶酔(5)
ELSEIF COND("弛緩")
	COMORDER_280 -= 2
	STR:実行値 = %STR:実行値% - 弛緩(2)
ENDIF
IF COND("疲労")
	COMORDER_280 -= 10
	STR:実行値 = %STR:実行値% - 疲労困憊(10)
ELSEIF BASE:体力 < MAXBASE:体力/2
	COMORDER_280 -= 5
	STR:実行値 = %STR:実行値% - 体力半減(5)
ENDIF
IF CFLAG:マグロ
	COMORDER_280 -= 10
	STR:実行値 = %STR:実行値% - 干劲无(10)
ENDIF
;PLAYER側の補正
IF ABL:PLAYER:技巧 - ABL:技巧
	COMORDER_280 -= LIMIT(ABL:PLAYER:技巧 - ABL:技巧, -5, 5)*2
	STR:実行値 = %STR:実行値% \@ ABL:PLAYER:技巧 - ABL:技巧 > 0 ? - # + \@ 技巧差({ABS(LIMIT(ABL:PLAYER:技巧 - ABL:技巧, -5, 5) )*2})
ENDIF
IF TALENT:PLAYER:大力士
	COMORDER_280 -= TALENT:PLAYER:大力士*3
	STR:実行値 = %STR:実行値% - %CALLNAME:PLAYER%が%TALENT_NAME(GETNUM(TALENT, "大力士"), TALENT:PLAYER:大力士)%({TALENT:PLAYER:大力士*3})
ENDIF
IF TFLAG:もがき数
	COMORDER_280 -= TFLAG:もがき数*3
	STR:実行値 = %STR:実行値% - もがき数{TFLAG:もがき数}回({TFLAG:もがき数*3})
ENDIF
IF RANDF(7) - 3
	COMORDER_280 += RANDF(7) - 3
	STR:実行値 = %STR:実行値% \@ RANDF(7) - 3 > 0 ? - # + \@ 時の運({ABS(RANDF(7) - 3)})
ENDIF
PRINTL
PRINTFORM %SUBSTRING(STR:実行値, 3)% = {COMORDER_280}
SELECTCASE COMORDER_280
CASE IS < 0
	PRINT <
CASE 0
	PRINT =
CASEELSE
	PRINT >
ENDSELECT
PRINTFORMW  実行値{0}
PRINTL
IF COMORDER_280 <= 0
	TFLAG:もがき数 = 0
	IF TEQUIP:PLAYER:拘束 || STATE("バインド", PLAYER)
		PRINTFORMW %CALLNAME:PLAYER%想辦法從拘束中逃離了！
		TEQUIP:PLAYER:拘束 = 0
		CALL REMOVE_STATE, PLAYER, "バインド"
	ELSE
		PRINTFORM %CALLNAME:PLAYER%将
		SIF PREVEX("絶頂数合計")
			PRINTFORM 從沉浸在絕頂的餘韻中的%CALLNAME:TARGET%的空隙中發起突襲、
		PRINTFORMW 將主導權奪回了！
		CVARSET TEQUIP, GETNUM(TEQUIP, "推倒")
		CALL KOJO_MESSAGE_COM
		;Ｗ推倒等での口上処理
		CALL KOJO_MESSAGE_COM_MULTI
		;助手との挿入はここで解消
		CALL SETFLAG, "Ｗ推倒解除"
		CALL SETFLAG, "今回指令"

		;TARGETにPLAYERが挿入中なら正常位に移行
		IF INSERT("Ｖ挿入", TARGET, PLAYER)
			CALL SET_INSERT, TARGET, PLAYER, 60
		ELSEIF INSERT("Ａ挿入", TARGET, PLAYER)
			CALL SET_INSERT, TARGET, PLAYER, 70
		ELSEIF INSERT("尿道挿入", TARGET, PLAYER)
			CALL SET_INSERT, TARGET, PLAYER, 83
		ENDIF
	ENDIF
	RETURN 0
ELSE
	;前回の調教によって文章変化
	;面部騎乗系
	IF PREVCOM == 1 || PREVCOM == 9 || TEQUIP:面部騎乗 || TEQUIP:六九式
		PRINTFORM 從跨坐在臉上的%CALLNAME:TARGET%那裡、
	;逆強制口交
	ELSEIF PREVCOM == 4
		PRINTFORM 從帶著愉快的表情強硬的衝擊著%CALLNAME:PLAYER%口腔的%CALLNAME:TARGET%那裡、
	;奉仕系
	ELSEIF (PREVCOM == 90 || PREVCOM == 91 || PREVCOM == 92 || PREVCOM == 95 || PREVCOM == 97 || PREVCOM == 99) && PENIS(PLAYER)
		SIF PREVCOM == 90 || PREVCOM == 91 || PREVCOM == 92 || PREVCOM == 99
			PRINT 壓在身上
		PRINTFORM 蹂躪著陰莖的%CALLNAME:TARGET%那裡、
	;騎乗位系
	ELSEIF (PREVCOM >= 65 && PREVCOM <= 67) || PREVCOM == 75 || PREVCOM == 80 || PREVCOM == 88 || PREVCOM == 98 || PREVCOM == 120 || PREVCOM == 126
		PRINTFORM 從亢奮的侵犯著%CALLNAME:PLAYER%的%CALLNAME:TARGET%那裡、
	;肛門奉仕系
	ELSEIF PREVCOM == 96
		PRINTFORM 從愉快的蹂躪著肛門的%CALLNAME:TARGET%那裡、
	ELSE
		PRINTFORM %CALLNAME:PLAYER%将
	ENDIF
	PRINTFORML 试图夺回主导权、但%CALLNAME:TARGET%\@ TEQUIP:Ｗ推倒 ? 她们 # \@完全没有破绽。
	IF TEQUIP:接吻 && ABL:欲望 >= 5 && RAND:3 == 0
		PRINTFORMW 不止如此、%CALLNAME:TARGET%像是在享受%CALLNAME:PLAYER%的反抗一樣再次奪去了嘴唇、強行用舌頭交纏再一次、強硬的灌下香甜的唾液。
		CALL SETFLAG, "追加接吻フラグ", TARGET
	ELSE
		PRINTFORMW 不但如此、像是在懲罰%CALLNAME:PLAYER%的抵抗一樣、更加猛烈地侵犯起來。
	ENDIF
	TFLAG:もがき数 += 1

	CALL KOJO_MESSAGE_COM
	PRINTL

	CALL SET_COUNTER_ABL

	SIF TEQUIP:Ｗ推倒
		CALL SET_SELECTCOM_MULTI, "Ｗ推倒"

	TRYJUMPFORM COM{SELECTCOM}
ENDIF

RETURN 1

@FLAG_COM280, ARG

@SOURCE_COM280, ARG
CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 280

SOURCE:0:性行動 = 160

;PALAM:欲情をみる
SELECTCASE PALAM:欲情
CASE IS < PALAMLV:1
	TIMES SOURCE:0:性行動, 1.00
CASE IS < PALAMLV:2
	TIMES SOURCE:0:性行動, 1.20
CASE IS < PALAMLV:3
	TIMES SOURCE:0:性行動, 1.40
CASE IS < PALAMLV:4
	TIMES SOURCE:0:性行動, 1.60
CASE IS >= PALAMLV:4
	TIMES SOURCE:0:性行動, 1.80
ENDSELECT

;ABL:施虐狂ッ気をみる
SELECTCASE ABL:施虐属性
CASE 0
CASE 1
	TIMES SOURCE:0:性行動, 1.20
CASE 2
	TIMES SOURCE:0:性行動, 1.40
CASE 3
	TIMES SOURCE:0:性行動, 1.60
CASE 4
	TIMES SOURCE:0:性行動, 1.80
CASEELSE
	TIMES SOURCE:0:性行動, 2.00
ENDSELECT

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


code:
@COM281
;顺其自然
;ぶっちゃけ、絶対に脱出しない”挣扎”です
IF (STATE("恍惚", PLAYER) && FLAG:恍惚状態 == 1) || STATE("脫力", PLAYER)
	CALL SHOW_STATUS
	FLAG:COM_ABLEの一括OFF = 0
	SIF PREVCOM >= 0
		CALL SHOW_PREVCOM
ELSE
	PRINTL 顺其自然
ENDIF

STR:前回指令 = 顺其自然
CALL KOJO_MESSAGE_COM
PRINTL

SIF REFUSE_CHECK()
	RETURN 0

;FIRSTCOMフラグON
CALL SET_CHOSECOM, TARGET, TNUM("顺其自然")

CALL SET_COUNTER_ABL

SIF TEQUIP:Ｗ推倒
	CALL SET_SELECTCOM_MULTI, "Ｗ推倒"

TRYJUMPFORM COM{SELECTCOM}

RETURN 1


code:
@COM282
;自慰
CALL PRINT_TRAIN_NAME(SELECTCOM)

;オカズを記録。基本はPREVCOM
IF TEQUIP:面部騎乗
	TEQUIP:PLAYER:自慰 = TEQUIP:面部騎乗
ELSEIF CFLAG:喧嘩中
	TEQUIP:PLAYER:自慰 = TNUM("什麼也不做")
;連続実行だと変化无
ELSEIF PREVCOM != SELECTCOM
	TEQUIP:PLAYER:自慰 = PREVCOM
ENDIF

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

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

RETURN 1

@FLAG_COM282, ARG
;調教者の指⇔調教者のＰ的污垢が移動
IF PENIS(PLAYER)
	CALL EQ_STAIN, PLAYER, "手", PLAYER, "Ｐ"
;調教者の指⇔調教者のＶ的污垢が移動
ELSE
	CALL EQ_STAIN, PLAYER, "手", PLAYER, "Ｖ"
ENDIF

@SOURCE_COM282, ARG
CALL VARSET_COMF

SOURCE:0:情愛 = 300
;ABL:技巧をみる
SOURCE:0:性行動 = 100 + (ABL:PLAYER:技巧 + ABL:PLAYER:指靈活)*100

;PALAM:欲情をみる
SELECTCASE PALAM:欲情
CASE IS < PALAMLV:1
	TIMES SOURCE:0:情愛, 0.30
	TIMES SOURCE:0:性行動, 0.30
CASE IS < PALAMLV:2
	TIMES SOURCE:0:情愛, 0.60
	TIMES SOURCE:0:性行動, 0.60
CASE IS < PALAMLV:3

CASE IS < PALAMLV:4
	TIMES SOURCE:0:情愛, 1.50
	TIMES SOURCE:0:性行動, 1.50
CASE IS >= PALAMLV:4
	TIMES SOURCE:0:情愛, 2.00
	TIMES SOURCE:0:性行動, 2.00
ENDSELECT

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

@TRAIN_MESSAGE_COM282
;汎用文…はまだない
LOCALS = 在靜靜眺望%CALLNAME:TARGET%沉迷於自慰的痴態的同時、

;何をオカズにしているか
SELECTCASE TEQUIP:PLAYER:自慰
;舐陰
CASE 1
	IF TEQUIP:面部騎乗 && RAND:2
		SELECTCASE RANDF(5)
		CASE 4
			LOCALS = 臉頰被%CALLNAME:TARGET%騎乘著的同時、
		CASE 3
			LOCALS = 用臉頰承受著%CALLNAME:TARGET%的體重的同時、
		CASE 2
			LOCALS = 口鼻被充滿%TEXTS("气味")%的地方堵塞著的同時、
		CASE 1
			LOCALS = 順從著%CALLNAME:TARGET%強求、侍奉著的同時、
		CASEELSE
			LOCALS = 被%CALLNAME:TARGET%的股間摩擦著臉頰的同時、
		ENDSELECT
	;阴部むき出し
	ELSEIF CHECK_CLO("Ｖ露出")
		SELECTCASE RANDF(4)
		CASE 3
			LOCALS = 深深嗅聞著%CALLNAME:TARGET%羞恥秘處的濃郁%TEXTS("气味")%的同時、
		CASE 2
			LOCALS = 將%CALLNAME:TARGET%的陰部仔細地舔舐著的同時、
		CASE 1
			LOCALS = 將%CALLNAME:TARGET%的陰部吮吸著侍奉的同時、
		CASEELSE
			LOCALS = 被滲出的%CALLNAME:TARGET%的甜蜜淫液濕潤著喉嚨的同時、
		ENDSELECT
	;胖次とか越し
	ELSE
		SELECTCASE RANDF(3)
		CASE 2
			LOCALS = 隨著深呼吸享受著隔著%CLO("股間")%的陰部散發著的%TEXTS("气味")%的同時、
		CASE 1
			LOCALS = 將緊貼著股間的%CLO("股間")%當做特等席享受起來的同時、
		CASEELSE
			LOCALS = 將%CALLNAME:TARGET%的%CLO("股間")%極近距離的觀賞著的同時、
		ENDSELECT
	ENDIF

;自慰
CASE 3
	IF ABL:自慰中毒 >= 5 && RAND:2
		SELECTCASE RANDF(3)
		CASE 2
			LOCALS = 在享受著%CALLNAME:TARGET%認真自慰所釀造出的熱烈氣氛的同時、
		CASE 1
			LOCALS = 被完全沉醉於自慰行為中、不斷變化著姿勢的%CALLNAME:TARGET%的姿態所吸引的同時、
		CASEELSE
			LOCALS = 和在人前的自慰而無法掩飾自身的羞澀與興奮的%CALLNAME:TARGET%相互凝視的同時、
		ENDSELECT
	ELSEIF ABL:自慰中毒 >= 3
		SELECTCASE RANDF(3)
		CASE 2
			LOCALS = 在觀賞著用指節反復刺激著自己秘處而彎成拱橋形的%CALLNAME:TARGET%的同時、
		CASE 1
			LOCALS = 在靜靜眺望%CALLNAME:TARGET%沉迷於自慰的痴態的同時、
		CASEELSE
			LOCALS = 靜靜欣賞著為快樂而不斷喘息著的%CALLNAME:TARGET%艷麗的姿態的同時、
		ENDSELECT
	ELSE
		SELECTCASE RANDF(3)
		CASE 2
			LOCALS = 在觀察著用笨拙的手法給予自己快樂的%CALLNAME:TARGET%的同時、
		CASE 1
			LOCALS = 注視著一邊介意著別人的眼光一邊保守的愛撫自己的%CALLNAME:TARGET%的同時、
		CASEELSE
			LOCALS = 坐在正羞澀的展示著自慰行為的%CALLNAME:TARGET%的面前的同時、
		ENDSELECT
		IF CHOSECOM(SELECTCOM) == 0
			IF RAND:2
				LOCALS = 對在眼前用生疏的手法手淫著的%CALLNAME:TARGET%毫不在意、
			ELSE
				LOCALS = 對在眼前呆呆的手淫著的%CALLNAME:TARGET%毫不在意、
			ENDIF
		ENDIF
	ENDIF

;舐陰莖
CASE 4
	;強制口交され中
	IF TEQUIP:推倒
		SELECTCASE RANDF(5)
		CASE 4
			LOCALS = 在將%CALLNAME:TARGET%的味道深深烙印在腦海裡的同時、不自覺的
		CASE 3
			LOCALS = 在被%CALLNAME:TARGET%粗暴的使用著口腔、用鼻子喘息的同時、不自覺的
		CASE 2
			LOCALS = 在被%CALLNAME:TARGET%蹂躪著口腔和喉嚨的同時、不自覺的
		CASE 1
			LOCALS = 在被%CALLNAME:TARGET%的陰莖刮擦著牙齦和牙齒的同時、不自覺的
		CASEELSE
			LOCALS = 在被%CALLNAME:TARGET%當做活飛機杯一樣處理性慾的同時、不自覺的
		ENDSELECT
	ELSE
		SELECTCASE RANDF(4)
		CASE 3
			LOCALS = 將%CALLNAME:TARGET%的%TEXTS("阴茎：視覚", TARGET)%陰莖仔細地品味著的同時、不自覺的
		CASE 2
			LOCALS = 在漸漸陶醉在%CALLNAME:TARGET%的濃郁腥臭中的同時、不自覺的
		CASE 1
			LOCALS = 在不斷啜飲著龜頭鈴口溢出的腥臭汁液的同時、不自覺的
		CASEELSE
			LOCALS = 將%CALLNAME:TARGET%深深插入喉嚨的陰莖拼命侍奉著的同時、不自覺的
		ENDSELECT
	ENDIF
;舐肛
CASE 9
	IF TEQUIP:面部騎乗 && RAND:2
		SELECTCASE RANDF(5)
		CASE 4
			LOCALS = 臉頰被%CALLNAME:TARGET%騎乘著的同時、
		CASE 3
			LOCALS = 用臉頰承受著%CALLNAME:TARGET%的體重的同時、
		CASE 2
			LOCALS = 口鼻被充滿%TEXTS("气味")%的地方堵塞著的同時、
		CASE 1
			LOCALS = 順從著%CALLNAME:TARGET%強求、侍奉著的同時、
		CASEELSE
			LOCALS = 被%CALLNAME:TARGET%的股間摩擦著臉頰的同時、
		ENDSELECT
	;この指令は内衣越しはないんだ。すまない
	ELSE
		SELECTCASE RANDF(4)
		CASE 3
			LOCALS = 深深嗅聞著%CALLNAME:TARGET%格外污穢的地方的濃郁%TEXTS("气味")%的同時、
		CASE 2
			LOCALS = 將%CALLNAME:TARGET%的肛門的褶皺用舌頭舔舐著抹平的同時、
		CASE 1
			LOCALS = 將%CALLNAME:TARGET%的肛門週邊仔細地吮吸著清潔的同時、
		CASEELSE
			LOCALS = 將%CALLNAME:TARGET%的菊門用舌尖靈巧的摳挖著的同時、
		ENDSELECT
	ENDIF
;扒開阴道
CASE 13
	IF ABL:露出癖 >= 5 && RAND:2
		SELECTCASE RANDF(4)
		CASE 3
			LOCALS = 看著臉頰因難堪而染紅的%CALLNAME:TARGET%、故意挨得更近在極近距離仔細地觀察起來的同時、
		CASE 2
			LOCALS = 看著被人看著反而更加興奮的將陰部拉的更開的%CALLNAME:TARGET%將這個事實指出的同時、
		CASE 1
			LOCALS = 將臉頰挨近被大大打開的%CALLNAME:TARGET%的陰部、同時、
		CASEELSE
			LOCALS = 將臉挨近%CALLNAME:TARGET%張開的股間盡情享受著濃郁%TEXTS("气味")%的同時、
		ENDSELECT
	ELSEIF ABL:露出癖 >= 3
		SELECTCASE RANDF(4)
		CASE 3
			LOCALS = 將被%CALLNAME:TARGET%推開而露出的粘膜部分輕聲品評的同時、
		CASE 2
			LOCALS = 將臉頰湊近%CALLNAME:TARGET%的陰部、陶醉的嗅聞著陰部的淫臭的同時、
		CASE 1
			LOCALS = 在特等席靜靜欣賞著%CALLNAME:TARGET%可愛的部分的同時、
		CASEELSE
			LOCALS = 在觀賞之餘也不時凝視著%CALLNAME:TARGET%那羞澀的臉、同時、
		ENDSELECT
	ELSE
		SELECTCASE RANDF(3)
		CASE 2
			LOCALS = 因觀察的視線與心中的羞恥而渾身流下汗液、某種奇妙的淫臭慢慢的飄蕩起來、將這樣的%CALLNAME:TARGET%充當意淫的對象、
		CASE 1
			LOCALS = 將臉頰羞紅的%CALLNAME:TARGET%的樣子享受的欣賞著的同時、
		CASEELSE
			LOCALS = 在觀賞將自己的秘處清楚地展示著的%CALLNAME:TARGET%的樣子的同時、
		ENDSELECT
		SIF TALENT:強気 && TALENT:叛逆 && RANDF(4) == 0
			LOCALS = 一邊接受著因無禮的要求而投來責難的視線的%CALLNAME:TARGET%、一边鑑賞著美麗的陰部、同時、
		SIF TALENT:処女 == 1 && RANDF(5) == 0
			LOCALS = 在細心觀察著%CALLNAME:TARGET%最重要的處女膜的同時、
	ENDIF
;扒開菊穴
CASE 14
	IF ABL:露出癖 >= 5 && RAND:2
		SELECTCASE RANDF(4)
		CASE 3
			LOCALS = 看著臉頰因難堪而染紅的%CALLNAME:TARGET%、故意挨得更近在極近距離仔細地觀察起來的同時、
		CASE 2
			LOCALS = 看著被人看著反而更加興奮的將肛門更加推開的%CALLNAME:TARGET%的痴態而興奮的同時、
		CASE 1
			LOCALS = 將臉頰挨近被大大打開的%CALLNAME:TARGET%的肛門、同時、
		CASEELSE
			LOCALS = 將臉挨近%CALLNAME:TARGET%張開的股間盡情享受著濃郁%TEXTS("气味")%的同時、
		ENDSELECT
	ELSEIF ABL:露出癖 >= 3
		SELECTCASE RANDF(4)
		CASE 3
			LOCALS = 將被%CALLNAME:TARGET%推開而露出的色澤不一的粘膜部分輕聲品評的同時、
		CASE 2
			LOCALS = 將臉頰湊近%CALLNAME:TARGET%的肛門、恍惚的嗅聞著污穢之處的劇臭的同時、
		CASE 1
			LOCALS = 在特等席靜靜欣賞著%CALLNAME:TARGET%可愛的部分的同時、
		CASEELSE
			LOCALS = 在觀賞之餘也不時凝視著%CALLNAME:TARGET%那羞澀的臉、同時、
		ENDSELECT
	ELSE
		SELECTCASE RANDF(3)
		CASE 2
			LOCALS = 因觀察的視線與心中的羞恥而渾身流下汗液、某種奇妙的淫臭慢慢的飄蕩起來、將這樣的%CALLNAME:TARGET%充當意淫的對象、
		CASE 1
			LOCALS = 將臉頰羞紅的%CALLNAME:TARGET%的樣子享受的欣賞著的同時、
		CASEELSE
			LOCALS = 在觀賞將自己的不淨之穴清楚地展示著的%CALLNAME:TARGET%的樣子的同時、
		ENDSELECT
		SIF TALENT:強気 && TALENT:叛逆 && RANDF(4) == 0
			LOCALS = 一邊接受著因無禮的要求而投來責難的視線的%CALLNAME:TARGET%、一邊鑑賞著美麗的肛門、同時、
	ENDIF
;以下はなんか違う気がしてきたので保留
;接吻
CASE 6
;肛門奉仕
CASE 96
	IF ABL:奉仕精神 >= 3 && RANDIF(1, ABL:施虐属性 >= 3)
		LOCALS = 被%CALLNAME:TARGET%溫柔地舔舐不淨之處的同時、
	ELSEIF ABL:施虐属性 >= 3
		LOCALS = 被%CALLNAME:TARGET%粗暴地懲罰不淨之處的同時、
	ELSE
		LOCALS = 被%CALLNAME:TARGET%溫柔地舔舐不淨之處的同時、
	ENDIF
;洗面奶
CASE 104

;什麼也不做
CASE 139
	SELECTCASE RANDF(3)
	CASE 2
		LOCALS = 在%CALLNAME:TARGET%的面前、
	CASE 1
		LOCALS = 被%CALLNAME:TARGET%看着的同时、
	CASEELSE
		LOCALS = 为了展示给%CALLNAME:TARGET%看似的、
	ENDSELECT

ENDSELECT

;特殊なシチュ
IF TEQUIP:面部騎乗 && PREVPLAY("飲尿", PLAYER)
	IF ABL:PLAYER:受虐属性 >= 3 && RAND:2
		SELECTCASE RANDF(3)
		CASE 2
			LOCALS = 在仔細品嚐著%CALLNAME:TARGET%金黃的獎賞的同時、不自覺的
		CASE 1
			LOCALS = 在沉浸於被%CALLNAME:TARGET%當做肉便器使用的餘韻中的同時、不自覺的
		CASEELSE
			LOCALS = 在用舌頭仔細地舔舐打掃著%CALLNAME:TARGET%殘留著金黃液滴的陰部的同時、不自覺的
		ENDSELECT
	ELSE
		SELECTCASE RANDF(3)
		CASE 2
			LOCALS = 在陶醉在%CALLNAME:TARGET%的味道和淫臭中的同時、不自覺的
		CASE 1
			LOCALS = 因過分激烈的遊戲而難過的喘息著的同時、不自覺的
		CASEELSE
			LOCALS = 因激烈的刺激而呼吸困難、但與此同時卻不自覺的
		ENDSELECT
	ENDIF
ENDIF

PRINTFORM %CALLNAME:PLAYER%%LOCALS%
IF PENIS(PLAYER)
	IF PREVCOM == SELECTCOM
		PRINTFORMW 將自己的陰莖持續激烈的擼動著……
	ELSE
		PRINTFORMW 將自己的陰莖激烈的擼動起來……
	ENDIF
ELSE
	IF PREVCOM == SELECTCOM
		PRINTFORMW 將自己的股間持續愛撫著……
	ELSE
		PRINTFORMW 將自己的股間愛撫起來……
	ENDIF
ENDIF

@EQUIP_COM37
#DIM MEMO_SELECTCOM
SIF TEQUIP:PLAYER:自慰 == 0
	RETURN 0

MEMO_SELECTCOM = SELECTCOM

IF SELECTCOM == 282
	CALLFORM SOURCE_COM{TEQUIP:PLAYER:自慰}, 30
	CALLFORM FLAG_COM{TEQUIP:PLAYER:自慰}, 30
ELSE
	SELECTCOM = 282
	CALL SOURCE_COM282, 30
	CALL FLAG_COM282, 30
	CALL SAMEN_CHECK, 30
ENDIF

SELECTCOM = MEMO_SELECTCOM

@EQUIP_COM37_2
SIF TEQUIP:PLAYER:自慰 == 0
	RETURN 0
SIF SELECTCOM == 282
	RETURN 0
PRINTFORML ＜自慰(%CALLNAME:PLAYER%)＞
;CALL TRAIN_MESSAGE_COM282
EXP:PLAYER:自慰経験 += 1


code:
@COM283
;甜言蜜语
;成功率判定を行う。成功時には反感を買わずに恭順・欲望が上昇。
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

;話を聞いてくれる
IF CALCF("甜言蜜语成功")
	TEQUIP:甜言蜜语 = 5
	;専用の素質を持ってる？
	SIF TALENT:PLAYER:甜言蜜语
		TEQUIP:甜言蜜语 += TALENT:PLAYER:甜言蜜语/2 + 1
	;建议に堕天使の甘言がある？
	SIF TEQUIP:堕天使の甘言
		TEQUIP:甜言蜜语 += 2
	SIF CFLAG:夸奖 == 0 && CHECK_COM("夸奖", TNUM("甜言蜜语") )
		CFLAG:夸奖 = 1
;話を聞いてくれない
ELSE
	TEQUIP:甜言蜜语 = 0
ENDIF

CALL SOURCE_CHECK_SHORT

RETURN 0

@CHECK_TRAIN283_PRAISE()
#FUNCTION
SELECTCASE TRAIN_MESSAGE_COM283_SUBS(PREVCOM)
CASE ""
	RETURNF 0
CASEELSE
	RETURNF 1
ENDSELECT

;甜言蜜语というよりは夸奖区分。ARGには対象とする指令番号を入れる(通常はPREVCOM)
@TRAIN_MESSAGE_COM283_SUBS(ARG)
#FUNCTIONS

VARSET LOCALS
SELECTCASE TRAINNAME_EX(ARG)
CASE "舐陰莖", "给对方手交", "给对方乳交", "给对方足交"
	IF SIZE("阴茎", TARGET) >= 2 && TALENT:MASTER:男性 == 0
		IF PREVEX("射精")
			LOCALS += @"%CALLNAME:PLAYER%欣赏着%CALLNAME:TARGET%%TEXTR("可爱地向上仰望着这边的样子/舒服地晕乎乎的样子/满足地吐出舌頭的样子")%的同时、"
			LOCALS += @"%TEXTR("将刚刚射精之后还留着白色的口水的/将刚刚射精还很敏感的/刚刚射精过一次的")%巨根"
		ELSE
			LOCALS += @"%CALLNAME:PLAYER%将%CALLNAME:TARGET%%TEXTR("可爱地向上仰望着这边的样子记在脑海中的同时/温柔地奉仕的同时/用心取悦的同时")%、将%TEXTS("阴茎：尺寸表現付")%"
		ENDIF
	ENDIF
CASE "扒開阴道", "扒開菊穴"
	SIF STR:賞賛内容 != ""
		LOCALS += @"%CALLNAME:PLAYER%%STR:賞賛内容%将%CALLNAME:TARGET%"
CASE "剃毛"
	IF TALENT:男性 == 0
		LOCALS += @"%CALLNAME:PLAYER%は"
		SELECTCASE CONDS("陰毛")
		CASE "脱毛処理"
			LOCALS += @"%TEXTR("脱毛处理后变成了像兒童一様光滑无毛的/因为完全脱毛而变得十分干净的")%"
		CASE "光滑无毛"
			LOCALS += @"%TEXTR("精心剃净陰毛的/被剃得光滑无毛/能看得十分清楚的")%"
		CASE "保养完毕"
			IF CEVENT("陰毛の名称")
				LOCALS += @"綺麗%CEVENTS("陰毛の名称")%的"
			ELSE
				LOCALS += @"%TEXTR("精心打理的/漂亮的/轻松的")%"
			ENDIF
			LOCALS += @"陰毛剃整齐的"
		ENDSELECT
		LOCALS += @"将%CALLNAME:TARGET%的%TEXTS("割れ目：表現短め")%"
		IF RAND:2
			LOCALS += @"、用指尖%TEXTR("温柔地描着/推開/咕滋咕滋地玩弄")%的同时"
		ELSE
			LOCALS += @"用脸靠近、%TEXTR("確認结果/检查毛茬的痕迹/仔细鑑賞")%的同时"
		ENDIF
	ENDIF
CASE "喝套内精液"
	LOCALS += @"%CALLNAME:PLAYER%は"
	SELECTCASE ABL:精液中毒
	CASE IS >= 3
		LOCALS += @"将%CALLNAME:TARGET%出色的飲用姿势"
	CASEELSE
		LOCALS += @"、把精液好好地喝干的%CALLNAME:TARGET%"
	ENDSELECT
CASE "让对方浴尿"
	SIF PREVPLAY("尿飲み干し")
		LOCALS += @"%CALLNAME:PLAYER%赞美了没有溢出来而是漂亮飲尽了尿液的%CALLNAME:TARGET%"
CASE "拳交", "両穴拳交"
	LOCALS += @"%CALLNAME:PLAYER%%TEXTR("看着沾满愛液的手/抚摸着股間/继续慢慢用手进出")%的同时、"
	IF ABL:Ｖ弛緩
		LOCALS += @"%TEXTR(@"目を見張る程に大きく広がった%CALLNAME:TARGET%の膣穴\/%CALLNAME:TARGET%の膣穴のガバガバ具合\/すっかり締まりを失ってしまった%CALLNAME:TARGET%のユルい膣穴")%を"
	ELSE
		LOCALS += @"%TEXTR(@"大きく広がった%CALLNAME:TARGET%の膣穴\/%CALLNAME:TARGET%の膣穴の深く柔軟な様\/腕だろうと受け入れられる程に成長した%CALLNAME:TARGET%の膣穴")%を"
	ENDIF
CASE "肛門拳交"
	IF PREVEX("前列腺高潮射精")
		LOCALS += @"%CALLNAME:PLAYER%、%TEXTR("用肛門拳交/用拳頭来回进出着肛門/仔细地将手腕压入尻穴")%刺激着前列腺"
		LOCALS += @"将%TEXTR("身体一阵一阵颤抖垂流出精液的/舒服地快要融化掉精液咕噜咕噜地漏出来了的/全身酥软露出了恍惚的表情就这样用软乎乎的肉棒射精了的")%%CALLNAME:TARGET%"
	ELSE
		LOCALS += @"%CALLNAME:PLAYER%%TEXTR("展示着被体液弄脏的手指的/抚摸着股间/温柔地不断用手指抚弄")%的同时、"
		IF ABL:Ａ弛緩
			LOCALS += @"%TEXTR(@"肉眼可见地进行了扩张的%CALLNAME:TARGET%的肛門\/%CALLNAME:TARGET%的尻穴变得乱七八糟的\/失去了能够紧密地包裹住内容物的%CALLNAME:TARGET%的湿滑尻穴")%を"
		ELSE
			LOCALS += @"%TEXTR(@"大大地扩张了的%CALLNAME:TARGET%的肛門\/%CALLNAME:TARGET%柔软的直肠\/能够将手腕放入其中成長了的%CALLNAME:TARGET%的肛門")%を"
		ENDIF
	ENDIF
CASEELSE
	IF PREVPLAY("穿环")
		LOCALS += @"%CALLNAME:PLAYER%は"
		IF PREVPLAY("乳环")
			LOCALS += @"、将%CALLNAME:TARGET%用乳环装饰着的乳頭"
		ELSEIF PREVPLAY("恥丘穿環")
			LOCALS += @"、观赏着%CALLNAME:TARGET%用乳环装饰着的恥丘"
		ELSEIF PREVPLAY("性器穿環")
			IF TALENT:男性
				LOCALS += @"脸伸入%CALLNAME:TARGET%的股间、将穿环的阴茎"
			ELSEIF TALENT:扶她
				LOCALS += @"脸伸入%CALLNAME:TARGET%的股间、将穿环的性器"
			ELSE
				LOCALS += @"脸伸入%CALLNAME:TARGET%的股间、将穿环的小穴"
			ENDIF
		ELSE
			LOCALS += @"、将%CALLNAME:TARGET%穿着环的肚脐眼"
		ENDIF
	ELSEIF PREVPLAY("恥垢清洁口交")
		LOCALS += @"%CALLNAME:PLAYER%溫柔地撫摸著%TEXTR("用舌尖溫柔地取下恥垢再數盡吞下的/殷勤地為掃除恥垢而扭動著舌頭的/用手溫柔地扶住陰莖用嘴清掃著其上的污垢的")%%CALLNAME:TARGET%的%TEXTR("頭髮/頭/臉頰")%的同時"
	ELSEIF PREVPLAY("Ａ清洁口交")
		LOCALS += @"%CALLNAME:PLAYER%溫柔地撫摸著正在為剛剛完成肛門性交的陰莖進行口交掃除的%CALLNAME:TARGET%的%TEXTR("頭髮/頭/臉頰")%的同時"
	ELSEIF PREVPLAY("清洁口交")
		LOCALS += @"%CALLNAME:PLAYER%溫柔地撫摸著正在為陰莖進行口交掃除的%CALLNAME:TARGET%的%TEXTR("頭髮/頭/臉頰")%的同時"
	ELSEIF PREVPLAY("阴茎接吻")
		;あんまり慣れてない
		IF TALENT:献身 + TALENT:好色 + TALENT:小悪魔 == 0 && (MARK:屈服刻印 <= 1 || EXP:口交経験 < 20)
			LOCALS += @"%CALLNAME:PLAYER%溫柔地撫摸著%TEXTR("害羞地叼著肉棒的/還不熟練地親吻著陰莖的/猶豫著用舌尖抵著陰莖的")%%CALLNAME:TARGET%的%TEXTR("頭髮/頭/臉頰")%的同時"
		ELSE
			LOCALS += @"%CALLNAME:PLAYER%溫柔地撫摸著%TEXTR("開心地親吻著陰莖的/快速地親吻吞吐著陰莖的/用心地親吻陰莖后帶著尊敬之情慢慢用舌頭濡濕肉棒的")%%CALLNAME:TARGET%的%TEXTR("頭髮/頭/臉頰")%的同時"
		ENDIF
	ELSEIF PREVEX("前列腺高潮射精")
		LOCALS += @"%CALLNAME:PLAYER%将因为对前列腺的刺激%TEXTR("身体一阵一阵地颤抖的同时不断地流出精液的/露出一副非常舒服的表情漏出了黏糊糊的精液的/全身变得软软的恍惚着摇晃软绵绵的阴茎射精了的")%%CALLNAME:TARGET%"
	ELSEIF PREVPLAY("万謝的亲吻")
		LOCALS += @"%CALLNAME:PLAYER%将脸埋进股间进行奉仕的同时、将%CALLNAME:TARGET%的%TEXTS("割れ目")%"
	ELSEIF TEQUIP:深喉
		LOCALS += @"%CALLNAME:PLAYER%溫柔地撫摸著帶著慌亂的吐息為陰莖進行深喉口交的%CALLNAME:TARGET%的%TEXTR("頭髮/頭/臉頰")%的同時"
	ELSEIF PREVEX("絶頂", MASTER)
		SELECTCASE TRAINNAME_EX(PREVCOM)
		CASE "奉仕舐陰"
			LOCALS += @"%CALLNAME:PLAYER%一边%TEXTR("抚摸着頭发/抚摸着頭/温柔地抚摸着脸颊")%、一边将%CALLNAME:TARGET%的%TEXTR("优秀清洁能力/高超舌技/奉仕力")%"
		ENDSELECT
	ENDIF
ENDSELECT
SIF LOCALS != ""
	LOCALS += @"%TEXTR("進行了多次讚美/不斷地誇讚")%…"
RETURNF LOCALS

@TRAIN_MESSAGE_COM283
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

IF TRAIN_MESSAGE_COM283_SUBS(PREVCOM) != ""
	PRINTFORMW %TRAIN_MESSAGE_COM283_SUBS(PREVCOM)%
	RETURN 1
ENDIF

PRINTFORM %CALLNAME:PLAYER%

;挿入中
IF INSERT("合体中") && RANDIF(1, TEQUIP:接吻)
	PRINTFORM 對%TEXTS("合体中", PLAYER)%
ELSEIF TEQUIP:接吻
	PRINTFORM 對%TEXTS("接吻継続")%、
	CALL SETFLAG, "追加接吻フラグ", TARGET
ELSE
	SELECTCASE TRAINNAME_EX(PREVCOM)
	CASE "愛撫"
		PRINTFORM %TEXTR("令人心焦地愛撫/溫柔地撫摸/壞心眼地揉弄著弱點")%的同時、
	CASE "舐陰"
		PRINTFORM 將臉埋入股間進行奉仕的同時、
	CASE "肛門愛撫"
		IF TEQUIP:肛用振動棒
			PRINTFORM 對%TEXTR("溫柔地攪動著插入直腸的玩具/用震動棒撫慰著腸壁/攪動著像是尾巴一樣從肛門中吐出來的振動棒")%的同時、
		ELSE
			PRINTFORM %TEXTR("令人心焦地愛撫尻穴/溫柔地撫摸尻穴/壞心眼地揉弄著尻穴弱點")%的同時
		ENDIF
	CASE "胸愛撫"
		PRINTFORM 對胸を%TEXTR("温柔地爱抚/轻柔地抚摸/壞心眼地揉弄著")%胸部的同时、
	CASE "阴部愛撫"
		PRINTFORM %TEXTR("温柔地爱抚/轻柔地抚摸/壞心眼地揉弄著")%股间的同时、
	CASE "指挿入"
		IF TEQUIP:振動棒
			PRINTFORM 對%TEXTR("溫柔地攪動著插入膣内的玩具/用震動棒撫慰著膣内/用振動棒刺激著膣内的軟肉")%的同時、
		ELSE
			PRINTFORM 對%TEXTR("緩緩地抽動插入膣内的手指/溫柔地用手指愛撫著膣内/用手指輕撓著膣襞")%的同時、
		ENDIF
	CASE "舐肛"
		PRINTFORM 向著尻穴低下頭進行奉仕的同時、
	CASE "尿道指挿入"
		PRINTFORM %TEXTR("緩緩地抽動插入尿道的手指/溫柔地用手指愛撫著尿道黏膜/用手指玩弄著過於敏感的地方")%的同時、
	CASE "自慰"
		PRINTFORM 在眼前進行著自慰的
	CASE "舐陰莖", "给对方手交", "给对方乳交"
		PRINTFORM 為%TEXTS("阴茎：視覚", TARGET)%獻上奉仕的同時、
	CASE "手淫"
		PRINTFORM 用手擼動著陰莖的
	CASE "口交"
		PRINTFORM 對将阴茎用嘴唇侍奉着的
	CASE "乳交"
		IF TALENT:巨乳
			PRINTFORM %TEXTR("用胸部奉仕陰莖/將陰莖放入胸部中裹挾擼動著")%的
		ELSE
			PRINTFORM %TEXTR("用胸部奉仕陰莖/用胸部摩擦陰莖")%的
		ENDIF
	CASE "奉仕舐陰"
		PRINTFORM 對將臉頰埋在股間侍奉著的
	CASE "強制口交"
		PRINTFORM 暫時停止了扭腰、從深喉口交中得到喘息機會的
	CASE "抱上去"
		PRINTFORMW 抱着%CALLNAME:TARGET%、說著甜蜜的情話…
		RETURN 1
	CASEELSE
		IF ASSI && TALENT:ASSI:甜言蜜语 && TALENT:MASTER:甜言蜜语 && ASSIPLAY
			PRINTFORM 和%CALLNAME:MASTER%對
		ELSEIF ASSI && TALENT:ASSI:甜言蜜语 && TALENT:MASTER:甜言蜜语 && ASSIPLAY == 0 && COND("只和你Ｈ") == 0
			PRINTFORM 和%CALLNAME:ASSI%對
		ELSE
			PRINTFORM 對
		ENDIF
	ENDSELECT
ENDIF

;PLAYER主導PLAY直後ならちょっと補足
IF TRAIN_GENRE("partner主導", PREVCOM) == 0
	IF PREVEX("絶頂漏尿")
		PRINTFORM %TEXTR("刚刚绝顶漏尿的/因为过度的快感而露出了羞耻的丑态的/沉浸在绝顶的余韵中断断续续地漏尿的")%
	ENDIF
ENDIF

IF AGE(TARGET) < AGE(PLAYER) && INSERT("合体中") == 0
	PRINTFORMW %CALLNAME:TARGET%說著溫柔的誇獎……
ELSE
	PRINTFORMW %CALLNAME:TARGET%說著甜蜜的情話……
ENDIF

@EQUIP_COM283_2
SIF TEQUIP:甜言蜜语 == 0
	RETURN 0
IF CFLAG:夸奖 == 1
	CALL PRINT_STRW, @"%CALLNAME:TARGET%が[心情好]成为了_黄色_(実行値に+5BOUNS)"
	CFLAG:夸奖 = 2
	SIF PLAYER == MASTER
		TFLAG:好感度BOUNS += 5
ENDIF

;実行ターンの成功時のSOURCEはここで処理
IF SELECTCOM == 283
	;成功率Downの素質がある場合、取得sourceにBOUNSがつく
	;ソースの基準量や補正倍率はまだ調整途上
	LOCAL = CALCF("甜言蜜语")

	SOURCE:情愛 += LOCAL
	IF TALENT:男性 == 0
		IF TALENT:容易濕
			SOURCE:Ｖ液体追加 += UP_PALAMLV(LOCAL / 10)
		ELSEIF TALENT:不易濕
			SOURCE:Ｖ液体追加 += DOWN_PALAMLV(LOCAL / 10)
		ELSE
			SOURCE:Ｖ液体追加 += LOCAL / 10
		ENDIF
	ENDIF
	SOURCE:恭順追加 += LOCAL / 2
	SOURCE:欲情追加 += LOCAL / 4
	;叛逆な人は恭順が上がらな過ぎるので、補正
	SIF TALENT:叛逆
		SOURCE:恭順追加 += LOCAL * 3
	;情緒加算
	IF CHOSECOM(SELECTCOM) == 0
		FLAG:情緒 += 30 + TEQUIP:甜言蜜语/2*5
	ELSE
		FLAG:情緒 += 5 + TEQUIP:甜言蜜语/4
	ENDIF

	;好感度
	SIF PLAYER == MASTER
		TFLAG:好感度BOUNS += 1 + TEQUIP:甜言蜜语
ENDIF
;情緒アップ中
PRINTFORML ＜甜言蜜语効果発揮中＞
TEQUIP:甜言蜜语 -= 1

RETURN 1

;-------------------------------------------------
;汎用口上
;-------------------------------------------------
@KOJO_MESSAGE_COM283
;汎用成功
IF TEQUIP:甜言蜜语
	IF TALENT:高慢 && RAND:2
		PRINTFORMW %CALLNAME:TARGET%對此好像並不滿足……
	ELSEIF TALENT:開朗
		IF RAND:2 && TEQUIP:六九式 == 0 && INSERT("後背位") + INSERT("背面座位") == 0
			PRINTFORM %CALLNAME:TARGET%因此而露出了大大的笑容、將%CALLNAME:PLAYER%
			IF AGE(TARGET) >= 3
				PRINTW 緊緊抱住了。
			ELSE
				PRINTW 輕輕擁住了。
			ENDIF
		ELSE
			PRINTFORMW %CALLNAME:TARGET%小聲的反復嘀咕著%CALLNAME:PLAYER%的情話、露出了略帶羞澀的開心笑容。
		ENDIF
	ELSEIF TALENT:害羞
		PRINTFORMW %CALLNAME:TARGET%的臉頰變得通紅、扭扭捏捏地看過來了……
	ELSE
		PRINTFORMW %CALLNAME:TARGET%開心的笑著。
	ENDIF
;汎用失敗
ELSE
	IF TALENT:高慢 && RAND:2
		PRINTFORMW %CALLNAME:TARGET%對著%CALLNAME:PLAYER%的奉承話嗤笑起來……
	ELSE
		PRINTFORMW %CALLNAME:TARGET%並沒有認真的聆聽%CALLNAME:PLAYER%的情話……
	ENDIF
ENDIF


code:
@COM285
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM285, ARG

@SOURCE_COM285, ARG
CALL VARSET_COMF

SOURCE:0:情愛 = 1000
SIF COND("視力") == 0
	SOURCE:0:情愛 += 4000

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

@TRAIN_MESSAGE_COM285
IF CHECK_COM("温柔地抱了")
	SIF PLAYER != MASTER
		PRINTFORM %CALLNAME:PLAYER%将
	;相思相愛
	IF TALENT:相思相愛 && PLAYER == MASTER && RAND:3 == 0
		PRINTFORMW 在%CALLNAME:TARGET%的耳邊囁嚅著充滿愛意的言語的同時、溫柔地抱住了%CALLNAME:TARGET%。
	ELSEIF TALENT:娇小 && RAND:2 == 0
		PRINTFORMW 撫摸著%CALLNAME:TARGET%的頭的同時、緊緊地抱住。
	ELSE
		PRINTFORMW 将%CALLNAME:TARGET%拉到身边、溫柔地抱住。
	ENDIF
ELSEIF PREVEX("処女喪失")
	IF TALENT:恋慕
		PRINTFORMW %CALLNAME:PLAYER%、抱住了忍受着第一次的疼痛也还露出微笑的%CALLNAME:TARGET%。
		PRINTFORMW %CALLNAME:TARGET%%TEXTR("放松了自己的身体、安心地/似乎有些感慨地")%接受着来自%CALLNAME:PLAYER%的拥抱…
		RETURN 1
	ELSE
		PRINTFORMW %CALLNAME:PLAYER%、抱住了因第一次的疼痛而身体僵硬的%CALLNAME:TARGET%。
	ENDIF
ELSEIF PREVEX("Ａ処女喪失")
	PRINTFORMW %CALLNAME:PLAYER%、抱住了因第一次的肛門性交而无所适从的%CALLNAME:TARGET%。
;接吻中
ELSEIF TEQUIP:接吻 && COND("前Ｔ調教者") == PLAYER
	PRINTFORM %CALLNAME:PLAYER%将
	;前回中出し
	IF PREVEX("Ｖ中出し") && (EX:Ｖ中出し == 1 || CHOSECOM(SELECTCOM) == 0)
		IF COND("危険日")
			PRINTFORM 完全不顧危險日順從地接受了膣内中出
		ELSE
			PRINTFORM %TEXTR("在生性交中接受了膣内射精/還沉浸在生中出的餘韻中/方才結束一戰緩緩地調整呼吸節奏的")%
		ENDIF
	ELSEIF PREVEX("Ａ中出し") && (EX:Ａ中出し == 1 || CHOSECOM(SELECTCOM) == 0)
		PRINTFORM %TEXTR("在肛門性交中接受了腸内射精的/還沉浸在尻穴中出的餘韻中/方才結束一戰緩緩地調整呼吸節奏的")%
	ENDIF
	PRINTFORM %CALLNAME:TARGET%引き寄せ、
	PRINTFORM %TEXTR("在彼此口内用舌頭来回舔舐/舌頭缠绕在一起交换互相交換唾液/把嘴唇周边弄得黏糊糊的")%的同时紧紧抱在了一起。
;挿入中
ELSEIF INSERT("合体中")
	;前回中出し
	IF PREVEX("Ｖ中出し") && (EX:Ｖ中出し == 1 || CHOSECOM(SELECTCOM) == 0)
		IF COND("危険日")
			PRINTFORMW %CALLNAME:PLAYER%將完全不顧危險日順從地接受了膣内中出的%CALLNAME:TARGET%抱在了懷裡。
		ELSE
			PRINTFORMW %CALLNAME:PLAYER%將%TEXTR("剛剛在生性交中接受了膣内射精/還沉浸在生中出的餘韻中/方才結束一戰緩緩地調整呼吸節奏的")%的%CALLNAME:TARGET%抱在了懷裡。
		ENDIF
	ELSEIF PREVEX("Ａ中出し") && (EX:Ａ中出し == 1 || CHOSECOM(SELECTCOM) == 0)
		PRINTFORMW %CALLNAME:PLAYER%紧紧地抱住了%TEXTR("在肛門性交中接受了腸内射精的/還沉浸在尻穴中出的餘韻中/方才結束一戰緩緩地調整呼吸節奏的")%%CALLNAME:TARGET%。
	ELSEIF PREVPLAY("今回初挿入") && SIZE("阴茎", PLAYER) >= 2 && CHECK_COM("完全挿入可能", PREVCOM)
		IF PLAYER == MASTER
			PRINTFORM %CALLNAME:PLAYER%将把自己%TEXTS("巨根：主人")%
		ELSE
			PRINTFORM %CALLNAME:PLAYER%将把%TEXTS("巨根：視覚", PLAYER)%
		ENDIF
		PRINTFORMW \@ TALENT:娇小 ? 用小小的身体 # \@%TEXTR("直至根部/毫无保留地/紧紧地")%接受了的%CALLNAME:TARGET%抱住了。
	ELSE
		PRINTFORMW %CALLNAME:PLAYER%将%TEXTS("合体中", PLAYER)%%CALLNAME:TARGET%抱住了。
	ENDIF
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
	IF PREVPLAY("飲尿")
		PRINTFORM 在飲尿PLAY之後一邊呼出散發著氨臭的口氣、一邊緩緩調整呼吸的節奏的
	ELSEIF COND("前回口交")
		PRINTFORM 中断了陰莖口交之後、将
	ELSEIF COND("前Ｔ調教者") == PLAYER && (PREVCOM == 98 || PREVCOM == 99)
		PRINTFORM 中断了阴部奉仕之後、将
	ELSEIF COND("前Ｔ調教者") == PLAYER && PREVCOM == 96
		PRINTFORM 进行了尻穴奉仕的
	ELSEIF PREVPLAY("絶頂")
		PRINTFORM %TEXTR("絶頂直後还在深呼吸的/浸在絶頂的余韻中的/刚刚身体还在颤动的")%
	ELSEIF TEQUIP:接吻
		PRINTFORM %TEXTS("接吻継続")%
		CALL SETFLAG, "追加接吻フラグ", TARGET
	ELSEIF CHOSECOM(SELECTCOM) == 0
		IF COND("緊張緩和") == 0 && COND("性交熟達") == 0 && TALENT:内気 + TALENT:臆病
			PRINTFORM 因为緊張还是什么様子有些不自然的
		ELSE
			PRINTFORM %PHOTO_COSTUME(TARGET)%
		ENDIF
	ENDIF
	PRINTFORM %CALLNAME:TARGET%
	IF RAND:3 == 0 && (COND("前回口交") || (COND("前Ｔ調教者") == PLAYER && (PREVCOM == 96 || PREVCOM == 98 || PREVCOM == 99)) )
		PRINTFORM 使用舌頭的技巧加以褒揚、
	ELSE
		PRINTFORM を
	ENDIF
	PRINTFORMW %TEXTR("摸着頭/摸着頭髪/温柔地")%抱住了。
ENDIF

IF INSERT("挿入") && (ABL:信頼 >= 5 || ABL:欲望 >= 5) && CHECK("実行中の挿入")
	IF EX:処女喪失 && INSERT("Ｖ挿入")
		PRINTFORM %CALLNAME:TARGET%%TEXTR("偶尔露出因不习惯的場所被襲击而疼痛的表情/不时漏出混合了疼痛和甘甜的呻吟声")%的同时、
	ELSE
		PRINTFORM %CALLNAME:TARGET%%TEXTR("由于敏感的地方襲来的快感而不由得漏出灼熱的喘息/因为敏感的地方被攻击不住漏出甘甜的呻吟声")%的同时、
	ENDIF
	IF RAND:3 && INSERT("正常位") + INSERT("対面座位") + INSERT("騎乗位") && (PLAYER == MASTER || TALENT:淫乱)
		PRINTFORMW %TEXTR(@"情熱地央求着%CALLNAME:PLAYER%/把手臂缠绕在身体上用拥抱回应着/沉迷在亲密的性爱之中")%…
	ELSE
		PRINTFORMW %TEXTR("若无其事地/身体放松地/好像有点高兴地")%委身于%CALLNAME:PLAYER%的怀抱之中…
	ENDIF
ELSEIF PREVEX("処女喪失") == 0 && (ABL:信頼 >= 3 || COND("緊張緩和") || TALENT:開朗 + TALENT:接受快感) && (PLAYER == MASTER || TALENT:淫乱)
	PRINTFORM %CALLNAME:TARGET%
	IF CHOSECOM(SELECTCOM) || INSERT("後背位") || INSERT("背面座位")
		IF RAND:3 == 0 && PREVEX("絶頂数合計")
			PRINTFORMW %TEXTR("閉上了眼睛/小幅度喘息的同时")%恍惚地沉浸在快感之中…
		ELSEIF RAND:2 && INSERT("後背位") + INSERT("背面座位") == 0
			PRINTFORMW 閉上了眼睛、臉頰染上薄薄的紅暈、迎合著%CALLNAME:PLAYER%的動作…
		ELSE
			PRINTFORMW %TEXTR("閉上了眼睛/小幅度喘息的同时")%、將身體託付給了%CALLNAME:PLAYER%…
		ENDIF
	ELSE
		PRINTFORMW 用温柔的拥抱回应了%CALLNAME:PLAYER%…
	ENDIF
ELSE
	IF RAND:3 == 0
		PRINTFORMW %CALLNAME:TARGET%询问了%CALLNAME:PLAYER%的情况、好像并没有很讨厌被这样紧紧抱着…
	ELSEIF RAND:2
		PRINTFORMW %CALLNAME:TARGET%一瞬间身体吓了一跳、然后一边轻轻吐气、一边放松身体接受着%CALLNAME:PLAYER%的拥抱…
	ELSE
		PRINTFORMW %CALLNAME:TARGET%被%CALLNAME:PLAYER%紧紧抱着、一动不动…
	ENDIF
ENDIF


code:
@COM286

PRINTL 委身于對方

CALL KOJO_MESSAGE_COM
CALL BLANKLINE

SIF CONFIG("委身于對方的警告表示")
	CALL SELECT_WARNING_COM286

SIF REFUSE_CHECK()
	RETURN 0

STR:前回指令 = 委身于對方

;FIRSTCOMフラグON
CALL SET_CHOSECOM, TARGET, TNUM("委身于對方")

IF TFLAG:地の文スキップ == 0
	PRINTFORM %CALLNAME:PLAYER%決定暫時按照%CALLNAME:TARGET%
	SIF TEQUIP:Ｗ推倒
		PRINTFORM 和%CALLNAME:(TARGET:1)%
	PRINTFORMW 的想法接受調教

	PRINTFORMW %CALLNAME:PLAYER%變成了柔若無骨狀態…
	CALL BLANKLINE
ENDIF
CALL ADD_STATE, PLAYER, "脫力"

;就这様顺其自然を実行
TRYJUMPFORM COM{281}

RETURN 1

@FLAG_COM286, ARG

@SELECT_WARNING_COM286
#DIM DYNAMIC MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT

CALL PRINT_STRL, "_赤_注意！在選擇了這個指令之後的數輪將無法選擇其他指令。"
PRINTL
PRINTFORML 確定要實行嗎？
CALL PRINT_SELECT, "是/否", "打開是否顯示這個警告的設置"
IF RESULT == 0
ELSEIF RESULT == 1
	TFLAG:指令中止 = 1
	RETURN 0
ELSE
	CALL SETCONFIG, "委身于對方的警告"
	CLEARLINE LINECOUNT - MEMO_LINECOUNT
	RESTART
ENDIF

RETURN 1


code:
@COM290
;部員間Ｈ報告

PRINTL 部員間Ｈ報告

CALL TRAIN_MESSAGE_COM290

SIF REFUSE_CHECK()
	RETURN 0

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

@TRAIN_MESSAGE_COM290
#DIM ACTOR

ACTOR = TO_NUMBER(CFLAG:お相手)

TRYCALLFORM KOJO_MESSAGE_COM_K{NO:ACTOR}
;Ｈのカウントについては消去する
CFLAG:交流Ｈ回数 = 0
CFLAG:交流舐陰 = 0
CFLAG:交流舐陰莖 = 0
CFLAG:交流口交 = 0
CFLAG:交流Ｖ性交 = 0
CFLAG:交流Ａ性交 = 0
CFLAG:交流Ａ挿入 = 0

SIF COND("初Ｖ性交") == CFLAG:お相手
	CALL SET_CEVENT, "初語り：Ｖ"
SIF COND("初Ａ性交") == CFLAG:お相手
	CALL SET_CEVENT, "初語り：Ａ"
SIF COND("初Ｖ挿入") == CFLAG:お相手
	CALL SET_CEVENT, "初語り：Ｐ"


code:
@COM2
;肛門愛撫
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM2, ARG
IF PREVCOM == 5
	CALL FLAG_COM5, 30
ELSEIF PREVCOM == 6
	CALL FLAG_COM6, 30
ENDIF

IF TEQUIP:肛用振動棒
	CALL FLAG_COM33, 130
ELSEIF CHECK("Ａ指挿入")
	CALL FLAG_INSERTION, "Ａ指挿入", ARG, 100
ENDIF

@SOURCE_COM2, ARG
IF PREVCOM == 5
	CALL SOURCE_COM5, 30
ELSEIF PREVCOM == 6
	CALL SOURCE_COM6, 30
ENDIF
IF TEQUIP:肛用振動棒
	CALL SOURCE_INSERTION, "Ａ振動棒", ARG, 130
ELSEIF CHECK("Ａ指挿入")
	CALL SOURCE_INSERTION, "Ａ指挿入", ARG, 100
ELSE
	CALL VARSET_COMF

	CALL SOURCE_DOWNBASE_HP, 2

	SOURCE:0:情愛 = ABL:Ａ感覚 * 100
	SOURCE:0:露出 = 400
	SOURCE:0:逸脱 = 1000

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

	;EXP:Ａ経験に応じたＡ快感、苦痛、恐怖、逸脱(反感)補正
	SELECTCASE EXP:Ａ経験
	CASE IS >= 300
		TIMES SOURCE:0:Ａ快楽, 1.60
		TIMES SOURCE:0:疼痛, 0.50
		TIMES SOURCE:0:恐惧, 0.20
		TIMES SOURCE:0:逸脱, 0.20
	CASE IS >= 150
		TIMES SOURCE:0:Ａ快楽, 1.40
		TIMES SOURCE:0:疼痛, 0.60
		TIMES SOURCE:0:恐惧, 0.40
		TIMES SOURCE:0:逸脱, 0.60
	CASE IS >= 50
		TIMES SOURCE:0:Ａ快楽, 1.20
		TIMES SOURCE:0:疼痛, 0.80
		TIMES SOURCE:0:恐惧, 0.70
	CASE IS >= 20
		TIMES SOURCE:0:逸脱, 1.20
	CASE IS >= 5
		TIMES SOURCE:0:Ａ快楽, 0.50
		TIMES SOURCE:0:疼痛, 1.50
		TIMES SOURCE:0:恐惧, 1.50
		TIMES SOURCE:0:逸脱, 1.50
	CASEELSE
		TIMES SOURCE:0:Ａ快楽, 0.10
		TIMES SOURCE:0:疼痛, 2.00
		TIMES SOURCE:0:恐惧, 2.00
		TIMES SOURCE:0:逸脱, 2.00
	ENDSELECT

	;PALAM:欲情をみる
	SELECTCASE PALAM:欲情
	CASE IS < PALAMLV:1
		TIMES SOURCE:0:屈従, 0.30
	CASE IS < PALAMLV:2
		TIMES SOURCE:0:屈従, 0.50
	CASE IS < PALAMLV:3
		TIMES SOURCE:0:屈従, 0.80
	CASE IS < PALAMLV:4
	CASE IS >= PALAMLV:4
		TIMES SOURCE:0:屈従, 1.20
	ENDSELECT

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

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

@TRAIN_MESSAGE_COM2
IF PREVCOM == SELECTCOM && COND("前Ｔ調教者") == PLAYER
	IF TEQUIP:肛用振動棒 && CHECK_COM("結腸責め")
		PRINTFORMW %CALLNAME:PLAYER%將%CALLNAME:TARGET%結腸的最深處用%NAMES("Ａ振動棒", TARGET)%周到的侍奉著、直到徹底被快感溶化為止……
	ELSE
		PRINTFORMW %CALLNAME:PLAYER%將%CALLNAME:TARGET%的肛門用手指周到的侍奉著、直到徹底被快感溶化為止……
	ENDIF
;挿入中
ELSEIF INSERT("Ｖ挿入") || INSERT("尿道挿入")
	IF INSERT("騎乗位")
		PRINTFORM %CALLNAME:PLAYER%在%CALLNAME:TARGET%腰を振らせ的同时、
	ELSE
		PRINTFORM %CALLNAME:PLAYER%将腰を突き入れ的同时、%CALLNAME:TARGET%の
	ENDIF
	IF TEQUIP:肛用振動棒
		IF CHECK_COM("結腸責め")
			PRINTFORMW 尻穴中伸出的振動棒%TEXTR("激烈地抽插著、將結腸的最深處也同樣摩擦著/執拗地玩弄著、將大腸的深處一併刺激著/緊緊抓住、並以能在小腹表面產生凸起的程度不斷地翻攪著")%……
		ELSE
			PRINTFORMW 尻穴中伸出的振動棒%TEXTR("激烈地抽插著/執拗地玩弄著/緊緊抓住並不斷地翻攪著")%……
		ENDIF
	ELSEIF ABL:Ａ拡張 >= 2 && CHECK("Ａ指挿入") && INSERT("後背位")
		PRINTFORMW 将被菊門夹住的中指与无名指全部插入一下下按摩着内部的黏膜…
	ELSE
		PRINTFORMW 肛門用手指輕輕地戲弄著……
	ENDIF
;Ａ挿入中
ELSEIF INSERT("Ａ挿入")
	PRINTFORM %CALLNAME:PLAYER%呢？
	IF TALENT:PLAYER:扶她 || TALENT:PLAYER:男性
		PRINT 灼熱堅挺的肉棒
	ELSE
		PRINT 無機質的冰冷假陰莖
	ENDIF
	PRINTFORMW 在腸道中不斷衝擊著的時候、也將%CALLNAME:TARGET%肛門週邊的柔肉輕輕地揉捏著……
;それ以外
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
	IF TEQUIP:接吻
		PRINTFORM 將%CALLNAME:TARGET%%TEXTS("接吻継続助詞付き")%、
		CALL SETFLAG, "追加接吻フラグ", TARGET
	ELSEIF PREVCOM == TNUM("胸愛撫")
		PRINTFORM 輕柔的愛撫著%CALLNAME:TARGET%的胸部的同時、
	ELSEIF PREVCOM == TNUM("扒開菊穴")
		PRINTFORM 在眼前展示着的%CALLNAME:TARGET%的
	ELSE
		;六九式
		IF TEQUIP:六九式
			PRINTFORM %TEXTS("６９")%
		;PLAYを受け入れ可能かつ好色
		ELSEIF CHECK("Ａ指挿入") && TALENT:好色 && RAND:2 == 0
			PRINT 將正妖艷的微笑著的
		;縄
		ELSEIF TEQUIP:拘束
			PRINT 將被拘束著動彈不得的
		ELSEIF CHECK("Ａ指挿入") && COND("脚の使用")
			;害羞で快Ａ or欲情が低いなら追加したり
			SIF TALENT:害羞 && (PALAM:快Ａ <= PALAMLV:3 || PALAM:欲情 <= PALAMLV:4)
				PRINT 臉頰染上羞恥的紅暈、
			PRINT 主動將雙腿張開的
		;Ａ感覚1以下or叛逆or害羞
		ELSEIF (ABL:Ａ感覚 <= 1 || TALENT:叛逆 || TALENT:害羞) && RAND:3 >= 1
			;害羞で快Ａ or欲情が低いなら追加したり
			SIF TALENT:害羞 && (PALAM:快Ａ <= PALAMLV:3 || PALAM:欲情 <= PALAMLV:4)
				PRINT 因羞恥而不斷顫抖著的
		ENDIF
		PRINTFORM %CALLNAME:TARGET%的
		;拉米亚にお尻は無い方針で
		IF COND("脚が無い")
			SIF CHECK_CLO("Ａ露出") == 0
				CALL SETFLAG, "ボトムを露出：テ接吻ト没有", TARGET
		;肛門が露出していないで、胖次をずらしていないなら自動的にずらす
		ELSE
			SIF !CHECK_CLO("Ａ露出") && CHECK_CLO("Ａ露出可")
				CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET

			;小只的ら
			IF TALENT:娇小
				PRINT 小小的
			;Ａ性向なら
			ELSEIF TALENT:Ａ性向 && RAND:3 >= 1
				PRINT 柔軟的
			;淫乱なら
			ELSEIF TALENT:淫乱 && RAND:3 >= 1
				PRINT 富含彈性的
			;それ以外
			ELSEIF RAND:2 == 0
				PRINT 形状好
			ENDIF
			;乱数分岐
			IF RAND:2 == 0
				PRINT 將柔軟的尻肉
			ELSE
				PRINT 臀瓣
			ENDIF
			;Ａ感覚1以下or叛逆or害羞
			SIF (ABL:Ａ感覚 <= 1 || TALENT:叛逆 || TALENT:害羞)&& TALENT:恋慕 == 0 && RAND:3 >= 1
				PRINT 強硬地
			;恋慕orＡ指挿入を楽しめる状態かつ信頼3以上で縛ってないと相手にお尻を広げさせます
			IF CHECK("Ａ指挿入") + TALENT:恋慕 && ABL:信頼 >= 3 && TEQUIP:拘束 == 0 && RAND:2 == 0
				PRINT 強行展開、
			ELSE
				PRINT 打開、
			ENDIF
		ENDIF
	ENDIF
	;肛用振動棒or布ルor肛塞or充气か、直前に肛門系調教かで分岐。
	IF COND("肛門栓")
		PRINT 肛門
		;乱数分岐
		IF TEQUIP:肛塞
			PRINT 借助道具塞住、將
		;道端の菠萝包加筆分
		ELSEIF ABL:Ａ拡張 - SIZE("Ａ振動棒", TARGET) >= 2
			PRINT 向落ちないようにしっかりと咥えられた
		;ここまで加筆分
		ELSEIF RAND:3 == 0
			PRINT 充分地打開著、將
		ELSEIF RAND:2 == 0
			PRINT 慢慢拉出來、將
		ELSE
			PRINT 的末端含住、將
		ENDIF
		;Ａ潤3以上で追加
		SIF PALAM:Ａ潤 >= PALAMLV:3 && TEQUIP:肛用振動棒
			PRINT 沾滿粘液的
		IF COND("肛門拉珠")
			PRINT 將肛門拉珠、
		ELSEIF TEQUIP:肛用振動棒
			PRINT 肛用振動棒、
		ELSEIF TEQUIP:肛塞
			PRINT 肛塞、
		ENDIF
		;乱数分岐
		IF TEQUIP:肛塞
			PRINT 轉動著
		ELSEIF RAND:3 == 0
			PRINT 滋啵滋啵地
		ELSEIF RAND:2 == 0
			PRINT 温柔地
		ELSE
			PRINT 溫柔緩慢地
		ENDIF
		IF CHECK_COM("結腸責め")
			PRINTFORMW 前後抽插著。

			IF EXP:結腸経験 >= 5 && RAND:3 == 0
				PRINTFORMW 反復深入體內的插入行為讓%CALLNAME:TARGET%將自己的Ｓ狀結腸的運動規律充分地掌握了、在異物深入體內的時候、巧妙地借助腸道的蠕動將其吞入更深的深處……
			ELSEIF SIZE("Ａ振動棒") >= 2 && RAND:2
				PRINTFORMW 深入腹腔並向外摩擦著不斷抽插的貫穿了結腸的\@ SIZE("Ａ振動棒") >= 3 ? 振動棒那兇惡的形態 # 粗大振動棒的形狀 \@、在%CALLNAME:TARGET%小腹的左側\@ ABL:Ａ拡張 >= 6 ? 一直到肚臍的地方都 # 附近 \@明顯的凸顯出來了……
			ELSE
				PRINTFORM 被手腕那麼長的異物不斷地抽插著、
				IF TALENT:結腸性感
					PRINTFORM 難以忍受隨之而來的快感、%CALLNAME:TARGET%在%TEXTR(@"用慢慢的深呼吸調節絮亂的呼吸節奏\/向%CALLNAME:PLAYER%伸出的手挺直腰肢\/半張著嘴吐出灼熱而凌亂的氣息")%的同時、
					PRINTFORMW 將%TEXTR("結腸/身體的深處/被充分開發的淫靡肉窟")%%TEXTR("集中意識感受著/被侵犯所產生的快感神志恍惚的享受著/將被虐的幸福快樂地享受著")%……
				ELSE
					PRINTFORMW 讓依然不夠適應的%CALLNAME:TARGET%、因著這種異常的行為所帶來的未知感覺而%TEXTR("誇張地翻起白眼、嘶啞著說不出話來/陷入恐慌與迷惑之中/無法抑制地僵直身體")%……
				ENDIF
			ENDIF
		ELSEIF COND("肛門拉珠") || TEQUIP:肛塞
			PRINTFORMW 玩弄著……
		ELSE
			PRINTFORMW 抽插著……
		ENDIF
	ELSE
		PRINTFORM 將%TEXTS("肛門")%尻穴
		;肛門系調教やＡ性向やＡ経験150以上にあわせて乱数分岐
		IF (PREVCOM == 33 || (PREVCOM >= 60 && PREVCOM <= 69) || (PREVCOM >= 136 && PREVCOM <= 138) || PREVCOM == 142 || PREVCOM == 143 || PREVCOM == 202 || EXP:Ａ経験 >= 150) && RAND:3
			PRINT 用數根手指插入、
		ELSEIF (PREVCOM == 33 || (PREVCOM >= 60 && PREVCOM <= 69) || (PREVCOM >= 136 && PREVCOM <= 138) || PREVCOM == 142 || PREVCOM == 143 || PREVCOM == 202 || EXP:Ａ経験 >= 150) && RAND:2
			PRINT 用手指直達指根地深深插入、
		ELSEIF CHECK("Ａ指挿入")
			PRINTFORM 用手指插入、
		ELSE
			PRINTFORM 用手指描繪著邊緣、
		ENDIF
		IF CUP:屈服 < 500 && (PREVCOM == 33 || (PREVCOM >= 60 && PREVCOM <= 69) || (PREVCOM >= 136 && PREVCOM <= 138) || PREVCOM == 142 || PREVCOM == 143 || PREVCOM == 202 || EXP:Ａ経験 >= 150) && RAND:3
			PRINT 滋啵滋啵地
		ELSEIF RAND:3 == 0 && CHECK("Ａ指挿入")
			PRINT 激烈地
		ELSEIF RAND:2 == 0
			PRINT 温柔地
		ELSE
			PRINT 不斷沿著尻穴的邊緣
		ENDIF
		;乱数分岐
		IF RAND:3 == 0
			PRINTFORMW 玩弄著……
		ELSEIF RAND:2 && CHECK("Ａ指挿入")
			PRINTFORMW 抽插著……
		ELSE
			PRINTFORMW 刺激著……
		ENDIF
	ENDIF
ENDIF


code:
@COM30
;跳蛋
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM30, ARG

@SOURCE_COM30, ARG
CALL VARSET_COMF

CALL SOURCE_DOWNBASE_HP, 30

SOURCE:0:露出 = 120
SOURCE:0:逸脱 = 70

;ABL:Ｃ感覚をみる
SOURCE:0:Ｃ快楽 = MULTIPLY(CALCF("Ｃ刺激", 0), 90 + ITEM:跳蛋*10)

;阴部が露出していないと快Ｃ減
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

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

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

@TRAIN_MESSAGE_COM30
PRINTFORM %CALLNAME:PLAYER%将
;挿入中
IF INSERT("合体中")
	PRINTFORM %TEXTS("合体中", PLAYER)%
ELSEIF TEQUIP:電話中
	PRINTFORM %TEXTS("電話中の")%
ELSEIF !CHECK_CLO("Ｖ露出")
	PRINTFORM 將%CLO("股間")%挪開、
;ELSE
;	SIF ABL:Ｃ感覚 >= 3 && (MARK:屈服刻印 == 3 || TALENT:恋慕)
;		PRINT 脚を広げて待っている
ENDIF
PRINTFORM %CALLNAME:TARGET%的
IF PENIS(TARGET)
	IF TALENT:淫核 && PALAM:欲情 > 8000
		PRINT 腫脹肥大的
	ELSEIF PALAM:快Ｃ > 3000
		PRINT 興奮勃起的
	ENDIF
	PRINT 阴茎
ELSE
	IF CALCF("Ｃ発情") >= 3 && RAND:2
		PRINT 腫脹肥大的
	ELSEIF CHECK_CLO("Ｖ露出") && TALENT:陰蒂環 && RAND:2
		PRINT 被鐵環装飾的
	ELSEIF CALCF("Ｃ発情") >= 2 && RAND:2
		PRINT 淫穢的立起的
	ELSEIF CHECK_CLO("Ｖ露出") && COND("陰毛") >= 6 && RAND:2
		PRINT 被陰毛遮掩的
	ELSEIF CALCF("Ｃ発情") >= 2 && RAND:2
		PRINT 漸漸膨脹的
	ELSEIF TALENT:娇小
		PRINT 小小的
	ENDIF
	PRINT 阴蒂
ENDIF
IF PREVCOM == SELECTCOM
	PRINTW 用細微的震動著的跳蛋執拗地持續玩弄著……
ELSE
	PRINTW 用不斷震動的跳蛋緊緊貼住……
ENDIF


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

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

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

VARSET LOCAL, 1
;逆振動棒
IF ARG == PLAYER
	PRINTFORML 要使用哪種大小的振動棒來\@ TALENT:ARG:処女 ? 喪失処女 # 玩弄膣穴 \@呢？

	;大号的振動棒
	SIF  ABL:ARG:Ｖ拡張 == 0 || (ABL:ARG:Ｖ拡張 <= 1 && ABL:ARG:受虐属性 < 3)
		LOCAL:1 = 0
	;極太振動棒
	SIF ABL:ARG:Ｖ拡張 <= 1 || (ABL:ARG:Ｖ拡張 <= 2 && ABL:ARG:受虐属性 < 3)
		LOCAL:2 = 0
	;腕粗振動棒
	SIF ABL:ARG:Ｖ拡張 <= 2 || (ABL:ARG:Ｖ拡張 <= 3 && ABL:ARG:受虐属性 < 3)
		LOCAL:3 = 0
	;馬型振動棒
	SIF ABL:ARG:Ｖ拡張 <= 3 || (ABL:ARG:Ｖ拡張 <= 4 && ABL:ARG:受虐属性 < 3)
		LOCAL:4 = 0
	LOCAL:10 = 0
ELSE
	PRINTFORML 要使用哪種大小的振動棒來\@ TALENT:ARG:処女 ? 奪取処女 # 玩弄膣穴 \@呢？

	;どの振動棒を使えるかを判定（双方の施虐狂受虐狂具合で変化）
	FOR LCOUNT, 1, 5
		;振動棒のサイズを代入
		SIZE_DILDO = LCOUNT + 1

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

		LOCAL:LCOUNT = 0
	NEXT
ENDIF

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

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

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

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

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

$INPUT_LOOP
INPUT

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

@TRAIN_MESSAGE_COM31
;振動棒の着脱
IF TEQUIP:振動棒
	;PRINTFORMW %CALLNAME:TARGET%\@ TEQUIP:推倒 ? は # から \@%NAMES("振動棒", TARGET)%を引き抜いた。

	;道端の菠萝包加筆分
	PRINTFORM %TEXTS("電話中の")%%CALLNAME:TARGET%中
	SIF SIZE("振動棒", TARGET) >= 4
		PRINTFORM 巨大的
	PRINTFORM 振動棒拔出后、
	IF ABL:Ｖ拡張 - SIZE("振動棒", TARGET) >= 2
		PRINTFORM 好像在寻找缺失的东西一样反复收缩的
	ELSE
		SELECTCASE SIZE("振動棒", TARGET)
		CASE IS >= 4
			PRINTFORM 洞口保持张開的
		CASE IS >= 2
			PRINTFORM 尚未閉合的
		ENDSELECT
	ENDIF
	PRINTFORM 阴道里
	IF CHECK_STAIN(STAIN:Ｖ, "破瓜之血") && EXP_GAIN("膣内精液経験")
		PRINTFORM 混合着破瓜之血和精液的
	ELSEIF CHECK_STAIN(STAIN:Ｖ, "破瓜之血")
		PRINTFORM 混合着破瓜之血的
	ELSEIF EXP_GAIN("膣内精液経験")
		PRINTFORM 混合着精液的
	ENDIF
	PRINTFORM 爱液
	IF PALAM:Ｖ潤 >= PALAMLV:4 && TEQUIP:潤滑液 == 0
		PRINTFORMW 像水流一样涌了出来…
	ELSE
		PRINTFORMW 顺着%TEXTR("陰唇/会陰部/大腿内侧")%畫出了淫靡的線條…
	ENDIF
	;ここまで加筆分
	TFLAG:地の文分岐 = TEQUIP:振動棒
	TEQUIP:振動棒 = 0
	CALL CALC, "調教ソースの計算"
	RETURN 0
ENDIF

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

SIF REFUSE_CHECK()
	RETURN 0

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

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

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

;[恋慕かV感覚3LV]、[淫乱]、[拉米亚]、[縄]、[PLAYERが施虐狂]等で変化します
PRINTFORM %CALLNAME:PLAYER%将
;六九式
IF TEQUIP:六九式
	PRINTFORM %TEXTS("６９")%
ELSE
	;縛られてますか？
	IF TEQUIP:拘束
		PRINT 在被拘束具束縛成羞恥的姿勢的同時、
	ELSEIF PREVCOM == 13
		SIF TEQUIP:電話中
			PRINTFORM %TEXTR(@"继続和%TEXTS("彼氏")%的電話/保持着和%TEXTS("彼氏")%在電話中会話/保持着和%TEXTS("彼氏")%的電話")%%TEXTR("＿/单手/单手灵巧地")%
		IF RAND:3 == 0
			PRINTFORM 將%TEXTS("阴部：視覚")%を開いて見せつけながら
		ELSEIF RAND:2 == 0
			PRINTFORM 將%TEXTS("阴部：視覚")%を二本の指で押し広げて見せ付けながら
		ELSE
			PRINTFORM 將%TEXTS("阴部：視覚")%を両手で広げてみせながら
		ENDIF
		;前後の文のつながりがおかしいので手直ししておく
		;PRINT 在用手指將陰部推開展示著的同時、
	;恋慕かV感覚3LV以上で平気そうな振動棒だと積極的
	ELSEIF (TALENT:恋慕 || ABL:Ｖ感覚 >= 3) && CHECK("振動棒")
		SIF TEQUIP:電話中
			PRINTFORM %TEXTR(@"继続和%TEXTS("彼氏")%的電話的同时/和%TEXTS("彼氏")%在電話中会話的同时/保持着和%TEXTS("彼氏")%的電話")%、
		IF RAND:2
			;害羞だと
			IF TALENT:害羞 && RAND:3 == 0
				PRINT 臉頰染上慾望與羞澀的紅暈、
			ELSE
				IF (TALENT:高慢 || TALENT:淫乱 || TALENT:強気) && RAND:3 == 0
					PRINT 在大膽的
				ELSEIF TALENT:害羞 && RAND:3 == 0
					PRINT 臉頰染上慾望與羞澀的紅暈、
				ELSEIF TALENT:小悪魔 && RAND:3 == 0
					PRINT 無聲的視奸著的同時、
				ELSEIF TALENT:娇小 && RAND:3 == 0
					PRINT 在可愛的
				;淫乱or欲情4LV以上
				ELSEIF (TALENT:淫乱 || PALAM:欲情 >= PALAMLV:4) && RAND:2 == 0
					PRINT 在妖艶的
				ELSEIF RAND:2 == 0
					PRINT 滿臉幸福快樂的
				ELSE
					PRINT 好像很開心
				ENDIF
				PRINT 微笑着一邊
			ENDIF
		ELSE
			IF COND("脚が無い") == 0 && RAND:4 == 0
				SIF TALENT:淫乱
					PRINT 大膽地
				PRINT 張開著雙腿的同時、
			ELSEIF RAND:3 == 0
				SIF TALENT:娇小
					PRINT 小小的
				PRINT 陰唇用指尖
				SIF TALENT:淫乱
					PRINT 用力地
				PRINT 展開的同時、
			ELSEIF RAND:2 == 0
				SIF TALENT:淫乱
					PRINT 格外突出地
				PRINT 將腰肢挺起的同時、
			ELSE
				PRINT 在為了更加的凸顯出陰部而半懸著腰肢的同時、
			ENDIF
		ENDIF
	ENDIF
	IF (TALENT:恋慕 || ABL:Ｖ感覚 >= 3) && CHECK("振動棒") && TEQUIP:拘束 == 0
		IF RAND:2 == 0
			PRINT 輕聲發起邀請的
		ELSE
			PRINT 死乞白賴的懇求著的
		ENDIF
	ENDIF
ENDIF
PRINTFORM %CALLNAME:TARGET%的
;穴開きでない胖次を是ていて、ずらされていないなら、必ずずらす
IF !CHECK_CLO("Ｖ露出")
	CALL SETFLAG, "ボトムを露出：テ接吻ト有些", TARGET
	PRINT 、
ENDIF
IF TALENT:娇小 && RAND:2 == 0
	PRINT 孩子一樣幼嫩的
ELSEIF TALENT:淫乱 && ABL:Ｖ感覚 >= 4 && RAND:3 == 0
	PRINT 敏感而淫亂的
ELSEIF TALENT:淫乱 && ABL:Ｖ感覚 >= 4 && RAND:2 == 0
	PRINT 不斷散發出淫靡氣味
;Ｖ潤Lv2以上
ELSEIF PALAM:Ｖ潤 >= PALAMLV:5
	PRINT 被愛液徹底浸濕的
ELSEIF PALAM:Ｖ潤 >= PALAMLV:2
	PRINT 被愛液浸濕的
ELSE
	PRINT 依然十分干燥的
ENDIF

PRINTFORM 陰部\@ COND("ボトムを露出させた") ? # 、 \@用

IF COND("双頭振動棒")
	PRINT 兩端都很容易插入的雙頭
ELSE
	SELECTCASE SIZE("振動棒", TARGET)
	CASE 5
		PRINT 幾乎不可能進入的馬型
	CASE 4
		PRINT 成年男性手腕粗細的
	CASE 3
		PRINT 兇惡的
	CASE 2
		PRINT 粗大的
	ENDSELECT
ENDIF
PRINT 振動棒
;拡張不足
IF ABL:Ｖ拡張 < SIZE("振動棒", TARGET)
	PRINTFORMW %TEXTR("用力地/強硬的/毫不留情地/在不斷開闢膣道的同時/在將肉體強硬推開的感觸仔細品味著的同時/將所有的抵抗毫不在意地無視的同時")%塞滿了。
ELSE
	IF ABL:PLAYER:施虐属性 >= 3 && RAND:2 == 0
		PRINT 用力地
	ELSEIF (TALENT:恋慕 || ABL:Ｖ感覚 >= 3 || ABL:PLAYER:施虐属性 >= 3) && RAND:3 == 0
		PRINT 深深地
	ELSEIF TALENT:恋慕 && RAND:3 == 0
		PRINT 温柔地
	ELSEIF (TALENT:恋慕 || ABL:Ｖ感覚 >= 3 || ABL:PLAYER:施虐属性 >= 3) && RAND:2 == 0
		PRINT 一口気
	ELSE
		PRINT 溫柔緩慢地
	ENDIF
	IF ABL:PLAYER:施虐属性 >= 3 && RAND:2 == 0
		PRINTW 衝入其中。
	ELSEIF (TALENT:恋慕 || ABL:Ｖ感覚 >= 3 || ABL:PLAYER:施虐属性 >= 3) && RAND:3 == 0
		PRINTW 壓入其中。
	ELSEIF (TALENT:恋慕 || ABL:Ｖ感覚 >= 3 || ABL:PLAYER:施虐属性 >= 3) && RAND:2 == 0
		PRINTW 刺入其中。
	ELSE
		PRINTW 挿入其中。
	ENDIF
ENDIF
;拡張十分
IF CHECK("振動棒") && RAND:3
	PRINTFORM %CALLNAME:TARGET%的
	IF TALENT:娇小 && EXP:Ｖ経験 < 100 && ABL:Ｖ拡張 <= 1
		PRINT 幼嫩的
	ELSEIF TALENT:娇小 && ABL:Ｖ拡張 >= 2
		SIF ABL:Ｖ拡張 > SIZE("振動棒", TARGET)
			PRINT 完全
		PRINT 被充分擴張的
	ELSEIF EXP:Ｖ経験 >= 300 && EXP:Ｖ性交経験 >= 100 && ABL:Ｖ拡張 >= MAX(SIZE("振動棒", TARGET), 2) && RAND:3 == 0
		PRINT 被充分使用過的
	ELSEIF EXP:Ｖ経験 >= 100 && RAND:3 == 0
		PRINT 経験豊富的
	ELSEIF ABL:Ｖ拡張 >= SIZE("振動棒", TARGET) && RAND:2 == 0
		PRINT 十分柔軟的
	ENDIF
	IF RAND:2 && AGE(TARGET) >= 3
		PRINT 肉穴
	ELSE
		PRINT 膣穴
	ENDIF
	IF EXP:Ｖ経験 >= 100 && ABL:Ｖ拡張 > SIZE("振動棒", TARGET) && RAND:2
		PRINT 貪婪地緊緊糾纏住插入體內的淫具的同時、將
	ELSEIF PALAM:Ｖ潤 >= PALAMLV:2
		PRINT 顫抖著噴灑出愛液的同時、將
	ELSE
		PRINT 將週邊的媚肉一併捲入其中的同時、將
	ENDIF

	PRINTFORM %NAMES("振動棒", TARGET)%

	IF ABL:Ｖ拡張 > SIZE("振動棒", TARGET)
		IF RAND:2
			PRINT 毫無抵抗地
		ELSE
			PRINT 就像是在主動吮吸一樣地
		ENDIF
		IF SIZE("振動棒", TARGET) >= 2 && (CHOSECOM(SELECTCOM) == 0 || RAND:2)
			LOCAL = (ABL:Ｖ拡張*4/5)*5
			PRINTFORM {MIN(LOCAL - 5, 20)}cm…{LOCAL}cm…と
		ELSEIF RAND:2
			PRINTFORM 直到根部
		ENDIF
	ELSE
		IF ABL:Ｖ拡張 >= 3 && SIZE("振動棒", TARGET) >= 2 && (CHOSECOM(SELECTCOM) == 0 || RAND:2)
			LOCAL = (ABL:Ｖ拡張*4/5)*5
			PRINTFORM {MIN(LOCAL - 5, 20)}cm…{LOCAL}cm…と
		ELSEIF EXP:Ｖ経験 >= 100 || EXP:Ｖ性交経験 >= 20
			PRINTFORM %TEXTR("逆著不斷湧出的愛液整個/輕易抵達最深處的")%
		ELSE
			PRINT 磕磕碰碰地
		ENDIF
	ENDIF
	PRINTW 吞入體內……
ELSEIF CHECK("振動棒") == 0 && SIZE("振動棒", TARGET) >= 2
	PRINTFORM 過於兇惡的振動棒將%CALLNAME:TARGET%的
	SIF SIZE("振動棒", TARGET) >= 3 - TALENT:娇小
		PRINT 恥骨碾壓著發出嘎吱的響聲、將
	SIF TALENT:娇小 && EXP:Ｖ経験 < 100 && ABL:Ｖ拡張 <= 1
		PRINT 幼嫩的
	SELECTCASE SIZE("振動棒", TARGET) - ABL:Ｖ拡張
	CASE IS >= 3
		PRINTW 膣道殘忍地撕裂著……
	CASE 2
		PRINTW 膣道毫不留情地擴張、直到變成幾乎快要壞掉的模樣才肯罷休……
	CASEELSE
		PRINTW 膣道撐開到無法繼續擴張為止……
	ENDSELECT
ELSEIF CHECK("振動棒")
	PRINTFORMW 在膣道中激烈震盪著的振動棒所帶來的快感、讓%CALLNAME:TARGET%無法抑制的漏出了格外甜美的嬌柔呻吟……
	;道端の菠萝包加筆分
	SIF ABL:Ｖ拡張 - SIZE("振動棒", TARGET) >= 2
		PRINTFORMW 但是这种振動棒对%CALLNAME:TARGET%来说太小了、从那声音中能听出一丝遗憾的神色…
ELSE
	PRINTFORMW 膣道中傳來的還不習慣的震動感以及刺激、讓%CALLNAME:TARGET%露出了苦悶的表情、顫抖著身體……
ENDIF

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

@SOURCE_COM31, ARG
IF TEQUIP:振動棒
	CALL SOURCE_INSERTION, "振動棒", ARG, 100
ELSE
	CALL SOURCE_INSERTION, "振動棒", ARG, 30
ENDIF

@EQUIP_COM31
;振動棒挿入中
SIF TEQUIP:振動棒 == 0
	RETURN 0
SIF SELECTCOM == 31 || SELECTCOM == 201
	RETURN 0

CALL SOURCE_COM31, 30
CALL FLAG_COM31, 30

RETURN 1

@EQUIP_COM31_2
#DIMS PLAY_ONANIE

;振動棒挿入中
SIF TEQUIP:振動棒 == 0
	RETURN 0
SIF SELECTCOM == 31 || SELECTCOM == 201
	RETURN 0
LOCALS =
IF COND("双頭振動棒")
	LOCALS = %LOCALS%双頭
ELSE
	SELECTCASE SIZE("振動棒", TARGET)
	CASE 6
		LOCALS = %LOCALS%規格外
	CASE 5
		LOCALS = %LOCALS%馬型
	CASE 4
		LOCALS = %LOCALS%腕並
	CASE 3
		LOCALS = %LOCALS%極太
	ENDSELECT
ENDIF
LOCALS = %LOCALS%振動棒

PRINTFORML ＜%LOCALS%挿入中＞

PLAY_ONANIE = %CHECK_ONANIE(SELECTCOM)%

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

EXP:Ｖ経験 += LOCAL

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

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

RETURN 1