code:
;-------------------------------------------------
;この角色独自の衣装を設定する。制服、体操服、泳装は既存のものから選ぶのが楽です
;-------------------------------------------------
@CLOTHES_K42, ARGS

SELECTCASE ARGS
;高めの頻度で着用します。設定しなくてもかまいません
CASE "内衣"
	IF TALENT:淫乱 && TALENT:恋慕 && ABL:露出癖 >= 5 && RAND:10 >= 8
		CSTR:胖次 = Ｈ的内衣/淡色/
		CSTR:胸罩 = 文胸/淡色/
	ELSEIF TALENT:恋慕
		CSTR:胖次 = 褶边の胖次/純白/
		CSTR:胸罩 = 褶边の胸罩/純白/
	ELSE
		CSTR:胖次 = 褶边の胖次/淡色/
		CSTR:胸罩 = 褶边の胸罩/淡色/
	ENDIF

;衣装に関わらず常に付けている飾品です。設定しなくてもかまいません
CASE "飾品"
	CSTR:飾品 =

;学園での便装です。設定必須です
CASE "制服"
	IF COND("夏")
		CALL SET_COSTUME, "露脐装超短裙西装外衣"
	ELSE
		CALL SET_COSTUME, "西装外衣"
	ENDIF
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "体操服"
	CALL SET_COSTUME, "体操服紧身短褲"
;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "泳装"
	CALL SET_COSTUME, "死库水"

;自宅など学園外で着ます。設定必須です
CASE "便装"
	SELECTCASE TEXTS("季節")
	CASE "冬"
		CALL SET_SHIRT, "针织毛衣"
		CALL SET_SKIRT, "刺绣長裙"
		CALL SET_OUTER, "连褲襪"
		CALL SET_SHOES, "小皮靴"
	CASE "秋"
		IF RAND:2
			CALL SET_SHIRT, "针织毛衣"
			CALL SET_SKIRT, "刺绣長裙"
			CALL SET_OUTER, "连褲襪"
			CALL SET_SHOES, "小皮靴"
		ELSE
			CALL SET_SHIRT, "宽松女式衬衫"
			CALL SET_SKIRT, "刺绣長裙"
			CALL SET_OUTER, "连褲襪"
			CALL SET_SHOES, "小皮靴"
		ENDIF
	CASE "夏"
			CALL SET_SHIRT, "无袖女式衬衫"
			CALL SET_SKIRT, "百褶裙"
			CALL SET_OUTER, "紧身短褲"
			CALL SET_SHOES, "小皮靴"
	CASEELSE
		IF RAND:2
			CALL SET_SHIRT, "无袖女式衬衫"
			CALL SET_SKIRT, "百褶裙"
			CALL SET_OUTER, "紧身短褲"
			CALL SET_SHOES, "小皮靴"
		ELSE
			CALL SET_SHIRT, "蝴蝶結女式衬衫"
			CALL SET_SKIRT, "刺绣長裙"
			CALL SET_OUTER, "连褲襪"
			CALL SET_SHOES, "小皮靴"
		ENDIF
	ENDSELECT
	CALL SET_PANTIES, "蕾丝的胖次"
	CALL SET_BRA, "蕾丝胸罩"

;自分的房間(not主人公的房間)で着ます
CASE "居家服"
	IF COND("夏")
		CALL SET_SHIRT, "无袖女式衬衫"
		CALL SET_SKIRT, "百褶迷你裙"
		;夏で露出癖5以上かつ淫乱＆恋慕だと20％の確率で没穿内褲无胸罩
		IF TALENT:淫乱 && TALENT:恋慕 && ABL:露出癖 >= 5 && RAND:10 >= 8
			CALL SET_PANTIES, ""
			CALL SET_BRA, ""
		ELSE
			CSTR:胖次 = 褶边の胖次/淡色/
			CSTR:胸罩 = 褶边の胸罩/淡色/
		ENDIF
	ELSE
		CALL SET_SHIRT, "露背针织毛衣"
		;CALL SET_SKIRT, "百褶迷你裙"
		CSTR:胖次 = 褶边の胖次/淡色/
		CSTR:胸罩 = 褶边の胸罩/淡色/
	ENDIF

;约会以外で家から外出際に着ます。情人旅館呼出とかね
CASE "外出装"

;もちろん约会の際に着ます
CASE "约会衣装"
	IF COND("夏")
		CALL SET_SHIRT, "洛丽塔連衣裙"
		CALL SET_OUTER, "褲裙"
		CALL SET_SHOES, "无后跟鞋"
		CALL SET_PANTIES, "褶边の胖次"
		CALL SET_BRA, "褶边の胸罩"
	ELSE
		CALL SET_SHIRT, "哥特蘿莉礼服"
		CALL SET_SOCKS, "高筒襪"
		CALL SET_SHOES, "平底鞋"
		CALL SET_PANTIES, "蕾丝的胖次"
		CALL SET_BRA, "蕾丝胸罩"
	ENDIF

ENDSELECT

;-------------------------------------------------
;時間帯や場所に応じた髪型、表情の変化を記述する。設定しなくてもかまいません
;-------------------------------------------------
@MAIDFACE_K42
IF COND("夜") && PLACE("自宅") + PLACE("自室")
	CALL CHANGE_MAIDFACE, "无特殊髪型", TARGET
	CALL CHANGE_MAIDFACE, "Ｍ字刘海", TARGET
ELSE
	CALL SETFLAG, "普段の髪型復元", TARGET
ENDIF

license: unknown


code:
;-------------------------------------------------
;部員同士での交流。自分はTARGETとして呼ばれ、話相手の部員はPARTNER()として呼ばれる
;話相手への呼びかけはCNAME("partner")で出来る
;TFLAG:台詞スキップ = 1で話している相手のセリフのスキップ、TFLAG:地の文スキップ = 1で続く地の文のスキップをする事が出来る
;-------------------------------------------------
@KOJO_COMM_K42, ARGS
#DIM MEMO_LINECOUNT
;対話相手にしたい角色の名前を/区切りでこれに突っ込んでFIND_TaiTa(EVENT_TABLE)とするとそのうち一人が選ばれる
#DIMS EVENT_TABLE

EVENT_TABLE =
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;話しかける側のセリフ。COND("対話可能")を満たす相手を選んでPARTNER()にする事で、特定の相手に話しかけることもできる
CASE "お誘いする"
	;特定の相手に話しかける場合はEVENT_TABLEに対話相手の名前を / 区切りで並べて ; を消す
	;例１）弗理希艾尔or濡烏の君or西西莉亚から一人選ぶ場合
	;EVENT_TABLE = 弗理希艾尔/濡烏の君/西西莉亚
	;例２）部員全てから一人選ぶ場合
	;EVENT_TABLE = 全員

	IF FIND_TaiTa(EVENT_TABLE)
		;話し相手をpartnerにする
		CALL SET_PARTNER, FIND_TaiTa(EVENT_TABLE)
		CALL EMOTION_PLUS, "交流中", TARGET, PARTNER()
	ENDIF

;話しかけられる側のセリフ。括弧は『』を使うのが望ましい
CASE "誘われた"

ENDSELECT

path: ERB/EVENT_K/42 みなみ/EVENT_K42_COMM.ERB


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;コメントアウトで置いておくと一応この朝打招呼は無自覚素質です
;朝の打招呼なんでいつでもする上結構ドスケベです…… 你のことが大好きな妹なのでこういうこと平気でするんだ、みたいに思って頂ければ……
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE  "朝接吻", "朝の新妻PLAY", "朝添い寝"
		SELECTCASE RAND:3
		CASE 0
			CALL PRINT_STR, @" 「っん、おはよ……_HH_」_W"
		CASE 1
			PRINTFORML 「んぅ……あ、起きちゃった？」
			IF TEXTS("曜日") == "日"
				PRINTFORMW 「そろそろ朝ご飯にしない？」
			ELSE
				PRINTFORMW 「そろそろ学校行く時間だから、起きなきゃダメだよ。」
				CALL PRINT_STRW, @" 「……えっ、もうちょっと？ しょうがないなぁ……_HH_」"
			ENDIF
		CASEELSE
			PRINTFORML 「啊、早上好、%CNAME("二人称")%。」
		ENDSELECT
	CASE "朝騎乗位", "朝Ａ騎乗位","朝乳交", "朝口交", "朝足交", "朝舐陰"
		PRINTFORMW 「%CNAME("二人称")%起床啦～」
		CALL PRINT_STRW, @" 「%TEXTR("む～っ、下の体はもう起きてるのにぃ_HH_/朝一番_HH_いっぱい出してね_HH_/えへへ、起きないからぁ……_HH_朝から独り占め_HH_")%」"
	CASE "朝六九式"
		PRINTFORMW 「%CNAME("二人称")%、起きた？」
		CALL PRINT_STRW, @" 「%TEXTR("もう下の方は起きちゃってるけど……_HH_/妹朝まんこ_HH_味わってね_HH_")%」"
	CASE "朝逆正常位"
		CALL PRINT_STRW,@"「%CNAME("二人称")%、おはよぉ…_HH_」"
		CALL PRINT_STRW,@"「%CNAME("二人称")%%TEXTR("に朝出し_HH_きもちよかったぁ……_HH_/のナカ_HH_朝から独り占めしちゃった_HH_/の寝顔がえっちすぎたから、朝えっち_HH_しちゃった_HH_")%」"
	ENDSELECT

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

	IF COND("体育")
		PRINTFORMW 「今日は体育だよ。」
		PRINTFORMW 「%CNAME("二人称")%、体操服忘れてない？」
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「今日は%TEXTR("座学の/実技の")%日だね」
			CASE 1
				PRINTFORMW 「ちょっと待って、茶入れてくるね」
			CASEELSE
				PRINTFORMW 「あっ、%CNAME("二人称")%！ ……えへへ、なんでも！」
				PRINTFORMW %CALLNAME:TARGET%俏皮地笑了笑。
		ENDSELECT
	ENDIF
CASE "一番乗り"
	SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「啊、%CNAME("二人称")%。欸嘿嘿、今天%CNAME("一人称")%是第一名呢！」
		CASE 1
			PRINTFORMW 「第一名ー！」
		CASEELSE
			PRINTFORMW 「好像没有其他人来了呢。」
	ENDSELECT
CASE "ただいま"
		PRINTFORML 「我回来了～」
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		PRINTFORMW 「%CNAME("二人称")%、欢迎回家。」
	ELSE
		PRINTFORMW 「啊、我在等着呦。」
	ENDIF
CASE "入室打招呼"
	SELECTCASE CSTR:PREV_DAILYCOM
		CASE "甜言蜜语"
			PRINTFORMW (啊咧、妨碍到您了吗?)
		CASE "打招呼舐陰", "打招呼口交"
			PRINTFORMW 「欸？等等、在做什么呢……？」
		CASEELSE
			PRINTFORMW 「打扰了。」
	ENDSELECT
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「我来晚了、基本大家都到了呢。」
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「今天要做什么呢？」
			CASE 1
				PRINTFORMW %CALLNAME:TARGET%轻轻点頭。
			CASEELSE
				PRINTFORMW 「午安。」
		ENDSELECT
	ENDIF
;簡易入室打招呼に対する返し。WAITの使用は一回が望ましい
;誰が入室してきた人はCOND("入室打招呼中")がONなのでFIND_COND("入室打招呼中")で検索可能
;また、入ってきた人数はCHARA_NUM("入室打招呼中")で調べられる
CASE "打招呼返し"
	;打招呼してきた人の中から一人選ぶ
	ACTOR = FIND_COND("入室打招呼中")
	;選ばれた角色の默认のCALLNAME。この角色への呼びかけはCNAME(CALLNAME_ACTOR) で出来る
	CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

	;ここでは括弧に『』を使う
	;打招呼してきた人に老师が混じっている
	IF FIND_COND("教員", "入室打招呼中")
		PRINTFORMW 『こんにちは、%CNAME(CALLNAME_ACTOR)%。』
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 『差不多人都到齐了呦。』
			CASE 1
				PRINTFORMW 『%CNAME(CALLNAME_ACTOR)%、こんにちは。』
			CASEELSE
				PRINTFORMW 『您好。』
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 『您好。』
			CASE 1
				PRINTFORMW %CALLNAME:TARGET%轻轻点頭。
			CASEELSE
				PRINTFORMW 『%CNAME(CALLNAME_ACTOR)%、こんにちは。』
		ENDSELECT
	ENDIF

CASE "居間に現れた"
	;一度居間から別の場所に行って、居間に帰って来た時
	IF CMOVE("居間")
		PRINTFORMW 「回来了哟～」
	ELSE
		PRINTFORMW 「我回来了」
	ENDIF
CASE "抜け出された"
	IF TALENT:恋慕
		IF RAND:3 == 0
			PRINTFORMW 「啊、%CNAME("二人称")%……」
			PRINTFORMW %CALLNAME:TARGET%尴尬地看了看这边、马上就转向了其他地方。
		ELSEIF RAND:2 == 0
			PRINTFORMW 「啊咧、%CNAME("二人称")%、哪里~？」
		ELSE
			PRINTFORMW 「あれっ？ %CNAME("partner")%と……%CNAME("二人称")%？」
			PRINTFORMW %CALLNAME:TARGET%的脸肉眼可见的变红了、不过本人好像不知道的样子……
		ENDIF
	ELSE
		SELECTCASE RAND:4
		CASE 0
			PRINTFORMW 「%CNAME("partner")%と用事？いってらっしゃい！」
			PRINTFORMW %CALLNAME:TARGET%依依不舍地目送%CALLNAME:MASTER%离開
		CASE 1
			PRINTFORMW 「啊咧、%CNAME("二人称")%、在哪里～？」
		CASE 2
			PRINTFORMW 「啊、%CNAME("二人称")%……」
		CASEELSE
			PRINTFORMW 「%CNAME("二人称")%、是时候该回去了呢……？」
		ENDSELECT
	ENDIF
CASE "便当"
		PRINTFORML 「今天是亲手做的%TEXTR("海苔便当/玉子烧便当/生姜烧便当/饭团/盐烤三文鱼便当")%。」
	SELECTCASE RAND:4
		CASE 0
			PRINTFORML 「给、这是你的%TEXTR("梨/橘子/草莓/苹果/桃子")%。」
		CASE 1
			PRINTFORML 「%CNAME("一人称")%的自信之作。味道如何？」
		CASE 2
			PRINTFORML %CALLNAME:TARGET%夹起便当、送到%CALLNAME:MASTER%嘴前。
			CALL PRINT_STR, @" 「是、%CNAME("二人称")%、あ～ん_HH_」_W"
		CASEELSE
			PRINTFORML 「%CNAME("二人称")%、满足了吗？」
		ENDSELECT
ENDSELECT

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

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「诶、社团活动、这么说还是有很多事情要做的吧。」
	PRINTFORML 「请多多関照!」
CASE "浑身是汗"
	IF TALENT:恋慕
		PRINTFORML 「果然好好运动出出汗是最棒的!！」
		PRINTFORML 「……%CNAME("二人称")%……想要知道味道吗？ ……稍后给你闻哦、稍等一下~♪」
	ELSE
		PRINTFORML 「果然好好运动出出汗是最棒的!！」
		PRINTFORML 「唔、%CNAME("二人称")%。不要闻啊……」
	ENDIF
CASE "刚睡醒"
		PRINTFORML 「唔、嗯~……早上好、%CNAME("二人称")%」
CASE "Cosplay中"
	PRINTFORML 「欸嘿嘿、怎么样?合适吗？」
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K42
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	CALL PRINT_STRL, @"「恋人、かぁ……%CNAME("二人称", "かな")%の、恋人……えへへ……_HH_」"
CASE "告白保留"
	PRINTFORML %CALLNAME:TARGET%は不機厌恶地している……
CASE "约会的约定"
	PRINTFORML
;これは悪魔や天使や驱魔人のみ
CASE "契約成立"
	;PRINTFORML KOJO_DAILY_K42, %CSTR:PREV_DAILYCOM%後
;你にお願いされて、自分の力で巨根になってあげた(悪魔と天使のみ)
CASE "巨根化契約成立"
	PRINTFORML
CASE "短小化契約成立"
	PRINTFORML
;ここはこの角色と一緒に別の場所に移動した際のセリフです
CASE "摆脱"
	;IF TALENT:恋慕
	;	PRINTFORML
	;ELSE
	;	PRINTFORML 「いってらっしゃい！」
	;ENDIF
CASE "主人公的房間に連れ込まれた"
	PRINTFORML 「打扰了。」
	PRINTFORML 「……果然、%CNAME("二人称")%的房间果然很安静呢。」
CASE "自室に招待"
	PRINTFORML 「要在%CNAME("一人称")%的房间里做什么呢。」
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML
	ELSE
		PRINTFORML
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML 「我回来了」
CASE "オナバレ"
	PRINTFORML 「……！？什么？%CNAME("二人称")%！？ 不要看这里啊！变态、H、笨蛋ーーーー！」
	PRINTFORML %CALLNAME:TARGET%红着脸低下了頭、不想让你看见。
	PRINTFORML 虽说是不自觉的、但还是让你眼前一亮…思考了一下、还是暂时不要说了。
CASE "露脐装超短裙胖次チラ"
	PRINTFORML 「欸！？ 呀！请不要盯着看……」
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	PRINTFORML 「……只是%CNAME("二人称")%呦？能让我做这种事的……」
CASE "检查内褲"
	IF COND("合意：检查内褲")
		PRINTFORML 「%CNAME("二人称")%、不可以和别人做同样的事哦……？」
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		PRINTFORML 「%CNAME("二人称")%……我觉得做这种事是不对的……」
	ENDIF
CASE "拜托処理性欲"
	PRINTFORML 「……真是让人没办法呢」
CASE "进行性処理"
	PRINTFORML 「我不太擅长呢、就算这样也可以吗？」
CASE "清洁口交"
	PRINTFORML
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

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

		CASEELSE

		ENDSELECT
	;ENDIF
CASE "隐秘摄影失敗"
	PRINTFORML 「等等……您在做什么呢……？」
CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORML 「呜嗯……大家都在盯着看呢……」
	;まさかの野外
	ELSEIF PLACE("野外")
		PRINTFORML 「呜呜、在外面赤裸着……」
	;そのうち書きたいです。ちょっと思いつかない。
	;不在個室
	ELSEIF PLACE("個室") == 0
		PRINTFORML 「就算在室内……这样子……」
	;個室で二人きり
	ELSE
		CALL PRINT_STR, @"「……_HH_」_L"
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		PRINTFORML 「能叫%CNAME("一人称")%来、%CNAME("一人称")%很高兴」
	;做爱房
	ELSE
		PRINTFORML 「是%CNAME("二人称")%呢、没想到在这里呢。」
	ENDIF
ENDSELECT

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

;標語の反応。書いたらコメントアウトを外してください
;各分岐を細かく埋めずに、上の分岐を消して望みの学生服に着替えてやったぞ発言をここに書くのも良いと思います
IF CFLAG:標語実践
	IF STRCOUNT(SAVESTR:標語, "注意口渴")
			PRINTFORML 「渴了的话、果然还是会在意的吧」
			PRINTFORML 「把运动饮料也放到部室里吧……啊、不行吗？」
	ELSEIF STRCOUNT(SAVESTR:標語, "体操服")
		SELECTCASE SAVESTR:標語
		CASE "体操服はやっぱり布鲁马","体操服はやっぱり运动衫","体操服はやっぱり运动短褲"
			PRINTFORML 「嗯、偶尔穿过来也不错呢」
			PRINTFORML 「和平时有些不一样、有一点静不下心来……」
		CASE "体操服はやっぱり紧身短褲"
			PRINTFORML 「果然体操服很方便呢。怎么运动都可以！」
		CASEELSE

		ENDSELECT
	ELSEIF STRCOUNT(SAVESTR:標語, "学生服")
		SELECTCASE SAVESTR:標語
		CASE "学生服は露脐装超短裙に限る"
			;夏服であればやっぱり短い方がいいが、春秋冬はちょっと寒い
		CASE "学生服は超短迷你に限る"

		CASEELSE
			;夏服でも短い、気になる
		ENDSELECT
	ENDIF
ENDIF

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

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
	PRINTFORML 「%CNAME("二人称")%嗯？什么？……是问%CNAME("一人称")%有什么喜欢的东西吗？”」
	PRINTFORML 「嗯、最近的话果然是食物之类的吧。」
	PRINTFORML 「也不是说不喜欢化妆品之类的呢……」
	CALL SET_DEVENT, "質問１"
ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
	PRINTFORML 「我画的妆怎么样？」
	PRINTFORML 「现在正在尝试各种各样的妆容。」
	PRINTFORML 「お披露目できるよう变成了らそのときはね。」
	CALL SET_DEVENT, "質問２"
ELSEIF CFLAG:日常事件回数 >= 25 && DEVENT("質問３") == 0 && ABL:信頼 >= 5
	PRINTFORML 「I字平衡？Y字なら出来るけど、I字も練習した方が良い？」
	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 RAND:6 == 0 && FINDCHARA(NO, 10) > 0
		PRINTFORML %CALLNAME:TARGET%看着手机上与母亲的合照、露出了温柔的表情。
	ELSEIF RAND:5 == 0 && FINDCHARA(NO, 6) > 0
		PRINTFORML %CALLNAME:TARGET%看着手机上与姐姐的合照、露出了温柔的表情。
	ELSEIF RAND:4 && TALENT:恋慕
		PRINTFORML %CALLNAME:TARGET%看着手机上与%CALLNAME:MASTER%的合照、露出了温柔的表情。
	ELSEIF RAND:3 == 0
		PRINTFORML %CALLNAME:TARGET%看着手机上的照片……
	ELSEIF RAND:2 == 0
		PRINTFORML %CALLNAME:TARGET%がくいくい、と手招きしてきた。
		PRINTFORML どうやら、%TEXTR("格ゲー/ぽよぽよ/ジョニーカート/α-HEX")%で一緒に玩耍たいようだ……
	ELSE
		PRINTFORML %CALLNAME:TARGET%は頭戴式耳机を付けて%TEXTR("スマートフォン/5witch/PlayBox108")%で遊んでいるようだ。
	ENDIF
ELSE
	IF RAND:4 == 0 && TALENT:恋慕
		PRINTFORML 「どーてーごろしって服あるけど……なんでどーてーごろしなんだろうね？」
		PRINTFORML 「……着たことない服だったら誰でも脱がし方がわかんなくて当然だと思うんだけど」
	ELSEIF RAND:3 == 0
		PRINTFORML %CALLNAME:TARGET%坐在沙发上看书。
		PRINTFORML 仔细看了看、%CALLNAME:TARGET%似乎在读的是%TEXTR("杂志/漫画书/食谱")%的样子……。
	ELSEIF RAND:2 == 0
		PRINTFORML %CALLNAME:TARGET%坐在沙发上阅读着参考书。
		PRINTFORML 仔细观察了一下、%CALLNAME:TARGET%好像正在阅读%TEXTR("国语/数学/英语/理科/地歴公民")%的参考书……。
	ELSE
		PRINTFORML 突然感觉到了谁的视线、环顾四周、发现%CALLNAME:TARGET%正朝这边微笑着。
		PRINTFORML 「……%CNAME("二人称")%、怎么了吗？」
	ENDIF
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K42
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	IF RAND:3 == 0
		PRINTFORML 「zzz…………」
	ELSEIF RAND:2 == 0
		PRINTFORML 「嘶…………嘶…………」
	ELSE
		PRINTFORML 「唔……那样子………不可以……」
	ENDIF
ELSEIF RAND:4
	IF RAND:4 == 0
		PRINTFORML 「%CNAME("二人称", "かな")%……唔、呜喵……」
	ELSEIF RAND:3 == 0
		PRINTFORML 「真是的……都是%CNAME("二人称", "かな")%的错啦……呼呼……♪」
	ELSEIF RAND:2 == 0
		CALL PRINT_STRL, @"「%CNAME("二人称", "かな")%哇……真的是……很H的呢……_HH_」"
	ELSE
		PRINTFORML 「欸哆……再多来一点……」
	ENDIF
ENDIF

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

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		CALL PRINT_STR, @" 『好的、那么就到那里吧……_HH_』_W"
	;做爱房
	ELSEIF PLACE("做爱房")
		PRINTFORMW 『那么、我就要去了哦♪』
	ELSE
		PRINTFORMW 『约好了哟、要记住哦』
	ENDIF
CASE "学園での日常"

CASE "お仕事"

CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"

	;地の文の前の台詞がある場合はここに書く
	SELECTCASE SAVESTR:現在位置
	CASE "阵雨"
		IF RAND:2 == 0
			PRINTFORML 「突然就下雨了呢……　啊、谢谢您了、%CNAME("二人称")%」
			PRINTFORML (其实是带了折叠伞来着……不过现在的话、肯定是这种情节了)
		ELSE
			PRINTFORML 「%CNAME("二人称")%、抱歉呢！明明下雨了却没有带伞……」
			PRINTFORML 「……欸？　可以一起吗？太棒了♪」
		ENDIF
	ENDSELECT

	;地の文を出す
	CALL DAILY_MESSAGE, "归途"

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		PRINTFORMW
	CASE "内衣選び", "泳装選び"
		PRINTFORMW 「想要买一件新的呢、有什么建议吗？」
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏", "站着读书", "買食物", "物色游戏"
		PRINTFORMW
	CASE "检查新刊"
		PRINTFORMW
	CASE "繞道"
		PRINTFORMW
	CASE "直帰"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

CASE "性処理：前"
	;口上を書いた場合はRETURN 0を消してください
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW 「避孕套しちゃうの？」
		PRINTFORMW 「%CNAME("一人称")%はナマが良いんだけど……」
		PRINTFORMW 「え？しないと赤酱出来ちゃうから……？」
		PRINTFORMW 「……有がと、%CNAME("二人称")%」
	ELSE
		CALL PRINT_STRW, @" 「ナマでしてくれるの？やったぁ……」"
	ENDIF
CASE "性処理：後"
	;口上を書いた場合はRETURN 0を消してください
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		CALL PRINT_STRW, @" 「避孕套有も、気持ちよかった……_WH_」"
	ELSE
		CALL PRINT_STRW, @" 「やっぱりナマだよね……_BH_」"
	ENDIF
;归途イベントの後になんとなく情人旅館に行こっかとなった際のセリフです
CASE "放課後Ｈ的邀请"
	PRINTFORMW 「呐、比起那些……那个、不去一下吗？」
;お浴室に一緒に入ろうと誘われた場合
CASE "一緒にお浴室"
	PRINTFORML 「%CNAME("二人称")%、要一起泡澡吗？」

	CALL PRINT_SELECT, "一緒に入る/後で入る"
	IF RESULT == 0
		PRINTFORMW 「太棒了♪」
		TFLAG:床イン = 1
	ELSE
		PRINTFORMW 「这样啊、也有那种时候呢。」
	ENDIF
CASE "休憩"
	IF PLACE("自宅")
		IF COND("夜")
			;欲求不満の限界
			IF BASE:欲求不満 >= 100
				CALL PRINT_SELECT, "推倒在床上！/晚安"
				IF RESULT == 0
					PRINTFORMW 「太棒了♪」
					PRINTFORMW 「今晚不会让你睡觉的哦……開玩笑的♪」
					TFLAG:床イン = 1
				ELSE
					PRINTFORMW 「这样啊、也有那种时候呢。」
				ENDIF
			ELSE
				IF TEXTS("季節") == "冬"
					IF RAND:3 == 0
						PRINTFORMW 「冬天啊、果然就应该悠闲地在被炉里吃橘子呢……」
						PRINTFORMW 「%CNAME("二人称")%、橘子剥好了哟～」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「唔……、实在不想从被炉里出来呢……」
						PRINTFORMW 「……想让%CNAME("二人称")%送我回房间呢……」
					ELSE
						PRINTFORMW 「……啊咧、%CNAME("二人称")%醒过来了吗？」
						PRINTFORMW 「……莫非还在睡吗？」
						PRINTFORMW 「那么、难得的机会、我也来一起睡吧……♪」
					ENDIF
				ELSEIF TEXTS("季節") == "夏"
					IF RAND:3 == 0
						PRINTFORMW 「幸好有空调呢、好热啊……」
						PRINTFORMW 「从冰箱里取出冰淇淋。」
						PRINTFORMW 「……啊、%CNAME("二人称")%要哪一种呢？」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「虽然每年都会想、但是果然我还是讨厌夏天啊……」
					ELSE
						PRINTFORMW 「夏天即使不运动也要好好补充水分呢」
						PRINTFORMW 「不然的话就会很容易中暑的哦。」
					ENDIF
				ELSE
					IF RAND:3 == 0
						PRINTFORMW 「……欸嘿嘿」
						PRINTFORMW 「和%CNAME("二人称")%这样在一起的时间、如果能一直持续下去就好了呢」
					ELSEIF RAND:2 == 0
						PRINTFORMW
					ELSE
						IF TEXTS("季節") == "春"
							PRINTFORMW
						ELSE
							PRINTFORMW
						ENDIF
					ENDIF
				ENDIF
			ENDIF
		;周日昼
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「欸、%CNAME("二人称")%在这之后还要睡觉吗？」
				IF CFLAG:前回Ｈ日 == DAY - 1 || FIND_COND("夜袭相手") == 0
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF RAND:2 == 0
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		IF RAND:3 == 0
			;前日の夜に南実と床インしていた、または南実が夜袭にきた場合
			IF CFLAG:前回Ｈ日 == DAY - 1 || FIND_COND("夜袭相手") == 0
				PRINTFORMW 「%CNAME("二人称")%、辛苦了呢……」
				PRINTFORMW 「我的意思是、……可能是昨天晚上做到很晚的缘故吧……」
			ELSE
				PRINTFORMW 「好像很有精神呢、%CNAME("二人称")%……」
				PRINTFORMW 「%CNAME("二人称")%昨天没有熬夜吗？」
			ENDIF
		ELSEIF RAND:2
			IF TEXTS("季節") == "夏"
				PRINTFORMW
			ELSEIF TEXTS("季節") == "冬"
				PRINTFORMW 「今年冬天也很冷呢……」
				PRINTFORMW 「但是如果和%CNAME("二人称")%紧紧的贴在一起的话……看吧、很暖和吧」
				PRINTFORMW 「……欸嘿嘿♪」
			ELSE
				PRINTFORMW 「%CNAME("二人称", "ー")%、在那种地方睡觉会感冒的。」
				PRINTFORMW 「呐、%CNAME("二人称", "ー")%？」
				PRINTFORMW 「真没办法呀、拿点东西盖上吧……」
			ENDIF
		ELSE
			PRINTFORMW 「一直以来都受到%CNAME("二人称")%照顾呢」
			PRINTFORMW 「……膝枕、要来试试吗？」
		ENDIF
	;場所移動後
	ELSE
		PRINTFORMW 「……欸、啊喏、%CNAME("二人称")%？」
		PRINTFORMW 「到这里来只是为了睡觉吗？」
		PRINTFORMW 「怎么这样……明明蛮期待的……」
	ENDIF

CASE "清洁口交：お誘い"

CASE "清洁口交：射精後"

CASE "清洁口交：断った"

;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "性処理：後"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = こんばんは
	ELSEIF COND("昼")
		GREETING = こんにちは
	ELSE
		GREETING = おはよう
	ENDIF

	SELECTCASE STR:日常イベント名
	CASE "打招呼ハグ"
		PRINTFORMW 「んっ、%CNAME("二人称")%どうしたの～？」
		PRINTFORMW 「……ハグしたい気分だからした？」
		CALL PRINT_STRW, @"「じゃあ我も、%CNAME("二人称")%をぎゅ～っ_HH_」"
	CASE "打招呼接吻"
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「%CNAME("二人称")%、ちゅ～_HH_」"
		ELSE
			PRINTFORMW 「い、いくらなんでも接吻を打招呼にするのは恥ずかしいよ……」
			CALL PRINT_STRW, @"「%CNAME("二人称")%ってば……_HH_」"
		ENDIF
	CASEELSE
		;你に先に打招呼をされた
		IF CFLAG:打招呼した == 0
			IF TALENT:恋慕
				PRINTFORMW 「唔……、%CNAME("二人称", "かな")%、%GREETING%♪」
			ELSEIF TALENT:PLAYER:男性
				PRINTFORMW 「嗯……、%GREETING%」
			ELSE
				PRINTFORMW 「%GREETING%！」
			ENDIF
		ELSE
			IF TALENT:恋慕
				PRINTFORMW 「%GREETING%、%CNAME("二人称")%♪」
			ELSEIF TALENT:PLAYER:男性
				PRINTFORMW 「啊、%GREETING%、%CNAME("二人称")%」
			ELSE
				PRINTFORMW 「%CNAME("二人称")%、%GREETING%！」
			ENDIF
		ENDIF
	ENDSELECT
CASE "叫醒"
	PRINTFORMW 「唔唔……嗯、欸……已经早上了……？」
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	PRINTFORMW 「哈……呜、有些困了呢……回房间了哦。」
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW 「唔……、好热啊……」
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW 「哈啊、果然凉爽的环境才最舒服呢！」
	PRINTFORMW 「欸%CNAME("二人称")%、为什么一直盯着这边看啊？」
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖", "夸奖点心"
		PRINTFORMW 「褒めても、何もでないよ？」
		PRINTFORMW ……と是うものの、%CALLNAME:TARGET%はどことなく嬉しそうだ。
	CASE "甜言蜜语"
		IF TALENT:恋慕
			CALL PRINT_STRW, @" 「……有がと _／／／_」_"
			CALL PRINT_STRW, @" 「%CNAME("一人称")%も…… って改めて言うと恥ずかしい～…… _／／／_」"
			CALL PRINT_STRW, @" 「%CNAME("二人称")%の事、ずっとずっと…… _／／／_」"
			CALL PRINT_STRW, @" 「partnerが%CNAME("一人称")%以外の人になっても……%CNAME("二人称")%の事、大好きだよ_HH_」"
		ELSEIF CALCF("甜言蜜语成功") && FLAG:二人きり && CFLAG:好感度 >= 2000
			PRINTFORMW 「うんっ、%CNAME("一人称")%も%CNAME("二人称")%大好き！」
			CALL PRINT_STRW, @" 「えへへ～……%CNAME("二人称")%にこういう話されるとすごいドキドキしちゃう _／／／_」"
		ELSEIF CALCF("甜言蜜语成功") && FLAG:二人きり && CFLAG:好感度 <= 1250
			PRINTFORMW 「んふふー……」
			CALL PRINT_STRW, @"「まだ恥ずかしいけどね、%CNAME("一人称")%も%CNAME("二人称","ふりがな")%のこと好きだよ～…… _／／／_」"
		ELSEIF CALCF("甜言蜜语成功") && CFLAG:好感度 >= 1750 && FLAG:二人きり == 0
			PRINTFORMW 「ひゃぅ！？ %CNAME("二人称","ふりがな")%っ！？」
			CALL PRINT_STRW, @"「ん、んもーっ！！ 不意打ちは惊嚇するんだってばぁっ_／／／_」"
		ELSEIF FLAG:二人きり && CFLAG:好感度 <= 1500
			CALL PRINT_STRW, @"「嫌じゃないし嬉しいんだけどね、まだ慣れないなー……って…… _／／／_」"
		ELSE
			PRINTFORMW 「あのねー%CNAME("二人称")%……」
			PRINTFORMW %CALLNAME:TARGET%はむぅ……とふて腐れ気味に頬を膨らましている……
		ENDIF
	CASEELSE
		IF RAND:4 == 0 && ABL:0 >= 5
			IF COND("夏")
				IF RAND:3 == 0 && TALENT:恋慕
						PRINTFORMW 「あーーーーあっづいよおおおおおおお！」
						PRINTFORMW 「ってあ！ %CNAME("二人称")%が持ってるその%TEXTR("紅茶/サイダー/コーラ/乳酸菌飲料")%、コラボのやつじゃん！！」
						PRINTFORMW 手うちわで涼んでいた%CALLNAME:TARGET%に飲み物をひったくられてしまった……
						PRINTFORMW ……飲みかけだったが%CALLNAME:TARGET%は良いのだろうか？
					ELSEIF RAND:2
						PRINTFORMW 「うー、冰食べたぁい……」
						PRINTFORMW 「%CNAME("二人称")%、%TEXTR("ゴリゴリ君/快-KAI-/マーベラス罩杯/冰もなか/Daddy's John")%買ってきてよ～」
					ELSE
						PRINTFORMW 「ねぇねぇ、外暑くなぁい？」
					ENDIF
			ELSEIF COND("秋")
				IF RAND:3 == 0 && COND("夜")
						PRINTFORMW 「ねーねー%CNAME("二人称")%、夜長だし游戏しない？」
				ELSEIF RAND:2
					PRINTFORMW 「秋と言えば食欲の秋だよね」
					PRINTFORMW 「%CNAME("二人称")%、%TEXTR("りんご/梨/柿/葡萄")%買ってきて食べよ～」
				ELSE
					PRINTFORMW 「外も大分涼しくなって過ごしやすくなってきたよね～」
				ENDIF
			ELSEIF COND("冬")
				IF RAND:4 == 0 && TALENT:恋慕
					PRINTFORMW 「嗯ー……」
					PRINTFORMW 「%CNAME("二人称")%の側ってあったかいなぁ」
				ELSEIF RAND:3 == 0 && COND("麦莉爱娜")
					PRINTFORMW 「冬と言えば鍋だよね！」
					PRINTFORMW 「%CNAME("二人称")%、今日の晩ご飯お母桑に頼んで%TEXTR("チゲ鍋/チゲ鍋/チゲ鍋/寄せ鍋/寄せ鍋/寄せ鍋/寄せ鍋/カキ鍋/すき焼き")%にしない？」
				ELSEIF RAND:2
					PRINTFORMW 「寒いけどおこたでたべる橘子や冰ってたまらなくおいしいよね～」
					PRINTFORMW 「%CNAME("二人称")%はなんでか知ってる？」
				ELSE
					PRINTFORMW 「外、寒いよねえ」
					PRINTFORMW 「こういう時は家の中でぬくぬく！！」
				ENDIF
			ELSEIF COND("春")
				IF RAND:3 == 0 && COND("昼")
					PRINTFORMW 「春はホントに眠くなるよねえ……」
					PRINTFORMW 「朝眠くって困っちゃう……」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「赏花行きたいよねえ」
					PRINTFORMW 「美味しい団子頭食べながらお花眺めるのステキだと思うんだ！」
				ELSE
					PRINTFORMW 「春の開朗って暖かいよねえ。動きやすくて好き！」
				ENDIF
			ELSE
				IF RAND:3 == 0 && COND("昼")
					PRINTFORMW 「ねーねー、%CNAME("二人称")%！ 家帰ったらこないだ見た动画見ようよ～」
					PRINTFORMW 「続きめっちゃ気になってるんだから！」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「今度Cosplay買いに行こうよ！」
					PRINTFORMW 「え？约会じゃないの、って？それとこれは別なの！」
				ELSE
					PRINTFORMW 「うーん、最近胸がキツくなってきたのかなあ……」
					PRINTFORMW 「胸罩変えなきゃダメかなあ……？」
				ENDIF
			ENDIF
		ELSEIF RAND:3 == 0
			PRINTFORMW 「呼……、累死了……」
			PRINTFORMW 「正好%TEXTR("国语/数学/英语/理科/社会")%的%TEXTR("预习/复习")%结束了。」
			PRINTFORMW 「果然为了不去不同的高中、预习复习是很重要的大事呢」
		ELSEIF RAND:2
			PRINTFORMW 「%CNAME("二人称")%、今天的食物喜欢吃吗？」
			PRINTFORMW 「%CNAME("一人称")%哇――最喜欢了哦！」
		ELSE
			PRINTFORMW 「唔嗯？　怎么了嘛、%CNAME("二人称")%？　――欸、只是想叫一下？」
			PRINTFORMW 「那样啊……欸嘿嘿、%CNAME("一人称")%很精神哦！」
		ENDIF
	ENDSELECT
CASE "拭汗"
	PRINTFORMW 「ん、しょ。已经可以了哦。」
	PRINTFORMW ……擦汗的过程中、总觉得%CALLNAME:TARGET%很性感、不由得移開了视线。
CASE "淋浴独り言"
	PRINTFORMW 「哼哼哼哼哼~♪」
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

CASE "淋浴後换装失敗"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K42
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "托一托胸部"
		PRINTFORMW
	CASE "按摩"
		PRINTFORMW
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "膝枕"
		PRINTFORMW
	CASE "泡茶"
		PRINTFORMW
	CASE "勸酒"
	IF CEVENT("南実：シナリオイベント１")
		CALL DEL_CEVENT, "飲酒拒否"
		PRINTFORMW 「啊、是酒呢？十分感谢～！！」
	ELSE
		PRINTFORMW 「%CNAME("二人称")%、因为我还没有成年……等到成年后再、呐？」
		PRINTFORMW %CALLNAME:TARGET%委婉的拒绝了……。
		PRINTFORMW 现在向%CALLNAME:TARGET%劝酒还太早了。
		CALL SET_CEVENT, "飲酒拒否"
	ENDIF
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "摸頭"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K42
	WAIT
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请"
		PRINTFORMW
	CASE "推倒"
		PRINTFORMW
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "清洁口交"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		PRINTFORMW
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "抚摸", "手淫"
		PRINTFORMW
	CASE "膝枕"
		PRINTFORMW
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		PRINTFORMW
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW %CALLNAME:TARGET%期盼地叫了一声。
	PRINTFORMW 「呐……、%CNAME("二人称")%……多一点～」
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW 「……满足了吗？」
		ELSE
			PRINTFORMW 「……呼……欸、什么都没有做呀？」
		ENDIF
	;中毒度合いが高いと姉みたいにいろいろ分岐する予定
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW 「稍、稍微去摘了一下花…！」
	ENDIF
CASE "廁所詮索"
	PRINTFORMW 「欸？在做什么呢…在这里？」
	PRINTFORMW 总觉得气氛很尴尬。
;これは你と角色が両方男性の際に限り起きます
CASE "連れション"
	PRINTFORMW
;これは你と角色が両方男性でない際に限り起きます
CASE "廁所で井戸端会議"
	PRINTFORMW
;ここ充実させたい(よくやるので)
;你に廁所を覗かれた！
CASE "廁所ハプニング"
	PRINTFORMW 「讨厌、%CNAME("二人称")%！？」
;廁所ハプニングから派生するＨイベント
CASE "廁所Ｈ"
	SELECTCASE STR:日常イベント名
	CASE "廁所イベント：見せつけくぱぁ"
		PRINTFORMW
	CASE "廁所イベント：相互自慰"
		PRINTFORMW 「……呐……、虽然我不知道……但我会试着做的……」
		PRINTFORMW 「是这里吧、请看……♪」
	CASE "廁所イベント：口交"
		CALL PRINT_STR, @"「变大了呢……_HH_」_W"
		CALL PRINT_STR, @"「这样会比较舒服吗……_HH_」_W"
	CASE "廁所イベント：Ｖ性交"
		CALL PRINT_STR, @"「在里面颤个不停呢……_HH_」_W"
		CALL PRINT_STR, @"「就是那里、再多来一点……_HH_」_W"
	CASE "廁所イベント：Ａ性交"
		CALL PRINT_STR, @"「在里面颤个不停呢……_HH_」_W"
		CALL PRINT_STR, @"「竟然要用那里做呢、想好了吗……_HH_」_W"
	ENDSELECT
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K42
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		PRINTFORMW 「嗯姆、哪里是不行的……」
		PRINTFORMW %CALLNAME:TARGET%发出细微的声音想要制止…
	ELSE
		PRINTFORMW 「……只可以看一点点哦？」
		PRINTFORMW 这样说着、把你带到到了视线的死角、仔细的给你看了一会……
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K42
		WAIT
	ELSEIF COND("合意：检查内褲") == 0
		PRINTFORMW 「欸、在说什么呢……？」
		PRINTFORMW %CALLNAME:TARGET%好像因为受到冲击呆住了。
	ELSE
		PRINTFORMW 「……不要那样一直盯着看啊？」
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K42
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		PRINTFORMW (唔啊啊、%CNAME("一人称")%正在被%CNAME("二人称")%盯着看……)
		PRINTFORMW (为什么会变成这样奇怪的气氛啊……)
	ELSE
		PRINTFORMW 「……不要那样一直盯着看啊？」
		PRINTFORMW %CALLNAME:TARGET%的脸上泛起了点点红潮……
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「呐……、%CNAME("二人称")%……就那么想要看我的裙子下面吗？」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			PRINTFORMW (唔、被%CNAME("二人称")%看见了……)
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW 「哈啊……嗯……%CNAME("二人称")%…… ……！？」
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K42
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「欸、想要看裙子下面……？」
			PRINTFORMW 「只、只是一点点哦？」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「……！？%CNAME("二人称")%、别看过来啊！！」
		ELSE
			IF COND("打招呼前")

			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					PRINTFORMW 「……！？ 欸！？ 讨厌、%CNAME("二人称")%！ 不要过来这边啊！！」
					PRINTFORMW 「无论如何都不行ーーー！」
					PRINTFORMW ……在那之后被%CALLNAME:TARGET%狠狠的斥责了一顿。
				ELSE
					PRINTFORMW 「……！？ 欸！？ 讨厌、不要过来啊！！」
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング") && FLAG:二人きり && (TALENT:恋慕 || TALENT:淫乱)
			CALL PRINT_STRW, @"「もう……、%CNAME("二人称")%に良いよ、って言って胖次をあげたのは%CNAME("一人称")%だし……_／／／_」"
			CALL PRINT_STRW, @"「%CNAME("二人称")%はえっちだからね、%CNAME("一人称")%の胖次をあげたら……ね_HH_」"
			CALL PRINT_STRW, @"「何をされるのかぐらい、なんとなくは分かるけど……_／／／_」"
			PRINTL
			CALL PRINT_STRW, @"「う～～～……_／／／_」"
			CALL PRINT_STRW, @"「いざこうやって目の前でされると……恥ずかしいね_HH__HH_」"
			CALL PRINT_STRW, @"「%CNAME("二人称")%……胖次で自分を慰めてないで、%CNAME("一人称")%とえっちシようよぉ_HH__HH_」"
		ELSEIF COND("胖次ドーピング") && (TALENT:恋慕 || TALENT:淫乱)
			PRINTFORMW 「うー、人がいるのに目の前でされると恥ずかしいよ……」
			CALL PRINT_STR, @"「%CNAME("二人称")%のえっち_／／／_」_W"
		ELSEIF FLAG:二人きり
			PRINTFORMW 「もう、二人きりの時は良いけど……」
			PRINTFORMW 「人前でこういうコトしたら、ダメだからね？」
		ELSE
			PRINTFORMW 「ええ……」
			PRINTFORMW 「あげたのは%CNAME("一人称")%だけど……こういうことするのは、人前ではやめてね？」
			PRINTFORMW 「なんで、って……言わせないでよ、%CNAME("二人称")%の変態っ」
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%が胖次でドーピングしている様子にドン引きしているようだ……
			CFLAG:好感度 -= 50
			PRINTL
			PRINTFORMW 　好感度 -50
		ENDIF
	ELSEIF FLAG:二人きり && (TALENT:恋慕 || TALENT:淫乱)
		CALL PRINT_STRW, @"「%CNAME("二人称")%ってばまた胖次で……も～っ_／／／_」"
		CALL PRINT_STRW, @"「それよりも、%CNAME("一人称")%とえっちしようよぉ……_HH__HH_」"
	ELSEIF TALENT:淫乱 && ABL:露出癖 >= 5
		CALL PRINT_STRW, @"「も～～～っ_／／／_」_W"
		CALL PRINT_STRW, @"「するならこっそりしてよぉ_HH__HH_」_W"
		CALL PRINT_STRW, @"粉紅_（……%CNAME("二人称")%がすけべなのを隠さないの興奮しちゃう……_HH__HH_）"
	ELSEIF TALENT:恋慕
		CALL PRINT_STRW, @"「あのね……_／／／_」_W"
		CALL PRINT_STRW, @"「シてもいいけど、人前でしないでこっそりしてよぉ_／／／_」_W"
		CALL PRINT_STRW, @"「……%CNAME("二人称")%のえっち……_／／／_」"
	ELSEIF FLAG:二人きり
		PRINTFORMW 「うう、ちょっと恥ずかしい……」
		CALL PRINT_STR, @"「干劲なのは嬉しいけど……_／／／_」_W"
	ELSE
		PRINTFORMW 「……%CNAME("二人称")%が変態なのは知ってるけど」
		PRINTFORMW 「えー、前にも止めてっていったのにまだ人前でこういうコトしちゃうんだ……」
		PRINTFORMW %CALLNAME:TARGET%は蔑んだ目で%CALLNAME:MASTER%を見ている……
		CFLAG:好感度 -= 10
		PRINTL
		PRINTFORMW 　好感度 -10
	ENDIF
CASE "Ｈ的約定"
;この角色自身が前回赤点で、それどころではない（学生以外は、この分岐には来ません）
	IF COND("成績：赤点")
		PRINTFORMW 「%CNAME("二人称")%、%CNAME("一人称")%の成績がそれどころじゃなくって……」
		PRINTFORMW 「……酱と%CNAME("一人称")%の成績が元街道变成了ら、ね？」
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			PRINTFORMW 「んっと、%CNAME("二人称")%の成績見てたんだけど、最近はすごくいいよね～」
			PRINTFORMW 「%CNAME("一人称")%と同じぐらい……ううんそれ以上ならいいよ！」
		;そうでない場合には平均点を結構上回る程度でＯＫです
		ELSE
			PRINTFORMW 「じゃあ、%CNAME("二人称")%が平均点以上取れたらね」
		ENDIF
	ENDIF
CASE "邀请学习"
	IF RAND:3 == 0
		PRINTFORMW カリカリカリカリ…………
	ELSEIF RAND:2
		PRINTFORMW 「ふぅ……大分進んだね。少し休憩しよう～」
	ELSE
		PRINTFORMW 「学年が違うから覚える範囲も違うけど、一起学习と捗るよね！」
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部の見せつけ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "性処理を頼んだ際の反応"
	;干劲がある場合
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"
			CALL PRINT_STRW, @"「お口ですれば良いんだねっ_HH_」"
		CASE "乳交"
			CALL PRINT_STRW, @"「胸部でしたいの？いいよ_HH_」"
		CASE "Ｖ性交"
			PRINTFORMW 「……こ、こっちでしたいの……？」
			CALL PRINT_STRW, @"「……本気出したら、許して、ね……_HH_」"
		CASE "Ａ性交"
			CALL PRINT_STRW, @"「……お尻_BH_したいんだぁ……いっぱいシて给ね_HH_」"
		CASE "尿道性交", "乳頭奸"
			CALL PRINT_STRW, @"「……まって、そこで_BH_したいの？」"
			CALL PRINT_STRW, @"「……普段不会うなとこで処理なんて……_BH_ _BH_」"
			CALL PRINT_STRW, @"「……変態_BH__BH_」"
		ENDSELECT
	;何かしながらで良いならして给よって場合。何をしながらなのかは SAVESTR:夢中 で参照できる。
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫", "Ｖ性交", "Ａ性交",  "尿道性交"
			PRINTFORMW 「えー、……今%SAVESTR:夢中%がいいとこなんだけど」
			PRINTFORMW 「それでもよかったらしたげるよ」
			PRINTFORMW いいところを邪魔されたからか、%CALLNAME:TARGET%はご心情斜めのようだ。
		ENDSELECT
	ENDIF
CASE "拜托処理性欲"
	SELECTCASE NAMES("性処理")
		CASE "口交", "乳交"
			CALL PRINT_STRW, @"「すっきりしたかな_HH_」"
			CALL PRINT_STRW, @"「また気持ちよくしたげるね_HH__HH_」"
		CASE "Ｖ性交", "Ａ性交"
			CALL PRINT_STRW, @"「……はふ……_WH_」"
			CALL PRINT_STRW, @"「……また誘ってね_WH_」"
		CASE "尿道性交", "乳頭奸"
			CALL PRINT_STRW, @"「……変態桑、気持ちよかった？」"
			CALL PRINT_STRW, @"「なんて……_BH_ _BH_ いじわるだよね」"
			CALL PRINT_STRW, @"「……でも変態_BH__BH_って思ってるのは本当だからね」"
	ENDSELECT
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
		CASE "手淫", "Ｖ性交", "Ａ性交",  "尿道性交"
			PRINTFORMW 「……気持ちよかった？」
			PRINTFORMW 「気持ちよかったんなら良いけど、次は酱と状況見てよね」
	ENDSELECT

;TFLAG:指令中止 = 1 とすることで口上側から性欲解消を拒否できる
;STR:PLAY要望 が本来したいPLAY。STR:PLAY内容 が你がやりたいと言って交渉中のPLAY
;ここの中で STR:PLAY内容 を変更する事で提案を蹴る事も出来る。什麼也不做場合は你の提案が通る
CASE "性欲解消を申し出た際の反応"
	SELECTCASE STR:PLAY要望
	CASE "舐陰"
		CALL PRINT_STRW, @"「あのね、……女性ノコのとこ、舐めて……欲しいな_HH_」"
	CASE "舐陰莖"
		CALL PRINT_STRW, @"「おちんちん、舐めて欲しいな……_BH_」"
	CASE "口交"
		CALL PRINT_STRW, @"「おちんちん、舐めさせて……_BH_」"
	CASE "Ｖ性交"
		;避孕套没有の生性交を希望
		IF COND("女性主導生性交")
			CALL PRINT_STRW, @"「今日、ナマでパコパコしたいの……_BH_」"
		ELSE
			CALL PRINT_STRW, @"「今日、ナマでパコパコしてほしいの……_BH_」"
		ENDIF
	CASE "Ａ性交"
			CALL PRINT_STRW, @"「今日、ナマでお尻パコパコしてほしいの……_BH_」"
	CASE "Ｖ性交する"
		PRINTFORMW 「あ、あのね……これを%CNAME("一人称")%から言うのはとても恥ずかしいんだけど……」
		IF TALENT:相思相愛 && RAND:2
			PRINTFORMW 「%CNAME("二人称")%に、%CNAME("一人称")%のあか酱……その……」
			PRINTFORMW 「産んで、欲しいなって」
			PRINTFORMW 「……ダメ？」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%と避孕套没有で%TEXTR("えっちしたい/性交したい")%な……」
			PRINTFORMW 「……ダメ？」
		ENDIF
	ENDSELECT
CASE "性欲解消の内容変更を頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "舐陰", "舐陰莖"
		CALL PRINT_STRW, @"「ペロペロしてくれるの？」"
		CALL PRINT_STRW, @"「じゃあ今回はそっちにしよっかな_BH_」"
	CASE "Ｖ性交"
		;今日は避孕套没有の生性交がＯＫな日
		IF COND("女性主導生性交")
			CALL PRINT_STRW, @"「えっ！？ _HH__HH__HH_ してもいいの！？」"
			CALL PRINT_STRW, @"「やったぁ_HH__HH_」"
			CALL PRINT_STRW, @"「いっぱい、いーっぱいよくして给ね_HH__HH_」"
		ELSE
			CALL PRINT_STRW, @"「……えっ！？ ナマでしてもいいの！？」"
			CALL PRINT_STRW, @"「やったぁ_HH_」"
		ENDIF
	CASE "Ａ性交"
		CALL PRINT_STRW, @"「お尻でするの？」"
		CALL PRINT_STRW, @"「いいよ、しよぉ_HH_」"
	CASE "尿道性交"
		TFLAG:指令中止 = 1
		PRINTFORMW 「えっ、それは……ちょっとイヤかな……」
	CASE "Ｖ性交する"
		PRINTFORMW 「へ、え、えええ！？」
		IF TALENT:相思相愛 && RAND:2
			PRINTFORMW 「%CNAME("二人称")%が、%CNAME("一人称")%のあか酱……その……」
			PRINTFORMW 「妊娠……しちゃうかもなんだよ？」
			CALL PRINT_STRW, @"「……なんか、それはそれでぞくぞくするよーな……_HH_」"
		ELSE
			PRINTFORMW 「%CNAME("二人称")%と避孕套没有で%TEXTR("えっちする/性交する")%なんて……」
			PRINTFORMW 「……ごめん、本気になっちゃったら……私、責任取るからね」
		ENDIF
	ENDSELECT
;性欲解消PLAY後の台詞
CASE "帮忙消除性欲"
	SELECTCASE NAMES("性処理")
	CASE "舐陰"

	CASE "舐陰莖"

	CASE "口交"

	CASE "Ｖ性交", "Ａ性交"
		;挿入行為の後に口交も続けて行った場合
		IF STR:PLAY要望 == "口交"

		ELSE
			SELECTCASE NAMES("性処理")
			CASE "Ｖ性交"

			CASE "Ａ性交"

			ENDSELECT
		ENDIF
	ENDSELECT
CASE "お昼ご飯のお誘い"
	PRINTFORMW ……どうやらSNSの着信のようだ。
	PRINTFORMW 『%CALLNAME:TARGET%だよ』
	IF TALENT:恋慕 && COND("欲求不満") >= 2
		PRINTFORMW 『%CNAME("二人称")%、今日はお昼を一緒に食べない？』
		PRINTFORMW 简约にそう書かれているだけだが、猫の絵文字が付いている。
	ELSEIF CEVENT("初お昼") == 0
		PRINTFORMW 『%CNAME("二人称")%、お昼を一緒に食べない？』
		PRINTFORMW どうやら%CALLNAME:TARGET%からのようだ。
		PRINTFORMW ……%CALLNAME:TARGET%は中等部だから部活を除くと家以外で会う機会は無いのだが、さてどうしようか。
	ELSE
		PRINTFORMW 『%CNAME("二人称")%、お昼を一緒に食べない？』
		PRINTFORMW どうやら%CALLNAME:TARGET%からのようだ。
	ENDIF
;実際に二人昼食をとっている時です
CASE "一緒にお昼ご飯"
	PRINTFORMW 「今日の日替わり定食は%TEXTR("唐油炸/鯖の塩焼き/鳥の照り焼き/漢堡肉/オムレツ/鯖の味噌煮")%定食かぁ」
	IF CEVENT("初お昼") == 0
		PRINTFORMW 「%CNAME("二人称")%と学校でご飯なんて、前から考えれば有些得ないことだったかも」
		PRINTFORMW 「中等部は申請しなきゃ原則大家給食って感じだしね～」
		PRINTFORMW %CALLNAME:TARGET%は物珍しそうに日替わり定食を食べている……
		CALL SET_CEVENT, "初お昼"
	ELSEIF RAND:3 && TALENT:恋慕 >= 1 && COND("欲求不満") >= 2
		PRINTFORMW 「えっ、猫の絵文字？……それは……ね？」
		PRINTFORMW %CALLNAME:TARGET%は左手で輪っかを作って、そこに右手の人差し指を抜き差しした。
		PRINTFORMW ……あの絵文字はそういうことだったらしい。
	ELSEIF RAND:2 == 0
		PRINTFORMW 「給食も良いけど学校食堂も良いよね～」
		PRINTFORMW 「弗理希艾尔桑のご飯も美味しいし、きっといっぱい修行したのかな」
	ELSE
		PRINTFORMW 「え？なんで日替わりが好きなの、って？」
		PRINTFORMW 「うーん、ほら給食もメニュー考えてくれてるけど、違うモノ食べたくならないかな？」
	ENDIF
ENDSELECT

;-------------------------------------------------
;约会の際のセリフ
;システム側の地の文や反応を出力させたくない場合には TFLAG:地の文スキップ = 1 としてください
;约会回数は EXP:约会経験 が+1ずつされます。初回のセリフは IF EXP:约会経験 == 0 で分岐するのが良いでしょう
;素質で分岐させる場合にはTALENT:恋慕での分岐がおすすめです
;-------------------------------------------------
@KOJO_DATE_K42, ARGS

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
		PRINTFORMW 「呐……、这个周末……有时间吗？」
CASE "约会のお誘い：結果"
	;约会決定！
	IF COND("约会的约定")
		PRINTFORMW 「哇、可以吗！？ 那么快出发吧快出发吧！」
	;你に保留されてしまった
	ELSE
		PRINTFORMW 「嗯、这样啊。%CNAME("二人称")%也有自己的安排呢。」
	ENDIF
;你から週末约会に誘われた
CASE "约会に誘われた"
		PRINTFORMW 「哇、可以吗！？ 那么快出发吧快出发吧！」
;你から约会当日にいきなり誘われた
CASE "邀请去约会"
	;そもそも同居してないってケースが珍しいので、これは別途差分を実装します。
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		PRINTFORMW 「仲直り约会……？ まあ……いいけど」
	ELSE
		PRINTFORMW 「……え、今日约会に行かないか、って？」
		PRINTFORMW 「……わーいやったー！！」
	ENDIF

;约会するにあたり、特殊な条件で着替えたりしたい時に使ってください。台詞没有で換装操作のみするのが推奨です
CASE "约会衣装に更衣"

;地の文はpartnerが遅れて現れる展開になっています
;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "待ち合わせ"
	IF COND("同居中") == 0
		PRINTFORMW 半分諦めのような顔をしながら%CALLNAME:TARGET%が現れた。
	ELSE
		PRINTFORMW 「お待たせ－、待った……？」
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "约会本番"
	SELECTCASE SAVESTR:约会
	CASE "去买泳衣"
		PRINTFORMW 「今年の泳装買いに行くの！？やったー！」
	CASE "散歩"
	IF COND("夏")
		PRINTFORMW 「はーい！熱中症にならないようにスポドリも持っていかないとね！」
	ELSEIF COND("秋")
		PRINTFORMW 「天気も落ち着いてきたし、絶好のお散歩日和だよね！」
	ELSEIF COND("冬")
		PRINTFORMW 「寒い時期のお散歩もいいよね！」
	ELSE
		PRINTFORMW 「暖かくなってきたしいろいろ歩き回れるね！」
	ENDIF
	CASE "尋訪美食"
	IF COND("夏")
		PRINTFORMW 「暑いし何食べて回ろっか？ 辣的食物？それとも冰～？」
	ELSEIF COND("秋")
		PRINTFORMW 「食欲の秋だしいろいろ尋訪美食できそうだね～！」
	ELSEIF COND("冬")
		PRINTFORMW 「寒い時期の尋訪美食って言ったらホットスナックだよね！」
	ELSE
		PRINTFORMW 「春限定の点心とかいっぱい食べたいね～！」
	ENDIF
	CASE "逛街"
	IF COND("夏")
		PRINTFORMW 「夏って言ったらやっぱり涼しいものだよね！」
	ELSEIF COND("秋")
		PRINTFORMW 「百貨店の物産展とかで美味しいものいっぱい売ってると良いなあ～♪」
	ELSEIF COND("冬")
		PRINTFORMW 「風邪引かないように気をつけないとねっ」
	ELSE
		PRINTFORMW 「オールシーズンものの服とかなら春だね～！」
	ENDIF
	CASE "去水族馆"
		PRINTFORMW 「水族館！？やったー！！」
	CASE "去游乐园"
		PRINTFORMW 「メリーゴーランド乗りたいなぁっ」
	CASE "去图书馆"
		PRINTFORMW 「静かに本読まないとね～」
	CASE "赏花"
		PRINTFORMW 「やったー赏花！」
	CASE "去游泳"
		PRINTFORMW 「えっ、去游泳の！？」
		PRINTFORMW 「いこういこう！！」
	CASE "爬山"
		PRINTFORMW 「ハイキング？いいよ～！」
	CASE "赏红叶"
		PRINTFORMW 「紅葉狩りいいよね～、風が気持ちよさそう！」
	CASE "滑雪"
		PRINTFORMW 「滑るの擅長じゃないからリードして…ね？」
	CASEELSE
		PRINTFORMW 「わあい、いこいこー！！」
	ENDSELECT

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

CASE "手をつなぐ"
	IF TALENT:恋慕
		CALL PRINT_STRW, @"「んっ、%CNAME("二人称")%……_HH_」"
	ELSEIF TALENT:恋慕 == 0
		CALL PRINT_STRW, @"「啊……_HH_」"
	ELSE
		PRINTFORMW 「%CNAME("二人称")%、今回だけだからね？」
		PRINTFORMW と是うものの、%CALLNAME:TARGET%はまんざらでもなさそうだ。
	ENDIF
CASE "手をつながない"
	IF TALENT:恋慕
		CALL PRINT_STRW, @"「……繋がないのも、それはそれで……_HH_」"
	ELSEIF TALENT:恋慕 == 0
		PRINTFORMW 「……こういうの、いいね」
	ELSE
		PRINTFORMW 気にしていないようには見えるが、约会だし手を繋ぎたかったようだ……
	ENDIF
;泳装を買いに行った時です
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	IF TALENT:恋慕 && COND("Ｈ的泳装選択可能") && RAND:2
		CALL PRINT_STRW, @"「……えっちなのも、選んで良いよ……_HH_」"
	ELSEIF RAND:2
		PRINTFORMW 「どんな泳装にしよっか？」
	ELSE
		PRINTFORMW 「一番良いのにしようね！」
	ENDIF
;泳装を買いに行って、結果的に選んだ泳装に対するセリフです
;もしも去年も泳装を選んでいたなら、CSTR:今年の泳装 に記録されているので比較する事が出来る
CASE "泳装決定"
	SELECTCASE SWIM(STR:選んだ泳装, "種類")
	CASE "Micro比基尼"
		PRINTFORMW 「布面積がちょっと気になるかも……」
	CASE "比基尼"
		PRINTFORMW 「良い感じだよね～」
		PRINTFORMW 「ちょっと肚子周围とか気になっちゃうけど……」
	CASE "競泳泳装"
		PRINTFORMW 「ぴっちりしてるから却ってボディラインしっかり出るよね」
	CASE "高開衩連衣裙"
		PRINTFORMW 「う、うーん……私はこういうのあまり好きじゃ無い……かも」
	CASE "連体泳装"
		PRINTFORMW 「この領帯プが一番可愛くて良いよね～♪」
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW 「これ……え、泳装……？」
		PRINTFORMW 「泳装なんだよね？」
		SIF COND("Ｈ的泳装選択可能")
		PRINTFORMW 「選んで良いって言ったのは%CNAME("一人称")%だけどさー……」
	ENDSELECT

;泳池などで泳装姿に着替え、待ち合わせ場所に集合した時です
CASE "泳装に着替えた"
	;どの泳装に着替えたか？
	SELECTCASE SWIM(CSTR:今年の泳装, "種類")
	CASE "比基尼", "連体泳装", "競泳泳装"
		PRINTFORMW 「お待たせ～！」
		PRINTFORMW 「どう、似合ってる？」
	CASE "Micro比基尼"
		PRINTFORMW 「あ、おまたせ……着替えたよ」
		PRINTFORMW 「これ……大分恥ずかしいけど……」
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW 「%CNAME("二人称")%がいいならいいんだけど……」
		PRINTFORMW 「やっぱりやだよ……二人きりじゃないと恥ずかしすぎる……」
	ENDSELECT

;草丛口交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "到暗处去……", "请求偷偷手交"
SIF TALENT:恋慕
	CALL PRINT_STRW, @"「……シたくなっちゃった？_BH_」"
CASE "接吻"
SIF TALENT:恋慕
	CALL PRINT_STRW, @"「やん_BH_……もー……_HH__HH_」"
CASE "摸屁股"
SIF TALENT:恋慕
	CALL PRINT_STRW, @"「やん_BH_ ……シたくなっちゃった？ _BH_」"
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问"

;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
CASE "帰り際"
	IF TALENT:恋慕
			PRINTFORMW 「今天、很開心呢。」
			PRINTFORMW 「……%CNAME("二人称", "かな")%。觉得今天、怎么样呢？」
	ELSE
			PRINTFORMW 「今天、很開心呢。」
			PRINTFORMW 「……%CNAME("二人称", "かな")%、希望能再邀请我呢。」
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT
;-------:
;Sandbox:
;-------:
;いわゆる砂場的なあれこれをするやつですよ、ってところです
;本体パッチ取り込み前のデータとかが入ってたりします。要注意。

@SELFY_MAIL_K42, ARGS
#DIMS MAIL_BODY
;数時間後に修正入ったので巻髪は悲しんだ。
MAIL_BODY =
;メッセージ本文
SELECTCASE ARGS
CASE "ヌード自撮り"
	IF RAND:3 == 0 && TALENT:恋慕
			MAIL_BODY =  %CALLNAME:MASTER%是唯一可以这样做的人哦
		ELSEIF RAND:2 == 0
			MAIL_BODY =  虽然很害羞、但是请看♪
		ELSE
			MAIL_BODY =  如果可以的话、那个……可以用作夜里的配菜哦
	ENDIF
CASE "阴部自撮り", "阴茎自撮り"
	IF RAND:4 == 0 && TALENT:恋慕
		MAIL_BODY =  如果是其他人的话、会生气的哦♪
			ELSEIF RAND:3 == 0 && TALENT:恋慕
		MAIL_BODY = 能这样做的、只有%CNAME("二人称", "かな")%一个人哦
			ELSEIF RAND:2 == 0
		MAIL_BODY = 虽然很害羞、那个、也是……可以的、的说……♪
			ELSE
		MAIL_BODY = 这样的、喜欢吗……呐
	ENDIF
CASE "今年の泳装自撮り"
	IF RAND:3 == 0 && TALENT:恋慕
			MAIL_BODY = 泳装、如果能拍的很可爱就好了♪
		ELSEIF RAND:2
			MAIL_BODY = 是今年的新泳装哦～
		ELSE
			MAIL_BODY = 今年穿着这个很開心
	ENDIF
CASE "学校指定の泳装自撮り"
	IF RAND:3 == 0 && TALENT:恋慕
			MAIL_BODY =  是死库水哦、偶尔看看学校的泳衣也不错吧♪
		ELSEIF RAND:2 == 0
			MAIL_BODY = 拍了校园泳衣哦～
		ELSE
			MAIL_BODY = 这样拍的话、又不一样了呢！
	ENDIF
CASE "体操服自撮り"
	IF RAND:3 == 0 && TALENT:恋慕
			MAIL_BODY = 体操服、合身吗？
		ELSEIF RAND:2 == 0
			MAIL_BODY = 试着拍了一下学校的体操服～
		ELSE
			MAIL_BODY = 这样拍的话、又不一样了呢！
	ENDIF
CASE "胸罩自撮り" ,"胖次自撮り"
	IF RAND:3 == 0 && TALENT:恋慕
			MAIL_BODY =  内衣、穿着合适吗♪
		ELSEIF RAND:2
			MAIL_BODY = 虽然很羞耻、穿着内衣的样子…那个、给你看♪
		ELSE
			MAIL_BODY = 这样的、喜欢吗……呐
	ENDIF
CASEELSE
		IF RAND:3 == 0 && TALENT:恋慕
			MAIL_BODY = 如果你喜欢的话就好了♪
		ELSEIF RAND:2
			MAIL_BODY = 试着自拍了一下、之后要告诉我感想哦！
		ELSE
			MAIL_BODY = 怎么样？这个、看起来合适吗！
	ENDIF
ENDSELECT

;地の文
PRINTFORMW 照片边上还加上「%MAIL_BODY%」这样的信息…

path: ERB/EVENT_K/42 みなみ/EVENT_K42_DAILY.ERB


code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;-------------------------------------------------
;お願い・取引での選択肢を追加。番号は60～89を使ってよい
;@WISH_K42_ADDSELECT
;STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("追加選択肢その１", 16)% … %CALLNAME:TARGET%にＡＡＡしてもらいます/
;STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("追加選択肢之２", 16)% … %CALLNAME:TARGET%にＢＢＢしてもらいます/

;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K42_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
	;フラグを弄る場合はそれもここで行う
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
	;フラグを弄る場合はそれもここで行う
ENDSELECT

;-------------------------------------------------
;Talk指令の選択肢を追加
;@DAILY1_K42_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;Talk指令で増やした選択肢の地の文と台詞
@KOJO_DAILY1_K42_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应

CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
ENDSELECT

;-------------------------------------------------
;互动指令の選択肢を追加
;@DAILY2_K42_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K42_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
ENDSELECT

;-------------------------------------------------
;约会行き先の選択肢を追加。
;@DATE_K42_ADDSELECT
;ここで増やした選択肢を選ぶと、それがSAVESTR:约会 に代入される仕組みです
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
@KOJO_DATE_K42_ADDSELECT
SELECTCASE SAVESTR:约会
CASE "追加選択肢その１"
	PRINTFORMW 「台詞」
	;地の文
	PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応存疑
	;地の文を用意していない場合には汎用のものを使う
	;CALL DAILY_MESSAGE, "约会本番"
	PRINTL
	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
	FLAG:情緒 += 30
	;それぞれ可能なもののコメントアウトを取下
	;TFLAG:约会中H可能 = 1
	;TFLAG:约会中牵手可能 = 1
	;TFLAG:偷瞄内衣可能 = 1
	;TFLAG:泳装约会 = 1
CASE "追加選択肢之２"
	PRINTFORMW 「台詞」
	;地の文
	PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応存疑
	;地の文を用意していない場合には汎用のものを使う
	;CALL DAILY_MESSAGE, "约会本番"
	PRINTL
	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
	FLAG:情緒 += 30
	;それぞれ可能なもののコメントアウトを取下
	;TFLAG:约会中H可能 = 1
	;TFLAG:约会中牵手可能 = 1
	;TFLAG:偷瞄内衣可能 = 1
	;TFLAG:泳装约会 = 1
ENDSELECT

path: ERB/EVENT_K/42 みなみ/EVENT_K42_SELECT.ERB


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER
			PRINTFORMW 「えっ……魂の取引？！」
			CALL PRINT_STRW, "「まってっ_HH_ おちんちん、入ってるん、だよぉ_HH_」"
		ELSE
			PRINTFORMW 「んー？なんか準備するの忘れちゃった？」
		ENDIF
	ELSEIF TALENT:恋慕 && TEXTS("日期対応イベント") == "情人節" && CDAYEV("情人節") == 0
		IF TALENT:相思相愛
			PRINTFORMW 「あっ、ちょっと待ってね」
			PRINTFORMW 「渡したいものがあるの！」
			PRINTFORML
			PRINTFORMW 「是、これ！……情人節でしょ？だから、腕によりを掛けて作ったの！」
			PRINTFORMW 「%CNAME("二人称")%のお口に合うと良いな」
		ELSE
			PRINTFORMW 「私にお願い？」
			PRINTFORMW 「それは構わないけど、今日は情人節だよ。」
			PRINTFORMW 「%CNAME("二人称")%、誰かから巧克力は貰えた？」
			CALL PRINT_SELECT, "もらえた/もらえてない"
			IF RESULT == 0
				PRINTFORMW 「モテモテだね～。じゃあ%CNAME("一人称")%からの義理巧克力、もういらない？」
				PRINTFORMW 「……え？ 寂しい？」
				PRINTFORMW 「そんなことないよ、冗談だよ～」
				CALL PRINT_STRW, @"「%CNAME("二人称")%への気持ち、いっぱい込めて作ったから酱と食べてね_HH_」"
			ELSE
				SIF FLAG:年 == 1
					PRINTFORMW 「毎年恒例だったもんね」
				PRINT 「でも……今は１人の
				IF TALENT:相思相愛
					PRINT 恋人
				ELSE
					PRINT 女の子
				ENDIF
				CALL PRINT_STRW, @"からとして食べて欲しいの_HH_」"
				CALL PRINT_STRW, @"「美味しくなぁれ、萌え萌えキュン_HH_ って魔法掛けたから絶対美味しくなってるよ_HH_」"
			ENDIF
		ENDIF
		PRINTL
		CALL PRINT_STRW, @"黄色_%CALLNAME:TARGET%から本命巧克力を貰いました！"
		CALL SET_CDAYEV, "情人節"
	ELSEIF TALENT:恋慕 && TEXTS("日期対応イベント") == "白色情人節" && CDAYEV("情人節") && CDAYEV("白色情人節")== 0
		PRINTFORMW 「%CNAME("一人称")%に情人節のお返し？」
		;PRINTFORMW 「今までは義理だし返す義理はない！って言って返してくれてなかったよね～」
		PRINTFORMW 「有がとう！後で美味しく食べるね～♪」
		PRINTFORML
		CALL PRINT_STRW, @"黄色_%CALLNAME:TARGET%に情人節のお返しをしました。"
		CALL SET_CDAYEV, "白色情人節"
	ELSE
		PRINTFORMW 「虽然不是什么都能做、但只要是%CNAME("一人称")%能做到的事都可以哦！」
	ENDIF

CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛 && FLAG:二人きり
		PRINTFORMW %CALLNAME:MASTER%表达自己的心意之时、%CALLNAME:TARGET%露出了羞涩的笑容、有些不好意思的拒绝了。
		PRINTFORML
		PRINTFORMW 「%CNAME("一人称")%也……真的吗、%CNAME("二人称")%的话、也喜欢着你哦。」
		PRINTFORMW 「但是%CNAME("一人称")%们是%NAMES("兄弟")%所以、本来应该是不可以的……明明我知道的……」
		PRINTFORMW 「对不起呢……%CNAME("一人称")%呢、真的很高兴、但是…… 我不知道如何对待自己的这份感情……」
		PRINTFORMW 真的受到告白时、不知道该怎么办的%CALLNAME:TARGET%脸颊上撒满了泪水……
		PRINTFORMW
		PRINTFORMW 「……%CNAME("二人称", "かな")%、我爱你……」
		PRINTFORMW 这样说着、%CALLNAME:TARGET%用嘴堵住了你的双唇、久久没有分開。
	ELSEIF FLAG:二人きり == 0
		PRINTFORMW 「ねーぇ%CNAME("二人称")%」
		PRINTFORMW 「気持ちはすーーーっごくわかるよ？分かるんだよ？」
		PRINTFORML
		PRINTFORMW 「……ココじゃないところでして？」
		TALENT:相思相愛 = 0
		CFLAG:心情差 = 1
		CALL SET_DEVENT, "告白保留"
	;断る
	ELSE
		PRINTFORMW 「欸？ %CNAME("一人称")%们、是%NAMES("兄弟")%的呦？」
		PRINTFORMW 「%CNAME("二人称")%的事……我不讨厌、我希望你能留在我身边」
		PRINTFORML 「我们还有很长的时间不是吗……」
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")

	ELSE

	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		;日期と時間参照随机
		IF COND("合意：胖次交易") && RANDC(4) == 0
			PRINTFORMW 「嗯、可以哦～」
			TFLAG:取引価格 = 1000
		ELSE
			PRINTFORMW 「欸……」
		ENDIF
	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		TFLAG:値上げ交渉 = 500
	ENDIF
CASE "胖次"
	;値上げ交渉した
	IF TFLAG:値上げ交渉
		PRINTFORMW 「欸、也稍微等一下吧？」
	;相場より高い額を要求されるままに払った
	ELSEIF TFLAG:取引価格 > 500
		PRINTFORMW 「太棒了♪」
	;値切って相場と変わらず$500払う。ここでTFLAG:取引承諾 = 0とすることで拒否するのもよいでしょう
	ELSEIF TFLAG:値切った
		PRINTFORMW 「真没办法呢……」
	ELSE
		PRINTFORMW
	ENDIF
	;胖次を脱いで渡してくる汎用地の文
	CALL DAILY_MESSAGE, "脱下胖次交了出去"

CASE "胖次拒否"
	;取引を拒否した際
	IF TFLAG:取引拒否

	ELSE

	ENDIF

;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
;分岐メモ
;恋慕・屈服・露出が一定以上
;屈服が一定以上
;拒否
CASE "全裸交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		PRINTFORMW 「……衣服、要脱掉吗……？」
		PRINTFORMW 「……%CNAME("二人称")%真的很喜欢这种东西呢」
	;断られる
	ELSE
		TFLAG:値上げ交渉 = 3000
		PRINTFORMW 「……不要」
		PRINTFORMW 「如果你想要的话、给我买一条新的」
	ENDIF
CASE "全裸"
	;値上げ交渉した("全裸交易"で設定した場合のみ)
	IF TFLAG:値上げ交渉
		PRINTFORMW 「しょうがないなあ……」
	;取引初成功
	ELSEIF COND("合意：全裸化") == 0
		PRINTFORMW 「……衣服、要脱掉吗……？」
		PRINTFORMW 「如果%CNAME("二人称")%想要那样做的话……」
		PRINTFORMW %CALLNAME:TARGET%踌躇不定的脱掉了衣服。
	ELSE

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

	;二人きりなら脱いでくれるけど状況が悪い
	ELSEIF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
		PRINTFORMW 「至少要在没有人的地方、呐？」
	ELSE

	ENDIF

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

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

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

	;拝み倒して失敗した場合
	ELSEIF TFLAG:取引価格 == 0
		;轻轻地地の文が表示されます。口上有无どちらでも大丈夫そうです。
	;其他、你が薬代を不支付場合
	ELSE
		;恋慕状態で、それなりに妊娠の恐惧がある場合
		IF ( COND("受精確認") || COND("胎内の精液量") ) && TALENT:恋慕
			;お金がないか、不支付を選んだ場合です。
			;それなら避妊できなくて妊娠しちゃっても仕方ないね…(爱心)って感じのやつです。
			;地の文が表示されるので何も書かないほうが良いかもしれません。
		;不支付、を選んだ場合
		ELSEIF MONEY >= TFLAG:取引価格
			;口上无でも自然な感じです
		;お金が足りなかった場合
		ELSE
			;不支付を選んだ場合も、お金が足りないときはここへ来ます。
		ENDIF
	ENDIF
CASE "同居拒否"
	PRINTFORMW 「……欸、太过分了……」
	PRINTFORMW 「%CNAME("一人称")%们明明是%NAMES("兄弟")%的、为什么……？」
CASE "同居希望"
	PRINTFORMW 「……BAKA」
	PRINTFORMW 「……笨蛋」
	PRINTFORMW %CALLNAME:TARGET%用十分寂寞的眼神诉说着内心的情感。
CASE "同居頻度的相談"
	PRINTFORMW 「啊喏浽」
	PRINTFORMW 「%CNAME("二人称")%也好、%CNAME("一人称")%的家只有那里……」
CASE "便当拒否"
	PRINTFORMW 「比起%CNAME("一人称")%、弗理希艾尔小姐做的便当应该更好吃吧……」
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORMW 「%CNAME("一人称")%呢、为了做好便当付出了很多努力呢」
		PRINTFORMW 「所以说我还想要再努力一点」
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")
			PRINTFORMW 「比起%CNAME("一人称")%、弗理希艾尔小姐做的便当应该更好吃吧……」
			PRINTFORMW 「即使这样也想要吃的话、没办法呢」
		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 "给我看尾巴拒否"

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

CASE "髪型変更の感想"
	;どの髪型变成了かで分岐可能
	SELECTCASE CONDS("髪型の種類")
	;その角色の普段の髪型(光滑柔顺や乱髪にはできないので、角色次第ではこの分岐には来ません)
	CASE CONDS("普段の髪型")
		PRINTFORMW
	CASE "齐刘海"
		PRINTFORMW
	CASE "直髪"
		PRINTFORMW
	CASE "卷髪"
		PRINTFORMW
	CASE "外八"
		PRINTFORMW
	CASE "双马尾"
		PRINTFORMW
	CASE "马尾辫"
		PRINTFORMW
	CASE "三股辫"
		PRINTFORMW
	CASE "编起来"
		PRINTFORMW
	CASE "団子頭"
		PRINTFORMW
	;其他
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "改变髪型拒否"

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

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

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT

CASE "巨根化して拒否"

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

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT

CASE "短小化して拒否"

;以下は悪魔専用
CASE "魂が足りない"

CASE "想要钱"

CASE "甜言蜜语"

CASE "謎之魅力"

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

		ELSE

		ENDIF
	ELSE

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

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

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

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT
ENDSELECT

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

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	PRINTFORMW 「うーん、それはちょっとダメかな。」
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	PRINTFORMW 「いいよー！」
ENDIF

;-------------------------------------------------
;购物での台詞
;-------------------------------------------------
@KOJO_SHOP_K42, 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/42 みなみ/EVENT_K42_SHOP.ERB