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

SELECTCASE ARGS
;角色クター独自の内衣の組み合わせを設定できます。設定必須です。一定の確率で着用します
;もしも普段は付けない、という事ならCSTR:胖次 = と等号の右側を書き込まない事で出来ます
;CFLAG:随机内衣OFF = 1とした場合には、ここで設定した内衣のみを身に着けるようになります
CASE "内衣"
	CSTR:胖次 = 內褲/淡色/简约/
	CSTR:胸罩 = 简约胸罩/淡色/

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

;学園での便装です。設定必須です。
CASE "制服"
	CALL SET_COSTUME, "露脐装超短裙領帶西装/青"
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "体操服"
	CALL SET_COSTUME, "体操服布鲁马"
;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "泳装"
	CALL SET_COSTUME, "死库水"
	CSTR:改髪 = 无特殊髪型

;自宅など学園外で着ます。設定必須です
CASE "便装"
	SELECTCASE TEXTS("季節")
	CASE "冬"
		CALL SET_SHIRT, "针织毛衣"
		CALL SET_OUTER, "打底褲"
	CASE "秋"
		IF RAND:2
			CALL SET_SHIRT, "针织毛衣"
			CALL SET_OUTER, "打底褲"
		ELSE
			CALL SET_SHIRT, "针织露肩衣"
			CALL SET_OUTER, "キュロット"
		ENDIF
	CASE "夏"
			CALL SET_SHIRT, "露脐Ｔ恤"
			CALL SET_OUTER, "短褲"
	CASEELSE
		IF RAND:2
			CALL SET_SHIRT, "切驳服"
			CALL SET_SKIRT, "百褶裙"
		ELSE
			CALL SET_SHIRT, "露肩外衣"
			CALL SET_OUTER, "キュロット"
		ENDIF
	ENDSELECT
	CALL SET_PANTIES, "蕾丝的胖次"
	CALL SET_BRA, "蕾丝胸罩"

;自分的房間(not主人公的房間)で着ます
CASE "居家服"
	SELECTCASE TEXTS("季節")
	CASE "春", "秋"
		CALL SET_SHIRT, "宽大的Ｔ恤"
	CASE "夏"
		CALL SET_SHIRT, "吊帯衫"
	CASEELSE
		CALL SET_SHIRT, "运动衫"
		CALL SET_OUTER, "运动衫"
	ENDSELECT
	CALL SET_PANTIES, "蕾丝的胖次"
	CALL SET_BRA, "蕾丝胸罩"

;约会以外で家から外出際に着ます。情人旅館呼出とかね
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_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_OUTER, "キュロット"
			CALL SET_SHOES, "小皮靴"
		ENDIF
	ENDSELECT
	CALL SET_PANTIES, "蕾丝的胖次"
	CALL SET_BRA, "蕾丝胸罩"

;もちろん约会の際に着ます
CASE "约会衣装"
	IF TALENT:恋慕
		;服
		SELECTCASE TEXTS("季節")
		CASE "冬"
			IF RAND:3 == 0
				CALL SET_SHIRT, "露背针织毛衣"
			ELSEIF RAND:2 == 0
				CALL SET_SHIRT, "縦毛衣"
			ELSE
				CALL SET_SHIRT, "開胸高領毛衣"
			ENDIF
		CASE "秋", "春"
			IF RAND:3 == 0
				CALL SET_SHIRT, "切驳服"
			ELSEIF RAND:2 == 0
				CALL SET_SHIRT, "针织露肩衣"
			ELSE
				CALL SET_SHIRT, "露肩外衣"
			ENDIF
		CASEELSE
			IF RAND:3 == 0
				CALL SET_SHIRT, "无袖女式衬衫"
			ELSEIF RAND:2 == 0
				CALL SET_SHIRT, "吊帯衫"
			ELSE
				CALL SET_SHIRT, "紧身高袍"
			ENDIF
		ENDSELECT
		;裙、休闲褲
		SELECTCASE TEXTS("季節")
		CASE "冬", "秋"
			SIF CHECK_SHIRT("連衣裙") == 0
				CALL SET_SKIRT, "刺绣長裙"
		CASEELSE
			IF RAND:2 == 0
				CALL SET_OUTER, "キュロット"
			ELSE
				CALL SET_OUTER, "短褲"
			ENDIF
		ENDSELECT
		;连褲襪
		SELECTCASE TEXTS("季節")
		CASE "冬", "秋"
			CALL SET_OUTER, "连褲襪"
		CASEELSE

		ENDSELECT
		IF RAND:3 == 0
			CALL SET_SHOES, "平底鞋"
		ELSEIF RAND:2 == 0
			CALL SET_SHOES, "无后跟鞋"
		ELSE
			CALL SET_SHOES, "高跟鞋"
		ENDIF
	ELSE
		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_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_OUTER, "キュロット"
				CALL SET_SHOES, "小皮靴"
			ENDIF
		ENDSELECT
	ENDIF
	CALL SET_PANTIES, "蕾丝的胖次"
	CALL SET_BRA, "蕾丝胸罩"

;朝Ｈの際に着ます
CASE "朝袭衣装"
	IF COND("同居中")

	ELSE

	ENDIF
;夜袭Ｈの際に着ます
CASE "夜袭衣装"

ENDSELECT

;-------------------------------------------------
;時間帯や場所に応じた髪型、表情の変化を記述する。設定しなくてもかまいません
;CALL SETFLAG, "普段の髪型復元", TARGET で変化させた髪型などを普段のものに戻すことが出来る
;-------------------------------------------------
@MAIDFACE_K62
IF COND("约会中")

ELSEIF PLACE("自宅")
	CSTR:改髪 = 无特殊髪型
ELSE
	CALL SETFLAG, "普段の髪型復元", TARGET
ENDIF

license: unknown


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

EVENT_TABLE =
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;話しかける側のセリフ。COND("対話可能")を満たす相手を選んでPARTNER()にする事で、特定の相手に話しかけることもできる
CASE "お誘いする"
	;特定の相手に話しかける場合はEVENT_TABLEに対話相手の呼び名(CALLNAME)を / 区切りで並べて ; を消す
	;例１）弗理希艾尔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

	IF NO:PARTNER() == 6
;		IF RAND:4 == 0
;			PRINTFORMW
;		ELSEIF RAND:3 == 0
;			PRINTFORMW
;		ELSEIF RAND:2 == 0
;			PRINTFORMW
;		ELSE
			PRINTFORMW 「樱！　一緒に游戏しましょ！」
			PRINTFORMW 霧江が協力型のアクション游戏をウキウキで取り出した。
			PRINTFORMW 『えっと……大丈夫ですか？』
			PRINTFORMW 「大丈夫、大丈夫！　酱と練習してきたから！」
			PRINTFORMW 『では、少しだけ……』
			PRINTFORML
			PRINTFORML ……数十分後
			PRINTFORMW
			PRINTFORMW 『…………』
			PRINTFORMW 「……えっと、ゴメンね？」
			PRINTFORMW そこにはあっさりと游戏オーバーを迎えた霧江と樱が居た。
;		ENDIF
	ELSEIF NO:PARTNER() == 10
;		IF RAND:4 == 0
;			PRINTFORMW
;		ELSEIF RAND:3 == 0
;			PRINTFORMW
;		ELSEIF RAND:2 == 0
;			PRINTFORMW
;		ELSE
			PRINTFORMW 「お母さ～ん。今日、偶々、本当に偶々寄ったお店に凄い可爱%TEXTR("簪/風鈴")%が有ったの」
			PRINTFORMW 「でも、持ち合わせが少し、ほんの少しだけ！足りなくて～……お願い！ちょっとだけ都合して下さい！」
			PRINTFORMW 霧江が甘え声で麦莉爱娜におねだりをしている。
			PRINTFORMW 『……霧江？　確か先月も似たようなことを言ってなかったかしら？』
			PRINTFORMW 「え？　あー…………」
			PRINTFORMW 霧江は一瞬呆けたが直ぐにやらかした！と顔で表し、視線を彷徨わせている。
			PRINTFORMW 『ハァ……先月も言ったけど、お小遣いは直ぐに使わず、必要な時に使えるようにしなさい』
			PRINTFORMW 「是……」
			PRINTFORMW 肩を落として出口た先に%CALLNAME:MASTER%が居るのを見つけた霧江は、スルスルと%CALLNAME:MASTER%に近寄り肩を組んで話しかけた。
			PRINTFORMW 「%CNAME("二人称")%？　突然だけど、魂のストック余ってない？」
			PRINTFORMW 返事を聞いた霧江はニンマリと微笑んだ。
;		ENDIF
	ELSEIF NO:PARTNER() == 42
;		IF RAND:4 == 0
;			PRINTFORMW
;		ELSEIF RAND:3 == 0
;			PRINTFORMW
;		ELSEIF RAND:2 == 0
;			PRINTFORMW
;		ELSE
			PRINTFORMW 「南実～。玉露の良いヤツ淹れたんだけど一緒にどう？」
			PRINTFORMW 『えっ！？いいの！？　霧江欧内酱の淹れる茶大好き♪』
			PRINTFORMW 「嬉しいこと言ってくれるわね～♪　嬉しいから取って置きの茶請けも出しちゃう♪」
			PRINTFORMW 『わ～い、霧江欧内酱大好き♪』
			PRINTFORMW 二人仲良く談笑をする。南実の湯呑が空变成了領帯ミングで霧江がお代わりを進める。
			PRINTFORMW 『うん！有がとう！　すっごく美味しいから欧尼酱にも分けてあげたいんだけど、ダメ？』
			PRINTFORMW 「モチロンいいわよ！」
			PRINTFORMW 上目遣いでおねだりされた霧江は思わず、即答してしまった。
			PRINTFORMW 南実が燥ぎながら急須と湯呑、取って置きの茶請けを持って去っていくのを霧江は引き攣った笑顔で見送る。
			PRINTFORMW 「…………後で〆るか」
			PRINTFORMW 霧江は固く誓った。
;		ENDIF
	ELSE
;		IF RAND:4 == 0
;			PRINTFORMW
;		ELSEIF RAND:3 == 0
;			PRINTFORMW
;		ELSEIF RAND:2 == 0
;			PRINTFORMW
;		ELSE
;			PRINTFORMW
;		ENDIF
	ENDIF
;話しかけられる側のセリフ。括弧は『』を使うのが望ましい
CASE "誘われた"

ENDSELECT

path: ERB/EVENT_K/62 キリエ/EVENT_K62_COMM.ERB


code:
;-------------------------------------------------
;各種打招呼
;注意！ここのセリフは基本的に颜绘が付きます！！
;颜绘に変化を付けたい場合にはセリフの前でEMOTION_PLUSを用いる事で変えられます。
;例）恥じらった顔にさせたい場合には CALL EMOTION_PLUS, "害羞", TARGET
;-------------------------------------------------
@KOJO_GREETING_K62, ARGS
#DIM MEMO_LINECOUNT
;イベント発生中の角色
#DIM ACTOR
;イベント発生中の角色の默认のCALLNAME
#DIMS CALLNAME_ACTOR

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝拘束"
	CALL PRINT_STRW, @"「あ、起きた。まあいいわ。就这様ジッとしときなさい」"

;朝のＨイベントでのセリフ。下の"打招呼"だけ書いてあれば十分だと思います
;ここでCALL SETFLAG, "地の文スキップ"すると地の文、経験表示、本来なら続いて表示される下のCASE "打招呼"の台詞、を全てすっ飛ばせます(上級者向け)
;詳しくは@EVENT_NEWDAYの注釈などを見てください
CASE "朝袭"
	SELECTCASE CSTR:朝袭
;	CASE "朝逆正常位"

;	CASE "朝足交"

;	CASE "朝の新妻PLAY"

	CASE "朝乳交"
		IF RAND:2 == 0
			PRINTFORMW 「はぁ……はぁ……、結構うまくなったんじゃない？」
			PRINTFORMW 「ふぅっふぅっ、私がいいって言うまで勝手に出すんじゃないわよ？」
		ELSE
			PRINTFORMW 「自己やっといて何だけど、結構面倒ねコレ」
			PRINTFORMW 「出そう变成了ら言いなさいよ」
			PRINTFORMW 「顔にかけたらぶっ殺すわよ？」
		ENDIF

;	CASE "朝騎乗位"

	CASE "朝接吻"
		IF RAND:2 == 0
			PRINTFORMW 「はぁ、ちゅっ……んんっ、んぅ、ちゅう……んっ、ちゅぱっ、ちゅっ……」
			PRINTFORMW 「んっ、ちゅっ……んんっ、んぅ……、はぁはぁ、物足りないけどこれ位で勘弁して给」
		ELSE
			PRINTFORMW 「ほら、ちゅーよ。早く」
			PRINTFORMW 「んっ、ちゅくっ……はぁはぁ、こ、これで終わり！」
		ENDIF

	CASE "朝添い寝"
	PRINTFORMW 「んぅ……、ふぁああ……」
		IF RAND:3 == 0
			PRINTFORMW 「あ、あれ？　何で……。あの娘的房間に入ったはずなのに」
			PRINTFORMW 「うわー……やっちゃった。はっずい……。ちょっ、こっち見んな！」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ん、おはよ。まあ、たまには昔みたいに添い寝するのもいいかなって思っただけよ」
			PRINTFORMW 「じゃ、%CNAME("一人称")%は返回からさっさと用意済ませるのよ」
		ELSE
			PRINTFORMW 「……は？　何で%CNAME("二人称")%が居んの？　夜袭？」
			PRINTFORMW 「ここが%CNAME("二人称")%的房間とか関係ないから、さっさと出て行って！」
		ENDIF

	CASE "朝口交"
		IF RAND:2 == 0
			PRINTFORMW 「はむはむ……、甘噛みされるの好きでしょ？」
			PRINTFORMW 「……もうちょっと歯を立ててほしい？　はぁ、結構変態じゃない？」
			PRINTFORMW 「んっ、むぅ……うわっ！　ビクってした！」
		ELSE
			PRINTFORML 「ふほは是へよ？　ほうなるはのほひょうはれひゅなひわよ？」
			PRINTFORMW （動かないでよ？　どうなるかの保証はできないわよ？）
			PRINTFORML 「あほ、へほうひははっらひひは是ほ」
			PRINTFORMW （あと、出そう变成了ら言いなさいよ）
		ENDIF

	ENDSELECT
;朝のＨイベント終了後にする打招呼
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交", "朝乳交"
		IF TALENT:恋慕
			PRINTFORMW 「うわぁ、ドロッドロじゃん。どんだけ溜めてるのよ？」
			PRINTFORMW 「ま、これからも定期的に抜いて给わよ」
		ELSE
			PRINTFORMW 「……出そう变成了ら言えって言ったわよね？」
			PRINTFORMW 「ふん！」
			PRINTFORMW 鳩尾に拳を抉りこまれる！
			BASE:MASTER:体力 -= 200
			PRINTFORMW 体力(%CALLNAME:MASTER%) -200
		ENDIF
	CASE "朝接吻"
		PRINTFORMW 少し紅潮した頬させ、心ここにあらずといったようにぼーっとしている。
		PRINTFORMW ……暫く眺めていると、涎が垂れ始めたのを皮切りに正気に戻り慌てて口元を拭っている。
		PRINTFORMW （ヤバ、口元が緩くなってる……）
	ENDSELECT

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

	IF COND("体育")
		PRINTFORMW 「今日は体育らしいわね？　いいな～、%CNAME("一人称")%も運動したーい」
	ELSE
		IF DAYEV("周六", "游戏内") == 0 && DAYEV("周日", "游戏内") == 0
			PRINTFORMW 「じゃ、%CNAME("一人称")%先に行くから。遅刻不会うにね」
		ELSE
			PRINTFORMW 「出かけよっかな？　どうしよっかな～」
		ENDIF
	ENDIF
CASE "登校"
	IF DAYEV("試験当日")
		IF CFLAG:勉強時間 >= 5
			PRINTFORMW 「今回は勉強したし、余裕余裕♪……多分」
		ELSE
			PRINTFORMW 「……ヤバい。勉強してない。どうしよ絶対ヤバい」
		ENDIF
	ELSEIF DAYEV("試験返却日")
		IF CALCF("試験の予想点数") >= 90
			PRINTFORMW 「良し！　お母桑から何かご褒美貰おっかな～？」
		ELSEIF CALCF("試験の予想点数") >= 70
			PRINTFORMW 「ん～、まあいつも街道かな？」
		ELSEIF CALCF("試験の予想点数") >= 50
			PRINTFORMW 「良かった。助かった……」
		ELSE
			PRINTFORMW 「ヤバい、ヤバい！　絶対怒られる……！」
		ENDIF
	ELSEIF COND("朝袭相手")
		IF TALENT:相思相愛
			PRINTFORMW 「どうしてもって言うなら後で続きを、ね？」
			PRINTFORMW そっぽを向きながら何でも無いように言っているが赤い耳が隠せていない。
		ELSEIF TALENT:恋慕
			PRINTFORMW 「んっ、言うまでもないけどカレにはナイショよ」
		ELSE
			PRINTFORMW 「……何よ？　変な勘ぐりされるような行動は慎むようにしなさいよ」
		ENDIF
;	ELSEIF COND("体育")
;	ELSEIF COND("水泳")
	ELSE
		IF TALENT:相思相愛
			IF RAND:3 == 0
				PRINTFORMW 「ほら、一緒に登校するんでしょ？」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「周りに関係がバレないようにね♪」
			ELSE
				PRINTFORMW 「今日は他の娘と一緒は嫌だからね」
			ENDIF
		ELSEIF TALENT:恋慕
			IF RAND:3 == 0
				PRINTFORMW 「一緒に登校したいの？　はぁ、しょうがないわね」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「カレと一緒だけど不穏なことを言わないって約束できるなら、一緒でいいわよ」
			ELSE
				PRINTFORMW 「他の娘は一緒じゃないの？」
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「……カレと登校约会する予定なんだけど？」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「カレと登校するから3m位出口てるなら一緒でいいわよ」
			ELSE
				PRINTFORMW 「他の娘と一緒に登校しなさいよ」
			ENDIF
		ENDIF
	ENDIF
;この角色と一緒に部室に入った際に誰も他にいない場合
CASE "一番乗り"
	IF TALENT:相思相愛
		PRINTFORMW 「あ……、早く来過ぎたみたいね……」
		PRINTFORMW 「えっと、二人っきりだし、……どうする？」
	ELSEIF TALENT:恋慕
		PRINTFORMW 「%CNAME("一人称")%たちが一番乗りみたいね」
		PRINTFORMW 「ま、すぐに始める必要も無いし少し雑談でもしましょうか？」
	ELSE
		PRINTFORMW 「他の娘達はまだなのね。もうちょっと後から来ればよかった」
	ENDIF
CASE "ただいま"
	PRINTFORMW 「我回来了～」

CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		PRINTFORMW 「おかえり～」
	ELSE
		PRINTFORMW 「ん？　遅かったじゃない？」
	ENDIF

CASE "入室打招呼"
	IF CFLAG:呼び出された
		IF TALENT:恋慕
			PRINTFORMW 「なに～？」
		ELSE
			PRINTFORMW 「なに～？」
		ENDIF
	;你が現在的partnerにＨ的悪戯をしている最中に入室した（partnerへの呼びかけはCNAME("partner")で出来る）
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
		IF TALENT:相思相愛
			PRINTFORMW 「むぅ～……別に、%CNAME("一人称")%はなんともないし……」
		ELSE
			PRINTFORMW 「わっ！？　そういうのは二人きりの時にしなさい！」
		ENDIF
	ELSE
		PRINTFORMW 「失礼しま～す」
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORML 「あ、こんにちは……結構集まりいいのね」
	ELSEIF CFLAG:呼び出された
		PRINTFORML 「あ、ども、こんにちは」
	ELSE
		PRINTFORML 「こんにちは」
	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
		PRINTFORML 『こんにちは、結構集まってるわよ』
	ELSE
		PRINTFORML 『こんにちは』
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		PRINTFORMW 「何？　なんか面白色番組でもあった？」
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		PRINTFORMW 「喉乾いたから、茶を入れなさい」
	ELSE
		PRINTFORMW スマホでSNS巡回しているようだ……
	ENDIF
CASE "抜け出された"
		PRINTFORMW 「ふーん、傲慢じゃない？」
CASE "便当"

;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"

ENDSELECT

;-------------------------------------------------
;メイン画面での台詞。いわゆる一言イベント強化版
;ちなみに画面随机属性しても同じセリフを喋ります
;選択肢に挟まれた場所で出力するのでWAITの使用は禁止
;动画ーションの関係上、１ターンに何度も呼ばれたりするのでフラグ操作をする場合には
;IF CFLAG:KOJO_DAILY済 == 0
;で分岐させるのが良いでしょう
;-------------------------------------------------
@KOJO_DAILY_K62, ARGS
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	IF COND("夜")
		PRINTFORML 「明日、その部活に顔出すから、よろしく～」
		PRINTFORML 「そういえば何部なの？　……まあ、なんでもいっか」
	ELSE
		PRINTFORML 「なんか近づけないようにしてない？　メッチャクチャ迷ったんだけど！」
		PRINTFORML 「一体何のために……そもそも何部なの？」
	ENDIF
CASE "浑身是汗"
	PRINTFORML 「うぅ～、暑い～」
CASE "刚睡醒"
	PRINTFORML 「はっ！　涎が……」
CASE "Cosplay中"
	PRINTFORML 「うぅ～……はっずいぃ」
CASE "点心の感想"
	;今日の点心を用意したのは自分
	IF COND("点心当番")
		PRINTFORML
	;今日の点心は誰かの亲手自制
	ELSEIF COND("亲手自制点心")
		;今日の点心当番の人の亲手自制を初めて食べた
		IF DEVENT(@"%TEXTS("点心当番")%の亲手自制") == 0
			;点心当番が[料理擅長]
			IF COND("点心の作り手が料理擅長")
				PRINTFORML 「メッチャ擅長い……これどこで買ったんですか？」
				PRINTFORML 「え゛っ！？　亲手自制！？」
				PRINTFORML 「ふ、ふーん……あの、作り方ってどんなのかな～って……」
			ELSE
				PRINTFORML 「おいしー」
			ENDIF
		ELSE
			PRINTFORML 「おいしー」
		ENDIF
	;点心が亲手自制でない
	ELSE
		PRINTFORML
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K62
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML 決してこちらと目線を合わせまいと、そっぽを向きつつ啪嗒啪嗒と手を扇いで顔の赤みを引かせようとしている。
CASE "约会的约定"
	PRINTFORML
;これは悪魔や天使や驱魔人のみ
CASE "契約成立"
	PRINTFORML
CASE "巨根化契約成立"
CASE "短小化契約成立"
CASE "摆脱"
	IF TALENT:恋慕
		PRINTFORML 「ん？　何処行くの？」
	ELSE
		PRINTFORML 「は？　変な所は嫌だからね」
	ENDIF
;你と一緒に、主人公的房間に移動した
CASE "主人公的房間に連れ込まれた"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手") || TALENT:相思相愛 == 0
		IF RAND:3 == 0
			PRINTFORML 「何の用？」
		ELSEIF RAND:2 == 0
			PRINTFORML 「あ、マンガの続き貸して」
		ELSE
			PRINTFORML 「あれ？　%CNAME("一人称")%的房間より綺麗……？」
		ENDIF
	ELSE
		IF RAND:3 == 0
			PRINTFORML 「ん～？　なぁに？　二人きりが良かったの？」
		ELSEIF RAND:2 == 0
			PRINTFORML 「打情骂俏したいんでしょ～？　しょうがないわね～」
		ELSE
			PRINTFORML 床に無防備に転がって、こちらをチラチラみている。
		ENDIF
	ENDIF

;你と一緒に、partner的房間に移動した
CASE "自室に招待"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手") || TALENT:相思相愛 == 0
		IF RAND:3 == 0
			PRINTFORML 「%CNAME("一人称")%的房間に用？」
		ELSEIF RAND:2 == 0
			PRINTFORML 「ちょっと！　許可なく盆栽に触らない！」
		ELSE
			PRINTFORML 「散らかってるのは今だけ、たまたまだから！」
		ENDIF
	ELSE
		IF RAND:3 == 0
			PRINTFORML 「%CNAME("一人称")%的房間に二人きりでどうしたいの？」
		ELSEIF RAND:2 == 0
			PRINTFORML 「この子、いい枝ぶりでしょう？　固定したり接ぎ木したり大変なのよ」
		ELSE
			PRINTFORML 床に無防備に転がって、こちらをチラチラみている。
		ENDIF
	ENDIF

;partnerが既に居る部屋に、你が移動した
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手") || TALENT:相思相愛 == 0
		IF RAND:4 == 0
			PRINTFORML 「ん？　何の用？」
		ELSEIF RAND:3 == 0
			PRINTFORML 真剣な眼差しで盆栽の剪定をしている……
		ELSEIF RAND:2 == 0
			PRINTFORML 盆栽達に水やりをしている……
		ELSE
			PRINTFORML 盆栽の枝に針金を慎重に巻き付けている……
		ENDIF
	ELSE
		IF RAND:4 == 0
			PRINTFORML 「急にどうしたの？」
		ELSEIF RAND:3 == 0
			PRINTFORML ちょいちょいと手招きをして、床に腰掛けるように促している。
		ELSEIF RAND:2 == 0
			PRINTFORML 抱きしめろと言わんばかりに手を広げ、無言でジッとこちら看了过来。
		ELSE
			PRINTFORML きょろきょろと世話しなく視線を動かし、目が合うと有点害臊的逸らされる。
		ENDIF
	ENDIF

CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML 「%CNAME("二人称", "どもり")%は何も見てない。良いわね？」
CASE "露脐装超短裙胖次チラ"
	PRINTFORML 「目線でフツーにわかるから止めときなさい」
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	IF TALENT:恋慕
		PRINTFORML 「ホント、まだまだ兒童ね……」
	ELSE
		PRINTFORML 「シュッ！　シュッ！　……それ以上近づいたらビンタじゃすまないわよ」
	ENDIF
CASE "撫摸股間"
	IF TALENT:恋慕
		PRINTFORML 「なんでこんなことするかなぁ……」
	ELSE
		PRINTFORML 「不用意に近づかないことね……」
	ENDIF
CASE "检查内褲"
	IF COND("合意：检查内褲")
		PRINTFORML 「はぁ……、今日は%CLOCOLOR(CSTR:胖次, "形容詞")%%PANTIES(TARGET, "種類")%よ」
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		PRINTFORML 「うぅぅ、他の人に見られてないわよね？」
	ENDIF
CASE "拜托処理性欲"
	PRINTFORML
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
		PRINTFORML
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		PRINTFORML 「はぁ？　まあ、予行と思えば……」
	;做爱房
	ELSE
		PRINTFORML
	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, "質問２"
ENDIF

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

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

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

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF FLAG:二人きり
	;二人きりでの何かする前のセリフ
	IF CFLAG:调戏数 == 0 && CFLAG:刚睡醒 == 0
		PRINTFORML じーっとこちらの様子をうかがっている
	ELSE
		PRINTFORML チラチラとこちらの様子をうかがっている
	ENDIF
ELSEIF STATE("酔酒")
	PRINTFORML
ELSEIF COND("夜")
	IF RAND:3 == 0
		PRINTFORML 「ふぁあ～……そろそろ寝よっかな」
	ELSEIF RAND:2 == 0
		PRINTFORML 「今何時～？」
	ELSE
		PRINTFORML 黙々とスマホでSNS巡回をしているようだ
	ENDIF
ELSE
	IF RAND:3 == 0
		PRINTFORML 「あ、課題やっとかなきゃ」
	ELSEIF RAND:2 == 0
		PRINTFORML 雑誌を読みふけっている
	ELSE
		PRINTFORML 黙々とスマホでSNS巡回をしているようだ
	ENDIF
ENDIF

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

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;ARGSの各CASEでの分岐において、ARGSの文字列後半に ：地の文前 を追加する事で地の文前に喋らせることもできる。
;また、そこでTFLAG:地の文スキップ = 1 とすると、本来出て来る地の文を飛ばすこともできる
;CASE "掀起裙子"の地の文の前に喋らせたりスキップさせたい場合にはCASE "掀起裙子：地の文前"を用意すればよい
;例）CASE "掀起裙子：地の文前"
;		PRINTW 試しにスキップ
;		TFLAG:地の文スキップ = 1
;-------------------------------------------------
@KOJO_DAILYCOM_K62, ARGS
;打招呼
#DIMS GREETING
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨。TFLAG:地の文スキップ = 1とすると地の文をスキップ出来ます
CASE "Ｈ目的で呼び出された"
	;台詞を書いたらRETURN 0 を消してください
	RETURN 0
	IF PLACE("情人旅館")
		PRINTFORMW 『』
	;做爱房
	ELSE
		PRINTFORMW 『』
	ENDIF
CASE "学園での日常"

CASE "お仕事"

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

	;地の文の前の台詞がある場合はここに書く
	SELECTCASE SAVESTR:現在位置
	CASE "阵雨"
		PRINTFORMW
	ENDSELECT

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

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		PRINTFORMW 「小学生の頃はたまにやってたけど、この年でも%CONDS("間柄", MASTER)%とするのはフツーに恥ずかしいわね」
	CASE "内衣選び", "泳装選び"
		PRINTFORMW 「男目線でどう？　似合う？　……派手？」
		PRINTFORMW 「ん～、じゃあこれは？　……地味？ほーん、じゃあ、%CNAME("二人称")%が選んでみなさいよ」
		PRINTFORMW 「……な、なるほど。良いセンスしてるじゃない。こんちくしょう」
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏"
		PRINTFORMW 「何？　手、繋ぎたいの？　何甘えてんのよ？」
		IF TALENT:恋慕
			PRINTFORMW 「ちょっ、あー、もう！　握ろうとして君な！　っっ！　腋を突くな！」
			PRINTFORMW 「ふくく、ちょ、ホント、やめ、あはは、や～め～な～さ～い！」
		ELSE
			PRINTFORMW 「ハイハイ、ホラこれで満足？　まったく、小学生じゃあるまいし…」
		ENDIF
	CASE "检查新刊"
		PRINTFORMW 「あ、買っとかなきゃ」
	CASE "繞道"
		PRINTFORMW 「裏路地とか人が寄り付かない場所は駄目よ。碌なことないんだから」
	CASE "直帰"
		PRINTFORMW 「あれ？　何か買って帰ろうと思ったんだけど……」
	CASE "圣诞节前夕"
		IF TALENT:相思相愛
			PRINTFORMW 「ねぇ？　圣诞节前夕よね？」
			PRINTFORMW 「%CNAME("二人称")%は、ほら、予定ってないでしょう？　%CNAME("一人称")%もなのよね～……」
			PRINTFORMW 「だから、ね？　ほら？　%CNAME("一人称")%と一緒に……ね？」
		ELSE
			PRINTFORMW 「はぁ～圣诞节かぁ……」
			PRINTFORMW 「カレは、家族や社团同伴と、用事があるとか？」
			PRINTFORMW 「……まさかこの時期にカレがいて闲になるとは思わなかったわ」
			IF TALENT:恋慕
				PRINTFORMW 「まぁ、しょうがないから%CNAME("二人称")%の相手して给わ。予定空けてるんでしょ？」
			ELSE
				PRINTFORMW 「%CNAME("二人称")%は闲でしょ？　闲って言いなさい。予定あるとか許さないわよ？」
			ENDIF
		ENDIF
	CASEELSE
		IF TALENT:相思相愛
			PRINTFORMW 「あっ、一緒に返回わよ」
		ELSE
			PRINTFORMW 「ん？　カレ待ってるか。先帰ってなさい」
		ENDIF
	ENDSELECT

;归途イベントの後になんとなく情人旅館に行こっかとなった際のセリフです
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "放課後Ｈ的邀请"
	PRINTFORML 「……%CNAME("二人称")%、溜まってるでしょ？　しょうがないから%CNAME("一人称")%がシて给」
;お浴室に一緒に入ろうと誘われた場合。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "一緒にお浴室"
	PRINTFORMW

;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "休憩"
	;台詞を書いたらRETURN 0を消してください
	RETURN 0
	IF PLACE("自宅")
		IF COND("夜")
			;お浴室
			IF PLACE("居間")
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ELSE
			PRINTFORMW
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		PRINTFORMW
	;場所移動後
	ELSE
		PRINTFORMW
	ENDIF

CASE "清洁口交：お誘い"

CASE "清洁口交：射精後"

CASE "清洁口交：断った"

CASE "清洁口交よりＶ性処理"

CASE "清洁口交よりＡ性処理"

;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0

	;場所で分岐させる？
	SELECTCASE SAVESTR:現在位置
	;MASTERの性別に対応した廁所に呼び出される
	CASE "男子廁所"
	CASE "女子廁所"
	;体育のある日限定
	CASE "体育倉庫"
	;体育か水泳のある日限定
	CASE "更衣室"
	;房顶or人迹罕至的教学楼后侧or部室
	CASEELSE
	ENDSELECT

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

	;PLAYで分岐させる？
	SELECTCASE NAMES("性処理")
	CASE "手淫"
	CASE "口交"
	CASE "乳交"
	CASE "Ｖ性交"
	CASE "Ａ性交"
	CASE "尿道挿入"
	CASE "乳頭奸"
	CASE "奉仕舐陰"
	ENDSELECT

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

	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "性処理：後"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0

	;PLAYで分岐させる？
	SELECTCASE NAMES("性処理")
	CASE "手淫"
	CASE "口交"
	CASE "乳交"
	CASE "Ｖ性交"
	CASE "Ａ性交"
	CASE "尿道挿入"
	CASE "乳頭奸"
	CASE "奉仕舐陰"
	ENDSELECT

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

	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"

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

	ELSE

	ENDIF
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = こんばんは
	ELSEIF COND("昼")
		GREETING = こんにちは
	ELSE
		GREETING = おはようございます
	ENDIF
	SELECTCASE STR:日常イベント名
	CASE "打招呼ハグ"
		IF COND("易出汗")
			PRINTFORMW 「ちょっ、今は汗かいてるから出口なさい！」
		ELSE
			PRINTFORMW 「おぉぅ、何で欧米風？」
		ENDIF
	CASE "打招呼接吻"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「んっ！？　……惊嚇した……」
			PRINTFORMW 「ま、まぁ、悪くはないわよね？　ただの打招呼だし」
		ELSE
			PRINTFORMW 「ちゅっ、はぁ…ちゅ、ちゅ……ちゅう…はぁ、打招呼だしこんなものよね？」
		ENDIF
	CASE  "打招呼舐陰"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「ばっ！　そんな打招呼は無い！」
			PRINTFORMW 頭を鷲掴みにされ、額に膝蹴りを叩き込まれた！
			BASE:MASTER:体力 -= 500
			PRINTFORMW 体力(%CALLNAME:MASTER%) -500
		ELSE
			PRINTFORMW 「だ、か、ら！　そんな打招呼の仕方は存在しない！」
			PRINTFORMW 頭を鷲掴みにされ、額に膝蹴りを叩き込まれた！
			BASE:MASTER:体力 -= 500
			PRINTFORMW 体力(%CALLNAME:MASTER%) -500
		ENDIF
	CASEELSE
		;你に先に打招呼をされた
		IF CFLAG:打招呼した == 0
			PRINTFORMW 「ん。おはよ」
		ELSE
			PRINTFORMW 「おはよ」
		ENDIF
	ENDSELECT
CASE "叫醒"
	PRINTFORMW 「ん～……おはよぉ……」
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	PRINTFORMW 「まだ、眠いぃ」
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	;これはCSTR:点心 に亲手自制属性のものが設定されている時のみ
	CASE "夸奖点心"
		PRINTFORMW 「あ、今日は失敗作じゃなかったんだ」
	CASE "夸奖"
		IF RAND:3 == 0
			PRINTFORMW 「おっ、良い心がけね♪」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「うんうん、もっと夸奖といいわよ♪」
		ELSE
			PRINTFORMW 「ちょっ、はずいからやめなさい」
		ENDIF
	CASE "甜言蜜语"
		IF TALENT:恋慕
			IF RAND:3 == 0
				PRINTFORMW 「ちょ、ちょっと！　やめなさい！」
				PRINTFORMW 「ホント、ビッ阴蒂するからもうちょっとこう……ね？」
				PRINTFORMW %CALLNAME:TARGET%がわた我ている。
			ELSEIF RAND:2 == 0
				PRINTFORMW 「よくもまあ、そんな台詞がスラスラ言えるわね……」
				PRINTFORMW 「どーせ他の娘にも言ってるんでしょ？　……%CNAME("一人称")%だけって、嘘おっしゃい！」
				PRINTFORMW %CALLNAME:TARGET%は満更でもなさそうだ。
			ELSE
				PRINTFORMW 「ハイハイ、あいしてるあいしてる」
				PRINTFORMW 「…………何よ？　こっちを見るな。あっち見ときなさい」
				PRINTFORMW  %CALLNAME:TARGET%はぷいっとそっぽを向いてしまった。
			ENDIF
		ELSEIF CALCF("甜言蜜语成功")
			IF RAND:3 == 0
				PRINTFORMW 「お、おぉ～……%CNAME("二人称")%、そんな言葉何処で覚えてきたの？」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「歯の浮く様な台詞ね……。まあ、悪くわないわよ？」
			ELSE
				PRINTFORMW 「ん、むず痒いわね……」
			ENDIF
		ELSE
			IF RAND:4 == 0
				PRINTFORMW 「ハイハイ、あいしてるあいしてる」
			ELSEIF RAND:3 == 0
				PRINTFORMW %CALLNAME:TARGET%に舌打ちをされてしまった……。
			ELSEIF RAND:2 == 0
				PRINTFORMW %CALLNAME:TARGET%に鼻で笑われた。
			ELSE
				PRINTFORMW %CALLNAME:TARGET%は聞こえていないのか何の反応もしない……。
			ENDIF
		ENDIF
	CASEELSE
		IF RAND:13 == 0 && PLACE("部室")
			PRINTFORMW 部室に持ち込んだ観葉植物の世話をしている
		ELSEIF RAND:12 == 0
			PRINTFORMW 雑誌を読みふけっている
		ELSEIF RAND:11 == 0
			PRINTFORMW 黙々とスマホでSNS巡回をしているようだ
		ELSEIF RAND:10 == 0
			PRINTFORMW 「作業は酱とした？」
			PRINTFORMW 「ちょっとぐらいなら見てあげてもいいわよ？」
		ELSEIF RAND:9 == 0
			PRINTFORMW 「そういえば、あの漫画の新刊出てなかった？」
			PRINTFORMW 「後で貸してね」
		ELSEIF RAND:8 == 0
			PRINTFORMW 「%CNAME("二人称")%もなんか自宅で出来る趣味とか作らないわけ？」
			PRINTFORMW 「部屋でなんか小型のペット育てるとかどう？」
		ELSEIF RAND:7 == 0
			PRINTFORMW 「今日なんか面白色番組あったけ？」
			PRINTFORMW 「久しぶりにコント番組とか見たい。頭空っぽにして笑いたい」
		ELSEIF RAND:6 == 0
			PRINTFORMW 「何かあまーいものが食べたーい」
			PRINTFORMW 「ちょっと便利店へ冰買ってきなさい。ダッシュで」
		ELSEIF RAND:5 == 0
			PRINTFORMW 「闲ならちょっと茶入れてきてちょうだい」
			PRINTFORMW 「他の娘の分も忘れずよ」
		ELSEIF RAND:4 == 0
			PRINTFORMW 「あっ！　スマホの充電がヤバい」
			PRINTFORMW 「ちょっと！　充電器持ってきて！」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「パリッ、モグモグ……ん、お菓子のゴミ。これ、捨てといて」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「今日の晩御飯って何か聞いてる？」
			PRINTFORMW 「何かなー、今日ガツン系がいいなー」
		ELSE
			PRINTFORMW 「あー、なーんか疲れちゃった」
			PRINTFORMW 「ほら、気を利かせてマッサージしなさい」
		ENDIF
	ENDSELECT
;TFLAG:取引拒否 = 1とすることで、你のたわごとを却下できます
CASE "Ｈ的約定"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;この角色自身が前回赤点で、それどころではない（学生以外は、この分岐には来ません）
	IF COND("成績：赤点")
		PRINTFORMW 「こっちはそんな玩耍してる場合じゃないの！」
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			PRINTFORMW 「えぇ～……じゃあ、学年上位ならね」
			PRINTFORMW 「まぁ、さすがに無理でしょ」
		;そうでない場合には平均点を結構上回る程度でＯＫです
		ELSE
			PRINTFORMW 「これ位取れたらいいわよ。取れるものならね！」
		ENDIF
	ENDIF
CASE "拭汗"
	PRINTFORMW 「ん、ん？　いや、自己やるわよ！」
CASE "淋浴独り言"
	PRINTFORMW 「～♪～～♪～～♪♪」
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		PRINTFORMW 「あいつ……」
	ELSE
		PRINTFORMW
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW 「ちょっとカワイイかなって思っただけだし……」
	ELSE
		PRINTFORMW 「我ながら結構似合うんじゃない？」
	ENDIF

CASE "淋浴後换装失敗"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW 「ん？　籠のやつ？」
		PRINTFORMW 「……着るわけないでしょ？　バカ？」
	ELSE
		PRINTFORMW 「着ないって言ってるでしょ！」
	ENDIF

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K62
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "一起学习"
		IF RAND:3 == 0
			PRINTFORMW 「ん、若干可疑けど……多分こうよ」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「これは覚えてるわ。これがこうだからこうよ」
		ELSE
			PRINTFORMW 「あれ～？　これって……あ、そうか、なるほど」
		ENDIF
	CASE "托一托胸部"
		IF TALENT:恋慕
			PRINTFORMW 「思いのほか楽になるのよねぇ……」
			PRINTFORMW 「ほら、しっかり支えなさい。ただし！　指は不用意に動かさないこと！」
		ELSE
			PRINTFORMW 「はぁ？　支える？　……何？　%CNAME("二人称")%の手は何時の間に胸罩变成了の？」
			PRINTFORMW 「さっさと手をどかしなさい」
		ENDIF
	CASE "按摩"
		PRINTFORMW 「ん？　気が利くじゃない。じゃあお願いね」
		IF PLACE("自室") || PLACE("partner的房間") && RAND:2
			PRINTFORMW 床にうつ伏せになっている。
			CALL PRINT_SELECT, "普通に按摩/えっちなマッサージを決行する"
			SELECTCASE RESULT
			CASE 0
				PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%の腰周りを指圧を中心に解していく。
				PRINTFORMW 「んっ、んっ……声が出るのは仕方ないでしょ！」
				PRINTFORMW 「……変な気を起こしたら蹴り飛ばすわよ？」
			CASE 1
				;腎兪
				IF TALENT:恋慕
					PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%に馬乗りになり肩から慢慢地下へ下へ指圧を行う。
					PRINTFORMW 腰周り、臍の裏から左右に指2本分程空けた辺りを両指で温柔的细心的刺激をする。
					CALL PRINT_STRL, @"「ふぅっ_HH_　ふぅ_HH_　……%CNAME("二人称")%、なんか、変なことしてない？」"
					PRINTFORMW %CALLNAME:TARGET%が切なそうにもじもじとする度に、お尻がフリフリと左右に揺れている。
					PRINTFORMW %CALLNAME:MASTER%はさてと、と呟き
					CALL PRINT_SELECT, "就这様お尻を攻め始めた/仰向けになってもらうよう声を掛けた"
					SELECTCASE RESULT
					;衝門
					CASE 0
						PRINTFORMW %CALLNAME:MASTER%は摸屁股ことを%CALLNAME:TARGET%に了解を得てから両手で包み込むように双臀に手を添える。
						PRINTFORMW 掌でハリの良い%CALLNAME:TARGET%のお尻を押し込み、慢慢地戻して手に帰ってくるお尻の反発具合を楽しみつつ、%CALLNAME:MASTER%稍微ずつ揉みしだき始めた。
						CALL PRINT_STRL, @"「んっ、んっ_HH_　はぁはぁ_HH_」"
						PRINTFORMW リラックスしているのか、それとも期待しているのか少しずつ足が左右に開いてきている。
						PRINTFORMW %CALLNAME:MASTER%はそれを見過ごさず、内ももの際どい箇所に親指を滑り込ませ、お尻を揉むのと同時に指で指圧をする。
						CALL PRINT_STRL, @"「あんっ_HH_　あっ_HH_　%CNAME("二人称","どもり")%そこは……！」"
						PRINTFORMW 股を閉じて守備しようとする%CALLNAME:TARGET%に%CALLNAME:MASTER%は落ち着き払った声で精心(欺瞞に満ちた)説明を施す。
						PRINTFORMW 「……え？　リ、リンパ？　毒素が溜まりやすい？　足が苗条になる？　……ま、まあ、そこまで言うなら？やってもいいわよ」"
						PRINTFORMW 是。言質取りました～。と%CALLNAME:MASTER%は先ほどより激烈地お尻と内股を刺激する。
						CALL PRINT_STRL, @"「くぅ_HH_　あっ_HH_　はぁ、はぁ_HH_　あぅ_HH_」"
						PRINTFORMW %CALLNAME:MASTER%はお尻の弾力と、床に顔を押しつけて声が出ないようにしている%CONDS("間柄", TARGET)%の痴態を楽しんだ。
						BASE:欲求不満 += 10
					;ポルチオ
					CASE 1
						PRINTFORMW %CALLNAME:TARGET%は訝し気な表情でゴロンと仰向けに転がり、ジトっとした目で%CALLNAME:MASTER%を看了过来。
						IF ABL:Ｖ感覚 >= 5 && RAND:2
							PRINTFORMW そんな様子を一切気にせず%CALLNAME:MASTER%は%CALLNAME:TARGET%の臍の少し下を指の腹で温柔的何度か押しこむ。
							CALL PRINT_STRL, @"「んっ、おっ_HH_　おぅっ_HH_　……んん！」"
							PRINTFORMW 思わず出てしまった声に驚いたのか、%CALLNAME:TARGET%は轻轻地咳支付をし、グッと口を固く閉じた。
							PRINTFORMW 何時まで我慢できるか楽しみつつ、%CALLNAME:MASTER%は押し込む箇所を左右に拳1つ分程空けた辺りを両指で同様に押し込む。
							CALL PRINT_STRL, @"「ん_HH_　んっ_HH_　はぁ、あっ_HH_」"
							PRINTFORMW %CALLNAME:TARGET%のトロンとした瞳を見て、%CALLNAME:MASTER%は良い感じに仕上がっているのを感じ、また臍の少し下に指をやって、トントンと指先で叩き続けた。
							CALL PRINT_STRL, @"「ん_HH_　ちょっと！　その、あっ_HH_　その、トントンおっ_HH_　やめなさ、うっ_HH_」"
							PRINTFORMW %CALLNAME:TARGET%が抵抗しようとしているが、身体に力が入らないようでもぞもぞと身動ぎしている。
							PRINTFORM その隙を逃さず、%CALLNAME:MASTER%は%CALLNAME:TARGET%の
							IF EQUIP:TARGET:外套
								PRINTFORM %OUTER(TARGET)%と共に
							ELSEIF EQUIP:TARGET:裙
								PRINTFORM %SKIRT(TARGET)%を捲り上げ
							ELSE
							ENDIF
							PRINTFORMW 湿りを帯びた%PANTIES(TARGET)%を素早く下し、テラテラと痴液で湿的た秘肉に指を入れ、その指を折り曲げ膣壁を刺激する。
							PRINTFORMW 反対の手は%CALLNAME:TARGET%のお望み街道叩くのを止め、今度は少し強めに指の腹を押し込んだ。
							CALL PRINT_STRL, @"「あ゛～_HH__HH_　お゛っ_HH_　ひう゛っ_HH__HH_　止め、お゛～っ_HH__HH_」"
							PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%が絶頂しない領帯ミングで止め、身だしなみを整えて、だらしなく仰向けに倒れている%CONDS("間柄", TARGET)%の痴態を満足そうに眺めた。
							PALAM:Ｖ潤 =+ 2000
							BASE:欲求不満 += 20
						;衝門
						ELSE
							PRINTFORMW その視線に気づかないフリをしつつ、%CALLNAME:MASTER%は%CALLNAME:TARGET%の片足を自分の肩に引っかけて、慢慢地接吻をしに行くように顔へと近づける。
							PRINTFORMW 「ふぅっ、ふぅっ、気持ちいいけど、ちょっと顔が近いわよ」
							PRINTFORMW %CALLNAME:TARGET%は有点害臊的視線を彷徨わせているが、%CALLNAME:MASTER%はそんなことお構い无に反対の足も同様にストレッチする。
							PRINTFORMW その後は、%CALLNAME:TARGET%の足首を掴んで立ち上がり、左右に細かく揺さぶって真面目にやっているアピールをする。
							PRINTFORMW 程よく解したところで、%CALLNAME:MASTER%は内股に手を伸ばす。
							PRINTFORMW %CALLNAME:TARGET%はジトっとした目で%CALLNAME:MASTER%を見つめるが、%CALLNAME:MASTER%は邪気の無い(嘘)瞳で見つめ返すと何も言わず力を抜いた。
							PRINTFORMW 勝利を確信した%CALLNAME:MASTER%は%CALLNAME:TARGET%の際どい箇所を時には温柔的なぞるように、時には強く刺激をする。
							CALL PRINT_STRL, @"「んっ_HH_　あっ_HH_　あっん_HH_　んっ_HH_」"
							PRINTFORMW 両腕で庇うように顔を隠した%CALLNAME:TARGET%が静かに喘ぎ声を漏らす。
							PRINTFORM 抵抗が单薄的のを見図り、%CALLNAME:MASTER%は%CALLNAME:TARGET%の
							IF EQUIP:TARGET:外套
								PRINTFORM %OUTER(TARGET)%と共に
							ELSEIF EQUIP:TARGET:裙
								PRINTFORM %SKIRT(TARGET)%を捲り上げ
							ELSE
							ENDIF
							PRINTFORMW 湿りを帯びた%PANTIES(TARGET)%を素早く下し、ヒクヒクと震える恥割れに指を這わせる。
							CALL PRINT_STRL, @"「あっ_HH_　ダメ_HH_　ダメ_HH_　あんっ_HH_　あっ_HH_　あっ_HH_」"
							PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%の反応を心行くまで楽しみ、何事もなかったかのように身だしなみを整えてあげた。
							BASE:欲求不満 += 10
						ENDIF
					CASEELSE
					ENDSELECT
				ELSE
					PRINTFORMW おやぁ～？　ここがかなり凝ってますよ～
					PRINTFORMW いやらしい声色でそう言って%CALLNAME:MASTER%は%CALLNAME:TARGET%のムッチリとしたお尻を両手でグワシッと鷲掴みする！
					PRINTFORMW 「ひゃんっ！　ちょっ、掴むな！　揉むな！」
					PRINTFORMW %CALLNAME:TARGET%はバタバタと暴れ、馬乗りになっている%CALLNAME:MASTER%から逃れた。
					PRINTFORMW 「はぁ、はぁ……覚悟は出来てるんでしょうね！？」
					PRINTFORMW 槍のように蹴りが%CALLNAME:MASTER%の腹部に突き刺さる！
					BASE:MASTER:体力 -= 500
					PRINTFORMW 体力(%CALLNAME:MASTER%) -500
				ENDIF
			CASEELSE
			ENDSELECT
		ELSE
			PRINTFORMW 椅子に座って長い髪をまとめて肩から前に流し、背を向けている
			CALL PRINT_SELECT, "普通に按摩/えっちなマッサージを決行する"
			SELECTCASE RESULT
			CASE 0
				PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%の肩を揉み、時に指圧しコリを解していく。
				PRINTFORMW 「あ～……擅長いわね……んぁ～」
			CASE 1
				IF TALENT:恋慕
					PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%の肩を解しつつ慢慢地鎖骨へと指を滑らし、温柔的撫でるように揉み解す。
					PRINTFORMW 「んっ……はぁ～……ふぅ」
					PRINTFORMW 就这様親指を首の根本へ移動し強めに刺激する。
					PRINTFORMW 残りの指は先ほどと同じく慢慢地鎖骨の少し下まで移動し、温柔的撫でるように揉み解す。
					PRINTFORMW 「ぐっ……はぁ……はぁ……んっ、ふぅ、ふぁっ」
					PRINTFORMW 親指から力を抜き、慢慢地大きく円を描くように服の下から胸を温柔的包み込む。
					PRINTFORMW 親指と人差し指で乳頭を探り当て、乳房を大きく温柔的揉み解し、乳頭を少し強めに刺激する。
					CALL PRINT_STRL, @"「え……ちょっ、あぁっ_HH_　……やぁっ_HH_　……んっ！　ダメ！　あぁっ_HH_」"
					PRINTFORMW 動かすたびに漏れ出す%CALLNAME:TARGET%の嬌声を%CALLNAME:MASTER%は思う存分楽しんだ
					BASE:欲求不満 += 10
				ELSE
					PRINTFORMW おっと、手が滑った！(迫真)
					PRINTFORMW ワザとらしくそう言って%CALLNAME:MASTER%は%CALLNAME:TARGET%の柔らかく張りのある胸をガッチリと掴む！
					PRINTFORMW 「な～にが滑ったよ！　絶対わざとじゃん！！　ガッツリ揉んでんじゃん！！！」
					PRINTFORMW %CALLNAME:TARGET%は抵抗%CALLNAME:MASTER%の手を捩じり、胸から離させる。
					PRINTFORMW 「ふぅーっ！　ぅーっ！　これで勘弁して给！」
					PRINTFORMW 腰の入ったビンタ、に見せかけた掌底が%CALLNAME:MASTER%の頬を打ち拔出！
					BASE:MASTER:体力 -= 300
				PRINTFORMW 体力(%CALLNAME:MASTER%) -300
				ENDIF
			CASEELSE
			PRINTFORMW 「何？」
			ENDSELECT
		ENDIF
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「あっ、もう……んっ……ちゅっ、ちゅぱっ、はぁ、レロッ…レロッ」
			PRINTFORMW 「ちゅっ、ちゅぷ、ちゅっ……んっ、ぷはぁ、……何？　%CNAME("二人称")%がシたかったんでしょ？」
		ELSE
			PRINTFORMW 「んっ……ちゅっ、んちゅっ…ちゅっちゅっ、はぁはぁ」
			IF CHARA_NUM("室内の邪魔者") >= 1
				PRINTFORMW 「っと、是！　終わり！」
			ELSE
				PRINTFORMW 「はぁ、ちゅっ……ちゅぅ、ん、ぷはっ、是、終わり」
			ENDIF
		ENDIF
	CASE "膝枕"
		PRINTFORMW 「ん～？　普通に高いし固いしでいいもんじゃなくない？」
	CASE "泡茶"
		PRINTFORMW 「ん」
	;CALL SET_CEVENT, "飲酒拒否"でお酒を飲まないようにできる。
	;このフラグはCALL DEL_CEVENT, "飲酒拒否"で消すことができる
	CASE "勸酒"
		PRINTFORMW 「あっ！　お酒！　……お母桑にバレないようにね」
	;当然だが尾巴がある相手のみ
	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 PLACE("自宅") || COND("水泳")
			PRINTFORMW 「髪がさらに乱髪になるからや～め～てぇ～」
		ElSE
			PRINTFORMW 「ちょっと！　髪が崩れるから止めなさい！」
		ENDIF
	;胸元にチップを差し込まれます。兔女郎制服限定
	CASE "给小费"
		PRINTFORMW 「しゃっ！　もっとくれてもいいのよ？」
	;送禮貰った感想です。何を貰ったか含め、好きに書いてください
	CASE "送一份小礼物"
		PRINTFORMW 「%TEXTR("ジュース/茶/お菓子/冰/")%？」
		PRINTFORMW 「良い心がけね」
	CASE "送一份普通的礼物"
		IF RAND:4 == 0
			PRINTFORMW 「良い玉簪ね」
			PRINTFORMW 「普段使いもしやすそうだし、……うん！　いいセンスしてるわね！」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「あっ、これ気になってた風鈴」
			PRINTFORMW 「……%CNAME("二人称")%、そういうの結構酱と見てるのね」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「おっ！　二連簪」
			PRINTFORMW 「最近のお気に入りなのよね」
		ELSE
			PRINTFORMW 「ほう……？　迷你盆栽？」
			PRINTFORMW 「……うん、いいわね～。何処に置こうかな～」
		ENDIF
	CASE "送一份高价的礼物";1万位と思ってたけどよく見たら10万じゃねーか……
		PRINTFORMW 「ん？　何？　桐箱……？」
		IF RAND:2 == 0
			PRINTFORMW 「……あの、これ、老舗の簪なんですけど……？」
			PRINTFORMW 「えっと、あのさ、%CNAME("二人称")%簪を贈る意味って……知らないならまあ、いいわ」
			PRINTFORMW 「取り合えず！　……有がとう。大事にするわ。絶対」
		ELSE
			PRINTFORMW 「ん～？　この鉢どっかで…………ん！？　これ！　雑誌に掲載してたやつ！！」
			PRINTFORMW 「ちょっ、手が震えてきた……！　ホントに貰ってもいいやつ？」
			PRINTFORMW 「有がと！　この鉢に見合うような盆栽を育てて見せるわ！」
		ENDIF
	CASEELSE
	ENDSELECT

CASE "撫摸頭髮"
	IF PLACE("自宅") || COND("水泳")
		PRINTFORMW 「髪がさらに乱髪になるからや～め～てぇ～」
	ElSE
		PRINTFORMW 「ちょっと！　髪が崩れるから止めなさい！」
	ENDIF
;"坐在旁邊", "從後面抱住", "把手放在大腿上"は恋慕限定指令です
CASE "坐在旁邊"
	PRINTFORMW 「な、何よぅ……？」
CASE "從後面抱住"
	PRINTFORMW 「きゃっ！？　……もう、ビッ阴蒂するじゃない！？」
	PRINTFORMW 「……ん、もうちょっと就这様でいいわよ」
CASE "把手放在大腿上"
	PRINTFORMW 「うぅ……、その触り方は、その、ちょっと……」

;この中でTFLAG:取引拒否 = 1とすると母乳を分けてあげません
CASE "哺乳"

CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K62
	WAIT
CASE "被拒绝了学习的邀请"

CASE "勉強前に胖次要求"

CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请"
		PRINTFORMW 「ね……ねぇ、そろそろ%CNAME("二人称")%も溜まってきたんじゃない？」
		PRINTFORMW 「余所の子に迷惑かける前に、%CNAME("一人称")%が処理して给」
	CASE "邀请学习"
		;胖次を要求した
		IF CHOSE_DEVENT("勉強前に胖次要求")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "推倒"
		PRINTFORMW 「はぁはぁっ。%CNAME("二人称", "どもり")%悪いんだからね！」
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "清洁口交"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "手淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		PRINTFORMW 「ちゅっ、ちゅっ……はっ！　隙だらけだったから思わず……」
	CASE  "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW 「おりゃ！　ふ～ふっふ、何？　恥ずかしいがってんの？」
	CASE "抚摸"
		PRINTFORMW 「意外と髪質いいわね……」
	CASE "膝枕"
		PRINTFORMW 「みんな忙しそうだし、%CNAME("二人称")%ので我慢しとくか」
	CASE "膝枕"
		PRINTFORMW 「なんか、昔やってあげた記憶があるわね～……」
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		PRINTFORMW 「是。有がたく頂くように」
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW 「ねぇ～ひま～。何かしてみなさいよ～」
		ELSE
			PRINTFORMW 「闲だからなんか面白色話しなさい」
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW 「ちょっと、席を取下わ」
	ENDIF
CASE "廁所詮索"
	PRINTFORMW 「……キモ」
;これは你と角色が両方男性の際に限り起きます
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_K62
		WAIT
	ELSEIF COND("合意：检查阴部") == 1
		PRINTFORMW 「何でそんなことする必要が……」
	ELSE
		CALL EMOTION_PLUS, "憤怒", TARGET
		PRINTFORMW 「する訳ないでしょ！　バカじゃないの！？」
	ENDIF
CASE "检查菊穴"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K62
		WAIT
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K62
		WAIT
	ELSEIF COND("合意：检查内褲") == 1
		CALL EMOTION_PLUS, "害羞", TARGET
		PRINTFORMW 「うぅっ……はずい」
	ELSE
		CALL EMOTION_PLUS, "憤怒", TARGET
		PRINTFORMW 「きゃぁっ！　い、いきなり何しようとしてんの！？　ばか！」
		PRINTFORMW 近づけた顔の横っ面に膝が突き刺さる！
		BASE:MASTER:体力 -= 400
		PRINTFORMW 体力(%CALLNAME:MASTER%) -400
	ENDIF
;念のため分岐を作って有ますが多いので取捨選択してください
CASE "撫摸股間"
	CALL EMOTION_PLUS, "害羞", TARGET
	;初めて
	IF DEVENT(ARGS) == 0
		CALL EMOTION_PLUS, "害羞", TARGET
		PRINTFORMW 「……え？　ここで？　あー、うー、……温柔的…ね？」
	;阴部を直に弄る場合
	ELSEIF CHECK_CLO("Ｖ露出")
		CALL EMOTION_PLUS, "害羞", TARGET
		PRINTFORMW 「うっ、欲望に忠実ね……」
	;连褲襪越し、布鲁马越し、泳装越し、胖次越し
	ELSEIF CHECK_CLO("连褲襪露出") || CHECK_CLO("布鲁马露出") || CHECK_CLO("泳装ボトム露出") || CHECK_CLO("胖次露出")
		CALL EMOTION_PLUS, "害羞", TARGET
		PRINTFORMW 「ううっ……変態…」
	;其他休闲褲やなんか布越し
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查布鲁马", "股間観察"
	CALL EMOTION_PLUS, "害羞", TARGET
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K62
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		CALL EMOTION_PLUS, "害羞", TARGET
		PRINTFORMW 「ううっ……近いんだけど……」
	ELSE
		PRINTFORMW 「？　…………！？　ちょっと、視線が露骨過ぎるわよ！」
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_KX1, %ARGS%, %STR:日常イベント名%：初回
			[ENDIF]
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_KX1, %ARGS%, %STR:日常イベント名%
			[ENDIF]
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_KX1, %ARGS%：刚睡醒
			[ENDIF]
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K62
			WAIT
		ELSEIF COND("合意：掀起裙子") == 1
			IF COND("打招呼前")
				CALL EMOTION_PLUS, "惊嚇", TARGET
				PRINTFORML 「ちょっと！　あいさつ代わりじゃないわよ！　まったく……」
			ELSEIF EQUIP:胖次 == 0
				CALL EMOTION_PLUS, "惊嚇", TARGET
				PRINTFORML 「きゃぁっ！　い、今は、あれだから駄目よ！」
			ELSE
				CALL EMOTION_PLUS, "害羞", TARGET
				PRINTFORML 「確かに許可はしたけど……遠慮とか無いのね……」
			ENDIF
		;没穿内褲
		ELSEIF EQUIP:胖次 == 0
			CALL EMOTION_PLUS, "憤怒", TARGET
			PRINTFORMW 「ぎゃぁー！！　何てことしてくれてんの！！！」
			PRINTFORMW 腰の入ったリバーブローがその名の街道リバーに突き刺さる！
			BASE:MASTER:体力 -= 300
			PRINTFORMW 体力(%CALLNAME:MASTER%) -300
		ELSE
			CALL EMOTION_PLUS, "惊嚇", TARGET
			PRINTFORMW 「きゃぁっ！！　何を小学生みたいなことすんの！　ばか！！」
			PRINTFORMW 普通にビンタされた……
			BASE:MASTER:体力 -= 100
			PRINTFORMW 体力(%CALLNAME:MASTER%) -100
		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 "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

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

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "ちん接吻を頼んだ際の反応"

CASE "見抜きを頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "胖次見抜き"

	ENDSELECT
;これは見抜きされる(胖次を見せている)側の立場のセリフ。連れ見抜き参加者はPARTNER()で参照できる
CASE "連れ見抜き"
	;表情を変える場合はここで出来る
	;CALL EMOTION_PLUS, "害羞", TARGET
	;PARTNER()の使用例
	;PRINTFORMW 「……%CNAME(CALLNAME:PARTNER() )%にそういう目で見られると、ちょっと恥ずかしいですね」

;これは見抜きする(你に誘われて自家発電する)側の立場のセリフ。胖次を見せている角色はPARTNER()で参照できる
CASE "連れ見抜きに誘われた"
	;表情を変える場合はここで出来る
	;CALL EMOTION_PLUS, "夸奖", TARGET

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("性処理")
	;これは見抜きされる(胖次を見せている)側の立場のセリフ。連れ見抜き参加者がいる場合はPARTNER()で参照できる
	CASE "胖次見抜き"
		;連れ見抜きされた場合
		IF PARTNER()

		ELSE

		ENDIF
	CASE "手淫"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
CASE "性処理後飲尿PLAY"

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

		CASE "舐陰莖"

		CASE "口交"

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

			ELSE

			ENDIF

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ELSE
		PRINTFORMW 「……聞かなかったことにしといて给」
		PRINTFORMW ゴミを見るような目で見られてしまった……
		TFLAG:指令中止 = 1
	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 "舐陰"
		;絶頂後の放尿を你が口で受け止めた場合(この角色が[絶頂失禁体質]＆聖水経験＆高い尿意の時に、你に飲尿経験と受虐属性が有ると選択肢出現)
		IF COND("飲尿フラグ", PLAYER)

		ELSE

		ENDIF
	CASE "舐陰莖"

	CASE "口交"

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

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

			CASE "Ａ性交"

			CASE "尿道性交"

			ENDSELECT
		ENDIF
	ENDSELECT
;主人公のスマホに一緒にお昼食べようよと邀请際に送る連絡文です
;ここで TFLAG:地の文スキップ = 0 とすると下の"お昼ご飯のお誘い"での地の文をカットできる
CASE "お昼ご飯のお誘い"
	PRINTFORMW 「お昼%CNAME("一人称")%と一緒に食べたいでしょ？」
;実際に二人昼食をとっている時です
CASE "一緒にお昼ご飯"
	IF TALENT:相思相愛
		PRINTFORMW 「～♪　どう？　一緒で嬉しいでしょ～♪」
	ELSE
		PRINTFORMW 「カレも友達もだーれも捕まらなかったのよねぇ～」
	ENDIF
;部室で二人きりの時に坐在旁邊際のセリフです
CASE "二人きり：坐在旁邊"
	IF TALENT:相思相愛
		IF RAND:3 == 0
			PRINTFORMW 「んふふ♪」
			PRINTFORMW 肩に乗せた頭をぐりぐりと擦りつけている。
		ELSEIF RAND:2 == 0
			PRINTFORMW 「……唔」
			PRINTFORMW 無意識なのか無言で繋いだ手をにぎにぎしている。
		ELSE
			PRINTFORMW 「……ちらっ、ちら」
			PRINTFORMW 構ってほしいのかちらちら言いながら顔を伺っている。
		ENDIF
	ELSE
		PRINTFORMW 「ん？　別に間空けて出口て座る意味無いし……」
	ENDIF
;部室で二人きりの時にＨに邀请際のセリフです
CASE "Ｈに邀请"
	IF TALENT:相思相愛
		PRINTFORMW 「ね、ねぇ？　ほら、溜まってるんじゃない？　丁度、誰也不在し、ね？　……ね？」
	ELSE
		PRINTFORMW 「むぅ～……誰也不在し、ちょっとだけ相手してあげてもいいわよ？」
	ENDIF
CASE "二人きり：Ｈの誘いに胖次条件で回应"
	PRINTFORMW 「……へ？　条件？　……胖次！？」
	PRINTFORMW 「いや、だから%CNAME("一人称")%がシたいわけじゃなくて……その、えっと、……脱掉からちょっとあっち向いてて……」
CASE "二人きり：Ｈの誘いに回应"
	PRINTFORMW 「あっ……も～、しょうがないわね～。%CNAME("二人称")%はホントにえっちね」
CASE "二人きり：Ｈの誘いを断った"
	IF TALENT:相思相愛
		PRINTFORMW 「ふん！　……別に%CNAME("一人称")%がシたかった訳じゃないし、%CNAME("二人称")%がいいならいいんじゃない？」
	ELSE
		PRINTFORMW 「ふ～ん……あっそう！」
	ENDIF
	PRINTFORMW 「……気が変わったら何時でも言いなさいよ」
	PRINTFORMW 蚊の鳴くような声が聞こえた気がした。
ENDSELECT

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

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	IF TALENT:相思相愛
		PRINTFORMW 「ねぇ～、今度の周日日闲でしょ？　デ、约会行くわよ！」
	ELSE
		PRINTFORMW 「カレが付き合ってくれないから、%CNAME("二人称")%付き合いなさい」
	ENDIF
CASE "约会のお誘い：結果"
	;约会決定！
	;自発的に约会の做便当给よ！　って場合はCALL SET_CEVENT, "约会の便当"としてください。
	IF COND("约会的约定")
		IF TALENT:相思相愛
			PRINTFORMW 「大変よろしい！　做便当いこうと思うけど、%CNAME("二人称")%も一緒に手伝いなさい♪」
			CALL SET_CEVENT, "约会の便当"
		ELSE
			PRINTFORMW 「よーしよし、断ってきたらどうしてやろうかと思ったけど、坦率でよろしい」
		ENDIF
	;你に保留されてしまった
	ELSE
		IF TALENT:相思相愛
			PRINTFORMW 「な、なんでよぉ……。気が変わったら直ぐに言ってよ？」
		ELSE
			PRINTFORMW 「……返事は保留？　なに？　偉くなったわね？　%CNAME("二人称")%も？　キープ気取りってわけ？」
		ENDIF
	ENDIF
;你から週末约会に誘われた
;自発的に约会の做便当给よ！　って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "约会に誘われた"
	IF TALENT:相思相愛
		PRINTFORMW 「へっ！？　约会！？　…………！　い、ぃいわよ？　付き合って给」
	ELSE
		PRINTFORMW 「ん？　今度の周日？　……まあ、偶には買い物くらい付き合って给か……」
	ENDIF
;你に便当を作ってきてと頼まれた
CASE "便当を頼まれた"
	IF TALENT:相思相愛
		PRINTFORMW 「ん～……、じゃあ、一緒に作りましょう！　楽しいわよ？」
	ELSE
		IF RAND:2 == 0
			PRINTFORMW 「面倒なんだけど……偶には、いいか」
		ELSE
			PRINTFORMW 「面倒だからパス！」
			CALL DEL_CEVENT, "约会の便当"
		ENDIF
	ENDIF
;你から约会当日にいきなり誘われた
;自発的に约会の做便当给よ！　って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		; 同居が前提
	ELSE
		IF TALENT:相思相愛
			PRINTFORMW 「はえ？　今から！？　ちょ、ちょっ！　準備するからちょっと待って！？」
		ELSE
			PRINTFORMW 「ん～、闲だしいいわよ。ちょっと用意するから待ってなさい」
		ENDIF
	ENDIF

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

;地の文はpartnerが遅れて現れる展開になっています
;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "待ち合わせ"
	IF COND("同居中") == 0
		; 同居が前提
	ELSE
		IF TALENT:相思相愛
			PRINTFORMW 「お待たせ。ほら、手、繋ぎたいでしょ？」
		ELSE
			PRINTFORMW 「知り合いに見られないよう気を付けないと……」
		ENDIF
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "约会本番"
	SELECTCASE SAVESTR:约会
	CASE "去买泳衣"
		PRINTFORMW 「今年の新作はどんな感じかな～」
	CASE "散歩"
		PRINTFORMW 「知り合いに見られたくないんだけど……」
	CASE "尋訪美食"
		PRINTFORMW 「1日位なら大丈夫よね……」
	CASE "逛街"
		PRINTFORMW 「よーし！　買うわよ～。荷物持ち頼りにしてるわよ」
	CASE "去水族馆"
		PRINTFORMW 「いいわね！　深海魚とか見れるとこがいい！」
	CASE "去游乐园"
		PRINTFORMW 「ぜ、絶叫系は、%CNAME("二人称")%苦手でしょ？　それ以外を乗っていきましょ？」
	CASE "去电影院"
		PRINTFORMW 「今って何やってるっけ？」
	CASE "去图书馆"
		PRINTFORMW 「環境を変えて勉強するのも有些か……」
	CASE "赏花"
		PRINTFORMW 「赏花♪　赏花♪　そこら辺ぐるっと見て回りるわよ♪」
	CASE "去游泳"
		PRINTFORMW 「いいわね！　海？　泳池？　途中で色々買って行くわよ」
	CASE "爬山"
		PRINTFORMW 「山？　ちょっと、先に言いなさいよ！　こんな装備じゃ……え？　そんな本格的じゃない？　……そっか」
	CASE "赏红叶"
		PRINTFORMW 「%CNAME("二人称")%いいセンスしてるわね！　写真一杯撮っちゃお～♪」
	CASE "滑雪"
		PRINTFORMW 「スキーとかより手軽に楽しめるから好き～」
	CASEELSE
		PRINTFORMW
	ENDSELECT

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1
CASE "约会中の買食物"
	SELECTCASE SAVESTR:约会
	CASE "去电影院"
		;何を買ったかはSTR:選択したもの で分岐可能
		SELECTCASE STR:選択したもの
		CASE "爆米花"
			PRINTFORMW 「映画といえばこれよね」
		CASE "吉事果"
			PRINTFORMW 「今日は甜の食べたい気分だったのよ」
		CASE "热狗"
			PRINTFORMW 「ん～轻轻地食べたい感じだったのよね」
		ENDSELECT
	ENDSELECT
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 TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问", "专心看电影"

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

;文化祭イベント
;ここでは"约会相手ではなく出し物をしている人"が喋ります。
;本来の约会相手はPARTNER()に角色番号が入ってます。呼びかける場合にはCNAME("partner")を使ってください
CASE "乐队演奏", "演劇", "占卜館", "恐怖屋敷", "烦悩相談室", "PaFuPaFu屋", "女仆咖啡厅", "執事咖啡厅", "西式料理店"

;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "帰り際"
	IF TALENT:恋慕
		PRINTFORMW 「えっと、じゃ、どうしよっか……？」
	ELSE
		PRINTFORMW 「ん～……！　満足満足！」
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			PRINTFORMW 「しょ、しょーがないわね。まぁ、%CNAME("一人称")%にも責任あるし？　ちょっとだけ付き合って给」
		ELSE
			PRINTFORMW 「えぇ！？　今日はそういうつもりじゃ……でも、まあ、仕方ないか……」
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW 「……え？　返回の？　いや、%CNAME("一人称")%是いんだけど、%CNAME("二人称")%は、その、いいの？」
		ELSE
			PRINTFORMW 「良い闲つぶしなったわ♪　褒めて给」
		ENDIF
	ENDIF
ENDSELECT

;-------------------------------------------------
;時間経過などで表示される　机の上にメモが置いてある……　で表示されるテ接吻トに角色独自の物を追加できます
;特に無いなら書かなくて大丈夫です
;-------------------------------------------------
@TIPS_K62
SELECTCASE RAND:5
CASE 4
	PRINTFORMW 『プロレス技はぱっと見で痛くなさそうでも、力を籠めれば大体痛いらしい（%CONDS("間柄", MASTER)%で実験済）』
CASE 3
	PRINTFORMW 『お母桑が%CONDS("間柄", MASTER)%に甘すぎる気がする！　私ももっと甘やかして欲しい！　テストの点数悪くても怒らないで欲しい！』
CASE 2
	PRINTFORMW 『最近樱の体調が良い。構いたいが、怪我をさせそうで怖い……。業腹だが%CONDS("間柄", MASTER)%の接し方を参考にするか……？』
CASE 1
	PRINTFORMW 『南実が%CONDS("間柄", MASTER)%にベッタリで羨ましい……！　仲良くしたいけど、何故か%CNAME("一人称")%が%CONDS("間柄", MASTER)%を独り占めしてると怒られる……』
CASEELSE
	PRINTFORMW 『%CONDS("間柄", MASTER)%は言うなれば無限残機らしい、ならもうちょっと強めにイジメても良いのでは？　この鬱憤を晴らさねば……！』
ENDSELECT

path: ERB/EVENT_K/62 キリエ/EVENT_K62_DAILY.ERB


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

;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K62_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_K62_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;Talk指令で増やした選択肢の地の文と台詞
@KOJO_DAILY1_K62_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_K62_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

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

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

;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
@KOJO_DATE_K62_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

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

path: ERB/EVENT_K/62 キリエ/EVENT_K62_SELECT.ERB


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

MEMO_LINECOUNT = LINECOUNT

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

		ELSE

		ENDIF
	ELSE
		[IF_DEBUG]
			PRINTFORMW @KOJO_WISH_K62, %ARGS%
		[ENDIF]
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「ばっ、あっ、……%CNAME("二人称","どもり")%ね……！」
		PRINTFORMW 「一応言っとくけど%CNAME("一人称")%たち血のつながった%CONDS("間柄")%%CONDS("間柄", MASTER)%なのよ？」
		PRINTFORMW %CALLNAME:MASTER%は何を今更なことを言っているのだろうか？と訝しんだ。
		PRINTFORMW 「……%CNAME("二人称")%が何を言いたいかは分かるわよ？確かにいろいろヤッちゃった後だし、今更感があるけど……」
		PRINTFORMW やはり駄目だろうか？自分としては真剣に考えてのことなのだが……と、%CALLNAME:MASTER%が肩を落として言う。
		PRINTFORMW 「いや、ダメとかじゃなくて、その、いきなり言われてもビッ阴蒂するって言うか……」
		PRINTFORMW 「それにほら！%CNAME("一人称")%、カレもいるし……その、そうなるにしても順序ってものがあるでしょ？だから、え～っと……是！この話は終了！！」
		PRINTFORMW %CALLNAME:TARGET%は耳まで真っ赤に染めつつ、胖次胖次と手を叩いて終わりを主張しているが、気にせず%CALLNAME:MASTER%はジッと見つめてみる。
		PRINTFORMW 「……何よ？」
		PRINTFORMW 若干の居心地の悪さを感じたのか%CALLNAME:TARGET%が斜眼で尋ねてきた。
		PRINTFORMW %CALLNAME:MASTER%は堂々とした態度で返事を酱と聞いていない。返事が欲しい。と伝えた。
		PRINTFORMW 「うぐっ！……う～、あ～、その……%CNAME("二人称","どもり")%も……えっと……嫌いじゃないっていうか……」
		PRINTFORMW %CALLNAME:TARGET%は暫く唸ったり、パクパクと口を動かしたりを繰り返していたが、吹っ切れたように顔を上げ、無言でズカズカと近づいてきた。
		PRINTFORMW 就这様目と鼻の先まで近づいたかと思えば、悄悄的、温柔的唇を寄せる。
		PRINTFORMW 「……それが答えだから！」
		PRINTFORMW 湯気が出るんじゃないかと思える程赤面した%CALLNAME:TARGET%がそう言い捨てて走り去ってしまった。
		PRINTFORMW %CALLNAME:MASTER%は接吻だって今更じゃないだろうか？と思いはするが、まあ、%CONDS("間柄")%なりの精一杯なんだろうと思い直し、男として大号的気持ちで接受ことにした。
	;失敗
	ELSE
		PRINTFORML 「何をバカなこと言ってんの？」
		PRINTFORML 「いい加減%CONDS("間柄")%出口したほうがいいんじゃない？」
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")
		PRINTFORMW 「い、いや、今日は偶々履いてないないっていうか……」
	ELSE

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

CASE "胖次拒否"
	;取引を拒否した際
	IF TFLAG:取引拒否
		PRINTFORMW 「え゛！？無理！！さすがにキモい！！」
	ELSE
		PRINTFORMW 「はぁあ！？なに気持ち悪いこと言ってんの？」
	ENDIF

;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "全裸交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		PRINTFORMW
	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		;TFLAG:値上げ交渉 = 2000
	ENDIF
CASE "全裸"
	;値上げ交渉した("全裸交易"で設定した場合のみ)
	IF TFLAG:値上げ交渉

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

	ELSE

	ENDIF
	;汎用地の文
	CALL EVENT_DATUI, "裸体"
CASE "全裸拒否"
	;取引を拒否した際("全裸交易"で設定した場合のみ)
	IF TFLAG:取引拒否
		PRINTFORMW 「絶っ対嫌！」
	;二人きりなら脱いでくれるけど状況が悪い
	ELSEIF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
		PRINTFORMW 「絶っ対嫌！」
	ELSE
		PRINTFORMW 「絶っ対嫌！」
	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 "同居拒否"

CASE "同居希望"

CASE "同居頻度的相談"

CASE "便当拒否"
	PRINTFORMW 「嫌！メンドイ！！」
CASE "做便当"
	;便当のお願い２回目以降
	IF TALENT:相思相愛
		IF COND("合意：便当")
			PRINTFORMW 「いいわよ♪そっかぁ……そんなに美味しかったかぁ…」
			PRINTFORMW 「リクエストがあれば入れてあげてもいいわよ♪」
		ELSE
			IF COND("同居中")
				PRINTFORMW 「え？%CNAME("一人称")%の亲手自制がいいの？」
			ELSE
				; 同居が前提
			ENDIF
			PRINTFORMW 「そこまで言うなら作って给♪」
		ENDIF
	ELSE
		IF COND("合意：便当")
			PRINTFORMW 「えぇ～またぁ～？……ふぅん、美味しかったんだ。まあ、カレにも好評だったし？」
			PRINTFORMW 「しょうがないわねぇ。作って给。ついでにね」
		;以下は初めて作ってもらうよう变成了とき
		ELSE
			IF COND("同居中")
				PRINTFORMW 「えっ！？お母桑じゃなくて？」
			ELSE
				; 同居が前提
			ENDIF
			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 "淫紋拒否"
	PRINTFORMW 「はぁあ！？何それ！？嫌！絶対！嫌！！」
;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「シールなら……まあ、いいのかな？」
	ELSE
		PRINTFORMW 「うぇっ！？また？う゛ぅ～……ぃいわよ？」
	ENDIF

CASE "淫紋贴纸"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW （？何か、ちょっとだけ熱い……？）
	ELSE
		PRINTFORMW （うぅぅぅ……貼っちゃった……んっ）
	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2
		PRINTFORMW 「い、一生消えないの……？見えなくする方法とかは？」
		IF TALENT:相思相愛
			PRINTFORMW 「自分のモノにしたいって……ば、バカ！何言ってるのよ……」
		ELSE
			PRINTFORMW 「カレにバレちゃったら……。え？嫌いな男是ないって？」
		ENDIF
		PRINTFORMW 「でも、……うぅぅ……ちょっと、怖い……」
		PRINTFORMW 「い、痛くないのよね？何かあったら責任取ってくれる？」
	CASE 3
		PRINTFORMW 「画数を増やす？」
		PRINTFORMW 「え？えっ？……えっと、増えるとどうなるの？」
		PRINTFORMW 「……良くなる？曖昧な言い方ね？具体的には？」
		PRINTFORMW 「……見栄えが良くなる？えぇー……まあ、それなら……」
	CASE 4
		PRINTFORMW 「またぁ？……これで最後？」
		PRINTFORMW 「中途半端は良くないわよね？そういうことならしょーがないわ」
		PRINTFORMW 「何？にやけてる？……そ、そんなことないわよ？」
		PRINTFORMW 「ほら、闲じゃないんだからちゃっちゃと済まして頂戴」
	ENDSELECT
CASE "淫紋"
	SELECTCASE MARK:淫紋
	CASE 2
		PRINTFORMW 「……痛くなかった……」
		PRINTFORMW 「はぁ～ホントに彫っちゃた……。お腹見える服とか着れなくなっちゃた。温泉も……」
		PRINTFORMW 「いや、オシャレよオシャレ。積極的に見せる気はないけど」
	CASE 3
		PRINTFORMW 「……はぁはぁ、あれ？彫った後ってこんなに……んっ」
		PRINTFORMW 「え！？感度も良くなる！？そういうのは先ni↘……はぁっはぁっ」
		PRINTFORMW 「……ちょっと、責任取ってもらうわよ」
	CASE 4
		PRINTFORMW 「あっ、ん、これが疼くってやつね……」
		PRINTFORMW 「はぁ、ほら、ぼーっと突っ立てないでどんな感じか試さないとダメでしょ？」
		PRINTFORMW 「……何よ？まさか、%CNAME("一人称")%の相手する気じゃないなんて言わないでしょうね？」
		PRINTFORMW 「最初に責任取るって言ったわよね？」
	ENDSELECT
CASE "拜托処理性欲"
	IF TALENT:恋慕
		PRINTFORMW 「……そこまで言うなら断れないわね」
		PRINTFORMW 「仕方なく、よ？」
	ELSE
		PRINTFORMW 「…………はぁ？」
		TFLAG:取引拒否 = 1
	ENDIF
CASE "性処理の一時中断"

CASE "性処理拒否"
	PRINTFORMW 「――馬鹿！大馬鹿者！！お母桑に言いつけるからね！」
;悪魔、淫魔、妖狐専用
CASE "给我看尾巴"

CASE "给我看尾巴拒否"

;改变髪型のは、長さが披肩以上の人のみ。未設定だと披肩扱いです
;髪型を弄る際に手伝ってくれる人がASSIになっています。お手伝い桑を指名したい場合にはその人をASSIにして下さい
CASE "改变髪型"
	PRINTFORMW 「簪の使い方知ってるの？じゃあ、偶には別の改髪にしてもらおうかしら？」
CASE "髪型変更の感想"
	;どの髪型变成了かで分岐可能
	;ツインは2本、三股辫等の毛先の方で留めるのは不要、妹妹頭と钻頭は……まあ、うん
	SELECTCASE CONDS("髪型の種類")
	CASE CONDS("普段の髪型")
		PRINTFORMW 「……いつもの街道なんだけど、なんで一旦解いたの？」
	CASE "低団子頭"
		PRINTFORMW 「おっ！擅長いじゃない。そういえば、団子頭と盘頭って同じ意味なの知ってた？」
	CASE "马尾辫", "侧边马尾", "编起来", "单辫", "高侧盘頭"
		PRINTFORMW 「偶にはこういうのもいいわよね」
	CASE "団子頭", "双马尾", "短双马尾ール", "長双马尾ール", "卷双马尾ール", "团子頭双马尾ール", "細双马尾", "侧盘頭"
		PRINTFORMW 「2本で擅長くまとめたわね」
	CASE "大三股辫", "三股辫", "三股辫双马尾ール", "麻花辫", "双辫", "简易扎发"
		PRINTFORMW 「簪使わない改髪はずいぶん久しぶりね」
	CASE "妹妹頭"
		PRINTFORMW 「はぇ！？今何したの？え、切って……ない、わね……？」
	CASE "钻頭双马尾ール"
		PRINTFORMW 「……時間をかけた甲斐があったわね」
	;其他
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "改变髪型拒否"
	PRINTFORMW 「%CNAME("二人称")%、簪の使い方知らないでしょ？」
;これは普段から连褲襪を履く人じゃないとあんまり見る機会ないと思う
CASE "连褲襪着替え"
	;どれに履き替えてもらったか
	IF CHECK_OUTER("開放型连褲襪")
		PRINTFORMW 「えっと、穴空いてるんだけど……そういうこと？」
	ELSEIF CHECK_OUTER("渔网连褲襪")
		PRINTFORMW 「うわっ、えっちだぁ～」
	ELSEIF CHECK_OUTER("连褲襪")
		PRINTFORMW 「まあ、いつも履いてるし……」
	;生足
	ELSE
		PRINTFORMW 「脱掉の？」
	ENDIF
CASE "连褲襪着替え拒否"
	PRINTFORMW 「え？なんで？……フェチ？キモ」
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 "業物"

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, "拒否")
	[IF_DEBUG]
		PRINTFORMW @KOJO_WISH_K62, 汎用拒否
	[ENDIF]
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	[IF_DEBUG]
		PRINTFORMW @KOJO_WISH_K62, 汎用ＯＫ
	[ENDIF]
ENDIF

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

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORMW 「ん？どっか行くの？%CNAME("一人称")%も行くー！」
		PRINTFORMW 「……ん？この店って……？」
	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")

	ELSE
		PRINTFORMW 「あ……、またあそこ行くの？」
		PRINTFORMW 「変な物買わないように、%CNAME("一人称")%が付いてって给」
	ENDIF
CASE "目送"
		PRINTFORMW 「いてらー」
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
		PRINTFORMW 「えっ！？%CNAME("一人称")%！？%CNAME("一人称")%は別に欲しいものなんて……」
		PRINTFORMW 「うぅ……、一個だけ……」
	ELSE
		PRINTFORMW 「%CNAME("一人称")%はここで買うものなんてないわよ……」
		PRINTFORMW 「あっ、あれ、どうしよ……」
	ENDIF
;ここはwaitを使わないようにしてください(PRINTFORMW の代わりに PRINTFORML を使う)
CASE "询问有什么想要的东西"
	;PRINTFORML
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "媚薬", "飞机杯"

	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0
			PRINTFORMW 「うぅぅ……、こ、これくださぃ」
		ELSE

		ENDIF
	;えっちな商品
	CASEELSE
		PRINTFORMW 買ったものを視界に入れないようにそっぽを向いている
	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/62 キリエ/EVENT_K62_SHOP.ERB