code:
@KISEKAE
#DIM LCOUNT
#DIM MEMO_REDRAW
;最初に裸体なら1
#DIM IS_HADAKA
;淫紋が見えるよう变成了かを格子する
#DIM IS_VISIBLE_INMON
;換装前の衣装の記録
#DIMS MEMO_CLO, 50

MEMO_REDRAW = CURRENTREDRAW()
REDRAW 0
;着ていた服を記憶
FOR LCOUNT, 40, 50
	MEMO_CLO:LCOUNT = %CSTR:LCOUNT%
NEXT
IS_HADAKA = CHECK_CLO("裸体")

$START_KISEKAE

;淫紋確認の地の文を出すかの格子に使う
IS_VISIBLE_INMON = CHECK_CLO("淫紋露出")

DRAWLINE

PRINTFORML 要更換成哪件呢？
CALL PRINT_MAIDFACE, TARGET
PRINTFORM 現在:
CALL PRINT_DRESSL, TARGET, "拡大表示"
PRINTL
PRINTFORML  [ 0] 装扮
PRINTFORML  [ 1] 服、裙など
IF COND("脚の使用")
	PRINTFORML  [ 2] 贴身制服、連体泳装、布鲁马、休闲褲、连褲襪など
ELSE
	CALL PRINT_STR, "灰色_ [×] 贴身制服、連体泳装、布鲁马、休闲褲、连褲襪など_L_"
ENDIF
PRINTFORML  [ 3] 内衣、分離式泳装等
IF COND("脚の使用")
	PRINTFORML  [ 4] 襪子、グローブ、靴など
ELSE
	PRINTFORML  [ 4] グローブなど
ENDIF
PRINTFORML  [ 5] 飾品
IF CSTR:今年の泳装 != ""
	PRINTFORML  [ 9] 换上今年的泳装（%SWIM(CSTR:今年の泳装)%）
ELSE
	CALL PRINT_STRL, "暗灰色_ [×] 换上今年的泳装"
ENDIF
PRINTL
PRINTFORML  [10] 現在的衣装或性行為中的默認服装
IF CSTR:Ｈ衣装 != ""
	PRINTFORM  委託中：
	CALL PRINT_MEMO_DRESS, "Ｈ衣装"
	PRINTL
ENDIF
IF CSTR:Ｈ衣装 != ""
	PRINTFORML  [11] エッチの默认ルト衣装を無くしてもらう
ELSE
	CALL PRINT_STRL, "灰色_ [×] エッチの默认ルト衣装を無くしてもらう"
ENDIF
PRINTL
IF EQUIP:服
	PRINTFORML  [90] 脱下%SHIRT(TARGET)%、
ELSE
	CALL PRINT_STRL, "暗灰色_ [×] 脱下衣服"
ENDIF
SIF CHECK_CLO("裸体") == 0
	PRINTFORML  [91] 襪子、靴、手套、飾品等留下、其它服装脫下
SIF CHECK_CLO("全裸") == 0
	PRINTFORML  [92] 全部脫下
PRINTFORML  [99] 打開換装相關的Config
PRINTFORML
PRINTFORML [100] 就這樣吧、ＯＫ！

$INPUT_LOOP
INPUT

SELECTCASE RESULT
CASE 100
	SIF CFLAG:電源BOX && CHECK_CLO("電源BOX保持可能") == 0
		CFLAG:電源BOX = 0
	REDRAW MEMO_REDRAW
	;服を着替えたなら、それの感想
	IF EQUIP:服 && CSTR:服 != MEMO_CLO:42
		TFLAG:地の文分岐 = 1
	;贴身制服を着替えたなら、それの感想
	ELSEIF EQUIP:贴身制服 && CSTR:贴身制服 != MEMO_CLO:44
		TFLAG:地の文分岐 = 1
	;泳装に着替えたなら、その感想
	ELSEIF CHECK_CLO("泳装姿") && CSTR:胖次 != MEMO_CLO:40
		TFLAG:地の文分岐 = 1
	;裸体变成了なら、それの感想
	ELSEIF CHECK_CLO("裸体") && IS_HADAKA == 0
		TFLAG:地の文分岐 = 2
	;胖次を着替えたor脱いだなら、それの感想
	ELSEIF CSTR:胖次 != MEMO_CLO:40
		TFLAG:地の文分岐 = 3
	;外套を着替えたなら、それの感想
	ELSEIF CSTR:外套 != MEMO_CLO:45
		TFLAG:地の文分岐 = 4
	;胸罩だけ替えたor外した
	ELSEIF CSTR:胸罩 != MEMO_CLO:41
		TFLAG:地の文分岐 = 5
	;手套を替えたor外した
	ELSEIF CSTR:手套 != MEMO_CLO:48
		TFLAG:地の文分岐 = 6
	;襪子を替えたor外した
	ELSEIF CSTR:襪子 != MEMO_CLO:46
		TFLAG:地の文分岐 = 7
	;靴だけ替えたor外した
	ELSEIF CSTR:靴 != MEMO_CLO:47
		TFLAG:地の文分岐 = 8
	;其他小物だけ替えたor外した
	ELSEIF CSTR:飾品 != MEMO_CLO:49
		TFLAG:地の文分岐 = 9
	ELSE
		TFLAG:指令中止 = 1
		;何も変えなかったか格子
		FOR LCOUNT, 40, 50
			IF CSTR:LCOUNT != MEMO_CLO:LCOUNT
				TFLAG:指令中止 = 0
				BREAK
			ENDIF
		NEXT
	ENDIF
	RETURN 0
CASE 0
	CALL SELECT_COORDINATE
CASE 1
	CALL SELECT_SHIRT
CASE 2
	SIF COND("脚の使用")
		CALL SELECT_BODYSUIT_OUTER
CASE 3
	CALL SELECT_PANTU_BRA
CASE 4
	CALL SELECT_SOCKS_GLOVE_SHOES
CASE 5
	CALL SELECT_OTHER
CASE 9
	IF CSTR:今年の泳装 != ""
		CALL SET_COORDINATE, "今年の泳装"
	ENDIF
CASE 10
	CALL MEMO_DRESS, "Ｈ衣装"
CASE 11
	CSTR:Ｈ衣装 =
CASE 90
	SIF EQUIP:服
		CALL EVENT_DATUI, "衣服"
CASE 91
	IF CHECK_CLO("裸体") == 0
		CALL EVENT_DATUI, "裸体"
		CALL SETFLAG, "扒成裸体", TARGET
	ENDIF
CASE 92
	IF CHECK_CLO("全裸") == 0
		CALL SETFLAG, "服以外全脱ぎ", TARGET
		CALL EVENT_DATUI, "裸体"
		CALL SETFLAG, "扒成裸体", TARGET
	ENDIF
CASE 99
	CALL SETCONFIG, "着装設定"
CASEELSE
	GOTO INPUT_LOOP
ENDSELECT

;淫紋イベント
SIF IS_VISIBLE_INMON == 0 && MARK:淫紋 >= 2 && CFLAG:淫紋の様子 == 0 && CHECK_CLO("淫紋露出")
	CALL TEXT, "淫紋の様子：脱衣後"

GOTO START_KISEKAE

;-------------------------------------------------
;服装の一時記憶や呼出処理
;-------------------------------------------------
@MEMO_DRESS, ARGS, ARG
#DIM LCOUNT
SIF ARG <= 0
	ARG = TARGET

CSTR:ARG:ARGS =
FOR LCOUNT, 40, 50
	CSTR:ARG:ARGS = %CSTR:ARG:ARGS%{EQUIP:ARG:LCOUNT},%CSTR:ARG:LCOUNT%,
NEXT

@PRINT_MEMO_DRESS, ARGS, ARG
#DIM LCOUNT
#DIM MEMO_STAIN, 10
#DIM MEMO_EQUIP, 10
#DIMS MEMO_CSTR, 10

SIF ARG <= 0
	ARG = TARGET

FOR LCOUNT, 0, 10
	MEMO_STAIN:LCOUNT = STAIN:ARG:(LCOUNT + 10)
	MEMO_EQUIP:LCOUNT = EQUIP:ARG:(LCOUNT + 40)
	MEMO_CSTR:LCOUNT = %CSTR:ARG:(LCOUNT + 40)%
NEXT

CALL SET_MEMO_DRESS, ARGS, ARG
CALL PRINT_DRESS, ARG

FOR LCOUNT, 0, 10
	STAIN:ARG:(LCOUNT + 10) = MEMO_STAIN:LCOUNT
	EQUIP:ARG:(LCOUNT + 40) = MEMO_EQUIP:LCOUNT
	CSTR:ARG:(LCOUNT + 40) = %MEMO_CSTR:LCOUNT%
NEXT

@SET_MEMO_DRESS, ARGS, ARG
#DIM LCOUNT
SIF ARG <= 0
	ARG = TARGET

SELECTCASE ARGS
CASE "希望着装衣装"
	CFLAG:ARG:Cosplay中 = 1
	;既に脱いだ服がある場合には記録を上書きしない
	SIF CSTR:ARG:脱掉的衣服一览 == ""
		CALL MEMO_DRESS, "脱掉的衣服一览", ARG
ENDSELECT

CALL SETFLAG, "衣装全脱ぎ", ARG

VARSET LOCALS
SPLIT CSTR:ARG:ARGS, ",", LOCALS

FOR LCOUNT, 0, 10
	EQUIP:ARG:(LCOUNT + 40) = TOINT(LOCALS:(LCOUNT*2) )
	CSTR:ARG:(LCOUNT + 40) = %LOCALS:(LCOUNT*2 + 1)%
NEXT

SELECTCASE ARGS
CASE "脱掉的衣服一览", "希望着装衣装"
	CSTR:ARG:ARGS =
ENDSELECT

;-------------------------------------------------
;装扮選択
;ARGSに条件を入れる事が出来る
;-------------------------------------------------
@SELECT_COORDINATE, ARGS
#DIM MEMO_FLAG

MEMO_FLAG = FLAG:換装画面
CALL SELECT_COORDINATE_MAIN, ARGS
FLAG:換装画面 = MEMO_FLAG

@SELECT_COORDINATE_MAIN, ARGS
#DIM LCOUNT
#DIM CHOICE
#DIM MEMO_LINECOUNT
;換装前の衣装の記録
#DIMS MEMO_CLO, 50
#DIM MEMO_EQUIP, 50
#DIMS SHOW_FILTER
;対応した番号の服に着替えられるかどうか
#DIM CAN_CHANGE, 200

VARSET CAN_CHANGE

;着ていた服を記憶
FOR LCOUNT, 40, 50
	MEMO_CLO:LCOUNT = %CSTR:LCOUNT%
	MEMO_EQUIP:LCOUNT = EQUIP:LCOUNT
NEXT

MEMO_LINECOUNT = LINECOUNT

PRINTL
SELECTCASE ARGS
CASE "希望着装"
	PRINTFORML 要用哪个标语呢？
	FLAG:換装画面 = 1p1
CASE "Cosplay"
	PRINTFORML 要更換成哪件呢？
	CALL PRINT_MAIDFACE, TARGET
	PRINTFORM 現在:
	CALL PRINT_DRESSL, TARGET, "拡大表示"
	FLAG:換装画面 = 1p1
CASEELSE
	PRINTFORML 要更換成哪种装扮呢？
	PRINTFORML 下の表示ジャンルを阴蒂ックする事で表示を変更出来ます
	CALL PRINT_MAIDFACE, TARGET
	PRINTFORM 現在:
	CALL PRINT_DRESSL, TARGET, "拡大表示"
	SIF	FLAG:換装画面 == 0
		FLAG:換装画面 = 1p1
ENDSELECT
PRINTL
FOR LCOUNT, 0, 100
	SELECTCASE NAME_COORDINATE(LCOUNT)
	CASE ""
		CONTINUE
	CASEELSE
		SELECTCASE LCOUNT
		CASE IS < 20
			SIF CONFIG("装扮：Cosplay") == 0 && CONFIG("装扮：一覧") == 0
				CONTINUE
			SIF LCOUNT == 0 && ARGS == ""
				PRINTFORML - Cosplay -
		CASE IS < 40
			SIF CONFIG("装扮：制服") == 0 && CONFIG("装扮：一覧") == 0
				CONTINUE
			SIF LCOUNT == 20
				PRINTFORML - 制服 -
		CASE IS < 60
			SIF CONFIG("装扮：体操服") == 0 && CONFIG("装扮：一覧") == 0
				CONTINUE
			SIF LCOUNT == 40
				PRINTFORML - 体操服 -
		CASE IS < 80
			SIF CONFIG("装扮：泳装") == 0 && CONFIG("装扮：一覧") == 0
				CONTINUE
			SIF LCOUNT == 60
				PRINTFORML - 泳装 -
		ENDSELECT

		CAN_CHANGE:LCOUNT = 1

		;衣装重置
		CALL SETFLAG, "衣装全脱ぎ", TARGET
		CALL SET_COORDINATE, NAME_COORDINATE(LCOUNT)
		PRINTFORM [{LCOUNT, 3}] %TEXT_LJ(NAME_COORDINATE(LCOUNT), 20)%
		CALL PRINT_DRESSL, TARGET, "衣装表示"
	ENDSELECT
NEXT

PRINTL
SELECTCASE ARGS
CASE "Cosplay", "希望着装"

CASEELSE
	PRINTFORM 表示種類：
	VARSET SHOW_FILTER
	;SIF CONFIG("装扮：一覧")
	;	SHOW_FILTER += "黄色/"
	;SHOW_FILTER += "一覧_1000/"

	;SIF CONFIG("装扮：角色衣装")
	;	SHOW_FILTER += "黄色/"
	;SHOW_FILTER += "角色衣装_1001/"

	SIF CONFIG("装扮：Cosplay")
		SHOW_FILTER += "黄色/"
	SHOW_FILTER += "Cosplay_1002/"

	SIF CONFIG("装扮：制服")
		SHOW_FILTER += "黄色/"
	SHOW_FILTER += "制服_1003/"

	SIF CONFIG("装扮：体操服")
		SHOW_FILTER += "黄色/"
	SHOW_FILTER += "体操服_1004/"

	SIF CONFIG("装扮：泳装")
		SHOW_FILTER += "黄色/"
	SHOW_FILTER += "泳装_1005/"

	CALL PRINT_LIST, SHOW_FILTER
	PRINTL
ENDSELECT

PRINTFORML [999] 返回

;着ていた服を戻す
FOR LCOUNT, 40, 50
	CSTR:LCOUNT = %MEMO_CLO:LCOUNT%
	EQUIP:LCOUNT = MEMO_EQUIP:LCOUNT
NEXT

$INPUT_LOOP
INPUT

CHOICE = RESULT

IF CHOICE == 999
	FLAG:換装画面 = 0
	RETURN 0
ELSEIF CHOICE >= 1002 && CHOICE <= 1005
	SELECTCASE ARGS
	CASE "Cosplay", "希望着装"
	CASEELSE
		IF CHOICE == 1000
			FLAG:換装画面 = 0
		ELSEIF CHOICE >= 1001 && CHOICE <= 1005
			FLAG:換装画面 = 0
			SETBIT FLAG:換装画面, CHOICE - 1001
		ENDIF
	ENDSELECT
	CLEARLINE LINECOUNT - MEMO_LINECOUNT
	RESTART
ELSEIF CHOICE >= 0 && CHOICE < 100 && NAME_COORDINATE(CHOICE) != "" && CAN_CHANGE:CHOICE
	CALL SET_COORDINATE, NAME_COORDINATE(CHOICE)

	SELECTCASE CHOICE
	CASE IS >= 100
		;PRINTFORM %CSTR:希望着装履歴%

		CSTR:希望着装履歴 = ＠%NAME_COORDINATE(CHOICE)%\/%CSTR:希望着装履歴%
		VARSET LOCALS
		SPLIT CSTR:希望着装履歴, "/", LOCALS
		CSTR:希望着装履歴 =
		;新しい方から１００個まで記録
		FOR LCOUNT, 0, 100
			SIF LOCALS:LCOUNT == ""
				BREAK
			CSTR:希望着装履歴 += @"%LOCALS:LCOUNT%\/"
		NEXT

		;PRINTFORML →　%CSTR:希望着装履歴%
	ENDSELECT

	SELECTCASE ARGS
	CASE "希望着装"
		CALL MEMO_DRESS, "希望着装衣装"

		;服を戻す
		FOR LCOUNT, 40, 50
			CSTR:LCOUNT = %MEMO_CLO:LCOUNT%
			EQUIP:LCOUNT = MEMO_EQUIP:LCOUNT
		NEXT
		RETURN 1
	CASEELSE
		IF CHECK_SHIRT("衬衫")
			IF TALENT:娇小
				PRINTFORMW 在請求下、%CALLNAME:TARGET%脫光衣服後、換上了屬於%CALLNAME:MASTER%的Ｙ型T恤。
				PRINTFORMW ……衣袖並不合身、好像有點太長了。雖然就這樣拖著袖子也很可愛、但還是把它折疊了幾次讓她能伸出手。
			ELSE
				PRINTFORMW 在請求下、%CALLNAME:TARGET%脫光衣服後、換上了屬於%CALLNAME:MASTER%的T恤。……似乎對%CALLNAME:TARGET%來說也大了點了呢。
				IF TALENT:不知羞恥 || RAND:6 == 0
					PRINTFORM 在%CALLNAME:TARGET%動作的時候、能從下擺隱約看見
					IF EQUIP:胖次 && COND("脚の使用")
						PRINT 緊繃繃、能看見陰部輪廓的小小胖次
					ELSE
						IF COND("陰毛") >= 5
							PRINT 被柔軟而茂密的陰毛遮蓋的艷麗陰部
						ELSEIF COND("陰毛") == 4
							PRINT 生長著單薄陰毛的美麗陰部
						ELSE
							IF COND("陰毛") && PENIS(TARGET) == 0 && RAND:2 == 0
								PRINT 光潔無毛的可愛陰部
							ELSE
								PRINT 股間
							ENDIF
						ENDIF
					ENDIF
					PRINTFORMW 。這份美麗的景色短暫的奪去了%CALLNAME:MASTER%的心神……
				ELSEIF TALENT:害羞 || RAND:5 == 0
					IF RAND:2 == 0
						PRINTFORMW 僅僅稍長一點的衣擺對害羞的孩子來說還是太過羞恥、%CALLNAME:TARGET%臉上染上羞恥的紅暈、扭扭捏捏地夾緊了腿……
					ELSE
						PRINTFORMW 僅僅稍長一點的衣擺對害羞的孩子來說還是太過羞恥、%CALLNAME:TARGET%僅僅抓住衣擺、試著向下拉扯……
					ENDIF
				ENDIF
			ENDIF
		ELSEIF CHECK_SHIRT("女教師")
			PRINTFORMW 修身的女教师的装扮微妙的勾畫出%CALLNAME:TARGET%的身體輪廓、在顯出知性氣息的同時也顯得格外嬌媚……
		ELSEIF CHECK_SHIRT("和服")
			PRINTFORMW 古典的和服装束。艷麗的色段和繡上的花朵圖案讓%CALLNAME:TARGET%的身姿顯得十分可愛……
		ELSEIF CHECK_SHIRT("女仆装")
			PRINTFORMW 厚重又不至於闷熱的黑色長裙、規整便利的潔白手套。乾淨而亮麗的傳統女仆装。在%CALLNAME:TARGET%玩笑一樣的行提裙禮並呼叫主人的時候、%CALLNAME:MASTER%不禁臉紅心跳……
		ELSEIF CHECK_SHIRT("体操服")
			PRINTFORMW %CALLNAME:TARGET%從%OUTER(TARGET, "略")%伸出雙腳、換上洋溢著健康與元氣的體操服。
		ELSEIF CHECK_SHIRT("护士服")
			PRINTFORMW 白衣天使的装束。
		ELSEIF CHECK_SHIRT("旗袍")
			PRINTFORML %CALLNAME:TARGET%換上了色澤艷麗的旗袍、%CALLNAME:MASTER%的目光不斷在潔白纖細的雙手\@ COND("脚の使用") ? 以及下擺中隱約可見的高挑雙腿 # \@上游移著……
		ELSEIF CHECK_SHIRT("水手服")
			PRINTFORMW %CALLNAME:TARGET%換上了露出肚臍的富有魅力的水手服。
		ELSEIF CHECK_SHIRT("巫女")
			PRINTFORMW 素淨的白衣、從腹部一直包裹到腳腕的長長緋袴\@ COND("脚の使用") ? 、包裹著纖細雙腿的短布襪和用紅繩系上的木屐 # \@。毫無污穢、清純滿溢、非常傳統的紅白巫女服。
		ELSEIF CHECK_SHIRT("情趣内衣")
			PRINTFORMW 請%CALLNAME:TARGET%換上了微微透明的可愛的情趣內衣。而比這艷麗的布料更加可愛的是%CALLNAME:TARGET%微紅的臉頰。
		ELSEIF CHECK_SHIRT("婚纱礼服")
			PRINTFORMW 為%CALLNAME:TARGET%換上了潔白的婚禮禮服。
			IF TALENT:娇小
				PRINTFORMW %CALLNAME:TARGET%顯出稍微成長了的微妙感覺、但依然更像是換上媽媽禮服的小孩子、十分可愛的感覺呢……
			ELSEIF TALENT:傲慢
				PRINTFORM %CALLNAME:TARGET%為了掩飾自己的羞恥
				SIF TALENT:恋慕
					PRINT 以及高興
				PRINTFORMW 、掩住自己通紅的臉頰、結結巴巴的說著毫無殺傷力可言的惡語……
			ELSEIF (TALENT:坦率 || TALENT:清楚) && TALENT:恋慕
				PRINTFORMW %CALLNAME:TARGET%毫不掩飾自己的喜悅、露出明亮而美麗的笑容……
			ENDIF
		ELSEIF CHECK_SHIRT("哥特蘿莉礼服")
			PRINTFORMW 請求%CALLNAME:TARGET%換上了\@ AGE(TARGET) <= 2 ? 妖艷而又可愛的 # 在可愛的感覺中也能感受到妖艷的魅力的 \@哥特式洛麗塔服。
		ELSEIF CHECK_SHIRT("啦啦队制服")
			PRINTFORMW 穿上洋溢著健康的魅力的、讓人看見就感覺湧出活力的啦啦隊隊長服飾。
		ELSEIF CHECK_SHIRT("睡衣")
			PRINTFORMW %CALLNAME:TARGET%換上了可愛的兒童用睡衣。想要摩挲連在衣服上的毛絨絨小球。
		ELSEIF CHECK_SHIRT("侍者服")
			PRINTFORMW 請%CALLNAME:TARGET%換上了喫茶店的服務員制服。在%TEXTR("可愛/嬌艷")%之外也給人一種瀟灑帥氣的感覺。
		ELSEIF CHECK_CLO("比基尼姿")
			IF TALENT:巨乳 && RAND:2 == 0
				PRINT 將豐滿的乳房緊勒的像是要溢出一樣的
			ELSE
				PRINT 缺乏面料、風格十分大膽的
			ENDIF
			PRINTFORMW 狹小的比基尼泳衣。
		ELSEIF CHECK_BODYS("死库水")
			PRINTFORMW 讓%CALLNAME:TARGET%換上了藏青色的校園泳衣。在胸口位置的白色布料規整的寫著%CALLNAME:TARGET%的名字。
		ELSEIF CHECK_BODYS("競泳泳装")
			PRINTFORMW 讓%CALLNAME:TARGET%穿上了格外凸顯肢體線條的競泳泳衣。就連美麗的陰部也被股間緊繃的布料勾畫出來了……
		ELSEIF CHECK_BODYS("緊身内衣") && CHECK_BODYS("Ｖ露出")
			PRINTFORMW 讓%CALLNAME:TARGET%換上了將妖艷的陰部和美麗的乳房暴露出來的緊身內衣。明明穿了衣服、但卻比裸體更加色情呢……
		ELSEIF CHECK_CLO("拘束衣")
			PRINTFORMW 將散發著奇异光澤的皮質拘束帶綁在了%CALLNAME:TARGET%的身上、\@ PENIS(TARGET) == 0 ? 無論是被束帶凸顯的乳房還是 # \@微微顫抖著的私處都明顯的暴露出來了。
		ELSEIF CHECK_BODYS("兔")
			PRINTFORMW 讓%CALLNAME:TARGET%換上了充滿了大人的魅力的兔女郎身姿。小兔子、想吃胡蘿蔔嗎~？…咳、失禮了。
		ELSEIF CHECK_BODYS("連体泳装")
			PRINTFORMW 讓%CALLNAME:TARGET%換上了洋溢著清新氛圍的朴素連體泳衣。
		ELSE
			PRINTFORMW 在請求下、換上了%NAME_COORDINATE(CHOICE)%的衣服。
		ENDIF
	ENDSELECT
ELSE
	GOTO INPUT_LOOP
ENDIF

SIF EQUIP:服 == 0 && COND("脚の使用")
	CALL SHOW_PUBICHAIR

;-------------------------------------------------
;服に関する関数
;-------------------------------------------------
@SELECT_SHIRT
#DIM LCOUNT
#DIM CHOICE
#DIM NEXT_LINE
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT

PRINTL
CALL PRINT_MAIDFACE, TARGET
CALL PRINT_STRL, @"要穿戴那種？通過下方的_黄色_顏色_指定來決定顏色。"
PRINTFORM 現在:
CALL PRINT_DRESSL, TARGET, "拡大表示"
PRINTL

NEXT_LINE = 0
FOR LCOUNT, 0, 80
	SELECTCASE NAME_SHIRT(LCOUNT)
	CASE ""
		CONTINUE
	CASEELSE
		SIF SHIRT(TARGET) == NAME_SHIRT(LCOUNT)
			SETCOLOR DEF_COLOR("黄色")
		PRINTFORM  [{LCOUNT, 2}] %TEXT_LJ(NAME_SHIRT(LCOUNT), 22)%
		RESETCOLOR

		NEXT_LINE += 1
		SIF NEXT_LINE%3 == 0
			PRINTL
	ENDSELECT
NEXT
SIF NEXT_LINE%3
	PRINTL
PRINTL

IF EQUIP:服
	PRINTFORML  [90] 脱下%SHIRT(TARGET)%、
ELSE
	CALL PRINT_STRL, "暗灰色_ [×] 脱下衣服"
ENDIF
IF EQUIP:裙 && !CHECK_SKIRT("連衣裙")
	PRINTFORML  [91] 只脱掉裙子
ELSE
	CALL PRINT_STRL, "暗灰色_ [×] 只脱掉裙子"
ENDIF

PRINTFORML [100] 返回

$INPUT_LOOP
INPUT

CHOICE = RESULT

IF CHOICE == 100
	RETURN 0
ELSEIF CHOICE == 90 && EQUIP:服 + EQUIP:裙
	CALL EVENT_DATUI, "衣服"
ELSEIF CHOICE == 91 && EQUIP:裙 && !CHECK_SKIRT("連衣裙")
	CALL SET_SKIRT, ""
ELSEIF NAME_SHIRT(CHOICE) != ""
	IF SHIRT(TARGET) == NAME_SHIRT(CHOICE)
		CALL SET_SHIRT, ""
		CALL SET_SKIRT, ""
	ELSE
		CALL SET_BODYS, ""
		CALL SET_SKIRT, ""
		CALL SET_SHIRT, NAME_SHIRT(CHOICE)
		SELECTCASE SHIRT(TARGET)
		CASE "女教師"
			PRINTFORMW 修身的女教师的装扮微妙的勾畫出%CALLNAME:TARGET%的身體輪廓、在顯出知性氣息的同時也顯得格外嬌媚……
		CASE "和服"
			PRINTFORMW 古典的和服装束。艷麗的色段和繡上的花朵圖案讓%CALLNAME:TARGET%的身姿顯得十分可愛……
		CASE "女仆装"
			PRINTFORML 請決定使用怎樣的女仆装束。
			PRINTFORML  [ 0] 整潔秀麗、曝光較少的樸素長裙。
			PRINTFORML  [ 1] 現代出現的改良服饰。
			PRINTFORML  [ 2] 法式情趣女仆装。

			CALL INPUT_SELECT, 3

			SELECTCASE RESULT
			CASE 0
				PRINTFORMW 厚重又不至於闷熱的黑色長裙、規整便利的潔白手套。乾淨而亮麗的傳統女仆装。在%CALLNAME:TARGET%玩笑一樣的行提裙禮並呼叫主人的時候、%CALLNAME:MASTER%不禁臉紅心跳……
			CASE 1
				PRINTFORMW \@ COND("脚の使用") ? 及膝的白色吊帶絲襪、 # \@。及肘的白色蕾絲手套、與吊帶襪達成絕對領域的迷你裙。充分彰顯出女性魅力的現代女仆装。

				CALL SET_SHIRT, "露脐装超短裙女仆"
			CASE 2
				PRINTFORMW \@ COND("脚の使用") ? 黑色的大腿襪、 # \@。將濕潤的膣道暴露出來的開襟短裙、無袖且暴露出脊背和大半個乳房以及性感肚臍的黑白外衣。比起日用常服、這更像是情趣服装。

				CALL SET_SHIRT, "法式女仆装"
			ENDSELECT
		CASE "体操服"
			PRINTFORMW 洋溢著健康與元氣的體操服。
		CASE "护士服"
			PRINTFORMW 白衣天使的装束。
		CASE "旗袍"
			PRINTFORML %CALLNAME:TARGET%換上了色澤艷麗的旗袍、%CALLNAME:MASTER%的目光不斷在潔白纖細的雙手\@ COND("脚の使用") ? 以及下擺中隱約可見的高挑雙腿 # \@上游移著……
		CASE "水手服"
			PRINTFORMW %CALLNAME:TARGET%換上了露出肚臍的富有魅力的水手服。
		CASE "巫女服"
			PRINTFORML 請決定使用怎樣的巫女装。
			PRINTFORML  [ 0] 紅白色的傳統巫女服。
			PRINTFORML  [ 1] 現代出現的改良服饰。
			PRINTFORML  [ 2] 只在動漫和遊戲中才會出現的情趣巫女服。

			CALL INPUT_SELECT, 3

			SELECTCASE RESULT
			CASE 0
				PRINTFORMW 素淨的白衣、從腹部一直包裹到腳腕的長長緋袴\@ COND("脚の使用") ? 、包裹著纖細雙腿的短布襪和用紅繩系上的木屐 # \@。毫無污穢、清純滿溢、非常傳統的紅白巫女服。
			CASE 1
				PRINTFORMW 上臂套著巫女袖、而肩部腋部完全裸露。緋褲像背心一樣用吊帶繫住白衣肩部快到膝蓋上側的地方就已經中斷\@ COND("脚の使用") ? 、纖細的雙腿上短布襪鬆垮的套在小腿上 # \@。在神聖純潔之餘、又給人一種可愛的感覺。現代的改良巫女服。

				CALL SET_SKIRT, "露脐装超短裙袴"
			CASE 2
				PRINTFORML 白衣上側鬆垮的掛在乳頭上、而下側中斷、露出了可愛的肚臍。緊窄的緋褲後側及膝而前側分開、露出陰部。潔白的手臂\@ COND("脚の使用") ? 、和纖細的雙腿 # \@就那樣裸露著。比起日用常服、這更像是情趣服装。

				CALL SET_SHIRT, "腋巫女"
				CALL SET_SKIRT, "超短迷你袴"
			ENDSELECT
		CASE "情趣内衣"
			PRINTFORMW 請%CALLNAME:TARGET%換上了微微透明的可愛的情趣內衣。而比這艷麗的布料更加可愛的是%CALLNAME:TARGET%微紅的臉頰。
		CASE "婚纱礼服"
			PRINTFORMW 為%CALLNAME:TARGET%換上了潔白的婚禮禮服。
		CASE "哥特蘿莉礼服"
			PRINTFORMW 請求%CALLNAME:TARGET%換上了\@ AGE(TARGET) <= 2 ? 妖艷而又可愛的 # 在可愛的感覺中也能感受到妖艷的魅力的 \@哥特式洛麗塔服。
		CASE "啦啦队制服"
			PRINTFORMW 穿上洋溢著健康的魅力的、讓人看見就感覺湧出活力的啦啦隊隊長服飾。
		CASE "睡衣"
			PRINTFORMW 可愛的兒童用睡衣。
		CASE "怪獣睡衣"
			PRINTFORML 外觀近似於深綠色的蜥蜴怪獸的、孩子通常會喜歡的可愛睡衣。
			PRINTFORMW 在怪獸的口部是頭部的位置、而怪獸的頭部則可以像是兜帽一樣掛在腦後、怪獸的上下身體是連在一起的、而進入的拉鏈則在背後。
		CASEELSE
			IF CHECK_SHIRT("衬衫")
				IF TALENT:娇小
					PRINTFORMW 在請求下、%CALLNAME:TARGET%脫光衣服後、換上了屬於%CALLNAME:MASTER%的Ｙ型T恤。
					PRINTFORMW ……衣袖並不合身、好像有點太長了。雖然就這樣拖著袖子也很可愛、但還是把它折疊了幾次讓她能伸出手。
				ELSE
					PRINTFORMW 在請求下、%CALLNAME:TARGET%脫光衣服後、換上了屬於%CALLNAME:MASTER%的T恤。……似乎對%CALLNAME:TARGET%來說也大了點了呢。
					IF TALENT:不知羞恥 || RAND:6 == 0
						IF CHECK_CLO("布鲁马露出") || CHECK_CLO("紧身短褲露出")
							PRINTFORMW 在%CALLNAME:TARGET%動作的時候、能從下擺隱約看見%OUTER(TARGET, "略")%。這份美麗的景色短暫的奪去了%CALLNAME:MASTER%的心神……
						ELSEIF CHECK_CLO("胖次露出")
							PRINTFORMW 在%CALLNAME:TARGET%動作的時候、能從下擺隱約看見%PANTIES(TARGET, "略")%。這份美麗的景色短暫的奪去了%CALLNAME:MASTER%的心神……
						;阴部丸見えor连褲襪のみ
						ELSEIF CHECK_CLO("Ｖ露出")
							PRINTFORM 在%CALLNAME:TARGET%動作的時候、能從下擺隱約看見
							IF COND("陰毛") >= 5
								PRINT 被柔軟而茂密的陰毛遮蓋的艷麗陰部
							ELSEIF COND("陰毛") == 4
								PRINT 生長著單薄陰毛的美麗陰部
							ELSE
								IF COND("陰毛") && PENIS(TARGET) == 0 && RAND:2 == 0
									PRINT 光潔無毛的可愛陰部
								ELSE
									PRINT 股間
								ENDIF
							ENDIF
							PRINTFORMW 。這份美麗的景色短暫的奪去了%CALLNAME:MASTER%的心神……
						ENDIF
					ELSEIF TALENT:害羞 || RAND:5 == 0
						IF RAND:2 == 0
							PRINTFORMW 僅僅稍長一點的衣擺對害羞的孩子來說還是太過羞恥、%CALLNAME:TARGET%臉上染上羞恥的紅暈、扭扭捏捏地夾緊了腿……
						ELSE
							PRINTFORMW 僅僅稍長一點的衣擺對害羞的孩子來說還是太過羞恥、%CALLNAME:TARGET%僅僅抓住衣擺、試著向下拉扯……
						ENDIF
					ENDIF
				ENDIF
			ELSE
				PRINTFORMW %SHIRT(TARGET)%。
			ENDIF
		ENDSELECT
	ENDIF
ELSE
	GOTO INPUT_LOOP
ENDIF

CLEARLINE LINECOUNT - MEMO_LINECOUNT
RESTART

;-------------------------------------------------
;胖次と胸罩に関する関数
;-------------------------------------------------
@SELECT_PANTU_BRA
#DIM LCOUNT
#DIM CHOICE
#DIM NEXT_LINE
#DIM MEMO_LINECOUNT
#DIMS MEMO_PANTU
#DIMS MEMO_BRA
#DIMS COLOR_TABLE
#DIMS COLORS, 20

MEMO_LINECOUNT = LINECOUNT

MEMO_PANTU = %CSTR:胖次%
MEMO_BRA = %CSTR:胸罩%

PRINTL
CALL PRINT_MAIDFACE, TARGET
CALL PRINT_STRL, @"要穿戴那種？通過下方的_黄色_顏色_指定來決定顏色。"
PRINTFORM 現在:
CALL PRINT_DRESSL, TARGET, "拡大表示"
PRINTL

PRINTFORML ・胖次
NEXT_LINE = 0
FOR LCOUNT, 0, 40
	SELECTCASE NAME_PANTIES(LCOUNT)
	CASE ""
		CONTINUE
	CASEELSE
		SIF PANTIES(TARGET) == NAME_PANTIES(LCOUNT)
			SETCOLOR DEF_COLOR("黄色")
		PRINTFORM  [{LCOUNT, 2}] %TEXT_LJ(NAME_PANTIES(LCOUNT), 22)%
		RESETCOLOR

		NEXT_LINE += 1
		SIF NEXT_LINE%3 == 0
			PRINTL
	ENDSELECT
NEXT
SIF NEXT_LINE%3
	PRINTL

PRINTL
PRINTFORML ・胸罩
NEXT_LINE = 0
FOR LCOUNT, 0, 40
	SELECTCASE NAME_BRA(LCOUNT)
	CASE ""
		CONTINUE
	CASEELSE
		SIF BRA(TARGET) == NAME_BRA(LCOUNT)
			SETCOLOR DEF_COLOR("黄色")
		PRINTFORM  [{LCOUNT+40, 2}] %TEXT_LJ(NAME_BRA(LCOUNT), 22)%
		RESETCOLOR

		NEXT_LINE += 1
		SIF NEXT_LINE%3 == 0
			PRINTL
	ENDSELECT
NEXT
SIF NEXT_LINE%3
	PRINTL
PRINTL

PRINTFORM ・内衣の色指定
IF SAVESTR:内衣の指定色 != ""
	PRINTFORM  … 現在是
	SETCOLOR DEF_COLOR("黄色")
	PRINTFORM %SAVESTR:内衣の指定色%
	RESETCOLOR
ENDIF
PRINTL
PRINTFORM  [80]没有

COLOR_TABLE = 黒/紫/真紅/赤/薄桃色/緑色/青/黄色/紺色/薄緑/橙色/薄青色/純白/白
VARSET COLORS
SPLIT COLOR_TABLE, "/", COLORS

NEXT_LINE = 1
FOR LCOUNT, 0, 20
	SELECTCASE COLORS:LCOUNT
	CASE ""
		PRINTL
		BREAK
	CASE SAVESTR:内衣の指定色
		SETCOLOR DEF_COLOR("黄色")
	ENDSELECT
	PRINTFORM  [{81 + LCOUNT}]%TEXT_LJ(COLORS:LCOUNT, 6)%
	RESETCOLOR

	NEXT_LINE += 1
	SIF NEXT_LINE%5 == 0
		PRINTL
NEXT
SIF NEXT_LINE%5
	PRINTL

PRINTFORML  [96] \@ CONFIG("胸罩を合わせる") ? ○ # － \@ 選擇胖次的時候也自動選擇相應的胸罩。

IF EQUIP:胖次
	PRINTFORML  [97] 拜托脱掉%PANTIES(TARGET)%
ELSE
	CALL PRINT_STRL, "暗灰色_ [×] 拜托脱掉胖次"
ENDIF
IF EQUIP:胸罩
	PRINTFORML  [98] 拜托脱掉%BRA(TARGET)%
ELSE
	CALL PRINT_STRL, "暗灰色_ [×] 拜托脱掉胸罩"
ENDIF
IF EQUIP:胖次 && EQUIP:胸罩
	PRINTFORML  [99] 請求脫去內衣
ELSE
	CALL PRINT_STRL, "暗灰色_ [×] 請求脫去內衣"
ENDIF
PRINTFORML [100] 返回

$INPUT_LOOP
INPUT

CHOICE = RESULT

IF CHOICE == 100
	SAVESTR:内衣の指定色 =
	RETURN 0
ELSEIF CHOICE == 80
	SAVESTR:内衣の指定色 =
	CLEARLINE LINECOUNT - MEMO_LINECOUNT
	RESTART
ELSEIF CHOICE >= 81 && CHOICE <= 94
	SAVESTR:内衣の指定色 = %COLORS:(CHOICE - 81)%
	CALL EQ_CLOCOLOR, TARGET, SAVESTR:内衣の指定色
ELSEIF CHOICE == 96
	INVERTBIT FLAG:換装, 3
ELSEIF CHOICE == 97 && EQUIP:胖次
	CALL SET_PANTIES, ""
ELSEIF CHOICE == 98 && EQUIP:胸罩
	CALL SET_BRA, ""
ELSEIF CHOICE == 99 && EQUIP:胖次 && EQUIP:胸罩
	CALL SET_PANTIES, ""
	CALL SET_BRA, ""
ELSEIF CHOICE >= 0 && CHOICE <= 39 && NAME_PANTIES(CHOICE) != ""
	IF PANTIES(TARGET) == NAME_PANTIES(CHOICE)
		CALL SET_PANTIES, ""
	ELSE
		CALL SET_PANTIES, NAME_PANTIES(CHOICE)
		SIF CONFIG("胸罩を合わせる")
			CALL COORDINATE_BRA, TARGET

		IF CHECK_PANTIES("Ｃ胖次")
			PRINTFORML ……既然如此、乾脆選擇更加淫猥的装束吧？
			PRINTFORML [ 0] 透明！
			PRINTFORML [ 1] 開洞！
			PRINTFORML [ 2] 不、果然還是普通一點更好
			CALL INPUT_SELECT, 3
			PRINTFORMW 請求%CALLNAME:TARGET%穿上了%DETAIL_PANTIES(TARGET)%。。
			IF RESULT == 0
				CSTR:胖次 += "透明/"
				PRINTFORML 因為質地是透明的、能隔著柔軟的布料清楚地看見%CALLNAME:TARGET%重要的私處。豐腴飽滿的陰唇、可愛的淫豆、愛液濡濕了布料讓它能被看的更加清楚……相當、淫猥的景色。。
			ELSEIF RESULT == 1
				CSTR:胖次 += "Ｖ露出/"
				PRINTFORMW 股間、私處的地方開了一個口子。與其說是內衣不如說是為了強調這裡是%CALLNAME:TARGET%重要的地方而製作的助興淫具。。
			ENDIF
		ELSEIF CHECK_PANTIES("前貼")
			PRINTFORMW 在%CALLNAME:TARGET%陰部的前端粘貼了C形內褲。這種緊貼並強調陰部的装束比不穿更加淫靡……
		ELSE
			PRINTFORMW 請求%CALLNAME:TARGET%穿上了%DETAIL_PANTIES(TARGET)%。。
		ENDIF
	ENDIF
ELSEIF CHOICE >= 40 && CHOICE <= 79 && NAME_BRA(CHOICE - 40) != ""
	IF BRA(TARGET) == NAME_BRA(CHOICE - 40)
		CALL SET_BRA, ""
	ELSE
		CALL SET_BRA, NAME_BRA(CHOICE - 40)
		IF CHECK_BRA("吊帯背心")
			PRINTFORMW 請%CALLNAME:TARGET%戴上了適合運動的吊帶背心。
		ELSEIF CHECK_BRA("裹胸布")
			PRINTFORMW 进一步把胸裹住了。
		ELSEIF CHECK_BRA("吊帯衫")
			PRINTFORMW 請%CALLNAME:TARGET%戴上了可愛風格的吊帶式文胸。
		ELSEIF CHECK_BRA("乳贴")
			PRINTFORMW %CALLNAME:TARGET%の乳頭に%BRA(TARGET)%を貼り付けました。
		ELSE
			PRINTFORMW 戴上了%DETAIL_BRA(TARGET)%。
		ENDIF
	ENDIF
ELSE
	GOTO INPUT_LOOP
ENDIF

;拘束などされていたり、胖次沒穿ならここまで
IF TEQUIP:眼罩 || TEQUIP:拘束 || TEQUIP:口枷 || TEQUIP:室内露出PLAY || TEQUIP:野外PLAY
;裙 かつ 拘束などされてない かつ 開朗or恋慕or小悪魔 かつ 反発0LV
ELSEIF EQUIP:裙 && EQUIP:胖次 && MEMO_PANTU != CSTR:胖次 && TALENT:開朗 + TALENT:恋慕 + TALENT:小悪魔 && CHECK_PANTIES("男物") == 0 && RAND:3 == 0
	PRINTFORM %CALLNAME:TARGET%
	;淫乱or欲情1000以上
	IF (TALENT:淫乱 && PALAM:欲情 >= 1000) && RAND:4
		PRINT 一邊妖艶的微笑著一邊
	ELSEIF RAND:3 == 0
		SIF RAND:2 == 0
			PRINT 好像很開心
		PRINT 微笑着一邊
	ELSEIF TALENT:高慢 + TALENT:淫乱 + ABL:施虐属性 >= 3 && RAND:2 == 0
		PRINT 在浮現出大膽的笑容的同時、
	;小悪魔
	ELSEIF TALENT:小悪魔 && RAND:2 == 0
		PRINT 在臉上露出戲謔的壞笑的同時、
	ELSEIF TALENT:害羞
		PRINT 臉頰帶著羞澀的紅暈的同時、
	ENDIF
	IF TALENT:好色 + TALENT:淫乱 && RAND:2 == 0
		PRINT 大膽地
	ELSEIF RAND:3
		PRINT 溫柔緩慢地
	ENDIF
	PRINTFORM 捲起了%SKIRT(TARGET, "略")%、
	IF CHECK_CLO("泳装姿")
		PRINT 泳装
	ELSE
		SIF PALAM:Ｖ潤 >= 3000 && PENIS(TARGET) == 0 && RAND:2 == 0
			PRINT 被汗液或是什麼液體濡濕而發出了潮濕氣息的
		PRINT 緊繃繃、能看見陰部輪廓的小小胖次
	ENDIF
	PRINTW のフィット具合を見せ付けてきた。
ENDIF

;ぱんつを履き替えた
IF EQUIP:胖次 && MEMO_PANTU != CSTR:胖次 && COND("脚の使用") && PENIS(TARGET) == 0 && RANDIF(1, EQUIP:胸罩 && MEMO_BRA != CSTR:胸罩)
	CALL SHOW_PUBICHAIR
;胸罩を着けかえた
ELSEIF EQUIP:胸罩 && MEMO_BRA != CSTR:胸罩
	CALL SHOW_NYUURIN
ENDIF

CLEARLINE LINECOUNT - MEMO_LINECOUNT
RESTART

;胸罩着用後の詳細描写。主に形状と材質で言及
@SHOW_NYUURIN
IF CHECK_BRA("開放型胸罩") || CHECK_BRA("１／４杯胸罩") || CHECK_BRA("半杯") || CHECK_BRA("透明")
	IF CHECK_BRA("透明")
		PRINTFORM %TEXTR("透過布料能清楚看見的/輕薄而透明的/隔著虛幻的透明布料的")%
	ELSE
		PRINTFORM %TEXTR("一覽無遺的/被格外強調的/不知羞恥的暴露著的")%
	ENDIF
	IF CALCF("Ｂ発情")
		IF COND("乳頭肥大") && RANDIF(1, TALENT:乳环)
			IF COND("乳頭肥大") >= 2
				PRINTFORM 格外碩大的
			ELSE
				PRINTFORM 巨大的
			ENDIF
		ELSEIF TALENT:乳环
			PRINTFORM 被奇妙的金屬環装飾著的
		ENDIF
	ELSE
		PRINTFORM 陷没
	ENDIF
	PRINTFORM 乳頭和
	SELECTCASE COND("巨乳輪")
	CASE IS >= 2
		PRINTFORM 過度巨大的
	CASE 1
		PRINTFORM 巨大的
	ENDSELECT
	PRINTFORMW 乳暈顯得格外%TEXTR("淫靡/使人興奮/亮麗")%…
ELSEIF CHECK_BRA("Micro")
	IF CALCF("Ｂ発情") && COND("乳頭肥大") && RANDIF(1, COND("巨乳輪") )
		PRINTFORMW 因為布料過度的緊貼、不但不能遮住勃起硬挺的巨大乳頭、甚至反過來凸顯並強調了%CALLNAME:TARGET%興奮的身體……
	ELSEIF COND("巨乳輪")
		PRINTFORM 雖然勉勉強強地遮掩住乳頭、但是
		SELECTCASE COND("巨乳輪")
		CASE IS >= 2
			PRINTFORM 大得令旁人也為之羞恥的
		CASE 1
			PRINTFORM 遠遠超過平均大小的
		ENDSELECT
		PRINTFORMW 乳暈大半都被清楚的暴露了……
	ENDIF
ELSEIF CHECK_BRA("乳贴")
	IF TALENT:乳环
		PRINTFORMW 贴着的乳贴上微微浮现出乳頭的形状…
	ELSEIF CALCF("Ｂ発情") && COND("乳頭肥大") && RANDIF(1, COND("巨乳輪") )
		PRINTFORMW 贴着的乳贴上高傲地凸起的乳頭形状从中心浮现了出来…
	ELSEIF COND("巨乳輪")
		PRINTFORMW %CALLNAME:TARGET%巨大的乳晕从贴着的乳贴周围露了出来…
	ENDIF
ENDIF

;途中
@SHOW_PUBICHAIR
SIF TALENT:男性
	RETURN 0
;阴部穴開きでの分岐はとりあえず没有
;随意生長
SELECTCASE COND("陰毛")
CASE 7
	IF CHECK_CLO("勒紧的")
		IF RAND:3 == 0
			;Micro
			IF CHECK_CLO("胖次露出") && RAND:2
				IF CHECK_PANTIES("Micro")
					PRINTW 在股間的小小的布料並沒能完全地包裹住陰部、過分茂密的陰毛從各種地方都探出頭了……
				ELSE
					PRINTW 小小的布料並沒能包裹住陰部、茂密的陰毛悄悄露出來了……
				ENDIF
			ELSEIF RAND:2 == 0
				PRINTW 從深深勒進股間的纖細布料的兩側、過分茂密的陰毛從各種地方都探出頭了……
			ELSE
				PRINTW 從緊繃著幾乎要斷開的股間布料的兩側、過分茂密的陰毛從各種地方都探出頭了……
			ENDIF
		ELSEIF RAND:3 == 0
			PRINTW 悄然露出的茂密陰毛格外的令人興奮……
		ELSEIF RAND:2 == 0
			PRINTW 沒能被妥善處理的陰毛從股間悄然的露出了、這份淫猥的景色讓你不禁興奮起來了……
		ELSE
			PRINTW 沒能被妥善處理的陰毛從股間悄然的露出了……
		ENDIF
	ELSEIF CHECK_CLO("胖次露出") == 0
	ELSEIF CHECK_PANTIES("透明")
		PRINTW 隔著透明布料能清楚看見的柔軟陰毛讓你不禁興奮起來了……
	ELSEIF RAND:2 == 0
		PRINTFORMW 從輕薄的%PANTIES(TARGET, "略")%的股間、沒能被妥善處理的陰毛穿過布料、冒出頭來……
	ELSE
		PRINTFORMW 沒有被充分打理的柔軟毛髮、從%PANTIES(TARGET, "略")%的頂端悄悄地冒出來了……
	ENDIF
;自然
CASE 6
	IF CHECK_CLO("胖次露出") == 0
	ELSEIF CHECK_CLO("勒紧的")
		IF RAND:3 == 0
			IF CHECK_CLO("胖次露出") && RAND:2
				IF CHECK_PANTIES("Micro")
					PRINTW 在股間的小小的布料並沒能完全地包裹住陰部、大量的阴毛悄悄露出来了……
				ELSE
					PRINTW 小小的布料並沒能包裹住陰部、不檢點的陰毛露出了……
				ENDIF
			ELSEIF RAND:2 == 0
				PRINTW 從深深勒進股間的纖細布料的兩側、略微的阴毛冒出来了……
			ELSE
				PRINTW 從緊繃著幾乎要斷開的股間布料的兩側、略微的陰毛冒出來了……
			ENDIF
		ELSEIF RAND:3 == 0
			PRINTW 悄然露出的不檢點陰毛格外的令人興奮……
		ELSEIF RAND:2 == 0
			PRINTW 沒能被妥善處理的陰毛從股間悄然的露出了、這份淫猥的景色讓你不禁興奮起來了……
		ELSE
			PRINTW 沒能被妥善處理的陰毛從股間悄然的露出了……
		ENDIF
	ELSEIF CHECK_CLO("胖次露出") == 0
	ELSEIF CHECK_PANTIES("透明")
		PRINTW 隔著透明布料能清楚看見的柔軟陰毛讓你不禁興奮起來了……
	ELSEIF CHECK_PANTIES("低腰")
		PRINTW 在輕薄的胖次中、能看見柔軟的毛髮……
	ENDIF
;保养完毕
CASE 5
	IF CHECK_CLO("胖次露出") == 0
	ELSEIF CHECK_CLO("勒紧的")
		IF CHECK_PANTIES("超低腰")
			PRINTW 在輕薄的胖次中、不只是柔軟的陰毛、就連可愛的窄縫也能清楚的看見……
		ELSE
			PRINTW 在股間的小小的布料並沒能完全地包裹住陰部、淺淺的陰毛冒出來了……
		ENDIF
	ELSEIF CHECK_PANTIES("透明")
		PRINTW 隔著透明布料能清楚看見的柔軟陰毛讓你不禁興奮起來了……
	ELSEIF CHECK_PANTIES("低腰")
		PRINTW 在輕薄的胖次中、能看見被妥善打理的整齊毛髮……
	ENDIF
;还没長出来
CASE 4
	IF CHECK_CLO("胖次露出") == 0
	ELSEIF CHECK_CLO("勒紧的")
		IF CHECK_PANTIES("超低腰")
			PRINTW 在輕薄的胖次中、能看見可愛的窄縫……
		ELSE
			PRINTW 在股間的小小的布料並沒能完全地包裹住陰部、淺淺的陰毛冒出來了……
		ENDIF
	ELSEIF CHECK_PANTIES("透明")
		PRINTW 隔著透明布料能清楚看見的柔軟陰毛讓你不禁興奮起來了……
	ELSEIF CHECK_PANTIES("低腰")
		PRINTW 在輕薄的胖次中、能看見十分柔軟的小小丘陵……
	ENDIF
;無毛
CASE 1 TO 3
	IF CHECK_CLO("胖次露出") == 0
	ELSEIF CHECK_PANTIES("Micro")
		PRINTW 也許是因為完全沒有生長陰毛的緣故、僅僅只是稍微偏移視線就能清楚地看見陰唇……
	ELSEIF CHECK_PANTIES("透明")
		PRINTW 被通透的輕薄布料包裹著的股間的可愛窄縫、充滿了女性的魅力……%CALLNAME:PLAYER%不禁沉醉其中。
	ELSEIF CHECK_PANTIES("低腰")
		PRINTW 在輕薄的胖次中、能看見十分柔軟的小小丘陵……
	ENDIF
ENDSELECT

;-------------------------------------------------
;贴身制服と外套に関する関数。脚が無い人は選べない
;-------------------------------------------------
@SELECT_BODYSUIT_OUTER
#DIM LCOUNT
#DIM CHOICE
#DIM NEXT_LINE
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT

PRINTL
CALL PRINT_MAIDFACE, TARGET
CALL PRINT_STRL, @"要穿戴那種？通過下方的_黄色_顏色_指定來決定顏色。"
PRINTFORM 現在:
CALL PRINT_DRESSL, TARGET, "拡大表示"
PRINTL

PRINTFORML ・贴身制服、連体泳装
NEXT_LINE = 0
FOR LCOUNT, 0, 20
	SELECTCASE NAME_BODYS(LCOUNT)
	CASE ""
		CONTINUE
	CASEELSE
		SIF BODYS(TARGET) == NAME_BODYS(LCOUNT)
			SETCOLOR DEF_COLOR("黄色")
		PRINTFORM  [{LCOUNT, 2}] %TEXT_LJ(NAME_BODYS(LCOUNT), 20)%
		RESETCOLOR

		NEXT_LINE += 1
		SIF NEXT_LINE%3 == 0
			PRINTL
	ENDSELECT
NEXT
SIF NEXT_LINE%3
	PRINTL
PRINTL

PRINTFORML ・布鲁马、休闲褲、连褲襪など
NEXT_LINE = 0
FOR LCOUNT, 0, 20
	SELECTCASE NAME_OUTER(LCOUNT)
	CASE ""
		CONTINUE
	CASEELSE
		SIF OUTER(TARGET) == NAME_OUTER(LCOUNT)
			SETCOLOR DEF_COLOR("黄色")
		PRINTFORM  [{LCOUNT+20, 2}] %TEXT_LJ(NAME_OUTER(LCOUNT), 20)%
		RESETCOLOR

		NEXT_LINE += 1
		SIF NEXT_LINE%3 == 0
			PRINTL
	ENDSELECT
NEXT
SIF NEXT_LINE%3
	PRINTL
PRINTL

IF EQUIP:贴身制服
	PRINTFORML  [90] 拜托脱掉%BODYS(TARGET)%
ELSE
	CALL PRINT_STRL, "暗灰色_ [×] 請求脫去袜子"
ENDIF
IF EQUIP:外套
	PRINTFORML  [91] 拜托脱掉%OUTER(TARGET)%
ELSE
	CALL PRINT_STRL, "暗灰色_ [×] 請求脫去鞋子"
ENDIF

PRINTFORML [100] 返回

$INPUT_LOOP
INPUT

CHOICE = RESULT

IF CHOICE == 100
	RETURN 0
ELSEIF CHOICE == 90 && EQUIP:贴身制服
	CALL SET_BODYS, ""
ELSEIF CHOICE == 91 && EQUIP:外套
	CALL SET_OUTER, ""
ELSEIF CHOICE >= 0 && CHOICE <= 19 && NAME_BODYS(CHOICE) != "" && COND("脚の使用")
	IF BODYS(TARGET) == NAME_BODYS(CHOICE)
		CALL SET_BODYS, ""
	ELSE
		CALL SET_SHIRT, ""
		CALL SET_BODYS, NAME_BODYS(CHOICE)
		SELECTCASE NAME_BODYS(CHOICE)
		CASE "緊身内衣"
			PRINTFORMW 能夠凸顯出身體線條的輕薄的緊身內衣。
		CASE "性感緊身内衣"
			PRINTFORMW 極具彈性的布料緊緊地勒進了股間、隨著動作不斷地摩擦著膣口和陰蒂、散發出淫靡氣味的緊身內衣。
		CASE "漆皮緊身内衣"
			PRINTFORMW 有著黑色光澤的皮革散發著微妙的淫靡氛圍、股間的底端有著隱藏的小拉鏈的緊身內衣。
		CASE "兔女郎制服"
			PRINTFORML 其實、股間有準備隱藏拉鏈的……
			PRINTFORML [ 0] 明白了
			PRINTFORML [ 1] 難道說！
			CALL INPUT_SELECT, 2
			SIF RESULT == 0
				CSTR:贴身制服 += "带拉链的/"
			IF CHECK_BODYS("黒")
				PRINTFORM 散发着妖艳的黑色光泽的
			ELSEIF CHECK_BODYS("白")
				PRINTFORM 與整潔的白色顯出奇妙反差的
			ELSE
				PRINTFORM 有着性感的显眼红色的
			ENDIF
			PRINTFORMW 兔女郎装束。
			SIF CHECK_BODYS("带拉链的")
				PRINTFORMW 另、股間有著用途不明的隱藏拉鏈。
		CASE "高開衩兔女郎服"
			PRINTFORMW 充滿了大人的魅力的兔女郎身姿。
		CASE "拘束衣"
			PRINTFORMW 將散發著奇异光澤的皮質拘束帶、\@ PENIS(TARGET) == 0 ? 無論是被束帶凸顯的乳房還是 # \@微微顫抖著的私處都明顯的暴露出來了。
		CASE "死库水"
			PRINTFORMW 藏青色的校園泳衣。
		CASE "連体泳装"
			PRINTFORMW 有著可愛褶皺作為装飾的潔白泳衣。
		CASE "高開衩泳装"
			PRINTFORMW 深深勒進股間的、像是T子褲一樣的連體泳衣。
		CASE "競泳泳装"
			PRINTFORMW 格外凸顯肢體線條的競泳泳衣。
		CASEELSE
			PRINTFORMW %SHIRT(TARGET)%。
		ENDSELECT
		IF CHECK_BODYS("高開衩") && RAND:2
			PRINTFORMW 毫無羞恥的暴露著的股間陰部、真是非常好的景色。
		ELSE
			CALL SHOW_PUBICHAIR
		ENDIF
	ENDIF
ELSEIF CHOICE >= 20 && CHOICE <= 39 && NAME_OUTER(CHOICE - 20) != "" && COND("脚の使用")
	IF OUTER(TARGET) == NAME_OUTER(CHOICE - 20)
		CALL SET_OUTER, ""
	ELSE
		CALL SET_OUTER, NAME_OUTER(CHOICE - 20)
		SELECTCASE NAME_OUTER(CHOICE - 20)
		CASE "布鲁马"
			PRINTFORMW 充分凸顯雙腿優美曲線的緊身短褲。
		;CASE "高開衩布鲁马"
		;	PRINTFORMW 深深勒進股間並緊緊包裹住尻部的可愛的緊身短褲。
		CASE "紧身短褲"
			PRINTFORMW 將大腿和腰肢都緊緊包裹住、絕妙地彰顯著女性魅力的緊身短褲。
			IF CHECK_CLO("外套直穿き")
				IF RAND:2 == 0
					PRINTFORMW 微微膨脹、看起來就十分柔軟的股間、看起來有著絕妙的魅力……
				ELSE
					PRINTFORMW 被秘唇深深含住的微微濡濕的布料、看起來有著絕妙的魅力……
				ENDIF
			ELSEIF EQUIP:胖次
				PRINTFORMW 因為布料的緊繃與輕薄、%PANTIES(TARGET, "略")%的線條充分的彰顯了……
			ENDIF
		CASE "热褲"
			PRINTFORMW 黑色的皮革熱褲。
		CASE "打底褲"
			PRINTFORMW 露出腳裸的利落的打底褲。

		CASE "连褲襪"
			PRINTFORMW 能夠稍微調節下半身腿部線條的輕薄連褲襪。
		CASE "渔网连褲襪"
			PRINTFORMW 有著細密網眼的、性感的連褲襪。
		CASE "開放型连褲襪"
			PRINTFORMW 股間部分被大膽的敞開著的、性感絕倫的連褲襪。
		CASEELSE
			PRINTFORMW 穿上了%OUTER(TARGET)%。
		ENDSELECT
	ENDIF
ELSE
	GOTO INPUT_LOOP
ENDIF

CLEARLINE LINECOUNT - MEMO_LINECOUNT
RESTART

;-------------------------------------------------
;襪子、靴、手套に関する関数
;-------------------------------------------------
@SELECT_SOCKS_GLOVE_SHOES
#DIM LCOUNT
#DIM CHOICE
#DIM NEXT_LINE
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT

PRINTL
CALL PRINT_MAIDFACE, TARGET
CALL PRINT_STRL, @"要穿戴那種？通過下方的_黄色_顏色_指定來決定顏色。"
PRINTFORM 現在:
CALL PRINT_DRESSL, TARGET, "拡大表示"
PRINTL

IF COND("脚の使用")
	PRINTFORML ・襪子
	NEXT_LINE = 0
	FOR LCOUNT, 0, 20
		SELECTCASE NAME_SOCKS(LCOUNT)
		CASE ""
			CONTINUE
		CASEELSE
			SIF SOCKS(TARGET) == NAME_SOCKS(LCOUNT)
				SETCOLOR DEF_COLOR("黄色")
			PRINTFORM  [{LCOUNT, 2}] %TEXT_LJ(NAME_SOCKS(LCOUNT), 20)%
			RESETCOLOR

			NEXT_LINE += 1
			SIF NEXT_LINE%3 == 0
				PRINTL
		ENDSELECT
	NEXT
	SIF NEXT_LINE%3
		PRINTL
	PRINTL

	PRINTFORML ・靴
	NEXT_LINE = 0
	FOR LCOUNT, 0, 20
		SELECTCASE NAME_SHOES(LCOUNT)
		CASE ""
			CONTINUE
		CASEELSE
			SIF SHOES(TARGET) == NAME_SHOES(LCOUNT)
				SETCOLOR DEF_COLOR("黄色")
			PRINTFORM  [{LCOUNT+20, 2}] %TEXT_LJ(NAME_SHOES(LCOUNT), 20)%
			RESETCOLOR

			NEXT_LINE += 1
			SIF NEXT_LINE%3 == 0
				PRINTL
		ENDSELECT
	NEXT
	SIF NEXT_LINE%3
		PRINTL
	PRINTL
ENDIF

PRINTFORML ・手套
NEXT_LINE = 0
FOR LCOUNT, 0, 20
	SELECTCASE NAME_GLOVE(LCOUNT)
	CASE ""
		CONTINUE
	CASEELSE
		SIF GLOVE(TARGET) == NAME_GLOVE(LCOUNT)
			SETCOLOR DEF_COLOR("黄色")
		PRINTFORM  [{LCOUNT+40, 2}] %TEXT_LJ(NAME_GLOVE(LCOUNT), 20)%
		RESETCOLOR

		NEXT_LINE += 1
		SIF NEXT_LINE%3 == 0
			PRINTL
	ENDSELECT
NEXT
SIF NEXT_LINE%3
	PRINTL
PRINTL

IF COND("脚の使用")
	IF EQUIP:襪子
		PRINTFORML  [90] %SOCKS(TARGET)%を脱いでもらう
	ELSE
		CALL PRINT_STRL, "暗灰色_ [×] 請求脫去袜子"
	ENDIF
	IF EQUIP:靴
		PRINTFORML  [91] %SHOES(TARGET)%を脱いでもらう
	ELSE
		CALL PRINT_STRL, "暗灰色_ [×] 請求脫去鞋子"
	ENDIF
ENDIF

IF EQUIP:手套
	PRINTFORML  [92] 拜托脱掉%GLOVE(TARGET)%
ELSE
	CALL PRINT_STRL, "暗灰色_ [×] 請求脫去手套"
ENDIF
PRINTFORML [100] 返回

$INPUT_LOOP
INPUT

CHOICE = RESULT

IF CHOICE == 100
	RETURN 0
ELSEIF CHOICE == 90 && EQUIP:襪子
	CALL SET_SOCKS, ""
ELSEIF CHOICE == 91 && EQUIP:靴
	CALL SET_SHOES, ""
ELSEIF CHOICE == 92 && EQUIP:手套
	CALL SET_GLOVE, ""
ELSEIF CHOICE >= 0 && CHOICE <= 19 && NAME_SOCKS(CHOICE) != "" && COND("脚の使用")
	IF SOCKS(TARGET) == NAME_SOCKS(CHOICE)
		CALL SET_SOCKS, ""
	ELSE
		CALL SET_SOCKS, NAME_SOCKS(CHOICE)
		SELECTCASE NAME_SOCKS(CHOICE)
		CASE "短襪"
			PRINTFORMW 白色的布襪。
		CASE "膝下襪"
			PRINTFORMW 藏青色的膝下襪。
		CASE "及膝襪"
			PRINTFORMW 形成了絕妙的絕對領域的過膝長襪。
		CASE "高筒襪"
			PRINTFORMW 一直覆蓋到大腿中部的高筒襪。
		CASE "長筒襪"
			PRINTFORMW 覆蓋整個纖細雙腿的富含魅力的長筒襪。
		CASE "网纹長筒襪"
			PRINTFORMW 有著細密網眼的性感長筒襪。
		CASE "吊帯長筒襪"
			PRINTFORMW 將華麗感和淫靡感完美的融為一體的吊帶長筒襪。
		CASE "吊帯襪"
			PRINTFORMW 可愛的情趣吊带内衣で吊られた及膝襪を是てもらいました
		CASE "短布襪"
			PRINTFORMW 無垢的純白短布襪。
		CASE "褶边襪"
			PRINTFORMW 有著褶邊作為装飾的長筒襪。
		CASEELSE
			PRINTFORMW 穿上了%SOCKS(TARGET)%。
		ENDSELECT
	ENDIF
ELSEIF CHOICE >= 20 && CHOICE <= 39 && NAME_SHOES(CHOICE - 20) != "" && COND("脚の使用")
	IF SHOES(TARGET) == NAME_SHOES(CHOICE - 20)
		CALL SET_SHOES, ""
	ELSE
		CALL SET_SHOES, NAME_SHOES(CHOICE - 20)
		PRINTFORMW %SHOES(TARGET)%を履いてもらいました
	ENDIF
ELSEIF CHOICE >= 40 && CHOICE <= 59 && NAME_GLOVE(CHOICE - 40) != ""
	IF GLOVE(TARGET) == NAME_GLOVE(CHOICE - 40)
		CALL SET_GLOVE, ""
	ELSE
		CALL SET_GLOVE, NAME_GLOVE(CHOICE - 40)
		SELECTCASE NAME_GLOVE(CHOICE - 40)
		CASE "絲綢手套"
			PRINTFORMW 手感極好的絲綢手套。
		CASE "礼服手套"
			PRINTFORMW 一直覆蓋到上臂的一半的、手感很好的長手套。
		CASE "皮革袖套"
			PRINTFORMW 各處都有鉚釘装飾著的、革制的長手套。
		CASE "礼服袖套"
			PRINTFORMW 從中指和掌面覆蓋到上臂的、装飾精美的禮服袖。
		CASEELSE
			PRINTFORMW 戴上了%GLOVE(TARGET)%。
		ENDSELECT
	ENDIF
ELSE
	GOTO INPUT_LOOP
ENDIF

CLEARLINE LINECOUNT - MEMO_LINECOUNT
RESTART

;-------------------------------------------------
;メガネなど其他小物に関する関数
;-------------------------------------------------
@SELECT_OTHER
#DIM LCOUNT
#DIM MEMO_LINECOUNT
#DIM CHOICE
#DIM NEXT_LINE

MEMO_LINECOUNT = LINECOUNT

PRINTL
CALL PRINT_MAIDFACE, TARGET
CALL PRINT_STRL, @"身に着けている物は_黄色_色が変わり_、選択する事で外せます。\@ CONFIG("颜绘ＯＮ") ? ものによっては颜绘に変化が起きます。 # \@"
PRINTFORM 現在:

VARSET LOCALS
IF EQUIP:飾品
	SPLIT CSTR:飾品, "/", LOCALS
	FOR LCOUNT, 0, 10
		SIF LOCALS:LCOUNT != ""
			PRINTFORM [%LOCALS:LCOUNT%]
	NEXT
	PRINTL
ELSE
	PRINTFORML 没有
ENDIF
PRINTL

NEXT_LINE = 0
FOR LCOUNT, 0, 90
	SELECTCASE NAME_OTHER(LCOUNT)
	CASE ""
		CONTINUE
	CASEELSE
		SELECTCASE LCOUNT
		CASE 20, 30, 50, 60, 70
			SIF NEXT_LINE%3
				PRINTL
			NEXT_LINE = 0
		ENDSELECT
		SELECTCASE LCOUNT
		CASE 0
			PRINTFORML ・頭部飾品
		CASE 20
			PRINTFORML ・眼鏡
		CASE 30
			PRINTFORML ・帽子
		CASE 50
			PRINTFORML ・饰耳
		CASE 60
			PRINTFORML ・髪飾
		CASE 70
			PRINTFORML ・外套、其他
		ENDSELECT

		SIF STRCOUNT(@"\/%CSTR:飾品%", @"\/%NAME_OTHER(LCOUNT)%\/")
			SETCOLOR DEF_COLOR("黄色")
		PRINTFORM  [{LCOUNT, 2}] %TEXT_LJ(NAME_OTHER(LCOUNT), 20)%
		RESETCOLOR

		NEXT_LINE += 1
		SIF NEXT_LINE%3 == 0
			PRINTL
	ENDSELECT
NEXT
PRINTL
IF EQUIP:飾品
	PRINTFORML  [99] 全部取下
ELSE
	CALL PRINT_STRL, "暗灰色_ [×] 全部取下"
ENDIF
PRINTFORML [100] 返回

$INPUT_LOOP
INPUT

CHOICE = RESULT

IF CHOICE == 100
	RETURN 0
ELSEIF CHOICE == 99 && EQUIP:飾品
	CALL SET_OTHER, ""
ELSEIF NAME_OTHER(CHOICE) != ""
	;すでに身に着けているものと完全一致したものを選んだら取下
	CALL INVERTSET_OTHER, NAME_OTHER(CHOICE)
ELSE
	GOTO INPUT_LOOP
ENDIF

CLEARLINE LINECOUNT - MEMO_LINECOUNT
RESTART


code:
;-------------------------------------------------
;0～29番,愛撫系やソフト指令
;-------------------------------------------------
@COM_ABLE0
;愛撫実行判定
SIF COMABLE_DEF(0)
	RETURN 0
SIF COND("指の使用", PLAYER) == 0
	RETURN 0
RETURN 1

@COM_ABLE1
;舐陰実行判定
SIF COMABLE_DEF(1)
	RETURN 0
SIF TALENT:男性
	RETURN 0
IF TEQUIP:推倒
	SIF TEQUIP:振動棒 || TEQUIP:肛用振動棒
		RETURN 0
ELSE
	SIF CHECK_OUTER("休闲褲") && !CHECK_CLO("Ｖ露出可")
		RETURN 0
ENDIF
RETURN 1

@COM_ABLE2
;肛門愛撫実行判定
SIF COMABLE_DEF(2)
	RETURN 0
SIF COND("指の使用", PLAYER) == 0
	RETURN 0
;肛塞使用中はダメ
SIF TEQUIP:肛塞
	RETURN 0
;肛門剥き出しにできないとダメ
SIF !CHECK_CLO("Ａ露出可")
	RETURN 0
RETURN 1

@COM_ABLE3
;自慰実行判定
SIF COMABLE_DEF(3)
	RETURN 0
;縄・拘束中で手が使えない時はダメ
SIF GETBIT(TEQUIP:拘束, 20) || STATE("バインド：手")
	RETURN 0
;振動棒に余裕が無い時はダメ
SIF TEQUIP:振動棒 && CHECK("振動棒") == 0
	RETURN 0
SIF TEQUIP:肛用振動棒 && CHECK("Ａ振動棒") == 0
	RETURN 0
CALL COM_ORDER_COM3, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE4
;舐陰莖実行判定
SIF COMABLE_DEF(4)
	RETURN 0
;阴部剥き出しにできないとダメ
SIF !CHECK_CLO("Ｖ露出可")
	RETURN 0
;男性か扶她じゃないとダメ
SIF PENIS(TARGET) == 0
	RETURN 0
RETURN 1

@COM_ABLE5
;胸愛撫実行判定
SIF COMABLE_DEF(5)
	RETURN 0
RETURN 1

@COM_ABLE6
;接吻実行判定
SIF COMABLE_DEF(6)
	RETURN 0
SIF COND("合意：接吻") == 0
	RETURN 0
;被逆推ているとダメ…接吻経験が豊富（接吻好き）or恋慕なら良し！
SIF TEQUIP:推倒 && TALENT:恋慕 == 0 && EXP:接吻経験 < 20
	RETURN 0
;口球使用中は不可
SIF TEQUIP:口枷
	RETURN 0
CALL COM_ORDER_COM6, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE7
;阴部愛撫実行判定
SIF COMABLE_DEF(7)
	RETURN 0
IF TALENT:男性
	RETURN 0
ELSEIF TALENT:扶她
	IF CHECK_COM("擦拭", 7)
	ELSEIF TEQUIP:振動棒 || INSERT("Ｖ挿入") || INSERT("挿入中")
		RETURN 0
	ENDIF
ENDIF
RETURN 1

@COM_ABLE8
;指挿入実行判定
SIF COMABLE_DEF(8)
	RETURN 0
SIF COND("指の使用", PLAYER) == 0
	RETURN 0
;阴部使用判定（例外的に振動棒はＯＫ）
SIF USE_V(TARGET, "振動棒") == 0
	RETURN 0
;処女だとだめ
SIF TALENT:処女
	RETURN 0
RETURN 1

@COM_ABLE9
;舐肛実行判定
SIF COMABLE_DEF(9)
	RETURN 0
;肛門使用判定
SIF USE_A(TARGET) == 0
	RETURN 0
RETURN 1

@COM_ABLE10
;手淫実行判定
SIF COMABLE_DEF(10)
	RETURN 0
;阴部剥き出しにできないとダメ
SIF !CHECK_CLO("Ｖ露出可")
	RETURN 0
;縄・拘束中で手が使えない時はダメ
SIF COND("指の使用", PLAYER) == 0
	RETURN 0
;男性か扶她じゃないとダメ
SIF PENIS(TARGET) == 0
	RETURN 0
RETURN 1

@COM_ABLE11
;给对方乳交実行判定
SIF COMABLE_DEF(11)
	RETURN 0
;調教者が男性だとダメ
SIF TALENT:PLAYER:男性
	RETURN 0
;縄・拘束中で手が使えない時はダメ
SIF COND("指の使用", PLAYER) == 0
	RETURN 0
;調教者が貧乳だとダメ
SIF TALENT:PLAYER:貧乳
	RETURN 0
;阴部剥き出しにできないとダメ
SIF !CHECK_CLO("Ｖ露出可")
	RETURN 0
;男性か扶她じゃないとダメ
SIF PENIS(TARGET) == 0
	RETURN 0
RETURN 1

@COM_ABLE12
;给对方足交実行判定
SIF COMABLE_DEF(12)
	RETURN 0
;阴部剥き出しにできないとダメ
SIF !CHECK_CLO("Ｖ露出可")
	RETURN 0
;ちんこがない場合には難易度が高い
SIF PENIS(TARGET) == 0 && ABL:受虐属性 < 2
	RETURN 0
RETURN 1

@COM_ABLE13
;扒開阴道
SIF COMABLE_DEF(13)
	RETURN 0
;阴部使用判定
SIF USE_V(TARGET) == 0
	RETURN 0
CALL COM_ORDER_COM13, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE14
;扒開菊穴
SIF COMABLE_DEF(14)
	RETURN 0
;肛門使用判定
SIF USE_A(TARGET) == 0
	RETURN 0

CALL COM_ORDER_COM14, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE15
;尿道指挿入実行判定
SIF COMABLE_DEF(15)
	RETURN 0
SIF COND("指の使用", PLAYER) == 0
	RETURN 0
;阴部剥き出しにできないとダメ
SIF !CHECK_CLO("Ｖ露出可")
	RETURN 0
;导管使用中はダメ
SIF TEQUIP:导管
	RETURN 0
;指を余裕で接受ことが出来ないとダメ(指の直径+1)mmの拡張度が必要
SIF CALCF("尿道径") <= SIZE("指の直径", PLAYER)
	RETURN 0
RETURN 1

@COM_ABLE16
RETURN 0

@COM_ABLE17
RETURN 0

@COM_ABLE18
RETURN 0

@COM_ABLE19
RETURN 0

;-------------------------------------------------
;30～59番,道具系調教指令
;-------------------------------------------------
@COM_ABLE30
;跳蛋実行判定
SIF COMABLE_DEF(30)
	RETURN 0
SIF PENIS(TARGET)
	RETURN 0
;道具を持っていないとダメ
SIF ITEM:跳蛋 == 0
	RETURN 0
RETURN 1

@COM_ABLE31
;振動棒実行判定
SIF COMABLE_DEF(31)
	RETURN 0
SIF TALENT:男性
	RETURN 0
;道具を持っていないとダメ
SIF ITEM:振動棒套装 == 0
	RETURN 0
;阴部使用判定
SIF USE_V(TARGET, "振動棒") == 0
	RETURN 0
RETURN 1

@COM_ABLE32
RETURN 0

@COM_ABLE33
;肛用振動棒実行判定
SIF COMABLE_DEF(33)
	RETURN 0
;道具を持っていないとダメ
SIF ITEM:肛用振動棒 == 0
	RETURN 0
;肛門使用判定
SIF USE_A(TARGET, "肛用振動棒") == 0
	RETURN 0
RETURN 1

@COM_ABLE34
;肛塞実行判定
SIF COMABLE_DEF(34)
	RETURN 0
;現在は肛塞使用中or使う必要がある場合じゃないとダメ
IF TEQUIP:肛塞 == 0
	SIF TEQUIP:浣腸 == 0
		RETURN 0
ENDIF
;肛門使用判定
SIF USE_A(TARGET, "肛塞") == 0
	RETURN 0
RETURN 1

@COM_ABLE35
RETURN 0

@COM_ABLE36
RETURN 0

@COM_ABLE37
;飛機杯実行判定
SIF COMABLE_DEF(37)
	RETURN 0
;道具を持っていないとダメ
SIF ITEM:飞机杯 == 0
	RETURN 0
;男性や扶她じゃないとダメ
SIF PENIS(TARGET) == 0
	RETURN 0
;阴部剥き出しにできないとダメ
SIF !CHECK_CLO("Ｖ露出可")
	RETURN 0
RETURN 1

@COM_ABLE38
RETURN 0

@COM_ABLE39
RETURN 0

license: unknown


code:
;-------------------------------------------------
;60番台,性交系指令
;-------------------------------------------------
@COM_ABLE60
;正常位実行判定
SIF COMABLE_DEF(60)
	RETURN 0
RETURN 1

@COM_ABLE61
;後背位実行判定
SIF COMABLE_DEF(61)
	RETURN 0
RETURN 1

@COM_ABLE62
;屈曲位実行判定
SIF COMABLE_DEF(62)
	RETURN 0
;拉米亚等、足が無い人はダメ
SIF COND("脚が無い")
	RETURN 0
;体位が正常位か屈曲位か挿入前でないとダメ（今後無くすかも）
IF INSERT("挿入") == 0 || INSERT("正常位") || INSERT("屈曲位")
ELSE
	RETURN 0
ENDIF
RETURN 1

@COM_ABLE63
;対面座位実行判定
SIF COMABLE_DEF(63)
	RETURN 0

RETURN 1

@COM_ABLE64
;背面座位実行判定
SIF COMABLE_DEF(64)
	RETURN 0
RETURN 1

@COM_ABLE65
;騎乗位実行判定
SIF COMABLE_DEF(65)
	RETURN 0
;調教者が男性か扶她じゃないとダメ
SIF PENIS(PLAYER) == 0
	RETURN 0
;推倒中
IF TEQUIP:推倒
	;処女を散らすには恋慕or不在乎貞操が必要
	SIF TALENT:処女 && TALENT:恋慕 + TALENT:不在乎貞操 == 0
		RETURN 0
	;損傷中
	SIF TALENT:Ｖ損傷
		RETURN 0
ENDIF
CALL COM_ORDER_COM65, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE66
;挿入刺激Ｇ点実行判定
SIF COMABLE_DEF(66)
	RETURN 0
SIF COND("前Ｔ調教者") != PLAYER || INSERT("Ｖ挿入") == 0
	RETURN 0
;一時的に封印
SIF COND("３Ｐ") || PREVCOM:2 >= 0
	RETURN 0
;技術的な問題
IF TEQUIP:推倒
	SIF ABL:技巧 + ABL:腰靈活 <= 2 || ABL:Ｖ感覚 < 3 || EXP:Ｖ性交経験 < 20 || EXP:腰靈活経験 < 20
		RETURN 0
ELSE
	SIF ABL:PLAYER:技巧 + ABL:PLAYER:腰靈活 <= 2
		RETURN 0
ENDIF
RETURN 1

@COM_ABLE67
;挿入子宮口玩弄実行判定
SIF COMABLE_DEF(67)
	RETURN 0
SIF COND("前Ｔ調教者") != PLAYER || INSERT("Ｖ挿入") == 0
	RETURN 0
;一時的に封印
SIF COND("３Ｐ") || PREVCOM:2 >= 0
	RETURN 0
;技術的な問題
IF TEQUIP:推倒
	SIF ABL:技巧 + ABL:腰靈活 <= 2 || ABL:Ｖ感覚 < 3 || EXP:Ｖ性交経験 < 20 || EXP:腰靈活経験 < 20
		RETURN 0
ELSE
	SIF MIN(ABL:PLAYER:技巧, ABL:PLAYER:腰靈活) < 3
		RETURN 0
ENDIF
;阴茎の尺寸がある程度必要
SIF SIZE("阴茎", PLAYER) == 0
	RETURN 0
;Ａでしか妊娠しない時は実行不可
SIF TALENT:Ａ妊娠体質
	RETURN 0
RETURN 1

@COM_ABLE68
SIF COMABLE_DEF(68)
	RETURN 0
;妊婦はNG
SIF TALENT:妊娠
	RETURN 0
;とりあえず挿入子宮口玩弄の条件を満たすのは必須
;CALL COM_ABLE67
;SIF RESULT == 0
;	RETURN 0
SIF COND("前Ｔ調教者") != PLAYER || INSERT("Ｖ挿入") == 0
	RETURN 0
;一時的に封印
SIF COND("３Ｐ") || PREVCOM:2 >= 0
	RETURN 0
;技術的な問題
IF TEQUIP:推倒
	SIF ABL:技巧 + ABL:腰靈活 <= 2 || ABL:Ｖ感覚 < 3 || EXP:Ｖ性交経験 < 20 || EXP:腰靈活経験 < 20
		RETURN 0
	SIF TALENT:子宮性感 == 0 || EXP:子宮姦経験 == 0
		RETURN 0
ELSE
	SIF MIN(ABL:PLAYER:技巧, ABL:PLAYER:腰靈活) < 2
		RETURN 0
ENDIF
;阴茎の尺寸がある程度必要
SIF SIZE("阴茎", PLAYER) == 0
	RETURN 0
;Ａでしか妊娠しない時は実行不可
SIF TALENT:Ａ妊娠体質
	RETURN 0
SIF COND("子宮口弛緩度") < 2 && COND("うっかり子宮挿入フラグ") == 0
	RETURN 0
RETURN 1

@COM_ABLE69
RETURN 0

;-------------------------------------------------
;70番台,Ａ性交系指令
;-------------------------------------------------
@COM_ABLE70
;正常位肛門実行判定
SIF COMABLE_DEF(70)
	RETURN 0
RETURN 1

@COM_ABLE71
;肛門性交(後背位肛門)実行判定
SIF COMABLE_DEF(71)
	RETURN 0
RETURN 1

@COM_ABLE72
;屈曲位肛門実行判定
SIF COMABLE_DEF(72)
	RETURN 0
;拉米亚等、足が無い人はダメ
SIF COND("脚が無い")
	RETURN 0
;体位が正常位か屈曲位か挿入前でないとダメ（今後無くすかも）
IF INSERT("挿入") == 0 || INSERT("正常位") || INSERT("屈曲位")
ELSE
	RETURN 0
ENDIF
RETURN 1

@COM_ABLE73
;対面座位肛門実行判定
SIF COMABLE_DEF(73)
	RETURN 0
RETURN 1

@COM_ABLE74
;背面座位肛門実行判定
SIF COMABLE_DEF(74)
	RETURN 0
RETURN 1

@COM_ABLE75
;騎乗位肛門実行判定
SIF COMABLE_DEF(75)
	RETURN 0
;調教者が男性か扶她じゃないとダメ
SIF PENIS(PLAYER) == 0
	RETURN 0
;推倒時
IF TEQUIP:推倒
	;一定のＡ経験かＡ感覚か恋慕が必要
	SIF EXP:Ａ経験 < 50 && ABL:Ａ感覚 < 3 && TALENT:恋慕 == 0
		RETURN 0
	;恋慕で無いなら、Ａ性交経験が必要
	SIF TALENT:恋慕 == 0 && EXP:Ａ性交経験 == 0
		RETURN 0
	;損傷中
	SIF TALENT:Ａ損傷
		RETURN 0
ENDIF
CALL COM_ORDER_COM75, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE76
RETURN 0

@COM_ABLE77
RETURN 0

@COM_ABLE78
RETURN 0

@COM_ABLE79
RETURN 0

;-------------------------------------------------
;80番台,特殊性交系指令
;-------------------------------------------------
@COM_ABLE80
;貝あわせ実行判定
SIF COMABLE_DEF(80)
	RETURN 0
;阴部剥き出しにできないとダメ
SIF !CHECK_CLO("Ｖ露出可")
	RETURN 0
;男性だとダメ
SIF TALENT:男性 || TALENT:PLAYER:男性
	RETURN 0
;双頭振動棒以外の振動棒挿入中はダメ(PLAYERが双頭以振动棒喪失処女するのはどうなんだろ)
IF TEQUIP:振動棒
	SIF COND("双頭振動棒") == 0
		RETURN 0
	IF TALENT:PLAYER:処女
		IF TEQUIP:推倒
			SIF ABL:施虐属性 < 3
				RETURN 0
		ELSE
		;	SIF ABL:PLAYER:受虐属性 < 3
		;		RETURN 0
		ENDIF
	ENDIF
ENDIF
RETURN 1

@COM_ABLE81
;雙乳間抽插実行判定
SIF COMABLE_DEF(81)
	RETURN 0
;胸を剥き出しにできるor胸露出でないとダメ
SIF CHECK_CLO("谷間露出") + CHECK_CLO("半脱可") == 0
	RETURN 0
;[貧乳]はダメ
SIF TALENT:貧乳 || TALENT:男性
	RETURN 0
;調教者が男性か扶她じゃないとダメ
SIF PENIS(PLAYER) == 0
	RETURN 0
SIF COND("指の使用", PLAYER) == 0
	RETURN 0
RETURN 1

@COM_ABLE82
;乳頭奸実行判定
SIF COMABLE_DEF(82)
	RETURN 0
;胸を剥き出しにできるor乳頭露出でないとダメ
SIF CHECK_CLO("乳頭露出") + CHECK_CLO("半脱可") == 0
	RETURN 0
;Configで乳頭奸可能＆巨乳＆淫乳でないとダメ
SIF COND("乳頭奸") == 0
	RETURN 0
;調教者が男性か扶她じゃないとダメ
SIF PENIS(PLAYER) == 0
	RETURN 0
IF TEQUIP:推倒
	SIF EXP:Ｂ性交経験 == 0
		RETURN 0
ENDIF
RETURN 1

@COM_ABLE83
;尿道正常位実行判定
SIF COMABLE_DEF(83)
	RETURN 0
RETURN 1

@COM_ABLE84
SIF COMABLE_DEF(84)
	RETURN 0
;阴茎だと体位的にムリ？
SIF PENIS(TARGET)
	RETURN 0
RETURN 1

@COM_ABLE85
SIF COMABLE_DEF(85)
	RETURN 0
;阴茎だと体位的にムリ？
SIF PENIS(TARGET)
	RETURN 0
;拉米亚等、足が無い人はダメ
SIF COND("脚が無い")
	RETURN 0
;体位が正常位か屈曲位か挿入前でないとダメ（今後無くすかも）
IF INSERT("挿入") == 0 || INSERT("正常位") || INSERT("屈曲位")
ELSE
	RETURN 0
ENDIF
RETURN 1

@COM_ABLE86
SIF COMABLE_DEF(86)
	RETURN 0
;阴茎だと体位的にムリ？
SIF PENIS(TARGET)
	RETURN 0
RETURN 1

@COM_ABLE87
SIF COMABLE_DEF(87)
	RETURN 0
;阴茎だと体位的にムリ？
SIF PENIS(TARGET)
	RETURN 0
RETURN 1

@COM_ABLE88
SIF COMABLE_DEF(88)
	RETURN 0
;調教者が男性か扶她じゃないとダメ
SIF PENIS(PLAYER) == 0
	RETURN 0
;阴茎だと体位的にムリ？
SIF PENIS(TARGET)
	RETURN 0
;推倒時
IF TEQUIP:推倒
	;一定のEXP:尿道経験か尿道性感が必要
	SIF EXP:尿道経験 < 50 && TALENT:尿道性感 == 0
		RETURN 0
	;尿道狂で無いなら、尿道性交経験が20必要
	SIF TALENT:尿道狂 == 0 && EXP:尿道性交経験 < 20
		RETURN 0
ENDIF
RETURN 1

@COM_ABLE89
RETURN 0


code:
;-------------------------------------------------
;90～119番,奉仕系指令
;-------------------------------------------------
@COM_ABLE90
;手淫実行判定
SIF COMABLE_DEF(90)
	RETURN 0
;調教者が男性か扶她じゃないとダメ
SIF PENIS(PLAYER) == 0
	RETURN 0

CALL COM_ORDER_COM90, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE91
;口交実行判定
SIF COMABLE_DEF(91)
	RETURN 0
;調教者が男性か扶她じゃないとダメ
SIF PENIS(PLAYER) == 0
	RETURN 0
;口球使用中は不可
SIF TEQUIP:口枷 == 1
	RETURN 0

CALL COM_ORDER_COM91, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE92
;乳交実行判定
SIF COMABLE_DEF(92)
	RETURN 0
;胸を剥き出しにできるor胸露出でないとダメ
SIF CHECK_CLO("谷間露出") + CHECK_CLO("半脱可") == 0
	RETURN 0
;男性だとダメ
;SIF TALENT:男性
;	RETURN 0
;[巨乳]でなければ技巧2以上、[貧乳]だと技巧3以上必要
IF TALENT:貧乳 || TALENT:男性
	SIF ABL:技巧 < 3
		RETURN 0
ELSEIF TALENT:巨乳 == 0
	SIF ABL:技巧 < 2
		RETURN 0
ENDIF
;調教者が男性か扶她じゃないとダメ
SIF PENIS(PLAYER) == 0
	RETURN 0

CALL COM_ORDER_COM92, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE93
;素股実行判定
SIF COMABLE_DEF(93)
	RETURN 0
;展示肉棒の時以外は、阴部剥き出しにできないとダメ
IF CHECK_COM("展示肉棒", 93)
ELSEIF CHECK_CLO("Ｖ露出可") == 0
	RETURN 0
ENDIF
;調教者が男性か扶她じゃないとダメ
SIF PENIS(PLAYER) == 0
	RETURN 0
;男性だとダメ
;SIF TALENT:男性
;	RETURN 0
;振動棒挿入中はダメ
SIF TEQUIP:振動棒
	RETURN 0

CALL COM_ORDER_COM93, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE94
;泡泡浴実行判定
SIF COMABLE_DEF(94)
	RETURN 0
;裸体でないとダメ
SIF !CHECK_CLO("裸体")
	RETURN 0
;浴室PLAY中でないとダメ
SIF TEQUIP:浴室PLAY == 0
	RETURN 0
;Ｗ推倒中なら女性でないとダメ
SIF TEQUIP:Ｗ推倒 && TALENT:男性
	RETURN 0
;振動棒挿入中はダメ
SIF TEQUIP:振動棒
	RETURN 0
;肛用振動棒挿入中はダメ
SIF TEQUIP:肛用振動棒
	RETURN 0
;口球使用中は不可
SIF TEQUIP:口枷
	RETURN 0
;眼罩使用中は不可
SIF TEQUIP:眼罩
	RETURN 0
;浣腸使用中は不可
SIF TEQUIP:浣腸
	RETURN 0

CALL COM_ORDER_COM94, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE95
;足交実行判定
SIF COMABLE_DEF(95)
	RETURN 0
;拉米亚等、足が無い人や脚が使えない状況だとダメ
SIF COND("脚の使用") == 0
	RETURN 0
;眼罩使用中は不可
SIF TEQUIP:眼罩
	RETURN 0
IF TEQUIP:推倒
	;施虐属性が必要
	SIF ABL:施虐属性 == 0
		RETURN 0
ENDIF

CALL COM_ORDER_COM95, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE96
;肛門奉仕実行判定
SIF COMABLE_DEF(96)
	RETURN 0
;口球使用中は不可
SIF TEQUIP:口枷
	RETURN 0

CALL COM_ORDER_COM96, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE97
;内褲冲実行判定
SIF COMABLE_DEF(97)
	RETURN 0
;内褲冲できる胖次じゃないとダメ
SIF CHECK_CLO("内褲冲") == 0
	RETURN 0
;調教者が男性か扶她じゃないとダメ
SIF PENIS(PLAYER) == 0
	RETURN 0

;拉米亚等、足が無い人はダメ
SIF COND("脚が無い")
	RETURN 0

CALL COM_ORDER_COM97, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE98
;奉仕舐陰実行判定
SIF COMABLE_DEF(98)
	RETURN 0
;調教者が男性だとダメ
SIF TALENT:PLAYER:男性
	RETURN 0
;口球使用中は不可
SIF TEQUIP:口枷
	RETURN 0

CALL COM_ORDER_COM98, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE99
;六九式実行判定
SIF COMABLE_DEF(99)
	RETURN 0
;解除是つでも可能
SIF TEQUIP:六九式
	RETURN 1
CALL COM_ABLE91
IF RESULT == 0
	CALL COM_ABLE98
	SIF RESULT == 0
		RETURN 0
ENDIF
CALL COM_ABLE1
IF RESULT == 0
	CALL COM_ABLE4
	SIF RESULT == 0
		RETURN 0
ENDIF

CALL COM_ORDER_COM99, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE100
;脚を舐める実行判定
SIF COMABLE_DEF(100)
	RETURN 0
;調教者の施虐属性が必要
;SIF ABL:PLAYER:施虐属性 == 0
;	RETURN 0
;調教者の施虐属性か相手の受虐属性が3LV必要
SIF MAX(ABL:受虐属性, ABL:PLAYER:施虐属性) < 3
	RETURN 0
;調教者が拉米亚等、足が無い人や脚が使えない状況だとダメ
SIF COND("脚の使用", PLAYER) == 0
	RETURN 0
SIF COND("口の使用") == 0
	RETURN 0

CALL COM_ORDER_COM100, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE101
;尻素股実行判定
SIF COMABLE_DEF(101)
	RETURN 0
;調教者が男性か扶她じゃないとダメ
SIF PENIS(PLAYER) == 0
	RETURN 0

CALL COM_ORDER_COM101, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE102
;胸爱抚奉侍実行判定
SIF COMABLE_DEF(102)
	RETURN 0

IF TALENT:PLAYER:男性
	SELECTCASE CONFIG("對男性PLAYER的胸奉仕")
	CASE 0
		RETURN 0
	CASE 1
		SIF COND("伪娘", PLAYER) == 0
			RETURN 0
	ENDSELECT
ENDIF

CALL COM_ORDER_COM102, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE103
RETURN 0

@COM_ABLE104
;洗面奶実行判定
SIF COMABLE_DEF(104)
	RETURN 0
;男性だとダメ
SIF TALENT:男性
	RETURN 0
SIF CHECK_CLO("谷間露出") + CHECK_CLO("半脱可") == 0
	RETURN 0

CALL COM_ORDER_COM104, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE105
;飞机杯冲実行判定
SIF COMABLE_DEF(105)
	RETURN 0
;道具を持っていないとダメ
SIF ITEM:飞机杯 == 0
	RETURN 0
;推倒中は技巧LV3必須
SIF TEQUIP:推倒 && ABL:技巧 < 3
	RETURN 0
;調教者が男性か扶她じゃないとダメ
SIF PENIS(PLAYER) == 0
	RETURN 0

CALL COM_ORDER_COM105, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE106
;逆振動棒実行判定
SIF COMABLE_DEF(106)
	RETURN 0
;道具を持っていないとダメ
SIF ITEM:振動棒套装 == 0
	RETURN 0
;男性だとダメ
SIF TALENT:PLAYER:男性
	RETURN 0
;手が使えないとダメ
SIF COND("指の使用") == 0
	RETURN 0
;眼罩使用中は不可
SIF TEQUIP:眼罩
	RETURN 0
;処女の時は受虐属性が必要
;IF TALENT:PLAYER:処女
;	SIF ABL:PLAYER:受虐属性 < 3
;		RETURN 0
;ENDIF

CALL COM_ORDER_COM106, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE107
;逆Ａ振動棒実行判定
SIF COMABLE_DEF(107)
	RETURN 0
;道具を持っていないとダメ
SIF ITEM:肛用振動棒 == 0
	RETURN 0
;手が使えないとダメ
SIF COND("指の使用") == 0
	RETURN 0
;眼罩使用中は不可
SIF TEQUIP:眼罩
	RETURN 0

CALL COM_ORDER_COM107, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE108
RETURN 0

@COM_ABLE109
RETURN 0


code:
;-------------------------------------------------
;120番台,調教者性交系指令
;-------------------------------------------------
@COM_ABLE120
;正常位奉仕
SIF COMABLE_DEF(120)
	RETURN 0
;調教者が男性だとダメ
SIF TALENT:PLAYER:男性
	RETURN 0
;阴茎有
IF PENIS(TARGET)
	;阴茎を使う時には股間が露出できないとダメ
	SIF !CHECK_CLO("Ｖ露出可")
		RETURN 0
;阴茎无
ELSE
	;穿戴式假陰茎がないとダメ
	SIF COND("假阳具") == 0
		RETURN 0
ENDIF
IF TEQUIP:推倒
	;施虐属性が必要
	SIF ABL:施虐属性 == 0
		RETURN 0
	SIF TALENT:PLAYER:処女 && ABL:施虐属性 < 3
		RETURN 0
ENDIF
CALL COM_ORDER_COM120, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE121
;後背位奉仕
SIF COMABLE_DEF(121)
	RETURN 0
SIF TEQUIP:推倒
	RETURN 0
;調教者が男性だとダメ
SIF TALENT:PLAYER:男性
	RETURN 0
;阴茎有
IF PENIS(TARGET)
	;阴茎を使う時には股間が露出できないとダメ
	SIF !CHECK_CLO("Ｖ露出可")
		RETURN 0
;阴茎无
ELSE
	;穿戴式假陰茎がないとダメ
	SIF COND("假阳具") == 0
		RETURN 0
ENDIF

CALL COM_ORDER_COM121, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE122
;騎乗位侵犯
SIF COMABLE_DEF(122)
	RETURN 0
SIF TEQUIP:推倒
	RETURN 0
;調教者が男性だとダメ
SIF TALENT:PLAYER:男性
	RETURN 0
;阴茎有
IF PENIS(TARGET)
	;阴茎を使う時には股間が露出できないとダメ
	SIF !CHECK_CLO("Ｖ露出可")
		RETURN 0
;阴茎无
ELSE
	;穿戴式假陰茎がないとダメ
	SIF COND("假阳具") == 0
		RETURN 0
ENDIF
;SIF ABL:PLAYER:Ｖ拡張 < SIZE("阴茎", TARGET) || EXP:PLAYER:Ｖ経験 < 20 || EXP:PLAYER:Ｖ性交経験 < 5
;	RETURN 0
RETURN 1

@COM_ABLE123
RETURN 0

@COM_ABLE124
RETURN 0

@COM_ABLE125
;Ａ正常位奉仕実行判定
SIF COMABLE_DEF(125)
	RETURN 0
SIF TEQUIP:推倒
	RETURN 0
;阴茎有
IF PENIS(TARGET)
	;阴茎を使う時には股間が露出できないとダメ
	SIF !CHECK_CLO("Ｖ露出可")
		RETURN 0
;阴茎无
ELSE
	;穿戴式假陰茎がないとダメ
	SIF COND("假阳具") == 0
		RETURN 0
ENDIF

CALL COM_ORDER_COM125, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE126
;Ａ後背位奉仕実行判定
SIF COMABLE_DEF(126)
	RETURN 0
;阴茎有
IF PENIS(TARGET)
	;阴茎を使う時には股間が露出できないとダメ
	SIF !CHECK_CLO("Ｖ露出可")
		RETURN 0
;阴茎无
ELSE
	;穿戴式假陰茎がないとダメ
	SIF COND("假阳具") == 0
		RETURN 0
ENDIF

IF TEQUIP:推倒
	;施虐属性が必要
	SIF ABL:施虐属性 == 0
		RETURN 0
	SIF TALENT:PLAYER:Ａ処女 && ABL:施虐属性 < 3
		RETURN 0
ENDIF
CALL COM_ORDER_COM126, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE127
;Ａ騎乗位侵犯実行判定
SIF COMABLE_DEF(127)
	RETURN 0
SIF TEQUIP:推倒
	RETURN 0
;阴茎有
IF PENIS(TARGET)
	;阴茎を使う時には股間が露出できないとダメ
	SIF !CHECK_CLO("Ｖ露出可")
		RETURN 0
;阴茎无
ELSE
	;穿戴式假陰茎がないとダメ
	SIF COND("假阳具") == 0
		RETURN 0
ENDIF

;SIF ABL:PLAYER:Ａ拡張 < SIZE("阴茎", TARGET) || EXP:PLAYER:Ａ経験 < 50 || EXP:PLAYER:Ａ性交経験 < 20
;	RETURN 0
RETURN 1

@COM_ABLE128
RETURN 0

@COM_ABLE129
RETURN 0

;-------------------------------------------------
;130～159番,SM系orハードな指令
;-------------------------------------------------
@COM_ABLE130
;打屁股実行判定
SIF COMABLE_DEF(130)
	RETURN 0
RETURN 1

@COM_ABLE132
;鼻钩実行判定
SIF COMABLE_DEF(132)
	RETURN 0
;解除是つでも可能
SIF TEQUIP:鼻钩
	RETURN 1
;道具を持っていないとダメ
SIF ITEM:拘束具 == 0
	RETURN 0
RETURN 1

@COM_ABLE133
;眼罩実行判定
SIF COMABLE_DEF(133)
	RETURN 0
;解除是つでも可能
SIF TEQUIP:眼罩
	RETURN 1
;道具を持っていないとダメ
SIF ITEM:拘束具 == 0
	RETURN 0
RETURN 1

@COM_ABLE134
;縄実行判定
SIF COMABLE_DEF(134)
	RETURN 0
;解除是つでも可能
SIF TEQUIP:拘束
	RETURN 1
;道具を持ってい無いとダメ
SIF ITEM:拘束具 == 0
	RETURN 0
;助手は技巧5でないとダメ
IF ASSIPLAY
	SIF ABL:ASSI:技巧 <= 4
		RETURN 0
ENDIF
RETURN 1

@COM_ABLE135
;口枷実行判定
SIF COMABLE_DEF(135)
	RETURN 0
;解除是つでも可能
SIF TEQUIP:口枷
	RETURN 1
;道具を持っていないとダメ
SIF ITEM:拘束具 == 0
	RETURN 0
;ASSIの場合、技巧3以上じゃないと使えない。
IF ASSIPLAY
	SIF ABL:ASSI:技巧 < 3
		RETURN 0
ENDIF
RETURN 1

@COM_ABLE136
;浣腸実行判定
SIF COMABLE_DEF(136)
	RETURN 0
;道具を持っていないとダメ
SIF ITEM:浣腸 == 0
	RETURN 0
;解除、追加是つでも可能
IF TEQUIP:浣腸 && COND("肛門栓")
	SIF COND("精液浣腸")
		RETURN 0
	RETURN 1
ELSE
	SIF COND("液体浣腸") >= 4
		RETURN 0
ENDIF
;肛門使用判定
SIF USE_A(TARGET, "浣腸") == 0
	RETURN 0
RETURN 1

@COM_ABLE138
;让对方浴尿実行判定（と是え今のところは口か膣か腸内への放尿のみ）
SIF COMABLE_DEF(138)
	RETURN 0
;避孕套つけてるとできない
SIF TEQUIP:PLAYER:避孕套
	RETURN 0
;PLAYヤーの施虐属性が必須
;SIF ABL:PLAYER:施虐属性 == 0
;	RETURN 0
SIF ABL:PLAYER:施虐属性 < 3 && ABL:受虐属性 < 3
	RETURN 0
;尿意が溜まってる？
SIF BASE:PLAYER:尿意 < 5000
	RETURN 0
;膣内放尿が可能かつ前回子宮挿入なら子宮内放尿になる
SIF CHECK_COM("口内放尿", 138) || CHECK_COM("膣内放尿", 138) || CHECK_COM("温泉浣腸", 138) || CHECK_COM("乳内放尿", 138) || CHECK_COM("膀胱内放尿", 138)
	RETURN 1
RETURN 0

@COM_ABLE139
;什麼也不做実行判定
SIF COMABLE_DEF(139)
	RETURN 0
;主人以外は不可にすべきかどうか
;SIF PLAYER != MASTER
;	RETURN 0
;連続実行は無理
SIF PREVCOM == 139
	RETURN 0
SIF COND("前Ｔと同ペア") == 0
	RETURN 0
;３Ｐ中はとりあえず封印
SIF COND("３Ｐ")
	RETURN 0
;ビデオ中も封印
SIF TEQUIP:攝像機
	RETURN 0
RETURN 1

@COM_ABLE140
;強制口交実行判定
SIF COMABLE_DEF(140)
	RETURN 0
;調教者が男性か扶她or假阳具がないとダメ
SIF PENIS(PLAYER) == 0 && COND("假阳具", PLAYER) == 0
	RETURN 0
;口球使用中は不可
SIF TEQUIP:口枷 == 1
	RETURN 0
;信頼+欲望が6以上、環形口枷装着、喉LVが高いでないとダメ
SIF ABL:信頼 + ABL:欲望 < 6 && TEQUIP:口枷 != 2 && CHECK("喉姦") < 2
	RETURN 0

CALL COM_ORDER_COM140, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE141
;拳交
SIF COMABLE_DEF(141)
	RETURN 0
;Ｖ拡張LVが拳のサイズに匹敵していないと実行できない
SIF SIZE("片手フィスト", PLAYER) - (ABL:Ｖ拡張 + TEQUIP:弛緩/2) >= 2
	RETURN 0
RETURN 1

@COM_ABLE142
;肛門拳交
SIF COMABLE_DEF(142)
	RETURN 0
;Ａ拡張LVが拳のサイズに匹敵していないと実行できない
SIF SIZE("片手フィスト", PLAYER) - (ABL:Ａ拡張 + TEQUIP:弛緩/2) >= 2
	RETURN 0
RETURN 1

@COM_ABLE143
;両穴拳交
SIF COMABLE_DEF(143)
	RETURN 0
;ＶＡ拳交が出来ないとダメ
CALL COM_ABLE141
SIF RESULT == 0
	RETURN 0
CALL COM_ABLE142
SIF RESULT == 0
	RETURN 0
;Ｖ拡張LVが拳のサイズに匹敵していないと実行できない
SIF SIZE("Ｗフィスト", PLAYER) - (ABL:Ｖ拡張 + TEQUIP:弛緩/3) >= 2
	RETURN 0
;Ａ拡張LVが拳のサイズに匹敵していないと実行できない
SIF SIZE("Ｗフィスト", PLAYER) - (ABL:Ａ拡張 + TEQUIP:弛緩/3) >= 2
	RETURN 0
RETURN 1

@COM_ABLE144
;放尿実行判定
SIF COMABLE_DEF(144)
	RETURN 0
;尿道が塞がっているとダメ
SIF TEQUIP:尿道振動棒
	RETURN 0
;尿意ゲージが5000以上でないとダメ
SIF BASE:尿意 < 5000
	RETURN 0
;強制放尿は条件アリ
IF CHECK_COM("強制放尿", 144)
	;相手が阴茎持ちだと強制放尿は無理
	SIF PENIS(TARGET)
		RETURN 0
ENDIF
;推倒の時には聖水PLAYになる（とりあえず女性のみ）
IF TEQUIP:推倒
	SIF TEQUIP:面部騎乗 == 0 || PENIS(TARGET) || TEQUIP:Ｗ推倒
		RETURN 0
	SIF ABL:施虐属性 == 0 || ABL:露出癖 == 0 || ABL:欲望 < 3
		RETURN 0
	SIF ABL:施虐属性 < 2 && TALENT:倒錯的 == 0
		RETURN 0
ENDIF

CALL COM_ORDER_COM144, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE145
;剃毛実行判定
SIF COMABLE_DEF(145)
	RETURN 0
;推倒ている時or女王様PLAYの時にはPLAYERの陰毛を剃ります！
IF TEQUIP:推倒 || TEQUIP:女王様PLAY
	SIF TEQUIP:PLAYER:振動棒
		RETURN 0
	;技巧2LV、施虐属性 >= 3、PLAYERに毛が生えていないとダメ
	SIF COND("陰毛", PLAYER) <= 3 || ABL:技巧 < 2 || ABL:施虐属性 < 3
		RETURN 0
ELSE
	SIF TEQUIP:振動棒
		RETURN 0
	;毛が生えていないとダメ
	SIF COND("剃毛可能") == 0
		RETURN 0
	;阴部剥き出しにできないとダメ
	SIF !CHECK_CLO("Ｖ露出可")
		RETURN 0

	CALL COM_ORDER_COM145, 1
	RETURN LIMIT(RESULT, 0, 1)
ENDIF
RETURN 1

@COM_ABLE146
;各調教で一度だけ
SIF COND("調教中") && CHOSECOM(146)
	RETURN 0
;身嗜管理実行判定
SIF COMABLE_DEF(146)
	RETURN 0
;何か指示できる状態でないとダメ
IF MARK:屈服刻印 >= 2
ELSEIF CONFIG("陰毛") && MARK:屈服刻印 >= 1 && COND("陰毛") >= 2
ELSEIF CONFIG("腋毛") && MARK:屈服刻印 >= 1 && COND("腋毛") >= 2
ELSEIF PENIS(TARGET) && COND("真性包茎") == 0 && MARK:屈服刻印 >= 1
ELSE
	RETURN 0
ENDIF
CALL COM_ORDER_COM146, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE147
;精飲実行判定
SIF COMABLE_DEF(147)
	RETURN 0
;口球しているとダメ
SIF TEQUIP:口枷 == 1
	RETURN 0
;精液がたまっていないとダメ
SIF ITEM:套套内精液 == 0
	RETURN 0

CALL COM_ORDER_COM147, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE148
;穿环実行判定
SIF COMABLE_DEF(148)
	RETURN 0
;道具がないとダメ
SIF ITEM:穿环套装 == 0
	RETURN 0
;你専用
SIF PLAYER != MASTER
	RETURN 0

CALL COM_ORDER_COM148, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE149
;导管実行判定
SIF COMABLE_DEF(149)
	RETURN 0
;道具を持っていないとダメ
SIF ITEM:导管 == 0
	RETURN 0
;阴部剥き出しにできないとダメ
SIF !CHECK_CLO("Ｖ露出可")
	RETURN 0
CALL COM_ORDER_COM149, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE150
;深喉実行判定
SIF COMABLE_DEF(150)
	RETURN 0
;解除させるの是つでも
SIF TEQUIP:深喉
	RETURN 1
;調教者にちんこが無いとダメ
SIF PENIS(PLAYER) == 0
	RETURN 0
;口球使用中は不可
SIF TEQUIP:口枷 == 1
	RETURN 0
;阴茎が小さいとダメ
SIF SIZE("阴茎", PLAYER) == 0
	RETURN 0
;喉姦可能で無いとダメ（今後変えるかも）
SIF CHECK("喉姦") == 0
	RETURN 0

CALL COM_ORDER_COM150, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE151
;尿道探针実行判定
SIF COMABLE_DEF(151)
	RETURN 0
;道具を持っていないとダメ
SIF ITEM:尿道探针 == 0
	RETURN 0
;阴部剥き出しにできないとダメ
SIF !CHECK_CLO("Ｖ露出可")
	RETURN 0
;尿道を使用済みだとダメ
SIF TEQUIP:导管 || TEQUIP:尿道振動棒
	RETURN 0

CALL COM_ORDER_COM151, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE152
;尿道振動棒実行判定
SIF COMABLE_DEF(152)
	RETURN 0
;道具を持っていないとダメ
SIF ITEM:振動棒套装 == 0
	RETURN 0
;阴部剥き出しにできないとダメ
SIF !CHECK_CLO("Ｖ露出可")
	RETURN 0
;导管使用中はダメ
SIF TEQUIP:导管
	RETURN 0
;既に使用中なら拔出だけなのでＯＫ
SIF TEQUIP:尿道振動棒
	RETURN 1
;尿道拡張LVが-1以上じゃないとダメ
SIF ABL:尿道拡張 <= -2
	RETURN 0

CALL COM_ORDER_COM152, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE153
RETURN 0

@COM_ABLE154
RETURN 0

@COM_ABLE155
RETURN 0

@COM_ABLE156
RETURN 0

@COM_ABLE157
RETURN 0

@COM_ABLE158
;写真撮影実行判定　女你にはあまり対応してないかも…
SIF COMABLE_DEF(158)
	RETURN 0
;連続実行は駄目
SIF STR:前回指令 == "写真撮影"
	RETURN 0
;SIF PLAYER != MASTER
;	RETURN 0
SIF COND("前Ｔと同ペア") == 0
	RETURN 0
SIF COND("合意：Ｈ的写真") == 0 && EQUIP:Ｈ的奖励 == 0
	RETURN 0
;前ターン挿入してた場合可能　ハメ撮りや事後に分岐
SIF PREVPLAY("挿入")
	RETURN 1
;お掃除後も可能
SIF PREVPLAY("清洁口交")
	RETURN 1
;口に出しても可能
SIF PREVEX("口内射精")
	RETURN 1
;展示肉棒後も可能
SIF PREVPLAY("展示肉棒")
	RETURN 1
;前回指令依存
SELECTCASE PREVCOM
CASE TNUM("自慰")
	RETURN 1
;女你は指挿れ絶頂時も可能
CASE TNUM("指挿入")
	SIF TALENT:PLAYER:女性 && PREVEX("Ｖ絶頂")
		RETURN 1
;くぱぁ後も可能
CASE TNUM("扒開阴道"), TNUM("扒開菊穴")
	SIF STR:青写真 != ""
		RETURN 1
;尿道系後も可能
CASE TNUM("尿道探针")
	RETURN 1
;磨鏡後絶頂時も可能
CASE TNUM("磨鏡")
	SIF PREVEX("Ｃ絶頂")
		RETURN 1
ENDSELECT

RETURN 0


code:
;-------------------------------------------------
;170～199番,～PLAY等舞台作成指令
;-------------------------------------------------
@COM_ABLE170
;视频拍摄実行判定
SIF COMABLE_DEF(170)
	RETURN 0
;解除是つでも可能
SIF TEQUIP:攝像機
	RETURN 1
;初期partnerのみ
SIF TARGET != FLAG:調教開始時の対象
	RETURN 0
;推倒の時には解除のみ可能
SIF TEQUIP:推倒 && TEQUIP:攝像機 == 0
	RETURN 0
;照相机を持っていないとダメ
SIF ITEM:撮影機材 == 0
	RETURN 0
RETURN 1

@COM_ABLE171
;仕様が決圆圈まで封印
;RETURN 0
;野外PLAY実行判定
SIF COMABLE_DEF(171)
	RETURN 0
;解除是つでも可能
SIF TEQUIP:野外PLAY
	RETURN 1
;屈服刻印3LVか恋慕でないとダメ
SIF TALENT:恋慕 == 0 && MARK:屈服刻印 < 3
	RETURN 0
;信頼か受虐属性が3以上ないとダメ
SIF ABL:信頼 <= 2 && ABL:受虐属性 <= 2
	RETURN 0
;浣腸使用中は塞子がなければ不可
SIF TEQUIP:浣腸 && COND("肛門栓") == 0
	RETURN 0
RETURN 1

@COM_ABLE172
;浴室PLAY実行判定
SIF COMABLE_DEF(172)
	RETURN 0
;解除是つでも可能
SIF TEQUIP:浴室PLAY
	RETURN 1
RETURN 1

@COM_ABLE173
;新妻PLAY実行判定
SIF COMABLE_DEF(173)
	RETURN 0
;解除是つでも可能
SIF TEQUIP:新妻PLAY
	RETURN 1
;助手じゃダメ
SIF ASSIPLAY
	RETURN 1
;信頼が3以上ないとダメ
SIF ABL:信頼 < 3
	RETURN 0
RETURN 1

@COM_ABLE174
;室内露出PLAY
SIF COMABLE_DEF(174)
	RETURN 0
;解除是つでも可能
SIF TEQUIP:室内露出PLAY
	RETURN 1
;露出PLAYの合意がないとダメ
SIF COND("合意：露出PLAY") == 0
	RETURN 0
;調教対象、助手以外の部員がいないとダメ
SIF FIND_COND("現在存在", "助手ではない") == 0
	RETURN 0
RETURN 1

@COM_ABLE175
;換装実行判定
SIF COMABLE_DEF(175)
	RETURN 0
;恍惚状態だとダメ
SIF STATE("恍惚", PLAYER)
	RETURN 0
;通常状態以外は脱掉ことのみ可能
IF TEQUIP:推倒 || TEQUIP:拘束
	SIF CHECK_CLO("裸体") == 0
		RETURN 1
	RETURN 0
ELSEIF TEQUIP:室内露出PLAY || TEQUIP:野外PLAY
	SIF CHECK_CLO("裸体")
		RETURN 0
ENDIF
;ズレ不可の胖次を穿いている場合はそれを脱がすだけは出来る
SIF CHECK_PANTIES("不可移開")
	RETURN 1
;野外PLAYor室内露出PLAY中は、露出癖3Lvか信頼4Lvが無いとダメ
SIF (TEQUIP:室内露出PLAY || TEQUIP:野外PLAY) && ABL:信頼 < 4 && ABL:露出癖 < 3
	RETURN 0

CALL COM_ORDER_COM175, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE176
;被逆推指令実行判定
SIF COMABLE_DEF(176)
	RETURN 0
;疲れていると奉仕精神がないとダメ
SIF COND("疲労") && ABL:奉仕精神 < 5
	RETURN 0
;振動棒挿入中はダメ
SIF TEQUIP:振動棒 || TEQUIP:肛用振動棒
	RETURN 0
;精液中毒か奉仕精神が無いとダメ
SIF ABL:精液中毒 == 0 && ABL:奉仕精神 < 5
	RETURN 0

CALL COM_ORDER_COM176, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE177
;被两人逆推指令実行判定
SIF COMABLE_DEF(177)
	RETURN 0
;助手が居ないとダメ
SIF ASSI == 0
	RETURN 0
;MASTER調教中で無いとダメ
SIF ASSIPLAY
	RETURN 0
SIF COND("疲労")
	RETURN 0
;振動棒挿入中はダメ
SIF TEQUIP:振動棒 || TEQUIP:肛用振動棒
	RETURN 0
;以下、助手の条件など
SIF COND("只和你Ｈ") || COND("只和你Ｈ", ASSI)
	RETURN 0
;恋慕、淫乱、相思相愛状態ならＯＫとする
IF TALENT:ASSI:恋慕 || TALENT:ASSI:淫乱 || TALENT:ASSI:相思相愛
;それ以外なら、助手とTARGETが仲良くないとダメ。
ELSE
	SIF RELATION:(NO:ASSI) < 120
		RETURN 0
ENDIF

CALL COM_ORDER_COM177, 1
RETURN LIMIT(RESULT, 0, 1)

@COM_ABLE178
;打电话実行判定
SIF COMABLE_DEF(178)
	RETURN 0
;主人以外は不可
SIF PLAYER != MASTER
	RETURN 0
;３Ｐ中はとりあえず封印
SIF COND("３Ｐ")
	RETURN 0
;ビデオ中なども封印
SIF TEQUIP:攝像機 || TEQUIP:拘束
	RETURN 0
;ある程度の攻略状況が必要
SIF MARK:屈服刻印 < 3 && TALENT:淫乱 == 0 && TALENT:恋慕 == 0
	RETURN 0
SIF TEQUIP:電話中
	RETURN 1
SIF TALENT:有男朋友 && COND("初期有男朋友") && CONFIG("路人Ｈ")
	RETURN 1

@COM_ABLE179
RETURN 0

@COM_ABLE200
;具現実行判定
SIF COMABLE_DEF(200)
	RETURN 0
;誰かが具現持ちで無いとダメ
IF TALENT:MASTER:具現 || TALENT:具現 || (ASSI && STATE("撃沈", ASSI) == 0 && TALENT:ASSI:具現)
	SIF TALENT:MASTER:女性 || TALENT:MASTER:扶她
		RETURN 1
	SIF TALENT:女性 || TALENT:扶她
		RETURN 1
	SIF ASSI && STATE("撃沈", ASSI) == 0 && (TALENT:ASSI:女性 || TALENT:ASSI:扶她)
		RETURN 1
ENDIF
RETURN 0

@COM_ABLE201
RETURN 0

@COM_ABLE202
RETURN 0

@COM_ABLE203
RETURN 0

@COM_ABLE204
RETURN 0

@COM_ABLE205
RETURN 0

@COM_ABLE206
RETURN 0

@COM_ABLE207
RETURN 0

@COM_ABLE208
RETURN 0

@COM_ABLE209
RETURN 0


code:
;-------------------------------------------------
;260～279番,消耗品指令
;-------------------------------------------------
@COM_ABLE260
;潤滑液実行判定
SIF COMABLE_DEF(260)
	RETURN 0
;道具を持っていないとダメ
SIF ITEM:潤滑液 == 0
	RETURN 0
RETURN 1

@COM_ABLE261
;媚薬実行判定
SIF COMABLE_DEF(261)
	RETURN 0
;道具を持ってないとダメ
SIF ITEM:媚薬 == 0
	RETURN 0
;被逆推ている
IF TEQUIP:推倒
	RETURN 0
	;PLAYERかTARGETに効く状態じゃないとダメ
	;SIF TEQUIP:媚薬 && TEQUIP:PLAYER:媚薬
	;	RETURN 0
	;技巧3LVか錬金術が無いとダメ
	;SIF ABL:技巧 < 3 && TALENT:錬金術 == 0
	;	RETURN 0
ELSE
	;TARGETに効く状態じゃないとダメ
	SIF TEQUIP:媚薬
		RETURN 0
ENDIF
RETURN 1

@COM_ABLE262
RETURN 0
;利尿剤実行判定
SIF COMABLE_DEF(262)
	RETURN 0
;道具を持ってないとダメ
;SIF ITEM:利尿剤 == 0
;	RETURN 0
;重ねての使用はダメ
SIF TEQUIP:利尿剤
	RETURN 0
RETURN 1

@COM_ABLE263
;創口貼実行判定
SIF COMABLE_DEF(263)
	RETURN 0
;解除是つでも可能
SIF TEQUIP:創口貼
	RETURN 1
;道具を持っていないとダメ
SIF ITEM:創口貼 == 0
	RETURN 0
;阴部使用判定
SIF USE_V(TARGET) == 0
	RETURN 0
;尿道を使用中だとダメ
SIF TEQUIP:尿道振動棒 || TEQUIP:导管
	RETURN 0
;胎内に精液が無いとダメ
SIF COND("胎内の精液量") == 0
	RETURN 0
;常時Ｖ振動棒、尿道振動棒中はダメ
SIF TALENT:常時Ｖ振動棒 || TALENT:常時尿道塞
	RETURN 0
SIF COND("合意：危険日生性交") == 0 && COND("避妊不要") == 0 && CONFIG("胎内精子で妊娠")
	RETURN 0
RETURN 1

@COM_ABLE264
RETURN 0
;排卵誘発剤実行判定
SIF COMABLE_DEF(264)
	RETURN 0
;道具を持っていないとダメ
;SIF ITEM:排卵誘発剤 == 0
;	RETURN 0
SIF COND("排卵誘発剤", TARGET) + COND("排卵誘発剤", PLAYER) == 0
	RETURN 0
RETURN 1

@COM_ABLE265
;芳香醚実行判定
SIF COMABLE_DEF(265)
	RETURN 0
;道具を持ってないとダメ
SIF ITEM:芳香醚 == 0
	RETURN 0
;使用済みだとダメ
SIF TEQUIP:MASTER:芳香醚
	RETURN 0
;被逆推ている
SIF TEQUIP:推倒
	RETURN 0
RETURN 1

@COM_ABLE266
RETURN 0

@COM_ABLE267
RETURN 0
;筋弛緩剤実行判定
SIF COMABLE_DEF(267)
	RETURN 0
;道具を持っていないとダメ
;SIF ITEM:筋弛緩剤 == 0
;	RETURN 0
;用法用量は的確に
SIF TEQUIP:筋弛緩剤
	RETURN 0
RETURN 1

@COM_ABLE268
RETURN 0

@COM_ABLE269
RETURN 0

@COM_ABLE270
RETURN 0

@COM_ABLE271
RETURN 0

@COM_ABLE272
RETURN 0

;-------------------------------------------------
;280～299番,特殊調教指令
;-------------------------------------------------
@COM_ABLE280
;挣扎実行判定
SIF COMABLE_DEF(280)
	RETURN 0
;被逆推ていないとダメ
SIF TEQUIP:推倒 == 0
	RETURN 0
;恍惚状態だとだめ
SIF STATE("恍惚", PLAYER)
	RETURN 0
RETURN 1

@COM_ABLE281
;顺其自然実行判定
SIF COMABLE_DEF(281)
	RETURN 0
;被逆推ていないとダメ
SIF TEQUIP:推倒 == 0
	RETURN 0
RETURN 1

@COM_ABLE282
;自慰実行判定
SIF COMABLE_DEF(282)
	RETURN 0
;恍惚状態だとだめ…な気もするができても良い多分
;SIF STATE("恍惚", PLAYER)
;	RETURN 0
;你以外だと自慰中毒必要
SIF PLAYER != MASTER && ABL:PLAYER:自慰中毒 == 0
	RETURN 0
;縄・拘束中で手が使えない時はダメ
SIF GETBIT(TEQUIP:PLAYER:拘束, 20) || STATE("バインド：手", PLAYER)
	RETURN 0
;誰かに挿入している時に始めるのは流石に失礼だな
SIF INSERT("挿入中", PLAYER)
	RETURN 0
;特定指令の次のターン、ないし特定の状況化じゃないとダメということにしておく
SELECTCASE PREVCOM
;舐陰, 自慰, 舐陰莖, 舐肛, 扒開阴道, 扒開菊穴
CASE 1, 3, 4, 9, 13, 14, 282
	RETURN 1
CASEELSE
	SIF TEQUIP:面部騎乗 || TEQUIP:自慰
		RETURN 1
ENDSELECT
;仲直りックス
SIF CFLAG:喧嘩中
	RETURN 1
RETURN 0

@COM_ABLE283
;甜言蜜语実行判定
SIF COMABLE_DEF(283)
	RETURN 0
SIF COND("前Ｔと同ペア") == 0 && NUM("回合数")
	RETURN 0
;重ねがけは原則禁止
SELECTCASE TEQUIP:甜言蜜语
CASE 0
	RETURN 1
CASE IS >= 5
	RETURN 0
CASEELSE
	;TEQUIP:甜言蜜语 < 5＆夸奖場合は例外的に許可
	SIF CHECK_COM("夸奖", TNUM("甜言蜜语") )
		RETURN 1
	RETURN 0
ENDSELECT
RETURN 1

@COM_ABLE284
RETURN 0

@COM_ABLE285
;抱上去実行判定
SIF COMABLE_DEF(285)
	RETURN 0
;連続実行は出来ない
SIF PREVCOM == 285
	RETURN 0
RETURN 1

@COM_ABLE286
;委身于對方実行判定
SIF COMABLE_DEF(286)
	RETURN 0
;被逆推ていないとダメ
SIF TEQUIP:推倒 == 0
	RETURN 0
;相手が疲れてるとダメ
SIF COND("疲労")
	RETURN 0
RETURN 1

@COM_ABLE290
SIF COMABLE_DEF(290)
	RETURN 0
;Configで部員間ＨOKじゃないとダメ
SIF CONFIG("部員間Ｈ") == 0
	RETURN 0
;お相手がいないとダメ
SIF CFLAG:お相手 == 0
	RETURN 0
;Ｈをしていないとダメ
SIF CFLAG:交流Ｈ回数 == 0
	RETURN 0
;現状诺伊君は話される側なのでダメです
SIF CALLNAME:TARGET == "诺伊"
	RETURN 0
RETURN 1

@COM_ABLE511
SIF COND("挿入前暴発フラグ", PLAYER)
	RETURN 1
RETURN 0


code:
;-------------------------------------------------
;全部の@COMABLEを一斉に管理する時に使用する式中関数
;推倒など、登場頻度が非常に多いものについてのみ扱う
;振動棒などの装備品が解除できるかどうかの判定は、この判定よりも優先度が高いことに注意
;なお、NEXTCOMの時には@COM_ABLEを通らない。
;-------------------------------------------------
@COMABLE_DEF(ARG)
#FUNCTION
;一括OFF、個別設定指令过滤器
SIF FLAG:COM_ABLEの一括OFF || DITEMTYPE:TARGET:ARG > 0
	RETURNF 1
;TARGETの指令禁止処置
SIF DITEMTYPE:TARGET:ARG > 0
	RETURNF 1

;PLAYERの指令禁止処置
SELECTCASE REVCOM(ARG)
;指令立場逆転でも変わらないものは問題ない
CASE ARG
CASEELSE
	SIF DITEMTYPE:PLAYER:REVCOM(ARG) > 0
		RETURNF 1
ENDSELECT

;指令禁止过滤器
SIF DITEMTYPE:0:ARG == 2 && CONFIG("指令过滤器") == 0
	RETURNF 1

;各種过滤器
IF TALENT:処女 && CONFIG("Ｖ調教过滤器")
	SIF TRAIN_GENRE("Ｖ調教", ARG)
		RETURNF 1
ENDIF
IF CONFIG("Ａ調教过滤器")
	SIF TRAIN_GENRE("Ａ調教", ARG)
		RETURNF 1
ENDIF
IF CONFIG("尿道調教过滤器")
	SIF TRAIN_GENRE("尿道調教", ARG)
		RETURNF 1
ENDIF
IF CONFIG("逆挿入过滤器")
	SIF TRAIN_GENRE("逆挿入", ARG)
		RETURNF 1
ENDIF
IF CONFIG("道具調教过滤器")
	SIF TRAIN_GENRE("道具調教", ARG)
		RETURNF 1
ENDIF
IF CONFIG("ハード調教过滤器")
	SIF TRAIN_GENRE("ハード調教", ARG)
		RETURNF 1
ENDIF

IF CONFIG("立位")
	SIF TRAIN_GENRE("立位可能", ARG) == 0
		RETURNF 1
	IF TRAIN_GENRE("火车便当位挿入", ARG)
		SIF SIZE("阴茎", PLAYER) == 0
			RETURNF 1
		SIF TALENT:娇小 == 0 && TALENT:PLAYER:大力士 == 0
			RETURNF 1
	ENDIF
	SIF TRAIN_GENRE("尿道挿入", ARG) && PENIS(TARGET)
		RETURNF 1

	SELECTCASE ARG
	;火车便当位挿入中は幾つかの愛撫指令をすると終了してしまうため、一見可能かよく分からないものは禁止しておく
	;火车便当位のみ禁止
	CASE TNUM("自慰")
		SIF INSERT("火车便当位")
			RETURNF 1
	;両火车便当位共に禁止
	CASE TNUM("肛門愛撫"), TNUM("胸愛撫"), TNUM("阴部愛撫"), TNUM("指挿入"), TNUM("尿道指挿入")
		SIF INSERT("火车便当位") || INSERT("背面火车便当位")
			RETURNF 1
	;禁止体位など
	CASE 60, 70, 83
		SIF INSERT("背面座位")
			RETURNF 1
	CASE 61, 71, 84
		SIF INSERT("対面座位")
			RETURNF 1
	CASE 63, 73, 86
		SIF INSERT("後背位") || INSERT("背面座位")
			RETURNF 1
	CASE 64, 74, 85
		SIF INSERT("正常位") || INSERT("対面座位")
			RETURNF 1
	ENDSELECT
ENDIF

;場所による制限
SELECTCASE TRAINNAME_EX(ARG)
CASE "浴室PLAY"
	SIF PLACE("浴室") == 0
		RETURNF 1
CASE "新妻PLAY"
	SIF PLACE("自宅") == 0
		RETURNF 1
CASE "室内露出PLAY"
	SIF PLACE("自宅") == 0 && PLACE("部室") == 0
		RETURNF 1
ENDSELECT

;口上側による行為の制限
SIF CEVENT("尿道調教禁止") && TRAIN_GENRE("尿道調教", ARG)
	RETURNF 1

;PLAYの制限
;受け手が制限されている
IF PLAYER != MASTER && COND("身嗜み：性行為の制限")
	SELECTCASE ARG
	CASE 60 TO 69
		SIF COND("身嗜み：Ｖ独占")
			RETURNF 1
	CASE 70 TO 79
		SIF COND("身嗜み：Ａ独占")
			RETURNF 1
	CASE 90, 96, 98, 99, 140, 150
		SIF COND("身嗜み：口独占")
			RETURNF 1
	CASE 6
		SIF COND("身嗜み：接吻独占")
			RETURNF 1
	CASE 120 TO 129
		SIF PENIS(TARGET) && COND("身嗜み：Ｐ独占")
			RETURNF 1
	ENDSELECT
ENDIF
;攻め手が制限されている
IF COND("身嗜み：性行為の制限", PLAYER)
	SELECTCASE ARG
	CASE 120 TO 124
		SIF COND("身嗜み：Ｖ独占", PLAYER)
			RETURNF 1
	CASE 125 TO 129
		SIF COND("身嗜み：Ａ独占", PLAYER)
			RETURNF 1
	CASE 1, 4, 9
		SIF COND("身嗜み：口独占", PLAYER)
			RETURNF 1
	CASE 6
		SIF COND("身嗜み：接吻独占", PLAYER)
			RETURNF 1
	CASE 60 TO 79, 81, 82, 83 TO 88, 140, 150
		SIF PENIS(TARGET) && COND("身嗜み：Ｐ独占", PLAYER)
			RETURNF 1
	ENDSELECT
ENDIF

;一部重口指令は屈服刻印や受虐属性が必要(実行条件があるものは除く)
SELECTCASE TRAINNAME_EX(ARG)
CASE "鼻钩", "眼罩", "口枷"
	SIF MARK:屈服刻印 == 0 && ABL:受虐属性 == 0 && ABL:信頼 < 5 && ABL:欲望 < 5 && TALENT:倒錯的 == 0
		RETURNF 1
CASE "拘束"
	SIF MARK:屈服刻印 < 1 && ABL:受虐属性 < 1 && TALENT:倒錯的 == 0
		RETURNF 1
CASE "浣腸"
	SIF MARK:屈服刻印 < 2 && ABL:受虐属性 < 2
		RETURNF 1
ENDSELECT

;挿入系指令の一括処理や汚れなどによるPLAYの制限
SELECTCASE ARG
CASE 1, 4, 6, 9, 10, 11, 99
	;女王様PLAYor推倒なら汚れで文句は言えない
	IF TEQUIP:女王様PLAY == 0 && TEQUIP:推倒 == 0
		IF TALENT:PLAYER:汚臭鈍感 || TALENT:PLAYER:汚臭無視
		;你の性癖とTARGETの属性が２個以上合致
		;ELSEIF PLAYER == MASTER && (CALCF("属性突かれ", TARGET) >= 2 || TALENT:相思相愛)
		ELSEIF PLAYER == MASTER
		ELSEIF PLAYER == ASSI && ABL:ASSI:信頼 >= 4
		ELSE
			LOCAL = 0
			SELECTCASE ARG
			CASE 1
				LOCAL = STAIN:Ｖ
			CASE 4, 10, 11
				LOCAL = STAIN:Ｐ
			CASE 6
				LOCAL = STAIN:Ｍ
			CASE 9
				LOCAL = STAIN:Ａ
			CASE 99
				SIF TALENT:男性 == 0
					LOCAL |= STAIN:Ｖ
				SIF PENIS(TARGET)
					LOCAL |= STAIN:Ｐ
			ENDSELECT

			SIF CHECK_STAIN(LOCAL, "破瓜之血")
				RETURNF 1
			IF CHECK_STAIN(LOCAL, "Ａ") && COND("肛門弱点", PLAYER) == 0
				SIF TEQUIP:出浴 == 0 || ARG != 9
					RETURNF 1
			ENDIF
			IF TALENT:PLAYER:男性 && TALENT:PLAYER:兩面通吃 == 0 && CHECK_STAIN(LOCAL, "Ｐ") && COND("♂弱点", PLAYER) == 0
				SIF TEQUIP:出浴 == 0 || ARG != 4
					RETURNF 1
			ENDIF
			IF TALENT:PLAYER:女性 && TALENT:PLAYER:兩面通吃 == 0 && CHECK_STAIN(LOCAL, "Ｖ") && COND("♀弱点", PLAYER) == 0
				SIF TEQUIP:出浴 == 0 || ARG != 1
					RETURNF 1
			ENDIF
			;SIF ABL:PLAYER:精液中毒 == 0 && TALENT:PLAYER:兩面通吃 == 0 && CHECK_STAIN(LOCAL, "精液")
			;	RETURNF 1
		ENDIF
	ENDIF
;Ｖ挿入指令
CASE 60 TO 69
	IF COND("調教中") && CONFIG("準備不足过滤器")
		SIF CHOSECOMS("Ｖ挿入") == 0 && COND("Ｖ潤充分") == 0
			RETURNF 1
	ENDIF
	SIF USE_V(TARGET) == 0 || TEQUIP:PLAYER:导管
		RETURNF 1
	;調教者が阴茎有、もしくは穿戴式假陰茎がないとダメ
	SIF PENIS(PLAYER) == 0 && COND("假阳具", PLAYER) == 0
		RETURNF 1
	;調教中でないなら2LV以上でかい阴茎は避ける
	SIF COND("調教中") == 0 && ABL:Ｖ拡張 + 1 < SIZE("阴茎", PLAYER)
		RETURNF 1
	IF TEQUIP:推倒
		SIF TALENT:淫乱 + TALENT:恋慕 == 0 && ABL:Ｖ拡張 + 1 < SIZE("阴茎", PLAYER)
			RETURNF 1
		;推倒は生性交！
		SIF COND("女性主導生性交") == 0
			RETURNF 1
		;你が恍惚＆まだ挿入した事が無いならしてこない
		SIF STATE("恍惚", PLAYER) && FIRSTCOMS("Ｖ挿入") == 0
			RETURNF 1
		;你が脫力＆まだ挿入した事が無いならしてこない
		SIF STATE("脫力", PLAYER) && FIRSTCOMS("Ｖ挿入") == 0
			RETURNF 1
	ENDIF
;Ａ挿入指令
CASE 70 TO 79
	IF COND("調教中") && CONFIG("準備不足过滤器")
		SIF CHOSECOMS("Ａ挿入") == 0 && COND("Ａ潤充分") == 0
			RETURNF 1
	ENDIF
	SIF USE_A(TARGET) == 0 || TEQUIP:PLAYER:导管
		RETURNF 1
	;調教者が阴茎有、もしくは穿戴式假陰茎がないとダメ
	SIF PENIS(PLAYER) == 0 && COND("假阳具", PLAYER) == 0
		RETURNF 1
	;調教中でないなら2LV以上でかい阴茎は避ける
	SIF COND("調教中") == 0 && ABL:Ａ拡張 + 1 < SIZE("阴茎", PLAYER)
		RETURNF 1
	SIF TEQUIP:推倒 && TALENT:恋慕 == 0 && ABL:Ａ拡張 + 1 < SIZE("阴茎", PLAYER)
		RETURNF 1
	;合意or拘束などが必要
	IF COND("合意：肛門性交") == 0 && TEQUIP:拘束 == 0
		SIF COND("无崩しでＡ挿入可") == 0
			RETURNF 1
		;你が恍惚＆まだ挿入した事が無いならしてこない
		SIF STATE("恍惚", PLAYER) && FIRSTCOMS("Ａ挿入") == 0
			RETURNF 1
		;你が脫力＆まだ挿入した事が無いならしてこない
		SIF STATE("脫力", PLAYER) && FIRSTCOMS("Ａ挿入") == 0
			RETURNF 1
	ENDIF
;尿道挿入
CASE 83 TO 88
	;調教者が阴茎有、もしくは穿戴式假陰茎がないとダメ
	SIF PENIS(PLAYER) == 0 && COND("假阳具", PLAYER) == 0
		RETURNF 1
	IF COND("調教中")
		;阴部剥き出しにできないとダメ
		SIF !CHECK_CLO("Ｖ露出可")
			RETURNF 1
		;尿道を使用済みだとダメ
		SIF TEQUIP:PLAYER:导管 || TEQUIP:导管 || TEQUIP:尿道振動棒
			RETURNF 1
	ENDIF
	;阴茎を接受ことが出来ないとダメ
	SIF ABL:尿道拡張 < SIZE("阴茎", PLAYER) && CALCF("尿道径") < SIZE("阴茎の直径", PLAYER)
		RETURNF 1
	;調教中でないなら2LV以上でかい阴茎は避ける
	SIF COND("調教中") == 0 && ABL:尿道拡張 + 1 < SIZE("阴茎", PLAYER)
		RETURNF 1
	IF TEQUIP:推倒
		SIF TALENT:恋慕 == 0 && ABL:尿道拡張 + 1 < SIZE("阴茎", PLAYER)
			RETURNF 1
		;你が恍惚＆まだ挿入した事が無いならしてこない
		SIF STATE("恍惚", PLAYER) && FIRSTCOMS("尿道挿入") == 0
			RETURNF 1
		;你が脫力＆まだ挿入した事が無いならしてこない
		SIF STATE("脫力", PLAYER) && FIRSTCOMS("尿道挿入") == 0
			RETURNF 1
	ENDIF
;特殊挿入
CASE 80 TO 89

;逆振動棒などの道具指令
CASE 106, 107

;逆挿入
CASE 120 TO 129
	;調教相手が阴茎有、もしくは穿戴式假陰茎がないとダメ
	SIF PENIS(TARGET) == 0 && COND("假阳具") == 0
		RETURNF 1
	SIF TEQUIP:导管
		RETURNF 1
;フィスト
CASE 141 TO 143
	;手が使えないとダメ
	SIF COND("指の使用", PLAYER) == 0
		RETURNF 1
	IF ARG == 141
		SIF USE_V(TARGET) == 0
			RETURNF 1
		;処女はダメ
		SIF TALENT:処女 == 1
			RETURNF 1
	ELSEIF ARG == 142
		SIF USE_A(TARGET) == 0
			RETURNF 1
		;液剤很多の浣腸中
		SIF COND("液体浣腸")
			RETURNF 1
	ELSEIF ARG == 143
		SIF USE_V(TARGET) == 0
			RETURNF 1
		SIF TALENT:処女 == 1
			RETURNF 1
		SIF USE_A(TARGET) == 0
			RETURNF 1
		;液剤很多の浣腸中
		SIF COND("液体浣腸")
			RETURNF 1
	ENDIF
;助手が必須の指令は、助手が居なかったりダウンしてたらダメ
CASE 177
	SIF ASSI <= 0 || STATE("撃沈", ASSI) || TEQUIP:攝像機
		RETURNF 1
	SIF COND("推倒騎乗位実行可能", ASSI) == 0
		RETURNF 1
CASE TNUM("抱上去")
	;手が使えないとダメ
	SIF COND("指の使用", PLAYER) == 0
		RETURNF 1
ENDSELECT

;服装による制限
SELECTCASE ARG
CASE 5, 81, 82, 92, 104
	SIF CHECK_SHIRT("鎧") && CHECK_CLO("谷間露出") + CHECK_CLO("乳頭露出") + CHECK_CLO("半脱可") == 0
		RETURNF 1
ENDSELECT

;手が拘束されている
IF COND("指の使用") == 0
	SELECTCASE ARG
	CASE 175
		SIF TEQUIP:推倒
			RETURNF 1
	CASE 3, 13, 14, 90, 92, 94, 97, 100, 104 TO 110, 172 TO 173, 176 TO 178
		RETURNF 1
	ENDSELECT
ENDIF
;足が拘束されている
IF COND("脚の使用") == 0
	SELECTCASE ARG
	CASE 94, 95, 120 TO 129, 171 TO 174, 176, 177
		RETURNF 1
	ENDSELECT
ENDIF
;拘束
IF TEQUIP:拘束
	;縄：逆海老
	IF BIND("縄：逆海老", TEQUIP:拘束)
		SELECTCASE ARG
		CASE 61, 66 TO 69, 71
		CASE 1, 9, 60 TO 89, 145, 148, 151
			RETURNF 1
		ENDSELECT
	;縄：足吊り
	ELSEIF BIND("縄：足吊り", TEQUIP:拘束)
		SELECTCASE ARG
		;正常位はおかしい気もするがまぁ前からの時ということで
		CASE 60, 61, 66 TO 69, 70, 71, 83, 84
		CASE 60 TO 89, 93, 99, 120, 121, 125, 126
			RETURNF 1
		ENDSELECT
	;縄
	ELSEIF BIND("縄", TEQUIP:拘束)
		SELECTCASE ARG
		CASE 80, 93, 99, 120, 121, 125, 126
			RETURNF 1
		ENDSELECT
	;拘束テーブル
	ELSEIF BIND("四つん這い", TEQUIP:拘束)
		SELECTCASE ARG
		CASE 61, 66 TO 69, 71, 84
		CASE 60 TO 89, 93, 99, 120 TO 129, 171
			RETURNF 1
		ENDSELECT
	;拘束床
	ELSEIF BIND("床", TEQUIP:拘束)
		SELECTCASE ARG
		CASE 60, 66 TO 69, 70, 83, 122, 127
		CASE 60 TO 80, 93, 99, 120 TO 129, 171
			RETURNF 1
		ENDSELECT
	;M字拘束台
	ELSEIF BIND("Ｍ字開脚", TEQUIP:拘束)
		SELECTCASE ARG
		CASE 60, 70, 83
		CASE 60 TO 89, 91, 93, 98, 99, 120 TO 129, 140, 150, 171
			RETURNF 1
		ENDSELECT
	;ミスリルチェーン(吊り)
	ELSEIF BIND("吊り", TEQUIP:拘束)
		SELECTCASE ARG
		CASE 60, 61, 70, 71, 83, 84
		CASE 60 TO 89, 91, 93, 98, 99, 120 TO 129, 140, 148, 150, 151, 171
			RETURNF 1
		ENDSELECT
	ENDIF
ENDIF

;創口貼装着中
IF TEQUIP:創口貼 || CFLAG:創口貼装着
	SELECTCASE ARG
	CASE 1, 8, 15, 80, 83 TO 88, 144, 145, 149, 151, 152
		RETURNF 1
	ENDSELECT
ENDIF

IF TEQUIP:推倒
	IF COND("主導権没有")
		SELECTCASE ARG
		CASE 177, 280, 281, 286
		CASEELSE
			RETURNF 1
		ENDSELECT
	ENDIF

	SELECTCASE ARG
	;解除のみは可能
	CASE 31, 33 TO 39, 178
		SIF CHECK_TEQUIP(ARG) == 0
			RETURNF 1
	;実行可能な指令
	CASE 1, 4 ,6, 9 ,11, 16, 65 TO 69, 75, 80, 82, 88, 90 TO 99, 101 TO 105, 120, 126, 144, 145, 150, 170, 175, 177, 200, 280 TO 282, 286

	CASEELSE
		RETURNF 1
	ENDSELECT
	;Ｗ推倒
	IF TEQUIP:Ｗ推倒
		SELECTCASE ARG
		CASE 0, 10 TO 12, 80, 82, 99, 105, 144, 145, 150, 175, 177, 178, 261, 282
			RETURNF 1
		ENDSELECT
	ENDIF
ENDIF

;野外、室内露出、お浴室など部屋の外でのPLAYの制限
IF TEQUIP:野外PLAY
	SELECTCASE ARG
	;通常は実行不可なグループの中で例外的に実行可能な指令
	CASE 93, 101, 130, 138, 139, 144, 150
	;解除のみは可能
	CASE 31, 33 TO 39, 133 TO 137, 149
		SIF CHECK_TEQUIP(ARG) == 0
			RETURNF 1
	;実行不可能な指令
	CASE 30 TO 59, 93 TO 119, 120 TO 129, 130 TO 159, 160 TO 169, 172 TO 174
		RETURNF 1
	ENDSELECT
ENDIF
IF TEQUIP:浴室PLAY
	SELECTCASE ARG
	;解除のみは可能
	CASE 133 TO 135, 137, 173
		SIF CHECK_TEQUIP(ARG) == 0
			RETURNF 1
	;実行不可能な指令
	CASE 131 TO 135, 160 TO 169, 171, 173, 174, 178
		RETURNF 1
	ENDSELECT
ENDIF
IF TEQUIP:室内露出PLAY
	SELECTCASE ARG
	;実行不可能な指令
	CASE 171 TO 173
		RETURNF 1
	ENDSELECT
ENDIF

;女王様PLAY(大幅な変更の予定有)
IF TEQUIP:女王様PLAY
	;実行可能な指令
	SELECTCASE ARG
	CASE 1, 4, 9, 31, 33, 130
	;LV2指令
	CASE 90, 95, 121, 126, 141 TO 145, 148
		SIF TEQUIP:女王様PLAY < 2
			RETURNF 1
	;LV3指令
	CASE 60 TO 89
		SIF TEQUIP:女王様PLAY < 3
			RETURNF 1
	CASEELSE
		RETURNF 1
	ENDSELECT
ENDIF

IF TEQUIP:新妻PLAY
	;実行不可な指令
	SELECTCASE ARG
	;CASE 36, 37, 131, 132, 135, 140 TO 143, 146, 147, 160 TO 169, 171, 172, 174, 177
	CASE 171, 174, 177
		RETURNF 1
	ENDSELECT
ENDIF

;複数参加指令の体勢的な可否(TARGET:1…主に、助手を自動で動かす時に用いる)
IF TEQUIP:Ｗ推倒 && TARGET:1
	SELECTCASE ARG
	CASE 1
		SIF FORBIDCOM(TARGET:1, "Ｐ顔", "Ｔ阴部")
			RETURNF 1
	CASE 4
		SIF FORBIDCOM(TARGET:1, "Ｐ顔", "Ｔ阴茎")
			RETURNF 1
	CASE 5
		SIF FORBIDCOM(TARGET:1, "Ｔ胸") || TEQUIP:推倒
			RETURNF 1
	CASE 6
		SIF FORBIDCOM(TARGET:1, "Ｐ顔", "Ｔ顔")
			RETURNF 1
	CASE 9
		SIF FORBIDCOM(TARGET:1, "Ｐ顔", "Ｔ肛門")
			RETURNF 1
	CASE 60, 62, 63
		SIF FORBIDCOM(TARGET:1, "性交", "Ｔ阴部", "Ｔ前面")
			RETURNF 1
	CASE 61
		SIF FORBIDCOM(TARGET:1, "性交", "Ｔ阴部", "Ｔ後面")
			RETURNF 1
	CASE 64
		SIF FORBIDCOM(TARGET:1, "性交", "Ｔ下半身", "Ｔ後面")
			RETURNF 1
	CASE 65
		SIF FORBIDCOM(TARGET:1, "性交", "Ｐ下半身", "Ｔ下半身")
			RETURNF 1
	CASE 66 TO 69
		SIF FORBIDCOM(TARGET:1, "性交", "Ｐ下半身", "Ｔ下半身")
			RETURNF 1

	CASE 70, 72, 73
		SIF FORBIDCOM(TARGET:1, "性交", "Ｔ肛門", "Ｔ前面")
			RETURNF 1
	CASE 71
		SIF FORBIDCOM(TARGET:1, "性交", "Ｔ肛門", "Ｔ後面")
			RETURNF 1
	CASE 74
		SIF FORBIDCOM(TARGET:1, "性交", "Ｔ下半身", "Ｔ後面")
			RETURNF 1
	CASE 75
		SIF FORBIDCOM(TARGET:1, "性交", "Ｐ下半身", "Ｔ下半身")
			RETURNF 1
	CASE 76 TO 79
		SIF FORBIDCOM(TARGET:1, "性交", "Ｐ下半身", "Ｔ下半身")
			RETURNF 1
	;磨鏡
	CASE 80
		SIF FORBIDCOM(TARGET:1, "Ｐ下半身", "Ｔ下半身")
			RETURNF 1
	;尿道
	CASE 83, 85, 86
		SIF FORBIDCOM(TARGET:1, "性交", "Ｔ阴部", "Ｔ前面")
			RETURNF 1
	CASE 84
		SIF FORBIDCOM(TARGET:1, "性交", "Ｔ阴部", "Ｔ後面")
			RETURNF 1
	CASE 87
		SIF FORBIDCOM(TARGET:1, "性交", "Ｔ下半身", "Ｔ後面")
			RETURNF 1
	CASE 88
		SIF FORBIDCOM(TARGET:1, "性交", "Ｐ下半身", "Ｔ下半身")
			RETURNF 1

	;手交などPLAYERの阴茎を手とかで責める
	CASE 90
		SIF FORBIDCOM(TARGET:1, "Ｐ阴茎", "手交")
			RETURNF 1
	CASE 91
		SIF FORBIDCOM(TARGET:1, "Ｐ阴茎", "口交")
			RETURNF 1
	CASE 92
		SIF FORBIDCOM(TARGET:1, "Ｐ阴茎", "乳交")
			RETURNF 1
	CASE 93, 101
		SIF FORBIDCOM(TARGET:1, "Ｐ阴茎", "素股")
			RETURNF 1
	CASE 94
		SIF FORBIDCOM(TARGET:1, "Ｐ阴茎", "泡泡浴")
			RETURNF 1
	CASE 95
		IF PENIS(MASTER)
			SIF FORBIDCOM(TARGET:1, "Ｐ阴茎", "足交")
				RETURNF 1
		ELSE
			SIF FORBIDCOM(TARGET:1, "Ｐ阴部", "足交")
				RETURNF 1
		ENDIF
	CASE 96
		;現状封印
		SIF FORBIDCOM(TARGET:1, "Ｐ肛門", "Ｐ後面")
			RETURNF 1
	CASE 97
		SIF FORBIDCOM(TARGET:1, "Ｐ阴茎", "内褲冲")
			RETURNF 1
	CASE 98
		SIF FORBIDCOM(TARGET:1, "Ｐ阴部", "Ｐ前面", "Ｔ顔")
			RETURNF 1
	CASE 104
		SIF FORBIDCOM(TARGET:1, "Ｐ顔")
			RETURNF 1
	;逆肛交
	CASE 125 TO 129
		SIF FORBIDCOM(TARGET:1, "Ｐ下半身", "Ｐ後面")
			RETURNF 1
	;逆強姦などPLAYERの阴部を責める
	CASE 120 TO 124
		SIF FORBIDCOM(TARGET:1, "Ｐ下半身", "Ｐ前面")
			RETURNF 1
	CASE 140, 150
		SIF FORBIDCOM(TARGET:1, "Ｐ阴茎", "口交")
			RETURNF 1
	CASE 141
		SIF FORBIDCOM(TARGET:1, "Ｐ指", "Ｔ阴部")
			RETURNF 1
	CASE 142
		SIF FORBIDCOM(TARGET:1, "Ｐ指", "Ｔ肛門")
			RETURNF 1
	CASE 143
		SIF FORBIDCOM(TARGET:1, "Ｐ指", "Ｔ阴部", "Ｔ肛門")
			RETURNF 1
	ENDSELECT
ENDIF

RETURNF 0

@NO_SELECTCOM, ARG
#DIM LCOUNT
LOCAL = -1
FOR LCOUNT, 0, 600
	SIF STRLENS(TRAINNAME:LCOUNT) == 0
		CONTINUE

	LOCAL += 1
	SIF ARG == LOCAL
		RETURN LCOUNT
NEXT
RETURN 999


code:
@COM0
;愛撫
CALL PRINT_TRAIN_NAME(SELECTCOM)

CALL TRAIN_MESSAGE_B

SIF REFUSE_CHECK()
	RETURN 0

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

RETURN 1

@FLAG_COM0, ARG
IF CHECK_COM("潤滑液マッサージ", SELECTCOM)
	SIF TALENT:男性 == 0
		CALL FLAG_COM13, 30
	CALL FLAG_COM14, 30
ENDIF
;阴部愛撫
SIF TALENT:男性 == 0
	CALL FLAG_COM7, 30

;面部騎乗or六九式状態でないなら胸も愛撫
IF TEQUIP:六九式 + TEQUIP:面部騎乗 == 0 && CHECK_COM("潤滑液マッサージ", SELECTCOM) == 0
	CALL FLAG_COM5, 30

	;対象のＢ⇔調教者の指的污垢が移動
	CALL EQ_STAIN, TARGET, "Ｂ", PLAYER, "手"
ENDIF

@SOURCE_COM0, ARG
IF CHECK_COM("潤滑液マッサージ", SELECTCOM)
	SIF TALENT:男性 == 0
		CALL SOURCE_COM13, 30
	CALL SOURCE_COM14, 30
ENDIF
;阴部愛撫
SIF TALENT:男性 == 0
	CALL SOURCE_COM7, 30

;面部騎乗or六九式状態でないなら胸も愛撫
SIF TEQUIP:六九式 + TEQUIP:面部騎乗 == 0 && CHECK_COM("潤滑液マッサージ", SELECTCOM) == 0
	CALL SOURCE_COM5, 30

CALL VARSET_COMF

;淫紋アリ(シールはダメ)だとＶ快楽発生
IF MARK:淫紋 && TALENT:男性 == 0
	SOURCE:0:Ｖ快楽 = CALCF("Ｖ刺激", 1)
	;調教者の指靈活をみる
	SOURCE:0:Ｖ快楽 = SOURCE_EXABL(SOURCE:0:Ｖ快楽, "指靈活", PLAYER)
	SOURCE:0:Ｖ液体追加 = 100
ENDIF

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

@TRAIN_MESSAGE_COM0
IF CHECK_COM("潤滑液マッサージ", SELECTCOM)
	PRINTFORM %CALLNAME:TARGET%的
	IF TALENT:小尻
		IF TALENT:大力士 && RAND:3 == 0
			PRINTFORM 繃緊的尻部
		ELSEIF RAND:3 == 0
			IF AGE(TARGET) <= 2
				PRINTFORM 兼具張力與光滑的尻部的柔肉
			ELSE
				PRINTFORM 嬌小而又柔軟的尻部的柔肉
			ENDIF
		ELSEIF RAND:2
			PRINTFORM 沒什麼肉的尻部
		ELSE
			PRINTFORM 嬌小的尻部
		ENDIF
	ELSE
		IF RAND:4 == 0
			SIF TALENT:巨尻
				PRINTFORM 豐腴的
			SELECTCASE CONDS("肤色")
			CASE "褐色肌"
				PRINTFORM 褐色的
			CASE "色白"
				PRINTFORM 雪白的
			CASEELSE
				PRINTFORM 艷麗的
			ENDSELECT
			PRINTFORM 双丘
		ELSEIF RAND:3 == 0
			PRINTFORM 柔軟而圓潤的腰周的臀肉
		ELSEIF RAND:2
			PRINTFORM \@ TALENT:巨尻 ? 像是年糕一樣 # \@柔軟的尻肉
		ELSE
			PRINTFORM 十分豐腴的尻部
		ENDIF
	ENDIF

	IF TALENT:巨尻 && RAND:3 == 0
		PRINTFORM 用手指陷入其中、%TEXTR("仔細的揉搓著/充分的揉捏著/享受著美妙手感")%、同時、
	ELSEIF RAND:3 == 0
		PRINTFORM 左右分開、將
		IF TALENT:男性 == 0 && RAND:2
			PRINTFORM 阴部
		ELSE
			PRINTFORM 肛門
		ENDIF
		PRINTFORM 仔細觀察著的同時、
	ELSEIF RAND:2
		PRINTFORM 緊緊抓住、將%TEXTR("窄縫/肛門")%的細微褶皺%TEXTR("用拇指的指腹撫摸著/溫柔而仔細地愛撫著/用手指細心地撫摸著")%的同時、
	ELSE
		PRINTFORM 用雙手%TEXTR("精細的品味著/細細的享受著/愉快的觸碰著")%的同時、
	ENDIF
	PRINTFORMW 將潤滑液在股間的粘膜上%TEXTR("溫柔地/細緻地")%%TEXTR("抹開了/滲透了")%…

;六九式
ELSEIF TEQUIP:六九式
	PRINTFORM %CALLNAME:PLAYER%将
	IF TEQUIP:推倒
		IF RAND:4 == 0 && ABL:PLAYER:Ｖ感覚 >= 4 && TEQUIP:六九式 == TNUM("奉仕舐陰")
			PRINTFORM 一边感受着触碰着自己的淫唇的%CALLNAME:TARGET%的舌尖、
		ELSEIF RAND:3 == 0
			PRINTFORM 用那里品尝着%CALLNAME:TARGET%的舌頭的触感的同时、
		ELSEIF RAND:2
			PRINTFORM 被%CALLNAME:TARGET%的舌技翻弄的同时、
		ELSE
			PRINTFORM 被%CALLNAME:TARGET%贪食着股间的同时、
		ENDIF
	ELSE
		IF RAND:3 == 0 && PENIS(PLAYER) && TEQUIP:六九式 == TNUM("口交")
			PRINTFORM 被%CALLNAME:TARGET%啃食着自己的肉棒的同时、
		ELSEIF RAND:2 == 0 && PENIS(PLAYER)
			PRINTFORM 用身体接受%CALLNAME:TARGET%的奉仕同时、
		ELSE
			PRINTFORM 被%CALLNAME:TARGET%奉仕的同时、
		ENDIF
	ENDIF
	IF RAND:3
		PRINTFORMW 让手指划过艳丽的大腿…
	ELSEIF RAND:2
		PRINTFORMW 来回揉捏眼前的柔软的尻肉…
	ELSE
		PRINTFORMW 享受着展示在眼前的景色…
	ENDIF
;推倒
ELSEIF TEQUIP:推倒
	IF INSERT("挿入")
		IF INSERT("尿道挿入")
			IF (EXP:尿道経験 >= 150 || TALENT:尿道狂) && RAND:3
				IF RAND:4 == 0
					PRINTFORM 在不斷垂流下淫靡涎水的腰肢、難耐地晃動著的同時、
				ELSEIF RAND:3 == 0
					PRINTFORM 一刻不停地揮舞著腰肢、貪求著違背常理的禁忌快樂的同時、
				ELSEIF RAND:2 == 0
					PRINTFORM 在被尿道被貫穿所傳遞至大腦的快樂所俘獲的同時、
				ELSE
					PRINTFORM 用因快感而溶化的瞳孔恍惚的凝視著%CALLNAME:PLAYER%的同時、
				ENDIF
			ELSEIF EXP:尿道経験 >= 50 || TALENT:尿道性感 || TALENT:倒錯的
				IF PENIS(PLAYER) && ABL:奉仕精神 >= 3 && RANDIF(3, TALENT:尿道性感)
					PRINTFORM 對用尿道侍奉陰莖的行為漸漸積極起來的同時、
				ELSEIF PENIS(PLAYER) && RANDIF(2, TALENT:尿道性感)
					PRINTFORM 因將陰莖直達根部地吞入體內、而無法抑制的顫抖著身體的同時、
				ELSEIF TALENT:尿道性感 && RAND:2
					PRINTFORM 在為尿道性感所俘獲的同時、
				ELSEIF RAND:2
					PRINTFORM 在將敏感的粘膜被%TEXTR("不斷摩擦/展開著褶皺")%的感覺%TEXTR("全心地品味著/盡情地享受著")%的同時、
				ELSE
					PRINTFORM 用佈滿紅潮的臉龐與%CALLNAME:PLAYER%毫無間斷地對視著的同時、
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORM 在被一無所知的快樂所搔弄著心底的同時、
				ELSE
					PRINTFORM 在因尚未習慣的異質快感而氣息絮亂的同時、
				ENDIF
			ENDIF
		ELSEIF INSERT("Ｖ挿入")
			IF (EXP:Ｖ経験 >= 300 || ABL:Ｖ感覚 >= 4) && RAND:3
				IF PREVCOM == 67 && PENIS(PLAYER) && RAND:3 == 0
					PRINTFORM 對子宮口被%CALLNAME:PLAYER%挺立的陰莖反復摩挲的時候完全沉迷其中的同時
				ELSEIF PREVCOM == 66 && PENIS(PLAYER) && RAND:3 == 0
					PRINTFORM 在主動垂落自己的腰肢、用Ｇ點摩擦著挺立的陰莖的同時、
				ELSEIF RAND:4 == 0
					PRINTFORM 在因被充分開發的膣道所傳遞的快感而將徹底溶化的表情毫不遮掩地顯露出來的同時、
				ELSEIF RAND:3 == 0
					PRINTFORM 在唇角不斷流出不檢點的涎水並痴迷地揮舞著腰肢的同時、
				ELSEIF RAND:2 == 0
					PRINTFORM 隨著深呼吸的節奏而全心地品味著腹腔中傳達至大腦中的快感的同時、
				ELSE
					PRINTFORM 用因快感而溶化的瞳孔恍惚的凝視著%CALLNAME:PLAYER%的同時、
				ENDIF
			ELSEIF EXP:Ｖ経験 >= 150 || ABL:Ｖ感覚 >= 3 || TALENT:好色
				IF PREVCOM == 67 && PENIS(PLAYER) && RAND:2 == 0
					PRINTFORM 因將陰莖直達根部地吞入體內而無法抑制的顫抖著身體的同時、
				ELSEIF PREVCOM == 66 && RAND:2 == 0
					PRINTFORM 在為Ｇ點所帶來的劇烈快感所俘獲的同時、
				ELSEIF RAND:2 == 0
					PRINTFORM 在將膣道內敏感粘膜被展開的快感盡情享受著的同時、
				ELSE
					PRINTFORM 用佈滿紅潮的臉龐與%CALLNAME:PLAYER%毫無間斷地對視著的同時、
				ENDIF
			ELSE
				IF PREVCOM == 67 && PENIS(PLAYER) && RAND:2 == 0
					PRINTFORM 在放任著敏感的子宮口隨著腰肢的低垂而被陰莖的尖端不斷刺激的同時、
				ELSEIF PREVCOM == 66
					PRINTFORM 像是對Ｇ點被抵住不斷摩擦的感覺還不習慣一樣、不斷顫抖著身體的同時、
				ELSEIF RAND:2 == 0
					PRINTFORM 自發地揮舞著腰肢、貪婪地索取著快樂的同時、
				ELSE
					PRINTFORM 在身體的內部被強行開闢、並不斷翻攪著的同時、
				ENDIF
			ENDIF
		ELSE
			IF (EXP:Ａ経験 >= 300 || ABL:Ａ感覚 >= 4) && RAND:3
				IF PENIS(PLAYER) && RAND:6 == 0
					PRINTFORM 在臉頰上的表情徹底溶化、用肛門將陰莖不斷吮吸著的同時、
				ELSEIF PENIS(PLAYER) && RAND:5 == 0
					PRINTFORM 將連根吞入體內的陰莖的大小用自己的肛門切身的品味著的同時、
				ELSEIF RAND:4 == 0
					PRINTFORM 在不斷垂流下淫靡涎水的腰肢、難耐地晃動著的同時、
				ELSEIF RAND:3 == 0
					PRINTFORM 一刻不停地揮舞著腰肢、貪求著排泄器官被使用所傳遞快樂的同時、
				ELSEIF RAND:2 == 0
					PRINTFORM 在肛門被貫穿所傳遞至大腦的快樂所俘獲的同時、
				ELSE
					PRINTFORM 用因快感而溶化的瞳孔恍惚的凝視著%CALLNAME:PLAYER%的同時、
				ENDIF
			ELSEIF EXP:Ａ経験 >= 150 || ABL:Ａ感覚 >= 3
				IF PENIS(PLAYER) && ABL:奉仕精神 >= 3 && RAND:4 == 0
					PRINTFORM 對用肛門侍奉陰莖的行為漸漸積極起來的同時、
				ELSEIF RAND:3 == 0
					PRINTFORM 在肛門的深處再一次被填滿的時候、無法抑制的顫抖著身體的同時、
				ELSEIF RAND:2 == 0
					PRINTFORM 在將腸道中敏感肉襞被不斷摩擦的感覺全心品味著的同時、
				ELSE
					PRINTFORM 用佈滿紅潮的臉龐與%CALLNAME:PLAYER%毫無間斷地對視著的同時、
				ENDIF
			ELSE
				IF PENIS(PLAYER) && RAND:2 == 0
					PRINTFORM 在用肛門不斷地套弄著陰莖的同時、
				ELSE
					PRINTFORM 在因身體中被埋入的異物而呼吸絮亂的同時、
				ENDIF
			ENDIF
		ENDIF
		PRINTFORM %CALLNAME:TARGET%的、
		IF RAND:3 == 0
			IF TALENT:男性
				PRINTFORM %TEXTS("乳頭：描写")%%TEXTR("乳頭/突起")%
				;穿環をいじめる
				IF TALENT:乳环 && RAND:2
					PRINTFORM 連同装飾著它的%TEXTS("乳环")%一併
					IF RAND:3 == 0
						PRINTFORMW 用手指%TEXTR("/轻轻地")%弹…
					ELSEIF RAND:2 == 0
						PRINTFORMW %TEXTR("/用指尖")%玩弄…
					ELSE
						PRINTFORMW 用手指穿過穿環、然後輕輕地拉扯起來……
					ENDIF
				ELSE
					IF RAND:5 == 0
						PRINTFORMW 轻轻地用手指%TEXTR("肚子按压/尖戳弄")%…
					ELSEIF RAND:4 == 0
						PRINTFORMW 輕輕捻動著……
					ELSEIF RAND:3 == 0
						PRINTFORMW 正被时強时弱地刺激著…
					ELSEIF RAND:2
						PRINTFORMW 被手指沿着乳輪慢慢滑过…
					ELSE
						PRINTFORMW 稍稍拉起、輕輕地擼動起來……
					ENDIF
				ENDIF
			ELSE
				IF TALENT:巨乳
					PRINTFORM %TEXTR("压迫力十足地/气势十足地")%起伏着的
				ELSEIF TALENT:貧乳 && TALENT:娇小
					PRINTFORM %TEXTR("平坦的/起伏少的")%
				ELSEIF TALENT:貧乳
					PRINTFORM %TEXTR("可爱地/小小地/微微地")%晃动着的
				ELSE
					PRINTFORM %TEXTR("/幅度大地/上下")%摇晃着的
				ENDIF
				PRINTFORMW 正被盡情地揉搓著……
			ENDIF
		ELSEIF RAND:2 == 0
			IF TALENT:妊娠 && RAND:2 == 0
				PRINTFORM %TEXTR("大/膨胀起来的")%肚子
			ELSEIF TALENT:娇小
				PRINTFORM %TEXTR("还未成熟的/幼小/小小的")%身体
			ELSEIF TALENT:巨乳 && COND("苗条") == 0
				PRINTFORM %TEXTR("肉厚的/丰满的")%身体
			ELSEIF TALENT:男性
				IF TALENT:大力士
					PRINTFORM %TEXTR("锻炼地很好的/身材匀称/带有少量的肌肉的/光滑的")%身体
				ELSE
					PRINTFORM %TEXTR("柔软的肉/摸起来很舒服的身/光滑的身")%体
				ENDIF
			ELSE
				PRINTFORM 柔软的体
			ENDIF
			PRINTFORMW 正被溫柔而愛憐地輕輕愛撫著……
		ELSE
			IF INSERT("Ｖ挿入") == 0 && TALENT:男性 == 0 && RAND:3
				PRINTFORMW 割れ目の周りを指先で愛撫起来…
			ELSEIF INSERT("Ｖ挿入") == 0 && TALENT:男性 == 0 && RAND:2
				PRINTFORMW 沒有被寵愛而感到寂寞的陰部正被惡作劇式的輕輕揉搓著……
			ELSEIF PENIS(TARGET)
				PRINTFORMW 因快感而誇張地勃起著的陰莖正被挑逗性地愛撫、套弄著……
			ELSEIF CALCF("Ｃ発情") >= 2
				PRINTFORMW 因快樂而充血勃起的陰蒂正被指尖輕柔地挑逗著……
			ELSE
				PRINTFORMW 用手指%TEXTR("/温柔地")%摩擦小小的阴蒂…
			ENDIF
		ENDIF
	ELSEIF RAND:(ABL:技巧 + 1) >= 2
		PRINTFORM %CALLNAME:TARGET%
		IF RAND:2 == 0 && TALENT:男性 == 0
			IF TALENT:巨乳
				PRINTFORM 豐腴飽滿的
			ELSEIF TALENT:貧乳 && TALENT:娇小
				PRINTFORM ぺったんこな
			ELSEIF TALENT:貧乳
				PRINTFORM %TEXTR("小不点/小さ/控えめ")%な
			ENDIF
			PRINTFORMW 胸部以有誘惑力的姿勢向%CALLNAME:PLAYER%邀請著。
			PRINTFORM %CALLNAME:PLAYER%在受到邀請後、如%CALLNAME:TARGET%所願的將她的胸部
			IF TALENT:貧乳 || RAND:3 == 0
				PRINTFORMW 溫柔地撫摸著……
			ELSE
				PRINTFORMW 輕柔地揉搓著……
			ENDIF
		ELSE
			PRINTFORM %CALLNAME:PLAYER%主動抱住、用自己
			IF TALENT:娇小
				PRINTFORM 未発達な体
			ELSEIF TALENT:巨乳
				IF COND("苗条")
					PRINTFORM メリハリのある体
				ELSE
					PRINTFORM 豐腴飽滿的体
				ENDIF
			ELSE
				PRINTFORM 体
			ENDIF
			PRINTFORMW 不斷磨蹭著、死乞白賴地懇求著愛撫……
		ENDIF
	ELSE
		PRINTFORM %CALLNAME:TARGET%的
		IF TALENT:娇小
			PRINTFORM 未発達な体
		ELSEIF TALENT:巨乳 && COND("苗条") == 0
			PRINTFORM 豐腴飽滿的体
		ELSE
			PRINTFORM 体
		ENDIF
		PRINTFORMW 抱住、仔细地进行愛撫…
	ENDIF
ELSE
	PRINTFORM %CALLNAME:PLAYER%将
	;挿入中
	IF INSERT("合体中")
		PRINTFORM %TEXTS("合体中", PLAYER)%將%CALLNAME:TARGET%的
		IF COND("脚弱点", PLAYER) && INSERT("屈曲位") && RAND:3
			IF CHECK_CLO("足露出") && RAND:3
				PRINTFORMW %TEXTR("玉足的每一根腳趾都精細的舔舐、吮吸著/雙腳的腳面用舌頭仔細地舔舐著")%……
				CALL SETFLAG, "足舐めフラグ", TARGET
			ELSE
				PRINTFORM %TEXTR("雙腳的腳面用舌頭仔細地舔舐著/嬌嫩的足心與自己的臉頰滑動、摩擦著/敏感濕熱的膝蓋窩不斷地啄吻著")%的同時、將
				IF MARK:淫紋 && (CHOSECOM(SELECTCOM) == 0 || PREVEX("Ｖ中出し") || RAND:3 == 0)
					PRINTFORM %TEXTR("被銘刻在下腹部的/在與子宮相對應的地方與之映照出來的/形態就像是將子宮的輪廓勾勒出來一樣的")%紋章
				ELSEIF TALENT:妊娠 && RAND:2 == 0
					PRINTFORM 巨大的お腹
				ELSEIF TALENT:娇小
					PRINTFORM 未発達な体
				ELSEIF TALENT:巨乳 && COND("苗条") == 0
					PRINTFORM 豐腴飽滿的体
				ELSE
					PRINTFORM 身体
				ENDIF
				IF TALENT:妊娠 || RAND:3 == 0
					PRINTFORM を温柔的
				ELSEIF RAND:2
					PRINTFORM を小心地
				ELSE
					PRINTFORM を精心地
				ENDIF
				PRINTFORMW %TEXTR("反復地撫摸著/輕柔地愛撫著")%……
			ENDIF
			RETURN 1
		ELSEIF CHECK_CLO("腋露出") && INSERT("正常位") + INSERT("屈曲位") && RAND:3
			PRINTFORM %TEXTS("腋：視覚")%
			IF RAND:3 == 0
				PRINTFORM 用舌尖不斷地挑逗著的同時、將
			ELSEIF RAND:2
				PRINTFORM 的味道用舌頭仔細品味著的同時、將
			ELSEIF PALAM:欲情 >= 30000 && RAND:2
				PRINTFORM 用舌頭仔細地舔舐並吮吸著汗液的同時、將
			ELSE
				PRINTFORM 用舌頭不斷舔舐著的同時、將
			ENDIF
			IF MARK:淫紋 && (CHOSECOM(SELECTCOM) == 0 || PREVEX("Ｖ中出し") || RAND:3 == 0)
				PRINTFORM %TEXTR("被銘刻在下腹部的/在與子宮相對應的地方與之映照出來的/形態就像是將子宮的輪廓勾勒出來一樣的")%紋章
			ELSEIF TALENT:妊娠 && RAND:2 == 0
				PRINTFORM 巨大的お腹
			ELSEIF TALENT:娇小
				PRINTFORM 未発達な体
			ELSEIF TALENT:巨乳 && COND("苗条") == 0
				PRINTFORM 豐腴飽滿的体
			ELSE
				PRINTFORM 身体
			ENDIF
			IF TALENT:妊娠 || RAND:3 == 0
				PRINTFORM を温柔的
			ELSEIF RAND:2
				PRINTFORM を小心地
			ELSE
				PRINTFORM を精心地
			ENDIF
			PRINTFORMW %TEXTR("反復地撫摸著/輕柔地愛撫著")%……
			CALL SETFLAG, "腋舐めフラグ", TARGET
			RETURN 1
		ENDIF
	;においフェチ分岐
	ELSEIF PLAYER == MASTER && COND("气味弱点", MASTER) + TALENT:相思相愛 && (CHOSECOM(SELECTCOM) == 0 || RAND:3 == 0)
		;腋
		IF CHECK_CLO("腋露出") && RAND:3 == 0
			SIF TALENT:害羞
				PRINTFORM 、恬不知恥的淫亂ずかしがる
			IF RAND:2
				PRINTFORMW %CALLNAME:TARGET%的%TEXTS("腋")%用鼻子湊近、將其中散發出來的汗液的%TEXTS("气味")%盡情的仔細嗅聞之後用舌頭細心的舔舐起來……
				CALL SETFLAG, "腋舐めフラグ", TARGET
				RETURN 1
			ELSE
				PRINTFORM %CALLNAME:TARGET%的%TEXTS("腋")%所散發的%TEXTS("气味")%仔細嗅聞之後、將
			ENDIF
		;汗ばんだ…とりあえず欲情かな
		ELSEIF PALAM:欲情 >= 3000 && RAND:2
			SIF TALENT:害羞
				PRINTFORM 、恬不知恥的淫亂ずかしがる
			IF RAND:4 == 0
				PRINTFORMW %CALLNAME:TARGET%の股間に顔を埋め的同时、汗ばんだ太腿を%TEXTR("撫で回/愛撫")%した…
			ELSEIF RAND:3 == 0
				PRINTFORMW %CALLNAME:TARGET%の体臭を嗅ぎ的同时、汗ばんだ身体を%TEXTR("撫で回/愛撫")%した…
			ELSEIF RAND:2
				PRINTFORMW %CALLNAME:TARGET%的全身都仔細地愛撫著、將這汗津津的嬌軀所散發的迷人%TEXTS("气味")%盡情享受著……
			ELSE
				PRINTFORM %CALLNAME:TARGET%的
				IF CHECK_CLO("腋露出") && RAND:3 == 0
					PRINTFORM %TEXTS("腋")%所散發的%TEXTS("气味")%
				ELSEIF COND("脚の使用") && COND("靴の着用") == 0 && RAND:2
					PRINTFORM 雙腳所散發的%TEXTS("气味")%
				ELSEIF CHECK_OUTER("休闲褲") == 0
					PRINTFORM 股间所散發的%TEXTS("气味")%
				ELSE
					PRINTFORM 美麗頭髮所散發的%TEXTS("气味")%
				ENDIF
				PRINTFORMW 仔細嗅聞著的同時、溫柔地%TEXTR("來回撫摸著/愛撫起來")%。
				PRINTFORMW 在%CALLNAME:PLAYER%被充分地刺激過全身之後、就好像是在給予反饋一樣、蒸騰著的迷人%TEXTS("气味")%變得更加濃郁了……
			ENDIF
			RETURN 1
		;髪は多分みんなある！
		ELSE
			IF RAND:4
				PRINTFORM 磨蹭着%CALLNAME:TARGET%的脸颊的同时
			ELSEIF RAND:3
				PRINTFORM 将脸埋入%CALLNAME:TARGET%的頭发中的同时
			ELSEIF RAND:2
				PRINTFORM 將%CALLNAME:TARGET%抱入懷中、將頭髮的氣味輕輕嗅聞的同時、將
			ELSE
				PRINTFORM 將%CALLNAME:TARGET%頭髮的氣味輕輕嗅聞的同時、將
			ENDIF
		ENDIF
	ELSEIF CHECK_CLO("腋露出") && RAND:3
		PRINTFORM 將%CALLNAME:TARGET%的%TEXTS("腋：視覚")%
		IF RAND:3 == 0
			PRINTFORM 用舌尖不斷地挑逗著的同時、將
		ELSEIF RAND:2
			PRINTFORM 的味道用舌頭仔細品味著的同時、將
		ELSEIF PALAM:欲情 >= 30000 && RAND:2
			PRINTFORM 用舌頭仔細地舔舐並吮吸著汗液的同時、將
		ELSE
			PRINTFORM 用舌頭不斷舔舐著的同時、將
		ENDIF
		CALL SETFLAG, "腋舐めフラグ", TARGET
	ELSE
		IF CHECK_COM("接吻") || TEQUIP:接吻
			PRINTFORM %TEXTS("接吻継続")%
			CALL SETFLAG, "追加接吻フラグ", TARGET
		ENDIF
		IF RAND:3 == 0
			IF CHECK_SHIRT("和服")
				PRINTFORM 将手滑进了%TEXTR("胸部的衣服中/和服的缝隙")%、
			ELSEIF CHECK_SHIRT("旗袍")
				PRINTFORM 将手伸进了旗袍的開衩中、
			ELSEIF CHECK_SHIRT("水手服")
				PRINTFORM 将手滑进了肚子的缝隙中、
			ELSEIF CHECK_SHIRT("情趣内衣")
				PRINTFORM 伸入薄薄的情趣内衣中、
			ELSEIF CHECK_SHIRT("衬衫")
				PRINTFORM 将手滑入衬衫的间隙中、
			ELSEIF CHECK_BODYS("死库水")
				PRINTFORM 将手插入泳衣的缝隙中、
			ELSEIF CHECK_BODYS("漆皮")
				PRINTFORM 将手滑入光滑的制服的缝隙中、
			ELSEIF CHECK_SHIRT("鎧")
				PRINTFORM 将手伸进铠甲的缝隙中、
			ELSEIF EQUIP:外套 && !CHECK_OUTER("休闲褲")
				PRINTFORM 将手伸进带有微汗的大腿内侧、
			ENDIF
		ENDIF
		PRINTFORM %CALLNAME:TARGET%的
	ENDIF

	IF MARK:淫紋 && (CHOSECOM(SELECTCOM) == 0 || PREVEX("Ｖ中出し") || RAND:3 == 0)
		PRINTFORM %TEXTR("被銘刻在下腹部的/在與子宮相對應的地方與之映照出來的/形態就像是將子宮的輪廓勾勒出來一樣的")%紋章
	ELSEIF TALENT:妊娠 && RAND:2 == 0
		PRINTFORM 巨大的お腹
	ELSEIF TALENT:男性
		IF TALENT:大力士
			PRINTFORM %TEXTR("匀称的肉/有一层薄薄肌肉的身/光滑的身")%体
		ELSE
			PRINTFORM %TEXTR("柔软的肉/摸起来很舒服的身/光滑的身")%体
		ENDIF
	ELSEIF TALENT:娇小
		PRINTFORM 未発達な体
	ELSEIF TALENT:巨乳 && COND("苗条") == 0
		PRINTFORM 豐腴飽滿的体
	ELSE
		PRINTFORM 身体
	ENDIF
	;お尻好きな你へ
	IF INSERT("正常位") + INSERT("屈曲位") + INSERT("背面座位") == 0 && RAND:3
		PRINTFORM 以及%TEXTS("お尻：感触")%
	;モノは試しの弱点突き。専用指令に分化するのも良いかも。
	;角
	ELSEIF TALENT:角 && RANDIF(3, TALENT:動物耳 + TALENT:精灵耳, TALENT:尾巴, TALENT:翼)
		SELECTCASE TALENT:角
		CASE 5
			PRINTFORM と長い角
		;CASE 9
		;	PRINTFORM とちっちゃな角
		CASEELSE
			PRINTFORM とスベスベした角
		ENDSELECT
	;翼or羽
	ELSEIF TALENT:翼 && RANDIF(3, TALENT:動物耳 + TALENT:精灵耳, TALENT:尾巴)
		IF RAND:2 == 0
			PRINTFORM 以及由於神經密集而十分敏感的翼根部分
		ELSE
			SELECTCASE TALENT:翼
			CASE 6, 10
				PRINTFORM 以及與惡魔身份十分相稱的蝠翼
			CASEELSE
				IF COND("種族：天使")
					PRINTFORM 以及有著天使神聖感的羽翼
				ELSE
					PRINTFORM 以及有著猛禽氣場的羽翼
				ENDIF
			ENDSELECT
		ENDIF
	;尾巴
	ELSEIF TALENT:尾巴 && RANDIF(3, TALENT:動物耳 + TALENT:精灵耳)
		SELECTCASE CONDS("尾巴")
		CASE "兎"
			PRINTFORM と蓬松的尾巴
		CASE "悪魔", "魔界人"
			IF RAND:2 == 0
				PRINTFORM と卷来卷去的尾巴
			ELSE
				PRINTFORM と心形尾巴的尖端
			ENDIF
		CASE "竜"
			;火精灵
			IF COND("種族：火精灵") && RAND:2
				PRINTFORM と前端燃着火的尾巴
			ELSEIF RAND:2 == 0
				PRINTFORM と摇晃着的尾巴
			ELSE
				PRINTFORM と覆盖着鱗片的尾巴
			ENDIF
		CASE "鼠"
			PRINTFORM と卷来卷去的尾巴
		CASE "狼", "狐", "馬"
			IF RAND:2
				PRINTFORM と蓬松的尾巴
			ELSE
				PRINTFORM と啪嗒啪嗒動着的尾巴
			ENDIF
		CASEELSE
			IF RAND:2
				PRINTFORM と蓬松的尾巴
			ELSE
				PRINTFORM と卷来卷去的尾巴
			ENDIF
		ENDSELECT
	ELSEIF TALENT:精灵耳 && RAND:3 == 0
		PRINTFORM 以及%TEXTR("與人類完全不同的細長/猶如童話中的妖精一樣的/不去觸碰就像是不存在的妖精一樣的")%尖耳
	;獣耳
	ELSEIF TALENT:動物耳 && RAND:3 == 0
		IF RAND:2 == 0
			PRINTFORM と
		ELSEIF RAND:2 == 0
			PRINTFORM 以及不斷抖動著的
		ELSE
			PRINTFORM 以及像是非常緊張一樣微微顫抖著的
		ENDIF
		PRINTFORM %CONDS("動物耳")%
	ENDIF

	IF TALENT:妊娠 || RAND:4 == 0
		PRINTFORM を温柔的
	ELSEIF RAND:3
		PRINTFORM を入念に
	ELSEIF RAND:2
		PRINTFORM を小心地
	ELSE
		PRINTFORM を精心地
	ENDIF
	IF PREVCOM == SELECTCOM
		PRINTFORMW 持續%TEXTR("反復地撫摸著/輕柔地愛撫著")%……
	ELSE
		PRINTFORMW %TEXTR("反復地撫摸著/輕柔地愛撫著")%……
	ENDIF
ENDIF


code:
@COM100
;舔足奉仕
CALL PRINT_TRAIN_NAME(SELECTCOM)
;-------------------------------------------------
;実行できるかの判定
;-------------------------------------------------
CALL SHOW_COM_ORDER_COM, 100

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

SIF REFUSE_CHECK()
	RETURN 0
STR:前回指令 = %STR:今回指令%
;-------------------------------------------------
;-------------------------------------------------
;射精格子
;-------------------------------------------------
;CALL SAMEN_CHECK
RETURN 1

@FLAG_COM100, ARG
CALL SETFLAG, "舔足奉仕FLAG", TARGET
;対象の口⇔調教者の脚的污垢が移動
CALL EQ_STAIN, TARGET, "Ｍ", PLAYER, "脚"

@SOURCE_COM100, ARG
CALL VARSET_COMF

CALL SOURCE_SERVICE_PLAY, "足を舐める"

CALL SOURCE_DOWNBASE_HP, 100

SOURCE:0:不潔 = COM_ORDER_STAIN("脚", "Ｍ")*80 + 80
SOURCE:0:欲情追加 = CALCF("実行値による欲情追加")
SOURCE:0:屈従 = 5000
SOURCE:0:逸脱 = 3000

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

@TRAIN_MESSAGE_COM100
IF CHECK_COM("連続実行")
	PRINTFORM %CALLNAME:TARGET%向%CALLNAME:PLAYER%
	IF CHECK_CLO("足露出", PLAYER) && ABL:受虐属性 >= 3
		PRINTFORMW 的腳趾%TEXTR("仔細地用舌頭一根根舔舐乾淨/發出淫靡的水聲愉快地吮吸著/用舌頭熱情地侍奉著")%……
	ELSE
		PRINTFORMW 的腳趾持續舔舐著……
	ENDIF
ELSEIF CHOSECOM(SELECTCOM)
	PRINTFORMW %CALLNAME:TARGET%再次低下頭將%CALLNAME:PLAYER%翹起的足趾用舌頭仔細地舔舐著……
ELSE
	PRINTFORM %CALLNAME:TARGET%
	IF CHECK_STAIN(STAIN:PLAYER:脚, "精液")
		PRINTFORM 將被精液弄髒的
	ELSEIF CHECK_STAIN(STAIN:PLAYER:脚, "Ｖ")
		PRINTFORM 被爱液弄脏了
	ELSEIF COND("浑身是汗", PLAYER) && RAND:2 == 0
		PRINTFORM %TEXTR("附著晶瑩汗滴的/散發著微微汗臭的")%
	ELSEIF ABL:PLAYER:施虐属性 >= 3
		PRINTFORM %TEXTR("迫不及待的壓在嘴唇上的/惡趣味的夾住鼻子的/清楚地擺在眼前的")%
		IF CHECK_OUTER("渔网连褲襪", PLAYER) || CHECK_OUTER("開放型连褲襪", PLAYER) || CHECK_OUTER("连褲襪", PLAYER)
			PRINTFORM 穿着%OUTER(PLAYER, "略")%的
		ELSEIF EQUIP:PLAYER:靴 == 0 && EQUIP:PLAYER:襪子
			PRINTFORM 穿着%SOCKS(PLAYER, "略")%的
		ENDIF
	ELSEIF CHECK_OUTER("渔网连褲襪", PLAYER) || CHECK_OUTER("開放型连褲襪", PLAYER) || CHECK_OUTER("连褲襪", PLAYER)
		PRINTFORM 穿着%OUTER(PLAYER, "略")%的
	ELSEIF EQUIP:PLAYER:靴 == 0 && EQUIP:PLAYER:襪子
		PRINTFORM 穿着%SOCKS(PLAYER, "略")%的
	ENDIF
	PRINTFORM %CALLNAME:PLAYER%的足
	IF EXP:足舐め経験 == 0
		IF TALENT:強気 || TALENT:高慢
			PRINTFORMW 一邊猶疑著一邊緩緩伸出舌頭……
		ELSE
			PRINTFORMW 戰戰兢兢的伸出了舌頭……
		ENDIF
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW 親吻過後、開始精心的舔舐起來……
	ELSE
		PRINTFORMW 用舌頭開始舔舐起來……
	ENDIF
ENDIF

@COM_ORDER_COM100, ARG
VARSET LOCAL
LOCALS =

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

LOCAL = RESULT

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

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

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

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

RETURN RESULT