code:
;-------------------------------------------------
;口上で使う乱数やテ接吻トを詰め込むための場所
;-------------------------------------------------
;CNAMEの詳細を書く場所
;ARGに呼びたい相手の番号を入れておく
;細かく設定しようとすると全体的にややこしく、かつ複雑になりがちなので、ここで一括で設定できるようにする
;もちろん個別でも対応できるように
@C_DETAIL, ARG
#FUNCTIONS

SELECTCASE CALLNAME:TARGET
CASE "乃々"
	IF ARG == MASTER
		IF NAME:ARG == "你"
			LOCALS = 前辈_学长
		ELSE
			LOCALS = %NAME:ARG%前輩_%CSTR:ARG:ふりがな%前輩
		ENDIF
	ELSEIF COND("诺伊", ARG)
		IF (COND("夜") || DAYEV("周日", "游戏内")) && CEVENT("家族関係")
			LOCALS = %CALLNAME:ARG%伯父桑_%CSTR:ARG:ふりがな%おじ桑
		ELSE
			LOCALS = %CALLNAME:ARG%老师_%CSTR:ARG:ふりがな%老师
		ENDIF
	ELSEIF COND("白色死神", ARG) && CEVENT("名前のある死神", ARG) == 0
		LOCALS = 死神小姐_死神桑
	ELSEIF COND("学生", ARG)
		SELECTCASE SOME_CLASS(TARGET, ARG)
		CASE "年下"
			IF TALENT:ARG:男性
				IF TALENT:ARG:性反転 || TALENT:ARG:伪娘 || TRUE_SEX(ARG) == "扶她"
					LOCALS = %CALLNAME:ARG%酱_%CSTR:ARG:ふりがな%酱
				ELSE
					LOCALS = %CALLNAME:ARG%君_%CSTR:ARG:ふりがな%君
				ENDIF
			ELSE
				IF TALENT:ARG:性反転 && COND("性転換前的素質：伪娘", ARG) == 0
					LOCALS = %CALLNAME:ARG%君_%CSTR:ARG:ふりがな%君
				ELSE
					LOCALS = %CALLNAME:ARG%酱_%CSTR:ARG:ふりがな%酱
				ENDIF
			ENDIF
		CASEELSE
			LOCALS = %CALLNAME:ARG%桑_%CSTR:ARG:ふりがな%桑
		ENDSELECT
	ELSEIF COND("教員", ARG)
		LOCALS = %CALLNAME:ARG%老师_%CSTR:ARG:ふりがな%老师
	ELSE
		LOCALS = %CALLNAME:ARG%桑_%CSTR:ARG:ふりがな%桑
	ENDIF
CASE "诺伊"
	IF ARG == MASTER
		IF NAME:ARG == "你"
			LOCALS = 你_你
		ELSE
			SELECTCASE TONE_K46()
			CASE "穏やか"
				LOCALS = %NAME:ARG%桑_%CSTR:ARG:ふりがな%桑
			CASE "丁寧"
				LOCALS = %NAME:ARG%様_%CSTR:ARG:ふりがな%大人
			CASEELSE
				LOCALS = %NAME:ARG%_%CSTR:ARG:ふりがな%
			ENDSELECT
		ENDIF
	ELSEIF TEQUIP:新妻PLAY
		IF TRUE_SEX(ARG) == "男性"
			LOCALS = 亲爱的_达令
		ELSE
			LOCALS = 亲爱的_甜心
		ENDIF
	ELSEIF COND("白色死神", ARG) && CEVENT("名前のある死神", ARG) == 0
		LOCALS = 『死神』_もり
	ELSEIF COND("乃々", ARG)
		LOCALS = %CALLNAME:ARG%_%CSTR:ARG:ふりがな%
	ELSE
		SELECTCASE TONE_K46(TARGET)
		CASE "穏やか"
			LOCALS = %CALLNAME:ARG%桑_%CSTR:ARG:ふりがな%桑
		CASE "丁寧"
			LOCALS = %CALLNAME:ARG%様_%CSTR:ARG:ふりがな%大人
		CASE "甘えんぼ"
			IF TRUE_SEX(ARG) == "男性" && TALENT:ARG:伪娘 == 0
				LOCALS = %CALLNAME:ARG%君_%CSTR:ARG:ふりがな%君
			ELSE
				LOCALS = %CALLNAME:ARG%酱_%CSTR:ARG:ふりがな%酱
			ENDIF
		CASE "傲嬌"
			LOCALS = %CALLNAME:ARG%_%CSTR:ARG:ふりがな%
		CASEELSE
			IF COND("学生", ARG)
				LOCALS = %CALLNAME:ARG%_%CSTR:ARG:ふりがな%
			ELSEIF COND("教師", ARG)
				IF COND("相性◎", ARG)
					LOCALS = %CALLNAME:ARG%_%CSTR:ARG:ふりがな%
				ELSE
					LOCALS = %CALLNAME:ARG%老师_%CSTR:ARG:ふりがな%老师
				ENDIF
			ELSE
				IF COND("相性◎", ARG)
					LOCALS = %CALLNAME:ARG%_%CSTR:ARG:ふりがな%
				ELSE
					LOCALS = %CALLNAME:ARG%桑_%CSTR:ARG:ふりがな%桑
				ENDIF
			ENDIF
		ENDSELECT
	ENDIF
;新角色予定
CASE "遥"
	IF ARG == MASTER
		IF NAME:MASTER == "你"
			IF CEVENT("師匠フラグ")
				LOCALS = 師匠_ししょー
			ELSE
				LOCALS = 前辈_学长
			ENDIF
		ELSE
			IF CEVENT("師匠フラグ")
				LOCALS = %NAME:MASTER%師匠_%CSTR:ARG:ふりがな%ししょー
			ELSE
				LOCALS = %NAME:MASTER%前輩_%CSTR:ARG:ふりがな%前輩
			ENDIF
		ENDIF
	ELSEIF COND("莉", ARG)
		LOCALS = %CALLNAME:ARG%酱_%CSTR:ARG:ふりがな%酱
	ELSEIF COND("学生", ARG)
		SELECTCASE SOME_CLASS(TARGET, ARG)
		CASE "同級生"
			IF TALENT:ARG:伪娘 || TRUE_SEX(ARG) == "女性" || TRUE_SEX(ARG) == "扶她"
				IF COND("相性◎", ARG)
					LOCALS = %CALLNAME:ARG%_%CSTR:ARG:ふりがな%
				ELSE
					LOCALS = %CALLNAME:ARG%桑_%CSTR:ARG:ふりがな%桑
				ENDIF
			ELSE
				LOCALS = %CALLNAME:ARG%_%CSTR:ARG:ふりがな%
			ENDIF
		CASE "年下"
			IF TALENT:ARG:伪娘 || TRUE_SEX(ARG) == "女性" || TRUE_SEX(ARG) == "扶她"
				IF COND("相性◎", ARG)
					LOCALS = %CALLNAME:ARG%_%CSTR:ARG:ふりがな%
				ELSE
					LOCALS = %CALLNAME:ARG%酱_%CSTR:ARG:ふりがな%酱
				ENDIF
			ELSE
				IF COND("相性◎", ARG)
					LOCALS = %CALLNAME:ARG%_%CSTR:ARG:ふりがな%
				ELSE
					LOCALS = %CALLNAME:ARG%君_%CSTR:ARG:ふりがな%君
				ENDIF
			ENDIF
		CASE "年上"
			LOCALS = %CALLNAME:ARG%前輩_%CSTR:ARG:ふりがな%前輩
		ENDSELECT
	ELSEIF COND("教員", ARG)
		LOCALS = %CALLNAME:ARG%老师_%CSTR:ARG:ふりがな%老师
	ELSE
		LOCALS = %CALLNAME:ARG%桑_%CSTR:ARG:ふりがな%桑
	ENDIF
CASEELSE
	IF COND("学生", ARG)
		SELECTCASE SOME_CLASS(TARGET, ARG)
		CASE "年下"
			IF TRUE_SEX(ARG) == "男性" && TALENT:ARG:伪娘 == 0
				LOCALS = %CALLNAME:ARG%君_%CSTR:ARG:ふりがな%君
			ELSE
				LOCALS = %CALLNAME:ARG%酱_%CSTR:ARG:ふりがな%酱
			ENDIF
		CASE "同級生"
			IF COND("相性◎", ARG)
				LOCALS = %CALLNAME:ARG%_%CSTR:ARG:ふりがな%
			ELSE
				LOCALS = %CALLNAME:ARG%桑_%CSTR:ARG:ふりがな%桑
			ENDIF
		CASE "年上"
			LOCALS = %CALLNAME:ARG%前輩_%CSTR:ARG:ふりがな%前輩
		ENDSELECT
	ELSEIF COND("教師", ARG)
		LOCALS = %CALLNAME:ARG%老师_%CSTR:ARG:ふりがな%老师
	ELSE
		LOCALS = %CALLNAME:ARG%桑_%CSTR:ARG:ふりがな%桑
	ENDIF
ENDSELECT

RETURNF LOCALS

;自分と相手の年齢が同じかどうかを判別する
;と是え厳密にはできないので、其他＝教師(6)＞研究生(5)＞３年生(4)＞２年生(3)＞１年生(2)＞中等部(1)＞初等部(0)の順で年を計算する
@SOME_CLASS, ARG, ARG:1
#FUNCTIONS
#DIM CLASS, 2
#DIM LCOUNT

FOR LCOUNT, 0, 2
	IF COND("教員", ARG:LCOUNT)
		CLASS:LCOUNT = 6
	ELSE
		SELECTCASE CSTR:(ARG:LCOUNT):学年
		CASE "初等部"
			CLASS:LCOUNT = 0
		CASE "中等部"
			CLASS:LCOUNT = 1
		CASE "１年生"
			CLASS:LCOUNT = 2
		CASE "２年生"
			CLASS:LCOUNT = 3
		CASE "３年生"
			CLASS:LCOUNT = 4
		CASE "研究生"
			CLASS:LCOUNT = 5
		CASEELSE
			CLASS:LCOUNT = 6
		ENDSELECT
	ENDIF
NEXT

IF CLASS > CLASS:1
	RETURNF "年下"
ELSEIF CLASS == CLASS:1
	RETURNF "同級生"
ELSE
	RETURNF "年上"
ENDIF

;精液や阴茎などについて随机で異なる名称をしゃべるようになる関数
;そのつど書くのも若干面倒なので追加
;2020/11/22から改装
;休托莉酱の性器の呼称変更をパク……参考にさせて頂いています
;2020/12/10再びの改装
;役割を大幅に変更し、前口上生成ジェネレータに変化しました
@ADANA, ARGS, ARG, ARG:1, ARGS:1
#FUNCTIONS
#DIMS 名称
#DIMS TABLE
#DIMS HURIGANA, 2

SIF ARG == 0 && TARGET > 0
	ARG = TARGET
SIF ARG:1 == 0 && PLAYER > 0
	ARG:1 = PLAYER

SELECTCASE ARGS
CASE "阴茎"
	TABLE = %CNAMET(ARG, "男性器")%
	HURIGANA:1 = %CNAMET(ARG, "男性器", "かな")%
CASE "ヴァギナ"
	TABLE = %CNAMET(ARG, "女性器")%
	HURIGANA:1 = %CNAMET(ARG, "女性器", "かな")%
CASEELSE
	TABLE = %CNAMET(ARG, ARGS)%
	HURIGANA:1 = %CNAMET(ARG, ARGS, "かな")%
ENDSELECT

名称 =
IF RAND:3 == 0 && ARG:1 && MARK:ARG:屈服刻印 >= 2
	SELECTCASE ARGS
	CASE "阴茎"
		IF TALENT:(ARG:1):阴茎 == 0
			名称 = 可爱/子ども/赤酱/
		ELSEIF TALENT:(ARG:1):阴茎 >= 2
			名称 = 真っ黒/極太/粗大的/おまんこ特攻/
		ENDIF
		SIF 名称 != ""
			名称 = %TEXTR(@"%名称%")%
		IF TALENT:(ARG:1):包茎
			IF RAND:2
				名称 += "包茎"
			ELSE
				名称 += "包皮"
			ENDIF
		ENDIF
	CASE "精液"
		名称 = 黄ばんだ/濃厚/
		SIF TALENT:(ARG:1):小种马
			名称 += "百発百中/"
		名称 = %TEXTR(@"%名称%")%
	CASE "ヴァギナ"
		IF TALENT:(ARG:1):性器年齢 >= 4
			名称 = 淫水焼けした
		ELSEIF TALENT:(ARG:1):処女
			名称 = 処女
		ENDIF
	ENDSELECT
ENDIF

;前の段階がなく、かつtnkの呼び方が「マラ」なら、自動で凶悪を前に着けるようにする
SIF 名称 == "" && TABLE == "マラ"
	名称 = 凶悪

;一回目のフリガナ探索
;前口上（？）のフリガナを尋找
HURIGANA = %RUBY_GENERATE(名称)%%HURIGANA:1%

IF ARGS:1 == "ふりがな" || ARGS:1 == "かな" || PALAM:ARG:欲情 >= PALAMLV:5
	名称 = %HURIGANA%
ELSE
	名称 = %TABLE%
ENDIF

RETURNF 名称

@RUBY_GENERATE, ARGS
#FUNCTIONS

SELECTCASE ARGS
CASE "可爱"
	RETURNF "可爱"
CASE "子ども"
	RETURNF "こども"
CASE "赤酱"
	RETURNF "あか酱"
CASE "真っ黒"
	RETURNF "まっくろ"
CASE "極太"
	RETURNF "ごくぶと"
CASE "粗大的"
	RETURNF "ふとい"
CASE "おまんこ特攻"
	RETURNF "おまんことっこう"
CASE "包茎"
	RETURNF "ほうけい"
CASE "包皮"
	RETURNF "かわかぶり"
CASE "黄ばんだ"
	RETURNF "きばんだ"
CASE "濃厚"
	RETURNF "のうこう"
CASE "百発百中"
	RETURNF "ひゃっぱつひゃくちゅう"
CASE "淫水焼けした"
	RETURNF "いんすいやけした"
CASE "凶悪"
	RETURNF "きょうあく"
ENDSELECT

;欲望に正直になるかを判定する関数
;従来の『MARK:屈服刻印 == 3』に相当する
@YOKUBO, ARG
#FUNCTION
#DIM DYNAMIC 判定

;対象に何も入っていなかった場合はTARGETに変更する
SIF ARG == 0
	ARG = TARGET

IF MARK:ARG:屈服刻印 == 3 || TALENT:ARG:淫乱
	判定 = 1
	SIF COND("欲求不満", ARG) >= 2 || CFLAG:ARG:躁动难忍
		判定 += 1
ENDIF

RETURNF 判定

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

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

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

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

FOR ループ, 0, MAX(回数, 1)
	SELECTCASE パターン
	;汎用パターン
	CASE "通常"
		IF PALAM:対象:欲情 >= PALAMLV:5 && RAND:3
			喘ぎ += @"%TEXTR("啊/哦/啊、啊/噢嗬/啊嘿/哈啊/好喜翻这个！/啊ー")%"
		ELSEIF PALAM:対象:欲情 >= PALAMLV:3 && RAND:2
			喘ぎ += @"%TEXTR("啊哈/嗯哈/哈/嗯嗯/啊嗯/啊/哈嗯/哈/嗯哈/咿呀/啊啊/啊哈")%"
		ELSE
			喘ぎ += @"%TEXTR("啊……/咿嗯/嗯啊……/啊嗯/呀唔……/呼啊……/哈嗯……/嗯……/呀……/呼嗯……/っ……")%"
		ENDIF
	;口に何か入っているとき
	CASE "Ｍ異物"
		;長くなるのでいくつかに分割
		IF RAND:2
			喘ぎ += @"%TEXTR("呼唔……/嗯唔……/哈唔……/啾啪……/舔……/啾噜……/嗯……/嗯、吸溜…/吸溜…唔…嗯/嗯…、吸溜……/啾、吸溜…啾噗/嗯嗯……吸溜…/吸溜、哈唔……嗯")%"
		ELSE
			喘ぎ += @"%TEXTR("嗯、嗯咕…/嗯嗯…嗯……っ/嗯…、嗯嗯……/嗯咕、嗯…嗯/嗯唔……嗯/嗯唔、嗯嗯…っ/呼哇……")%"
		ENDIF
	;接吻しているとき
	CASE "接吻"
		喘ぎ += @"%TEXTR("啾……/啾噗……/嗯唔……/嗯……/啾、啾…/啾…啾……っ/啾…、啾……/啾、啾…啾/啾……啾/嗯啾、啾……っ")%"
	;肛門に何か入っているとき
	CASE "Ａ異物"
		喘ぎ += @"%TEXTR("屁股被/嗯哈/哈嗯っ")%"
	;尿道に何か入っているとき
	CASE "尿道異物"
		喘ぎ += @"%TEXTR("尿尿的孔被")%"
	;何かに挿入しているとき
	CASE "挿入"
		IF RAND:2
			喘ぎ += @"%CNAMET(対象, "二人称")%的"
			IF RAND:2
				IF GROUPMATCH(SELECTCOM, 120, 121, 122)
					喘ぎ += @"%ADANA("ヴァギナ")%"
				ELSEIF GROUPMATCH(SELECTCOM, 125, 126, 127)
					喘ぎ += @"%ADANA("肛門")%"
				ENDIF
			ELSE
				喘ぎ += "里面"
			ENDIF
			喘ぎ += "好舒服……"
		ELSE
			喘ぎ += "肉棒好舒服！"
		ENDIF
	;飞机杯に挿入しているとき
	CASE "飞机杯挿入"
		喘ぎ += @"%TEXTR("要被飞机杯啾噗啾噗地做了/啊……把里面做得黏黏糊糊的……")%"
	ENDSELECT
	;爱心が必要な場合
	IF ARGS == "要"
		喘ぎ += "_H_"
	;爱心が不要な場合
	ELSEIF ARGS == "不要"
	;今のところは完全に不要だが後の拡張のため＆構文ミスに気付くために其他にはエラーをだす
	ELSE
		喘ぎ = "AEGI出现了问题"
		RETURNF 喘ぎ
	ENDIF
	;読みやすいように半角スペースをくわえる
	喘ぎ += " "
NEXT

RETURNF 喘ぎ

license: unknown


code:
;散歩イベントを書いてみたくなったので、挑戦してみるの巻
;寧子酱の散歩イベントを大部分で参考にさせていただいています
@K25_LONG_WALK, ARGS
#DIM LCOUNT
#DIM ACTOR
#DIM MOB, 4

SELECTCASE ARGS
CASE "初散歩"
	PRINTL
	SELECTCASE TEXTS("季節")
	CASE "春"
		PRINTFORM 欣赏着窗外美丽的花海
	CASE "夏"
		PRINTFORM 眺望着窗外热闹的海滩
	CASE "秋"
		PRINTFORM 观赏着窗外新鲜的红叶
	CASE "冬"
		PRINTFORM 眺望着被寒冷的空气所支配的宁静的街景
	ENDSELECT
	PRINTFORMW 、%CALLNAME:MASTER%乘坐在開往○○镇的巴士上
	PRINTFORMW 「你能和我一起来我真的很開心」
	PRINTFORMW 旁边是比平时心情好很多的%CALLNAME:TARGET%一手拿着装有照相机的包，另一只手打開了地图应用
	PRINTFORMW 前几天他好像有事要去○○町，虽然只是远远地看了看那里的景色，却深深地打动了他的心，所以想让%CALLNAME:MASTER%也看看――
	PRINTFORMW 据%CALLNAME:TARGET%所说，这就是原因
	PRINTFORMW 巴士在○○车站前停下，但他们并没有下车，就这样坐着这辆沿海開往目的地的巴士，颠簸了几十分钟
	PRINTFORMW 确认车停在一个渔港似的、几乎看不到民宅的地方后，被%CALLNAME:TARGET%轻轻地拍了拍肩膀，说要在这里下车……
	PRINTL
	PRINTFORMW 从这里到目的地还需要步行，沿着几乎没有车辆经过的道路前行
	PRINTFORMW 信号灯甚至人行横道都几乎没有，也看不到行人的身影
	PRINTFORMW 往右手边看可以看到海上有几艘船和一些防波堤块，看来这里确实是个渔港
	PRINTFORMW 不久，道路開始出现倾斜
	PRINTFORMW  看来他们要爬上这座山才能到达目的地
	PRINTFORMW 原本还算宽敞的双车道变成了单车道，为行人划定的白线也变得狭窄得几乎没有意义
	PRINTFORMW ――也许我们应该開车过来
	PRINTFORMW  抗议的话语几乎要脱口而出，但看到%CALLNAME:TARGET%困扰地皱着眉頭，决定收回自己的话。
	PRINTFORMW 继续走着，就在体力快要耗尽的时候――
	PRINTFORMW 「啊、在那里！　%CNAME("二人称")%、就是那个，那个！」
	PRINTFORMW 在%CALLNAME:TARGET%的催促下抬頭看去，那里耸立着一座雪白的灯塔
	PRINTL
	PRINTFORMW 爬上灯塔内部螺旋梯的同时、%CALLNAME:TARGET%断断续续地说起话来
	PRINTFORMW 「上初中的时候，有段时间为了耍帅，读过一些看起来很难懂的书」
	PRINTFORMW 「当时我读的时候几乎没有理解其中的意思，但有一本小说让我印象深刻」
	PRINTFORMW 「现在回想起来，我好像也是读了那本小说之后才開始想要好好拍照的。不过在那之前我也喜欢拍照」
	PRINTFORMW 咔、咔、咔、硬质的鞋子发出的声音在灯塔内回响
	PRINTFORMW 「……登场人物中，有一个是画家」
	PRINTFORMW 「不知道为什么，那个人给我留下了很深的印象」
	PRINTFORMW 「我觉得我们有着相同的想法和烦恼。就是这种感觉」
	PRINTFORMW 到达塔顶，沉重的門闪烁着微弱的光芒，以一种神圣的姿态将内部和外部隔開
	PRINTFORMW 「结果，我们完全不同」
	PRINTFORMW 「可是，现在我们又站在同一个地方。我无法摆脱这种感觉」
	PRINTFORMW %CALLNAME:TARGET%伸出纤细的手臂，就这样一下子推開了門
	PRINTFORMW 突然涌入的光线令人頭晕目眩、但渐渐地适应了之后、眼前出现了一条水平线
	PRINTFORMW %CALLNAME:TARGET%缓缓取出照相机、只拍了一张照片就又把它收回包里
	PRINTFORMW 我问他这样就够了吗，像是在说没问题似的,他缓缓点頭
	PRINTFORMW 从那之后直到日落，%CALLNAME:MASTER%和%CALLNAME:TARGET%一直眺望着大海……
	CFLAG:好感度 += 30
	PRINTL
	PRINTFORMW 好感度＋30
	PRINTL
	CALL SET_CEVENT, "乃々：初散歩"
CASE "生徒会の仕事"
	CALL CREATE_MOB, "宮本朝陽"
	MOB:0 = CNUM("宮本朝陽")
	CALL CREATE_MOB, "神崎万梨阿"
	MOB:1 = CNUM("神崎万梨阿")
	CALL CREATE_MOB, "逢坂睦月"
	MOB:2 = CNUM("逢坂睦月")
	CALL CREATE_MOB, "神崎恵美"
	MOB:3 = CNUM("神崎恵美")

	;園芸部の裏事情は中々議題に乗せづらいだろうということで書かない方向で
	;何となく生徒会でも人外じゃなければそのあたりの事情は知らなさそうな気がする
	CALL PRINT_MAIDFACE, MOB:0
	CALL PRINT_STRL, @"_黄色_- %CALLNAME:(MOB:0)% -"
	PRINTFORMW 「――那么，剑道部更换老旧的护具，柔道部更换严重磨损的榻榻米，以上决议已经通过」
	;織君酱の扱い的にこの辺りはごまかされてそう
	PRINTFORM 「
	SIF CNUM("織")
		PRINTFORM 既然有学生被保护后仍然下落不明，我们应该向老师提出加强警戒。
	PRINTFORMW ……那么，决议就到这里，还有其他意见吗？」

	CALL PRINT_MAIDFACE, MOB:1
	CALL PRINT_STRL, @"_黄色_- %CALLNAME:(MOB:1)% -"
	PRINTFORMW 「……要更换榻榻米的话，会超出原定的部费。需要进行调整吗」

	CALL PRINT_MAIDFACE, MOB:2
	CALL PRINT_STRL, @"_黄色_- %CALLNAME:(MOB:2)% -"
	PRINTFORMW 「既然如此，那就改天再去各个部門打听情况，进行详细的调查，这样可以吗？　朝阳君和万梨阿酱可能很忙，所以作为替补，调查小组由我和…………」

	CALL PRINT_MAIDFACE, TARGET
	CALL PRINT_STRL, @"_黄色_- %CALLNAME:TARGET% -"
	PRINTFORMW 「为了准备文化祭，我想检查一下器材，%CNAME("一人称")%可以去体育馆和旧校舍附近的社团吗」

	CALL PRINT_MAIDFACE, MOB:3
	CALL PRINT_STRL, @"_黄色_- %CALLNAME:(MOB:3)% -"
	PRINTFORMW 「那我就去运动部看看，睦月酱只需打听新校舍的情况就好了」

	CALL PRINT_MAIDFACE, MOB:2
	CALL PRINT_STRL, @"_黄色_- %CALLNAME:(MOB:2)% -"
	PRINTFORMW 「谢谢你，真是帮大忙了。那么下周再见……可以吗？」

	CALL PRINT_MAIDFACE, MOB:1
	CALL PRINT_STRL, @"_黄色_- %CALLNAME:(MOB:1)% -"
	PRINTFORMW 「……没问题」

	CALL PRINT_MAIDFACE, MOB:0
	CALL PRINT_STRL, @"_黄色_- %CALLNAME:(MOB:0)% -"
	PRINTFORMW 「那么定期巡回结束。……大家回去的路上注意安全」

	;ここでしっかり路人を消去しておく
	CALL DEL_MOB
CASE "家族公認"
	PRINTFORMW %CALLNAME:PLAYER%は%CALLNAME:TARGET%に連れられて%CALLNAME:TARGET%的家へと向かっていた。
	PRINTFORMW 学園を出てしばらくすると、华丽で上品な一軒家が立ち並ぶ街道に出る。地域でも有名な高級住宅街だ。
	PRINTFORMW %CALLNAME:PLAYER%は――
	CALL PRINT_SELECT, @"特に気にせず歩いた/おっかな惊嚇歩いた/%CALLNAME:TARGET%の手を取りながら歩いた"
	SELECTCASE RESULT
	CASE 0
		PRINTFORMW %CALLNAME:PLAYER%は特に気にした様子もなく、%CALLNAME:TARGET%の横を歩く。
	CASE 1
		PRINTFORMW %CALLNAME:PLAYER%は街道を歩く老婆やふとした植物が明らかに高そうなことに戦々恐々とし的同时、%CALLNAME:TARGET%の後ろをついて歩く。
	CASE 2
		PRINTFORMW %CALLNAME:PLAYER%は%CALLNAME:TARGET%の横に立つと、その小小的手を取った。
		PRINTFORMW いきなりの事で恥ずかしいのか、%CALLNAME:TARGET%が顔を真っ赤にしながらペースを速める。
	ENDSELECT
	PRINTFORMW そうやってしばらく歩いた所で、%CALLNAME:TARGET%がふと歩みを止める。
	PRINTFORMW 彼に合わせて顔を上げると、そこには落ち着いた雰囲気の洋館があった。
	PRINTFORMW 尺寸は周囲の住宅とさほど変わりないが、ここは高級住宅街。一般的なそれと比べるとやはり大きいものである。
	PRINTFORMW 「着きました。ここが%CNAME("一人称")%的家です」
	PRINTFORMW %CALLNAME:TARGET%が手慣れた様子でポケットから取り出した鍵を押すと、金属で出来た門が慢慢地開き始めた……。
	PRINTFORML
	PRINTFORML
	PRINTFORML
	DRAWLINE
	PRINTFORML
	PRINTFORML
	PRINTFORML
	PRINTFORMW 『君が%NAME:MASTER%君だね。話には聞いているよ』
	PRINTFORMW 第一印象に違わぬ邸宅の内装を眺めながらリビングと思わしき場所にたどり着くと、一人の少年が%CALLNAME:MASTER%に話し掛けてきた。
	;CALL PRINT_MAIDFACE, MOB:0
	IF CNUM("诺伊")
		ACTOR = CNUM("诺伊")
		PRINTFORMW 銀色に輝く髪や白色肌など、どことなく%CALLNAME:ACTOR%を思わせる風貌であるが、周囲に放たれるやわらかな雰囲気はむしろ%CALLNAME:TARGET%を思わせた。
	ELSE
		PRINTFORMW 銀色に輝く髪や白色肌など、どこか人类出口した容貌を持つ彼だが、金色の目とやわらかな雰囲気は%CALLNAME:TARGET%そっくりだった。
	ENDIF
	CALL PRINT_MAIDFACE, MOB:0
	PRINTFORMW 『私は%CALLNAME:TARGET%の父だ。見た目がこれだから勘違いされやすいんだけど、一応それなりに長く生きていてね……%CALLNAME:TARGET%と仲良くしてくれて有がとう』
	PRINTFORMW なるほどこの立ち振る舞いなら%CALLNAME:TARGET%がこう育つわけだ、と父親を名乗る少年の言葉を聞いて合点する。
	PRINTFORMW 恐らくは彼も堕天使なのだろう。ともすれば%CALLNAME:TARGET%の弟だと言われても納得のいく外見とは裏腹に、その所作はむしろ落ち着いた老爺のそれのようであった。
	PRINTFORML 『なるほど、此奴が%CALLNAME:TARGET%が連れてきた――』
	IF TALENT:MASTER:男性
		IF AGE(PLAYER) == 1
			PRINTFORML 『……って本当に年上なの？　なんなら我たちより下っぽいんだけど――』
		ELSEIF TALENT:MASTER:謎之魅力
			PRINTFORML 『へぇー、思ったよりイケメンじゃん』
		ELSE
			PRINTFORML 『うわ、エロいことばっか考えてそうな顔――』
		ENDIF
	ELSE
		PRINTFORML 『へぇー、結構可爱じゃん』
	ENDIF
	PRINTFORMW 『%CALLNAME:TARGET%もそういった年頃なのね……』
	PRINTFORMW 父親の声を聞きつけたのか、リビングの奥の方から３人が一斉に姿を現す。
	PRINTFORMW 皆肌や瞳色などが違うが、確かに%CALLNAME:TARGET%にどこか似た風貌をしていた。
	IF COND("周日日")
		PRINTFORMW 「今日はみんな家にいたんだね」
	ELSE
		PRINTFORMW 「あれ、今日はみんないたんだ」
	ENDIF
	PRINTFORMW この事態は嬉しい誤算だったようで、%CALLNAME:TARGET%の声が弾んだように響く。
	PRINTFORMW 『あんなにも初心だった%CALLNAME:TARGET%が恋人を連れて来るのですもの、興味があるに決まっているでは有ませんか』
	PRINTFORMW 「そ、そうかな……？」
	PRINTFORMW 『まあねー、欧尼酱ってヘンなのに引っかかったりしそうだし』
	PRINTFORMW 「さ、流石にそんなことはないよ！」
	PRINTFORM 「本当？　去年
	SELECTCASE TRUE_SEX(MASTER)
	CASE "男性"
		PRINTFORM 変態そうな哥哥に
	CASE "女性"
		PRINTFORM ヤバそうな表情した大姐姐に
	CASE "扶她"
		PRINTFORM 胯股之间が贴阴内裤した大姐姐に
	ENDSELECT
	PRINTFORMW ナンパされておろおろしてたのは誰だったっけ？」
	PRINTFORMW 「う……ま、まあ、そういうこともあったけどさ……」
	PRINTFORMW 黒髪の少女が眉を上げながら%CALLNAME:TARGET%を詰問する。
	PRINTFORMW 前髪を轻轻地結わえたその姿は、黑色眼を除けばほとんどそっくりだ。
	PRINTFORMW しかしそのずけずけと物を言う姿勢は、%CALLNAME:TARGET%とはまったく似ていなかった。
	PRINTFORMW 『……ああ、我は%CALLNAME:TARGET%の妹。ま、こういう恋愛沙汰については欧尼酱よりよーっぽど知ってるつもりだけどね』
	PRINTFORMW 「そ、そんなこと！　……ない、とは言い切れないけど……」
	PRINTFORMW 『そうでしょー？　まったく、そんなんだから綺麗な見た目してんのに高等部まで童貞だったんでしょー』
	IF TALENT:童貞 == 0
		PRINTFORMW ……今は童貞ではない、と言うのは野暮だろう。
	ELSEIF TALENT:縦深菊穴
		PRINTFORMW ……肛門の経験は豊富だ、と言うのは野暮だろう。
	ELSE
		PRINTFORMW 完全に掌の上、といった様子だ。
	ENDIF
	PRINTFORMW 「……そ、それで！」
	PRINTFORMW 耐えきれなくなったのか、%CALLNAME:TARGET%が話を元に戻そうとする。
	PRINTFORMW 妹からの質問がよほど恥ずかしかったのか、その頬は真っ赤に染まっていた。
	PRINTFORMW 「%CNAME("一人称")%、この人と付き合うこと变成了から、みんなに紹介しようと思って……」
	PRINTFORMW 『いや、結婚するんじゃないんだから』
	PRINTFORMW 「でもそれじゃあ嘘ついているみたいだし……」
	PRINTFORMW 『……まったく、欧尼酱ったら』
	PRINTFORMW 『ふふ、%CALLNAME:TARGET%正在认真地读着标题为こういう子だからね』
	PRINTFORMW %CALLNAME:TARGET%の父が愛おしそうに微笑む。
	PRINTFORMW 『さて、%NAME:MASTER%君。僕たちは君のことを歓迎するよ』
	PRINTFORMW 『%CALLNAME:TARGET%がこれだけ大事に思っているということは君も相当大切にしてくれたのだろうからね。これからも良くしてくれ』
	PRINTFORMW そうして、%CALLNAME:TARGET%的家族との会話は穏やかに終わったのだった……。
	PRINTL
	PRINTL
	PRINTL
	CALL PRINT_STRW, @"_黄色_约会で%CALLNAME:TARGET%的家にお邪魔することができるよう成为了！"
ENDSELECT

;特定の角色との掛け合いを書いていく場所
;現状灯君のみの想定だが、一応拡張可能にしておく
;千紗酱から影響を受けた書き方もしております
@RELATION_EVENT_K25, ARG
#DIMS TNAME
#DIM MOB
#DIMS BUNKI

TNAME = %CALLNAME:ARG%
SELECTCASE TNAME
; CASE "灯"
; 	PRINTFORMW 这是放学后的日常
; 	PRINTFORMW 自从加入同一个社团后变得非常亲密的%CALLNAME:TARGET%和%CALLNAME:ARG%像往常一样没完没了地闲聊着
; 	PRINTFORMW 起初难以把握彼此距离感的%CALLNAME:TARGET%和%CALLNAME:ARG%，该说是物以类聚，还是因为正相反而意气相投呢
; 	PRINTFORMW \@DAY <= 30 ? 经过 # 一番周折后，两人成为了可以称之为\@挚友的関系，就这样两人一边吃着零食一边谈论彼此的日常
; 	PRINTFORMW 现在的话题似乎围绕着变成女性的%CALLNAME:ARG%展開
; 	PRINTFORMW 「说起来，%CNAME(TNAME)%，你变成了女孩子对吧？」
; 	PRINTFORMW 『是呢』
; 	PRINTFORMW 「那，在家里你穿什么衣服？」
; 	PRINTFORMW 『我还是穿以前的衣服』
; 	PRINTFORMW 「诶！？ 那可不行！ 我们一起去买衣服吧！」
; 	PRINTFORMW 『哈！！？ 不、不行，对%CNAMET(ARG, "乃々")%也不好……』
; 	PRINTFORMW 「没関系的啦，%CNAME("一人称")%也可以买自己喜欢的衣服」
; 	PRINTFORMW 「……好，我们走吧！ %CNAME(TNAME)%！」
; 	PRINTFORMW 『不、等等……！？ 谁、谁都好！救救我啊啊啊啊…………』
; 	PRINTFORMW 异常兴奋的%CALLNAME:TARGET%拽着%CALLNAME:ARG%离開了部室……
; 	PRINTFORML
; 	PRINTFORML
; 	PRINTFORMW 过了一会儿，心情异常愉悦的%CALLNAME:TARGET%和一脸疲惫的%CALLNAME:ARG%回来了
; 	PRINTFORMW 「嘿嘿、怎么样？」
; 	PRINTFORMW 『不是，衣服很好，但是不用买那么贵的吧？』
; 	PRINTFORMW 「那可是%CNAME(TNAME)%的衣服哟？ 当然是不想妥协啊」
; 	PRINTFORMW 『你能这么说我很感激……』
; 	PRINTFORMW 无视不断抗议的%CALLNAME:ARG%，%CALLNAME:TARGET%把手伸进了拿着的袋子里
; 	PRINTFORMW 几秒钟后，从袋子里拿出了一件宽松的深蓝色紧身高袍和休闲裤
; 	PRINTFORMW 两者都是上等货，不仅如此，还可以用作居家服或便装
; 	CALL PRINT_STRW, @"「那么，再试穿一次吧，%CNAME(TNAME)%_H_」"
; 	PRINTFORMW %CALLNAME:ARG%眼含泪水地走近满脸笑容的%CALLNAME:TARGET%的同时、用目光向%CALLNAME:MASTER%求救
; 	PRINTFORMW %CALLNAME:MASTER%默默地将%CALLNAME:ARG%倒剪双臂、就这样把她带到部室内的更衣室……
; 	PRINTFORMW
; 	PRINTFORMW
; 	PRINTFORMW 「果然！ 非常合适%CNAME(TNAME)%！」
; 	PRINTFORMW 『是、是吗……？』
; 	PRINTFORMW 从更衣室里传来%CALLNAME:TARGET%夸奖%CALLNAME:ARG%的声音
; 	PRINTFORMW %CALLNAME:ARG%的声音虽然因紧张而颤抖，但似乎并不讨厌
; 	PRINTFORMW 「好！ 就这样让%CNAME("二人称")%也看看吧！」
; 	IF TALENT:ARG:恋慕
; 		PRINTFORMW 『哈！？ 我、我还没做好心理准备……哦哇啊！！』
; 	ELSE
; 		PRINTFORMW 『不，为什么那里会有%CNAMET(ARG, "二人称")%的名字……哦哇！！』
; 	ENDIF
; 	PRINTFORMW %CALLNAME:TARGET%拉着%CALLNAME:ARG%回到了部室
; 	PRINTFORMW 紧身高袍强调了\@TALENT:ARG:巨乳 ? %CALLNAME:ARG%的胸部、给人的印象是 # 掩盖着体型%CALLNAME:ARG%\@的惠美看起来有些忧郁，和平时活泼的样子不一样
; 	PRINTFORMW 『那……那个……』
; 	PRINTFORMW 『……合适吗？』
; 	CALL PRINT_STRW, "合适吗"
; 	PRINTFORML
; 	PRINTFORMW ――啊，很适合你
; 	PRINTFORMW %CALLNAME:MASTER%这样回答后，『当、当然啦？』满怀自信地说、并满足了什么似的挺起胸膛……
; 	CALL SET_CEVENT, "灯服買った"
; 	CALL SET_CEVENT, "灯服買った", ARG
CASE "宮本朝陽"
	;生徒会長がTSするイベント
	PRINTFORMW 某天、%CALLNAME:TARGET%和%TNAME%一起进行着对旧校舍的巡视。
	PRINTFORMW 数十年ほど前に放棄されたコン阴蒂ート製の四角い建物は、草丛の多さや電気を止められているがゆえの薄暗さもあってか、不良のたまり場となっていた。
	IF CNUM("琉娜")
		PRINTFORMW それだけではなく、かつては暴行などの問題がここで人知れず行われる、という事も片刻后ば起きていた。
		PRINTFORMW %CALLNAME:CNUM("琉娜")%が入学してからはそういった問題もなくなったのだが、だからといって今後も問題が起きないとは限らないし、そもそも%CALLNAME:CNUM("琉娜")%を畏れている生徒も少なくない。
		PRINTFORMW そういった事情も有、現在でも生徒会や風紀委員などが定期的に見回りを行っているのだ。
	ELSE
		PRINTFORMW ただ不良がたむろしているだけであれば問題なかったのだが、時折ここで暴行などの問題行為が行われるということも有、生徒会や風紀委員などが定期的に見回りを行っているのだ。
	ENDIF
	PRINTFORMW 『――よし、ここは大丈夫そうだな』
	PRINTFORMW 「ですね。……有がとうございます。色々と場所を教えてもらっちゃって」
	PRINTFORMW 旧宿直室には何の問題もないことを確認し、二人は次の場所である理科室へと向かう。
	PRINTFORMW 旧校舎はあまり人が来ないからだろう、壁に大号的落書きがされており、相合傘のような微笑ましいものもあれば「○○とここで性交した」などという生々しいものもある。
	PRINTFORMW また老朽化が進んでいるというのもあって、所々の壁や窓ガラスが割れて床に散乱していた。
	PRINTFORMW このまま放置するのも危ないということで、持参しておいた清掃用具で轻轻地床を掃く。
	PRINTFORMW 埃も随分と溜まっていたようで、はじめは白っぽかったリノリウムの床も、掃除が終わるころにはすっかり光沢のある輝きを取り戻していた。
	PRINTFORMW 『にしても、ここらへん本当に何か出そうだよなぁ。心霊スポットじみた扱いも納得だよ』
	PRINTFORMW 「这样啊……」
	PRINTFORMW 二人の背後に立ち尽くすぼんやりとした影を見て、%CALLNAME:TARGET%正在认真地读着标题为朝陽に聞こえないよう小さく嘆息した。
	PRINTFORMW ――生徒会や風紀委員が見回りを行っている理由だが、実のところそれは「不良のたまり場だから」という理由だけではない。
	PRINTFORMW 旧校舎は立地の関係かはたまた人気がすくないからか、学園から追い払われた害をなす魔物であったりその残滓が身を隠すことが片刻后ばあるのだ。
	PRINTFORMW 不良やあるいは犯罪者などの人类相手ならまだしも、超常的な存在を相手にするには何も知らない人类は力不足である。
	PRINTFORMW また人外の教師だけで対応するには学園はあまりに广阔。そういった事情も有、生徒会や風紀委員に見回りを行わせているのであった。
	PRINTFORMW と是えもちろん相手は超常的なもので有、時には命を脅かすものさえ存在する。
	PRINTFORMW 幸い旧校舎は――もともと校舎として使うために術式などが組まれていたということも有――そういった重大な危険を犯すようなものは存在せず、それもまた生徒達に見回りを任せる理由であった。
	PRINTFORMW 二人談笑をしながら無事に見回りは進み、ついに最後の女子更衣室跡に入る。
	PRINTFORMW 先に入った%CALLNAME:TARGET%が背後で光る魔法陣に気づくのと、その光が%TNAME%を飲み込むのはほとんど同時だった。
	PRINTFORMW 「会長！？」
	PRINTFORMW %CALLNAME:TARGET%が走り出すのと時を同じくして、魔法陣の光が止んで%TNAME%が姿を現す。
	PRINTFORMW 今まで大号的被害を及ぼすようなものはなかったと是え、何かしらの影響が出ることは間違いない。
	PRINTFORMW 今すぐ対策できるか見極めなくては――と%CALLNAME:TARGET%が魔法陣の中央で蹲る人影を真剣な表情で睨みつけたまさにその時、
	PRINTFORMW 『あ、あれ……？』
	PRINTFORMW 普段聞き慣れた声よりも少し高い声が、静かな女子更衣室に響く。
	PRINTFORMW 「か、会長……？」
	PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为戸惑った様子で、その人影に話しかけた。
	PRINTFORMW 『ああ。さっき急に辺りが眩しくなって――』
	PRINTFORMW 人影の視線が、更衣室に備え付けられている鏡台へと移る。
	PRINTFORMW そこに座っていたのは――
	CFLAG:会長ＴＳ = 1
	CALL PRINT_MAIDFACE, ARG
	PRINTFORMW 『え、俺……女に、なってる……？』
	PRINTFORMW ――%TNAME%の面影を残す、幼い少女であった。
	PRINTFORML
	PRINTFORML
	PRINTFORML
	CALL CREATE_MOB, "逢坂睦月"
	MOB = CNUM("逢坂睦月")
	CALL EMOTION_PLUS, "交流中", TARGET, MOB
	PRINTFORMW 『――うむ。確かに彼女は%TNAME%だ。どうやら魔法陣の効果で性転換してしまったようだね』
	PRINTFORMW %TNAME%をうまく落ち着かせて保健室へと連れて行った後、二人きりになる%CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MOB%と話し合っていた。
	PRINTFORMW 「本当にすみません……%CNAME("一人称")%がふがいないばかりに……」
	PRINTFORMW 『いいや、これは流石に予想外だよ。まさか微かに残っていた魔力の残滓が溜まって奇跡的に魔法陣を生成するとはね……』
	PRINTFORMW %TNAME%の体調を確認した結果はこうだった。
	PRINTFORMW ・身体的には完全な女性となっており、性転換による異常などもない
	PRINTFORMW ・精神は男性のころのままで有、魂も含めて同一のものである
	PRINTFORMW ・魔力に抵抗のある人外を除いて全生徒が精神的な改変を受けており、元々女性であったと認識されている
	PRINTFORMW ・性転換の術式は非常に強力で、解呪をすることは大変難しい
	PRINTFORMW 『まあ、彼女も心から嫌悪している訳ではなさそうだし、そこまで重く捉える必要はないんじゃないかな』
	PRINTFORMW 「是这様吗ね……」
	PRINTFORMW 大丈夫なのかと心配し的同时、%CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MOB%から勧められた緑茶を飲むのだった……。
CASE "逢坂睦月"
	PRINTFORMW ある日、生徒会の仕事を済ませた%CALLNAME:TARGET%正在认真地读着标题为%TNAME%と共に茶を飲んでいた。通常の生徒会の後、人外の生徒達について話し合うために別の会議を行っているのだが、そちらも恙なく終了したのである。
	PRINTFORMW 茶は普段二人の好みに合わせてローテーションをすることに決めていて、今回は%TNAME%の好みである甘露の日であった。
	PRINTFORMW 「これ美味しいですね。どこの茶なんだろう……」
	PRINTFORMW 『それは嬉しいね。たまたま隣町に向かう用事があって、そちらで見つけた茶屋に売ってあったものなんだ。少し博打だったのだけれど……うん、中々良いね』
	PRINTFORMW しばらくの間、茶を啜る音だけが生徒会室に響き渡る。
	PRINTFORMW 『……そういえば、あの部室ではどうしているんだい？』
	PRINTFORMW 「え、皆桑しっかりと――」
	PRINTFORMW 『濃厚に性交していると？』
	PRINTFORMW 次の瞬間、%CALLNAME:TARGET%の顔が真っ赤に染圆圈。
	PRINTFORMW 「ば、バレてたんですか……？」
	PRINTFORMW 『まあある程度はね。初めて聞いた時はずいぶんと面白色部活が産まれたと思ったものだよ』
	PRINTFORMW それはそうとして、と%TNAME%が%CALLNAME:TARGET%に近づく。
	PRINTFORMW 『せっかくだし、私ともしてみないかい？』
	PRINTFORMW %TNAME%が%CALLNAME:TARGET%の勃起的阴茎を撫でる。
	PRINTFORMW 欲求不満に陥っていた%CALLNAME:TARGET%正在认真地读着标题为、彼女の提案に為すすべなく頷いたのだった……。
	PRINTL
	PRINTL
	PRINTL
	CALL PRINT_STRW, @"「あっ_H_あんっ_H_」"
	PRINTFORMW 『ほら、もっと腰を動かさないと……よし、良い子だね』
	PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为%TNAME%の上に乗り、一心不乱に腰を振っていた。
	PRINTFORMW %CALLNAME:TARGET%の口からは絶え間なく喘ぎ声が漏れ、一方の%TNAME%は余裕の表情で彼の頭を撫でている。
	CALL PRINT_STRW, @"『ふふ_H_いつもはあんな顔してるのに、エッチした途端に情けない顔しちゃって……可爱ねぇ……』"
	CALL PRINT_STRW, @"「か、可爱って……あぁっ_H_」"
	PRINTFORMW %TNAME%が膣を締め付けたのだろう、陰茎に突然大号的快感が走着%CALLNAME:TARGET%正在认真地读着标题为、情けない声をあげながらあっけなく射精した。
	PRINTFORMW %TNAME%は己が胎内に注がれる精液の熱さを味わいながら腰を動かし、%CALLNAME:TARGET%の手をその乳房へと触れさせる。
	PRINTFORMW 小さいながらも女性らしい柔らかみのある乳房は、%CALLNAME:TARGET%の手に圆圈で吸い付くように嵌り込んだ。
	CALL PRINT_STRW, @"「あっ_H_やわらか……あぁっ_H_おまんこキュゥってしないでぇっ_H_」"
	PRINTFORMW 『へぇ？　本当に嫌なのかい？　それなら――』
	PRINTFORMW %TNAME%が容赦なく律動を再会する。
	PRINTFORMW 二人が動きを止める頃には、窓の外の景色はすっかり傍晚になっていたのだった……。
CASE "神崎万梨阿"
	PRINTFORMW ある日、%CALLNAME:TARGET%正在认真地读着标题为%TNAME%のラボに向かっていた。
	PRINTFORMW 地下にある物置の一つを万梨阿が借り、利用しているものだ。
	PRINTFORMW 本来は無茶な相談ではあるものの、当時既に様々な発明や研究で名声をあげていたというのも有、学園との交渉は存外スムーズなものだったそうだ。
	PRINTFORMW それはさておき、%CALLNAME:TARGET%がラボへと向かっている理由はひとつ、検査である。
	PRINTFORMW その優れた観察力で%CALLNAME:TARGET%が人外であると見抜いた%TNAME%は、このように%CALLNAME:TARGET%の体を検査させてほしいと提案してきたのだ。
	PRINTFORMW 『……来てくれて感謝する』
	PRINTFORMW ラボの主、%TNAME%がいつも街道顔をうつむけながら小さく呟く。
	PRINTFORMW 地下にあるがゆえにあまり空気の循環が良くないラボ内は、それの対策や他の実験、さらに電源の供給に自動発電機など、様々な用途の機械がみっちりと詰め込まれていた。
	PRINTFORMW 「いえいえ、ところで今日は何をすればいいんですか？」
	PRINTFORMW %CALLNAME:TARGET%の質問に、%TNAME%は表情を崩さず答える。
	PRINTFORMW 『性的な快感について調査させて欲しい』
	PRINTFORMW 「……へ？　え、ええと、今何を……？」
	PRINTFORMW 『性的な快感について調査させて欲しい』
	PRINTFORMW 「……その、理由を教えてもらってもいいですか？」
	PRINTFORMW 『今までの実験で%CALLNAME:TARGET%君はどちらかと言えば無機物に近いような存在だということが判明した』
	PRINTFORMW 『しかし生物として動いている以上、生殖などの繁殖のシステムを持っていると考えた方が自然』
	PRINTFORMW 『と是え生命は長命であるほど繁殖までの期間が短いことが多い』
	PRINTFORMW 『こういった仮説を実証するために、まずは%CALLNAME:TARGET%君から样本を取り出したい』
	PRINTFORMW 「いやいやいや！？　いくらなんでもそれはダメですよ！！！」
	PRINTFORMW 「いくら万梨阿桑の頼みと是え、そんな恥ずかしい行為を――」
	PRINTFORMW 『……本当に駄目なのか？』
	PRINTFORMW 「う…………」
	PRINTFORMW 「…………我明白了。お付き合いします…………」
	PRINTFORML
	PRINTFORML
	PRINTFORML
	CALL PRINT_STRW, @"「%AEGI(TARGET, "要", "通常", 3)%」"
	PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为全裸で検査室へと入れられ、椅子の周囲から伸びる触手のようなアームを用いて「検査」されていた。
	PRINTFORMW まず初めに、胸罩シ型のアームが%CALLNAME:TARGET%の乳頭を擦る。
	PRINTFORMW 付け根からは催淫作用のある潤滑液が出ており、%CALLNAME:TARGET%正在认真地读着标题为胸の快感と甜しびれに身を悶えさせた。
	PRINTFORMW アームが乳頭を嬲る最中、今度は罩杯型の尖端を付けたアームが%CALLNAME:TARGET%の下腹部へと近づいていった。
	PRINTFORMW 表面は透明なプラスチックで出来ているものの、周囲や内部はシリコンのような物質で覆われており、怪我を不会う注意を図られていることが窺える。
	PRINTFORMW そしてそのアームは%CALLNAME:TARGET%の阴茎へと近づくと、このように一気に飲み込んでしまった。
	PRINTFORMW 『ふむ、このサイズで十分か』
	PRINTFORMW %TNAME%はそう呟くと、手元のタッチパッドに映っている青いバーを上へと上げる。すると罩杯の内部の空気が一気に抜け、%CALLNAME:TARGET%の震える阴茎へと一気に吸い付いてきた。
	CALL PRINT_STRW, @"「あぁっ_H_そこっ_H_急に吸ったりしないでぇっ_H_」"
	PRINTFORMW %CALLNAME:TARGET%が必死に静止の声を上げるが、機械は淡々と一連の動きを反復する。
	PRINTFORMW 『そろそろ使用しても問題ないだろう』
	PRINTFORMW %TNAME%がタブレットを押すと、今まで動いていなかった最後のアームが慢慢地起動する。
	PRINTFORMW それの尖端は三角形をしており、尖端は滑らかな曲線を描いている。しかしところどころにこぶのようなものが浮いており、さながら肛塞と肛門拉珠を足して二で割ったような姿だ。
	PRINTFORMW アームは案の定というべきか、%CALLNAME:TARGET%の尻へと近づき、充分潤滑液を添付しながら慢慢地内部へ侵入していく。
	CALL PRINT_STRW, @"「お゛ぉっ！？！？！？！？！？」"
	PRINTFORMW 「鎮痛効果もしっかり効いている」
	PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为肛門を襲う強烈な快感に、困惑と快楽の混じった嬌声をあげた。
	PRINTFORMW 挿入されたアームは内部で微弱に振動し的同时、ゆるゆると前後に動き始める。
	PRINTFORMW ごつごつとした表面が肛門の弱い部分を的確に刺激し、%CALLNAME:TARGET%正在认真地读着标题为その度に鼻にかかったような喘ぎ声をあげた。
	PRINTFORMW 「快感の感受性は人類と同様か」
	PRINTFORMW 別室で%CALLNAME:TARGET%を観察する%TNAME%の目の前には大号的モニターが置かれており、そこには%CALLNAME:TARGET%が感じた刺激が事細かにデータ化されている。
	PRINTFORMW その数値を冷静に見ていた%TNAME%は、とあるデータの動きを見つけるとマイクを近づけた。
	PRINTFORMW 『このまま最大出力で動かす。このように絶頂すれば検査終了だ』
	PRINTFORMW そう言うなり手元にあるタブレットをタッチし、数値を全てマックスまで上げる。
	CALL PRINT_STRW, @"「お゛_H_おぉ゛っ_H_イクッ_H_イっちゃうっ_H_」"
	PRINTFORMW 急激に上がった速度に翻弄され、%CALLNAME:TARGET%正在认真地读着标题为身体を思い切りしならせてあっけなく射精した。
	PRINTFORMW 精液はアームを通じて部屋の隅の容器の中へと注がれ、モニターに具体的な数値が表示される。その数値を見た%TNAME%は満足そうに頷いた。
	PRINTFORMW 慢慢地機械が止まり、%CALLNAME:TARGET%の身体は検査用の椅子へと座らされる。
	PRINTFORMW 採取した精液の情報を興味深そうに眺め的同时、%TNAME%は席をたつのだった。
	PRINTFORML
	PRINTFORML
	PRINTFORML
	PRINTFORMW 『お陰で興味深い样本が採取出来た。感謝する』
	CALL PRINT_STRW, @"「は、是……_H_」"
	PRINTFORMW 先ほどの「検査」で疲労している%CALLNAME:TARGET%に、謝礼だと%TNAME%が小小的箱を渡す。
	PRINTFORMW 『今回の検査で作った飛機杯だ。興味が有れば使ってみるといい』
	PRINTFORMW 「い、いや！　大丈夫ですから！」
	PRINTFORMW 『心配しなくていい、安全性には気を使っているから』
	PRINTFORMW %CALLNAME:TARGET%の抗議も何のそのといった様子で、%CALLNAME:TARGET%正在认真地读着标题为飛機杯を持ったままラボから出されてしまう。
	PRINTFORMW いよいよ観念した%CALLNAME:TARGET%正在认真地读着标题为、このように部室へと歩いていくのだった……。
CASE "神崎恵美"
	PRINTFORMW とある日の傍晚、授業が終わり、部活がぽつぽつと始まろうとする頃のこと。
	PRINTFORMW 生徒会を終えた%CALLNAME:TARGET%正在认真地读着标题为、归途で忘れ物の存在に気づいて来た道を戻っていた。
	PRINTFORMW ――急いでいた彼は、他生徒が生徒会室をそれとなく避けていることも、壁越しに嬌声が聞こえることも気づかない。
	PRINTFORMW 「すみません！　忘れものを――」
	PRINTFORMW %CALLNAME:TARGET%が勢いよく扉を開ける。
	PRINTFORM そこにあったのは、
	IF RAND:2 && TALENT:Ａ処女 == 0
		PRINTFORM 休闲褲と胖次を直到脚腕下げ
		PRINTDATA
			DATA 未知の快楽に戸惑う初等部
			DATA 初めての実体験に夢中な中等部
			DATA 柔らかな女体に興奮を隠し切れない高等部
			DATA 年下との行為に荒い息を吐く研究生
		ENDDATA
		PRINTFORMW の男子学園生と、彼に跨って裙の間から白く濁った液体を零しながら蕩けた表情を曝け出す%TNAME%の姿だった。
		BUNKI = "男男女"
	ELSE
		PRINTFORM その肌を惜しげもなくさらけ出し
		PRINTDATA
			DATA 噂にのみ聞いていた快楽に戸惑う初等部
			DATA 初めての経験が女性同士という事実に酔う中等部
			DATA 己とは違う性に慣れた身体に興奮を隠し切れない高等部
			DATA 年下とのレズ性交に翻弄される研究生
		ENDDATA
		PRINTFORMW の女子学園生と、彼女の肌を官能的に舐め回しながら互相用女陰をいやらしい音を鳴らしながら擦り合わせる%TNAME%の姿だった。
		BUNKI = "男女女"
	ENDIF
	PRINTFORMW 「――え、え！？」
	PRINTFORMW 目の前に突然現われた痴態を見て、%CALLNAME:TARGET%正在认真地读着标题为思わず困惑の声を给。
	PRINTFORMW その声で来訪者の存在に気づいた%TNAME%は、襲い掛かる快楽に息も絶え絶えな学園生を愛おしそうに撫でながら%CALLNAME:TARGET%に笑いかけた。
	PRINTFORMW 「な、何をしてるんですか……？！」
	PRINTFORMW 『何って、そりゃあ――』
	IF BUNKI == "男男女"
		PRINTFORMW 言いかけて%TNAME%はニ、三度動起腰身。
		PRINTFORMW 突然の陰茎への快楽に、学園生は情けない声をあげて射精した。
	ELSE
		PRINTFORMW 言いかけて%TNAME%は学園生の形の新鲜的な乳頭を摘まむ。
		PRINTFORMW 突如として乳頭を襲う快楽に、学園生は大きくあっけなく達した。
	ENDIF
	CALL PRINT_STRW, @"『ほら、性交に決まってんじゃん_H_』"
	PRINTFORMW 「い、いや、それはわかってますけど、いくら何でもこんな場所でするのは……」
	PRINTFORMW 『えー、でも%CALLNAME:TARGET%君だって興奮してんじゃん』
	PRINTFORMW いつの間にか近づいていた%TNAME%が、\@CEVENT("男装") ? 休闲褲越しに # 裙を膨らませながら\@存在を主張する阴茎に指を這わす。
	CALL PRINT_STRW, @"「はぅ……_H_」"
	PRINTFORMW 『ほら、%CALLNAME:TARGET%君、実は溜まってるんでしょ？　我慢しっ放しっていうのも悪いし――』
	CALL PRINT_STRW, @"『――一緒に悪いコトしちゃお_H_』"
	PRINTFORMW ゴ阴蒂と唾を飲み込む音が、生徒会室に響いた。
	PRINTFORML
	PRINTFORML
	PRINTFORML
	CALL PRINT_STRW, @"「あっ_H_あっ_H_ああっ_H_」"
	IF BUNKI == "男男女"
		PRINTFORMW 前後から襲い掛かる容赦のない快楽に、%CALLNAME:TARGET%正在认真地读着标题为情けない矯正をあげ続けていた。
		PRINTFORMW その阴茎は%TNAME%の経験豊富で黒ずんだ女陰に飲み込まれ、尻穴は男子生徒の先ほどまで%TNAME%に挿っていた阴茎で容赦なく貫かれている。
		PRINTFORMW %TNAME%は翻弄される%CALLNAME:TARGET%を愛おしそうに眺め的同时、ヴァギナで%CALLNAME:TARGET%の精を搾り取ろうと試みていた。
		CALL PRINT_STRW, @"「あぁっ_H_急にキュンってしないでぇ_H_」"
		CALL PRINT_STRW, @"『えー？　でもこうしないと%CALLNAME:TARGET%君、我に挿れてるってこと忘れちゃいそうだしなー_H_』"
		PRINTFORMW えいっ、と掛け声をあげて、%TNAME%が%CALLNAME:TARGET%の乳頭に吸い付く。
		PRINTFORMW 新しく加わった乳頭からの刺激に抗議しようとするも、%CALLNAME:TARGET%の口から漏れ出るのは喘ぎ声ばかりであった。
		CALL PRINT_STRW, @"「あんっ_H_あぁっ_H_あ゛ぁっ_H_」"
		CALL PRINT_STRW, @"「フフ、轻轻地アヘ顔しちゃってたりしてかーわいー_H_……もっともっとしてほしいし、もっともっと責めちゃおっか_H_」"
		PRINTFORMW その宣言と共に、二人の腰の動きが一段と速くなる。
		PRINTFORMW 容赦のない二人の責めに%CALLNAME:TARGET%正在认真地读着标题为なすすべもなく、ただ蕩けた表情を晒して喘ぐことしか出来なくなっていた。
		PRINTFORMW ――しばらくして、菊花に精液が注ぎ込まれる感触を覚える。
		PRINTFORMW それを合図としたかのように%CALLNAME:TARGET%の身体が大きく跳ねると、このように勢いよく精液を%TNAME%の子宮へと叩きつけるのだった。
		CALL PRINT_STRW, @"『すご……_H_とっても濃厚でたっぷりの精液……_H_こんなの出されたらすぐ受精しちゃうよ_H_』"
		PRINTFORMW 恍惚とした表情をしていた%TNAME%だったが、%CALLNAME:TARGET%の首筋へと腕を回すとこのように彼の頬に接吻を落とす。
		CALL PRINT_STRW, @"『――せっかくだし、受精しちゃうまでエッチしよっか_H_』"
	ELSE
		PRINTFORMW 学園生の膣がもたらす絶妙なもどかしさに%CALLNAME:TARGET%正在认真地读着标题为甜声を漏らす。
		PRINTFORMW %TNAME%はその様子を眺めて自慰をし的同时、%CALLNAME:TARGET%の菊花へと真っ赤な舌を挿入していた。
		CALL PRINT_STRW, @"「あっ_H_そこっ_H_ダメぇっ_H_」"
		PRINTFORMW 『えー？　でも%CALLNAME:TARGET%君のお尻はもっとしてほしいって喜んでるよ？』
		IF ABL:Ａ感覚 >= 3
			CALL PRINT_STRW, @"『お尻に挿れられるのも慣れてる感じがするし、%CALLNAME:TARGET%ってやっぱり女の子だったんだね_H_』"
		ELSE
			CALL PRINT_STRW, @"『お尻の経験少なそうなのにエッチな声だしちゃってるし、%CALLNAME:TARGET%って、ホントは女の子なんだね_H_』"
		ENDIF
		CALL PRINT_STRW, @"「ひゃぁっ_H_そんなことぉっ_H_」"
		PRINTFORMW 『ほら、腰が止まってるよ？　ホントに男の子ならもっとリードして不给と』
		PRINTFORMW などと言いながらも%TNAME%は舌の動きを止めようともしない。
		PRINTFORMW %CALLNAME:TARGET%が翻弄されている間にもどかしくなったのか、女性生徒がおのずからゆるゆると腰を動かし始める。
		PRINTFORMW 前のゆるゆると、しかし絶妙に弱い部分を突いてくる刺激と、後ろの適切に弱点を狙ってくる刺激。
		PRINTFORMW 両方からの刺激に限界を迎えた%CALLNAME:TARGET%正在认真地读着标题为、このようにあっけなく精液を漏らすのだった。
		CALL PRINT_STRW, @"「はぁ……_H_はぁーっ……_H_」"
		PRINTFORMW 小さく萎びた阴茎がヴァギナからずるりと引き抜かれる。
		PRINTFORMW それを好色な眼差しで見つめていた%TNAME%は、背後から抱き着いてゆるゆると%CALLNAME:TARGET%の陰茎をしごくと、赤く染まった耳にこう囁いた。
		CALL PRINT_STRW, @"『３人のレズ性交、もっといっぱいシちゃおっか_H_』"
	ENDIF
	PRINTFORMW ――饗宴はまだ終わらない。
ENDSELECT

;乃々君の口上内で起こる路人エッチを記入するとかいう謎の命令
;現状は乃々君両親のエッチだけに限定する予定
@EVENT_MOB_SEX_K25, ARGS

IF ARGS == ""
	CALL PRINT_STRW, @"黄色_注意！　不明な入力が発生しています！"
	CALL PRINT_STRW, @"黄色_PLAY中に発生した場合は掲示板、またはdiscordでの報告をお願いします！"
	RETURN 0
ENDIF

SELECTCASE ARGS
CASE "両親間エッチ"
	SELECTCASE RAND:5
	CASE 0
		CALL PRINT_STRW, @"「%PANT()%」"
		CALL PRINT_STRW, @"「フフ_H_こんなに淫らな顔をしてしまって可爱ですね_H_」"
		CALL PRINT_STRW, @"「んっ……_H_私も思わず湿的てしまいます_H_」"
	CASE 1
		CALL PRINT_STRW, @"「你っ_H_激しいっ_H_」"
		CALL PRINT_STRW, @"「%PANT()%」"
	CASE 2
		PRINTFORMW 「おや、陰茎をこんなにもはしたなくして……」
		CALL PRINT_STRW, @"「ふふ、「元」と是え天使だというのに、みっともない_H_」"
	CASE 3
		CALL PRINT_STRW, @"「そ、そこは……あっ_H_」"
	CASE 4
		CALL PRINT_STRW, @"「そ、そんな締め付けらたら……あっ_H_」"
	ENDSELECT
CASEELSE
	CALL PRINT_STRW, @"黄色_注意！　イベントの定義がなされていません！"
	CALL PRINT_STRW, @"黄色_PLAY中に発生した場合は掲示板、またはdiscordでの報告をお願いします！"
ENDSELECT

@QUESTION_ART

PRINTFORMW 「你想问什么？」
CALL PRINT_SELECT, "大致内容/推荐的现代艺术家/告诉我関于这个/喜欢的同人作家是？", "没什么"

SELECTCASE RESULT
CASE 0
	CALL ANSWER_ART, "概要"
CASE 1
	CALL ANSWER_ART, "初心者向け"
CASE 2
	CALL ANSWER_ART, "詳細"
CASE 3
	CALL ANSWER_ART, "同人"
CASE 100
	PRINTFORMW 「啊、没问题吗？」
	PRINTFORMW 「那就好。如果有不懂的地方，可以随时问我」
	PRINTFORMW 「只要在%CNAME("一人称")%知道的范围内，一定知无不言」
ENDSELECT

@ANSWER_ART, ARGS

SELECTCASE ARGS
CASE "概要"
	PRINTFORMW 「嗯……你是想了解大致的内容吗……」
	PRINTFORMW 「即使是简单地说，仅仅谈论现代艺术，或者在一定程度上谈论为什么会这样发展，也会有很大的不同……」
	PRINTFORMW 「你听要哪种呢？」
	CALL PRINT_SELECT, "粗略地说/详细地说"

	PRINTFORMW 「……好的，我知道了」
	PRINTFORMW 「这只是%CNAME("一人称")%个人的想法……」
	PRINTFORMW 「虽说都是现代艺术，但関于『从哪里開始算作现代艺术』这一点上有各种各样的论点」
	PRINTFORMW 「因为现代艺术并不是同一类型艺术的集合，所以确定哪里是近代，哪里是现代是很困难」
	PRINTFORMW 「所以我想这个也有异议，但在这里姑且把战后的‘抽象表现主义’这一流派视为现代艺术」
	IF RESULT == 1
		PRINTFORMW 「那么，我想从这里開始谈论现代艺术……不过在此之前，我将先简要地解释一下近代艺术」
		PRINTFORMW 「这是因为现代艺术很少有让人一看就觉得很好的作品」
		PRINTFORMW 「当然，并不是说它没有魅力……只是不能否认它有些高级」
		PRINTFORMW 「回到话题……目前与现代艺术明显相関的流派可能是‘印象派’这一绘画派别」
		SIF CEVENT("写真蘊蓄")
			PRINTFORMW 「関于这件事，我以前也%CNAME("二人称")%说过吧」
		PRINTFORMW 「在那之前，绘画的基础是写实地描绘事物，但由于摄影等各种不可抗力，当时无法写实地描绘的艺术家開始用新的方式表现自己的主观意识」
		PRINTFORMW 「印象派是其中一个非常著名的流派。当时以室内为基础的学院派，啊，应该说是主流派吧，从那里開始用独特的笔触描绘了外面的光线反射和风景」
		PRINTFORMW 「这个词最初是对在当时举办的沙龙上展示的『印象·日出』这幅作品的讽刺，或者说是批判而产生的，莫奈的代表作是描绘庭院里的睡莲的『睡蓮』」
		PRINTFORMW 「还有以神话等为题材描绘奇幻景象的象征主义，大量使用红色和蓝色等原色的野兽派和反映自己心理状态等粗犷笔触具有象征性的表现主义，受到非洲雕塑的影响，以毕加索为代表的的立体主义画家等」
		PRINTFORMW 「还有未来主义、达达主义、超现实主义等等……」
		PRINTFORMW 「其中以表现主义为起点的俄罗斯画家康定斯基受到音乐启发，创造出了『抽象艺术』」
		PRINTFORMW 「不过抽象艺术本身并不是这个人独自想出来的，还有荷兰画家蒙德里安等几位也几乎同时画出了抽象画」
		PRINTFORMW 「这种抽象艺术是一种前所未有的全新绘画方式」
		PRINTFORMW 「新的地方在于，它是『没有画任何东西的画』」
		PRINTFORMW 「之前的画，无论被拉长或变形，总是以某种东西为题材」
		PRINTFORMW 「对于某些人来说，它可能是神话中的一个场景，或者只是苹果放在桌子上的风景等等……」
		PRINTFORMW 「但抽象画没有这样可以称为题材的东西。真的只是涂上颜色，作为观看对比度的东西而被考虑」
		PRINTFORMW 「作为这种思想的简洁表达，可以联想起康定斯基等各种抽象画上的『compositions』这一标题」
		PRINTFORMW 「compositions在英語中是『构成』的意思。它既不是物品，也不是故事，只是彩绘画布的构成。%CNAME("一人称")%认为其中包含着这样的想法」
		PRINTFORMW 「受到这种抽象画的影响，雕塑方面也出现了不以任何东西为题材而制作抽象形状的『抽象彫刻』这一流派」
		PRINTFORMW 「这些『不是描绘特定的东西，而是仅仅作为纯粹的颜色和形状组合来创作作品』就是与现代艺术相関联的一种流派」
		PRINTFORMW 「另一个重要流派是由马塞尔·杜尚创造出来的」
		PRINTFORMW 「他最初以立体主义画家的身份開始了他的职业生涯，但由于他画了过于先进的作品而被立体主义团体除名」
		PRINTFORMW 「后来他离開巴黎，搬到了纽约」
		PRINTFORMW 「在那里，进行了被归类为『纽约达达』一派的活动，其中著名的是『泉』这幅作品」
		PRINTFORMW 「这幅作品最初是在他担任评审员的展览会上展出的，但严格来说并不能断定是他的作品，也有说法认为是与他有交情的女性艺术家的作品」
		PRINTFORMW 「言归正传，这幅作品虽然被展出，但实际上并未公開」
		PRINTFORMW 「至于原因，现在只能想象了，但我想大概只要描述一下这部作品，就能理解了吧」
		PRINTFORMW 「……这幅名叫泉的作品，描绘的是一个写着『R Mutt』签名的男用小便器」
		PRINTFORMW 「你可能会觉得这是假的，但事实确实如此」
		PRINTFORMW 「不管怎样，杜尚对这幅作品未能公開表示抗议」
		PRINTFORMW 「当时并没有说这个R Mutt就是杜尚，所以似乎只是作为评审提出抗议而已」
		PRINTFORMW 「其中，据说杜尚发表了『这位作者是否亲手制作了作品并不重要，他“选择”了它』之类的言论」
		PRINTFORMW 「这种『不是自己创作，而是选择现有的东西作为作品』的创作方法后来也被杜尚用来制作『ready-made』并用于创作，这也是现代艺术的另一个流派」
		PRINTFORMW 「总结起来就是『不需要以某物为题材』『不需要自己创作某物』这两种流派对现代艺术产生了重大影响。」
		PRINTFORMW 「那么，接下来我们将讨论有関现代艺术的内容」
	ENDIF
	PRINTFORMW 「抽象表现主义是一种在20世纪40年代美国诞生的风格，它类似于近代艺术中将自己的情感等影响到作品中、具有粗犷作风的『表现主义』和不设定特定题材创作作品的『抽象主义』两种形态，因此得名」
	PRINTFORMW 「基本上可以将其视为抽象画的一种，但也有一些艺术家根据自己的体验来创作」
	PRINTFORMW 「代表人物包括以在巨大画布上滴墨创作作品而闻名的杰克逊·波洛克和以几种颜色涂抹在一起的画风为特色的马克·罗斯科等」
	PRINTFORMW 「与抽象表现主义前后相继流行起来的是被称为『新达达主义』和『波普艺术』的风格」
	PRINTFORMW 「新达达主义受到源自20世纪10年代瑞士的达达主义美术风格的影响，使用废弃物等创作艺术；波普艺术起源于英国，在美国广受欢迎，是一种模仿工业产品等的风格」
	PRINTFORMW 「新达达主义方面，以在大画布上粘贴报纸并直接绘制美国国旗的『旗帜』为代表；波普艺术方面，以模仿玛丽莲·梦露等美国著名人物和物品为题材的安迪·沃霍尔最为著名」
	PRINTFORMW 「随着时间推移，诞生了一种被称为『极简主义艺术』的东西」
	PRINTFORMW 「极简主义这个词在英语中具有『小』之意，指使用最少量的东西创作超短形态艺术的人」
	PRINTFORMW 「比如说，假设有几个形状相同的黑色盒子」
	PRINTFORMW 「如果将这些盒子按照一定的间距不断地放在地上，那么形成的景象就是极简主义艺术」
	PRINTFORMW 「……当然，我也能理解你会问为什么，但这是将抽象表现推进到极致的结果……」
	PRINTFORMW 「……现代艺术从这里開始进一步推进抽象表现，最终达到了被称为『观念艺术』的境界」
	PRINTFORMW 「这是什么呢？怎么说呢……」
	PRINTFORMW 「嗯……很难解释……硬要说的话，以什么理由想要创作作品，作品有什么意义，这些是作品的本体，而由此产生的画和雕塑并没有那么重要」
	PRINTFORMW 「代表作品包括约瑟夫·科苏斯创作的『一把和三把椅子』」
	PRINTFORMW 「这件作品包括一把真实的椅子，旁边是字典中関于椅子的解释和拍摄椅子的照片」
	PRINTFORMW 「它们都与『椅子』有関，可以说是『椅子』，但只有一把椅子可以用来坐……这件作品似乎是为了引发哲学思考而创作的」
	PRINTFORMW 「就这样，现代艺术达到了相当难以理解的观念艺术境界，但由于内容过于复杂，人们希望看到更容易理解的东西」
	PRINTFORMW 「在这种趋势中诞生了『新表现主义』。乍一看是表现主义那种粗狂笔触的类型，但与那不同的是，它是街頭艺术，就像是在小路巷子等地方用喷漆绘制的那种东西，或是受到当代艺术影响的一派」
	PRINTFORMW 「著名艺术家包括曾经转行成为时装设计师的让-米歇尔·巴斯奎特」
	PRINTFORMW 「到目前为止都是20世纪80年代以前的故事、但从这里開始就不再能用这种流派来解释了，各种各样的风格開始诞生」
	PRINTFORMW 「当然从这里開始也有许多艺术家诞生……不过已经讲得太长了，我们先讲到这里吧」
	PRINTFORMW 「粗略来说，就是这样的感觉」
CASE "初心者向け"
	PRINTFORMW 「嗯……坦白来说，如果对现代艺术没有一定程度的了解的话，大部分人都无法感受它的魅力」
	PRINTFORMW 「在这个基础上，我想说的是基斯·哈林老师と、让-米歇尔·巴斯奎特老师和草间弥生女士」
	PRINTFORMW 「让-米歇尔·巴斯奎特老师，乍一看会有一种可怕的感觉，给人这样的印象也不奇怪」
	PRINTFORMW 「不过，在现代艺术中，他是相对出镜率较高的艺术家，至少看起来不会让人一頭雾水」
	PRINTFORMW 「所谓的恐怖，也可以说是突然看到毕加索的画时的感觉，是很容易理解的类型」
	PRINTFORMW 「基斯·哈林老师经常画一些彩色的棒状人类在活动的画」
	PRINTFORMW 「单纯看起来构图很容易理解，动作也很可爱，即使不知道他是什么的流派的艺术家也能充分享受」
	PRINTFORMW 「最后是草间弥生女士，她也是一位出镜率很高的艺术家。以使用波尔卡点绘制的画为特色」
	PRINTFORMW 「早期作品有很多难以理解的地方，但经过一段时间之后的作品就没有那么难懂，变得容易理解了」
	PRINTFORMW 「那些波尔卡点似乎也有各种各样的意义……周边商品也很多，应该是一个容易接触的艺术家吧」
	PRINTFORMW 「如果对现代艺术感兴趣，首先可以从这三个人入手，可能不会那么容易遇到让人一頭雾水的作品」
	PRINTFORMW 「……推荐的艺术家大概就是这些了吧」
	PRINTFORMW 「当然，如果直接说话的话，我想你可以去美术馆看看感兴趣的作品，然后再去了解作品的作者」
	PRINTFORMW 「即使是不太明白的作品，了解作者之后也能大致把握意义」
CASE "詳細"
	PRINTFORMW 「如果问我太详细我也会为难……你想问什么呢？」
	PRINTL
	PRINTFORML 请输入想知道的事(例:印象派)。如果不输入任何内容将会返回
	CALL INPUTS_SELECT, 140, 0
	CALL DIC_ART, RESULTS
CASE "同人"
	IF RAND:2
		PRINTFORMW 「这么说的话……我很喜欢%TEXTR("〇〇/××/△△")%这个社团的作品」
	ELSE
		IF YOKUBO()
			CALL PRINT_STRW, @"「呵呵_H_就这么想知道%CNAME("一人称")%的手淫对象吗_H_」"
			CALL PRINT_STRW, @"「%CNAME("二人称")%真是个变态_H_」"
		ELSE
			PRINTFORMW 「诶……这、这个……」
		ENDIF
	ENDIF
ENDSELECT

@DIC_ART, ARGS
IF ARGS == ""
	PRINTFORMW 「啊、没问题吗？」
	PRINTFORMW 「那就好。如果有不懂的地方，可以随时问我」
	PRINTFORMW 「只要在%CNAME("一人称")%知道的范围内，一定知无不言」
	RETURN 1
ENDIF

PRINTL
IF RAND:2
	PRINTFORMW 「関于%ARGS%吗……」
ELSE
	PRINTFORMW 「関于%ARGS%」
ENDIF
SELECTCASE ARGS
CASE "印象派"
	PRINTFORMW 「%ARGS%是19世纪流行的一种绘画风格」
	PRINTFORMW 「最初是针对当时沙龙上展出的『印象·日出』这幅作品的批评而产生的词语」
	PRINTFORMW 「特点包括轮廓模糊的绘画方式和生动描绘室外光线的风景等」
	PRINTFORMW 「在那之前，绘画主要是在室内观察裸体模特，细心地写实地绘画，但随着装在管状颜料和摄影的发明，逐渐出现了外出画家」
	PRINTFORMW 「但与静止或由模特按要求创作的室内风景不同，室外风景总是在不断变化」
	PRINTFORMW 「在这样的环境下，无法细心地写实地绘画，所以受到影响，画风变得比以前粗糙了」
	PRINTFORMW 「即使在印象派热潮退去后，仍然产生了像梵高这样有影响力的艺术家，并作为音乐的一种流派被广泛使用，在各个领域都能看到它的身影」
	PRINTFORMW 「即使现在，如果附近的美术馆收藏了海外画作，几乎可以肯定能看到这些作品」
CASE "象徴主義"
	PRINTFORMW 「%ARGS%是19世纪末流行的一种艺术风格」
	PRINTFORMW 「它不仅在绘画中流行，还在文学等领域广泛传播」
	PRINTFORMW 「视觉上有点幻想，总觉得阴暗气氛的画风比较多」
	PRINTFORMW 「代表性的艺术家有古斯塔夫·克林姆」
	PRINTFORMW 「他的作品中大量使用了金箔等材料，在%ARGS%中独树一帜，但同时也散发出同样的『阴暗』气氛」
	PRINTFORMW 「我想各个美术馆都有收藏，如果你喜欢有点阴暗的幻想气氛，可以去找找看」
CASE "表現主義"
	PRINTFORMW 「%ARGS%是19世纪末诞生的艺术运动」
	PRINTFORMW 「它不仅在绘画方面很有名，而且还涉及建筑、音乐、文学等广泛领域的运动」
	PRINTFORMW 「在艺术风格上，它试图将以前美术中少有的情感动态融入其中，以绘画来说，著名之处在于能够唤起强烈情感的粗犷笔触」
	PRINTFORMW 「代表性的艺术家有以『呐喊』闻名的蒙克」
	PRINTFORMW 「从这个表现主义出发，康定斯基后来创造了抽象主义，现代艺术中也时常出现意识到表现主义的风格，现在也是一个具有强大影响力的运动」
	PRINTFORMW 「我觉得去美术馆应该能找到一些相関作品，如果你感兴趣的话不妨去看看」
CASE "野獣派", "フォービズム"
	PRINTFORMW 「%ARGS%是发生在法国的艺术运动之一」
	PRINTFORMW 「与以前的画作不同，它以丰富的原色、生动或者说华丽的画风为特征」
	PRINTFORMW 「这个名字的由来是因为它独特的色彩感受被批评为『像野兽一样』」
	PRINTFORMW 「著名的画家包括亨利·马蒂斯」
	PRINTFORMW 「可以说，这是一种非常有个性的风格，但是一旦迷上了，就会着迷」
	PRINTFORMW 「我想各种美术馆都有收藏，你可以去找找看」
CASE "キュビズム"
	PRINTFORMW 「%ARGS%是发生在法国的艺术运动之一」
	PRINTFORMW 「它受到以保罗·塞尚为代表的静物画家和非洲雕塑等的影响，试图将从不同角度看到的东西表现在一幅画面上」
	PRINTFORMW 「作为其结果，通常情况下，几个三角形等会形成人或物的形状，形成一种非常独特的画风」
	PRINTFORMW 「这种运动后来逐渐变得更加抽象，甚至有时会将报纸等现成物品粘贴在一起制作作品」
	PRINTFORMW 「顺带一提，这种制作方法被称为拼贴画，现在仍然有使用」
	PRINTFORMW 「是的，这就是拼贴画一词的来源」
	PRINTFORMW 「有意识地去寻找的话这类作品的话，可能会意外地困难，不过如果附近有收藏立体主义作品的美术馆的话，我觉得去看看也可以」
CASE "未来派"
	PRINTFORMW 「%ARGS%发生在意大利的艺术运动之一」
	PRINTFORMW 「它受到当时刚普及的汽车和武器等的影响，其特点是试图将动态表现在画面上」
	PRINTFORMW 「似乎也有想要彻底破坏过去艺术的过激运动的一面，但最终由于当时的核心人物转向政治运动而衰落」
	PRINTFORMW 「……不过，从这里诞生了著名的绘本作家和设计师，也产生了前卫音乐流派，绝对不容小觑」
	PRINTFORMW 「虽然能看到这类作品的地方可能有限，但如果你感兴趣，可以去找找看」
CASE "ダダ", "ダダイズム"
	PRINTFORMW 「%ARGS%是一种在第一次世界大战后在瑞士诞生的艺术风格」
	PRINTFORMW 「他们似乎受到了战争残酷场面的强烈冲击，開始创作出一种充满讽刺意味的艺术风格」
	PRINTFORMW 「……或者说，它是一种以创作『无意义』的东西为目标的艺术运动。也被称为反艺术」
	PRINTFORMW 「顺便说一句，达达这个词的由来也是从报纸上随意取得的没有任何意义的词语」
	PRINTFORMW 「这种运动在世界各地都有传播，瑞士的苏黎世、德国的柏林、法国的巴黎和美国的纽约等地都有各自的达达主义作品」
	PRINTFORMW 「从现在的角度看，这个运动中有许多看起来像恶作剧的作品，其中代表性的是马塞尔·杜尚的泉，只是在男用小便器上签名而已」
	PRINTFORMW 「由于有些作品没有留存到现在，所以寻找这些作品可能会比较困难，但是其中有许多令人忍俊不禁的傻傻的东西，我想你可以去找找看」
CASE "シュルレ愛麗絲ム", "シュールレアリズム", "シュルレアリズム"
	PRINTFORMW 「%ARGS%是一种在20世纪20年代流行的艺术思想」
	PRINTFORMW 「最初是由一位名叫安德烈·布勒东的诗人提出的，他曾在巴黎参与达达主义活动」
	PRINTFORMW 「当时受到流行的弗洛伊德心理学的影响，这一运动寻求在无意识和梦境中寻找艺术性，实际上通过在无意志状态下写作或绘画，或通过印刷类似树木图案的随机物体来獲得灵感」
	PRINTFORMW 「……这种画风多种多样，萨尔瓦多·达利和雷内·马格里特以写实画风与奇特形象的结合创造了独一无二的作品风格。抽象画风与之相结合，就像真正的梦境一样的乔安·米罗等各种类型的艺术家」
	PRINTFORMW 「当时这一运动非常流行，虽然著名作品大多是绘画，但雕塑、摄影和电影也有%ARGS%系列的作品」
	PRINTFORMW 「顺便说一下『超现实』一词源自这一运动」
	PRINTFORMW 「虽然是最近才兴起的运动，但如果想看相関作品的话，很多地方都有收藏，我想您去找找也无妨」
CASE "抽象表現主義"
	PRINTFORMW 「%ARGS%是战后不久在美国流行的一种现代艺术风格」
	PRINTFORMW 「是一种不描绘具体的东西，而是描绘情感，或者完全不取题材而描绘某些东西的抽象绘画类型」
	PRINTFORMW 「乍一看很难找出共同点，但大多是粗犷，或者说是有点沉重的作品」
	PRINTFORMW 「此外，在这种类型的艺术家中，有些人采用了一种称为『行动绘画』的方法」
	PRINTFORMW 「不是像以前那样在画布上涂抹颜料，而是在大型画布上撒洒颜料的豪放的绘画方式，著名的杰克逊·波洛克就曾这样做过」
	PRINTFORMW 「在现代艺术中可以很常见，其作品也颇具冲击力，所以如果您感兴趣的话也可以尝试去找来看看」
CASE "ネオダダ"
	PRINTFORMW 「%ARGS%是20世纪50年代流行的一种现代艺术」
	PRINTFORMW 「它受到第一次世界大战后诞生的达达运动的影响，使用文字、街道垃圾等材料，或以这种方式描绘美国国旗等，是试图将现代社会中常见的东西作为艺术材料的运动」
	PRINTFORMW 「顺带一提，这一运动也在日本发生过，新达达主义组织者和红色中心这样的艺术家团体在日本诞生」
	PRINTFORMW 「像达达艺术运动一样，它具有批判艺术的艺术方面，并且受到其影响，也有一些恶作剧般的东西」
	PRINTFORMW 「代表作品是我刚才提到的以这种方式描绘美国国旗的『旗帜』。高赤中（ハイレッド・センター）在东京奥运会期间穿着严密防护服进行东京清洁活动的『首都圈清洁整理促进运动』可以清楚地表现出新达达主义的特点」
	PRINTFORMW 「想找到收藏这些作品的地方可能很困难，但对于喜欢恶作剧般作品的人来说，是有观看价值的」
CASE "ポップ・アート", "ポップアート"
	PRINTFORMW 「%ARGS%是20世纪50年代流行的一种现代艺术风格」
	PRINTFORMW 「最初起源于英国，后来在美国盛极一时」
	PRINTFORMW 「以当时的商品广告、漫画等充斥街頭的东西作为创作作品的题材」
	PRINTFORMW 「当时在艺术界，这些东西被认为是低俗和肤浅的，但却反过来成为了作品的魅力」
	PRINTFORMW 「著名人物包括安迪·沃霍尔，他以这种方式描绘了玛丽莲·梦露等代表性明星和当时的商品，以及罗伊·里希滕斯坦，他将美国漫画的一个镜頭放大成绘画作品」
	PRINTFORMW 「如果不是比较大型的美术馆，可能没有这种类型的作品，如果有兴趣的话，可以找找看」
	PRINTFORMW 「可能会看到您以前不曾注意的东西的新一面」
CASE "迷你マル・アート", "迷你マルアート"
	PRINTFORMW 「%ARGS%是20世纪50年代至60年代流行的一种现代艺术风格」
	PRINTFORMW 「这些人将作品的形式简化到极致，例如矩形或三角形，其特点是制作看似只是模型级别的简单形状的雕塑或绘画。代表人物包括弗兰克·斯特拉」
	PRINTFORMW 「顺带一提，“极简”这个词在英语中意味着“最小限度”，除了美术之外，还有用简单短语组合而成的极简音乐这一流派，以及将身边物品减少到最少的极简主义生活方式」
	PRINTFORMW 「在现代艺术中，有一种称为装置艺术的流派，解释起来很困难，但……怎么说呢，有多个雕塑或绘画，由此产生的空间本身就是作品，%ARGS%是最早进行装置艺术的风格之一」
	PRINTFORMW 「虽然寻找起来可能很困难，但美术馆里有这么多造型简单的东西这件事就已经非常有趣了，所以您可以试着去看看」
CASE "コンセプチュアル・アート", "コンセプチュアルアート"
	PRINTFORMW 「%ARGS%是20世纪60年代至70年代诞生的一种艺术运动」
	PRINTFORMW 「……嗯，怎么说呢。这是一种非常难以理解的艺术类型，属于这一类型的艺术家对作品的看法非常独特」
	PRINTFORMW 「这是因为这些人最重视的是『想要创作什么样的艺术』，也就是概念，而作品本身则相对次要」
	PRINTFORMW 「例如，劳伦斯·韦纳使用语言创作作品，河原温以电报等形式发送自己经历过的事情，留下了『我起床了』这一作品」
	PRINTFORMW 「所以，这种类型的作品，与其直接感受所见，不如去思考为什么会变成那样的形式，这样会更有趣」
	PRINTFORMW 「我觉得要找到这些被收藏的作品相当不容易，不过喜欢考察的人也可以找找看」
CASE "新表現主義"
	PRINTFORMW 「%ARGS%是20世纪80年代迅速流行起来的一种艺术运动」
	PRINTFORMW 「是一种反对日益难以理解的现代艺术，试图走向更容易理解的方向的运动」
	PRINTFORMW 「它以粗犷的笔触画风而闻名，因此人们将其与以前诞生的表现主义艺术运动进行了比较」
	PRINTFORMW 「……话虽如此，它仍然只是一种简单的现代艺术，乍一看很难理解的作品也很多」
	PRINTFORMW 「著名的人物有让-米歇尔·巴斯基亚。他的作品被用于T恤设计，所以我觉得你会有很多机会看到」
	PRINTFORMW 「在美术馆里也能看到相関作品，所以如果你想看到比莫奈或其他画作更刺激的东西，也许可以去看看」
CASE "モネ"
	PRINTFORMW 「%ARGS%是19世纪在法国活跃的画家」
	PRINTFORMW 「他的画被各种各样的美术馆收藏，也经常出现在电视上，所以即使不知道他的名字，也应该有很多人见过他的作品」
	PRINTFORMW 「特别是描绘了拿着阳伞的女性形象的『拿着阳伞的女人』和描绘了花园里的睡莲的『睡莲』非常有名」
	PRINTFORMW 「他是被称为印象派的艺术流派的代表作家，从某种意义上说，也是第一个印象派画家」
	PRINTFORMW 「因为原本印象派就是因为讽刺了他前所未有的独特画风而产生的」
	PRINTFORMW 「他是一个非常有名的人，可以说是无人不晓。但如果稍微了解一下他本人，也许会有不同的发现」
CASE "ピカソ", "パブロ・ピカソ"
	PRINTFORMW 「%ARGS%是一个家喻户晓的著名艺术家。他的代表作品是『格尔尼卡』」
	PRINTFORMW 「作为立体主义的中心人物而闻名，提到立体主义时首先提到的『阿维尼翁的少女们』也是他的作品」
	PRINTFORMW 「然而，在他漫长的一生中，他多次改变了自己的创作风格，如阴郁沉重的蓝色时期，以及開始绘制独特轮廓线，与《格尔尼卡》相连的超现实主义时期等，每个时期都有值得一看的作品」
	PRINTFORMW 「我觉得去美术馆的话，很有可能会看到他的作品，你有兴趣不妨去看看」
	PRINTFORMW 「……顺便说一下，据说他还收藏过春画」
CASE "カンディンスキー"
	PRINTFORMW 「%ARGS%是一位在俄罗斯出生，在德国活跃的艺术家」
	PRINTFORMW 「他原本是一位表现主义画家，以粗犷的笔触描绘风景画等，但受到音乐的影响，開始追求『没有主题的纯视觉画作』」
	PRINTFORMW 「顺便说一句，这里所说的音乐是指像古典交响曲那样的音乐」
	PRINTFORMW 「这些所谓的主题或题材都不存在，这种类型的音乐被称为『绝对音乐』」
	PRINTFORMW 「……好吧，回到话题上来，康定斯基的绘画从此变得越来越抽象，形态难以捉摸，最终达到了由几个图形或颜色构成的抽象画」
	PRINTFORMW 「抽象艺术的话，即使到现在仍有一定数量的人在创作类似作品，因此在谈论现代艺术的根源时，他是不可或缺的人物」
	PRINTFORMW 「并不是到处都能找到……但如果你去一些较大的美术馆，可能会看到他的作品，可以去找找」
CASE "マルセル・デュシャン", "デュシャン", "マルセルデュシャン"
	PRINTFORMW 「%ARGS%是一位活跃于19世纪到20世纪的法国和美国艺术家」
	PRINTFORMW 「与此同时，他也是从前所未有的思想中创造出新艺术的人」
	PRINTFORMW 「早期，他作为立体主义的一员发表了作品，但他当时创作的『下楼的裸女二号』由于过于新颖而受到立体主义团体的批评」
	PRINTFORMW 「此后，他放弃了绘画，转而以独特的『ready-made』风格进行创作」
	PRINTFORMW 「ready-made是英语中“现成品”的意思，他通过组合街道铲子和自行车车轮等普通物品，或者像这样展示它们来创作作品」
	PRINTFORMW 「这样活动了一段时间，但中途突然停止了创作，只专注于业余爱好国际象棋」
	PRINTFORMW 「然而，在背后他似乎一直在偷偷创作作品，据说在他去世后发现了他作为遗作创作的作品」
	PRINTFORMW 「虽然可能很难找到其作品，但如果你喜欢挑衅性的作品，去看看是不会吃亏的」
CASE "ジャクソン・ポロック", "ジャクソンポロック", "ポロック"
	PRINTFORMW 「%ARGS%是一位在美国活跃的画家」
	PRINTFORMW 「他是抽象表现主义风格的代表性画家，以各种颜料在画布上奔跑的画风而闻名」
	PRINTFORMW 「他实际上采用了一种特殊的绘画方法，使用了所谓的行动绘画技法来创作画作」
	PRINTFORMW 「这种方法是通过将颜料滴落或撒在画布上来绘画，实际观看时充满了活力」
	PRINTFORMW 「现代艺术家的作品并不是随便走进美术馆就能看到的，但如果你去找，会发现很多地方都收藏了他的作品」
	PRINTFORMW 「如果你想看刺激性的绘画，可以去找找哪些美术馆有收藏他的作品」
CASE "マーク・ロスコ", "マークロスコ", "ロスコ"
	PRINTFORMW 「%ARGS%是一位在俄罗斯出生，在美国活跃的画家」
	PRINTFORMW 「他被称为抽象表现主义画家，简单地说，就是抽象画家，以一种将一种颜色涂满画布的画风而闻名」
	PRINTFORMW 「据说他原本采用另一种绘画方式，但在职业生涯中途開始追求抽象表现」
	PRINTFORMW 「最终，他达到了前面提到的用一种颜色涂满画布的画风」
	PRINTFORMW 「只用语言描述可能非常简单，难以传达魅力，即使在美术馆的官方网站上看照片，也很遗憾地难以理解它的优点」
	PRINTFORMW 「现代艺术也确实难以接近，但如果你亲眼看一看，可能会被它的存在感所吸引」
CASE "アンディ・ウォーホル", "アンディウォーホル", "ウォーホル"
	PRINTFORMW 「%ARGS%是一位在美国活跃的现代艺术家」
	PRINTFORMW 「据说他原本是作为商业插画师活动，但后来以写实地描绘普通物品的风格成为艺术家」
	PRINTFORMW 「具体的例子包括玛丽莲·梦露、坎贝尔汤罐等当时在美国司空见惯的物品」
	PRINTFORMW 「他还拍摄了实验性电影，在名为『工厂』的工作室与当时的摇滚明星等人交往」
	PRINTFORMW 「据说他还曾为约翰·列侬和滚石乐队等大人物设计过夹克」
	PRINTFORMW 「在美术馆里也经常能看到他的作品，他设计的CD现在仍然发售，如果你去找找，也许会有意外的发现」
CASE "ジョセフ・コスース", "ジョセフコスース", "コスース"
	PRINTFORMW 「%ARGS%是一位来自英国的现代艺术家」
	PRINTFORMW 「据说他在大学时学习过哲学，也许受到这种影响，他创作了许多能让人思考『艺术是什么』的作品」
	PRINTFORMW 「他是所谓的概念艺术的代表性画家，也就是说，创作作品的概念是最重要的，而作品本身并不那么重要」
	PRINTFORMW 「因此……不知道能不能这么说，但他留下了许多用文字创作的作品」
	PRINTFORMW 「在某种意义上，这是典型的现代艺术，乍一看不知道怎么看才好，是个晦涩难懂的类型，但在理解了意思之后，确实有一种有趣的感觉，可以找找看」
	PRINTFORMW 「不过找到收藏他作品的地方可能有点困难……」
CASE "キース・ヘリング", "キースヘリング", "ヘリング"
	PRINTFORMW 「%ARGS%是一位在美国活跃的现代艺术家」
	PRINTFORMW 「据说他原本是在地铁等地方进行街頭艺术，也许你会在背街小巷的建筑物上看到涂鸦，他就是以这样的艺术家身份崭露頭角的」
	PRINTFORMW 「以明亮的颜色和粗犷的线条描绘的，像棍子人一样的人物在跳舞的明亮画面很有名，不仅在美术馆，还能在各种地方看到」
	PRINTFORMW 「例如与时尚品牌合作，或做成手机壳等」
	PRINTFORMW 「在现代艺术中，他的作品非常容易理解，即使不太懂也能感到快乐，所以你可以去找找」
	PRINTFORMW 「……也许你不知不觉中已经拥有了印有他作品的商品呢」
CASE "ジャン＝ミシェル・バスキア", "ジャン・ミシェル＝バスキア", "ジャン・ミシェル・バスキア", "ジャンミシェルバスキア", "バスキア", "ジャン＝ミシェル＝バスキア"
	PRINTFORMW 「%ARGS%是一位在美国活跃的现代艺术家」
	PRINTFORMW 「最初是以街頭艺术家的身份在纽约崭露頭角，你也许会在背街小巷的建筑物上看到涂鸦」
	PRINTFORMW 「他以粗犷的画风和偶尔加入的文字表达自己的主张而闻名」
	PRINTFORMW 「他的作品本身被用作T恤图案，与时尚品牌合作，而且他本人也经历了非常波澜壮阔的一生，甚至拍摄了电影」
	PRINTFORMW 「第一次看到时可能会觉得害怕，但他确实是一位能吸引人眼球的有力作家」
	PRINTFORMW 「虽然并不是到处都能找到，但在现代艺术家的作品中还算容易找到，如果你感兴趣，可以去找找」
CASE "草間彌生", "草間弥生"
	PRINTFORMW 「%ARGS%是一位来自日本的世界级现代艺术家」
	PRINTFORMW 「最初在日本活动，后来搬到纽约，然后又回到了日本」
	PRINTFORMW 「据说她早期创作了一些非常激进的作品，但现在她在各个领域都很活跃，例如为东京都厅设计了街頭钢琴」
	PRINTFORMW 「她以红白或黄黑等鲜艳色彩描绘的波尔卡点为标志，还有使用镜子制作的无限延伸空间等作品」
	PRINTFORMW 「顺带一提，波尔卡点并不是随便画的，对她来说有重要的意义」
	PRINTFORMW 「虽然是现代艺术家，但由于她很有名且来自日本，所以你可以在很多地方看到她的作品」
	PRINTFORMW 「不仅在美术馆，她还设计了商品，你从这些地方接触她的作品或许也不错」
CASE "ダリ", "サルバドール・ダリ"
	PRINTFORMW 「%ARGS%是一位来自西班牙的艺术家」
	PRINTFORMW 「他试图描绘梦境中的无意识世界，被称为超现实主义画家，以绘画最为著名，但也拍摄过电影，并曾为某种糖果设计过logo」
	PRINTFORMW 「以清晰易懂的画风和非常独特、时而诡异、时而幽默的奇妙组合为特征」
	PRINTFORMW 「有一幅著名的作品叫做『记忆的固执』，这幅画用写实技巧描绘了融化的怀表和奇特风景」
	PRINTFORMW 「其他著名作品也有很多，每一幅都具有难以忘怀、极其强烈的冲击力」
	PRINTFORMW 「附近的美术馆有很多相関作品，有时间的话也可以去看看」
CASE "マグリット", "ルネ・マグリット"
	PRINTFORMW 「%ARGS%是比利时出生的画家」
	PRINTFORMW 「他是超现实主义运动中的活跃人物，以写实的笔触描绘梦境般的作品」
	PRINTFORMW 「另一方面，他也曾创作过像谜一般的作品」
	PRINTFORMW 「例如，有一幅名为『形象的叛逆』的作品，在写实地描绘了一个吸烟的馅饼下方写着『这不是一个烟斗』的文字」
	PRINTFORMW 「他的作品被收藏在许多地方，如果你去附近的美术馆，也许能看到」
	PRINTFORMW 「……顺便说一句，我听说本人与作风相反，是一个非常常识性的人，但真正的情况究竟如何呢？」
CASE "オキーフ", "ジョージア・オキーフ"
	PRINTFORMW 「%ARGS%是在美国活跃的画家」
	PRINTFORMW 「以花朵等普通物品为题材的独特静物画而闻名」
	PRINTFORMW 「例如，非常近距离地描绘，或者将焦点放在花瓣上……」
	PRINTFORMW 「晚年她搬到了美国南部的新墨西哥州，在那里受到牛頭骨等物品的影响，也创作了一些作品」
	PRINTFORMW 「明明是有题材的，但看着看着就会渐渐变得模糊起来，产生一种奇妙的感觉」
	PRINTFORMW 「其作品并不是到处都有，但著名的美术馆都有收藏，如果感兴趣，不妨去找找看」
CASE "フリーダ・カーロ"
	PRINTFORMW 「%ARGS%是在墨西哥活跃的画家」
	PRINTFORMW 「她非常独特，可以说是独一无二的画风」
	PRINTFORMW 「她经常在作品里画自己的脸，所以总是摆着同样的脸，我觉得这正是她的精神状态的写照」
	PRINTFORMW 「或许只是因为她走过了波澜壮阔、悲惨的一生才会这样感觉吧」
	PRINTFORMW 「只是当目光落在那些自画像上时，就会不由自主地被吸引住，并且无法移開目光」
	PRINTFORMW 「如果不去找可能很难找到她的作品，但如果感兴趣，不妨去看看」
CASE "アンリ・ルソー", "ルソー"
	PRINTFORMW 「%ARGS%是在法国活跃的画家」
	PRINTFORMW 「他原本并没有接受过画家教育，只是把绘画当作爱好来展出作品，但后来被毕加索等人认可而变得有名」
	PRINTFORMW 「他似乎对丛林抱有向往，并实际创作了一些描绘丛林的画作」
	PRINTFORMW 「他的画风怎么说呢，因为每一片叶子都画得很精致而产生的梦幻般的描绘方式」
	PRINTFORMW 「技术上我不懂，但看过之后就会发现，它有一种独特的魅力」
	PRINTFORMW 「许多美术馆都收藏着他的作品，不妨去找找看」
CASE "ダーガー", "ヘンリー・ダーガー"
	PRINTFORMW 「%ARGS%是一位在美国出生的艺术家。……也是一个难以定义的人」
	PRINTFORMW 「之所以这么说，是因为他在有生之年从未主动发表过作品」
	PRINTFORMW 「他原本是做清洁工等工作，业余时间写了一本名为『非现实的王国』的书」
	PRINTFORMW 「晚年搬到救济院时，这本书被发现并在他去世后发表，这才是正确的经过」
	PRINTFORMW 「『非现实的王国』是一本带有插图、篇幅极长的书，描绘了一群名为Vivian Girls的少女们的活跃」
	PRINTFORMW 「据说故事情节受到了%ARGS%的精神状态的强烈影响，例如当他珍视的少女照片丢失时，情节会变得残忍而怪诞」
	PRINTFORMW 「至于绘画技法，由于他并未接受过教育，所以他通过剪贴从垃圾中獲得的报纸等照片或模仿来绘画」
	PRINTFORMW 「收藏他作品的美术馆可能不多，但如果感兴趣，不妨去找找看」
CASE "ナム・ジュン・餡餅ク"
	PRINTFORMW 「%ARGS%是在韩国出生的艺术家」
	PRINTFORMW 「他原本学习音乐，但后来转向创作以电视等为目标的艺术」
	PRINTFORMW 「当时似乎还是棕管时代，他故意扰乱电视画面或从多台电视同时播放画面等作品颇为著名」
	PRINTFORMW 「从各种雕塑中嵌入的电视中流出各种画面的场面令人惊叹」
	PRINTFORMW 「作为当代艺术家，他的作品被收藏在许多地方，如果感兴趣，不妨去找找看」
	PRINTFORMW 「……顺便说一句，在福冈那边也有他的作品，但由于电视劣化而暂时撤下了」
	PRINTFORMW 「现在情况如何呢……」
CASE "蔡國強"
	PRINTFORMW 「%ARGS%是出生于中国的艺术家」
	PRINTFORMW 「以利用火药，通过爆炸来制作绘画等而闻名」
	PRINTFORMW 「虽然看起来像所谓的抽象艺术，但由于利用了爆炸，所以具有一种冲劲，这就是它的魅力」
	PRINTFORMW 「据说他还参加了2008年在北京举行的奥运会的烟火表演」
	PRINTFORMW 「其作品并不是到处都有，但如果感兴趣，不妨去找找收藏他作品的美术馆」
CASEELSE
	SELECTCASE RAND:3
	CASE 0
		PRINTFORMW 「関于这个我不太清楚……对不起」
	CASE 1
		PRINTFORMW 「関于这个我不太了解……对不起」
	CASEELSE
		PRINTFORMW 「嗯，我稍后会去查一下」
	ENDSELECT
ENDSELECT

path: ERB/EVENT_K/25 ノノ/EVENT_K25_LONG.ERB


code:
@WISH_K25_ADDSELECT
;乃々君が男装したり、女装に戻したりできるようになるお願い
;しかし男の男装とは・・・？
IF (MARK:屈服刻印 >= 1 || ABL:信頼 >= 2) && CFLAG:好感度 >= 100
	IF CEVENT("乃々：男装")
		STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("制服を戻して", 16)% … 女性用の制服に戻してもらいます
	ELSE
		STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("制服を男性用に", 16)% … 男性用の制服で登校してもらいます
	ENDIF
	STR:選択肢 = %STR:選択肢%（不需要魂）/
	;休托莉酱の同名のものを丸パク……リスペクトして作ったお願い
	;男性器と女性器の呼称を変更できるようになります
	STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("男性器をあだ名で", 16)% … 男性器の呼称を変えてもらいます（不需要魂）/
	STR:選択肢 = %STR:選択肢% [62] %TEXT_LJ("女性器をあだ名で", 16)% … 女性器の呼称を変えてもらいます（不需要魂）/
ENDIF

IF CEVENT("乃々：妊娠可")
	IF TALENT:Ａ妊娠体質
		STR:選択肢 = %STR:選択肢% [63] %TEXT_LJ("妊娠不可になって", 16)% … 妊娠できないように戻ってもらいます
	ELSE
		STR:選択肢 = %STR:選択肢% [63] %TEXT_LJ("妊娠可能になって", 16)% … 妊娠できるようになってもらいます
	ENDIF
	STR:選択肢 = %STR:選択肢%（不需要魂）/
	;你が妊娠できない状態のとき、魂を消費して妊娠可能をつけることができるようになるお願い
	;妊娠中or受精中は文面を分岐させたいので、お願い自体はできるようにする（効果はない）
	;妊娠してるのが分かってなければ、この場で妊娠発覚扱いにできるようにしたい
	;灯君のＴＳイベントを参考にさせていただきました
	IF COND("初期Ｖ妊娠不能", MASTER)
		IF COND("妊娠可能", MASTER)
			IF BASE:MASTER:魂 > 100 || BASE:魂 > 100
				STR:選択肢 = %STR:選択肢% [64] %TEXT_LJ("妊娠不可にして", 16)% … 妊娠できないように戻してもらいます/
			ELSE
				STR:選択肢 = %STR:選択肢%灰色/ [64] %TEXT_LJ("妊娠不可にして", 16)% … %CALLNAME:MASTER%か%CALLNAME:TARGET%の魂が1.01以上必要です/
			ENDIF
		ELSE
			;文章の最後には半角スペース入ってないよ！
			IF BASE:MASTER:魂 > 100 || BASE:魂 > 100
				STR:選択肢 = %STR:選択肢% [64] %TEXT_LJ("妊娠可能にして", 16)% …
				;文面を分岐させてみたいのでここで変える
				;你は人形になれないので無駄分岐だが、雰囲気付けのため加える
				IF COND("種族：人形", MASTER)
					STR:選択肢 = %STR:選択肢% 人形の
				ELSEIF TALENT:MASTER:未成熟
					STR:選択肢 = %STR:選択肢% 未成熟な
				ELSEIF TALENT:MASTER:男性
					STR:選択肢 = %STR:選択肢% 男の
				ENDIF
				STR:選択肢 = %STR:選択肢%体でも妊娠できるようにしてもらいます/
			ELSE
				STR:選択肢 = %STR:選択肢%灰色/ [64] %TEXT_LJ("妊娠可能にして", 16)% … %CALLNAME:MASTER%か%CALLNAME:TARGET%の魂が1.01以上必要です/
			ENDIF
		ENDIF
	ENDIF
ENDIF

IF CEVENT("伪娘講座") && TALENT:MASTER:男性
	IF TALENT:MASTER:伪娘
		STR:選択肢 = %STR:選択肢% [65] %TEXT_LJ("男性に戻して", 16)% … 伪娘から普通の男性に戻してもらいます（不需要魂）/
	ELSE
		STR:選択肢 = %STR:選択肢% [65] %TEXT_LJ("伪娘にして", 16)% … %CALLNAME:TARGET%に伪娘に見えるようにしてもらいます（不需要魂）/
	ENDIF
ENDIF

;ポリネシアン性交来招待，みたいという希望だけをここに書いておく
;できるだけ游戏的にもエッチかつフラストレーションのたまらないものにしたい
;SIF TALENT:相思相愛 && CEVENT("Ｐ・性交") == 0
;	STR:選択肢 = %STR:選択肢% [64] %TEXT_LJ("提案をしてみる", 16)% … %CALLNAME:TARGET%にポリネシアン・性交を提案します（不需要魂）/

@KOJO_WISH_K25_ADDSELECT,ARGS
SELECTCASE ARGS
CASE "制服を戻して"
	PRINTFORMW %CALLNAME:MASTER%请求%CALLNAME:TARGET%从明天開始穿女性校服上学
	PRINTL
	PRINTFORMW 「还是和以前一样比较好吗？　我知道了，下一次就会换回去」
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%从明天開始会穿女性校服上学
	CALL DEL_CEVENT, "乃々：男装"
CASE "制服を男性用に"
	PRINTFORMW %CALLNAME:MASTER%请求%CALLNAME:TARGET%从明天開始穿男性校服上学
	PRINTL
	PRINTFORMW 「是这样啊……说不定穿得和往常不一样也很新鲜呢。可以哦」
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%从明天起就会穿着男性用的制服来上学了
	CALL SET_CEVENT, "乃々：男装"
CASE "男性器をあだ名で", "女性器をあだ名で"
	PRINTFORMW %CALLNAME:MASTER%请求%CALLNAME:TARGET%改变对\@ARGS == "男性器をあだ名で" ? %TEXTR("男性器/阴茎")% # %TEXTR("女性器/ヴァギナ")%\@的称呼
	PRINTL
	IF YOKUBO()
		CALL PRINT_STRW, @"「呼呼_H_%CNAME("二人称")%的话，就会考虑色色的事情呢_H_」"
		PRINTFORMW 「那么，想怎么称呼呢？」
	ELSE
		PRINTFORMW 「诶、称、称呼方式吗……？」
		PRINTFORMW 「我、我明白了。…………应该怎么称呼呢？	」
	ENDIF
	PRINTL
	IF ARGS == "男性器をあだ名で"
		CALL PRINT_SELECT, "ちんちん/おちんちん/おちんぽ/其他", "果然還是放棄"
		SELECTCASE RESULT
		CASE 0
			CALL SET_CEVENT, "男性器呼：ちんちん_ちんちん"
		CASE 1
			CALL SET_CEVENT, "男性器呼：おちんちん_おちんちん"
		CASE 2
			CALL SET_CEVENT, "男性器呼：おちんぽ_おちんぽ"
		CASE 3
			CALL GENITALNAME_CONVERT, "男性器"
		CASE 100
			PRINTFORMW 「就这样吧」
			RETURN 1
		ENDSELECT
		PRINTFORMW 「以后叫%CNAME("男性器")%就好了吗\@YOKUBO() ? ね、我明白了 # か……？\@」
	ELSE
		CALL PRINT_SELECT, "まんこ/おまんこ/下のお口/其他", "果然還是放棄"
		SELECTCASE RESULT
		CASE 0
			CALL SET_CEVENT, "女性器呼：まんこ_まんこ"
		CASE 1
			CALL SET_CEVENT, "女性器呼：おまんこ_おまんこ"
		CASE 2
			CALL SET_CEVENT, "女性器呼：下のお口_したのおくち"
		CASE 3
			CALL GENITALNAME_CONVERT, "女性器"
		CASE 100
			PRINTFORMW 「还是维持现状吧」
			RETURN 1
		ENDSELECT
		PRINTFORMW 「以后叫%CNAME("女性器")%就好了吗\@YOKUBO() ? ね、我明白了 # か……？\@」
	ENDIF
CASE "妊娠不可になって"
	PRINTFORMW %CALLNAME:MASTER%向%CALLNAME:TARGET%拜托了想从可以妊娠的状態恢复原样的愿望
	PRINTL
	IF COND("妊娠中") || COND("受精確認")
		PRINTFORMW 「对不起。现在做不到」
		PRINTFORMW 「请之后再来吧」
	ELSE
		PRINTFORMW 「我明白了，那么请稍事等候……」
		CALL SETFLAG, "妊娠不能にする", MASTER
		PRINTL
		PRINTFORMW 「……久等了。回到原样了哟」
		PRINTFORMW %CALLNAME:TARGET%的身体恢复了原状
	ENDIF
CASE "妊娠可能になって"
	PRINTFORMW %CALLNAME:MASTER%请求%CALLNAME:TARGET%变成可以妊娠的状態
	PRINTL
	PRINTFORMW 「我明白了，那么请稍事等候……」
	CALL SETFLAG, "妊娠可能にする", MASTER
	PRINTL
	PRINTFORMW 「……久等了。变得可以妊娠了哦」
	PRINTFORMW %CALLNAME:TARGET%变得可以妊娠的样子了
CASE "妊娠不可にして"
	PRINTFORMW %CALLNAME:MASTER%请求%CALLNAME:TARGET%从可以妊娠的状態回到原样
	PRINTL
	PRINTFORMW 「还是想要变成不能妊娠的体质吗？」
	IF COND("妊娠中", MASTER) || COND("受精確認", MASTER)
		PRINTFORM 「我明白了……我也说的是
		IF COND("妊娠後期")
			PRINTFORMW 再稍微过些时候就要生産了，不是吗」
		ELSEIF COND("妊娠中期")
			PRINTFORMW 肚子也已经变大很多了，不是吗」
		ELSEIF COND("妊娠初期")
			PRINTFORMW 虽然肚子还没有大起来，但是难道不是妊娠了吗」
		ELSEIF COND("受精確認", MASTER)
			PRINTFORMW 「……啊嘞？　法术看上去不起作用的样子呢」
		ENDIF
		;生理は何か起きてない扱いなの？　と突っ込んで是けない
		IF COND("妊娠中：妊娠発覚済み")
			PRINTFORMW 「这个法术在胎内有什么事情发生着的情况下是不会发挥效果的」
			PRINTFORMW 「所以，直到生出孩子为止都请等候」
		ELSE
			PRINTFORMW 「……恐怕一时半会都不会起作用了呢」
			PRINTFORMW 「因为稍微等一下就能做好，请让我再来一次」
		ENDIF
	ELSE
		PRINTFORMW 「我知道了。那么请稍作等候哦……」
		IF BASE:MASTER:魂 <= 100
			PRINTFORMW 「……哦呀？　魂好像不够了的样子」
			PRINTFORMW 「没办法。因为实际上已经存储着%CNAME("二人称")%的魂了，就用那个来做吧」
			CALL PRINT_STRW, @"「……之后，请准备好充足的回礼哦_H_」"
			CALL KOJO_WISH_K25_USESOUL, ARGS, TARGET
		ELSE
			CALL KOJO_WISH_K25_USESOUL, ARGS
		ENDIF
	ENDIF
CASE "妊娠可能にして"
	PRINTFORM 想要把%CALLNAME:MASTER%は
	IF COND("種族：人形", MASTER)
		PRINTFORM %TEXTR("硬的/冷的/人工的")%人形的
	ELSEIF TALENT:MASTER:男性
		IF TALENT:MASTER:伪娘
			PRINTFORM 尽管会被误认作女性、实际上是男性的
		ELSE
			PRINTFORM 男性的
		ENDIF
	ELSEIF TALENT:MASTER:未成熟
		PRINTFORM 还和孩子一样的
	ENDIF
	PRINTFORMW 身体，向%CALLNAME:TARGET%拜托了想让这样的身体也能妊娠
	PRINTL
	IF CEVENT("乃々：妊娠可能了承") == 0
		;場所がおかしいが、还是算了を押すと戻される都合上こちらに書いておく
		CALL SET_CEVENT, "乃々：妊娠可能了承"

		PRINTFORMW 「……做这种事情本身没有问题，不过在那种情况下%CNAME("二人称")%的魂必不可少，没问题吗？」
		PRINTFORMW 「也就是说，因为这个法术要改变身体，所以只需要无论做什么都能承受住的身体强度」
		PRINTFORMW 「虽然说%CNAME("一人称")%是所谓的混血堕天使所以没问题，但是不管%CNAME("二人称")%有多么特别，身体还是人类」
		PRINTFORMW 「所以才不得不用魂来让身体变成可以经受住这些的状态」
		PRINTFORMW 「……嘛啊，是%CNAME("二人称")%的话，虽然没有什么特别的问题……」
		PRINTFORMW 「话说回来……那么，要怎么做呢？」
		CALL PRINT_SELECT, "術を受ける/还是算了"

		IF RESULT == 1
			PRINTFORMW 「……暂且不做吗。我明白了」
			PRINTFORMW 「还想要接受法术的时候，请再来和我说一声」
			RETURN 0
		ENDIF
	ENDIF
	PRINTFORMW 「……我明白了。那么请稍事等候……」
	IF BASE:MASTER:魂 <= 100
		PRINTFORMW 「……哦呀？ 看来魂不够了呢」
		IF BASE:魂 > 100
			PRINTFORMW 「没办法。因为实际上已经存储着%CNAME("二人称")%的魂了，就用那个来做吧」
			CALL PRINT_STRW, @"「……之后，请准备好充足的回礼哦_H_」"
			CALL KOJO_WISH_K25_USESOUL, ARGS, TARGET
		ELSE
			PRINTFORMW 「因为这样很危险，请明天再来吧」
		ENDIF
	ELSE
		CALL KOJO_WISH_K25_USESOUL, ARGS
	ENDIF
CASE "男性に戻して"
	PRINTFORMW 「我明白了。那么请安安静静不要动……」
	SIF CFLAG:年齢一時保管 != 0
		TALENT:MASTER:外見年齢 = CFLAG:年齢一時保管
	TALENT:MASTER:伪娘 = 0
	CFLAG:年齢一時保管 = 0
	PRINTFORMW 「……久等了。已经可以了哦」
CASE "伪娘にして"
	PRINTFORMW 「我知道了。那么请稍等一下……」
	PRINTFORMW 「……那个、对这个部分的这里操作一下……」
	IF TALENT:MASTER:外見年齢 > 2
		PRINTFORMW 「在最后如果使用这个魔法的话……」
		CFLAG:年齢一時保管 = TALENT:MASTER:外見年齢
		TALENT:MASTER:外見年齢 = 1
	ENDIF
	TALENT:MASTER:伪娘 = 1
ENDSELECT

;魂を使う領帯プのお願いの時に通すプログラム
;複数書き始めると一所に纏めたほうが都合がよさそうなのでする
@KOJO_WISH_K25_USESOUL, ARGS, ARG

;ARGに記載がない場合は、＝你の魂を使うものとする
SIF ARG == 0
	ARG = MASTER

BASE:ARG:魂 -= 100

;乃々君が魂を使う可能性がある都合上、魂が貯圆圈かどうかは別個に記述する（めちゃくちゃめんどくさいけど）
SELECTCASE ARGS
CASE "妊娠不可にして"
	SIF ARG != TARGET
		BASE:TARGET:魂 += 100
	PRINTFORMW 「……好的、完成了」
	CALL SETFLAG, "妊娠不能にする", MASTER
	PRINTL
	PRINTFORMW %CALLNAME:MASTER%使用了魂变回了不能妊娠的体质
CASE "妊娠可能にして"
	SIF ARG != TARGET
		BASE:TARGET:魂 += 100
	PRINTFORMW 「……好的、完成了」
	CALL SETFLAG, "妊娠可能にする", MASTER
	PRINTL
	PRINTFORMW %CALLNAME:MASTER%使用了魂变成了可以妊娠的体质
ENDSELECT
PRINTL
PRINTFORMW 魂-1.00（%CALLNAME:ARG%）

;-------------------------------------------------
;Talk指令の選択肢を追加
;玛丽桑の作者桑＋千紗酱の作者桑の建议で加筆することにしました
;知識が増えれば対応する内容もちょっと変わるかもしれない
@DAILY1_K25_ADDSELECT
SIF DAILYCOMNAME(1) == "Talk"
	STR:選択肢 += "美術について聞く/"

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY1_K25_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "美術について聞く"
	PRINTFORMW %CALLNAME:MASTER%向%CALLNAME:TARGET%打听%ARGS%了。
	PRINTL
	PRINTFORMW 「诶？ 想要%CNAME("一人称")%告诉你関于美术的事情吗？」
	IF CEVENT("美術初めて") == 0
		PRINTFORMW 「虽然可以，但是要从哪里……诶？ 現代芸術？」
		PRINTFORMW 「原来如此，上次美术课上的讲义上说的是现代艺术……」
		PRINTFORMW 「嘛，不过因为也有亲戚把拍卖上买到的东西让给我的事情，所以多少还是知道一些啦……」
		CALL SET_CEVENT, "美術初めて"
	ENDIF
	CALL QUESTION_ART
	PRINTL
ENDSELECT

;-------------------------------------------------
;互动指令の選択肢を追加
@DAILY2_K25_ADDSELECT
SIF CEVENT("ほっぺふにふに") && GETBIT(CFLAG:一日フラグ, 0) == 0
	STR:選択肢 += "頬をつんつんする/"

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K25_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "頬をつんつんする"
	SELECTCASE CFLAG:つんつん回数
	CASE IS >= 50
		IF RAND:2
			PRINTFORMW 「好、好了～～～」
		ELSE
			PRINTFORMW 「太、太害羞了！　因为太害羞了！」
		ENDIF
	CASE IS >= 25
		PRINTFORMW 「请停下、停下来！」
	CASEELSE
		PRINTFORMW 「请、请停手！」
	ENDSELECT
	PRINTL
	PRINTFORMW %CALLNAME:MASTER%戳了戳%CALLNAME:TARGET%的脸颊……。
	SIF CFLAG:つんつん回数 <= 999
		CFLAG:つんつん回数++
	INVERTBIT CFLAG:一日フラグ, 0
ENDSELECT

;-------------------------------------------------
;约会行き先の選択肢を追加。
@DATE_K25_ADDSELECT
;ここで増やした選択肢を選ぶと、それがSAVESTR:约会 に代入される仕組みです
STR:選択肢 += "写真展/"
SIF CEVENT("家族公認")
	STR:選択肢 += @"%CALLNAME:TARGET%的家/"

;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
@KOJO_DATE_K25_ADDSELECT
SELECTCASE SAVESTR:约会
CASE "写真展"
	PRINTFORMW 「这么说来、在附近的%TEXTR("美術館/画廊")%好像举办着摄影展的样子」
	PRINTFORMW 「可以的话，不来一起去吗」
	PRINTFORML
	;地の文
	PRINTFORMW %CALLNAME:TARGET%和%CALLNAME:MASTER%去了%TEXTR("新鋭/行内老手/中堅")%摄影家的%SAVESTR:约会%
	SELECTCASE RAND:3
	CASE 2
		PRINTFORMW 为时尚杂志被拍摄的苗条模特儿们，摆着各种各样的姿势静止在房间里的墙上
	CASE 1
		PRINTFORMW 摆着色情姿势的裸体女性们的照片，被密密麻麻地展示着
	CASEELSE
		PRINTFORMW 在各种地方拍摄的风景照片，以一定的间隔展示着
	ENDSELECT
	;地の文を用意していない場合には汎用のものを使う
	;CALL DAILY_MESSAGE, "约会本番"
	PRINTL
	PRINTFORMW 「偶然地从学校的公告牌上写着的内容里知道了，听说这里展示着珍贵的照片，所以就想着看一次呢」
	PRINTFORMW 聚精会神地安静望着照片的%CALLNAME:TARGET%小声地说起来
	PRINTFORMW 「……在这里的照片，仔细看的话，在技术上相当扎实，很受欢迎呢」
	PRINTFORMW 「真了不起啊……%CNAME("一人称")%什么时候也想拍拍看这样的照片啊……」
	PRINTFORMW %CALLNAME:TARGET%和%CALLNAME:MASTER%两个人享受了这场%SAVESTR:约会%……
	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
	FLAG:情緒 += 30
	;それぞれ可能なもののコメントアウトを取下
	TFLAG:约会中牵手可能 = 1
CASE @"%CALLNAME:TARGET%的家"
	;乃々君のお家に突入だ！
	;家族からの理解も必要と考えて、相思相愛時解放のイベントとして作る予定
	FLAG:情緒 += 60
	TFLAG:约会中H可能 = 1
	CALL K25_DATE_HOUSE_SOLO
ENDSELECT

path: ERB/EVENT_K/25 ノノ/EVENT_K25_SELECT.ERB


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

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER
			CALL PRINT_STRW, @"「%MIX_AEGI(3+RAND:2, TARGET, "要")%」"
			CALL PRINT_STRW, @"「%AEGI(TARGET, "要", "通常")%等一下_H_%AEGI(TARGET, "要", "通常")%」"
			CALL PRINT_STRW, "「虽然是可以_H_为什么_H_要在这种时候_H_」"
			CALL PRINT_STRW, @"「%MIX_AEGI(2, TARGET, "要")%」"
		ELSE
			CALL PRINT_STRW, @"「%MIX_AEGI(3, TARGET, "要")%」"
			CALL PRINT_STRW, @"「%AEGI(TARGET, "要", "通常")%我了解了_H_我了解啦，所以_H_」"
			CALL PRINT_STRW, @"「停停_H_%AEGI(TARGET, "要", "通常")%先停停吧_H_」"
		ENDIF
	ELSE
		PRINTDATAW
			DATA 「何をしてほしいんですか？」
			DATA 「何をすればいいでしょうか？」
			DATA 「何かしてほしいことでもあるんですか？」
		ENDDATA
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「！　真、真的吗！？」
		PRINTFORMW 「那个，%CNAME("一人称")%也喜欢%CNAME("二人称")%哦！　非常喜欢！」
		PRINTFORMW 「……真是恍若梦中呢」
		PRINTFORMW 「……那个、那么就……」
		PRINTFORMW 「……拜托了、请给我一个吻吧」
	;失敗
	ELSE
		PRINTFORMW 「很抱歉」
		IF YOKUBO()
			PRINTFORMW 「虽然很喜欢和%CNAME("二人称")%做爱，但是这样的事情还是稍微有点……」
		ELSE
			IF RAND:2
				PRINTFORMW 「%CNAME("一人称")%们还没到那样的関系……」
			ELSE
				PRINTFORMW 「%CNAME("二人称")%这么想我很高兴……」
			ENDIF
		ENDIF
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	;屈服刻印で分岐
	IF YOKUBO()
		IF COND("合意：胖次交易")
			PRINTFORMW 「啊哈哈，今天没穿就来学校了」
		ELSE
			PRINTFORMW 「如果……我说不行，你会怎么做？」
			PRINTFORMW 「嘛啊，虽然今天也没有穿就是了呢」
		ENDIF
	ELSE
		PRINTFORMW 「那个……这个……今天……」
		PRINTFORMW 「……对，没有穿」
	ENDIF
;胖次を要前の会話。
CASE "胖次交易"

CASE "胖次"
	IF YOKUBO()
		PRINTFORMW 「好的哟」
		CALL PRINT_STRW, "「作为交换，之后请告诉我拿去做什么用了哦_H_」"
		;胖次を脱いで渡してくる汎用地の文
		CALL DAILY_MESSAGE, "脱下胖次交了出去"
	ELSEIF TALENT:恋慕 || MARK:屈服刻印 == 2
		PRINTFORMW 「诶、」
		PRINTFORMW 「啊、　　好的、　　知道了……」
		;胖次を脱いで渡してくる汎用地の文
		CALL DAILY_MESSAGE, "脱下胖次交了出去"
		PRINTFORMW 「……那个……打算用来干什么？」
		PRINTFORMW 「不、不不！　绝对不是说我对这种东西有兴趣！」
		PRINTFORMW 「绝对没有想过要被当成今晚的正餐吃干抹净什么的！」
		PRINTFORMW 「……诶？　刚刚的发言是……？　……………………啊」
	ELSE
		PRINTFORMW 「……%CNAME("二人称")%还真是个胆大包天的人呢」
		PRINTFORMW 「回应、吗？　那个……………………」
		PRINTFORMW 「…………我、我会给你」
		;胖次を脱いで渡してくる汎用地の文
		CALL DAILY_MESSAGE, "脱下胖次交了出去"
	ENDIF
CASE "胖次拒否"
	IF YOKUBO()
		PRINTDATAW
			DATA 「すみません、今日は流石に穿いてなかったらマズい日なので……」
			DATA 「ごめんなさい、今日はちょっと……」
		ENDDATA
	ELSE
		PRINTDATAW
			DATA 「そ、そういうことはするべきじゃ有ませんよ……」
			DATAFORM 「就算是%CNAME("二人称")%的请求、果然还是……」
		ENDDATA
	ENDIF
CASE "全裸交易"

CASE "全裸"
	;取引初成功
	IF COND("合意：全裸化") == 0
		IF YOKUBO()
			PRINTFORMW 「好的，明白了」
			PRINTFORMW 「……不过%CNAME("二人称")%有着很不错的爱好呢」
			CALL PRINT_STRW, "「不、没有特别的问题。不如说有同样爱好的人在让我很高兴_H_」"
		ELSE
			PRINTFORMW 「……%CNAME("二人称")%是不是觉得，只要是拜托%CNAME("一人称")%的事情的话什么都可以做呢？」
			PRINTFORMW 「……嘛、虽然也没什么不对的……」
		ENDIF
	ELSE
		;まさかの野外
		IF PLACE("野外")
			IF YOKUBO()
				IF ABL:露出癖 >= 3
					PRINTFORMW 「好的，明白了」
					PRINTFORMW 「……不过%CNAME("二人称")%有着很不错的爱好呢」
					CALL PRINT_STRW, "「不、没有特别的问题。不如说有同样爱好的人在让我很高兴_H_」"
				ELSE
					PRINTFORMW 「那个……虽然我不介意变成全裸、但是……至少在其他的地方做吧？」
					PRINTFORMW 「要说不行还是不太行吧……嘛，虽然想要做做看，但这也太不合常理了吧」
					PRINTFORMW 「……………………」
					PRINTFORMW 「…………即使如此，还是……」
					CALL PRINT_STRW, @"「哈……我明白了………………呜呜、被看见了的话要怎么办才好…………_H_」"
				ENDIF
			ELSE
				PRINTFORMW 「诶、诶！？　在这里脱成全裸吗！？」
				PRINTFORMW 「不管怎么说都太超出常识了吧……」
				PRINTFORMW 「………………」
				PRINTFORMW 「如、如果想让我脱成那样的话，只要稍微……」
				PRINTFORMW 「……因为万一被别人看到了的话，会怨恨吧」
			ENDIF
		;他に人がいる
		ELSEIF CHARA_NUM("室内の邪魔者")
			IF YOKUBO()
				SELECTCASE RAND:3
				CASE 0
					CALL PRINT_STRW, @"「虽说是认识的对象，但是在其他人面前脱得一丝不挂什么的，%CNAME("二人称")%也会说些鬼畜的话呢……_H_」"
				CASE 1
					CALL PRINT_STRW, @"「在认识的人的眼前，让人看到被開発过的让人讨厌的裸体、%CNAME("二人称")%真是个过分的人呢_H_」"
				CASE 2
					CALL PRINT_STRW, @"「呼呼_H_被其他人看到了……好兴奋啊……_H_」"
				ENDSELECT
				CALL PRINT_STRW, @"「呼呼呼_H_请稍微等一下哦_H_」"
			ELSE
				PRINTFORMW 「……诶、在、在这里、吗……」
				PRINTFORMW 「………………嘛、虽然也不是不行……」
			ENDIF
		;不在個室
		ELSEIF PLACE("個室") == 0
			IF YOKUBO()
				SELECTCASE RAND:2
				CASE 0
					CALL PRINT_STRW, @"「虽说是认识的对象，但是在别人进进出出的地方脱得一丝不挂什么的，%CNAME("二人称")%也会说些鬼畜的话呢……_H_」"
				CASEELSE
					CALL PRINT_STRW, @"「在不知道有谁会来的地方让人脱光看光，%CNAME("二人称")%真是过分的人啊……_H_」"
				ENDSELECT
				CALL PRINT_STRW, @"「呼呼呼_H_请稍微等一下哦_H_」"
			ELSE
				PRINTFORMW 「……诶、在、在这里、吗……」
				PRINTFORMW 「………………嘛、虽然也不是不行……」
			ENDIF
		;個室で二人きり
		ELSE
			IF YOKUBO()
				;CALL PRINT_STRW, "「好的，请_H_」"
				SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「好的，明白了」
					PRINTFORMW 「……不过%CNAME("二人称")%有着很不错的爱好呢」
					CALL PRINT_STRW, "「不、没有特别的问题。不如说有同样爱好的人在让我很高兴_H_」"
				CASEELSE
					CALL PRINT_STRW, @"「呼呼_H_我明白了_H_」"
					CALL PRINT_STRW, @"「请，%CNAME("二人称")%_H_」"
					CALL PRINT_STRW, @"「被%CNAME("二人称")%用做爱教导过的身体、请好好看着吧_H_」"
				ENDSELECT
			ELSE
				;PRINTFORMW 「%CNAME("二人称", "どもり")%……这、这要怎么办呢……」
				PRINTFORMW 「……%CNAME("二人称")%是不是觉得，只要是拜托%CNAME("一人称")%的事情的话什么都可以做呢？」
				PRINTFORMW 「……嘛、虽然也没什么不对的……」
			ENDIF
		ENDIF
	ENDIF
	PRINTL
	CALL EVENT_DATUI, "裸体"
CASE "全裸拒否"
	IF YOKUBO()
		PRINTFORMW 「虽然是很有诱惑力的提案……但是还没有做到那一步的勇气……」
		PRINTFORMW 「对不起，%CNAME("二人称")%」
	ELSEIF TALENT:恋慕
		PRINTFORMW 「不论怎么说都是%CNAME("二人称")%的请求，只不过果然是这样……」
	ELSE
		PRINTFORMW 「果，果然是这样……」
	ENDIF
CASE "同居拒否"
	PRINTFORMW 「还没到那样的関系……」

CASE "同居希望"
	PRINTFORMW 「好的哟」
	SIF MARK:屈服刻印 >= 3
		CALL PRINT_STR, "「一起度过从早到晚都沉浸于性爱的每一天吧……_H_」_W"
CASE "同居頻度的相談"
	PRINTFORMW 「要一直都在一起生活吗？」

CASE "便当拒否"
	PRINTFORMW 「那个，对不起」
	PRINTFORMW 「现在有点忙，没有时间……」
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORMW 「还想要我做便当吗？」
		IF TALENT:恋慕 && RAND:2
			SELECTCASE RAND:2
			CASE 0
				PRINTFORMW 「……嘛，虽然可以」
				PRINTFORMW 「……并不是在闹别扭哦」
			CASE 1
				PRINTFORMW 「好啊、乐意效劳」
				PRINTFORMW 「为了能让%CNAME("二人称")%高兴，我会诚心诚意努力的」
			ENDSELECT
		ELSE
			PRINTFORMW 「这么喜欢我吗？　好開心呢」
		ENDIF
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		PRINTFORMW 「想要%CNAME("一人称")%来做便当……吗？」
		PRINTFORMW 「虽然不太有自信……但我会试着努力做做看的」
;		IF COND("同居中")
;
;		ELSE
;
;		ENDIF
	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 "禁断的知識"
	SELECTCASE TALENT:MASTER:禁断的知識
	CASE 0
		PRINTFORMW 「……呼、完成了」
		PRINTFORMW 「这样%CNAME("二人称")%也变得能使用初步的魔法了」
		PRINTFORMW 「如果说%CNAME("二人称")%会用到的东西……」
		IF YOKUBO()
			PRINTFORMW 「……是这样呢，好像可以雕刻上被称作淫紋的、让性欲之类增强的紋章呢」
			PRINTFORMW 「除此以外，好像还可以对被雕刻的对象做各种各样的色色的事哦？」
			CALL PRINT_STRW, @"「……要试试看在%CNAME("一人称")%身上雕刻吗_H_」"
		ELSE
			PRINTFORMW 「……嗯——、那个……好像可以雕刻上被称为淫紋的、色气的紋章了……」
			PRINTFORMW 「……这之后的说明就请原谅我不再解释了」
		ENDIF
	CASE 1
		PRINTFORMW 「……好、已经没问题了哟」
		PRINTFORMW 「这样%CNAME("二人称")%能使用魔法的范围就变大了哟」
		PRINTFORMW 「如果说%CNAME("二人称")%会用到的东西……」
		IF YOKUBO()
			PRINTFORMW 「……啊啊，是这样，有这样的东西啊」
			PRINTFORMW 「这次记住的魔法里，有『让女孩子长出陰茎』这样的魔法」
			PRINTFORMW 「不过呢，因为是暂时性的东西，请注意这一点」
		ELSE
			PRINTFORMW 「……啊ー……这个……可以让女孩子也长出肉棒的样子了……虽然是暂时性的东西……」
		ENDIF
	CASE 2
		PRINTFORMW 「……好，这样就结束了」
		PRINTFORMW 「这样%CNAME("一人称")%就把知识范围内能告诉的东西全都告诉你了」
		PRINTFORMW 「现在的%CNAME("二人称")%应该比以前能做更多各种各样的事情了」
		IF YOKUBO()
			PRINTFORMW 「比如说，不想在人声鼎沸的祭典会场做一场说走就走的爱吗」
			PRINTFORMW 「但是在一般情况下做那样的事的话会变成不得了的骚乱吧？」
			CALL PRINT_STRW, @"「但是现在的%CNAME("二人称")%如果使用魔法，就变得能在不会被任何人知道的情况下做色色的事情了哦……_H_」"
		ELSE
			PRINTFORMW 「……诶？　比如说怎样的……吗……？」
			PRINTFORMW 「……………………………」
			CALL PRINT_STRW, "「…………那个、能在谁也不会注意到的情况下做色色的事情……_H_」"
		ENDIF
	ENDSELECT
CASE "淫紋拒否"
	PRINTFORMW 「这、这样的事情，等関系再稍微变好些再来做比较好吧……」
	PRINTFORMW 「绝、绝对不是说、那个、一戴上这个、那个、就会变得无法忍耐、这样的意思！？」
;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF

CASE "淫紋贴纸"
	;初回
	IF DEVENT(ARGS) == 0
		IF YOKUBO()
			CALL PRINT_STRW, @"「呵呵_H_感觉下腹阵阵发麻……_H_」"
			CALL PRINT_STRW, @"「贴纸也不过如此，真的刻上去会怎么样呢……_H_」"
		ELSE
			CALL PRINT_STRW, @"「%AEGI(TARGET, "要", "通常")%这、这个，好厉害……_H_」"
			CALL PRINT_STRW, @"「仅仅是一个贴纸，身体却感觉如此难耐……_H_」"
		ENDIF
	ELSE
		IF YOKUBO()
			CALL PRINT_STRW, @"「啊哈_H_好像要上瘾了……」"
		ELSE
			CALL PRINT_STRW, @"「那、那个……快、快点……_H_」"
			PRINTFORMW 「……！　不、不是、什么都没有……」
		ENDIF
	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	SELECTCASE MARK:淫紋
	CASE 2
		IF YOKUBO()
			CALL PRINT_STRW, @"「终于放进去了呢、淫紋_H_」"
			CALL PRINT_STRW, @"「身体已经開始痒得发疼了……_H_只是稍微放进去就变成这样了，全都放进去的话会变成什么样啊……_H_」"
		ELSE
			PRINTFORMW 「终、终于放进去了……」
			CALL PRINT_STRW, @"「呜呜……身体疼起来了……这样下去会变成什么样呢……_H_」"
		ENDIF
	CASE 3
		IF YOKUBO()
			CALL PRINT_STRW, @"「……呼呼呼_H_顺利地完成了呢……_H_」"
			CALL PRINT_STRW, @"「啊哈……_H_身体里燥热起来了，像火在烧……_H_」"
		ELSE
			CALL PRINT_STRW, @"「那、那个，还不放弃吗？」"
			CALL PRINT_STRW, @"「那个，最近身体燥热难耐……啊_H_」"
		ENDIF
	CASE 4
		IF YOKUBO()
			CALL PRINT_STRW, @"「呼呼_H_全部完成了呢_H_淫紋_H_」"
			PRINTFORMW 「……实际上，从刚刚開始身体就疼得不得了。是淫紋的影响吗」
			CALL PRINT_STRW, @"「所以啊，%CNAME("二人称")%要负起责任，多多做色色的事情哦_H_」"
		ELSE
			CALL PRINT_STRW, @"「呜……%CNAME("二人称", "どもり")%……_H_」"
			CALL PRINT_STRW, @"「请把色情的%CNAME("一人称")%搞得一塌糊涂……_H_」"
			PRINTFORMW 「……！ 才、才不是」
			PRINTFORMW 「那个，可以暂时搁置一下吗……？」
			PRINTFORMW 「那个、现在稍微变得有点奇怪……想用%CNAME("二人称")%的手来变得舒服透顶……的样子，是这么说的吗……」
		ENDIF
	ENDSELECT

CASE "拜托処理性欲"
	SELECTCASE MARK:屈服刻印
	CASE IS <= 1
		PRINTFORMW 「为、为什么要说这样的话！」
		PRINTFORMW 「…………可以哦」
	CASE 2
		PRINTFORML 「是知道%CNAME("一人称")%拒绝不了才这么说的吧？」
		PRINTFORMW 「真是个狡猾的人」
	CASEELSE
		PRINTFORML 「真是绝妙的想法呢！」
		CALL PRINT_STR, @"「服务完以后还必须要带着一副若无其事的表情去上课什么的授……兴奋到鸡皮疙瘩都起来了……_H_」_W"
	ENDSELECT
CASE "性処理の一時中断"
	SIF MARK:屈服刻印 <= 1
		PRINTFORML 「就、就是这样！　这样寡廉鲜耻的関系绝对是越早停下来越好！」
	PRINTFORMW 「………………」
CASE "性処理拒否"
	SELECTCASE MARK:屈服刻印
	CASE IS <= 1
		PRINTFORMW 「不行的！　绝对不可以！」
	CASE 2
		PRINTFORMW 「好讨厌……因为会变得抑制不住自己」
	CASEELSE
		PRINTFORML 「因为有些没有那样做的心情」
		PRINTFORMW 「很抱歉」
	ENDSELECT

;悪魔、淫魔、妖狐専用
CASE "给我看尾巴"

CASE "给我看尾巴拒否"

;改变髪型のは、長さが披肩以上の人のみ。未設定だと披肩扱いです
;髪型を弄る際に手伝ってくれる人がASSIになっています。お手伝い桑を指名したい場合にはその人をASSIにして下さい
CASE "改变髪型"
	IF CEVENT("乃々：髪初回") == 0
		PRINTFORMW 「是这样呢、偶尔试着弄弄看不一样的发型说不定也不错」
		CALL SET_CEVENT, "乃々：髪初回"
	ELSE
		PRINTFORMW 「呼呼、请弄成%TEXTR("可爱的/漂亮的")%髪型哟？」
	ENDIF
CASE "髪型変更の感想"
	;どの髪型变成了かで分岐可能
	SELECTCASE CONDS("髪型の種類")
	CASE "齐刘海"
		PRINTFORMW 「这个发型，想要剪得漂亮真的很难……」
		PRINTFORMW 「最后还是去了美容院请人帮忙」
	;CASE "直髪"
	;	PRINTFORMW
	;CASE "卷髪"
	;	PRINTFORMW
	;CASE "双马尾"
	;	PRINTFORMW
	;CASE "马尾辫"
	;	PRINTFORMW
	CASE "三股辫", "编起来"
		PRINTFORMW
	CASE "団子頭"
		PRINTFORMW
	;其他
	CASEELSE
		PRINTFORMW 「这个发型怎么样？　%CNAME("二人称")%」
	ENDSELECT
CASE "改变髪型拒否"

;これは普段から连褲襪を履く人じゃないとあんまり見る機会ないと思う
CASE "连褲襪着替え"
	;台詞を書いたら下のRETURN 1を消してください
	;RETURN 1
	;どれに履き替えてもらったか
	IF CHECK_OUTER("開放型连褲襪")
		IF YOKUBO()
			CALL PRINT_STRW, @"「呼呼_H_%CNAME("二人称")%想让%CNAME("一人称")%穿着这样的东西吗_H_」"
			CALL PRINT_STRW, @"「重要的地方不是会全都被看光吗_H_」"
		ELSE
			PRINTFORMW 「诶……？　这、这个，重要的地方不是会全都被看光吗……」
			CALL PRINT_STRW, @"「那个，如果无论如何都想看的话，倒是可以……_H_」"
		ENDIF
	ELSEIF CHECK_OUTER("渔网连褲襪")
		PRINTFORMW 「……给人的印象真是大不相同呢……」
	ELSEIF CHECK_OUTER("连褲襪")
		PRINTFORMW
	;生足
	ELSE
		IF COND("冬")
			PRINTFORMW 「……稍微有些凉凉的呢……」
		ELSEIF YOKUBO()
			PRINTFORMW 「……只是动一动好像就能看见内衣了，稍微有点不放心呢……」
			CALL PRINT_STRW, @"「……要兴奋起来了_H_」"
		ELSE
			PRINTFORMW 「……总感觉，只要稍微动一下就会看见内衣，好羞耻……」
		ENDIF
	ENDIF
;CASE "连褲襪着替え拒否"

CASE "巨根化して"
	PRINTFORMW 「好啊、虽然可以……」
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸")
	CASE "短小"
		IF VAGINA(PLAYER) && RAND:3
			IF TALENT:PLAYER:処女
				PRINTFORMW 「那个……果然再稍微大一些比较好吧？」
			ELSE
				PRINTFORMW 「那个……果然还是不够……吗？」
			ENDIF
		ELSEIF YOKUBO()
			IF YOKUBO() >= 2
				IF PENIS(PLAYER) && CONDS("潜在的含む阴茎尺寸", PLAYER) == "普通"
					CALL PRINT_STRW, @"「呼呼_H_用这个和%CNAME("二人称")%一起做呢_H_」"
				ELSE
					CALL PRINT_STRW, @"「呼呼_H_%CNAME("一人称")%的%ADANA("阴茎")%，变大了呢_H_」"
				ENDIF
			ELSE
				PRINTFORMW 「……久等了。感觉怎么样？」
			ENDIF
		ELSE
			PRINTFORMW 「……这、这样就好了吗……？」
		ENDIF
	CASE "普通"
		IF YOKUBO()
			CALL PRINT_STRW, @"「虽然是自己的东西，但也变成了非常气派的肉棒啊……_H_」"
		ELSE
			PRINTFORMW 「……那、那个，已经可以了吗……？」
		ENDIF
	CASE "巨根"
		IF VAGINA(PLAYER) && RAND:3
			PRINTFORMW 「虽然我觉得太大了也不是一件好事……」
		ELSEIF YOKUBO()
			CALL PRINT_STRW, @"「……呼呼_H_把%CNAME("一人称")%的%ADANA("阴茎")%变得这么大，%CNAME("二人称")%想对%CNAME("一人称")%做什么呢_H_」"
		ELSE
			CALL PRINT_STRW, @"「呜哇啊……好、好大……_H_」"
		ENDIF
	CASE "馬根"
		PRINTFORMW 「……那个、无论再怎么说，不都太大了些吗……？」
	;腕並以上
	CASEELSE
		PRINTFORMW 「……这么大的话，总感觉不像是自己的东西……」
	ENDSELECT

CASE "巨根化して拒否"
	PRINTFORMW 「果然再大一些就有点……」
	PRINTFORMW 「可能会遇上很多不方便的地方的样子……」

CASE "短小化して"
	PRINTFORMW 「好啊、虽然可以……」
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸")
	CASE "普通"
		PRINTFORMW 「……像这样再重新回頭看的话，、%CNAME("一人称")%的还真是小呢」
	CASE "巨根"
		IF YOKUBO() && VAGINA(MASTER)
			CALL PRINT_STRW, @"「呼呼_H_为了能用这种程度的大小让%CNAME("二人称")%舒服起来会加油哦_H_」"
		ELSE
			PRINTFORMW 「……这、？这样就行了吗？」
		ENDIF
	CASE "馬根"
		IF YOKUBO() && RAND:2
			PRINTFORMW 「……虽然之前认为大一些比较好，不过实际上一看，这样子刚刚好呢」
		ELSE
			PRINTFORMW 「……老实说，那样的大小也会带来不便之处吧……」
		ENDIF
	;腕並、規格外
	CASEELSE
		PRINTFORMW 「……嘛啊、确实是太大了呢」
	ENDSELECT

CASE "短小化して拒否"

CASE "業物"
	CALL PRINT_STRW, @"「诶、这、这是……_H_」"
	IF YOKUBO()
		CALL PRINT_STRW, @"「……也就是说、这根%ADANA("阴茎")%会好好疼爱%CNAME("一人称")%吧……_H_」"
	ELSE
		PRINTFORMW 「…………！　没、没什么！　快、快点吧！」
	ENDIF

CASE "女性化"
	IF DEVENT(ARGS) == 0
		IF TRUE_SEX(PLAYER) == "女性"
			PRINTFORMW 「啊，你变回女孩子了呢」
			IF CFLAG:好感度 >= 1000
				PRINTFORMW 「……那个，我有件事想问你……」
				PRINTFORMW 「女人的快感和男人有多不一样？」
				IF YOKUBO()
					PRINTFORMW 「%CNAME("一人称")%、因为自己的身体没有那样的经验，所以无论如何都很在意……」
					SIF TALENT:出産経験
						PRINTFORMW 「我有过生孩子的经验，但不是用别的%ADANA("ヴァギナ")%生的，所以不太能想象」
					IF COND("相性◎", FIND_COND("織")) && RAND:3 == 0
						PRINTFORMW 「%CNAME("織")%也是有经验的人，但是问他总觉得有点不好意思……」
					ELSEIF COND("相性◎", FIND_COND("灯")) && CEVENT("女性化：初回", FIND_COND("灯")) && RAND:2
						PRINTFORMW 「我曾经问过%CNAME("灯")%，但总是被她巧妙地避開」
						PRINTFORMW 「我有点好奇她是故意的还是害羞」
					ELSEIF COND("相性◎", FIND_COND("紬希")) && TALENT:(FIND_COND("紬希")):男性 == 0
						PRINTFORMW 「%CNAME("紬希")%也这么说……」
						PRINTFORMW 「……我觉得她和%CNAME("一人称")%，这个，根本上有点不同的感觉」
						PRINTFORMW 「所以我觉得这样的问题本身会伤害到她……」
					ENDIF
					PRINTFORMW 「……所以，如果可以的话，请告诉我吧」
					PRINTFORM 「那么、
				ELSE
					PRINTFORMW 「啊、那、那个！　 怎么说呢，那个……」
					PRINTFORMW 「……%CNAME("一人称", "どもり")%也对这种事情感兴趣……」
					PRINTFORMW 「……咳咳！　 那个是另一回事」
					PRINTFORM 「
				ENDIF
			ELSE
				PRINTFORMW 「那个……不，没什么」
				PRINTFORM 「
			ENDIF
			PRINTFORMW 那么请稍等一下……」
		ELSE
			PRINTFORMW 「……那个，你想变成女孩子吗？」
			PRINTFORMW 「不，不是不可能……你确定吗？ 　户籍、性别之类的」
			PRINTFORMW 「……嗯，如果你问我能不能掩饰这些东西的话，是可以的……」
			PRINTFORMW 「诶，你问%CNAME("一人称")%对此是否感兴趣？」
			IF YOKUBO()
				PRINTFORMW 「当然有兴趣。只是怎么说呢，我现在也觉得现在这样挺好的」
				PRINTFORMW 「虽然%ADANA("ヴァギナ")%的愉悦感现在还体会不到，但如果不是现在，就无法体会从男性变成雌性的愉悦感」
				CALL PRINT_STRW, @"「……而且，变成女孩子后，在同一个更衣室H这样的事情会变得困难的_H_」"
				PRINTFORMW 「……话虽如此，但我还是很感兴趣的」
				IF TALENT:出産経験
					PRINTFORMW 「虽说有过生孩子的经验，但毕竟现在的身体不一样了吧」
					PRINTFORMW 「如果问哪个更稀奇，当然是这边了，但因为不是作为女人生的，所以感觉有点不同」
				ENDIF
				IF COND("相性◎", FIND_COND("織")) && RAND:3 == 0
					PRINTFORMW 「问%CNAME("織")%也有点不好意思……」
				ELSEIF COND("相性◎", FIND_COND("灯")) && CEVENT("女性化：初回", FIND_COND("灯")) && RAND:2
					PRINTFORMW 「我曾经问过%CNAME("灯")%，但总是被她巧妙地避開了」
					PRINTFORMW 「我有点好奇她是故意的还是害羞」
				ELSEIF COND("相性◎", FIND_COND("紬希")) && TALENT:(FIND_COND("紬希")):男性 == 0
					PRINTFORMW 「%CNAME("紬希")%也是能变成女孩子的人……」
					PRINTFORMW 「……你不觉得她和%CNAME("一人称")%，这个，在本质上有点不同吗？」
					PRINTFORMW 「所以我觉得这样的问题本身会伤害到她……」
				ENDIF
				PRINTFORMW 「……对了，那就这样吧」
				PRINTFORMW 「%CNAME("二人称")%如果变成女孩子的话，请告诉我各种各样的感觉」
				CALL PRINT_STRW, @"「……作为交换条件、%CNAME("一人称")%会作为%CNAME("二人称")%所希望的『男孩子』侍奉您的……_H_」"
				PRINTFORMW 「……好了，那么在合适的时候開始魔法吧」
				PRINTFORMW 「请稍等一下……」
			ELSE
				PRINTFORMW 「那、那个、这个……」
				IF MARK:屈服刻印 >= 1
					PRINTFORMW 「要、要说没有的话，那是骗人的……」
					PRINTFORMW 「……嗯，那个，但是，对于自己的身体来说，不应该或者说是害怕……」
				ELSE
					PRINTFORMW 「…………………………」
					PRINTFORMW 「……那、那当然没有啦！」
				ENDIF
				PRINTFORMW 「先、先不说这个！　快点開始吧！」
			ENDIF
		ENDIF
	ELSE
		IF TRUE_SEX(PLAYER) == "女性"
			PRINTFORMW 「你想变回女孩子吗。那么请稍等一下……」
		ELSE
			PRINTFORMW 「你又想变成女孩子了吗。那么请稍等一下……」
		ENDIF
	ENDIF
CASE "女性化して"
	IF DEVENT(ARGS) == 0
		IF TRUE_SEX(TARGET) == "女性"
			PRINTFORMW 「啊，已经可以变回去了吗」
			IF YOKUBO()
				CALL PRINT_STRW, @"「呵呵_H_感觉要对这种新感觉上瘾了_H_」"
			ELSE
				CALL PRINT_STRW, @"「……啊，这样下去可能会上瘾……_H_」"
			ENDIF
		ELSE
			;書いたあとに想定と違いそうなことに気づいたが、まあエッチなので良いかなと就这様にする
			IF YOKUBO()
				PRINTFORMW 「%CNAME("二人称")%想变成女孩子吗？」
				PRINTFORMW 「没関系，但是不知为何有一种奇妙的失败感……」
				PRINTFORMW 「……開玩笑的，那么现在就变也可以吗？」
				PRINTFORMW 「诶？　奇怪地兴奋起来了吗？」
				PRINTFORMW 「……确实可能是这样。因为这是我第一次遇到这种情况」
				PRINTFORMW 「我对女孩子的快感之类的东西很感兴趣，但一直觉得不能这么做，所以一直犹豫不决」
				PRINTFORMW 「但现在我已经看開了很多，所以我觉得也没関系了」
				PRINTFORMW 「……那么，我们開始吧」
				CALL PRINT_STRW, @"「既然是%CNAME("二人称")%邀请的，那么请你好好告诉我女孩子的感觉吧_H_」"
			ELSE
				PRINTFORMW 「……那个、你想变成女孩子吗？」
				PRINTFORMW 「那、那个。怎么说呢……」
				PRINTFORMW 「讨厌……这个，要说讨厌的话有点不对，怎么说呢，是这样的……」
				PRINTFORMW 「你看，这还不是男生吗。用魔法把身体变成女孩子，然后以男生的身份行事，这样做怎么样呢……」
				PRINTFORMW 「……我、我明白了！　变成女孩子就好了吧！」
				PRINTFORMW 「既、既然%CNAME("二人称")%这么说……也不是没有办法……」
				PRINTFORMW 「……那、那么，马上開始吧」
				CALL PRINT_STRW, @"「……变成女孩子也请不要做奇怪的事情哦……_H_」"
			ENDIF
		ENDIF
	ELSE
		IF TRUE_SEX(TARGET) == "女性"
			IF YOKUBO()
				PRINTFORMW 「现在变回去比较好吗？」
				CALL PRINT_STRW, @"「……呵呵_H_再来一次就可能回不去了……_H_」"
			ELSE
				PRINTFORMW 「啊，已经可以了吗……那、那样的话……」
				CALL PRINT_STRW, @"「……那，那就到此为止吧……_H_」"
			ENDIF
		ELSE
			IF YOKUBO()
				PRINTFORMW 「又想变成女孩子了吗？」
				CALL PRINT_STRW, @"「好哟。%CNAME("一人称")%也想再次享受%ADANA("ヴァギナ")%的快感……_H_」"
			ELSE
				PRINTFORMW 「又、又想让我变成女孩子吗……？」
				CALL PRINT_STRW, @"「没関系……那、那个、请千万不要欺负%ADANA("ヴァギナ")%……_H_」"
			ENDIF
		ENDIF
	ENDIF
;以下は悪魔専用
CASE "魂が足りない"
	PRINTFORMW 「对不起，靠今天的%CNAME("二人称")%的魂的存量没法实现这个愿望」
CASE "想要钱"
	PRINTFORMW 「是想要钱呢。请稍微等一下……」
	PRINTFORMW 「……久等了。已经可以了哦」
CASE "甜言蜜语"
	PRINTFORMW 「虽然%CNAME("一人称")%没有自信能不能好好教你……」
	PRINTFORMW 「……诶？　这样感觉就足够了吗？」
CASE "謎之魅力"
	PRINTFORMW 「想在各种各样的人面前看起来有人格魅力呢。」
	SIF TALENT:恋慕
		PRINTFORMW 「……虽然在%CNAME("一人称")%来看已经是足够有魅力的人了呐……」
CASE "射精量強化"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかもＡ挿入中！
		IF INSERT("Ａ挿入相手") == MASTER
			CALL PRINT_STRW, @"「%MIX_AEGI(3, TARGET, "要")%」"
			CALL PRINT_STRW, @"「可以_H_可以是可以咿_H_%MIX_AEGI(1, TARGET, "要")%」"
			CALL PRINT_STRW, @"「什么都_H_不用在这种时候说啦_H_」"
		ELSE
			IF YOKUBO()
				CALL PRINT_STRW, @"「%MIX_AEGI(3, TARGET, "要")%」"
				CALL PRINT_STRW, @"「%AEGI(TARGET, "要", "通常")%我知道了……%AEGI(TARGET, "要", "通常")%」"
				CALL PRINT_STRW, @"「要让%CNAME("二人称")%的%ADANA("阴茎", TARGET, PLAYER)%っ_H_%AEGI(TARGET, "要", "通常")%满满地射出精来_H_」"
				CALL PRINT_STRW, @"「请在%CNAME("一人称")%的体内_H_满满地冲撞_H_」"
			ELSE
				CALL PRINT_STRW, @"「%MIX_AEGI(3, TARGET, "要")%」"
				CALL PRINT_STRW, @"「诶_H_为什么_H_是现在_H_%MIX_AEGI(2, TARGET, "要")%」"
				CALL PRINT_STRW, @"「会做的_H_会做的啦_H_请停下来_H_%MIX_AEGI(1, TARGET, "要")%」"
			ENDIF
		ENDIF
	ELSE
		IF YOKUBO()
			CALL PRINT_STRW, @"「想让你满满地出来呢_H_」"
			CALL PRINT_STRW, @"「可以哦_H_作为交换，请在这里射出很多很多的%CNAME("精液")%哦_H_」"
		ELSE
			PRINTFORMW 「%CNAME("二人称", "どもり")%！？ 到、到底在说什么啊……！？」
			CALL PRINT_STRW, @"「唔……虽、虽然只是说到这个份上的话会去做的啦…………_H_」"
		ENDIF
	ENDIF
CASE "巨根化"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "短小"
		IF YOKUBO()
			PRINTFORMW 「虽然我认为阳物最重要的并不是大小」
			PRINTFORMW 「话虽如此，如果这能让%CNAME("二人称")%感到心情愉快的话，我会协助的」
		ELSEIF SIZE("基本阴茎尺寸", TARGET) == 0
			PRINTFORMW 「啊啊……嘛，是这样呢……」
			PRINTFORMW 「……%CNAME("一人称")%也不变大，吗？」
			PRINTFORMW 「如果是我自己的话，魔法就起不了什么作用……」
		ELSE
			PRINTFORMW 「诶……那个……这个……」
			PRINTFORMW 「……我知道了」
		ENDIF
	CASE "普通"
		IF YOKUBO()
			PRINTFORMW 「因为是很大的尺寸而让对方筋疲力尽、阿嘿阿嘿地喘着气是男人的浪漫呢」
			SIF ABL:Ａ感覚 >= 3 && EXP:Ａ性交経験 >= 30
				PRINTFORMW 「虽然%CNAME("一人称")%也喜欢做被阿嘿啊嘿地喘着的那一方就是了」
		ELSE
			PRINTFORMW 「啊……这么说稍微有点不好意思……」
		ENDIF
	CASE "巨根"
		PRINTFORMW 「要变得更大吗……？」
		IF SIZE("基本阴茎尺寸", TARGET) >= 3
			PRINTFORMW 「虽然我觉得绝对是放弃比较好……」
		ELSE
			PRINTFORMW 「虽然我觉得会带来很多不便……」
		ENDIF
	CASE "馬根"
		PRINTFORMW 「……果然不能再这样了……」
		IF YOKUBO() && ABL:Ａ拡張 >= 5
			PRINTFORMW 「虽然%CNAME("一人称")%的话应该能进去……」
		ELSEIF ABL:Ａ感覚 >= 3 && EXP:Ａ性交経験 >= 30
			PRINTFORMW 「但相反地只会给对方痛苦哦……」
		ELSE
			PRINTFORMW 「我觉得只会更疼……」
		ENDIF
	;腕並以上
	CASEELSE
		PRINTFORMW 「……………………」
		PRINTFORMW 「……%CNAME("二人称")%比%CNAME("一人称")%还要\@YOKUBO() ? 変態 # 有那种趣味\@呢」
	ENDSELECT
CASE "短小化"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "普通"
		IF RAND:2
			PRINTFORMW 「……好像有着不得了的狂热爱好呢……」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%喜欢小的吗？」
		ENDIF
	CASE "巨根"
		PRINTFORMW 「想变成普通的大小吗？」
		IF YOKUBO()
			IF SIZE("阴茎", TARGET) >= 2
				PRINTFORMW 「嘛，是这样呢。一千个人有一千种不同的大的风格呢」
			ELSE
				PRINTFORMW 「真是太可惜了……」
			ENDIF
		ENDIF
	CASE "馬根"
		PRINTFORMW 「……这样的大小确实非常不得了……」
	;腕並、規格外
	CASEELSE
		PRINTFORMW 「……很抱歉，只靠着从%CNAME("二人称")%这里得到的魂，把这种大小变成人类的级别还是太勉强了些」
		PRINTFORMW 「这样也没问题吗？」
	ENDSELECT

;其他汎用
CASEELSE
	;汎用拒否
	IF STRCOUNT(ARGS, "拒否")
		PRINTFORMW 「那样的话……很抱歉」
	;汎用取引（特に記述することがないならスキップ）
	ELSEIF STRCOUNT(ARGS, "取引")

	ELSE
		PRINTFORMW 「我明白了」
	ENDIF
ENDSELECT

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

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		IF YOKUBO()
			CALL PRINT_STRW, @"「呼呼_H_真不愧是%CNAME("二人称")%呢_H_」"
			PRINTFORMW %CALLNAME:PLAYER%和%CALLNAME:TARGET%一起出去买东西了
			PRINTFORMW %CALLNAME:TARGET%的脸上浮现出了欢乐的笑颜……
		ELSE
			PRINTFORMW 「……真、真的要买吗……？　这里的东西……？」
			PRINTFORMW %CALLNAME:PLAYER%和%CALLNAME:TARGET%一起出去买东西了
			PRINTFORMW %CALLNAME:TARGET%的面上浮现出困惑不解的神情，双颊如火烧一般通红……
		ENDIF
	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")
		PRINTFORMW 「穿着这一身去确实有问题呢」
	ELSE
		IF YOKUBO()
			CALL PRINT_STRW, @"「明白了。我们快点去吧、%CNAME("二人称")%_H_」"
		ELSE
			PRINTFORMW 「我、我知道了，我们快点买完东西吧……」
		ENDIF
	ENDIF
CASE "目送"
	PRINTFORMW 「路上小心」
CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0

	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0
		IF YOKUBO()
			PRINTFORMW 「……就这样，连胖次都没穿就被带来」
			CALL PRINT_STRW, @"「好的、可以哟。……稍微、有点心跳不已、忐忑不安呢_H_」"
		ELSE
			PRINTFORMW 「……诶？　就、就这样去吗……？」
		ENDIF
	ELSE
		IF YOKUBO()
			CALL PRINT_STRW, @"「呼呼_H_不脱下胖次就不能一起去吗_H_」"
			CALL PRINT_STRW, @"「被发现的话会变成什么样呢……心跳不已了呢_H_」"
		ELSE
			PRINTFORMW 「把、把胖次脱下来……！？」
			CALL PRINT_STRW, @"「虽、虽然我明白了……呜呜、暴露了的话该怎么办啊……_H_」"
		ENDIF
	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")

	ELSEIF CHECK_CLO("体操服姿")
		PRINTFORMW 「想一起去店里吗？」
		PRINTFORMW 「我明白了，那么就换衣服……诶？ 穿这身去？」
		PRINTFORMW 「如果%CNAME("二人称")%觉得没问题的话倒是不介意……」
	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		IF YOKUBO() || TALENT:恋慕
			PRINTFORMW 「不，果然穿着这身去店里……」
			PRINTFORMW 「一定要穿吗？ 哈、没办法……」
			CALL PRINT_STRW, @"「……作为交换，回来的时候请好好奖励我吧_H_」"
		ELSE
			PRINTFORMW 「不、果、果然穿着这身衣服去店里不行的！」
			CALL PRINT_STRW, "「无、无论如何也要穿吗？ 那、那样的话就没办法了……_H_」"
		ENDIF
	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0

	ELSE
		IF YOKUBO()
			PRINTFORML 「我明白了」
			CALL PRINT_STRW, "「一起去买些「好东西」吧_H_」"
		ELSE
			PRINTFORML 「诶！？　……那个，让%CNAME("一人称")%来买吗……？」
			CALL PRINT_STRW, "「呜……_H_我、我明白了哦……」"
		ENDIF
	ENDIF
CASE "询问有什么想要的东西"
	IF YOKUBO()
		PRINTFORML 「想要什么东西吗……」
		;ここで足りない/欲しい商品があると、それについて話す
		;話の順番とかを自然にするためにBIT変数を使って必須道具は管理
		;……だったが、ryusimi桑のおかげでグンとやりやすくなった
		;必須道具は潤滑液と避孕套
		;足りない商品がある時は、そちら優先
		NEED_TABLE =
		SIF ITEM:潤滑液 <= 5
			NEED_TABLE += "潤滑液"
		SIF ITEM:避孕套 <= 10
			NEED_TABLE += "避孕套"

		IF STRCOUNTS(NEED_TABLE, "潤滑液", "避孕套")
			IF STRCOUNTS(NEED_TABLE, "潤滑液")
				PRINTFORML 「虽然不是想要的东西……但是买润滑液怎么样」
				PRINTFORML 「要是H的时候没有的话就麻烦了」
			ENDIF
			IF STRCOUNTS(NEED_TABLE, "避孕套")
				IF STRCOUNTS(NEED_TABLE, "潤滑液")
					PRINTFORML 「还有，避孕套也不够了呢」
				ELSE
					PRINTFORML 「……说起来，避孕套不够了呢」
				ENDIF
				IF VAGINA(MASTER)
					PRINTFORML 「如果%CNAME("二人称")%不想要却怀上了那就麻烦了，我觉得还是有比较好」
				ELSE
					PRINTFORML 「和%CNAME("一人称")%H的时候没有也没関系，但是和其他人做的时候还是有比较好」
				ENDIF
			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 「如果不小心受伤了，有东西可以进行应急处置就安心了呢」
			PRINTFORML 「……而且，也许也可以用在H上呢？」
		CASE "撮影機材"
			PRINTFORML 「那么，买那个摄影器材怎么样？」
			PRINTFORML 「那台设备是著名品牌的，画质非常好」
			PRINTFORML 「而且是最新的，所以有各种方便的功能」
			PRINTFORML 「……一開始我还怀疑是不是真品，但无论怎么看都是真品呢」
			PRINTFORML 「但是非常便宜……不知道他们从哪里进货的……」
		CASE "飞机杯"
			PRINTFORML 「这个飞机杯怎么样」
			PRINTFORML 「看起来很舒服，而且可以多次使用」
			CALL PRINT_STRW, @"「……%CNAME("二人称")%、不想用这个飞机杯给%ADANA("阴茎")%上下撸上几下吗_H_」"
		CASE "肛用振動棒"
			PRINTFORML 「肛用振动棒怎么样」
			PRINTFORML 「有了这个就可以随意虐待%ADANA("肛門")%了，想摸其他地方也想抚慰%ADANA("肛門")%的话……这种时候会很好用的」
			CALL PRINT_STRW, @"「呼呼、如果被震动棒挿入的话会怎么样呢……_H_」"
		CASE "假阳具"
			PRINTFORML 「%CNAME("二人称")%、穿戴式假阴茎怎么样？」
			PRINTFORML 「如果有穿戴式假阴茎的话、不用具现或者变成扶她或男人也可以和女人做爱了」
		CASEELSE
			PRINTFORML 「……没有特别想要的」
		ENDSELECT
	ELSE
		PRINTFORML 「那、那个是……那个……」
		PRINTFORML 「那种事情，太害羞了，说不出口呢……」
	ENDIF
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材"
		;初めて買うとき
		IF SEVENT(STR:購入道具) == 0
			PRINTFORMW 「……没想到这样的店里还有卖这样的摄像机……但是这些实在是很不错的东西哦……」
			PRINTFORMW 「那个，除了用在色色的事上，%CNAME("一人称")%也可以使用吗？」
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「啊、这个部件，可以用在%CNAME("二人称")%的摄影机上哦」
			CASE 1
				PRINTFORMW 「%CNAME("二人称")%！　这个、可是不得了的大发现哦！」
			CASEELSE
				PRINTFORMW 「啊、用了这个的话就能比以前拍得更漂亮了吧」
			ENDSELECT
		ENDIF
	CASE "潤滑液"
		IF YOKUBO()
			IF RAND:2
				CALL PRINT_STRW, @"「呼呼_H_润滑剂是很重要的东西呢_H_」"
			ELSE
				PRINTFORMW 「没有润滑液的话就麻烦了……」
			ENDIF
		ELSE
			PRINTFORMW 「嘛、嘛啊、这种程度的话……」
		ENDIF
	CASE "飞机杯"
		IF YOKUBO()
			SELECTCASE RAND:2
			CASE 0
				CALL PRINT_STRW, @"「为了能让%CNAME("二人称")%満足，会努力挑选的_H_」"
			CASEELSE
				CALL PRINT_STRW, @"「……这个怎么样呢？　感觉会很舒服哦_H_」"
			ENDSELECT
		ELSE
			PRINTFORMW 「……诶、要由%CNAME("一人称")%来选择这些吗……」
			PRINTFORMW 「因为是同性所以可以选择能接受的东西吗？　虽、虽然说不定确实是这样……」
		ENDIF
	CASE "肛用振動棒"
		IF SEVENT(STR:購入道具) == 0
			IF YOKUBO()
				CALL PRINT_STRW, @"「呼呼_H_去买肛門震动棒吧_H_」"
				CALL PRINT_STRW, @"「从现在開始让各种各样的人用屁股变得舒服起来吧，%CNAME("二人称")%_H_」"
			ELSE
				PRINTFORMW 「……诶！？　要、要买这个吗……？」
				PRINTFORMW 「……但是、比想象的要细……」
				PRINTFORMW 「……诶、这个，用在屁股里……？」
			ENDIF
		ENDIF
	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0

		ELSE
			IF YOKUBO()
				PRINTFORMW 「这个超薄型避孕套怎么样？　%CNAME("二人称")%」
			ELSE
				PRINTFORMW 「诶、啊、那个……那么、就用这个……」
			ENDIF
		ENDIF
	;えっちな商品
	CASEELSE
		IF YOKUBO()
			PRINTFORML 「咦……还有卖这种东西吗……」
			CALL PRINT_STRW, @"「呼呼呼、一买东西就会变得開心起来呢，%CNAME("二人称")%_H_」"
		ELSE
			PRINTFORML 「诶！？　…………诶……」
			PRINTFORMW 「……要、要买这个吗……？」
		ENDIF
	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:3
		RETURN 0
	;胖次没収中
	IF COND("買い物胖次没収中")
		IF YOKUBO()
			CALL PRINT_STRW, @"「啊哈……_H_凉飕飕的……_H_」"
		ENDIF
	ELSE
		IF YOKUBO()
			CALL PRINT_STRW, @"「诶……居然还有这样的……_H_」"
		ELSE
			CALL PRINT_STRW, @"「诶、做、做到这样的地步……_H_」"
		ENDIF
	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")
		IF YOKUBO()
			CALL PRINT_STRW, "「不穿胖次的事什么时候会被发现呢，心里躁动不安呢……_H_」"
		ELSE
			CALL PRINT_STRW, "「……………………好不容易才暴露出来的……！」"
			PRINTFORMW 「内、内衣之类的没有暴露真是太好了！」
		ENDIF
	;なにも買わなかった
	ELSEIF COND("買上品数") == 0
		IF YOKUBO()
			SELECTCASE RAND:2
			CASE 0
				PRINTFORMW 「没有什么想要的东西吗？」
			CASEELSE
				PRINTFORMW 「今天是只看不买了吗」
			ENDSELECT
		ELSE
			PRINTFORMW 「要回去了吗？」
			PRINTFORMW 「再稍微待一会儿……不！ 我们回去吧！ 是的！ 我们马上回去吧！」
		ENDIF
	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")

	ELSE
		IF YOKUBO()
			CALL PRINT_STRW, @"「请再邀请我去吧，%CNAME("二人称")%_H_」"
		ELSE
			PRINTFORMW 「好、好羞耻……」
		ENDIF
	ENDIF
ENDSELECT

path: ERB/EVENT_K/25 ノノ/EVENT_K25_SHOP.ERB