code:
;-------------------------------------------------
;各種打招呼
;-------------------------------------------------
@KOJO_GREETING_K19, ARGS
#DIM MEMO_LINECOUNT
;イベント発生中の角色
#DIM ACTOR
;イベント発生中の角色の默认のCALLNAME
#DIMS CALLNAME_ACTOR

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS

CASE "朝袭"
	SELECTCASE CSTR:朝袭
	CASE "朝口交"
		IF CEVENT("淫魔覚醒：万音")
			PRINTFORMW 「嗯呐……　\@　CALLNAME:MASTER != "主人公" ? 、 %CALLNAME:MASTER% # \@。 %TEXTR("早上好……/早上好，吓了一跳……？/早上好，偶尔被这样叫醒也不错吧？/嗯，哼……嗯，嗯/早上好，嗯……")%」
		ELSE
			PRINTFORMW 「\@　CALLNAME:MASTER != "主人公" ? 、 %CALLNAME:MASTER%、 # \@ あの、%TEXTR("啊，没什么……嗯/嗯，嗯哈、嗯啊/嗯，不这样做的话会很辛苦吧/嗯，嗯，嗯，嗯哈")%」
			PRINTFORMW 听起来像个不诚实的坏话，但还是相当热心地持续着口交。
		ENDIF
	CASE "朝騎乗位"
		IF CEVENT("淫魔覚醒：万音")
			PRINTFORMW 「んふ……　\@　CALLNAME:MASTER != "你" ? 、 %CALLNAME:MASTER% # \@。 %TEXTR("おはよう……んっ/おはよ、んふ……はぁ/あ、んっっ、おはよぅ/んっ、ぁぁおは、よぉ/はぁ、はぁ、んふ、おはよぅ")%」
			PRINTFORMW 目覚めと睡眠の狭間で下半身が我慢の効かない遡りに目を覚ましたら、その絶対的質量をゆさぶる、一糸まとわぬ万音と目があった。
			PRINTFORMW どれくらいまたがられていたのだろう…… \@ EXP_GAIN("射精経験", PLAYER) ? もうすぐにでも射精してしまいそうだった。 # 気を拔出とすぐにでも暴発してしまいそうった。\@
			PRINTFORMW 「ん、就这様……我慢しないで……おまんこの奥で……精液飲ませてぇ、っんぁああ！！」
			PRINTFORMW こちらの限界を悟った万音が、自己的絶頂を重ねるように下半身を沈め、最奥へ深々と迎え入れていた。
			;たぶん覚醒まのんの朝騎乗位とか射精を忍耐ほうが難しい
		ELSE
			PRINTFORMW 「\@　CALLNAME:MASTER != "你" ? 、 %CALLNAME:MASTER%、 # \@ あの、%TEXTR("あ、お、おきちゃっんんっ！！/あ、え、えと、あっ、ぁぁっ！！/ま、まってまってっ/ふぁ、っ！？　ぁうぅ！")%」
			PRINTFORMW 目覚めと睡眠の狭間で下半身が我慢の効かない遡りに目を覚ましたら、その絶対的質量をゆさぶる、一糸まとわぬ万音と目があった。
			PRINTFORMW どれくらいまたがられていたのだろう…… \@ EXP_GAIN("射精経験", PLAYER) ? もうすぐにでも射精してしまいそうだった。 # 気を拔出とすぐにでも暴発してしまいそうった。\@
			PRINTFORMW 「や、やぁ、えと、これはその、あのっ、っっうああああ！！」
			PRINTFORMW \@　CEVENT("相思相愛：万音") ? 想いが通い合っていても初々しい反応を返す万音がかわいくて、思わず腰を両手で引き付けていた。 # あれだけ反発していても体は渇望に耐えられないらしい。最奥にみっちり先端を押し付けてやった。 \@
		ENDIF
	ENDSELECT
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交", "朝六九式"
		IF CEVENT("淫魔覚醒：万音")
			PRINTFORMW \@ EXP_GAIN("射精経験", PLAYER) ? 精を吐き出し切った"それ"から万音は目を離すことができず、再び口に含んで奉仕を始めた…… # じらすように舌先でつついたり、口に含んだままゆるく舌をはわせたどらせるだけで、こちらを弄ぶかのように万音は口淫を続けていた。\@
		ELSE
			PRINTFORMW \@ EXP_GAIN("射精経験", PLAYER) ? 精液を飲み込んで恍惚とした万音を、ゆっくりからかうことにした。 # 口腔でゆったり感じさせてもらえる様を見つめ的同时、朝のひとときを楽しんだ。\@
		ENDIF
	CASE "朝騎乗位"
		IF CEVENT("淫魔覚醒：万音")
			PRINTFORMW \@ EXP_GAIN("射精経験", PLAYER) ? ぐっ、ぐっとよりぴったり、より深く密着しようとする万音の腰靈活に、大量的吐精させられていた。 # 万音はもう、こちらが射精するまで深部を押し付け続けずに是られなかった。\@
			PRINTFORMW 「お、おは……っっぅ……！！」
			PRINTFORMW 万音は膣内を占める感触に絶頂を抜けられず、だが脱力をこらえながら幾度も腰を沈め続けて、貪欲に精を搾ろうと試みていた。
			;たぶん覚醒まのんの朝騎乗位とか射精を忍耐ほうが難しい
		ELSE
			IF EXP_GAIN("射精経験", PLAYER)
				PRINTFORMW 「お、おはっ、んんんっっ！　おはよぉ、やぁ、だめぇ、出しながら動かさないでぇっ」
				PRINTFORMW 大量の吐精任せに万音の最奥をぐいぐいと突き上げて、困惑する様を愉しませてもらった。
			ELSE
				PRINTFORMW 「お、おはっ、んんんっっ！　だ、だめぇ、もうっ、ぁぁっ！」
				PRINTFORMW とろけるような精感が万音と結ばれる部分にこみ给まで、困惑する万音を幾度も幾度も突き上げた。
			ENDIF
		ENDIF
		CASE "朝の新妻PLAY"
			IF CEVENT("淫魔覚醒：万音")
				PRINTFORMW \@ EXP_GAIN("射精経験", PLAYER) ? いつにないほど突き抜けるような射精感に、尻肉を押しつぶすくらい腰を押し付けて、どくどくと濃縮された白濁を吐き出していた。 # 万音の狭さと締め付けと柔らかい尻肉を味わうように腰を押し付けた。\@
				PRINTFORMW 「ちょ、ちょっと……っっぅ……！！　っはぁ……はぁ、もう、興奮しすぎぃ……でも、朝ごはん佳肴大人ね……」
				PRINTFORMW 万音は蜜内を占める感触に絶頂を抜けられず、だが脱力しそうな膝を踏みとどめて、最奥の圧迫感にひたっていた。
				;たぶん覚醒まのんの朝騎乗位とか射精を忍耐ほうが難しい
			ELSE
				IF EXP_GAIN("射精経験", PLAYER)
					PRINTFORMW 「まって、まって、わ、私こんな、でも、っ、っあああ！！」
					PRINTFORMW この上ないほど強くこみ给ままに、濃縮された精液を注ぎ的同时、困惑する万音の尻肉を押しつぶすように腰を擦り付けた。
					PRINTFORMW 万音は蜜内を占める感触に絶頂を抜けられず、だが脱力しそうな膝を踏みとどめて、最奥にたたきつけられる吐精の感触にひたっていた。
				ELSE
					PRINTFORMW 「ちょ、ちょっとっ！　あっ、すご、すごいって、だ、だめぇ、もうっ、ぁぁっ！」
					PRINTFORMW とろけるような精感が万音と結ばれる部分にこみ给まで、困惑する万音を幾度も幾度も从后面将責め続けた。
					PRINTFORMW 万音は蜜内を占める感触に絶頂を抜けられず、だが脱力しそうな膝を踏みとどめて、最奥の圧迫感にひたっていた。
				ENDIF
			ENDIF
	CASEELSE
		IF CEVENT("淫魔覚醒：万音")
			PRINTFORMW 「んふ……　\@　CALLNAME:MASTER != "你" ? 、 %CALLNAME:MASTER% # \@。 %TEXTR("おはよう/おはよ、んふ……ん？　別に何もないよ？/おはぁよ/おはよー")%」
		ELSE
			PRINTFORMW 「\@　CALLNAME:MASTER != "你" ? 、 %CALLNAME:MASTER%、 # \@ あの、%TEXTR("お、お、おはようございましゅってかんじゃったっ/お、おはよう、ございまｓ……/お、お、おはよぅぅ/お、おはようっ、")%」
		ENDIF
	PRINTL
	ENDSELECT

	;何か発言してたらここまで
	;SIF LINECOUNT > MEMO_LINECOUNT
	;	RETURN 1

	IF COND("体育") && CEVENT("学校食堂の大姐姐：万音")
		;ままのんが体育の発言するのは学校を知っているときなので。
		IF CEVENT("淫魔覚醒：万音")
			PRINTFORMW 「%TEXTR("あら、今日は体育のある日なの？/今日は何か浮かれてる？　そっか、体育のある日。男の子じゃ仕方ないか/え、今日は保健のほうの体育なんだ。でもいつも授業してるよね……私たち")%」
		ELSE
			PRINTFORMW 「%TEXTR("きょ、今日は体育のある日？　え、べ、別になにも……/体育のある日、って、ど、どうって、私は学生じゃないけど、でもそれだとお腹すかせて、うん、だからがんばるよ/ほ、ほほほほけんたいいくって、そ、それってつまりえっちな……そ、そそういう意味じゃなくてっ！")%」
		ENDIF
	ENDIF
CASE "一番乗り"
	IF CEVENT("学校食堂の大姐姐：万音")
		IF CEVENT("淫魔覚醒：万音")
			PRINTFORMW 「%TEXTR("今日は私だけだけど……ふふ、他の人来る前にいいところいかない？/今ここには我と你だけ……それがどういう意味かはわかるよねぇ？/お先してるよーまだ他の人いないし、始めちゃおうっか。何って、ご・っ・君(したのおくち)")%」
		ELSE
			PRINTFORMW 「%TEXTR("おおお、お先して、あ、あの……いえ、なんでも/え、え、私そんな干劲ってわけじゃ、でも、何してるか気になるっていうか/わ、私なんでここにいるのかって、私も、いちおう部員、だから")%」
		ENDIF
	ENDIF
CASE "ただいま"
	IF COND("合意：同居") && CEVENT("学校食堂の大姐姐：万音") == 0
		CALL INAUGURATION_SCHOOL_MEAL, "帰宅"
	ELSEIF CEVENT("淫魔覚醒：万音")
		PRINTFORMW 「ただいまもどったよ～　\@　CALLNAME:MASTER != "你" ? 、 %CALLNAME:MASTER% # \@。 %TEXTR("今日もお疲れ様/いつもお疲れ様/少し、待ち遠しかった/待ってた……よ？/ね、今日も……する？")%」
	ELSE
		PRINTFORMW 「た、た、ただいま\@　CALLNAME:MASTER != "你" ? 、 %CALLNAME:MASTER% # \@。 あの、%TEXTR("おつかれ、じゃないかな？/えと、その、うぅ……(言葉に詰圆圈)！/お、おつかれ大人！/え、えと……その、する？　あ、あの、もちろん入れちゃ嫌だからね！")%」
	ENDIF
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		IF COND("合意：同居") && CEVENT("学校食堂の大姐姐：万音") == 0
			CALL INAUGURATION_SCHOOL_MEAL, "出迎え"
		ELSEIF CEVENT("淫魔覚醒：万音")
			PRINTFORMW 「欢迎回来、%TEXTR("今天也辛苦了/总是很辛苦呢/有点，久等了……/。哟？那……今天也是要……做吗？")%」
		ELSE
			PRINTFORMW 「那个、嗯、嗯、%TEXTR("欢迎回来！/你回来啦！/欢迎回来！啊，你在说什么啊/等一下……像个色狼一样！/嗯、嗯、嗯……咦？")%」
		ENDIF
	ELSE
		IF CEVENT("淫魔覚醒：万音")
			PRINTFORMW 「我先来了、%TEXTR("从现在開始做吧……可以吗？/今天轮到我就好了/嗯……想做想做的事/啊，已经……好郁闷啊/呐，今天也……做吗?")%」
		ELSE
			PRINTFORMW 「那个、那个、%TEXTR("今天快点……诶，你那么想要吗？/今天……好期待啊……啊！/欢迎回来！啊，你在说什么啊……/等一下……因为不是那样的！/哦、哦、哦……咦？？")%」
		ENDIF
	ENDIF
CASE "入室打招呼"
	IF CEVENT("淫魔覚醒：万音")
		PRINTFORMW 「你好～%CALLNAME:TARGET%来了呦。 %TEXTR("辛苦工作后的亲吻~/总觉得好重来着……想揉一揉吗？呵呵~♪/啊，今天轮到我了吧，对吧？/呜呜，呜呜呜？/呐，今天也……做吗？")%」
	ELSE
		PRINTFORMW 「や、やっと終わったあぁ…… あ、あの、%TEXTR("ごめんなさ、おつかれ、なのは一緒だよね……/えと、その、うぅ……(言葉に詰圆圈)！/な、なんで来たって、そ、そんなの、わた、私も部員だから/え、えと……その、します？　あ、あの、もちろん入れちゃ嫌ですよっ！/き、期待してなんてっ、ち、ちがうよ！(どきどき)")%」
	ENDIF
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		IF CEVENT("淫魔覚醒：万音")
			PRINTFORMW 「こんにちは～%CALLNAME:TARGET%到着ぅ。 あら、みんなお揃いだねぇ」
		ELSE
			PRINTFORMW 「や、やっと終わったあぁ…… あ、あの、皆桑こんにちは」
		ENDIF
	ELSE
		IF CEVENT("淫魔覚醒：万音")
			PRINTFORMW 「こんにちは～%CALLNAME:TARGET%到着ぅ」
		ELSE
			PRINTFORMW 「や、やっと終わったあぁ…… あ、あの、こんにちは」
		ENDIF
	ENDIF
;簡易入室打招呼に対する返し。WAITの使用は一回が望ましい
;誰が入室してきた人はCOND("入室打招呼中")がONなのでFIND_COND("入室打招呼中")で検索可能
;また、入ってきた人数はCHARA_NUM("入室打招呼中")で調べられる
CASE "打招呼返し"
	;打招呼してきた人の中から一人選ぶ
	ACTOR = FIND_COND("入室打招呼中")
	;選ばれた角色の默认のCALLNAME。この角色への呼びかけはCNAME(CALLNAME_ACTOR) で出来る
	CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

	;ここでは括弧に『』を使う
	;打招呼してきた人に弗理希艾尔が混じっている
	IF FIND_COND("弗理希艾尔", "入室打招呼中")
		IF CEVENT("淫魔覚醒：万音")
			IF RAND:3
				PRINTFORML 「こんにちは女仆」
				PRINTFORMW 万音はそっけなく打招呼したが、\@ CHARA_NUM("入室打招呼中") > 1 ? 真っ先に弗理希艾尔を選んだ辺り実は一番意識しているようだ。 # 打招呼だけはとりあえず欠かさないようだ。\@
			ELSEIF RAND:2
				PRINTFORML 「駄女仆こんにちは」
				PRINTFORMW 万音はあえて挑発するような打招呼をしている。
			ELSE
				PRINTFORML 「いちおうこんにちは」
				PRINTFORMW とりあえず弗理希艾尔に対しても打招呼はするようだ。
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORML 「こ、こんにちは女仆」
			ELSE
				PRINTFORML 「い、い、いちおうこんにちは」
				PRINTFORMW とりあえずでも打招呼はするようだ
			ENDIF
		ENDIF
	;打招呼してきた人に老师が混じっている
	ELSEIF FIND_COND("教員", "入室打招呼中")
		;打招呼してきた老师の中から一人選ぶ
		ACTOR = FIND_COND("教員", "入室打招呼中")
		;選ばれた角色の默认のCALLNAME。この角色への呼びかけはCNAME(CALLNAME_ACTOR) で出来る
		CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

		IF CEVENT("淫魔覚醒：万音")
			IF RAND:2
				PRINTFORML 「こんにちはぁ%CNAME(CALLNAME_ACTOR)%老师。って、いちお学校関係者だしいてもいいんだよね？」
			ELSE
				PRINTFORML 「%CNAME(CALLNAME_ACTOR)%老师おじゃま大人ー、いやほんとにお邪魔とか言わないでね？」
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORML 「こ、こんにちは%CNAME(CALLNAME_ACTOR)%老师」
			ELSE
				PRINTFORML 「あ、ああああの、%CNAME(CALLNAME_ACTOR)%老师こんにちは、おじゃましてます……」
			ENDIF
		ENDIF
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K19, %ARGS%, 遅かったじゃない
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K19, %ARGS%
		[ENDIF]
	ENDIF

CASE "居間に現れた"
	;一度居間から別の場所に行って、居間に帰って来た時
	IF CMOVE("居間")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "抜け出された"

CASE "便当"

ENDSELECT

@INAUGURATION_SCHOOL_MEAL, ARGS
IF ARGS == "帰宅"
	PRINTFORMW その日、万音はただいまの打招呼も半端に、いつもと違う事項を切り出した。
ELSE
	PRINTFORMW その日、万音はおかえりの打招呼も半端に、いつもと違う事項を切り出した。
ENDIF
IF CEVENT("淫魔覚醒：万音")
	PRINTFORMW 「啊，对了。\@ TEXTS("曜日") == "土" ? 后天開始 # 明天開始\@我也要去学校了」
	PRINTFORMW 「为什么？那果然是……白天也想要在一起」
	PRINTFORMW 让人心頭一颤的有点挑衅意味的湿润眼神。
	PRINTFORMW 「啊哈哈……不能总是只寄居着吃饭呀？所以，我想能不能赚到什么钱，正好有个食堂工作。那么，明天就是第一天了。」
	PRINTFORMW 「从今往后平日也能见面了，简直就像做梦一样……嗯，就是这么回事，所以请多多関照。」
	PRINTFORML
	PRINTFORMW %CALLNAME:MASTER%没想到的是，%CALLNAME:TARGET%的工作所具有的罕见的质量引发了话题。成为了学校食堂的名产。不过这是后话了……
	PRINTFORML
	PRINTFORMW 「这么说来」
	PRINTFORMW 「参加社团活动吗？我当然会参加」
ELSE
	PRINTFORMW 「啊，呃，啊，有必须告诉你的事，那个……」
	PRINTFORMW 「啊，我不能一直白白吃饭，所以要工作！」
	PRINTFORMW 「那个，工作单位是学校的食堂、\@ TEXTS("曜日") == "土" ? 后天開始 # 明日開始\@、虽然如此……」
	PRINTFORMW 「至少在家里什么也做不了……」
	PRINTFORMW 「突然这样很抱歉，但是，今后也请多多関照」
	PRINTFORML
	PRINTFORMW %CALLNAME:TARGET%深深地低下了頭,不过，那个脸颊带的红，一定是学校也想在一起的欲望的表现吧，%CALLNAME:MASTER%随意地理解到。
	PRINTFORML
	PRINTFORMW 之后、%CALLNAME:TARGET%所拥有的绝对的两种质量引起了话题，这之后知道了它将成为学校食堂的名产……但是，由于混杂着口吃而战战兢兢的样子，也因其可爱而受到好评。
	PRINTFORML
	PRINTFORMW 另外，她是强制参加社团活动的
	PRINTFORMW 在同一个学校的食堂里工作，一直追着他，可以说是理所当然的吧。
ENDIF
PRINTL
PRINTFORMW %CALLNAME:TARGET%が「学校食堂の大姐姐」として就職しました。それに伴い、日中も学校で%CALLNAME:TARGET%に出会うことができるよう成为了。
CFLAG:夜型 = 0
CSTR:学年 = 学校食堂の大姐姐
CALL SET_CEVENT, "学校食堂の大姐姐：万音"

;-------------------------------------------------
;メイン画面での台詞。いわゆる一言イベント強化版
;ちなみに画面随机属性しても同じセリフを喋ります
;選択肢に挟まれた場所で出力するのでWAITの使用は禁止
;-------------------------------------------------
@KOJO_DAILY_K19, ARGS
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「啊，谢谢……我，做家务什么的……这么说来……女仆、不是」
	PRINTFORML 一发现就沉默了。
CASE "浑身是汗"
	PRINTFORML 「呼呼……」
	PRINTFORML 与往常不同，汗流浃背的样子，可以看出今天是特别辛苦的。
CASE "刚睡醒"
	PRINTFORML
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K19
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML
CASE "契約成立"
	PRINTFORML
CASE "摆脱"
	PRINTFORML
CASE "露脐装超短裙胖次チラ"
	PRINTFORML
CASE "掀起裙子"
	PRINTFORML
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

	;	CALL SET_DEVENT, "巨大振動棒感想"
	;ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 4

		CASEELSE

		ENDSELECT
	;ENDIF
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;標語の反応。書いたらコメントアウトを外してください
IF CFLAG:標語実践
SELECTCASE SAVESTR:標語
CASE "注意口渴"
	;IF DEVENT("標語茶") == 0
	;	PRINTFORML
	;	CALL SET_DEVENT, "標語茶"
	;ENDIF
CASE "体操服はやっぱり布鲁马"
	;IF DEVENT("標語布鲁马") == 0
	;	PRINTFORML
	;	CALL SET_DEVENT, "標語布鲁马"
	;ENDIF
CASE "学生服は露脐装超短裙に限る"
	;IF DEVENT("標語露脐装超短裙") == 0
	;	PRINTFORML
	;	CALL SET_DEVENT, "標語露脐装超短裙"
	;ENDIF
ENDSELECT
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;イベント台詞。書いたらコメントアウトを外してください
;CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
;IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
;	PRINTFORML
;	CALL SET_DEVENT, "質問１"
;ENDIF
;IF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
;	PRINTFORML
;	CALL SET_DEVENT, "質問２"
;ENDIF

IF CEVENT("破瓜：万音を强奸する") && DEVENT("破瓜强奸直後") == 0 && CEVENT("淫魔覚醒：万音") == 0
	PRINTFORML 「啊……！讨厌，明明很讨厌的……为什么……为什么……虽说不行，但还是没有阻止他，总觉得有点奇怪……」
	PRINTFORML 理应愤怒的抗议的话语里，却感觉不到说出的那种憎恶，真是不可思议啊……
	CALL SET_DEVENT, "破瓜强奸直後"
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
;	PRINTFORML
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF COND("夜")
	IF CEVENT("破瓜强奸刺激排卵") && TALENT:难以妊娠 <= 1
		;难以妊娠を元に戻す。
		PRINTFORML 「明明说了那么，那么不行的……为什么，为什么.……哎呀，我有点不对劲，明明讨厌，却……」
		PRINTFORML %CALLNAME:TARGET%用世界毁灭一样的表情低语着，但是看起来并没有像所说的那样崩溃，真是不可思议。
		CALL DEL_CEVENT, "破瓜强奸刺激排卵"
		TALENT:难以妊娠 = 2
	ELSE
		IF CEVENT("淫魔覚醒：万音")
			PRINTFORML %CALLNAME:TARGET%%TEXTR(@"一动不动地用热乎乎的目光注视着你/正在揉搓着手中满溢的乳房/用指尖慢慢地涂抹嘴有/指着滑溜溜的嘴唇眼神流动着\@ CHECK_SHIRT("女式襯衫") ? /解開扣子的的衬衫露出了透明的尖端 # \@")%
		ELSE
			PRINTFORML %CALLNAME:TARGET%%TEXTR(@"一动不动地用警戒的眼光注视着你/用手挡在丰满的胸前/\@ FIND_COND("弗理希艾尔", "現在存在") ? 注视着你和女仆的对话看了过来 # 一直盯着主人公 \@/正在改正内八的坐姿\@ CHECK_SHIRT("女式襯衫") ? /正要扣上大小不符的衬衫的弹開的纽扣# \@")%
		ENDIF
	ENDIF
	PRINTFORML
ELSE
	IF CEVENT("破瓜强奸刺激排卵") && TALENT:难以妊娠 <= 1
		;难以妊娠を元に戻す。
		PRINTFORML 「明明说了那么，那么不行的……为什么，为什么.……哎呀，我有点不对劲，明明讨厌，却……」
		PRINTFORML %CALLNAME:TARGET%用世界毁灭一样的表情低语着。
		CALL DEL_CEVENT, "破瓜强奸刺激排卵"
		TALENT:难以妊娠 = 2
	ELSE
		IF CEVENT("淫魔覚醒：万音")
			PRINTFORML %CALLNAME:TARGET%%TEXTR(@"一动不动地用热乎乎的目光注视着你/正在揉搓着手中满溢的乳房/用指尖慢慢地涂抹嘴有/指着滑溜溜的嘴唇眼神流动着\@ CHECK_SHIRT("女式襯衫") ? /解開扣子的的衬衫露出了透明的尖端 # \@")%
		ELSE
			PRINTFORML %CALLNAME:TARGET%%TEXTR(@"一动不动地用警戒的眼光注视着你/用手挡在丰满的胸前/\@ FIND_COND("弗理希艾尔", "現在存在") ? 注视着你和女仆的对话看了过来 # 一直盯着主人公 \@/正在改正内八的坐姿\@ CHECK_SHIRT("女式襯衫") ? /很在意穿着的衬衫的扣子# \@")%
		ENDIF
	ENDIF
	PRINTFORML
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K19
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	PRINTFORML
ELSEIF RAND:2
	PRINTFORML
ELSE
	PRINTFORML
ENDIF

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;-------------------------------------------------
@KOJO_DAILYCOM_K19, ARGS
;打招呼
#DIMS GREETING

SELECTCASE ARGS
CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"
	;地の文を出す
	CALL DAILY_MESSAGE, "归途"
;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
CASE "休憩"
	IF PLACE("自宅")
		IF COND("夜")

		ELSE

		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")

	;場所移動後
	ELSE

	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = こんばんは
	ELSEIF COND("昼")
		GREETING = こんにちは
	ELSE
		GREETING = おはようございます
	ENDIF
	;你に先に打招呼をされた
	IF CFLAG:打招呼した == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "叫醒"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖"
		IF CEVENT("淫魔覚醒：万音")
			PRINTFORMW 「%TEXTR("真是的，洞口被称赞了呢……那么赞扬的话，就開始吧？/你明白啊.。嗯，真高兴/那里已经湿漉漉的了。呐，用这个名器，今天也会变的舒服起来的吧/啊，呃，嗯，总之是这样。这样被说，有点害羞……")%」
		ELSE
			PRINTFORMW 「哦，那个……%CALLNAME:MASTER%。那个」
			PRINTFORMW 似乎比想象的还要高兴。
		ENDIF
	CASE "甜言蜜语"
		IF CEVENT("淫魔覚醒：万音")
			IF CALCF("甜言蜜语成功")
				PRINTFORMW 「已经……你那么想在我的肚子里边……？」
				PRINTFORMW 「你不是很清楚吗……嗯，那里……」
			ELSE
				PRINTFORMW 「已经……不是那样的吧」
				PRINTFORMW 「再这样的话、%TEXTR("就好像让肚子里頭热起来一样/顺着内心又湿润了一样/好像从心底想要得到一样")%了呢」
			ENDIF
		ELSE
			IF CALCF("甜言蜜语成功")
				PRINTFORMW 「……！！啊、嗯、啊、呜……」
				PRINTFORMW 受惊了的样子发出了正直的反应。
			ELSE
				PRINTFORMW 「什、什、什么、你在说什么、那种、唔」
				PRINTFORMW 与其说惊讶，倒不如说是在怀疑。
			ENDIF
		ENDIF
	CASEELSE
		IF CEVENT("淫魔覚醒：万音")
			IF COND("妊娠中：妊娠発覚済み")
				IF RAND:3 == 0
					PRINTFORMW 「虽然怀孕很不舒服，但是实际上，反而会更有感觉。比平时性欲更强烈了，所以我希望你尽可能地陪伴我」
				ELSEIF RAND:2
					IF COND("昼") && COND("学校食堂勤め")
						PRINTFORMW 「对学生说”怀孕了“的时候，大家非常在意是谁的孩子呢……」
						PRINTFORMW 「当然是保密的呢？」
					ELSE
						PRINTFORMW 「谁的孩子不知道吗？那么热烈地疼爱着子宫，应该不会没自觉吧……」
					ENDIF
				ELSE
					PRINTFORMW 「因为你中出了很多次……呵呵」
					PRINTFORMW 抚摸着孕育着新生命的肚子，幸福的微笑着。
				ENDIF
			ELSE
				IF COND("昼") && COND("学校食堂勤め")
					IF RAND:3 == 0
						PRINTFORMW 「因为还有很多其他的很有特色的女孩子、所以把我作为对象的话能做的也很有限……说是这么说、但是如果忍耐的话腹部深处就会疼的难受。所以可能的话、和我……呐？　求你了……」
					ELSEIF RAND:2
						PRINTFORMW 「胸部ひとつなんて注文されたっけ。魂一つ分って言ったら冗談だと思われてた。割と本気なんだけどなぁ……まあ、あの女仆とは違うから魂ごと根こそぎ絞ったりは……たぶんしない」
					ELSE
						PRINTFORMW 「今日は誰のせーしがおいしそうかなって物色するの楽しみなの……もちろん、%CALLNAME:MASTER%が満たしてくれるならそれが一番なのよ？　ね、保持这个样子シテ……？」
					ENDIF
				ELSE
					IF RAND:3 == 0
						PRINTFORMW 「純正の淫魔だけど、別に人类を淫魔化するだけが種を増やす方法じゃないよ？　その……%CALLNAME:MASTER%なら……って、そういうのはまた今度ね」
					ELSEIF RAND:2
						PRINTFORMW 「你のそばにいる女仆……魂を狩る悪魔だっけ？　知らないわけじゃないけど……住む世界が違うっていうか、種そのものが違うっていうか……あー、思い出せない」
					ELSE
						PRINTFORMW 「せーしとせーえきってどっちがえっちな呼び方だろうね……？　私的には酱と種を残せるほうだと思うけど……」
					ENDIF
				ENDIF
			ENDIF
		ELSE
			IF COND("妊娠中：妊娠発覚済み")
				IF RAND:3 == 0
					PRINTFORMW 「……あか酱、でき、できちゃって……うう」
					PRINTFORMW つわりの記憶を思い出しているようで顔が真っ青になっている。
				ELSEIF RAND:2
					PRINTFORMW 「ど、どう、しよ、まだ早いと、思うのに、でも……」
					PRINTFORMW 腹部をさすり的同时、ぼんやりと頬を染めている。
					PRINTFORMW 膣内射精自体は否定どころか没入していそうな雰囲気である。
				ELSE
					PRINTFORMW 「ごめんね……育てきれなかったら……ごめんね……」
					PRINTFORMW 母親の自覚が芽生えつつあるが、それ以上に膣内射精に嵌る自分を責めているようにも見える。
				ENDIF
			ELSE
				IF COND("昼") && COND("学校食堂勤め")
					IF RAND:3 == 0
						PRINTFORMW 「お、お、胸部なんて注文されたって困るのに……何度も、何度も」
						PRINTFORMW 今注文してやろうかと言ったら、%CALLNAME:TARGET%は真っ赤になって俯いて、「男のひとってみんな……うう」とつぶやいていた。
					ELSEIF RAND:2
						PRINTFORMW 「な、な、なんか、終わったらでーと、って誘われた……時間あわなくてことわったけど、その、やっぱりそういうこと」
					ELSE
						PRINTFORMW 「ぶ、部活、なんでもするので、がんばります……な、なんでもって、本番するのは、嫌なんだけど……な、なんで乱ないって、はぅぅ」
						SIF TALENT:処女 == 0
							PRINTFORMW あれだけ膣奥を突き上げられて感じまくってるのに？　と問うと、斜眼でにらんできた。
					ENDIF
				ELSE
					IF RAND:3 == 0
						PRINTFORMW 「わ、私、その」
					ELSEIF RAND:2
						PRINTFORMW 「その、私……すごく嫌ってわけじゃないから」
					ELSE
						PRINTFORMW 「え、えと、なんでもするので、がんばります……」
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT

CASE "拭汗"
	PRINTFORMW
;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K19
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "托一托胸部"
		PRINTFORMW
		IF CEVENT("淫魔覚醒：万音")
			PRINTFORMW 「あら……%TEXTR("んふ……とても楽。やっぱりこんな尺寸だし……/はふっ！？　え、いえっくすぐったくてっ/うひゃぁ、これいいわ……/はぁん……持ち上げるだけじゃなくて、ね/ふぁぁ……ね、もっとしっかり包み込んでほしい……/あはぁ、なんかいいんだけど……もっとこう、先の方に絞ってみて……/んふ……/持ち上げるだけでいいの？　ね、もっとこう、がっしと鷲掴むように/はぁぁ……")%」
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の掌の感触を愉しんでいるようだ。
		ELSE
			PRINTFORMW 「あの、お、お、%TEXTR("おおっ！　な、何してるんですかっ！！/お、胸部触るのだめぇ！/っ、そういうのいきなり禁止！/おぉ、それ胸部ですよっ！/お、お、おおぉぉ……いやぁああああ！！")%」
			PRINTFORMW %CALLNAME:TARGET%は今にもビンタするような勢いでこちらをにらみつけてきた。
			IF CEVENT("調教開始：初調教", TARGET)
				PRINTFORMW 床ではあれだけ触らせてくれるというのに……TPOの問題だろうか。
			ENDIF
		ENDIF
	CASE "按摩"
		IF CEVENT("淫魔覚醒：万音")
			PRINTFORMW 「あら……%TEXTR("んふ……とても具合い。やっぱりこんな尺寸だし……/有がと/有がとう……はぁ、楽/ねぇ、肩だけで終わらないよね？/あー、もっと下のほう……そっち側じゃなくて/……/んふ……/そう、脇のあたりからすすっと、前に……/はぁぁ……")%」
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%のマッサージを気に入っているようだが、どこか物足りなさそうだ。
		ELSE
			PRINTFORMW 「あの、あ、あ、%TEXTR("有が、と……/あ、有がと、こんなだから、肩がつらくて/あ、あの、肩だけだよね？/あ、えと、えと……うん、胸部まで触るのだめだからね/あっ、は……具合いい、有がとう")%」
			PRINTFORMW %CALLNAME:TARGET%沉浸在并不是很用心的按摩中。
		ENDIF
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "膝枕"
		PRINTFORMW
	CASE "泡茶"
		IF CEVENT("淫魔覚醒：万音")
			PRINTFORMW 「あら。有がと……ちょうど飲みたいと思ってたとこ」
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「ああ、あ、あ、有が、と」
		ELSEIF RAND:2
			PRINTFORMW 「……頂きます」
		ELSE
			CALL EMOTION_PLUS, "重置/＞＜/呀哒２/紅潮"
			PRINTFORMW 「いい、いっ、言ってくれたら、わ、私が淹れた、のに……」
		ENDIF
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			IF CEVENT("淫魔覚醒：万音")
				PRINTFORMW 「ふぁぁっ！？　んふ、やぁ、尾巴は敏感だから、温柔的触ってね？」
				PRINTFORMW %CALLNAME:TARGET%はぱたぱたと根本と掴まれた部位の間を跳ねさせて、感じた度合いを伝えてきていた。
			ELSE
				PRINTFORMW 「ひゃぁっ！？　あ、あ、あ、あの、尾巴、尾巴だめ、びくびくするからっ！！」
				PRINTFORMW %CALLNAME:TARGET%は背中をさすっていった悪寒をぶつけるかのようににらみつけてきた。
			ENDIF
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF CEVENT("淫魔覚醒：万音")
				PRINTFORMW 「うん、そんな、そんな、かんじ……んはぁ……はぁぁ」
				PRINTFORMW %CALLNAME:TARGET%の言うとおりにしてやると頬がより紅潮し、今にも達したりするんじゃないかと思わせるほど感じ入っていた。
			ELSE
				PRINTFORMW 「やあああ！！　も、もうだめ！　もうやめて！！」
				PRINTFORMW %CALLNAME:TARGET%は思いっきり平手でぶってきた。痛い。
			ENDIF
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			IF CEVENT("淫魔覚醒：万音")
				PRINTFORMW 「んはっ！？　はぁ、惊嚇した……んふ、いいよ、温柔的さすってね？」
				PRINTFORMW %CALLNAME:TARGET%は水润的目で、尾巴をつかむ%CALLNAME:MASTER%に上目遣いで訴えた。
			ELSE
				PRINTFORMW 「ひゃぁっ！？　あ、あ、あ、あの、尾巴、尾巴だめ、やああ！！」
				PRINTFORMW %CALLNAME:TARGET%はぞくぞくと背中を震わせる悪寒をぶつけるかのようににらみつけてきた。
			ENDIF
		ELSE
			IF CEVENT("淫魔覚醒：万音")
				PRINTFORMW 「いいのぉ、尾巴感じちゃう……んふぁ、はぁぁ……ね、さすられてたら、我慢できなくなりそう……」
				PRINTFORMW %CALLNAME:TARGET%の目に目覚めさせて是けなさそうな情念をともしたように見えるが、気のせいだと信じたい。
			ELSE
				PRINTFORMW 「やあああ！！　も、もうだめ！　もうやめて！！」
				PRINTFORMW %CALLNAME:TARGET%は思いっきり平手でぶってきた。痛い。
			ENDIF
		ENDIF
	CASE "舐陰奉仕する"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			IF CEVENT("淫魔覚醒：万音")
				PRINTFORMW 「んっ？　ふぁ、何々、っぁぁ、もう、突然、それ感じちゃうか、らぁ……はぁ、っ」
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の熱心な奉仕にすっかり感じいって、達するたびに背筋が幾度も震えていた。
			ELSE
				PRINTFORMW 「ひゃぁっ！？　い、い、いやあああああ！！」
				PRINTFORMW %CALLNAME:TARGET%は飛びのいてきつくこちらを睨み付けた。
			ENDIF
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF CEVENT("淫魔覚醒：万音")
				PRINTFORMW 「はぁ、はぁ、そんなに、そんなにされたら、がまんできなく、なっちゃうぅっ、ねぇ、お願い、床で抱いて、舌よりもっと、しっかりと」
				PRINTFORMW だが%CALLNAME:TARGET%の要望を聞き入れず、ひたすら奉仕にいそしんだ。
			ELSE
				PRINTFORMW 「やあああ！！　も、もうだめ！　もうやめて！！」
				PRINTFORMW %CALLNAME:TARGET%は思いっきり平手でぶってきた。痛い。
			ENDIF
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			IF CEVENT("淫魔覚醒：万音")
				PRINTFORMW 「んっ！？　あ、は、えっと、これはまた……うん、いいよ、就这様して……」
				PRINTFORMW %CALLNAME:TARGET%は水润的目で、内股の間に顔をうずめる%CALLNAME:MASTER%を促した。
			ELSE
				PRINTFORMW 「ひゃぁっ！？　ちょ、な、なにするのっ！！」
				PRINTFORMW %CALLNAME:TARGET%はぞくぞくと背中を震わせる悪寒をぶつけるかのようににらみつけてきた。
			ENDIF
		ELSE
			IF CEVENT("淫魔覚醒：万音")
				PRINTFORMW 「やぁぁ、そういうのは、んっ、もう……熱心にしてくれて……はぁ」
				PRINTFORMW %CALLNAME:TARGET%は抵抗そぶりもなく始めた奉仕を受け入れている。
			ELSE
				PRINTFORMW 「やあああ！！　も、もうだめ！　もうやめて！！」
				PRINTFORMW %CALLNAME:TARGET%は思いっきり平手でぶってきた。痛い。
			ENDIF
		ENDIF
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K19
	WAIT
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
		CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请", "展示内褲"
		PRINTFORMW どうやら万音は就这様抱いてもらいたいようだ。
		TFLAG:床イン = 1
	CASE "推倒"
		PRINTFORMW
		TFLAG:床イン = 1
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		PRINTFORMW
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "抚摸", "手淫"
		PRINTFORMW
	CASE "膝枕"
		PRINTFORMW
	CASE "沏茶"
		PRINTFORMW
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW
	ENDIF
CASE "廁所詮索"
	PRINTFORMW
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K19
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		;拒否されたのに連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查内褲"
		;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K19
		WAIT
	ELSE
	;連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K19
		WAIT
	ELSEIF CFLAG:股間確認済 && RAND:2
		PRINTFORMW
	;心情好
	ELSEIF CFLAG:夸奖
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K19
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			IF COND("打招呼前")
				PRINTFORMW
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
ENDSELECT

path: ERB/EVENT_K/19 マノン/EVENT_K19_DAILY.ERB


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

SELECTCASE ARGS
CASE "取引開始"

CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛

	;失敗
	ELSE

	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")

	ELSE

	ENDIF
;胖次を要前の会話。
CASE "胖次交易"

CASE "胖次"

CASE "胖次拒否"

CASE "全裸交易"

CASE "全裸"

CASE "全裸拒否"

CASE "同居拒否"

CASE "同居希望"

CASE "同居頻度的相談"

CASE "便当拒否"

CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")

	;以下は初めて作ってもらうよう变成了とき
	ELSE
		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 "淫紋拒否"

;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF

CASE "淫紋贴纸"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT

CASE "拜托処理性欲"

CASE "性処理の一時中断"

CASE "性処理拒否"

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

CASE "给我看尾巴拒否"

CASE "髪型変更の感想"

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

;其他汎用
CASEELSE
	;汎用拒否
	IF STRCOUNT(ARGS, "拒否")
		PRINTFORMW
	;汎用取引（特に記述することがないならスキップ）
	ELSEIF STRCOUNT(ARGS, "取引")

	ELSE
		PRINTFORMW
	ENDIF
ENDSELECT

;-------------------------------------------------
;购物での台詞
;-------------------------------------------------
@KOJO_SHOP_K19, ARGS

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

	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")

	ELSE

	ENDIF
CASE "目送"

CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0

	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0

	ELSE

	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")

	ELSEIF CHECK_CLO("体操服姿")

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

	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0

	ELSE

	ENDIF
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "避孕套", "媚薬", "飞机杯"

	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0

		ELSE

		ENDIF
	;えっちな商品
	CASEELSE

	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:3
		RETURN 0
	;胖次没収中
	IF COND("買い物胖次没収中")

	ELSE

	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")

	;なにも買わなかった
	ELSEIF COND("買上品数") == 0

	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")

	ENDIF
ENDSELECT

path: ERB/EVENT_K/19 マノン/EVENT_K19_SHOP.ERB

license: unknown