code:
;調教中に口調を変えるとき、ひとまとめに対応しやすくする関数
;現状诺伊君がTARGETの時のみ対象なので、ARG等は用意していない
;休托莉酱の男性器/女性器呼称変更をパク……参考にして改装しました
;今までのものとも互換性はある……はず
@TONE_K46, ARG
#FUNCTIONS

SIF ARG == 0
	ARG = TARGET

IF NO:ARG == 46 && PLAYER == MASTER && COND("調教中", ARG) && CFLAG:ARG:動揺 == 0 && CEVENT("口調", ARG)
	RETURNF @"%CEVENTS("口調", ARG)%"
ELSE
	RETURNF "通常"
ENDIF

;bit管理となる交流詳細过滤器を読解しやすくするための関数
@FIL_COMP, ARGS, ARG
#FUNCTION
#DIM LCOUNT
#DIM DYNAMIC NG_FLAG

SIF ARGS == ""
	RETURNF 0

SIF ARG == 0 && TARGET
	ARG = TARGET

SELECTCASE ARGS
CASE "交流接吻"
	RETURNF GETBIT(CFLAG:ARG:交流詳細过滤器, 0)
CASE "交流Ｖ性交"
	RETURNF GETBIT(CFLAG:ARG:交流詳細过滤器, 1)
CASE "生許可"
	RETURNF GETBIT(CFLAG:ARG:交流詳細过滤器, 2)
CASE "奪処女"
	RETURNF GETBIT(CFLAG:ARG:交流詳細过滤器, 3)
CASE "交流Ａ性交"
	RETURNF GETBIT(CFLAG:ARG:交流詳細过滤器, 4)
CASE "交流Ａ挿入"
	RETURNF GETBIT(CFLAG:ARG:交流詳細过滤器, 5)
ENDSELECT
RETURNF 0

@TRAIN_OTHERMESSAGE_COM290_K46
#FUNCTIONS
#DIM ACTOR
#DIMS DYNAMIC EVENT_TABLE

ACTOR = TO_NUMBER(CFLAG:お相手)
VARSET LOCALS

EVENT_TABLE += "受動前戯/"

SIF CFLAG:交流舐陰莖
	EVENT_TABLE += "舐陰莖/"

SIF CFLAG:交流口交
	EVENT_TABLE += "口交/"

SIF CFLAG:交流舐陰
	EVENT_TABLE += "舐陰/"

SIF CFLAG:交流Ｖ性交
	EVENT_TABLE += "Ｖ性交/"

SIF CFLAG:交流Ａ性交
	EVENT_TABLE += "Ａ性交/"

SIF CFLAG:交流Ａ挿入
	EVENT_TABLE += "Ａ挿入/"

SIF COND("初Ｖ性交") == ACTOR && CEVENT("初語り：Ｖ") == 0
	EVENT_TABLE += "処女喪失"

SIF COND("初Ａ性交") == ACTOR && CEVENT("初語り：Ａ") == 0
	EVENT_TABLE += "Ａ処女喪失"

SIF COND("初Ｖ挿入") == ACTOR && CEVENT("初語り：Ｐ") == 0
	EVENT_TABLE += "童貞卒業"

SELECTCASE TEXTR(EVENT_TABLE)
CASE "口交"
	LOCALS += @"看着%CALLNAME:ACTOR%的%TEXTR("与外表不相称的/遍布淫水")%陰茎"
	SELECTCASE RAND:5
	CASE 0
		LOCALS += @"里面释放的浓郁精液散发的气味甚至连嗅觉都玷污了"
	CASE 1
		LOCALS += ""
		SIF CFLAG:交流口交 >= 10
			LOCALS += @"%TEXTR("几次/不知道多少次/为了品尝味道/数不清次数地/双眼出现桃心")%"
		LOCALS += @"把他含住了"
	CASE 2
		LOCALS += @"%TEXTR("完全发情地舔着溢出来的先走汁/成为了它的俘虏/陶醉地吮吸起来/在吮吸时情不自禁地发情了")%"
	CASE 3
		IF VAGINA(TARGET)
			LOCALS += @"小穴%TEXTR("濡湿透了/分泌的爱液从里面一点一点滴落下来")%"
		ELSE
			LOCALS += @"%TEXTR("的姿态刺激心中的雌性/像一个发情的雌兽")%"
		ENDIF
		LOCALS += "，開始拼命地舔舐着"
	CASE 4
		LOCALS += @"沉睡在心中的雄性被唤醒、陶醉的舔舐着"
	ENDSELECT
CASE "舐陰莖"
	LOCALS += @"%CALLNAME:ACTOR%%TEXTR("温暖的口腔里/被其他动物般的舌技/富有技巧的舌頭")%"
	SIF CFLAG:交流舐陰莖 >= 10
		LOCALS += @"%TEXTR(@"许多次/一直/塞满了嘴/%CALLNAME:ACTOR%的脸被精液涂满了/%CALLNAME:ACTOR%的嘴角滴漏出精丝")%"
	LOCALS += @"%TEXTR("射精/玩弄/陶醉地摇晃腰部")%"
CASE "舐陰"
	SELECTCASE RAND:4
	CASE 0
		LOCALS += @"%CALLNAME:ACTOR%の%TEXTR("别的动物般的舌技/想象中更厚实的舌頭/富有技巧的舌頭/一边热吻一边")%"
		SIF CFLAG:交流舐陰 >= 10
			LOCALS += @"%TEXTR("几次/不知道多少次/一想起来就要湿了那样地/数不清的/快要上瘾的/让阴蒂通红地勃起般地")%"
		LOCALS += @"%TEXTR("被舔弄了/让阴核被送到了高潮/把阴蒂竖了起来")%"
	CASE 1
		LOCALS += @"在%CALLNAME:ACTOR%的舌技下不受控制的高潮了几次。"
	CASE 2
		LOCALS += @"%TEXTR("在沙发上/床上/毯子上")%缩成了一团。"
	CASE 3
		LOCALS += @"%TEXTR("完全丧失理性了/爱液在床单上留下了污渍")%"
	ENDSELECT
CASE "Ｖ性交"
	SELECTCASE RAND:8
	CASE 0
		LOCALS += @"被%CALLNAME:ACTOR%的陰茎"
		SIF CFLAG:交流Ｖ性交 >= 10
			LOCALS += @"%TEXTR("一次/再一次/能牢牢记住形状地/无数次")%"
		LOCALS += @"%TEXTR(@"贯穿了/插入了/送入了高潮了/教会了作为雌性地快乐/灌满了精液")%"
	CASE 1
		LOCALS += @"被%CALLNAME:ACTOR%用喜欢的姿势做了起来"
	CASE 2
		IF COND("Ｖ熟達")
			IF RAND:2
				LOCALS += @"尽管已经习惯了性交，但还是情意迷乱了"
			ELSE
				LOCALS += @"习以为常的两人像动物一样相互索取"
			ENDIF
		ELSE
			LOCALS += @"不由得像恋人一样紧紧地抱住了%CALLNAME:ACTOR%的腰"
		ENDIF
	CASE 3
		LOCALS += @"全身心都被放到了%CALLNAME:ACTOR%身上"
	CASE 4
		LOCALS += @"成为了%CALLNAME:ACTOR%性爱的俘虏"
	CASE 5
		LOCALS += @"和%CALLNAME:ACTOR%一直缠绵到天亮"
	CASE 6
		LOCALS += "小穴已经完全适应了"
	CASE 7
		LOCALS += @"被%CALLNAME:ACTOR%迷住、一直被侵犯到了朝阳升起"
	ENDSELECT
CASE "Ａ性交"
	SELECTCASE RAND:5
	CASE 0
		LOCALS += @"被%CALLNAME:ACTOR%的陰茎"
		SIF CFLAG:交流Ａ性交 >= 10
			LOCALS += @"%TEXTR("几次/再一次/不想让它闭合一样/无数次")%"
		LOCALS += @"%TEXTR(@"贯穿了/插入了菊門/欺负了/注满了精液")%"
	CASE 1
		IF COND("Ａ熟達")
			LOCALS += @"在%CALLNAME:ACTOR%的手下泄了好几次"
		ELSE
			LOCALS += @"被%CALLNAME:ACTOR%手把手"
			SIF CFLAG:交流Ａ性交 >= 10
				LOCALS += "细心的"
			LOCALS += "教会了屁股的快感"
		ENDIF
	CASE 2
		LOCALS += @"被%CALLNAME:ACTOR%的%TEXTR("黑黝黝/布满淫水/雄伟")%的陰茎開发了屁眼"
	CASE 3
		LOCALS += @"%CALLNAME:ACTOR%把屁眼当作小穴来好好使用"
	CASE 4
		LOCALS += @"一直侵犯肛門好几个小时"
	ENDSELECT
;CASE "Ｖ挿入"
;	IF RAND:2
;		LOCALS += @"%CALLNAME:ACTOR%の秘所を"
;		SIF CFLAG:交流Ｖ挿入 >= 10
;			LOCALS += @"%TEXTR("无数次/又一次/能清楚的感觉到")%"
;		LOCALS += @"%TEXTR(@"被贯穿了/被侵犯了/充满了精液")%"
;	ELSE
;		IF TALENT:童貞 == 0 && RAND:2
;			LOCALS += "像处男一样饥渴地插了进去"
;		ELSE
;			LOCALS += @"%CALLNAME:ACTOR%の蜜壺に%TEXTR("精液を飲み込まれた/大量の精液を注ぎ込んだ/締め付けられ、衝動のままに腰を振り続けてしまった")%"
;		ENDIF
;	ENDIF
CASE "Ａ挿入"
	IF RAND:2
		LOCALS += @"让%CALLNAME:ACTOR%的菊花"
		SIF CFLAG:交流Ａ挿入 >= 10
			LOCALS += @"%TEXTR("无数次/又一次/能清楚的感觉到")%"
		LOCALS += @"%TEXTR(@"被贯穿了/被侵犯了/充满了精液")%"
	ELSE
		IF TALENT:童貞 == 0 && RAND:2
			LOCALS += "像处男一样饥渴地插了进去"
		ELSE
			LOCALS += @"%CALLNAME:ACTOR%的菊花%TEXTR("把精液吸了进去/情不自禁的摇动起来")%"
		ENDIF
	ENDIF
CASE "処女喪失"
	LOCALS += @"%TEXTR(@"向%CALLNAME:ACTOR%献上了处女/由%CALLNAME:ACTOR%变成了女人/向%CALLNAME:ACTOR%献上了第一次/给了%CALLNAME:ACTOR%処女穴的插入许可/经由%CALLNAME:ACTOR%帮助成为了女人/和%CALLNAME:ACTOR%体验了没有痛苦的第一次")%"
CASE "Ａ処女喪失"
	LOCALS += @"%TEXTR(@"被%CALLNAME:ACTOR%教会了菊花的快感/向%CALLNAME:ACTOR%献上了屁眼的第一次/向%CALLNAME:ACTOR%献上了第一次肛交")%"
CASE "童貞卒業"
	LOCALS += @"%TEXTR(@"向%CALLNAME:ACTOR%献上了童贞/由%CALLNAME:ACTOR%变成了男人/被%CALLNAME:ACTOR%玩弄了阴茎//经由%CALLNAME:ACTOR%帮助成为了男人")%"
CASE "受動前戯"
	IF RAND:2
		LOCALS += @"与%CALLNAME:ACTOR%身体相互接触"
	ELSE
		LOCALS += @"被%CALLNAME:ACTOR%灵活的手指%TEXTR("逗弄了/迷住了")%"
	ENDIF
ENDSELECT

RETURNF LOCALS

;-------------------------------------------------
;以降は喘ぎ声を生成するための関数
;六華口上や哈娜口上の汎用喘ぎ声を参考、また一部流用、改変させていただいて製作しています
;-------------------------------------------------

;喘ぎ声を随机で発声させる関数。挿入などの条件があればいくつかの喘ぎ声を混ぜ合わせる
;回数上限、ループ、爱心要不要は共通になる
;現状加える予定の喘ぎ声は、1.通常(製作済)、2.Ｍ異物（製作済）、3Ｖ異物（製作前、伪娘に膣がつけられるようにならない限り作らない予定）4Ａ異物（製作済）5挿入(製作前)
@MPANT_K46, 回数上限, ARG, ARGS
#FUNCTIONS
#DIMS DYNAMIC 喘ぎ
#DIMS 爱心;ARGSを直接いじってしまうと爱心が不要になって以後出なくなるので、そうしないための一時的な変数
#DIM 回数上限
#DIM ループ
#DIMS 連続过滤器;あまり繰り返させたくない言葉に过滤器を掛ける

連続过滤器 = 無
爱心 = %ARGS%
FOR ループ, 0, 回数上限

	;肛門に挿入されていた場合
	IF (TEQUIP:ARG:肛用振動棒 || TEQUIP:ARG:浣腸 || INSERT("Ａ挿入", ARG) || GROUPMATCH(SELECTCOM, 2, 9, 14, 33, 70, 71, 72, 73, 74, 75, 136, 142, 143)) && RAND:7 == 0 && 連続过滤器 != "Ａ異物"
		喘ぎ += @"%PANT_K46(ARG, 爱心, "Ａ異物")%"
		;肛門を連続して話さないために过滤器をかける
		連続过滤器 = Ａ異物
	;尿道に挿入されていた場合
	ELSEIF (INSERT("尿道挿入", ARG) || GROUPMATCH(SELECTCOM, 15, 83, 84, 85, 86, 87, 88, 149, 151)) && RAND:6 == 0 && 連続过滤器 != "尿道異物"
		喘ぎ += @"%PANT_K46(ARG, 爱心, "尿道異物")%"
		;尿道を連続して話さないために过滤器をかける
		連続过滤器 = 尿道異物
	;口に何か入っていた場合
	ELSEIF (TEQUIP:ARG:接吻 || TEQUIP:ARG:深喉 || TEQUIP:ARG:六九式 || GROUPMATCH(SELECTCOM, 6, 91, 96, 98, 99, 135, 148)) && RAND:5 == 0
		喘ぎ += @"%PANT_K46(ARG, 爱心, "Ｍ異物")%"
	;Ｍ異物と条件が被るものの、接吻の時限定
	ELSEIF (TEQUIP:ARG:接吻 || SELECTCOM == 6) && RAND:4 == 0
		喘ぎ += @"%PANT_K46(ARG, 爱心, "接吻")%"
	;膣や肛門に挿入していた場合
	ELSEIF (INSERT("挿入", PLAYER, ARG) || (ASSI && INSERT("挿入", ASSI, ARG)) || GROUPMATCH(SELECTCOM, 120, 121, 122, 125, 126, 127)) && RAND:3 == 0 && 連続过滤器 != "挿入"
		喘ぎ += @"%PANT_K46(ARG, 爱心, "挿入")%"
		;挿入を連続して話さないために过滤器をかける
		連続过滤器 = 挿入
	;飞机杯に挿入していた場合
	ELSEIF SELECTCOM == 37 && RAND:2 && 連続过滤器 != "飞机杯挿入"
		喘ぎ += @"%PANT_K46(ARG, 爱心, "飞机杯挿入")%"
		;飞机杯挿入を連続して話さないために过滤器をかける
		連続过滤器 = 飞机杯挿入
	;条件に引っかからなければ汎用を呼び出す
	ELSE
		喘ぎ += @"%PANT_K46(ARG, 爱心, "通常")%"
	ENDIF

	;連続して指定されなかった場合、过滤器を解除する
	IF 連続过滤器 != "無"
		IF LOCAL == 3
			連続过滤器 = 無
			LOCAL = 0
		ELSE
			LOCAL++
		ENDIF
	ENDIF

	;爱心が必要なときは随机でどちらにするのか指定する
	IF ARGS == "要" && (ループ == 0 || RAND:2)
		爱心 = %ARGS%
	;爱心が不要な場合
	;回数を繰り返したときは随机でこちらの方を選択する
	ELSEIF ARGS == "不要" || ループ >= 1
		爱心 = 不要
	;今のところは完全に不要だが後の拡張のため＆構文ミスに気付くために其他にはエラーをだす
	ELSE
		喘ぎ += "指定の範囲外です"
	ENDIF
NEXT

RETURNF 喘ぎ

;喘ぎ声を生成する関数。爱心を加えるか否かをARGSで指定する。
;喘ぎは使う度に空白にしていくので動的変数として指定
;それぞれのパターンを変数パターンに指定し、そのCASEにあわせて喘ぎ方を変えて行く(予定)
@PANT_K46, ARG, ARGS, パターン, 回数
#FUNCTIONS
#DIM ループ
#DIMS パターン
#DIMS DYNAMIC 喘ぎ
#DIM 回数

FOR ループ, 0, MAX(回数, 1)
	SELECTCASE パターン
	;汎用パターン
	CASE "通常"
		IF PALAM:ARG:欲情 >= PALAMLV:5 && RAND:3
			喘ぎ += @"%TEXTR("く……っ/はぁっ")%"
		ELSEIF PALAM:ARG:欲情 >= PALAMLV:3 && RAND:2
			喘ぎ += @"%TEXTR("はっ/んっ/くっ……/はぁ……っ")%"
		ELSE
			喘ぎ += @"%TEXTR("ふっ……/ん……/……/ふ……/はぁ……/っ……")%"
		ENDIF
	;口に何か入っているとき
	CASE "Ｍ異物"
		;長くなるのでいくつかに分割
		IF RAND:2
			喘ぎ += @"%TEXTR("呼姆ぅ……/嗯姆、……/哈姆ぁ……/啾啪……/舔……/啾……/嗯……/嗯、、你这…/你这…ぁ姆…嗯、/嗯、…、你这……/啾、、你这、…啾哟、/嗯嗯、……你这…/你这、哈姆……嗯、")%"
		ELSE
			喘ぎ += @"%TEXTR("嗯、、嗯咕、…/嗯嗯…嗯ぅ……、/嗯、…、嗯嗯……/嗯咕、、嗯、…嗯、/嗯姆、……嗯、/嗯姆、、嗯嗯…、")%"
		ENDIF
	;接吻しているとき
	CASE "接吻"
		喘ぎ += @"%TEXTR("啾……/啾哟……/嗯姆、……/嗯……/啾、、啾、…/啾…啾……、/啾、…、啾……/啾、、啾、…啾、/啾ぅ……啾、/嗯啾、、啾……、")%"
	;肛門に何か入っているとき
	CASE "Ａ異物"
		SELECTCASE TONE_K46()
		CASE "穏やか", "甘えんぼ"
			喘ぎ += @"%TEXTR("屁股吗、/啊嗯、/啊……")%"
		CASE "丁寧"
			喘ぎ += @"%TEXTR("不行/那样的事/这太不干净了……")%"
		CASE "傲嬌"
			喘ぎ += @"%TEXTR("屁股吗、/嗯、/哈啊、")%"
		CASE "通常"
			喘ぎ += @"%TEXTR("おいっ/待てっ/んっ/はっ/はぁ……/はぁ……っ")%"
		ENDSELECT
	;尿道に何か入っているとき
	CASE "尿道異物"
		SELECTCASE TONE_K46()
		CASE "穏やか", "甘えんぼ"
			喘ぎ += "尿尿的地方吗"
		CASEELSE
			喘ぎ += "小便的地方吗"
		ENDSELECT
	;何かに挿入しているとき
	CASE "挿入"
		IF RAND:2
			喘ぎ += @"%CNAMET(ARG, "二人称")%的"
			IF RAND:2
				IF GROUPMATCH(SELECTCOM, 120, 121, 122)
					喘ぎ += @"%TEXTR("小穴/蜜裂")%"
				ELSEIF GROUPMATCH(SELECTCOM, 125, 126, 127)
					喘ぎ += @"%TEXTR("屁股/肛門")%"
				ENDIF
			ELSE
				喘ぎ += "里面"
			ENDIF
			IF TONE_K46() == "丁寧"
				喘ぎ += "啊、_H_好深、"
			ELSE
				喘ぎ += "舒服……"
			ENDIF
		ELSE
			喘ぎ += @"%TEXTR("嗯、/咕、/呼、/呜、")%"
		ENDIF
	;飞机杯に挿入しているとき
	CASE "飞机杯挿入"
		喘ぎ += @"%TEXTR("飞机杯吗……/啊……不要乱动……")%"
	ENDSELECT
	;爱心が必要な場合
	IF ARGS == "要"
		喘ぎ += "_H_"
	;爱心が不要な場合
	ELSEIF ARGS == "不要"
	;今のところは完全に不要だが後の拡張のため＆構文ミスに気付くために其他にはエラーをだす
	ELSE
		喘ぎ = "PANT_K46出现了问题"
		RETURNF 喘ぎ
	ENDIF
	;読みやすいように半角スペースをくわえる
	喘ぎ += " "
NEXT

RETURNF 喘ぎ

license: unknown


code:
;長い個別イベやらなんやらを格納する場所
@K46_LONG, ARGS, ARG

SIF ARG == 0
	ARG = TARGET

SELECTCASE ARGS
CASE "生徒との会話"
	PRINTFORMW 在%CALLNAME:TARGET%参加了%CALLNAME:MASTER%的社团活动的第二天、%CALLNAME:TARGET%被一个学生搭话了。
	PRINTFORMW 『%CALLNAME:TARGET%老师、我能问件事吗？』
	PRINTFORMW 「哦，没関系……有什么事吗？」
	PRINTFORMW 『我听说昨天有人看见老师去了那个社团』
	PRINTFORMW 「啊，这件事啊。没错」
	PRINTFORMW 『……那个社团怎么样？』
	PRINTFORMW %CALLNAME:TARGET%看着学生的双眼露出笑容。
	PRINTFORMW （……那么，怎么说好呢）
	PRINTFORMW 他是出了名的好色学生。
	PRINTFORMW ……说实话、他的恶劣程度连%CALLNAME:MASTER%都被远远超过了。
	PRINTFORM 他打听那个
	IF CHARANUM == 4
		IF VAGINA(MASTER)
			PRINTFORM 两个人气女生
		ELSE
			PRINTFORM 一个人气女生和另一个男生
		ENDIF
		PRINTFORM 在不知道什么时候创立的社团
	ELSE
		PRINTFORM 由许多女学生参与的神秘社团活动
	ENDIF
	PRINTFORMW 他对那个社团感兴趣、%CALLNAME:TARGET%感觉到了。
	PRINTFORMW 但是，要不要让他参加那个社团活动呢？
	PRINTFORMW 要让他参加社团活动的话肯定是很危险的，主要是对于他来说。
	PRINTFORMW 但要是敷衍了事的话，他肯定也会想办法强行参加社团活动。
	PRINTFORMW （……算了，就这样吧。反之那些家伙会随便对付他一下，然后把他赶走的）
	PRINTFORMW 「啊、那是个不错的地方。就是因为太棒了，所以%CNAME("一人称")%也决定去参与」
	PRINTFORMW 当%CALLNAME:TARGET%这样回答的时候、周围学生们露出了厌恶的目光。
	PRINTFORMW %CALLNAME:TARGET%回答时，周围里也有女孩子
	PRINTFORMW 如果一切顺利的话——他大概是这么想的吧。
	PRINTFORMW （嗯，请节哀）
	PRINTFORMW %CALLNAME:TARGET%温暖地注视着那位步履轻盈的学生的背影。。
	PRINTFORMW ……后来、去问了那个男生结果，他问「有这样的社团吗？」、察觉到发生了什么的%CALLNAME:TARGET%露出了暧昧的笑容……。
CASE "とあるバーで"
	PRINTFORMW 从学校出来向大門走去、正好遇到了同样回去的%CALLNAME:TARGET%
	PRINTFORMW %CALLNAME:MASTER%轻轻挥了挥手，然后不知道在想什么，低着頭一动不动
	PRINTFORMW 或许不要搭话比较好、在%CALLNAME:MASTER%离開大門走出去的一瞬间――
	PRINTFORMW 「嘿，等一下」
	PRINTFORMW %CALLNAME:TARGET%叫住了我
	PRINTFORMW 「我想带你一起去一个地方，你有空吗？」
	PRINTFORMW ……该怎么做呢？
	CALL PRINT_SELECT, "答应了/用「今天还有事……」来拒绝"
	SELECTCASE RESULT
	CASE 0
		PRINTFORMW 「谢谢你能和我一起来。……那么，来这里」
		PRINTFORMW 和%CALLNAME:TARGET%一起走向停车场、坐上他的车。车向繁华的街道出发了……
		PRINTFORML
		PRINTFORMW 「喂、%CNAME("主人")%起来了」
		PRINTFORMW 感觉到谁的气息被摇醒、%CALLNAME:MASTER%的眼前出现了%CALLNAME:TARGET%的身影
		PRINTFORMW 好像是在车里睡着了……
		PRINTFORMW 向%CALLNAME:TARGET%道谢后就下了车跟在他后面
		PRINTFORMW 看来是着繁华街道里比较冷清的地方，可以看到好几家拉下卷帘門的店铺
		PRINTFORMW 「到了」
		PRINTFORMW 被%CALLNAME:TARGET%叫了一声，抬頭一看，眼前是一栋5层楼高的小楼房。
		PRINTFORMW 建筑物和建筑物之间的小道狭窄而细长，因为常年雨水的冲刷被弄脏的墙壁看起来非常不可靠
		PRINTFORMW 除了入口外，还有一个楼梯通向大楼的底部。似乎是要往下走。
		PRINTFORMW 穿过好像快要熄灭的闪烁荧光灯，有一个名为『グリゴリ』的酒吧。
		PRINTFORMW 門内有光线透出来，但从店前的告示板来看，好像还没到開店时间……
		PRINTFORMW 「等一下」
		PRINTFORMW %CALLNAME:TARGET%就这样敲了敲門，小声说了什么。
		PRINTFORMW ——不知道是暗号还是什么，就听到一声門锁被打開的响声，%CALLNAME:TARGET%就这样走进了店里
		PRINTFORMW %CALLNAME:MASTER%也赶紧跟上
		PRINTFORML
		PRINTFORMW 石砖墙上挂着由神秘的纸片和霓虹灯制成的壁挂。在灯光昏暗的商店里，用胖次挂着几个光秃秃的灯泡。
		PRINTFORMW 桌子和椅子各式各样，有旧木材的，也有年糕椅子，甚至还有用铁桶加工而成的。这里与其说是酒吧，不如说更像是废墟或者杂物间
		PRINTFORMW %CALLNAME:MASTER%和%CALLNAME:TARGET%坐在放有有类似餐具的物品的吧台上
		PRINTFORMW 两人点完酒后、%CALLNAME:TARGET%悄悄地说话
		PRINTFORMW 「什么都没说就把你带来，真是对不起。吓了一跳吧」
		PRINTFORMW %CALLNAME:MASTER%回答说没有那回事、%CALLNAME:TARGET%松了一口气露出微笑
		PRINTFORMW 「这里不是普通的酒吧。是%CNAME("一人称")%们这样的堕天使的聚集地。」
		PRINTFORMW 「虽然这样说，这里也接待其他生物和人类。在開店前这里都这样喝酒聊天」
		PRINTFORMW 原来如此，%CALLNAME:MASTER%想到
		PRINTFORMW 因为聚集在店里的客人和工作人员都散发着独特的存在感
		PRINTFORMW 话说回来、%CALLNAME:MASTER%问到
		PRINTFORMW %CALLNAME:TARGET%为什么要带我来这里时，%CALLNAME:TARGET%罕见地说不出话来。
		PRINTFORMW 「啊……那个，怎么说呢」
		PRINTFORMW 「%CNAME("二人称")%在%CNAME("一人称")%们之间已经很出名了，只是偶然被人看到了%CNAME("二人称")%和%CNAME("一人称")%在一起。」
		PRINTFORMW 「很久以前就有人问我有没有交\@ TRUE_SEX(MASTER) == "男性" ? 男 # 女\@朋友了」
		PRINTFORMW 「然后，%CNAME("一人称")%不小心被知道了想法，他们就闹起来了」
		PRINTFORMW 「叫我让他们看看你的脸，又吵又闹。一直这个的话，恐怕会闹到到学校来，所以干脆带你来了」
		PRINTFORMW 「……嘛，就是这样。……好啊，喝酒吧？」
		PRINTFORMW 他把酒一饮而尽……
	CASEELSE
		PRINTFORMW 「是吗，不好意思叫住你。」
		PRINTFORMW 「回家路上小心点!」
		PRINTFORMW %CALLNAME:MASTER%就这样直接回家了……
	ENDSELECT
CASE "奥丝卡との邂逅"
	PRINTFORMW 『打扰一下』
	PRINTFORMW 时间已经过了晚上8点。结束工作，正要回家的%CALLNAME:TARGET%眼前，出现了一个人影。
	PRINTFORMW 看起来应该是女性，随意披散着的白色頭发和红色的眼睛。
	PRINTFORMW 她年轻的面孔，高贵的站姿，漆黑的眼球，以及周围散发处的庞大魔力，都说明她不是普通人。
	PRINTFORMW ——是敌人，还是这个学院的那些『特殊』的家伙。
	PRINTFORMW %CALLNAME:TARGET%在表面装作若无其事的同时，也在内心暗暗警惕。
	PRINTFORMW 『你觉得%CALLNAME:TARGET%怎么样？』
	PRINTFORMW 很友善的第一句话，%CALLNAME:TARGET%有点放心。
	PRINTFORMW 「……嗯？　啊、啊啊、怎么……有什么事吗？」
	PRINTFORMW 拥有庞大的魔力却没有敌意，她平静地搭话让%CALLNAME:TARGET%有些困惑。
	PRINTFORMW 『连%CNAMET(ARG, "一人称")%的名字都没告诉就发问，真是不好意思。%CNAMET(ARG, "一人称")%的名字是……』
	PRINTFORMW 听到她告知的名字，%CALLNAME:TARGET%的记忆渐渐浮现出睡眠。
	PRINTFORMW 曾经%CALLNAME:TARGET%在魔界的时候、确实遇到过这个名字有関的人。
	PRINTFORMW 「……这么说来，难道你是那家伙的家人吗？」
	PRINTFORMW ……肯定的回答。
	PRINTFORMW 但正因为如此，%CALLNAME:TARGET%才觉得不可思议
	PRINTFORMW 「那家伙现在应该是魔界的大贵族了。这里到底发生了什么……？」
	PRINTFORMW 『……那是因为……』
	PRINTFORMW 在那之后，她谈到了她迄今为止的所有故事。
	PRINTFORMW 一開始发生了什么事，然后就来到了人类世界。
	PRINTFORMW 「……这样啊。然后……」
	PRINTFORMW 『请叫我%CALLNAME:ARG%。在这里就这样叫我』
	PRINTFORMW 「是吗？那你现在住在哪里？」
	PRINTFORM 『哦、我现在
	IF COND("同居中", ARG)
		PRINTFORMW 和%CNAMET(ARG, "二人称")%一样住在契约者的家里』
	ELSE
		PRINTFORMW 在人类界留宿』
	ENDIF
	PRINTFORMW 「是吗，那就好。要是认识的姑娘死了，我会睡不着的」
	PRINTFORMW %CALLNAME:ARG%用惊讶的眼神注视着这样回答的%CALLNAME:TARGET%。
	PRINTFORMW 「……什么啊，有什么奇怪吗？」
	PRINTFORMW 『不，你是变了』
	PRINTFORMW 「我变了吗？」
	PRINTFORMW 『啊啊，爸爸说过……我听说你是个正经的人……没想到会在这里会听到这样的话』
	PRINTFORMW 「……变了。是吗，变了吗……咕咕咕咕……啊哈哈哈哈!」
	PRINTFORMW 惊讶于突然笑起来的%CALLNAME:TARGET%、%CALLNAME:ARG%睁大了眼。
	PRINTFORMW 笑了一会儿，%CALLNAME:TARGET%向%CALLNAME:ARG%道歉。
	PRINTFORMW 「刚才对不起了……是吗，%CNAME("一人称")%也变了啊……」
	PRINTFORMW %CALLNAME:TARGET%从椅子上站起来，
	PRINTFORMW 「哎呀，谢谢你给我讲了这些故事。有什么困难尽管说，我会尽力去帮你的」
	PRINTFORMW 把手放在%CALLNAME:ARG%的肩上……。
CASE "最後の思い出"
	PRINTFORMW 『我喜欢你!　请和我交往!』
	PRINTFORMW %CALLNAME:TARGET%在去活动室的途中，被一个女学生告白了。
	PRINTFORMW 一个美丽的黑发及腰，优雅地穿着水手服的漂亮学生。
	PRINTFORMW 她面对着%CALLNAME:TARGET%，满脸通红地等待着%CALLNAME:TARGET%的回答。
	PRINTFORMW 「……对不起，我不能答应你」
	PRINTFORMW 听到%CALLNAME:TARGET%拒绝的回答、学生的反应很平静。
	PRINTFORMW 在一次见面的情况下就告白，被拒绝完全是是预料之中的事情。
	PRINTFORMW 『……是吗？是啊……』
	PRINTFORMW 但她是真心喜欢%CALLNAME:TARGET%的。
	PRINTFORMW 喜欢到觉得只要有上一次床就够了。
	PRINTFORMW 『……我明白了，我放弃老师了。所以，至少能和我做爱吗……？』
	PRINTFORMW %CALLNAME:TARGET%困惑地摇了摇頭。
	PRINTFORMW 「%CNAME("一人称")%和%CNAME("二人称")%的関系是师生関系。那种事不能做」
	PRINTFORMW 『但是，我马上就要毕业了。马上就不是师生関系了，有必要这样死板吗？』
	PRINTFORMW %CALLNAME:TARGET%深深地叹了口气。
	PRINTFORMW 「……我知道了。就一次」
	PRINTFORML
	CALL PRINT_STRW, @"『%PANT_K46(TARGET, "要", "通常", 3+RAND:3)%』"
	PRINTFORMW %CALLNAME:TARGET%趴在一丝不挂的女学生上。
	PRINTFORMW %CALLNAME:TARGET%的陰茎每次在她的蜜壷中进出的时候、女学生就会发出甜美的声音。
	PRINTFORMW 「哦、%CNAME("二人称")%喜欢这里吗？」
	CALL PRINT_STRW, @"『喜欢_H_最喜欢了_H_老师っ_H_再多一点_H_』"
	PRINTFORMW 「真是的……算了。现在只有%CNAME("二人称")%。如果你想要的话，我会满足你的」
	PRINTFORMW 下一瞬间，%CALLNAME:TARGET%的腰部动作加快了。
	PRINTFORMW 与刚才的抚慰不同，他的腰像野兽一样粗鲁地摇动起来，让女生忍不住发出了娇媚地呻吟。
	PRINTFORMW 「……！　射了！」
	PRINTFORMW %CALLNAME:TARGET%的腰部停止动作的同时，精液从他的阴茎中射出。
	PRINTFORMW 与此同时，女学生的身体弓了起来，达到了高潮，感受着避孕套内的精液仿佛快要溢出蜜壶的感觉。
	PRINTFORMW 两人的痉挛停下来后，%CALLNAME:TARGET%把阴茎拔了出来。
	PRINTFORMW 被爱液涂满的阴茎上拉丝连在了女学生的蜜壶中爱液滴滴答答的落下来，充满精液鼓胀的避孕套随着重力，一下子落到了地板上。
	CALL PRINT_STRW, @"「哈啊……_H_哈啊咻……_H_」"
	PRINTFORMW 「满足了吗？」
	PRINTFORMW %CALLNAME:TARGET%对沉浸在绝顶余韵中女学生问道。
	CALL PRINT_STRW, @"「还没有……_H_老师……请再做一会儿……_H_」"
	PRINTFORMW 「……只有今天哦」
	PRINTFORMW 苦笑的%CALLNAME:TARGET%再次在阴茎上套上避孕套，再次插入了那个张合着的蜜壶…………。
CASE "诺伊七変化"
	PRINTFORMW %CALLNAME:MASTER%正在与%CALLNAME:TARGET%聊天
	PRINTFORMW 话题越聊越热烈，逐渐转移到%CALLNAME:TARGET%的过去。
	PRINTFORMW 「嗯？　我以前是怎么样的？」
	PRINTFORMW 「正如我之前所说，我一直和各种各样的人混在一起......」
	PRINTFORMW 「这种时候，我觉得光用一种说话方式不行，就试着换了一种方式……」
	PRINTFORMW %CALLNAME:TARGET%这句话，引起了%CALLNAME:MASTER%的好奇心。
	PRINTFORMW %CALLNAME:MASTER%试着请求用一下以前的语气。
	PRINTFORMW 「嗯……好啊……」
	PRINTFORMW 「能告诉我你想我怎样说话吗？」
	PRINTFORML %CALLNAME:MASTER%想
	CALL PRINT_SELECT, "穏やかに/精心/甘えた感じで/傲嬌っぽく"
	SELECTCASE RESULT
	CASE 0
		PRINTFORMW 「你是想让我说话沉稳一点吧？」
		PRINTFORMW 「嗯，这样的话……」
		PRINTFORMW 「………这样的说话方式怎么样？」
		PRINTFORMW 「这是我以前某个国家的大人物当侍从时用的说话方式。怎么样？　開心吗？」
	CASE 1
		PRINTFORMW 「想让我认真吗？」
		PRINTFORMW 「等一下啊……」
		PRINTFORMW 「……这样的语调怎么样」
		PRINTFORMW 「这是我以前在一位司祭手下效劳时的模样。如果你喜欢好了」
	CASE 2
		PRINTFORMW 「撒娇的感觉？」
		PRINTFORMW 「%CNAME("二人称")%搭档会有点不好意思啊……」
		PRINTFORMW 「……这样的话怎么样？」
		PRINTFORMW 「以前，和各种各样的人『和睦相处』的时候用的!　怎么说呢……？　%CALLNAME:MASTER%喜欢这样的吗？」
	CASE 3
		PRINTFORMW 「傲、傲嬌！？」
		PRINTFORMW 「咦，这是……一定要这样的话……」
		PRINTFORMW 「……满意了吗？」
		PRINTFORMW 「那家伙是在对付那些頭脑不清的贵族时这样干的。你想让我也这样做，我怀疑你没有考虑清楚」
	ENDSELECT
	PRINTFORMW 「……满意了吗？」
	PRINTFORMW 「如果今后想改的话就告诉我」
	PRINTFORMW 「……啊，平时肯定不事这样的吧　只有在做色情事情的时候或者是那种时候」
	IF CEVENT("诺伊七変化") == 0
		PRINTL
		CALL PRINT_STRW, @"_黄色_可以改变%CALLNAME:TARGET%的语气了。"
		CALL PRINT_STRW, @"_黄色_お願いの[61]-口調を変える　から変更できます"
		CALL PRINT_STRW, @"_黄色_但是语气的变化是调教时限定。请注意"
	ENDIF
CASE "喫煙"
	PRINTFORMW 有一天、%CALLNAME:TARGET%和%CALLNAME:ARG%两人在房间里
	PRINTFORMW 「……那么、为什么%CNAME("二人称")%在这呢」
	PRINTFORMW 『%CNAMET(ARG, "一人称")%在的话会有问题吗？』
	PRINTFORMW 「不，不是这个意思……」
	PRINTFORMW 沉默充满了活动室
	PRINTFORMW 他们自己做自己的事情过了一段时间后，在%CALLNAME:TARGET%的视野边缘，出现了%CALLNAME:ARG%在玩烟盒的画面。
	PRINTFORMW 「……你抽烟吗？」
	PRINTFORMW %CALLNAME:ARG%露出抱歉的表情，想把烟放回口袋。
	PRINTFORMW 「啊，没関系的」
	PRINTFORMW 我把那个用其他国家的语言写着「平和」的烟盒放在了桌子上。
	PRINTFORMW 「哦，好怀念啊」
	PRINTFORMW %CALLNAME:TARGET%深情地呢喃
	PRINTFORMW 『……%CNAMET(ARG, CALLNAME:TARGET)%也在吸吗？』
	PRINTFORMW 「以前吸。后来因为情况越来越不好，所以就戒了……」
	PRINTFORMW %CALLNAME:TARGET%从怀里掏出打火机
	PRINTFORMW 他盯着看了一会儿，终于開口了。
	PRINTFORMW 「……可以散一根吗？」
	PRINTFORMW 『请吧』
	PRINTFORMW %CALLNAME:TARGET%熟练地拿起香烟
	PRINTFORMW 然后咔嚓一声打開了那个旧打火机，就这样悠然地吸起烟来……
ENDSELECT

path: ERB/EVENT_K/46 ノイ/EVENT_K46_LONG.ERB


code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;X1は角色番号に置換してください
;-------------------------------------------------
;お願い・取引での選択肢を追加。番号は60～89を使ってよい
@WISH_K46_ADDSELECT
;女装or男装に姿を変えるお願い
;乃々君の女装を就这様移植したもの
IF CEVENT("女装")
	STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("服を戻して", 16)% … 请求%CALLNAME:TARGET%穿回自己的衣服/
ELSE
	STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("女装して", 16)% … 请求%CALLNAME:TARGET%穿上女装/
ENDIF

SIF CEVENT("诺伊七変化")
	STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("口調を変えて", 16)% … %CALLNAME:TARGET%请改变做爱时的语调/

IF CONFIG("部員間Ｈ") && MARK:屈服刻印 >= 1
	IF CEVENT("部員間交流")
		STR:選択肢 = %STR:選択肢% [62] %TEXT_LJ("交流を止める", 16)% … 和%CALLNAME:(TO_NUMBER(CFLAG:お相手))%打打交道
		IF CEVENTS("部員間交流") == "エロ有"
			SIF FIL_COMP("交流接吻")
				STR:選択肢 += "[接吻]"
			SIF FIL_COMP("交流Ｖ性交")
				STR:選択肢 += "[Ｖ性交]"
			SIF FIL_COMP("生許可")
				STR:選択肢 += "[生許可]"
			SIF FIL_COMP("奪処女")
				STR:選択肢 += "[奪処女]"
			SIF FIL_COMP("交流Ａ性交")
				STR:選択肢 += "[Ａ性交]"
			SIF FIL_COMP("交流Ａ挿入")
				STR:選択肢 += "[Ａ挿入]"
		ENDIF
		STR:選択肢 += "を止めてもらう/"

		SIF CEVENTS("部員間交流") == "エロ有"
			STR:選択肢 = %STR:選択肢% [63] %TEXT_LJ("Ｈ的交流の内容", 16)% … 调整和%CALLNAME:(TO_NUMBER(CFLAG:お相手))%打交道的细节/
	ELSE
		STR:選択肢 = %STR:選択肢% [62] %TEXT_LJ("交流してもらう", 16)% … 和其他学生在性方面交流/
	ENDIF
ENDIF

;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K46_ADDSELECT, ARGS
#DIMS R_TABLE
#DIMS R_CHOICE
#DIM ACTOR
#DIM CHOICE
#DIM LCOUNT
#DIM MEMO_LINECOUNT

SELECTCASE ARGS
CASE "服を戻して"
	PRINTFORMW %CALLNAME:MASTER%希望他%ARGS%。
	PRINTL
	PRINTFORMW 「哦？你是希望我穿平时那样的衣服来的吗？」
	PRINTFORMW 「明白。但现在不行，我明天再换衣服」
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%明天会穿着男装来部室玩了。
	CALL DEL_CEVENT, "女装"
	CALL TIMEEVENT_K46
	;フラグを弄る場合はそれもここで行う
CASE "女装して"
	PRINTFORMW %CALLNAME:MASTER%希望他%ARGS%。
	PRINTL
	PRINTFORMW 「你想我穿女装吗」
	PRINTFORMW 「我知道了。……不要笑哦？」
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%明天会穿着女装来部室玩了。
	CALL SET_CEVENT, "女装"
	CALL TIMEEVENT_K46
	;フラグを弄る場合はそれもここで行う
CASE "口調を変えて"
	PRINTFORMW %CALLNAME:MASTER%希望他%ARGS%。
	PRINTL
	PRINTFORMW 「嗯？你想我换个语气？」
	PRINTFORMW 「如果只是一会儿也没関系，但是……你喜欢什么样的感觉？」
	CALL PRINT_SELECT, "落ち着いた感じで/敬語で精心/自分に甘えてくれる感じで/傲嬌っぽく/いつもと同じ感じで", "果然还是算了"
	IF RESULT == 100
		PRINTFORMW 「嗯，不用改吗？行」
	ELSE
		;PRINT_SELECTが答えの文字列を保存しないのを忘れていたので、ここでR_CHOICEに移しておく
		SELECTCASE RESULT
		CASE 0
			R_CHOICE = 落ち着いた感じで
		CASE 1
			R_CHOICE = 敬語で精心
		CASE 2
			R_CHOICE = 自分に甘えてくれる感じで
		CASE 3
			R_CHOICE = 傲嬌っぽく
		CASE 4
			R_CHOICE = いつもと同じ感じで
		ENDSELECT
		CALL DEL_CEVENT, "口調：穏やか"
		CALL DEL_CEVENT, "口調：丁寧"
		CALL DEL_CEVENT, "口調：甘えんぼ"
		CALL DEL_CEVENT, "口調：傲嬌"
		PRINTFORMW 「原来如此……希望用%R_CHOICE%的语气来聊天吗」
		PRINTFORM 「那么等等……
		SELECTCASE R_CHOICE
		CASE "落ち着いた感じで"
			PRINTFORMW 这样的感觉可以吗？」
			PRINTFORMW 「以后和%CALLNAME:MASTER%桑做色情的事的时候、我会这样说哟」
			PRINTFORMW 「以后也多多指教了、%CALLNAME:MASTER%桑」
			CALL SET_CEVENT, "口調：穏やか"
		CASE "敬語で精心"
			PRINTFORMW 这样可以吗」
			PRINTFORMW 「%CALLNAME:MASTER%老师做性方面的事情的话，就用这种说话方式吧」
			PRINTFORMW 「那么，今后也请继续指导我」
			CALL SET_CEVENT, "口調：丁寧"
		CASE "自分に甘えてくれる感じで"
			PRINTFORMW 这样的感觉可以吗？」
			PRINTFORMW 「和%CALLNAME:MASTER%\@TRUE_SEX(MASTER) == "男性" && TALENT:MASTER:伪娘 == 0 ? 做爱 # 做爱\@的时候我就这样说」
			CALL PRINT_STRW, @"「呼呼_H_我最喜欢了，我想要更多_H_」"
			CALL SET_CEVENT, "口調：甘えんぼ"
		CASE "傲嬌っぽく"
			PRINTFORMW 这样你满意了吧」
			PRINTFORMW 「只会对你这样说话……啊，别误会了」
			PRINTFORMW 「总之，请多関照了」
			CALL SET_CEVENT, "口調：傲嬌"
		CASE "いつもと同じ感じで"
			PRINTFORMW 虽然这样说，但是说话方式和平时没什么不同」
			PRINTFORMW 「今后也请多多関照吧？　%CNAME("主人")%」
		ENDSELECT
	ENDIF
CASE "交流を止める"
	PRINTFORMW 「就这样结束吗？我知道了」
	PRINTFORMW 「……说真的、%CNAME("二人称")%该不会是因为好奇才这样要求的吧？」
	CHOICE = TO_NUMBER(CFLAG:お相手)
	CFLAG:CHOICE:お相手 = 0
	CFLAG:お相手 = 0
	CALL DEL_CEVENT_GROUP, "部員間交流"
CASE "交流してもらう"
	IF CEVENT("注意事項") == 0
		PRINTFORML
		CALL PRINT_STRW, @"_黄色_注意！"
		CALL PRINT_STRW, @"_黄色_这个请求会根据选择对PLAY者产生性交描写"
		CALL PRINT_STRW, @"_黄色_那也可以吗？（按「是」则開启事件，并且上述注意事项将不再显示）"
		CALL PRINT_SELECT, "是的/算了"
		IF RESULT == 0
			CALL SET_CEVENT, "注意事項"
		ELSE
			RETURN 0
		ENDIF
	ENDIF

	PRINTFORMW 「……也就是说、要让%CNAME("一人称")%来满足其他部员的性欲吗？」
	PRINTFORMW 「嗯，没事的。……虽然%CNAME("一人称")%不是很忙、说起来平时也总是一个人呆着」
	PRINTFORMW 「那么，需要我帮谁？」
	PRINTFORML

	PRINTFORML (関于没有特别注意事项的角色,在和诺伊関系好的时候也可以叫醒H的活动)
	FOR LCOUNT, 2, CHARANUM
		SIF LCOUNT == TARGET
			CONTINUE
		PRINTFORM  [{LCOUNT, 2}] %TEXT_LJ(CALLNAME:LCOUNT, 16)%
		;どうあがいてもＨはしない相手
		IF CFLAG:LCOUNT:ＮＴＲ禁止 == 1 || TALENT:LCOUNT:討厭男人 >= 2
			CALL PRINT_STRL, "黄色_※绝对不会发生H的活动。只是喝茶※"
		ELSEIF CONDS("部員間Ｈ条件", LCOUNT) != ""
			CALL PRINT_STRL, @"爱心粉紅_%CONDS("部員間Ｈ条件", LCOUNT)%仅限情况H发生"
		ELSE
		;	CALL PRINT_STRL, "爱心粉紅_Ｈ発生"
			PRINTL
		ENDIF
	NEXT
	PRINTFORML [100] 还是算了
	$INPUT_LOOP
	CALL INPUT_SELECT, LCOUNT, 100
	CHOICE = RESULT

	SELECTCASE CHOICE
	CASE 100
		PRINTFORMW 「算了？好的」
		PRINTFORMW 「……说真的、%CNAME("二人称")%该不会是因为好奇才这样要求的吧？」
		RETURN 0
	CASE TARGET, IS < 2, IS >= CHARANUM
		GOTO INPUT_LOOP
	ENDSELECT
	DRAWLINE

	;並び替え対策で識別番号を使う。TO_NUMBER(BASE:ARG:識別番号) = ARGとなることに注意
	;BASE:識別番号 が 寝取り中の角色は FINDCHARA(CFLAG:お相手, BASE:識別番号)で呼び出すこともできる
	CFLAG:CHOICE:お相手 = BASE:識別番号
	CFLAG:お相手 = BASE:CHOICE:識別番号

	ACTOR = TO_NUMBER(CFLAG:お相手)

	;交流確率は默认ルトでは50%
	;诺伊君に持たせたほうが検索しやすいのでそうする
	;現状は設定の度重置される方式で
	CFLAG:交流確率 = 50
	PRINTFORMW %CALLNAME:MASTER%要求%CALLNAME:TARGET%和%CALLNAME:ACTOR%搞好関系

	IF (CFLAG:ACTOR:ＮＴＲ禁止 == 1 || TALENT:ACTOR:討厭男人 >= 2) == 0
		PRINTFORML
		PRINTFORMW ……这时、%CALLNAME:MASTER%的脑子里突然来了灵感
		PRINTFORMW 『如果%CALLNAME:TARGET%和%CALLNAME:ACTOR%发生了関系会怎样呢』或者说……
		PRINTFORMW ……你允许%CALLNAME:TARGET%和%CALLNAME:ACTOR%发生肉体上的関系吗？
		CALL PRINT_SELECT, "允许(部員間有可能发生H交流)/不允许"
		IF RESULT == 0
			CALL SET_CEVENT, "部員間交流：エロ有"
		ELSE
			CALL SET_CEVENT, "部員間交流：非エロ"
		ENDIF
	ELSE
		CALL SET_CEVENT, "部員間交流：非エロ"
	ENDIF

	PRINTFORML
	IF CEVENTS("部員間交流") == "エロ有"
		PRINTFORMW 「……%CNAME("二人称")%啊」
		PRINTFORMW 「本来就是社团活动、%CNAME("一人称")%也会来帮忙的」
		PRINTFORMW 「当然，我是不会理睬完全不感兴趣的人的。」
	ELSE
		PRINTFORMW 「嗯，我明白了」
		PRINTFORMW 「%CNAME("二人称")%不用担心%CNAME("一人称")%」
	ENDIF
	PRINTFORMW %CALLNAME:TARGET%和%CALLNAME:ACTOR%開始了\@ CEVENTS("部員間交流") == "エロ有" ? 工口意义上的 # \@交流

	SIF CEVENTS("部員間交流") != "エロ有"
		RETURN 1

	ARGS = Ｈ的交流の内容
	RESTART

CASE "Ｈ的交流の内容"
	ACTOR = TO_NUMBER(CFLAG:お相手)

	MEMO_LINECOUNT = LINECOUNT

	PRINTL
	PRINTFORML 你想要什么样的H内容？(通过选择项目〇(ON)和－(OFF)来切换)
	SIF COND("身嗜み：接吻独占", ACTOR) == 0
		PRINTFORML  [ 0] \@ FIL_COMP("交流接吻") ? ○ # －\@ 允许接吻
	IF TALENT:ACTOR:男性 == 0 && COND("身嗜み：Ｖ独占", ACTOR) == 0
		PRINTFORML  [ 1] \@ FIL_COMP("交流Ｖ性交") ? ○ # －\@ 允许性交
		PRINTFORML  [ 2] \@ FIL_COMP("生許可") ? ○ # －\@ 允许无套性交
		SIF TALENT:ACTOR:処女
			PRINTFORML  [ 3] \@ FIL_COMP("奪処女") ? ○ # －\@ 允许破处
	ENDIF
	SIF COND("身嗜み：Ａ独占", ACTOR) == 0
		PRINTFORML  [ 4] \@ FIL_COMP("交流Ａ性交") ? ○ # －\@ 允许菊穴性交
	SIF COND("身嗜み：Ａ独占") == 0
		PRINTFORML  [ 5] \@ FIL_COMP("交流Ａ挿入") ? ○ # －\@ 允许对诺伊的菊穴性交
	PRINTFORML  [ 6] 交流の頻度を設定する(現在は{CFLAG:交流確率}％)

	PRINTFORML [100] 以上的安排就OK了

	CALL INPUT_SELECT, 7, 100

	SELECTCASE RESULT
	CASE 100
		PRINTFORMW 「哦，是吗」
		PRINTFORMW 「有什么事你说吧」
		RETURN 1
	CASE 0
		IF COND("身嗜み：接吻独占", ACTOR) == 0
			INVERTBIT CFLAG:交流詳細过滤器, 0
			IF FIL_COMP("交流接吻")
				PRINTFORMW 「可以接吻吗，我知道了。」
				PRINTFORMW 「啊，虽说是初吻，但本人同意了就行」
			ELSE
				PRINTFORMW 「嗯，还是算了比较好」
				PRINTFORMW 「……话说回来、%CNAME("二人称")%的想法真是出人意料啊」
			ENDIF
		ENDIF
	CASE 1
		IF TALENT:ACTOR:男性 == 0 && COND("身嗜み：Ｖ独占", ACTOR) == 0
			INVERTBIT CFLAG:交流詳細过滤器, 1
			IF FIL_COMP("交流Ｖ性交")
				PRINTFORMW 「可以插进去吗」
				PRINTFORMW 「……啊？想我干这种事。%CNAME("二人称")%这么说的话倒也不太惊讶」
			ELSE
				PRINTFORMW 「不用性交了吗？」
				PRINTFORMW 「明白了。也是，没人喜欢自己被人动手动脚」
			ENDIF
		ENDIF
	CASE 2
		IF TALENT:ACTOR:男性 == 0 && COND("身嗜み：Ｖ独占", ACTOR) == 0
			INVERTBIT CFLAG:交流詳細过滤器, 2
			IF FIL_COMP("生許可")
				PRINTFORMW 「和%CNAME(CALLNAME:ACTOR)%无套吗……%CNAME("二人称")% 真是变态啊……」
				PRINTFORMW 「……算了。必须要先和%CNAME(CALLNAME:ACTOR)%说一声」
				;自動的にＶ性交も許可
				SETBIT CFLAG:交流詳細过滤器, 1
			ELSE
				PRINTFORMW 「是应该使用安全套啊」
				PRINTFORMW 「……说实话、%CNAME("二人称")%说出这样正经的话真令人放心」
			ENDIF
		ENDIF
	CASE 3
		IF TALENT:ACTOR:男性 == 0 && TALENT:ACTOR:処女 && COND("身嗜み：Ｖ独占", ACTOR) == 0
			INVERTBIT CFLAG:交流詳細过滤器, 3
			IF FIL_COMP("奪処女")
				PRINTFORMW 「连%CNAME("一人称")%的处女都不在意吗……%CNAME("二人称")%、真是变态啊……」
				PRINTFORMW 「……算了。必须要先和%CNAME(CALLNAME:ACTOR)%说一声」
				;自動的にＶ性交も許可
				SETBIT CFLAG:交流詳細过滤器, 1
			ELSE
				PRINTFORMW 「处女不是可以随随便便的东西……唉，第一次还是很重要的」
				PRINTFORMW 「……别人这么说都正常、%CNAME("二人称")%说这样的话真的很违和……」
			ENDIF
		ENDIF
	CASE 4
		IF COND("身嗜み：Ａ独占", ACTOR) == 0
			INVERTBIT CFLAG:交流詳細过滤器, 4
			IF FIL_COMP("交流Ａ性交")
				PRINTFORMW 「肛交也行啊」
				PRINTFORMW 「有人认为肛交不能算出轨……%CNAME("二人称")%也这样想吗？」
			ELSE
				PRINTFORMW 「不能插菊花了吗」
				PRINTFORMW 「好吧、%CNAME("一人称")%还真不习惯」
			ENDIF
		ENDIF
	CASE 5
		IF COND("身嗜み：Ａ独占") == 0
			INVERTBIT CFLAG:交流詳細过滤器, 5
			IF FIL_COMP("交流Ａ挿入")
				PRINTFORMW 「要用%CNAME("一人称")%的屁股啊」
				PRINTFORMW 「……不过，要和其他家伙做的话，那可真是少见的请求啊」
			ELSE
				PRINTFORMW 「不想%CNAME("一人称")%去肛交吗」
				PRINTFORMW 「都不带贞操带，只有口頭约定吗……行吧」
			ENDIF
		ENDIF
	;CASE 6
	;	IF (CFLAG:ACTOR:ＮＴＲ禁止 == 1 || TALENT:ACTOR:討厭男人 >= 2) == 0
	;		IF CEVENTS("部員間交流") == "エロ有"
	;			PRINTFORMW 「おう、了解した」
	;			PRINTFORMW 「……別に%CNAME(CALLNAME:ACTOR)%は悪くなかったぞ。両方とも合意の上でだしな」
	;			PRINTFORMW 「ただ%CNAME("二人称")%が嫌がるのは%CNAME("一人称")%にとっても%CNAME(CALLNAME:ACTOR)%にとっても好ましくないってだけだよ」
	;			CALL DEL_CEVENT_GROUP, "部員間交流"
	;			CALL SET_CEVENT, "部員間交流：非エロ"
	;		ELSE
	;			PRINTFORMW 「……%CNAME("二人称")%ってヤツは……」
	;			PRINTFORMW 「……まあいい。相手も別に嫌そうじゃないならやってやるよ」
	;			PRINTFORMW 「どうしても嫌变成了のならすぐ止めるからもう一度言ってくれ」
	;			CALL DEL_CEVENT_GROUP, "部員間交流"
	;			CALL SET_CEVENT, "部員間交流：エロ有"
	;		ENDIF
	;	ENDIF
	CASE 6
		PRINTFORMW 「嗯，那么我们的事多久一次合适呢？」
		$INPUT_LOOP_2
		CALL PRINT_STRL, @"_黄色_设定%CALLNAME:TARGET%和%CALLNAME:ACTOR%的交流频率（最低1％、最高100％）。输入999频率不变"
		CALL PRINT_STRL, @"_黄色_现在的频率（概率）是{CFLAG:交流確率}％"
		CALL INPUT_SELECT, 101, 999
		SELECTCASE RESULT
		CASE 999
			PRINTFORMW 「保持这个频率吗，明白了。」
		CASE 0
			GOTO INPUT_LOOP_2
		CASE 1 TO 100
			CFLAG:交流確率 = RESULT
			SELECTCASE CFLAG:交流確率
			CASE IS >= 90
				PRINTFORMW 「……可以经常进行吗」
				PRINTFORMW 「那么说、%CNAME("二人称")%很忙或者说很特别啊……」
			CASE IS >= 60
				PRINTFORMW 「好好见面真好啊」
				PRINTFORMW 「我会照顾好别人的、%CNAME("二人称")%不要对这种事有感觉啊」
			CASE IS >= 30
				PRINTFORMW 「适当地做一次就好了。」
				PRINTFORMW 「我会在%CNAME("二人称")%忙的时候努力的」
			CASE IS >= 10
				PRINTFORMW 「偶尔来一次就行了吧」
				PRINTFORMW 「%CNAME("二人称")%也要努力别让%CNAME(CALLNAME:ACTOR)%寂寞哦」
			CASEELSE
				PRINTFORMW 「这么久才来一次啊」
				PRINTFORMW 「……嘛、偶尔不带%CNAME("二人称")%玩也很有趣吧」
			ENDSELECT
		ENDSELECT
	ENDSELECT

	CLEARLINE LINECOUNT - MEMO_LINECOUNT
	RESTART

ENDSELECT

path: ERB/EVENT_K/46 ノイ/EVENT_K46_SELECT.ERB


code:
;-------------------------------------------------
;取引画面と、购物の際の台詞を記述します
;-------------------------------------------------
;取引画面での台詞。悪魔以外は大部分が不要です
;-------------------------------------------------
@KOJO_WISH_K46, ARGS
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		SIF INSERT("挿入相手") == MASTER
			CALL PRINT_STRW, @"「%MPANT_K46(3, TARGET, "要")%……现在！？ %PANT_K46(TARGET, "要", "通常")%」"
		CALL PRINT_STRW, @"「……我不确定我是不是太情绪化了……%MPANT_K46(1, TARGET, "要")%」"
	ELSE
		PRINTDATAW
			DATA 「ん、なんだ？」
			DATA 「ん？ なにをして欲しいんだ？」
			DATA 「ほう、それで、なにをして欲しい？」
			DATA 「ん？　何かしてほしいことでもあるのか？」
			DATA 「で、今回してほしいのは何なんだ？」
		ENDDATA
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「嗯、你就那么想和%CNAME("一人称")%成为恋人吗？」
		PRINTFORMW 「怎么说你、像%CNAME("主人")%这样的年轻人……嗯……」
		PRINTFORMW 「……………………」
		PRINTFORMW 「……啊！ 算了！ %CNAME("一人称")%认输了！」
		PRINTFORMW 「真是的、%CNAME("一人称")%这样的人居然被你动摇了……」
		PRINTFORMW 「……嘛，不服输也没有意义」
		PRINTFORMW 「再说一遍、请多関照、%CNAME("主人")%」
	;失敗
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「我很高兴知到%CNAME("二人称")%的心意、但是我不能接受你。对不起啊」
			SELECTCASE AGE(PLAYER)
			CASE IS <= 1
				PRINTFORMW 「嘛，确实乍看是对很般配的情侣」
			CASE IS >= 4
				PRINTFORMW 「……それに、%CNAME("一人称")%と付き合ったら変な勘違いされちまうかもなぁ？」
			CASEELSE
				PRINTFORMW 「嗯，也不能说是代替，但性交的话，无论多少次我都愿意陪你」
			ENDSELECT
		ELSEIF RAND:2
			PRINTFORMW 「不，还不行吧」
			PRINTFORMW 「%CNAME("二人称")%本来就是学生吧？ 教師的%CNAME("一人称")%对你出手的话会被处分的」
		ELSE
			PRINTFORMW 「并不是说爱上别人不好、但太过轻易的话以后会有教训的，对吧？」
		ENDIF
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")

	ELSE

	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		;日期と時間参照随机
		IF COND("合意：胖次交易") && RANDC(4) == 0
			PRINTFORMW
			TFLAG:取引価格 = 1000
		ELSE
			PRINTFORMW
		ENDIF
	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		TFLAG:値上げ交渉 = 500
	ENDIF
CASE "胖次"
	;値上げ交渉した
	IF TFLAG:値上げ交渉
		PRINTFORMW 「……本当に払うのか。断られる前提で吊り上げたんだがな……」
		PRINTFORMW 「まあ此処で無かった事にするってのもあんまり良くないからな。ほい、こいつで良いだろ？」
	;相場より高い額を要求されるままに払った
	ELSEIF TFLAG:取引価格 > 500
		PRINTFORMW 「……まさか本当に買って来るとはなぁ。さすがにこのレベルのヤツは買わねえと思っていたんだが……」
		PRINTFORMW 「と是えここまで払われて渡さないってのもよろしくねえしなぁ。……仕方ない。ほい、受け取れ」
	;値切って相場と変わらず$500払う。ここでTFLAG:取引承諾 = 0とすることで拒否するのもよいでしょう
	ELSEIF TFLAG:値切った
		PRINTFORMW 「ま、さすがにそうするよな」
		PRINTFORMW 「こんだけされちまったんだ。こっちとしても大人しく渡してやるよ」
	ELSE
		IF CEVENT("女装") == 0
			PRINTFORMW 「哦，我懂」
			PRINTFORMW 「……？只要买新的就行了。」
		ELSE
			PRINTFORMW 「给、这是%CNAME("一人称")%的胖次」
			IF RAND:2
				PRINTFORMW 「我已经好好洗过了，不是脏的，放心吧」
			ELSE
				PRINTFORMW 「……にしても、物好きっつーかなんつーか」
			ENDIF
		ENDIF
	ENDIF
	;胖次を脱いで渡してくる汎用地の文
	CALL DAILY_MESSAGE, "脱下胖次交了出去"

CASE "胖次拒否"
	;取引を拒否した際
	IF TFLAG:取引拒否
		PRINTFORMW 「ああ、了解……と言ってやったほうが%CNAME("二人称")%は喜ぶのかもしれねえがなぁ……」
		PRINTFORMW 「%CNAME("一人称")%にも恥とか外聞っつーモンがある訳だ。だからさ、おいそれと内衣なんざ渡す訳にゃいかねえのさ」
		PRINTFORMW 「ってことでだ。すまないが、そういうのは他の信頼関係のあるヤツ相手にしておいてくれ」
	ELSE

	ENDIF

;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "全裸交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		IF (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
			PRINTFORMW 「……こんな所で%CNAME("一人称")%に脱いでほしいとは、また随分とサディスティックな願いをしたもんだねぇ」
		ELSEIF PLACE("情人旅館")
			PRINTFORMW 「まったく、とっとと脱げとは、随分とせっかちなモンだ」
			PRINTFORMW 「ん？ 嫌いじゃねえよ、そういう欲求に忠実な所」
		ELSE
			PRINTFORMW 「わかったよ、全部脱ぎゃあいいんだろ」
		ENDIF
		PRINTFORMW 「……ほい、これで満足か？」
	;断られる
	ELSE
		PRINTFORMW 「……再怎么说，我也没有那种到处裸奔的爱好啊。」
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		;TFLAG:値上げ交渉 = 2000
	ENDIF
CASE "全裸"
	;値上げ交渉した("全裸交易"で設定した場合のみ)
	IF TFLAG:値上げ交渉

	;取引初成功
	ELSEIF COND("合意：全裸化") == 0

	ELSE

	ENDIF
	;汎用地の文
	CALL EVENT_DATUI, "裸体"
CASE "全裸拒否"
	;取引を拒否した際("全裸交易"で設定した場合のみ)
	IF TFLAG:取引拒否

	;二人きりなら脱いでくれるけど状況が悪い
	ELSEIF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
		PRINTFORMW 「如果没人在周围也就算了、%CNAME("一人称")%也要面子的啊……」
		PRINTFORMW 「在这里就算了吧」
	ELSE
		PRINTFORMW 「这个愿望我不能接受」
		PRINTFORMW 「……不行、就算你能蒙混过関，%CNAME("一人称")%也不能社死啊」
	ENDIF

;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "事后避孕药取引"

CASE "事后避孕药"
	;代金をまけてくれた場合
	IF TFLAG:値切った
		;所持金が足りなかった場合です
		;現状、ここに来るのは恋慕无の時のみ
	;拝み倒したら代金を払わなくても許してくれた場合
	ELSEIF TFLAG:取引価格 == 0
		;現状、ここに来るのは恋慕有の時のみ
	ELSE
		;普通にお金を払った場合
		;口上无でも自然な感じです
		;ですが恋慕のときなどは、なにか一言あってもいいかもですね
	ENDIF

CASE "事后避孕药拒否"
	;これはCASE "事后避孕药取引"内でTFLAG:取引拒否 = 1 となる分岐を作った場合のみ
	IF TFLAG:取引拒否

	;拝み倒して失敗した場合
	ELSEIF TFLAG:取引価格 == 0
		;轻轻地地の文が表示されます。口上有无どちらでも大丈夫そうです。
	;其他、你が薬代を不支付場合
	ELSE
		;恋慕状態で、それなりに妊娠の恐惧がある場合
		IF ( COND("受精確認") || COND("胎内の精液量") ) && TALENT:恋慕
			;お金がないか、不支付を選んだ場合です。
			;それなら避妊できなくて妊娠しちゃっても仕方ないね…(爱心)って感じのやつです。
			;地の文が表示されるので何も書かないほうが良いかもしれません。
		;不支付、を選んだ場合
		ELSEIF MONEY >= TFLAG:取引価格
			;口上无でも自然な感じです
		;お金が足りなかった場合
		ELSE
			;不支付を選んだ場合も、お金が足りないときはここへ来ます。
		ENDIF
	ENDIF
CASE "同居拒否"
	PRINTFORMW 「唔嗯……」
	PRINTFORMW 「这是个值得考虑的提案，不过现在我住的地方也很方便……」
CASE "同居希望"
	PRINTFORMW 「？想我一起住吗？」
	PRINTFORMW 「好啊。不过，你可别想看考试答案之类的坏事。」
CASE "同居頻度的相談"
	PRINTFORMW 「ん、まあ確かに、お互いにプライバシーっつーモンがあるからな」
	PRINTFORMW 「でだ、どれくらいの間%CNAME("二人称")%的家に居て欲しいんだ？」
CASE "便当拒否"
	PRINTFORMW 「抱歉，我现在有点忙」
	PRINTFORMW 「在这里露面还好说、做便当确实太麻烦了」
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORMW 「……嗬？ 想念%CNAME("一人称")%做的味道了吗？」
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		PRINTFORMW 「ほう、弁当を作ってほしいのか」
		PRINTFORMW 「つってもなぁ、料理とか面倒だし、そもそもここん所まず料理してねぇし……」
		PRINTFORMW 「ま、亲手自制弁当に夢見ているなら悪いが、出来あいのヤツ詰め込むくらいならやってやっても良いぞ」
		PRINTFORMW 「……で、それでもＯＫか？」
	ENDIF

;COND("口服避孕薬派")かどうかで初回が"口服避孕薬を飲んで欲しい"or"口服避孕薬を止めて欲しい"に分かれます
CASE "口服避孕薬"
	;角色が口服避孕薬派なら、こっちだけ書いてください
	IF COND("口服避孕薬派")
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬

		;口服避孕薬の服用を止めてもらう
		ELSE
			;初回
			IF DEVENT(ARGS) == 0

			ELSE

			ENDIF
		ENDIF
	;角色が口服避孕薬派でないなら、こっちだけ書いてください
	ELSE
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬
			;初回
			IF DEVENT(ARGS) == 0

			ELSE

			ENDIF
		;口服避孕薬の服用を止めてもらう
		ELSE

		ENDIF
	ENDIF
;COND("口服避孕薬派")の人に口服避孕薬服用を止めてもらうお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬中断拒否"

;COND("讨厌口服避孕薬")の人に口服避孕薬服用のお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬服用拒否"

CASE "淫紋拒否"
	PRINTFORMW 「……我说啊，如果老师纹了纹身，名声会很坏吧？」
	PRINTFORMW 「这个学院确实没有这样的规定，但不行就是不行。驳回」
;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF

CASE "淫紋贴纸"
	;台詞を書いたら下のRETURN 0を消してください
	;RETURN 0
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「……にしても、またコイツを見ることになるとはねぇ……」
		PRINTFORMW 「ん？　まあ、昔は淫紋付けていた時もあったんだよ」
		PRINTFORMW 「『こういう』類のを入れているってのが普通って場所もあったし、逆に異様だからこそ興奮するって変態を相手にしたこともあったな」
		PRINTFORMW 「つっても、教師がタトゥーの類入れているって知られたら外聞が悪いだろ？　だから今の職になって剥がしていたのさ」
		PRINTFORMW 「……さて、とりあえず魔力はなじんだな」
		PRINTFORMW 「でだ、『コレ』を付けたってこたぁ、それ相応にやりたい事があるんだろう？」
		CALL PRINT_STRW, @"「せっかくだし、ここで一旦楽しんじまおうぜ_H_」"
	ELSE
		PRINTDATAW
			DATA 「ん、終了したぞー」
			DATA 「こんなモンで良さそうだな」
			DATA 「どうだ？　気に入ったか？」
			DATA 「久々につけると、やっぱそれなりにクるもんだな……」
			DATA 「よしよし、馴带污迹的終わったぞー」
		ENDDATA
	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	SELECTCASE MARK:淫紋
	CASE 2
		PRINTFORMW 「……到现在为止，不管是希望给别人纹上淫纹，还是希望给自己纹上淫纹，这种愿望我听过好多次了……」
		PRINTFORMW 「真没想到会有要让%CNAME("一人称")%纹上淫纹的人」
		PRINTFORMW 「……嗯、别人的话，既然是%CNAME("二人称")%的请求，我也会听从你的」
		PRINTFORMW 「啊、就算这样上课的时候不能让他发动啊？ 只有和%CNAME("二人称")%在一起的时候才行」
		PRINTFORMW 「%CNAME("一人称")%没有在学生面前勃起的爱好」
	CASE 3
		PRINTFORMW 「越来越像大人了呢」
		PRINTFORMW 「这样下来，也许是因为淫纹的效果让身体发热吧，真让人着迷的感觉」
		PRINTFORMW 「……想被我进入的那些家伙也是这样的心情吧……」
	CASE 4
		PRINTFORMW 「结果都做到最后一步了呢……」
		PRINTFORMW 「虽然是学生拜托的、但事情到了这一步%CNAME("一人称")%都感到焦虑了」
		SIF TALENT:相思相愛
			PRINTFORMW 「……呃？「现在是恋人」的现状是不会改变的。」
		PRINTFORMW 「嗯，倒也不是觉得不好」
		CALL PRINT_STRW, @"「……那么、这么精心准备、等会的‘报酬’应该会很多吧_H_」"
	ENDSELECT

CASE "拜托処理性欲"

CASE "性処理の一時中断"
	PRINTFORMW 「啊，暂时停止吗」
	PRINTFORMW 「但是，为什么呢？」
	PRINTFORMW 「啊、如果影响学习的话那就是%CNAME("一人称")%的责任，我得帮你」
CASE "性処理拒否"
	PRINTFORMW 「嗯……对不起，那种事不行」
	PRINTFORMW 「我这边也有工作，无论怎么说也不能容忍到那种程度」
	PRINTFORMW 「……呃、无论如何都想做的话、就先让%CNAME("一人称")%感受到你的欲望吧」
;悪魔、淫魔、妖狐専用
CASE "给我看尾巴"

CASE "给我看尾巴拒否"

;改变髪型のは、長さが披肩以上の人のみ。未設定だと披肩扱いです
;髪型を弄る際に手伝ってくれる人がASSIになっています。お手伝い桑を指名したい場合にはその人をASSIにして下さい
CASE "改变髪型"

CASE "髪型変更の感想"
	;どの髪型变成了かで分岐可能
	SELECTCASE CONDS("髪型の種類")
	CASE CONDS("普段の髪型")
		PRINTFORMW
	CASE "齐刘海"
		PRINTFORMW
	CASE "直髪"
		PRINTFORMW
	CASE "卷髪"
		PRINTFORMW
	CASE "外八"
		PRINTFORMW
	CASE "双马尾"
		PRINTFORMW
	CASE "马尾辫"
		PRINTFORMW
	CASE "三股辫"
		PRINTFORMW
	CASE "编起来"
		PRINTFORMW
	CASE "団子頭"
		PRINTFORMW
	;其他
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "改变髪型拒否"

;これは普段から连褲襪を履く人じゃないとあんまり見る機会ないと思う
CASE "连褲襪着替え"
	;台詞を書いたら下のRETURN 1を消してください
	RETURN 1
	;どれに履き替えてもらったか
	IF CHECK_OUTER("開放型连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("渔网连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("连褲襪")
		PRINTFORMW
	;生足
	ELSE
		PRINTFORMW
	ENDIF
CASE "连褲襪着替え拒否"

CASE "巨根化して"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸")
	CASE "短小"
		PRINTFORMW 「哎呀、要我把它变大吗？」
		PRINTFORMW 「正好的尺寸不是很好吗？」
	CASE "普通"
		PRINTFORMW 「……结束了」
		PRINTFORMW 「哇，是令我着迷的尺寸」
	CASE "巨根"
		PRINTFORMW 「……了不起啊」
		PRINTFORMW 「不，我以前的确见过。但这也不是什么常规尺寸……」
	CASE "馬根"
		PRINTFORMW 「……这么大，就觉得吊在人类身上很不美观」
		PRINTFORMW 「……到了这个地步，简直就是凶器。不是随便用的哦。」
	;腕並以上
	CASEELSE
		PRINTFORMW 「……我活了这么久，从来没有见过拥有这么大的东西的人类」
		PRINTFORMW 「这种顶多只有和%CNAME("一人称")%的同類或者更厉害的人才拥有的尺寸……」
	ENDSELECT

CASE "巨根化して拒否"
	SELECTCASE CONDS("潜在的含む阴茎尺寸")
	CASE "短小"
		IF RAND:2
			PRINTFORMW 「我说啊，魔术可不是那么好用的」
			PRINTFORMW 「%CNAME("二人称")%的心情我能理解，但这并不意味着我能做到。」
		ELSE
			PRINTFORMW 「了解……と言ったほうが喜ぶんだろうが、残念だがまだナシだ」
			PRINTFORMW 「別に小さいからどうしようもないって訳でもねえからな、とりあえず自己出来る所までやってみるこった」
		ENDIF
	CASE "普通"
		IF RAND:2
			PRINTFORMW 「我说啊，魔术可不是随便就能使用的」
			PRINTFORMW 「大的男人的确很浪漫，但我觉得更应该磨练技巧。」
		ELSE
			PRINTFORMW 「就这様デカくしたところでなぁ……」
			PRINTFORMW 「デカすぎてもむしろ相手に痛い思いをさせちまうし、あんまりオススメ出来るモンじゃないからなぁ」
			PRINTFORMW 「ま、もう少し信用出来るよう变成了ら考えてやらないこともないけどな？」
		ENDIF
	CASEELSE
		IF RAND:2
			PRINTFORMW 「不行。再多大也没有意义」
			PRINTFORMW 「不是说过犹不及吗？ 这大小就算%CNAME("二人称")%的技巧再好也没法给对方带来快乐的」
		ELSE
			PRINTFORMW 「んなこと言ったって、今の時点で十分デカいだろ」
			PRINTFORMW 「あんまりデカすぎてもかえって不便だし、それ以上にするなら相当の努力をしないと自己満足で終わっちまうと思うぞ？」
			PRINTFORMW 「……ま、%CNAME("二人称")%のその飽くなき探求心は認めてやらんこともないがな」
		ENDIF
	ENDSELECT
CASE "短小化して"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸")
	CASE "普通"
		PRINTFORMW 「已经结束了」
		PRINTFORMW 「……嗯，这不是很有魅力吗」
	CASE "巨根"
		PRINTFORMW 「……好，结束了」
		PRINTFORMW 「嘛、也不是很辛苦。我也理解喜欢更大的」
	CASE "馬根"
		PRINTFORMW 「……好」
		PRINTFORMW 「总算回到了人类的大小」
	;腕並、規格外
	CASEELSE
		IF RAND:2
			PRINTFORMW 「结束了!」
			PRINTFORMW 「……虽然小了很多，但还不够啊……」
		ELSE
			PRINTFORMW 「ふぅ、とりあえずは終わったが……」
			PRINTFORMW 「……まだこんなにデカい辺り、そもそもがどれだけ規格外だったのかがよくわかるな」
		ENDIF
	ENDSELECT

CASE "短小化して拒否"

;以下は悪魔専用
CASE "魂が足りない"
	PRINTFORMW 「……可是灵魂不够啊」
	PRINTFORMW 「现在好好休息。有什么要求以后再说」
CASE "想要钱"

CASE "甜言蜜语"
	PRINTFORMW 「哦，这个对吗」
	PRINTFORMW 「这是我擅长的领域、放心好了」
CASE "謎之魅力"

CASE "射精量強化"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかもＶ挿入中！
		IF INSERT("Ｖ挿入相手") == MASTER

		ELSE

		ENDIF
	ELSE

	ENDIF
CASE "巨根化"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "短小"

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT
CASE "短小化"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT
ENDSELECT

;以下は汎用台詞(すでに喋っている場合には下には行かない)
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	PRINTDATAW
		DATA 「んー……それはまだダメだな」
		DATA 「すまないが、まだそれには答えられそうにない」
		DATA 「ふむ……すまないが、他を当たってくれ」
		DATA 「すまないが、そこまでのことをするにはまだ早いかねぇ」
		DATAFORM 「すまないが、そういうのに手を貸すつもりはないよ」
	ENDDATA
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	PRINTFORMW 「我知道了。等一下」
ENDIF

;-------------------------------------------------
;购物での台詞
;-------------------------------------------------
@KOJO_SHOP_K46, ARGS
#DIMS NEED_TABLE

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0

	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")
		IF RAND:2
			PRINTFORMW 「哦，你想我一起去吗？」
			PRINTFORMW 「等一下，我去换衣服」
		ELSE
			PRINTFORMW 「お、了解……と言いたいところだが」
			PRINTFORM 「この格好でいくのはさすがに
			IF CHECK_CLO("体操服姿")
				PRINTFORMW 非常識だな」
			ELSE
				PRINTFORMW 犯罪になるな」
			ENDIF
			PRINTFORMW 「ちょっと更衣からもう少し待っていてくれ」
		ENDIF
	ELSE
		PRINTDATAW
			DATA 「じゃ、一緒に行くとしますか」
			DATA 「せっかくだし車出してやるから、もう少し待ってろー」
			DATA 「さて、財布を忘れちゃいないだろうな？」
			DATA 「……にしても、良くあんな店を見つけたモンだ」
			DATALIST
				DATA 「にしても、まったく飽きずに行けるモンだねぇ」
				DATAFORM 「やっぱり%CNAME("二人称")%は根っからの助平だよ」
			ENDLIST
		ENDDATA
	ENDIF
CASE "目送"
	PRINTFORMW 「要小心车啊」
CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0

	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0
		PRINTDATAW
			DATA 「今胖次履いてないが、このままで行けばいいのか？」
			DATA 「……胖次なら、もう履いちゃあいないが」
		ENDDATA
	ELSE
		IF COND("冬")
			PRINTFORMW 「……下半身好冷啊」
		ELSE
			PRINTFORMW 「我明白了」
			PRINTFORMW 「……我是真的喜欢%CNAME("二人称")%啊」
		ENDIF
	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")

	ELSEIF CHECK_CLO("体操服姿")

	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")

	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0
		PRINTFORMW 「嗯？难道没有钱吗？」
		PRINTFORMW 「没办法啊……就这一次啊？」
	ELSE
		PRINTFORMW 「是是、需要我帮你买什么？」
	ENDIF
CASE "询问有什么想要的东西"
	PRINTFORML 「我想买个皮包……」
	;ここで足りない/欲しい商品があると、それについて話す
	;話の順番とかを自然にするためにBIT変数を使って必須道具は管理
	;……だったが、ryusimi桑のおかげでグンとやりやすくなった
	;必須道具は潤滑液と避孕套
	;足りない商品がある時は、そちら優先
	NEED_TABLE =
	SIF ITEM:潤滑液 <= 5
		NEED_TABLE += "潤滑液/"
	SIF ITEM:避孕套 <= 10
		NEED_TABLE += "避孕套/"
	IF STRCOUNTS(NEED_TABLE, "潤滑液", "避孕套")
		IF STRCOUNT(NEED_TABLE, "潤滑液")
			PRINTFORML 「想要的东西有点不一样……总之应该先买点润滑剂」
			PRINTFORML 「虽然和%CNAME("一人称")%在一起的时候用不到、但是和其他人在一起的时候一定要用这个东西」
		ENDIF
		IF STRCOUNT(NEED_TABLE, "避孕套")
			IF STRCOUNT(NEED_TABLE, "潤滑液")
				PRINTFORML 「还有，没有避孕套呢」
			ELSE
				PRINTFORML 「……是吗，避孕套不够啊」
			ENDIF
			PRINTFORML 「责任来说，我也不会阻止，但生育这种事，不能抱着半吊子的觉悟去做。」
			PRINTFORML 「如果你没有那样的觉悟，我认为应该采取避孕措施。」
		ENDIF
		RETURN 1
	ENDIF

	NEED_TABLE =
	SIF ITEM:創口貼 <= 1
		NEED_TABLE += "創口貼/"
	SIF ITEM:跳蛋 == 0
		NEED_TABLE += "跳蛋/"
	SIF ITEM:振動棒套装 == 0
		NEED_TABLE += "振動棒套装/"
	SIF ITEM:肛用振動棒 == 0
		NEED_TABLE += "肛用振動棒/"
	SIF PENIS(MASTER) == 0 && ITEM:假阳具 == 0
		NEED_TABLE += "假阳具/"

	SELECTCASE TEXTR(NEED_TABLE)
	CASE "創口貼"
		PRINTFORML 「我说，你不应该买一个创可贴吗？」
		PRINTFORML 「卫生室可能还有、\@ FIND_COND("現在存在", "莉雅拉") ? 保健医生在办公室吗 # 你可以去那里\@找些来应急」
		PRINTFORML 「……而且、说不定还能『这样做』？」
	CASE "跳蛋"
		PRINTFORML 「……对了，还没买跳蛋呢」
		PRINTFORML 「跳蛋买了也没什么损失吧？」
	CASE "振動棒套装"
		PRINTFORML 「对了，没有振动棒。」
		PRINTFORML 「如果有振动棒的话，就可以一边肛交一边用振动棒欺负人，做各种各样的事情了。」
		PRINTFORML 「而且，女同性交的时候，双頭振动棒能发挥大作用」
	CASE "肛用振動棒"
		PRINTFORML 「肛用振动棒怎么样？」
		PRINTFORML 「屁股的開发很麻烦，能用肛用振动棒可以轻松些」
		PRINTFORML 「……不过，话虽如此，我还是不建议给初学者使用」
	CASE "假阳具"
		PRINTFORML 「%CNAME("主人")%、假阴茎怎么样？」
		PRINTFORML 「有了这个，你没活也能插进去了」
		PRINTFORML 「没法射精也许可以说是缺点，但反过来说，和真正性交不同，能冷静地看到对方高潮的样子。」
	;何も欲しいものがないときはこちらに向かう
	CASEELSE
		PRINTFORML 「……想不到啊」
		PRINTFORML 「まあアレだ。%CNAME("二人称")%の欲しいモンでも買っておけば良いんじゃないか？　それか減っている消耗品か」
	ENDSELECT

CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材"
		PRINTFORMW 「……%CNAME("二人称")%、难道说这只是用来拍照的吗？不觉得可惜吗？」
		IF CEVENT("家族関係") == 0
			PRINTFORMW 「啊、%CNAME("一人称")%也不是很了解、\@FIND_COND("現在存在", "乃々") ? %CNAME("乃々")%知道吧？ 那家伙是%CNAME("一人称")%的外甥 # 我的外甥喜欢这种东西……\@」
			IF FIND_COND("現在存在", "乃々")
				SIF CEVENT("家族関係", FIND_COND("乃々"))
					CALL DEL_CEVENT, "家族関係", FIND_COND("乃々")
				CALL SET_CEVENT, "家族関係"
				CALL SET_CEVENT, "家族関係", FIND_COND("乃々")
			ENDIF
		ELSE
			PRINTFORMW 「……而且这个，莫非是最新的？」
			PRINTFORMW 「%CNAME("乃々")%看到这个应该会很高兴吧……」
		ENDIF
	CASE "潤滑液"
		PRINTDATAW
			DATA 「あればあるだけいいもんな」
			DATA 「了解」
			DATALIST
				DATA 「お、潤滑液を買うのか」
				DATA 「そういう気遣いも大切だからな、良い買い物だと思うぞ」
			ENDLIST
			DATALIST
				DATA 「ほう、それを買うのか」
				DATA 「にしても、一体何日で全部なくなっちまうのか……」
			ENDLIST
			DATA 「ほう、確かにコイツは性能が良さそうだな……」
		ENDDATA
	CASE "媚薬"
		IF SEVENT("初媚薬")
			PRINTFORMW 「嗯，现在的媚药是这样的吗……」
			PRINTFORMW 「嗯？ 啊啊，%CNAME("一人称")%小时候还把别的东西当作媚药要来用」
			PRINTFORMW 「呃？想试一下吗？算了算了算了算了」
			PRINTFORMW 「那个时候的东西，要么对身体没有害处但没有效果，要么有效果但对身体不好，也没有第三种选择了」
			CALL SET_SEVENT, "初媚薬"
		ELSEIF RAND:5 == 0
			PRINTFORMW 「不要乱来啊」
		ELSE
			PRINTDATAW
				DATA 「あいよ」
				DATA 「にしても、こんなモン使ってまで、一体誰を乱れさせたいのかねぇ？」
			ENDDATA
		ENDIF
	CASE "飞机杯"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0
			PRINTFORMW 「ほう、飞机杯を買うのか」
			PRINTFORMW 「でだ、一体誰相手に使うつもりなんだ？」
			PRINTFORMW 「%CNAME("一人称")%相手に使うってんなら……ま、それはそれで楽しみにしているよ」
		ELSE
			PRINTFORMW 「お、こっちのが性能良さそうだな」
			PRINTFORMW 「今までのよりずっとヨくなれるだろうし……よし、これにしておくか」
		ENDIF
	CASE "导管"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0
			PRINTFORMW 「导管って……%CNAME("二人称")%、まさか尿道でもいじろうってつもりじゃないだろうな……？」
			PRINTFORMW 「……いや、その顔はまさに「まさか」をするつもりだな……ハァ、仕方ない」
			PRINTFORMW 「人外の奴ら相手だから基本的には心配いらないだろうが、だとしても随意使うのはよしておけよ」
			PRINTFORMW 「%CNAME("二人称")%が勝手に酷い目に合うなら知ったこっちゃぁないが、今回のはそういう類のモンじゃないんだからな」
		ELSE
			PRINTFORMW 「お、この导管は今までのよりもスムーズに挿入できそうだな」
			PRINTFORMW 「受虐狂相手でもないってのにわざわざ痛めつけるのもよろしくないし……よし、これでも買っとくか」
		ENDIF
	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0
			PRINTFORMW 「嗯？你想买避孕套吗？」
			PRINTFORMW 「真是的，没办法啊。这回老师给你买」
			PRINTFORMW 「……那么，要多厚的？」
		ELSE
			PRINTFORMW 「啊呦」
			PRINTFORMW 「买这个对吗？」
		ENDIF
	;えっちな商品
	CASEELSE
		IF RAND:2
			PRINTFORMW 「呵呵、难道%CNAME("主人")%对自己的技术没有自信吗？」
			PRINTFORMW 「……哈哈，是開玩笑的」
		ELSE
			PRINTFORMW 「哦，PLAY的范围好像扩大了呢」
		ENDIF
	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:3
		RETURN 0
	;胖次没収中
	IF COND("買い物胖次没収中")

	ELSEIF EXP:ＡＶ出演経験 && RAND:2
		PRINTDATAW
			DATAFORM 「……ん？ これ%CNAME("一人称")%が出たやつじゃねえか」
			DATA 「ほー、案外これ売れてんだなぁ」
			DATA 「ほー、あの撮影内容からよくもまぁこんなマトモな夹克が出てきたモンだ」
		ENDDATA
	ELSE
		PRINTDATAW
			DATA 「ほー……最近のやつは進化してんだなー」
			DATA 「なるほど、これの構造はこうなって……」
			DATA 「へぇ、中々上質そうな潤滑液じゃないか」
			DATA 「……にしても、こんな近くにこれだけ豊富な店があるとはねぇ」
			DATA 「お、この游戏は話題になってたな」
			DATA 「中々お宝も有そうだな……」
			DATA 「潤滑液やＡＶはともかく、攝像機まであるのは中々意外だよなー」
			DATALIST
				DATA 「……ん？　これ没収したヤツと同じ形だな」
				DATA 「なるほど、どこで仕入れたのかと思ったらここで買っていたのか……」
			ENDLIST
			DATA 「この規模を思うと、中々売れているのかねぇ……」
			DATA 「……これまた妙な形のヤツがあんなぁ……」
		ENDDATA
	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")

	;なにも買わなかった
	ELSEIF COND("買上品数") == 0
		PRINTFORMW 「？什么都不买吗？」
	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")

	ENDIF
ENDSELECT

path: ERB/EVENT_K/46 ノイ/EVENT_K46_SHOP.ERB


code:
;特殊なイベントを纏める時のファイルとして設定
;とりあえずは部員間交流イベントを全体で処理できるよう対応する
;-----------------------------------------
;ここから命令の本文
;-----------------------------------------
@EVENT_EXCHANGE
#DIM MEMO_PLAYER
#DIM MEMO_TARGET
#DIM LCOUNT

MEMO_PLAYER = PLAYER
MEMO_TARGET = TARGET
TARGET = 0
;PLAYERに诺伊を、TARGETにもう一人の対象の番号を入れる
PLAYER = FIND_COND("部員間Ｈ主導者")
TARGET = PLAYER
TARGET = FIND_COND("交流中")

CALL EVENT_EXCHANGE_MAIN, EXCHANGE_JADGE()
;最後にTARGETとPLAYERをもとに戻す
PLAYER = MEMO_PLAYER
TARGET = MEMO_TARGET

;-----------------------------------------
;交流イベントの発生条件を指定する関数
;別にこの形である必要はないが、SYSTEMに書きやすいのでこうする
;-----------------------------------------
@EXCHANGE_GATE()
#FUNCTION
#DIM ACTOR

SIF COND("昼") == 0
	RETURNF 0
SIF COND("周日")
	RETURNF 0
;ConfigがOKじゃなければスルー
SIF CONFIG("部員間Ｈ") == 0
	RETURNF 0
;部員間交流イベントが発生してるか格子
SIF FIND_COND("交流中") == 0
	RETURNF 0
ACTOR = FIND_COND("部員間Ｈ主導者")
;交流確率がRAND以上でなければ起こらない
IF CFLAG:ACTOR:交流確率 >= RAND:99 + 1
	RETURNF 1
ELSE
	RETURNF 0
ENDIF

;-----------------------------------------
;ARGSにはEXCHANGE_JADGE()が入っている
;PLAYERに诺伊、TARGETに交流相手の番号が入っている
;-----------------------------------------
@EVENT_EXCHANGE_MAIN, ARGS
;ここ来了らまずはエロがあるかどうかを判定
;非エロならそちらに移し、エロ有なら別個に移す

;各種指令が実行できるか格子
CALL CHECK_COM_ABLE, TARGET

DRAWLINE
SELECTCASE ARGS
CASE "不適切"
	PRINTFORMW 发生了意想不到的事情。
	PRINTFORMW 改造した覚えがない場合はスレ等に報告していただけると有がたいです
	RETURN 0
CASE "非エロ"
	TFLAG:交流中 = 1
	CALL PRINT_MAIDFACE, PLAYER, TARGET
CASE "性騷擾"
	TFLAG:交流中 = 1
	CALL EMOTION_PLUS, "害羞", PLAYER, TARGET
CASE "本番"
	CALL EMOTION_PLUS, "躁动难忍", PLAYER, TARGET
ENDSELECT
CALL EXCHANGE_STR, ARGS
CALL EXCHANGE_GET_EXP, ARGS

CFLAG:交流回数++
PRINTFORMW 二人の交流回数+1
TFLAG:交流中 = 0

;-----------------------------------------
;ここから部員間交流イベントの本文。PLAYERとTARGETが決定してある必要がある
;-----------------------------------------
@EXCHANGE_STR, ARGS
SELECTCASE ARGS
CASE "非エロ", "性騷擾"
	PRINTFORMW %CALLNAME:PLAYER%和%CALLNAME:TARGET%兩人好像交談正歡……
CASE "本番"
	PRINTFORMW %CALLNAME:PLAYER%和%CALLNAME:TARGET%两人好像单独做了「什么」……
CASE "昼Ｖ性交する"
	PRINTFORMW %CALLNAME:PLAYER%将阴茎插入了%CALLNAME:TARGET%的蜜壶
	PRINTFORMW %CALLNAME:TARGET%流出的爱液把活动室的沙发濡湿了……
CASE "昼Ａ性交する"
	PRINTFORMW %CALLNAME:PLAYER%侵犯了%CALLNAME:TARGET%的屁股
	PRINTFORMW 刚刚被拔出来阴茎的%CALLNAME:TARGET%的屁股还在微微颤动……
CASE "昼Ａ性交される"
	PRINTFORMW %CALLNAME:TARGET%把%CALLNAME:PLAYER%按在地上侵犯了
	PRINTFORMW %CALLNAME:TARGET%表情恍惚地摇着腰……
CASE "昼口交"
	PRINTFORMW %CALLNAME:TARGET%正一脸陶醉地舔着%CALLNAME:PLAYER%的阴茎……
ENDSELECT

;-----------------------------------------
;経験値の上昇判定。PLAYERとTARGETが決定してある必要がある
;-----------------------------------------
@EXCHANGE_GET_EXP, ARGS
#DIM GET_REL
#DIM KAISU
#DIM S_COM
#DIMS SELECT_PLAY

;まずは非エロエロ有ともに上昇する相性をこちらで変更
;エロ有の場合は回数も計算する
SELECTCASE ARGS
CASE "非エロ"
	;相性〇までは早めに到達するように
	IF COND("相性〇", PLAYER) == 0
		GET_REL = RAND:3 + 2
	ELSE
		GET_REL = RAND:2 + 1
	ENDIF
CASE "性騷擾"
	KAISU = MIN(ABL:欲望 / 10 + 1, 10)
	GET_REL = KAISU

	TFLAG:PLAY回数 = (RAND:3+1) * KAISU
	IF PENIS(TARGET)
		CALL SIMULATE_TRAIN_COM, TNUM("给对方手交"), TFLAG:PLAY回数
	ELSE
		CALL SIMULATE_TRAIN_COM, TNUM("阴部愛撫"), TFLAG:PLAY回数
	ENDIF
	CFLAG:交流Ｈ回数++
CASEELSE
	KAISU = MIN(ABL:欲望 / 5 + 1, 10)
	GET_REL = 2 * KAISU

	;どのようなPLAYを行うのかをここでセレクトさせる
	SELECT_PLAY = %TEXTR(EXCHANGE_TABLE() )%

	;前準備開始
	CALL SIMULATE_TRAIN_FIRST

	TFLAG:PLAY回数 = (RAND:3+1) * KAISU
	SELECTCASE SELECT_PLAY
	CASE "ペッティング"
		SELECTCASE RAND:3
		CASE 0
			IF PENIS(TARGET)
				IF RAND:2
					S_COM = TNUM("舐陰莖")
				ELSE
					S_COM = TNUM("给对方手交")
				ENDIF
			ELSE
				IF RAND:2
					S_COM = TNUM("舐陰")
				ELSE
					S_COM = TNUM("阴部愛撫")
				ENDIF
			ENDIF
		CASE 1
			IF ABL:Ａ感覚 >= 3 && RAND:2
				S_COM = TNUM("肛門愛撫")
			ELSE
				S_COM = TNUM("胸愛撫")
			ENDIF
		CASE 2
			IF VAGINA(PLAYER) && VAGINA(TARGET) && RAND:2
				S_COM = TNUM("磨鏡")
			ELSE
				S_COM = TNUM("愛撫")
			ENDIF
		ENDSELECT
	CASE "口交"
		S_COM = TNUM("口交")
	CASE "手淫"
		S_COM = TNUM("手淫")
		SIF ABL:施虐属性 >= 2
			CALL SIMULATE_TRAIN_COM, TNUM("胸爱抚奉侍"), TFLAG:PLAY回数
	CASE "乳交"
		S_COM = TNUM("乳交")
	CASE "六九式"
		S_COM = TNUM("六九式")
	CASE "Ｖ性交"
		IF CANTRAINS("Ｖ挿入")
			S_COM = CANTRAINS("Ｖ挿入")
		ELSE
			S_COM = TNUM("正常位")
		ENDIF
		SIF EXCHANGE_PLAY_FILTER("接吻判定")
			CALL SIMULATE_TRAIN_COM, TNUM("接吻"), TFLAG:PLAY回数
		SIF EXCHANGE_PLAY_FILTER("生ハメ判定") == 0
			TEQUIP:PLAYER:避孕套 = 1
	CASE "Ａ性交"
		IF CANTRAINS("Ａ挿入")
			S_COM = CANTRAINS("Ａ挿入")
		ELSE
			S_COM = TNUM("肛門後背位")
		ENDIF
		SIF EXCHANGE_PLAY_FILTER("接吻判定")
			CALL SIMULATE_TRAIN_COM, TNUM("接吻"), TFLAG:PLAY回数
	CASE "Ａ挿入"
		IF CANTRAINS("Ａ逆挿入")
			S_COM = CANTRAINS("Ａ逆挿入")
		ELSE
			S_COM = TNUM("Ａ後背位奉仕")
		ENDIF
		SIF EXCHANGE_PLAY_FILTER("接吻判定")
			CALL SIMULATE_TRAIN_COM, TNUM("接吻"), TFLAG:PLAY回数
	ENDSELECT

	;実行する内容に応じてCFLAGを立てる
	SELECTCASE S_COM
	CASE TNUM("舐陰")
		CFLAG:交流舐陰 += KAISU
	CASE TNUM("舐陰莖")
		CFLAG:交流舐陰莖 += KAISU
	CASE TNUM("口交")
		CFLAG:交流口交 += KAISU
	CASE TNUM("六九式")
		IF PENIS(TARGET)
			CFLAG:交流舐陰莖 += KAISU
		ELSE
			CFLAG:交流舐陰 += KAISU
		ENDIF
		CFLAG:交流口交 += KAISU
	;Ｖ性交
	CASE 60 TO 69
		CFLAG:交流Ｖ性交 += KAISU
	;Ａ性交
	CASE 70 TO 79
		CFLAG:交流Ａ性交 += KAISU
	;Ａ挿入(诺伊のＡに挿入)
	CASE 125 TO 129
		CFLAG:交流Ａ挿入 += KAISU
	ENDSELECT

	;TNUM(S_COM)をTFLAG:PLAY回数 だけ行う
	CALL SIMULATE_TRAIN_COM, S_COM, TFLAG:PLAY回数

	;経験や珠などの獲得量計算
	CALL SIMULATE_TRAIN_CALC

	;結果発表
;	[IF_DEBUG]
;		CALL SIMULATE_TRAIN_SHOW
;	[ENDIF]

	TEQUIP:避孕套 = 0
	TEQUIP:PLAYER:避孕套 = 0
	CFLAG:交流Ｈ回数++
ENDSELECT
CALL CHANGE_RELATION, GET_REL, TARGET, PLAYER
PRINTFORML 两人的相性+{GET_REL}

;-----------------------------------------------
;用于对部员间交流进行判定的函数
;因为各种条件容易变得复杂，所以放在这里
;以PLAYER是诺伊、TARGET是交流对象为前提
;-------------------------------------------------
@EXCHANGE_JADGE()
#FUNCTIONS

;非エロの場合は問答無用でOK、そうじゃない場合は色々と対応する
SELECTCASE CEVENTS("部員間交流", PLAYER)
CASE "非エロ"
	RETURNF "非エロ"
CASE "エロ有"
	;毫无疑问的
	;讨厌男性的
	SIF CFLAG:ＮＴＲ禁止 == 1 || TALENT:討厭男人 >= 2
		RETURNF "非エロ"

	;在这里填写有非色情部員間交流的判定条件
	SELECTCASE CALLNAME:TARGET
	CASE "樱", "千紗", "百合香"
		;樱毫无疑问
		;千紗和你的関系太强了，想不出色情交流的情形
		;百合香理由同上
		RETURNF "非エロ"
	CASE "槞彁", "棗"
		;槞彁和棗在恋慕状态下会拒绝
		SIF TALENT:恋慕
			RETURNF "非エロ"
	CASE "焰", "静菜"
		;焰和静菜有家庭，所以必须要有淫乱才行
		SIF TALENT:淫乱 == 0
			RETURNF "非エロ"
	CASE "維吹"
		;因为得到了作者的建议，相思相爱的话就不会进入色情交流
		;谢谢您的意见……
		SIF TALENT:相思相愛
			RETURNF "非エロ"
	CASE "紬希"
		;紬希在HE中绝对不会进行色情交流
		SIF CEVENT("I love you, my dear.")
			RETURNF "非エロ"
	CASE "万音"
		;覚醒前的万音不进行色情交流
		SIF CEVENT("淫魔覚醒：万音") == 0
			RETURNF "非エロ"
	CASE "南実"
		;根据丽香（南実作者）的方案，好感度1500以上，诺伊和南実的相性在◎以上，而且不是处女的时候就可以进行色情交流了
		SIF CFLAG:好感度 < 1500 || COND("相性◎", PLAYER) == 0 || TALENT:処女
			RETURNF "非エロ"
	ENDSELECT

	;根据种族和对象的不同，决定从性骚扰到性交的进度
	;淫魔本身就是这样的种族，所以一開始就可以火力全開，也不在意相性
	IF COND("種族：淫魔")
		RETURNF "本番"
	;淫乱进度也很快
	;虽然这样说，也需要几回的过程
	ELSEIF TALENT:淫乱
		IF CFLAG:交流回数 < 3
			RETURNF "性騷擾"
		ELSE
			RETURNF "本番"
		ENDIF
	;不重视贞操的不在乎相性、但也需要几回的过程
	ELSEIF TALENT:不在乎貞操
		IF CFLAG:交流回数 < 1
			RETURNF "非エロ"
		ELSEIF CFLAG:交流回数 < 3
			RETURNF "性騷擾"
		ELSE
			RETURNF "本番"
		ENDIF
	;好奇心需要一定相性、超过所需相性后就和淫乱一样了
	ELSEIF TALENT:好奇心
		IF COND("相性〇", PLAYER) == 0 || CFLAG:交流回数 < 1
			RETURNF "非エロ"
		ELSEIF CFLAG:交流回数 < 3
			RETURNF "性騷擾"
		ELSE
			RETURNF "本番"
		ENDIF
	;无法逾越的底线判定非常严格
	;两人的相性必须在☆
	ELSEIF TALENT:難以越過的底線
		IF COND("相性☆", PLAYER) == 0 || CFLAG:交流回数 < 5
			RETURNF "非エロ"
		ELSEIF CFLAG:交流回数 < 10
			RETURNF "性騷擾"
		ELSE
			RETURNF "本番"
		ENDIF
	;重视贞操和保守也一定的严格
	;相性要◎才行
	;不擅长对付男性也在这里
	ELSEIF TALENT:保守的 || TALENT:贞操重视 || TALENT:討厭男人 == 1
		IF COND("相性◎", PLAYER) == 0 || CFLAG:交流回数 < 3
			RETURNF "非エロ"
		ELSEIF CFLAG:交流回数 < 5
			RETURNF "性騷擾"
		ELSE
			RETURNF "本番"
		ENDIF
	;其他以外相性〇就可以了
	ELSE
		IF COND("相性〇", PLAYER) == 0 || CFLAG:交流回数 < 3
			RETURNF "非エロ"
		ELSEIF CFLAG:交流回数 < 5
			RETURNF "性騷擾"
		ELSE
			RETURNF "本番"
		ENDIF
	ENDIF
CASEELSE
	;上記以外で来たらバグなのでその旨を出す
	RETURNF "不適切"
ENDSELECT

;-----------------------------------------------
;部員間交流の可能なPLAY一覧を表示するための関数
;PLAYERに诺伊、TARGETに交流相手の番号が入っている
;-------------------------------------------------
@EXCHANGE_TABLE()
#FUNCTIONS
#DIMS EVENT_TABLE

;ペッティングは強制選択
EVENT_TABLE = ペッティング/

;相手の技巧が3以上なら奉仕するのも解禁
IF ABL:技巧 >= 3
	SIF PENIS(PLAYER)
		EVENT_TABLE += "口交/乳交/手淫/"

	SIF VAGINA(PLAYER)
		EVENT_TABLE += "奉仕舐陰/"

	EVENT_TABLE += "六九式/"
ENDIF

;discordで意見をいただき、宇佐美酱は前戯系のみに限定するように
SIF CALLNAME:TARGET == "宇佐美"
	RETURNF EVENT_TABLE

;米娅酱の場合は前戯系以外は肛門性交しかしない
IF CALLNAME:TARGET == "米娅"
	SIF COND("身嗜み：Ａ独占") == 0
		EVENT_TABLE += "Ａ性交/"
	RETURNF EVENT_TABLE
ENDIF

;上記の角色以外は処女じゃなければＶ性交もする
;あるいは相性が☆以上だと許す
SIF EXCHANGE_PLAY_FILTER("Ｖ性交判定")
	EVENT_TABLE += "Ｖ性交/"

;Ａ処女じゃなければ肛門性交も
SIF EXCHANGE_PLAY_FILTER("Ａ性交判定")
	EVENT_TABLE += "Ａ性交/"

;阴茎あれば性交する側になる可能性も
SIF EXCHANGE_PLAY_FILTER("Ａ挿入判定")
	EVENT_TABLE += "Ａ挿入/"

RETURNF EVENT_TABLE

;-----------------------------------------------
;可能なPLAYのIF文がものすごく肥大化しそうなのでここで埋め込んでおく
;PLAYERに诺伊、TARGETに交流相手の番号が入っている
;-------------------------------------------------
@EXCHANGE_PLAY_FILTER(ARGS)
#FUNCTION
SELECTCASE ARGS
CASE "接吻判定"
	SIF COND("身嗜み：接吻独占") || COND("身嗜み：接吻独占", PLAYER)
		RETURNF 0
	SIF FIL_COMP("交流接吻", PLAYER) == 0
		RETURNF 0
	SIF CANTRAIN("接吻") == 0
		RETURNF 0
	RETURNF 1

CASE "Ｖ性交判定"
	SIF PENIS(PLAYER) == 0 || VAGINA(TARGET) == 0
		RETURNF 0
	SIF COND("身嗜み：Ｖ独占")
		RETURNF 0
	SIF FIL_COMP("交流Ｖ性交", PLAYER) == 0
		RETURNF 0
	;処女かどうか
	IF TALENT:処女
		SIF FIL_COMP("奪処女", PLAYER) == 0
			RETURNF 0
	ELSE
		SIF CANTRAINS("Ｖ挿入") == 0
			RETURNF 0
	ENDIF
	RETURNF 1

CASE "Ａ性交判定"
	SIF PENIS(PLAYER) == 0
		RETURNF 0
	SIF COND("身嗜み：Ａ独占")
		RETURNF 0
	SIF FIL_COMP("交流Ａ性交", PLAYER) == 0
		RETURNF 0
	SIF CANTRAINS("Ａ挿入") == 0
		RETURNF 0
	RETURNF 1

CASE "Ａ挿入判定"
	SIF PENIS(TARGET) == 0
		RETURNF 0
	SIF COND("身嗜み：Ａ独占", PLAYER)
		RETURNF 0
	SIF FIL_COMP("交流Ａ挿入", PLAYER) == 0
		RETURNF 0
	SIF CANTRAINS("Ａ逆挿入") == 0
		RETURNF 0
	RETURNF 1

CASE "生ハメ判定"
	SIF FIL_COMP("生許可", PLAYER)
		RETURNF 1
	RETURNF 0

ENDSELECT
RETURNF 0

path: ERB/EVENT_K/46 ノイ/EVENT_K46_UNIQUE.ERB