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

SELECTCASE ARGS
;角色クター独自の内衣の組み合わせを設定できます。設定した場合、一定の確率で着用します
CASE "内衣"
	CALL SET_PANTIES, "丁字褲/辣妹"
	CSTR:胸罩 =

;衣装に関わらず常に付けている飾品です。設定しなくてもかまいません
CASE "飾品"
	CALL SET_OTHER, "眼鏡"
;学園での便装です。設定必須です。
;水手服, 露脐装超短裙水手服, 西装外衣, 露脐装超短裙西装外衣, 美式校服など
CASE "制服"
	CALL SET_COSTUME, "露脐装超短裙水手服"
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
;体操服布鲁马, 体操服五分褲, 体操服紧身短褲, 体操服运动衫など
CASE "体操服"
	CALL SET_COSTUME, "体操服布鲁马"
;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
;死库水, 競泳泳装, 白比基尼, 黒比基尼など
CASE "泳装"
	IF BASE:魂 < 30
		CALL SET_COSTUME, "Micro比基尼"
	ELSE
		CALL SET_COSTUME, "白比基尼"
	ENDIF
;自宅など学園外で着ます。設定必須です
CASE "便装"
	IF COND("夏")
		CALL SET_SHIRT, "吊帯背心"
		CALL SET_OUTER, "五分褲"
	ELSE
		CALL SET_SHIRT, "Ｔ恤"
		CALL SET_OUTER, "运动衫休闲褲"
	ENDIF
	CALL SET_BRA, ""
;自分的房間(not主人公的房間)で着ます
CASE "居家服"
	IF (COND("夏") || BASE:魂 < 30) && ABL:露出癖 >= 5 && RANDIF(2, BASE:魂 < 30)
		CALL SETFLAG, "变成裸体", TARGET
		IF BASE:魂 < 30 && RAND:2
			CALL SET_PANTIES, "叶子胖次", TARGET
		ELSE
			CALL SET_PANTIES, TEXTR(CSTR:TARGET:喜欢的胖次), TARGET
		ENDIF
	ELSEIF BASE:魂 < 30
		IF RAND:2
			CALL SET_COSTUME, "超短水手服"
		ELSE
			CALL SETFLAG, "变成裸体", TARGET
			CALL SET_PANTIES, "蕾丝的胖次", TARGET
		ENDIF
	ELSE
		CALL CLOTHES_K28, "便装"
	ENDIF
;约会以外で家から外出際に着ます。情人旅館呼出とかね
CASE "外出装"
	CALL SET_SHIRT, "連帽風衣"
	CALL SET_OUTER, "运动衫休闲褲"
	CALL SET_BRA, ""
	CALL SET_SOCKS, "襪子"
	CALL SET_SHOES, "运动鞋"
;もちろん约会の際に着ます
CASE "约会衣装"
	IF COND("夏")
		CALL SET_SHIRT, "白色連衣裙"
		CALL SET_SHOES, "无后跟鞋"
		CALL SET_OTHER, "草帽"
	ELSEIF COND("冬")
		CALL SET_SHIRT, "针织毛衣"
		CALL SET_SHOES, "短靴"
		CALL SET_OUTER, "牛仔褲"
	ELSE
		CALL SET_SHIRT, "紧身高袍"
		CALL SET_SHOES, "无后跟鞋"
		CALL SET_SKIRT, "裙"
	ENDIF
ENDSELECT

;-------------------------------------------------
;時間帯や場所に応じた髪型、表情の変化を記述する。設定しなくてもかまいません
;-------------------------------------------------
@MAIDFACE_K28
IF PLACE("自宅")

ELSE

ENDIF

license: unknown


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝拘束"

;朝のＨイベントでのセリフ。下の"打招呼"だけ書いてあれば十分だと思います
;ここでCALL SETFLAG, "地の文スキップ"すると地の文、経験表示、本来なら続いて表示される下のCASE "打招呼"の台詞、を全てすっ飛ばせます(上級者向け)
;詳しくは@EVENT_NEWDAYの注釈などを見てください
CASE "朝袭"
	SELECTCASE CSTR:朝袭
	CASE "朝逆正常位"
		PRINTFORMW
	CASE "朝舐陰"
		PRINTFORMW
	CASE "朝足交"
		PRINTFORMW
	CASE "朝の新妻PLAY"
		PRINTFORMW
	CASE "朝乳交"
		PRINTFORMW
	CASE "朝騎乗位"
		PRINTFORMW
	CASE "朝Ａ騎乗位"
		PRINTFORMW
	CASE "朝接吻"
		PRINTFORMW
	CASE "朝添い寝"
		PRINTFORMW
	CASE "朝口交", "朝六九式"
		PRINTFORMW
	ENDSELECT
	;今回中出しされた回数を加算
	SIF COND("妊娠中") == 0
		CFLAG:中出漏出 += EX:Ｖ中出し
;朝のＨイベント終了後にする打招呼
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交"
	IF EXP_GAIN("射精経験", PLAYER)
		PRINTFORMW 「困倦ていても射精は射精です」
		PRINTFORMW 「権利を享受したら義務を果たすのが筋ですよ」
	ELSE
		PRINTFORMW 「む、気づかれましたか…」
		PRINTFORMW 「もう少し寝たふりしててもかまいませんよ？」
	ENDIF
	CASE "朝騎乗位"
	IF EXP_GAIN("射精経験", PLAYER)
		PRINTFORMW 「言っときますけど、ボランティアでやってるわけじゃないですよ」
		PRINTFORMW 「魂は回収できるときに回収しておかないといけませんからね」
	ELSE
		PRINTFORMW 「まったく、しぶといですね」
		PRINTFORMW 「魂をもらうのも一苦労ですよ」
	ENDIF
	ENDSELECT

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

	IF COND("体育")
		PRINTFORMW
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「早上好」
			PRINTFORMW 「早く起きないと置いていきますよ」
		ELSEIF RAND:2
			PRINTFORMW 「遅刻しても知りませんよ、容赦なく見捨てますからね」
		ELSE
			PRINTFORMW 「……あと10秒以内に応答がなければ、実力行使に出ます」
		ENDIF
	ENDIF
CASE "一番乗り"
	IF RAND:2
		PRINTFORMW 「……%CNAME("二人称")%、先に座ってください」
		PRINTFORMW 「どのあたりが適正な距離かは%CNAME("一人称")%が決めます」
	ELSE
		PRINTFORMW 「うーわ……どうしますかねこれ…」
		PRINTFORMW 「ああ、独り言です、今のは気にしないでください」
	ENDIF
CASE "ただいま"
	IF RAND:2
		PRINTFORMW 「…ただいま戻りました」
		PRINTFORMW 「はぁ、一日通して人类を装うのは疲れますね…」
	ELSE
		PRINTFORMW 「戻りました」
		PRINTFORMW %CALLNAME:TARGET%を見ると、服の至るところに木の葉や草が付着している…
		PRINTFORMW 一体どこを通って来たのだろう…？
	ENDIF
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		IF RAND:2
			PRINTFORMW 「……おかえりなさい」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%の方を見ようともしない…
		ELSE
			PRINTFORMW 「おかえりなさい」
			PRINTFORMW 「今後は日が落ちる前に帰宅することをお勧めしますよ」
		ENDIF
	ELSE
		IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*2/3 && RAND:2
			PRINTFORMW 「皆桑が待ってましたよ」
			PRINTFORMW 「…%CNAME("一人称")%はそうでも有ません」
		ELSE
			PRINTFORMW 「随分のんびりしてましたね」
			PRINTFORMW 「見習いたい姿勢です、皮肉じゃなく」
		ENDIF
	ENDIF

CASE "入室打招呼"
	IF CFLAG:呼び出された
		PRINTFORMW 「…来てあげましたよ」
		PRINTFORMW 「どうせ下らない用事なんでしょうけど」
	;你が現在的partnerにＨ的悪戯をしている最中に入室した
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
		PRINTFORMW 「……ふーん、是这様吗…そういうことですか…」
		PRINTFORMW 何かを納得されてしまった…
	ELSE
		PRINTFORMW 「…どうも」
		PRINTFORMW 「……%CNAME("一人称")%に対して用事がないなら帰りますからね」
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		IF RAND:2
			PRINTFORMW 「窮屈ですね、まったく…」
		ELSE
			PRINTFORMW 「圆圈で待合室ですね…」
		ENDIF
	ELSEIF CFLAG:呼び出された
		PRINTFORMW 「なんですか、何の用ですか」
	ELSE
		IF RAND:2
			PRINTFORMW 「お邪魔しますよ」
		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("教員", "入室打招呼中")
		PRINTFORMW 「お疲れ様です」
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「ああ、そういえば…いませんでしたね」
	ELSE
		PRINTFORMW 「来ましたか」
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		PRINTFORMW 「…%CNAME("一人称")%のことを、呼べば来るやつだと、そう思ってます？」
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		IF RAND:2
			PRINTFORMW 「……騒がしいわけです、まだやってたんですね」
		ELSE
			PRINTFORMW 「寝てなかったのか、ですか……？こっちのセリフです」
		ENDIF
	ELSE
		PRINTFORMW 「おっと、こちらにいましたか」
	ENDIF
CASE "抜け出された"
	IF RAND:2
		PRINTFORMW 「…やはりオスというのは複数のメスを欲しがるものなんですね」
	ELSE
		PRINTFORMW 「……」
		PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为不服そうに%CALLNAME:MASTER%の後姿を眺めている…
	ENDIF
CASE "便当"
	IF RAND:7 == 0
		PRINTFORMW 「フィードバックとしての味の感想を要求します」
		PRINTFORMW 「料理をするにも向上心を持って臨みたいんですよ」
		SIF TALENT:恋慕
			PRINTFORMW 「前輩に褒められて安易に自尊心を満たしたいというわけでは有ません。断じて違います。」
	ELSEIF RAND:6 == 0
		PRINTFORMW 「なんですか？『もっと肉要素が欲しかった』？」
		PRINTFORMW 「……完食してから文句を言われましても、ね？」
	ELSEIF RAND:5 == 0
		PRINTFORMW 「どうして食べないんですか、何も盛っちゃいませんよ」
		PRINTFORMW 「普段%CNAME("一人称")%をどんな目で見てるんですか。全く」
	ELSEIF RAND:4 == 0
		PRINTFORMW 「感謝して食べてくださいよ？」
		PRINTFORMW 「自然の恵みとあらゆる命に、あと特に作り手には絶対に」
	ELSEIF RAND:3 == 0
		PRINTFORMW 「命をいただくっていう意識は酱と持つべきです」
		PRINTFORMW 「い移開は%CNAME("二人称")%も土に還ってその連鎖に組み込まれるんですからね」
	ELSEIF RAND:2
		PRINTFORMW 「野菜が多すぎる…？気のせいです」
		PRINTFORMW 「文句言わず食べましょうよ、兒童っぽいにしても兒童じゃないんですから」
	ELSE
		PRINTFORMW 「あーあーあー、そんな一気に掻き込んで…」
		PRINTFORMW 「はぁ……きっちり味付け考えてるのがバカバカしくなります」
	ENDIF
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"

ENDSELECT

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

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「あー…一応、競争相手もいるんですね」
	PRINTFORM %CALLNAME:TARGET%将
	IF CHARA_NUM("室内の邪魔者") == 1
		LOCAL = FIND_COND("現在存在")
		PRINTFORML 品定めをするように%CALLNAME:LOCAL%をじろじろと見ている
	ELSE
		PRINTFORML 部員の品定めをするように室内を見渡している
	ENDIF
CASE "浑身是汗"
	IF RAND:2
		PRINTFORML 「まったく人类は……無闇に木を切るからこんな暑苦しい気候になるんですよ」
	ELSE
		PRINTFORML 「はぁ…こっちだと迂闊に服を脱掉と面倒なことになるんですよね…」
		PRINTFORML 「川で水浴びしてた頃が懐かしいです…」
	ENDIF
CASE "刚睡醒"
	IF RAND:2
		PRINTFORML 「おちおち假寐もできませんね…まったく」
	ELSE
		PRINTFORML 「%CNAME("二人称")%、妙なことしてないですよね？」
		PRINTFORML 「……日頃の行いが良ければこんなこと聞かなくてもいいんですけど」
	ENDIF
CASE "Cosplay中"
	PRINTFORML
CASE "点心の感想"
	;今日の点心を用意したのは自分
	IF COND("点心当番")
		IF TEXTS("点心") == "甘栗"
			PRINTFORML 「私の知っている栗とは違う味ですね」
			PRINTFORML 「『甘栗』…そういう名前の品種なんでしょうか？」
		ELSE
			PRINTFORML 「この果物も農薬と化学肥料の味しかしませんね…」
			PRINTFORML 「まあ、加工食品よりはマシですけれど」
		ENDIF
	;今日の点心は誰かの亲手自制
	ELSEIF COND("亲手自制点心")
		;今日の点心当番の人の亲手自制を初めて食べた
		IF DEVENT(@"%TEXTS("点心当番")%の亲手自制") == 0
			;点心当番が[料理擅長]
			IF COND("点心の作り手が料理擅長")
				PRINTFORML
			ELSE
				PRINTFORML
			ENDIF
		ELSE
			PRINTFORML
		ENDIF
	;点心が亲手自制でない
	ELSE
		PRINTFORML
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K28
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML 「%CNAME("一人称")%、%CNAME("二人称")%のそういう所…」
	PRINTFORML 「………………」
	PRINTFORML 「…嫌いじゃないですよ」
CASE "约会的约定"
	IF RAND:2
		PRINTFORML 「随分と浮かれていますね%CNAME("二人称")%…」
		SIF TALENT:相思相愛 && RAND:2
			PRINTFORML 「……まあ、気持ちはわかりますよ」
	ELSE
		PRINTFORML 「さて、少しばかり計画を練る必要が有ますね…」
		PRINTFORML 「…ああ、こちらの話です、お気になさらないよう」
	ENDIF
;これは悪魔や天使や驱魔人のみ
CASE "契約成立"
	PRINTFORML
;你にお願いされて、自分の力で巨根になってあげた(悪魔と天使のみ)
CASE "巨根化契約成立"
	PRINTFORML
CASE "短小化契約成立"
	PRINTFORML
CASE "摆脱"
	PRINTFORML
;你と一緒に、主人公的房間に移動した
CASE "主人公的房間に連れ込まれた"
	IF TALENT:恋慕 && RAND:2
		PRINTFORML 「…わざわざご招待いただき有がとうございます」
		PRINTFORML 「それで？今日はどんなおもて无を用意してるんですか？」
	ELSE
		SIF TALENT:恋慕
			PRINTFORML 「那、那个……」
		PRINTFORML 「…もう少し片付けたらどうですか？」
	ENDIF
;你と一緒に、partner的房間に移動した
CASE "自室に招待"
	PRINTFORML 「あれこれするには邪魔の入らない場所を選んだ、と」
	PRINTFORML 「…だったら私は邪魔者を連れてくるべきでしたかね」
;partnerが既に居る部屋に、你が移動した
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML
	ELSEIF BASE:魂 < 30 && CEVENT("淫紋刻印待ち：西露芙") == 0
		PRINTFORML 「この恰好ですか？」
		PRINTFORML 「魂を確保するため、ですね」
		PRINTFORML 「…手さえ出してもらえれば、こっちのものです」
	ELSEIF COND("夏") && CHECK_CLO("没穿外衣")
		IF RAND:2
			PRINTFORML 「ああ、%CNAME("二人称")%」
			PRINTFORML 「何ですかその目は…暑ければ服を脱掉、当然でしょう？」
			PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为%PANTIES(TARGET)%のみを身に着けた冰雹もない姿でくつろいでいる…
		ELSE
			PRINTFORML 「何し来了んですか%CNAME("二人称")%、この暑いのに」
			PRINTFORML 「…もしかして%CNAME("一人称")%の裸、見来了んですか？」
			PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为誇らしげに体をこちらに向けた…
		ENDIF
	ELSE
		PRINTFORML 「…何し来了んですか？」
		PRINTFORML 「居座られると落ち着かないんですが」
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML
CASE "露脐装超短裙胖次チラ"
	IF RAND:2
		PRINTFORML 「…裙を短くしてるのは、あくまでファッションです」
		PRINTFORML 「%CNAME("二人称")%に内衣を見せるため\@ TALENT:恋慕 ? だけ # \@じゃないんですよ？」
	ELSE
		PRINTFORML 「…ちょっと？どこを見てるんですか？」
		PRINTFORML 「質問を変えましょう、どうして%CNAME("二人称")%是つもそうなんですか？」
	ENDIF
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	PRINTFORML
CASE "检查内褲"
	IF COND("合意：检查内褲")
		IF RAND:2
			PRINTFORML 「…幸せそうですね、まったく」
		ELSE
			PRINTFORML 「これが%CNAME("二人称")%にとっての喜びなんですね」
		ENDIF
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		PRINTFORML
	ENDIF
CASE "拜托処理性欲"
	IF RAND:2
		PRINTFORML 「満足しましたか？もししてたら惊讶ですけど」
	ELSE
		PRINTFORML 「……休憩が必要です」
		PRINTFORML 「しばらく悄悄的しておいてください…」
	ENDIF
CASE "进行性処理"
	PRINTFORML
CASE "帮忙消除性欲"
	PRINTFORML
CASE "清洁口交"
	PRINTFORML
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

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

		CASEELSE

		ENDSELECT
	;ENDIF
CASE "隐秘摄影失敗"
	PRINTFORML 「…%TEXTR("…/何の真似ですか")%」
	PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为訝し気にこちらを睨んでいる…
CASE "变成裸体"
	;他に人がいる
	;IF CHARA_NUM("室内の邪魔者")
	;	PRINTFORML
	;まさかの野外
	;ELSEIF PLACE("野外")
	;	PRINTFORML
	;不在個室
	;ELSEIF PLACE("個室") == 0
	;	PRINTFORML
	;個室で二人きり
	;ELSE
		IF RAND:3 == 0
			PRINTFORML 「たまらない、って顔ですね」
			IF BASE:魂 < 30 && CEVENT("淫紋刻印待ち：西露芙") == 0
				PRINTFORML 「涎垂らすまで誘惑してあげますからね…」
			ELSE
				PRINTFORML 「大変愚直で大変結構です」
			ENDIF
		ELSEIF RAND:2
			PRINTFORML 「……言う街道にしましたよ」
			PRINTFORML 「ところで、%CNAME("一人称")%の体の何処が一番見たかったんですか？」
			PRINTFORML 「後学のために聞いておきたいんですよ……ここですか？それともここですか？」
		ELSE
			IF CEVENT("穿環経験：西露芙")
				IF RAND:2
					PRINTFORML 「自分の手で穴を開けた%CNAME("一人称")%の体を見たい、と」
					IF MARK:屈服刻印 >= 3
						PRINTFORML 「…大変いいご趣味をお持ちですね」
					ELSE
						PRINTFORML 「……率直に言って悪趣味ですね」
					ENDIF
				ELSE
					PRINTFORML 「はぁ……%CNAME("二人称")%のわがままに付き合いすぎましたね」
					PRINTFORML 「こんな姿、同族には見せられません」
					PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为穿環\@ COND("穿環経験") ? を通さ # 穴を開けら \@れた自己的体を眺めて叹气をついた…
				ENDIF
			ELSE
				PRINTFORML 「これが私の持って生まれた姿ですから」
				PRINTFORML 「見られたところで何も恥じることはないですね」
			ENDIF
		ENDIF
	;ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		IF RAND:2
			PRINTFORML 「電話一本で呼びつけられるのって、どうも気に食わないんですよね」
		ELSE
			PRINTFORML 「本当なら%CNAME("一人称")%にもいろいろ都合があるんですよ」
			PRINTFORML 「断らないのは、魂を入手するのが最優先の都合だから、それだけです」
		ENDIF
	;做爱房
	ELSE
		IF RAND:2
			PRINTFORML 「ここが%CNAME("二人称")%の狩場ですか」
			PRINTFORML 「こ的房間に獲物をおびき寄せて…ガブリ、ってわけですね」
		ELSE
			PRINTFORML 「やっぱりここだと思いました」
			PRINTFORML 「ええ、わざわざ喰われに来てあげましたとも」
		ENDIF
	ENDIF
ENDSELECT

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

;標語の反応。書いたらコメントアウトを外してください
IF CFLAG:標語実践
	IF STRCOUNT(SAVESTR:標語, "注意口渴")
		;IF DEVENT("標語茶") == 0
		;	PRINTFORML
		;	CALL SET_DEVENT, "標語茶"
		;ENDIF
	ELSEIF STRCOUNT(SAVESTR:標語, "体操服")
		SELECTCASE SAVESTR:標語
		CASE "体操服はやっぱり布鲁马"
			;IF DEVENT("標語布鲁马") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語布鲁马"
			;ENDIF
		CASE "体操服はやっぱり运动短褲"

		CASE "体操服はやっぱり紧身短褲"

		CASE "体操服はやっぱり运动衫"
		;各分岐を細かく埋めずに、上の分岐を消して望みの体操服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ELSEIF STRCOUNT(SAVESTR:標語, "学生服")
		SELECTCASE SAVESTR:標語
		CASE "学生服は露脐装超短裙に限る"
			;IF DEVENT("標語露脐装超短裙") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語露脐装超短裙"
			;ENDIF
		CASE "学生服は超短迷你に限る"
		;各分岐を細かく埋めずに、上の分岐を消して望みの学生服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ENDIF
ENDIF

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

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
	PRINTFORML 「%CNAME("一人称")%は、人类の知識を持ち返回べく留学生としてここに送り込まれました」
	PRINTFORML 「精灵の持つ知識はあまりにも局地的、閉鎖的、前時代的…」
	PRINTFORML 「我々もようやくその自覚を得るに至ったんです」
	PRINTFORML 「%CNAME("一人称")%が体験したこと、学んだこと…それがきっと、種族全体の進歩につながります」
	CALL SET_DEVENT, "質問１"
ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
	PRINTFORML 「認識を阻害する術は私の部族に伝わっている秘術です」
	PRINTFORML 「人类のものでなくても、動物の魂さえあればいいんです…例えば犬や猫でも」
	PRINTFORML 「…ただ、この近辺では手ごろな尺寸の動物を見つけるのは面倒です」
	PRINTFORML 「仮に手に入ったとしても、死骸は勝手には消えてくれません…森の中と違って」
	CALL SET_DEVENT, "質問２"
ELSEIF BASE:魂 == 0 && DEVENT("質問２") && DEVENT("魂不足") == 0 && COND("在籍日数") >= 5 && CEVENT("淫紋刻印待ち：西露芙") == 0
	PRINTFORML 「%CNAME("二人称")%…全然契約が履行されていない気がするんですが」
	PRINTFORML 「確かに、你の魂じゃなくても術式を維持することはできますけど…」
	PRINTFORML 「お金がかかる方法とか、色んなところに頭下げないといけない方法ばっかりなんですよ…！」
	PRINTFORML 「お願いですよぉ…%CNAME("二人称")%…」
	PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为いつになく甘えたような声を出している…
	CALL SET_DEVENT, "魂不足"
ELSEIF CFLAG:中出漏出 >= 30 && COND("妊娠中") == 0 && DEVENT("中出漏出") == 0
	PRINTFORML 「ここ最近、随分と%CNAME("一人称")%に種をつけてくださっていますが…今のところ妊娠の兆候はないですね」
	IF TALENT:出産経験 >= 5
		PRINTFORML 「しかし…時間の問題でしょうね、今までも%CNAME("一人称")%は何度も妊娠していますから」
		IF RAND:3 == 0
			PRINTFORML 「%CNAME("二人称")%の人类出口した精力に、お腹の中を蹂躙されてばかりです」
		ELSEIF RAND:2
			PRINTFORML 「このペースで種付けされ続ければ…もう一人もすぐ、でしょうね…」
		ELSE
			PRINTFORML 「%CNAME("二人称")%が少し本気を出せば、私のお腹を大きくするのなんて簡単ですよね？」
		ENDIF
	ELSEIF TALENT:出産経験 >= 1
		PRINTFORML 「%CNAME("二人称")%の精力でも、%CNAME("一人称")%のような高等種族を何度も孕ませるのは難しい、ということでしょうか？」
		IF RAND:2
			PRINTFORML 「\@ TALENT:出産経験 == 1 ? 前回が # 今までが \@よっぽどの幸運に恵まれていたのですね…」
		ELSE
			PRINTFORML 「まあ、そう簡単に人类の兒童を妊娠していては、精灵としても誇りに多少傷がつきますからね…」
		ENDIF
	ELSEIF TALENT:出産経験 == 0
		PRINTFORML 「あんなに気持ちよさそうに、しかも沢山射精してるのに何がいけないんでしょうね？」
		IF RAND:3 == 0
			PRINTFORML 「気を落とさないでください、何度でも挑戦はお受けしますよ」
		ELSEIF RAND:2
			PRINTFORML 「結局のところ、%CNAME("二人称")%の精力も思ったより大したことないんですね」
		ELSE
			PRINTFORML 「…ま、でも良かったですね、%CNAME("二人称")%の精子なら、何回中出ししても責任は取らなくてもいいみたいですよ？」
		ENDIF
	ENDIF
	CALL SET_DEVENT, "中出漏出"
ENDIF

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

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
	IF RAND:3 == 0
		PRINTFORML 「あの方とのお話はもう終わりですか？」
	ELSEIF RAND:2
		PRINTFORML 「移り気なことですね、あまり感心はしません」
	ELSE
		PRINTFORML 「……」
		PRINTFORML 心无か%CALLNAME:TARGET%の視線が冷たい…
	ENDIF
ENDIF

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

;以下は随机台詞など

;時間帯と場所と関係で変化有些

IF CHECK_CLO("裸体") && DEVENT("裸体日常") == 0
	IF RAND:3 == 0
		PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为%TEXTR("一糸まとわぬ姿/全裸/裸体")%でうろついている…
		IF RAND:2
			IF TALENT:巨乳
				PRINTFORM 歩くたびに豊満的胸が起伏着的ようにぽよぽよと揺れている光景
			ELSEIF TALENT:貧乳
				PRINTFORM 强调平坦的胸部を隠すことなく堂々と歩いている姿
			ELSE
				PRINTFORM 歩くたびに外形良好的胸がふるふると微かに晃动的様子
			ENDIF
			PRINTFORML から目が離せない…
		ELSE
			PRINTFORML %TEXTR("目の前を街道過ぎ歩いていく/一歩を踏み出すごとに艶めかしく形を変える")%西露芙のお尻に目を奪われてしまう…
		ENDIF
	ELSEIF RAND:2
		PRINTFORML 「………」
		PRINTFORML 裸体の%CALLNAME:TARGET%正在认真地读着标题为机に向かって何か書き物をしている…
		PRINTFORML 背中に張り出た肩甲骨が美しい…
	ELSE
		PRINTFORML 「うぅぅ～～～ん…」
		PRINTFORML 裸体の%CALLNAME:TARGET%が伸びをすると、腕に引っ張られるように胸が持ち上がる…眼福だ。
	ENDIF
	CALL SET_DEVENT, "裸体日常"
ELSEIF FLAG:二人きり
	IF TALENT:恋慕
		PRINTFORML 「……%TEXTR(@"……/%CNAME("二人称")%にはペースを乱されっぱ无です/こういう時に限って話すことが思い当たりませんね/えっと…/…いつまでこうしてるんですか？")%」
		PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为%TEXTR("どこか所在無げにしている/かすかに目を泳がせている/俯いている")%…
	ELSE
		PRINTFORML 「……」
		PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为%TEXTR("あまりこちらに興味を示していないように見える/時折こちらの様子をうかがっている")%…
	ENDIF
ELSEIF STATE("酔酒")
	PRINTFORML
ELSEIF COND("夜")
	PRINTFORML 「……」
	PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为%TEXTR("何やら呪具のようなものをいじって/瞑想するかのように目を閉じて/ぼーっとスマホを眺めて")%いる…
ELSE
	PRINTFORML 「……」
	PRINTFORML %CALLNAME:TARGET%正在认真地读着标题为%TEXTR("スマホを覗き込みながら髪の毛を整えて/訝しげにこちらを見て/瞑想するかのように目を閉じて/よくわからない記号の書かれた本を読んで")%いる…
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K28
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	IF RAND:3 == 0
		PRINTFORML 「すー……すー……」
	ELSEIF RAND:2
		PRINTFORML 「………ｚｚｚ」
	ELSE
		PRINTFORML 「……ふがっ」
	ENDIF
ELSEIF RAND:2
	IF RAND:3 == 0
		PRINTFORML 「……んぅぅ…やだ、くさい……」
	ELSEIF RAND:2
		PRINTFORML 「……んっ、%CNAME("二人称")%、%CNAME("二人称")%っ…ｚｚｚ」
	ELSE
		PRINTFORML 「………返回…帰りたい…」
	ENDIF
ELSE
	IF RAND:3 == 0
		PRINTFORML 「……お願いします…今回だけ……どうか…ｚｚｚ…」
	ELSEIF RAND:2
		PRINTFORML 「ｚｚｚ……ミネルヴァのフクロウは、迫りくる黄昏に…」
	ELSE
		PRINTFORML 「うぅん……だめです、だめなものはだめです…」
	ENDIF
ENDIF

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

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨。TFLAG:地の文スキップ = 1とすると地の文をスキップ出来ます
CASE "Ｈ目的で呼び出された"
	;台詞を書いたらRETURN 0 を消してください
	;RETURN 0
	IF PLACE("情人旅館")
		IF TALENT:相思相愛 && RAND:2
			PRINTFORMW 『ごめんなさい、お断りします』
			PRINTFORMW 『……』
			PRINTFORMW 『ふふ…嘘です、冗談ですよ…今から行きますね』
		ELSE
			PRINTFORMW 『今からですか？』
			PRINTFORMW 『日が落ちてからの活動なんて危険すぎますよ…』
		ENDIF
	ELSE
		IF TALENT:相思相愛 && RAND:2
			PRINTFORMW 『是是、我明白了って』
			PRINTFORMW 『%CNAME("一人称")%が行くまで、いい子で待てますね？』
		ELSE
			PRINTFORMW 『随分と盛っていらっしゃるようですね』
			PRINTFORMW 『いえいえ、健康的で大変結構だと思いますよ？』
		ENDIF
	ENDIF
CASE "学園での日常"

CASE "お仕事"

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

	;地の文の前の台詞がある場合はここに書く
	SELECTCASE SAVESTR:現在位置
	CASE "阵雨"
		IF RAND:3 == 0 && TALENT:恋慕
			PRINTFORMW 「……傘」
			PRINTFORMW 「…半分だけなら、貸してあげます」
		ELSEIF RAND:2
			PRINTFORMW 「ああ、%CNAME("二人称")%」
			PRINTFORMW 「…忠告しておくと、雨に湿的るのは想像以上に体力を消耗しますよ」
		ELSE
			PRINTFORMW 「湿度と風向きを考慮した結果、この雨は予測できていました」
			PRINTFORMW 「……%CNAME("二人称")%、どうやら傘を持っていないようですね」
		ENDIF
	ENDSELECT

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

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		PRINTFORMW
	CASE "内衣選び", "泳装選び"
		PRINTFORMW
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏", "站着读书"
		PRINTFORMW
	CASE "買食物"
		IF RAND:2
			PRINTFORMW 「つくづく、この社会は食物に恵まれていますね…」
			PRINTFORMW 「%CNAME("二人称")%たちはもっと感謝してもいいと思います」
		ELSE
			PRINTFORMW 「余り栄養価の高すぎるものは体によく有ませんよ」
			PRINTFORMW 「帰ったら%CNAME("一人称")%が何か作ってあげますから、ね？」
		ENDIF
	CASE "物色游戏", "检查新刊"
		IF RAND:2
			PRINTFORMW 「……それって本当に必要なんですか？」
			PRINTFORMW 「ああいえ、あくまで私の感想なので…どうぞご自由に」
		ELSE
			PRINTFORMW 「思ったより硬派なのを買うんですね」
			PRINTFORMW 「%CNAME("二人称")%のことだからこう…いやらしいのにしか興味ないかと思ったんですが」
		ENDIF
	CASE "対戦游戏"
		IF RAND:2
			PRINTFORMW 「標的に照準を合わせて射撃する、%CNAME("一人称")%の得意分野では有ます」
			PRINTFORMW 「しかし何ですかこの、腐った醜悪な人类のような敵は…よくわからない舞台設定ですね」
		ELSE
			PRINTFORMW 「私の射撃の腕前もまだ鈍っていないようですね」
			PRINTFORMW 「このL字型の武器がどういうものなのかはよくわかりませんが」
		ENDIF
	CASE "繞道"
		IF SAVESTR:現在位置 == "公園"
			IF RAND:2
				PRINTFORMW 「少し風にあたってから帰りませんか？」
				PRINTFORMW 「室内にばかりでは気がふさぎますよ」
			ELSE
				PRINTFORMW 「こういう場所は落ち着きますね」
				PRINTFORMW 「もっと敷地が広ければ申し分ないのですが」
			ENDIF
		ELSE
			PRINTFORMW
		ENDIF
	CASE "直帰"
		PRINTFORMW
	CASE "圣诞节前夕"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

;归途イベントの後になんとなく情人旅館に行こっかとなった際のセリフです
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "放課後Ｈ的邀请"

;お浴室に一緒に入ろうと誘われた場合。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "一緒にお浴室"
	IF RAND:2
		PRINTFORMW 「……お湯につかるってなんか落ち着かないんですよね」
		PRINTFORMW 「おまけに、%CNAME("二人称")%がじろじろ見てくるわけですし、尚更です…」
		PRINTFORMW 文句を言いながらも%CALLNAME:TARGET%正在认真地读着标题为一緒にお浴室に入ってくれた…
	ELSE
		PRINTFORMW 你が湯船につかる隣で、%CALLNAME:TARGET%正在认真地读着标题为淋浴を浴びている
		PRINTFORMW \@ COND("晒痕") ? 日に焼けた # 白く美しい \@肌を淋浴の水滴が伝っていく…
		PRINTFORMW 形良く張り出した胸、悩ましくくびれた腰、陶器のように滑らかな太もも…
		PRINTFORMW 「……実況しないでもらえますか、%CNAME("二人称")%」
	ENDIF

;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "休憩"
	;台詞を書いたらRETURN 0を消してください
	;RETURN 0
	IF CFLAG:喧嘩中 && BASE:欲求不満 >= 50
		CALL BEDIN_ANGRY_K28
		TFLAG:床イン = 1
	ELSEIF PLACE("自宅")
		IF COND("夜")
			IF RAND:2
				PRINTFORMW 「睡眠不足は明日の活動に支障を来たしますからね」
				PRINTFORMW 「慢慢地休養を取ることをお勧めします」
			ELSE
				PRINTFORMW 「……自室ではなるべく静かにお願いしますね」
				PRINTFORMW 「%CNAME("一人称")%、あまり睡眠が深い方ではないので」
			ENDIF
		ELSE
			PRINTFORMW 「休養も時には必要ですね」
			PRINTFORMW 「ああ、窓を開けましょう、いい風が吹いています…」
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
			IF RAND:2
				PRINTFORMW 「是这様吗、では%CNAME("一人称")%は少し外に」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为早々に部室を後にしてしまった…
			ELSE
				PRINTFORMW 「無為に過ごすことも時には必要ですね」
				PRINTFORMW 「こうして目を閉じて、心を落ち着かせ、我々を縛り付ける価値観から解放される…」
				PRINTFORMW 「そんな自由な時間、今がそれです」
			ENDIF
	;場所移動後
	ELSE
		PRINTFORMW
	ENDIF
CASE "清洁口交：お誘い"

CASE "清洁口交：射精後"

CASE "清洁口交：断った"

;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		IF RAND:7 == 0 && TALENT:相思相愛
			PRINTFORMW 「まったくもう、こんなに硬くして…」
			PRINTFORMW 「だらしないおちんぽ、スケベなおちんぽ、どうしようもないおちんぽ…」
			PRINTFORMW 「私がこうやって愛して给しか有ませんね…」
		ELSEIF RAND:6 == 0 && TALENT:相思相愛
			PRINTFORMW 「…いつもみたいに愛の一つをささやく時間もないですね」
		ELSEIF RAND:5 == 0
			PRINTFORMW 「まったく、契約と是え後輩をぞんざいに扱うことに罪悪感はないんですか？」
		ELSEIF RAND:4 == 0
			PRINTFORMW 「食べたいから食べる、交尾したいからする…%CNAME("二人称")%の思考回路は動物に近しいものが有ますね」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「今天快楽のために体力を無駄使いするわけですか」
			PRINTFORMW 「……構いませんよ？%CNAME("二人称")%の自由ですから…」
		ELSEIF RAND:2
			PRINTFORMW 「射精する時は『有がとうございます』ですよ」
			PRINTFORMW 「それだけ守ってくれれば、すぐにスッキリさせてあげます…」
		ELSE
			PRINTFORMW 「%CNAME("一人称")%もいつも闲というわけではないんですが」
		ENDIF
	ENDIF
CASE "性処理：後"
	;口上を書いた場合はRETURN 0を消してください
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「動物にも、短時間で交尾を終わらせる種は多いですね」
			PRINTFORMW 「早く終わらせればそれだけ敵から逃げられる確率も上がります」
			PRINTFORMW 「…我々も退散するとしましょう」
		ELSEIF RAND:2
			PRINTFORMW 「こんなところで\@ NAMES("性処理") == "Ｖ性交" ? 種付け # 射精 \@して満足しましたか？気持ちよかったですか？」
			PRINTFORMW 「……%TEXTR("本当に変態ですね/よかったですね")%」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%、随分と嬉しそうですけど勘違いしないでくださいね」
			PRINTFORMW 「こんなことに付き合ってあげてるのは%TEXTR(@"魂を回収するためですからね/%CNAME("二人称")%がうるさいからです…")%」
		ENDIF
	ENDIF
	;今回中出しされた回数を加算
	SIF COND("妊娠中") == 0
		CFLAG:中出漏出 += EX:Ｖ中出し
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
	;性騷擾がしつこいと喧嘩になる
	IF STRCOUNTS(CSTR:DAILYCOM履歴, "检查内褲", "检查布鲁马", "股間観察", "撫摸股間", "接吻", "托一托胸部") >= 20
		IF BASE:魂 > 0 && CFLAG:喧嘩中 == 0
			PRINTFORMW 「……いい加減にしてください」
			PRINTFORMW %CALLNAME:TARGET%が我慢の限界に達したのか、心情が少し悪くなってしまったようだ…
			PRINTFORMW ※道歉、もしくは欲求不満状態で休憩することにより特殊事件が発生するかも…？
			CFLAG:心情差 = 1
			CFLAG:喧嘩中 = 1
			CFLAG:夸奖 = 0
		ENDIF
	ENDIF
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"

;この角色が点心当番で、その時間帯で部室に最初からいる時のセリフ
CASE "点心を用意した"
	;本日の点心はこの角色の亲手自制
	IF COND("亲手自制点心")

	ELSE

	ENDIF
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = 晚上好
	ELSEIF COND("昼")
		GREETING = 你好
	ELSE
		GREETING = 早上好
	ENDIF
	;你に先に打招呼をされた
	IF CFLAG:打招呼した == 0
		PRINTFORMW 「是是、%GREETING%…」
		PRINTFORMW 「…%TEXTR("それで、何か用ですか/部活以外では馴れ馴れしくしないでくださいよ")%？」
	ELSE
		PRINTFORMW 「%GREETING%」
		PRINTFORMW 「…%TEXTR(@"%CNAME("一人称")%だって打招呼くらいはします/返事が聞こえませんよ、%CNAME("二人称")%？")%」
	ENDIF
CASE "叫醒"
	PRINTFORMW 「！！！！！！」
	PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为跳ね起きて臨戦態勢を取った…
	IF PLACE("partner的房間")
		PRINTFORMW 「……なんなんですか」
		PRINTFORMW 「…何し来了んですか、というかなんでここに居るんですか」
	ELSEIF RAND:2
		PRINTFORMW 「……%CNAME("二人称")%？」
		PRINTFORMW 「はぁ……もう少し穏やかに起こしていただけないものですかね…」
	ELSE
		PRINTFORMW 「……」
		PRINTFORMW 「すみません、こんな場所で気を抜いて眠った%CNAME("一人称")%が迂闊でした…」
	ENDIF
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	IF RAND:2
		PRINTFORMW 「眠るときは……安全を、安全を確保しないと…」
	ELSE
		PRINTFORMW 「私は寝ます、あまりうるさくしないでくださいね…」
	ENDIF
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW 「これ以上この格好でいる理由もなさそうですね」
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	IF RAND:2
		PRINTFORMW 「皆桑よくこんなものを着ていられますね…」
	ELSE
		PRINTFORMW 「熱ければ脱掉、単純な方法が一番有効です」
	ENDIF
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	;これはCSTR:点心 に亲手自制属性のものが設定されている時のみ
	CASE "夸奖点心"
		IF CFLAG:喧嘩中
			STR:日常イベント名 =
			PRINTFORMW 「……」
			PRINTFORMW %CALLNAME:TARGET%に無視されてしまった…
		ELSE
			PRINTFORMW 「単純に%CNAME("一人称")%の好物を持ってきただけですが」
			PRINTFORMW 「まあ、%CNAME("二人称")%%TEXTR("とは趣味が比較的近そう/の味覚もそれなりに信用でき")%そうですね」
		ENDIF
	CASE "夸奖"
		IF CFLAG:喧嘩中
			STR:日常イベント名 =
			PRINTFORMW 「……」
			PRINTFORMW %CALLNAME:TARGET%に無視されてしまった…
		ELSEIF CONDS("直前行動") == "变成裸体" || (CONDS("直前行動") == "淋浴" && CHECK_CLO("裸体"))
			IF RAND:2
				PRINTFORMW 「ふーん、是这様吗……ではもっとよく見てみますか？」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为恥じらう様子もなく%CALLNAME:MASTER%の目の前に立つと、満足いくまで裸体を鑑賞させてくれた…
			ELSE
				PRINTFORMW 「……褒められると悪い気はしませんね」
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为その場でくるりと回り、美しい裸体を惜しげもなく披露してくれた…
			ENDIF
		ELSEIF RAND:2
			PRINTFORMW 「……何が言いたいんですか」
			PRINTFORMW 「皮肉じゃなくて、言葉街道の意味なら…まあ、うれしいですけど」
		ELSE
			PRINTFORMW 「下心が見え見えですよ%CNAME("二人称")%」
			PRINTFORMW 「ここまでわかりやすいとむしろ気持ちが良いくらいですね」
		ENDIF
	CASE "甜言蜜语"
		IF CFLAG:喧嘩中
			STR:日常イベント名 =
			PRINTFORMW 「……」
			PRINTFORMW %CALLNAME:TARGET%に無視されてしまった…
		ELSEIF TALENT:恋慕
			IF RAND:6 == 0
				PRINTFORMW 「なんだか重みが有ませんね、いつも聞いてる言葉ですし…」
				PRINTFORMW 「……必要ないとは言ってません、これからも続けてください」
			ELSEIF RAND:5 == 0
				PRINTFORMW 「ずるいですよね%CNAME("二人称")%は」
				PRINTFORMW 「…何が、とか聞かないでください……何でもないですって」
			ELSEIF RAND:4 == 0
				PRINTFORMW 「……是这様吗」
				PRINTFORMW 「私は嫌いです、%CNAME("二人称")%なんか嫌いです」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「……それ、信じますよ？信じましたからね？」
				PRINTFORMW 「もし適当言ってるってわかったら…泣きますよ？」
				PRINTFORMW 「泣いて泣いて泣き通してやります、謝っても泣き止みませんからね」
			ELSEIF RAND:2
				PRINTFORMW 「…やめてくださいよ」
				PRINTFORMW 「%CNAME("二人称")%のそういう言葉は危険すぎるんですよ、もはや凶器です」
				PRINTFORMW 「……だから、無暗に他の人にぶつけない方がいいですよ」
			ELSE
				PRINTFORMW 「！！！」
				PRINTFORMW 「ちょ、調子良いんですよ%CNAME("二人称")%は！いつもいつもそうですっ！！」
				PRINTFORMW 「だから今の言葉の信憑性もゼロです！今ニヤニヤしてるのがその証拠ですよっ！！」
			ENDIF
		ELSEIF CALCF("甜言蜜语成功")
			PRINTFORMW 「はぁ…」
			PRINTFORMW 「面と向かってそれを言える勇気だけは評価してあげます」
		ELSE
			PRINTFORMW 「ふーん……だからなんですか？」
			PRINTFORMW 「それ聞いた%CNAME("一人称")%は…何かした方がいいですか？」
		ENDIF
	CASEELSE
		IF CFLAG:喧嘩中
			STR:日常イベント名 =
			PRINTFORMW 「……」
			PRINTFORMW %CALLNAME:TARGET%に無視されてしまった…
		ELSEIF RAND:13 == 0 && CHECK_CLO("裸体")
			PRINTFORMW 「%TEXTR(@"そういえば%CNAME("二人称")%、この間の件なんですが…/%CNAME("二人称")%、最近体調には気を使っていますか？")%」
			PRINTFORMW 裸体の%CALLNAME:TARGET%が会話をしようとこちらに向き直ると\@ TALENT:貧乳 ? 平たい胸部 # 柔らかそうな双丘 \@がいやが応にも目に入る…
			PRINTFORMW 「…聞いてます？」
		ELSEIF RAND:12 == 0 && ABL:信頼 >= 5
			PRINTFORMW 「もしかしてなんですが。私が人类だからと思っていた前輩の失礼の数々は大体前輩個人の気性じゃないですよね？」
			PRINTFORMW 「…………はぁ、私以外の精灵にやったら骨位は折られるので気を付けてくださいね」
			PRINTFORMW 「何度かやろうと思って思い止まった私の度量に感謝してください」
		ELSEIF RAND:11 == 0
			PRINTFORMW 「好きな花はあるか、ですか…？」
			PRINTFORMW 「芍薬、ですかね…固く閉じたつぼみが開くまでを等待日々が楽しみなんです」
		ELSEIF RAND:10 == 0
			PRINTFORMW 「この部活の存在を知らなければ弓道部に入るつもりでいました」
			IF RAND:2
				PRINTFORMW 「こちらの弓は私が使っていたものよりだいぶ大きいですね、扱いに慣れるのは難しそうです」
			ELSE
				PRINTFORMW 「しかし、足を止めて動かない的を撃つだけでは…実戦には役立たないでしょうね」
			ENDIF
		ELSEIF RAND:9 == 0
			PRINTFORMW 「確かに、%CNAME("一人称")%はあまり筋肉な方ではないですが」
			PRINTFORMW 「そもそも、見た目が似ているだけで精灵の体構造は人类とは違います」
			PRINTFORMW 「我々にとっては、筋肉だけが力を発する器官ではない…とだけ言っておきましょうか」
		ELSEIF RAND:8 == 0
			PRINTFORMW 「長く生きていれば、記憶し切れないことは多く有ます」
			PRINTFORMW 「だからこそ、精灵にとって筆記とは文化の継承の重要な手段になります」
			PRINTFORMW 「しかし、木を大量消費する紙の書物の導入には大号的反対が有ました」
			PRINTFORMW 「嘘のようですが、石板への筆記から脱却したのはつい最近の話なんです…」
		ELSEIF RAND:7 == 0
			PRINTFORMW 「便宜上、%CNAME("二人称")%には本当の名前を教えましたけど」
			PRINTFORMW 「学校での%CNAME("一人称")%は『木立李枝』です」
			PRINTFORMW 「ここ以外で『西露芙』とか呼んでも無視ですからね、前輩が変な目で見られて終わりです」
		ELSEIF RAND:6 == 0
			PRINTFORMW 「クラスのやつらは気に入らない人类ばっかりです」
			PRINTFORMW 「この前も昼食をとるのに丁度いい場所を教えたのですが好意を無碍にされました」
			PRINTFORMW 「木登りもできないのにこの先どうやって生きていくつもりなんですかね」
		ELSEIF RAND:5 == 0
			PRINTFORMW 「しかし、このスマホっていうのはどうしても慣れないですね」
			PRINTFORMW 「人工的な光は目に対して悪影響です」
		ELSEIF RAND:4 == 0
			PRINTFORMW 「口が悪い？」
			PRINTFORMW 「自分の気持ちに正直に生きることの何が悪いんですか」
		ELSEIF RAND:3 == 0 && CFLAG:内衣確認済 == 0 && EQUIP:胖次
			PRINTFORMW 「は……？胖次の色ですか？」
			PRINTFORMW 「…金色ですよ、金色」
			PRINTFORMW 「なんですか、冗談に冗談で答えて何がいけないんですか」
		ELSEIF RAND:2
			PRINTFORMW 「ここでの社会的な規範に従うとすれば」
			PRINTFORMW 「%CNAME("一人称")%は你を%CNAME("二人称")%と呼ぶべきでしょうね」
			PRINTFORMW 「%CNAME("一人称")%のほうが圧倒的に年上だとしてもです…」
		ELSE
			PRINTFORMW 「妊娠……それはまあ、その可能性は有ますが」
			PRINTFORMW 「私の部族は混血に対して寛容ですし、人数も減っていく一方です」
			PRINTFORMW 「ですから、何も問題有ません」
		ENDIF
	ENDSELECT
;TFLAG:取引拒否 = 1とすることで、你のたわごとを却下できます
CASE "Ｈ的約定"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;この角色自身が前回赤点で、それどころではない（学生以外は、この分岐には来ません）
	IF COND("成績：赤点")
		IF RAND:2
			PRINTFORMW 「余裕がある人は暢気でいいですね」
			PRINTFORMW 「%CNAME("一人称")%は勉強に集中しないといけないんです、%CNAME("二人称")%とは違うんです」
		ELSE
			PRINTFORMW 「勉強に対する動機付けはむしろ%CNAME("一人称")%の方が欲しいくらいなのですが…」
		ENDIF
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			PRINTFORMW 「構いません、しかし…」
			PRINTFORMW 「%CNAME("二人称")%の成績ですし、基準は相応に高く置くべきですね」
		;そうでない場合には平均点を結構上回る程度でＯＫです
		ELSE
			PRINTFORMW 「その提案、%CNAME("一人称")%にメリット有ます？」
			PRINTFORMW 「まあ、%CNAME("二人称")%にはどうせ無理なので、デメリットもないに等しいですが…」
		ENDIF
	ENDIF
CASE "拭汗"
	IF CFLAG:喧嘩中
		STR:日常イベント名 =
		PRINTFORMW 「……結構です」
		PRINTFORMW %CALLNAME:TARGET%に断られてしまった…
	ELSEIF RAND:2
		;釘刺し精灵
		PRINTFORMW 「……%CNAME("二人称")%？さっきからずっとそこばっかり拭いてますね？」
		PRINTFORMW 「できれば他のところもお願いしたいんですが、構いませんね？」
	ELSE
		PRINTFORMW 「…その毛巾、綿ですか？」
		PRINTFORMW 「化学繊維のものは使わないって決めてるんです」
	ENDIF
CASE "淋浴独り言"
	PRINTFORMW 「%TEXTR("うぅ、水道水の气味…はぁ、忍耐しかないか…/♪……♪……/ん…？誰か、来ましたか……？")%」
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		PRINTFORMW 「…そもそも精灵は物音には敏感なんです」
		PRINTFORMW 「ですから%CNAME("二人称")%、道歉なら今のうちですよ？」
	ELSE
		IF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
			IF RAND:3 == 0
				PRINTFORMW 「……何ですか、この格好に何か問題でも？」
			ELSEIF RAND:2
				PRINTFORMW 「…ああ、%CNAME("二人称")%…来てたんですね」
				PRINTFORMW 「しばらくはこのままでいますがあまり気にしないでください」
			ELSE
				PRINTFORMW 「見とれるのは構いませんが…汚さないでくださいよ？」
				PRINTFORMW 「もう一度水を浴びるのは面倒です」
			ENDIF
		ELSE
			PRINTFORMW 「%CNAME("二人称")%、お先でした…」
		ENDIF
	ENDIF
CASE "淋浴後换装"
	IF RAND:2
		PRINTFORMW 「これが%CNAME("二人称")%の趣味ってことですね」
		PRINTFORMW 「人を巻き込まないと満たされない趣味っていうのも難儀なものです…」
	ELSE
		PRINTFORMW 「…着ましたよ、着てあげましたとも」
		PRINTFORMW 「しかし…%CNAME("一人称")%は換装人形とでも思われてるんでしょうか」
	ENDIF

CASE "淋浴後换装失敗"
	IF RAND:2
		PRINTFORMW 「…あれは何のつもりですか、というかどうして直接頼もうとしないんですか」
		PRINTFORMW 「%CNAME("二人称")%のやり方が気に入りませんので今回は却下です」
	ELSE
		PRINTFORMW 「…なんですか、残念そうな顔して」
		PRINTFORMW 「%CNAME("一人称")%はあの服を着ていない、それが答えです」
	ENDIF

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K28
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "一起学习"
		IF CHECK_CLO("裸体")
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为素っ裸のまま你の横に座ってペンを走らせている
			IF RAND:2
				PRINTFORMW 「%CNAME("二人称")%、この問題はどのように解けば……%CNAME("二人称")%？」
				PRINTFORMW 「…胸部見てないで酱と聞いてください」
			ELSE
				PRINTFORMW 「……この方が%CNAME("一人称")%は落ち着きます、集中できるかもしれません」
				PRINTFORMW 「…%CNAME("二人称")%も集中してくださいね」
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORMW 「異なる文化とは学んでも学びつくせないものですね…」
			ELSE
				PRINTFORMW 「%CNAME("二人称")%、この単語の意味は…？」
				PRINTFORMW 「……知って是ました、あくまで確認のためです」
			ENDIF
		ENDIF
	CASE "托一托胸部"
		IF CFLAG:喧嘩中
			IF BASE:欲求不満 >= 75
				CALL PRINT_STRW, @"「……%TEXTR("ぁぅ/っ")%…_／／／_」"
			ELSE
				PRINTFORMW 「……」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为\@ BASE:欲求不満 >= 75 ? 頬を赤らめながらも # \@调戏を出してくる%CALLNAME:MASTER%を振り払った…
		ELSEIF CHECK_CLO("胸露出")
			IF RAND:2
				PRINTFORMW 「んっ」
				PRINTFORMW 「…あまり乱暴につかまないでもらいたいんですが」
			ELSE
				PRINTFORMW 「見えていると手を出したくなってしまう、そういうことですね」
				PRINTFORMW 「動物的で大変よろしいと思いますよ」
			ENDIF
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:3 == 0 && (EQUIP:胸罩 + EQUIP:贴身制服) == 0
			PRINTFORMW 「なんで胸罩なんてしないといけないんですか…」
			PRINTFORMW 「窮屈だからいやなんです、わかってください」
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名 && RAND:7 == 0
		PRINTFORMW 「…本当は暴力は好きではないのですが…やむを得ない場合も有ます」
		PRINTFORMW 「%CNAME("一人称")%の忠告が無視され続けている以上は、やむを得ませんよね？」
		PRINTFORMW 「ええ、冗談ですよ…今は、ね」
		ELSEIF RAND:6 == 0
			PRINTFORMW 「その行為を、咎めたりはしません」
			PRINTFORMW 「しかし、後々%CNAME("一人称")%と%CNAME("二人称")%との関係にどのような影響を与えるかは考えておくべきですね」
		ELSEIF RAND:5 == 0
			PRINTFORMW 「どうして『胸部を触らせてください』が言えないんですか？」
			PRINTFORMW 「欲しいものは酱と拜托了のが筋じゃないんですか？」
		ELSEIF RAND:4 == 0
			PRINTFORMW 「急に何ですか、やめてもらえますか」
			PRINTFORMW 「………答えがない、そしてやめることもない、と」
			PRINTFORMW 「%CNAME("二人称")%…身体接觸よりもコミュニケーションを大事にしませんか？」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「自重が負担になるほど脂肪はつけていないつもりですが」
			PRINTFORMW 「……まあ、どうせ触りたいだけでしょうから、この説明は無意味ですね…」
		ELSEIF RAND:2
			PRINTFORMW 「触りたかったんですか？」
			PRINTFORMW 「\@ ABL:Ｂ感覚 >= 5 ? 性感を覚えてしまう # 不快な \@のでほどほどにしてくださいね」
		ELSE
			PRINTFORMW 「何のつもりですか？」
			PRINTFORMW 「正当な理由があるとはとても思えない行為ですが」
		ENDIF
	CASE "按摩"
		IF CFLAG:喧嘩中
			IF BASE:欲求不満 >= 75
				CALL PRINT_STRW, @"「……%TEXTR("ぁぅ/っ")%…_／／／_」"
			ELSE
				PRINTFORMW 「……」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为\@ BASE:欲求不満 >= 75 ? 時折体を震わせながらも # \@無関心を装っている…
		ELSEIF RAND:2
			PRINTFORMW 「助かります…授業というのはどうにも体が疲れますから…」
			PRINTFORMW 「なんであんなに長い時間、不自然な姿勢を很强られなきゃいけないんでしょうか…」
		ELSE
			PRINTFORMW 「では足をお願いします…くれぐれも変な気は起こさないよう」
		ENDIF
	CASE "接吻"
		IF CFLAG:喧嘩中
			STR:日常イベント名 =
			PRINTFORMW 「……やめてください、気持ち悪い」
			PRINTFORMW %CALLNAME:TARGET%に拒否されてしまった…
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「%CNAME("二人称")%は積極的ですね…いえ、これはもう貪欲と称すべきでしょうか？」
		ELSE
			IF RAND:2
				PRINTFORMW 「%CNAME("二人称")%の愛情表現はやや過剰ですね…とても真似できません」
				PRINTFORMW 「…%CNAME("一人称")%は表に出したくないんです」
			ELSE
				IF TALENT:恋慕
					PRINTFORMW 「…これはどういう意図での接吻なんですか」
					PRINTFORMW 「酱と答えてください…！そうでないと、%CNAME("一人称")%…うぅ……」
				ELSE
					PRINTFORMW 「いきなりはやめてください、不衛生です…」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为口元をごしごしとぬぐっている…
				ENDIF
			ENDIF
		ENDIF
	CASE "膝枕"
		IF CFLAG:喧嘩中
			STR:日常イベント名 =
			PRINTFORMW 「……結構です」
			PRINTFORMW %CALLNAME:TARGET%に断られてしまった…
		ELSE
			PRINTFORMW 「まあ、%CNAME("二人称")%が見張っていてくださるなら…」
			PRINTFORMW 「少し休ませていただきます」
		ENDIF
	CASE "泡茶"
		IF CFLAG:喧嘩中
			STR:日常イベント名 =
			PRINTFORMW 「……結構です」
			PRINTFORMW %CALLNAME:TARGET%に断られてしまった…
		ELSEIF RAND:2
			PRINTFORMW 「お気持ちは有がたいんですが、熱いものは苦手です」
			PRINTFORMW 「そもそも精灵は森の中で火を起こしたりしませんから…」
		ELSE
			PRINTFORMW 「…君君」
			PRINTFORMW 「…添加物のにおいがしますね…まあいいでしょう」
		ENDIF
	;CALL SET_CEVENT, "飲酒拒否"でお酒を飲まないようにできる。
	;このフラグはCALL DEL_CEVENT, "飲酒拒否"で消すことができる
	CASE "勸酒"
		IF CFLAG:喧嘩中
			STR:日常イベント名 =
			PRINTFORMW 「……結構です」
			PRINTFORMW %CALLNAME:TARGET%に断られてしまった…
		ELSEIF RAND:2
			PRINTFORMW 「こういったものは普段嗜まないんですがね」
			PRINTFORMW 「しかしこの感覚は…なかなか…」
		ELSE
			PRINTFORMW 「一時的と是え理性が失われるのは避けたいところです…」
			PRINTFORMW 「いえ、%CNAME("二人称")%がそこまで言うならお付き合いしますが…」
		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 "摸頭"
		IF CFLAG:喧嘩中
			STR:日常イベント名 =
			PRINTFORMW 「……やめてください、気持ち悪い」
			PRINTFORMW %CALLNAME:TARGET%に拒否されてしまった…
		ELSEIF RAND:2 && TALENT:恋慕
			PRINTFORMW 「……なんなんですか、なんで理由もないのにそんなこと…！」
			PRINTFORMW 「うぅぅ……！」
		ELSE
			PRINTFORMW 「何のつもりですか」
			PRINTFORMW 「%CNAME("一人称")%は後輩であっても、年下ではないんですよ？わかってるんですか？」
		ENDIF
	;胸元にチップを差し込まれます。兔女郎制服限定
	CASE "给小费"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K28
	WAIT
CASE "被拒绝了学习的邀请"

CASE "勉強前に胖次要求"
	IF RAND:2
		PRINTFORMW 「構いませんが…約束は守ってくださいね？」
	ELSE
		PRINTFORMW 「内衣を見せる、という行動は%CNAME("一人称")%が思ったよりも交渉に役立つ材料なんでしょうか…」
	ENDIF
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请"
		IF BASE:魂 < 30 && CEVENT("淫紋刻印待ち：西露芙") == 0
			IF CFLAG:淋浴済 && CHECK_CLO("裸体") && RAND:2
				PRINTFORMW 西露芙は床に無防備に横变成了…
				PRINTFORMW 「……洗い立てですから、ちょうどいいと思いますよ？」
			ELSE
				PRINTFORMW 「%CNAME("二人称")%…%CNAME("一人称")%、どうしても魂が必要なんです」
				PRINTFORMW 「…いいですよね？」
			ENDIF
		ELSE
			PRINTFORMW 「……お闲そうですね」
			PRINTFORMW 「…%CNAME("一人称")%もちょうど闲なんですよ、奇遇ですね？」
		ENDIF
	CASE "邀请学习"
		;胖次を要求した
		IF CHOSE_DEVENT("勉強前に胖次要求")
			PRINTFORMW 「集中してくださいよ、%CNAME("二人称")%」
			PRINTFORMW 「はぁ、やはり勉強前に見せるのは失敗でしたかね…」
		ELSEIF CHECK_CLO("裸体")
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为素っ裸のまま你の横に座ってペンを走らせている
			IF RAND:2
				PRINTFORMW 「%CNAME("二人称")%、この問題はどのように解けば……%CNAME("二人称")%？」
				PRINTFORMW 「…胸部見てないで酱と聞いてください」
			ELSE
				PRINTFORMW 「……この方が%CNAME("一人称")%は落ち着きます、集中できるかもしれません」
				PRINTFORMW 「…%CNAME("二人称")%も集中してくださいね」
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORMW 「異なる文化とは学んでも学びつくせないものですね…」
			ELSE
				PRINTFORMW 「%CNAME("二人称")%、この単語の意味は…？」
				PRINTFORMW 「……知って是ました、あくまで確認のためです」
			ENDIF
		ENDIF
	CASE "推倒"
		IF BASE:魂 < 30 && CEVENT("淫紋刻印待ち：西露芙") == 0
			PRINTFORMW 「魂が必要なんです……その条件で、契約を、したはずです…」
			PRINTFORMW 「こういう行動を起こさなければ、わかってくれないんですね…」
		ELSE
			PRINTFORMW 「ここが森なら命は有ませんよ%CNAME("二人称")%」
			PRINTFORMW 「……どうです？命乞いとか、してみます？」
		ENDIF
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW 「はぁ…森の外の習慣はよくわかりません…」
		ELSE
			IF BASE:魂 < 30 && CEVENT("淫紋刻印待ち：西露芙") == 0
				PRINTFORMW 「あらかじめ宣言しますが、これは誘惑です」
				PRINTFORMW 「…乗るか乗らないかは%CNAME("二人称")%の気持ち一つです」
			ELSEIF RAND:2
				PRINTFORMW 「……どうですか%CNAME("二人称")%？どう思いますか？」
				PRINTFORMW 「…聞いてみただけです」
			ELSE
				PRINTFORMW 「…少し息遣いが変わりましたか？」
				PRINTFORMW 「隠さなくても結構です…というより、隠しても無意味です」
			ENDIF
		ENDIF
	CASE "清洁口交"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬"
		PRINTFORMW 「何ですかその顔は。お気に召しませんでしたか？」
		PRINTFORMW 「これくらいの刺激では、%CNAME("二人称")%には物足りないんですかね…」
	CASE "接吻"
		IF RAND:2
			PRINTFORMW 「…これくらいでは動揺しませんか、面白くないですね」
		ELSE
			PRINTFORMW 「こうすることでお互相用口腔内の雑菌の種類が増え、免疫力が高圆圈そうです」
			PRINTFORMW 「今のはそれが理由です、本当にそれだけです」
		ENDIF
	CASE "膝枕"
		IF RAND:2
			PRINTFORMW 「少し膝をお借りします」
			PRINTFORMW 「……もう少し大人しくできませんか？」
		ELSE
			PRINTFORMW 「ちょっと、失礼しますね」
			PRINTFORMW 「……ああ、どうぞお構いなく…勝手に休ませていただきますので」
		ENDIF
	CASE "把胸部压了上去"
		PRINTFORMW
	CASE "摩擦股間"
		PRINTFORMW
	CASE "抱住"
		IF RAND:2
			PRINTFORMW 「%CNAME("二人称")%は、体温が高めのようですね」
		ELSE
			PRINTFORMW 「……しばらく、このままでお願いします」
			PRINTFORMW 「暴れたりしないでくださいね、%CNAME("二人称")%」
		ENDIF
	CASE "抚摸"
		IF RAND:2
			PRINTFORMW 「%CNAME("二人称")%、なんだか表情に疲れが見えますよ」
			PRINTFORMW 「もっと植物性の食品を摂取する事をお勧めします」
		ELSE
			PRINTFORMW 「森の動物もこんな風にして给と喜ぶんですよ」
			PRINTFORMW 「…深い意味は有ませんよ？今思い出しただけですよ？」
		ENDIF
	CASE "手淫"
		IF CHECK_CLO("裸体") && RAND:3 == 0
			PRINTFORMW 「%CNAME("二人称")%…大きくなってるこれは何ですか？」
			PRINTFORMW 「答えられないんですか？どうして答えられないんです？」
		ELSEIF RAND:2 && ABL:信頼 >= 3
			PRINTFORMW 「%CNAME("二人称")%だっていつもこんなことやってるじゃないですか…」
			PRINTFORMW 「今更文句を言える立場なんですか？」
		ELSE
			PRINTFORMW 「余計なお世話かもしれませんが…あまり溜め込むのは健康によくないですよ」
			PRINTFORMW 「早急に解消しないと…そのためには、はけ口が必要ですよね…？」
		ENDIF
	CASE "膝枕"
		IF CHECK_CLO("裸体")
			IF RAND:2
				PRINTFORMW 横を向けばすべすべの太ももが頬にあたり、上を見上げればいやが応にも胸部が目に入る…
				PRINTFORMW とてもくつろいで是られない気分だ…
				PRINTFORMW 「……なんだか落ち着かないですね、%CNAME("二人称")%」
			ELSE
				PRINTFORMW 何にも覆われていない太ももに頭を乗せると、素肌の感覚が伝わってくる…
				PRINTFORMW 「%CNAME("二人称")%…もぞもぞ動かないでください、気持ち悪い」
			ENDIF
		ELSE
			PRINTFORMW 「眠そうですね、%CNAME("二人称")%？」
			PRINTFORMW 「見張りは%CNAME("一人称")%が勤めますから少し休んでください」
		ENDIF
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		PRINTFORMW
	;それ以外
	CASEELSE
		IF TALENT:恋慕 && RAND:3 == 0
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为眼鏡をはずすと、%CALLNAME:MASTER%の顔にかけさせた…
			PRINTFORMW 「%TEXTR("予想街道、似合って是ませんね/ぶふっ……！失礼しました、心から謝罪します…/うーん、有か无かで言えば…ノーコメントですね")%」
		ELSEIF RAND:2
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为顔をこちらに近づけると%CALLNAME:MASTER%の气味を嗅ぎ始めた…
			IF TALENT:恋慕 && RAND:2
				PRINTFORMW 「%CNAME("二人称")%の气味は…嫌いじゃないです」
			ELSE
				PRINTFORMW 「%TEXTR("ふんふん、なるほどなるほど……/…少しだけ、妙な气味がしますね？")%」
			ENDIF
		ELSE
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%の耳たぶを%TEXTR("ぐにぐに/ぷにぷに/くりくり")%と指でいじってきた…
			PRINTFORMW 「%TEXTR("人类の耳是つ見ても奇妙な形ですね/…おっと、一応意識はあるみたいですね")%」
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		;IF BASE:MASTER:尿意 == 0
		;	PRINTFORMW
		;ELSE
			PRINTFORMW 「%TEXTR("戻りました/失礼しました")%」
		;ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW 「…%TEXTR("席をはずします/中座します")%」
	ENDIF
CASE "廁所詮索"
	IF CFLAG:喧嘩中
		PRINTFORMW 「……」
		PRINTFORMW %CALLNAME:TARGET%に無視されてしまった…
	ELSEIF RAND:2
		PRINTFORMW 「%CNAME("二人称")%は答えが分かり切っているのに質問をするんですね」
	ELSE
		PRINTFORMW 「排泄です。精灵にも代謝は有ますから」
	ENDIF
;これは你と角色が両方男性の際に限り起きます
CASE "連れション"
	PRINTFORMW
;これは你と角色が両方男性でない際に限り起きます
CASE "廁所で井戸端会議"
	PRINTFORMW
;你に廁所を覗かれた！
CASE "廁所ハプニング"
	PRINTFORMW
;廁所ハプニングから派生するＨイベント
CASE "廁所Ｈ"
	SELECTCASE STR:日常イベント名
	CASE "廁所イベント：見せつけくぱぁ"
		PRINTFORMW
	CASE "廁所イベント：相互自慰"
		PRINTFORMW
	CASE "廁所イベント：口交"
		PRINTFORMW
	CASE "廁所イベント：Ｖ性交"
		PRINTFORMW
	CASE "廁所イベント：Ａ性交"
		PRINTFORMW
	ENDSELECT
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K28
		WAIT
	ELSEIF CFLAG:喧嘩中
		STR:日常イベント名 =
		PRINTFORMW 「……は？」
		PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%をにらみつけている…
	ELSEIF COND("合意：检查阴部") == 0
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「……はぁ」
			PRINTFORMW 「…二度と言わないでくださいね」
		ELSE
			PRINTFORMW 「…すみません、もう一度言ってもらえますか？」
			PRINTFORMW 「……できれば%CNAME("一人称")%の聞き違いであって欲しいんですが」
		ENDIF
	ELSE
		IF TALENT:相思相愛 && MARK:屈服刻印 >= 3 && RAND:2
			PRINTFORMW 「…逐一確認する必要はないと思うんですけど」
			PRINTFORMW 「心配しなくても、今は酱と%CNAME("二人称")%のものです」
		ELSE
			PRINTFORMW 「…見れば満足するんですね？」
			PRINTFORMW 「じゃあそこに座ってください、少しだけですよ…」
		ENDIF
	ENDIF
CASE "检查菊穴"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K28
		WAIT
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K28
		WAIT
	ELSEIF COND("合意：检查内褲") == 0
		PRINTFORMW
	ELSE
		IF CFLAG:喧嘩中
			STR:日常イベント名 =
			PRINTFORMW 「……やめてください」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为ゴミを見るような目で%CALLNAME:MASTER%を看了过来…
		ELSEIF CEVENT("犬")
			PRINTFORMW 「ちょっと…少しがっつき過ぎです」
			PRINTFORMW 「おあずけされたからって、本当に犬にならないでくださいよ」
			CALL DEL_CEVENT, "犬"
		ELSEIF RAND:3 == 0
			PRINTFORMW 「そんなにじろじろ見てたら飽きそうなもんですけどね」
			PRINTFORMW 「…むしろ飽きてくださいよ、いますぐ、早く」
		ELSEIF RAND:2
			PRINTFORMW 「%CNAME("二人称")%、いつまで見てるんですか？」
			PRINTFORMW 「このまま見てたら何か起こるかも、なんて期待でもしてるんですか？」
		ELSE
			PRINTFORMW 「やめてください、引っ張らないで…」
			PRINTFORMW 「%PANTIES(TARGET, "胖次")%が伸びちゃいますよ」
		ENDIF
	ENDIF
CASE "撫摸股間"
	PRINTFORMW 「…どこであれ、体に触れる前にはひと声かけていただけると助かるんですが」
	PRINTFORMW 「さもないと、反撃を受けた場合も%CNAME("一人称")%の責任では有ませんからね…」
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K28
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		IF CFLAG:喧嘩中
			STR:日常イベント名 =
			PRINTFORMW 「……やめてください」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为ゴミを見るような目で%CALLNAME:MASTER%を看了过来…
		ELSEIF CHECK_CLO("Micro比基尼姿") && BASE:魂 < 30 && CEVENT("淫紋刻印待ち：西露芙") == 0
			PRINTFORMW 「……この泳装ですか？」
			PRINTFORMW 「%CNAME("一人称")%は、魂のためなら手段は選びません、そういうことです」
		ELSEIF (CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")) && RAND:3 == 0
			PRINTFORMW \@ CHECK_CLO("体操服姿") ? 布鲁马 # 比基尼胖次 \@から%CALLNAME:TARGET%の太ももが伸びている…
			PRINTFORMW 思わず触れてみたくなるほど\@ COND("晒痕") ? こんがりと晒痕している # に真っ白だ\@…
			PRINTFORMW 「……%CNAME("二人称")%、声に出てますよ」
		ELSEIF CHECK_CLO("体操服姿") && RAND:2
			PRINTFORMW 「これは動きやすさ重視なんですけどね」
			PRINTFORMW 「%CNAME("二人称")%にかかれば機能美も欲望の対象ってわけですね」
		ELSEIF CHECK_CLO("泳装姿") && RAND:2
			;精灵の美貌ゆえ一般人の気持ち是まいちわからん
			PRINTFORMW 「そんなに変ですか？」
			PRINTFORMW 「でも…あの競泳用の泳装は窮屈です、着たく有ません」
			PRINTFORMW 「隠すとこは隠してますし、これで問題はないんです」
		ELSE
			PRINTFORMW 「調子に乗りすぎです%CNAME("二人称")%」
			PRINTFORMW 「%CNAME("一人称")%だって、本気で怒る時もあるんですよ？」
			SIF TALENT:恋慕 && RAND:2
				PRINTFORMW 「……ま、この程度じゃ本気を出すまでもないですけど」
		ENDIF
	ELSE
		IF CFLAG:喧嘩中
			PRINTFORMW 「……」
		ELSE
			PRINTFORMW 「…%CNAME("二人称")%」
			PRINTFORMW 「……いえ、何でもないです」
		ENDIF
	ENDIF
CASE "掀起裙子：地の文前"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		IF TALENT:恋慕 && RAND:2
			PRINTFORMW %CALLNAME:MASTER%の態度にピンときた%CALLNAME:TARGET%正在认真地读着标题为、にやにやし始めた…
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为挑逗ように慢慢地裙をたくし上げていく…
			PRINTFORMW 「待て、待てですよ、%CNAME("二人称")%……」
			PRINTFORMW 「おあずけですよおあずけ、まだ触っちゃだめですよ…」
			CALL SET_CEVENT, "犬"
			TFLAG:地の文スキップ = 1
		ENDIF
	ENDSELECT
CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「見たかったんですよね？」
			PRINTFORMW 「…%CNAME("二人称")%の目がそう言ってましたよ」
		;胖次チラ直後
		;ELSEIF COND("胖次チラ直後")
		;	PRINTFORMW
		ELSE
			IF CEVENT("犬")

			ELSE
				IF RAND:7 == 0 && BASE:魂 >= 100
					PRINTFORMW 「契約を果たしていただいているので、特別サービス、ということで」
					PRINTFORMW 「そう思って、有がたく見てくださいね」
				ELSEIF RAND:6 == 0
					PRINTFORMW 「性欲にとらわれた哀れな%CNAME("二人称")%へのお恵みです」
					PRINTFORMW 「……後輩の胖次見えて嬉しいですか？」
				ELSEIF RAND:5 == 0
					PRINTFORMW 「……飽きないことですね」
					PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为呆れたような顔で%CALLNAME:MASTER%を見下ろしている…
				ELSEIF RAND:4 == 0
					PRINTFORMW 「……」
					PRINTFORMW 「是、終わりです」
					PRINTFORMW 「……そんな顔してもダメです、%CNAME("一人称")%の%TEXTR("胖次/優しさ")%は有限なんです」
				ELSEIF RAND:3 == 0
					PRINTFORMW 「……%CNAME("二人称")%、おすわり」
					PRINTFORMW 「その姿勢の方がよく見えますよね？%CNAME("一人称")%の配慮に感謝してください」
				ELSEIF RAND:2
					PRINTFORMW 「ほら、これですか？」
					PRINTFORMW 「そんな物欲しそうな目線…一発で分かりますよ」
				ELSE
					PRINTFORMW 「…是、胖次ですよ」
					PRINTFORMW 「……どうします？後ろ側も見ますか？」
				ENDIF
			ENDIF
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			IF RAND:2
				PRINTFORMW 「……最悪の刚睡醒です」
			ELSE
				PRINTFORMW 「目覚まし代わりですか…？余計なお世話ですよ」
			ENDIF
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K28
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「む…性騷擾ですよ、性騷擾」
			PRINTFORMW 「言っても無駄でしょうけど、抵抗は続けますからね」
		ELSEIF CFLAG:喧嘩中
			PRINTFORMW 「……何のつもりですか」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为冷ややかに%CALLNAME:MASTER%を看了过来…
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「…わかってましたよ」
			PRINTFORMW 「%CNAME("二人称")%が一瞬見えただけで満足するはずないですもんね…」
		ELSE
			IF COND("打招呼前")
				PRINTFORMW 「%CNAME("二人称")%は変態ですか？それともド変態ですか？」
				PRINTFORMW 「いきなり相手の内衣を見ようとするのは犯罪じゃないんですか？」
				PRINTFORMW 「人类として生活してるのに人类の法律を遵守できないのはおかしいですよね？」
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					PRINTFORMW 「今は『めくっていい』なんて許可は出してないんですが」
					PRINTFORMW 「ちなみに事後承諾もするつもりはないんで%CNAME("二人称")%はもうアウトです」
				ELSE
					IF RAND:3 == 0
						PRINTFORMW 「…そもそも、こっちの内衣には布が多すぎるんです」
						PRINTFORMW 「動くのに邪魔になって仕方がないじゃないですか」
					ELSEIF RAND:2
						PRINTFORMW 「%CNAME("二人称")%…む无くならないんですか？」
						PRINTFORMW 「見えたからって何がどうなるわけでもないんですよ？」
					ELSE
						PRINTFORMW 「恥ずかしいってわけでもないですけど」
						PRINTFORMW 「%CNAME("二人称")%が開心地見てるのがなんか気に入りません」
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	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 "口交"

		CASE "乳交"

		CASE "Ｖ性交"
			IF RAND:2
				PRINTFORMW 「処理…はぁ、処理ですか…」
				PRINTFORMW 「人类は発情の周期が短くて大変ですね…」
			ELSE
				PRINTFORMW 「お互い手短に済ませたいという意味では利害が一致していますね、いいですよ」
			ENDIF
		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

		ENDSELECT
	;何かしながらで良いならして给よって場合。何をしながらなのかは SAVESTR:夢中 で参照できる。
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "見抜きを頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "胖次見抜き"
		IF RAND:3 == 0
			PRINTFORMW 「内衣見られた上に、妙な声聞かされてるこっちの気持ちなんて考えもしないんでしょうね…」
			PRINTFORMW 「…それを気にせずに自分の快楽だけに没頭できる浅ましさ、尊敬に値しますよ」
		ELSEIF RAND:2
			PRINTFORMW 「この格好は少し疲れますね」
			PRINTFORMW 「数分で元の体勢に戻りますので、それまでに射精しておいてくださいね」
		ELSE
			PRINTFORMW 「……是、これで見えますか？」
			PRINTFORMW 「…では、後はどうぞお好きなように」
		ENDIF
	ENDSELECT
CASE "性処理の内容変更を頼んだ際の反応"
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

		ENDSELECT
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "拜托処理性欲"
	SELECTCASE NAMES("性処理")
	CASE "口交"

	CASE "乳交"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	CASE "乳頭奸"

	ENDSELECT
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
	CASE "胖次見抜き"

	CASE "手淫"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT

;TFLAG:指令中止 = 1 とすることで口上側から性欲解消を拒否できる
CASE "性欲解消を申し出た際の反応"
	IF CFLAG:喧嘩中
		TFLAG:指令中止 = 1
	ELSE
		SELECTCASE STR:PLAY要望
		CASE "舐陰"

		CASE "舐陰莖"

		CASE "口交"

		CASE "Ｖ性交"
			;避孕套没有の生性交を希望
			IF COND("女性主導生性交")

			ELSE

			ENDIF

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
;STR:PLAY要望 が本来したいPLAY。STR:PLAY内容 が你がやりたいと言って交渉中のPLAY
;ここの中で STR:PLAY内容 を変更する事で提案を蹴る事も出来る。什麼也不做場合は你の提案が通る
CASE "性欲解消の内容変更を頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "舐陰"

	CASE "舐陰莖"

	CASE "Ｖ性交"
		;今日は避孕套没有の生性交がＯＫな日
		IF COND("女性主導生性交")

		ELSE

		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
;性欲解消PLAY後の台詞
CASE "帮忙消除性欲"
	SELECTCASE NAMES("性処理")
	CASE "舐陰"

	CASE "舐陰莖"

	CASE "口交"

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

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

			CASE "Ａ性交"

			CASE "尿道性交"

			ENDSELECT
		ENDIF
	ENDSELECT
ENDSELECT

;-------------------------------------------------
;自撮りにメッセージを添えます　一言くらい
;加筆の際には RETURN 0 を消去し、MAIL_BODY を埋めて使ってください
;地の文も必要であれば適宜変更してください
;-------------------------------------------------
@SELFY_MAIL_K28, ARGS
#DIMS MAIL_BODY

MAIL_BODY =
;メッセージ本文
SELECTCASE ARGS
CASE "ヌード自撮り"
	RETURN 0
	MAIL_BODY =
CASE "阴部自撮り", "阴茎自撮り"
	RETURN 0
	MAIL_BODY =
CASE "胸部自撮り"
	RETURN 0
	MAIL_BODY =
CASE "今年の泳装自撮り"
	RETURN 0
	MAIL_BODY =
CASE "学校指定の泳装自撮り"
	RETURN 0
	MAIL_BODY =
CASE "体操服自撮り"
	RETURN 0
	MAIL_BODY =
CASE "胸罩自撮り" ,"胖次自撮り"
	RETURN 0
	MAIL_BODY =
CASEELSE
	RETURN 0
	MAIL_BODY =
ENDSELECT

;地の文
PRINTFORMW 照片上还添加了「%MAIL_BODY%」的信息…

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

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	IF TALENT:相思相愛
		PRINTFORMW 「%CNAME("二人称")%、今度玩耍に行きましょう」
		PRINTFORMW 「可爱恋人の頼みが聞けないんですか？」
	ELSE
		PRINTFORMW 「%CNAME("二人称")%、次の休みの予定は有ますか？」
		PRINTFORMW 「……いいから、空いてるかどうかだけ答えてください」
	ENDIF
CASE "约会のお誘い：結果"
	;约会決定！
	;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
	IF COND("约会的约定")
		PRINTFORMW 「ではこの日のこの時間に」
		PRINTFORMW 「%CNAME("二人称")%も手帳に記入して\@ TALENT:相思相愛 ? ください、今すぐです # くことをお勧めします \@」
	;你に保留されてしまった
	ELSE
		PRINTFORMW 「煮え切らないですね」
		PRINTFORMW 「断られたものとして考えておきます」
	ENDIF
;你から週末约会に誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "约会に誘われた"
	PRINTFORMW 「约会ですか…？」
	PRINTFORMW 「いえ、構いませんけど…\@ TALENT:相思相愛 ? 恋人 # 契約相手 \@を邪険に扱うのもよくないですし」
;你に便当来招待，きてと頼まれた
CASE "便当を頼まれた"

	;これのコメントアウトを取下と、便当来招待，あげません
	;CALL DEL_CEVENT, "约会の便当"
;你から约会当日にいきなり誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		PRINTFORMW 「なんなんですか、いきなり連絡してきて…」
		PRINTFORMW 「そしてこういう時に限って闲なんですよね…%CNAME("二人称")%はエス布ですか」
	ELSE
		PRINTFORMW 「今日は体を休めようと思っていたんですが」
		PRINTFORMW 「まあ近場ならいいですよ、近場にしましょう、ね？」
	ENDIF

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

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

;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "约会本番"
	SELECTCASE SAVESTR:约会
	CASE "去买泳衣"
		PRINTFORMW
	CASE "散歩"
		PRINTFORMW
	CASE "尋訪美食"
		PRINTFORMW
	CASE "逛街"
		PRINTFORMW
	CASE "去水族馆"
		PRINTFORMW
	CASE "去游乐园"
		PRINTFORMW
	CASE "去电影院"
		PRINTFORMW
	CASE "去图书馆"
		PRINTFORMW
	CASE "赏花"
		PRINTFORMW
	CASE "去游泳"
		PRINTFORMW
	CASE "爬山"
		PRINTFORMW
	CASE "赏红叶"
		PRINTFORMW
	CASE "滑雪"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

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

CASE "手をつなぐ"
	PRINTFORMW
CASE "手をつながない"
	PRINTFORMW
;泳装を買いに行った時です
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	IF COND("Ｈ的泳装選択可能") && RAND:2
		PRINTFORMW
	ELSEIF RAND:2
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;泳装を買いに行って、結果的に選んだ泳装に対するセリフです
;もしも去年も泳装を選んでいたなら、CSTR:今年の泳装 に記録されているので比較する事が出来る
CASE "泳装決定"
	SELECTCASE SWIM(STR:選んだ泳装, "種類")
	CASE "Micro比基尼"
		PRINTFORMW
	CASE "比基尼"
		PRINTFORMW
	CASE "競泳泳装"
		PRINTFORMW
	CASE "高開衩連衣裙"
		PRINTFORMW
	CASE "連体泳装"
		PRINTFORMW
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

;泳池などで泳装姿に着替え、待ち合わせ場所に集合した時です
CASE "泳装に着替えた"
	;どの泳装に着替えたか？
	SELECTCASE SWIM(CSTR:今年の泳装, "種類")
	CASE "比基尼"
		PRINTFORMW
	CASE "Micro比基尼"
		PRINTFORMW
	CASE "連体泳装"
		PRINTFORMW
	CASE "競泳泳装"
		PRINTFORMW
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

;草丛口交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "到暗处去……"
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;映画館などで横並びに座った状態での手交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "请求偷偷手交"

CASE "接吻"

CASE "摸屁股"
	IF RAND:2
		PRINTFORMW 「…くだらないことをしないでもらえませんかね」
		PRINTFORMW 「%CNAME("一人称")%のお尻は%CNAME("二人称")%の欲求を満たすために存在しているわけではないので…」
	ELSE
		PRINTFORMW 「…公的な場で所有権を主張するような行動はして欲しくないですね」
		PRINTFORMW 「%CNAME("一人称")%は奴隷契約を結んだ覚えは有ませんから」
	ENDIF
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问", "专心看电影"

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1
;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "帰り際"
	IF TALENT:恋慕 && RAND:2
		PRINTFORMW 「じゃあ%CNAME("一人称")%は帰りますよ？帰りますからね？」
		PRINTFORMW 「…本当に帰っちゃってもいいんですか？」
	ELSEIF TALENT:恋慕
		PRINTFORMW 「%CNAME("二人称")%、返回んですか？」
		PRINTFORMW 「……%CNAME("一人称")%は少し足が疲れました、一休みしたいです」
		CALL SET_CEVENT, "休みたい"
	ELSE
		PRINTFORMW 「そろそろいい時間ですね」
		PRINTFORMW 「それじゃ、\@ COND("同居中") ? 帰りましょうか # %CNAME("一人称")%は帰ります \@」
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕 && (RAND:2 || CEVENT("休みたい"))
			PRINTFORMW 「露骨？何のことですか？」
			PRINTFORMW 「%CNAME("二人称")%%TEXTR("が深読みしすぎなだけ/の考えすぎ")%ですよ」
			CALL DEL_CEVENT, "休みたい"
		ELSE
			PRINTFORMW 「…返回って言ったじゃないですか」
			PRINTFORMW 「そこまで言うんなら、特別ですよ？」
		ENDIF
	ELSE
		IF TALENT:恋慕 && RAND:3 == 0
			PRINTFORMW 「………%CNAME("二人称")%のばか」
		ELSEIF TALENT:恋慕 && RAND:2
			PRINTFORMW 「……欲のないことですね」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「……期待外れです」
		ELSE
			PRINTFORMW 「…\@ COND("同居中") ? 帰りましょう # 帰ります \@」
		ENDIF
	ENDIF
ENDSELECT

path: ERB/EVENT_K/28 シルフィ/EVENT_K28_DAILY.ERB


code:
;-------------------------------------------------
;仲直りの処理
;-------------------------------------------------
@MAKE_PEACE_K28
#DIM LCOUNT

IF CEVENT("仲直り：自慰")
	PRINTFORMW 「前輩の一生懸命さは十分伝わってきました」
	PRINTFORMW 「今回だけは特別に、これで許してあげます…」
	CFLAG:喧嘩中 = 0
ELSEIF CEVENT("仲直り：足交")
	PRINTFORMW 「…まあ、このくらいにしておいてあげますか」
	PRINTFORMW 「これに懲りたら、二度と同じ間違いを繰り返さないことですね…」
	CFLAG:喧嘩中 = 0
ELSEIF CEVENT("仲直り：逆Ａ振動棒")
	PRINTFORMW 「前輩の滑稽な姿、なかなか楽しめましたよ？」
	PRINTFORMW 「まあ、これに懲りたのであれば、許してあげます。」
	CFLAG:喧嘩中 = 0
ELSEIF CEVENT("仲直り：面部騎乗")
	PRINTFORMW 「……出ちゃったんですか？」
	PRINTFORMW 「…まあいいです、今日はこのくらいにしておいてあげます」
	CFLAG:喧嘩中 = 0
ELSEIF CEVENT("仲直り：騎乗位")
	PRINTFORMW 「……%CNAME("一人称")%を怒らせるとこういうことになるんですよ？」
	PRINTFORMW 「…以後気を付けてくださいね」
	CFLAG:喧嘩中 = 0
ENDIF

IF CFLAG:喧嘩中 == 0
	CALL DEL_CEVENT, "禁止自動脱衣"
	;指令解禁
	FOR LCOUNT, 0, 500
		DITEMTYPE:TARGET:LCOUNT = 0
	NEXT

	CALL DEL_CEVENT_GROUP, "仲直り"

	PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为許してくれるようだ…
ENDIF

;-------------------------------------------------
;仲直りックスイベントの共通文
;-------------------------------------------------
@BEDIN_ANGRY_K28

PRINTFORMW 突然、%CALLNAME:TARGET%が%CALLNAME:MASTER%にのしかかってきた！
PRINTFORMW 「……散々あんなことして、タダで済むと思ってるんですか？」
IF RAND:2 && CANTRAIN("推倒騎乗位") && EXP:Ｖ性交経験 && PENIS(MASTER) && (ABL:奉仕精神 >= 5 || (ABL:欲望 >= 4 && ABL:Ｖ感覚 >= 3) ) && TALENT:処女 + TALENT:男性 + TALENT:PLAYER:童貞 == 0 && COND("女性主導生性交")
	PRINTFORMW 「%CNAME("二人称")%がそんなにしたいんなら、してあげます…」
	PRINTFORMW 「でも、やり方は私が決めますからね…！」
	PRINTFORM %CALLNAME:TARGET%将
	IF EQUIP:外套
		PRINTFORM %OUTER(TARGET)%を脱ぎ捨てると、
		CALL SET_OUTER, ""
	ENDIF
	PRINTFORMW %CALLNAME:MASTER%の下腹部に手を伸ばした…
	CALL SET_CEVENT, "仲直り：騎乗位"
ELSE
	PRINTFORMW 「このいらだちと欲求不満、どうしてくれるつもりなんですか？」
	PRINTFORMW 「今ここで直ちに、責任をとってもらいます…」
	PRINTFORM %CALLNAME:TARGET%将
	IF EQUIP:外套
		PRINTFORM %OUTER(TARGET)%を脱ぎ捨てると、
		CALL SET_OUTER, ""
	ENDIF
	PRINTFORMW %CALLNAME:MASTER%の顔の上に跨ってきた…
	CALL SET_CEVENT, "仲直り：面部騎乗"
ENDIF


code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;X1は角色番号に置換してください
;-------------------------------------------------
;お願い・取引での選択肢を追加。番号は60～89を使ってよい
;ここで TFLAG:取引可能 = 1 とすると、Ｈの最中でもここの選択肢が出ます
@WISH_K28_ADDSELECT
;STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("追加選択肢その１", 16)% … %CALLNAME:TARGET%にＡＡＡしてもらいます/
;STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("追加選択肢之２", 16)% … %CALLNAME:TARGET%にＢＢＢしてもらいます/

;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K28_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_K28_ADDSELECT
SIF CFLAG:喧嘩中
	STR:選択肢 += "道歉/"

;Talk指令で増やした選択肢の地の文と台詞
@KOJO_DAILY1_K28_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "道歉"
	IF CEVENTS("追加選択肢からＨ") == ""
		PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%に心から謝罪した…
		PRINTFORMW 「……」
		IF RAND:3 == 0 && CANTRAIN("逆Ａ振動棒")
			PRINTFORMW 「では、これでどうでしょう？」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为おもむろに肛用振動棒を取り出した…
			PRINTFORMW 「休闲褲を降ろして、お尻をこっちに向けてください…」
			CALL SET_CEVENT, "仲直り：逆Ａ振動棒"
		ELSEIF RAND:2 && CANTRAIN("足交") && EXP:足交経験 && ABL:施虐属性 >= 3
			PRINTFORMW 「そうですね…今から私が何をしても、大人しくしていられるなら考えてあげます。」
			PRINTFORMW 「そこに横になってください」
			CALL SET_CEVENT, "仲直り：足交"
		ELSE
			PRINTFORMW 「であれば、そうですね…私の手を借りずに、一人で射精できたら許してあげます」
			PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%に向けてスマホを構えながら冷たく言い放った…
			PRINTFORMW 「ほら、早くやってみてくださいよ」
			CALL SET_CEVENT, "仲直り：自慰"
		ENDIF
		PRINTL [0]従う(これを選ぶとＨします)
		PRINTL [1]断る(これを選ぶとＨしません)
		CALL SET_CEVENT, @"追加選択肢からＨ：%ARGS%"
		FLAG:SELECT_USERSHOP = 100
	ELSE
		IF TFLAG:床イン
			IF CEVENT("仲直り：逆Ａ振動棒")
				PRINTFORMW 「大丈夫ですよ、酱と痛くしてあげますからね…」
			ELSEIF CEVENT("仲直り：足交")
				PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为%CALLNAME:MASTER%の阴茎を両足で挟み込んだ…
				PRINTFORMW 「…%CNAME("一人称")%は怒ってますからね…覚悟してもらいますよ」
			ELSEIF CEVENT("仲直り：自慰")

			ENDIF
		ELSE
			PRINTFORMW 「……是这様吗」
			CALL DEL_CEVENT_GROUP, "仲直り"
		ENDIF
	ENDIF
ENDSELECT

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

;睡眠時の互动指令の選択肢を追加
@DAILY2_SLEEP_K28_ADDSELECT
;STR:選択肢 += "睡眠時追加選択肢その１/"
;STR:選択肢 += "睡眠時追加選択肢之２/"

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K28_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%的反応
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_K28_ADDSELECT
;ここで増やした選択肢を選ぶと、それがSAVESTR:约会 に代入される仕組みです
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

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

;-------------------------------------------------
;場所を変える指令の選択肢を追加
@MOVE_K28_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER

		ELSE

		ENDIF
	ELSE
		PRINTFORMW 「%TEXTR("横暴は言わないでくださいよ/何を企んでるんですか")%？」
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「それはまあ、そこまで言うなら…構いませんよ」
		PRINTFORMW 「でも…」
		PRINTFORMW 「%CNAME("一人称")%、%CNAME("二人称")%に嫌なことばっかり言ってきた気がするんですけど」
		PRINTFORMW 「ひどいことも結構言ったような覚えが有ます」
		PRINTFORMW 「それなのに、どうしてなんですか…？」
		PRINTFORMW 「どうして%CNAME("二人称")%は、そんなに馬鹿なんですか…？」
		PRINTFORMW 「……どうして…そんなに、まっすぐなんですか…？」
		PRINTFORMW 「%CNAME("一人称")%には、理解できません……」
	;失敗
	ELSE
		PRINTFORMW 「……那个」
		PRINTFORMW 「%CNAME("一人称")%が%CNAME("二人称")%に付き合ってるのは魂の確保のためですから」
		PRINTFORMW 「思い上がりもいい加減にしてください」
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")
		PRINTFORMW 「残念ですが、無い袖は振れません」
	ELSE
		PRINTFORMW 「……何を言っているんですか？」
		PRINTFORMW 「不行、そんなの不行よ」
	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		;日期と時間参照随机
		IF COND("合意：胖次交易") && RANDC(4) == 0
			PRINTFORMW
			TFLAG:取引価格 = 1000
		ELSE
			PRINTFORMW 「無償で提供するのは、%CNAME("一人称")%だけが損していると思いませんか？」
		ENDIF
	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		TFLAG:値上げ交渉 = 500
	ENDIF
CASE "胖次"
	;値上げ交渉した
	IF TFLAG:値上げ交渉
		PRINTFORMW 「……これで代わりを買え、と…？そういう問題じゃないと思うんですが」
		PRINTFORMW 「あー…もうめんどくさいです…我明白了、我明白了よ…」
	;相場より高い額を要求されるままに払った
	ELSEIF TFLAG:取引価格 > 500
		PRINTFORMW
	;値切って相場と変わらず$500払う。ここでTFLAG:取引承諾 = 0とすることで拒否するのもよいでしょう
	ELSEIF TFLAG:値切った
		PRINTFORMW
	ELSE
		PRINTFORMW 「まあ、この内衣にもそろそろ飽きてきましたし…このお金で新しい物を買うことにします」
		PRINTFORMW 「古いものは随意%CNAME("二人称")%が処分してください」
	ENDIF
	;胖次を脱いで渡してくる汎用地の文
	CALL DAILY_MESSAGE, "脱下胖次交了出去"

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

	ELSE
		PRINTFORMW 「では仕方有ませんね」
	ENDIF

;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "全裸交易"
	TFLAG:取引承諾 = 1
	;ＯＫ！
	IF TFLAG:取引承諾

	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		;TFLAG:値上げ交渉 = 2000
	ENDIF
CASE "全裸"
	;取引初成功
	IF COND("合意：全裸化") == 0
		PRINTFORMW 「そんなに見たいんですか…？」
		IF RAND:2 && ABL:受虐属性 >= 3
			PRINTFORMW 「……なんなんですか、ホントに」
			PRINTFORMW 「命令されるのは好きじゃないんですが…そうまで言うのであれば…」
		ELSE
			PRINTFORMW 「構いませんよ、減るものじゃ有ませんし」
			PRINTFORMW どうやら\@ CHARA_NUM("室内の邪魔者") ? 人前であっても # \@脱成裸体ことに対しては全く抵抗がないようだ…
		ENDIF
	ELSEIF ABL:受虐属性 >= 3
		IF RAND:4 == 0
			PRINTFORMW 「最低ですね、%CNAME("二人称")%…契約を盾にとって後輩にこんなことを強要して…」
			PRINTFORMW 「これから、%CNAME("一人称")%を、どうするつもりですか…？」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「%CNAME("二人称")%の命令ですからね」
			PRINTFORMW 「どうぞ、気が済むまで随便ください」
			PRINTFORMW 「それで心が痛まないのであれば、ですけど」
		ELSEIF RAND:2
			PRINTFORMW 「この場で、捕食者の前で、無防備になって、食われる準備をしろ、と」
			PRINTFORMW 「……我明白了、やります、やりますよ」
		ELSE
			PRINTFORMW 「%CNAME("一人称")%は、%CNAME("二人称")%の物です…必要とあれば、いつでも体を差し出します…」
			PRINTFORMW 「……」
			PRINTFORMW 「……とか、そんな事を言う女性が必要なのであれば、他を当たるべきだと思うんですがね」
		ENDIF
	ELSEIF COND("夏")
		PRINTFORMW 「今日は暑いですし、それもいいですね」
	ELSE
		PRINTFORMW 「そんなことですか、いいですよ」
	ENDIF
	PRINTL
	IF ABL:受虐属性 >= 3
		PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为文句を言いながらも%CALLNAME:MASTER%の言う街道に服を脱いだ…
	ELSEIF RAND:2 && COND("夏")
		PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为これで邪魔な服から解き放たれる、と言わんばかりの勢いで裸体变成了…
	ELSE
		PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为こともなげに服を脱ぎ捨てると一糸まとわぬ姿を恥じらう様子もなく%CALLNAME:MASTER%の前に晒した…
	ENDIF
CASE "全裸拒否"
	;取引を拒否した際("全裸交易"で設定した場合のみ)
	IF TFLAG:取引拒否

	;二人きりなら脱いでくれるけど状況が悪い
	ELSEIF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)

	ELSE

	ENDIF

;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "事后避孕药取引"
	TFLAG:取引拒否 = 1
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 "同居拒否"

CASE "同居希望"

CASE "同居頻度的相談"

CASE "便当拒否"
	PRINTFORMW 「…お断りします」
	PRINTFORMW 「自分の事は自己面倒を見るべきです」
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		IF RAND:2
			PRINTFORMW 「%CNAME("一人称")%の便当なんかをまた食べたいんですか？」
			PRINTFORMW 「……%CNAME("二人称")%は物好きな人ですね」
		ELSE
			PRINTFORMW 「またですか？どうしても%CNAME("一人称")%じゃなきゃダメなんですか？」
			PRINTFORMW 「だったら、便当の内容には文句言わないでくださいよ？」
		ENDIF
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		PRINTFORMW 「便当ですか……料理はあまりしないのですが」
		PRINTFORMW 「%CNAME("二人称")%がそこまで頼むのであれば仕方有ませんね」
	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 "淫紋贴纸"
	;台詞を書いたら下のRETURN 0を消してください
	;RETURN 0
	PRINTFORMW 「奇妙な術式ですね…」
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「長く生きてきたつもりですがこんなのは見たことが有ません…」
	ELSE
		PRINTFORMW 「%CNAME("一人称")%、思うんです…この模様自体に意思があるんじゃないかって…」
	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 4

	;3以下
	CASEELSE
		IF CEVENT("淫紋刻印待ち：西露芙")
			PRINTFORMW 「お願いします…」
		ENDIF
	ENDSELECT
CASE "淫紋"
	;台詞を書いたら下のRETURN 0を消してください
	;RETURN 0
	SELECTCASE MARK:淫紋
	CASE 2
		PRINTFORMW 「んぐぅぅっ……！」
		IF CEVENT("淫紋刻印待ち：西露芙")
			PRINTFORMW 「ふ、副作用があるとは聞いていましたが…ここまでとは…」
			PRINTFORMW 「しかし、まだ足りません…さらに強力な術式が必要です…」
			CALL PRINT_STRW, "イエロー_(※淫紋のLVが3になることで魂の受け渡しが再度可能になります)"
		ELSE
			PRINTFORMW 「うぅ…この術は私には少し強すぎる気がします…」
			PRINTFORMW 「後悔するなら今のうちですよ、%CNAME("二人称")%…？」
		ENDIF
	CASE 3
		PRINTFORMW 「あ、ぐぅぅっ！うぅぅっ……！」
		PRINTFORMW 「…」
		IF CEVENT("淫紋刻印待ち：西露芙")
			PRINTFORMW 「これで……魂の受け渡しも可能になるはずです…」
			PRINTFORMW 「……%CNAME("二人称")%、谢谢你」
			PRINTFORMW 「思えば…いままでずっと魂をもらっていたのに」
			PRINTFORMW 「酱と礼物を言ったことがなかったような気がしますね」
			CALL PRINT_STRW, "イエロー_(※魂の受け渡しが再度可能成为了)"
			CALL DEL_CEVENT, "淫紋刻印待ち：西露芙"
		ELSE
			PRINTFORMW 「一画か二画増えたところで変わりはしないって、思ってたんですが…」
			PRINTFORMW 「認識が甘かったですね…お断りすればよかったです…」
		ENDIF
	CASE 4
		CALL PRINT_STRW, "「あﾞ、がぁっ…_H_んぎぃぃぃぃっ…_H_」"
		PRINTFORMW 「はぁ……はぁ………こんなに、描く必要が…あるんですか？」
		PRINTFORMW 「いえ…構いませんよ、%CNAME("一人称")%は%CNAME("二人称")%の悪趣味にだって付き合ってあげます…」
	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 "想要钱"

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 「%TEXTR("拒否します/それはダメです/お断りします")%」
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	PRINTFORMW 「仕方ないですね…」
ENDIF

;-------------------------------------------------
;购物での台詞
;-------------------------------------------------
@KOJO_SHOP_K28, 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 "询问有什么想要的东西"

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/28 シルフィ/EVENT_K28_SHOP.ERB