code:
;-------------------------------------------------
;織口上
;製作者　金吉獣料理
;-------------------------------------------------

;-------------------------------------------------
;呼び名の設定。"_"の右にふりがなを書く。
;-------------------------------------------------
@CNAME_K14, ARGS
#FUNCTIONS

VARSET LOCALS

SELECTCASE ARGS
CASE "一人称"
	LOCALS = 俺_俺
CASE "二人称"
	;相手が主人
	IF PLAYER == MASTER
		IF TALENT:PLAYER:男性
			LOCALS = 你_你
		ELSE
			LOCALS = 你_你
		ENDIF

	;相手が成美
	ELSEIF PLAYER:COND("成美", PLAYER)
		LOCALS = 班长_班长

	;相手が主人ではない
	ELSE
		SELECTCASE CSTR:ASSI:学年
		CASE "１年生", "初等部", "中等部"
			IF TALENT:ASSI:男性
				LOCALS = %CALLNAME:PLAYER%君_%CSTR:PLAYER:ふりがな%君
			ELSE
				LOCALS = %CALLNAME:PLAYER%酱_%CSTR:PLAYER:ふりがな%酱
			ENDIF
		CASE "２年生"
			LOCALS = %CALLNAME:PLAYER%桑_%CSTR:PLAYER:ふりがな%桑
		CASE "３年生", "研究生"
			LOCALS = 前輩_前輩
		CASEELSE
			IF COND("教員", ASSI)
				LOCALS = 老师_老师
			ELSE
				LOCALS = %CALLNAME:PLAYER%桑_%CSTR:PLAYER:ふりがな%桑
			ENDIF
		ENDSELECT
	ENDIF

CASE "主人"
	LOCALS = 主人大人_主人大人

CASE "助手"
	IF ASSI:COND("成美", ASSI)
		LOCALS = 班长_班长
	ELSE
		SELECTCASE CSTR:ASSI:学年
		CASE "１年生", "初等部", "中等部"
			IF TALENT:ASSI:男性
				LOCALS = %CALLNAME:ASSI%君_%CSTR:ASSI:ふりがな%君
			ELSE
				LOCALS = %CALLNAME:ASSI%酱_%CSTR:ASSI:ふりがな%酱
			ENDIF
		CASE "２年生"
			LOCALS = %CALLNAME:ASSI%桑_%CSTR:ASSI:ふりがな%桑
		CASE "３年生"
			LOCALS = 前輩_前輩
		CASEELSE
			IF COND("教員", ASSI)
				LOCALS = 老师_老师
			ELSE
				LOCALS = %CALLNAME:ASSI%桑_%CSTR:ASSI:ふりがな%桑
			ENDIF
		ENDSELECT
	ENDIF
ENDSELECT
RETURNF LOCALS

;-------------------------------------------------
;勧誘イベントのセリフや紹介文
;-------------------------------------------------
@EVENT_PROFILE_K14, ARGS

SELECTCASE ARGS
CASE "紹介文"
	STR:1 = 被一个无论如何都想吸処女血的変態吸血鬼袭击了、吃了一招Midnight Bliss。
	STR:2 = 而且不知道是因为有这种素質还是怎么回事、总之变成了一个吸血鬼、而且也回不去男儿身了。

CASE "勧誘"
	PRINTFORML - %NAME:TARGET% -
	PRINTL
	PRINTFORML 「……和%CNAMET(FINDCHARA(NO, 1), "二人称")%性交的话说不定就能变回原样」
	PRINTFORMW 在%CALLNAME:FINDCHARA(NO, 1)%如此说明的同时、面前的少女低下了頭。
	PRINTL
	PRINTFORML 面前的这个少女被偶然路过的吸血鬼所襲击、又被自己偶然地给救下了……。
	PRINTFORML 但是救过来的时候就已经被吸了血、肉体也開始向吸血鬼转变了。
	PRINTFORMW 最终从男性变成了少女。

;これは別になくても構いません
CASE "勧誘直後"
	PRINTFORML 于是%CALLNAME:MASTER%和%CALLNAME:TARGET%准备和%CALLNAME:FINDCHARA(NO, 1)%做点魂的交易、给她出点力。
	PRINTFORMW 「呜……为什么%CNAME("一人称")%会遇到这种事……」

;これも別になくても構いません。特殊な条件がある場合などにどうぞ
CASE "出現条件"
	PRINTFORMW %NAME:TARGET%は%CALLNAME:MASTER%の"%CSTR:関係%"として、(昼)の部室に顔を出してくれます。
ENDSELECT

;-------------------------------------------------
;この角色が拒否している指令のフラグ立てや其他色々なフラグを開始前に設定できる
;partnerは勿論、指导者の時でも読み込む
;-------------------------------------------------
@SETFLAG_BEFORE_TRAIN_K14

TFLAG:取引承諾 = 0
TFLAG:取引拒否 = 1

;-------------------------------------------------
;一日の終わりでフラグなどを変化させたい時にはここで弄ることが出来る
;-------------------------------------------------
@TIMEEVENT_K14
IF COND("夜")
	;吸血は一日一回まで
	CFLAG:織吸血フラグ = 0
ENDIF

;-------------------------------------------------
;調教開始時のセリフ
;-------------------------------------------------
@EVENTTRAIN
SIF NO:TARGET != 14
	RETURN 1

DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("調教開始：初調教") == 0
	[IF_DEBUG]
		PRINTFORMW EVENTTRAIN, Ｈ初回
	[ENDIF]
	CALL SET_CEVENT, "調教開始：初調教"
;-------------------------------------------------
;調教開始時（一回のみ）
;-------------------------------------------------
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ１") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ１"
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ２") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ２"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ３") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ３"
;恋慕
ELSEIF TALENT:恋慕 && CEVENT("調教開始：恋慕") == 0
	;淫乱を先に獲得したかで分岐させたい場合(別にこの分岐は無くても良いと思います)
	IF CEVENT("先に淫乱獲得")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	CALL SET_CEVENT, "調教開始：恋慕"
;相思相愛
ELSEIF TALENT:相思相愛 && CEVENT("調教開始：相思相愛") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：相思相愛"
;助手の有無をチェック（いない場合は二回目以降へ飛ぶ）
ELSEIF ASSI <= 0
	CALL K14_KOJO2

;-------------------------------------------------
;助手との掛け合い(YYを助手の角色番号に置換、ＸＸを助手の角色番号に対応した名前に変更する)
;掛け合いをする角色を増やす場合は、コピー＆ペーストをして増やす
;-------------------------------------------------
;助手
;ELSEIF NO:ASSI == YY
	;初めて
;	IF CEVENT("助手会話：ＸＸ") == 0
		;恋慕＋恋慕時初口上（陥落イベント）が発生済み
;		IF CEVENT("調教開始：恋慕")
;			PRINTFORMW
		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		CALL SET_CEVENT, "助手会話：ＸＸ"
	;二回目以降
;	ELSE
		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;	ENDIF
;口上のある助手が居ない場合は、通常の二回目以降の口上へ飛ぶ
ELSE
	CALL K14_KOJO2
ENDIF

RETURN 1

;-------------------------------------------------
;調教開始時（2回目以降）
;-------------------------------------------------
@K14_KOJO2
;恋慕
IF TALENT:恋慕
	PRINTFORMW
;屈服刻印Lv0
ELSEIF MARK:屈服刻印 == 0
	PRINTFORMW
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1
	PRINTFORMW
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	PRINTFORMW
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	PRINTFORMW
ENDIF
RETURN 1

;-------------------------------------------------
;調教終了時のセリフ
;-------------------------------------------------
@EVENTEND
SIF NO:TARGET != 14
	RETURN 1

DRAWLINE
;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
;調教強制終了時の口上
IF STATE("撃沈", MASTER)
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;其他
	ELSE
		PRINTFORMW
	ENDIF
;partnerが体力or精力尽きた場合
ELSEIF STATE("撃沈")
	PRINTFORMW
;恋慕＋満足
ELSEIF TALENT:恋慕 && COND("満足")
	PRINTFORMW
;恋慕
ELSEIF TALENT:恋慕
	PRINTFORMW
;屈服刻印Lv1以下
ELSEIF MARK:屈服刻印 <= 1
	PRINTFORMW
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	PRINTFORMW
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	PRINTFORMW
ENDIF
RETURN 1

;-------------------------------------------------
;指令実行時のセリフ
;-------------------------------------------------
@KOJO_MESSAGE_COM_K14
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

;-------------------------------------------------
;愛撫
;-------------------------------------------------
IF SELECTCOM == 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「那么，赶紧做完吧。」

	;二回目以降
	ELSE
		IF MARK:快楽刻印 >= 2
			SELECTCASE RAND:3
			CASE 0
				CALL PRINT_STR, @"「%TEXTR("哈！/呼/嗯，嗯")%_H_ 那里……好吧_H_」_W"
			CASE 1
				CALL PRINT_STR, @"「%TEXTR("嗯啊/嗯……/别")%_H_呀，算了……%TEXTR("嗯，嗯/H！")%_H_」_W"
			CASEELSE
				CALL PRINT_STR, @"「%TEXTR("啊！/噗/嗯")%_H_只、只是痒痒！」_W"
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「……%TEXTR("嗯，嗯/啊！/咕")%　……没什么。」
			CASE 1
				PRINTFORMW 「……%TEXTR("噗/呼—/哈！")%　……好……哈哈」
			CASEELSE
				PRINTFORMW 「%TEXTR("啊！/噗/嗯")%　……只是痒痒！」
			ENDSELECT
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰　面部騎乗(被逆推ているとき)
;-------------------------------------------------
IF SELECTCOM == 1
	;被逆推ているとき
	IF TEQUIP:推倒
		;初めて
		IF FIRSTCOM_REV(SELECTCOM) == 0
			PRINTFORMW 「这、这样说……喜欢吧？」
		;二回目以降
		ELSE
			IF MARK:快楽刻印 >= 2
				SELECTCASE RAND:3
				CASE 0
					CALL PRINT_STR, @"「%TEXTR("哈！/呼呼/嗯，嗯")%_H_啊_H_……你的腰停止了_H_」_W"
				CASE 1
					CALL PRINT_STR, @"「%TEXTR("嗯啊啊/呼呼/嗯，嗯")%_H_H_ 那、那就是_H_更多_H_」_W"
				CASEELSE
					CALL PRINT_STR, @"「%TEXTR("啊啊啊/呼呼/嗯，嗯")%_H_到更深处……的_H_」_W"
				ENDSELECT
			;それ以外
			ELSE
				SELECTCASE RAND:3
				CASE 0
					CALL PRINT_STR, @"「%TEXTR("哈！/噗/嗯")%H什么的……好吧_H_」_W"
				CASE 1
					CALL PRINT_STR, @"「%TEXTR("嗯啊/嗯……/呼呼")%H哈……感受_H_」_W"
				CASEELSE
					CALL PRINT_STR, @"「%TEXTR("啊！/噗/嗯")%_H_　ん嗯……深一点_H_」_W"
				ENDSELECT
			ENDIF
		ENDIF

	ELSE
		;初めて
		IF FIRSTCOM(SELECTCOM) == 0
			PRINTFORMW 「呀，算了……很脏吧！？」
		;二回目以降
		;清洁舔阴
		ELSEIF COND("清洁舔阴フラグ", PLAYER)
			SELECTCASE RAND:3
			CASE 0
				CALL PRINT_STR, @"「%TEXTR("哈！/呼呼/嗯，嗯")%H啊H……你不脏吧？」_W"
			CASE 1
				CALL PRINT_STR, @"「%TEXTR("压力/河豚/嗯，嗯")%H……喂，呼气吧_H_」_W"
			CASEELSE
				CALL PRINT_STR, @"「%TEXTR("啊啊啊/呜呜/嗯")%H呀，住手……っ_H_」_W"
			ENDSELECT

		;それ以外
		ELSE
			IF MARK:快楽刻印 >= 2
				SELECTCASE RAND:3
				CASE 0
					CALL PRINT_STR, @"「%TEXTR("哈！/呼呼/嗯，嗯")%_H_啊_H_……你的腰停止了_H_」_W"
				CASE 1
					CALL PRINT_STR, @"「%TEXTR("嗯啊啊/呼呼/嗯，嗯")%_H_H_ 那、那就是_H_更多_H_」_W"
				CASEELSE
					CALL PRINT_STR, @"「%TEXTR("啊啊啊/呼呼/嗯，嗯")%_H_到更深处……的_H_」_W"
				ENDSELECT
			;それ以外
			ELSE
				SELECTCASE RAND:3
				CASE 0
					CALL PRINT_STR, @"「%TEXTR("哈！/噗/嗯")%只是心情不好而已！」_W"
				CASE 1
					CALL PRINT_STR, @"「%TEXTR("嗯啊/嗯……/呜呜")%Hそ、那里、停下！」_W"
				CASEELSE
					CALL PRINT_STR, @"「%TEXTR("啊啊啊/呼呼/嗯，嗯")%H那样的话，舔，停止！」_W"
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;肛門愛撫
;-------------------------------------------------
IF SELECTCOM == 2
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;気持ちいい
		IF CHECK("Ａ指挿入")
			CALL PRINT_STR, @"「呜H停下……这是不对的！？」_W"
		;それ以外
		ELSE
			PRINTFORMW 「唔……停下来，那里是……不对！？」
		ENDIF
	;二回目以降
	ELSE
		;快楽刻印
		IF MARK:快楽刻印 >= 2
			;Ａ振動棒使用中
			IF TEQUIP:肛用振動棒
				;Ｓ状結腸まで振動棒が侵入している
				IF CHECK_COM("結腸責め")
					SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「%TEXTR("呜呜/哈！/啊啊！")%……喂……嘿嘿嘿」
					CASE 1
						PRINTFORMW 「%TEXTR("呜呜/哈！/啊啊！")%……%TEXTR("咕/呜呜/哈哈")%、屁股、停止」
					CASEELSE
						PRINTFORMW 「%TEXTR("呜呜/哈！/啊啊！")%……呼……呼……」
					ENDSELECT
				ELSE
					SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「%TEXTR("呼—/哈哈/呜呜")%……嗯……会变成人妖的」
					CASE 1
						PRINTFORMW 「%TEXTR("呼—/哈哈/呜呜")%……屁股，停下来……滚！」
					CASEELSE
						PRINTFORMW 「%TEXTR("呼—/哈哈/呜呜")%……呼呼呼……」
					ENDSELECT
				ENDIF
			ELSE
				SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「%TEXTR("哈哈哈/呜呜/嗯啊")%……那里是…%TEXTR("不同/停止")%」
				CASE 1
					PRINTFORMW 「%TEXTR("哈哈哈/呜呜/嗯啊")%……嗯……感觉」
				CASEELSE
					PRINTFORMW 「%TEXTR("哈哈哈/呜呜/嗯啊")%……哈……哈……」
				ENDSELECT
			ENDIF
		;気持ちいい
		ELSEIF CHECK("Ａ指挿入")
			;Ａ振動棒使用中
			IF TEQUIP:肛用振動棒
				;Ｓ状結腸まで振動棒が侵入している
				IF CHECK_COM("結腸責め")
					IF TALENT:結腸性感
						CALL PRINT_STR, @"「%TEXTR("噗/哈哈/嘿嘿")%_H_ ……%TEXTR("这样啊/哪里/屁股")%、%TEXTR("变得奇怪/变了啊/坏掉了")%_H_H_」_W"
					ELSE
						CALL PRINT_STR, @"「%TEXTR("噗/哈哈/嘿嘿")%_H_ ……%TEXTR("哈！/呼呼/忽然")%、%TEXTR("啊啊啊啊啊/哈，哈/")%_H_H_」_W"
					ENDIF
				ELSE
					CALL PRINT_STR, @"「%TEXTR("噗/哈哈/嘿嘿")%_H_ ……%TEXTR("哈！/呼呼/忽然")%、%TEXTR("啊啊啊啊啊/哈，哈/")%_H_H_」_W"
				ENDIF
			ELSE
				CALL PRINT_STR, @"「%TEXTR("噗/哈哈/嘿嘿")%_H_ ……%TEXTR("哈！/呼呼/忽然")%、%TEXTR("啊啊啊啊啊/哈，哈/")%_H_H_」_W"
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW 「%TEXTR("哈哈哈/呜呜/嗯啊")%……哈……这样啊」
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;自慰
;-------------------------------------------------
IF SELECTCOM == 3
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰莖(扶她/男性のみ)
;-------------------------------------------------
IF SELECTCOM == 4
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;胸愛撫
;-------------------------------------------------
IF SELECTCOM == 5
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;接吻
;-------------------------------------------------
IF SELECTCOM == 6
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「は、はぁ！？ 接吻だって！？」
			IF TALENT:MASTER:男性
				PRINTFORMW 「ちょっと待てよ、%CNAME("一人称")%は男同士でそういうのは……んぶっ！？」
			ELSE
				PRINTFORMW 「落ち着けって！ %CNAME("一人称")%は男だけど、今は女同士で、ええと、その……んぶっ！？」
			ENDIF
			PRINTFORMW 「んっ、むーっ！」
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;テンダー接吻
		IF CHECK_COM("テンダー接吻")
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;阴部愛撫
;阴蒂の場合にはCHECK_COM("陰核愛撫"), 阴部の場合にはCHECK_COM("阴部愛撫"), 恥丘ならCHECK_COM("恥丘愛撫")がONになる
;-------------------------------------------------
IF SELECTCOM == 7
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;中出し後にお掃除
	ELSEIF CHECK_COM("擦拭")
		;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
		RETURN 0
		PRINTFORMW
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;指挿入
;CHECK_COM("玩弄Ｇ点")とTEQUIP:振動棒で大きく分岐する
;-------------------------------------------------
IF SELECTCOM == 8
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;振動棒挿入中
		IF TEQUIP:振動棒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;Gスポット刺激
	ELSEIF CHECK_COM("玩弄Ｇ点")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;気持ちいい
		ELSEIF CHECK("指挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;振動棒挿入中
	ELSEIF TEQUIP:振動棒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;気持ちいい
		ELSEIF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐肛　Ａ面部騎乗(被逆推ているとき)
;-------------------------------------------------
;舐肛
IF SELECTCOM == 9
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方手交
;-------------------------------------------------
IF SELECTCOM == 10
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方乳交
;-------------------------------------------------
IF SELECTCOM == 11
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方足交
;-------------------------------------------------
IF SELECTCOM == 12
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開阴道
;-------------------------------------------------
IF SELECTCOM == 13
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開菊穴
;-------------------------------------------------
IF SELECTCOM == 14
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道指挿入
;-------------------------------------------------
IF SELECTCOM == 15
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;跳蛋
;-------------------------------------------------
IF SELECTCOM == 30
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 31
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ｖ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛用振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 33
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("Ａ振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ａ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:肛用振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("Ａ振動棒")
			;Ｓ状結腸まで振動棒が侵入している
			IF CHECK_COM("結腸責め")
				IF TALENT:結腸性感
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;飛機杯
;-------------------------------------------------
IF SELECTCOM == 37
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;Ｖ挿入系初選択
;-------------------------------------------------
IF SELECTCOM >= 60 && SELECTCOM <= 69 && FIRSTCOMS("Ｖ挿入") == 0
	;処女
	IF TALENT:処女
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORML 「ぐッ！？　ちょまっ……ぁあ……！！」
			PRINTFORML 「い、……いて―じゃねーかっ、このヤローっ！」
			PRINTFORMW %CALLNAME:TARGET%は疼痛で体を強張らせつつ、%CALLNAME:PLAYER%の脇腹を吸血鬼の怪力にしては力なく殴った。
		ENDIF
	;非処女
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ｖ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOMS("Ｖ挿入") == 0 && CEVENT("Ｖ挿入痛くない") == 0
	IF CUP:苦痛 >= 100
		IF CEVENT("Ｖ挿入二回目") == 0
			PRINTFORML 「ぅぐっ……痛いのは最初だけかと期待してたけど……」
			PRINTFORML 「そ、そんなことねーのな……」
			PRINTFORMW %CALLNAME:TARGET%は弱々しく手を突きだして、%CALLNAME:PLAYER%の動きを暫し押しとどめた。
			CALL SET_CEVENT, "Ｖ挿入二回目"
		ELSEIF SIZE("阴茎", PLAYER) >= 2 && CEVENT("Ｖ挿入巨根が痛い") == 0
			PRINTFORML 「くぅっ……ホントに慣れねーなこれ……」
			PRINTFORML 「あー……巨根が女にモテるとかぜってー嘘だわ……」
			PRINTFORMW %CALLNAME:TARGET%は恨めしそうに%CALLNAME:PLAYER%の腰のあたりを睨みつけてる。
			CALL SET_CEVENT, "Ｖ挿入巨根が痛い"
		ELSE
			PRINTFORML 「っ……やっぱ、まだ……いてて！」
			PRINTFORML 「ハァ……これってどんぐらいヤったら身体が慣れんのかなぁ」
			PRINTFORMW %CALLNAME:TARGET%は片目を闭眼ながら顔をしかめて、慣れない疼痛に辟易としている。
		ENDIF
	ELSE
		PRINTFORML 「んっ……！」
		PRINTFORML 「…………あれ？今日はあんまり痛くないな」
		PRINTFORML 「ふぃ～……ようやく少しは楽しめるよう变成了って訳かな。……温柔的頼むぜ？」
		PRINTFORMW %CALLNAME:TARGET%は緊張していた身体から力を抜いて、%CALLNAME:PLAYER%に念を押してきた。
		CALL SET_CEVENT, "Ｖ挿入痛くない"
	ENDIF
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOMS("Ｖ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;巨根
	IF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 65
			PRINTFORMW
		;対面座位
		CASE 63
			PRINTFORMW
		;それ以外
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ｖ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
	IF TEQUIP:手下留情 && NOWEX:Ｖ绝顶前骤停 && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ｖ対応指令") && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位"
			IF TALENT:恋慕 && RAND:3 == 0
				PRINTFORMW
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		CASEELSE
			IF TALENT:恋慕
				IF RAND:2
					CALL PRINT_STRW, @"「%TEXTR("ふーっ/はあぁ/ううぅっ")%…%CNAME("二人称")%の…%TEXTR("すごい/デカい/キツい")%んだから…%TEXTR("加減/ゆっくり/やさしく")%しろ_H_H_」"
				ELSE
					CALL PRINT_STRW, @"「%TEXTR("んっ/はあぁ/ううぅっ")%…%CNAME("一人称")%の%TEXTR("ナカ/女の部分/奥")%で%TEXTR("暴れ/蹂躙し/すぽずぽし")%すぎだぞ_H_H_」"
				ENDIF
			ELSEIF RAND:4 == 0
				PRINTFORMW
			ELSEIF RAND:3 == 0
				PRINTFORMW
			ELSEIF RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ENDSELECT
	ENDIF
	RETURN 1
;-------------------------------------------------
;二穴挿入(書く場合には;を消してください)
;-------------------------------------------------
;ELSEIF SELECTCOM >= 60 && SELECTCOM <= 79 && COND("３Ｐ")
;	IF CHECK_COM("两根挿入Ｖ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ｖ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("两根挿入Ａ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ａ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("二穴挿入")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("二穴挿入")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ENDIF
ENDIF

;-------------------------------------------------
;正常位
;-------------------------------------------------
IF SELECTCOM == 60
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;後背位
;-------------------------------------------------
IF SELECTCOM == 61
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;屈曲位
;-------------------------------------------------
IF SELECTCOM == 62
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;対面座位
;-------------------------------------------------
IF SELECTCOM == 63
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;背面座位
;-------------------------------------------------
;背面座位
IF SELECTCOM == 64
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;騎乗位
;-------------------------------------------------
IF SELECTCOM == 65
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;挿入刺激Ｇ点
;-------------------------------------------------
IF SELECTCOM == 66
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;挿入子宮口玩弄
;-------------------------------------------------
IF SELECTCOM == 67
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;子宮挿入
;-------------------------------------------------
IF SELECTCOM == 68
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ａ挿入系初選択
;疼痛が少なく楽しめているかはCHECK("Ａ挿入")で判定
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 79 && FIRSTCOMS("Ａ挿入") == 0
	;Ａ処女
	IF TALENT:Ａ処女
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ａ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOMS("Ａ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;巨根
	ELSEIF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 75
			PRINTFORMW
		;対面座位
		CASE 73
			PRINTFORMW
		;それ以外
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
;-------------------------------------------------
;Ｓ状結腸を使っての肛門性交
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHECK_COM("結腸責め")
	;初めての結腸責め
	IF EXP:結腸経験 == 0
		PRINTFORMW
	;今回初の結腸責め
	ELSEIF EXP_GAIN("結腸経験") == 0
		IF TALENT:結腸性感
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:結腸性感
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ａ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
	IF TEQUIP:PLAYER:手下留情 && NOWEX:Ａ绝顶前骤停 && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;余裕が無い
	ELSEIF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ａ対応指令") && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位"
			IF TALENT:恋慕 && RAND:3 == 0
				PRINTFORMW
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		CASEELSE
			IF RAND:4 == 0
				PRINTFORMW
			ELSEIF RAND:3 == 0
				PRINTFORMW
			ELSEIF RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ENDSELECT
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門性交(初めては上のＡ挿入系初選択などで)
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 74
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門騎乗位
;-------------------------------------------------
IF SELECTCOM == 75
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;貝あわせ
;-------------------------------------------------
IF SELECTCOM == 80
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;雙乳間抽插
;-------------------------------------------------
IF SELECTCOM == 81
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;乳頭奸
;-------------------------------------------------
IF SELECTCOM == 82
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道挿入…細かく体位で分ける場合には以下の様になっている
;83,尿道正常位
;84,尿道後背位
;85,尿道屈曲位
;86,尿道対面座位
;87,尿道背面座位
;-------------------------------------------------
IF SELECTCOM >= 83 && SELECTCOM <= 87
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕が無い
		IF CHECK("尿道挿入") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕が無い
		IF CHECK("尿道挿入") == 0
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道騎乗位
;-------------------------------------------------
IF SELECTCOM == 88
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;洗面奶手交
;手淫と洗面奶から派生する
;-------------------------------------------------
IF CHECK_COM("洗面奶手交")
	;恋慕
	IF TALENT:恋慕
		IF COND("喝母乳フラグ", PLAYER)
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		IF COND("喝母乳フラグ", PLAYER)
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;手淫
;-------------------------------------------------
IF SELECTCOM == 90
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF RAND:3 == 0
				PRINTFORMW 「…おい、変な声出すなよ気持ち悪い」
				PRINTFORMW 「気が散るから静かにしろっての…」
			ELSEIF RAND:2
				PRINTFORMW 「こうしてやるのにも慣れちまったなー…」
				PRINTFORMW 「ま、全然ちっともうれしくねーけど…」
			ELSE
				PRINTFORMW 「ん～？マジで感じてんの、%CNAME("二人称")%？」
				PRINTFORMW 「……そ、そっか…」
			ENDIF
		;それ以外
		ELSE
			IF RAND:3 == 0 && ABL:技巧 >= 3
				PRINTFORMW 「ここを……こうだろ？」
				PRINTFORMW 「どうしてもわかっちまうんだよ……わかりたくもねーのに…」
			ELSEIF RAND:2
				PRINTFORMW 「………」
				PRINTFORMW 「うるさい、何も言うな…今%CNAME("一人称")%は心を殺してるんだ」
			ELSE
				PRINTFORMW 「はぁ～ぁ……」
				PRINTFORMW 「何が悲しくてこんなもん触んなくちゃいけないんだよ…」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口交
;-------------------------------------------------
IF SELECTCOM == 91
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSEIF CHECK_COM("阴茎接吻")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;みんな大好き清洁口交
	ELSEIF CHECK_COM("清洁口交")
		;恥垢もお掃除
		IF CHECK_COM("恥垢清洁口交")
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕 && RANDIF(1, ABL:奉仕精神 >= 3)
			PRINTFORMW
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;乳交
;-------------------------------------------------
IF SELECTCOM == 92
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;素股
;-------------------------------------------------
IF SELECTCOM == 93
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「す、すまた？ 入れなくていいってことか？」
		IF TALENT:処女
			PRINTFORMW 「まあ、それでいいなら%CNAME("一人称")%だって願ったり叶ったりだけどよ」
			PRINTFORMW 「いきなり勝手に入れたりするなよ？」
		ELSE
			PRINTFORMW 「なんだよ、人の膜破っといて今さら躊躇してんのか？」
			PRINTFORMW 「それとも試してみたいだけか……ま、どうでもいいけどさ」
		ENDIF
	;二回目以降
	ELSEIF CHECK_COM("展示肉棒")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;泡泡浴
;-------------------------------------------------
IF SELECTCOM == 94
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;足交(PENIS(PLAYER)で調教者のチンコの有無が確認できます)
;-------------------------------------------------
IF SELECTCOM == 95
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW 「足ぃ？足でどーしろってんだよ」
			PRINTFORMW 「足の裏で擦ったりって……いや、それぜってー痛いだろ？」
			PRINTFORMW 「やめとけって……な？」
			PRINTFORMW 乗り気では無さそうな%CALLNAME:TARGET%に頼み込むと、渋々と両脚で%CALLNAME:MASTER%のモノを扱き始めた…
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			IF RAND:2
				PRINTFORMW 「本当に%CNAME("一人称")%のって強ぇよなぁ……こんなに踏まれてんのに」
				PRINTFORMW 「ゆーっくり体重かけて、どこまで耐えられるか試してみるか？」
				PRINTFORMW 「ハッハッ♪ 冗談だって、そんな青い顔すんなよ」
			ELSE
				PRINTFORMW 「どうしたよ、辛そうな顔だぜ？」
				PRINTFORMW 「足でされるのは嫌か？ でもコッチはそうは言ってないよなぁ？」
			ENDIF
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			IF MARK:屈服刻印 >= 2
				IF RAND:4 == 0
					PRINTFORMW 「足の裏でもビクビク動いてんのワカるもんなんだなー…」
					PRINTFORMW ひんやりとした%CALLNAME:TARGET%の足裏が、肉に触れる。
					PRINTFORMW 「気持ち悪いってよりもう感動モンだぜこれ？」
					PRINTFORMW 感心したように弄ぶ足先が動く度に%CALLNAME:PLAYER%の肉は開心地跳ねた…
				ELSEIF RAND:3 == 0
					PRINTFORMW 「お、%CNAME("一人称")%今腰引いたな？」
					PRINTFORMW 快感に反応した%CALLNAME:PLAYER%の動きに%CALLNAME:TARGET%は目聡く目を光らせる。
					PRINTFORMW 「ハッハッ……覚えたぜ、覚悟しろよ」
				ELSEIF RAND:2
					PRINTFORMW 「ハハッ、なんだよ、%TEXTR("可愛いもんじゃねえか/慣れちまえば結構楽勝だな")%」
					PRINTFORMW 「うりうり、%CNAME("一人称")%のここで擦られるのが好きなんだろ？」
					PRINTFORMW 「酱と答えろよ～せっかくごほーししてやってんだぜ？」
				ELSE
					PRINTFORMW 「なんだろうなー、妙にやり甲斐あるっつーか」
					PRINTFORMW 「難易度高いクソゲーの１面攻略してる時みたいっつーか」
				ENDIF
			ELSE
				IF RAND:4 == 0
					PRINTFORMW 「なーにが悲しくて足でこんなことしてんだろーなー%CNAME("一人称")%……」
					PRINTFORMW 「ハァ……で、%CNAME("二人称")%は%CNAME("二人称")%でなーんでこんなに固くなってんだよ……」
				ELSEIF RAND:3 == 0
					PRINTFORMW 「是是やりゃあいいんだろー足で！」
					PRINTFORMW 「思いっきりイジメてやるからさっさと出せよ！」
					PRINTFORMW %CALLNAME:TARGET%の言葉とは裏腹に足裏の奉仕は適度に痛気持ち好東西だった……
				ELSEIF RAND:2
					PRINTFORMW 「あ？ ちょっと痛いって？」
					PRINTFORMW 「%TEXTR("文句言うなよ、意外と難しいんだから/だからやめとこーぜって言ったじゃんか…")%」
				ELSE
					PRINTFORMW 「なぁ、ちょっと休憩していいか？」
					PRINTFORMW 「……足攣りそうなんだよ」
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;肛門奉仕
;-------------------------------------------------
IF SELECTCOM == 96
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;内褲冲
;-------------------------------------------------
IF SELECTCOM == 97
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;奉仕舐陰
;-------------------------------------------------
IF SELECTCOM == 98
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;六九式
;-------------------------------------------------
IF SELECTCOM == 99
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;洗面奶
;-------------------------------------------------
IF SELECTCOM == 104
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW 「%CNAME("二人称")%なぁ……%CNAME("一人称")%は男だぞ？」
		PRINTFORMW 「男の胸なんかでこんなことしてもらって、何が嬉しいんだよ……」
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			IF RAND:2
				PRINTFORMW 「ったく……満足そうな顔してんなぁ。%CNAME("一人称")%にはよくわかんねーよ」
			ELSE
				PRINTFORMW 「……そんなに良いもんか？ 男の胸なんてさ」
				SIF TALENT:貧乳
					PRINTFORMW 「別におっきいわけでもないのになぁ、%CNAME("一人称")%のなんか」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;飞机杯冲
;-------------------------------------------------
IF SELECTCOM == 105
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;逆振動棒
;-------------------------------------------------
IF SELECTCOM == 106
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;逆Ａ振動棒
;-------------------------------------------------
IF SELECTCOM == 107
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ｖ逆挿入系初選択
;-------------------------------------------------
IF SELECTCOM >= 120 && SELECTCOM <= 124 && FIRSTCOMS("Ｖ逆挿入") == 0
	;調教者が処女
	IF TALENT:PLAYER:処女
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;正常位奉仕
;-------------------------------------------------
IF SELECTCOM == 120
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;後背位奉仕
;-------------------------------------------------
IF SELECTCOM == 121
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;騎乗位侵犯
;-------------------------------------------------
IF SELECTCOM == 122
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ａ正常位奉仕
;-------------------------------------------------
IF SELECTCOM == 125
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ａ後背位奉仕
;-------------------------------------------------
IF SELECTCOM == 126
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ａ騎乗位侵犯
;-------------------------------------------------
IF SELECTCOM == 127
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;打屁股
;あんまり痛くしません。ぴしゃぴしゃ
;-------------------------------------------------
IF SELECTCOM == 130
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;眼罩
;-------------------------------------------------
IF SELECTCOM == 133
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:眼罩 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;拘束
;-------------------------------------------------
IF SELECTCOM == 134
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:拘束 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口枷
;何を付けたかはCOND("口球")、COND("開口口枷")で判定できる
;付ける前のセリフは@KOJO_MESSAGE_BEFORE_COMに書くのも良いでしょう
;-------------------------------------------------
IF SELECTCOM == 135
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:口枷 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;浣腸
;大量的液体を注いだかはCOND("大量浣腸")で判定できます
;-------------------------------------------------
IF SELECTCOM == 136
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;排泄
	ELSEIF TEQUIP:浣腸 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;让对方浴尿
;と是えまだ浴尿は出来ません
;直前に口交系指令なら口内放尿、性交系なら膣内放尿、Ａ性交系なら温泉浣腸となる
;別の指令が複数つまっているようなものなので正直な所、分岐が多くて煩雑です
;-------------------------------------------------
IF SELECTCOM == 138
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	IF CHECK_COM("口内放尿")
		;初めて
		IF EXP:飲尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("口内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("口内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("子宮内放尿")
		;初めて
		IF EXP:子宮浴尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("子宮内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("子宮内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("膣内放尿")
		;初めて
		IF EXP:膣内浴尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("膣内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("膣内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("温泉浣腸")
		;初めて
		IF EXP:温泉浣腸経験 == 0
			;PLAYを受け入れていない
			IF CHECK("温泉浣腸") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("温泉浣腸") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("乳内放尿")
		;初めて
		IF EXP:乳内浴尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("乳内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("乳内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("膀胱内放尿")
		;初めて
		IF EXP:輸尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("膀胱内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("膀胱内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;什麼也不做
;-------------------------------------------------
IF SELECTCOM == 139
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;強制口交
;-------------------------------------------------
IF SELECTCOM == 140
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;フィスト系指令
;-------------------------------------------------
IF SELECTCOM == 141 || SELECTCOM == 142 || SELECTCOM == 143
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;楽しめる余裕が無い
		IF CHECK("フィスト") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
			RETURN 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;楽しめる余裕が無い
		IF CHECK("フィスト") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
			RETURN 0
			PRINTFORMW
		;結腸まで腕を捻じ込んだ
		ELSEIF CHECK_COM("結腸責め")
			IF TALENT:結腸性感
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;放尿　聖水PLAY(推倒ている時)
;-------------------------------------------------
IF SELECTCOM == 144
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;聖水PLAY
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;聖水PLAY
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;剃毛
;-------------------------------------------------
IF SELECTCOM == 145
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;行為に抵抗有
		IF CHECK("陰毛管理") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
			RETURN 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;行為に抵抗有
		IF CHECK("陰毛管理") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
			RETURN 0
			PRINTFORMW
		;それ以外
		ELSE
			SELECTCASE CONDS("陰毛")
			;脱毛した
			CASE "脱毛処理"
				PRINTFORMW
			;光滑无毛に剃り上げた
			CASE "光滑无毛"
				PRINTFORMW
			;綺麗に剃り整えた
			CASEELSE
				PRINTFORMW
			ENDSELECT
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;身嗜管理
;-------------------------------------------------
IF SELECTCOM == 146
	;陰毛の状態を指示
	IF CHECK_COM("身嗜み：陰毛")
		SELECTCASE COND("身嗜み：陰毛")
		;光滑无毛
		CASE 3
			PRINTFORMW
		;剃り整える
		CASE 5
			PRINTFORMW
		;从不剃
		CASE 7
			PRINTFORMW
		ENDSELECT
	;腋毛の状態を指示
	ELSEIF CHECK_COM("身嗜み：腋毛")
		SELECTCASE COND("身嗜み：腋毛")
		;光滑无毛
		CASE 3
			PRINTFORMW
		;从不剃
		CASE 7
			PRINTFORMW
		ENDSELECT
	;常に膣を拡張しておくように指示
	ELSEIF CHECK_COM("身嗜み：Ｖ拡張")
		;尺寸で分岐
		SELECTCASE COND("身嗜み：Ｖ拡張")
		;指示解除
		CASE 0
			PRINTFORMW
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;常に肛門を拡張しておくように指示
	ELSEIF CHECK_COM("身嗜み：Ａ拡張")
		;尺寸で分岐
		SELECTCASE COND("身嗜み：Ａ拡張")
		;指示解除
		CASE 0
			PRINTFORMW
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;いつでもお尻でエロいことできるように指示
	ELSEIF CHECK_COM("身嗜み：Ａ準備")
		;呼ばれたら腸内を綺麗にしておくように指示
		IF COND("身嗜み：腸洗浄")
			PRINTFORMW
		;潤滑液を用意するように指示
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	;CHECK_COM("身嗜み：Ｐ準備"), CHECK_COM("身嗜み：Ｖ準備"), CHECK_COM("身嗜み：服装")
	;CHECK_COM("身嗜み：尿道拡張"), CHECK_COM("身嗜み：性行為の制限"), CHECK_COM("身嗜み：性欲の管理")
	;などでも分岐可能。
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;喝套内精液
;-------------------------------------------------
IF SELECTCOM == 147
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF ABL:精液中毒 >= 3
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		IF ABL:精液中毒 >= 3
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;穿环
;-------------------------------------------------
IF SELECTCOM == 148
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW
		;それ以外
		ELSE
			;ＯＮフラグが付けた際のセリフです
			IF COND("陰蒂環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("陰唇環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("乳环フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("肚脐环フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;导管
;-------------------------------------------------
IF SELECTCOM == 149
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;痛い！
		IF CHECK("尿道PLAY") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;抜いた
	ELSEIF TEQUIP:导管 == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;痛い！
		IF CHECK("尿道PLAY") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;深喉
;-------------------------------------------------
IF SELECTCOM == 150
	;口上を書く際には RETURN 0 を削除してください(もともと地の文が長めなので書かなくても問題ないかもしれません)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道探针
;-------------------------------------------------
IF SELECTCOM == 151
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;痛い！
		IF CHECK("尿道PLAY") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;痛い！
		IF CHECK("尿道PLAY") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;攝像機使用
;-------------------------------------------------
IF SELECTCOM == 170
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:攝像機 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;野外PLAY
;まだ仕様が決まってない
;-------------------------------------------------
IF SELECTCOM == 171
	RETURN 1
ENDIF

;-------------------------------------------------
;浴室PLAY
;-------------------------------------------------
IF SELECTCOM == 172
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:浴室PLAY == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;新妻PLAY
;-------------------------------------------------
IF SELECTCOM == 173
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;終了時
	ELSEIF TEQUIP:新妻PLAY == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;室内露出PLAY
;まだ仕様が決まってない
;-------------------------------------------------
IF SELECTCOM == 174
	RETURN 1
ENDIF
;-------------------------------------------------
;換装
;-------------------------------------------------
IF SELECTCOM == 175
	;服、贴身制服、泳装に着替えた時
	IF CHECK_COM("換装：服を着替えた")
		IF CHECK_CLO("自分の服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("衬衫")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("女教師")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("和服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("女仆装")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("体操服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("看護婦")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("旗袍")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("水手服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("巫女")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("情趣内衣")
			PRINTFORMW
		ELSEIF CHECK_CLO("比基尼姿")
			PRINTFORMW
		ELSEIF CHECK_BODYS("拘束衣")
			PRINTFORMW
		ELSEIF CHECK_BODYS("兔")
			PRINTFORMW
		;其他
		ELSE
			PRINTFORMW
		ENDIF
	;胸も股間も丸出し状態变成了時
	ELSEIF CHECK_COM("換装：裸体变成了")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;露出癖Lv3
		ELSEIF ABL:露出癖 >= 3
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;胖次を変えたり脱いだり
	ELSEIF CHECK_COM("換装：胖次")
		IF EQUIP:胖次
			PRINTFORMW
		;没穿内褲です
		ELSE
			PRINTFORMW
		ENDIF
	;以下は面倒ならELSE でひとまとめでも良いでしょう
	ELSEIF CHECK_COM("換装：外套")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：胸罩")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：手套")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：襪子")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：靴")
		PRINTFORMW
	;飾品の付け替えや其他
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;被逆推
;-------------------------------------------------
IF SELECTCOM == 176
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;潤滑液使用
;-------------------------------------------------
IF SELECTCOM == 260
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;媚薬使用
;-------------------------------------------------
IF SELECTCOM == 261
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;利尿剤
;-------------------------------------------------
IF SELECTCOM == 262
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;排卵誘発剤
;-------------------------------------------------
IF SELECTCOM == 264
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;筋弛緩剤
;-------------------------------------------------
IF SELECTCOM == 267
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;挣扎
;-------------------------------------------------
IF SELECTCOM == 280
	;成功
	IF TEQUIP:推倒 == 0
		PRINTFORMW
	;失敗
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;自慰
;自慰の種類についてはTEQUIP:PLAYER:自慰の値で分岐可能
;==1舐陰, ==4舐陰莖, ==9舐肛, ==13くぱぁ, ==14Ａくぱぁ など
;-------------------------------------------------
IF SELECTCOM == 282
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;甜言蜜语
;-------------------------------------------------
IF SELECTCOM == 283
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;成功
	IF TEQUIP:甜言蜜语
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;失敗
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;--------------------------------------------------
;調教指令の地の文の前に喋る台詞はここに書く
;--------------------------------------------------
@KOJO_MESSAGE_BEFORE_COM_K14
;口枷着用時には口上をスキップする？
SIF TEQUIP:口枷 && SELECTCOM != 135
	RETURN 0

;-------------------------------------------------
;Ｖ挿入系初選択
;-------------------------------------------------
IF SELECTCOM >= 60 && SELECTCOM <= 69
	IF FIRSTCOMS("Ｖ挿入") == 0
		IF TALENT:恋慕

		ELSEIF TALENT:PLAYER:男性
			PRINTFORML 「ハァ……まさか初めてが好きでもない相手どころか男、しかも入れられる側とはなぁ」
			PRINTFORML 「まぁ相手に関しては我慢してやるから、あんまり痛くないようにしてくれよ？」
			PRINTFORMW %CALLNAME:TARGET%は軽口を叩きながらも緊張を滲ませている。
		ENDIF
	ELSEIF CHOSECOMS("Ｖ挿入") == 0
		IF CEVENT("Ｖ挿入痛くない") == 0
			IF CEVENT("Ｖ挿入二回目") == 0
				PRINTFORML 「悪い……ちょっとタンマ」
				PRINTFORML 「すぅー…………はぁ～…………」
				PRINTFORMW %CALLNAME:TARGET%は前回の疼痛を思い出してか、心の準備をしている……
				PRINTFORMW 「………よし。やろうぜ」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;調教指令終了時に行う共通処理。特になくともよい
;-------------------------------------------------
@KOJO_ENDCOM_K14

;-------------------------------------------------
;パラメータ変動をトリガーにした口上
;パラメータ変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_PALAMCNG_K14, ARGS
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0
;-------------------------------------------------
;パラメータ変動時のセリフ
;-------------------------------------------------
SELECTCASE ARGS
;-------------------------------------------------
;初めてＶ潤がLV3超えた
;-------------------------------------------------
CASE "Ｖ潤LV3突破"
	;初めて
	IF FIRST_EV("Ｖ潤LV3突破") == 0
		;潤滑液を使った場合
		IF SELECTCOM == 260
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;初めて欲情がLV3超えた
;-------------------------------------------------
CASE "欲情LV3突破"
	IF FIRST_EV("欲情LV3突破") == 0
		;媚薬を使った場合
		IF SELECTCOM == 261
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;初めて恥情がLV3超えた
;-------------------------------------------------
CASE "恥情LV3突破"
	IF FIRST_EV("恥情LV3突破") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めて恐怖がLV3超えた
;-------------------------------------------------
CASE "恐怖LV3突破"
	IF FIRST_EV("恐怖LV3突破") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてC絶頂
;-------------------------------------------------
CASE "Ｃ絶頂"
	IF FIRST_EV("Ｃ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてV絶頂
;-------------------------------------------------
CASE "Ｖ絶頂"
	IF FIRST_EV("Ｖ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてA絶頂
;-------------------------------------------------
CASE "Ａ絶頂"
	IF FIRST_EV("Ａ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてB絶頂
;-------------------------------------------------
CASE "Ｂ絶頂"
	IF FIRST_EV("Ｂ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;C挑逗
;-------------------------------------------------
CASE "Ｃ挑逗"
	;初めて
	IF FIRST_EV("Ｃ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ｃ挑逗
		IF NOWEX:Ｃ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ｃ挑逗
		ELSEIF NOWEX:Ｃ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;V挑逗
;-------------------------------------------------
CASE "Ｖ挑逗"
	;初めて
	IF FIRST_EV("Ｖ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ｖ挑逗
		IF NOWEX:Ｖ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ｖ挑逗
		ELSEIF NOWEX:Ｖ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;A挑逗
;-------------------------------------------------
CASE "Ａ挑逗"
	;初めて
	IF FIRST_EV("Ａ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ａ挑逗
		IF NOWEX:Ａ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ａ挑逗
		ELSEIF NOWEX:Ａ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;B挑逗
;-------------------------------------------------
CASE "Ｂ挑逗"
	;初めて
	IF FIRST_EV("Ｂ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ｂ挑逗
		IF NOWEX:Ｂ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ｂ挑逗
		ELSEIF NOWEX:Ｂ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;扶她射精挑逗
;-------------------------------------------------
CASE "射精挑逗"
	;初めて
	IF FIRST_EV("射精挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;大量射精挑逗
		IF NOWEX:射精前骤停 >= 2
			PRINTFORMW
		;射精挑逗
		ELSEIF NOWEX:射精前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;処女喪失(処女のみ)
;-------------------------------------------------
CASE "処女喪失"
	IF FIRST_EV("処女喪失") == 0
		;恋慕
		IF TALENT:恋慕
			;主人の性交による処女喪失
			IF PLAYER == MASTER && INSERT("Ｖ挿入")
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;射精した(扶她/男性のみ)
;-------------------------------------------------
CASE "射精した"
	;初めて
	IF FIRST_EV("射精した") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;噴乳した(母乳体質のみ)
;-------------------------------------------------
CASE "噴乳した"
	;初めて
	IF FIRST_EV("噴乳した") == 0
		PRINTFORMW
	;二回目以降
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;絶頂放尿した
;-------------------------------------------------
CASE "絶頂放尿"
	;初めて
	IF FIRST_EV("絶頂放尿") == 0
		;抵抗无
		IF CHECK_COM("強制放尿") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;抵抗无
		IF CHECK_COM("強制放尿") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｃ絶頂20以上
;-------------------------------------------------
CASE "Ｃ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｃ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｖ絶頂20以上
;-------------------------------------------------
CASE "Ｖ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｖ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ａ絶頂20以上
;-------------------------------------------------
CASE "Ａ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ａ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｂ絶頂20以上
;-------------------------------------------------
CASE "Ｂ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｂ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

;-------------------------------------------------
;刻印変動をトリガーにした口上
;刻印変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_MARKCNG_K14, ARGS
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

SELECTCASE ARGS
;-------------------------------------------------
;苦痛刻印Lv3取得
;-------------------------------------------------
CASE "苦痛刻印Lv3取得"
	IF FIRST_EV("苦痛刻印Lv3取得") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;快楽刻印Lv3取得
;-------------------------------------------------
CASE "快楽刻印Lv3取得"
	IF FIRST_EV("快楽刻印Lv3取得") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;屈服刻印Lv3取得
;-------------------------------------------------
CASE "屈服刻印Lv3取得"
	IF FIRST_EV("屈服刻印Lv3取得") == 0
		PRINTFORMW
	ENDIF
ENDSELECT

;-------------------------------------------------
;射精先選択時に表示する口上
;頻繁に表示されるため随机や表示条件の設定推奨です
;-------------------------------------------------
@KOJO_MESSAGE_SHOOT_K14
;初期は表示されないようにしてあるため、書いた後はRETURN 0を消す
RETURN 0

;恋慕
IF TALENT:恋慕
	PRINTFORMW
;それ以外
ELSE
	PRINTFORMW
ENDIF

;-------------------------------------------------
;PLAYERの射精＆絶頂をトリガーにした口上
;それぞれの射精分岐内での初めてかどうかの判定は、FIRST_EV(ARGS)で行う
;例）ELSEIF SHOOT("脚")において初めてかどうかは、FIRST_EV("絶頂：脚")で判定する
;-------------------------------------------------
@KOJO_MESSAGE_SAMEN_AND_EXTACY_K14
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

;-------------------------------------------------
;髪、顔、股間、腹、尻、くぱぁ、Ａくぱぁへのぶっかけ
;-------------------------------------------------
IF SHOOT("ぶっかけ")
	IF SHOOT("自慰")
		PRINTFORMW
	;超大量射精
	ELSEIF COND("絶頂", PLAYER) >= 3
		PRINTFORMW
	;大量射精
	ELSEIF COND("絶頂", PLAYER) == 2
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;自慰で射精された(ぶっかけではなく床などに射精した)
;-------------------------------------------------
ELSEIF SHOOT("自慰")
	PRINTFORMW

;以下は通常の射精区分。
;-------------------------------------------------
;素股、足交や身体で射精させた
;-------------------------------------------------
ELSEIF SHOOT("脚")
	;初めて
	IF FIRST_EV("絶頂：脚") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ELSEIF SHOOT("素股")
	PRINTFORMW
;-------------------------------------------------
;口で射精させた
;-------------------------------------------------
ELSEIF SHOOT("口")
	;初めて
	IF FIRST_EV("絶頂：口") == 0
		PRINTFORMW
	;精液中毒Lv5
	ELSEIF ABL:精液中毒 >= 5
		PRINTFORMW
	;精液中毒Lv3
	ELSEIF ABL:精液中毒 >= 3
		PRINTFORMW
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;胸で射精させた
;-------------------------------------------------
ELSEIF SHOOT("胸")
	;初めて
	IF FIRST_EV("絶頂：胸") == 0
		PRINTFORMW
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		PRINTFORMW
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;手で射精させた
;-------------------------------------------------
ELSEIF SHOOT("手")
	;初めて
	IF FIRST_EV("絶頂：手") == 0
		PRINTFORMW
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		PRINTFORMW
	;奉仕精神Lv3
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;性交で射精させた
;-------------------------------------------------
ELSEIF SHOOT("Ｖ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ｖ中出し") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
ELSEIF SHOOT("Ａ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ａ中出し") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;接吻で射精
;-------------------------------------------------
ELSEIF SHOOT("接吻")
	PRINTFORMW
;-------------------------------------------------
;面部騎乗で射精
;-------------------------------------------------
ELSEIF SHOOT("面部騎乗")
	PRINTFORMW
;-------------------------------------------------
;洗面奶で射精
;-------------------------------------------------
ELSEIF SHOOT("洗面奶")
	PRINTFORMW
;-------------------------------------------------
;逆舐陰で射精
;-------------------------------------------------
ELSEIF SHOOT("逆舐陰")
	PRINTFORMW
;-------------------------------------------------
;逆肛交、逆強姦で射精
;-------------------------------------------------
ELSEIF SHOOT("逆強姦") || SHOOT("逆肛交") || SHOOT("肛門奉仕")
	PRINTFORMW
;-------------------------------------------------
;PLAYERが女で、イってしまった…
;-------------------------------------------------
ELSEIF SHOOT("調教者が女性")
	;強絶頂
	IF COND("絶頂", PLAYER) >= 2
		PRINTFORMW
	;絶頂
	ELSEIF COND("絶頂", PLAYER) == 1
		PRINTFORMW
	ENDIF
ENDIF

;-------------------------------------------------
;角色が調教中に調教者を攻める際などの口上
;-------------------------------------------------
@KOJO_COUNTER_K14, ARGS
SELECTCASE ARGS
CASE "恍惚"
	PRINTFORMW
CASE "推倒"
	PRINTFORMW
CASE "強制終了"
	PRINTFORMW
CASE "復活"
	PRINTFORMW
CASE "恍惚から復帰"
	PRINTFORMW
CASE "助手が限界"
	PRINTFORMW
ENDSELECT

RETURN 1

;-------------------------------------------------
;イベント口上集
;-------------------------------------------------
@KOJO_EVENT_K14, ARGS
SELECTCASE ARGS
;-------------------------------------------------
;調教終了不可能
;-------------------------------------------------
CASE "調教終了不可能"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;避孕套装着
;-------------------------------------------------
CASE "Ｖ避孕套装着"
	;挿入指令
	IF TRAIN_GENRE("挿入", SELECTCOM)
		;PLAYヤーは着ける気満々
		IF TEQUIP:PLAYER:避孕套

		;避孕套が無い
		ELSEIF ITEM:避孕套 == 0

		;安全日に生希望
		ELSEIF COND("安全日")

		;安全日じゃないけど避孕套没有を希望
		ELSE

		ENDIF
	;PLAYヤーへの挿入指令
	ELSEIF TRAIN_GENRE("逆挿入", SELECTCOM)
		;PLAYヤーは着けてもらうの希望
		IF TEQUIP:避孕套

		;避孕套が無い
		ELSEIF ITEM:避孕套 == 0

		;安全日に生希望
		ELSEIF COND("安全日", PLAYER)

		;安全日じゃないけど避孕套没有を希望
		ELSE

		ENDIF
	ENDIF
;-------------------------------------------------
;陶酔かつ危険日でない時に、普段は許していない生挿入をさせて给際のセリフ
;-------------------------------------------------
CASE "特別に生挿入許可"
	;初めて
	IF FIRST_EV(ARGS) == 0

	ELSE

	ENDIF
;-------------------------------------------------
;調教後自慰
;-------------------------------------------------
CASE "調教後自慰"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;自慰中毒Lv3以上
	ELSEIF ABL:自慰中毒 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;レズPLAY
;-------------------------------------------------
CASE "調教後レズPLAY"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF

;-------------------------------------------------
;調教後性交
;-------------------------------------------------
CASE "調教後性交"
	;V感覚Lv4以上
	IF ABL:Ｖ感覚 >= 4
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;夜袭騎乗位
;-------------------------------------------------
CASE "夜袭騎乗位"
	;V感覚Lv5以上
	IF ABL:Ｖ感覚 >= 5
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;夜袭Ａ騎乗位
;-------------------------------------------------
CASE "夜袭Ａ騎乗位"
	;Ａ感覚Lv5以上
	IF ABL:Ａ感覚 >= 5
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-----------------------------
;夜袭接吻
;----------------------------
CASE "夜袭接吻"
	;M感覚Lv3以上
	IF ABL:Ｍ感覚 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;添い寝
;-------------------------------------------------
CASE "添い寝"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF

;-------------------------------------------------
;PLAYERがMASTERとASSI間で交代した際の台詞
;-------------------------------------------------
CASE "調教者交代"
	;PLAYERがASSIに変わった
	IF PLAYER == ASSI
		PRINTFORMW
	;PLAYERが你に戻った
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;partnerがTARGETとASSI間で交代した際の台詞
;-------------------------------------------------
CASE "対象交代"
	;partnerとしてエッチに誘われた
	IF COND("第一対象") == TARGET
		PRINTFORMW
	;指导者としてエッチに誘われた
	ELSE
		PRINTFORMW
	ENDIF

;-------------------------------------------------
;清洁口交
;-------------------------------------------------
CASE "清洁口交"
	SELECTCASE TFLAG:口上分岐
	;お掃除前
	CASE 0
		PRINTFORMW
	;お掃除中
	CASE 1
		PRINTFORMW
	;お掃除で射精しなかった
	CASE 2
		PRINTFORMW
	;お掃除で射精しそう？
	CASE 3
		PRINTFORMW
	;射精した
	CASE 4
		PRINTFORMW
	;お掃除で射精後
	CASE 5
		PRINTFORMW
	ENDSELECT
;-------------------------------------------------
;脱衣
;-------------------------------------------------
CASE "自発脱ぎ"
	;裸体变成了
	IF CHECK_CLO("裸体")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;阴部剥きだし
	ELSEIF CHECK_CLO("Ｖ露出")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;部分脱ぎ
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;妊娠した
;----------------------------------------------------------------
CASE "妊娠発覚"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;出産した
;----------------------------------------------------------------
CASE "出産"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;兒童が大きくなった
;----------------------------------------------------------------
CASE "子出口"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;性交後に抜いた時
;----------------------------------------------------------------
;恥ずかしいところを見せてくれる
;----------------------------------------------------------------
CASE "中出し後くぱぁ"
	;恋慕
	IF TALENT:恋慕
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;----------------------------------------------------------------
;恥ずかしいところを見せてくれない
;好感度が高いと起きないので、恋慕で分岐させる意味はない。
;また、不知羞恥ならば発生しない
;----------------------------------------------------------------
CASE "中出し後害羞"
	PRINTFORMW
;----------------------------------------------------------------
;精液を味わう
;----------------------------------------------------------------
CASE "中出し後精液掻き出し"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;気持ちよくてぐったり
;----------------------------------------------------------------
CASE "中出し後恍惚"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ保存
;-------------------------------------------------
CASE "ビデオ保存"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却
;-------------------------------------------------
CASE "ビデオ売却"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却失敗
;-------------------------------------------------
CASE "ビデオ売却失敗"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

;----------------------------------------------------------------
;塞子をしていない状態での液体浣腸口上
;----------------------------------------------------------------
CASE "无塞浣腸事件"
	;限界値突破時
	IF BASE:排泄欲 >= 10000
		;限界値を超えたが漏らせない場合
		IF INSERT("Ａ挿入") || COND("肛門栓")
			PRINTFORMW
		;漏らす直前
		ELSE
			PRINTFORMW
		ENDIF
	;漏らした
	ELSEIF NOWEX:排泄
		PRINTFORMW
	;我慢しているときの口上
	ELSEIF TEQUIP:浣腸
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;吸能
;----------------------------------------------------------------
CASE "吸能"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;調教者がちんこを挿入する前に射精してしまった！
;----------------------------------------------------------------
CASE "挿入前暴発"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;特殊な道具を使った際の台詞
;----------------------------------------------------------------
CASE "避妊の護符"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		;装着
		IF TALENT:避妊の護符
			PRINTFORMW
		;取り外し
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:避妊の護符
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF

CASE "扶她薬"
	;扶她变成了
	IF TALENT:扶她
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
CASE "黑色ドロップ"
	;男性变成了
	IF TALENT:男性
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "巨根薬"
	;薬を使用した後の状態で分岐
	SELECTCASE SIZE("阴茎")
	;並
	CASE 1
		PRINTFORMW
	;巨根
	CASE 2
		PRINTFORMW
	;馬根
	CASE 3
		PRINTFORMW
	CASE 4
		PRINTFORMW
	CASE 5
		PRINTFORMW
	;CASEELSE
	;	PRINTFORMW
	ENDSELECT
CASE "縮根薬"
	;薬を使用した後の状態で分岐
	SELECTCASE SIZE("阴茎")
	;小
	CASE 0
		PRINTFORMW
	;並
	CASE 1
		PRINTFORMW
	;巨根
	CASE 2
		PRINTFORMW
	ENDSELECT
CASE "剥皮薬"
	;薬を使用した後の状態で分岐
	IF COND("假性包茎")
		PRINTFORMW
	;ずる剥け
	ELSE
		PRINTFORMW
	ENDIF
CASE "伸皮薬"
	;薬を使用した後の状態で分岐
	IF COND("真性包茎")
		PRINTFORMW
	ELSEIF COND("假性包茎")
		PRINTFORMW
	ENDIF
CASE "豊胸薬"
	;薬を使用した後の状態で分岐
	SELECTCASE TALENT:巨乳
	;並乳
	CASE 0
		PRINTFORMW
	;巨乳
	CASE 1
		PRINTFORMW
	;爆乳
	CASE 2
		PRINTFORMW
	;超乳
	CASE IS >= 3
		PRINTFORMW
	ENDSELECT
CASE "貧乳薬"
	;薬を使用した後の状態で分岐
	SELECTCASE TALENT:巨乳
	;並乳以下
	CASE 0
		IF TALENT:貧乳
			PRINTFORMW
		;並乳
		ELSE
			PRINTFORMW
		ENDIF
	;巨乳
	CASE 1
		PRINTFORMW
	;爆乳
	CASE 2
		PRINTFORMW
	ENDSELECT
CASE "巨人の薬"
	;薬を使用した後の状態で分岐
	IF TALENT:高大
		PRINTFORMW
	;普通身高
	ELSE
		PRINTFORMW
	ENDIF
CASE "小人の薬"
	;薬を使用した後の状態で分岐
	IF TALENT:娇小
		PRINTFORMW
	;普通身高
	ELSE
		PRINTFORMW
	ENDIF
CASE "虹の薬"
	;薬を使用した後の状態で分岐
	SELECTCASE CONDS("肤色")
	CASE "褐色肌"
		PRINTFORMW
	CASE "色白"
		PRINTFORMW
	CASE "青肌"
		PRINTFORMW
	;普通
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "桃尻薬"
	;薬を使用した後の状態で分岐
	IF TALENT:巨尻 >= 2
		PRINTFORMW
	ELSEIF TALENT:巨尻
		PRINTFORMW
	;普通の尺寸
	ELSE
		PRINTFORMW
	ENDIF
CASE "小尻薬"
	;薬を使用した後の状態で分岐
	IF TALENT:巨尻
		PRINTFORMW
	ELSEIF TALENT:小尻
		PRINTFORMW
	;普通の尺寸
	ELSE
		PRINTFORMW
	ENDIF

ENDSELECT

;-------------------------------------------------
;TARGET以外の立場で呼ばれた時の台詞全般
;-------------------------------------------------
@KOJO_GUEST_K14, ARGS
SELECTCASE ARGS
CASE "調教相手に選ばれた"

CASE "助手に抜擢"
	;初めて
	IF EXP:助手経験 == 0

	ELSE

	ENDIF

CASE "助手：主人に清洁口交"

CASE "助手：partnerに清洁舔阴"

CASE "助手：partnerに清洁舔A"

CASE "助手：主人にＰ恥垢清洁口交"

CASE "助手：撮影開始"

CASE "助手：調教開始前の準備後台詞"

CASE "室内調教：登場台詞"

CASE "室内調教：ギャラリー増加台詞"

CASE "室内調教：感想台詞"

CASE "助手で性処理：おあずけ"

CASE "助手で性処理"

CASE "助手で性処理：事後"

;COND("精液の優勢")で誰の兒童を孕んでしまったかを判定できます
;名前を出したい時には%COND("精液の優勢")%を用いてください
CASE "受精確認"

ENDSELECT

;-------------------------------------------------
;@単体エンディング関係(14を角色番号に置換)
;通常のエンディングチェックの前に個別エンディングを判定
;-------------------------------------------------
;
;
;
;
;
;
;
;
;
;
;★ここから先にはエンディングが記述されています★
;ネタバレを避けたい方は閲覧不会うにご注意下さい。
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
@IS_SINGLE_ENDING_K14
;エンディングを書いたら、下のRETURN 1のコメントアウト;を消してください
;RETURN 1

@MENU_SINGLE_ENDING_K14
;エンディングを書いたら、下のRETURN 0を消してください
RETURN 0

;ENDを選択する際の表示。下で満たしたEND条件に応じて全角21文字以内で好きに変えて良い
STR:ＥＮＤ标题 = エンディングを迎える

;連続イベント
SIF CFLAG:好感度 >= 200
	STR:エンディング += "1_織：在夜晚奔跑①/"
;SIF CFLAG:好感度 >= 500
;	STR:エンディング += "1_織：夜を駆ける②/"
;SIF CFLAG:好感度 >= 1000
;	STR:エンディング += "1_織：夜を駆ける③/"

RETURN 1

;ARGSには@MENU_SINGLE_ENDING_K1で設定したEND名のどれかが入っている
;見たENDはCEVENTで記録される
;例）ＥＮＤ名１を閲覧した場合は CEVENT("ＥＮＤ名１") = 1 となる
@SINGLE_ENDING_K14, ARGS
SELECTCASE ARGS
CASE "織：夜を駆ける①"
	PRINTFORMW ―在夜晚奔跑①―
	PRINTL
	PRINTFORML 和%CALLNAME:TARGET%相遇几天后的事……
	PRINTFORML %CALLNAME:MASTER%半夜肚子饿了，%CALLNAME:FINDCHARA(NO, 1)%也睡了，所以决定去便利店。
	PRINTFORMW 买了几个喜欢的东西走出便利店，偶然看到了一张熟悉的脸。
	PRINTL
	PRINTFORML 是%CALLNAME:TARGET%。
	PRINTFORML 即使在夜色中也很显眼的银发并不早。用目光追逐着那样的%CALLNAME:TARGET%。
	PRINTFORMW 在犹豫要不要打个招呼的时候，%CALLNAME:TARGET%就消失在小巷里了。。
	PRINTL
	PRINTFORML 稍微有点在意，窥视着小巷里。
	PRINTFORML 但是，那里没有%CALLNAME:TARGET%的身影……。
	PRINTFORMW 如果拥有吸血鬼的力量的话，眨眼之间就能走到遥远的地方吧。
	PRINTL
	PRINTFORML %CALLNAME:MASTER%无意中进入了小巷。
	PRINTFORMW 那一瞬间的事。
	PRINTL
	PRINTFORMW ——世界逆转了。
	PRINTL
	PRINTFORML %CALLNAME:MASTER%的身体被冰冷的冰柱刺入脊背，
	PRINTFORML 脚象缝在地上一样一步也不动。。
	PRINTFORMW 只有烦琐的声音在回响——那是毫无疑问的自己的心音。
	PRINTL
	PRINTFORML 「你没事吧？」
	PRINTFORML 突然有人跟我打招呼，%CALLNAME:MASTER%就在那里摔了个屁股蹲。
	PRINTFORMW 告诉担心我的行人不要紧，然后站起来。。
	PRINTL
	PRINTFORML 我注意到了汗珠滴滴答答地落到地上，自己流了很多冷汗的事实。
	PRINTFORMW ——今天回家吧。

CASE "織：夜を駆ける②"
	PRINTFORMW END名2的正文
CASE "織：夜を駆ける③"
	PRINTFORMW END名3的正文
ENDSELECT
RETURN 1

path: ERB/EVENT_K/14 シキ/EVENT_K14_シキ.ERB


code:
;;;とりあえずのテスト用AI
;;;動き方：動かない
;;;攻撃：隣に居る、最も指揮統制率の低いユ针织
@D20XX_AI_Test
	#DIM DYNAMIC LCount
	#DIM DYNAMIC TargetSelectLoopCount
	#DIM DYNAMIC TargetUnitID
	#DIM DYNAMIC Y_SelectUnit
	#DIM DYNAMIC X_SelectUnit
	#DIMS DYNAMIC WeaponList

	FOR LCount,1,10000
		SIF D20XX_Unit:LCount:0 == "None"
			BREAK
		IF D20XX_Unit:LCount:0 == "敵"
			CALL D20XX_UnitSearch(LCount)
			IF RESULT:0 == 1
				Y_SelectUnit = RESULT:1
				X_SelectUnit = RESULT:2

				D20XX_SelectWeapon = None

				;まず、ユ针织を選択する
				D20XX_SelectUnit = LCount
				D20XX_SelectCommandMode =
				CALL D20XX_EnemyTarnViewer

				;#region Astar
					CALL D20XX_AstarMap_Constructor
					D20XX_SelectCommandMode = 最短経路計算
					FOR TargetSelectLoopCount,0,10000
						CALL D20XX_UnitSearch(TargetSelectLoopCount)
						IF RESULT:0 == 1
							IF D20XX_Unit:TargetSelectLoopCount:0 == "自軍"
								TargetUnitID = TargetSelectLoopCount
								BREAK
							ENDIF
						ENDIF
					NEXT
					CALL D20XX_AI_AsterByUnit(D20XX_SelectUnit, TargetUnitID)
					CALL D20XX_EnemyTarnViewer
					TWAIT 500,1
				;#endregion

				;#region 移動を行う
					CALL D20XX_EnemyMove(TargetUnitID)
					CALL D20XX_EnemyTarnViewer
					TWAIT 500,1
				;#endregion

				;#region 初期化
					TargetUnitID = 1
					;D20XX_SelectCommandMode =
					;CALL D20XX_EnemyTarnViewer
					CALL D20XX_UnitSearch(LCount)
					Y_SelectUnit = RESULT:1
					X_SelectUnit = RESULT:2
					D20XX_SelectUnit = LCount
					D20XX_SelectCommandMode = 攻撃
					;武器を選択する
					;とりあえず今回はテスト用なので射撃対象の事を考えず1番目の武器を使う
					VARSET WeaponList:0 ,"None"
					SPLIT D20XX_Unit:D20XX_SelectUnit:6,",",WeaponList
					D20XX_SelectWeapon = %WeaponList:0%
				;#endregion

				CALL D20XX_EnemyTarnViewer

				;攻撃対象ユ针织を選ぶわよ
				D20XX_SelectCommandMode = 攻撃
				CALL D20XX_EnemyWithinRangeSearch
				;#region 攻撃対象選択 (多分これ別メソッドとして独立させるべきな気がするワ...)
					TargetUnitID = 0
					FOR TargetSelectLoopCount,0,10000
						IF D20XX_CandidateList:TargetSelectLoopCount:0 > 0
							IF D20XX_Unit:(D20XX_CandidateList:TargetSelectLoopCount:0):0 == "自軍" || D20XX_Unit:(D20XX_CandidateList:TargetSelectLoopCount:0):0 == "友軍"
								IF TargetUnitID == 0
									TargetUnitID = D20XX_CandidateList:TargetSelectLoopCount:0
								ENDIF
								;指揮統制率が低い方のユ针织を優先的に攻撃するわよ
								IF TOINT(D20XX_Unit:TargetUnitID:4) > TOINT(D20XX_Unit:(D20XX_CandidateList:TargetSelectLoopCount:0):4)
									TargetUnitID = TOINT(D20XX_Unit:(D20XX_CandidateList:TargetSelectLoopCount:0):4)
								ENDIF
							ENDIF
						ENDIF
					NEXT
				;#endregion

				;#region攻撃対象を表示する
					IF TargetUnitID > 0
						Demoslaviya20SXX_EnemyTargetMode = True
						CALL D20XX_EnemyMoveSelectMap_Constructor
						CALL D20XX_EnemyTargetSelectMap_Constructor
						CALL D20XX_UnitSearch(TargetUnitID)
						D20XX_EnemyTargetSelectMap:(RESULT:1):(RESULT:2) = 0
						D20XX_SelectCommandMode = 攻撃
						CALL D20XX_EnemyTarnViewer
					ENDIF
				;#endregion

				;#region
					IF TargetUnitID > 0
						CALL D20XX_UnitSearch(TargetUnitID)
						CALL D20XX_EnemyHitCalc(RESULT:1,RESULT:2)
					ENDIF
				;#endregion
			ENDIF
		ENDIF
	D20XX_SelectWeapon = None
	D20XX_SelectUnit = 0
	D20XX_SelectCommandMode = 移動
	Demoslaviya20SXX_EnemyTargetMode = False
	NEXT
;;;射程内の敵を尋找わよ
@D20XX_EnemyWithinRangeSearch
	#DIM DYNAMIC X_Range
	#DIM DYNAMIC Y_Range
	#DIM DYNAMIC LCount

	CALL D20XX_CandidateList_Constructor
	FOR Y_Range,0,200
		FOR X_Range,0,200
			;射程内かつ、ユ针织が居るヘクスをCandidateListに追加するわよ
			IF D20XX_AttackRangeMap:Y_Range:X_Range >= 0 && TOINT(D20XX_MAP:Y_Range:X_Range:1) >= 1
				FOR LCount,0,10000
					IF D20XX_CandidateList:LCount:0 < 0
						D20XX_CandidateList:LCount:0 = TOINT(D20XX_MAP:Y_Range:X_Range:1)
						D20XX_CandidateList:LCount:1 = Y_Range
						D20XX_CandidateList:LCount:2 = X_Range
						BREAK
					ENDIF
					IF LCount == 10000
						PRINTFORML デバッグメッセージ：エラー！
						PRINTFORML 発生メソッド : D20XX_EnemyWithinRangeSearch
						PRINTFORML 射程内の敵リストに入りきらなかったわよ
						PRINTFORMW でも射程内に10000もユ针织が居る事って無いはずだから多分バグだと思うわ
					ENDIF
				NEXT
			ENDIF
		NEXT
	NEXT

@D20XX_EnemyTarnViewer
	#DIM CONST TWaitTimer = 500
	#DIM DYNAMIC Y_ViewPoint
	#DIM DYNAMIC X_ViewPoint

		CALL D20XX_UnitSearch(D20XX_SelectUnit)
		IF RESULT == 1
			IF RESULT:1 < 8
				Y_ViewPoint = 0
			ELSE
				Y_ViewPoint = RESULT:1 -8
			ENDIF

			IF RESULT:2 < 18
				X_ViewPoint = 0
			ELSE
				X_ViewPoint = RESULT:2 - 18
			ENDIF
		ENDIF
		IF MESSKIP()
			CALL D20XX_GenerateHTML(X_ViewPoint,Y_ViewPoint)
			CALL D20XX_ViewHTML_Enemy
			WAIT
		ELSE
			CALL D20XX_GenerateHTML(X_ViewPoint,Y_ViewPoint)
			CALL D20XX_ViewHTML_Enemy
			TWAIT TWaitTimer,1
		ENDIF

license: unknown


code:
;;;領帯ルの種類毎のデータが欲しい場合
;;;CALL D20XX_GET_HEXDATA(領帯ル名,欲しい情報)
;;;例：CALL D20XX_GET_HEXDATA("草","移動コスト")
;;;
;;;現在選択中のユ针织
@D20XX_AI_AsterByUnit(FromUnitID,ToUnitID)
	#DIM DYNAMIC LCount
	#DIM DYNAMIC FromUnitID
	#DIM DYNAMIC ToUnitID
	#DIM DYNAMIC Y_FromUnit
	#DIM DYNAMIC X_FromUnit
	#DIM DYNAMIC Y_ToUnit
	#DIM DYNAMIC X_ToUnit
	;Asterで算出した最短経路を格納するキュー ※ERHファイルに書いてる
	;#DIM D20XX_AstarQueue,10000,2

	;移動するユ针织の座標を尋找
	CALL D20XX_UnitSearch(FromUnitID)
	IF RESULT:0 == 1
		Y_FromUnit = RESULT:1
		X_FromUnit = RESULT:2

		;ユ针织を選択する
		;D20XX_SelectUnit = LCount
		CALL D20XX_EnemyTarnViewer
	ENDIF

	;目指す先となるユ针织の座標を尋找
	CALL D20XX_UnitSearch(ToUnitID)
	IF RESULT:0 == 1
		Y_ToUnit = RESULT:1
		X_ToUnit = RESULT:2
	ENDIF

	CALL D20XX_AI_Aster(Y_FromUnit, X_FromUnit, Y_ToUnit, X_ToUnit)

@D20XX_AI_Aster(Y_Start, X_Start, Y_Goal, X_Goal)
	#DIM DYNAMIC LCount
	#DIM DYNAMIC FromUnitID
	#DIM DYNAMIC Y_Start
	#DIM DYNAMIC X_Start
	#DIM DYNAMIC Y_Goal
	#DIM DYNAMIC X_Goal

	#DIM DYNAMIC Y_Current
	#DIM DYNAMIC X_Current
	#DIM DYNAMIC Y_Temp
	#DIM DYNAMIC X_Temp
	#DIM DYNAMIC Y_Next
	#DIM DYNAMIC X_Next
	#DIM DYNAMIC GScore
	#DIM DYNAMIC FScore
	#DIM DYNAMIC MinScore

	#DIM DYNAMIC D20XX_AstarRouteTemp,10000,2

	;ループ終了処理で使うやつ
	#DIM DYNAMIC X_Count
	#DIM DYNAMIC Y_Count
	#DIM DYNAMIC OpenMapRemaining
	;

	CALL D20XX_AstarMap_Constructor

	VARSET D20XX_AstarRouteTemp:0:0, -1

	;Y_Start,X_StartをD20XX_AstarOpenListに追加する。
	D20XX_AstarMap:Y_Start:X_Start:0 = 1
	D20XX_AstarMap:Y_Start:X_Start:1 = Y_Start
	D20XX_AstarMap:Y_Start:X_Start:2 = X_Start
	;G値の設定
	D20XX_AstarMap:Y_Start:X_Start:4 = 0
	;H値の設定
	D20XX_AstarMap:Y_Start:X_Start:5 = D20XX_AI_Heuristic(Y_Start,X_Start,Y_Goal,X_Goal);
	;F値の設定
	D20XX_AstarMap:Y_Start:X_Start:3 = D20XX_AstarMap:Y_Start:X_Start:4 + D20XX_AstarMap:Y_Start:X_Start:5

	OpenMapRemaining = 0

	Y_Current = Y_Start
	X_Current = X_Start
	[IF_DEBUG]
		PRINTFORML AStar開始！ Y_Current = {Y_Current} X_Current = {X_Current}
	[ENDIF]

	;下記手順を繰り返す。
	WHILE OpenMapRemaining != 2

		;D20XX_AstarOpenListの中で最も低いF値を尋找。これを現在的ノードとします。
		CALL D20XX_AstarMap_SearchMinF(Y_Start, X_Start, Y_Goal, X_Goal)
			;ResultData:0が0の場合、一つもF値が99999999999以下の物が見つからなかった、もしくは開放型状態ではなかった事になる
		SIF RESULT:0 == 0
			PRINTFORMW 【エラー発生】AsterOpenListで最低F値ノードが見つからなかったわよ！ D20XX_AstarMap_SearchMinF
		;IF TOINT(D20XX_MAP:Y_Current:X_Current:1 ) != 0
		;	IF Y_Current == Y_Goal && X_Current == X_Goal
		;		Y_Current = RESULT:1
		;		X_Current = RESULT:2
		;	ELSEIF Y_Current == Y_Start && X_Current == X_Start
		;		Y_Current = RESULT:1
		;		X_Current = RESULT:2
		;	ELSE
		;	ENDIF
		;ELSE
		;	Y_Current = RESULT:1
		;	X_Current = RESULT:2
		;ENDIF

		Y_Current = RESULT:1
		X_Current = RESULT:2

		;今のノードをCloseする
		D20XX_AstarMap:Y_Current:X_Current:0 = 2

		;F値=G値(スタート地点から領帯ルコスト抜きの移動距離)+H値(現在地点からゴールまでの仮見積もり距離)
		;これをD20XX_AstarOpenListから削除し、D20XX_AstarClosedListに追加してください。
		;現在ノードに対して移動可能な6方向ノードの子ノードに対し、
		;移動不可能位置 or D20XX_AstarClosedListにあるなら無視、それ以外なら次の手順を実行

		;1時方向
		IF X_Current+1 <= 199 && Y_Current-1 >= 0;MAPの右端でも上端でも無いことの確認
			X_Next = X_Current + 1
			Y_Next = Y_Current - 1
			;D20XX_AstarClosedListに無い事を確認
			SIF D20XX_AstarMap:Y_Next:X_Next:0 != 2
				CALL D20XX_AstarChildHexSearch(Y_Current,X_Current,Y_Next,X_Next,Y_Goal,X_Goal)
		ENDIF
		;3時方向
		IF X_Current+2 <= 199;MAPの右端では無いことの確認
			X_Next = X_Current + 2
			Y_Next = Y_Current
			;D20XX_AstarClosedListに無い事を確認
			SIF D20XX_AstarMap:Y_Next:X_Next:0 != 2
				CALL D20XX_AstarChildHexSearch(Y_Current,X_Current,Y_Next,X_Next,Y_Goal,X_Goal)
		ENDIF
		;5時方向
		IF X_Current+1 <= 199 && Y_Current+1 < 200;MAPの右端でも下端でも無いことの確認
			X_Next = X_Current + 1
			Y_Next = Y_Current + 1
			;D20XX_AstarClosedListに無い事を確認
			SIF D20XX_AstarMap:Y_Next:X_Next:0 != 2
				CALL D20XX_AstarChildHexSearch(Y_Current,X_Current,Y_Next,X_Next,Y_Goal,X_Goal)
		ENDIF
		;7時方向
		IF X_Current-1 >= 0 && Y_Current+1 < 200;MAPの左端でも下端でも無いことの確認
			X_Next = X_Current - 1
			Y_Next = Y_Current + 1
			;D20XX_AstarClosedListに無い事を確認
			SIF D20XX_AstarMap:Y_Next:X_Next:0 != 2
				CALL D20XX_AstarChildHexSearch(Y_Current,X_Current,Y_Next,X_Next,Y_Goal,X_Goal)
		ENDIF
		;9時方向
		IF X_Current-2 >= 0;MAPの左端では無いことの確認
			X_Next = X_Current - 2
			Y_Next = Y_Current
			;D20XX_AstarClosedListに無い事を確認
			SIF D20XX_AstarMap:Y_Next:X_Next:0 != 2
				CALL D20XX_AstarChildHexSearch(Y_Current,X_Current,Y_Next,X_Next,Y_Goal,X_Goal)
		ENDIF
		;11時方向
		IF X_Current-1 >= 0 && Y_Current-1 >= 0;MAPの左端でも上端でも無いことの確認
			X_Next = X_Current - 1
			Y_Next = Y_Current - 1
			;D20XX_AstarClosedListに無い事を確認
			SIF D20XX_AstarMap:Y_Next:X_Next:0 != 2
				CALL D20XX_AstarChildHexSearch(Y_Current,X_Current,Y_Next,X_Next,Y_Goal,X_Goal)

		ENDIF
		;開放型リストになければ追加する。その際現在ノードを子ノードの親に設定する。そして子ノードのF,G,H値を計算する。
		;開放型リストに同じ子ノード（同じ位置）が既にあれば、G値を比較してより良い経路かどうか（G値が小さいかどうか）確認する。
		;小さいG値はより良い経路を意味します。もし、同じ子ノードでより小さいG値であれば、親ノードを現在ノードに設定する。
		;もし次を満たすならプログラム終了する。
		;現在ノードがゴールノードだったら（ゴールを見つけたら）、
		IF (Y_Current == Y_Goal && X_Current == X_Goal)
			;PRINTFORML 【Debugメッセージ】ゴールにたどり着きました。処理を修了します。
			OpenMapRemaining = 2
			BREAK
		ENDIF

		;又はゴールノードが見つからず、開放型リストが空っぽ变成了ら。（ゴールへの経路が存在しないケース。）
		OpenMapRemaining = 0
		Y_Count = 0
		X_Count = 0
		FOR Y_Count,0,200
			FOR X_Count,0,200
				IF D20XX_AstarMap:Y_Count:X_Count:0 == 1
					OpenMapRemaining = 1
				ENDIF
			NEXT
		NEXT
		IF OpenMapRemaining != 1
			PRINTFORMW 到達可能ルートが有ません！
			BREAK
		ENDIF
	WEND

	;PRINTFORML OpenMapRemaining = {OpenMapRemaining}

	;スタート地点を白く為の行
	D20XX_AstarMap:Y_Start:X_Start:0 = 3

	WHILE OpenMapRemaining == 2
		[IF_DEBUG]
			PRINTFORML 【Debugメッセージ】 Y_Current = {Y_Current} X_Current = {X_Current}   Y_Goal = {Y_Goal} X_Goal = {X_Goal}  Y_Start = {Y_Start} X_Start = {X_Start}
		[ENDIF]
		;PRINTFORML 【Debugメッセージ】
		;PRINTFORMW 【Debugメッセージ】
		IF X_Current >= 0 && Y_Current >= 0
			IF D20XX_AstarMap:Y_Current:X_Current:1 == Y_Start && D20XX_AstarMap:Y_Current:X_Current:2 == X_Start
				;これを追加すると目標地点も移動先として表示する
				;D20XX_AstarMap:Y_Current:X_Current:0 = 3
				[IF_DEBUG]
					PRINTFORMW BREAK
				[ENDIF]
				BREAK
			ENDIF

			[IF_DEBUG]
				PRINTFORMW 【Debugメッセージ】Astar262 ルート正順計算 D20XX_AstarMap:{Y_Current}:{X_Current} Y={D20XX_AstarMap:Y_Current:X_Current:1} X={D20XX_AstarMap:Y_Current:X_Current:2}
			[ENDIF]
			D20XX_AstarMap:Y_Current:X_Current:0 = 3
			Y_Temp = D20XX_AstarMap:Y_Current:X_Current:1
			X_Temp = D20XX_AstarMap:Y_Current:X_Current:2

			Y_Current = Y_Temp
			X_Current = X_Temp
			[IF_DEBUG]
				PRINTFORMW 【Debugメッセージ】Astar268 ルート正順計算 D20XX_AstarMap:{Y_Current}:{X_Current} Y={D20XX_AstarMap:Y_Current:X_Current:1} X={D20XX_AstarMap:Y_Current:X_Current:2}
			[ENDIF]
		ELSEIF X_Current == -1
			[IF_DEBUG]
				PRINTFORMW 【Debugメッセージ】Astar272 ルート正順計算 D20XX_AstarMap:{Y_Current}:{X_Current} Y={D20XX_AstarMap:Y_Current:X_Current:1} X={D20XX_AstarMap:Y_Current:X_Current:2}
			[ENDIF]
		ENDIF
	WEND
	D20XX_AstarMap:Y_Current:X_Current:0 = 3
	[IF_DEBUG]
		PRINTFORMW 【Debugメッセージ】Astarの実施完了！
	[ENDIF]

;;;D20XX_AstarOpenListの中で最も低いF値を尋找。これを現在的ノードとします。
;;;F値=G値(スタート地点から領帯ルコスト抜きの移動距離)+H値(現在地点からゴールまでの仮見積もり距離)
;;;これをD20XX_AstarOpenListから削除し、D20XX_AstarClosedListに追加する。
@D20XX_AstarChildHexSearch(Y_Current,X_Current,Y_Next,X_Next,Y_Goal,X_Goal)
	#DIM DYNAMIC Y_Current
	#DIM DYNAMIC X_Current
	#DIM DYNAMIC Y_Next
	#DIM DYNAMIC X_Next
	#DIM DYNAMIC Y_Goal
	#DIM DYNAMIC X_Goal

	;開放型リストになければ追加する。
	D20XX_AstarMap:Y_Next:X_Next:0 = 1

	;開放型リストに同じ子ノード（同じ位置）が既にあれば、G値を比較してより良い経路かどうか（G値が小さいかどうか）確認する。
	;まだ開放型リストにない、もしくはG値比較で悪いルートで設定されていた場合。
	IF D20XX_AstarMap:Y_Next:X_Next:4 == -1 || D20XX_AstarMap:Y_Next:X_Next:4 > D20XX_AstarMap:Y_Current:X_Current:4 + TOINT(D20XX_GET_HEXDATA(D20XX_MAP:Y_Next:X_Next:0,"移動コスト"))
		IF Y_Current >= 0 && X_Current >= 0
			[IF_DEBUG]
				;PRINTFORML 【Debugメッセージ】 Astar298 Y_Current = {Y_Current} X_Current = {X_Current}
			[ENDIF]
			;その際現在ノードを子ノードの親に設定する。
			D20XX_AstarMap:Y_Next:X_Next:1 = Y_Current
			D20XX_AstarMap:Y_Next:X_Next:2 = X_Current
			;F,G,H値を計算する。
			;G値の設定
			D20XX_AstarMap:Y_Next:X_Next:4 = D20XX_AstarMap:Y_Current:X_Current:4 + TOINT(D20XX_GET_HEXDATA(D20XX_MAP:Y_Next:X_Next:0,"移動コスト"))
			;H値の設定
			D20XX_AstarMap:Y_Next:X_Next:5 = D20XX_AI_Heuristic(Y_Next,X_Next,Y_Goal,X_Goal);
			;F値の設定
			D20XX_AstarMap:Y_Next:X_Next:3 = D20XX_AstarMap:Y_Next:X_Next:4 + D20XX_AstarMap:Y_Next:X_Next:5
			[IF_DEBUG]
				PRINTFORML 【Debugメッセージ】 Astar311 Goal = D20XX_AstarMap:{Y_Goal}:{X_Goal}:？？
				PRINTFORML 【Debugメッセージ】 Astar312 D20XX_AstarMap:{Y_Next}:{X_Next} →  Y = {Y_Current}  X= {X_Current}
			[ENDIF]
		ENDIF
	ENDIF

@D20XX_AstarMap_SearchMinF(Y_Start, X_Start, Y_Goal, X_Goal)
	#DIM DYNAMIC F_Param
	#DIM DYNAMIC X_Return
	#DIM DYNAMIC Y_Return
	#DIM DYNAMIC X_Temp
	#DIM DYNAMIC Y_Temp

	#DIM DYNAMIC Y_Start
	#DIM DYNAMIC X_Start
	#DIM DYNAMIC Y_Goal
	#DIM DYNAMIC X_Goal

	#DIM DYNAMIC X_Count
	#DIM DYNAMIC Y_Count
	#DIM DYNAMIC ResultData,3

	ResultData:0 = 0
	F_Param = 99999999999
	FOR Y_Count,0,200
		FOR X_Count,0,200
			;開放型状態である かつ 現在的最小F値よりも低いF値を持っている領帯ルだった場合
			IF 1 == D20XX_AstarMap:Y_Count:X_Count:0 && F_Param > D20XX_AstarMap:Y_Count:X_Count:3 && -1 != D20XX_AstarMap:Y_Count:X_Count:1
			;	IF TOINT(D20XX_MAP:Y_Count:X_Count:1 ) != 0
			;		;IF Y_Count == RESULT:1 && X_Count == RESULT:2
			;		IF Y_Count == Y_Goal && X_Count == X_Goal
			;			ResultData:0 = 1
			;			ResultData:1 = Y_Count
			;			ResultData:2 = X_Count
			;			;現在発見した最小F値を更新
			;			F_Param = D20XX_AstarMap:Y_Count:X_Count:3
			;		ELSEIF Y_Count == Y_Start && X_Count == X_Start
			;			ResultData:0 = 1
			;			ResultData:1 = Y_Count
			;			ResultData:2 = X_Count
			;			;現在発見した最小F値を更新
			;			F_Param = D20XX_AstarMap:Y_Count:X_Count:3
			;		ELSE
			;			;ここをどうするか
			;		ENDIF
			;	ELSE
			;		ResultData:0 = 1
			;		ResultData:1 = Y_Count
			;		ResultData:2 = X_Count
			;		;現在発見した最小F値を更新
			;		F_Param = D20XX_AstarMap:Y_Count:X_Count:3
			;	ENDIF
				ResultData:0 = 1
				ResultData:1 = Y_Count
				ResultData:2 = X_Count
				;現在発見した最小F値を更新
				F_Param = D20XX_AstarMap:Y_Count:X_Count:3
			ENDIF
		NEXT
	NEXT
	[IF_DEBUG]
		PRINTFORML D20XX_AstarMap_SearchMinF 見つかったか？ = {ResultData:0} 現在的最小のF値の座標 = {F_Param}
	[ENDIF]

	RETURN  ResultData:0,ResultData:1,ResultData:2

;;;ヒューリスティック関数 要するにゴールととの直線距離
@D20XX_AI_Heuristic(Y_current,X_current,Y_goal,X_goal)
	#FUNCTION
	#DIM DYNAMIC Y_Current
	#DIM DYNAMIC X_Current
	#DIM DYNAMIC Y_Goal
	#DIM DYNAMIC X_Goal
	#DIM DYNAMIC Heuristic

	;Xはヘックス領帯ル制にしている都合上二倍されているので割り算している
	RETURNF ABS(Y_current - Y_goal) + ABS(X_goal - X_goal)/2


code:
@D20XX_EnemyMove(TargetUnitID)
	#DIM TargetUnitID
	#DIM Y_Temp
	#DIM X_Temp
	#DIM Y_Local
	#DIM X_Local
	#DIM Y_Result
	#DIM X_Result
	#DIM FoundFlag
	#DIM UnitID_Temp

	FoundFlag = 0
	Y_Result = -1
	X_Result = -1
	CALL D20XX_UnitSearch(TargetUnitID)
	Y_Local = D20XX_AstarMap:(RESULT:1):(RESULT:2):1
	X_Local = D20XX_AstarMap:(RESULT:1):(RESULT:2):2
	WHILE 1
		IF D20XX_MoveCostMap:Y_Local:X_Local != -1 && TOINT(D20XX_MAP:Y_Local:X_Local:1) == 0 && FoundFlag == 0
			;移動可能マス到達したら一応RESULTに移動先候補マスデータを渡す
			Y_Result = Y_Local
			X_Result = X_Local
			FoundFlag = 1
		ENDIF

		;それはそれとして移動予定ルートの途上にユ针织が居ないか最後まで確認する
		Y_Temp = D20XX_AstarMap:Y_Local:X_Local:1
		X_Temp = D20XX_AstarMap:Y_Local:X_Local:2
		SIF Y_Local == Y_Temp && X_Local == X_Temp
			BREAK

		Y_Local = Y_Temp
		X_Local = X_Temp
		CALL D20XX_UnitSearch(D20XX_SelectUnit)
		IF TOINT(D20XX_MAP:Y_Temp:X_Temp:1) != 0
			IF RESULT:1 != Y_Local && RESULT:2 != X_Local
				FoundFlag = 0
				Y_Result = -1
				X_Result = -1
			ENDIF
		ENDIF

		CALL D20XX_UnitSearch(D20XX_SelectUnit)
		SIF RESULT:1 == Y_Local && RESULT:2 == X_Local
			BREAK

	WEND

	;移動処理
	IF Y_Result != -1 && X_Result != -1
		CALL D20XX_UnitSearch(D20XX_SelectUnit)
		D20XX_MAP:(RESULT:1):(RESULT:2):1 = "-1"

		IF TOINT(D20XX_MAP:Y_Result:X_Result:1) == 0
			D20XX_MAP:Y_Result:X_Result:1 = {D20XX_SelectUnit}
		ELSE
			PRINTFORML 【Debug!】エラー！　D20XX_EnemyMove55
		ENDIF
		D20XX_Unit:D20XX_SelectUnit:3 = {D20XX_MoveCostMap:Y_Result:X_Result}

	ENDIF

	RESULT:0 = Y_Result
	RESULT:1 = X_Result

	RETURN RESULT


code:
;;;-------------------------------
;;;領帯ルIDから領帯ルデータを取得する
;;;ARGS = 取得領帯ル名
;;;ARGS:1 = 取得したいデータ
;;;-------------------------------
@D20XX_GET_HEXDATA(ARGS,ARGS:1)
	#FUNCTIONS
	;領帯ル名
	#DIMS HEX_NAME
	;resource.csvで設定した画像呼び出し名
	#DIMS HEX_FILENAME
	;移動コスト
	#DIMS HEX_MOVE_COST
	;遮蔽率(%) これが高い領帯ルに居るユ针织は敵の命中率が低下する
	#DIMS HEX_COVER_RATE

	;直射攻撃障害物判定(True/false)
	#DIMS HEX_Obstacle

	;領帯ルの解説（改行は「\n」だよ気を付けてね）
	#DIMS COMMENT

	SELECTCASE ARGS
		CASE "草"
			HEX_NAME = 草原
			HEX_FILENAME = Parairie
			HEX_MOVE_COST = 2
			HEX_COVER_RATE = 0
			HEX_Obstacle = False

		CASE "森"
			HEX_NAME = 森林
			HEX_FILENAME = Forest
			HEX_MOVE_COST = 5
			HEX_COVER_RATE = 20
			HEX_Obstacle = True

		CASE "海"
			HEX_NAME = 海
			HEX_FILENAME = Sea
			HEX_MOVE_COST = 999
			HEX_COVER_RATE = 0
			HEX_Obstacle = False

		CASE "街"
			HEX_NAME = 都市
			HEX_FILENAME = City
			HEX_MOVE_COST = 5
			HEX_COVER_RATE = 35
			HEX_Obstacle = True

		CASE "家"
			HEX_NAME = 住宅街
			HEX_FILENAME = Error
			HEX_MOVE_COST = 3
			HEX_COVER_RATE = 30
			HEX_Obstacle = True

		CASE "道"
			HEX_NAME = 道路
			HEX_FILENAME = Road
			HEX_MOVE_COST = 1
			HEX_COVER_RATE = 0
			HEX_Obstacle = False

		CASE "砂"
			HEX_NAME = 砂漠
			HEX_FILENAME = Desert
			HEX_MOVE_COST = 3
			HEX_COVER_RATE = 10
			HEX_Obstacle = False

		CASE "無"
			HEX_NAME = 虚無
			HEX_FILENAME = NoneHex
			HEX_MOVE_COST = 999
			HEX_COVER_RATE = 0
			HEX_Obstacle = True

		CASEELSE
			HEX_NAME = Error
			HEX_FILENAME = Error
			HEX_MOVE_COST = 999
			HEX_COVER_RATE = 0
			HEX_Obstacle = True

	ENDSELECT

	SELECTCASE ARGS:1
		CASE "領帯ル名"
			RETURNF HEX_NAME
		CASE "ファイル名"
			RETURNF HEX_FILENAME
		CASE "移動コスト"
			RETURNF HEX_MOVE_COST
		CASE "遮蔽率"
			RETURNF HEX_COVER_RATE
		CASE "解説"
			RETURNF @"%HEX_NAME%\n移動コスト：%HEX_MOVE_COST%\n遮蔽率：%HEX_COVER_RATE%"
		CASEELSE
			RETURNF "D20XX_GET_HEXDATA の第二引数に、何が欲しいか記入してくれよな!"
	ENDSELECT
;;;=========================
;;;ヘクス領帯ル解説ツールチップ作成メソッド
;;;ARGS = 領帯ル名
;;;=========================
@D20XX_Generate_Hex_Comment(ARGS)
#FUNCTIONS
	#DIMS RESULT_DATA

	RESULT_DATA =
	RESULT_DATA += @"%D20XX_GET_HEXDATA(ARGS,"領帯ル名")%"
	RESULT_DATA += @"\n"
	RESULT_DATA += @"移動コスト：%D20XX_GET_HEXDATA(ARGS,"移動コスト")%\n"
	RESULT_DATA += @"遮蔽率　：%D20XX_GET_HEXDATA(ARGS,"遮蔽率")%\n"
	RESULT_DATA += @"---解説---\n"
	RESULT_DATA += @"%D20XX_GET_HEXDATA(ARGS,"解説")%"

	RETURNF RESULT_DATA